build checks.x86_64-linux.mutation-opt-env-conf
- 1721.97 s
[opt-env-conf-test] ppIndent $ do
- 1721.97 s
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
- 1721.97 s
[opt-env-conf-test] @@ -204,23 +204,17 @@
- 1721.97 s
[opt-env-conf-test] ppIndent $ do
- 1721.97 s
[opt-env-conf-test] mS <- ppArg
- 1721.97 s
[opt-env-conf-test] let docsForErrors = map (void . commandParserDocs) cs
- 1721.97 s
[opt-env-conf-test] case mS of
- 1721.97 s
[opt-env-conf-test] Nothing -> do
- 1721.97 s
[opt-env-conf-test] debug ["No argument found for choosing a command."]
- 1721.97 s
[opt-env-conf-test] let mDefaultCommand = do
- 1721.97 s
[opt-env-conf-test] d <- mDefault
- 1721.97 s
[opt-env-conf-test] find ((== d) . commandArg) cs
- 1721.97 s
[opt-env-conf-test] case mDefaultCommand of
- 1721.97 s
[opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
- 1721.97 s
[opt-env-conf-test] Just dc -> do
- 1721.97 s
[opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
- 1721.97 s
[opt-env-conf-test] go $ commandParser dc
- 1721.97 s
[opt-env-conf-test] - Just s -> do
- 1721.97 s
[opt-env-conf-test] - case find ((== s) . commandArg) cs of
- 1721.98 s
[opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
- 1721.98 s
[opt-env-conf-test] - Just c -> do
- 1721.98 s
[opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
- 1721.98 s
[opt-env-conf-test] - go $ commandParser c
- 1724.40 s
[opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
- 1724.40 s
[opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]