build checks.x86_64-linux.mutation-opt-env-conf

  1. 1721.97 s [opt-env-conf-test] ppIndent $ do
  2. 1721.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
  3. 1721.97 s [opt-env-conf-test] @@ -204,23 +204,17 @@
  4. 1721.97 s [opt-env-conf-test] ppIndent $ do
  5. 1721.97 s [opt-env-conf-test] mS <- ppArg
  6. 1721.97 s [opt-env-conf-test] let docsForErrors = map (void . commandParserDocs) cs
  7. 1721.97 s [opt-env-conf-test] case mS of
  8. 1721.97 s [opt-env-conf-test] Nothing -> do
  9. 1721.97 s [opt-env-conf-test] debug ["No argument found for choosing a command."]
  10. 1721.97 s [opt-env-conf-test] let mDefaultCommand = do
  11. 1721.97 s [opt-env-conf-test] d <- mDefault
  12. 1721.97 s [opt-env-conf-test] find ((== d) . commandArg) cs
  13. 1721.97 s [opt-env-conf-test] case mDefaultCommand of
  14. 1721.97 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  15. 1721.97 s [opt-env-conf-test] Just dc -> do
  16. 1721.97 s [opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
  17. 1721.97 s [opt-env-conf-test] go $ commandParser dc
  18. 1721.97 s [opt-env-conf-test] - Just s -> do
  19. 1721.97 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  20. 1721.98 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  21. 1721.98 s [opt-env-conf-test] - Just c -> do
  22. 1721.98 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  23. 1721.98 s [opt-env-conf-test] - go $ commandParser c
  24. 1724.40 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  25. 1724.40 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]