1. 1725.72 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  2. 1725.72 s [opt-env-conf-test] else do
  3. 1725.72 s [opt-env-conf-test] for_ mDefault $ \d ->
  4. 1725.72 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Lint.hs:278:16-53
  5. 1725.72 s [opt-env-conf-test] @@ -275,13 +275,8 @@
  6. 1725.72 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  7. 1725.72 s [opt-env-conf-test] if null cs
  8. 1725.72 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  9. 1725.72 s [opt-env-conf-test] else do
  10. 1725.72 s [opt-env-conf-test] - for_ mDefault $ \d ->
  11. 1725.72 s [opt-env-conf-test] - when (isNothing (find ((== d) . commandArg) cs)) $
  12. 1725.72 s [opt-env-conf-test] - validationTFailure $
  13. 1725.72 s [opt-env-conf-test] - LintError mLoc $
  14. 1725.72 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand d
  15. 1725.72 s [opt-env-conf-test] and <$> traverse (go . commandParser) cs -- TODO is this right?
  16. 1725.72 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  17. 1725.72 s [opt-env-conf-test] c1 <- go p1
  18. 1725.72 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  19. 1725.72 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:272:14-15
  20. 1725.72 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  21. 1725.72 s [opt-env-conf-test] when (not c) $
  22. 1725.72 s [opt-env-conf-test] mapValidationTFailure (LintError mLoc) $
  23. 1725.72 s [opt-env-conf-test] validationTFailure LintErrorManyInfinite
  24. 1725.72 s [opt-env-conf-test] - pure c
  25. 1725.72 s [opt-env-conf-test] + pure not (c)
  26. 1725.72 s [opt-env-conf-test] ParserAllOrNothing _ p -> go p
  27. 1725.72 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> go p
  28. 1725.72 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  29. 1725.72 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:266:14-15
  30. 1725.72 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  31. 1725.72 s [opt-env-conf-test] when (not c) $
  32. 1725.72 s [opt-env-conf-test] mapValidationTFailure (LintError mLoc) $
  33. 1725.72 s [opt-env-conf-test] validationTFailure LintErrorManyInfinite
  34. 1725.72 s [opt-env-conf-test] - pure c
  35. 1725.72 s [opt-env-conf-test] + pure True
  36. 1725.72 s [opt-env-conf-test] ParserSome mLoc p -> do
  37. 1725.72 s [opt-env-conf-test] c <- go p
  38. 1725.72 s [opt-env-conf-test] when (not c) $
  39. 1725.72 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:259:14-24
  40. 1725.72 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  41. 1725.72 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  42. 1725.72 s [opt-env-conf-test] c1 <- go p1
  43. 1731.91 s [opt-env-conf-test] c2 <- go p2
  44. 1731.91 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  45. 1731.94 s [opt-env-conf-test] + pure not ((c1 && c2)) -- TODO: is this right?
  46. 1731.94 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  47. 1731.94 s [opt-env-conf-test] ParserMany mLoc p -> do
  48. 1731.94 s [opt-env-conf-test] c <- go p
  49. 1731.94 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:280:21-62
  50. 1731.94 s [opt-env-conf-test] @@ -277,7 +277,7 @@
  51. 1731.94 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  52. 1731.94 s [opt-env-conf-test] else do
  53. 1731.94 s [opt-env-conf-test] for_ mDefault $ \d ->
  54. 1731.94 s [opt-env-conf-test] - when (isNothing (find ((== d) . commandArg) cs)) $
  55. 1731.94 s [opt-env-conf-test] + when (not (isNothing (find ((== d) . commandArg) cs))) $
  56. 1731.94 s [opt-env-conf-test] validationTFailure $
  57. 1731.94 s [opt-env-conf-test] LintError mLoc $
  58. 1731.94 s [opt-env-conf-test] LintErrorUnknownDefaultCommand d
  59. 1731.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  60. 1731.94 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  61. 1731.94 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  62. 1731.94 s [opt-env-conf-test] c1 <- go p1
  63. 1731.94 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  64. 1731.94 s [opt-env-conf-test] - pure $ c1 || c2
  65. 1731.94 s [opt-env-conf-test] + pure $ False || c2
  66. 1731.94 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  67. 1731.94 s [opt-env-conf-test] case settingHelp of
  68. 1731.94 s [opt-env-conf-test] Nothing ->
  69. 1731.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  70. 1731.94 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  71. 1731.94 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  72. 1731.94 s [opt-env-conf-test] c1 <- go p1
  73. 1731.94 s [opt-env-conf-test] c2 <- go p2
  74. 1731.94 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  75. 1731.94 s [opt-env-conf-test] + pure False -- TODO: is this right?
  76. 1731.94 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  77. 1731.94 s [opt-env-conf-test] ParserMany mLoc p -> do
  78. 1731.94 s [opt-env-conf-test] c <- go p
  79. 1731.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:272:14-15
  80. 1731.94 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  81. 1731.95 s [opt-env-conf-test] when (not c) $
  82. 1731.95 s [opt-env-conf-test] mapValidationTFailure (LintError mLoc) $
  83. 1731.95 s [opt-env-conf-test] validationTFailure LintErrorManyInfinite
  84. 1731.95 s [opt-env-conf-test] - pure c
  85. 1731.95 s [opt-env-conf-test] + pure True
  86. 1731.95 s [opt-env-conf-test] ParserAllOrNothing _ p -> go p
  87. 1731.95 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> go p
  88. 1731.95 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  89. 1731.95 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:16-18
  90. 1731.95 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  91. 1731.95 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  92. 1731.95 s [opt-env-conf-test] c1 <- go p1
  93. 1731.95 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  94. 1731.95 s [opt-env-conf-test] - pure $ c1 || c2
  95. 1731.95 s [opt-env-conf-test] + pure $ not (c1) || c2
  96. 1731.95 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  97. 1731.95 s [opt-env-conf-test] case settingHelp of
  98. 1731.95 s [opt-env-conf-test] Nothing ->
  99. 1731.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  100. 1731.95 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  101. 1731.95 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  102. 1731.95 s [opt-env-conf-test] c1 <- go p1
  103. 1731.95 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  104. 1731.95 s [opt-env-conf-test] - pure $ c1 || c2
  105. 1731.95 s [opt-env-conf-test] + pure $ True || c2
  106. 1731.95 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  107. 1731.95 s [opt-env-conf-test] case settingHelp of
  108. 1731.95 s [opt-env-conf-test] Nothing ->
  109. 1731.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:280:20-63
  110. 1731.95 s [opt-env-conf-test] @@ -277,7 +277,7 @@
  111. 1731.95 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  112. 1731.95 s [opt-env-conf-test] else do
  113. 1731.95 s [opt-env-conf-test] for_ mDefault $ \d ->
  114. 1731.95 s [opt-env-conf-test] - when (isNothing (find ((== d) . commandArg) cs)) $
  115. 1731.95 s [opt-env-conf-test] + when True $
  116. 1731.95 s [opt-env-conf-test] validationTFailure $
  117. 1731.95 s [opt-env-conf-test] LintError mLoc $
  118. 1731.95 s [opt-env-conf-test] LintErrorUnknownDefaultCommand d
  119. 1731.95 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Lint.hs:255:29-33
  120. 1731.95 s [opt-env-conf-test] @@ -252,7 +252,7 @@
  121. 1731.95 s [opt-env-conf-test] c1 <- go p1
  122. 1731.95 s [opt-env-conf-test] c2 <- go p2
  123. 1731.95 s [opt-env-conf-test] pure (c1 || c2) -- TODO: is this right?
  124. 1731.95 s [opt-env-conf-test] - ParserEmpty _ -> pure True
  125. 1731.95 s [opt-env-conf-test] + ParserEmpty _ -> pure False
  126. 1731.95 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  127. 1731.95 s [opt-env-conf-test] c1 <- go p1
  128. 1731.95 s [opt-env-conf-test] c2 <- go p2
  129. 1731.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:276:12-19
  130. 1731.95 s [opt-env-conf-test] @@ -273,7 +273,7 @@
  131. 1731.95 s [opt-env-conf-test] ParserAllOrNothing _ p -> go p
  132. 1731.95 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> go p
  133. 1731.95 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  134. 1731.95 s [opt-env-conf-test] - if null cs
  135. 1731.95 s [opt-env-conf-test] + if False
  136. 1731.95 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  137. 1731.95 s [opt-env-conf-test] else do
  138. 1731.95 s [opt-env-conf-test] for_ mDefault $ \d ->
  139. 1731.95 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Lint.hs:288:16-24
  140. 1731.95 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  141. 1731.95 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  142. 1731.95 s [opt-env-conf-test] c1 <- go p1
  143. 1731.95 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  144. 1731.95 s [opt-env-conf-test] - pure $ c1 || c2
  145. 1731.95 s [opt-env-conf-test] + pure $ c1 && c2
  146. 1731.95 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  147. 1731.95 s [opt-env-conf-test] case settingHelp of
  148. 1731.95 s [opt-env-conf-test] Nothing ->
  149. 1731.95 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:16-24
  150. 1731.95 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  151. 1731.95 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  152. 1731.95 s [opt-env-conf-test] c1 <- go p1
  153. 1731.95 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  154. 1731.96 s [opt-env-conf-test] - pure $ c1 || c2
  155. 1731.96 s [opt-env-conf-test] + pure $ not (c1 || c2)
  156. 1731.96 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  157. 1731.96 s [opt-env-conf-test] case settingHelp of
  158. 1731.96 s [opt-env-conf-test] Nothing ->
  159. 1731.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  160. 1731.96 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  161. 1731.96 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  162. 1731.96 s [opt-env-conf-test] c1 <- go p1
  163. 1731.96 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  164. 1731.96 s [opt-env-conf-test] - pure $ c1 || c2
  165. 1731.96 s [opt-env-conf-test] + pure $ c1 || False
  166. 1731.96 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  167. 1731.96 s [opt-env-conf-test] case settingHelp of
  168. 1731.96 s [opt-env-conf-test] Nothing ->
  169. 1731.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  170. 1731.96 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  171. 1731.96 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  172. 1731.96 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  173. 1731.96 s [opt-env-conf-test] and
  174. 1731.96 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  175. 1731.96 s [opt-env-conf-test] + [ True || settingTryOption || isJust settingSwitchValue,
  176. 1731.96 s [opt-env-conf-test] null settingEnvVars,
  177. 1731.96 s [opt-env-conf-test] null settingConfigVals
  178. 1731.96 s [opt-env-conf-test] ]
  179. 1731.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  180. 1731.96 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  181. 1731.96 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  182. 1731.96 s [opt-env-conf-test] c1 <- go p1
  183. 1731.96 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  184. 1731.96 s [opt-env-conf-test] - pure $ c1 || c2
  185. 1731.96 s [opt-env-conf-test] + pure $ True
  186. 1731.96 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  187. 1731.96 s [opt-env-conf-test] case settingHelp of
  188. 1731.96 s [opt-env-conf-test] Nothing ->
  189. 1731.96 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:22-24
  190. 1731.96 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  191. 1731.96 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  192. 1731.96 s [opt-env-conf-test] c1 <- go p1
  193. 1731.96 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  194. 1731.96 s [opt-env-conf-test] - pure $ c1 || c2
  195. 1731.96 s [opt-env-conf-test] + pure $ c1 || not (c2)
  196. 1731.96 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  197. 1731.96 s [opt-env-conf-test] case settingHelp of
  198. 1731.96 s [opt-env-conf-test] Nothing ->
  199. 1731.96 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:15-33
  200. 1731.96 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  201. 1737.42 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  202. 1737.42 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  203. 1737.45 s [opt-env-conf-test] and
  204. 1737.45 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  205. 1737.45 s [opt-env-conf-test] + [ not (settingTryArgument) || settingTryOption || isJust settingSwitchValue,
  206. 1737.45 s [opt-env-conf-test] null settingEnvVars,
  207. 1737.45 s [opt-env-conf-test] null settingConfigVals
  208. 1737.45 s [opt-env-conf-test] ]
  209. 1737.45 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  210. 1737.45 s [opt-env-conf-test] @@ -281,12 +281,11 @@
  211. 1737.45 s [opt-env-conf-test] hidden
  212. 1737.45 s [opt-env-conf-test] ]
  213. 1737.45 s [opt-env-conf-test] <*> setting
  214. 1737.45 s [opt-env-conf-test] - [ switch True,
  215. 1737.45 s [opt-env-conf-test] long "completion-enriched",
  216. 1737.45 s [opt-env-conf-test] value False,
  217. 1737.45 s [opt-env-conf-test] hidden,
  218. 1737.45 s [opt-env-conf-test] help "Whether to enable enriched completion"
  219. 1737.45 s [opt-env-conf-test] ]
  220. 1737.45 s [opt-env-conf-test] <*> setting
  221. 1737.45 s [opt-env-conf-test] [ option,
  222. 1737.45 s [opt-env-conf-test] reader auto,
  223. 1737.45 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  224. 1737.45 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  225. 1737.45 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  226. 1737.45 s [opt-env-conf-test] c1 <- go p1
  227. 1737.45 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  228. 1737.45 s [opt-env-conf-test] - pure $ c1 || c2
  229. 1737.45 s [opt-env-conf-test] + pure $ c1 || True
  230. 1737.45 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  231. 1737.45 s [opt-env-conf-test] case settingHelp of
  232. 1737.45 s [opt-env-conf-test] Nothing ->
  233. 1737.45 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  234. 1737.46 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  235. 1737.46 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  236. 1737.46 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  237. 1737.46 s [opt-env-conf-test] and
  238. 1737.46 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  239. 1737.46 s [opt-env-conf-test] + [ settingTryArgument || False || isJust settingSwitchValue,
  240. 1737.46 s [opt-env-conf-test] null settingEnvVars,
  241. 1737.46 s [opt-env-conf-test] null settingConfigVals
  242. 1737.46 s [opt-env-conf-test] ]
  243. 1737.46 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:57-82
  244. 1737.46 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  245. 1737.46 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  246. 1737.46 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  247. 1737.46 s [opt-env-conf-test] and
  248. 1737.46 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  249. 1737.46 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || not (isJust settingSwitchValue),
  250. 1737.46 s [opt-env-conf-test] null settingEnvVars,
  251. 1737.46 s [opt-env-conf-test] null settingConfigVals
  252. 1737.46 s [opt-env-conf-test] ]
  253. 1737.46 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:280:21-62
  254. 1737.46 s [opt-env-conf-test] @@ -277,7 +277,7 @@
  255. 1737.46 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  256. 1737.46 s [opt-env-conf-test] else do
  257. 1737.46 s [opt-env-conf-test] for_ mDefault $ \d ->
  258. 1737.46 s [opt-env-conf-test] - when (isNothing (find ((== d) . commandArg) cs)) $
  259. 1737.46 s [opt-env-conf-test] + when (True) $
  260. 1737.46 s [opt-env-conf-test] validationTFailure $
  261. 1737.46 s [opt-env-conf-test] LintError mLoc $
  262. 1737.46 s [opt-env-conf-test] LintErrorUnknownDefaultCommand d
  263. 1737.46 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
  264. 1737.46 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  265. 1737.46 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  266. 1737.46 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  267. 1737.46 s [opt-env-conf-test] and
  268. 1737.46 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  269. 1737.46 s [opt-env-conf-test] + [ settingTryArgument || False,
  270. 1737.46 s [opt-env-conf-test] null settingEnvVars,
  271. 1737.46 s [opt-env-conf-test] null settingConfigVals
  272. 1737.46 s [opt-env-conf-test] ]
  273. 1737.46 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
  274. 1737.46 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  275. 1737.46 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  276. 1737.46 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  277. 1737.46 s [opt-env-conf-test] and
  278. 1737.46 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  279. 1737.46 s [opt-env-conf-test] + [ True,
  280. 1737.46 s [opt-env-conf-test] null settingEnvVars,
  281. 1737.46 s [opt-env-conf-test] null settingConfigVals
  282. 1737.46 s [opt-env-conf-test] ]
  283. 1737.46 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Lint.hs:340:37-82
  284. 1737.46 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  285. 1737.46 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  286. 1737.46 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  287. 1737.47 s [opt-env-conf-test] and
  288. 1737.47 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  289. 1737.47 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption && isJust settingSwitchValue,
  290. 1737.47 s [opt-env-conf-test] null settingEnvVars,
  291. 1737.47 s [opt-env-conf-test] null settingConfigVals
  292. 1737.47 s [opt-env-conf-test] ]
  293. 1737.47 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
  294. 1737.47 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  295. 1737.47 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  296. 1737.47 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  297. 1737.47 s [opt-env-conf-test] and
  298. 1737.47 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  299. 1737.47 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || True,
  300. 1737.47 s [opt-env-conf-test] null settingEnvVars,
  301. 1737.47 s [opt-env-conf-test] null settingConfigVals
  302. 1737.47 s [opt-env-conf-test] ]
  303. 1737.47 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  304. 1737.47 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  305. 1737.47 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  306. 1737.47 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  307. 1737.47 s [opt-env-conf-test] and
  308. 1737.47 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  309. 1737.47 s [opt-env-conf-test] + [ settingTryArgument || True || isJust settingSwitchValue,
  310. 1737.47 s [opt-env-conf-test] null settingEnvVars,
  311. 1737.47 s [opt-env-conf-test] null settingConfigVals
  312. 1737.47 s [opt-env-conf-test] ]
  313. 1737.47 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:37-82
  314. 1737.47 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  315. 1737.47 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  316. 1737.47 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  317. 1737.47 s [opt-env-conf-test] and
  318. 1737.47 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  319. 1737.47 s [opt-env-conf-test] + [ settingTryArgument || not (settingTryOption || isJust settingSwitchValue),
  320. 1737.47 s [opt-env-conf-test] null settingEnvVars,
  321. 1737.47 s [opt-env-conf-test] null settingConfigVals
  322. 1737.47 s [opt-env-conf-test] ]
  323. 1737.47 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:37-53
  324. 1737.47 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  325. 1737.47 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  326. 1737.47 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  327. 1737.47 s [opt-env-conf-test] and
  328. 1737.47 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  329. 1737.47 s [opt-env-conf-test] + [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
  330. 1737.47 s [opt-env-conf-test] null settingEnvVars,
  331. 1737.47 s [opt-env-conf-test] null settingConfigVals
  332. 1737.47 s [opt-env-conf-test] ]
  333. 1737.47 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  334. 1737.47 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  335. 1737.47 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  336. 1737.47 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  337. 1737.48 s [opt-env-conf-test] and
  338. 1737.48 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  339. 1743.50 s [opt-env-conf-test] + [ False || settingTryOption || isJust settingSwitchValue,
  340. 1743.53 s [opt-env-conf-test] null settingEnvVars,
  341. 1743.53 s [opt-env-conf-test] null settingConfigVals
  342. 1743.53 s [opt-env-conf-test] ]
  343. 1743.53 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
  344. 1743.53 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  345. 1743.53 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  346. 1743.53 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  347. 1743.53 s [opt-env-conf-test] and
  348. 1743.53 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  349. 1743.53 s [opt-env-conf-test] + [ settingTryArgument || True,
  350. 1743.53 s [opt-env-conf-test] null settingEnvVars,
  351. 1743.53 s [opt-env-conf-test] null settingConfigVals
  352. 1743.53 s [opt-env-conf-test] ]
  353. 1743.53 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
  354. 1743.53 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  355. 1743.53 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  356. 1743.54 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  357. 1743.54 s [opt-env-conf-test] and
  358. 1743.54 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  359. 1743.54 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || False,
  360. 1743.54 s [opt-env-conf-test] null settingEnvVars,
  361. 1743.54 s [opt-env-conf-test] null settingConfigVals
  362. 1743.54 s [opt-env-conf-test] ]
  363. 1743.54 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
  364. 1743.54 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  365. 1743.54 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  366. 1743.54 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  367. 1743.54 s [opt-env-conf-test] and
  368. 1743.54 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  369. 1743.54 s [opt-env-conf-test] + [ False,
  370. 1743.54 s [opt-env-conf-test] null settingEnvVars,
  371. 1743.54 s [opt-env-conf-test] null settingConfigVals
  372. 1743.54 s [opt-env-conf-test] ]
  373. 1743.54 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  374. 1743.54 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  375. 1743.54 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  376. 1743.54 s [opt-env-conf-test] c1 <- go p1
  377. 1743.54 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  378. 1743.54 s [opt-env-conf-test] - pure $ c1 || c2
  379. 1743.54 s [opt-env-conf-test] + pure $ False
  380. 1743.54 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  381. 1743.54 s [opt-env-conf-test] case settingHelp of
  382. 1743.54 s [opt-env-conf-test] Nothing ->
  383. 1743.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
  384. 1743.54 s [opt-env-conf-test] @@ -76,20 +76,19 @@
  385. 1743.54 s [opt-env-conf-test] " parses nothing."
  386. 1743.54 s [opt-env-conf-test] ]
  387. 1743.54 s [opt-env-conf-test] ],
  388. 1743.54 s [opt-env-conf-test] - [ [ "Add an ",
  389. 1743.54 s [opt-env-conf-test] functionChunk "argument",
  390. 1743.54 s [opt-env-conf-test] ", ",
  391. 1743.54 s [opt-env-conf-test] functionChunk "switch",
  392. 1743.54 s [opt-env-conf-test] ", ",
  393. 1743.54 s [opt-env-conf-test] functionChunk "option",
  394. 1743.54 s [opt-env-conf-test] ", ",
  395. 1743.54 s [opt-env-conf-test] functionChunk "env",
  396. 1743.54 s [opt-env-conf-test] ", ",
  397. 1743.54 s [opt-env-conf-test] functionChunk "conf",
  398. 1743.54 s [opt-env-conf-test] ", or ",
  399. 1743.54 s [opt-env-conf-test] functionChunk "value",
  400. 1743.54 s [opt-env-conf-test] "."
  401. 1743.54 s [opt-env-conf-test] ]
  402. 1743.54 s [opt-env-conf-test] ]
  403. 1743.54 s [opt-env-conf-test] ]
  404. 1743.54 s [opt-env-conf-test] LintErrorDashInShort ->
  405. 1743.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
  406. 1743.55 s [opt-env-conf-test] @@ -76,20 +76,19 @@
  407. 1743.55 s [opt-env-conf-test] " parses nothing."
  408. 1743.55 s [opt-env-conf-test] ]
  409. 1743.55 s [opt-env-conf-test] ],
  410. 1743.55 s [opt-env-conf-test] [ [ "Add an ",
  411. 1743.55 s [opt-env-conf-test] functionChunk "argument",
  412. 1743.55 s [opt-env-conf-test] ", ",
  413. 1743.55 s [opt-env-conf-test] functionChunk "switch",
  414. 1743.55 s [opt-env-conf-test] ", ",
  415. 1743.55 s [opt-env-conf-test] functionChunk "option",
  416. 1743.55 s [opt-env-conf-test] ", ",
  417. 1743.55 s [opt-env-conf-test] functionChunk "env",
  418. 1743.55 s [opt-env-conf-test] ", ",
  419. 1743.55 s [opt-env-conf-test] functionChunk "conf",
  420. 1743.55 s [opt-env-conf-test] ", or ",
  421. 1743.55 s [opt-env-conf-test] functionChunk "value",
  422. 1743.55 s [opt-env-conf-test] - "."
  423. 1743.55 s [opt-env-conf-test] ]
  424. 1743.55 s [opt-env-conf-test] ]
  425. 1743.55 s [opt-env-conf-test] ]
  426. 1743.55 s [opt-env-conf-test] LintErrorDashInShort ->
  427. 1743.55 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
  428. 1743.55 s [opt-env-conf-test] @@ -71,27 +71,7 @@
  429. 1743.55 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  430. 1743.55 s [opt-env-conf-test] LintErrorEmptySetting ->
  431. 1743.55 s [opt-env-conf-test] concat
  432. 1743.55 s [opt-env-conf-test] - [ [ [ "This ",
  433. 1743.55 s [opt-env-conf-test] - functionChunk "setting",
  434. 1743.55 s [opt-env-conf-test] - " parses nothing."
  435. 1743.55 s [opt-env-conf-test] - ]
  436. 1743.55 s [opt-env-conf-test] - ],
  437. 1743.55 s [opt-env-conf-test] - [ [ "Add an ",
  438. 1743.55 s [opt-env-conf-test] - functionChunk "argument",
  439. 1743.55 s [opt-env-conf-test] - ", ",
  440. 1743.55 s [opt-env-conf-test] - functionChunk "switch",
  441. 1743.55 s [opt-env-conf-test] - ", ",
  442. 1743.55 s [opt-env-conf-test] - functionChunk "option",
  443. 1743.55 s [opt-env-conf-test] - ", ",
  444. 1743.55 s [opt-env-conf-test] - functionChunk "env",
  445. 1743.55 s [opt-env-conf-test] - ", ",
  446. 1743.55 s [opt-env-conf-test] - functionChunk "conf",
  447. 1743.55 s [opt-env-conf-test] - ", or ",
  448. 1743.55 s [opt-env-conf-test] - functionChunk "value",
  449. 1743.55 s [opt-env-conf-test] - "."
  450. 1743.55 s [opt-env-conf-test] - ]
  451. 1743.55 s [opt-env-conf-test] - ]
  452. 1743.55 s [opt-env-conf-test] ]
  453. 1743.55 s [opt-env-conf-test] LintErrorDashInShort ->
  454. 1743.55 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  455. 1743.55 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  456. 1743.55 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
  457. 1743.55 s [opt-env-conf-test] @@ -71,27 +71,22 @@
  458. 1743.55 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  459. 1743.55 s [opt-env-conf-test] LintErrorEmptySetting ->
  460. 1743.55 s [opt-env-conf-test] concat
  461. 1743.55 s [opt-env-conf-test] - [ [ [ "This ",
  462. 1743.55 s [opt-env-conf-test] - functionChunk "setting",
  463. 1743.55 s [opt-env-conf-test] - " parses nothing."
  464. 1743.55 s [opt-env-conf-test] - ]
  465. 1743.55 s [opt-env-conf-test] - ],
  466. 1743.55 s [opt-env-conf-test] [ [ "Add an ",
  467. 1743.55 s [opt-env-conf-test] functionChunk "argument",
  468. 1743.55 s [opt-env-conf-test] ", ",
  469. 1743.55 s [opt-env-conf-test] functionChunk "switch",
  470. 1743.55 s [opt-env-conf-test] ", ",
  471. 1743.55 s [opt-env-conf-test] functionChunk "option",
  472. 1743.55 s [opt-env-conf-test] ", ",
  473. 1743.55 s [opt-env-conf-test] functionChunk "env",
  474. 1743.55 s [opt-env-conf-test] ", ",
  475. 1743.55 s [opt-env-conf-test] functionChunk "conf",
  476. 1743.55 s [opt-env-conf-test] ", or ",
  477. 1743.55 s [opt-env-conf-test] functionChunk "value",
  478. 1743.55 s [opt-env-conf-test] "."
  479. 1743.55 s [opt-env-conf-test] ]
  480. 1743.55 s [opt-env-conf-test] ]
  481. 1743.55 s [opt-env-conf-test] ]
  482. 1743.55 s [opt-env-conf-test] LintErrorDashInShort ->
  483. 1743.55 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  484. 1743.55 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  485. 1743.55 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
  486. 1743.55 s [opt-env-conf-test] @@ -93,7 +93,6 @@
  487. 1743.55 s [opt-env-conf-test] ]
  488. 1743.55 s [opt-env-conf-test] ]
  489. 1743.55 s [opt-env-conf-test] LintErrorDashInShort ->
  490. 1743.55 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  491. 1743.55 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  492. 1743.55 s [opt-env-conf-test] ]
  493. 1743.55 s [opt-env-conf-test] LintErrorDashInLong s ->
  494. 1743.55 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
  495. 1743.55 s [opt-env-conf-test] @@ -93,7 +93,6 @@
  496. 1743.55 s [opt-env-conf-test] ]
  497. 1743.55 s [opt-env-conf-test] ]
  498. 1743.55 s [opt-env-conf-test] LintErrorDashInShort ->
  499. 1743.55 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  500. 1743.55 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  501. 1743.55 s [opt-env-conf-test] ]
  502. 1743.55 s [opt-env-conf-test] LintErrorDashInLong s ->
  503. 1743.55 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
  504. 1743.55 s [opt-env-conf-test] @@ -94,7 +94,6 @@
  505. 1743.55 s [opt-env-conf-test] ]
  506. 1743.55 s [opt-env-conf-test] LintErrorDashInShort ->
  507. 1743.55 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  508. 1743.55 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  509. 1743.55 s [opt-env-conf-test] ]
  510. 1743.55 s [opt-env-conf-test] LintErrorDashInLong s ->
  511. 1743.55 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  512. 1743.55 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
  513. 1743.56 s [opt-env-conf-test] @@ -94,7 +94,6 @@
  514. 1743.56 s [opt-env-conf-test] ]
  515. 1743.56 s [opt-env-conf-test] LintErrorDashInShort ->
  516. 1743.56 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  517. 1743.56 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  518. 1743.56 s [opt-env-conf-test] ]
  519. 1743.56 s [opt-env-conf-test] LintErrorDashInLong s ->
  520. 1743.56 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  521. 1743.56 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
  522. 1743.56 s [opt-env-conf-test] @@ -94,7 +94,6 @@
  523. 1743.56 s [opt-env-conf-test] ]
  524. 1743.56 s [opt-env-conf-test] LintErrorDashInShort ->
  525. 1743.56 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  526. 1743.56 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  527. 1743.56 s [opt-env-conf-test] ]
  528. 1743.56 s [opt-env-conf-test] LintErrorDashInLong s ->
  529. 1743.56 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  530. 1743.56 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
  531. 1743.56 s [opt-env-conf-test] @@ -93,9 +93,7 @@
  532. 1743.56 s [opt-env-conf-test] ]
  533. 1743.56 s [opt-env-conf-test] ]
  534. 1743.56 s [opt-env-conf-test] LintErrorDashInShort ->
  535. 1743.56 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  536. 1750.76 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  537. 1750.76 s [opt-env-conf-test] ]
  538. 1750.76 s [opt-env-conf-test] LintErrorDashInLong s ->
  539. 1750.79 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  540. 1750.79 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  541. 1750.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
  542. 1750.79 s [opt-env-conf-test] @@ -93,9 +93,8 @@
  543. 1750.79 s [opt-env-conf-test] ]
  544. 1750.79 s [opt-env-conf-test] ]
  545. 1750.79 s [opt-env-conf-test] LintErrorDashInShort ->
  546. 1750.79 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  547. 1750.79 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  548. 1750.79 s [opt-env-conf-test] ]
  549. 1750.79 s [opt-env-conf-test] LintErrorDashInLong s ->
  550. 1750.79 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  551. 1750.79 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  552. 1750.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
  553. 1750.79 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  554. 1750.79 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  555. 1750.79 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  556. 1750.79 s [opt-env-conf-test] and
  557. 1750.79 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  558. 1750.79 s [opt-env-conf-test] null settingEnvVars,
  559. 1750.79 s [opt-env-conf-test] - null settingConfigVals
  560. 1750.79 s [opt-env-conf-test] ]
  561. 1750.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
  562. 1750.79 s [opt-env-conf-test] @@ -97,7 +97,6 @@
  563. 1750.79 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  564. 1750.79 s [opt-env-conf-test] ]
  565. 1750.79 s [opt-env-conf-test] LintErrorDashInLong s ->
  566. 1750.79 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  567. 1750.79 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  568. 1750.79 s [opt-env-conf-test] [ "Try ",
  569. 1750.79 s [opt-env-conf-test] functionChunk "long",
  570. 1750.79 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:342:15-37
  571. 1750.79 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  572. 1750.79 s [opt-env-conf-test] and
  573. 1750.79 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  574. 1750.79 s [opt-env-conf-test] null settingEnvVars,
  575. 1750.79 s [opt-env-conf-test] - null settingConfigVals
  576. 1750.79 s [opt-env-conf-test] + not (null settingConfigVals)
  577. 1750.79 s [opt-env-conf-test] ]
  578. 1750.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
  579. 1750.79 s [opt-env-conf-test] @@ -97,7 +97,6 @@
  580. 1750.79 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  581. 1750.79 s [opt-env-conf-test] ]
  582. 1750.79 s [opt-env-conf-test] LintErrorDashInLong s ->
  583. 1750.79 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  584. 1750.79 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  585. 1750.79 s [opt-env-conf-test] [ "Try ",
  586. 1750.79 s [opt-env-conf-test] functionChunk "long",
  587. 1750.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
  588. 1750.80 s [opt-env-conf-test] @@ -98,7 +98,6 @@
  589. 1750.80 s [opt-env-conf-test] ]
  590. 1750.80 s [opt-env-conf-test] LintErrorDashInLong s ->
  591. 1750.80 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  592. 1750.80 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  593. 1750.80 s [opt-env-conf-test] [ "Try ",
  594. 1750.80 s [opt-env-conf-test] functionChunk "long",
  595. 1750.80 s [opt-env-conf-test] " ",
  596. 1750.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
  597. 1750.80 s [opt-env-conf-test] @@ -76,20 +76,7 @@
  598. 1750.80 s [opt-env-conf-test] " parses nothing."
  599. 1750.80 s [opt-env-conf-test] ]
  600. 1750.80 s [opt-env-conf-test] ],
  601. 1750.80 s [opt-env-conf-test] - [ [ "Add an ",
  602. 1750.80 s [opt-env-conf-test] - functionChunk "argument",
  603. 1750.80 s [opt-env-conf-test] - ", ",
  604. 1750.80 s [opt-env-conf-test] - functionChunk "switch",
  605. 1750.80 s [opt-env-conf-test] - ", ",
  606. 1750.80 s [opt-env-conf-test] - functionChunk "option",
  607. 1750.80 s [opt-env-conf-test] - ", ",
  608. 1750.80 s [opt-env-conf-test] - functionChunk "env",
  609. 1750.80 s [opt-env-conf-test] - ", ",
  610. 1750.80 s [opt-env-conf-test] - functionChunk "conf",
  611. 1750.80 s [opt-env-conf-test] - ", or ",
  612. 1750.80 s [opt-env-conf-test] - functionChunk "value",
  613. 1750.80 s [opt-env-conf-test] - "."
  614. 1750.80 s [opt-env-conf-test] ]
  615. 1750.80 s [opt-env-conf-test] ]
  616. 1750.80 s [opt-env-conf-test] ]
  617. 1750.80 s [opt-env-conf-test] LintErrorDashInShort ->
  618. 1750.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
  619. 1750.80 s [opt-env-conf-test] @@ -337,7 +337,4 @@
  620. 1750.80 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  621. 1750.80 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  622. 1750.80 s [opt-env-conf-test] and
  623. 1750.80 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  624. 1750.80 s [opt-env-conf-test] - null settingEnvVars,
  625. 1750.80 s [opt-env-conf-test] - null settingConfigVals
  626. 1750.80 s [opt-env-conf-test] ]
  627. 1750.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
  628. 1750.80 s [opt-env-conf-test] @@ -99,19 +99,7 @@
  629. 1750.80 s [opt-env-conf-test] LintErrorDashInLong s ->
  630. 1750.80 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  631. 1750.80 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  632. 1750.80 s [opt-env-conf-test] - [ "Try ",
  633. 1750.80 s [opt-env-conf-test] - functionChunk "long",
  634. 1750.80 s [opt-env-conf-test] - " ",
  635. 1750.80 s [opt-env-conf-test] - chunk $
  636. 1750.80 s [opt-env-conf-test] - T.pack $
  637. 1750.80 s [opt-env-conf-test] - show $
  638. 1750.80 s [opt-env-conf-test] - let go = \case
  639. 1750.80 s [opt-env-conf-test] - [] -> []
  640. 1750.80 s [opt-env-conf-test] - '-' : cs -> go cs
  641. 1750.80 s [opt-env-conf-test] - c : cs -> c : cs
  642. 1750.80 s [opt-env-conf-test] - in go $ NE.toList s,
  643. 1750.80 s [opt-env-conf-test] - " instead."
  644. 1750.80 s [opt-env-conf-test] ]
  645. 1750.80 s [opt-env-conf-test] ]
  646. 1750.80 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  647. 1750.80 s [opt-env-conf-test] [ [ functionChunk "argument",
  648. 1750.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
  649. 1750.80 s [opt-env-conf-test] @@ -71,10 +71,9 @@
  650. 1750.81 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  651. 1750.81 s [opt-env-conf-test] LintErrorEmptySetting ->
  652. 1750.81 s [opt-env-conf-test] concat
  653. 1750.81 s [opt-env-conf-test] [ [ [ "This ",
  654. 1750.81 s [opt-env-conf-test] functionChunk "setting",
  655. 1750.81 s [opt-env-conf-test] - " parses nothing."
  656. 1750.81 s [opt-env-conf-test] ]
  657. 1750.81 s [opt-env-conf-test] ],
  658. 1750.81 s [opt-env-conf-test] [ [ "Add an ",
  659. 1750.81 s [opt-env-conf-test] functionChunk "argument",
  660. 1750.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
  661. 1750.81 s [opt-env-conf-test] @@ -99,19 +99,18 @@
  662. 1750.81 s [opt-env-conf-test] LintErrorDashInLong s ->
  663. 1750.81 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  664. 1750.81 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  665. 1750.81 s [opt-env-conf-test] - [ "Try ",
  666. 1750.81 s [opt-env-conf-test] functionChunk "long",
  667. 1750.81 s [opt-env-conf-test] " ",
  668. 1750.81 s [opt-env-conf-test] chunk $
  669. 1750.81 s [opt-env-conf-test] T.pack $
  670. 1750.81 s [opt-env-conf-test] show $
  671. 1750.81 s [opt-env-conf-test] let go = \case
  672. 1750.81 s [opt-env-conf-test] [] -> []
  673. 1750.81 s [opt-env-conf-test] '-' : cs -> go cs
  674. 1750.81 s [opt-env-conf-test] c : cs -> c : cs
  675. 1750.81 s [opt-env-conf-test] in go $ NE.toList s,
  676. 1750.81 s [opt-env-conf-test] " instead."
  677. 1750.81 s [opt-env-conf-test] ]
  678. 1750.81 s [opt-env-conf-test] ]
  679. 1750.81 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  680. 1750.81 s [opt-env-conf-test] [ [ functionChunk "argument",
  681. 1750.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
  682. 1750.81 s [opt-env-conf-test] @@ -98,7 +98,6 @@
  683. 1750.81 s [opt-env-conf-test] ]
  684. 1750.81 s [opt-env-conf-test] LintErrorDashInLong s ->
  685. 1750.81 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  686. 1750.81 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  687. 1750.81 s [opt-env-conf-test] [ "Try ",
  688. 1750.81 s [opt-env-conf-test] functionChunk "long",
  689. 1750.81 s [opt-env-conf-test] " ",
  690. 1750.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
  691. 1750.81 s [opt-env-conf-test] @@ -98,7 +98,6 @@
  692. 1750.81 s [opt-env-conf-test] ]
  693. 1750.81 s [opt-env-conf-test] LintErrorDashInLong s ->
  694. 1750.81 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  695. 1750.81 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  696. 1750.81 s [opt-env-conf-test] [ "Try ",
  697. 1750.81 s [opt-env-conf-test] functionChunk "long",
  698. 1750.81 s [opt-env-conf-test] " ",
  699. 1750.81 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
  700. 1750.81 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  701. 1750.81 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  702. 1750.81 s [opt-env-conf-test] and
  703. 1750.81 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  704. 1750.81 s [opt-env-conf-test] - null settingEnvVars,
  705. 1750.81 s [opt-env-conf-test] + False,
  706. 1750.81 s [opt-env-conf-test] null settingConfigVals
  707. 1750.81 s [opt-env-conf-test] ]
  708. 1750.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
  709. 1750.81 s [opt-env-conf-test] @@ -99,19 +99,18 @@
  710. 1750.81 s [opt-env-conf-test] LintErrorDashInLong s ->
  711. 1750.81 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  712. 1750.81 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  713. 1750.81 s [opt-env-conf-test] [ "Try ",
  714. 1750.81 s [opt-env-conf-test] functionChunk "long",
  715. 1750.81 s [opt-env-conf-test] " ",
  716. 1750.81 s [opt-env-conf-test] chunk $
  717. 1750.81 s [opt-env-conf-test] T.pack $
  718. 1750.81 s [opt-env-conf-test] show $
  719. 1750.81 s [opt-env-conf-test] let go = \case
  720. 1750.81 s [opt-env-conf-test] [] -> []
  721. 1750.81 s [opt-env-conf-test] '-' : cs -> go cs
  722. 1750.81 s [opt-env-conf-test] c : cs -> c : cs
  723. 1750.81 s [opt-env-conf-test] in go $ NE.toList s,
  724. 1750.81 s [opt-env-conf-test] - " instead."
  725. 1750.81 s [opt-env-conf-test] ]
  726. 1750.81 s [opt-env-conf-test] ]
  727. 1750.81 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  728. 1758.05 s [opt-env-conf-test] [ [ functionChunk "argument",
  729. 1758.07 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:15-82
  730. 1758.07 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  731. 1758.07 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  732. 1758.07 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  733. 1758.07 s [opt-env-conf-test] and
  734. 1758.07 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  735. 1758.07 s [opt-env-conf-test] + [ not (settingTryArgument || settingTryOption || isJust settingSwitchValue),
  736. 1758.07 s [opt-env-conf-test] null settingEnvVars,
  737. 1758.07 s [opt-env-conf-test] null settingConfigVals
  738. 1758.08 s [opt-env-conf-test] ]
  739. 1758.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
  740. 1758.08 s [opt-env-conf-test] @@ -97,22 +97,21 @@
  741. 1758.08 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  742. 1758.08 s [opt-env-conf-test] ]
  743. 1758.08 s [opt-env-conf-test] LintErrorDashInLong s ->
  744. 1758.08 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  745. 1758.08 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  746. 1758.08 s [opt-env-conf-test] [ "Try ",
  747. 1758.08 s [opt-env-conf-test] functionChunk "long",
  748. 1758.08 s [opt-env-conf-test] " ",
  749. 1758.08 s [opt-env-conf-test] chunk $
  750. 1758.08 s [opt-env-conf-test] T.pack $
  751. 1758.08 s [opt-env-conf-test] show $
  752. 1758.08 s [opt-env-conf-test] let go = \case
  753. 1758.08 s [opt-env-conf-test] [] -> []
  754. 1758.08 s [opt-env-conf-test] '-' : cs -> go cs
  755. 1758.08 s [opt-env-conf-test] c : cs -> c : cs
  756. 1758.08 s [opt-env-conf-test] in go $ NE.toList s,
  757. 1758.08 s [opt-env-conf-test] " instead."
  758. 1758.08 s [opt-env-conf-test] ]
  759. 1758.08 s [opt-env-conf-test] ]
  760. 1758.08 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  761. 1758.08 s [opt-env-conf-test] [ [ functionChunk "argument",
  762. 1758.08 s [opt-env-conf-test] " has no ",
  763. 1758.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
  764. 1758.08 s [opt-env-conf-test] @@ -97,22 +97,9 @@
  765. 1758.08 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  766. 1758.08 s [opt-env-conf-test] ]
  767. 1758.08 s [opt-env-conf-test] LintErrorDashInLong s ->
  768. 1758.08 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  769. 1758.08 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  770. 1758.08 s [opt-env-conf-test] - [ "Try ",
  771. 1758.08 s [opt-env-conf-test] - functionChunk "long",
  772. 1758.08 s [opt-env-conf-test] - " ",
  773. 1758.08 s [opt-env-conf-test] - chunk $
  774. 1758.08 s [opt-env-conf-test] - T.pack $
  775. 1758.08 s [opt-env-conf-test] - show $
  776. 1758.08 s [opt-env-conf-test] - let go = \case
  777. 1758.08 s [opt-env-conf-test] - [] -> []
  778. 1758.08 s [opt-env-conf-test] - '-' : cs -> go cs
  779. 1758.08 s [opt-env-conf-test] - c : cs -> c : cs
  780. 1758.08 s [opt-env-conf-test] - in go $ NE.toList s,
  781. 1758.08 s [opt-env-conf-test] - " instead."
  782. 1758.08 s [opt-env-conf-test] - ]
  783. 1758.08 s [opt-env-conf-test] ]
  784. 1758.08 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  785. 1758.08 s [opt-env-conf-test] [ [ functionChunk "argument",
  786. 1758.08 s [opt-env-conf-test] " has no ",
  787. 1758.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
  788. 1758.08 s [opt-env-conf-test] @@ -114,11 +114,7 @@
  789. 1758.08 s [opt-env-conf-test] ]
  790. 1758.08 s [opt-env-conf-test] ]
  791. 1758.08 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  792. 1758.08 s [opt-env-conf-test] - [ [ functionChunk "argument",
  793. 1758.08 s [opt-env-conf-test] - " has no ",
  794. 1758.08 s [opt-env-conf-test] - functionChunk "reader",
  795. 1758.08 s [opt-env-conf-test] - "."
  796. 1758.08 s [opt-env-conf-test] ]
  797. 1758.08 s [opt-env-conf-test] ]
  798. 1758.09 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  799. 1758.09 s [opt-env-conf-test] [ [ functionChunk "argument",
  800. 1758.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
  801. 1758.09 s [opt-env-conf-test] @@ -114,11 +114,10 @@
  802. 1758.09 s [opt-env-conf-test] ]
  803. 1758.09 s [opt-env-conf-test] ]
  804. 1758.09 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  805. 1758.09 s [opt-env-conf-test] - [ [ functionChunk "argument",
  806. 1758.09 s [opt-env-conf-test] " has no ",
  807. 1758.09 s [opt-env-conf-test] functionChunk "reader",
  808. 1758.09 s [opt-env-conf-test] "."
  809. 1758.09 s [opt-env-conf-test] ]
  810. 1758.09 s [opt-env-conf-test] ]
  811. 1758.09 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  812. 1758.09 s [opt-env-conf-test] [ [ functionChunk "argument",
  813. 1758.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
  814. 1758.09 s [opt-env-conf-test] @@ -114,11 +114,10 @@
  815. 1758.09 s [opt-env-conf-test] ]
  816. 1758.09 s [opt-env-conf-test] ]
  817. 1758.09 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  818. 1758.09 s [opt-env-conf-test] [ [ functionChunk "argument",
  819. 1758.09 s [opt-env-conf-test] " has no ",
  820. 1758.09 s [opt-env-conf-test] functionChunk "reader",
  821. 1758.09 s [opt-env-conf-test] - "."
  822. 1758.09 s [opt-env-conf-test] ]
  823. 1758.09 s [opt-env-conf-test] ]
  824. 1758.09 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  825. 1758.09 s [opt-env-conf-test] [ [ functionChunk "argument",
  826. 1758.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
  827. 1758.09 s [opt-env-conf-test] @@ -121,11 +121,7 @@
  828. 1758.09 s [opt-env-conf-test] ]
  829. 1758.09 s [opt-env-conf-test] ]
  830. 1758.09 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  831. 1758.09 s [opt-env-conf-test] - [ [ functionChunk "argument",
  832. 1758.09 s [opt-env-conf-test] - " has no ",
  833. 1758.09 s [opt-env-conf-test] - functionChunk "metavar",
  834. 1758.09 s [opt-env-conf-test] - "."
  835. 1758.09 s [opt-env-conf-test] ]
  836. 1758.09 s [opt-env-conf-test] ]
  837. 1758.09 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  838. 1758.09 s [opt-env-conf-test] [ [ functionChunk "option",
  839. 1758.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
  840. 1758.09 s [opt-env-conf-test] @@ -71,10 +71,9 @@
  841. 1758.09 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  842. 1758.09 s [opt-env-conf-test] LintErrorEmptySetting ->
  843. 1758.09 s [opt-env-conf-test] concat
  844. 1758.09 s [opt-env-conf-test] - [ [ [ "This ",
  845. 1758.09 s [opt-env-conf-test] functionChunk "setting",
  846. 1758.09 s [opt-env-conf-test] " parses nothing."
  847. 1758.09 s [opt-env-conf-test] ]
  848. 1758.09 s [opt-env-conf-test] ],
  849. 1758.09 s [opt-env-conf-test] [ [ "Add an ",
  850. 1758.09 s [opt-env-conf-test] functionChunk "argument",
  851. 1758.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
  852. 1758.09 s [opt-env-conf-test] @@ -121,11 +121,10 @@
  853. 1758.09 s [opt-env-conf-test] ]
  854. 1758.09 s [opt-env-conf-test] ]
  855. 1758.09 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  856. 1758.09 s [opt-env-conf-test] - [ [ functionChunk "argument",
  857. 1758.09 s [opt-env-conf-test] " has no ",
  858. 1758.09 s [opt-env-conf-test] functionChunk "metavar",
  859. 1758.09 s [opt-env-conf-test] "."
  860. 1758.09 s [opt-env-conf-test] ]
  861. 1758.09 s [opt-env-conf-test] ]
  862. 1758.09 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  863. 1758.09 s [opt-env-conf-test] [ [ functionChunk "option",
  864. 1758.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
  865. 1758.09 s [opt-env-conf-test] @@ -121,11 +121,10 @@
  866. 1758.09 s [opt-env-conf-test] ]
  867. 1758.09 s [opt-env-conf-test] ]
  868. 1758.09 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  869. 1758.09 s [opt-env-conf-test] [ [ functionChunk "argument",
  870. 1758.09 s [opt-env-conf-test] " has no ",
  871. 1758.09 s [opt-env-conf-test] functionChunk "metavar",
  872. 1758.09 s [opt-env-conf-test] - "."
  873. 1758.09 s [opt-env-conf-test] ]
  874. 1758.09 s [opt-env-conf-test] ]
  875. 1758.09 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  876. 1758.09 s [opt-env-conf-test] [ [ functionChunk "option",
  877. 1758.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
  878. 1758.09 s [opt-env-conf-test] @@ -128,13 +128,7 @@
  879. 1758.09 s [opt-env-conf-test] ]
  880. 1758.09 s [opt-env-conf-test] ]
  881. 1758.09 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  882. 1758.09 s [opt-env-conf-test] - [ [ functionChunk "option",
  883. 1758.09 s [opt-env-conf-test] - " or ",
  884. 1758.09 s [opt-env-conf-test] - functionChunk "name",
  885. 1758.09 s [opt-env-conf-test] - " has no ",
  886. 1758.09 s [opt-env-conf-test] - functionChunk "reader",
  887. 1758.09 s [opt-env-conf-test] - "."
  888. 1758.09 s [opt-env-conf-test] ]
  889. 1758.09 s [opt-env-conf-test] ]
  890. 1758.09 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  891. 1758.09 s [opt-env-conf-test] [ [ functionChunk "option",
  892. 1758.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
  893. 1758.09 s [opt-env-conf-test] @@ -128,13 +128,12 @@
  894. 1758.09 s [opt-env-conf-test] ]
  895. 1758.10 s [opt-env-conf-test] ]
  896. 1758.10 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  897. 1758.10 s [opt-env-conf-test] - [ [ functionChunk "option",
  898. 1758.10 s [opt-env-conf-test] " or ",
  899. 1758.10 s [opt-env-conf-test] functionChunk "name",
  900. 1758.10 s [opt-env-conf-test] " has no ",
  901. 1758.10 s [opt-env-conf-test] functionChunk "reader",
  902. 1758.10 s [opt-env-conf-test] "."
  903. 1758.10 s [opt-env-conf-test] ]
  904. 1758.10 s [opt-env-conf-test] ]
  905. 1758.10 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  906. 1758.10 s [opt-env-conf-test] [ [ functionChunk "option",
  907. 1758.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
  908. 1758.10 s [opt-env-conf-test] @@ -128,13 +128,12 @@
  909. 1758.10 s [opt-env-conf-test] ]
  910. 1758.10 s [opt-env-conf-test] ]
  911. 1758.10 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  912. 1758.10 s [opt-env-conf-test] [ [ functionChunk "option",
  913. 1758.10 s [opt-env-conf-test] " or ",
  914. 1758.10 s [opt-env-conf-test] functionChunk "name",
  915. 1758.10 s [opt-env-conf-test] " has no ",
  916. 1758.10 s [opt-env-conf-test] functionChunk "reader",
  917. 1758.10 s [opt-env-conf-test] - "."
  918. 1758.10 s [opt-env-conf-test] ]
  919. 1758.10 s [opt-env-conf-test] ]
  920. 1758.10 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  921. 1758.10 s [opt-env-conf-test] [ [ functionChunk "option",
  922. 1758.10 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Lint.hs:340:15-82
  923. 1758.10 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  924. 1758.10 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  925. 1758.10 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  926. 1758.10 s [opt-env-conf-test] and
  927. 1758.10 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  928. 1758.10 s [opt-env-conf-test] + [ settingTryArgument && settingTryOption || isJust settingSwitchValue,
  929. 1758.10 s [opt-env-conf-test] null settingEnvVars,
  930. 1758.10 s [opt-env-conf-test] null settingConfigVals
  931. 1758.10 s [opt-env-conf-test] ]
  932. 1758.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
  933. 1758.10 s [opt-env-conf-test] @@ -71,10 +71,7 @@
  934. 1758.10 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  935. 1758.10 s [opt-env-conf-test] LintErrorEmptySetting ->
  936. 1758.10 s [opt-env-conf-test] concat
  937. 1758.10 s [opt-env-conf-test] - [ [ [ "This ",
  938. 1758.10 s [opt-env-conf-test] - functionChunk "setting",
  939. 1758.10 s [opt-env-conf-test] - " parses nothing."
  940. 1758.10 s [opt-env-conf-test] ]
  941. 1758.10 s [opt-env-conf-test] ],
  942. 1758.10 s [opt-env-conf-test] [ [ "Add an ",
  943. 1758.10 s [opt-env-conf-test] functionChunk "argument",
  944. 1758.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
  945. 1758.10 s [opt-env-conf-test] @@ -68,7 +68,6 @@
  946. 1758.10 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  947. 1758.10 s [opt-env-conf-test] case lintErrorMessage of
  948. 1758.10 s [opt-env-conf-test] LintErrorUndocumented ->
  949. 1758.10 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  950. 1758.10 s [opt-env-conf-test] LintErrorEmptySetting ->
  951. 1758.10 s [opt-env-conf-test] concat
  952. 1758.10 s [opt-env-conf-test] [ [ [ "This ",
  953. 1764.85 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
  954. 1764.85 s [opt-env-conf-test] @@ -68,7 +68,6 @@
  955. 1764.85 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  956. 1764.87 s [opt-env-conf-test] case lintErrorMessage of
  957. 1764.87 s [opt-env-conf-test] LintErrorUndocumented ->
  958. 1764.87 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  959. 1764.87 s [opt-env-conf-test] LintErrorEmptySetting ->
  960. 1764.87 s [opt-env-conf-test] concat
  961. 1764.87 s [opt-env-conf-test] [ [ [ "This ",
  962. 1764.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
  963. 1764.88 s [opt-env-conf-test] @@ -68,7 +68,6 @@
  964. 1764.88 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  965. 1764.88 s [opt-env-conf-test] case lintErrorMessage of
  966. 1764.88 s [opt-env-conf-test] LintErrorUndocumented ->
  967. 1764.88 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  968. 1764.88 s [opt-env-conf-test] LintErrorEmptySetting ->
  969. 1764.88 s [opt-env-conf-test] concat
  970. 1764.88 s [opt-env-conf-test] [ [ [ "This ",
  971. 1764.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
  972. 1764.88 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  973. 1764.88 s [opt-env-conf-test] and
  974. 1764.88 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  975. 1764.88 s [opt-env-conf-test] null settingEnvVars,
  976. 1764.88 s [opt-env-conf-test] - null settingConfigVals
  977. 1764.88 s [opt-env-conf-test] + True
  978. 1764.88 s [opt-env-conf-test] ]
  979. 1764.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
  980. 1764.88 s [opt-env-conf-test] @@ -336,8 +336,8 @@
  981. 1764.88 s [opt-env-conf-test] pure $
  982. 1764.88 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  983. 1764.88 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  984. 1764.88 s [opt-env-conf-test] - and
  985. 1764.88 s [opt-env-conf-test] + False
  986. 1764.88 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  987. 1764.88 s [opt-env-conf-test] null settingEnvVars,
  988. 1764.88 s [opt-env-conf-test] null settingConfigVals
  989. 1764.88 s [opt-env-conf-test] ]
  990. 1764.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
  991. 1764.88 s [opt-env-conf-test] @@ -97,22 +97,7 @@
  992. 1764.88 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  993. 1764.88 s [opt-env-conf-test] ]
  994. 1764.88 s [opt-env-conf-test] LintErrorDashInLong s ->
  995. 1764.88 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  996. 1764.88 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  997. 1764.88 s [opt-env-conf-test] - [ "Try ",
  998. 1764.88 s [opt-env-conf-test] - functionChunk "long",
  999. 1764.88 s [opt-env-conf-test] - " ",
  1000. 1764.88 s [opt-env-conf-test] - chunk $
  1001. 1764.88 s [opt-env-conf-test] - T.pack $
  1002. 1764.88 s [opt-env-conf-test] - show $
  1003. 1764.88 s [opt-env-conf-test] - let go = \case
  1004. 1764.88 s [opt-env-conf-test] - [] -> []
  1005. 1764.88 s [opt-env-conf-test] - '-' : cs -> go cs
  1006. 1764.89 s [opt-env-conf-test] - c : cs -> c : cs
  1007. 1764.89 s [opt-env-conf-test] - in go $ NE.toList s,
  1008. 1764.89 s [opt-env-conf-test] - " instead."
  1009. 1764.89 s [opt-env-conf-test] - ]
  1010. 1764.89 s [opt-env-conf-test] ]
  1011. 1764.89 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  1012. 1764.89 s [opt-env-conf-test] [ [ functionChunk "argument",
  1013. 1764.89 s [opt-env-conf-test] " has no ",
  1014. 1764.89 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:339:11-14
  1015. 1764.89 s [opt-env-conf-test] @@ -336,8 +336,8 @@
  1016. 1764.89 s [opt-env-conf-test] pure $
  1017. 1764.89 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  1018. 1764.89 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  1019. 1764.89 s [opt-env-conf-test] - and
  1020. 1764.89 s [opt-env-conf-test] + not (and
  1021. 1764.89 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  1022. 1764.89 s [opt-env-conf-test] null settingEnvVars,
  1023. 1764.89 s [opt-env-conf-test] null settingConfigVals
  1024. 1764.89 s [opt-env-conf-test] - ]
  1025. 1764.89 s [opt-env-conf-test] + ])
  1026. 1764.89 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:341:15-34
  1027. 1764.89 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  1028. 1764.89 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  1029. 1764.89 s [opt-env-conf-test] and
  1030. 1764.89 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  1031. 1764.89 s [opt-env-conf-test] - null settingEnvVars,
  1032. 1764.89 s [opt-env-conf-test] + not (null settingEnvVars),
  1033. 1764.89 s [opt-env-conf-test] null settingConfigVals
  1034. 1764.89 s [opt-env-conf-test] ]
  1035. 1764.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
  1036. 1764.89 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  1037. 1764.89 s [opt-env-conf-test] and
  1038. 1764.89 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  1039. 1764.89 s [opt-env-conf-test] null settingEnvVars,
  1040. 1764.89 s [opt-env-conf-test] - null settingConfigVals
  1041. 1764.89 s [opt-env-conf-test] + False
  1042. 1764.89 s [opt-env-conf-test] ]
  1043. 1764.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
  1044. 1764.89 s [opt-env-conf-test] @@ -336,8 +336,8 @@
  1045. 1764.89 s [opt-env-conf-test] pure $
  1046. 1764.89 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  1047. 1764.89 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  1048. 1764.89 s [opt-env-conf-test] - and
  1049. 1764.89 s [opt-env-conf-test] + True
  1050. 1764.89 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  1051. 1764.89 s [opt-env-conf-test] null settingEnvVars,
  1052. 1764.89 s [opt-env-conf-test] null settingConfigVals
  1053. 1764.89 s [opt-env-conf-test] ]
  1054. 1764.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
  1055. 1764.89 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  1056. 1764.89 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  1057. 1764.89 s [opt-env-conf-test] and
  1058. 1764.89 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  1059. 1764.89 s [opt-env-conf-test] - null settingEnvVars,
  1060. 1764.89 s [opt-env-conf-test] + True,
  1061. 1764.89 s [opt-env-conf-test] null settingConfigVals
  1062. 1764.89 s [opt-env-conf-test] ]
  1063. 1764.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
  1064. 1764.89 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  1065. 1764.89 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  1066. 1764.89 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  1067. 1764.90 s [opt-env-conf-test] and
  1068. 1764.90 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  1069. 1764.90 s [opt-env-conf-test] null settingEnvVars,
  1070. 1764.90 s [opt-env-conf-test] null settingConfigVals
  1071. 1764.90 s [opt-env-conf-test] ]
  1072. 1764.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  1073. 1764.90 s [opt-env-conf-test] @@ -296,12 +296,11 @@
  1074. 1764.90 s [opt-env-conf-test] ]
  1075. 1764.90 s [opt-env-conf-test] <*> many
  1076. 1764.90 s [opt-env-conf-test] ( setting
  1077. 1764.90 s [opt-env-conf-test] [ option,
  1078. 1764.90 s [opt-env-conf-test] reader str,
  1079. 1764.90 s [opt-env-conf-test] long "completion-word",
  1080. 1764.90 s [opt-env-conf-test] hidden,
  1081. 1764.90 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  1082. 1764.90 s [opt-env-conf-test] ]
  1083. 1764.90 s [opt-env-conf-test] ),
  1084. 1764.90 s [opt-env-conf-test] ParsedNormally <$> p
  1085. 1764.90 s [opt-env-conf-test] ]
  1086. 1764.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
  1087. 1764.90 s [opt-env-conf-test] @@ -155,13 +155,7 @@
  1088. 1764.90 s [opt-env-conf-test] ]
  1089. 1764.90 s [opt-env-conf-test] ]
  1090. 1764.90 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  1091. 1764.90 s [opt-env-conf-test] - [ [ functionChunk "switch",
  1092. 1764.90 s [opt-env-conf-test] - " has no ",
  1093. 1764.90 s [opt-env-conf-test] - functionChunk "long",
  1094. 1764.90 s [opt-env-conf-test] - " or ",
  1095. 1764.90 s [opt-env-conf-test] - functionChunk "short",
  1096. 1764.90 s [opt-env-conf-test] - "."
  1097. 1764.90 s [opt-env-conf-test] ]
  1098. 1764.90 s [opt-env-conf-test] ]
  1099. 1764.90 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  1100. 1764.90 s [opt-env-conf-test] [ [ functionChunk "long",
  1101. 1764.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
  1102. 1764.90 s [opt-env-conf-test] @@ -146,13 +146,12 @@
  1103. 1764.90 s [opt-env-conf-test] ]
  1104. 1764.90 s [opt-env-conf-test] ]
  1105. 1764.90 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  1106. 1764.90 s [opt-env-conf-test] - [ [ functionChunk "option",
  1107. 1764.90 s [opt-env-conf-test] " or ",
  1108. 1764.90 s [opt-env-conf-test] functionChunk "name",
  1109. 1764.90 s [opt-env-conf-test] " has no ",
  1110. 1764.90 s [opt-env-conf-test] functionChunk "metavar",
  1111. 1764.90 s [opt-env-conf-test] "."
  1112. 1764.90 s [opt-env-conf-test] ]
  1113. 1764.90 s [opt-env-conf-test] ]
  1114. 1764.90 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  1115. 1764.90 s [opt-env-conf-test] [ [ functionChunk "switch",
  1116. 1764.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
  1117. 1764.90 s [opt-env-conf-test] @@ -164,15 +164,14 @@
  1118. 1764.90 s [opt-env-conf-test] ]
  1119. 1764.90 s [opt-env-conf-test] ]
  1120. 1764.90 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  1121. 1764.90 s [opt-env-conf-test] - [ [ functionChunk "long",
  1122. 1764.90 s [opt-env-conf-test] " or ",
  1123. 1764.90 s [opt-env-conf-test] functionChunk "short",
  1124. 1764.90 s [opt-env-conf-test] " has no ",
  1125. 1764.90 s [opt-env-conf-test] functionChunk "option",
  1126. 1764.90 s [opt-env-conf-test] " or ",
  1127. 1764.90 s [opt-env-conf-test] functionChunk "switch",
  1128. 1764.90 s [opt-env-conf-test] "."
  1129. 1764.90 s [opt-env-conf-test] ]
  1130. 1764.90 s [opt-env-conf-test] ]
  1131. 1764.90 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  1132. 1764.90 s [opt-env-conf-test] [ [ functionChunk "env",
  1133. 1764.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
  1134. 1764.90 s [opt-env-conf-test] @@ -164,15 +164,14 @@
  1135. 1764.90 s [opt-env-conf-test] ]
  1136. 1764.90 s [opt-env-conf-test] ]
  1137. 1764.90 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  1138. 1764.90 s [opt-env-conf-test] [ [ functionChunk "long",
  1139. 1764.90 s [opt-env-conf-test] " or ",
  1140. 1764.90 s [opt-env-conf-test] functionChunk "short",
  1141. 1764.90 s [opt-env-conf-test] " has no ",
  1142. 1764.90 s [opt-env-conf-test] functionChunk "option",
  1143. 1764.90 s [opt-env-conf-test] " or ",
  1144. 1764.90 s [opt-env-conf-test] functionChunk "switch",
  1145. 1764.90 s [opt-env-conf-test] - "."
  1146. 1764.90 s [opt-env-conf-test] ]
  1147. 1764.90 s [opt-env-conf-test] ]
  1148. 1764.90 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  1149. 1764.91 s [opt-env-conf-test] [ [ functionChunk "env",
  1150. 1764.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
  1151. 1764.91 s [opt-env-conf-test] @@ -164,15 +164,7 @@
  1152. 1764.91 s [opt-env-conf-test] ]
  1153. 1764.91 s [opt-env-conf-test] ]
  1154. 1764.91 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  1155. 1764.91 s [opt-env-conf-test] - [ [ functionChunk "long",
  1156. 1764.91 s [opt-env-conf-test] - " or ",
  1157. 1771.53 s [opt-env-conf-test] - functionChunk "short",
  1158. 1771.53 s [opt-env-conf-test] - " has no ",
  1159. 1771.57 s [opt-env-conf-test] - functionChunk "option",
  1160. 1771.57 s [opt-env-conf-test] - " or ",
  1161. 1771.57 s [opt-env-conf-test] - functionChunk "switch",
  1162. 1771.57 s [opt-env-conf-test] - "."
  1163. 1771.57 s [opt-env-conf-test] ]
  1164. 1771.57 s [opt-env-conf-test] ]
  1165. 1771.57 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  1166. 1771.57 s [opt-env-conf-test] [ [ functionChunk "env",
  1167. 1771.57 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
  1168. 1771.57 s [opt-env-conf-test] @@ -137,13 +137,7 @@
  1169. 1771.57 s [opt-env-conf-test] ]
  1170. 1771.57 s [opt-env-conf-test] ]
  1171. 1771.57 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  1172. 1771.57 s [opt-env-conf-test] - [ [ functionChunk "option",
  1173. 1771.57 s [opt-env-conf-test] - " has no ",
  1174. 1771.57 s [opt-env-conf-test] - functionChunk "long",
  1175. 1771.57 s [opt-env-conf-test] - " or ",
  1176. 1771.57 s [opt-env-conf-test] - functionChunk "short",
  1177. 1771.57 s [opt-env-conf-test] - "."
  1178. 1771.57 s [opt-env-conf-test] ]
  1179. 1771.57 s [opt-env-conf-test] ]
  1180. 1771.57 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  1181. 1771.57 s [opt-env-conf-test] [ [ functionChunk "option",
  1182. 1771.57 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
  1183. 1771.57 s [opt-env-conf-test] @@ -146,13 +146,7 @@
  1184. 1771.57 s [opt-env-conf-test] ]
  1185. 1771.57 s [opt-env-conf-test] ]
  1186. 1771.57 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  1187. 1771.57 s [opt-env-conf-test] - [ [ functionChunk "option",
  1188. 1771.57 s [opt-env-conf-test] - " or ",
  1189. 1771.58 s [opt-env-conf-test] - functionChunk "name",
  1190. 1771.58 s [opt-env-conf-test] - " has no ",
  1191. 1771.58 s [opt-env-conf-test] - functionChunk "metavar",
  1192. 1771.58 s [opt-env-conf-test] - "."
  1193. 1771.58 s [opt-env-conf-test] ]
  1194. 1771.58 s [opt-env-conf-test] ]
  1195. 1771.58 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  1196. 1771.58 s [opt-env-conf-test] [ [ functionChunk "switch",
  1197. 1771.58 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
  1198. 1771.58 s [opt-env-conf-test] @@ -146,13 +146,12 @@
  1199. 1771.58 s [opt-env-conf-test] ]
  1200. 1771.58 s [opt-env-conf-test] ]
  1201. 1771.58 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  1202. 1771.58 s [opt-env-conf-test] [ [ functionChunk "option",
  1203. 1771.58 s [opt-env-conf-test] " or ",
  1204. 1771.58 s [opt-env-conf-test] functionChunk "name",
  1205. 1771.58 s [opt-env-conf-test] " has no ",
  1206. 1771.58 s [opt-env-conf-test] functionChunk "metavar",
  1207. 1771.58 s [opt-env-conf-test] - "."
  1208. 1771.58 s [opt-env-conf-test] ]
  1209. 1771.58 s [opt-env-conf-test] ]
  1210. 1771.58 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  1211. 1771.58 s [opt-env-conf-test] [ [ functionChunk "switch",
  1212. 1771.58 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
  1213. 1771.58 s [opt-env-conf-test] @@ -137,13 +137,12 @@
  1214. 1771.58 s [opt-env-conf-test] ]
  1215. 1771.58 s [opt-env-conf-test] ]
  1216. 1771.58 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  1217. 1771.58 s [opt-env-conf-test] - [ [ functionChunk "option",
  1218. 1771.58 s [opt-env-conf-test] " has no ",
  1219. 1771.58 s [opt-env-conf-test] functionChunk "long",
  1220. 1771.58 s [opt-env-conf-test] " or ",
  1221. 1771.58 s [opt-env-conf-test] functionChunk "short",
  1222. 1771.58 s [opt-env-conf-test] "."
  1223. 1771.58 s [opt-env-conf-test] ]
  1224. 1771.58 s [opt-env-conf-test] ]
  1225. 1771.58 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  1226. 1771.58 s [opt-env-conf-test] [ [ functionChunk "option",
  1227. 1771.58 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
  1228. 1771.58 s [opt-env-conf-test] @@ -137,13 +137,12 @@
  1229. 1771.58 s [opt-env-conf-test] ]
  1230. 1771.58 s [opt-env-conf-test] ]
  1231. 1771.58 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  1232. 1771.58 s [opt-env-conf-test] [ [ functionChunk "option",
  1233. 1771.58 s [opt-env-conf-test] " has no ",
  1234. 1771.58 s [opt-env-conf-test] functionChunk "long",
  1235. 1771.58 s [opt-env-conf-test] " or ",
  1236. 1771.58 s [opt-env-conf-test] functionChunk "short",
  1237. 1771.58 s [opt-env-conf-test] - "."
  1238. 1771.58 s [opt-env-conf-test] ]
  1239. 1771.58 s [opt-env-conf-test] ]
  1240. 1771.58 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  1241. 1771.58 s [opt-env-conf-test] [ [ functionChunk "option",
  1242. 1771.58 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
  1243. 1771.58 s [opt-env-conf-test] @@ -155,13 +155,12 @@
  1244. 1771.58 s [opt-env-conf-test] ]
  1245. 1771.58 s [opt-env-conf-test] ]
  1246. 1771.58 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  1247. 1771.58 s [opt-env-conf-test] [ [ functionChunk "switch",
  1248. 1771.58 s [opt-env-conf-test] " has no ",
  1249. 1771.58 s [opt-env-conf-test] functionChunk "long",
  1250. 1771.58 s [opt-env-conf-test] " or ",
  1251. 1771.58 s [opt-env-conf-test] functionChunk "short",
  1252. 1771.58 s [opt-env-conf-test] - "."
  1253. 1771.58 s [opt-env-conf-test] ]
  1254. 1771.58 s [opt-env-conf-test] ]
  1255. 1771.58 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  1256. 1771.58 s [opt-env-conf-test] [ [ functionChunk "long",
  1257. 1771.58 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
  1258. 1771.58 s [opt-env-conf-test] @@ -155,13 +155,12 @@
  1259. 1771.58 s [opt-env-conf-test] ]
  1260. 1771.58 s [opt-env-conf-test] ]
  1261. 1771.58 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  1262. 1771.58 s [opt-env-conf-test] - [ [ functionChunk "switch",
  1263. 1771.58 s [opt-env-conf-test] " has no ",
  1264. 1771.58 s [opt-env-conf-test] functionChunk "long",
  1265. 1771.58 s [opt-env-conf-test] " or ",
  1266. 1771.58 s [opt-env-conf-test] functionChunk "short",
  1267. 1771.58 s [opt-env-conf-test] "."
  1268. 1771.58 s [opt-env-conf-test] ]
  1269. 1771.58 s [opt-env-conf-test] ]
  1270. 1771.58 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  1271. 1771.58 s [opt-env-conf-test] [ [ functionChunk "long",
  1272. 1771.58 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
  1273. 1771.58 s [opt-env-conf-test] @@ -208,18 +208,7 @@
  1274. 1771.58 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1275. 1771.58 s [opt-env-conf-test] ]
  1276. 1771.58 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1277. 1771.58 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1278. 1771.58 s [opt-env-conf-test] - " or ",
  1279. 1771.58 s [opt-env-conf-test] - functionChunk "name",
  1280. 1771.58 s [opt-env-conf-test] - " was called with no way to load configuration."
  1281. 1771.58 s [opt-env-conf-test] - ],
  1282. 1771.58 s [opt-env-conf-test] - [ "You can load configuration with ",
  1283. 1771.58 s [opt-env-conf-test] - functionChunk "withConfig",
  1284. 1771.58 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1285. 1771.58 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1286. 1771.58 s [opt-env-conf-test] - "."
  1287. 1771.58 s [opt-env-conf-test] - ]
  1288. 1771.58 s [opt-env-conf-test] ]
  1289. 1771.58 s [opt-env-conf-test] LintErrorManyInfinite ->
  1290. 1771.59 s [opt-env-conf-test] [ [ functionChunk "many",
  1291. 1771.59 s [opt-env-conf-test] " or ",
  1292. 1771.59 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
  1293. 1771.59 s [opt-env-conf-test] @@ -208,18 +208,13 @@
  1294. 1771.59 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1295. 1771.59 s [opt-env-conf-test] ]
  1296. 1771.59 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1297. 1771.59 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1298. 1771.59 s [opt-env-conf-test] - " or ",
  1299. 1771.59 s [opt-env-conf-test] - functionChunk "name",
  1300. 1771.59 s [opt-env-conf-test] - " was called with no way to load configuration."
  1301. 1771.59 s [opt-env-conf-test] - ],
  1302. 1771.59 s [opt-env-conf-test] [ "You can load configuration with ",
  1303. 1771.59 s [opt-env-conf-test] functionChunk "withConfig",
  1304. 1771.59 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  1305. 1771.59 s [opt-env-conf-test] functionChunk "withoutConfig",
  1306. 1771.59 s [opt-env-conf-test] "."
  1307. 1771.59 s [opt-env-conf-test] ]
  1308. 1771.59 s [opt-env-conf-test] ]
  1309. 1771.59 s [opt-env-conf-test] LintErrorManyInfinite ->
  1310. 1771.59 s [opt-env-conf-test] [ [ functionChunk "many",
  1311. 1771.59 s [opt-env-conf-test] " or ",
  1312. 1771.59 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  1313. 1771.59 s [opt-env-conf-test] @@ -221,11 +221,7 @@
  1314. 1771.59 s [opt-env-conf-test] ]
  1315. 1771.59 s [opt-env-conf-test] ]
  1316. 1771.59 s [opt-env-conf-test] LintErrorManyInfinite ->
  1317. 1771.59 s [opt-env-conf-test] - [ [ functionChunk "many",
  1318. 1771.59 s [opt-env-conf-test] - " or ",
  1319. 1771.59 s [opt-env-conf-test] - functionChunk "some",
  1320. 1771.59 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1321. 1771.59 s [opt-env-conf-test] ],
  1322. 1771.59 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  1323. 1771.59 s [opt-env-conf-test] ],
  1324. 1771.59 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1325. 1771.59 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
  1326. 1771.59 s [opt-env-conf-test] @@ -204,9 +204,8 @@
  1327. 1771.59 s [opt-env-conf-test] ]
  1328. 1771.59 s [opt-env-conf-test] ]
  1329. 1771.59 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1330. 1771.59 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1331. 1771.59 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1332. 1771.59 s [opt-env-conf-test] ]
  1333. 1771.59 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1334. 1771.59 s [opt-env-conf-test] [ [ functionChunk "conf",
  1335. 1771.59 s [opt-env-conf-test] " or ",
  1336. 1771.59 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  1337. 1771.59 s [opt-env-conf-test] @@ -221,11 +221,10 @@
  1338. 1771.59 s [opt-env-conf-test] ]
  1339. 1771.59 s [opt-env-conf-test] ]
  1340. 1771.59 s [opt-env-conf-test] LintErrorManyInfinite ->
  1341. 1771.59 s [opt-env-conf-test] - [ [ functionChunk "many",
  1342. 1771.59 s [opt-env-conf-test] " or ",
  1343. 1771.59 s [opt-env-conf-test] functionChunk "some",
  1344. 1771.59 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  1345. 1771.59 s [opt-env-conf-test] ],
  1346. 1771.59 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  1347. 1771.59 s [opt-env-conf-test] ],
  1348. 1771.59 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1349. 1771.60 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  1350. 1771.60 s [opt-env-conf-test] @@ -274,12 +274,8 @@
  1351. 1771.60 s [opt-env-conf-test] help "Render the fish completion script"
  1352. 1771.60 s [opt-env-conf-test] ],
  1353. 1771.60 s [opt-env-conf-test] setting
  1354. 1771.60 s [opt-env-conf-test] - [ help "Query completion",
  1355. 1771.60 s [opt-env-conf-test] - switch CompletionQuery,
  1356. 1771.60 s [opt-env-conf-test] -- Long string that no normal user would ever use.
  1357. 1771.60 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  1358. 1771.60 s [opt-env-conf-test] - hidden
  1359. 1771.60 s [opt-env-conf-test] ]
  1360. 1771.60 s [opt-env-conf-test] <*> setting
  1361. 1771.60 s [opt-env-conf-test] [ switch True,
  1362. 1771.60 s [opt-env-conf-test] long "completion-enriched",
  1363. 1771.60 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
  1364. 1771.60 s [opt-env-conf-test] @@ -193,9 +193,7 @@
  1365. 1771.60 s [opt-env-conf-test] ]
  1366. 1771.60 s [opt-env-conf-test] ]
  1367. 1771.60 s [opt-env-conf-test] LintErrorNoCommands ->
  1368. 1771.60 s [opt-env-conf-test] - [ [ functionChunk "commands",
  1369. 1771.60 s [opt-env-conf-test] - " was called with an empty list."
  1370. 1771.60 s [opt-env-conf-test] ]
  1371. 1771.60 s [opt-env-conf-test] ]
  1372. 1771.60 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  1373. 1771.60 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  1374. 1771.60 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
  1375. 1771.60 s [opt-env-conf-test] @@ -198,10 +198,7 @@
  1376. 1771.60 s [opt-env-conf-test] ]
  1377. 1771.60 s [opt-env-conf-test] ]
  1378. 1771.60 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  1379. 1771.60 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  1380. 1771.60 s [opt-env-conf-test] - " was called with an unknown command: ",
  1381. 1771.60 s [opt-env-conf-test] - commandChunk c
  1382. 1771.60 s [opt-env-conf-test] ]
  1383. 1771.60 s [opt-env-conf-test] ]
  1384. 1771.60 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1385. 1771.60 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1386. 1771.60 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
  1387. 1778.88 s [opt-env-conf-test] @@ -205,7 +205,6 @@
  1388. 1778.88 s [opt-env-conf-test] ]
  1389. 1778.90 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1390. 1778.90 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1391. 1778.90 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1392. 1778.90 s [opt-env-conf-test] ]
  1393. 1778.90 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1394. 1778.90 s [opt-env-conf-test] [ [ functionChunk "conf",
  1395. 1778.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
  1396. 1778.91 s [opt-env-conf-test] @@ -193,9 +193,8 @@
  1397. 1778.91 s [opt-env-conf-test] ]
  1398. 1778.91 s [opt-env-conf-test] ]
  1399. 1778.91 s [opt-env-conf-test] LintErrorNoCommands ->
  1400. 1778.91 s [opt-env-conf-test] - [ [ functionChunk "commands",
  1401. 1778.91 s [opt-env-conf-test] " was called with an empty list."
  1402. 1778.91 s [opt-env-conf-test] ]
  1403. 1778.91 s [opt-env-conf-test] ]
  1404. 1778.91 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  1405. 1778.91 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  1406. 1778.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
  1407. 1778.91 s [opt-env-conf-test] @@ -198,10 +198,9 @@
  1408. 1778.91 s [opt-env-conf-test] ]
  1409. 1778.91 s [opt-env-conf-test] ]
  1410. 1778.91 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  1411. 1778.91 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  1412. 1778.91 s [opt-env-conf-test] " was called with an unknown command: ",
  1413. 1778.91 s [opt-env-conf-test] - commandChunk c
  1414. 1778.91 s [opt-env-conf-test] ]
  1415. 1778.91 s [opt-env-conf-test] ]
  1416. 1778.91 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1417. 1778.91 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1418. 1778.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
  1419. 1778.91 s [opt-env-conf-test] @@ -198,10 +198,9 @@
  1420. 1778.91 s [opt-env-conf-test] ]
  1421. 1778.91 s [opt-env-conf-test] ]
  1422. 1778.91 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  1423. 1778.91 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  1424. 1778.91 s [opt-env-conf-test] " was called with an unknown command: ",
  1425. 1778.91 s [opt-env-conf-test] commandChunk c
  1426. 1778.91 s [opt-env-conf-test] ]
  1427. 1778.91 s [opt-env-conf-test] ]
  1428. 1778.91 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1429. 1778.91 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1430. 1778.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
  1431. 1778.91 s [opt-env-conf-test] @@ -205,7 +205,6 @@
  1432. 1778.91 s [opt-env-conf-test] ]
  1433. 1778.91 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1434. 1778.91 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1435. 1778.91 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1436. 1778.91 s [opt-env-conf-test] ]
  1437. 1778.91 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1438. 1778.91 s [opt-env-conf-test] [ [ functionChunk "conf",
  1439. 1778.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
  1440. 1778.92 s [opt-env-conf-test] @@ -204,7 +204,6 @@
  1441. 1778.92 s [opt-env-conf-test] ]
  1442. 1778.92 s [opt-env-conf-test] ]
  1443. 1778.92 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1444. 1778.92 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1445. 1778.92 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1446. 1778.92 s [opt-env-conf-test] ]
  1447. 1778.92 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1448. 1778.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
  1449. 1778.92 s [opt-env-conf-test] @@ -204,7 +204,6 @@
  1450. 1778.92 s [opt-env-conf-test] ]
  1451. 1778.92 s [opt-env-conf-test] ]
  1452. 1778.92 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1453. 1778.92 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1454. 1778.92 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1455. 1778.92 s [opt-env-conf-test] ]
  1456. 1778.92 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1457. 1778.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
  1458. 1778.92 s [opt-env-conf-test] @@ -204,7 +204,6 @@
  1459. 1778.92 s [opt-env-conf-test] ]
  1460. 1778.92 s [opt-env-conf-test] ]
  1461. 1778.92 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1462. 1778.92 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1463. 1778.92 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1464. 1778.92 s [opt-env-conf-test] ]
  1465. 1778.92 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1466. 1778.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  1467. 1778.92 s [opt-env-conf-test] @@ -213,12 +213,11 @@
  1468. 1778.92 s [opt-env-conf-test] functionChunk "name",
  1469. 1778.92 s [opt-env-conf-test] " was called with no way to load configuration."
  1470. 1778.92 s [opt-env-conf-test] ],
  1471. 1778.92 s [opt-env-conf-test] [ "You can load configuration with ",
  1472. 1778.92 s [opt-env-conf-test] functionChunk "withConfig",
  1473. 1778.92 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  1474. 1778.92 s [opt-env-conf-test] functionChunk "withoutConfig",
  1475. 1778.92 s [opt-env-conf-test] - "."
  1476. 1778.92 s [opt-env-conf-test] ]
  1477. 1778.92 s [opt-env-conf-test] ]
  1478. 1778.92 s [opt-env-conf-test] LintErrorManyInfinite ->
  1479. 1778.92 s [opt-env-conf-test] [ [ functionChunk "many",
  1480. 1778.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  1481. 1778.92 s [opt-env-conf-test] @@ -213,12 +213,11 @@
  1482. 1778.92 s [opt-env-conf-test] functionChunk "name",
  1483. 1778.92 s [opt-env-conf-test] " was called with no way to load configuration."
  1484. 1778.92 s [opt-env-conf-test] ],
  1485. 1778.92 s [opt-env-conf-test] - [ "You can load configuration with ",
  1486. 1778.92 s [opt-env-conf-test] functionChunk "withConfig",
  1487. 1778.92 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  1488. 1778.92 s [opt-env-conf-test] functionChunk "withoutConfig",
  1489. 1778.92 s [opt-env-conf-test] "."
  1490. 1778.92 s [opt-env-conf-test] ]
  1491. 1778.92 s [opt-env-conf-test] ]
  1492. 1778.92 s [opt-env-conf-test] LintErrorManyInfinite ->
  1493. 1778.92 s [opt-env-conf-test] [ [ functionChunk "many",
  1494. 1778.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
  1495. 1778.92 s [opt-env-conf-test] @@ -184,13 +184,12 @@
  1496. 1778.92 s [opt-env-conf-test] ]
  1497. 1778.92 s [opt-env-conf-test] ]
  1498. 1778.92 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  1499. 1778.92 s [opt-env-conf-test] - [ [ functionChunk "env",
  1500. 1778.92 s [opt-env-conf-test] " or ",
  1501. 1778.92 s [opt-env-conf-test] functionChunk "name",
  1502. 1778.92 s [opt-env-conf-test] " has no ",
  1503. 1778.92 s [opt-env-conf-test] functionChunk "metavar",
  1504. 1778.92 s [opt-env-conf-test] "."
  1505. 1778.92 s [opt-env-conf-test] ]
  1506. 1778.92 s [opt-env-conf-test] ]
  1507. 1778.92 s [opt-env-conf-test] LintErrorNoCommands ->
  1508. 1778.92 s [opt-env-conf-test] [ [ functionChunk "commands",
  1509. 1778.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  1510. 1778.92 s [opt-env-conf-test] @@ -213,12 +213,7 @@
  1511. 1778.92 s [opt-env-conf-test] functionChunk "name",
  1512. 1778.92 s [opt-env-conf-test] " was called with no way to load configuration."
  1513. 1778.92 s [opt-env-conf-test] ],
  1514. 1778.92 s [opt-env-conf-test] - [ "You can load configuration with ",
  1515. 1778.93 s [opt-env-conf-test] - functionChunk "withConfig",
  1516. 1778.93 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1517. 1778.93 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1518. 1778.93 s [opt-env-conf-test] - "."
  1519. 1778.93 s [opt-env-conf-test] ]
  1520. 1778.93 s [opt-env-conf-test] ]
  1521. 1778.93 s [opt-env-conf-test] LintErrorManyInfinite ->
  1522. 1778.93 s [opt-env-conf-test] [ [ functionChunk "many",
  1523. 1778.93 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
  1524. 1778.93 s [opt-env-conf-test] @@ -184,13 +184,12 @@
  1525. 1778.93 s [opt-env-conf-test] ]
  1526. 1778.93 s [opt-env-conf-test] ]
  1527. 1778.93 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  1528. 1778.93 s [opt-env-conf-test] [ [ functionChunk "env",
  1529. 1778.93 s [opt-env-conf-test] " or ",
  1530. 1778.93 s [opt-env-conf-test] functionChunk "name",
  1531. 1778.93 s [opt-env-conf-test] " has no ",
  1532. 1778.93 s [opt-env-conf-test] functionChunk "metavar",
  1533. 1778.93 s [opt-env-conf-test] - "."
  1534. 1778.93 s [opt-env-conf-test] ]
  1535. 1778.93 s [opt-env-conf-test] ]
  1536. 1778.93 s [opt-env-conf-test] LintErrorNoCommands ->
  1537. 1778.93 s [opt-env-conf-test] [ [ functionChunk "commands",
  1538. 1778.93 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
  1539. 1778.93 s [opt-env-conf-test] @@ -184,13 +184,7 @@
  1540. 1778.93 s [opt-env-conf-test] ]
  1541. 1778.93 s [opt-env-conf-test] ]
  1542. 1778.93 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  1543. 1778.93 s [opt-env-conf-test] - [ [ functionChunk "env",
  1544. 1778.93 s [opt-env-conf-test] - " or ",
  1545. 1778.93 s [opt-env-conf-test] - functionChunk "name",
  1546. 1778.93 s [opt-env-conf-test] - " has no ",
  1547. 1778.93 s [opt-env-conf-test] - functionChunk "metavar",
  1548. 1778.93 s [opt-env-conf-test] - "."
  1549. 1778.93 s [opt-env-conf-test] ]
  1550. 1778.93 s [opt-env-conf-test] ]
  1551. 1778.93 s [opt-env-conf-test] LintErrorNoCommands ->
  1552. 1778.93 s [opt-env-conf-test] [ [ functionChunk "commands",
  1553. 1778.93 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
  1554. 1778.93 s [opt-env-conf-test] @@ -221,13 +221,7 @@
  1555. 1778.93 s [opt-env-conf-test] ]
  1556. 1778.93 s [opt-env-conf-test] ]
  1557. 1778.93 s [opt-env-conf-test] LintErrorManyInfinite ->
  1558. 1778.93 s [opt-env-conf-test] - [ [ functionChunk "many",
  1559. 1778.93 s [opt-env-conf-test] - " or ",
  1560. 1778.93 s [opt-env-conf-test] - functionChunk "some",
  1561. 1778.93 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1562. 1778.93 s [opt-env-conf-test] - ],
  1563. 1778.93 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  1564. 1778.93 s [opt-env-conf-test] ],
  1565. 1778.93 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1566. 1778.93 s [opt-env-conf-test] ]
  1567. 1778.93 s [opt-env-conf-test]
  1568. 1778.93 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  1569. 1778.93 s [opt-env-conf-test] @@ -208,11 +208,7 @@
  1570. 1778.93 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1571. 1778.93 s [opt-env-conf-test] ]
  1572. 1778.93 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1573. 1778.93 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1574. 1778.93 s [opt-env-conf-test] - " or ",
  1575. 1778.93 s [opt-env-conf-test] - functionChunk "name",
  1576. 1778.93 s [opt-env-conf-test] - " was called with no way to load configuration."
  1577. 1778.93 s [opt-env-conf-test] ],
  1578. 1778.93 s [opt-env-conf-test] [ "You can load configuration with ",
  1579. 1778.93 s [opt-env-conf-test] functionChunk "withConfig",
  1580. 1778.93 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  1581. 1778.93 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  1582. 1778.93 s [opt-env-conf-test] @@ -208,11 +208,10 @@
  1583. 1778.93 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1584. 1778.93 s [opt-env-conf-test] ]
  1585. 1778.93 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1586. 1778.93 s [opt-env-conf-test] [ [ functionChunk "conf",
  1587. 1778.93 s [opt-env-conf-test] " or ",
  1588. 1778.93 s [opt-env-conf-test] functionChunk "name",
  1589. 1778.93 s [opt-env-conf-test] - " was called with no way to load configuration."
  1590. 1778.93 s [opt-env-conf-test] ],
  1591. 1778.93 s [opt-env-conf-test] [ "You can load configuration with ",
  1592. 1778.93 s [opt-env-conf-test] functionChunk "withConfig",
  1593. 1778.93 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  1594. 1778.93 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  1595. 1778.93 s [opt-env-conf-test] @@ -208,11 +208,10 @@
  1596. 1779.92 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1597. 1779.92 s [opt-env-conf-test] ]
  1598. 1779.92 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1599. 1779.92 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1600. 1779.92 s [opt-env-conf-test] " or ",
  1601. 1779.92 s [opt-env-conf-test] functionChunk "name",
  1602. 1779.92 s [opt-env-conf-test] " was called with no way to load configuration."
  1603. 1779.92 s [opt-env-conf-test] ],
  1604. 1779.92 s [opt-env-conf-test] [ "You can load configuration with ",
  1605. 1779.92 s [opt-env-conf-test] functionChunk "withConfig",
  1606. 1779.92 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  1607. 1779.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
  1608. 1779.92 s [opt-env-conf-test] @@ -204,9 +204,7 @@
  1609. 1779.92 s [opt-env-conf-test] ]
  1610. 1779.92 s [opt-env-conf-test] ]
  1611. 1779.92 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1612. 1779.92 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1613. 1779.92 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1614. 1779.92 s [opt-env-conf-test] ]
  1615. 1779.92 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1616. 1779.92 s [opt-env-conf-test] [ [ functionChunk "conf",
  1617. 1779.92 s [opt-env-conf-test] " or ",
  1618. 1779.92 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  1619. 1779.92 s [opt-env-conf-test] @@ -66,168 +66,145 @@
  1620. 1779.92 s [opt-env-conf-test] renderLintError LintError {..} =
  1621. 1779.92 s [opt-env-conf-test] concat
  1622. 1779.92 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  1623. 1779.92 s [opt-env-conf-test] case lintErrorMessage of
  1624. 1779.92 s [opt-env-conf-test] LintErrorUndocumented ->
  1625. 1779.92 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  1626. 1779.92 s [opt-env-conf-test] - LintErrorEmptySetting ->
  1627. 1779.93 s [opt-env-conf-test] - concat
  1628. 1779.93 s [opt-env-conf-test] - [ [ [ "This ",
  1629. 1779.93 s [opt-env-conf-test] - functionChunk "setting",
  1630. 1779.93 s [opt-env-conf-test] - " parses nothing."
  1631. 1779.93 s [opt-env-conf-test] - ]
  1632. 1779.93 s [opt-env-conf-test] - ],
  1633. 1779.93 s [opt-env-conf-test] - [ [ "Add an ",
  1634. 1779.93 s [opt-env-conf-test] - functionChunk "argument",
  1635. 1779.93 s [opt-env-conf-test] - ", ",
  1636. 1779.93 s [opt-env-conf-test] - functionChunk "switch",
  1637. 1779.93 s [opt-env-conf-test] - ", ",
  1638. 1779.93 s [opt-env-conf-test] - functionChunk "option",
  1639. 1779.93 s [opt-env-conf-test] - ", ",
  1640. 1779.93 s [opt-env-conf-test] - functionChunk "env",
  1641. 1779.93 s [opt-env-conf-test] - ", ",
  1642. 1779.93 s [opt-env-conf-test] - functionChunk "conf",
  1643. 1779.93 s [opt-env-conf-test] - ", or ",
  1644. 1779.93 s [opt-env-conf-test] - functionChunk "value",
  1645. 1779.93 s [opt-env-conf-test] - "."
  1646. 1779.93 s [opt-env-conf-test] - ]
  1647. 1779.93 s [opt-env-conf-test] - ]
  1648. 1779.93 s [opt-env-conf-test] - ]
  1649. 1779.93 s [opt-env-conf-test] LintErrorDashInShort ->
  1650. 1779.93 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  1651. 1779.93 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  1652. 1779.93 s [opt-env-conf-test] ]
  1653. 1779.93 s [opt-env-conf-test] LintErrorDashInLong s ->
  1654. 1779.93 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  1655. 1779.93 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1656. 1779.93 s [opt-env-conf-test] [ "Try ",
  1657. 1779.93 s [opt-env-conf-test] functionChunk "long",
  1658. 1779.93 s [opt-env-conf-test] " ",
  1659. 1779.93 s [opt-env-conf-test] chunk $
  1660. 1779.93 s [opt-env-conf-test] T.pack $
  1661. 1779.93 s [opt-env-conf-test] show $
  1662. 1779.93 s [opt-env-conf-test] let go = \case
  1663. 1779.93 s [opt-env-conf-test] [] -> []
  1664. 1779.93 s [opt-env-conf-test] '-' : cs -> go cs
  1665. 1779.93 s [opt-env-conf-test] c : cs -> c : cs
  1666. 1779.93 s [opt-env-conf-test] in go $ NE.toList s,
  1667. 1779.93 s [opt-env-conf-test] " instead."
  1668. 1779.93 s [opt-env-conf-test] ]
  1669. 1779.93 s [opt-env-conf-test] ]
  1670. 1779.93 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  1671. 1779.93 s [opt-env-conf-test] [ [ functionChunk "argument",
  1672. 1779.93 s [opt-env-conf-test] " has no ",
  1673. 1779.93 s [opt-env-conf-test] functionChunk "reader",
  1674. 1779.93 s [opt-env-conf-test] "."
  1675. 1779.93 s [opt-env-conf-test] ]
  1676. 1779.93 s [opt-env-conf-test] ]
  1677. 1779.93 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  1678. 1779.93 s [opt-env-conf-test] [ [ functionChunk "argument",
  1679. 1779.93 s [opt-env-conf-test] " has no ",
  1680. 1779.93 s [opt-env-conf-test] functionChunk "metavar",
  1681. 1779.93 s [opt-env-conf-test] "."
  1682. 1779.93 s [opt-env-conf-test] ]
  1683. 1779.93 s [opt-env-conf-test] ]
  1684. 1779.93 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  1685. 1779.93 s [opt-env-conf-test] [ [ functionChunk "option",
  1686. 1779.93 s [opt-env-conf-test] " or ",
  1687. 1779.93 s [opt-env-conf-test] functionChunk "name",
  1688. 1779.93 s [opt-env-conf-test] " has no ",
  1689. 1779.93 s [opt-env-conf-test] functionChunk "reader",
  1690. 1779.93 s [opt-env-conf-test] "."
  1691. 1779.93 s [opt-env-conf-test] ]
  1692. 1779.93 s [opt-env-conf-test] ]
  1693. 1779.93 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  1694. 1779.94 s [opt-env-conf-test] [ [ functionChunk "option",
  1695. 1779.94 s [opt-env-conf-test] " has no ",
  1696. 1779.94 s [opt-env-conf-test] functionChunk "long",
  1697. 1779.94 s [opt-env-conf-test] " or ",
  1698. 1779.94 s [opt-env-conf-test] functionChunk "short",
  1699. 1779.94 s [opt-env-conf-test] "."
  1700. 1779.94 s [opt-env-conf-test] ]
  1701. 1779.94 s [opt-env-conf-test] ]
  1702. 1779.94 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  1703. 1779.94 s [opt-env-conf-test] [ [ functionChunk "option",
  1704. 1779.94 s [opt-env-conf-test] " or ",
  1705. 1779.94 s [opt-env-conf-test] functionChunk "name",
  1706. 1779.94 s [opt-env-conf-test] " has no ",
  1707. 1779.94 s [opt-env-conf-test] functionChunk "metavar",
  1708. 1779.94 s [opt-env-conf-test] "."
  1709. 1779.94 s [opt-env-conf-test] ]
  1710. 1779.94 s [opt-env-conf-test] ]
  1711. 1779.94 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  1712. 1779.94 s [opt-env-conf-test] [ [ functionChunk "switch",
  1713. 1779.94 s [opt-env-conf-test] " has no ",
  1714. 1779.94 s [opt-env-conf-test] functionChunk "long",
  1715. 1779.94 s [opt-env-conf-test] " or ",
  1716. 1779.94 s [opt-env-conf-test] functionChunk "short",
  1717. 1779.94 s [opt-env-conf-test] "."
  1718. 1779.94 s [opt-env-conf-test] ]
  1719. 1779.94 s [opt-env-conf-test] ]
  1720. 1779.94 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  1721. 1779.94 s [opt-env-conf-test] [ [ functionChunk "long",
  1722. 1779.94 s [opt-env-conf-test] " or ",
  1723. 1779.94 s [opt-env-conf-test] functionChunk "short",
  1724. 1779.94 s [opt-env-conf-test] " has no ",
  1725. 1779.94 s [opt-env-conf-test] functionChunk "option",
  1726. 1779.94 s [opt-env-conf-test] " or ",
  1727. 1779.94 s [opt-env-conf-test] functionChunk "switch",
  1728. 1779.94 s [opt-env-conf-test] "."
  1729. 1779.94 s [opt-env-conf-test] ]
  1730. 1779.94 s [opt-env-conf-test] ]
  1731. 1779.94 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  1732. 1779.94 s [opt-env-conf-test] [ [ functionChunk "env",
  1733. 1779.94 s [opt-env-conf-test] " or ",
  1734. 1779.94 s [opt-env-conf-test] functionChunk "name",
  1735. 1779.94 s [opt-env-conf-test] " has no ",
  1736. 1779.94 s [opt-env-conf-test] functionChunk "reader",
  1737. 1779.94 s [opt-env-conf-test] "."
  1738. 1779.94 s [opt-env-conf-test] ]
  1739. 1779.94 s [opt-env-conf-test] ]
  1740. 1779.94 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  1741. 1779.94 s [opt-env-conf-test] [ [ functionChunk "env",
  1742. 1779.94 s [opt-env-conf-test] " or ",
  1743. 1779.94 s [opt-env-conf-test] functionChunk "name",
  1744. 1779.94 s [opt-env-conf-test] " has no ",
  1745. 1781.47 s [opt-env-conf-test] functionChunk "metavar",
  1746. 1781.48 s [opt-env-conf-test] "."
  1747. 1781.48 s [opt-env-conf-test] ]
  1748. 1781.48 s [opt-env-conf-test] ]
  1749. 1781.48 s [opt-env-conf-test] LintErrorNoCommands ->
  1750. 1781.48 s [opt-env-conf-test] [ [ functionChunk "commands",
  1751. 1781.48 s [opt-env-conf-test] " was called with an empty list."
  1752. 1781.48 s [opt-env-conf-test] ]
  1753. 1781.48 s [opt-env-conf-test] ]
  1754. 1781.48 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  1755. 1781.48 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  1756. 1781.48 s [opt-env-conf-test] " was called with an unknown command: ",
  1757. 1781.48 s [opt-env-conf-test] commandChunk c
  1758. 1781.48 s [opt-env-conf-test] ]
  1759. 1781.48 s [opt-env-conf-test] ]
  1760. 1781.48 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1761. 1781.48 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1762. 1781.48 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1763. 1781.48 s [opt-env-conf-test] ]
  1764. 1781.48 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1765. 1781.48 s [opt-env-conf-test] [ [ functionChunk "conf",
  1766. 1781.48 s [opt-env-conf-test] " or ",
  1767. 1781.48 s [opt-env-conf-test] functionChunk "name",
  1768. 1781.48 s [opt-env-conf-test] " was called with no way to load configuration."
  1769. 1781.48 s [opt-env-conf-test] ],
  1770. 1781.48 s [opt-env-conf-test] [ "You can load configuration with ",
  1771. 1781.48 s [opt-env-conf-test] functionChunk "withConfig",
  1772. 1781.48 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  1773. 1781.48 s [opt-env-conf-test] functionChunk "withoutConfig",
  1774. 1781.48 s [opt-env-conf-test] "."
  1775. 1781.48 s [opt-env-conf-test] ]
  1776. 1781.48 s [opt-env-conf-test] ]
  1777. 1781.48 s [opt-env-conf-test] LintErrorManyInfinite ->
  1778. 1781.48 s [opt-env-conf-test] [ [ functionChunk "many",
  1779. 1781.48 s [opt-env-conf-test] " or ",
  1780. 1781.48 s [opt-env-conf-test] functionChunk "some",
  1781. 1781.48 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  1782. 1781.48 s [opt-env-conf-test] ],
  1783. 1781.49 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  1784. 1781.49 s [opt-env-conf-test] ],
  1785. 1781.49 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1786. 1781.49 s [opt-env-conf-test] ]
  1787. 1781.49 s [opt-env-conf-test]
  1788. 1781.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
  1789. 1781.49 s [opt-env-conf-test] @@ -175,13 +175,12 @@
  1790. 1781.49 s [opt-env-conf-test] ]
  1791. 1781.49 s [opt-env-conf-test] ]
  1792. 1781.49 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  1793. 1781.49 s [opt-env-conf-test] [ [ functionChunk "env",
  1794. 1781.49 s [opt-env-conf-test] " or ",
  1795. 1781.49 s [opt-env-conf-test] functionChunk "name",
  1796. 1781.49 s [opt-env-conf-test] " has no ",
  1797. 1781.49 s [opt-env-conf-test] functionChunk "reader",
  1798. 1781.49 s [opt-env-conf-test] - "."
  1799. 1781.49 s [opt-env-conf-test] ]
  1800. 1781.49 s [opt-env-conf-test] ]
  1801. 1781.49 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  1802. 1781.49 s [opt-env-conf-test] [ [ functionChunk "env",
  1803. 1781.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
  1804. 1781.49 s [opt-env-conf-test] @@ -175,13 +175,12 @@
  1805. 1781.49 s [opt-env-conf-test] ]
  1806. 1781.49 s [opt-env-conf-test] ]
  1807. 1781.49 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  1808. 1781.49 s [opt-env-conf-test] - [ [ functionChunk "env",
  1809. 1781.49 s [opt-env-conf-test] " or ",
  1810. 1781.49 s [opt-env-conf-test] functionChunk "name",
  1811. 1781.49 s [opt-env-conf-test] " has no ",
  1812. 1781.49 s [opt-env-conf-test] functionChunk "reader",
  1813. 1781.49 s [opt-env-conf-test] "."
  1814. 1781.49 s [opt-env-conf-test] ]
  1815. 1781.49 s [opt-env-conf-test] ]
  1816. 1781.49 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  1817. 1781.49 s [opt-env-conf-test] [ [ functionChunk "env",
  1818. 1781.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
  1819. 1781.49 s [opt-env-conf-test] @@ -221,13 +221,8 @@
  1820. 1781.49 s [opt-env-conf-test] ]
  1821. 1781.49 s [opt-env-conf-test] ]
  1822. 1781.49 s [opt-env-conf-test] LintErrorManyInfinite ->
  1823. 1781.49 s [opt-env-conf-test] - [ [ functionChunk "many",
  1824. 1781.49 s [opt-env-conf-test] - " or ",
  1825. 1781.49 s [opt-env-conf-test] - functionChunk "some",
  1826. 1781.49 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1827. 1781.49 s [opt-env-conf-test] - ],
  1828. 1781.49 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  1829. 1781.49 s [opt-env-conf-test] ],
  1830. 1781.49 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1831. 1781.49 s [opt-env-conf-test] ]
  1832. 1781.49 s [opt-env-conf-test]
  1833. 1781.50 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
  1834. 1781.50 s [opt-env-conf-test] @@ -175,13 +175,7 @@
  1835. 1781.50 s [opt-env-conf-test] ]
  1836. 1781.50 s [opt-env-conf-test] ]
  1837. 1781.50 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  1838. 1781.50 s [opt-env-conf-test] - [ [ functionChunk "env",
  1839. 1781.50 s [opt-env-conf-test] - " or ",
  1840. 1781.50 s [opt-env-conf-test] - functionChunk "name",
  1841. 1781.50 s [opt-env-conf-test] - " has no ",
  1842. 1781.50 s [opt-env-conf-test] - functionChunk "reader",
  1843. 1781.50 s [opt-env-conf-test] - "."
  1844. 1781.50 s [opt-env-conf-test] ]
  1845. 1781.50 s [opt-env-conf-test] ]
  1846. 1781.50 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  1847. 1781.50 s [opt-env-conf-test] [ [ functionChunk "env",
  1848. 1781.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  1849. 1781.50 s [opt-env-conf-test] @@ -66,168 +66,166 @@
  1850. 1781.50 s [opt-env-conf-test] renderLintError LintError {..} =
  1851. 1781.50 s [opt-env-conf-test] concat
  1852. 1781.50 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  1853. 1781.50 s [opt-env-conf-test] case lintErrorMessage of
  1854. 1781.50 s [opt-env-conf-test] - LintErrorUndocumented ->
  1855. 1781.50 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  1856. 1781.50 s [opt-env-conf-test] LintErrorEmptySetting ->
  1857. 1781.50 s [opt-env-conf-test] concat
  1858. 1781.50 s [opt-env-conf-test] [ [ [ "This ",
  1859. 1781.50 s [opt-env-conf-test] functionChunk "setting",
  1860. 1781.50 s [opt-env-conf-test] " parses nothing."
  1861. 1781.50 s [opt-env-conf-test] ]
  1862. 1781.50 s [opt-env-conf-test] ],
  1863. 1781.50 s [opt-env-conf-test] [ [ "Add an ",
  1864. 1781.50 s [opt-env-conf-test] functionChunk "argument",
  1865. 1781.50 s [opt-env-conf-test] ", ",
  1866. 1781.50 s [opt-env-conf-test] functionChunk "switch",
  1867. 1781.50 s [opt-env-conf-test] ", ",
  1868. 1781.50 s [opt-env-conf-test] functionChunk "option",
  1869. 1781.50 s [opt-env-conf-test] ", ",
  1870. 1781.50 s [opt-env-conf-test] functionChunk "env",
  1871. 1781.50 s [opt-env-conf-test] ", ",
  1872. 1781.50 s [opt-env-conf-test] functionChunk "conf",
  1873. 1781.50 s [opt-env-conf-test] ", or ",
  1874. 1781.50 s [opt-env-conf-test] functionChunk "value",
  1875. 1781.50 s [opt-env-conf-test] "."
  1876. 1781.50 s [opt-env-conf-test] ]
  1877. 1781.50 s [opt-env-conf-test] ]
  1878. 1781.50 s [opt-env-conf-test] ]
  1879. 1781.50 s [opt-env-conf-test] LintErrorDashInShort ->
  1880. 1781.50 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  1881. 1781.50 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  1882. 1781.50 s [opt-env-conf-test] ]
  1883. 1781.50 s [opt-env-conf-test] LintErrorDashInLong s ->
  1884. 1781.50 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  1885. 1781.50 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1886. 1781.50 s [opt-env-conf-test] [ "Try ",
  1887. 1781.50 s [opt-env-conf-test] functionChunk "long",
  1888. 1781.50 s [opt-env-conf-test] " ",
  1889. 1781.50 s [opt-env-conf-test] chunk $
  1890. 1781.50 s [opt-env-conf-test] T.pack $
  1891. 1781.50 s [opt-env-conf-test] show $
  1892. 1781.50 s [opt-env-conf-test] let go = \case
  1893. 1781.50 s [opt-env-conf-test] [] -> []
  1894. 1781.50 s [opt-env-conf-test] '-' : cs -> go cs
  1895. 1781.50 s [opt-env-conf-test] c : cs -> c : cs
  1896. 1781.50 s [opt-env-conf-test] in go $ NE.toList s,
  1897. 1781.50 s [opt-env-conf-test] " instead."
  1898. 1781.50 s [opt-env-conf-test] ]
  1899. 1781.50 s [opt-env-conf-test] ]
  1900. 1781.50 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  1901. 1781.50 s [opt-env-conf-test] [ [ functionChunk "argument",
  1902. 1781.50 s [opt-env-conf-test] " has no ",
  1903. 1781.50 s [opt-env-conf-test] functionChunk "reader",
  1904. 1781.50 s [opt-env-conf-test] "."
  1905. 1781.50 s [opt-env-conf-test] ]
  1906. 1781.50 s [opt-env-conf-test] ]
  1907. 1781.50 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  1908. 1781.50 s [opt-env-conf-test] [ [ functionChunk "argument",
  1909. 1781.50 s [opt-env-conf-test] " has no ",
  1910. 1781.50 s [opt-env-conf-test] functionChunk "metavar",
  1911. 1781.50 s [opt-env-conf-test] "."
  1912. 1781.50 s [opt-env-conf-test] ]
  1913. 1781.50 s [opt-env-conf-test] ]
  1914. 1781.50 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  1915. 1781.50 s [opt-env-conf-test] [ [ functionChunk "option",
  1916. 1781.50 s [opt-env-conf-test] " or ",
  1917. 1781.50 s [opt-env-conf-test] functionChunk "name",
  1918. 1781.50 s [opt-env-conf-test] " has no ",
  1919. 1781.50 s [opt-env-conf-test] functionChunk "reader",
  1920. 1781.50 s [opt-env-conf-test] "."
  1921. 1781.50 s [opt-env-conf-test] ]
  1922. 1781.50 s [opt-env-conf-test] ]
  1923. 1781.50 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  1924. 1781.50 s [opt-env-conf-test] [ [ functionChunk "option",
  1925. 1781.50 s [opt-env-conf-test] " has no ",
  1926. 1781.50 s [opt-env-conf-test] functionChunk "long",
  1927. 1781.50 s [opt-env-conf-test] " or ",
  1928. 1781.50 s [opt-env-conf-test] functionChunk "short",
  1929. 1781.51 s [opt-env-conf-test] "."
  1930. 1781.51 s [opt-env-conf-test] ]
  1931. 1781.51 s [opt-env-conf-test] ]
  1932. 1781.51 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  1933. 1781.51 s [opt-env-conf-test] [ [ functionChunk "option",
  1934. 1781.51 s [opt-env-conf-test] " or ",
  1935. 1781.51 s [opt-env-conf-test] functionChunk "name",
  1936. 1781.51 s [opt-env-conf-test] " has no ",
  1937. 1781.51 s [opt-env-conf-test] functionChunk "metavar",
  1938. 1781.51 s [opt-env-conf-test] "."
  1939. 1781.51 s [opt-env-conf-test] ]
  1940. 1781.51 s [opt-env-conf-test] ]
  1941. 1781.51 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  1942. 1781.51 s [opt-env-conf-test] [ [ functionChunk "switch",
  1943. 1781.51 s [opt-env-conf-test] " has no ",
  1944. 1781.51 s [opt-env-conf-test] functionChunk "long",
  1945. 1781.51 s [opt-env-conf-test] " or ",
  1946. 1781.51 s [opt-env-conf-test] functionChunk "short",
  1947. 1781.51 s [opt-env-conf-test] "."
  1948. 1781.51 s [opt-env-conf-test] ]
  1949. 1781.51 s [opt-env-conf-test] ]
  1950. 1781.51 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  1951. 1781.51 s [opt-env-conf-test] [ [ functionChunk "long",
  1952. 1781.51 s [opt-env-conf-test] " or ",
  1953. 1781.51 s [opt-env-conf-test] functionChunk "short",
  1954. 1781.51 s [opt-env-conf-test] " has no ",
  1955. 1781.51 s [opt-env-conf-test] functionChunk "option",
  1956. 1781.51 s [opt-env-conf-test] " or ",
  1957. 1781.51 s [opt-env-conf-test] functionChunk "switch",
  1958. 1781.51 s [opt-env-conf-test] "."
  1959. 1781.51 s [opt-env-conf-test] ]
  1960. 1781.51 s [opt-env-conf-test] ]
  1961. 1781.51 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  1962. 1781.51 s [opt-env-conf-test] [ [ functionChunk "env",
  1963. 1781.51 s [opt-env-conf-test] " or ",
  1964. 1781.51 s [opt-env-conf-test] functionChunk "name",
  1965. 1781.51 s [opt-env-conf-test] " has no ",
  1966. 1781.51 s [opt-env-conf-test] functionChunk "reader",
  1967. 1781.51 s [opt-env-conf-test] "."
  1968. 1781.51 s [opt-env-conf-test] ]
  1969. 1781.51 s [opt-env-conf-test] ]
  1970. 1781.51 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  1971. 1781.51 s [opt-env-conf-test] [ [ functionChunk "env",
  1972. 1781.51 s [opt-env-conf-test] " or ",
  1973. 1781.51 s [opt-env-conf-test] functionChunk "name",
  1974. 1781.51 s [opt-env-conf-test] " has no ",
  1975. 1781.51 s [opt-env-conf-test] functionChunk "metavar",
  1976. 1781.51 s [opt-env-conf-test] "."
  1977. 1781.51 s [opt-env-conf-test] ]
  1978. 1781.51 s [opt-env-conf-test] ]
  1979. 1781.51 s [opt-env-conf-test] LintErrorNoCommands ->
  1980. 1781.51 s [opt-env-conf-test] [ [ functionChunk "commands",
  1981. 1781.65 s [opt-env-conf-test] " was called with an empty list."
  1982. 1781.65 s [opt-env-conf-test] ]
  1983. 1781.65 s [opt-env-conf-test] ]
  1984. 1781.66 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  1985. 1781.66 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  1986. 1781.66 s [opt-env-conf-test] " was called with an unknown command: ",
  1987. 1781.66 s [opt-env-conf-test] commandChunk c
  1988. 1781.66 s [opt-env-conf-test] ]
  1989. 1781.66 s [opt-env-conf-test] ]
  1990. 1781.66 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1991. 1781.66 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1992. 1781.66 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1993. 1781.66 s [opt-env-conf-test] ]
  1994. 1781.66 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1995. 1781.66 s [opt-env-conf-test] [ [ functionChunk "conf",
  1996. 1781.66 s [opt-env-conf-test] " or ",
  1997. 1781.66 s [opt-env-conf-test] functionChunk "name",
  1998. 1781.66 s [opt-env-conf-test] " was called with no way to load configuration."
  1999. 1781.66 s [opt-env-conf-test] ],
  2000. 1781.66 s [opt-env-conf-test] [ "You can load configuration with ",
  2001. 1781.66 s [opt-env-conf-test] functionChunk "withConfig",
  2002. 1781.66 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  2003. 1781.66 s [opt-env-conf-test] functionChunk "withoutConfig",
  2004. 1781.66 s [opt-env-conf-test] "."
  2005. 1781.66 s [opt-env-conf-test] ]
  2006. 1781.66 s [opt-env-conf-test] ]
  2007. 1781.66 s [opt-env-conf-test] LintErrorManyInfinite ->
  2008. 1781.66 s [opt-env-conf-test] [ [ functionChunk "many",
  2009. 1781.66 s [opt-env-conf-test] " or ",
  2010. 1781.66 s [opt-env-conf-test] functionChunk "some",
  2011. 1781.66 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  2012. 1781.66 s [opt-env-conf-test] ],
  2013. 1781.66 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  2014. 1781.66 s [opt-env-conf-test] ],
  2015. 1781.66 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2016. 1781.66 s [opt-env-conf-test] ]
  2017. 1781.66 s [opt-env-conf-test]
  2018. 1781.66 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2019. 1781.66 s [opt-env-conf-test] @@ -66,168 +66,161 @@
  2020. 1781.66 s [opt-env-conf-test] renderLintError LintError {..} =
  2021. 1781.66 s [opt-env-conf-test] concat
  2022. 1781.66 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2023. 1781.66 s [opt-env-conf-test] case lintErrorMessage of
  2024. 1781.66 s [opt-env-conf-test] LintErrorUndocumented ->
  2025. 1781.66 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  2026. 1781.66 s [opt-env-conf-test] LintErrorEmptySetting ->
  2027. 1781.66 s [opt-env-conf-test] concat
  2028. 1781.66 s [opt-env-conf-test] [ [ [ "This ",
  2029. 1781.66 s [opt-env-conf-test] functionChunk "setting",
  2030. 1781.66 s [opt-env-conf-test] " parses nothing."
  2031. 1781.66 s [opt-env-conf-test] ]
  2032. 1781.66 s [opt-env-conf-test] ],
  2033. 1781.66 s [opt-env-conf-test] [ [ "Add an ",
  2034. 1781.67 s [opt-env-conf-test] functionChunk "argument",
  2035. 1781.67 s [opt-env-conf-test] ", ",
  2036. 1781.67 s [opt-env-conf-test] functionChunk "switch",
  2037. 1781.67 s [opt-env-conf-test] ", ",
  2038. 1781.67 s [opt-env-conf-test] functionChunk "option",
  2039. 1781.67 s [opt-env-conf-test] ", ",
  2040. 1781.67 s [opt-env-conf-test] functionChunk "env",
  2041. 1781.67 s [opt-env-conf-test] ", ",
  2042. 1781.67 s [opt-env-conf-test] functionChunk "conf",
  2043. 1781.67 s [opt-env-conf-test] ", or ",
  2044. 1781.67 s [opt-env-conf-test] functionChunk "value",
  2045. 1781.67 s [opt-env-conf-test] "."
  2046. 1781.67 s [opt-env-conf-test] ]
  2047. 1781.67 s [opt-env-conf-test] ]
  2048. 1781.67 s [opt-env-conf-test] ]
  2049. 1781.67 s [opt-env-conf-test] LintErrorDashInShort ->
  2050. 1781.67 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  2051. 1781.67 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  2052. 1781.67 s [opt-env-conf-test] ]
  2053. 1781.67 s [opt-env-conf-test] LintErrorDashInLong s ->
  2054. 1781.67 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  2055. 1781.67 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2056. 1781.67 s [opt-env-conf-test] [ "Try ",
  2057. 1781.67 s [opt-env-conf-test] functionChunk "long",
  2058. 1781.67 s [opt-env-conf-test] " ",
  2059. 1781.67 s [opt-env-conf-test] chunk $
  2060. 1781.67 s [opt-env-conf-test] T.pack $
  2061. 1781.67 s [opt-env-conf-test] show $
  2062. 1781.67 s [opt-env-conf-test] let go = \case
  2063. 1781.67 s [opt-env-conf-test] [] -> []
  2064. 1781.67 s [opt-env-conf-test] '-' : cs -> go cs
  2065. 1781.67 s [opt-env-conf-test] c : cs -> c : cs
  2066. 1781.67 s [opt-env-conf-test] in go $ NE.toList s,
  2067. 1781.67 s [opt-env-conf-test] " instead."
  2068. 1781.67 s [opt-env-conf-test] ]
  2069. 1781.67 s [opt-env-conf-test] ]
  2070. 1781.67 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  2071. 1781.67 s [opt-env-conf-test] [ [ functionChunk "argument",
  2072. 1781.67 s [opt-env-conf-test] " has no ",
  2073. 1781.67 s [opt-env-conf-test] functionChunk "reader",
  2074. 1781.67 s [opt-env-conf-test] "."
  2075. 1781.67 s [opt-env-conf-test] ]
  2076. 1781.67 s [opt-env-conf-test] ]
  2077. 1781.67 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  2078. 1781.67 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2079. 1781.67 s [opt-env-conf-test] - " has no ",
  2080. 1781.67 s [opt-env-conf-test] - functionChunk "metavar",
  2081. 1781.67 s [opt-env-conf-test] - "."
  2082. 1781.67 s [opt-env-conf-test] - ]
  2083. 1781.67 s [opt-env-conf-test] - ]
  2084. 1781.67 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  2085. 1781.67 s [opt-env-conf-test] [ [ functionChunk "option",
  2086. 1781.67 s [opt-env-conf-test] " or ",
  2087. 1781.67 s [opt-env-conf-test] functionChunk "name",
  2088. 1781.67 s [opt-env-conf-test] " has no ",
  2089. 1781.67 s [opt-env-conf-test] functionChunk "reader",
  2090. 1781.67 s [opt-env-conf-test] "."
  2091. 1781.67 s [opt-env-conf-test] ]
  2092. 1781.67 s [opt-env-conf-test] ]
  2093. 1781.67 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  2094. 1781.67 s [opt-env-conf-test] [ [ functionChunk "option",
  2095. 1781.67 s [opt-env-conf-test] " has no ",
  2096. 1781.67 s [opt-env-conf-test] functionChunk "long",
  2097. 1781.67 s [opt-env-conf-test] " or ",
  2098. 1781.67 s [opt-env-conf-test] functionChunk "short",
  2099. 1781.67 s [opt-env-conf-test] "."
  2100. 1781.67 s [opt-env-conf-test] ]
  2101. 1781.67 s [opt-env-conf-test] ]
  2102. 1781.67 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  2103. 1781.67 s [opt-env-conf-test] [ [ functionChunk "option",
  2104. 1781.67 s [opt-env-conf-test] " or ",
  2105. 1781.67 s [opt-env-conf-test] functionChunk "name",
  2106. 1781.67 s [opt-env-conf-test] " has no ",
  2107. 1781.67 s [opt-env-conf-test] functionChunk "metavar",
  2108. 1781.67 s [opt-env-conf-test] "."
  2109. 1781.67 s [opt-env-conf-test] ]
  2110. 1781.67 s [opt-env-conf-test] ]
  2111. 1781.67 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  2112. 1781.68 s [opt-env-conf-test] [ [ functionChunk "switch",
  2113. 1781.68 s [opt-env-conf-test] " has no ",
  2114. 1781.68 s [opt-env-conf-test] functionChunk "long",
  2115. 1781.68 s [opt-env-conf-test] " or ",
  2116. 1781.68 s [opt-env-conf-test] functionChunk "short",
  2117. 1781.68 s [opt-env-conf-test] "."
  2118. 1781.68 s [opt-env-conf-test] ]
  2119. 1781.68 s [opt-env-conf-test] ]
  2120. 1781.68 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  2121. 1781.68 s [opt-env-conf-test] [ [ functionChunk "long",
  2122. 1781.68 s [opt-env-conf-test] " or ",
  2123. 1781.68 s [opt-env-conf-test] functionChunk "short",
  2124. 1781.68 s [opt-env-conf-test] " has no ",
  2125. 1781.68 s [opt-env-conf-test] functionChunk "option",
  2126. 1781.68 s [opt-env-conf-test] " or ",
  2127. 1781.68 s [opt-env-conf-test] functionChunk "switch",
  2128. 1781.68 s [opt-env-conf-test] "."
  2129. 1781.68 s [opt-env-conf-test] ]
  2130. 1781.68 s [opt-env-conf-test] ]
  2131. 1781.68 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  2132. 1781.68 s [opt-env-conf-test] [ [ functionChunk "env",
  2133. 1781.68 s [opt-env-conf-test] " or ",
  2134. 1781.68 s [opt-env-conf-test] functionChunk "name",
  2135. 1781.68 s [opt-env-conf-test] " has no ",
  2136. 1781.68 s [opt-env-conf-test] functionChunk "reader",
  2137. 1781.68 s [opt-env-conf-test] "."
  2138. 1781.68 s [opt-env-conf-test] ]
  2139. 1781.68 s [opt-env-conf-test] ]
  2140. 1781.68 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  2141. 1781.68 s [opt-env-conf-test] [ [ functionChunk "env",
  2142. 1781.68 s [opt-env-conf-test] " or ",
  2143. 1781.68 s [opt-env-conf-test] functionChunk "name",
  2144. 1781.68 s [opt-env-conf-test] " has no ",
  2145. 1781.68 s [opt-env-conf-test] functionChunk "metavar",
  2146. 1781.68 s [opt-env-conf-test] "."
  2147. 1781.68 s [opt-env-conf-test] ]
  2148. 1781.68 s [opt-env-conf-test] ]
  2149. 1781.68 s [opt-env-conf-test] LintErrorNoCommands ->
  2150. 1782.32 s [opt-env-conf-test] [ [ functionChunk "commands",
  2151. 1782.32 s [opt-env-conf-test] " was called with an empty list."
  2152. 1782.32 s [opt-env-conf-test] ]
  2153. 1782.32 s [opt-env-conf-test] ]
  2154. 1782.32 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  2155. 1782.32 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  2156. 1782.32 s [opt-env-conf-test] " was called with an unknown command: ",
  2157. 1782.32 s [opt-env-conf-test] commandChunk c
  2158. 1782.32 s [opt-env-conf-test] ]
  2159. 1782.32 s [opt-env-conf-test] ]
  2160. 1782.32 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  2161. 1782.32 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2162. 1782.32 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  2163. 1782.32 s [opt-env-conf-test] ]
  2164. 1782.32 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  2165. 1782.32 s [opt-env-conf-test] [ [ functionChunk "conf",
  2166. 1782.32 s [opt-env-conf-test] " or ",
  2167. 1782.32 s [opt-env-conf-test] functionChunk "name",
  2168. 1782.32 s [opt-env-conf-test] " was called with no way to load configuration."
  2169. 1782.32 s [opt-env-conf-test] ],
  2170. 1782.32 s [opt-env-conf-test] [ "You can load configuration with ",
  2171. 1782.33 s [opt-env-conf-test] functionChunk "withConfig",
  2172. 1782.33 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  2173. 1782.33 s [opt-env-conf-test] functionChunk "withoutConfig",
  2174. 1782.33 s [opt-env-conf-test] "."
  2175. 1782.33 s [opt-env-conf-test] ]
  2176. 1782.33 s [opt-env-conf-test] ]
  2177. 1782.33 s [opt-env-conf-test] LintErrorManyInfinite ->
  2178. 1782.33 s [opt-env-conf-test] [ [ functionChunk "many",
  2179. 1782.33 s [opt-env-conf-test] " or ",
  2180. 1782.33 s [opt-env-conf-test] functionChunk "some",
  2181. 1782.33 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  2182. 1782.33 s [opt-env-conf-test] ],
  2183. 1782.33 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  2184. 1782.33 s [opt-env-conf-test] ],
  2185. 1782.33 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2186. 1782.33 s [opt-env-conf-test] ]
  2187. 1782.33 s [opt-env-conf-test]
  2188. 1782.33 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2189. 1782.33 s [opt-env-conf-test] @@ -66,168 +66,161 @@
  2190. 1782.33 s [opt-env-conf-test] renderLintError LintError {..} =
  2191. 1782.33 s [opt-env-conf-test] concat
  2192. 1782.33 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2193. 1782.33 s [opt-env-conf-test] case lintErrorMessage of
  2194. 1782.33 s [opt-env-conf-test] LintErrorUndocumented ->
  2195. 1782.33 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  2196. 1782.33 s [opt-env-conf-test] LintErrorEmptySetting ->
  2197. 1782.33 s [opt-env-conf-test] concat
  2198. 1782.33 s [opt-env-conf-test] [ [ [ "This ",
  2199. 1782.33 s [opt-env-conf-test] functionChunk "setting",
  2200. 1782.33 s [opt-env-conf-test] " parses nothing."
  2201. 1782.33 s [opt-env-conf-test] ]
  2202. 1782.33 s [opt-env-conf-test] ],
  2203. 1782.33 s [opt-env-conf-test] [ [ "Add an ",
  2204. 1782.33 s [opt-env-conf-test] functionChunk "argument",
  2205. 1782.33 s [opt-env-conf-test] ", ",
  2206. 1782.33 s [opt-env-conf-test] functionChunk "switch",
  2207. 1782.33 s [opt-env-conf-test] ", ",
  2208. 1782.33 s [opt-env-conf-test] functionChunk "option",
  2209. 1782.33 s [opt-env-conf-test] ", ",
  2210. 1782.33 s [opt-env-conf-test] functionChunk "env",
  2211. 1782.33 s [opt-env-conf-test] ", ",
  2212. 1782.33 s [opt-env-conf-test] functionChunk "conf",
  2213. 1782.33 s [opt-env-conf-test] ", or ",
  2214. 1782.33 s [opt-env-conf-test] functionChunk "value",
  2215. 1782.33 s [opt-env-conf-test] "."
  2216. 1782.33 s [opt-env-conf-test] ]
  2217. 1782.33 s [opt-env-conf-test] ]
  2218. 1782.33 s [opt-env-conf-test] ]
  2219. 1782.33 s [opt-env-conf-test] LintErrorDashInShort ->
  2220. 1782.33 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  2221. 1782.33 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  2222. 1782.33 s [opt-env-conf-test] ]
  2223. 1782.33 s [opt-env-conf-test] LintErrorDashInLong s ->
  2224. 1782.33 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  2225. 1782.33 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2226. 1782.33 s [opt-env-conf-test] [ "Try ",
  2227. 1782.33 s [opt-env-conf-test] functionChunk "long",
  2228. 1782.33 s [opt-env-conf-test] " ",
  2229. 1782.34 s [opt-env-conf-test] chunk $
  2230. 1782.34 s [opt-env-conf-test] T.pack $
  2231. 1782.34 s [opt-env-conf-test] show $
  2232. 1782.34 s [opt-env-conf-test] let go = \case
  2233. 1782.34 s [opt-env-conf-test] [] -> []
  2234. 1782.34 s [opt-env-conf-test] '-' : cs -> go cs
  2235. 1782.34 s [opt-env-conf-test] c : cs -> c : cs
  2236. 1782.34 s [opt-env-conf-test] in go $ NE.toList s,
  2237. 1782.34 s [opt-env-conf-test] " instead."
  2238. 1782.34 s [opt-env-conf-test] ]
  2239. 1782.34 s [opt-env-conf-test] ]
  2240. 1782.34 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  2241. 1782.34 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2242. 1782.34 s [opt-env-conf-test] - " has no ",
  2243. 1782.34 s [opt-env-conf-test] - functionChunk "reader",
  2244. 1782.34 s [opt-env-conf-test] - "."
  2245. 1782.34 s [opt-env-conf-test] - ]
  2246. 1782.34 s [opt-env-conf-test] - ]
  2247. 1782.34 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  2248. 1782.34 s [opt-env-conf-test] [ [ functionChunk "argument",
  2249. 1782.34 s [opt-env-conf-test] " has no ",
  2250. 1782.34 s [opt-env-conf-test] functionChunk "metavar",
  2251. 1782.34 s [opt-env-conf-test] "."
  2252. 1782.34 s [opt-env-conf-test] ]
  2253. 1782.34 s [opt-env-conf-test] ]
  2254. 1782.34 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  2255. 1782.34 s [opt-env-conf-test] [ [ functionChunk "option",
  2256. 1782.34 s [opt-env-conf-test] " or ",
  2257. 1782.34 s [opt-env-conf-test] functionChunk "name",
  2258. 1782.34 s [opt-env-conf-test] " has no ",
  2259. 1782.34 s [opt-env-conf-test] functionChunk "reader",
  2260. 1782.34 s [opt-env-conf-test] "."
  2261. 1782.34 s [opt-env-conf-test] ]
  2262. 1782.34 s [opt-env-conf-test] ]
  2263. 1782.34 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  2264. 1782.34 s [opt-env-conf-test] [ [ functionChunk "option",
  2265. 1782.34 s [opt-env-conf-test] " has no ",
  2266. 1782.34 s [opt-env-conf-test] functionChunk "long",
  2267. 1782.34 s [opt-env-conf-test] " or ",
  2268. 1782.34 s [opt-env-conf-test] functionChunk "short",
  2269. 1782.34 s [opt-env-conf-test] "."
  2270. 1782.34 s [opt-env-conf-test] ]
  2271. 1782.34 s [opt-env-conf-test] ]
  2272. 1782.34 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  2273. 1782.34 s [opt-env-conf-test] [ [ functionChunk "option",
  2274. 1782.34 s [opt-env-conf-test] " or ",
  2275. 1782.34 s [opt-env-conf-test] functionChunk "name",
  2276. 1782.34 s [opt-env-conf-test] " has no ",
  2277. 1782.34 s [opt-env-conf-test] functionChunk "metavar",
  2278. 1782.34 s [opt-env-conf-test] "."
  2279. 1782.34 s [opt-env-conf-test] ]
  2280. 1782.34 s [opt-env-conf-test] ]
  2281. 1782.34 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  2282. 1782.34 s [opt-env-conf-test] [ [ functionChunk "switch",
  2283. 1782.34 s [opt-env-conf-test] " has no ",
  2284. 1782.34 s [opt-env-conf-test] functionChunk "long",
  2285. 1782.34 s [opt-env-conf-test] " or ",
  2286. 1782.34 s [opt-env-conf-test] functionChunk "short",
  2287. 1782.35 s [opt-env-conf-test] "."
  2288. 1782.35 s [opt-env-conf-test] ]
  2289. 1782.35 s [opt-env-conf-test] ]
  2290. 1782.35 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  2291. 1782.35 s [opt-env-conf-test] [ [ functionChunk "long",
  2292. 1782.35 s [opt-env-conf-test] " or ",
  2293. 1782.35 s [opt-env-conf-test] functionChunk "short",
  2294. 1782.35 s [opt-env-conf-test] " has no ",
  2295. 1782.35 s [opt-env-conf-test] functionChunk "option",
  2296. 1782.35 s [opt-env-conf-test] " or ",
  2297. 1782.35 s [opt-env-conf-test] functionChunk "switch",
  2298. 1782.35 s [opt-env-conf-test] "."
  2299. 1782.35 s [opt-env-conf-test] ]
  2300. 1782.35 s [opt-env-conf-test] ]
  2301. 1782.35 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  2302. 1782.35 s [opt-env-conf-test] [ [ functionChunk "env",
  2303. 1782.35 s [opt-env-conf-test] " or ",
  2304. 1782.35 s [opt-env-conf-test] functionChunk "name",
  2305. 1782.35 s [opt-env-conf-test] " has no ",
  2306. 1782.35 s [opt-env-conf-test] functionChunk "reader",
  2307. 1782.35 s [opt-env-conf-test] "."
  2308. 1782.35 s [opt-env-conf-test] ]
  2309. 1782.35 s [opt-env-conf-test] ]
  2310. 1782.35 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  2311. 1782.35 s [opt-env-conf-test] [ [ functionChunk "env",
  2312. 1782.35 s [opt-env-conf-test] " or ",
  2313. 1782.35 s [opt-env-conf-test] functionChunk "name",
  2314. 1782.35 s [opt-env-conf-test] " has no ",
  2315. 1782.35 s [opt-env-conf-test] functionChunk "metavar",
  2316. 1782.35 s [opt-env-conf-test] "."
  2317. 1782.35 s [opt-env-conf-test] ]
  2318. 1782.35 s [opt-env-conf-test] ]
  2319. 1782.35 s [opt-env-conf-test] LintErrorNoCommands ->
  2320. 1782.42 s [opt-env-conf-test] [ [ functionChunk "commands",
  2321. 1782.42 s [opt-env-conf-test] " was called with an empty list."
  2322. 1782.42 s [opt-env-conf-test] ]
  2323. 1782.42 s [opt-env-conf-test] ]
  2324. 1782.43 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  2325. 1782.43 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  2326. 1782.43 s [opt-env-conf-test] " was called with an unknown command: ",
  2327. 1782.43 s [opt-env-conf-test] commandChunk c
  2328. 1782.43 s [opt-env-conf-test] ]
  2329. 1782.43 s [opt-env-conf-test] ]
  2330. 1782.43 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  2331. 1782.43 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2332. 1782.43 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  2333. 1782.43 s [opt-env-conf-test] ]
  2334. 1782.43 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  2335. 1782.43 s [opt-env-conf-test] [ [ functionChunk "conf",
  2336. 1782.43 s [opt-env-conf-test] " or ",
  2337. 1782.43 s [opt-env-conf-test] functionChunk "name",
  2338. 1782.43 s [opt-env-conf-test] " was called with no way to load configuration."
  2339. 1782.43 s [opt-env-conf-test] ],
  2340. 1782.43 s [opt-env-conf-test] [ "You can load configuration with ",
  2341. 1782.43 s [opt-env-conf-test] functionChunk "withConfig",
  2342. 1782.43 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  2343. 1782.43 s [opt-env-conf-test] functionChunk "withoutConfig",
  2344. 1782.43 s [opt-env-conf-test] "."
  2345. 1782.43 s [opt-env-conf-test] ]
  2346. 1782.43 s [opt-env-conf-test] ]
  2347. 1782.43 s [opt-env-conf-test] LintErrorManyInfinite ->
  2348. 1782.43 s [opt-env-conf-test] [ [ functionChunk "many",
  2349. 1782.43 s [opt-env-conf-test] " or ",
  2350. 1782.43 s [opt-env-conf-test] functionChunk "some",
  2351. 1782.43 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  2352. 1782.43 s [opt-env-conf-test] ],
  2353. 1782.43 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  2354. 1782.43 s [opt-env-conf-test] ],
  2355. 1782.43 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2356. 1782.43 s [opt-env-conf-test] ]
  2357. 1782.43 s [opt-env-conf-test]
  2358. 1782.43 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2359. 1782.43 s [opt-env-conf-test] @@ -66,168 +66,151 @@
  2360. 1782.43 s [opt-env-conf-test] renderLintError LintError {..} =
  2361. 1782.43 s [opt-env-conf-test] concat
  2362. 1782.43 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2363. 1782.43 s [opt-env-conf-test] case lintErrorMessage of
  2364. 1782.43 s [opt-env-conf-test] LintErrorUndocumented ->
  2365. 1782.43 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  2366. 1782.43 s [opt-env-conf-test] LintErrorEmptySetting ->
  2367. 1782.44 s [opt-env-conf-test] concat
  2368. 1782.44 s [opt-env-conf-test] [ [ [ "This ",
  2369. 1782.44 s [opt-env-conf-test] functionChunk "setting",
  2370. 1782.44 s [opt-env-conf-test] " parses nothing."
  2371. 1782.44 s [opt-env-conf-test] ]
  2372. 1782.44 s [opt-env-conf-test] ],
  2373. 1782.44 s [opt-env-conf-test] [ [ "Add an ",
  2374. 1782.44 s [opt-env-conf-test] functionChunk "argument",
  2375. 1782.44 s [opt-env-conf-test] ", ",
  2376. 1782.44 s [opt-env-conf-test] functionChunk "switch",
  2377. 1782.44 s [opt-env-conf-test] ", ",
  2378. 1782.44 s [opt-env-conf-test] functionChunk "option",
  2379. 1782.44 s [opt-env-conf-test] ", ",
  2380. 1782.44 s [opt-env-conf-test] functionChunk "env",
  2381. 1782.44 s [opt-env-conf-test] ", ",
  2382. 1782.44 s [opt-env-conf-test] functionChunk "conf",
  2383. 1782.44 s [opt-env-conf-test] ", or ",
  2384. 1782.44 s [opt-env-conf-test] functionChunk "value",
  2385. 1782.44 s [opt-env-conf-test] "."
  2386. 1782.44 s [opt-env-conf-test] ]
  2387. 1782.44 s [opt-env-conf-test] ]
  2388. 1782.44 s [opt-env-conf-test] ]
  2389. 1782.44 s [opt-env-conf-test] LintErrorDashInShort ->
  2390. 1782.44 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  2391. 1782.44 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  2392. 1782.44 s [opt-env-conf-test] ]
  2393. 1782.44 s [opt-env-conf-test] - LintErrorDashInLong s ->
  2394. 1782.44 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  2395. 1782.44 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2396. 1782.44 s [opt-env-conf-test] - [ "Try ",
  2397. 1782.44 s [opt-env-conf-test] - functionChunk "long",
  2398. 1782.44 s [opt-env-conf-test] - " ",
  2399. 1782.44 s [opt-env-conf-test] - chunk $
  2400. 1782.44 s [opt-env-conf-test] - T.pack $
  2401. 1782.44 s [opt-env-conf-test] - show $
  2402. 1782.44 s [opt-env-conf-test] - let go = \case
  2403. 1782.44 s [opt-env-conf-test] - [] -> []
  2404. 1782.44 s [opt-env-conf-test] - '-' : cs -> go cs
  2405. 1782.44 s [opt-env-conf-test] - c : cs -> c : cs
  2406. 1782.44 s [opt-env-conf-test] - in go $ NE.toList s,
  2407. 1782.44 s [opt-env-conf-test] - " instead."
  2408. 1782.44 s [opt-env-conf-test] - ]
  2409. 1782.44 s [opt-env-conf-test] - ]
  2410. 1782.44 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  2411. 1782.44 s [opt-env-conf-test] [ [ functionChunk "argument",
  2412. 1782.44 s [opt-env-conf-test] " has no ",
  2413. 1782.44 s [opt-env-conf-test] functionChunk "reader",
  2414. 1782.44 s [opt-env-conf-test] "."
  2415. 1782.44 s [opt-env-conf-test] ]
  2416. 1782.44 s [opt-env-conf-test] ]
  2417. 1782.44 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  2418. 1782.44 s [opt-env-conf-test] [ [ functionChunk "argument",
  2419. 1782.45 s [opt-env-conf-test] " has no ",
  2420. 1782.45 s [opt-env-conf-test] functionChunk "metavar",
  2421. 1782.45 s [opt-env-conf-test] "."
  2422. 1782.45 s [opt-env-conf-test] ]
  2423. 1782.45 s [opt-env-conf-test] ]
  2424. 1782.45 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  2425. 1782.45 s [opt-env-conf-test] [ [ functionChunk "option",
  2426. 1782.45 s [opt-env-conf-test] " or ",
  2427. 1782.45 s [opt-env-conf-test] functionChunk "name",
  2428. 1782.45 s [opt-env-conf-test] " has no ",
  2429. 1782.45 s [opt-env-conf-test] functionChunk "reader",
  2430. 1782.45 s [opt-env-conf-test] "."
  2431. 1782.45 s [opt-env-conf-test] ]
  2432. 1782.45 s [opt-env-conf-test] ]
  2433. 1782.45 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  2434. 1782.45 s [opt-env-conf-test] [ [ functionChunk "option",
  2435. 1782.45 s [opt-env-conf-test] " has no ",
  2436. 1782.45 s [opt-env-conf-test] functionChunk "long",
  2437. 1782.45 s [opt-env-conf-test] " or ",
  2438. 1782.45 s [opt-env-conf-test] functionChunk "short",
  2439. 1782.45 s [opt-env-conf-test] "."
  2440. 1782.45 s [opt-env-conf-test] ]
  2441. 1782.45 s [opt-env-conf-test] ]
  2442. 1782.45 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  2443. 1782.45 s [opt-env-conf-test] [ [ functionChunk "option",
  2444. 1782.45 s [opt-env-conf-test] " or ",
  2445. 1782.45 s [opt-env-conf-test] functionChunk "name",
  2446. 1782.45 s [opt-env-conf-test] " has no ",
  2447. 1782.45 s [opt-env-conf-test] functionChunk "metavar",
  2448. 1782.45 s [opt-env-conf-test] "."
  2449. 1782.45 s [opt-env-conf-test] ]
  2450. 1782.45 s [opt-env-conf-test] ]
  2451. 1782.45 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  2452. 1782.45 s [opt-env-conf-test] [ [ functionChunk "switch",
  2453. 1782.45 s [opt-env-conf-test] " has no ",
  2454. 1782.45 s [opt-env-conf-test] functionChunk "long",
  2455. 1782.45 s [opt-env-conf-test] " or ",
  2456. 1782.45 s [opt-env-conf-test] functionChunk "short",
  2457. 1782.45 s [opt-env-conf-test] "."
  2458. 1782.45 s [opt-env-conf-test] ]
  2459. 1782.45 s [opt-env-conf-test] ]
  2460. 1782.45 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  2461. 1782.45 s [opt-env-conf-test] [ [ functionChunk "long",
  2462. 1782.45 s [opt-env-conf-test] " or ",
  2463. 1782.45 s [opt-env-conf-test] functionChunk "short",
  2464. 1782.45 s [opt-env-conf-test] " has no ",
  2465. 1782.45 s [opt-env-conf-test] functionChunk "option",
  2466. 1782.45 s [opt-env-conf-test] " or ",
  2467. 1782.45 s [opt-env-conf-test] functionChunk "switch",
  2468. 1782.45 s [opt-env-conf-test] "."
  2469. 1782.45 s [opt-env-conf-test] ]
  2470. 1782.45 s [opt-env-conf-test] ]
  2471. 1782.45 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  2472. 1782.45 s [opt-env-conf-test] [ [ functionChunk "env",
  2473. 1782.45 s [opt-env-conf-test] " or ",
  2474. 1782.45 s [opt-env-conf-test] functionChunk "name",
  2475. 1782.45 s [opt-env-conf-test] " has no ",
  2476. 1782.45 s [opt-env-conf-test] functionChunk "reader",
  2477. 1782.45 s [opt-env-conf-test] "."
  2478. 1782.45 s [opt-env-conf-test] ]
  2479. 1782.46 s [opt-env-conf-test] ]
  2480. 1782.46 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  2481. 1782.46 s [opt-env-conf-test] [ [ functionChunk "env",
  2482. 1782.46 s [opt-env-conf-test] " or ",
  2483. 1782.46 s [opt-env-conf-test] functionChunk "name",
  2484. 1782.46 s [opt-env-conf-test] " has no ",
  2485. 1782.46 s [opt-env-conf-test] functionChunk "metavar",
  2486. 1782.46 s [opt-env-conf-test] "."
  2487. 1782.46 s [opt-env-conf-test] ]
  2488. 1783.95 s [opt-env-conf-test] ]
  2489. 1783.95 s [opt-env-conf-test] LintErrorNoCommands ->
  2490. 1783.95 s [opt-env-conf-test] [ [ functionChunk "commands",
  2491. 1784.08 s [opt-env-conf-test] " was called with an empty list."
  2492. 1784.08 s [opt-env-conf-test] ]
  2493. 1784.08 s [opt-env-conf-test] ]
  2494. 1784.09 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  2495. 1784.09 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  2496. 1784.09 s [opt-env-conf-test] " was called with an unknown command: ",
  2497. 1784.09 s [opt-env-conf-test] commandChunk c
  2498. 1784.09 s [opt-env-conf-test] ]
  2499. 1784.09 s [opt-env-conf-test] ]
  2500. 1784.09 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  2501. 1784.09 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2502. 1784.09 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  2503. 1784.09 s [opt-env-conf-test] ]
  2504. 1784.09 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  2505. 1784.09 s [opt-env-conf-test] [ [ functionChunk "conf",
  2506. 1784.09 s [opt-env-conf-test] " or ",
  2507. 1784.09 s [opt-env-conf-test] functionChunk "name",
  2508. 1784.09 s [opt-env-conf-test] " was called with no way to load configuration."
  2509. 1784.09 s [opt-env-conf-test] ],
  2510. 1784.09 s [opt-env-conf-test] [ "You can load configuration with ",
  2511. 1784.09 s [opt-env-conf-test] functionChunk "withConfig",
  2512. 1784.09 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  2513. 1784.09 s [opt-env-conf-test] functionChunk "withoutConfig",
  2514. 1784.09 s [opt-env-conf-test] "."
  2515. 1784.09 s [opt-env-conf-test] ]
  2516. 1784.09 s [opt-env-conf-test] ]
  2517. 1784.09 s [opt-env-conf-test] LintErrorManyInfinite ->
  2518. 1784.09 s [opt-env-conf-test] [ [ functionChunk "many",
  2519. 1784.09 s [opt-env-conf-test] " or ",
  2520. 1784.09 s [opt-env-conf-test] functionChunk "some",
  2521. 1784.09 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  2522. 1784.09 s [opt-env-conf-test] ],
  2523. 1784.09 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  2524. 1784.09 s [opt-env-conf-test] ],
  2525. 1784.09 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2526. 1784.09 s [opt-env-conf-test] ]
  2527. 1784.09 s [opt-env-conf-test]
  2528. 1784.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2529. 1784.09 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  2530. 1784.09 s [opt-env-conf-test] renderLintError LintError {..} =
  2531. 1784.09 s [opt-env-conf-test] concat
  2532. 1784.09 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2533. 1784.09 s [opt-env-conf-test] case lintErrorMessage of
  2534. 1784.09 s [opt-env-conf-test] LintErrorUndocumented ->
  2535. 1784.09 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  2536. 1784.09 s [opt-env-conf-test] LintErrorEmptySetting ->
  2537. 1784.09 s [opt-env-conf-test] concat
  2538. 1784.09 s [opt-env-conf-test] [ [ [ "This ",
  2539. 1784.09 s [opt-env-conf-test] functionChunk "setting",
  2540. 1784.09 s [opt-env-conf-test] " parses nothing."
  2541. 1784.09 s [opt-env-conf-test] ]
  2542. 1784.09 s [opt-env-conf-test] ],
  2543. 1784.09 s [opt-env-conf-test] [ [ "Add an ",
  2544. 1784.09 s [opt-env-conf-test] functionChunk "argument",
  2545. 1784.09 s [opt-env-conf-test] ", ",
  2546. 1784.09 s [opt-env-conf-test] functionChunk "switch",
  2547. 1784.09 s [opt-env-conf-test] ", ",
  2548. 1784.09 s [opt-env-conf-test] functionChunk "option",
  2549. 1784.09 s [opt-env-conf-test] ", ",
  2550. 1784.09 s [opt-env-conf-test] functionChunk "env",
  2551. 1784.09 s [opt-env-conf-test] ", ",
  2552. 1784.09 s [opt-env-conf-test] functionChunk "conf",
  2553. 1784.09 s [opt-env-conf-test] ", or ",
  2554. 1784.09 s [opt-env-conf-test] functionChunk "value",
  2555. 1784.09 s [opt-env-conf-test] "."
  2556. 1784.09 s [opt-env-conf-test] ]
  2557. 1784.09 s [opt-env-conf-test] ]
  2558. 1784.09 s [opt-env-conf-test] ]
  2559. 1784.09 s [opt-env-conf-test] LintErrorDashInShort ->
  2560. 1784.09 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  2561. 1784.09 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  2562. 1784.09 s [opt-env-conf-test] ]
  2563. 1784.09 s [opt-env-conf-test] LintErrorDashInLong s ->
  2564. 1784.09 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  2565. 1784.09 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2566. 1784.09 s [opt-env-conf-test] [ "Try ",
  2567. 1784.09 s [opt-env-conf-test] functionChunk "long",
  2568. 1784.09 s [opt-env-conf-test] " ",
  2569. 1784.09 s [opt-env-conf-test] chunk $
  2570. 1784.09 s [opt-env-conf-test] T.pack $
  2571. 1784.09 s [opt-env-conf-test] show $
  2572. 1784.09 s [opt-env-conf-test] let go = \case
  2573. 1784.09 s [opt-env-conf-test] [] -> []
  2574. 1784.09 s [opt-env-conf-test] '-' : cs -> go cs
  2575. 1784.09 s [opt-env-conf-test] c : cs -> c : cs
  2576. 1784.09 s [opt-env-conf-test] in go $ NE.toList s,
  2577. 1784.09 s [opt-env-conf-test] " instead."
  2578. 1784.09 s [opt-env-conf-test] ]
  2579. 1784.09 s [opt-env-conf-test] ]
  2580. 1784.09 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  2581. 1784.09 s [opt-env-conf-test] [ [ functionChunk "argument",
  2582. 1784.09 s [opt-env-conf-test] " has no ",
  2583. 1784.09 s [opt-env-conf-test] functionChunk "reader",
  2584. 1784.09 s [opt-env-conf-test] "."
  2585. 1784.09 s [opt-env-conf-test] ]
  2586. 1784.09 s [opt-env-conf-test] ]
  2587. 1784.09 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  2588. 1784.10 s [opt-env-conf-test] [ [ functionChunk "argument",
  2589. 1784.10 s [opt-env-conf-test] " has no ",
  2590. 1784.10 s [opt-env-conf-test] functionChunk "metavar",
  2591. 1784.10 s [opt-env-conf-test] "."
  2592. 1784.10 s [opt-env-conf-test] ]
  2593. 1784.10 s [opt-env-conf-test] ]
  2594. 1784.10 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  2595. 1784.10 s [opt-env-conf-test] [ [ functionChunk "option",
  2596. 1784.10 s [opt-env-conf-test] " or ",
  2597. 1784.10 s [opt-env-conf-test] functionChunk "name",
  2598. 1784.10 s [opt-env-conf-test] " has no ",
  2599. 1784.10 s [opt-env-conf-test] functionChunk "reader",
  2600. 1784.10 s [opt-env-conf-test] "."
  2601. 1784.10 s [opt-env-conf-test] ]
  2602. 1784.10 s [opt-env-conf-test] ]
  2603. 1784.10 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  2604. 1784.10 s [opt-env-conf-test] [ [ functionChunk "option",
  2605. 1784.10 s [opt-env-conf-test] " has no ",
  2606. 1784.10 s [opt-env-conf-test] functionChunk "long",
  2607. 1784.10 s [opt-env-conf-test] " or ",
  2608. 1784.10 s [opt-env-conf-test] functionChunk "short",
  2609. 1784.10 s [opt-env-conf-test] "."
  2610. 1784.10 s [opt-env-conf-test] ]
  2611. 1784.10 s [opt-env-conf-test] ]
  2612. 1784.10 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  2613. 1784.10 s [opt-env-conf-test] [ [ functionChunk "option",
  2614. 1784.10 s [opt-env-conf-test] " or ",
  2615. 1784.10 s [opt-env-conf-test] functionChunk "name",
  2616. 1784.10 s [opt-env-conf-test] " has no ",
  2617. 1784.10 s [opt-env-conf-test] functionChunk "metavar",
  2618. 1784.10 s [opt-env-conf-test] "."
  2619. 1784.10 s [opt-env-conf-test] ]
  2620. 1784.10 s [opt-env-conf-test] ]
  2621. 1784.10 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  2622. 1784.10 s [opt-env-conf-test] - [ [ functionChunk "switch",
  2623. 1784.10 s [opt-env-conf-test] - " has no ",
  2624. 1784.10 s [opt-env-conf-test] - functionChunk "long",
  2625. 1784.10 s [opt-env-conf-test] - " or ",
  2626. 1784.10 s [opt-env-conf-test] - functionChunk "short",
  2627. 1784.10 s [opt-env-conf-test] - "."
  2628. 1784.10 s [opt-env-conf-test] - ]
  2629. 1784.10 s [opt-env-conf-test] - ]
  2630. 1784.10 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  2631. 1784.10 s [opt-env-conf-test] [ [ functionChunk "long",
  2632. 1784.10 s [opt-env-conf-test] " or ",
  2633. 1784.10 s [opt-env-conf-test] functionChunk "short",
  2634. 1784.10 s [opt-env-conf-test] " has no ",
  2635. 1784.10 s [opt-env-conf-test] functionChunk "option",
  2636. 1784.10 s [opt-env-conf-test] " or ",
  2637. 1784.10 s [opt-env-conf-test] functionChunk "switch",
  2638. 1784.10 s [opt-env-conf-test] "."
  2639. 1784.10 s [opt-env-conf-test] ]
  2640. 1784.10 s [opt-env-conf-test] ]
  2641. 1784.10 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  2642. 1784.10 s [opt-env-conf-test] [ [ functionChunk "env",
  2643. 1784.10 s [opt-env-conf-test] " or ",
  2644. 1784.10 s [opt-env-conf-test] functionChunk "name",
  2645. 1784.10 s [opt-env-conf-test] " has no ",
  2646. 1784.10 s [opt-env-conf-test] functionChunk "reader",
  2647. 1784.10 s [opt-env-conf-test] "."
  2648. 1784.10 s [opt-env-conf-test] ]
  2649. 1784.10 s [opt-env-conf-test] ]
  2650. 1784.10 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  2651. 1784.10 s [opt-env-conf-test] [ [ functionChunk "env",
  2652. 1784.10 s [opt-env-conf-test] " or ",
  2653. 1784.10 s [opt-env-conf-test] functionChunk "name",
  2654. 1784.10 s [opt-env-conf-test] " has no ",
  2655. 1784.10 s [opt-env-conf-test] functionChunk "metavar",
  2656. 1784.10 s [opt-env-conf-test] "."
  2657. 1784.10 s [opt-env-conf-test] ]
  2658. 1784.10 s [opt-env-conf-test] ]
  2659. 1784.10 s [opt-env-conf-test] LintErrorNoCommands ->
  2660. 1784.10 s [opt-env-conf-test] [ [ functionChunk "commands",
  2661. 1784.10 s [opt-env-conf-test] " was called with an empty list."
  2662. 1784.10 s [opt-env-conf-test] ]
  2663. 1784.10 s [opt-env-conf-test] ]
  2664. 1784.10 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  2665. 1784.10 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  2666. 1784.10 s [opt-env-conf-test] " was called with an unknown command: ",
  2667. 1784.10 s [opt-env-conf-test] commandChunk c
  2668. 1784.10 s [opt-env-conf-test] ]
  2669. 1784.10 s [opt-env-conf-test] ]
  2670. 1784.10 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  2671. 1784.10 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2672. 1784.10 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  2673. 1784.10 s [opt-env-conf-test] ]
  2674. 1784.10 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  2675. 1784.10 s [opt-env-conf-test] [ [ functionChunk "conf",
  2676. 1784.10 s [opt-env-conf-test] " or ",
  2677. 1784.10 s [opt-env-conf-test] functionChunk "name",
  2678. 1784.10 s [opt-env-conf-test] " was called with no way to load configuration."
  2679. 1784.10 s [opt-env-conf-test] ],
  2680. 1784.10 s [opt-env-conf-test] [ "You can load configuration with ",
  2681. 1784.10 s [opt-env-conf-test] functionChunk "withConfig",
  2682. 1784.10 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  2683. 1784.10 s [opt-env-conf-test] functionChunk "withoutConfig",
  2684. 1784.10 s [opt-env-conf-test] "."
  2685. 1784.10 s [opt-env-conf-test] ]
  2686. 1784.10 s [opt-env-conf-test] ]
  2687. 1784.10 s [opt-env-conf-test] LintErrorManyInfinite ->
  2688. 1784.10 s [opt-env-conf-test] [ [ functionChunk "many",
  2689. 1784.10 s [opt-env-conf-test] " or ",
  2690. 1784.10 s [opt-env-conf-test] functionChunk "some",
  2691. 1784.10 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  2692. 1784.10 s [opt-env-conf-test] ],
  2693. 1784.10 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  2694. 1784.10 s [opt-env-conf-test] ],
  2695. 1784.10 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2696. 1784.10 s [opt-env-conf-test] ]
  2697. 1784.10 s [opt-env-conf-test]
  2698. 1784.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2699. 1784.10 s [opt-env-conf-test] @@ -66,168 +66,157 @@
  2700. 1784.10 s [opt-env-conf-test] renderLintError LintError {..} =
  2701. 1784.10 s [opt-env-conf-test] concat
  2702. 1784.10 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2703. 1784.10 s [opt-env-conf-test] case lintErrorMessage of
  2704. 1784.10 s [opt-env-conf-test] LintErrorUndocumented ->
  2705. 1784.10 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  2706. 1784.10 s [opt-env-conf-test] LintErrorEmptySetting ->
  2707. 1784.10 s [opt-env-conf-test] concat
  2708. 1784.10 s [opt-env-conf-test] [ [ [ "This ",
  2709. 1784.10 s [opt-env-conf-test] functionChunk "setting",
  2710. 1784.10 s [opt-env-conf-test] " parses nothing."
  2711. 1784.10 s [opt-env-conf-test] ]
  2712. 1784.10 s [opt-env-conf-test] ],
  2713. 1784.10 s [opt-env-conf-test] [ [ "Add an ",
  2714. 1784.10 s [opt-env-conf-test] functionChunk "argument",
  2715. 1784.10 s [opt-env-conf-test] ", ",
  2716. 1784.10 s [opt-env-conf-test] functionChunk "switch",
  2717. 1784.10 s [opt-env-conf-test] ", ",
  2718. 1784.10 s [opt-env-conf-test] functionChunk "option",
  2719. 1784.10 s [opt-env-conf-test] ", ",
  2720. 1784.10 s [opt-env-conf-test] functionChunk "env",
  2721. 1784.10 s [opt-env-conf-test] ", ",
  2722. 1784.10 s [opt-env-conf-test] functionChunk "conf",
  2723. 1784.10 s [opt-env-conf-test] ", or ",
  2724. 1784.10 s [opt-env-conf-test] functionChunk "value",
  2725. 1784.10 s [opt-env-conf-test] "."
  2726. 1784.10 s [opt-env-conf-test] ]
  2727. 1784.10 s [opt-env-conf-test] ]
  2728. 1784.10 s [opt-env-conf-test] ]
  2729. 1784.10 s [opt-env-conf-test] LintErrorDashInShort ->
  2730. 1784.10 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  2731. 1784.10 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  2732. 1784.10 s [opt-env-conf-test] ]
  2733. 1784.10 s [opt-env-conf-test] LintErrorDashInLong s ->
  2734. 1784.10 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  2735. 1784.10 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2736. 1784.10 s [opt-env-conf-test] [ "Try ",
  2737. 1784.10 s [opt-env-conf-test] functionChunk "long",
  2738. 1784.10 s [opt-env-conf-test] " ",
  2739. 1784.10 s [opt-env-conf-test] chunk $
  2740. 1784.10 s [opt-env-conf-test] T.pack $
  2741. 1784.10 s [opt-env-conf-test] show $
  2742. 1784.10 s [opt-env-conf-test] let go = \case
  2743. 1784.10 s [opt-env-conf-test] [] -> []
  2744. 1784.10 s [opt-env-conf-test] '-' : cs -> go cs
  2745. 1784.10 s [opt-env-conf-test] c : cs -> c : cs
  2746. 1784.10 s [opt-env-conf-test] in go $ NE.toList s,
  2747. 1784.10 s [opt-env-conf-test] " instead."
  2748. 1784.10 s [opt-env-conf-test] ]
  2749. 1784.10 s [opt-env-conf-test] ]
  2750. 1784.10 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  2751. 1784.10 s [opt-env-conf-test] [ [ functionChunk "argument",
  2752. 1784.10 s [opt-env-conf-test] " has no ",
  2753. 1784.10 s [opt-env-conf-test] functionChunk "reader",
  2754. 1784.10 s [opt-env-conf-test] "."
  2755. 1784.10 s [opt-env-conf-test] ]
  2756. 1784.10 s [opt-env-conf-test] ]
  2757. 1784.10 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  2758. 1784.10 s [opt-env-conf-test] [ [ functionChunk "argument",
  2759. 1784.10 s [opt-env-conf-test] " has no ",
  2760. 1784.10 s [opt-env-conf-test] functionChunk "metavar",
  2761. 1784.10 s [opt-env-conf-test] "."
  2762. 1784.10 s [opt-env-conf-test] ]
  2763. 1784.10 s [opt-env-conf-test] ]
  2764. 1784.10 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  2765. 1784.10 s [opt-env-conf-test] [ [ functionChunk "option",
  2766. 1784.10 s [opt-env-conf-test] " or ",
  2767. 1784.10 s [opt-env-conf-test] functionChunk "name",
  2768. 1784.10 s [opt-env-conf-test] " has no ",
  2769. 1784.10 s [opt-env-conf-test] functionChunk "reader",
  2770. 1784.10 s [opt-env-conf-test] "."
  2771. 1784.10 s [opt-env-conf-test] ]
  2772. 1784.10 s [opt-env-conf-test] ]
  2773. 1784.10 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  2774. 1784.10 s [opt-env-conf-test] [ [ functionChunk "option",
  2775. 1784.10 s [opt-env-conf-test] " has no ",
  2776. 1784.10 s [opt-env-conf-test] functionChunk "long",
  2777. 1784.10 s [opt-env-conf-test] " or ",
  2778. 1784.10 s [opt-env-conf-test] functionChunk "short",
  2779. 1784.11 s [opt-env-conf-test] "."
  2780. 1784.11 s [opt-env-conf-test] ]
  2781. 1784.11 s [opt-env-conf-test] ]
  2782. 1784.11 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  2783. 1784.11 s [opt-env-conf-test] [ [ functionChunk "option",
  2784. 1784.11 s [opt-env-conf-test] " or ",
  2785. 1784.11 s [opt-env-conf-test] functionChunk "name",
  2786. 1784.11 s [opt-env-conf-test] " has no ",
  2787. 1784.11 s [opt-env-conf-test] functionChunk "metavar",
  2788. 1784.11 s [opt-env-conf-test] "."
  2789. 1784.11 s [opt-env-conf-test] ]
  2790. 1784.11 s [opt-env-conf-test] ]
  2791. 1784.11 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  2792. 1784.11 s [opt-env-conf-test] [ [ functionChunk "switch",
  2793. 1784.11 s [opt-env-conf-test] " has no ",
  2794. 1784.11 s [opt-env-conf-test] functionChunk "long",
  2795. 1784.11 s [opt-env-conf-test] " or ",
  2796. 1784.11 s [opt-env-conf-test] functionChunk "short",
  2797. 1784.11 s [opt-env-conf-test] "."
  2798. 1784.11 s [opt-env-conf-test] ]
  2799. 1784.11 s [opt-env-conf-test] ]
  2800. 1784.11 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  2801. 1784.11 s [opt-env-conf-test] - [ [ functionChunk "long",
  2802. 1784.11 s [opt-env-conf-test] - " or ",
  2803. 1784.11 s [opt-env-conf-test] - functionChunk "short",
  2804. 1784.11 s [opt-env-conf-test] - " has no ",
  2805. 1784.11 s [opt-env-conf-test] - functionChunk "option",
  2806. 1784.11 s [opt-env-conf-test] - " or ",
  2807. 1784.11 s [opt-env-conf-test] - functionChunk "switch",
  2808. 1784.11 s [opt-env-conf-test] - "."
  2809. 1784.11 s [opt-env-conf-test] - ]
  2810. 1784.11 s [opt-env-conf-test] - ]
  2811. 1784.11 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  2812. 1784.11 s [opt-env-conf-test] [ [ functionChunk "env",
  2813. 1784.11 s [opt-env-conf-test] " or ",
  2814. 1784.11 s [opt-env-conf-test] functionChunk "name",
  2815. 1784.11 s [opt-env-conf-test] " has no ",
  2816. 1784.11 s [opt-env-conf-test] functionChunk "reader",
  2817. 1784.11 s [opt-env-conf-test] "."
  2818. 1784.11 s [opt-env-conf-test] ]
  2819. 1784.11 s [opt-env-conf-test] ]
  2820. 1784.11 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  2821. 1784.11 s [opt-env-conf-test] [ [ functionChunk "env",
  2822. 1784.11 s [opt-env-conf-test] " or ",
  2823. 1784.11 s [opt-env-conf-test] functionChunk "name",
  2824. 1784.11 s [opt-env-conf-test] " has no ",
  2825. 1784.11 s [opt-env-conf-test] functionChunk "metavar",
  2826. 1784.11 s [opt-env-conf-test] "."
  2827. 1784.11 s [opt-env-conf-test] ]
  2828. 1784.11 s [opt-env-conf-test] ]
  2829. 1784.11 s [opt-env-conf-test] LintErrorNoCommands ->
  2830. 1784.22 s [opt-env-conf-test] [ [ functionChunk "commands",
  2831. 1784.22 s [opt-env-conf-test] " was called with an empty list."
  2832. 1784.22 s [opt-env-conf-test] ]
  2833. 1784.22 s [opt-env-conf-test] ]
  2834. 1784.22 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  2835. 1784.22 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  2836. 1784.22 s [opt-env-conf-test] " was called with an unknown command: ",
  2837. 1784.22 s [opt-env-conf-test] commandChunk c
  2838. 1784.22 s [opt-env-conf-test] ]
  2839. 1784.22 s [opt-env-conf-test] ]
  2840. 1784.22 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  2841. 1784.22 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2842. 1784.22 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  2843. 1784.22 s [opt-env-conf-test] ]
  2844. 1784.22 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  2845. 1784.22 s [opt-env-conf-test] [ [ functionChunk "conf",
  2846. 1784.22 s [opt-env-conf-test] " or ",
  2847. 1784.23 s [opt-env-conf-test] functionChunk "name",
  2848. 1784.23 s [opt-env-conf-test] " was called with no way to load configuration."
  2849. 1784.23 s [opt-env-conf-test] ],
  2850. 1784.23 s [opt-env-conf-test] [ "You can load configuration with ",
  2851. 1784.23 s [opt-env-conf-test] functionChunk "withConfig",
  2852. 1784.23 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  2853. 1784.23 s [opt-env-conf-test] functionChunk "withoutConfig",
  2854. 1784.23 s [opt-env-conf-test] "."
  2855. 1784.23 s [opt-env-conf-test] ]
  2856. 1784.23 s [opt-env-conf-test] ]
  2857. 1784.23 s [opt-env-conf-test] LintErrorManyInfinite ->
  2858. 1784.23 s [opt-env-conf-test] [ [ functionChunk "many",
  2859. 1784.23 s [opt-env-conf-test] " or ",
  2860. 1784.23 s [opt-env-conf-test] functionChunk "some",
  2861. 1784.23 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  2862. 1784.23 s [opt-env-conf-test] ],
  2863. 1784.23 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  2864. 1784.23 s [opt-env-conf-test] ],
  2865. 1784.23 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2866. 1784.23 s [opt-env-conf-test] ]
  2867. 1784.23 s [opt-env-conf-test]
  2868. 1784.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2869. 1784.23 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  2870. 1784.23 s [opt-env-conf-test] renderLintError LintError {..} =
  2871. 1784.23 s [opt-env-conf-test] concat
  2872. 1784.23 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2873. 1784.23 s [opt-env-conf-test] case lintErrorMessage of
  2874. 1784.23 s [opt-env-conf-test] LintErrorUndocumented ->
  2875. 1784.23 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  2876. 1784.23 s [opt-env-conf-test] LintErrorEmptySetting ->
  2877. 1784.23 s [opt-env-conf-test] concat
  2878. 1784.23 s [opt-env-conf-test] [ [ [ "This ",
  2879. 1784.23 s [opt-env-conf-test] functionChunk "setting",
  2880. 1784.23 s [opt-env-conf-test] " parses nothing."
  2881. 1784.23 s [opt-env-conf-test] ]
  2882. 1784.23 s [opt-env-conf-test] ],
  2883. 1784.23 s [opt-env-conf-test] [ [ "Add an ",
  2884. 1784.23 s [opt-env-conf-test] functionChunk "argument",
  2885. 1784.23 s [opt-env-conf-test] ", ",
  2886. 1784.23 s [opt-env-conf-test] functionChunk "switch",
  2887. 1784.23 s [opt-env-conf-test] ", ",
  2888. 1784.23 s [opt-env-conf-test] functionChunk "option",
  2889. 1784.23 s [opt-env-conf-test] ", ",
  2890. 1784.23 s [opt-env-conf-test] functionChunk "env",
  2891. 1784.23 s [opt-env-conf-test] ", ",
  2892. 1784.23 s [opt-env-conf-test] functionChunk "conf",
  2893. 1784.23 s [opt-env-conf-test] ", or ",
  2894. 1784.23 s [opt-env-conf-test] functionChunk "value",
  2895. 1784.23 s [opt-env-conf-test] "."
  2896. 1784.23 s [opt-env-conf-test] ]
  2897. 1784.23 s [opt-env-conf-test] ]
  2898. 1784.23 s [opt-env-conf-test] ]
  2899. 1784.23 s [opt-env-conf-test] LintErrorDashInShort ->
  2900. 1784.23 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  2901. 1784.23 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  2902. 1784.23 s [opt-env-conf-test] ]
  2903. 1784.23 s [opt-env-conf-test] LintErrorDashInLong s ->
  2904. 1784.23 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  2905. 1784.23 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2906. 1784.24 s [opt-env-conf-test] [ "Try ",
  2907. 1784.24 s [opt-env-conf-test] functionChunk "long",
  2908. 1784.24 s [opt-env-conf-test] " ",
  2909. 1784.24 s [opt-env-conf-test] chunk $
  2910. 1784.24 s [opt-env-conf-test] T.pack $
  2911. 1784.24 s [opt-env-conf-test] show $
  2912. 1784.24 s [opt-env-conf-test] let go = \case
  2913. 1784.24 s [opt-env-conf-test] [] -> []
  2914. 1784.24 s [opt-env-conf-test] '-' : cs -> go cs
  2915. 1784.24 s [opt-env-conf-test] c : cs -> c : cs
  2916. 1784.24 s [opt-env-conf-test] in go $ NE.toList s,
  2917. 1784.24 s [opt-env-conf-test] " instead."
  2918. 1784.24 s [opt-env-conf-test] ]
  2919. 1784.24 s [opt-env-conf-test] ]
  2920. 1784.24 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  2921. 1784.24 s [opt-env-conf-test] [ [ functionChunk "argument",
  2922. 1784.24 s [opt-env-conf-test] " has no ",
  2923. 1784.24 s [opt-env-conf-test] functionChunk "reader",
  2924. 1784.24 s [opt-env-conf-test] "."
  2925. 1784.24 s [opt-env-conf-test] ]
  2926. 1784.24 s [opt-env-conf-test] ]
  2927. 1784.24 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  2928. 1784.24 s [opt-env-conf-test] [ [ functionChunk "argument",
  2929. 1784.24 s [opt-env-conf-test] " has no ",
  2930. 1784.24 s [opt-env-conf-test] functionChunk "metavar",
  2931. 1784.24 s [opt-env-conf-test] "."
  2932. 1784.24 s [opt-env-conf-test] ]
  2933. 1784.24 s [opt-env-conf-test] ]
  2934. 1784.24 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  2935. 1784.24 s [opt-env-conf-test] [ [ functionChunk "option",
  2936. 1784.24 s [opt-env-conf-test] " or ",
  2937. 1784.24 s [opt-env-conf-test] functionChunk "name",
  2938. 1784.24 s [opt-env-conf-test] " has no ",
  2939. 1784.24 s [opt-env-conf-test] functionChunk "reader",
  2940. 1784.24 s [opt-env-conf-test] "."
  2941. 1784.24 s [opt-env-conf-test] ]
  2942. 1784.24 s [opt-env-conf-test] ]
  2943. 1784.24 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  2944. 1784.25 s [opt-env-conf-test] [ [ functionChunk "option",
  2945. 1784.25 s [opt-env-conf-test] " has no ",
  2946. 1784.25 s [opt-env-conf-test] functionChunk "long",
  2947. 1784.25 s [opt-env-conf-test] " or ",
  2948. 1784.25 s [opt-env-conf-test] functionChunk "short",
  2949. 1784.25 s [opt-env-conf-test] "."
  2950. 1784.25 s [opt-env-conf-test] ]
  2951. 1784.25 s [opt-env-conf-test] ]
  2952. 1784.25 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  2953. 1784.25 s [opt-env-conf-test] [ [ functionChunk "option",
  2954. 1784.25 s [opt-env-conf-test] " or ",
  2955. 1784.25 s [opt-env-conf-test] functionChunk "name",
  2956. 1784.25 s [opt-env-conf-test] " has no ",
  2957. 1784.25 s [opt-env-conf-test] functionChunk "metavar",
  2958. 1784.25 s [opt-env-conf-test] "."
  2959. 1784.25 s [opt-env-conf-test] ]
  2960. 1784.25 s [opt-env-conf-test] ]
  2961. 1784.25 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  2962. 1784.25 s [opt-env-conf-test] [ [ functionChunk "switch",
  2963. 1784.25 s [opt-env-conf-test] " has no ",
  2964. 1784.25 s [opt-env-conf-test] functionChunk "long",
  2965. 1784.25 s [opt-env-conf-test] " or ",
  2966. 1784.25 s [opt-env-conf-test] functionChunk "short",
  2967. 1784.25 s [opt-env-conf-test] "."
  2968. 1784.25 s [opt-env-conf-test] ]
  2969. 1784.25 s [opt-env-conf-test] ]
  2970. 1784.25 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  2971. 1784.25 s [opt-env-conf-test] [ [ functionChunk "long",
  2972. 1784.25 s [opt-env-conf-test] " or ",
  2973. 1784.25 s [opt-env-conf-test] functionChunk "short",
  2974. 1784.25 s [opt-env-conf-test] " has no ",
  2975. 1784.25 s [opt-env-conf-test] functionChunk "option",
  2976. 1784.25 s [opt-env-conf-test] " or ",
  2977. 1784.25 s [opt-env-conf-test] functionChunk "switch",
  2978. 1784.25 s [opt-env-conf-test] "."
  2979. 1784.25 s [opt-env-conf-test] ]
  2980. 1784.25 s [opt-env-conf-test] ]
  2981. 1784.25 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  2982. 1784.25 s [opt-env-conf-test] [ [ functionChunk "env",
  2983. 1784.25 s [opt-env-conf-test] " or ",
  2984. 1784.25 s [opt-env-conf-test] functionChunk "name",
  2985. 1784.25 s [opt-env-conf-test] " has no ",
  2986. 1784.25 s [opt-env-conf-test] functionChunk "reader",
  2987. 1784.25 s [opt-env-conf-test] "."
  2988. 1784.25 s [opt-env-conf-test] ]
  2989. 1784.25 s [opt-env-conf-test] ]
  2990. 1784.25 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  2991. 1784.25 s [opt-env-conf-test] - [ [ functionChunk "env",
  2992. 1784.25 s [opt-env-conf-test] - " or ",
  2993. 1784.25 s [opt-env-conf-test] - functionChunk "name",
  2994. 1784.25 s [opt-env-conf-test] - " has no ",
  2995. 1784.25 s [opt-env-conf-test] - functionChunk "metavar",
  2996. 1784.25 s [opt-env-conf-test] - "."
  2997. 1784.25 s [opt-env-conf-test] - ]
  2998. 1784.25 s [opt-env-conf-test] - ]
  2999. 1784.25 s [opt-env-conf-test] LintErrorNoCommands ->
  3000. 1784.78 s [opt-env-conf-test] [ [ functionChunk "commands",
  3001. 1784.78 s [opt-env-conf-test] " was called with an empty list."
  3002. 1784.78 s [opt-env-conf-test] ]
  3003. 1784.78 s [opt-env-conf-test] ]
  3004. 1784.78 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  3005. 1784.78 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  3006. 1784.78 s [opt-env-conf-test] " was called with an unknown command: ",
  3007. 1784.79 s [opt-env-conf-test] commandChunk c
  3008. 1784.79 s [opt-env-conf-test] ]
  3009. 1784.79 s [opt-env-conf-test] ]
  3010. 1784.79 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  3011. 1784.79 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3012. 1784.79 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  3013. 1784.79 s [opt-env-conf-test] ]
  3014. 1784.79 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  3015. 1784.79 s [opt-env-conf-test] [ [ functionChunk "conf",
  3016. 1784.79 s [opt-env-conf-test] " or ",
  3017. 1784.79 s [opt-env-conf-test] functionChunk "name",
  3018. 1784.79 s [opt-env-conf-test] " was called with no way to load configuration."
  3019. 1784.79 s [opt-env-conf-test] ],
  3020. 1784.79 s [opt-env-conf-test] [ "You can load configuration with ",
  3021. 1784.79 s [opt-env-conf-test] functionChunk "withConfig",
  3022. 1784.79 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  3023. 1784.79 s [opt-env-conf-test] functionChunk "withoutConfig",
  3024. 1784.79 s [opt-env-conf-test] "."
  3025. 1784.79 s [opt-env-conf-test] ]
  3026. 1784.79 s [opt-env-conf-test] ]
  3027. 1784.79 s [opt-env-conf-test] LintErrorManyInfinite ->
  3028. 1784.79 s [opt-env-conf-test] [ [ functionChunk "many",
  3029. 1784.79 s [opt-env-conf-test] " or ",
  3030. 1784.79 s [opt-env-conf-test] functionChunk "some",
  3031. 1784.79 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  3032. 1784.79 s [opt-env-conf-test] ],
  3033. 1784.79 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  3034. 1784.79 s [opt-env-conf-test] ],
  3035. 1784.79 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3036. 1784.79 s [opt-env-conf-test] ]
  3037. 1784.79 s [opt-env-conf-test]
  3038. 1784.79 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  3039. 1784.79 s [opt-env-conf-test] @@ -66,168 +66,163 @@
  3040. 1784.79 s [opt-env-conf-test] renderLintError LintError {..} =
  3041. 1784.79 s [opt-env-conf-test] concat
  3042. 1784.79 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  3043. 1784.79 s [opt-env-conf-test] case lintErrorMessage of
  3044. 1784.79 s [opt-env-conf-test] LintErrorUndocumented ->
  3045. 1784.79 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  3046. 1784.79 s [opt-env-conf-test] LintErrorEmptySetting ->
  3047. 1784.79 s [opt-env-conf-test] concat
  3048. 1784.79 s [opt-env-conf-test] [ [ [ "This ",
  3049. 1784.79 s [opt-env-conf-test] functionChunk "setting",
  3050. 1784.79 s [opt-env-conf-test] " parses nothing."
  3051. 1784.79 s [opt-env-conf-test] ]
  3052. 1784.79 s [opt-env-conf-test] ],
  3053. 1784.79 s [opt-env-conf-test] [ [ "Add an ",
  3054. 1784.79 s [opt-env-conf-test] functionChunk "argument",
  3055. 1784.79 s [opt-env-conf-test] ", ",
  3056. 1784.79 s [opt-env-conf-test] functionChunk "switch",
  3057. 1784.79 s [opt-env-conf-test] ", ",
  3058. 1784.79 s [opt-env-conf-test] functionChunk "option",
  3059. 1784.79 s [opt-env-conf-test] ", ",
  3060. 1784.79 s [opt-env-conf-test] functionChunk "env",
  3061. 1784.79 s [opt-env-conf-test] ", ",
  3062. 1784.79 s [opt-env-conf-test] functionChunk "conf",
  3063. 1784.79 s [opt-env-conf-test] ", or ",
  3064. 1784.79 s [opt-env-conf-test] functionChunk "value",
  3065. 1784.79 s [opt-env-conf-test] "."
  3066. 1784.79 s [opt-env-conf-test] ]
  3067. 1784.79 s [opt-env-conf-test] ]
  3068. 1784.79 s [opt-env-conf-test] ]
  3069. 1784.79 s [opt-env-conf-test] LintErrorDashInShort ->
  3070. 1784.79 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  3071. 1784.79 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  3072. 1784.79 s [opt-env-conf-test] ]
  3073. 1784.79 s [opt-env-conf-test] LintErrorDashInLong s ->
  3074. 1784.79 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  3075. 1784.79 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3076. 1784.79 s [opt-env-conf-test] [ "Try ",
  3077. 1784.79 s [opt-env-conf-test] functionChunk "long",
  3078. 1784.79 s [opt-env-conf-test] " ",
  3079. 1784.79 s [opt-env-conf-test] chunk $
  3080. 1784.79 s [opt-env-conf-test] T.pack $
  3081. 1784.79 s [opt-env-conf-test] show $
  3082. 1784.79 s [opt-env-conf-test] let go = \case
  3083. 1784.79 s [opt-env-conf-test] [] -> []
  3084. 1784.79 s [opt-env-conf-test] '-' : cs -> go cs
  3085. 1784.79 s [opt-env-conf-test] c : cs -> c : cs
  3086. 1784.79 s [opt-env-conf-test] in go $ NE.toList s,
  3087. 1784.79 s [opt-env-conf-test] " instead."
  3088. 1784.79 s [opt-env-conf-test] ]
  3089. 1784.79 s [opt-env-conf-test] ]
  3090. 1784.79 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  3091. 1784.79 s [opt-env-conf-test] [ [ functionChunk "argument",
  3092. 1784.79 s [opt-env-conf-test] " has no ",
  3093. 1784.80 s [opt-env-conf-test] functionChunk "reader",
  3094. 1784.80 s [opt-env-conf-test] "."
  3095. 1784.80 s [opt-env-conf-test] ]
  3096. 1784.80 s [opt-env-conf-test] ]
  3097. 1784.80 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  3098. 1784.80 s [opt-env-conf-test] [ [ functionChunk "argument",
  3099. 1784.80 s [opt-env-conf-test] " has no ",
  3100. 1784.80 s [opt-env-conf-test] functionChunk "metavar",
  3101. 1784.80 s [opt-env-conf-test] "."
  3102. 1784.80 s [opt-env-conf-test] ]
  3103. 1784.80 s [opt-env-conf-test] ]
  3104. 1784.80 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  3105. 1784.80 s [opt-env-conf-test] [ [ functionChunk "option",
  3106. 1784.80 s [opt-env-conf-test] " or ",
  3107. 1784.80 s [opt-env-conf-test] functionChunk "name",
  3108. 1784.80 s [opt-env-conf-test] " has no ",
  3109. 1784.80 s [opt-env-conf-test] functionChunk "reader",
  3110. 1784.80 s [opt-env-conf-test] "."
  3111. 1784.80 s [opt-env-conf-test] ]
  3112. 1784.80 s [opt-env-conf-test] ]
  3113. 1784.80 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  3114. 1784.80 s [opt-env-conf-test] [ [ functionChunk "option",
  3115. 1784.80 s [opt-env-conf-test] " has no ",
  3116. 1784.80 s [opt-env-conf-test] functionChunk "long",
  3117. 1784.80 s [opt-env-conf-test] " or ",
  3118. 1784.80 s [opt-env-conf-test] functionChunk "short",
  3119. 1784.80 s [opt-env-conf-test] "."
  3120. 1784.80 s [opt-env-conf-test] ]
  3121. 1784.80 s [opt-env-conf-test] ]
  3122. 1784.80 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  3123. 1784.80 s [opt-env-conf-test] [ [ functionChunk "option",
  3124. 1784.80 s [opt-env-conf-test] " or ",
  3125. 1784.80 s [opt-env-conf-test] functionChunk "name",
  3126. 1784.80 s [opt-env-conf-test] " has no ",
  3127. 1784.80 s [opt-env-conf-test] functionChunk "metavar",
  3128. 1784.80 s [opt-env-conf-test] "."
  3129. 1784.80 s [opt-env-conf-test] ]
  3130. 1784.80 s [opt-env-conf-test] ]
  3131. 1784.80 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  3132. 1784.80 s [opt-env-conf-test] [ [ functionChunk "switch",
  3133. 1784.80 s [opt-env-conf-test] " has no ",
  3134. 1784.80 s [opt-env-conf-test] functionChunk "long",
  3135. 1784.80 s [opt-env-conf-test] " or ",
  3136. 1784.80 s [opt-env-conf-test] functionChunk "short",
  3137. 1784.80 s [opt-env-conf-test] "."
  3138. 1784.80 s [opt-env-conf-test] ]
  3139. 1784.80 s [opt-env-conf-test] ]
  3140. 1784.80 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  3141. 1784.80 s [opt-env-conf-test] [ [ functionChunk "long",
  3142. 1784.80 s [opt-env-conf-test] " or ",
  3143. 1784.80 s [opt-env-conf-test] functionChunk "short",
  3144. 1784.80 s [opt-env-conf-test] " has no ",
  3145. 1784.80 s [opt-env-conf-test] functionChunk "option",
  3146. 1784.80 s [opt-env-conf-test] " or ",
  3147. 1784.80 s [opt-env-conf-test] functionChunk "switch",
  3148. 1784.80 s [opt-env-conf-test] "."
  3149. 1784.80 s [opt-env-conf-test] ]
  3150. 1784.80 s [opt-env-conf-test] ]
  3151. 1784.80 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  3152. 1784.80 s [opt-env-conf-test] [ [ functionChunk "env",
  3153. 1784.80 s [opt-env-conf-test] " or ",
  3154. 1784.80 s [opt-env-conf-test] functionChunk "name",
  3155. 1784.80 s [opt-env-conf-test] " has no ",
  3156. 1784.80 s [opt-env-conf-test] functionChunk "reader",
  3157. 1784.80 s [opt-env-conf-test] "."
  3158. 1784.80 s [opt-env-conf-test] ]
  3159. 1784.80 s [opt-env-conf-test] ]
  3160. 1784.80 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  3161. 1784.80 s [opt-env-conf-test] [ [ functionChunk "env",
  3162. 1784.80 s [opt-env-conf-test] " or ",
  3163. 1784.80 s [opt-env-conf-test] functionChunk "name",
  3164. 1784.80 s [opt-env-conf-test] " has no ",
  3165. 1784.80 s [opt-env-conf-test] functionChunk "metavar",
  3166. 1784.80 s [opt-env-conf-test] "."
  3167. 1784.80 s [opt-env-conf-test] ]
  3168. 1784.80 s [opt-env-conf-test] ]
  3169. 1784.80 s [opt-env-conf-test] - LintErrorNoCommands ->
  3170. 1784.80 s [opt-env-conf-test] - [ [ functionChunk "commands",
  3171. 1784.83 s [opt-env-conf-test] - " was called with an empty list."
  3172. 1784.83 s [opt-env-conf-test] - ]
  3173. 1784.83 s [opt-env-conf-test] - ]
  3174. 1784.83 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  3175. 1784.83 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  3176. 1784.83 s [opt-env-conf-test] " was called with an unknown command: ",
  3177. 1784.83 s [opt-env-conf-test] commandChunk c
  3178. 1784.83 s [opt-env-conf-test] ]
  3179. 1784.83 s [opt-env-conf-test] ]
  3180. 1784.83 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  3181. 1784.83 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3182. 1784.83 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  3183. 1784.83 s [opt-env-conf-test] ]
  3184. 1784.83 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  3185. 1784.83 s [opt-env-conf-test] [ [ functionChunk "conf",
  3186. 1784.83 s [opt-env-conf-test] " or ",
  3187. 1784.83 s [opt-env-conf-test] functionChunk "name",
  3188. 1784.83 s [opt-env-conf-test] " was called with no way to load configuration."
  3189. 1784.83 s [opt-env-conf-test] ],
  3190. 1784.83 s [opt-env-conf-test] [ "You can load configuration with ",
  3191. 1784.83 s [opt-env-conf-test] functionChunk "withConfig",
  3192. 1784.83 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  3193. 1784.83 s [opt-env-conf-test] functionChunk "withoutConfig",
  3194. 1784.83 s [opt-env-conf-test] "."
  3195. 1784.83 s [opt-env-conf-test] ]
  3196. 1784.83 s [opt-env-conf-test] ]
  3197. 1784.83 s [opt-env-conf-test] LintErrorManyInfinite ->
  3198. 1784.83 s [opt-env-conf-test] [ [ functionChunk "many",
  3199. 1784.83 s [opt-env-conf-test] " or ",
  3200. 1784.83 s [opt-env-conf-test] functionChunk "some",
  3201. 1784.83 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  3202. 1784.83 s [opt-env-conf-test] ],
  3203. 1784.83 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  3204. 1784.83 s [opt-env-conf-test] ],
  3205. 1784.83 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3206. 1784.83 s [opt-env-conf-test] ]
  3207. 1784.83 s [opt-env-conf-test]
  3208. 1784.83 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  3209. 1784.83 s [opt-env-conf-test] @@ -66,168 +66,155 @@
  3210. 1784.83 s [opt-env-conf-test] renderLintError LintError {..} =
  3211. 1784.83 s [opt-env-conf-test] concat
  3212. 1784.83 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  3213. 1784.83 s [opt-env-conf-test] case lintErrorMessage of
  3214. 1784.83 s [opt-env-conf-test] LintErrorUndocumented ->
  3215. 1784.83 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  3216. 1784.83 s [opt-env-conf-test] LintErrorEmptySetting ->
  3217. 1784.83 s [opt-env-conf-test] concat
  3218. 1784.83 s [opt-env-conf-test] [ [ [ "This ",
  3219. 1784.83 s [opt-env-conf-test] functionChunk "setting",
  3220. 1784.83 s [opt-env-conf-test] " parses nothing."
  3221. 1784.83 s [opt-env-conf-test] ]
  3222. 1784.83 s [opt-env-conf-test] ],
  3223. 1784.83 s [opt-env-conf-test] [ [ "Add an ",
  3224. 1784.84 s [opt-env-conf-test] functionChunk "argument",
  3225. 1784.84 s [opt-env-conf-test] ", ",
  3226. 1784.84 s [opt-env-conf-test] functionChunk "switch",
  3227. 1784.84 s [opt-env-conf-test] ", ",
  3228. 1784.84 s [opt-env-conf-test] functionChunk "option",
  3229. 1784.84 s [opt-env-conf-test] ", ",
  3230. 1784.84 s [opt-env-conf-test] functionChunk "env",
  3231. 1784.84 s [opt-env-conf-test] ", ",
  3232. 1784.84 s [opt-env-conf-test] functionChunk "conf",
  3233. 1784.84 s [opt-env-conf-test] ", or ",
  3234. 1784.84 s [opt-env-conf-test] functionChunk "value",
  3235. 1784.84 s [opt-env-conf-test] "."
  3236. 1784.84 s [opt-env-conf-test] ]
  3237. 1784.84 s [opt-env-conf-test] ]
  3238. 1784.84 s [opt-env-conf-test] ]
  3239. 1784.84 s [opt-env-conf-test] LintErrorDashInShort ->
  3240. 1784.84 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  3241. 1784.84 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  3242. 1784.84 s [opt-env-conf-test] ]
  3243. 1784.84 s [opt-env-conf-test] LintErrorDashInLong s ->
  3244. 1784.84 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  3245. 1784.84 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3246. 1784.84 s [opt-env-conf-test] [ "Try ",
  3247. 1784.84 s [opt-env-conf-test] functionChunk "long",
  3248. 1784.84 s [opt-env-conf-test] " ",
  3249. 1784.84 s [opt-env-conf-test] chunk $
  3250. 1784.84 s [opt-env-conf-test] T.pack $
  3251. 1784.84 s [opt-env-conf-test] show $
  3252. 1784.84 s [opt-env-conf-test] let go = \case
  3253. 1784.84 s [opt-env-conf-test] [] -> []
  3254. 1784.84 s [opt-env-conf-test] '-' : cs -> go cs
  3255. 1784.84 s [opt-env-conf-test] c : cs -> c : cs
  3256. 1784.84 s [opt-env-conf-test] in go $ NE.toList s,
  3257. 1784.84 s [opt-env-conf-test] " instead."
  3258. 1784.84 s [opt-env-conf-test] ]
  3259. 1784.84 s [opt-env-conf-test] ]
  3260. 1784.84 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  3261. 1784.84 s [opt-env-conf-test] [ [ functionChunk "argument",
  3262. 1784.84 s [opt-env-conf-test] " has no ",
  3263. 1784.84 s [opt-env-conf-test] functionChunk "reader",
  3264. 1784.84 s [opt-env-conf-test] "."
  3265. 1784.84 s [opt-env-conf-test] ]
  3266. 1784.84 s [opt-env-conf-test] ]
  3267. 1784.84 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  3268. 1784.84 s [opt-env-conf-test] [ [ functionChunk "argument",
  3269. 1784.84 s [opt-env-conf-test] " has no ",
  3270. 1784.84 s [opt-env-conf-test] functionChunk "metavar",
  3271. 1784.84 s [opt-env-conf-test] "."
  3272. 1784.84 s [opt-env-conf-test] ]
  3273. 1784.84 s [opt-env-conf-test] ]
  3274. 1784.84 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  3275. 1784.84 s [opt-env-conf-test] [ [ functionChunk "option",
  3276. 1784.84 s [opt-env-conf-test] " or ",
  3277. 1784.84 s [opt-env-conf-test] functionChunk "name",
  3278. 1784.84 s [opt-env-conf-test] " has no ",
  3279. 1784.84 s [opt-env-conf-test] functionChunk "reader",
  3280. 1784.84 s [opt-env-conf-test] "."
  3281. 1784.84 s [opt-env-conf-test] ]
  3282. 1784.84 s [opt-env-conf-test] ]
  3283. 1784.84 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  3284. 1784.85 s [opt-env-conf-test] [ [ functionChunk "option",
  3285. 1784.85 s [opt-env-conf-test] " has no ",
  3286. 1784.85 s [opt-env-conf-test] functionChunk "long",
  3287. 1784.85 s [opt-env-conf-test] " or ",
  3288. 1784.85 s [opt-env-conf-test] functionChunk "short",
  3289. 1784.85 s [opt-env-conf-test] "."
  3290. 1784.85 s [opt-env-conf-test] ]
  3291. 1784.85 s [opt-env-conf-test] ]
  3292. 1784.85 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  3293. 1784.85 s [opt-env-conf-test] [ [ functionChunk "option",
  3294. 1784.85 s [opt-env-conf-test] " or ",
  3295. 1784.85 s [opt-env-conf-test] functionChunk "name",
  3296. 1784.85 s [opt-env-conf-test] " has no ",
  3297. 1784.85 s [opt-env-conf-test] functionChunk "metavar",
  3298. 1784.85 s [opt-env-conf-test] "."
  3299. 1784.85 s [opt-env-conf-test] ]
  3300. 1784.85 s [opt-env-conf-test] ]
  3301. 1784.85 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  3302. 1784.85 s [opt-env-conf-test] [ [ functionChunk "switch",
  3303. 1784.85 s [opt-env-conf-test] " has no ",
  3304. 1784.85 s [opt-env-conf-test] functionChunk "long",
  3305. 1784.85 s [opt-env-conf-test] " or ",
  3306. 1784.85 s [opt-env-conf-test] functionChunk "short",
  3307. 1784.85 s [opt-env-conf-test] "."
  3308. 1784.85 s [opt-env-conf-test] ]
  3309. 1784.85 s [opt-env-conf-test] ]
  3310. 1784.85 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  3311. 1784.85 s [opt-env-conf-test] [ [ functionChunk "long",
  3312. 1784.85 s [opt-env-conf-test] " or ",
  3313. 1784.85 s [opt-env-conf-test] functionChunk "short",
  3314. 1784.85 s [opt-env-conf-test] " has no ",
  3315. 1784.85 s [opt-env-conf-test] functionChunk "option",
  3316. 1784.85 s [opt-env-conf-test] " or ",
  3317. 1784.85 s [opt-env-conf-test] functionChunk "switch",
  3318. 1784.85 s [opt-env-conf-test] "."
  3319. 1784.85 s [opt-env-conf-test] ]
  3320. 1784.85 s [opt-env-conf-test] ]
  3321. 1784.85 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  3322. 1784.85 s [opt-env-conf-test] [ [ functionChunk "env",
  3323. 1784.85 s [opt-env-conf-test] " or ",
  3324. 1784.85 s [opt-env-conf-test] functionChunk "name",
  3325. 1784.85 s [opt-env-conf-test] " has no ",
  3326. 1784.85 s [opt-env-conf-test] functionChunk "reader",
  3327. 1784.85 s [opt-env-conf-test] "."
  3328. 1784.85 s [opt-env-conf-test] ]
  3329. 1784.85 s [opt-env-conf-test] ]
  3330. 1784.85 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  3331. 1784.85 s [opt-env-conf-test] [ [ functionChunk "env",
  3332. 1784.85 s [opt-env-conf-test] " or ",
  3333. 1784.85 s [opt-env-conf-test] functionChunk "name",
  3334. 1784.85 s [opt-env-conf-test] " has no ",
  3335. 1784.85 s [opt-env-conf-test] functionChunk "metavar",
  3336. 1784.85 s [opt-env-conf-test] "."
  3337. 1784.85 s [opt-env-conf-test] ]
  3338. 1784.85 s [opt-env-conf-test] ]
  3339. 1784.85 s [opt-env-conf-test] LintErrorNoCommands ->
  3340. 1784.85 s [opt-env-conf-test] [ [ functionChunk "commands",
  3341. 1784.85 s [opt-env-conf-test] " was called with an empty list."
  3342. 1785.94 s [opt-env-conf-test] ]
  3343. 1785.94 s [opt-env-conf-test] ]
  3344. 1785.94 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  3345. 1785.94 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  3346. 1785.94 s [opt-env-conf-test] " was called with an unknown command: ",
  3347. 1785.94 s [opt-env-conf-test] commandChunk c
  3348. 1785.94 s [opt-env-conf-test] ]
  3349. 1785.94 s [opt-env-conf-test] ]
  3350. 1785.94 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  3351. 1785.94 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3352. 1785.95 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  3353. 1785.95 s [opt-env-conf-test] ]
  3354. 1785.95 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  3355. 1785.95 s [opt-env-conf-test] - [ [ functionChunk "conf",
  3356. 1785.95 s [opt-env-conf-test] - " or ",
  3357. 1785.95 s [opt-env-conf-test] - functionChunk "name",
  3358. 1785.95 s [opt-env-conf-test] - " was called with no way to load configuration."
  3359. 1785.95 s [opt-env-conf-test] - ],
  3360. 1785.95 s [opt-env-conf-test] - [ "You can load configuration with ",
  3361. 1785.95 s [opt-env-conf-test] - functionChunk "withConfig",
  3362. 1785.95 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  3363. 1785.95 s [opt-env-conf-test] - functionChunk "withoutConfig",
  3364. 1785.95 s [opt-env-conf-test] - "."
  3365. 1785.95 s [opt-env-conf-test] - ]
  3366. 1785.95 s [opt-env-conf-test] - ]
  3367. 1785.95 s [opt-env-conf-test] LintErrorManyInfinite ->
  3368. 1785.95 s [opt-env-conf-test] [ [ functionChunk "many",
  3369. 1785.95 s [opt-env-conf-test] " or ",
  3370. 1785.95 s [opt-env-conf-test] functionChunk "some",
  3371. 1785.95 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  3372. 1785.95 s [opt-env-conf-test] ],
  3373. 1785.95 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  3374. 1785.95 s [opt-env-conf-test] ],
  3375. 1785.95 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3376. 1785.95 s [opt-env-conf-test] ]
  3377. 1785.95 s [opt-env-conf-test]
  3378. 1785.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  3379. 1785.95 s [opt-env-conf-test] @@ -66,168 +66,160 @@
  3380. 1785.95 s [opt-env-conf-test] renderLintError LintError {..} =
  3381. 1785.95 s [opt-env-conf-test] concat
  3382. 1785.96 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  3383. 1785.96 s [opt-env-conf-test] case lintErrorMessage of
  3384. 1785.96 s [opt-env-conf-test] LintErrorUndocumented ->
  3385. 1785.96 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  3386. 1785.96 s [opt-env-conf-test] LintErrorEmptySetting ->
  3387. 1785.96 s [opt-env-conf-test] concat
  3388. 1785.96 s [opt-env-conf-test] [ [ [ "This ",
  3389. 1785.96 s [opt-env-conf-test] functionChunk "setting",
  3390. 1785.96 s [opt-env-conf-test] " parses nothing."
  3391. 1785.96 s [opt-env-conf-test] ]
  3392. 1785.96 s [opt-env-conf-test] ],
  3393. 1785.96 s [opt-env-conf-test] [ [ "Add an ",
  3394. 1785.96 s [opt-env-conf-test] functionChunk "argument",
  3395. 1785.96 s [opt-env-conf-test] ", ",
  3396. 1785.96 s [opt-env-conf-test] functionChunk "switch",
  3397. 1785.96 s [opt-env-conf-test] ", ",
  3398. 1785.96 s [opt-env-conf-test] functionChunk "option",
  3399. 1785.96 s [opt-env-conf-test] ", ",
  3400. 1785.96 s [opt-env-conf-test] functionChunk "env",
  3401. 1785.96 s [opt-env-conf-test] ", ",
  3402. 1785.96 s [opt-env-conf-test] functionChunk "conf",
  3403. 1785.96 s [opt-env-conf-test] ", or ",
  3404. 1785.96 s [opt-env-conf-test] functionChunk "value",
  3405. 1785.96 s [opt-env-conf-test] "."
  3406. 1785.96 s [opt-env-conf-test] ]
  3407. 1785.96 s [opt-env-conf-test] ]
  3408. 1785.96 s [opt-env-conf-test] ]
  3409. 1785.96 s [opt-env-conf-test] LintErrorDashInShort ->
  3410. 1785.96 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  3411. 1785.96 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  3412. 1785.96 s [opt-env-conf-test] ]
  3413. 1785.96 s [opt-env-conf-test] LintErrorDashInLong s ->
  3414. 1785.96 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  3415. 1785.96 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3416. 1785.96 s [opt-env-conf-test] [ "Try ",
  3417. 1785.96 s [opt-env-conf-test] functionChunk "long",
  3418. 1785.96 s [opt-env-conf-test] " ",
  3419. 1785.96 s [opt-env-conf-test] chunk $
  3420. 1785.96 s [opt-env-conf-test] T.pack $
  3421. 1785.96 s [opt-env-conf-test] show $
  3422. 1785.96 s [opt-env-conf-test] let go = \case
  3423. 1785.96 s [opt-env-conf-test] [] -> []
  3424. 1785.96 s [opt-env-conf-test] '-' : cs -> go cs
  3425. 1785.96 s [opt-env-conf-test] c : cs -> c : cs
  3426. 1785.96 s [opt-env-conf-test] in go $ NE.toList s,
  3427. 1785.96 s [opt-env-conf-test] " instead."
  3428. 1785.96 s [opt-env-conf-test] ]
  3429. 1785.96 s [opt-env-conf-test] ]
  3430. 1785.96 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  3431. 1785.96 s [opt-env-conf-test] [ [ functionChunk "argument",
  3432. 1785.96 s [opt-env-conf-test] " has no ",
  3433. 1785.96 s [opt-env-conf-test] functionChunk "reader",
  3434. 1785.96 s [opt-env-conf-test] "."
  3435. 1785.96 s [opt-env-conf-test] ]
  3436. 1785.96 s [opt-env-conf-test] ]
  3437. 1785.96 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  3438. 1785.96 s [opt-env-conf-test] [ [ functionChunk "argument",
  3439. 1785.96 s [opt-env-conf-test] " has no ",
  3440. 1785.96 s [opt-env-conf-test] functionChunk "metavar",
  3441. 1785.97 s [opt-env-conf-test] "."
  3442. 1785.97 s [opt-env-conf-test] ]
  3443. 1785.97 s [opt-env-conf-test] ]
  3444. 1785.97 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  3445. 1785.97 s [opt-env-conf-test] [ [ functionChunk "option",
  3446. 1785.97 s [opt-env-conf-test] " or ",
  3447. 1785.97 s [opt-env-conf-test] functionChunk "name",
  3448. 1785.97 s [opt-env-conf-test] " has no ",
  3449. 1785.97 s [opt-env-conf-test] functionChunk "reader",
  3450. 1785.97 s [opt-env-conf-test] "."
  3451. 1785.97 s [opt-env-conf-test] ]
  3452. 1785.97 s [opt-env-conf-test] ]
  3453. 1785.97 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  3454. 1785.97 s [opt-env-conf-test] [ [ functionChunk "option",
  3455. 1785.97 s [opt-env-conf-test] " has no ",
  3456. 1785.97 s [opt-env-conf-test] functionChunk "long",
  3457. 1785.97 s [opt-env-conf-test] " or ",
  3458. 1785.97 s [opt-env-conf-test] functionChunk "short",
  3459. 1785.97 s [opt-env-conf-test] "."
  3460. 1785.97 s [opt-env-conf-test] ]
  3461. 1785.97 s [opt-env-conf-test] ]
  3462. 1785.97 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  3463. 1785.97 s [opt-env-conf-test] [ [ functionChunk "option",
  3464. 1785.97 s [opt-env-conf-test] " or ",
  3465. 1785.97 s [opt-env-conf-test] functionChunk "name",
  3466. 1785.97 s [opt-env-conf-test] " has no ",
  3467. 1785.97 s [opt-env-conf-test] functionChunk "metavar",
  3468. 1785.97 s [opt-env-conf-test] "."
  3469. 1785.97 s [opt-env-conf-test] ]
  3470. 1785.97 s [opt-env-conf-test] ]
  3471. 1785.97 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  3472. 1785.97 s [opt-env-conf-test] [ [ functionChunk "switch",
  3473. 1785.97 s [opt-env-conf-test] " has no ",
  3474. 1785.97 s [opt-env-conf-test] functionChunk "long",
  3475. 1785.97 s [opt-env-conf-test] " or ",
  3476. 1785.97 s [opt-env-conf-test] functionChunk "short",
  3477. 1785.97 s [opt-env-conf-test] "."
  3478. 1785.97 s [opt-env-conf-test] ]
  3479. 1785.97 s [opt-env-conf-test] ]
  3480. 1785.97 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  3481. 1785.97 s [opt-env-conf-test] [ [ functionChunk "long",
  3482. 1785.97 s [opt-env-conf-test] " or ",
  3483. 1785.97 s [opt-env-conf-test] functionChunk "short",
  3484. 1785.97 s [opt-env-conf-test] " has no ",
  3485. 1785.97 s [opt-env-conf-test] functionChunk "option",
  3486. 1785.97 s [opt-env-conf-test] " or ",
  3487. 1785.97 s [opt-env-conf-test] functionChunk "switch",
  3488. 1785.97 s [opt-env-conf-test] "."
  3489. 1785.97 s [opt-env-conf-test] ]
  3490. 1785.97 s [opt-env-conf-test] ]
  3491. 1785.97 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  3492. 1785.97 s [opt-env-conf-test] [ [ functionChunk "env",
  3493. 1785.97 s [opt-env-conf-test] " or ",
  3494. 1785.97 s [opt-env-conf-test] functionChunk "name",
  3495. 1785.97 s [opt-env-conf-test] " has no ",
  3496. 1785.97 s [opt-env-conf-test] functionChunk "reader",
  3497. 1785.97 s [opt-env-conf-test] "."
  3498. 1785.97 s [opt-env-conf-test] ]
  3499. 1785.97 s [opt-env-conf-test] ]
  3500. 1785.97 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  3501. 1785.97 s [opt-env-conf-test] [ [ functionChunk "env",
  3502. 1785.97 s [opt-env-conf-test] " or ",
  3503. 1785.97 s [opt-env-conf-test] functionChunk "name",
  3504. 1785.97 s [opt-env-conf-test] " has no ",
  3505. 1785.97 s [opt-env-conf-test] functionChunk "metavar",
  3506. 1785.97 s [opt-env-conf-test] "."
  3507. 1785.97 s [opt-env-conf-test] ]
  3508. 1785.97 s [opt-env-conf-test] ]
  3509. 1785.97 s [opt-env-conf-test] LintErrorNoCommands ->
  3510. 1785.97 s [opt-env-conf-test] [ [ functionChunk "commands",
  3511. 1785.97 s [opt-env-conf-test] " was called with an empty list."
  3512. 1786.18 s [opt-env-conf-test] ]
  3513. 1786.18 s [opt-env-conf-test] ]
  3514. 1786.18 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  3515. 1786.18 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  3516. 1786.18 s [opt-env-conf-test] " was called with an unknown command: ",
  3517. 1786.18 s [opt-env-conf-test] commandChunk c
  3518. 1786.18 s [opt-env-conf-test] ]
  3519. 1786.18 s [opt-env-conf-test] ]
  3520. 1786.18 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  3521. 1786.18 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3522. 1786.18 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  3523. 1786.18 s [opt-env-conf-test] ]
  3524. 1786.18 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  3525. 1786.18 s [opt-env-conf-test] [ [ functionChunk "conf",
  3526. 1786.18 s [opt-env-conf-test] " or ",
  3527. 1786.18 s [opt-env-conf-test] functionChunk "name",
  3528. 1786.18 s [opt-env-conf-test] " was called with no way to load configuration."
  3529. 1786.18 s [opt-env-conf-test] ],
  3530. 1786.18 s [opt-env-conf-test] [ "You can load configuration with ",
  3531. 1786.18 s [opt-env-conf-test] functionChunk "withConfig",
  3532. 1786.18 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  3533. 1786.18 s [opt-env-conf-test] functionChunk "withoutConfig",
  3534. 1786.18 s [opt-env-conf-test] "."
  3535. 1786.18 s [opt-env-conf-test] ]
  3536. 1786.18 s [opt-env-conf-test] ]
  3537. 1786.18 s [opt-env-conf-test] - LintErrorManyInfinite ->
  3538. 1786.18 s [opt-env-conf-test] - [ [ functionChunk "many",
  3539. 1786.18 s [opt-env-conf-test] - " or ",
  3540. 1786.18 s [opt-env-conf-test] - functionChunk "some",
  3541. 1786.18 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  3542. 1786.18 s [opt-env-conf-test] - ],
  3543. 1786.18 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  3544. 1786.18 s [opt-env-conf-test] - ],
  3545. 1786.18 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3546. 1786.18 s [opt-env-conf-test] ]
  3547. 1786.18 s [opt-env-conf-test]
  3548. 1786.18 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  3549. 1786.18 s [opt-env-conf-test] @@ -65,171 +65,7 @@
  3550. 1786.18 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  3551. 1786.18 s [opt-env-conf-test] renderLintError LintError {..} =
  3552. 1786.19 s [opt-env-conf-test] concat
  3553. 1786.19 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  3554. 1786.19 s [opt-env-conf-test] - case lintErrorMessage of
  3555. 1786.19 s [opt-env-conf-test] - LintErrorUndocumented ->
  3556. 1786.19 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  3557. 1786.19 s [opt-env-conf-test] - LintErrorEmptySetting ->
  3558. 1786.19 s [opt-env-conf-test] - concat
  3559. 1786.19 s [opt-env-conf-test] - [ [ [ "This ",
  3560. 1786.19 s [opt-env-conf-test] - functionChunk "setting",
  3561. 1786.19 s [opt-env-conf-test] - " parses nothing."
  3562. 1786.19 s [opt-env-conf-test] - ]
  3563. 1786.19 s [opt-env-conf-test] - ],
  3564. 1786.19 s [opt-env-conf-test] - [ [ "Add an ",
  3565. 1786.19 s [opt-env-conf-test] - functionChunk "argument",
  3566. 1786.19 s [opt-env-conf-test] - ", ",
  3567. 1786.19 s [opt-env-conf-test] - functionChunk "switch",
  3568. 1786.19 s [opt-env-conf-test] - ", ",
  3569. 1786.19 s [opt-env-conf-test] - functionChunk "option",
  3570. 1786.19 s [opt-env-conf-test] - ", ",
  3571. 1786.19 s [opt-env-conf-test] - functionChunk "env",
  3572. 1786.19 s [opt-env-conf-test] - ", ",
  3573. 1786.19 s [opt-env-conf-test] - functionChunk "conf",
  3574. 1786.19 s [opt-env-conf-test] - ", or ",
  3575. 1786.19 s [opt-env-conf-test] - functionChunk "value",
  3576. 1786.19 s [opt-env-conf-test] - "."
  3577. 1786.19 s [opt-env-conf-test] - ]
  3578. 1786.19 s [opt-env-conf-test] - ]
  3579. 1786.19 s [opt-env-conf-test] - ]
  3580. 1786.19 s [opt-env-conf-test] - LintErrorDashInShort ->
  3581. 1786.19 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  3582. 1786.19 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  3583. 1786.19 s [opt-env-conf-test] - ]
  3584. 1786.19 s [opt-env-conf-test] - LintErrorDashInLong s ->
  3585. 1786.19 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  3586. 1786.19 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3587. 1786.19 s [opt-env-conf-test] - [ "Try ",
  3588. 1786.19 s [opt-env-conf-test] - functionChunk "long",
  3589. 1786.19 s [opt-env-conf-test] - " ",
  3590. 1786.19 s [opt-env-conf-test] - chunk $
  3591. 1786.19 s [opt-env-conf-test] - T.pack $
  3592. 1786.19 s [opt-env-conf-test] - show $
  3593. 1786.19 s [opt-env-conf-test] - let go = \case
  3594. 1786.19 s [opt-env-conf-test] - [] -> []
  3595. 1786.19 s [opt-env-conf-test] - '-' : cs -> go cs
  3596. 1786.19 s [opt-env-conf-test] - c : cs -> c : cs
  3597. 1786.19 s [opt-env-conf-test] - in go $ NE.toList s,
  3598. 1786.20 s [opt-env-conf-test] - " instead."
  3599. 1786.20 s [opt-env-conf-test] - ]
  3600. 1786.20 s [opt-env-conf-test] - ]
  3601. 1786.20 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  3602. 1786.20 s [opt-env-conf-test] - [ [ functionChunk "argument",
  3603. 1786.20 s [opt-env-conf-test] - " has no ",
  3604. 1786.20 s [opt-env-conf-test] - functionChunk "reader",
  3605. 1786.20 s [opt-env-conf-test] - "."
  3606. 1786.20 s [opt-env-conf-test] - ]
  3607. 1786.20 s [opt-env-conf-test] - ]
  3608. 1786.20 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  3609. 1786.20 s [opt-env-conf-test] - [ [ functionChunk "argument",
  3610. 1786.20 s [opt-env-conf-test] - " has no ",
  3611. 1786.20 s [opt-env-conf-test] - functionChunk "metavar",
  3612. 1786.20 s [opt-env-conf-test] - "."
  3613. 1786.20 s [opt-env-conf-test] - ]
  3614. 1786.20 s [opt-env-conf-test] - ]
  3615. 1786.20 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  3616. 1786.20 s [opt-env-conf-test] - [ [ functionChunk "option",
  3617. 1786.20 s [opt-env-conf-test] - " or ",
  3618. 1786.20 s [opt-env-conf-test] - functionChunk "name",
  3619. 1786.20 s [opt-env-conf-test] - " has no ",
  3620. 1786.20 s [opt-env-conf-test] - functionChunk "reader",
  3621. 1786.20 s [opt-env-conf-test] - "."
  3622. 1786.20 s [opt-env-conf-test] - ]
  3623. 1786.20 s [opt-env-conf-test] - ]
  3624. 1786.20 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  3625. 1786.20 s [opt-env-conf-test] - [ [ functionChunk "option",
  3626. 1786.20 s [opt-env-conf-test] - " has no ",
  3627. 1786.20 s [opt-env-conf-test] - functionChunk "long",
  3628. 1786.20 s [opt-env-conf-test] - " or ",
  3629. 1786.20 s [opt-env-conf-test] - functionChunk "short",
  3630. 1786.20 s [opt-env-conf-test] - "."
  3631. 1786.20 s [opt-env-conf-test] - ]
  3632. 1786.20 s [opt-env-conf-test] - ]
  3633. 1786.20 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  3634. 1786.20 s [opt-env-conf-test] - [ [ functionChunk "option",
  3635. 1786.20 s [opt-env-conf-test] - " or ",
  3636. 1786.20 s [opt-env-conf-test] - functionChunk "name",
  3637. 1786.20 s [opt-env-conf-test] - " has no ",
  3638. 1786.20 s [opt-env-conf-test] - functionChunk "metavar",
  3639. 1786.20 s [opt-env-conf-test] - "."
  3640. 1786.20 s [opt-env-conf-test] - ]
  3641. 1786.20 s [opt-env-conf-test] - ]
  3642. 1786.20 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  3643. 1786.20 s [opt-env-conf-test] - [ [ functionChunk "switch",
  3644. 1786.20 s [opt-env-conf-test] - " has no ",
  3645. 1786.20 s [opt-env-conf-test] - functionChunk "long",
  3646. 1786.20 s [opt-env-conf-test] - " or ",
  3647. 1786.20 s [opt-env-conf-test] - functionChunk "short",
  3648. 1786.20 s [opt-env-conf-test] - "."
  3649. 1786.20 s [opt-env-conf-test] - ]
  3650. 1786.20 s [opt-env-conf-test] - ]
  3651. 1786.20 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  3652. 1786.20 s [opt-env-conf-test] - [ [ functionChunk "long",
  3653. 1786.20 s [opt-env-conf-test] - " or ",
  3654. 1786.20 s [opt-env-conf-test] - functionChunk "short",
  3655. 1786.20 s [opt-env-conf-test] - " has no ",
  3656. 1786.20 s [opt-env-conf-test] - functionChunk "option",
  3657. 1786.20 s [opt-env-conf-test] - " or ",
  3658. 1786.20 s [opt-env-conf-test] - functionChunk "switch",
  3659. 1786.20 s [opt-env-conf-test] - "."
  3660. 1786.20 s [opt-env-conf-test] - ]
  3661. 1786.20 s [opt-env-conf-test] - ]
  3662. 1786.20 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  3663. 1786.21 s [opt-env-conf-test] - [ [ functionChunk "env",
  3664. 1786.21 s [opt-env-conf-test] - " or ",
  3665. 1786.21 s [opt-env-conf-test] - functionChunk "name",
  3666. 1786.21 s [opt-env-conf-test] - " has no ",
  3667. 1786.21 s [opt-env-conf-test] - functionChunk "reader",
  3668. 1786.21 s [opt-env-conf-test] - "."
  3669. 1786.21 s [opt-env-conf-test] - ]
  3670. 1786.21 s [opt-env-conf-test] - ]
  3671. 1786.21 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  3672. 1786.21 s [opt-env-conf-test] - [ [ functionChunk "env",
  3673. 1786.21 s [opt-env-conf-test] - " or ",
  3674. 1786.21 s [opt-env-conf-test] - functionChunk "name",
  3675. 1786.21 s [opt-env-conf-test] - " has no ",
  3676. 1786.21 s [opt-env-conf-test] - functionChunk "metavar",
  3677. 1786.21 s [opt-env-conf-test] - "."
  3678. 1786.21 s [opt-env-conf-test] - ]
  3679. 1786.21 s [opt-env-conf-test] - ]
  3680. 1786.21 s [opt-env-conf-test] - LintErrorNoCommands ->
  3681. 1786.21 s [opt-env-conf-test] - [ [ functionChunk "commands",
  3682. 1786.21 s [opt-env-conf-test] - " was called with an empty list."
  3683. 1786.21 s [opt-env-conf-test] - ]
  3684. 1786.21 s [opt-env-conf-test] - ]
  3685. 1786.21 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  3686. 1786.21 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  3687. 1786.21 s [opt-env-conf-test] - " was called with an unknown command: ",
  3688. 1786.21 s [opt-env-conf-test] - commandChunk c
  3689. 1786.21 s [opt-env-conf-test] - ]
  3690. 1786.21 s [opt-env-conf-test] - ]
  3691. 1786.21 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  3692. 1786.21 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3693. 1786.21 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  3694. 1786.21 s [opt-env-conf-test] - ]
  3695. 1786.21 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  3696. 1786.21 s [opt-env-conf-test] - [ [ functionChunk "conf",
  3697. 1786.21 s [opt-env-conf-test] - " or ",
  3698. 1786.21 s [opt-env-conf-test] - functionChunk "name",
  3699. 1786.21 s [opt-env-conf-test] - " was called with no way to load configuration."
  3700. 1786.21 s [opt-env-conf-test] - ],
  3701. 1786.21 s [opt-env-conf-test] - [ "You can load configuration with ",
  3702. 1786.21 s [opt-env-conf-test] - functionChunk "withConfig",
  3703. 1787.00 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  3704. 1787.00 s [opt-env-conf-test] - functionChunk "withoutConfig",
  3705. 1787.00 s [opt-env-conf-test] - "."
  3706. 1787.00 s [opt-env-conf-test] - ]
  3707. 1787.00 s [opt-env-conf-test] - ]
  3708. 1787.00 s [opt-env-conf-test] - LintErrorManyInfinite ->
  3709. 1787.00 s [opt-env-conf-test] - [ [ functionChunk "many",
  3710. 1787.00 s [opt-env-conf-test] - " or ",
  3711. 1787.00 s [opt-env-conf-test] - functionChunk "some",
  3712. 1787.00 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  3713. 1787.00 s [opt-env-conf-test] - ],
  3714. 1787.00 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  3715. 1787.00 s [opt-env-conf-test] - ],
  3716. 1787.00 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3717. 1787.00 s [opt-env-conf-test] ]
  3718. 1787.00 s [opt-env-conf-test]
  3719. 1787.00 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  3720. 1787.00 s [opt-env-conf-test] lintParser =
  3721. 1787.00 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  3722. 1787.00 s [opt-env-conf-test] @@ -65,171 +65,170 @@
  3723. 1787.00 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  3724. 1787.00 s [opt-env-conf-test] renderLintError LintError {..} =
  3725. 1787.00 s [opt-env-conf-test] concat
  3726. 1787.00 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  3727. 1787.00 s [opt-env-conf-test] case lintErrorMessage of
  3728. 1787.00 s [opt-env-conf-test] LintErrorUndocumented ->
  3729. 1787.00 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  3730. 1787.00 s [opt-env-conf-test] LintErrorEmptySetting ->
  3731. 1787.00 s [opt-env-conf-test] concat
  3732. 1787.00 s [opt-env-conf-test] [ [ [ "This ",
  3733. 1787.00 s [opt-env-conf-test] functionChunk "setting",
  3734. 1787.00 s [opt-env-conf-test] " parses nothing."
  3735. 1787.00 s [opt-env-conf-test] ]
  3736. 1787.00 s [opt-env-conf-test] ],
  3737. 1787.00 s [opt-env-conf-test] [ [ "Add an ",
  3738. 1787.00 s [opt-env-conf-test] functionChunk "argument",
  3739. 1787.00 s [opt-env-conf-test] ", ",
  3740. 1787.00 s [opt-env-conf-test] functionChunk "switch",
  3741. 1787.00 s [opt-env-conf-test] ", ",
  3742. 1787.00 s [opt-env-conf-test] functionChunk "option",
  3743. 1787.00 s [opt-env-conf-test] ", ",
  3744. 1787.00 s [opt-env-conf-test] functionChunk "env",
  3745. 1787.00 s [opt-env-conf-test] ", ",
  3746. 1787.00 s [opt-env-conf-test] functionChunk "conf",
  3747. 1787.00 s [opt-env-conf-test] ", or ",
  3748. 1787.00 s [opt-env-conf-test] functionChunk "value",
  3749. 1787.01 s [opt-env-conf-test] "."
  3750. 1787.01 s [opt-env-conf-test] ]
  3751. 1787.01 s [opt-env-conf-test] ]
  3752. 1787.01 s [opt-env-conf-test] ]
  3753. 1787.01 s [opt-env-conf-test] LintErrorDashInShort ->
  3754. 1787.01 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  3755. 1787.01 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  3756. 1787.01 s [opt-env-conf-test] ]
  3757. 1787.01 s [opt-env-conf-test] LintErrorDashInLong s ->
  3758. 1787.01 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  3759. 1787.01 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3760. 1787.01 s [opt-env-conf-test] [ "Try ",
  3761. 1787.01 s [opt-env-conf-test] functionChunk "long",
  3762. 1787.01 s [opt-env-conf-test] " ",
  3763. 1787.01 s [opt-env-conf-test] chunk $
  3764. 1787.01 s [opt-env-conf-test] T.pack $
  3765. 1787.01 s [opt-env-conf-test] show $
  3766. 1787.01 s [opt-env-conf-test] let go = \case
  3767. 1787.01 s [opt-env-conf-test] [] -> []
  3768. 1787.01 s [opt-env-conf-test] '-' : cs -> go cs
  3769. 1787.01 s [opt-env-conf-test] c : cs -> c : cs
  3770. 1787.01 s [opt-env-conf-test] in go $ NE.toList s,
  3771. 1787.01 s [opt-env-conf-test] " instead."
  3772. 1787.01 s [opt-env-conf-test] ]
  3773. 1787.01 s [opt-env-conf-test] ]
  3774. 1787.01 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  3775. 1787.01 s [opt-env-conf-test] [ [ functionChunk "argument",
  3776. 1787.01 s [opt-env-conf-test] " has no ",
  3777. 1787.01 s [opt-env-conf-test] functionChunk "reader",
  3778. 1787.01 s [opt-env-conf-test] "."
  3779. 1787.01 s [opt-env-conf-test] ]
  3780. 1787.01 s [opt-env-conf-test] ]
  3781. 1787.01 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  3782. 1787.01 s [opt-env-conf-test] [ [ functionChunk "argument",
  3783. 1787.01 s [opt-env-conf-test] " has no ",
  3784. 1787.01 s [opt-env-conf-test] functionChunk "metavar",
  3785. 1787.01 s [opt-env-conf-test] "."
  3786. 1787.01 s [opt-env-conf-test] ]
  3787. 1787.01 s [opt-env-conf-test] ]
  3788. 1787.01 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  3789. 1787.01 s [opt-env-conf-test] [ [ functionChunk "option",
  3790. 1787.01 s [opt-env-conf-test] " or ",
  3791. 1787.01 s [opt-env-conf-test] functionChunk "name",
  3792. 1787.01 s [opt-env-conf-test] " has no ",
  3793. 1787.01 s [opt-env-conf-test] functionChunk "reader",
  3794. 1787.01 s [opt-env-conf-test] "."
  3795. 1787.01 s [opt-env-conf-test] ]
  3796. 1787.01 s [opt-env-conf-test] ]
  3797. 1787.01 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  3798. 1787.01 s [opt-env-conf-test] [ [ functionChunk "option",
  3799. 1787.01 s [opt-env-conf-test] " has no ",
  3800. 1787.01 s [opt-env-conf-test] functionChunk "long",
  3801. 1787.01 s [opt-env-conf-test] " or ",
  3802. 1787.01 s [opt-env-conf-test] functionChunk "short",
  3803. 1787.01 s [opt-env-conf-test] "."
  3804. 1787.01 s [opt-env-conf-test] ]
  3805. 1787.01 s [opt-env-conf-test] ]
  3806. 1787.01 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  3807. 1787.01 s [opt-env-conf-test] [ [ functionChunk "option",
  3808. 1787.01 s [opt-env-conf-test] " or ",
  3809. 1787.01 s [opt-env-conf-test] functionChunk "name",
  3810. 1787.01 s [opt-env-conf-test] " has no ",
  3811. 1787.01 s [opt-env-conf-test] functionChunk "metavar",
  3812. 1787.01 s [opt-env-conf-test] "."
  3813. 1787.01 s [opt-env-conf-test] ]
  3814. 1787.01 s [opt-env-conf-test] ]
  3815. 1787.01 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  3816. 1787.01 s [opt-env-conf-test] [ [ functionChunk "switch",
  3817. 1787.01 s [opt-env-conf-test] " has no ",
  3818. 1787.01 s [opt-env-conf-test] functionChunk "long",
  3819. 1787.01 s [opt-env-conf-test] " or ",
  3820. 1787.01 s [opt-env-conf-test] functionChunk "short",
  3821. 1787.01 s [opt-env-conf-test] "."
  3822. 1787.01 s [opt-env-conf-test] ]
  3823. 1787.01 s [opt-env-conf-test] ]
  3824. 1787.01 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  3825. 1787.01 s [opt-env-conf-test] [ [ functionChunk "long",
  3826. 1787.01 s [opt-env-conf-test] " or ",
  3827. 1787.01 s [opt-env-conf-test] functionChunk "short",
  3828. 1787.01 s [opt-env-conf-test] " has no ",
  3829. 1787.01 s [opt-env-conf-test] functionChunk "option",
  3830. 1787.01 s [opt-env-conf-test] " or ",
  3831. 1787.01 s [opt-env-conf-test] functionChunk "switch",
  3832. 1787.01 s [opt-env-conf-test] "."
  3833. 1787.01 s [opt-env-conf-test] ]
  3834. 1787.01 s [opt-env-conf-test] ]
  3835. 1787.01 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  3836. 1787.01 s [opt-env-conf-test] [ [ functionChunk "env",
  3837. 1787.01 s [opt-env-conf-test] " or ",
  3838. 1787.01 s [opt-env-conf-test] functionChunk "name",
  3839. 1787.01 s [opt-env-conf-test] " has no ",
  3840. 1787.01 s [opt-env-conf-test] functionChunk "reader",
  3841. 1787.01 s [opt-env-conf-test] "."
  3842. 1787.01 s [opt-env-conf-test] ]
  3843. 1787.01 s [opt-env-conf-test] ]
  3844. 1787.01 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  3845. 1787.01 s [opt-env-conf-test] [ [ functionChunk "env",
  3846. 1787.01 s [opt-env-conf-test] " or ",
  3847. 1787.01 s [opt-env-conf-test] functionChunk "name",
  3848. 1787.01 s [opt-env-conf-test] " has no ",
  3849. 1787.01 s [opt-env-conf-test] functionChunk "metavar",
  3850. 1787.01 s [opt-env-conf-test] "."
  3851. 1787.01 s [opt-env-conf-test] ]
  3852. 1787.01 s [opt-env-conf-test] ]
  3853. 1787.01 s [opt-env-conf-test] LintErrorNoCommands ->
  3854. 1787.01 s [opt-env-conf-test] [ [ functionChunk "commands",
  3855. 1788.35 s [opt-env-conf-test] " was called with an empty list."
  3856. 1788.35 s [opt-env-conf-test] ]
  3857. 1788.35 s [opt-env-conf-test] ]
  3858. 1788.35 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  3859. 1788.35 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  3860. 1788.35 s [opt-env-conf-test] " was called with an unknown command: ",
  3861. 1788.35 s [opt-env-conf-test] commandChunk c
  3862. 1788.35 s [opt-env-conf-test] ]
  3863. 1788.35 s [opt-env-conf-test] ]
  3864. 1788.35 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  3865. 1788.36 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3866. 1788.36 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  3867. 1788.36 s [opt-env-conf-test] ]
  3868. 1788.36 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  3869. 1788.36 s [opt-env-conf-test] [ [ functionChunk "conf",
  3870. 1788.36 s [opt-env-conf-test] " or ",
  3871. 1788.36 s [opt-env-conf-test] functionChunk "name",
  3872. 1788.36 s [opt-env-conf-test] " was called with no way to load configuration."
  3873. 1788.36 s [opt-env-conf-test] ],
  3874. 1788.36 s [opt-env-conf-test] [ "You can load configuration with ",
  3875. 1788.36 s [opt-env-conf-test] functionChunk "withConfig",
  3876. 1788.36 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  3877. 1788.36 s [opt-env-conf-test] functionChunk "withoutConfig",
  3878. 1788.36 s [opt-env-conf-test] "."
  3879. 1788.36 s [opt-env-conf-test] ]
  3880. 1788.36 s [opt-env-conf-test] ]
  3881. 1788.36 s [opt-env-conf-test] LintErrorManyInfinite ->
  3882. 1788.36 s [opt-env-conf-test] [ [ functionChunk "many",
  3883. 1788.36 s [opt-env-conf-test] " or ",
  3884. 1788.36 s [opt-env-conf-test] functionChunk "some",
  3885. 1788.36 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  3886. 1788.36 s [opt-env-conf-test] ],
  3887. 1788.36 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  3888. 1788.36 s [opt-env-conf-test] ],
  3889. 1788.36 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3890. 1788.36 s [opt-env-conf-test] ]
  3891. 1788.36 s [opt-env-conf-test]
  3892. 1788.36 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  3893. 1788.36 s [opt-env-conf-test] lintParser =
  3894. 1788.36 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  3895. 1788.36 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  3896. 1788.36 s [opt-env-conf-test] renderLintError LintError {..} =
  3897. 1788.36 s [opt-env-conf-test] concat
  3898. 1788.36 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  3899. 1788.36 s [opt-env-conf-test] case lintErrorMessage of
  3900. 1788.36 s [opt-env-conf-test] LintErrorUndocumented ->
  3901. 1788.36 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  3902. 1788.36 s [opt-env-conf-test] LintErrorEmptySetting ->
  3903. 1788.36 s [opt-env-conf-test] concat
  3904. 1788.36 s [opt-env-conf-test] [ [ [ "This ",
  3905. 1788.36 s [opt-env-conf-test] functionChunk "setting",
  3906. 1788.37 s [opt-env-conf-test] " parses nothing."
  3907. 1788.37 s [opt-env-conf-test] ]
  3908. 1788.37 s [opt-env-conf-test] ],
  3909. 1788.37 s [opt-env-conf-test] [ [ "Add an ",
  3910. 1788.37 s [opt-env-conf-test] functionChunk "argument",
  3911. 1788.37 s [opt-env-conf-test] ", ",
  3912. 1788.37 s [opt-env-conf-test] functionChunk "switch",
  3913. 1788.37 s [opt-env-conf-test] ", ",
  3914. 1788.37 s [opt-env-conf-test] functionChunk "option",
  3915. 1788.37 s [opt-env-conf-test] ", ",
  3916. 1788.37 s [opt-env-conf-test] functionChunk "env",
  3917. 1788.37 s [opt-env-conf-test] ", ",
  3918. 1788.37 s [opt-env-conf-test] functionChunk "conf",
  3919. 1788.37 s [opt-env-conf-test] ", or ",
  3920. 1788.37 s [opt-env-conf-test] functionChunk "value",
  3921. 1788.37 s [opt-env-conf-test] "."
  3922. 1788.37 s [opt-env-conf-test] ]
  3923. 1788.37 s [opt-env-conf-test] ]
  3924. 1788.37 s [opt-env-conf-test] ]
  3925. 1788.37 s [opt-env-conf-test] LintErrorDashInShort ->
  3926. 1788.37 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  3927. 1788.37 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  3928. 1788.37 s [opt-env-conf-test] ]
  3929. 1788.37 s [opt-env-conf-test] LintErrorDashInLong s ->
  3930. 1788.37 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  3931. 1788.37 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3932. 1788.37 s [opt-env-conf-test] [ "Try ",
  3933. 1788.37 s [opt-env-conf-test] functionChunk "long",
  3934. 1788.37 s [opt-env-conf-test] " ",
  3935. 1788.37 s [opt-env-conf-test] chunk $
  3936. 1788.37 s [opt-env-conf-test] T.pack $
  3937. 1788.37 s [opt-env-conf-test] show $
  3938. 1788.37 s [opt-env-conf-test] let go = \case
  3939. 1788.37 s [opt-env-conf-test] [] -> []
  3940. 1788.37 s [opt-env-conf-test] '-' : cs -> go cs
  3941. 1788.37 s [opt-env-conf-test] c : cs -> c : cs
  3942. 1788.37 s [opt-env-conf-test] in go $ NE.toList s,
  3943. 1788.37 s [opt-env-conf-test] " instead."
  3944. 1788.37 s [opt-env-conf-test] ]
  3945. 1788.37 s [opt-env-conf-test] ]
  3946. 1788.37 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  3947. 1788.37 s [opt-env-conf-test] [ [ functionChunk "argument",
  3948. 1788.37 s [opt-env-conf-test] " has no ",
  3949. 1788.37 s [opt-env-conf-test] functionChunk "reader",
  3950. 1788.37 s [opt-env-conf-test] "."
  3951. 1788.38 s [opt-env-conf-test] ]
  3952. 1788.38 s [opt-env-conf-test] ]
  3953. 1788.38 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  3954. 1788.38 s [opt-env-conf-test] [ [ functionChunk "argument",
  3955. 1788.38 s [opt-env-conf-test] " has no ",
  3956. 1788.38 s [opt-env-conf-test] functionChunk "metavar",
  3957. 1788.38 s [opt-env-conf-test] "."
  3958. 1788.38 s [opt-env-conf-test] ]
  3959. 1788.38 s [opt-env-conf-test] ]
  3960. 1788.38 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  3961. 1788.38 s [opt-env-conf-test] [ [ functionChunk "option",
  3962. 1788.38 s [opt-env-conf-test] " or ",
  3963. 1788.38 s [opt-env-conf-test] functionChunk "name",
  3964. 1788.38 s [opt-env-conf-test] " has no ",
  3965. 1788.38 s [opt-env-conf-test] functionChunk "reader",
  3966. 1788.38 s [opt-env-conf-test] "."
  3967. 1788.38 s [opt-env-conf-test] ]
  3968. 1788.38 s [opt-env-conf-test] ]
  3969. 1788.38 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  3970. 1788.38 s [opt-env-conf-test] [ [ functionChunk "option",
  3971. 1788.38 s [opt-env-conf-test] " has no ",
  3972. 1788.38 s [opt-env-conf-test] functionChunk "long",
  3973. 1788.38 s [opt-env-conf-test] " or ",
  3974. 1788.38 s [opt-env-conf-test] functionChunk "short",
  3975. 1788.38 s [opt-env-conf-test] "."
  3976. 1788.38 s [opt-env-conf-test] ]
  3977. 1788.38 s [opt-env-conf-test] ]
  3978. 1788.38 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  3979. 1788.38 s [opt-env-conf-test] [ [ functionChunk "option",
  3980. 1788.38 s [opt-env-conf-test] " or ",
  3981. 1788.38 s [opt-env-conf-test] functionChunk "name",
  3982. 1788.38 s [opt-env-conf-test] " has no ",
  3983. 1788.38 s [opt-env-conf-test] functionChunk "metavar",
  3984. 1788.38 s [opt-env-conf-test] "."
  3985. 1788.38 s [opt-env-conf-test] ]
  3986. 1788.38 s [opt-env-conf-test] ]
  3987. 1788.38 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  3988. 1788.38 s [opt-env-conf-test] [ [ functionChunk "switch",
  3989. 1788.38 s [opt-env-conf-test] " has no ",
  3990. 1788.38 s [opt-env-conf-test] functionChunk "long",
  3991. 1788.38 s [opt-env-conf-test] " or ",
  3992. 1788.38 s [opt-env-conf-test] functionChunk "short",
  3993. 1788.38 s [opt-env-conf-test] "."
  3994. 1788.38 s [opt-env-conf-test] ]
  3995. 1788.38 s [opt-env-conf-test] ]
  3996. 1788.38 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  3997. 1788.39 s [opt-env-conf-test] [ [ functionChunk "long",
  3998. 1788.39 s [opt-env-conf-test] " or ",
  3999. 1788.39 s [opt-env-conf-test] functionChunk "short",
  4000. 1788.39 s [opt-env-conf-test] " has no ",
  4001. 1788.39 s [opt-env-conf-test] functionChunk "option",
  4002. 1788.39 s [opt-env-conf-test] " or ",
  4003. 1788.39 s [opt-env-conf-test] functionChunk "switch",
  4004. 1788.39 s [opt-env-conf-test] "."
  4005. 1788.39 s [opt-env-conf-test] ]
  4006. 1788.39 s [opt-env-conf-test] ]
  4007. 1788.39 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  4008. 1788.39 s [opt-env-conf-test] - [ [ functionChunk "env",
  4009. 1788.39 s [opt-env-conf-test] - " or ",
  4010. 1788.39 s [opt-env-conf-test] - functionChunk "name",
  4011. 1788.39 s [opt-env-conf-test] - " has no ",
  4012. 1788.39 s [opt-env-conf-test] - functionChunk "reader",
  4013. 1788.39 s [opt-env-conf-test] - "."
  4014. 1788.39 s [opt-env-conf-test] - ]
  4015. 1788.39 s [opt-env-conf-test] - ]
  4016. 1788.39 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  4017. 1788.39 s [opt-env-conf-test] [ [ functionChunk "env",
  4018. 1788.39 s [opt-env-conf-test] " or ",
  4019. 1788.39 s [opt-env-conf-test] functionChunk "name",
  4020. 1788.39 s [opt-env-conf-test] " has no ",
  4021. 1788.39 s [opt-env-conf-test] functionChunk "metavar",
  4022. 1788.39 s [opt-env-conf-test] "."
  4023. 1788.39 s [opt-env-conf-test] ]
  4024. 1788.39 s [opt-env-conf-test] ]
  4025. 1788.39 s [opt-env-conf-test] LintErrorNoCommands ->
  4026. 1788.44 s [opt-env-conf-test] [ [ functionChunk "commands",
  4027. 1788.44 s [opt-env-conf-test] " was called with an empty list."
  4028. 1788.44 s [opt-env-conf-test] ]
  4029. 1788.44 s [opt-env-conf-test] ]
  4030. 1788.44 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  4031. 1788.44 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  4032. 1788.44 s [opt-env-conf-test] " was called with an unknown command: ",
  4033. 1788.44 s [opt-env-conf-test] commandChunk c
  4034. 1788.44 s [opt-env-conf-test] ]
  4035. 1788.44 s [opt-env-conf-test] ]
  4036. 1788.44 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  4037. 1788.44 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4038. 1788.44 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  4039. 1788.44 s [opt-env-conf-test] ]
  4040. 1788.44 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  4041. 1788.44 s [opt-env-conf-test] [ [ functionChunk "conf",
  4042. 1788.44 s [opt-env-conf-test] " or ",
  4043. 1788.44 s [opt-env-conf-test] functionChunk "name",
  4044. 1788.44 s [opt-env-conf-test] " was called with no way to load configuration."
  4045. 1788.44 s [opt-env-conf-test] ],
  4046. 1788.44 s [opt-env-conf-test] [ "You can load configuration with ",
  4047. 1788.44 s [opt-env-conf-test] functionChunk "withConfig",
  4048. 1788.44 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  4049. 1788.44 s [opt-env-conf-test] functionChunk "withoutConfig",
  4050. 1788.44 s [opt-env-conf-test] "."
  4051. 1788.44 s [opt-env-conf-test] ]
  4052. 1788.44 s [opt-env-conf-test] ]
  4053. 1788.44 s [opt-env-conf-test] LintErrorManyInfinite ->
  4054. 1788.44 s [opt-env-conf-test] [ [ functionChunk "many",
  4055. 1788.44 s [opt-env-conf-test] " or ",
  4056. 1788.44 s [opt-env-conf-test] functionChunk "some",
  4057. 1788.44 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  4058. 1788.45 s [opt-env-conf-test] ],
  4059. 1788.45 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  4060. 1788.45 s [opt-env-conf-test] ],
  4061. 1788.45 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  4062. 1788.45 s [opt-env-conf-test] ]
  4063. 1788.45 s [opt-env-conf-test]
  4064. 1788.45 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  4065. 1788.45 s [opt-env-conf-test] @@ -66,168 +66,164 @@
  4066. 1788.45 s [opt-env-conf-test] renderLintError LintError {..} =
  4067. 1788.45 s [opt-env-conf-test] concat
  4068. 1788.45 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  4069. 1788.45 s [opt-env-conf-test] case lintErrorMessage of
  4070. 1788.45 s [opt-env-conf-test] LintErrorUndocumented ->
  4071. 1788.45 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  4072. 1788.45 s [opt-env-conf-test] LintErrorEmptySetting ->
  4073. 1788.45 s [opt-env-conf-test] concat
  4074. 1788.45 s [opt-env-conf-test] [ [ [ "This ",
  4075. 1788.45 s [opt-env-conf-test] functionChunk "setting",
  4076. 1788.45 s [opt-env-conf-test] " parses nothing."
  4077. 1788.45 s [opt-env-conf-test] ]
  4078. 1788.45 s [opt-env-conf-test] ],
  4079. 1788.45 s [opt-env-conf-test] [ [ "Add an ",
  4080. 1788.45 s [opt-env-conf-test] functionChunk "argument",
  4081. 1788.45 s [opt-env-conf-test] ", ",
  4082. 1788.45 s [opt-env-conf-test] functionChunk "switch",
  4083. 1788.45 s [opt-env-conf-test] ", ",
  4084. 1788.45 s [opt-env-conf-test] functionChunk "option",
  4085. 1788.45 s [opt-env-conf-test] ", ",
  4086. 1788.45 s [opt-env-conf-test] functionChunk "env",
  4087. 1788.45 s [opt-env-conf-test] ", ",
  4088. 1788.45 s [opt-env-conf-test] functionChunk "conf",
  4089. 1788.45 s [opt-env-conf-test] ", or ",
  4090. 1788.45 s [opt-env-conf-test] functionChunk "value",
  4091. 1788.45 s [opt-env-conf-test] "."
  4092. 1788.45 s [opt-env-conf-test] ]
  4093. 1788.45 s [opt-env-conf-test] ]
  4094. 1788.45 s [opt-env-conf-test] ]
  4095. 1788.45 s [opt-env-conf-test] LintErrorDashInShort ->
  4096. 1788.45 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  4097. 1788.45 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  4098. 1788.45 s [opt-env-conf-test] ]
  4099. 1788.45 s [opt-env-conf-test] LintErrorDashInLong s ->
  4100. 1788.45 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  4101. 1788.45 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4102. 1788.45 s [opt-env-conf-test] [ "Try ",
  4103. 1788.45 s [opt-env-conf-test] functionChunk "long",
  4104. 1788.45 s [opt-env-conf-test] " ",
  4105. 1788.45 s [opt-env-conf-test] chunk $
  4106. 1788.45 s [opt-env-conf-test] T.pack $
  4107. 1788.45 s [opt-env-conf-test] show $
  4108. 1788.45 s [opt-env-conf-test] let go = \case
  4109. 1788.45 s [opt-env-conf-test] [] -> []
  4110. 1788.45 s [opt-env-conf-test] '-' : cs -> go cs
  4111. 1788.45 s [opt-env-conf-test] c : cs -> c : cs
  4112. 1788.45 s [opt-env-conf-test] in go $ NE.toList s,
  4113. 1788.45 s [opt-env-conf-test] " instead."
  4114. 1788.45 s [opt-env-conf-test] ]
  4115. 1788.45 s [opt-env-conf-test] ]
  4116. 1788.45 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  4117. 1788.45 s [opt-env-conf-test] [ [ functionChunk "argument",
  4118. 1788.45 s [opt-env-conf-test] " has no ",
  4119. 1788.45 s [opt-env-conf-test] functionChunk "reader",
  4120. 1788.45 s [opt-env-conf-test] "."
  4121. 1788.45 s [opt-env-conf-test] ]
  4122. 1788.45 s [opt-env-conf-test] ]
  4123. 1788.45 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  4124. 1788.46 s [opt-env-conf-test] [ [ functionChunk "argument",
  4125. 1788.46 s [opt-env-conf-test] " has no ",
  4126. 1788.46 s [opt-env-conf-test] functionChunk "metavar",
  4127. 1788.46 s [opt-env-conf-test] "."
  4128. 1788.46 s [opt-env-conf-test] ]
  4129. 1788.46 s [opt-env-conf-test] ]
  4130. 1788.46 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  4131. 1788.46 s [opt-env-conf-test] [ [ functionChunk "option",
  4132. 1788.46 s [opt-env-conf-test] " or ",
  4133. 1788.46 s [opt-env-conf-test] functionChunk "name",
  4134. 1788.46 s [opt-env-conf-test] " has no ",
  4135. 1788.46 s [opt-env-conf-test] functionChunk "reader",
  4136. 1788.46 s [opt-env-conf-test] "."
  4137. 1788.46 s [opt-env-conf-test] ]
  4138. 1788.46 s [opt-env-conf-test] ]
  4139. 1788.46 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  4140. 1788.46 s [opt-env-conf-test] [ [ functionChunk "option",
  4141. 1788.46 s [opt-env-conf-test] " has no ",
  4142. 1788.46 s [opt-env-conf-test] functionChunk "long",
  4143. 1788.46 s [opt-env-conf-test] " or ",
  4144. 1788.46 s [opt-env-conf-test] functionChunk "short",
  4145. 1788.46 s [opt-env-conf-test] "."
  4146. 1788.46 s [opt-env-conf-test] ]
  4147. 1788.46 s [opt-env-conf-test] ]
  4148. 1788.46 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  4149. 1788.46 s [opt-env-conf-test] [ [ functionChunk "option",
  4150. 1788.46 s [opt-env-conf-test] " or ",
  4151. 1788.46 s [opt-env-conf-test] functionChunk "name",
  4152. 1788.46 s [opt-env-conf-test] " has no ",
  4153. 1788.46 s [opt-env-conf-test] functionChunk "metavar",
  4154. 1788.46 s [opt-env-conf-test] "."
  4155. 1788.46 s [opt-env-conf-test] ]
  4156. 1788.46 s [opt-env-conf-test] ]
  4157. 1788.46 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  4158. 1788.46 s [opt-env-conf-test] [ [ functionChunk "switch",
  4159. 1788.46 s [opt-env-conf-test] " has no ",
  4160. 1788.46 s [opt-env-conf-test] functionChunk "long",
  4161. 1788.46 s [opt-env-conf-test] " or ",
  4162. 1788.46 s [opt-env-conf-test] functionChunk "short",
  4163. 1788.46 s [opt-env-conf-test] "."
  4164. 1788.46 s [opt-env-conf-test] ]
  4165. 1788.46 s [opt-env-conf-test] ]
  4166. 1788.46 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  4167. 1788.46 s [opt-env-conf-test] [ [ functionChunk "long",
  4168. 1788.46 s [opt-env-conf-test] " or ",
  4169. 1788.46 s [opt-env-conf-test] functionChunk "short",
  4170. 1788.46 s [opt-env-conf-test] " has no ",
  4171. 1788.46 s [opt-env-conf-test] functionChunk "option",
  4172. 1788.46 s [opt-env-conf-test] " or ",
  4173. 1788.46 s [opt-env-conf-test] functionChunk "switch",
  4174. 1788.46 s [opt-env-conf-test] "."
  4175. 1788.46 s [opt-env-conf-test] ]
  4176. 1788.46 s [opt-env-conf-test] ]
  4177. 1788.46 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  4178. 1788.46 s [opt-env-conf-test] [ [ functionChunk "env",
  4179. 1788.46 s [opt-env-conf-test] " or ",
  4180. 1788.46 s [opt-env-conf-test] functionChunk "name",
  4181. 1788.46 s [opt-env-conf-test] " has no ",
  4182. 1788.46 s [opt-env-conf-test] functionChunk "reader",
  4183. 1788.46 s [opt-env-conf-test] "."
  4184. 1788.46 s [opt-env-conf-test] ]
  4185. 1788.46 s [opt-env-conf-test] ]
  4186. 1788.46 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  4187. 1788.46 s [opt-env-conf-test] [ [ functionChunk "env",
  4188. 1788.46 s [opt-env-conf-test] " or ",
  4189. 1788.46 s [opt-env-conf-test] functionChunk "name",
  4190. 1788.46 s [opt-env-conf-test] " has no ",
  4191. 1788.46 s [opt-env-conf-test] functionChunk "metavar",
  4192. 1788.46 s [opt-env-conf-test] "."
  4193. 1788.46 s [opt-env-conf-test] ]
  4194. 1788.46 s [opt-env-conf-test] ]
  4195. 1788.46 s [opt-env-conf-test] LintErrorNoCommands ->
  4196. 1788.46 s [opt-env-conf-test] [ [ functionChunk "commands",
  4197. 1788.46 s [opt-env-conf-test] " was called with an empty list."
  4198. 1788.93 s [opt-env-conf-test] ]
  4199. 1788.93 s [opt-env-conf-test] ]
  4200. 1788.93 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  4201. 1788.93 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  4202. 1788.93 s [opt-env-conf-test] " was called with an unknown command: ",
  4203. 1788.93 s [opt-env-conf-test] commandChunk c
  4204. 1788.93 s [opt-env-conf-test] ]
  4205. 1788.93 s [opt-env-conf-test] - ]
  4206. 1788.93 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  4207. 1788.93 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4208. 1788.93 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  4209. 1788.93 s [opt-env-conf-test] ]
  4210. 1788.93 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  4211. 1788.93 s [opt-env-conf-test] [ [ functionChunk "conf",
  4212. 1788.93 s [opt-env-conf-test] " or ",
  4213. 1788.93 s [opt-env-conf-test] functionChunk "name",
  4214. 1788.93 s [opt-env-conf-test] " was called with no way to load configuration."
  4215. 1788.93 s [opt-env-conf-test] ],
  4216. 1788.93 s [opt-env-conf-test] [ "You can load configuration with ",
  4217. 1788.93 s [opt-env-conf-test] functionChunk "withConfig",
  4218. 1788.93 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  4219. 1788.93 s [opt-env-conf-test] functionChunk "withoutConfig",
  4220. 1788.93 s [opt-env-conf-test] "."
  4221. 1788.93 s [opt-env-conf-test] ]
  4222. 1788.94 s [opt-env-conf-test] ]
  4223. 1788.94 s [opt-env-conf-test] LintErrorManyInfinite ->
  4224. 1788.94 s [opt-env-conf-test] [ [ functionChunk "many",
  4225. 1788.94 s [opt-env-conf-test] " or ",
  4226. 1788.94 s [opt-env-conf-test] functionChunk "some",
  4227. 1788.94 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  4228. 1788.94 s [opt-env-conf-test] ],
  4229. 1788.94 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  4230. 1788.94 s [opt-env-conf-test] ],
  4231. 1788.94 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  4232. 1788.94 s [opt-env-conf-test] ]
  4233. 1788.94 s [opt-env-conf-test]
  4234. 1788.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  4235. 1788.94 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  4236. 1788.94 s [opt-env-conf-test] renderLintError LintError {..} =
  4237. 1788.94 s [opt-env-conf-test] concat
  4238. 1788.94 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  4239. 1788.94 s [opt-env-conf-test] case lintErrorMessage of
  4240. 1788.94 s [opt-env-conf-test] LintErrorUndocumented ->
  4241. 1788.94 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  4242. 1788.94 s [opt-env-conf-test] LintErrorEmptySetting ->
  4243. 1788.94 s [opt-env-conf-test] concat
  4244. 1788.94 s [opt-env-conf-test] [ [ [ "This ",
  4245. 1788.94 s [opt-env-conf-test] functionChunk "setting",
  4246. 1788.94 s [opt-env-conf-test] " parses nothing."
  4247. 1788.94 s [opt-env-conf-test] ]
  4248. 1788.94 s [opt-env-conf-test] ],
  4249. 1788.94 s [opt-env-conf-test] [ [ "Add an ",
  4250. 1788.94 s [opt-env-conf-test] functionChunk "argument",
  4251. 1788.94 s [opt-env-conf-test] ", ",
  4252. 1788.94 s [opt-env-conf-test] functionChunk "switch",
  4253. 1788.94 s [opt-env-conf-test] ", ",
  4254. 1788.94 s [opt-env-conf-test] functionChunk "option",
  4255. 1788.94 s [opt-env-conf-test] ", ",
  4256. 1788.94 s [opt-env-conf-test] functionChunk "env",
  4257. 1788.94 s [opt-env-conf-test] ", ",
  4258. 1788.94 s [opt-env-conf-test] functionChunk "conf",
  4259. 1788.94 s [opt-env-conf-test] ", or ",
  4260. 1788.94 s [opt-env-conf-test] functionChunk "value",
  4261. 1788.94 s [opt-env-conf-test] "."
  4262. 1788.94 s [opt-env-conf-test] ]
  4263. 1788.94 s [opt-env-conf-test] ]
  4264. 1788.94 s [opt-env-conf-test] ]
  4265. 1788.94 s [opt-env-conf-test] LintErrorDashInShort ->
  4266. 1788.94 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  4267. 1788.94 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  4268. 1788.94 s [opt-env-conf-test] ]
  4269. 1788.94 s [opt-env-conf-test] LintErrorDashInLong s ->
  4270. 1788.94 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  4271. 1788.94 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4272. 1788.94 s [opt-env-conf-test] [ "Try ",
  4273. 1788.94 s [opt-env-conf-test] functionChunk "long",
  4274. 1788.94 s [opt-env-conf-test] " ",
  4275. 1788.94 s [opt-env-conf-test] chunk $
  4276. 1788.94 s [opt-env-conf-test] T.pack $
  4277. 1788.94 s [opt-env-conf-test] show $
  4278. 1788.94 s [opt-env-conf-test] let go = \case
  4279. 1788.94 s [opt-env-conf-test] [] -> []
  4280. 1788.94 s [opt-env-conf-test] '-' : cs -> go cs
  4281. 1788.94 s [opt-env-conf-test] c : cs -> c : cs
  4282. 1788.94 s [opt-env-conf-test] in go $ NE.toList s,
  4283. 1788.95 s [opt-env-conf-test] " instead."
  4284. 1788.95 s [opt-env-conf-test] ]
  4285. 1788.95 s [opt-env-conf-test] ]
  4286. 1788.95 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  4287. 1788.95 s [opt-env-conf-test] [ [ functionChunk "argument",
  4288. 1788.95 s [opt-env-conf-test] " has no ",
  4289. 1788.95 s [opt-env-conf-test] functionChunk "reader",
  4290. 1788.95 s [opt-env-conf-test] "."
  4291. 1788.95 s [opt-env-conf-test] ]
  4292. 1788.95 s [opt-env-conf-test] ]
  4293. 1788.95 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  4294. 1788.95 s [opt-env-conf-test] [ [ functionChunk "argument",
  4295. 1788.95 s [opt-env-conf-test] " has no ",
  4296. 1788.95 s [opt-env-conf-test] functionChunk "metavar",
  4297. 1788.95 s [opt-env-conf-test] "."
  4298. 1788.95 s [opt-env-conf-test] ]
  4299. 1788.95 s [opt-env-conf-test] ]
  4300. 1788.95 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  4301. 1788.95 s [opt-env-conf-test] [ [ functionChunk "option",
  4302. 1788.95 s [opt-env-conf-test] " or ",
  4303. 1788.95 s [opt-env-conf-test] functionChunk "name",
  4304. 1788.95 s [opt-env-conf-test] " has no ",
  4305. 1788.95 s [opt-env-conf-test] functionChunk "reader",
  4306. 1788.95 s [opt-env-conf-test] "."
  4307. 1788.95 s [opt-env-conf-test] ]
  4308. 1788.95 s [opt-env-conf-test] ]
  4309. 1788.95 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  4310. 1788.95 s [opt-env-conf-test] [ [ functionChunk "option",
  4311. 1788.95 s [opt-env-conf-test] " has no ",
  4312. 1788.95 s [opt-env-conf-test] functionChunk "long",
  4313. 1788.95 s [opt-env-conf-test] " or ",
  4314. 1788.95 s [opt-env-conf-test] functionChunk "short",
  4315. 1788.95 s [opt-env-conf-test] "."
  4316. 1788.95 s [opt-env-conf-test] ]
  4317. 1788.95 s [opt-env-conf-test] ]
  4318. 1788.95 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  4319. 1788.95 s [opt-env-conf-test] - [ [ functionChunk "option",
  4320. 1788.95 s [opt-env-conf-test] - " or ",
  4321. 1788.95 s [opt-env-conf-test] - functionChunk "name",
  4322. 1788.95 s [opt-env-conf-test] - " has no ",
  4323. 1788.95 s [opt-env-conf-test] - functionChunk "metavar",
  4324. 1788.95 s [opt-env-conf-test] - "."
  4325. 1788.95 s [opt-env-conf-test] - ]
  4326. 1788.95 s [opt-env-conf-test] - ]
  4327. 1788.95 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  4328. 1788.95 s [opt-env-conf-test] [ [ functionChunk "switch",
  4329. 1788.95 s [opt-env-conf-test] " has no ",
  4330. 1788.95 s [opt-env-conf-test] functionChunk "long",
  4331. 1788.95 s [opt-env-conf-test] " or ",
  4332. 1788.95 s [opt-env-conf-test] functionChunk "short",
  4333. 1788.95 s [opt-env-conf-test] "."
  4334. 1788.95 s [opt-env-conf-test] ]
  4335. 1788.95 s [opt-env-conf-test] ]
  4336. 1788.95 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  4337. 1788.95 s [opt-env-conf-test] [ [ functionChunk "long",
  4338. 1788.95 s [opt-env-conf-test] " or ",
  4339. 1788.95 s [opt-env-conf-test] functionChunk "short",
  4340. 1788.95 s [opt-env-conf-test] " has no ",
  4341. 1788.95 s [opt-env-conf-test] functionChunk "option",
  4342. 1788.95 s [opt-env-conf-test] " or ",
  4343. 1788.95 s [opt-env-conf-test] functionChunk "switch",
  4344. 1788.95 s [opt-env-conf-test] "."
  4345. 1788.95 s [opt-env-conf-test] ]
  4346. 1788.95 s [opt-env-conf-test] ]
  4347. 1788.95 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  4348. 1788.95 s [opt-env-conf-test] [ [ functionChunk "env",
  4349. 1788.95 s [opt-env-conf-test] " or ",
  4350. 1788.95 s [opt-env-conf-test] functionChunk "name",
  4351. 1788.95 s [opt-env-conf-test] " has no ",
  4352. 1788.95 s [opt-env-conf-test] functionChunk "reader",
  4353. 1788.95 s [opt-env-conf-test] "."
  4354. 1788.95 s [opt-env-conf-test] ]
  4355. 1788.95 s [opt-env-conf-test] ]
  4356. 1788.95 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  4357. 1788.95 s [opt-env-conf-test] [ [ functionChunk "env",
  4358. 1788.95 s [opt-env-conf-test] " or ",
  4359. 1788.95 s [opt-env-conf-test] functionChunk "name",
  4360. 1788.95 s [opt-env-conf-test] " has no ",
  4361. 1788.95 s [opt-env-conf-test] functionChunk "metavar",
  4362. 1788.95 s [opt-env-conf-test] "."
  4363. 1788.95 s [opt-env-conf-test] ]
  4364. 1788.95 s [opt-env-conf-test] ]
  4365. 1788.95 s [opt-env-conf-test] LintErrorNoCommands ->
  4366. 1789.12 s [opt-env-conf-test] [ [ functionChunk "commands",
  4367. 1789.30 s [opt-env-conf-test] " was called with an empty list."
  4368. 1789.30 s [opt-env-conf-test] ]
  4369. 1789.30 s [opt-env-conf-test] ]
  4370. 1789.30 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  4371. 1789.30 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  4372. 1789.30 s [opt-env-conf-test] " was called with an unknown command: ",
  4373. 1789.30 s [opt-env-conf-test] commandChunk c
  4374. 1789.30 s [opt-env-conf-test] ]
  4375. 1789.30 s [opt-env-conf-test] ]
  4376. 1789.30 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  4377. 1789.30 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4378. 1789.30 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  4379. 1789.30 s [opt-env-conf-test] ]
  4380. 1789.30 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  4381. 1789.30 s [opt-env-conf-test] [ [ functionChunk "conf",
  4382. 1789.30 s [opt-env-conf-test] " or ",
  4383. 1789.30 s [opt-env-conf-test] functionChunk "name",
  4384. 1789.30 s [opt-env-conf-test] " was called with no way to load configuration."
  4385. 1789.30 s [opt-env-conf-test] ],
  4386. 1789.30 s [opt-env-conf-test] [ "You can load configuration with ",
  4387. 1789.30 s [opt-env-conf-test] functionChunk "withConfig",
  4388. 1789.30 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  4389. 1789.30 s [opt-env-conf-test] functionChunk "withoutConfig",
  4390. 1789.30 s [opt-env-conf-test] "."
  4391. 1789.30 s [opt-env-conf-test] ]
  4392. 1789.30 s [opt-env-conf-test] ]
  4393. 1789.30 s [opt-env-conf-test] LintErrorManyInfinite ->
  4394. 1789.30 s [opt-env-conf-test] [ [ functionChunk "many",
  4395. 1789.31 s [opt-env-conf-test] " or ",
  4396. 1789.31 s [opt-env-conf-test] functionChunk "some",
  4397. 1789.31 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  4398. 1789.31 s [opt-env-conf-test] ],
  4399. 1789.31 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  4400. 1789.31 s [opt-env-conf-test] ],
  4401. 1789.31 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  4402. 1789.31 s [opt-env-conf-test] ]
  4403. 1789.31 s [opt-env-conf-test]
  4404. 1789.31 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  4405. 1789.31 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  4406. 1789.31 s [opt-env-conf-test] renderLintError LintError {..} =
  4407. 1789.31 s [opt-env-conf-test] concat
  4408. 1789.31 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  4409. 1789.31 s [opt-env-conf-test] case lintErrorMessage of
  4410. 1789.31 s [opt-env-conf-test] LintErrorUndocumented ->
  4411. 1789.31 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  4412. 1789.31 s [opt-env-conf-test] LintErrorEmptySetting ->
  4413. 1789.31 s [opt-env-conf-test] concat
  4414. 1789.31 s [opt-env-conf-test] [ [ [ "This ",
  4415. 1789.31 s [opt-env-conf-test] functionChunk "setting",
  4416. 1789.31 s [opt-env-conf-test] " parses nothing."
  4417. 1789.31 s [opt-env-conf-test] ]
  4418. 1789.31 s [opt-env-conf-test] ],
  4419. 1789.31 s [opt-env-conf-test] [ [ "Add an ",
  4420. 1789.31 s [opt-env-conf-test] functionChunk "argument",
  4421. 1789.31 s [opt-env-conf-test] ", ",
  4422. 1789.31 s [opt-env-conf-test] functionChunk "switch",
  4423. 1789.31 s [opt-env-conf-test] ", ",
  4424. 1789.31 s [opt-env-conf-test] functionChunk "option",
  4425. 1789.31 s [opt-env-conf-test] ", ",
  4426. 1789.31 s [opt-env-conf-test] functionChunk "env",
  4427. 1789.31 s [opt-env-conf-test] ", ",
  4428. 1789.31 s [opt-env-conf-test] functionChunk "conf",
  4429. 1789.31 s [opt-env-conf-test] ", or ",
  4430. 1789.31 s [opt-env-conf-test] functionChunk "value",
  4431. 1789.31 s [opt-env-conf-test] "."
  4432. 1789.31 s [opt-env-conf-test] ]
  4433. 1789.31 s [opt-env-conf-test] ]
  4434. 1789.31 s [opt-env-conf-test] ]
  4435. 1789.31 s [opt-env-conf-test] LintErrorDashInShort ->
  4436. 1789.31 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  4437. 1789.31 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  4438. 1789.31 s [opt-env-conf-test] ]
  4439. 1789.31 s [opt-env-conf-test] LintErrorDashInLong s ->
  4440. 1789.31 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  4441. 1789.31 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4442. 1789.31 s [opt-env-conf-test] [ "Try ",
  4443. 1789.31 s [opt-env-conf-test] functionChunk "long",
  4444. 1789.31 s [opt-env-conf-test] " ",
  4445. 1789.31 s [opt-env-conf-test] chunk $
  4446. 1789.31 s [opt-env-conf-test] T.pack $
  4447. 1789.31 s [opt-env-conf-test] show $
  4448. 1789.31 s [opt-env-conf-test] let go = \case
  4449. 1789.31 s [opt-env-conf-test] [] -> []
  4450. 1789.31 s [opt-env-conf-test] '-' : cs -> go cs
  4451. 1789.31 s [opt-env-conf-test] c : cs -> c : cs
  4452. 1789.31 s [opt-env-conf-test] in go $ NE.toList s,
  4453. 1789.31 s [opt-env-conf-test] " instead."
  4454. 1789.31 s [opt-env-conf-test] ]
  4455. 1789.31 s [opt-env-conf-test] ]
  4456. 1789.31 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  4457. 1789.31 s [opt-env-conf-test] [ [ functionChunk "argument",
  4458. 1789.31 s [opt-env-conf-test] " has no ",
  4459. 1789.31 s [opt-env-conf-test] functionChunk "reader",
  4460. 1789.31 s [opt-env-conf-test] "."
  4461. 1789.31 s [opt-env-conf-test] ]
  4462. 1789.31 s [opt-env-conf-test] ]
  4463. 1789.31 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  4464. 1789.31 s [opt-env-conf-test] [ [ functionChunk "argument",
  4465. 1789.31 s [opt-env-conf-test] " has no ",
  4466. 1789.31 s [opt-env-conf-test] functionChunk "metavar",
  4467. 1789.31 s [opt-env-conf-test] "."
  4468. 1789.31 s [opt-env-conf-test] ]
  4469. 1789.31 s [opt-env-conf-test] ]
  4470. 1789.31 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  4471. 1789.31 s [opt-env-conf-test] [ [ functionChunk "option",
  4472. 1789.31 s [opt-env-conf-test] " or ",
  4473. 1789.31 s [opt-env-conf-test] functionChunk "name",
  4474. 1789.31 s [opt-env-conf-test] " has no ",
  4475. 1789.31 s [opt-env-conf-test] functionChunk "reader",
  4476. 1789.31 s [opt-env-conf-test] "."
  4477. 1789.31 s [opt-env-conf-test] ]
  4478. 1789.31 s [opt-env-conf-test] ]
  4479. 1789.31 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  4480. 1789.31 s [opt-env-conf-test] - [ [ functionChunk "option",
  4481. 1789.31 s [opt-env-conf-test] - " has no ",
  4482. 1789.31 s [opt-env-conf-test] - functionChunk "long",
  4483. 1789.31 s [opt-env-conf-test] - " or ",
  4484. 1789.31 s [opt-env-conf-test] - functionChunk "short",
  4485. 1789.31 s [opt-env-conf-test] - "."
  4486. 1789.31 s [opt-env-conf-test] - ]
  4487. 1789.31 s [opt-env-conf-test] - ]
  4488. 1789.31 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  4489. 1789.31 s [opt-env-conf-test] [ [ functionChunk "option",
  4490. 1789.31 s [opt-env-conf-test] " or ",
  4491. 1789.31 s [opt-env-conf-test] functionChunk "name",
  4492. 1789.31 s [opt-env-conf-test] " has no ",
  4493. 1789.31 s [opt-env-conf-test] functionChunk "metavar",
  4494. 1789.31 s [opt-env-conf-test] "."
  4495. 1789.31 s [opt-env-conf-test] ]
  4496. 1789.31 s [opt-env-conf-test] ]
  4497. 1789.31 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  4498. 1789.31 s [opt-env-conf-test] [ [ functionChunk "switch",
  4499. 1789.31 s [opt-env-conf-test] " has no ",
  4500. 1789.31 s [opt-env-conf-test] functionChunk "long",
  4501. 1789.31 s [opt-env-conf-test] " or ",
  4502. 1789.31 s [opt-env-conf-test] functionChunk "short",
  4503. 1789.31 s [opt-env-conf-test] "."
  4504. 1789.31 s [opt-env-conf-test] ]
  4505. 1789.31 s [opt-env-conf-test] ]
  4506. 1789.31 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  4507. 1789.32 s [opt-env-conf-test] [ [ functionChunk "long",
  4508. 1789.32 s [opt-env-conf-test] " or ",
  4509. 1789.32 s [opt-env-conf-test] functionChunk "short",
  4510. 1789.32 s [opt-env-conf-test] " has no ",
  4511. 1789.32 s [opt-env-conf-test] functionChunk "option",
  4512. 1789.32 s [opt-env-conf-test] " or ",
  4513. 1789.32 s [opt-env-conf-test] functionChunk "switch",
  4514. 1789.32 s [opt-env-conf-test] "."
  4515. 1789.32 s [opt-env-conf-test] ]
  4516. 1789.32 s [opt-env-conf-test] ]
  4517. 1789.32 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  4518. 1789.32 s [opt-env-conf-test] [ [ functionChunk "env",
  4519. 1789.32 s [opt-env-conf-test] " or ",
  4520. 1789.32 s [opt-env-conf-test] functionChunk "name",
  4521. 1789.32 s [opt-env-conf-test] " has no ",
  4522. 1789.32 s [opt-env-conf-test] functionChunk "reader",
  4523. 1789.32 s [opt-env-conf-test] "."
  4524. 1789.32 s [opt-env-conf-test] ]
  4525. 1789.32 s [opt-env-conf-test] ]
  4526. 1789.32 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  4527. 1789.32 s [opt-env-conf-test] [ [ functionChunk "env",
  4528. 1789.32 s [opt-env-conf-test] " or ",
  4529. 1789.32 s [opt-env-conf-test] functionChunk "name",
  4530. 1789.32 s [opt-env-conf-test] " has no ",
  4531. 1789.32 s [opt-env-conf-test] functionChunk "metavar",
  4532. 1789.32 s [opt-env-conf-test] "."
  4533. 1789.32 s [opt-env-conf-test] ]
  4534. 1789.32 s [opt-env-conf-test] ]
  4535. 1789.32 s [opt-env-conf-test] LintErrorNoCommands ->
  4536. 1789.32 s [opt-env-conf-test] [ [ functionChunk "commands",
  4537. 1789.32 s [opt-env-conf-test] " was called with an empty list."
  4538. 1789.32 s [opt-env-conf-test] ]
  4539. 1789.32 s [opt-env-conf-test] ]
  4540. 1789.32 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  4541. 1789.32 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  4542. 1789.32 s [opt-env-conf-test] " was called with an unknown command: ",
  4543. 1789.32 s [opt-env-conf-test] commandChunk c
  4544. 1789.32 s [opt-env-conf-test] ]
  4545. 1789.32 s [opt-env-conf-test] ]
  4546. 1789.32 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  4547. 1789.32 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4548. 1789.32 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  4549. 1789.32 s [opt-env-conf-test] ]
  4550. 1789.32 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  4551. 1789.32 s [opt-env-conf-test] [ [ functionChunk "conf",
  4552. 1789.32 s [opt-env-conf-test] " or ",
  4553. 1789.32 s [opt-env-conf-test] functionChunk "name",
  4554. 1789.32 s [opt-env-conf-test] " was called with no way to load configuration."
  4555. 1789.32 s [opt-env-conf-test] ],
  4556. 1789.32 s [opt-env-conf-test] [ "You can load configuration with ",
  4557. 1789.32 s [opt-env-conf-test] functionChunk "withConfig",
  4558. 1789.32 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  4559. 1789.32 s [opt-env-conf-test] functionChunk "withoutConfig",
  4560. 1789.32 s [opt-env-conf-test] "."
  4561. 1789.32 s [opt-env-conf-test] ]
  4562. 1789.32 s [opt-env-conf-test] ]
  4563. 1789.32 s [opt-env-conf-test] LintErrorManyInfinite ->
  4564. 1789.32 s [opt-env-conf-test] [ [ functionChunk "many",
  4565. 1789.32 s [opt-env-conf-test] " or ",
  4566. 1789.32 s [opt-env-conf-test] functionChunk "some",
  4567. 1789.32 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  4568. 1789.32 s [opt-env-conf-test] ],
  4569. 1789.32 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  4570. 1789.32 s [opt-env-conf-test] ],
  4571. 1789.32 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  4572. 1789.32 s [opt-env-conf-test] ]
  4573. 1789.32 s [opt-env-conf-test]
  4574. 1789.32 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  4575. 1789.32 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  4576. 1789.32 s [opt-env-conf-test] renderLintError LintError {..} =
  4577. 1789.32 s [opt-env-conf-test] concat
  4578. 1789.32 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  4579. 1789.32 s [opt-env-conf-test] case lintErrorMessage of
  4580. 1789.32 s [opt-env-conf-test] LintErrorUndocumented ->
  4581. 1789.32 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  4582. 1789.32 s [opt-env-conf-test] LintErrorEmptySetting ->
  4583. 1789.32 s [opt-env-conf-test] concat
  4584. 1789.32 s [opt-env-conf-test] [ [ [ "This ",
  4585. 1789.32 s [opt-env-conf-test] functionChunk "setting",
  4586. 1789.32 s [opt-env-conf-test] " parses nothing."
  4587. 1789.32 s [opt-env-conf-test] ]
  4588. 1789.32 s [opt-env-conf-test] ],
  4589. 1789.32 s [opt-env-conf-test] [ [ "Add an ",
  4590. 1789.32 s [opt-env-conf-test] functionChunk "argument",
  4591. 1789.32 s [opt-env-conf-test] ", ",
  4592. 1789.32 s [opt-env-conf-test] functionChunk "switch",
  4593. 1789.32 s [opt-env-conf-test] ", ",
  4594. 1789.32 s [opt-env-conf-test] functionChunk "option",
  4595. 1789.32 s [opt-env-conf-test] ", ",
  4596. 1789.32 s [opt-env-conf-test] functionChunk "env",
  4597. 1789.32 s [opt-env-conf-test] ", ",
  4598. 1789.32 s [opt-env-conf-test] functionChunk "conf",
  4599. 1789.32 s [opt-env-conf-test] ", or ",
  4600. 1789.32 s [opt-env-conf-test] functionChunk "value",
  4601. 1789.32 s [opt-env-conf-test] "."
  4602. 1789.32 s [opt-env-conf-test] ]
  4603. 1789.32 s [opt-env-conf-test] ]
  4604. 1789.32 s [opt-env-conf-test] ]
  4605. 1789.32 s [opt-env-conf-test] LintErrorDashInShort ->
  4606. 1789.32 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  4607. 1789.32 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  4608. 1789.32 s [opt-env-conf-test] ]
  4609. 1789.32 s [opt-env-conf-test] LintErrorDashInLong s ->
  4610. 1789.32 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  4611. 1789.32 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4612. 1789.32 s [opt-env-conf-test] [ "Try ",
  4613. 1789.32 s [opt-env-conf-test] functionChunk "long",
  4614. 1789.32 s [opt-env-conf-test] " ",
  4615. 1789.32 s [opt-env-conf-test] chunk $
  4616. 1789.32 s [opt-env-conf-test] T.pack $
  4617. 1789.32 s [opt-env-conf-test] show $
  4618. 1789.32 s [opt-env-conf-test] let go = \case
  4619. 1789.33 s [opt-env-conf-test] [] -> []
  4620. 1789.33 s [opt-env-conf-test] '-' : cs -> go cs
  4621. 1789.33 s [opt-env-conf-test] c : cs -> c : cs
  4622. 1789.33 s [opt-env-conf-test] in go $ NE.toList s,
  4623. 1789.33 s [opt-env-conf-test] " instead."
  4624. 1789.33 s [opt-env-conf-test] ]
  4625. 1789.33 s [opt-env-conf-test] ]
  4626. 1789.33 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  4627. 1789.33 s [opt-env-conf-test] [ [ functionChunk "argument",
  4628. 1789.33 s [opt-env-conf-test] " has no ",
  4629. 1789.33 s [opt-env-conf-test] functionChunk "reader",
  4630. 1789.33 s [opt-env-conf-test] "."
  4631. 1789.33 s [opt-env-conf-test] ]
  4632. 1789.33 s [opt-env-conf-test] ]
  4633. 1789.33 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  4634. 1789.33 s [opt-env-conf-test] [ [ functionChunk "argument",
  4635. 1789.33 s [opt-env-conf-test] " has no ",
  4636. 1789.33 s [opt-env-conf-test] functionChunk "metavar",
  4637. 1789.33 s [opt-env-conf-test] "."
  4638. 1789.33 s [opt-env-conf-test] ]
  4639. 1789.33 s [opt-env-conf-test] ]
  4640. 1789.33 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  4641. 1789.33 s [opt-env-conf-test] - [ [ functionChunk "option",
  4642. 1789.33 s [opt-env-conf-test] - " or ",
  4643. 1789.33 s [opt-env-conf-test] - functionChunk "name",
  4644. 1789.33 s [opt-env-conf-test] - " has no ",
  4645. 1789.33 s [opt-env-conf-test] - functionChunk "reader",
  4646. 1789.33 s [opt-env-conf-test] - "."
  4647. 1789.33 s [opt-env-conf-test] - ]
  4648. 1789.33 s [opt-env-conf-test] - ]
  4649. 1789.33 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  4650. 1789.33 s [opt-env-conf-test] [ [ functionChunk "option",
  4651. 1789.33 s [opt-env-conf-test] " has no ",
  4652. 1789.33 s [opt-env-conf-test] functionChunk "long",
  4653. 1789.33 s [opt-env-conf-test] " or ",
  4654. 1789.33 s [opt-env-conf-test] functionChunk "short",
  4655. 1789.33 s [opt-env-conf-test] "."
  4656. 1789.33 s [opt-env-conf-test] ]
  4657. 1789.33 s [opt-env-conf-test] ]
  4658. 1789.33 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  4659. 1789.33 s [opt-env-conf-test] [ [ functionChunk "option",
  4660. 1789.33 s [opt-env-conf-test] " or ",
  4661. 1789.33 s [opt-env-conf-test] functionChunk "name",
  4662. 1789.33 s [opt-env-conf-test] " has no ",
  4663. 1789.33 s [opt-env-conf-test] functionChunk "metavar",
  4664. 1789.33 s [opt-env-conf-test] "."
  4665. 1789.33 s [opt-env-conf-test] ]
  4666. 1789.33 s [opt-env-conf-test] ]
  4667. 1789.33 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  4668. 1789.33 s [opt-env-conf-test] [ [ functionChunk "switch",
  4669. 1789.33 s [opt-env-conf-test] " has no ",
  4670. 1789.33 s [opt-env-conf-test] functionChunk "long",
  4671. 1789.33 s [opt-env-conf-test] " or ",
  4672. 1789.33 s [opt-env-conf-test] functionChunk "short",
  4673. 1789.33 s [opt-env-conf-test] "."
  4674. 1789.33 s [opt-env-conf-test] ]
  4675. 1789.33 s [opt-env-conf-test] ]
  4676. 1789.33 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  4677. 1789.33 s [opt-env-conf-test] [ [ functionChunk "long",
  4678. 1789.33 s [opt-env-conf-test] " or ",
  4679. 1789.33 s [opt-env-conf-test] functionChunk "short",
  4680. 1789.33 s [opt-env-conf-test] " has no ",
  4681. 1789.33 s [opt-env-conf-test] functionChunk "option",
  4682. 1789.33 s [opt-env-conf-test] " or ",
  4683. 1789.33 s [opt-env-conf-test] functionChunk "switch",
  4684. 1789.33 s [opt-env-conf-test] "."
  4685. 1789.33 s [opt-env-conf-test] ]
  4686. 1789.33 s [opt-env-conf-test] ]
  4687. 1789.33 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  4688. 1789.33 s [opt-env-conf-test] [ [ functionChunk "env",
  4689. 1789.33 s [opt-env-conf-test] " or ",
  4690. 1789.33 s [opt-env-conf-test] functionChunk "name",
  4691. 1789.33 s [opt-env-conf-test] " has no ",
  4692. 1789.33 s [opt-env-conf-test] functionChunk "reader",
  4693. 1789.33 s [opt-env-conf-test] "."
  4694. 1789.33 s [opt-env-conf-test] ]
  4695. 1789.33 s [opt-env-conf-test] ]
  4696. 1789.33 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  4697. 1789.33 s [opt-env-conf-test] [ [ functionChunk "env",
  4698. 1789.33 s [opt-env-conf-test] " or ",
  4699. 1789.33 s [opt-env-conf-test] functionChunk "name",
  4700. 1789.33 s [opt-env-conf-test] " has no ",
  4701. 1789.33 s [opt-env-conf-test] functionChunk "metavar",
  4702. 1789.33 s [opt-env-conf-test] "."
  4703. 1789.33 s [opt-env-conf-test] ]
  4704. 1789.33 s [opt-env-conf-test] ]
  4705. 1789.33 s [opt-env-conf-test] LintErrorNoCommands ->
  4706. 1789.83 s [opt-env-conf-test] [ [ functionChunk "commands",
  4707. 1789.83 s [opt-env-conf-test] " was called with an empty list."
  4708. 1789.83 s [opt-env-conf-test] ]
  4709. 1789.83 s [opt-env-conf-test] ]
  4710. 1789.83 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  4711. 1789.83 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  4712. 1789.83 s [opt-env-conf-test] " was called with an unknown command: ",
  4713. 1789.83 s [opt-env-conf-test] commandChunk c
  4714. 1789.83 s [opt-env-conf-test] ]
  4715. 1789.83 s [opt-env-conf-test] ]
  4716. 1789.83 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  4717. 1789.83 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4718. 1789.83 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  4719. 1789.83 s [opt-env-conf-test] ]
  4720. 1789.83 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  4721. 1789.83 s [opt-env-conf-test] [ [ functionChunk "conf",
  4722. 1789.83 s [opt-env-conf-test] " or ",
  4723. 1789.83 s [opt-env-conf-test] functionChunk "name",
  4724. 1789.83 s [opt-env-conf-test] " was called with no way to load configuration."
  4725. 1789.83 s [opt-env-conf-test] ],
  4726. 1789.83 s [opt-env-conf-test] [ "You can load configuration with ",
  4727. 1789.83 s [opt-env-conf-test] functionChunk "withConfig",
  4728. 1789.83 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  4729. 1789.83 s [opt-env-conf-test] functionChunk "withoutConfig",
  4730. 1789.83 s [opt-env-conf-test] "."
  4731. 1789.83 s [opt-env-conf-test] ]
  4732. 1789.83 s [opt-env-conf-test] ]
  4733. 1789.83 s [opt-env-conf-test] LintErrorManyInfinite ->
  4734. 1789.83 s [opt-env-conf-test] [ [ functionChunk "many",
  4735. 1789.83 s [opt-env-conf-test] " or ",
  4736. 1789.83 s [opt-env-conf-test] functionChunk "some",
  4737. 1789.83 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  4738. 1789.83 s [opt-env-conf-test] ],
  4739. 1789.83 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  4740. 1789.83 s [opt-env-conf-test] ],
  4741. 1789.84 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  4742. 1789.84 s [opt-env-conf-test] ]
  4743. 1789.84 s [opt-env-conf-test]
  4744. 1789.84 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  4745. 1789.84 s [opt-env-conf-test] @@ -66,168 +66,162 @@
  4746. 1789.84 s [opt-env-conf-test] renderLintError LintError {..} =
  4747. 1789.84 s [opt-env-conf-test] concat
  4748. 1789.84 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  4749. 1789.84 s [opt-env-conf-test] case lintErrorMessage of
  4750. 1789.84 s [opt-env-conf-test] LintErrorUndocumented ->
  4751. 1789.84 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  4752. 1789.84 s [opt-env-conf-test] LintErrorEmptySetting ->
  4753. 1789.84 s [opt-env-conf-test] concat
  4754. 1789.84 s [opt-env-conf-test] [ [ [ "This ",
  4755. 1789.84 s [opt-env-conf-test] functionChunk "setting",
  4756. 1789.84 s [opt-env-conf-test] " parses nothing."
  4757. 1789.84 s [opt-env-conf-test] ]
  4758. 1789.84 s [opt-env-conf-test] ],
  4759. 1789.84 s [opt-env-conf-test] [ [ "Add an ",
  4760. 1789.84 s [opt-env-conf-test] functionChunk "argument",
  4761. 1789.84 s [opt-env-conf-test] ", ",
  4762. 1789.84 s [opt-env-conf-test] functionChunk "switch",
  4763. 1789.84 s [opt-env-conf-test] ", ",
  4764. 1789.84 s [opt-env-conf-test] functionChunk "option",
  4765. 1789.84 s [opt-env-conf-test] ", ",
  4766. 1789.84 s [opt-env-conf-test] functionChunk "env",
  4767. 1789.84 s [opt-env-conf-test] ", ",
  4768. 1789.84 s [opt-env-conf-test] functionChunk "conf",
  4769. 1789.84 s [opt-env-conf-test] ", or ",
  4770. 1789.84 s [opt-env-conf-test] functionChunk "value",
  4771. 1789.84 s [opt-env-conf-test] "."
  4772. 1789.84 s [opt-env-conf-test] ]
  4773. 1789.84 s [opt-env-conf-test] ]
  4774. 1789.84 s [opt-env-conf-test] ]
  4775. 1789.84 s [opt-env-conf-test] LintErrorDashInShort ->
  4776. 1789.84 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  4777. 1789.84 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  4778. 1789.84 s [opt-env-conf-test] ]
  4779. 1789.84 s [opt-env-conf-test] LintErrorDashInLong s ->
  4780. 1789.84 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  4781. 1789.84 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4782. 1789.84 s [opt-env-conf-test] [ "Try ",
  4783. 1789.84 s [opt-env-conf-test] functionChunk "long",
  4784. 1789.84 s [opt-env-conf-test] " ",
  4785. 1789.84 s [opt-env-conf-test] chunk $
  4786. 1789.84 s [opt-env-conf-test] T.pack $
  4787. 1789.84 s [opt-env-conf-test] show $
  4788. 1789.84 s [opt-env-conf-test] let go = \case
  4789. 1789.84 s [opt-env-conf-test] [] -> []
  4790. 1789.84 s [opt-env-conf-test] '-' : cs -> go cs
  4791. 1789.84 s [opt-env-conf-test] c : cs -> c : cs
  4792. 1789.84 s [opt-env-conf-test] in go $ NE.toList s,
  4793. 1789.84 s [opt-env-conf-test] " instead."
  4794. 1789.84 s [opt-env-conf-test] ]
  4795. 1789.84 s [opt-env-conf-test] ]
  4796. 1789.84 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  4797. 1789.84 s [opt-env-conf-test] [ [ functionChunk "argument",
  4798. 1789.84 s [opt-env-conf-test] " has no ",
  4799. 1789.84 s [opt-env-conf-test] functionChunk "reader",
  4800. 1789.84 s [opt-env-conf-test] "."
  4801. 1789.84 s [opt-env-conf-test] ]
  4802. 1789.84 s [opt-env-conf-test] ]
  4803. 1789.84 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  4804. 1789.84 s [opt-env-conf-test] [ [ functionChunk "argument",
  4805. 1789.84 s [opt-env-conf-test] " has no ",
  4806. 1789.84 s [opt-env-conf-test] functionChunk "metavar",
  4807. 1789.84 s [opt-env-conf-test] "."
  4808. 1789.84 s [opt-env-conf-test] ]
  4809. 1789.84 s [opt-env-conf-test] ]
  4810. 1789.84 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  4811. 1789.85 s [opt-env-conf-test] [ [ functionChunk "option",
  4812. 1789.85 s [opt-env-conf-test] " or ",
  4813. 1789.85 s [opt-env-conf-test] functionChunk "name",
  4814. 1789.85 s [opt-env-conf-test] " has no ",
  4815. 1789.85 s [opt-env-conf-test] functionChunk "reader",
  4816. 1789.85 s [opt-env-conf-test] "."
  4817. 1789.85 s [opt-env-conf-test] ]
  4818. 1789.85 s [opt-env-conf-test] ]
  4819. 1789.85 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  4820. 1789.85 s [opt-env-conf-test] [ [ functionChunk "option",
  4821. 1789.85 s [opt-env-conf-test] " has no ",
  4822. 1789.85 s [opt-env-conf-test] functionChunk "long",
  4823. 1789.85 s [opt-env-conf-test] " or ",
  4824. 1789.85 s [opt-env-conf-test] functionChunk "short",
  4825. 1789.85 s [opt-env-conf-test] "."
  4826. 1789.85 s [opt-env-conf-test] ]
  4827. 1789.85 s [opt-env-conf-test] ]
  4828. 1789.85 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  4829. 1789.85 s [opt-env-conf-test] [ [ functionChunk "option",
  4830. 1789.85 s [opt-env-conf-test] " or ",
  4831. 1789.85 s [opt-env-conf-test] functionChunk "name",
  4832. 1789.85 s [opt-env-conf-test] " has no ",
  4833. 1789.85 s [opt-env-conf-test] functionChunk "metavar",
  4834. 1789.85 s [opt-env-conf-test] "."
  4835. 1789.85 s [opt-env-conf-test] ]
  4836. 1789.85 s [opt-env-conf-test] ]
  4837. 1789.85 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  4838. 1789.85 s [opt-env-conf-test] [ [ functionChunk "switch",
  4839. 1789.85 s [opt-env-conf-test] " has no ",
  4840. 1789.85 s [opt-env-conf-test] functionChunk "long",
  4841. 1789.85 s [opt-env-conf-test] " or ",
  4842. 1789.85 s [opt-env-conf-test] functionChunk "short",
  4843. 1789.85 s [opt-env-conf-test] "."
  4844. 1789.85 s [opt-env-conf-test] ]
  4845. 1789.85 s [opt-env-conf-test] ]
  4846. 1789.85 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  4847. 1789.85 s [opt-env-conf-test] [ [ functionChunk "long",
  4848. 1789.85 s [opt-env-conf-test] " or ",
  4849. 1789.85 s [opt-env-conf-test] functionChunk "short",
  4850. 1789.85 s [opt-env-conf-test] " has no ",
  4851. 1789.85 s [opt-env-conf-test] functionChunk "option",
  4852. 1789.85 s [opt-env-conf-test] " or ",
  4853. 1789.85 s [opt-env-conf-test] functionChunk "switch",
  4854. 1789.85 s [opt-env-conf-test] "."
  4855. 1789.85 s [opt-env-conf-test] ]
  4856. 1789.85 s [opt-env-conf-test] ]
  4857. 1789.85 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  4858. 1789.85 s [opt-env-conf-test] [ [ functionChunk "env",
  4859. 1789.85 s [opt-env-conf-test] " or ",
  4860. 1789.85 s [opt-env-conf-test] functionChunk "name",
  4861. 1789.85 s [opt-env-conf-test] " has no ",
  4862. 1789.85 s [opt-env-conf-test] functionChunk "reader",
  4863. 1789.85 s [opt-env-conf-test] "."
  4864. 1789.85 s [opt-env-conf-test] ]
  4865. 1789.85 s [opt-env-conf-test] ]
  4866. 1789.85 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  4867. 1789.85 s [opt-env-conf-test] [ [ functionChunk "env",
  4868. 1789.85 s [opt-env-conf-test] " or ",
  4869. 1789.85 s [opt-env-conf-test] functionChunk "name",
  4870. 1789.85 s [opt-env-conf-test] " has no ",
  4871. 1789.85 s [opt-env-conf-test] functionChunk "metavar",
  4872. 1789.85 s [opt-env-conf-test] "."
  4873. 1789.85 s [opt-env-conf-test] ]
  4874. 1789.85 s [opt-env-conf-test] ]
  4875. 1789.85 s [opt-env-conf-test] LintErrorNoCommands ->
  4876. 1789.85 s [opt-env-conf-test] [ [ functionChunk "commands",
  4877. 1789.85 s [opt-env-conf-test] " was called with an empty list."
  4878. 1789.85 s [opt-env-conf-test] - ]
  4879. 1789.85 s [opt-env-conf-test] - ]
  4880. 1789.85 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  4881. 1789.85 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  4882. 1789.85 s [opt-env-conf-test] - " was called with an unknown command: ",
  4883. 1789.85 s [opt-env-conf-test] - commandChunk c
  4884. 1789.85 s [opt-env-conf-test] ]
  4885. 1789.85 s [opt-env-conf-test] ]
  4886. 1789.85 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  4887. 1789.85 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4888. 1789.85 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  4889. 1789.85 s [opt-env-conf-test] ]
  4890. 1789.85 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  4891. 1789.85 s [opt-env-conf-test] [ [ functionChunk "conf",
  4892. 1789.85 s [opt-env-conf-test] " or ",
  4893. 1789.85 s [opt-env-conf-test] functionChunk "name",
  4894. 1789.85 s [opt-env-conf-test] " was called with no way to load configuration."
  4895. 1789.85 s [opt-env-conf-test] ],
  4896. 1789.85 s [opt-env-conf-test] [ "You can load configuration with ",
  4897. 1789.85 s [opt-env-conf-test] functionChunk "withConfig",
  4898. 1789.85 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  4899. 1789.85 s [opt-env-conf-test] functionChunk "withoutConfig",
  4900. 1789.85 s [opt-env-conf-test] "."
  4901. 1789.85 s [opt-env-conf-test] ]
  4902. 1789.85 s [opt-env-conf-test] ]
  4903. 1789.85 s [opt-env-conf-test] LintErrorManyInfinite ->
  4904. 1789.85 s [opt-env-conf-test] [ [ functionChunk "many",
  4905. 1789.85 s [opt-env-conf-test] " or ",
  4906. 1789.85 s [opt-env-conf-test] functionChunk "some",
  4907. 1789.85 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  4908. 1789.85 s [opt-env-conf-test] ],
  4909. 1789.85 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  4910. 1789.85 s [opt-env-conf-test] ],
  4911. 1789.85 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  4912. 1789.85 s [opt-env-conf-test] ]
  4913. 1789.85 s [opt-env-conf-test]
  4914. 1789.85 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  4915. 1789.86 s [opt-env-conf-test] @@ -66,168 +66,164 @@
  4916. 1789.86 s [opt-env-conf-test] renderLintError LintError {..} =
  4917. 1789.86 s [opt-env-conf-test] concat
  4918. 1789.86 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  4919. 1789.86 s [opt-env-conf-test] case lintErrorMessage of
  4920. 1789.86 s [opt-env-conf-test] LintErrorUndocumented ->
  4921. 1789.86 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  4922. 1789.86 s [opt-env-conf-test] LintErrorEmptySetting ->
  4923. 1789.86 s [opt-env-conf-test] concat
  4924. 1789.86 s [opt-env-conf-test] [ [ [ "This ",
  4925. 1789.86 s [opt-env-conf-test] functionChunk "setting",
  4926. 1789.86 s [opt-env-conf-test] " parses nothing."
  4927. 1789.86 s [opt-env-conf-test] ]
  4928. 1789.86 s [opt-env-conf-test] ],
  4929. 1789.86 s [opt-env-conf-test] [ [ "Add an ",
  4930. 1789.86 s [opt-env-conf-test] functionChunk "argument",
  4931. 1789.86 s [opt-env-conf-test] ", ",
  4932. 1789.86 s [opt-env-conf-test] functionChunk "switch",
  4933. 1789.86 s [opt-env-conf-test] ", ",
  4934. 1789.86 s [opt-env-conf-test] functionChunk "option",
  4935. 1789.86 s [opt-env-conf-test] ", ",
  4936. 1789.86 s [opt-env-conf-test] functionChunk "env",
  4937. 1789.86 s [opt-env-conf-test] ", ",
  4938. 1789.86 s [opt-env-conf-test] functionChunk "conf",
  4939. 1789.86 s [opt-env-conf-test] ", or ",
  4940. 1789.86 s [opt-env-conf-test] functionChunk "value",
  4941. 1789.86 s [opt-env-conf-test] "."
  4942. 1789.86 s [opt-env-conf-test] ]
  4943. 1789.86 s [opt-env-conf-test] ]
  4944. 1789.86 s [opt-env-conf-test] ]
  4945. 1789.86 s [opt-env-conf-test] - LintErrorDashInShort ->
  4946. 1789.86 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  4947. 1789.86 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  4948. 1789.86 s [opt-env-conf-test] - ]
  4949. 1789.86 s [opt-env-conf-test] LintErrorDashInLong s ->
  4950. 1789.86 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  4951. 1789.86 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4952. 1789.86 s [opt-env-conf-test] [ "Try ",
  4953. 1789.86 s [opt-env-conf-test] functionChunk "long",
  4954. 1789.86 s [opt-env-conf-test] " ",
  4955. 1789.86 s [opt-env-conf-test] chunk $
  4956. 1789.86 s [opt-env-conf-test] T.pack $
  4957. 1789.86 s [opt-env-conf-test] show $
  4958. 1789.86 s [opt-env-conf-test] let go = \case
  4959. 1789.86 s [opt-env-conf-test] [] -> []
  4960. 1789.86 s [opt-env-conf-test] '-' : cs -> go cs
  4961. 1789.86 s [opt-env-conf-test] c : cs -> c : cs
  4962. 1789.86 s [opt-env-conf-test] in go $ NE.toList s,
  4963. 1789.86 s [opt-env-conf-test] " instead."
  4964. 1789.86 s [opt-env-conf-test] ]
  4965. 1789.86 s [opt-env-conf-test] ]
  4966. 1789.86 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  4967. 1789.86 s [opt-env-conf-test] [ [ functionChunk "argument",
  4968. 1789.86 s [opt-env-conf-test] " has no ",
  4969. 1789.86 s [opt-env-conf-test] functionChunk "reader",
  4970. 1789.86 s [opt-env-conf-test] "."
  4971. 1789.86 s [opt-env-conf-test] ]
  4972. 1789.86 s [opt-env-conf-test] ]
  4973. 1789.86 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  4974. 1789.86 s [opt-env-conf-test] [ [ functionChunk "argument",
  4975. 1789.86 s [opt-env-conf-test] " has no ",
  4976. 1789.86 s [opt-env-conf-test] functionChunk "metavar",
  4977. 1789.86 s [opt-env-conf-test] "."
  4978. 1789.86 s [opt-env-conf-test] ]
  4979. 1789.86 s [opt-env-conf-test] ]
  4980. 1789.86 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  4981. 1789.86 s [opt-env-conf-test] [ [ functionChunk "option",
  4982. 1789.86 s [opt-env-conf-test] " or ",
  4983. 1789.86 s [opt-env-conf-test] functionChunk "name",
  4984. 1789.86 s [opt-env-conf-test] " has no ",
  4985. 1789.86 s [opt-env-conf-test] functionChunk "reader",
  4986. 1789.86 s [opt-env-conf-test] "."
  4987. 1789.86 s [opt-env-conf-test] ]
  4988. 1789.86 s [opt-env-conf-test] ]
  4989. 1789.86 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  4990. 1789.86 s [opt-env-conf-test] [ [ functionChunk "option",
  4991. 1789.86 s [opt-env-conf-test] " has no ",
  4992. 1789.86 s [opt-env-conf-test] functionChunk "long",
  4993. 1789.86 s [opt-env-conf-test] " or ",
  4994. 1789.86 s [opt-env-conf-test] functionChunk "short",
  4995. 1789.86 s [opt-env-conf-test] "."
  4996. 1789.86 s [opt-env-conf-test] ]
  4997. 1789.86 s [opt-env-conf-test] ]
  4998. 1789.86 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  4999. 1789.86 s [opt-env-conf-test] [ [ functionChunk "option",
  5000. 1789.86 s [opt-env-conf-test] " or ",
  5001. 1789.86 s [opt-env-conf-test] functionChunk "name",
  5002. 1789.86 s [opt-env-conf-test] " has no ",
  5003. 1789.86 s [opt-env-conf-test] functionChunk "metavar",
  5004. 1789.86 s [opt-env-conf-test] "."
  5005. 1789.86 s [opt-env-conf-test] ]
  5006. 1789.86 s [opt-env-conf-test] ]
  5007. 1789.86 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  5008. 1789.86 s [opt-env-conf-test] [ [ functionChunk "switch",
  5009. 1789.86 s [opt-env-conf-test] " has no ",
  5010. 1789.86 s [opt-env-conf-test] functionChunk "long",
  5011. 1789.86 s [opt-env-conf-test] " or ",
  5012. 1789.86 s [opt-env-conf-test] functionChunk "short",
  5013. 1789.86 s [opt-env-conf-test] "."
  5014. 1789.86 s [opt-env-conf-test] ]
  5015. 1789.86 s [opt-env-conf-test] ]
  5016. 1789.86 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  5017. 1789.86 s [opt-env-conf-test] [ [ functionChunk "long",
  5018. 1789.86 s [opt-env-conf-test] " or ",
  5019. 1789.86 s [opt-env-conf-test] functionChunk "short",
  5020. 1789.86 s [opt-env-conf-test] " has no ",
  5021. 1789.86 s [opt-env-conf-test] functionChunk "option",
  5022. 1789.86 s [opt-env-conf-test] " or ",
  5023. 1789.86 s [opt-env-conf-test] functionChunk "switch",
  5024. 1789.86 s [opt-env-conf-test] "."
  5025. 1789.86 s [opt-env-conf-test] ]
  5026. 1789.86 s [opt-env-conf-test] ]
  5027. 1789.86 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  5028. 1789.86 s [opt-env-conf-test] [ [ functionChunk "env",
  5029. 1789.86 s [opt-env-conf-test] " or ",
  5030. 1789.86 s [opt-env-conf-test] functionChunk "name",
  5031. 1789.86 s [opt-env-conf-test] " has no ",
  5032. 1789.86 s [opt-env-conf-test] functionChunk "reader",
  5033. 1789.86 s [opt-env-conf-test] "."
  5034. 1789.86 s [opt-env-conf-test] ]
  5035. 1789.86 s [opt-env-conf-test] ]
  5036. 1789.86 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  5037. 1789.86 s [opt-env-conf-test] [ [ functionChunk "env",
  5038. 1789.86 s [opt-env-conf-test] " or ",
  5039. 1789.86 s [opt-env-conf-test] functionChunk "name",
  5040. 1789.86 s [opt-env-conf-test] " has no ",
  5041. 1789.86 s [opt-env-conf-test] functionChunk "metavar",
  5042. 1789.86 s [opt-env-conf-test] "."
  5043. 1789.86 s [opt-env-conf-test] ]
  5044. 1789.86 s [opt-env-conf-test] ]
  5045. 1789.86 s [opt-env-conf-test] LintErrorNoCommands ->
  5046. 1789.86 s [opt-env-conf-test] [ [ functionChunk "commands",
  5047. 1792.53 s [opt-env-conf-test] " was called with an empty list."
  5048. 1792.53 s [opt-env-conf-test] ]
  5049. 1792.53 s [opt-env-conf-test] ]
  5050. 1792.53 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  5051. 1792.53 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  5052. 1792.53 s [opt-env-conf-test] " was called with an unknown command: ",
  5053. 1792.53 s [opt-env-conf-test] commandChunk c
  5054. 1792.53 s [opt-env-conf-test] ]
  5055. 1792.53 s [opt-env-conf-test] ]
  5056. 1792.53 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  5057. 1792.53 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5058. 1792.53 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  5059. 1792.53 s [opt-env-conf-test] ]
  5060. 1792.53 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  5061. 1792.53 s [opt-env-conf-test] [ [ functionChunk "conf",
  5062. 1792.53 s [opt-env-conf-test] " or ",
  5063. 1792.53 s [opt-env-conf-test] functionChunk "name",
  5064. 1792.53 s [opt-env-conf-test] " was called with no way to load configuration."
  5065. 1792.53 s [opt-env-conf-test] ],
  5066. 1792.53 s [opt-env-conf-test] [ "You can load configuration with ",
  5067. 1792.53 s [opt-env-conf-test] functionChunk "withConfig",
  5068. 1792.53 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  5069. 1792.53 s [opt-env-conf-test] functionChunk "withoutConfig",
  5070. 1792.53 s [opt-env-conf-test] "."
  5071. 1792.53 s [opt-env-conf-test] ]
  5072. 1792.53 s [opt-env-conf-test] ]
  5073. 1792.53 s [opt-env-conf-test] LintErrorManyInfinite ->
  5074. 1792.53 s [opt-env-conf-test] [ [ functionChunk "many",
  5075. 1792.53 s [opt-env-conf-test] " or ",
  5076. 1792.53 s [opt-env-conf-test] functionChunk "some",
  5077. 1792.53 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  5078. 1792.53 s [opt-env-conf-test] ],
  5079. 1792.53 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  5080. 1792.53 s [opt-env-conf-test] ],
  5081. 1792.53 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  5082. 1792.53 s [opt-env-conf-test] ]
  5083. 1792.53 s [opt-env-conf-test]
  5084. 1792.53 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/NonDet.hs:74:24-42
  5085. 1792.53 s [opt-env-conf-test] @@ -71,7 +71,7 @@
  5086. 1792.53 s [opt-env-conf-test] runListTLazy = fmap g . unListT
  5087. 1792.53 s [opt-env-conf-test] where
  5088. 1792.53 s [opt-env-conf-test] g MNil = Nothing
  5089. 1792.53 s [opt-env-conf-test] - g (x `MCons` xs) = Just (x, ListT xs)
  5090. 1792.53 s [opt-env-conf-test] + g (x `MCons` xs) = Nothing
  5091. 1792.53 s [opt-env-conf-test]
  5092. 1792.53 s [opt-env-conf-test] runListTComplete :: (Monad m) => ListT m a -> m [a]
  5093. 1792.53 s [opt-env-conf-test] runListTComplete = unListT >=> go
  5094. 1792.53 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:379:57-62
  5095. 1792.53 s [opt-env-conf-test] @@ -376,7 +376,7 @@
  5096. 1792.53 s [opt-env-conf-test]
  5097. 1792.53 s [opt-env-conf-test] -- | Like 'env' but ignores any 'subEnv', 'subEnv_', or 'subAll'.
  5098. 1792.53 s [opt-env-conf-test] unprefixedEnv :: String -> Builder a
  5099. 1792.53 s [opt-env-conf-test] -unprefixedEnv v = Builder [BuildAddEnv (EnvVarSetting v False)]
  5100. 1792.53 s [opt-env-conf-test] +unprefixedEnv v = Builder [BuildAddEnv (EnvVarSetting v True)]
  5101. 1792.53 s [opt-env-conf-test]
  5102. 1792.53 s [opt-env-conf-test] -- | Try to parse a configuration value at the given key.
  5103. 1792.53 s [opt-env-conf-test] --
  5104. 1792.53 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
  5105. 1792.53 s [opt-env-conf-test] @@ -424,11 +424,10 @@
  5106. 1792.54 s [opt-env-conf-test] name :: (HasCodec a) => String -> Builder a
  5107. 1792.54 s [opt-env-conf-test] name s =
  5108. 1792.54 s [opt-env-conf-test] mconcat
  5109. 1792.54 s [opt-env-conf-test] [ option,
  5110. 1792.54 s [opt-env-conf-test] long (toArgCase s),
  5111. 1792.54 s [opt-env-conf-test] env (toEnvCase s),
  5112. 1792.54 s [opt-env-conf-test] - conf (toConfigCase s)
  5113. 1792.54 s [opt-env-conf-test] ]
  5114. 1792.54 s [opt-env-conf-test]
  5115. 1792.54 s [opt-env-conf-test] -- | Set the default value
  5116. 1792.54 s [opt-env-conf-test] --
  5117. 1792.54 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:277:43-47
  5118. 1792.54 s [opt-env-conf-test] @@ -274,7 +274,7 @@
  5119. 1792.54 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5120. 1792.54 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5121. 1792.54 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5122. 1792.54 s [opt-env-conf-test] - BuildTryOption -> s {settingTryOption = True}
  5123. 1792.54 s [opt-env-conf-test] + BuildTryOption -> s {settingTryOption = False}
  5124. 1792.54 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5125. 1792.54 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5126. 1792.54 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5127. 1792.54 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:286:40-44
  5128. 1792.54 s [opt-env-conf-test] @@ -283,7 +283,7 @@
  5129. 1792.54 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5130. 1792.54 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5131. 1792.54 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5132. 1792.54 s [opt-env-conf-test] - BuildSetHidden -> s {settingHidden = True}
  5133. 1792.54 s [opt-env-conf-test] + BuildSetHidden -> s {settingHidden = False}
  5134. 1792.54 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5135. 1792.54 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5136. 1792.54 s [opt-env-conf-test]
  5137. 1792.54 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5138. 1792.54 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5139. 1792.54 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5140. 1792.54 s [opt-env-conf-test]
  5141. 1792.54 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5142. 1792.54 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5143. 1792.54 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5144. 1792.54 s [opt-env-conf-test] - BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5145. 1792.54 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5146. 1792.54 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5147. 1792.54 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5148. 1792.54 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5149. 1792.54 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5150. 1792.54 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5151. 1792.54 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5152. 1792.54 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5153. 1792.54 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5154. 1792.54 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5155. 1792.54 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5156. 1792.54 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5157. 1792.54 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5158. 1792.54 s [opt-env-conf-test]
  5159. 1792.54 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5160. 1792.54 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5161. 1792.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
  5162. 1792.54 s [opt-env-conf-test] @@ -424,11 +424,7 @@
  5163. 1792.54 s [opt-env-conf-test] name :: (HasCodec a) => String -> Builder a
  5164. 1792.54 s [opt-env-conf-test] name s =
  5165. 1792.54 s [opt-env-conf-test] mconcat
  5166. 1792.54 s [opt-env-conf-test] - [ option,
  5167. 1792.54 s [opt-env-conf-test] - long (toArgCase s),
  5168. 1792.54 s [opt-env-conf-test] - env (toEnvCase s),
  5169. 1792.54 s [opt-env-conf-test] - conf (toConfigCase s)
  5170. 1792.54 s [opt-env-conf-test] ]
  5171. 1792.54 s [opt-env-conf-test]
  5172. 1792.54 s [opt-env-conf-test] -- | Set the default value
  5173. 1792.54 s [opt-env-conf-test] --
  5174. 1792.54 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Setting.hs:287:48-54
  5175. 1792.54 s [opt-env-conf-test] @@ -284,7 +284,7 @@
  5176. 1792.54 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5177. 1792.54 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5178. 1792.54 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5179. 1792.54 s [opt-env-conf-test] - BuildSetCompleter c -> s {settingCompleter = Just c}
  5180. 1792.54 s [opt-env-conf-test] + BuildSetCompleter c -> s {settingCompleter = Nothing}
  5181. 1792.54 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5182. 1792.54 s [opt-env-conf-test]
  5183. 1792.54 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5184. 1792.54 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5185. 1792.54 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5186. 1792.54 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5187. 1792.54 s [opt-env-conf-test]
  5188. 1792.54 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5189. 1792.54 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5190. 1792.54 s [opt-env-conf-test] - BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5191. 1792.54 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5192. 1792.54 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5193. 1792.54 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5194. 1792.54 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5195. 1792.54 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5196. 1792.54 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5197. 1792.54 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5198. 1792.54 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5199. 1792.54 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5200. 1792.54 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5201. 1792.54 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5202. 1792.55 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5203. 1792.55 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5204. 1792.55 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5205. 1792.55 s [opt-env-conf-test]
  5206. 1792.55 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5207. 1792.55 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5208. 1792.55 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Setting.hs:284:55-70
  5209. 1792.55 s [opt-env-conf-test] @@ -281,7 +281,7 @@
  5210. 1792.55 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5211. 1792.55 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5212. 1794.86 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5213. 1794.86 s [opt-env-conf-test] - BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5214. 1794.95 s [opt-env-conf-test] + BuildSetDefault a shown -> s {settingDefaultValue = Nothing}
  5215. 1794.96 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5216. 1794.96 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5217. 1794.96 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5218. 1794.96 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:276:47-51
  5219. 1794.96 s [opt-env-conf-test] @@ -273,7 +273,7 @@
  5220. 1794.96 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5221. 1794.96 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5222. 1794.96 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5223. 1794.96 s [opt-env-conf-test] - BuildTryArgument -> s {settingTryArgument = True}
  5224. 1794.96 s [opt-env-conf-test] + BuildTryArgument -> s {settingTryArgument = False}
  5225. 1794.96 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5226. 1794.96 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5227. 1794.96 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5228. 1794.96 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Setting.hs:278:52-58
  5229. 1794.96 s [opt-env-conf-test] @@ -275,7 +275,7 @@
  5230. 1794.96 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5231. 1794.96 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5232. 1794.96 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5233. 1794.96 s [opt-env-conf-test] - BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5234. 1794.96 s [opt-env-conf-test] + BuildSetSwitchValue a -> s {settingSwitchValue = Nothing}
  5235. 1794.96 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5236. 1794.96 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5237. 1794.96 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5238. 1794.96 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:416:43-48
  5239. 1794.96 s [opt-env-conf-test] @@ -413,7 +413,7 @@
  5240. 1794.96 s [opt-env-conf-test] let t =
  5241. 1794.96 s [opt-env-conf-test] ConfigValSetting
  5242. 1794.96 s [opt-env-conf-test] { configValSettingPath = k :| [],
  5243. 1794.96 s [opt-env-conf-test] - configValSettingAllowPrefix = False,
  5244. 1794.96 s [opt-env-conf-test] + configValSettingAllowPrefix = True,
  5245. 1794.96 s [opt-env-conf-test] configValSettingCodec = c
  5246. 1794.96 s [opt-env-conf-test] }
  5247. 1794.96 s [opt-env-conf-test] in Builder [BuildAddConf t]
  5248. 1794.96 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:375:47-51
  5249. 1794.96 s [opt-env-conf-test] @@ -372,7 +372,7 @@
  5250. 1794.96 s [opt-env-conf-test] --
  5251. 1794.96 s [opt-env-conf-test] -- Multiple 'env's will be tried in order.
  5252. 1794.96 s [opt-env-conf-test] env :: String -> Builder a
  5253. 1794.96 s [opt-env-conf-test] -env v = Builder [BuildAddEnv (EnvVarSetting v True)]
  5254. 1794.96 s [opt-env-conf-test] +env v = Builder [BuildAddEnv (EnvVarSetting v False)]
  5255. 1794.96 s [opt-env-conf-test]
  5256. 1794.96 s [opt-env-conf-test] -- | Like 'env' but ignores any 'subEnv', 'subEnv_', or 'subAll'.
  5257. 1794.96 s [opt-env-conf-test] unprefixedEnv :: String -> Builder a
  5258. 1794.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5259. 1794.96 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5260. 1794.96 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5261. 1794.96 s [opt-env-conf-test]
  5262. 1794.96 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5263. 1794.96 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5264. 1794.96 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5265. 1794.96 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5266. 1794.97 s [opt-env-conf-test] - BuildTryArgument -> s {settingTryArgument = True}
  5267. 1794.97 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5268. 1794.97 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5269. 1794.97 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5270. 1794.97 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5271. 1794.97 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5272. 1794.97 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5273. 1794.97 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5274. 1794.97 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5275. 1794.97 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5276. 1794.97 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5277. 1794.97 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5278. 1794.97 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5279. 1794.97 s [opt-env-conf-test]
  5280. 1794.97 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5281. 1794.97 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5282. 1794.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5283. 1794.97 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5284. 1794.97 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5285. 1794.97 s [opt-env-conf-test]
  5286. 1794.97 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5287. 1794.97 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5288. 1794.97 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5289. 1794.97 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5290. 1794.97 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5291. 1794.97 s [opt-env-conf-test] - BuildTryOption -> s {settingTryOption = True}
  5292. 1794.97 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5293. 1794.97 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5294. 1794.97 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5295. 1794.97 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5296. 1794.97 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5297. 1794.97 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5298. 1794.97 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5299. 1794.97 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5300. 1794.97 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5301. 1794.97 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5302. 1794.97 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5303. 1794.97 s [opt-env-conf-test]
  5304. 1794.97 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5305. 1794.97 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5306. 1794.97 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Setting.hs:275:45-52
  5307. 1794.97 s [opt-env-conf-test] @@ -272,7 +272,7 @@
  5308. 1794.97 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5309. 1794.97 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5310. 1794.97 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5311. 1794.97 s [opt-env-conf-test] - BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5312. 1794.97 s [opt-env-conf-test] + BuildSetMetavar mv -> s {settingMetavar = Nothing}
  5313. 1794.97 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5314. 1794.97 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5315. 1794.97 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5316. 1794.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
  5317. 1794.97 s [opt-env-conf-test] @@ -424,11 +424,10 @@
  5318. 1794.97 s [opt-env-conf-test] name :: (HasCodec a) => String -> Builder a
  5319. 1794.97 s [opt-env-conf-test] name s =
  5320. 1794.97 s [opt-env-conf-test] mconcat
  5321. 1794.98 s [opt-env-conf-test] - [ option,
  5322. 1794.98 s [opt-env-conf-test] long (toArgCase s),
  5323. 1794.98 s [opt-env-conf-test] env (toEnvCase s),
  5324. 1794.98 s [opt-env-conf-test] conf (toConfigCase s)
  5325. 1794.98 s [opt-env-conf-test] ]
  5326. 1794.98 s [opt-env-conf-test]
  5327. 1794.98 s [opt-env-conf-test] -- | Set the default value
  5328. 1794.98 s [opt-env-conf-test] --
  5329. 1794.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  5330. 1794.98 s [opt-env-conf-test] @@ -65,171 +65,170 @@
  5331. 1794.98 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  5332. 1794.98 s [opt-env-conf-test] renderLintError LintError {..} =
  5333. 1794.98 s [opt-env-conf-test] concat
  5334. 1794.98 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  5335. 1794.98 s [opt-env-conf-test] case lintErrorMessage of
  5336. 1794.98 s [opt-env-conf-test] LintErrorUndocumented ->
  5337. 1794.98 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  5338. 1794.98 s [opt-env-conf-test] LintErrorEmptySetting ->
  5339. 1794.98 s [opt-env-conf-test] concat
  5340. 1794.98 s [opt-env-conf-test] [ [ [ "This ",
  5341. 1794.98 s [opt-env-conf-test] functionChunk "setting",
  5342. 1794.98 s [opt-env-conf-test] " parses nothing."
  5343. 1794.98 s [opt-env-conf-test] ]
  5344. 1794.98 s [opt-env-conf-test] ],
  5345. 1794.98 s [opt-env-conf-test] [ [ "Add an ",
  5346. 1794.98 s [opt-env-conf-test] functionChunk "argument",
  5347. 1794.98 s [opt-env-conf-test] ", ",
  5348. 1794.98 s [opt-env-conf-test] functionChunk "switch",
  5349. 1794.98 s [opt-env-conf-test] ", ",
  5350. 1794.98 s [opt-env-conf-test] functionChunk "option",
  5351. 1794.98 s [opt-env-conf-test] ", ",
  5352. 1794.98 s [opt-env-conf-test] functionChunk "env",
  5353. 1794.98 s [opt-env-conf-test] ", ",
  5354. 1794.98 s [opt-env-conf-test] functionChunk "conf",
  5355. 1794.98 s [opt-env-conf-test] ", or ",
  5356. 1794.98 s [opt-env-conf-test] functionChunk "value",
  5357. 1794.98 s [opt-env-conf-test] "."
  5358. 1794.98 s [opt-env-conf-test] ]
  5359. 1794.98 s [opt-env-conf-test] ]
  5360. 1794.98 s [opt-env-conf-test] ]
  5361. 1794.98 s [opt-env-conf-test] LintErrorDashInShort ->
  5362. 1794.98 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  5363. 1794.98 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  5364. 1794.98 s [opt-env-conf-test] ]
  5365. 1794.98 s [opt-env-conf-test] LintErrorDashInLong s ->
  5366. 1794.98 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  5367. 1794.98 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5368. 1794.98 s [opt-env-conf-test] [ "Try ",
  5369. 1794.98 s [opt-env-conf-test] functionChunk "long",
  5370. 1794.98 s [opt-env-conf-test] " ",
  5371. 1794.98 s [opt-env-conf-test] chunk $
  5372. 1794.98 s [opt-env-conf-test] T.pack $
  5373. 1794.98 s [opt-env-conf-test] show $
  5374. 1794.98 s [opt-env-conf-test] let go = \case
  5375. 1794.98 s [opt-env-conf-test] [] -> []
  5376. 1794.98 s [opt-env-conf-test] '-' : cs -> go cs
  5377. 1794.98 s [opt-env-conf-test] c : cs -> c : cs
  5378. 1794.98 s [opt-env-conf-test] in go $ NE.toList s,
  5379. 1794.98 s [opt-env-conf-test] " instead."
  5380. 1794.98 s [opt-env-conf-test] ]
  5381. 1794.98 s [opt-env-conf-test] ]
  5382. 1794.98 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  5383. 1794.98 s [opt-env-conf-test] [ [ functionChunk "argument",
  5384. 1794.98 s [opt-env-conf-test] " has no ",
  5385. 1794.98 s [opt-env-conf-test] functionChunk "reader",
  5386. 1794.98 s [opt-env-conf-test] "."
  5387. 1794.98 s [opt-env-conf-test] ]
  5388. 1794.98 s [opt-env-conf-test] ]
  5389. 1794.98 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  5390. 1794.98 s [opt-env-conf-test] [ [ functionChunk "argument",
  5391. 1794.98 s [opt-env-conf-test] " has no ",
  5392. 1794.98 s [opt-env-conf-test] functionChunk "metavar",
  5393. 1794.98 s [opt-env-conf-test] "."
  5394. 1794.98 s [opt-env-conf-test] ]
  5395. 1794.98 s [opt-env-conf-test] ]
  5396. 1794.98 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  5397. 1794.98 s [opt-env-conf-test] [ [ functionChunk "option",
  5398. 1794.98 s [opt-env-conf-test] " or ",
  5399. 1794.98 s [opt-env-conf-test] functionChunk "name",
  5400. 1794.98 s [opt-env-conf-test] " has no ",
  5401. 1794.98 s [opt-env-conf-test] functionChunk "reader",
  5402. 1794.98 s [opt-env-conf-test] "."
  5403. 1794.98 s [opt-env-conf-test] ]
  5404. 1794.98 s [opt-env-conf-test] ]
  5405. 1794.98 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  5406. 1794.98 s [opt-env-conf-test] [ [ functionChunk "option",
  5407. 1794.98 s [opt-env-conf-test] " has no ",
  5408. 1794.98 s [opt-env-conf-test] functionChunk "long",
  5409. 1794.98 s [opt-env-conf-test] " or ",
  5410. 1794.98 s [opt-env-conf-test] functionChunk "short",
  5411. 1794.98 s [opt-env-conf-test] "."
  5412. 1794.98 s [opt-env-conf-test] ]
  5413. 1794.98 s [opt-env-conf-test] ]
  5414. 1794.98 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  5415. 1794.98 s [opt-env-conf-test] [ [ functionChunk "option",
  5416. 1794.98 s [opt-env-conf-test] " or ",
  5417. 1794.98 s [opt-env-conf-test] functionChunk "name",
  5418. 1794.98 s [opt-env-conf-test] " has no ",
  5419. 1794.98 s [opt-env-conf-test] functionChunk "metavar",
  5420. 1794.98 s [opt-env-conf-test] "."
  5421. 1794.98 s [opt-env-conf-test] ]
  5422. 1794.98 s [opt-env-conf-test] ]
  5423. 1794.98 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  5424. 1794.98 s [opt-env-conf-test] [ [ functionChunk "switch",
  5425. 1794.98 s [opt-env-conf-test] " has no ",
  5426. 1794.99 s [opt-env-conf-test] functionChunk "long",
  5427. 1794.99 s [opt-env-conf-test] " or ",
  5428. 1794.99 s [opt-env-conf-test] functionChunk "short",
  5429. 1794.99 s [opt-env-conf-test] "."
  5430. 1794.99 s [opt-env-conf-test] ]
  5431. 1794.99 s [opt-env-conf-test] ]
  5432. 1794.99 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  5433. 1794.99 s [opt-env-conf-test] [ [ functionChunk "long",
  5434. 1794.99 s [opt-env-conf-test] " or ",
  5435. 1794.99 s [opt-env-conf-test] functionChunk "short",
  5436. 1794.99 s [opt-env-conf-test] " has no ",
  5437. 1794.99 s [opt-env-conf-test] functionChunk "option",
  5438. 1794.99 s [opt-env-conf-test] " or ",
  5439. 1794.99 s [opt-env-conf-test] functionChunk "switch",
  5440. 1794.99 s [opt-env-conf-test] "."
  5441. 1794.99 s [opt-env-conf-test] ]
  5442. 1794.99 s [opt-env-conf-test] ]
  5443. 1794.99 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  5444. 1794.99 s [opt-env-conf-test] [ [ functionChunk "env",
  5445. 1794.99 s [opt-env-conf-test] " or ",
  5446. 1794.99 s [opt-env-conf-test] functionChunk "name",
  5447. 1794.99 s [opt-env-conf-test] " has no ",
  5448. 1794.99 s [opt-env-conf-test] functionChunk "reader",
  5449. 1794.99 s [opt-env-conf-test] "."
  5450. 1794.99 s [opt-env-conf-test] ]
  5451. 1794.99 s [opt-env-conf-test] ]
  5452. 1794.99 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  5453. 1794.99 s [opt-env-conf-test] [ [ functionChunk "env",
  5454. 1794.99 s [opt-env-conf-test] " or ",
  5455. 1794.99 s [opt-env-conf-test] functionChunk "name",
  5456. 1794.99 s [opt-env-conf-test] " has no ",
  5457. 1794.99 s [opt-env-conf-test] functionChunk "metavar",
  5458. 1794.99 s [opt-env-conf-test] "."
  5459. 1794.99 s [opt-env-conf-test] ]
  5460. 1794.99 s [opt-env-conf-test] ]
  5461. 1794.99 s [opt-env-conf-test] LintErrorNoCommands ->
  5462. 1794.99 s [opt-env-conf-test] [ [ functionChunk "commands",
  5463. 1799.45 s [opt-env-conf-test] " was called with an empty list."
  5464. 1799.45 s [opt-env-conf-test] ]
  5465. 1799.45 s [opt-env-conf-test] ]
  5466. 1799.45 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  5467. 1799.45 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  5468. 1799.45 s [opt-env-conf-test] " was called with an unknown command: ",
  5469. 1799.45 s [opt-env-conf-test] commandChunk c
  5470. 1799.45 s [opt-env-conf-test] ]
  5471. 1799.45 s [opt-env-conf-test] ]
  5472. 1799.45 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  5473. 1799.45 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5474. 1799.45 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  5475. 1799.45 s [opt-env-conf-test] ]
  5476. 1799.45 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  5477. 1799.45 s [opt-env-conf-test] [ [ functionChunk "conf",
  5478. 1799.45 s [opt-env-conf-test] " or ",
  5479. 1799.45 s [opt-env-conf-test] functionChunk "name",
  5480. 1799.45 s [opt-env-conf-test] " was called with no way to load configuration."
  5481. 1799.45 s [opt-env-conf-test] ],
  5482. 1799.45 s [opt-env-conf-test] [ "You can load configuration with ",
  5483. 1799.45 s [opt-env-conf-test] functionChunk "withConfig",
  5484. 1799.45 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  5485. 1799.45 s [opt-env-conf-test] functionChunk "withoutConfig",
  5486. 1799.45 s [opt-env-conf-test] "."
  5487. 1799.45 s [opt-env-conf-test] ]
  5488. 1799.46 s [opt-env-conf-test] ]
  5489. 1799.46 s [opt-env-conf-test] LintErrorManyInfinite ->
  5490. 1799.46 s [opt-env-conf-test] [ [ functionChunk "many",
  5491. 1799.46 s [opt-env-conf-test] " or ",
  5492. 1799.46 s [opt-env-conf-test] functionChunk "some",
  5493. 1799.46 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  5494. 1799.46 s [opt-env-conf-test] ],
  5495. 1799.46 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  5496. 1799.46 s [opt-env-conf-test] ],
  5497. 1799.46 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  5498. 1799.46 s [opt-env-conf-test] ]
  5499. 1799.46 s [opt-env-conf-test]
  5500. 1799.46 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  5501. 1799.46 s [opt-env-conf-test] lintParser =
  5502. 1799.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5503. 1799.46 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5504. 1799.46 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5505. 1799.46 s [opt-env-conf-test]
  5506. 1799.46 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5507. 1799.46 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5508. 1799.46 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5509. 1799.46 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5510. 1799.46 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5511. 1799.46 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5512. 1799.46 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5513. 1799.46 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5514. 1799.46 s [opt-env-conf-test] - BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5515. 1799.46 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5516. 1799.46 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5517. 1799.46 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5518. 1799.46 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5519. 1799.46 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5520. 1799.46 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5521. 1799.46 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5522. 1799.46 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5523. 1799.46 s [opt-env-conf-test]
  5524. 1799.46 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5525. 1799.46 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5526. 1799.46 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:397:43-47
  5527. 1799.46 s [opt-env-conf-test] @@ -394,7 +394,7 @@
  5528. 1799.46 s [opt-env-conf-test] let t =
  5529. 1799.46 s [opt-env-conf-test] ConfigValSetting
  5530. 1799.46 s [opt-env-conf-test] { configValSettingPath = k :| [],
  5531. 1799.46 s [opt-env-conf-test] - configValSettingAllowPrefix = True,
  5532. 1799.46 s [opt-env-conf-test] + configValSettingAllowPrefix = False,
  5533. 1799.46 s [opt-env-conf-test] configValSettingCodec = c
  5534. 1799.46 s [opt-env-conf-test] }
  5535. 1799.46 s [opt-env-conf-test] in Builder [BuildAddConf t]
  5536. 1799.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5537. 1799.46 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5538. 1799.46 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5539. 1799.46 s [opt-env-conf-test]
  5540. 1799.46 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5541. 1799.46 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5542. 1799.46 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5543. 1799.46 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5544. 1799.46 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5545. 1799.46 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5546. 1799.46 s [opt-env-conf-test] - BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5547. 1799.46 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5548. 1799.46 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5549. 1799.46 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5550. 1799.46 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5551. 1799.46 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5552. 1799.46 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5553. 1799.46 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5554. 1799.46 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5555. 1799.46 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5556. 1799.46 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5557. 1799.46 s [opt-env-conf-test]
  5558. 1799.46 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5559. 1799.46 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5560. 1799.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  5561. 1799.46 s [opt-env-conf-test] @@ -221,11 +221,10 @@
  5562. 1799.46 s [opt-env-conf-test] ]
  5563. 1799.46 s [opt-env-conf-test] ]
  5564. 1799.46 s [opt-env-conf-test] LintErrorManyInfinite ->
  5565. 1799.46 s [opt-env-conf-test] [ [ functionChunk "many",
  5566. 1799.46 s [opt-env-conf-test] " or ",
  5567. 1799.46 s [opt-env-conf-test] functionChunk "some",
  5568. 1799.46 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  5569. 1799.46 s [opt-env-conf-test] ],
  5570. 1799.46 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  5571. 1799.46 s [opt-env-conf-test] ],
  5572. 1799.46 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  5573. 1799.46 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
  5574. 1799.46 s [opt-env-conf-test] @@ -200,7 +200,7 @@
  5575. 1799.46 s [opt-env-conf-test] let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
  5576. 1799.46 s [opt-env-conf-test] in showParen True $
  5577. 1799.46 s [opt-env-conf-test] showString "Setting "
  5578. 1799.46 s [opt-env-conf-test] - . showsPrec 11 settingDasheds
  5579. 1799.46 s [opt-env-conf-test] + . showsPrec 0 settingDasheds
  5580. 1799.46 s [opt-env-conf-test] . showString " "
  5581. 1799.46 s [opt-env-conf-test] . showListWith (\_ -> showString "_") settingReaders
  5582. 1799.46 s [opt-env-conf-test] . showString " "
  5583. 1799.46 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
  5584. 1799.46 s [opt-env-conf-test] @@ -231,7 +231,7 @@
  5585. 1799.46 s [opt-env-conf-test] showConfigValSettingABit :: ConfigValSetting a -> ShowS
  5586. 1799.46 s [opt-env-conf-test] showConfigValSettingABit ConfigValSetting {..} =
  5587. 1799.47 s [opt-env-conf-test] showString "ConfigValSetting "
  5588. 1799.47 s [opt-env-conf-test] - . showsPrec 11 configValSettingPath
  5589. 1799.47 s [opt-env-conf-test] + . showsPrec 1 configValSettingPath
  5590. 1799.47 s [opt-env-conf-test] . showString " "
  5591. 1799.47 s [opt-env-conf-test] . showString (showCodecABit configValSettingCodec)
  5592. 1799.47 s [opt-env-conf-test]
  5593. 1799.47 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
  5594. 1799.47 s [opt-env-conf-test] @@ -231,7 +231,7 @@
  5595. 1799.47 s [opt-env-conf-test] showConfigValSettingABit :: ConfigValSetting a -> ShowS
  5596. 1799.47 s [opt-env-conf-test] showConfigValSettingABit ConfigValSetting {..} =
  5597. 1799.47 s [opt-env-conf-test] showString "ConfigValSetting "
  5598. 1799.47 s [opt-env-conf-test] - . showsPrec 11 configValSettingPath
  5599. 1799.47 s [opt-env-conf-test] + . showsPrec 0 configValSettingPath
  5600. 1799.47 s [opt-env-conf-test] . showString " "
  5601. 1799.47 s [opt-env-conf-test] . showString (showCodecABit configValSettingCodec)
  5602. 1799.47 s [opt-env-conf-test]
  5603. 1799.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5604. 1799.47 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5605. 1799.47 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5606. 1799.47 s [opt-env-conf-test]
  5607. 1799.47 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5608. 1799.47 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5609. 1799.47 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5610. 1799.47 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5611. 1799.47 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5612. 1799.47 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5613. 1799.47 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5614. 1799.47 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5615. 1799.47 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5616. 1799.47 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5617. 1799.47 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5618. 1799.47 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5619. 1799.47 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5620. 1799.47 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5621. 1799.47 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5622. 1799.47 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5623. 1799.47 s [opt-env-conf-test] - BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5624. 1799.47 s [opt-env-conf-test]
  5625. 1799.47 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5626. 1799.47 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5627. 1800.67 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5628. 1800.67 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5629. 1800.75 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5630. 1800.75 s [opt-env-conf-test]
  5631. 1800.75 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5632. 1800.75 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5633. 1800.75 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5634. 1800.75 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5635. 1800.75 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5636. 1800.75 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5637. 1800.75 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5638. 1800.75 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5639. 1800.75 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5640. 1800.75 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5641. 1800.75 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5642. 1800.75 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5643. 1800.75 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5644. 1800.75 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5645. 1800.75 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5646. 1800.75 s [opt-env-conf-test] - BuildSetCompleter c -> s {settingCompleter = Just c}
  5647. 1800.75 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5648. 1800.75 s [opt-env-conf-test]
  5649. 1800.75 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5650. 1800.75 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5651. 1800.75 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5652. 1800.75 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5653. 1800.75 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5654. 1800.75 s [opt-env-conf-test]
  5655. 1800.75 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5656. 1800.75 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5657. 1800.75 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5658. 1800.75 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5659. 1800.75 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5660. 1800.75 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5661. 1800.75 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5662. 1800.75 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5663. 1800.75 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5664. 1800.75 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5665. 1800.75 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5666. 1800.75 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5667. 1800.75 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5668. 1800.75 s [opt-env-conf-test] - BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5669. 1800.75 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5670. 1800.75 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5671. 1800.75 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5672. 1800.75 s [opt-env-conf-test]
  5673. 1800.75 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5674. 1800.75 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5675. 1800.75 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5676. 1800.75 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5677. 1800.75 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5678. 1800.75 s [opt-env-conf-test]
  5679. 1800.75 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5680. 1800.75 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5681. 1800.75 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5682. 1800.75 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5683. 1800.75 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5684. 1800.76 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5685. 1800.76 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5686. 1800.76 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5687. 1800.76 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5688. 1800.76 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5689. 1800.76 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5690. 1800.76 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5691. 1800.76 s [opt-env-conf-test] - BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5692. 1800.76 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5693. 1800.76 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5694. 1800.76 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5695. 1800.76 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5696. 1800.76 s [opt-env-conf-test]
  5697. 1800.76 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5698. 1800.76 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5699. 1800.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5700. 1800.76 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5701. 1800.76 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5702. 1800.76 s [opt-env-conf-test]
  5703. 1800.76 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5704. 1800.76 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5705. 1800.76 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5706. 1800.76 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5707. 1800.76 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5708. 1800.76 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5709. 1800.76 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5710. 1800.76 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5711. 1800.76 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5712. 1800.76 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5713. 1800.76 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5714. 1800.76 s [opt-env-conf-test] - BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5715. 1800.76 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5716. 1800.76 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5717. 1800.76 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5718. 1800.76 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5719. 1800.76 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5720. 1800.76 s [opt-env-conf-test]
  5721. 1800.76 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5722. 1800.76 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5723. 1800.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5724. 1800.76 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5725. 1800.76 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5726. 1800.76 s [opt-env-conf-test]
  5727. 1800.76 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5728. 1800.76 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5729. 1800.76 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5730. 1800.76 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5731. 1800.76 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5732. 1800.76 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5733. 1800.76 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5734. 1800.76 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5735. 1800.76 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5736. 1800.76 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5737. 1800.76 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5738. 1800.76 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5739. 1800.76 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5740. 1800.76 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5741. 1800.76 s [opt-env-conf-test] - BuildSetHidden -> s {settingHidden = True}
  5742. 1800.76 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5743. 1800.76 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5744. 1800.76 s [opt-env-conf-test]
  5745. 1800.76 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5746. 1800.76 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5747. 1800.76 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
  5748. 1800.76 s [opt-env-conf-test] @@ -204,7 +204,7 @@
  5749. 1800.76 s [opt-env-conf-test] . showString " "
  5750. 1800.76 s [opt-env-conf-test] . showListWith (\_ -> showString "_") settingReaders
  5751. 1800.76 s [opt-env-conf-test] . showString " "
  5752. 1800.76 s [opt-env-conf-test] - . showsPrec 11 settingTryArgument
  5753. 1800.76 s [opt-env-conf-test] + . showsPrec -11 settingTryArgument
  5754. 1800.76 s [opt-env-conf-test] . showString " "
  5755. 1800.76 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  5756. 1800.76 s [opt-env-conf-test] . showString " "
  5757. 1800.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5758. 1800.76 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5759. 1800.76 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5760. 1800.76 s [opt-env-conf-test]
  5761. 1800.76 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5762. 1800.76 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5763. 1800.76 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5764. 1800.76 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5765. 1800.76 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5766. 1800.76 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5767. 1800.76 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5768. 1803.87 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5769. 1803.87 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5770. 1803.87 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5771. 1803.87 s [opt-env-conf-test] - BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5772. 1803.87 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5773. 1803.87 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5774. 1803.87 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5775. 1803.87 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5776. 1803.88 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5777. 1803.88 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5778. 1803.88 s [opt-env-conf-test]
  5779. 1803.88 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5780. 1803.88 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5781. 1803.88 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:207:26-44
  5782. 1803.88 s [opt-env-conf-test] @@ -204,7 +204,7 @@
  5783. 1803.88 s [opt-env-conf-test] . showString " "
  5784. 1803.88 s [opt-env-conf-test] . showListWith (\_ -> showString "_") settingReaders
  5785. 1803.88 s [opt-env-conf-test] . showString " "
  5786. 1803.88 s [opt-env-conf-test] - . showsPrec 11 settingTryArgument
  5787. 1803.88 s [opt-env-conf-test] + . showsPrec 11 not (settingTryArgument)
  5788. 1803.88 s [opt-env-conf-test] . showString " "
  5789. 1803.88 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  5790. 1803.88 s [opt-env-conf-test] . showString " "
  5791. 1803.88 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
  5792. 1803.88 s [opt-env-conf-test] @@ -204,7 +204,7 @@
  5793. 1803.88 s [opt-env-conf-test] . showString " "
  5794. 1803.88 s [opt-env-conf-test] . showListWith (\_ -> showString "_") settingReaders
  5795. 1803.88 s [opt-env-conf-test] . showString " "
  5796. 1803.88 s [opt-env-conf-test] - . showsPrec 11 settingTryArgument
  5797. 1803.88 s [opt-env-conf-test] + . showsPrec 1 settingTryArgument
  5798. 1803.88 s [opt-env-conf-test] . showString " "
  5799. 1803.88 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  5800. 1803.88 s [opt-env-conf-test] . showString " "
  5801. 1803.88 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:211:26-42
  5802. 1803.88 s [opt-env-conf-test] @@ -208,7 +208,7 @@
  5803. 1803.88 s [opt-env-conf-test] . showString " "
  5804. 1803.88 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  5805. 1803.88 s [opt-env-conf-test] . showString " "
  5806. 1803.88 s [opt-env-conf-test] - . showsPrec 11 settingTryOption
  5807. 1803.88 s [opt-env-conf-test] + . showsPrec 11 not (settingTryOption)
  5808. 1803.88 s [opt-env-conf-test] . showString " "
  5809. 1803.88 s [opt-env-conf-test] . showsPrec 11 settingEnvVars
  5810. 1803.88 s [opt-env-conf-test] . showString " "
  5811. 1803.88 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
  5812. 1803.88 s [opt-env-conf-test] @@ -216,7 +216,7 @@
  5813. 1803.88 s [opt-env-conf-test] . showString " "
  5814. 1803.88 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingDefaultValue
  5815. 1803.88 s [opt-env-conf-test] . showString " "
  5816. 1803.88 s [opt-env-conf-test] - . showsPrec 11 settingExamples
  5817. 1803.88 s [opt-env-conf-test] + . showsPrec 0 settingExamples
  5818. 1803.88 s [opt-env-conf-test] . showString " "
  5819. 1803.88 s [opt-env-conf-test] . showsPrec 11 settingHidden
  5820. 1803.88 s [opt-env-conf-test] . showString " "
  5821. 1803.88 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
  5822. 1803.88 s [opt-env-conf-test] @@ -216,7 +216,7 @@
  5823. 1803.88 s [opt-env-conf-test] . showString " "
  5824. 1803.88 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingDefaultValue
  5825. 1803.88 s [opt-env-conf-test] . showString " "
  5826. 1803.88 s [opt-env-conf-test] - . showsPrec 11 settingExamples
  5827. 1803.88 s [opt-env-conf-test] + . showsPrec 1 settingExamples
  5828. 1803.88 s [opt-env-conf-test] . showString " "
  5829. 1803.88 s [opt-env-conf-test] . showsPrec 11 settingHidden
  5830. 1803.89 s [opt-env-conf-test] . showString " "
  5831. 1803.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
  5832. 1803.89 s [opt-env-conf-test] @@ -210,7 +210,7 @@
  5833. 1803.89 s [opt-env-conf-test] . showString " "
  5834. 1803.89 s [opt-env-conf-test] . showsPrec 11 settingTryOption
  5835. 1803.89 s [opt-env-conf-test] . showString " "
  5836. 1803.89 s [opt-env-conf-test] - . showsPrec 11 settingEnvVars
  5837. 1803.89 s [opt-env-conf-test] + . showsPrec -11 settingEnvVars
  5838. 1803.89 s [opt-env-conf-test] . showString " "
  5839. 1803.89 s [opt-env-conf-test] . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
  5840. 1803.89 s [opt-env-conf-test] . showString " "
  5841. 1803.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
  5842. 1803.89 s [opt-env-conf-test] @@ -210,7 +210,7 @@
  5843. 1803.89 s [opt-env-conf-test] . showString " "
  5844. 1803.89 s [opt-env-conf-test] . showsPrec 11 settingTryOption
  5845. 1803.89 s [opt-env-conf-test] . showString " "
  5846. 1803.89 s [opt-env-conf-test] - . showsPrec 11 settingEnvVars
  5847. 1803.89 s [opt-env-conf-test] + . showsPrec 1 settingEnvVars
  5848. 1803.89 s [opt-env-conf-test] . showString " "
  5849. 1803.89 s [opt-env-conf-test] . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
  5850. 1803.89 s [opt-env-conf-test] . showString " "
  5851. 1803.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
  5852. 1803.89 s [opt-env-conf-test] @@ -216,7 +216,7 @@
  5853. 1803.89 s [opt-env-conf-test] . showString " "
  5854. 1803.89 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingDefaultValue
  5855. 1803.89 s [opt-env-conf-test] . showString " "
  5856. 1803.89 s [opt-env-conf-test] - . showsPrec 11 settingExamples
  5857. 1803.89 s [opt-env-conf-test] + . showsPrec -11 settingExamples
  5858. 1803.89 s [opt-env-conf-test] . showString " "
  5859. 1803.89 s [opt-env-conf-test] . showsPrec 11 settingHidden
  5860. 1803.89 s [opt-env-conf-test] . showString " "
  5861. 1803.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
  5862. 1803.89 s [opt-env-conf-test] @@ -210,7 +210,7 @@
  5863. 1803.89 s [opt-env-conf-test] . showString " "
  5864. 1803.89 s [opt-env-conf-test] . showsPrec 11 settingTryOption
  5865. 1803.89 s [opt-env-conf-test] . showString " "
  5866. 1803.89 s [opt-env-conf-test] - . showsPrec 11 settingEnvVars
  5867. 1803.89 s [opt-env-conf-test] + . showsPrec 0 settingEnvVars
  5868. 1803.89 s [opt-env-conf-test] . showString " "
  5869. 1803.89 s [opt-env-conf-test] . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
  5870. 1803.89 s [opt-env-conf-test] . showString " "
  5871. 1803.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:211:26-42
  5872. 1803.89 s [opt-env-conf-test] @@ -208,7 +208,7 @@
  5873. 1803.89 s [opt-env-conf-test] . showString " "
  5874. 1803.89 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  5875. 1803.89 s [opt-env-conf-test] . showString " "
  5876. 1803.89 s [opt-env-conf-test] - . showsPrec 11 settingTryOption
  5877. 1803.89 s [opt-env-conf-test] + . showsPrec 11 False
  5878. 1803.89 s [opt-env-conf-test] . showString " "
  5879. 1803.89 s [opt-env-conf-test] . showsPrec 11 settingEnvVars
  5880. 1803.89 s [opt-env-conf-test] . showString " "
  5881. 1803.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:211:26-42
  5882. 1803.89 s [opt-env-conf-test] @@ -208,7 +208,7 @@
  5883. 1803.89 s [opt-env-conf-test] . showString " "
  5884. 1803.89 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  5885. 1803.89 s [opt-env-conf-test] . showString " "
  5886. 1803.89 s [opt-env-conf-test] - . showsPrec 11 settingTryOption
  5887. 1803.89 s [opt-env-conf-test] + . showsPrec 11 True
  5888. 1803.89 s [opt-env-conf-test] . showString " "
  5889. 1803.89 s [opt-env-conf-test] . showsPrec 11 settingEnvVars
  5890. 1803.89 s [opt-env-conf-test] . showString " "
  5891. 1803.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
  5892. 1803.89 s [opt-env-conf-test] @@ -208,7 +208,7 @@
  5893. 1803.89 s [opt-env-conf-test] . showString " "
  5894. 1803.89 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  5895. 1803.89 s [opt-env-conf-test] . showString " "
  5896. 1803.89 s [opt-env-conf-test] - . showsPrec 11 settingTryOption
  5897. 1803.89 s [opt-env-conf-test] + . showsPrec -11 settingTryOption
  5898. 1803.89 s [opt-env-conf-test] . showString " "
  5899. 1803.89 s [opt-env-conf-test] . showsPrec 11 settingEnvVars
  5900. 1803.89 s [opt-env-conf-test] . showString " "
  5901. 1803.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
  5902. 1803.89 s [opt-env-conf-test] @@ -208,7 +208,7 @@
  5903. 1803.89 s [opt-env-conf-test] . showString " "
  5904. 1803.89 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  5905. 1803.89 s [opt-env-conf-test] . showString " "
  5906. 1803.89 s [opt-env-conf-test] - . showsPrec 11 settingTryOption
  5907. 1803.90 s [opt-env-conf-test] + . showsPrec 1 settingTryOption
  5908. 1803.90 s [opt-env-conf-test] . showString " "
  5909. 1803.90 s [opt-env-conf-test] . showsPrec 11 settingEnvVars
  5910. 1803.90 s [opt-env-conf-test] . showString " "
  5911. 1803.90 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
  5912. 1803.90 s [opt-env-conf-test] @@ -208,7 +208,7 @@
  5913. 1803.90 s [opt-env-conf-test] . showString " "
  5914. 1803.90 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  5915. 1803.90 s [opt-env-conf-test] . showString " "
  5916. 1803.90 s [opt-env-conf-test] - . showsPrec 11 settingTryOption
  5917. 1803.90 s [opt-env-conf-test] + . showsPrec 0 settingTryOption
  5918. 1803.90 s [opt-env-conf-test] . showString " "
  5919. 1803.90 s [opt-env-conf-test] . showsPrec 11 settingEnvVars
  5920. 1803.90 s [opt-env-conf-test] . showString " "
  5921. 1803.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  5922. 1803.90 s [opt-env-conf-test] @@ -259,12 +259,11 @@
  5923. 1803.90 s [opt-env-conf-test] ],
  5924. 1803.90 s [opt-env-conf-test] ZshCompletionScript
  5925. 1803.90 s [opt-env-conf-test] <$> setting
  5926. 1803.90 s [opt-env-conf-test] - [ option,
  5927. 1803.90 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  5928. 1803.90 s [opt-env-conf-test] long "zsh-completion-script",
  5929. 1803.90 s [opt-env-conf-test] hidden,
  5930. 1803.90 s [opt-env-conf-test] help "Render the zsh completion script"
  5931. 1803.90 s [opt-env-conf-test] ],
  5932. 1803.90 s [opt-env-conf-test] ZshCompletionScript
  5933. 1803.90 s [opt-env-conf-test] <$> setting
  5934. 1803.90 s [opt-env-conf-test] [ option,
  5935. 1803.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5936. 1803.90 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5937. 1803.90 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5938. 1803.90 s [opt-env-conf-test]
  5939. 1809.42 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5940. 1809.44 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5941. 1809.44 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5942. 1809.44 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5943. 1809.44 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5944. 1809.44 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5945. 1809.44 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5946. 1809.44 s [opt-env-conf-test] BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5947. 1809.44 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5948. 1809.44 s [opt-env-conf-test] - BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5949. 1809.44 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5950. 1809.44 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5951. 1809.44 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5952. 1809.44 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5953. 1809.44 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5954. 1809.44 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5955. 1809.44 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5956. 1809.44 s [opt-env-conf-test]
  5957. 1809.44 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5958. 1809.44 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5959. 1809.44 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
  5960. 1809.44 s [opt-env-conf-test] @@ -270,22 +270,21 @@
  5961. 1809.44 s [opt-env-conf-test] applyBuildInstructions is s = foldr applyBuildInstruction s is
  5962. 1809.44 s [opt-env-conf-test]
  5963. 1809.44 s [opt-env-conf-test] applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
  5964. 1809.44 s [opt-env-conf-test] applyBuildInstruction bi s = case bi of
  5965. 1809.44 s [opt-env-conf-test] BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
  5966. 1809.44 s [opt-env-conf-test] BuildSetMetavar mv -> s {settingMetavar = Just mv}
  5967. 1809.44 s [opt-env-conf-test] BuildTryArgument -> s {settingTryArgument = True}
  5968. 1809.44 s [opt-env-conf-test] BuildTryOption -> s {settingTryOption = True}
  5969. 1809.44 s [opt-env-conf-test] BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
  5970. 1809.44 s [opt-env-conf-test] - BuildAddReader r -> s {settingReaders = r : settingReaders s}
  5971. 1809.44 s [opt-env-conf-test] BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
  5972. 1809.44 s [opt-env-conf-test] BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
  5973. 1809.44 s [opt-env-conf-test] BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
  5974. 1809.44 s [opt-env-conf-test] BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
  5975. 1809.44 s [opt-env-conf-test] BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
  5976. 1809.44 s [opt-env-conf-test] BuildAddExample e -> s {settingExamples = e : settingExamples s}
  5977. 1809.44 s [opt-env-conf-test] BuildSetHidden -> s {settingHidden = True}
  5978. 1809.44 s [opt-env-conf-test] BuildSetCompleter c -> s {settingCompleter = Just c}
  5979. 1809.44 s [opt-env-conf-test] BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
  5980. 1809.44 s [opt-env-conf-test]
  5981. 1809.44 s [opt-env-conf-test] instance Semigroup (Builder f) where
  5982. 1809.44 s [opt-env-conf-test] (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
  5983. 1809.44 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:201:17-21
  5984. 1809.44 s [opt-env-conf-test] @@ -198,7 +198,7 @@
  5985. 1809.44 s [opt-env-conf-test] showSettingABit :: Setting a -> ShowS
  5986. 1809.44 s [opt-env-conf-test] showSettingABit Setting {..} =
  5987. 1809.44 s [opt-env-conf-test] let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
  5988. 1809.44 s [opt-env-conf-test] - in showParen True $
  5989. 1809.44 s [opt-env-conf-test] + in showParen False $
  5990. 1809.45 s [opt-env-conf-test] showString "Setting "
  5991. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingDasheds
  5992. 1809.45 s [opt-env-conf-test] . showString " "
  5993. 1809.45 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:221:26-39
  5994. 1809.45 s [opt-env-conf-test] @@ -218,7 +218,7 @@
  5995. 1809.45 s [opt-env-conf-test] . showString " "
  5996. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingExamples
  5997. 1809.45 s [opt-env-conf-test] . showString " "
  5998. 1809.45 s [opt-env-conf-test] - . showsPrec 11 settingHidden
  5999. 1809.45 s [opt-env-conf-test] + . showsPrec 11 False
  6000. 1809.45 s [opt-env-conf-test] . showString " "
  6001. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingMetavar
  6002. 1809.45 s [opt-env-conf-test] . showString " "
  6003. 1809.45 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:221:26-39
  6004. 1809.45 s [opt-env-conf-test] @@ -218,7 +218,7 @@
  6005. 1809.45 s [opt-env-conf-test] . showString " "
  6006. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingExamples
  6007. 1809.45 s [opt-env-conf-test] . showString " "
  6008. 1809.45 s [opt-env-conf-test] - . showsPrec 11 settingHidden
  6009. 1809.45 s [opt-env-conf-test] + . showsPrec 11 not (settingHidden)
  6010. 1809.45 s [opt-env-conf-test] . showString " "
  6011. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingMetavar
  6012. 1809.45 s [opt-env-conf-test] . showString " "
  6013. 1809.45 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
  6014. 1809.45 s [opt-env-conf-test] @@ -220,7 +220,7 @@
  6015. 1809.45 s [opt-env-conf-test] . showString " "
  6016. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingHidden
  6017. 1809.45 s [opt-env-conf-test] . showString " "
  6018. 1809.45 s [opt-env-conf-test] - . showsPrec 11 settingMetavar
  6019. 1809.45 s [opt-env-conf-test] + . showsPrec 0 settingMetavar
  6020. 1809.45 s [opt-env-conf-test] . showString " "
  6021. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingHelp
  6022. 1809.45 s [opt-env-conf-test] . showString " "
  6023. 1809.45 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
  6024. 1809.45 s [opt-env-conf-test] @@ -220,7 +220,7 @@
  6025. 1809.45 s [opt-env-conf-test] . showString " "
  6026. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingHidden
  6027. 1809.45 s [opt-env-conf-test] . showString " "
  6028. 1809.45 s [opt-env-conf-test] - . showsPrec 11 settingMetavar
  6029. 1809.45 s [opt-env-conf-test] + . showsPrec 1 settingMetavar
  6030. 1809.45 s [opt-env-conf-test] . showString " "
  6031. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingHelp
  6032. 1809.45 s [opt-env-conf-test] . showString " "
  6033. 1809.45 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:240:41-45
  6034. 1809.45 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  6035. 1809.45 s [opt-env-conf-test]
  6036. 1809.45 s [opt-env-conf-test] showMaybeWith :: (a -> ShowS) -> Maybe a -> ShowS
  6037. 1809.45 s [opt-env-conf-test] showMaybeWith _ Nothing = showString "Nothing"
  6038. 1809.45 s [opt-env-conf-test] -showMaybeWith func (Just a) = showParen True $ showString "Just " . func a
  6039. 1809.45 s [opt-env-conf-test] +showMaybeWith func (Just a) = showParen False $ showString "Just " . func a
  6040. 1809.45 s [opt-env-conf-test]
  6041. 1809.45 s [opt-env-conf-test] showNonEmptyWith :: (a -> ShowS) -> NonEmpty a -> ShowS
  6042. 1809.45 s [opt-env-conf-test] showNonEmptyWith func (a :| as) =
  6043. 1809.45 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
  6044. 1809.45 s [opt-env-conf-test] @@ -222,7 +222,7 @@
  6045. 1809.45 s [opt-env-conf-test] . showString " "
  6046. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingMetavar
  6047. 1809.45 s [opt-env-conf-test] . showString " "
  6048. 1809.45 s [opt-env-conf-test] - . showsPrec 11 settingHelp
  6049. 1809.45 s [opt-env-conf-test] + . showsPrec 0 settingHelp
  6050. 1809.45 s [opt-env-conf-test] . showString " "
  6051. 1809.45 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingCompleter
  6052. 1809.45 s [opt-env-conf-test] . showString " "
  6053. 1809.45 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:221:26-39
  6054. 1809.45 s [opt-env-conf-test] @@ -218,7 +218,7 @@
  6055. 1809.45 s [opt-env-conf-test] . showString " "
  6056. 1809.45 s [opt-env-conf-test] . showsPrec 11 settingExamples
  6057. 1809.45 s [opt-env-conf-test] . showString " "
  6058. 1809.45 s [opt-env-conf-test] - . showsPrec 11 settingHidden
  6059. 1809.45 s [opt-env-conf-test] + . showsPrec 11 True
  6060. 1809.45 s [opt-env-conf-test] . showString " "
  6061. 1809.46 s [opt-env-conf-test] . showsPrec 11 settingMetavar
  6062. 1809.46 s [opt-env-conf-test] . showString " "
  6063. 1809.46 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:207:26-44
  6064. 1809.46 s [opt-env-conf-test] @@ -204,7 +204,7 @@
  6065. 1809.46 s [opt-env-conf-test] . showString " "
  6066. 1809.46 s [opt-env-conf-test] . showListWith (\_ -> showString "_") settingReaders
  6067. 1809.46 s [opt-env-conf-test] . showString " "
  6068. 1809.46 s [opt-env-conf-test] - . showsPrec 11 settingTryArgument
  6069. 1809.46 s [opt-env-conf-test] + . showsPrec 11 False
  6070. 1809.46 s [opt-env-conf-test] . showString " "
  6071. 1809.46 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  6072. 1809.46 s [opt-env-conf-test] . showString " "
  6073. 1809.46 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
  6074. 1809.46 s [opt-env-conf-test] @@ -218,7 +218,7 @@
  6075. 1809.46 s [opt-env-conf-test] . showString " "
  6076. 1809.46 s [opt-env-conf-test] . showsPrec 11 settingExamples
  6077. 1809.46 s [opt-env-conf-test] . showString " "
  6078. 1809.46 s [opt-env-conf-test] - . showsPrec 11 settingHidden
  6079. 1809.46 s [opt-env-conf-test] + . showsPrec -11 settingHidden
  6080. 1809.46 s [opt-env-conf-test] . showString " "
  6081. 1809.46 s [opt-env-conf-test] . showsPrec 11 settingMetavar
  6082. 1809.46 s [opt-env-conf-test] . showString " "
  6083. 1809.46 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
  6084. 1809.46 s [opt-env-conf-test] @@ -231,7 +231,7 @@
  6085. 1809.46 s [opt-env-conf-test] showConfigValSettingABit :: ConfigValSetting a -> ShowS
  6086. 1809.46 s [opt-env-conf-test] showConfigValSettingABit ConfigValSetting {..} =
  6087. 1809.46 s [opt-env-conf-test] showString "ConfigValSetting "
  6088. 1809.46 s [opt-env-conf-test] - . showsPrec 11 configValSettingPath
  6089. 1809.46 s [opt-env-conf-test] + . showsPrec -11 configValSettingPath
  6090. 1809.46 s [opt-env-conf-test] . showString " "
  6091. 1809.46 s [opt-env-conf-test] . showString (showCodecABit configValSettingCodec)
  6092. 1809.46 s [opt-env-conf-test]
  6093. 1809.46 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
  6094. 1809.46 s [opt-env-conf-test] @@ -220,7 +220,7 @@
  6095. 1809.46 s [opt-env-conf-test] . showString " "
  6096. 1809.46 s [opt-env-conf-test] . showsPrec 11 settingHidden
  6097. 1809.46 s [opt-env-conf-test] . showString " "
  6098. 1809.46 s [opt-env-conf-test] - . showsPrec 11 settingMetavar
  6099. 1809.46 s [opt-env-conf-test] + . showsPrec -11 settingMetavar
  6100. 1809.46 s [opt-env-conf-test] . showString " "
  6101. 1809.46 s [opt-env-conf-test] . showsPrec 11 settingHelp
  6102. 1809.46 s [opt-env-conf-test] . showString " "
  6103. 1812.42 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
  6104. 1812.42 s [opt-env-conf-test] @@ -222,7 +222,7 @@
  6105. 1812.42 s [opt-env-conf-test] . showString " "
  6106. 1812.42 s [opt-env-conf-test] . showsPrec 11 settingMetavar
  6107. 1812.42 s [opt-env-conf-test] . showString " "
  6108. 1812.43 s [opt-env-conf-test] - . showsPrec 11 settingHelp
  6109. 1812.43 s [opt-env-conf-test] + . showsPrec 1 settingHelp
  6110. 1812.43 s [opt-env-conf-test] . showString " "
  6111. 1812.43 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingCompleter
  6112. 1812.43 s [opt-env-conf-test] . showString " "
  6113. 1812.43 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
  6114. 1812.43 s [opt-env-conf-test] @@ -222,7 +222,7 @@
  6115. 1812.43 s [opt-env-conf-test] . showString " "
  6116. 1812.43 s [opt-env-conf-test] . showsPrec 11 settingMetavar
  6117. 1812.43 s [opt-env-conf-test] . showString " "
  6118. 1812.43 s [opt-env-conf-test] - . showsPrec 11 settingHelp
  6119. 1812.43 s [opt-env-conf-test] + . showsPrec -11 settingHelp
  6120. 1812.43 s [opt-env-conf-test] . showString " "
  6121. 1812.43 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingCompleter
  6122. 1812.43 s [opt-env-conf-test] . showString " "
  6123. 1812.43 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
  6124. 1812.43 s [opt-env-conf-test] @@ -218,7 +218,7 @@
  6125. 1812.43 s [opt-env-conf-test] . showString " "
  6126. 1812.43 s [opt-env-conf-test] . showsPrec 11 settingExamples
  6127. 1812.43 s [opt-env-conf-test] . showString " "
  6128. 1812.43 s [opt-env-conf-test] - . showsPrec 11 settingHidden
  6129. 1812.43 s [opt-env-conf-test] + . showsPrec 1 settingHidden
  6130. 1812.43 s [opt-env-conf-test] . showString " "
  6131. 1812.43 s [opt-env-conf-test] . showsPrec 11 settingMetavar
  6132. 1812.43 s [opt-env-conf-test] . showString " "
  6133. 1812.43 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
  6134. 1812.43 s [opt-env-conf-test] @@ -218,7 +218,7 @@
  6135. 1812.43 s [opt-env-conf-test] . showString " "
  6136. 1812.43 s [opt-env-conf-test] . showsPrec 11 settingExamples
  6137. 1812.43 s [opt-env-conf-test] . showString " "
  6138. 1812.43 s [opt-env-conf-test] - . showsPrec 11 settingHidden
  6139. 1812.43 s [opt-env-conf-test] + . showsPrec 0 settingHidden
  6140. 1812.43 s [opt-env-conf-test] . showString " "
  6141. 1812.43 s [opt-env-conf-test] . showsPrec 11 settingMetavar
  6142. 1812.43 s [opt-env-conf-test] . showString " "
  6143. 1812.43 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
  6144. 1812.43 s [opt-env-conf-test] @@ -200,7 +200,7 @@
  6145. 1812.43 s [opt-env-conf-test] let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
  6146. 1812.43 s [opt-env-conf-test] in showParen True $
  6147. 1812.43 s [opt-env-conf-test] showString "Setting "
  6148. 1812.43 s [opt-env-conf-test] - . showsPrec 11 settingDasheds
  6149. 1812.43 s [opt-env-conf-test] + . showsPrec -11 settingDasheds
  6150. 1812.43 s [opt-env-conf-test] . showString " "
  6151. 1812.43 s [opt-env-conf-test] . showListWith (\_ -> showString "_") settingReaders
  6152. 1812.43 s [opt-env-conf-test] . showString " "
  6153. 1812.43 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
  6154. 1812.43 s [opt-env-conf-test] @@ -204,7 +204,7 @@
  6155. 1812.43 s [opt-env-conf-test] . showString " "
  6156. 1812.43 s [opt-env-conf-test] . showListWith (\_ -> showString "_") settingReaders
  6157. 1812.43 s [opt-env-conf-test] . showString " "
  6158. 1812.43 s [opt-env-conf-test] - . showsPrec 11 settingTryArgument
  6159. 1812.43 s [opt-env-conf-test] + . showsPrec 0 settingTryArgument
  6160. 1812.43 s [opt-env-conf-test] . showString " "
  6161. 1812.43 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  6162. 1812.43 s [opt-env-conf-test] . showString " "
  6163. 1812.43 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
  6164. 1812.43 s [opt-env-conf-test] @@ -200,7 +200,7 @@
  6165. 1812.43 s [opt-env-conf-test] let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
  6166. 1812.43 s [opt-env-conf-test] in showParen True $
  6167. 1812.43 s [opt-env-conf-test] showString "Setting "
  6168. 1812.43 s [opt-env-conf-test] - . showsPrec 11 settingDasheds
  6169. 1812.43 s [opt-env-conf-test] + . showsPrec 1 settingDasheds
  6170. 1812.43 s [opt-env-conf-test] . showString " "
  6171. 1812.43 s [opt-env-conf-test] . showListWith (\_ -> showString "_") settingReaders
  6172. 1812.43 s [opt-env-conf-test] . showString " "
  6173. 1812.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:207:26-44
  6174. 1812.44 s [opt-env-conf-test] @@ -204,7 +204,7 @@
  6175. 1812.44 s [opt-env-conf-test] . showString " "
  6176. 1812.44 s [opt-env-conf-test] . showListWith (\_ -> showString "_") settingReaders
  6177. 1812.44 s [opt-env-conf-test] . showString " "
  6178. 1812.44 s [opt-env-conf-test] - . showsPrec 11 settingTryArgument
  6179. 1812.44 s [opt-env-conf-test] + . showsPrec 11 True
  6180. 1812.44 s [opt-env-conf-test] . showString " "
  6181. 1812.44 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingSwitchValue
  6182. 1812.44 s [opt-env-conf-test] . showString " "
  6183. 1812.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:165:6-35
  6184. 1812.44 s [opt-env-conf-test] @@ -162,7 +162,7 @@
  6185. 1812.44 s [opt-env-conf-test]
  6186. 1812.44 s [opt-env-conf-test] prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
  6187. 1812.44 s [opt-env-conf-test] prefixConfigValSetting prefix c =
  6188. 1812.44 s [opt-env-conf-test] - if configValSettingAllowPrefix c
  6189. 1812.44 s [opt-env-conf-test] + if True
  6190. 1812.44 s [opt-env-conf-test] then c {configValSettingPath = prefix NE.<| configValSettingPath c}
  6191. 1812.44 s [opt-env-conf-test] else c
  6192. 1812.44 s [opt-env-conf-test]
  6193. 1812.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:148:6-32
  6194. 1812.44 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  6195. 1812.44 s [opt-env-conf-test]
  6196. 1812.44 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  6197. 1812.44 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  6198. 1812.44 s [opt-env-conf-test] - if envVarSettingAllowPrefix e
  6199. 1812.44 s [opt-env-conf-test] + if True
  6200. 1812.44 s [opt-env-conf-test] then e {envVarSettingVar = prefix <> envVarSettingVar e}
  6201. 1812.44 s [opt-env-conf-test] else e
  6202. 1812.44 s [opt-env-conf-test]
  6203. 1812.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:165:6-35
  6204. 1812.44 s [opt-env-conf-test] @@ -162,7 +162,7 @@
  6205. 1812.44 s [opt-env-conf-test]
  6206. 1812.44 s [opt-env-conf-test] prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
  6207. 1812.44 s [opt-env-conf-test] prefixConfigValSetting prefix c =
  6208. 1812.44 s [opt-env-conf-test] - if configValSettingAllowPrefix c
  6209. 1812.44 s [opt-env-conf-test] + if False
  6210. 1812.44 s [opt-env-conf-test] then c {configValSettingPath = prefix NE.<| configValSettingPath c}
  6211. 1812.44 s [opt-env-conf-test] else c
  6212. 1812.44 s [opt-env-conf-test]
  6213. 1812.44 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
  6214. 1812.44 s [opt-env-conf-test] @@ -170,9 +170,8 @@
  6215. 1812.44 s [opt-env-conf-test] suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
  6216. 1812.44 s [opt-env-conf-test] where
  6217. 1812.44 s [opt-env-conf-test] suffixPath :: NonEmpty String -> NonEmpty String
  6218. 1812.44 s [opt-env-conf-test] suffixPath (f :| rest) = case NE.nonEmpty rest of
  6219. 1812.44 s [opt-env-conf-test] Nothing -> (f <> suffix) :| []
  6220. 1812.44 s [opt-env-conf-test] - Just ne -> f NE.<| suffixPath ne
  6221. 1812.44 s [opt-env-conf-test]
  6222. 1812.44 s [opt-env-conf-test] -- | A 'mempty' 'Setting' to build up a setting from.
  6223. 1812.44 s [opt-env-conf-test] emptySetting :: Setting a
  6224. 1812.44 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:183:28-33
  6225. 1812.44 s [opt-env-conf-test] @@ -180,7 +180,7 @@
  6226. 1812.44 s [opt-env-conf-test] Setting
  6227. 1812.44 s [opt-env-conf-test] { settingDasheds = [],
  6228. 1812.44 s [opt-env-conf-test] settingReaders = [],
  6229. 1812.44 s [opt-env-conf-test] - settingTryArgument = False,
  6230. 1812.44 s [opt-env-conf-test] + settingTryArgument = True,
  6231. 1812.44 s [opt-env-conf-test] settingSwitchValue = Nothing,
  6232. 1812.44 s [opt-env-conf-test] settingTryOption = False,
  6233. 1812.44 s [opt-env-conf-test] settingEnvVars = Nothing,
  6234. 1812.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:148:6-32
  6235. 1812.44 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  6236. 1812.44 s [opt-env-conf-test]
  6237. 1812.44 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  6238. 1812.44 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  6239. 1812.44 s [opt-env-conf-test] - if envVarSettingAllowPrefix e
  6240. 1812.44 s [opt-env-conf-test] + if False
  6241. 1812.44 s [opt-env-conf-test] then e {envVarSettingVar = prefix <> envVarSettingVar e}
  6242. 1812.44 s [opt-env-conf-test] else e
  6243. 1812.44 s [opt-env-conf-test]
  6244. 1812.44 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:165:6-35
  6245. 1812.44 s [opt-env-conf-test] @@ -162,7 +162,7 @@
  6246. 1812.44 s [opt-env-conf-test]
  6247. 1812.44 s [opt-env-conf-test] prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
  6248. 1812.44 s [opt-env-conf-test] prefixConfigValSetting prefix c =
  6249. 1812.44 s [opt-env-conf-test] - if configValSettingAllowPrefix c
  6250. 1812.44 s [opt-env-conf-test] + if not (configValSettingAllowPrefix c)
  6251. 1812.44 s [opt-env-conf-test] then c {configValSettingPath = prefix NE.<| configValSettingPath c}
  6252. 1812.44 s [opt-env-conf-test] else c
  6253. 1812.44 s [opt-env-conf-test]
  6254. 1812.44 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:185:26-31
  6255. 1812.44 s [opt-env-conf-test] @@ -182,7 +182,7 @@
  6256. 1812.44 s [opt-env-conf-test] settingReaders = [],
  6257. 1812.44 s [opt-env-conf-test] settingTryArgument = False,
  6258. 1812.44 s [opt-env-conf-test] settingSwitchValue = Nothing,
  6259. 1812.44 s [opt-env-conf-test] - settingTryOption = False,
  6260. 1812.44 s [opt-env-conf-test] + settingTryOption = True,
  6261. 1812.44 s [opt-env-conf-test] settingEnvVars = Nothing,
  6262. 1812.44 s [opt-env-conf-test] settingConfigVals = Nothing,
  6263. 1812.44 s [opt-env-conf-test] settingMetavar = Nothing,
  6264. 1812.44 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
  6265. 1812.44 s [opt-env-conf-test] @@ -226,7 +226,7 @@
  6266. 1812.44 s [opt-env-conf-test] . showString " "
  6267. 1812.44 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingCompleter
  6268. 1812.44 s [opt-env-conf-test] . showString " "
  6269. 1812.45 s [opt-env-conf-test] - . showsPrec 11 settingRequiredCapabilities
  6270. 1812.45 s [opt-env-conf-test] + . showsPrec 1 settingRequiredCapabilities
  6271. 1812.45 s [opt-env-conf-test]
  6272. 1812.45 s [opt-env-conf-test] showConfigValSettingABit :: ConfigValSetting a -> ShowS
  6273. 1812.45 s [opt-env-conf-test] showConfigValSettingABit ConfigValSetting {..} =
  6274. 1812.45 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
  6275. 1812.45 s [opt-env-conf-test] @@ -170,9 +170,8 @@
  6276. 1816.54 s [opt-env-conf-test] suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
  6277. 1816.60 s [opt-env-conf-test] where
  6278. 1816.60 s [opt-env-conf-test] suffixPath :: NonEmpty String -> NonEmpty String
  6279. 1816.60 s [opt-env-conf-test] suffixPath (f :| rest) = case NE.nonEmpty rest of
  6280. 1816.60 s [opt-env-conf-test] - Nothing -> (f <> suffix) :| []
  6281. 1816.60 s [opt-env-conf-test] Just ne -> f NE.<| suffixPath ne
  6282. 1816.60 s [opt-env-conf-test]
  6283. 1816.60 s [opt-env-conf-test] -- | A 'mempty' 'Setting' to build up a setting from.
  6284. 1816.60 s [opt-env-conf-test] emptySetting :: Setting a
  6285. 1816.60 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
  6286. 1816.60 s [opt-env-conf-test] @@ -226,7 +226,7 @@
  6287. 1816.60 s [opt-env-conf-test] . showString " "
  6288. 1816.60 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingCompleter
  6289. 1816.60 s [opt-env-conf-test] . showString " "
  6290. 1816.60 s [opt-env-conf-test] - . showsPrec 11 settingRequiredCapabilities
  6291. 1816.60 s [opt-env-conf-test] + . showsPrec -11 settingRequiredCapabilities
  6292. 1816.61 s [opt-env-conf-test]
  6293. 1816.61 s [opt-env-conf-test] showConfigValSettingABit :: ConfigValSetting a -> ShowS
  6294. 1816.61 s [opt-env-conf-test] showConfigValSettingABit ConfigValSetting {..} =
  6295. 1816.61 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
  6296. 1816.61 s [opt-env-conf-test] @@ -226,7 +226,7 @@
  6297. 1816.61 s [opt-env-conf-test] . showString " "
  6298. 1816.61 s [opt-env-conf-test] . showMaybeWith (\_ -> showString "_") settingCompleter
  6299. 1816.61 s [opt-env-conf-test] . showString " "
  6300. 1816.61 s [opt-env-conf-test] - . showsPrec 11 settingRequiredCapabilities
  6301. 1816.61 s [opt-env-conf-test] + . showsPrec 0 settingRequiredCapabilities
  6302. 1816.61 s [opt-env-conf-test]
  6303. 1816.61 s [opt-env-conf-test] showConfigValSettingABit :: ConfigValSetting a -> ShowS
  6304. 1816.61 s [opt-env-conf-test] showConfigValSettingABit ConfigValSetting {..} =
  6305. 1816.61 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:244:13-17
  6306. 1816.61 s [opt-env-conf-test] @@ -241,7 +241,7 @@
  6307. 1816.61 s [opt-env-conf-test]
  6308. 1816.61 s [opt-env-conf-test] showNonEmptyWith :: (a -> ShowS) -> NonEmpty a -> ShowS
  6309. 1816.61 s [opt-env-conf-test] showNonEmptyWith func (a :| as) =
  6310. 1816.61 s [opt-env-conf-test] - showParen True $
  6311. 1816.61 s [opt-env-conf-test] + showParen False $
  6312. 1816.61 s [opt-env-conf-test] func a
  6313. 1816.61 s [opt-env-conf-test] . showString " :| "
  6314. 1816.61 s [opt-env-conf-test] . showListWith func as
  6315. 1816.61 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  6316. 1816.61 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  6317. 1816.61 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  6318. 1816.61 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  6319. 1816.61 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  6320. 1816.61 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  6321. 1816.61 s [opt-env-conf-test] + `hashWithSalt` True
  6322. 1816.61 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  6323. 1816.61 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  6324. 1816.61 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  6325. 1816.61 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  6326. 1816.61 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  6327. 1816.61 s [opt-env-conf-test] SettingHash
  6328. 1816.61 s [opt-env-conf-test] ( 42
  6329. 1816.61 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  6330. 1816.61 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  6331. 1816.61 s [opt-env-conf-test] + `hashWithSalt` True
  6332. 1816.61 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  6333. 1816.61 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  6334. 1816.61 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  6335. 1816.61 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
  6336. 1816.61 s [opt-env-conf-test] @@ -120,7 +120,7 @@
  6337. 1816.61 s [opt-env-conf-test] hashSetting :: Setting a -> SettingHash
  6338. 1816.61 s [opt-env-conf-test] hashSetting Setting {..} =
  6339. 1816.61 s [opt-env-conf-test] SettingHash
  6340. 1816.61 s [opt-env-conf-test] - ( 42
  6341. 1816.61 s [opt-env-conf-test] + ( 0
  6342. 1816.61 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  6343. 1816.61 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  6344. 1816.61 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  6345. 1816.61 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
  6346. 1816.61 s [opt-env-conf-test] @@ -120,7 +120,7 @@
  6347. 1816.61 s [opt-env-conf-test] hashSetting :: Setting a -> SettingHash
  6348. 1816.61 s [opt-env-conf-test] hashSetting Setting {..} =
  6349. 1816.61 s [opt-env-conf-test] SettingHash
  6350. 1816.61 s [opt-env-conf-test] - ( 42
  6351. 1816.61 s [opt-env-conf-test] + ( -42
  6352. 1816.62 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  6353. 1816.62 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  6354. 1816.62 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  6355. 1816.62 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:191:23-28
  6356. 1816.62 s [opt-env-conf-test] @@ -188,7 +188,7 @@
  6357. 1816.62 s [opt-env-conf-test] settingMetavar = Nothing,
  6358. 1816.62 s [opt-env-conf-test] settingHelp = Nothing,
  6359. 1816.62 s [opt-env-conf-test] settingExamples = [],
  6360. 1816.62 s [opt-env-conf-test] - settingHidden = False,
  6361. 1816.62 s [opt-env-conf-test] + settingHidden = True,
  6362. 1816.62 s [opt-env-conf-test] settingDefaultValue = Nothing,
  6363. 1816.62 s [opt-env-conf-test] settingCompleter = Nothing,
  6364. 1816.62 s [opt-env-conf-test] settingRequiredCapabilities = Set.empty
  6365. 1816.62 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  6366. 1816.62 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  6367. 1816.62 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  6368. 1816.62 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  6369. 1816.62 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  6370. 1816.62 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  6371. 1816.62 s [opt-env-conf-test] + `hashWithSalt` False
  6372. 1816.62 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  6373. 1816.62 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  6374. 1816.62 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  6375. 1816.62 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:125:24-42
  6376. 1816.62 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  6377. 1816.62 s [opt-env-conf-test] SettingHash
  6378. 1816.62 s [opt-env-conf-test] ( 42
  6379. 1816.62 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  6380. 1816.62 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  6381. 1816.62 s [opt-env-conf-test] + `hashWithSalt` not (settingTryArgument)
  6382. 1816.62 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  6383. 1816.62 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  6384. 1816.62 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  6385. 1816.62 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:148:6-32
  6386. 1816.62 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  6387. 1816.62 s [opt-env-conf-test]
  6388. 1816.62 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  6389. 1816.62 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  6390. 1816.62 s [opt-env-conf-test] - if envVarSettingAllowPrefix e
  6391. 1816.62 s [opt-env-conf-test] + if not (envVarSettingAllowPrefix e)
  6392. 1816.62 s [opt-env-conf-test] then e {envVarSettingVar = prefix <> envVarSettingVar e}
  6393. 1816.62 s [opt-env-conf-test] else e
  6394. 1816.62 s [opt-env-conf-test]
  6395. 1816.62 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  6396. 1816.62 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  6397. 1816.62 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  6398. 1816.62 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  6399. 1816.62 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  6400. 1816.62 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  6401. 1816.62 s [opt-env-conf-test] + `hashWithSalt` True
  6402. 1816.62 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  6403. 1816.62 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  6404. 1816.62 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  6405. 1816.62 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:128:24-40
  6406. 1816.62 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  6407. 1816.62 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  6408. 1816.62 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  6409. 1816.62 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  6410. 1816.62 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  6411. 1816.62 s [opt-env-conf-test] + `hashWithSalt` not (settingTryOption)
  6412. 1816.62 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  6413. 1816.62 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  6414. 1816.62 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  6415. 1816.62 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:89:5-23
  6416. 1816.62 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  6417. 1816.62 s [opt-env-conf-test] -- | Which readers should be tried to parse a value from a string
  6418. 1816.62 s [opt-env-conf-test] settingReaders :: ![Reader a],
  6419. 1816.62 s [opt-env-conf-test] -- | Whether the readers should be used to parsed arguments
  6420. 1816.62 s [opt-env-conf-test] - settingTryArgument :: !Bool,
  6421. 1816.62 s [opt-env-conf-test] + False :: !Bool,
  6422. 1816.62 s [opt-env-conf-test] -- | What value to parse when the switch exists.
  6423. 1816.62 s [opt-env-conf-test] --
  6424. 1816.62 s [opt-env-conf-test] -- Nothing means this is not a switch.
  6425. 1816.62 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:96:5-21
  6426. 1816.62 s [opt-env-conf-test] @@ -93,7 +93,7 @@
  6427. 1816.62 s [opt-env-conf-test] settingSwitchValue :: !(Maybe a),
  6428. 1816.62 s [opt-env-conf-test] -- | Whether the dasheds should be tried together with the readers as
  6429. 1816.62 s [opt-env-conf-test] -- options.
  6430. 1816.62 s [opt-env-conf-test] - settingTryOption :: !Bool,
  6431. 1816.62 s [opt-env-conf-test] + True :: !Bool,
  6432. 1816.62 s [opt-env-conf-test] -- | Which env vars can be read.
  6433. 1816.62 s [opt-env-conf-test] settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
  6434. 1816.62 s [opt-env-conf-test] -- | Which and how to parse config values
  6435. 1816.62 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:106:5-18
  6436. 1816.62 s [opt-env-conf-test] @@ -103,7 +103,7 @@
  6437. 1818.28 s [opt-env-conf-test] -- | Example values
  6438. 1818.28 s [opt-env-conf-test] settingExamples :: ![String],
  6439. 1818.28 s [opt-env-conf-test] -- | Whether to hide docs
  6440. 1818.28 s [opt-env-conf-test] - settingHidden :: !Bool,
  6441. 1818.28 s [opt-env-conf-test] + True :: !Bool,
  6442. 1818.28 s [opt-env-conf-test] -- | Which metavar should be show in documentation
  6443. 1818.28 s [opt-env-conf-test] settingMetavar :: !(Maybe Metavar),
  6444. 1818.28 s [opt-env-conf-test] settingHelp :: !(Maybe String),
  6445. 1818.28 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
  6446. 1818.28 s [opt-env-conf-test] @@ -124,7 +124,6 @@
  6447. 1818.28 s [opt-env-conf-test] ["Missing command, available commands:"]
  6448. 1818.28 s [opt-env-conf-test] : availableCommandsLines cs
  6449. 1818.28 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6450. 1818.28 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6451. 1818.28 s [opt-env-conf-test] [fore blue "available commands:"]
  6452. 1818.28 s [opt-env-conf-test] ]
  6453. 1818.28 s [opt-env-conf-test] ++ availableCommandsLines cs
  6454. 1818.28 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
  6455. 1818.28 s [opt-env-conf-test] @@ -124,7 +124,6 @@
  6456. 1818.28 s [opt-env-conf-test] ["Missing command, available commands:"]
  6457. 1818.28 s [opt-env-conf-test] : availableCommandsLines cs
  6458. 1818.28 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6459. 1818.28 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6460. 1818.28 s [opt-env-conf-test] [fore blue "available commands:"]
  6461. 1818.28 s [opt-env-conf-test] ]
  6462. 1818.28 s [opt-env-conf-test] ++ availableCommandsLines cs
  6463. 1818.28 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
  6464. 1818.28 s [opt-env-conf-test] @@ -124,9 +124,7 @@
  6465. 1818.28 s [opt-env-conf-test] ["Missing command, available commands:"]
  6466. 1818.28 s [opt-env-conf-test] : availableCommandsLines cs
  6467. 1818.28 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6468. 1818.28 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6469. 1818.28 s [opt-env-conf-test] - [fore blue "available commands:"]
  6470. 1818.28 s [opt-env-conf-test] ]
  6471. 1818.28 s [opt-env-conf-test] ++ availableCommandsLines cs
  6472. 1818.28 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6473. 1818.28 s [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."],
  6474. 1818.28 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
  6475. 1818.28 s [opt-env-conf-test] @@ -124,9 +124,8 @@
  6476. 1818.28 s [opt-env-conf-test] ["Missing command, available commands:"]
  6477. 1818.28 s [opt-env-conf-test] : availableCommandsLines cs
  6478. 1818.28 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6479. 1818.28 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6480. 1818.28 s [opt-env-conf-test] [fore blue "available commands:"]
  6481. 1818.28 s [opt-env-conf-test] ]
  6482. 1818.28 s [opt-env-conf-test] ++ availableCommandsLines cs
  6483. 1818.28 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6484. 1818.28 s [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."],
  6485. 1818.29 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
  6486. 1818.29 s [opt-env-conf-test] @@ -129,9 +129,7 @@
  6487. 1818.29 s [opt-env-conf-test] ]
  6488. 1818.29 s [opt-env-conf-test] ++ availableCommandsLines cs
  6489. 1818.29 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6490. 1818.29 s [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."],
  6491. 1818.29 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  6492. 1818.29 s [opt-env-conf-test] ]
  6493. 1818.29 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  6494. 1818.29 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  6495. 1818.29 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  6496. 1818.29 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
  6497. 1818.29 s [opt-env-conf-test] @@ -129,9 +129,8 @@
  6498. 1818.29 s [opt-env-conf-test] ]
  6499. 1818.29 s [opt-env-conf-test] ++ availableCommandsLines cs
  6500. 1818.29 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6501. 1818.29 s [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."],
  6502. 1818.29 s [opt-env-conf-test] ["The following settings have been parsed:"]
  6503. 1818.29 s [opt-env-conf-test] ]
  6504. 1818.29 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  6505. 1818.29 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  6506. 1818.29 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  6507. 1818.29 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
  6508. 1818.29 s [opt-env-conf-test] @@ -90,7 +90,6 @@
  6509. 1818.29 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  6510. 1818.29 s [opt-env-conf-test] ]
  6511. 1818.29 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  6512. 1818.29 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  6513. 1818.29 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  6514. 1818.29 s [opt-env-conf-test] [ "Missing argument: "
  6515. 1818.29 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  6516. 1818.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  6517. 1818.29 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  6518. 1818.29 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  6519. 1818.29 s [opt-env-conf-test] renderError ParseError {..} =
  6520. 1818.29 s [opt-env-conf-test] concat
  6521. 1818.29 s [opt-env-conf-test] [ case parseErrorMessage of
  6522. 1818.29 s [opt-env-conf-test] ParseErrorEmpty ->
  6523. 1818.29 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  6524. 1818.29 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  6525. 1818.29 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  6526. 1818.29 s [opt-env-conf-test] ParseErrorNoReaders ->
  6527. 1818.29 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  6528. 1818.29 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  6529. 1818.29 s [opt-env-conf-test] ]
  6530. 1818.29 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  6531. 1818.29 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  6532. 1818.29 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  6533. 1818.29 s [opt-env-conf-test] [ "Missing argument: "
  6534. 1818.29 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  6535. 1818.29 s [opt-env-conf-test] ]
  6536. 1818.29 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  6537. 1818.29 s [opt-env-conf-test] ["Failed to read argument: "]
  6538. 1818.29 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6539. 1818.29 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6540. 1818.29 s [opt-env-conf-test] ParseErrorMissingOption o ->
  6541. 1818.29 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6542. 1818.29 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  6543. 1818.29 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6544. 1818.29 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  6545. 1818.29 s [opt-env-conf-test] ["Failed to read option: "]
  6546. 1818.29 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6547. 1818.29 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6548. 1818.29 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  6549. 1818.29 s [opt-env-conf-test] ["Missing env var: "]
  6550. 1818.29 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6551. 1818.29 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  6552. 1818.29 s [opt-env-conf-test] ["Failed to read env var: "]
  6553. 1818.29 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6554. 1818.29 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6555. 1818.29 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  6556. 1818.29 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  6557. 1818.29 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  6558. 1818.70 s [opt-env-conf-test] ["Failed to parse configuration: "]
  6559. 1818.70 s [opt-env-conf-test] : maybe [] renderConfDoc md
  6560. 1818.70 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  6561. 1818.70 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  6562. 1818.70 s [opt-env-conf-test] ["Missing command, available commands:"]
  6563. 1818.70 s [opt-env-conf-test] : availableCommandsLines cs
  6564. 1818.70 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6565. 1818.70 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6566. 1818.70 s [opt-env-conf-test] [fore blue "available commands:"]
  6567. 1818.71 s [opt-env-conf-test] ]
  6568. 1818.71 s [opt-env-conf-test] ++ availableCommandsLines cs
  6569. 1818.71 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6570. 1818.71 s [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."],
  6571. 1818.71 s [opt-env-conf-test] ["The following settings have been parsed:"]
  6572. 1818.71 s [opt-env-conf-test] ]
  6573. 1818.71 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  6574. 1818.71 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  6575. 1818.71 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  6576. 1818.71 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  6577. 1818.71 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  6578. 1818.71 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  6579. 1818.71 s [opt-env-conf-test] ]
  6580. 1818.71 s [opt-env-conf-test]
  6581. 1818.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  6582. 1818.71 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  6583. 1818.71 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  6584. 1818.71 s [opt-env-conf-test] renderError ParseError {..} =
  6585. 1818.71 s [opt-env-conf-test] concat
  6586. 1818.71 s [opt-env-conf-test] [ case parseErrorMessage of
  6587. 1818.71 s [opt-env-conf-test] ParseErrorEmpty ->
  6588. 1818.71 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  6589. 1818.71 s [opt-env-conf-test] ParseErrorEmptySetting ->
  6590. 1818.71 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  6591. 1818.71 s [opt-env-conf-test] - ParseErrorNoReaders ->
  6592. 1818.71 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  6593. 1818.71 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  6594. 1818.71 s [opt-env-conf-test] - ]
  6595. 1818.71 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  6596. 1818.71 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  6597. 1818.71 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  6598. 1818.71 s [opt-env-conf-test] [ "Missing argument: "
  6599. 1818.71 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  6600. 1818.71 s [opt-env-conf-test] ]
  6601. 1818.71 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  6602. 1818.71 s [opt-env-conf-test] ["Failed to read argument: "]
  6603. 1818.71 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6604. 1818.71 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6605. 1818.71 s [opt-env-conf-test] ParseErrorMissingOption o ->
  6606. 1818.71 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6607. 1818.71 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  6608. 1818.71 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6609. 1818.71 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  6610. 1818.71 s [opt-env-conf-test] ["Failed to read option: "]
  6611. 1818.71 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6612. 1818.71 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6613. 1818.71 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  6614. 1818.71 s [opt-env-conf-test] ["Missing env var: "]
  6615. 1818.71 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6616. 1818.71 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  6617. 1818.71 s [opt-env-conf-test] ["Failed to read env var: "]
  6618. 1818.71 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6619. 1818.71 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6620. 1818.71 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  6621. 1818.71 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  6622. 1818.71 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  6623. 1818.72 s [opt-env-conf-test] ["Failed to parse configuration: "]
  6624. 1818.72 s [opt-env-conf-test] : maybe [] renderConfDoc md
  6625. 1818.72 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  6626. 1818.72 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  6627. 1818.72 s [opt-env-conf-test] ["Missing command, available commands:"]
  6628. 1818.72 s [opt-env-conf-test] : availableCommandsLines cs
  6629. 1818.72 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6630. 1818.72 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6631. 1818.72 s [opt-env-conf-test] [fore blue "available commands:"]
  6632. 1818.72 s [opt-env-conf-test] ]
  6633. 1818.72 s [opt-env-conf-test] ++ availableCommandsLines cs
  6634. 1818.72 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6635. 1818.72 s [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."],
  6636. 1818.72 s [opt-env-conf-test] ["The following settings have been parsed:"]
  6637. 1818.72 s [opt-env-conf-test] ]
  6638. 1818.72 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  6639. 1818.72 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  6640. 1818.72 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  6641. 1818.72 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  6642. 1818.72 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  6643. 1818.72 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  6644. 1818.72 s [opt-env-conf-test] ]
  6645. 1818.72 s [opt-env-conf-test]
  6646. 1818.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  6647. 1818.72 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  6648. 1818.72 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  6649. 1818.72 s [opt-env-conf-test] renderError ParseError {..} =
  6650. 1818.72 s [opt-env-conf-test] concat
  6651. 1818.72 s [opt-env-conf-test] [ case parseErrorMessage of
  6652. 1818.72 s [opt-env-conf-test] - ParseErrorEmpty ->
  6653. 1818.72 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  6654. 1818.72 s [opt-env-conf-test] ParseErrorEmptySetting ->
  6655. 1818.72 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  6656. 1818.72 s [opt-env-conf-test] ParseErrorNoReaders ->
  6657. 1818.72 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  6658. 1818.72 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  6659. 1818.72 s [opt-env-conf-test] ]
  6660. 1818.72 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  6661. 1818.72 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  6662. 1818.72 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  6663. 1818.72 s [opt-env-conf-test] [ "Missing argument: "
  6664. 1818.72 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  6665. 1818.72 s [opt-env-conf-test] ]
  6666. 1818.72 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  6667. 1818.72 s [opt-env-conf-test] ["Failed to read argument: "]
  6668. 1818.72 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6669. 1818.72 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6670. 1818.72 s [opt-env-conf-test] ParseErrorMissingOption o ->
  6671. 1818.72 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6672. 1818.72 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  6673. 1818.72 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6674. 1818.72 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  6675. 1818.72 s [opt-env-conf-test] ["Failed to read option: "]
  6676. 1818.72 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6677. 1818.72 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6678. 1818.72 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  6679. 1818.72 s [opt-env-conf-test] ["Missing env var: "]
  6680. 1818.72 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6681. 1818.72 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  6682. 1818.72 s [opt-env-conf-test] ["Failed to read env var: "]
  6683. 1818.72 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6684. 1818.72 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6685. 1818.73 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  6686. 1818.73 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  6687. 1818.73 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  6688. 1818.90 s [opt-env-conf-test] ["Failed to parse configuration: "]
  6689. 1818.90 s [opt-env-conf-test] : maybe [] renderConfDoc md
  6690. 1818.90 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  6691. 1818.90 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  6692. 1818.90 s [opt-env-conf-test] ["Missing command, available commands:"]
  6693. 1818.90 s [opt-env-conf-test] : availableCommandsLines cs
  6694. 1818.90 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6695. 1818.90 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6696. 1818.90 s [opt-env-conf-test] [fore blue "available commands:"]
  6697. 1818.90 s [opt-env-conf-test] ]
  6698. 1818.90 s [opt-env-conf-test] ++ availableCommandsLines cs
  6699. 1818.90 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6700. 1818.90 s [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."],
  6701. 1818.90 s [opt-env-conf-test] ["The following settings have been parsed:"]
  6702. 1818.90 s [opt-env-conf-test] ]
  6703. 1818.90 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  6704. 1818.90 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  6705. 1818.90 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  6706. 1818.90 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  6707. 1818.90 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  6708. 1818.90 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  6709. 1818.90 s [opt-env-conf-test] ]
  6710. 1818.90 s [opt-env-conf-test]
  6711. 1818.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  6712. 1818.90 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  6713. 1818.90 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  6714. 1818.90 s [opt-env-conf-test] renderError ParseError {..} =
  6715. 1818.90 s [opt-env-conf-test] concat
  6716. 1818.90 s [opt-env-conf-test] [ case parseErrorMessage of
  6717. 1818.90 s [opt-env-conf-test] ParseErrorEmpty ->
  6718. 1818.90 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  6719. 1818.90 s [opt-env-conf-test] ParseErrorEmptySetting ->
  6720. 1818.90 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  6721. 1818.90 s [opt-env-conf-test] ParseErrorNoReaders ->
  6722. 1818.90 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  6723. 1818.91 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  6724. 1818.91 s [opt-env-conf-test] ]
  6725. 1818.91 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  6726. 1818.91 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  6727. 1818.91 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  6728. 1818.91 s [opt-env-conf-test] [ "Missing argument: "
  6729. 1818.91 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  6730. 1818.91 s [opt-env-conf-test] ]
  6731. 1818.91 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  6732. 1818.91 s [opt-env-conf-test] ["Failed to read argument: "]
  6733. 1818.91 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6734. 1818.91 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6735. 1818.91 s [opt-env-conf-test] ParseErrorMissingOption o ->
  6736. 1818.91 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6737. 1818.91 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  6738. 1818.91 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6739. 1818.91 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  6740. 1818.91 s [opt-env-conf-test] ["Failed to read option: "]
  6741. 1818.91 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6742. 1818.91 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6743. 1818.91 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  6744. 1818.91 s [opt-env-conf-test] ["Missing env var: "]
  6745. 1818.91 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6746. 1818.91 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  6747. 1818.91 s [opt-env-conf-test] ["Failed to read env var: "]
  6748. 1818.91 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6749. 1818.91 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6750. 1818.91 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  6751. 1818.91 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  6752. 1818.91 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  6753. 1819.03 s [opt-env-conf-test] ["Failed to parse configuration: "]
  6754. 1819.03 s [opt-env-conf-test] : maybe [] renderConfDoc md
  6755. 1819.03 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  6756. 1819.03 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  6757. 1819.03 s [opt-env-conf-test] ["Missing command, available commands:"]
  6758. 1819.03 s [opt-env-conf-test] : availableCommandsLines cs
  6759. 1819.03 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6760. 1819.03 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6761. 1819.03 s [opt-env-conf-test] [fore blue "available commands:"]
  6762. 1819.03 s [opt-env-conf-test] ]
  6763. 1819.03 s [opt-env-conf-test] ++ availableCommandsLines cs
  6764. 1819.03 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6765. 1819.03 s [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."],
  6766. 1819.03 s [opt-env-conf-test] ["The following settings have been parsed:"]
  6767. 1819.03 s [opt-env-conf-test] ]
  6768. 1819.03 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  6769. 1819.03 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  6770. 1819.03 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  6771. 1819.03 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  6772. 1819.03 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  6773. 1819.03 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  6774. 1819.03 s [opt-env-conf-test] ]
  6775. 1819.03 s [opt-env-conf-test]
  6776. 1819.03 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  6777. 1819.03 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  6778. 1819.03 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  6779. 1819.03 s [opt-env-conf-test] renderError ParseError {..} =
  6780. 1819.03 s [opt-env-conf-test] concat
  6781. 1819.03 s [opt-env-conf-test] [ case parseErrorMessage of
  6782. 1819.03 s [opt-env-conf-test] ParseErrorEmpty ->
  6783. 1819.03 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  6784. 1819.03 s [opt-env-conf-test] ParseErrorEmptySetting ->
  6785. 1819.03 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  6786. 1819.03 s [opt-env-conf-test] ParseErrorNoReaders ->
  6787. 1819.03 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  6788. 1819.03 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  6789. 1819.03 s [opt-env-conf-test] ]
  6790. 1819.03 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  6791. 1819.03 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  6792. 1819.03 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  6793. 1819.03 s [opt-env-conf-test] - [ "Missing argument: "
  6794. 1819.03 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  6795. 1819.03 s [opt-env-conf-test] - ]
  6796. 1819.03 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  6797. 1819.03 s [opt-env-conf-test] ["Failed to read argument: "]
  6798. 1819.03 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6799. 1819.03 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6800. 1819.03 s [opt-env-conf-test] ParseErrorMissingOption o ->
  6801. 1819.03 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6802. 1819.03 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  6803. 1819.03 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6804. 1819.03 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  6805. 1819.04 s [opt-env-conf-test] ["Failed to read option: "]
  6806. 1819.04 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6807. 1819.04 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6808. 1819.04 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  6809. 1819.04 s [opt-env-conf-test] ["Missing env var: "]
  6810. 1819.04 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6811. 1819.04 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  6812. 1819.04 s [opt-env-conf-test] ["Failed to read env var: "]
  6813. 1819.04 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6814. 1819.04 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6815. 1819.04 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  6816. 1819.04 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  6817. 1819.04 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  6818. 1819.08 s [opt-env-conf-test] ["Failed to parse configuration: "]
  6819. 1819.08 s [opt-env-conf-test] : maybe [] renderConfDoc md
  6820. 1819.08 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  6821. 1819.08 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  6822. 1819.08 s [opt-env-conf-test] ["Missing command, available commands:"]
  6823. 1819.08 s [opt-env-conf-test] : availableCommandsLines cs
  6824. 1819.08 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6825. 1819.08 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6826. 1819.08 s [opt-env-conf-test] [fore blue "available commands:"]
  6827. 1819.08 s [opt-env-conf-test] ]
  6828. 1819.08 s [opt-env-conf-test] ++ availableCommandsLines cs
  6829. 1819.08 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6830. 1819.08 s [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."],
  6831. 1819.08 s [opt-env-conf-test] ["The following settings have been parsed:"]
  6832. 1819.08 s [opt-env-conf-test] ]
  6833. 1819.08 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  6834. 1819.08 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  6835. 1819.08 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  6836. 1819.08 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  6837. 1819.08 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  6838. 1819.08 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  6839. 1819.08 s [opt-env-conf-test] ]
  6840. 1819.08 s [opt-env-conf-test]
  6841. 1819.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  6842. 1819.08 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  6843. 1819.08 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  6844. 1819.08 s [opt-env-conf-test] renderError ParseError {..} =
  6845. 1819.08 s [opt-env-conf-test] concat
  6846. 1819.08 s [opt-env-conf-test] [ case parseErrorMessage of
  6847. 1819.08 s [opt-env-conf-test] ParseErrorEmpty ->
  6848. 1819.08 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  6849. 1819.08 s [opt-env-conf-test] ParseErrorEmptySetting ->
  6850. 1819.08 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  6851. 1819.08 s [opt-env-conf-test] ParseErrorNoReaders ->
  6852. 1819.08 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  6853. 1819.08 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  6854. 1819.08 s [opt-env-conf-test] ]
  6855. 1819.08 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  6856. 1819.08 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  6857. 1819.08 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  6858. 1819.08 s [opt-env-conf-test] [ "Missing argument: "
  6859. 1819.08 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  6860. 1819.08 s [opt-env-conf-test] ]
  6861. 1819.08 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  6862. 1819.08 s [opt-env-conf-test] ["Failed to read argument: "]
  6863. 1819.08 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6864. 1819.08 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6865. 1819.08 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  6866. 1819.08 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6867. 1819.08 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  6868. 1819.08 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6869. 1819.08 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  6870. 1819.08 s [opt-env-conf-test] ["Failed to read option: "]
  6871. 1819.08 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6872. 1819.08 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6873. 1819.08 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  6874. 1819.09 s [opt-env-conf-test] ["Missing env var: "]
  6875. 1819.09 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6876. 1819.09 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  6877. 1819.09 s [opt-env-conf-test] ["Failed to read env var: "]
  6878. 1819.09 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6879. 1819.09 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6880. 1819.09 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  6881. 1819.09 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  6882. 1819.09 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  6883. 1819.12 s [opt-env-conf-test] ["Failed to parse configuration: "]
  6884. 1819.12 s [opt-env-conf-test] : maybe [] renderConfDoc md
  6885. 1819.12 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  6886. 1819.12 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  6887. 1819.12 s [opt-env-conf-test] ["Missing command, available commands:"]
  6888. 1819.12 s [opt-env-conf-test] : availableCommandsLines cs
  6889. 1819.12 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6890. 1819.12 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6891. 1819.12 s [opt-env-conf-test] [fore blue "available commands:"]
  6892. 1819.12 s [opt-env-conf-test] ]
  6893. 1819.12 s [opt-env-conf-test] ++ availableCommandsLines cs
  6894. 1819.12 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6895. 1819.12 s [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."],
  6896. 1819.12 s [opt-env-conf-test] ["The following settings have been parsed:"]
  6897. 1819.12 s [opt-env-conf-test] ]
  6898. 1819.12 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  6899. 1819.12 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  6900. 1819.12 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  6901. 1819.12 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  6902. 1819.12 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  6903. 1819.12 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  6904. 1819.12 s [opt-env-conf-test] ]
  6905. 1819.12 s [opt-env-conf-test]
  6906. 1819.12 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  6907. 1819.12 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  6908. 1819.12 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  6909. 1819.12 s [opt-env-conf-test] renderError ParseError {..} =
  6910. 1819.12 s [opt-env-conf-test] concat
  6911. 1819.12 s [opt-env-conf-test] [ case parseErrorMessage of
  6912. 1819.12 s [opt-env-conf-test] ParseErrorEmpty ->
  6913. 1819.12 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  6914. 1819.13 s [opt-env-conf-test] ParseErrorEmptySetting ->
  6915. 1819.13 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  6916. 1819.13 s [opt-env-conf-test] ParseErrorNoReaders ->
  6917. 1819.13 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  6918. 1819.13 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  6919. 1819.13 s [opt-env-conf-test] ]
  6920. 1819.13 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  6921. 1819.13 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  6922. 1819.13 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  6923. 1819.13 s [opt-env-conf-test] [ "Missing argument: "
  6924. 1819.13 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  6925. 1819.13 s [opt-env-conf-test] ]
  6926. 1819.13 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  6927. 1819.13 s [opt-env-conf-test] - ["Failed to read argument: "]
  6928. 1819.13 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  6929. 1819.13 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6930. 1819.13 s [opt-env-conf-test] ParseErrorMissingOption o ->
  6931. 1819.13 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6932. 1819.13 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  6933. 1819.13 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6934. 1819.13 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  6935. 1819.13 s [opt-env-conf-test] ["Failed to read option: "]
  6936. 1819.13 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6937. 1819.13 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6938. 1819.13 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  6939. 1819.13 s [opt-env-conf-test] ["Missing env var: "]
  6940. 1819.13 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6941. 1819.13 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  6942. 1819.13 s [opt-env-conf-test] ["Failed to read env var: "]
  6943. 1819.13 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  6944. 1819.13 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6945. 1819.13 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  6946. 1819.13 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  6947. 1819.13 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  6948. 1819.29 s [opt-env-conf-test] ["Failed to parse configuration: "]
  6949. 1819.29 s [opt-env-conf-test] : maybe [] renderConfDoc md
  6950. 1819.29 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  6951. 1819.29 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  6952. 1819.30 s [opt-env-conf-test] ["Missing command, available commands:"]
  6953. 1819.30 s [opt-env-conf-test] : availableCommandsLines cs
  6954. 1819.30 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  6955. 1819.30 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  6956. 1819.30 s [opt-env-conf-test] [fore blue "available commands:"]
  6957. 1819.30 s [opt-env-conf-test] ]
  6958. 1819.30 s [opt-env-conf-test] ++ availableCommandsLines cs
  6959. 1819.30 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  6960. 1819.30 s [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."],
  6961. 1819.30 s [opt-env-conf-test] ["The following settings have been parsed:"]
  6962. 1819.30 s [opt-env-conf-test] ]
  6963. 1819.30 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  6964. 1819.30 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  6965. 1819.30 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  6966. 1819.30 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  6967. 1819.30 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  6968. 1819.30 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  6969. 1819.30 s [opt-env-conf-test] ]
  6970. 1819.30 s [opt-env-conf-test]
  6971. 1819.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  6972. 1819.30 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  6973. 1819.30 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  6974. 1819.30 s [opt-env-conf-test] renderError ParseError {..} =
  6975. 1819.30 s [opt-env-conf-test] concat
  6976. 1819.30 s [opt-env-conf-test] [ case parseErrorMessage of
  6977. 1819.30 s [opt-env-conf-test] ParseErrorEmpty ->
  6978. 1819.30 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  6979. 1819.30 s [opt-env-conf-test] ParseErrorEmptySetting ->
  6980. 1819.30 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  6981. 1819.30 s [opt-env-conf-test] ParseErrorNoReaders ->
  6982. 1819.30 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  6983. 1819.30 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  6984. 1819.30 s [opt-env-conf-test] ]
  6985. 1819.30 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  6986. 1819.30 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  6987. 1819.30 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  6988. 1819.30 s [opt-env-conf-test] [ "Missing argument: "
  6989. 1819.30 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  6990. 1819.30 s [opt-env-conf-test] ]
  6991. 1819.30 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  6992. 1819.30 s [opt-env-conf-test] ["Failed to read argument: "]
  6993. 1819.30 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  6994. 1819.30 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  6995. 1819.30 s [opt-env-conf-test] ParseErrorMissingOption o ->
  6996. 1819.30 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6997. 1819.30 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  6998. 1819.30 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  6999. 1819.30 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  7000. 1819.30 s [opt-env-conf-test] - ["Failed to read option: "]
  7001. 1819.30 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  7002. 1819.30 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7003. 1819.30 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7004. 1819.30 s [opt-env-conf-test] ["Missing env var: "]
  7005. 1819.30 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7006. 1819.30 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7007. 1819.30 s [opt-env-conf-test] ["Failed to read env var: "]
  7008. 1819.30 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7009. 1819.30 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7010. 1819.30 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7011. 1819.30 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7012. 1819.30 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7013. 1819.70 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7014. 1819.70 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7015. 1819.70 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7016. 1819.70 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7017. 1819.70 s [opt-env-conf-test] ["Missing command, available commands:"]
  7018. 1819.70 s [opt-env-conf-test] : availableCommandsLines cs
  7019. 1819.70 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7020. 1819.70 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7021. 1819.70 s [opt-env-conf-test] [fore blue "available commands:"]
  7022. 1819.70 s [opt-env-conf-test] ]
  7023. 1819.70 s [opt-env-conf-test] ++ availableCommandsLines cs
  7024. 1819.70 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7025. 1819.70 s [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."],
  7026. 1819.70 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7027. 1819.70 s [opt-env-conf-test] ]
  7028. 1819.70 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7029. 1819.70 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7030. 1819.70 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7031. 1819.70 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7032. 1819.70 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7033. 1819.70 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7034. 1819.70 s [opt-env-conf-test] ]
  7035. 1819.70 s [opt-env-conf-test]
  7036. 1819.70 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7037. 1819.70 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  7038. 1819.70 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7039. 1819.70 s [opt-env-conf-test] renderError ParseError {..} =
  7040. 1819.70 s [opt-env-conf-test] concat
  7041. 1819.70 s [opt-env-conf-test] [ case parseErrorMessage of
  7042. 1819.70 s [opt-env-conf-test] ParseErrorEmpty ->
  7043. 1819.70 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7044. 1819.70 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7045. 1819.70 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7046. 1819.70 s [opt-env-conf-test] ParseErrorNoReaders ->
  7047. 1819.70 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7048. 1819.70 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7049. 1819.70 s [opt-env-conf-test] ]
  7050. 1819.70 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7051. 1819.70 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7052. 1819.70 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7053. 1819.70 s [opt-env-conf-test] [ "Missing argument: "
  7054. 1819.70 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7055. 1819.70 s [opt-env-conf-test] ]
  7056. 1819.70 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7057. 1819.70 s [opt-env-conf-test] ["Failed to read argument: "]
  7058. 1819.70 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7059. 1819.70 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7060. 1819.70 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7061. 1819.70 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7062. 1819.70 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  7063. 1819.70 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7064. 1819.70 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7065. 1819.70 s [opt-env-conf-test] ["Failed to read option: "]
  7066. 1819.70 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7067. 1819.70 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7068. 1819.70 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7069. 1819.70 s [opt-env-conf-test] ["Missing env var: "]
  7070. 1819.70 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7071. 1819.70 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7072. 1819.70 s [opt-env-conf-test] ["Failed to read env var: "]
  7073. 1819.70 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7074. 1819.70 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7075. 1819.70 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7076. 1819.70 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7077. 1819.70 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7078. 1820.12 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7079. 1820.12 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7080. 1820.12 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7081. 1820.12 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7082. 1820.12 s [opt-env-conf-test] ["Missing command, available commands:"]
  7083. 1820.12 s [opt-env-conf-test] : availableCommandsLines cs
  7084. 1820.12 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7085. 1820.12 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7086. 1820.12 s [opt-env-conf-test] [fore blue "available commands:"]
  7087. 1820.12 s [opt-env-conf-test] ]
  7088. 1820.12 s [opt-env-conf-test] ++ availableCommandsLines cs
  7089. 1820.12 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7090. 1820.12 s [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."],
  7091. 1820.12 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7092. 1820.12 s [opt-env-conf-test] ]
  7093. 1820.12 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7094. 1820.12 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7095. 1820.12 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7096. 1820.12 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7097. 1820.12 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7098. 1820.12 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7099. 1820.12 s [opt-env-conf-test] ]
  7100. 1820.12 s [opt-env-conf-test]
  7101. 1820.12 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7102. 1820.12 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  7103. 1820.12 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7104. 1820.12 s [opt-env-conf-test] renderError ParseError {..} =
  7105. 1820.12 s [opt-env-conf-test] concat
  7106. 1820.12 s [opt-env-conf-test] [ case parseErrorMessage of
  7107. 1820.12 s [opt-env-conf-test] ParseErrorEmpty ->
  7108. 1820.12 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7109. 1820.12 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7110. 1820.12 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7111. 1820.12 s [opt-env-conf-test] ParseErrorNoReaders ->
  7112. 1820.13 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7113. 1820.13 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7114. 1820.13 s [opt-env-conf-test] ]
  7115. 1820.13 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7116. 1820.13 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7117. 1820.13 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7118. 1820.13 s [opt-env-conf-test] [ "Missing argument: "
  7119. 1820.13 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7120. 1820.13 s [opt-env-conf-test] ]
  7121. 1820.13 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7122. 1820.13 s [opt-env-conf-test] ["Failed to read argument: "]
  7123. 1820.13 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7124. 1820.13 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7125. 1820.13 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7126. 1820.13 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7127. 1820.13 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  7128. 1820.13 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7129. 1820.13 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7130. 1820.13 s [opt-env-conf-test] ["Failed to read option: "]
  7131. 1820.13 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7132. 1820.13 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7133. 1820.13 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7134. 1820.13 s [opt-env-conf-test] ["Missing env var: "]
  7135. 1820.13 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  7136. 1820.13 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  7137. 1820.13 s [opt-env-conf-test] - ["Failed to read env var: "]
  7138. 1820.13 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7139. 1820.13 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7140. 1820.13 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7141. 1820.13 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7142. 1820.13 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7143. 1820.77 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7144. 1820.78 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7145. 1820.78 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7146. 1820.78 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7147. 1820.78 s [opt-env-conf-test] ["Missing command, available commands:"]
  7148. 1820.78 s [opt-env-conf-test] : availableCommandsLines cs
  7149. 1820.78 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7150. 1820.78 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7151. 1820.78 s [opt-env-conf-test] [fore blue "available commands:"]
  7152. 1820.78 s [opt-env-conf-test] ]
  7153. 1820.78 s [opt-env-conf-test] ++ availableCommandsLines cs
  7154. 1820.78 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7155. 1820.78 s [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."],
  7156. 1820.78 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7157. 1820.78 s [opt-env-conf-test] ]
  7158. 1820.78 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7159. 1820.78 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7160. 1820.78 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7161. 1820.78 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7162. 1820.78 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7163. 1820.78 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7164. 1820.78 s [opt-env-conf-test] ]
  7165. 1820.78 s [opt-env-conf-test]
  7166. 1820.78 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7167. 1820.78 s [opt-env-conf-test] @@ -80,63 +80,60 @@
  7168. 1820.78 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7169. 1820.78 s [opt-env-conf-test] renderError ParseError {..} =
  7170. 1820.78 s [opt-env-conf-test] concat
  7171. 1820.78 s [opt-env-conf-test] [ case parseErrorMessage of
  7172. 1820.78 s [opt-env-conf-test] ParseErrorEmpty ->
  7173. 1820.78 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7174. 1820.78 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7175. 1820.78 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7176. 1820.78 s [opt-env-conf-test] ParseErrorNoReaders ->
  7177. 1820.78 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7178. 1820.78 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7179. 1820.78 s [opt-env-conf-test] ]
  7180. 1820.78 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7181. 1820.78 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7182. 1820.78 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7183. 1820.78 s [opt-env-conf-test] [ "Missing argument: "
  7184. 1820.78 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7185. 1820.78 s [opt-env-conf-test] ]
  7186. 1820.78 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7187. 1820.78 s [opt-env-conf-test] ["Failed to read argument: "]
  7188. 1820.78 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7189. 1820.78 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7190. 1820.78 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7191. 1820.78 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7192. 1820.78 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  7193. 1820.78 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7194. 1820.78 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7195. 1820.79 s [opt-env-conf-test] ["Failed to read option: "]
  7196. 1820.79 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7197. 1820.79 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7198. 1820.79 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  7199. 1820.79 s [opt-env-conf-test] - ["Missing env var: "]
  7200. 1820.79 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  7201. 1820.79 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7202. 1820.79 s [opt-env-conf-test] ["Failed to read env var: "]
  7203. 1820.79 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7204. 1820.79 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7205. 1820.79 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7206. 1820.79 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7207. 1820.79 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7208. 1821.38 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7209. 1821.38 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7210. 1821.38 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7211. 1821.38 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7212. 1821.38 s [opt-env-conf-test] ["Missing command, available commands:"]
  7213. 1821.38 s [opt-env-conf-test] : availableCommandsLines cs
  7214. 1821.38 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7215. 1821.38 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7216. 1821.38 s [opt-env-conf-test] [fore blue "available commands:"]
  7217. 1821.38 s [opt-env-conf-test] ]
  7218. 1821.38 s [opt-env-conf-test] ++ availableCommandsLines cs
  7219. 1821.38 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7220. 1821.38 s [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."],
  7221. 1821.38 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7222. 1821.38 s [opt-env-conf-test] ]
  7223. 1821.38 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7224. 1821.38 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7225. 1821.38 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7226. 1821.38 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7227. 1821.38 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7228. 1821.38 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7229. 1821.38 s [opt-env-conf-test] ]
  7230. 1821.38 s [opt-env-conf-test]
  7231. 1821.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7232. 1821.38 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  7233. 1821.38 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7234. 1821.38 s [opt-env-conf-test] renderError ParseError {..} =
  7235. 1821.38 s [opt-env-conf-test] concat
  7236. 1821.38 s [opt-env-conf-test] [ case parseErrorMessage of
  7237. 1821.38 s [opt-env-conf-test] ParseErrorEmpty ->
  7238. 1821.38 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7239. 1821.38 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7240. 1821.38 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7241. 1821.38 s [opt-env-conf-test] ParseErrorNoReaders ->
  7242. 1821.38 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7243. 1821.39 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7244. 1821.39 s [opt-env-conf-test] ]
  7245. 1821.39 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7246. 1821.39 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7247. 1821.39 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7248. 1821.39 s [opt-env-conf-test] [ "Missing argument: "
  7249. 1821.39 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7250. 1821.39 s [opt-env-conf-test] ]
  7251. 1821.39 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7252. 1821.39 s [opt-env-conf-test] ["Failed to read argument: "]
  7253. 1821.39 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7254. 1821.39 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7255. 1821.39 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7256. 1821.39 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7257. 1821.39 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  7258. 1821.39 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7259. 1821.39 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7260. 1821.39 s [opt-env-conf-test] ["Failed to read option: "]
  7261. 1821.39 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7262. 1821.39 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7263. 1821.39 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7264. 1821.39 s [opt-env-conf-test] ["Missing env var: "]
  7265. 1821.39 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7266. 1821.39 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7267. 1821.39 s [opt-env-conf-test] ["Failed to read env var: "]
  7268. 1821.39 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7269. 1821.39 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7270. 1821.39 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  7271. 1821.39 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  7272. 1821.39 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7273. 1822.97 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7274. 1822.97 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7275. 1823.09 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7276. 1823.09 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7277. 1823.09 s [opt-env-conf-test] ["Missing command, available commands:"]
  7278. 1823.09 s [opt-env-conf-test] : availableCommandsLines cs
  7279. 1823.09 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7280. 1823.09 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7281. 1823.09 s [opt-env-conf-test] [fore blue "available commands:"]
  7282. 1823.09 s [opt-env-conf-test] ]
  7283. 1823.09 s [opt-env-conf-test] ++ availableCommandsLines cs
  7284. 1823.09 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7285. 1823.09 s [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."],
  7286. 1823.09 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7287. 1823.09 s [opt-env-conf-test] ]
  7288. 1823.09 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7289. 1823.09 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7290. 1823.09 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7291. 1823.09 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7292. 1823.09 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7293. 1823.09 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7294. 1823.09 s [opt-env-conf-test] ]
  7295. 1823.09 s [opt-env-conf-test]
  7296. 1823.09 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:136:5-29
  7297. 1823.09 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  7298. 1823.09 s [opt-env-conf-test]
  7299. 1823.09 s [opt-env-conf-test] data EnvVarSetting = EnvVarSetting
  7300. 1823.09 s [opt-env-conf-test] { envVarSettingVar :: !String,
  7301. 1823.09 s [opt-env-conf-test] - envVarSettingAllowPrefix :: !Bool
  7302. 1823.09 s [opt-env-conf-test] + True :: !Bool
  7303. 1823.09 s [opt-env-conf-test] }
  7304. 1823.09 s [opt-env-conf-test] deriving (Show, Eq)
  7305. 1823.09 s [opt-env-conf-test]
  7306. 1823.09 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:159:5-32
  7307. 1823.09 s [opt-env-conf-test] @@ -156,7 +156,7 @@
  7308. 1823.09 s [opt-env-conf-test] = forall void.
  7309. 1823.09 s [opt-env-conf-test] ConfigValSetting
  7310. 1823.09 s [opt-env-conf-test] { configValSettingPath :: !(NonEmpty String),
  7311. 1823.09 s [opt-env-conf-test] - configValSettingAllowPrefix :: !Bool,
  7312. 1823.09 s [opt-env-conf-test] + True :: !Bool,
  7313. 1823.09 s [opt-env-conf-test] configValSettingCodec :: !(ValueCodec void (Maybe a))
  7314. 1823.09 s [opt-env-conf-test] }
  7315. 1823.09 s [opt-env-conf-test]
  7316. 1823.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7317. 1823.10 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  7318. 1823.10 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7319. 1823.10 s [opt-env-conf-test] renderError ParseError {..} =
  7320. 1823.10 s [opt-env-conf-test] concat
  7321. 1823.10 s [opt-env-conf-test] [ case parseErrorMessage of
  7322. 1823.10 s [opt-env-conf-test] ParseErrorEmpty ->
  7323. 1823.10 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7324. 1823.10 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7325. 1823.10 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7326. 1823.10 s [opt-env-conf-test] ParseErrorNoReaders ->
  7327. 1823.10 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7328. 1823.10 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7329. 1823.10 s [opt-env-conf-test] ]
  7330. 1823.10 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7331. 1823.10 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7332. 1823.10 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7333. 1823.10 s [opt-env-conf-test] [ "Missing argument: "
  7334. 1823.10 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7335. 1823.10 s [opt-env-conf-test] ]
  7336. 1823.10 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7337. 1823.10 s [opt-env-conf-test] ["Failed to read argument: "]
  7338. 1823.10 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7339. 1823.10 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7340. 1823.10 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7341. 1823.10 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7342. 1823.10 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  7343. 1823.10 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7344. 1823.10 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7345. 1823.10 s [opt-env-conf-test] ["Failed to read option: "]
  7346. 1823.10 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7347. 1823.10 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7348. 1823.10 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7349. 1823.10 s [opt-env-conf-test] ["Missing env var: "]
  7350. 1823.10 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7351. 1823.10 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7352. 1823.10 s [opt-env-conf-test] ["Failed to read env var: "]
  7353. 1823.10 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7354. 1823.10 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7355. 1823.10 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7356. 1823.10 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7357. 1823.10 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  7358. 1823.14 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  7359. 1823.14 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  7360. 1823.14 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  7361. 1823.14 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7362. 1823.14 s [opt-env-conf-test] ["Missing command, available commands:"]
  7363. 1823.14 s [opt-env-conf-test] : availableCommandsLines cs
  7364. 1823.14 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7365. 1823.14 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7366. 1823.14 s [opt-env-conf-test] [fore blue "available commands:"]
  7367. 1823.14 s [opt-env-conf-test] ]
  7368. 1823.14 s [opt-env-conf-test] ++ availableCommandsLines cs
  7369. 1823.14 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7370. 1823.14 s [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."],
  7371. 1823.14 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7372. 1823.14 s [opt-env-conf-test] ]
  7373. 1823.14 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7374. 1823.15 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7375. 1823.15 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7376. 1823.15 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7377. 1823.15 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7378. 1823.15 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7379. 1823.15 s [opt-env-conf-test] ]
  7380. 1823.15 s [opt-env-conf-test]
  7381. 1823.15 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:106:5-18
  7382. 1823.15 s [opt-env-conf-test] @@ -103,7 +103,7 @@
  7383. 1823.15 s [opt-env-conf-test] -- | Example values
  7384. 1823.15 s [opt-env-conf-test] settingExamples :: ![String],
  7385. 1823.15 s [opt-env-conf-test] -- | Whether to hide docs
  7386. 1823.15 s [opt-env-conf-test] - settingHidden :: !Bool,
  7387. 1823.15 s [opt-env-conf-test] + False :: !Bool,
  7388. 1823.15 s [opt-env-conf-test] -- | Which metavar should be show in documentation
  7389. 1823.15 s [opt-env-conf-test] settingMetavar :: !(Maybe Metavar),
  7390. 1823.15 s [opt-env-conf-test] settingHelp :: !(Maybe String),
  7391. 1823.15 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:96:5-21
  7392. 1823.15 s [opt-env-conf-test] @@ -93,7 +93,7 @@
  7393. 1823.15 s [opt-env-conf-test] settingSwitchValue :: !(Maybe a),
  7394. 1823.15 s [opt-env-conf-test] -- | Whether the dasheds should be tried together with the readers as
  7395. 1823.15 s [opt-env-conf-test] -- options.
  7396. 1823.15 s [opt-env-conf-test] - settingTryOption :: !Bool,
  7397. 1823.15 s [opt-env-conf-test] + not (settingTryOption) :: !Bool,
  7398. 1823.15 s [opt-env-conf-test] -- | Which env vars can be read.
  7399. 1823.15 s [opt-env-conf-test] settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
  7400. 1823.15 s [opt-env-conf-test] -- | Which and how to parse config values
  7401. 1823.15 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7402. 1823.15 s [opt-env-conf-test] @@ -80,63 +80,60 @@
  7403. 1823.15 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7404. 1823.15 s [opt-env-conf-test] renderError ParseError {..} =
  7405. 1823.15 s [opt-env-conf-test] concat
  7406. 1823.15 s [opt-env-conf-test] [ case parseErrorMessage of
  7407. 1823.15 s [opt-env-conf-test] ParseErrorEmpty ->
  7408. 1823.15 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7409. 1823.15 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7410. 1823.15 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7411. 1823.15 s [opt-env-conf-test] ParseErrorNoReaders ->
  7412. 1823.15 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7413. 1823.15 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7414. 1823.15 s [opt-env-conf-test] ]
  7415. 1823.15 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7416. 1823.15 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7417. 1823.15 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7418. 1823.15 s [opt-env-conf-test] [ "Missing argument: "
  7419. 1823.15 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7420. 1823.15 s [opt-env-conf-test] ]
  7421. 1823.15 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7422. 1823.15 s [opt-env-conf-test] ["Failed to read argument: "]
  7423. 1823.15 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7424. 1823.15 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7425. 1823.15 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7426. 1823.15 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7427. 1823.15 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  7428. 1823.15 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7429. 1823.15 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7430. 1823.15 s [opt-env-conf-test] ["Failed to read option: "]
  7431. 1823.15 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7432. 1823.15 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7433. 1823.15 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7434. 1823.15 s [opt-env-conf-test] ["Missing env var: "]
  7435. 1823.15 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7436. 1823.15 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7437. 1823.15 s [opt-env-conf-test] ["Failed to read env var: "]
  7438. 1823.15 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7439. 1823.15 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7440. 1823.15 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7441. 1823.15 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7442. 1823.15 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7443. 1823.15 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7444. 1823.34 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7445. 1823.34 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7446. 1823.34 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  7447. 1823.34 s [opt-env-conf-test] - ["Missing command, available commands:"]
  7448. 1823.34 s [opt-env-conf-test] - : availableCommandsLines cs
  7449. 1823.34 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7450. 1823.34 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7451. 1823.34 s [opt-env-conf-test] [fore blue "available commands:"]
  7452. 1823.34 s [opt-env-conf-test] ]
  7453. 1823.34 s [opt-env-conf-test] ++ availableCommandsLines cs
  7454. 1823.34 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7455. 1823.34 s [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."],
  7456. 1823.34 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7457. 1823.34 s [opt-env-conf-test] ]
  7458. 1823.34 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7459. 1823.34 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7460. 1823.34 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7461. 1823.34 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7462. 1823.34 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7463. 1823.34 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7464. 1823.35 s [opt-env-conf-test] ]
  7465. 1823.35 s [opt-env-conf-test]
  7466. 1823.35 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7467. 1823.35 s [opt-env-conf-test] @@ -80,63 +80,58 @@
  7468. 1823.35 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7469. 1823.35 s [opt-env-conf-test] renderError ParseError {..} =
  7470. 1823.35 s [opt-env-conf-test] concat
  7471. 1823.35 s [opt-env-conf-test] [ case parseErrorMessage of
  7472. 1823.35 s [opt-env-conf-test] ParseErrorEmpty ->
  7473. 1823.35 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7474. 1823.35 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7475. 1823.35 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7476. 1823.35 s [opt-env-conf-test] ParseErrorNoReaders ->
  7477. 1823.35 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7478. 1823.35 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7479. 1823.35 s [opt-env-conf-test] ]
  7480. 1823.35 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7481. 1823.35 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7482. 1823.35 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7483. 1823.35 s [opt-env-conf-test] [ "Missing argument: "
  7484. 1823.35 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7485. 1823.35 s [opt-env-conf-test] ]
  7486. 1823.35 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7487. 1823.35 s [opt-env-conf-test] ["Failed to read argument: "]
  7488. 1823.35 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7489. 1823.35 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7490. 1823.35 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7491. 1823.35 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7492. 1823.35 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  7493. 1823.35 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7494. 1823.35 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7495. 1823.35 s [opt-env-conf-test] ["Failed to read option: "]
  7496. 1823.35 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7497. 1823.35 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7498. 1823.35 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7499. 1823.35 s [opt-env-conf-test] ["Missing env var: "]
  7500. 1823.35 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7501. 1823.35 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7502. 1823.35 s [opt-env-conf-test] ["Failed to read env var: "]
  7503. 1823.35 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7504. 1823.35 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7505. 1823.35 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7506. 1823.35 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7507. 1823.35 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7508. 1823.35 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7509. 1824.18 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7510. 1824.18 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7511. 1824.18 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7512. 1824.18 s [opt-env-conf-test] ["Missing command, available commands:"]
  7513. 1824.18 s [opt-env-conf-test] : availableCommandsLines cs
  7514. 1824.18 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  7515. 1824.18 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7516. 1824.18 s [opt-env-conf-test] - [fore blue "available commands:"]
  7517. 1824.18 s [opt-env-conf-test] - ]
  7518. 1824.18 s [opt-env-conf-test] - ++ availableCommandsLines cs
  7519. 1824.18 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7520. 1824.18 s [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."],
  7521. 1824.18 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7522. 1824.18 s [opt-env-conf-test] ]
  7523. 1824.18 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7524. 1824.18 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7525. 1824.18 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7526. 1824.18 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7527. 1824.18 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7528. 1824.18 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7529. 1824.18 s [opt-env-conf-test] ]
  7530. 1824.18 s [opt-env-conf-test]
  7531. 1824.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:136:5-29
  7532. 1824.18 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  7533. 1824.18 s [opt-env-conf-test]
  7534. 1824.18 s [opt-env-conf-test] data EnvVarSetting = EnvVarSetting
  7535. 1824.18 s [opt-env-conf-test] { envVarSettingVar :: !String,
  7536. 1824.18 s [opt-env-conf-test] - envVarSettingAllowPrefix :: !Bool
  7537. 1824.18 s [opt-env-conf-test] + False :: !Bool
  7538. 1824.18 s [opt-env-conf-test] }
  7539. 1824.18 s [opt-env-conf-test] deriving (Show, Eq)
  7540. 1824.18 s [opt-env-conf-test]
  7541. 1824.18 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7542. 1824.18 s [opt-env-conf-test] @@ -80,63 +80,58 @@
  7543. 1824.18 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7544. 1824.18 s [opt-env-conf-test] renderError ParseError {..} =
  7545. 1824.18 s [opt-env-conf-test] concat
  7546. 1824.18 s [opt-env-conf-test] [ case parseErrorMessage of
  7547. 1824.18 s [opt-env-conf-test] ParseErrorEmpty ->
  7548. 1824.18 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7549. 1824.18 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7550. 1824.18 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7551. 1824.18 s [opt-env-conf-test] ParseErrorNoReaders ->
  7552. 1824.18 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7553. 1824.18 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7554. 1824.18 s [opt-env-conf-test] ]
  7555. 1824.18 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7556. 1824.18 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7557. 1824.18 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7558. 1824.18 s [opt-env-conf-test] [ "Missing argument: "
  7559. 1824.18 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7560. 1824.18 s [opt-env-conf-test] ]
  7561. 1824.18 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7562. 1824.18 s [opt-env-conf-test] ["Failed to read argument: "]
  7563. 1824.19 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7564. 1824.19 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7565. 1824.19 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7566. 1824.19 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7567. 1824.19 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  7568. 1824.19 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7569. 1824.19 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7570. 1824.19 s [opt-env-conf-test] ["Failed to read option: "]
  7571. 1824.19 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7572. 1824.19 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7573. 1824.19 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7574. 1824.19 s [opt-env-conf-test] ["Missing env var: "]
  7575. 1824.19 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7576. 1824.19 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7577. 1824.19 s [opt-env-conf-test] ["Failed to read env var: "]
  7578. 1824.19 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7579. 1824.19 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7580. 1824.19 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7581. 1824.19 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7582. 1824.19 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7583. 1824.19 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7584. 1824.66 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7585. 1824.66 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7586. 1824.66 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7587. 1824.66 s [opt-env-conf-test] ["Missing command, available commands:"]
  7588. 1824.66 s [opt-env-conf-test] : availableCommandsLines cs
  7589. 1824.66 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7590. 1824.66 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7591. 1824.66 s [opt-env-conf-test] [fore blue "available commands:"]
  7592. 1824.66 s [opt-env-conf-test] ]
  7593. 1824.66 s [opt-env-conf-test] ++ availableCommandsLines cs
  7594. 1824.66 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  7595. 1824.66 s [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."],
  7596. 1824.66 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  7597. 1824.66 s [opt-env-conf-test] - ]
  7598. 1824.66 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  7599. 1824.66 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7600. 1824.66 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7601. 1824.66 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7602. 1824.66 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7603. 1824.66 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7604. 1824.66 s [opt-env-conf-test] ]
  7605. 1824.66 s [opt-env-conf-test]
  7606. 1824.66 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7607. 1824.66 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  7608. 1824.66 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7609. 1824.66 s [opt-env-conf-test] renderError ParseError {..} =
  7610. 1824.66 s [opt-env-conf-test] concat
  7611. 1824.66 s [opt-env-conf-test] [ case parseErrorMessage of
  7612. 1824.66 s [opt-env-conf-test] ParseErrorEmpty ->
  7613. 1824.66 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7614. 1824.66 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7615. 1824.66 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7616. 1824.66 s [opt-env-conf-test] ParseErrorNoReaders ->
  7617. 1824.66 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7618. 1824.66 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7619. 1824.66 s [opt-env-conf-test] ]
  7620. 1824.66 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7621. 1824.66 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7622. 1824.66 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7623. 1824.66 s [opt-env-conf-test] [ "Missing argument: "
  7624. 1824.66 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7625. 1824.66 s [opt-env-conf-test] ]
  7626. 1824.66 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7627. 1824.66 s [opt-env-conf-test] ["Failed to read argument: "]
  7628. 1824.66 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7629. 1824.66 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7630. 1824.66 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7631. 1824.66 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7632. 1824.66 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  7633. 1824.66 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7634. 1824.66 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7635. 1824.66 s [opt-env-conf-test] ["Failed to read option: "]
  7636. 1824.66 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7637. 1824.66 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7638. 1824.66 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7639. 1824.66 s [opt-env-conf-test] ["Missing env var: "]
  7640. 1824.66 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7641. 1824.66 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7642. 1824.66 s [opt-env-conf-test] ["Failed to read env var: "]
  7643. 1824.66 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7644. 1824.66 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7645. 1824.66 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7646. 1824.66 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7647. 1824.66 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7648. 1824.66 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7649. 1824.88 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7650. 1824.88 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7651. 1824.89 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7652. 1824.89 s [opt-env-conf-test] ["Missing command, available commands:"]
  7653. 1824.89 s [opt-env-conf-test] : availableCommandsLines cs
  7654. 1824.89 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7655. 1824.89 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7656. 1824.89 s [opt-env-conf-test] [fore blue "available commands:"]
  7657. 1824.89 s [opt-env-conf-test] ]
  7658. 1824.89 s [opt-env-conf-test] ++ availableCommandsLines cs
  7659. 1824.89 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7660. 1824.89 s [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."],
  7661. 1824.89 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7662. 1824.89 s [opt-env-conf-test] ]
  7663. 1824.89 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7664. 1824.89 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  7665. 1824.89 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7666. 1824.89 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  7667. 1824.89 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7668. 1824.89 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7669. 1824.89 s [opt-env-conf-test] ]
  7670. 1824.89 s [opt-env-conf-test]
  7671. 1824.89 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:89:5-23
  7672. 1824.89 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  7673. 1824.89 s [opt-env-conf-test] -- | Which readers should be tried to parse a value from a string
  7674. 1824.89 s [opt-env-conf-test] settingReaders :: ![Reader a],
  7675. 1824.89 s [opt-env-conf-test] -- | Whether the readers should be used to parsed arguments
  7676. 1824.89 s [opt-env-conf-test] - settingTryArgument :: !Bool,
  7677. 1824.89 s [opt-env-conf-test] + not (settingTryArgument) :: !Bool,
  7678. 1824.89 s [opt-env-conf-test] -- | What value to parse when the switch exists.
  7679. 1824.89 s [opt-env-conf-test] --
  7680. 1824.89 s [opt-env-conf-test] -- Nothing means this is not a switch.
  7681. 1824.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  7682. 1824.89 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  7683. 1824.89 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7684. 1824.89 s [opt-env-conf-test] renderError ParseError {..} =
  7685. 1824.89 s [opt-env-conf-test] concat
  7686. 1824.89 s [opt-env-conf-test] [ case parseErrorMessage of
  7687. 1824.89 s [opt-env-conf-test] ParseErrorEmpty ->
  7688. 1824.89 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7689. 1824.89 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7690. 1824.89 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7691. 1824.89 s [opt-env-conf-test] ParseErrorNoReaders ->
  7692. 1824.89 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  7693. 1824.89 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7694. 1824.89 s [opt-env-conf-test] ]
  7695. 1824.89 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7696. 1824.89 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7697. 1824.89 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7698. 1824.89 s [opt-env-conf-test] [ "Missing argument: "
  7699. 1824.89 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7700. 1824.89 s [opt-env-conf-test] ]
  7701. 1824.89 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  7702. 1824.89 s [opt-env-conf-test] ["Failed to read argument: "]
  7703. 1824.89 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7704. 1824.89 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7705. 1824.89 s [opt-env-conf-test] ParseErrorMissingOption o ->
  7706. 1824.89 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7707. 1824.89 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  7708. 1824.89 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7709. 1824.89 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  7710. 1824.89 s [opt-env-conf-test] ["Failed to read option: "]
  7711. 1824.89 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  7712. 1824.89 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7713. 1824.89 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  7714. 1824.89 s [opt-env-conf-test] ["Missing env var: "]
  7715. 1824.89 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7716. 1824.89 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  7717. 1824.89 s [opt-env-conf-test] ["Failed to read env var: "]
  7718. 1824.89 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  7719. 1824.89 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7720. 1824.89 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  7721. 1824.89 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  7722. 1824.90 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  7723. 1824.90 s [opt-env-conf-test] ["Failed to parse configuration: "]
  7724. 1826.88 s [opt-env-conf-test] : maybe [] renderConfDoc md
  7725. 1826.88 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  7726. 1826.88 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  7727. 1826.88 s [opt-env-conf-test] ["Missing command, available commands:"]
  7728. 1826.88 s [opt-env-conf-test] : availableCommandsLines cs
  7729. 1826.89 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  7730. 1826.89 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7731. 1826.89 s [opt-env-conf-test] [fore blue "available commands:"]
  7732. 1826.89 s [opt-env-conf-test] ]
  7733. 1826.89 s [opt-env-conf-test] ++ availableCommandsLines cs
  7734. 1826.89 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  7735. 1826.89 s [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."],
  7736. 1826.89 s [opt-env-conf-test] ["The following settings have been parsed:"]
  7737. 1826.89 s [opt-env-conf-test] ]
  7738. 1826.89 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  7739. 1826.89 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  7740. 1826.89 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7741. 1826.89 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  7742. 1826.89 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7743. 1826.89 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7744. 1826.89 s [opt-env-conf-test] ]
  7745. 1826.89 s [opt-env-conf-test]
  7746. 1826.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:96:5-21
  7747. 1826.89 s [opt-env-conf-test] @@ -93,7 +93,7 @@
  7748. 1826.89 s [opt-env-conf-test] settingSwitchValue :: !(Maybe a),
  7749. 1826.89 s [opt-env-conf-test] -- | Whether the dasheds should be tried together with the readers as
  7750. 1826.89 s [opt-env-conf-test] -- options.
  7751. 1826.89 s [opt-env-conf-test] - settingTryOption :: !Bool,
  7752. 1826.89 s [opt-env-conf-test] + False :: !Bool,
  7753. 1826.89 s [opt-env-conf-test] -- | Which env vars can be read.
  7754. 1826.89 s [opt-env-conf-test] settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
  7755. 1826.89 s [opt-env-conf-test] -- | Which and how to parse config values
  7756. 1826.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
  7757. 1826.89 s [opt-env-conf-test] @@ -142,7 +142,4 @@
  7758. 1826.89 s [opt-env-conf-test]
  7759. 1826.89 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  7760. 1826.89 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  7761. 1826.89 s [opt-env-conf-test] - [ commandChunk commandDocArgument,
  7762. 1826.89 s [opt-env-conf-test] - ": ",
  7763. 1826.89 s [opt-env-conf-test] - helpChunk commandDocHelp
  7764. 1826.89 s [opt-env-conf-test] ]
  7765. 1826.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:89:5-23
  7766. 1826.89 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  7767. 1826.89 s [opt-env-conf-test] -- | Which readers should be tried to parse a value from a string
  7768. 1826.89 s [opt-env-conf-test] settingReaders :: ![Reader a],
  7769. 1826.89 s [opt-env-conf-test] -- | Whether the readers should be used to parsed arguments
  7770. 1826.89 s [opt-env-conf-test] - settingTryArgument :: !Bool,
  7771. 1826.89 s [opt-env-conf-test] + True :: !Bool,
  7772. 1826.89 s [opt-env-conf-test] -- | What value to parse when the switch exists.
  7773. 1826.89 s [opt-env-conf-test] --
  7774. 1826.89 s [opt-env-conf-test] -- Nothing means this is not a switch.
  7775. 1826.90 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  7776. 1826.90 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  7777. 1826.90 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  7778. 1826.90 s [opt-env-conf-test] salt
  7779. 1826.90 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  7780. 1826.90 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  7781. 1826.90 s [opt-env-conf-test] + `hashWithSalt` False
  7782. 1826.90 s [opt-env-conf-test]
  7783. 1826.90 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  7784. 1826.90 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  7785. 1826.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
  7786. 1826.90 s [opt-env-conf-test] @@ -90,7 +90,6 @@
  7787. 1826.90 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7788. 1826.90 s [opt-env-conf-test] ]
  7789. 1826.90 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7790. 1826.90 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  7791. 1826.90 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7792. 1826.90 s [opt-env-conf-test] [ "Missing argument: "
  7793. 1826.90 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  7794. 1826.90 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:159:5-32
  7795. 1826.90 s [opt-env-conf-test] @@ -156,7 +156,7 @@
  7796. 1826.90 s [opt-env-conf-test] = forall void.
  7797. 1826.90 s [opt-env-conf-test] ConfigValSetting
  7798. 1826.90 s [opt-env-conf-test] { configValSettingPath :: !(NonEmpty String),
  7799. 1826.90 s [opt-env-conf-test] - configValSettingAllowPrefix :: !Bool,
  7800. 1826.90 s [opt-env-conf-test] + not (configValSettingAllowPrefix) :: !Bool,
  7801. 1826.90 s [opt-env-conf-test] configValSettingCodec :: !(ValueCodec void (Maybe a))
  7802. 1826.90 s [opt-env-conf-test] }
  7803. 1826.90 s [opt-env-conf-test]
  7804. 1826.90 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:159:5-32
  7805. 1826.90 s [opt-env-conf-test] @@ -156,7 +156,7 @@
  7806. 1826.90 s [opt-env-conf-test] = forall void.
  7807. 1826.90 s [opt-env-conf-test] ConfigValSetting
  7808. 1826.90 s [opt-env-conf-test] { configValSettingPath :: !(NonEmpty String),
  7809. 1826.90 s [opt-env-conf-test] - configValSettingAllowPrefix :: !Bool,
  7810. 1826.90 s [opt-env-conf-test] + False :: !Bool,
  7811. 1826.90 s [opt-env-conf-test] configValSettingCodec :: !(ValueCodec void (Maybe a))
  7812. 1826.90 s [opt-env-conf-test] }
  7813. 1826.90 s [opt-env-conf-test]
  7814. 1826.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
  7815. 1826.90 s [opt-env-conf-test] @@ -86,9 +86,7 @@
  7816. 1826.90 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7817. 1826.90 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7818. 1826.90 s [opt-env-conf-test] ParseErrorNoReaders ->
  7819. 1826.90 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  7820. 1826.90 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  7821. 1826.90 s [opt-env-conf-test] ]
  7822. 1826.90 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7823. 1826.90 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7824. 1826.90 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7825. 1826.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
  7826. 1826.90 s [opt-env-conf-test] @@ -142,7 +142,6 @@
  7827. 1826.90 s [opt-env-conf-test]
  7828. 1826.90 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  7829. 1826.90 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  7830. 1826.90 s [opt-env-conf-test] - [ commandChunk commandDocArgument,
  7831. 1826.90 s [opt-env-conf-test] ": ",
  7832. 1826.90 s [opt-env-conf-test] helpChunk commandDocHelp
  7833. 1826.90 s [opt-env-conf-test] ]
  7834. 1826.90 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:144:22-46
  7835. 1826.90 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  7836. 1826.90 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  7837. 1826.90 s [opt-env-conf-test] salt
  7838. 1826.90 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  7839. 1826.90 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  7840. 1826.90 s [opt-env-conf-test] + `hashWithSalt` not (envVarSettingAllowPrefix)
  7841. 1826.90 s [opt-env-conf-test]
  7842. 1826.90 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  7843. 1826.90 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  7844. 1826.90 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:136:5-29
  7845. 1826.90 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  7846. 1826.90 s [opt-env-conf-test]
  7847. 1826.90 s [opt-env-conf-test] data EnvVarSetting = EnvVarSetting
  7848. 1826.90 s [opt-env-conf-test] { envVarSettingVar :: !String,
  7849. 1826.90 s [opt-env-conf-test] - envVarSettingAllowPrefix :: !Bool
  7850. 1826.90 s [opt-env-conf-test] + not (envVarSettingAllowPrefix) :: !Bool
  7851. 1826.91 s [opt-env-conf-test] }
  7852. 1826.91 s [opt-env-conf-test] deriving (Show, Eq)
  7853. 1826.91 s [opt-env-conf-test]
  7854. 1826.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
  7855. 1826.91 s [opt-env-conf-test] @@ -86,9 +86,8 @@
  7856. 1826.91 s [opt-env-conf-test] ParseErrorEmptySetting ->
  7857. 1826.91 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  7858. 1826.91 s [opt-env-conf-test] ParseErrorNoReaders ->
  7859. 1826.91 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  7860. 1826.91 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  7861. 1826.91 s [opt-env-conf-test] ]
  7862. 1826.91 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  7863. 1826.91 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  7864. 1826.91 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  7865. 1826.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  7866. 1826.91 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  7867. 1826.91 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  7868. 1826.91 s [opt-env-conf-test] salt
  7869. 1826.91 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  7870. 1826.91 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  7871. 1826.91 s [opt-env-conf-test] + `hashWithSalt` True
  7872. 1826.91 s [opt-env-conf-test]
  7873. 1826.91 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  7874. 1826.91 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  7875. 1826.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
  7876. 1826.91 s [opt-env-conf-test] @@ -142,7 +142,6 @@
  7877. 1826.91 s [opt-env-conf-test]
  7878. 1826.91 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  7879. 1826.91 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  7880. 1826.91 s [opt-env-conf-test] [ commandChunk commandDocArgument,
  7881. 1826.91 s [opt-env-conf-test] ": ",
  7882. 1826.91 s [opt-env-conf-test] - helpChunk commandDocHelp
  7883. 1826.91 s [opt-env-conf-test] ]
  7884. 1826.91 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:127:24-49
  7885. 1826.91 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  7886. 1826.91 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  7887. 1826.91 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  7888. 1826.91 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  7889. 1826.91 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  7890. 1826.91 s [opt-env-conf-test] + `hashWithSalt` not (isJust settingSwitchValue)
  7891. 1827.42 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  7892. 1827.42 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  7893. 1827.42 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  7894. 1827.42 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:106:5-18
  7895. 1827.42 s [opt-env-conf-test] @@ -103,7 +103,7 @@
  7896. 1827.42 s [opt-env-conf-test] -- | Example values
  7897. 1827.42 s [opt-env-conf-test] settingExamples :: ![String],
  7898. 1827.42 s [opt-env-conf-test] -- | Whether to hide docs
  7899. 1827.42 s [opt-env-conf-test] - settingHidden :: !Bool,
  7900. 1827.42 s [opt-env-conf-test] + not (settingHidden) :: !Bool,
  7901. 1827.42 s [opt-env-conf-test] -- | Which metavar should be show in documentation
  7902. 1827.42 s [opt-env-conf-test] settingMetavar :: !(Maybe Metavar),
  7903. 1827.42 s [opt-env-conf-test] settingHelp :: !(Maybe String),
  7904. 1827.42 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  7905. 1827.43 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  7906. 1827.43 s [opt-env-conf-test] SettingHash
  7907. 1827.43 s [opt-env-conf-test] ( 42
  7908. 1827.43 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  7909. 1827.43 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  7910. 1827.43 s [opt-env-conf-test] + `hashWithSalt` False
  7911. 1827.43 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  7912. 1827.43 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  7913. 1827.43 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  7914. 1827.43 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
  7915. 1827.43 s [opt-env-conf-test] @@ -120,7 +120,7 @@
  7916. 1827.43 s [opt-env-conf-test] hashSetting :: Setting a -> SettingHash
  7917. 1827.43 s [opt-env-conf-test] hashSetting Setting {..} =
  7918. 1827.43 s [opt-env-conf-test] SettingHash
  7919. 1827.43 s [opt-env-conf-test] - ( 42
  7920. 1827.43 s [opt-env-conf-test] + ( 1
  7921. 1827.43 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  7922. 1827.43 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  7923. 1827.43 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  7924. 1827.43 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  7925. 1827.43 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  7926. 1827.43 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  7927. 1827.43 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  7928. 1827.43 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  7929. 1827.43 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  7930. 1827.43 s [opt-env-conf-test] + `hashWithSalt` False
  7931. 1827.43 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  7932. 1827.43 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  7933. 1827.43 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  7934. 1827.43 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
  7935. 1827.43 s [opt-env-conf-test] @@ -80,65 +80,7 @@
  7936. 1827.43 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  7937. 1827.43 s [opt-env-conf-test] renderError ParseError {..} =
  7938. 1827.43 s [opt-env-conf-test] concat
  7939. 1827.43 s [opt-env-conf-test] - [ case parseErrorMessage of
  7940. 1827.43 s [opt-env-conf-test] - ParseErrorEmpty ->
  7941. 1827.43 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  7942. 1827.43 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  7943. 1827.43 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  7944. 1827.43 s [opt-env-conf-test] - ParseErrorNoReaders ->
  7945. 1827.43 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  7946. 1827.43 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  7947. 1827.43 s [opt-env-conf-test] - ]
  7948. 1827.43 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  7949. 1827.43 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  7950. 1827.43 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  7951. 1827.43 s [opt-env-conf-test] - [ "Missing argument: "
  7952. 1827.43 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  7953. 1827.43 s [opt-env-conf-test] - ]
  7954. 1827.43 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  7955. 1827.43 s [opt-env-conf-test] - ["Failed to read argument: "]
  7956. 1827.43 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  7957. 1827.43 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7958. 1827.43 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  7959. 1827.43 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7960. 1827.43 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  7961. 1827.43 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  7962. 1827.43 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  7963. 1827.43 s [opt-env-conf-test] - ["Failed to read option: "]
  7964. 1827.43 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  7965. 1827.43 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7966. 1827.43 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  7967. 1827.43 s [opt-env-conf-test] - ["Missing env var: "]
  7968. 1827.43 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  7969. 1827.43 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  7970. 1827.43 s [opt-env-conf-test] - ["Failed to read env var: "]
  7971. 1827.43 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  7972. 1828.77 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  7973. 1828.85 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  7974. 1828.85 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  7975. 1828.85 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  7976. 1828.85 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  7977. 1828.85 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  7978. 1828.85 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  7979. 1828.85 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  7980. 1828.85 s [opt-env-conf-test] - ["Missing command, available commands:"]
  7981. 1828.85 s [opt-env-conf-test] - : availableCommandsLines cs
  7982. 1828.85 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  7983. 1828.85 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  7984. 1828.85 s [opt-env-conf-test] - [fore blue "available commands:"]
  7985. 1828.85 s [opt-env-conf-test] - ]
  7986. 1828.85 s [opt-env-conf-test] - ++ availableCommandsLines cs
  7987. 1828.85 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  7988. 1828.85 s [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."],
  7989. 1828.85 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  7990. 1828.85 s [opt-env-conf-test] - ]
  7991. 1828.85 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  7992. 1828.85 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  7993. 1828.85 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  7994. 1828.85 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  7995. 1828.86 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  7996. 1828.86 s [opt-env-conf-test] - maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  7997. 1828.86 s [opt-env-conf-test] ]
  7998. 1828.86 s [opt-env-conf-test]
  7999. 1828.86 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  8000. 1828.86 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  8001. 1828.86 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
  8002. 1828.86 s [opt-env-conf-test] @@ -52,7 +52,7 @@
  8003. 1828.86 s [opt-env-conf-test] ParseErrorEmpty -> True
  8004. 1828.86 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  8005. 1828.86 s [opt-env-conf-test] ParseErrorNoReaders -> False
  8006. 1828.86 s [opt-env-conf-test] - ParseErrorCheckFailed forgivable _ -> forgivable
  8007. 1828.86 s [opt-env-conf-test] + ParseErrorCheckFailed forgivable _ -> True
  8008. 1828.86 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  8009. 1828.86 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  8010. 1828.86 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  8011. 1828.86 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:54:26-31
  8012. 1828.86 s [opt-env-conf-test] @@ -51,7 +51,7 @@
  8013. 1828.86 s [opt-env-conf-test] errorMessageIsForgivable = \case
  8014. 1828.86 s [opt-env-conf-test] ParseErrorEmpty -> True
  8015. 1828.86 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  8016. 1828.86 s [opt-env-conf-test] - ParseErrorNoReaders -> False
  8017. 1828.86 s [opt-env-conf-test] + ParseErrorNoReaders -> True
  8018. 1828.86 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  8019. 1828.86 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  8020. 1828.86 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  8021. 1828.86 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:53:29-34
  8022. 1828.86 s [opt-env-conf-test] @@ -50,7 +50,7 @@
  8023. 1828.86 s [opt-env-conf-test] errorMessageIsForgivable :: ParseErrorMessage -> Bool
  8024. 1828.86 s [opt-env-conf-test] errorMessageIsForgivable = \case
  8025. 1828.86 s [opt-env-conf-test] ParseErrorEmpty -> True
  8026. 1828.86 s [opt-env-conf-test] - ParseErrorEmptySetting -> False
  8027. 1828.86 s [opt-env-conf-test] + ParseErrorEmptySetting -> True
  8028. 1828.86 s [opt-env-conf-test] ParseErrorNoReaders -> False
  8029. 1828.86 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  8030. 1828.86 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  8031. 1828.86 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:57:33-38
  8032. 1828.86 s [opt-env-conf-test] @@ -54,7 +54,7 @@
  8033. 1828.86 s [opt-env-conf-test] ParseErrorNoReaders -> False
  8034. 1828.86 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  8035. 1828.86 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  8036. 1828.86 s [opt-env-conf-test] - ParseErrorArgumentRead _ _ -> False
  8037. 1828.86 s [opt-env-conf-test] + ParseErrorArgumentRead _ _ -> True
  8038. 1828.86 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  8039. 1828.86 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  8040. 1828.86 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  8041. 1828.86 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:56:34-38
  8042. 1828.86 s [opt-env-conf-test] @@ -53,7 +53,7 @@
  8043. 1828.86 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  8044. 1828.86 s [opt-env-conf-test] ParseErrorNoReaders -> False
  8045. 1828.86 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  8046. 1828.86 s [opt-env-conf-test] - ParseErrorMissingArgument _ -> True
  8047. 1828.87 s [opt-env-conf-test] + ParseErrorMissingArgument _ -> False
  8048. 1828.87 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  8049. 1828.87 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  8050. 1828.87 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  8051. 1828.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:58:32-36
  8052. 1828.87 s [opt-env-conf-test] @@ -55,7 +55,7 @@
  8053. 1828.87 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  8054. 1828.87 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  8055. 1828.87 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  8056. 1828.87 s [opt-env-conf-test] - ParseErrorMissingSwitch _ -> True
  8057. 1828.87 s [opt-env-conf-test] + ParseErrorMissingSwitch _ -> False
  8058. 1828.87 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  8059. 1828.87 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  8060. 1828.87 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  8061. 1828.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:59:31-36
  8062. 1828.87 s [opt-env-conf-test] @@ -56,7 +56,7 @@
  8063. 1828.87 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  8064. 1828.87 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  8065. 1828.87 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  8066. 1828.87 s [opt-env-conf-test] - ParseErrorOptionRead _ _ -> False
  8067. 1828.87 s [opt-env-conf-test] + ParseErrorOptionRead _ _ -> True
  8068. 1828.87 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  8069. 1828.87 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  8070. 1828.87 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  8071. 1828.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:52:22-26
  8072. 1828.87 s [opt-env-conf-test] @@ -49,7 +49,7 @@
  8073. 1828.87 s [opt-env-conf-test]
  8074. 1828.87 s [opt-env-conf-test] errorMessageIsForgivable :: ParseErrorMessage -> Bool
  8075. 1828.87 s [opt-env-conf-test] errorMessageIsForgivable = \case
  8076. 1828.87 s [opt-env-conf-test] - ParseErrorEmpty -> True
  8077. 1828.87 s [opt-env-conf-test] + ParseErrorEmpty -> False
  8078. 1828.87 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  8079. 1828.87 s [opt-env-conf-test] ParseErrorNoReaders -> False
  8080. 1828.87 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  8081. 1828.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:62:28-33
  8082. 1828.87 s [opt-env-conf-test] @@ -59,7 +59,7 @@
  8083. 1828.87 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  8084. 1828.87 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  8085. 1828.87 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  8086. 1828.87 s [opt-env-conf-test] - ParseErrorEnvRead _ _ -> False
  8087. 1828.87 s [opt-env-conf-test] + ParseErrorEnvRead _ _ -> True
  8088. 1828.87 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  8089. 1828.87 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  8090. 1828.87 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  8091. 1828.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:63:33-37
  8092. 1828.87 s [opt-env-conf-test] @@ -60,7 +60,7 @@
  8093. 1828.87 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  8094. 1828.87 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  8095. 1828.87 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  8096. 1828.87 s [opt-env-conf-test] - ParseErrorMissingConfVal _ -> True
  8097. 1828.87 s [opt-env-conf-test] + ParseErrorMissingConfVal _ -> False
  8098. 1828.87 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  8099. 1828.87 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  8100. 1828.87 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  8101. 1828.87 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
  8102. 1828.87 s [opt-env-conf-test] @@ -80,65 +80,8 @@
  8103. 1828.87 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  8104. 1828.87 s [opt-env-conf-test] renderError ParseError {..} =
  8105. 1828.87 s [opt-env-conf-test] concat
  8106. 1828.87 s [opt-env-conf-test] - [ case parseErrorMessage of
  8107. 1828.87 s [opt-env-conf-test] - ParseErrorEmpty ->
  8108. 1828.87 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  8109. 1828.87 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  8110. 1828.87 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  8111. 1828.87 s [opt-env-conf-test] - ParseErrorNoReaders ->
  8112. 1828.87 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  8113. 1828.87 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  8114. 1828.87 s [opt-env-conf-test] - ]
  8115. 1828.87 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  8116. 1828.88 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  8117. 1828.88 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  8118. 1828.88 s [opt-env-conf-test] - [ "Missing argument: "
  8119. 1828.88 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  8120. 1828.88 s [opt-env-conf-test] - ]
  8121. 1828.88 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  8122. 1828.88 s [opt-env-conf-test] - ["Failed to read argument: "]
  8123. 1828.88 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  8124. 1828.88 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  8125. 1828.88 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  8126. 1828.88 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  8127. 1828.88 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  8128. 1828.88 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  8129. 1828.88 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  8130. 1828.88 s [opt-env-conf-test] - ["Failed to read option: "]
  8131. 1828.88 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  8132. 1828.88 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  8133. 1828.88 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  8134. 1828.88 s [opt-env-conf-test] - ["Missing env var: "]
  8135. 1828.88 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  8136. 1828.88 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  8137. 1828.88 s [opt-env-conf-test] - ["Failed to read env var: "]
  8138. 1828.88 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  8139. 1834.15 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  8140. 1834.17 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  8141. 1834.17 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  8142. 1834.17 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  8143. 1834.17 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  8144. 1834.17 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  8145. 1834.17 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  8146. 1834.17 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  8147. 1834.17 s [opt-env-conf-test] - ["Missing command, available commands:"]
  8148. 1834.17 s [opt-env-conf-test] - : availableCommandsLines cs
  8149. 1834.17 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  8150. 1834.17 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  8151. 1834.17 s [opt-env-conf-test] - [fore blue "available commands:"]
  8152. 1834.17 s [opt-env-conf-test] - ]
  8153. 1834.17 s [opt-env-conf-test] - ++ availableCommandsLines cs
  8154. 1834.17 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  8155. 1834.17 s [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."],
  8156. 1834.17 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  8157. 1834.17 s [opt-env-conf-test] - ]
  8158. 1834.17 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  8159. 1834.17 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  8160. 1834.17 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  8161. 1834.17 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  8162. 1834.17 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  8163. 1834.18 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  8164. 1834.18 s [opt-env-conf-test] ]
  8165. 1834.18 s [opt-env-conf-test]
  8166. 1834.18 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  8167. 1834.18 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  8168. 1834.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
  8169. 1834.18 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  8170. 1834.18 s [opt-env-conf-test] NonEmpty Char ->
  8171. 1834.18 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  8172. 1834.18 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  8173. 1834.18 s [opt-env-conf-test] - if isLong
  8174. 1834.18 s [opt-env-conf-test] + if True
  8175. 1834.18 s [opt-env-conf-test] then
  8176. 1834.18 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  8177. 1834.18 s [opt-env-conf-test] then Just Nothing
  8178. 1834.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
  8179. 1834.18 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  8180. 1834.18 s [opt-env-conf-test] NonEmpty Char ->
  8181. 1834.18 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  8182. 1834.18 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  8183. 1834.18 s [opt-env-conf-test] - if isLong
  8184. 1834.18 s [opt-env-conf-test] + if False
  8185. 1834.18 s [opt-env-conf-test] then
  8186. 1834.18 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  8187. 1834.18 s [opt-env-conf-test] then Just Nothing
  8188. 1834.18 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:352:6-12
  8189. 1834.18 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  8190. 1834.18 s [opt-env-conf-test] NonEmpty Char ->
  8191. 1834.18 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  8192. 1834.18 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  8193. 1834.18 s [opt-env-conf-test] - if isLong
  8194. 1834.18 s [opt-env-conf-test] + if not (isLong)
  8195. 1834.18 s [opt-env-conf-test] then
  8196. 1834.18 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  8197. 1834.18 s [opt-env-conf-test] then Just Nothing
  8198. 1834.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
  8199. 1834.18 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  8200. 1834.18 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  8201. 1834.18 s [opt-env-conf-test] if isLong
  8202. 1834.18 s [opt-env-conf-test] then
  8203. 1834.18 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  8204. 1834.18 s [opt-env-conf-test] + if True
  8205. 1834.18 s [opt-env-conf-test] then Just Nothing
  8206. 1834.18 s [opt-env-conf-test] else Nothing
  8207. 1834.18 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  8208. 1834.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
  8209. 1834.18 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  8210. 1834.18 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  8211. 1834.18 s [opt-env-conf-test] if isLong
  8212. 1834.18 s [opt-env-conf-test] then
  8213. 1834.18 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  8214. 1834.18 s [opt-env-conf-test] + if False
  8215. 1834.18 s [opt-env-conf-test] then Just Nothing
  8216. 1834.18 s [opt-env-conf-test] else Nothing
  8217. 1834.18 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  8218. 1834.18 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:354:10-38
  8219. 1834.18 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  8220. 1834.18 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  8221. 1834.18 s [opt-env-conf-test] if isLong
  8222. 1834.18 s [opt-env-conf-test] then
  8223. 1834.18 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  8224. 1834.19 s [opt-env-conf-test] + if not (DashedLong cs `elem` dasheds)
  8225. 1834.19 s [opt-env-conf-test] then Just Nothing
  8226. 1834.19 s [opt-env-conf-test] else Nothing
  8227. 1834.19 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  8228. 1834.19 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:355:14-26
  8229. 1834.19 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  8230. 1834.19 s [opt-env-conf-test] if isLong
  8231. 1834.19 s [opt-env-conf-test] then
  8232. 1834.19 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  8233. 1834.19 s [opt-env-conf-test] - then Just Nothing
  8234. 1834.19 s [opt-env-conf-test] + then Nothing
  8235. 1834.19 s [opt-env-conf-test] else Nothing
  8236. 1834.19 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  8237. 1834.19 s [opt-env-conf-test]
  8238. 1834.19 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
  8239. 1834.19 s [opt-env-conf-test] @@ -321,9 +321,8 @@
  8240. 1834.19 s [opt-env-conf-test] consumeSwitch dasheds as = do
  8241. 1834.19 s [opt-env-conf-test] case go (argsBefore as) of
  8242. 1834.19 s [opt-env-conf-test] Just newBefores -> Just $ as {argsBefore = newBefores}
  8243. 1834.19 s [opt-env-conf-test] Nothing -> case go (argsAfter as) of
  8244. 1834.19 s [opt-env-conf-test] - Just newAfters -> Just $ as {argsAfter = newAfters}
  8245. 1834.19 s [opt-env-conf-test] Nothing -> Nothing
  8246. 1834.19 s [opt-env-conf-test] where
  8247. 1834.19 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe [Tomb Arg]
  8248. 1834.19 s [opt-env-conf-test] go = \case
  8249. 1834.19 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
  8250. 1834.19 s [opt-env-conf-test] @@ -321,9 +321,8 @@
  8251. 1834.19 s [opt-env-conf-test] consumeSwitch dasheds as = do
  8252. 1834.19 s [opt-env-conf-test] case go (argsBefore as) of
  8253. 1834.19 s [opt-env-conf-test] Just newBefores -> Just $ as {argsBefore = newBefores}
  8254. 1834.19 s [opt-env-conf-test] Nothing -> case go (argsAfter as) of
  8255. 1834.19 s [opt-env-conf-test] Just newAfters -> Just $ as {argsAfter = newAfters}
  8256. 1834.19 s [opt-env-conf-test] - Nothing -> Nothing
  8257. 1834.19 s [opt-env-conf-test] where
  8258. 1834.19 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe [Tomb Arg]
  8259. 1834.19 s [opt-env-conf-test] go = \case
  8260. 1834.19 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
  8261. 1834.19 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  8262. 1834.19 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  8263. 1834.19 s [opt-env-conf-test] (Live o : rest) -> case o of
  8264. 1834.19 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  8265. 1834.19 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  8266. 1834.19 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds True cs of
  8267. 1834.19 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8268. 1834.19 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8269. 1834.19 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8270. 1834.19 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:334:65-71
  8271. 1834.19 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  8272. 1834.19 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  8273. 1834.19 s [opt-env-conf-test] (Live o : rest) -> case o of
  8274. 1834.19 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  8275. 1834.19 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  8276. 1834.19 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds not (isLong) cs of
  8277. 1834.19 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8278. 1834.19 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8279. 1834.19 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8280. 1834.19 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
  8281. 1834.19 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  8282. 1834.19 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  8283. 1834.19 s [opt-env-conf-test] (Live o : rest) -> case o of
  8284. 1834.19 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  8285. 1834.19 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  8286. 1834.19 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds False cs of
  8287. 1834.19 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8288. 1834.19 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8289. 1834.19 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8290. 1834.19 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
  8291. 1834.19 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  8292. 1834.19 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8293. 1834.19 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8294. 1834.19 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8295. 1834.19 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  8296. 1834.19 s [opt-env-conf-test] + let rest' = if True then Dead : rest else rest
  8297. 1834.19 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  8298. 1834.20 s [opt-env-conf-test] _ -> do
  8299. 1834.20 s [opt-env-conf-test] os <- go rest
  8300. 1834.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
  8301. 1834.20 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  8302. 1834.20 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8303. 1834.20 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8304. 1834.20 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8305. 1839.26 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  8306. 1839.28 s [opt-env-conf-test] + let rest' = if False then Dead : rest else rest
  8307. 1839.28 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  8308. 1839.28 s [opt-env-conf-test] _ -> do
  8309. 1839.28 s [opt-env-conf-test] os <- go rest
  8310. 1839.28 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:338:28-41
  8311. 1839.28 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  8312. 1839.28 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8313. 1839.28 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8314. 1839.28 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8315. 1839.28 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  8316. 1839.28 s [opt-env-conf-test] + let rest' = if not (needTombstone) then Dead : rest else rest
  8317. 1839.28 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  8318. 1839.28 s [opt-env-conf-test] _ -> do
  8319. 1839.28 s [opt-env-conf-test] os <- go rest
  8320. 1839.28 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
  8321. 1839.28 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  8322. 1839.28 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8323. 1839.28 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8324. 1839.28 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  8325. 1839.28 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  8326. 1839.28 s [opt-env-conf-test] + in Just $ Live (ArgDashed True cs') : rest'
  8327. 1839.28 s [opt-env-conf-test] _ -> do
  8328. 1839.28 s [opt-env-conf-test] os <- go rest
  8329. 1839.28 s [opt-env-conf-test] pure $ Live o : os
  8330. 1839.28 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
  8331. 1839.28 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  8332. 1839.28 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8333. 1839.28 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8334. 1839.28 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  8335. 1839.28 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  8336. 1839.28 s [opt-env-conf-test] + in Just $ Live (ArgDashed False cs') : rest'
  8337. 1839.28 s [opt-env-conf-test] _ -> do
  8338. 1839.29 s [opt-env-conf-test] os <- go rest
  8339. 1839.29 s [opt-env-conf-test] pure $ Live o : os
  8340. 1839.29 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:339:40-46
  8341. 1839.29 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  8342. 1839.29 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8343. 1839.29 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8344. 1839.29 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  8345. 1839.29 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  8346. 1839.29 s [opt-env-conf-test] + in Just $ Live (ArgDashed not (isLong) cs') : rest'
  8347. 1839.29 s [opt-env-conf-test] _ -> do
  8348. 1839.29 s [opt-env-conf-test] os <- go rest
  8349. 1839.29 s [opt-env-conf-test] pure $ Live o : os
  8350. 1839.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  8351. 1839.29 s [opt-env-conf-test] @@ -331,12 +331,11 @@
  8352. 1839.29 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  8353. 1839.29 s [opt-env-conf-test] (Live o : rest) -> case o of
  8354. 1839.29 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  8355. 1839.29 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  8356. 1839.29 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  8357. 1839.29 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8358. 1839.29 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8359. 1839.29 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  8360. 1839.29 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  8361. 1839.29 s [opt-env-conf-test] _ -> do
  8362. 1839.29 s [opt-env-conf-test] os <- go rest
  8363. 1839.29 s [opt-env-conf-test] pure $ Live o : os
  8364. 1839.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  8365. 1839.29 s [opt-env-conf-test] @@ -331,12 +331,11 @@
  8366. 1839.29 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  8367. 1839.29 s [opt-env-conf-test] (Live o : rest) -> case o of
  8368. 1839.29 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  8369. 1839.29 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  8370. 1839.29 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8371. 1839.29 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  8372. 1839.29 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8373. 1839.29 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  8374. 1839.29 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  8375. 1839.29 s [opt-env-conf-test] _ -> do
  8376. 1839.29 s [opt-env-conf-test] os <- go rest
  8377. 1839.29 s [opt-env-conf-test] pure $ Live o : os
  8378. 1839.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  8379. 1839.29 s [opt-env-conf-test] @@ -331,12 +331,9 @@
  8380. 1839.29 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  8381. 1839.29 s [opt-env-conf-test] (Live o : rest) -> case o of
  8382. 1839.29 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  8383. 1839.29 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  8384. 1839.29 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8385. 1839.29 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8386. 1839.29 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  8387. 1839.29 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  8388. 1839.29 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  8389. 1839.29 s [opt-env-conf-test] _ -> do
  8390. 1839.29 s [opt-env-conf-test] os <- go rest
  8391. 1839.29 s [opt-env-conf-test] pure $ Live o : os
  8392. 1839.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  8393. 1839.29 s [opt-env-conf-test] @@ -329,17 +329,16 @@
  8394. 1839.29 s [opt-env-conf-test] go = \case
  8395. 1839.29 s [opt-env-conf-test] [] -> Nothing
  8396. 1839.29 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  8397. 1839.29 s [opt-env-conf-test] (Live o : rest) -> case o of
  8398. 1839.29 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  8399. 1839.29 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  8400. 1839.29 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8401. 1839.29 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8402. 1839.29 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8403. 1839.29 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  8404. 1839.29 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  8405. 1839.30 s [opt-env-conf-test] _ -> do
  8406. 1839.30 s [opt-env-conf-test] os <- go rest
  8407. 1839.30 s [opt-env-conf-test] pure $ Live o : os
  8408. 1839.30 s [opt-env-conf-test]
  8409. 1839.30 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  8410. 1839.30 s [opt-env-conf-test] -- character because then we need a tombstone.
  8411. 1839.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  8412. 1839.30 s [opt-env-conf-test] @@ -329,17 +329,11 @@
  8413. 1839.30 s [opt-env-conf-test] go = \case
  8414. 1839.30 s [opt-env-conf-test] [] -> Nothing
  8415. 1839.30 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  8416. 1839.30 s [opt-env-conf-test] (Live o : rest) -> case o of
  8417. 1839.30 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  8418. 1839.30 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  8419. 1839.30 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  8420. 1839.30 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  8421. 1839.30 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  8422. 1839.30 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  8423. 1839.30 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  8424. 1839.30 s [opt-env-conf-test] _ -> do
  8425. 1839.30 s [opt-env-conf-test] os <- go rest
  8426. 1839.30 s [opt-env-conf-test] pure $ Live o : os
  8427. 1839.30 s [opt-env-conf-test]
  8428. 1839.30 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  8429. 1839.30 s [opt-env-conf-test] -- character because then we need a tombstone.
  8430. 1839.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  8431. 1839.30 s [opt-env-conf-test] @@ -329,17 +329,14 @@
  8432. 1839.30 s [opt-env-conf-test] go = \case
  8433. 1839.30 s [opt-env-conf-test] [] -> Nothing
  8434. 1839.30 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  8435. 1839.30 s [opt-env-conf-test] (Live o : rest) -> case o of
  8436. 1839.30 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  8437. 1839.30 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  8438. 1839.30 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  8439. 1839.30 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  8440. 1839.30 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  8441. 1839.30 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  8442. 1839.30 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  8443. 1839.30 s [opt-env-conf-test] - _ -> do
  8444. 1839.30 s [opt-env-conf-test] - os <- go rest
  8445. 1839.30 s [opt-env-conf-test] - pure $ Live o : os
  8446. 1839.30 s [opt-env-conf-test]
  8447. 1839.30 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  8448. 1839.30 s [opt-env-conf-test] -- character because then we need a tombstone.
  8449. 1839.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
  8450. 1839.30 s [opt-env-conf-test] @@ -306,9 +306,8 @@
  8451. 1839.30 s [opt-env-conf-test] where
  8452. 1839.30 s [opt-env-conf-test] go acc ne =
  8453. 1839.30 s [opt-env-conf-test] let (a, mRest) = NE.uncons ne
  8454. 1839.30 s [opt-env-conf-test] in case mRest of
  8455. 1839.30 s [opt-env-conf-test] - Nothing -> (NE.nonEmpty $ reverse acc, a)
  8456. 1839.30 s [opt-env-conf-test] Just rest -> go (a : acc) rest
  8457. 1839.30 s [opt-env-conf-test]
  8458. 1839.30 s [opt-env-conf-test] -- | Consume a switch.
  8459. 1839.30 s [opt-env-conf-test] --
  8460. 1839.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
  8461. 1839.30 s [opt-env-conf-test] @@ -306,9 +306,8 @@
  8462. 1839.30 s [opt-env-conf-test] where
  8463. 1839.30 s [opt-env-conf-test] go acc ne =
  8464. 1839.30 s [opt-env-conf-test] let (a, mRest) = NE.uncons ne
  8465. 1839.30 s [opt-env-conf-test] in case mRest of
  8466. 1839.30 s [opt-env-conf-test] Nothing -> (NE.nonEmpty $ reverse acc, a)
  8467. 1839.30 s [opt-env-conf-test] - Just rest -> go (a : acc) rest
  8468. 1839.30 s [opt-env-conf-test]
  8469. 1839.30 s [opt-env-conf-test] -- | Consume a switch.
  8470. 1839.30 s [opt-env-conf-test] --
  8471. 1839.30 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
  8472. 1839.30 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  8473. 1839.30 s [opt-env-conf-test] NonEmpty Char ->
  8474. 1839.30 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  8475. 1839.30 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  8476. 1839.30 s [opt-env-conf-test] - if isLong
  8477. 1839.30 s [opt-env-conf-test] + if True
  8478. 1839.30 s [opt-env-conf-test] then
  8479. 1839.30 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  8480. 1839.30 s [opt-env-conf-test] then Just Nothing
  8481. 1839.30 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
  8482. 1839.30 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  8483. 1839.30 s [opt-env-conf-test] NonEmpty Char ->
  8484. 1839.30 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  8485. 1839.30 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  8486. 1845.02 s [opt-env-conf-test] - if isLong
  8487. 1845.02 s [opt-env-conf-test] + if False
  8488. 1845.08 s [opt-env-conf-test] then
  8489. 1845.09 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  8490. 1845.09 s [opt-env-conf-test] then Just Nothing
  8491. 1845.09 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:293:6-12
  8492. 1845.09 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  8493. 1845.09 s [opt-env-conf-test] NonEmpty Char ->
  8494. 1845.09 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  8495. 1845.09 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  8496. 1845.09 s [opt-env-conf-test] - if isLong
  8497. 1845.09 s [opt-env-conf-test] + if not (isLong)
  8498. 1845.09 s [opt-env-conf-test] then
  8499. 1845.09 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  8500. 1845.09 s [opt-env-conf-test] then Just Nothing
  8501. 1845.09 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
  8502. 1845.09 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  8503. 1845.09 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  8504. 1845.09 s [opt-env-conf-test] if isLong
  8505. 1845.09 s [opt-env-conf-test] then
  8506. 1845.09 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  8507. 1845.09 s [opt-env-conf-test] + if True
  8508. 1845.09 s [opt-env-conf-test] then Just Nothing
  8509. 1845.09 s [opt-env-conf-test] else Nothing
  8510. 1845.09 s [opt-env-conf-test] else
  8511. 1845.09 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
  8512. 1845.09 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  8513. 1845.09 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  8514. 1845.09 s [opt-env-conf-test] if isLong
  8515. 1845.09 s [opt-env-conf-test] then
  8516. 1845.09 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  8517. 1845.09 s [opt-env-conf-test] + if False
  8518. 1845.09 s [opt-env-conf-test] then Just Nothing
  8519. 1845.09 s [opt-env-conf-test] else Nothing
  8520. 1845.09 s [opt-env-conf-test] else
  8521. 1845.09 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:295:10-38
  8522. 1845.09 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  8523. 1845.09 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  8524. 1845.10 s [opt-env-conf-test] if isLong
  8525. 1845.10 s [opt-env-conf-test] then
  8526. 1845.10 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  8527. 1845.10 s [opt-env-conf-test] + if not (DashedLong cs `elem` dasheds)
  8528. 1845.10 s [opt-env-conf-test] then Just Nothing
  8529. 1845.10 s [opt-env-conf-test] else Nothing
  8530. 1845.10 s [opt-env-conf-test] else
  8531. 1845.10 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:296:14-26
  8532. 1845.10 s [opt-env-conf-test] @@ -293,7 +293,7 @@
  8533. 1845.10 s [opt-env-conf-test] if isLong
  8534. 1845.10 s [opt-env-conf-test] then
  8535. 1845.10 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  8536. 1845.10 s [opt-env-conf-test] - then Just Nothing
  8537. 1845.10 s [opt-env-conf-test] + then Nothing
  8538. 1845.10 s [opt-env-conf-test] else Nothing
  8539. 1845.10 s [opt-env-conf-test] else
  8540. 1845.10 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  8541. 1845.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
  8542. 1845.10 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  8543. 1845.10 s [opt-env-conf-test] else Nothing
  8544. 1845.10 s [opt-env-conf-test] else
  8545. 1845.10 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  8546. 1845.10 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  8547. 1845.10 s [opt-env-conf-test] + in if True
  8548. 1845.10 s [opt-env-conf-test] then Just mRest
  8549. 1845.10 s [opt-env-conf-test] else Nothing
  8550. 1845.10 s [opt-env-conf-test]
  8551. 1845.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
  8552. 1845.10 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  8553. 1845.10 s [opt-env-conf-test] else Nothing
  8554. 1845.10 s [opt-env-conf-test] else
  8555. 1845.10 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  8556. 1845.10 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  8557. 1845.10 s [opt-env-conf-test] + in if False
  8558. 1845.10 s [opt-env-conf-test] then Just mRest
  8559. 1845.10 s [opt-env-conf-test] else Nothing
  8560. 1845.10 s [opt-env-conf-test]
  8561. 1845.10 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:300:14-42
  8562. 1845.10 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  8563. 1845.10 s [opt-env-conf-test] else Nothing
  8564. 1845.10 s [opt-env-conf-test] else
  8565. 1845.10 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  8566. 1845.10 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  8567. 1845.10 s [opt-env-conf-test] + in if not (DashedShort c `elem` dasheds)
  8568. 1845.10 s [opt-env-conf-test] then Just mRest
  8569. 1845.10 s [opt-env-conf-test] else Nothing
  8570. 1845.10 s [opt-env-conf-test]
  8571. 1845.10 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:301:18-28
  8572. 1845.10 s [opt-env-conf-test] @@ -298,7 +298,7 @@
  8573. 1845.10 s [opt-env-conf-test] else
  8574. 1845.10 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  8575. 1845.10 s [opt-env-conf-test] in if DashedShort c `elem` dasheds
  8576. 1845.10 s [opt-env-conf-test] - then Just mRest
  8577. 1845.10 s [opt-env-conf-test] + then Nothing
  8578. 1845.10 s [opt-env-conf-test] else Nothing
  8579. 1845.11 s [opt-env-conf-test]
  8580. 1845.11 s [opt-env-conf-test] unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
  8581. 1845.11 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-23
  8582. 1845.11 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8583. 1845.11 s [opt-env-conf-test] Maybe String
  8584. 1845.11 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8585. 1845.11 s [opt-env-conf-test] (c :| rest)
  8586. 1845.11 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8587. 1845.11 s [opt-env-conf-test] + | True && not (null rest) ->
  8588. 1845.11 s [opt-env-conf-test] Just rest
  8589. 1845.11 s [opt-env-conf-test] _ -> Nothing
  8590. 1845.11 s [opt-env-conf-test]
  8591. 1845.11 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-23
  8592. 1845.11 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8593. 1845.11 s [opt-env-conf-test] Maybe String
  8594. 1845.11 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8595. 1845.11 s [opt-env-conf-test] (c :| rest)
  8596. 1845.11 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8597. 1845.11 s [opt-env-conf-test] + | not (c `elem` dasheds) && not (null rest) ->
  8598. 1845.11 s [opt-env-conf-test] Just rest
  8599. 1845.11 s [opt-env-conf-test] _ -> Nothing
  8600. 1845.11 s [opt-env-conf-test]
  8601. 1845.11 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:32-41
  8602. 1845.11 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8603. 1845.11 s [opt-env-conf-test] Maybe String
  8604. 1845.11 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8605. 1845.11 s [opt-env-conf-test] (c :| rest)
  8606. 1845.11 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8607. 1845.11 s [opt-env-conf-test] + | c `elem` dasheds && not (True) ->
  8608. 1845.11 s [opt-env-conf-test] Just rest
  8609. 1845.11 s [opt-env-conf-test] _ -> Nothing
  8610. 1845.11 s [opt-env-conf-test]
  8611. 1845.11 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:32-41
  8612. 1845.11 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8613. 1845.11 s [opt-env-conf-test] Maybe String
  8614. 1845.11 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8615. 1845.11 s [opt-env-conf-test] (c :| rest)
  8616. 1845.11 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8617. 1845.11 s [opt-env-conf-test] + | c `elem` dasheds && not (not (null rest)) ->
  8618. 1845.11 s [opt-env-conf-test] Just rest
  8619. 1845.11 s [opt-env-conf-test] _ -> Nothing
  8620. 1845.11 s [opt-env-conf-test]
  8621. 1845.11 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:31-42
  8622. 1845.11 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8623. 1845.11 s [opt-env-conf-test] Maybe String
  8624. 1845.11 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8625. 1845.11 s [opt-env-conf-test] (c :| rest)
  8626. 1845.11 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8627. 1845.11 s [opt-env-conf-test] + | c `elem` dasheds && not True ->
  8628. 1845.11 s [opt-env-conf-test] Just rest
  8629. 1845.11 s [opt-env-conf-test] _ -> Nothing
  8630. 1845.11 s [opt-env-conf-test]
  8631. 1845.11 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:31-42
  8632. 1845.11 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8633. 1845.11 s [opt-env-conf-test] Maybe String
  8634. 1845.11 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8635. 1845.12 s [opt-env-conf-test] (c :| rest)
  8636. 1845.12 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8637. 1845.12 s [opt-env-conf-test] + | c `elem` dasheds && not not ((null rest)) ->
  8638. 1845.12 s [opt-env-conf-test] Just rest
  8639. 1845.12 s [opt-env-conf-test] _ -> Nothing
  8640. 1845.12 s [opt-env-conf-test]
  8641. 1845.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:27-42
  8642. 1845.12 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8643. 1845.12 s [opt-env-conf-test] Maybe String
  8644. 1845.12 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8645. 1845.12 s [opt-env-conf-test] (c :| rest)
  8646. 1845.12 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8647. 1845.12 s [opt-env-conf-test] + | c `elem` dasheds && True ->
  8648. 1845.12 s [opt-env-conf-test] Just rest
  8649. 1845.12 s [opt-env-conf-test] _ -> Nothing
  8650. 1845.12 s [opt-env-conf-test]
  8651. 1845.12 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:27-42
  8652. 1845.12 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8653. 1845.12 s [opt-env-conf-test] Maybe String
  8654. 1845.12 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8655. 1845.12 s [opt-env-conf-test] (c :| rest)
  8656. 1845.12 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8657. 1845.12 s [opt-env-conf-test] + | c `elem` dasheds && not (not (null rest)) ->
  8658. 1845.12 s [opt-env-conf-test] Just rest
  8659. 1845.12 s [opt-env-conf-test] _ -> Nothing
  8660. 1845.12 s [opt-env-conf-test]
  8661. 1845.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-42
  8662. 1845.12 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8663. 1845.12 s [opt-env-conf-test] Maybe String
  8664. 1845.12 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8665. 1845.12 s [opt-env-conf-test] (c :| rest)
  8666. 1845.12 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8667. 1845.12 s [opt-env-conf-test] + | True ->
  8668. 1845.12 s [opt-env-conf-test] Just rest
  8669. 1845.12 s [opt-env-conf-test] _ -> Nothing
  8670. 1845.12 s [opt-env-conf-test]
  8671. 1845.12 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Args.hs:282:7-42
  8672. 1845.12 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8673. 1845.12 s [opt-env-conf-test] Maybe String
  8674. 1851.29 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8675. 1851.29 s [opt-env-conf-test] (c :| rest)
  8676. 1851.31 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8677. 1851.31 s [opt-env-conf-test] + | c `elem` dasheds || not (null rest) ->
  8678. 1851.31 s [opt-env-conf-test] Just rest
  8679. 1851.31 s [opt-env-conf-test] _ -> Nothing
  8680. 1851.31 s [opt-env-conf-test]
  8681. 1851.31 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-42
  8682. 1851.31 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  8683. 1851.31 s [opt-env-conf-test] Maybe String
  8684. 1851.31 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8685. 1851.31 s [opt-env-conf-test] (c :| rest)
  8686. 1851.31 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  8687. 1851.31 s [opt-env-conf-test] + | not (c `elem` dasheds && not (null rest)) ->
  8688. 1851.31 s [opt-env-conf-test] Just rest
  8689. 1851.31 s [opt-env-conf-test] _ -> Nothing
  8690. 1851.31 s [opt-env-conf-test]
  8691. 1851.31 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:283:9-18
  8692. 1851.31 s [opt-env-conf-test] @@ -280,7 +280,7 @@
  8693. 1851.31 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  8694. 1851.31 s [opt-env-conf-test] (c :| rest)
  8695. 1851.32 s [opt-env-conf-test] | c `elem` dasheds && not (null rest) ->
  8696. 1851.32 s [opt-env-conf-test] - Just rest
  8697. 1851.32 s [opt-env-conf-test] + Nothing
  8698. 1851.32 s [opt-env-conf-test] _ -> Nothing
  8699. 1851.32 s [opt-env-conf-test]
  8700. 1851.32 s [opt-env-conf-test] -- Can consume only the last in a folded dashed
  8701. 1851.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
  8702. 1851.32 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  8703. 1851.32 s [opt-env-conf-test] NonEmpty Char ->
  8704. 1851.32 s [opt-env-conf-test] Maybe String
  8705. 1851.32 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  8706. 1851.32 s [opt-env-conf-test] - if isLong
  8707. 1851.32 s [opt-env-conf-test] + if True
  8708. 1851.32 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  8709. 1851.32 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  8710. 1851.32 s [opt-env-conf-test]
  8711. 1851.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
  8712. 1851.32 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  8713. 1851.32 s [opt-env-conf-test] NonEmpty Char ->
  8714. 1851.32 s [opt-env-conf-test] Maybe String
  8715. 1851.32 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  8716. 1851.32 s [opt-env-conf-test] - if isLong
  8717. 1851.32 s [opt-env-conf-test] + if False
  8718. 1851.32 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  8719. 1851.32 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  8720. 1851.32 s [opt-env-conf-test]
  8721. 1851.32 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:258:6-12
  8722. 1851.32 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  8723. 1851.32 s [opt-env-conf-test] NonEmpty Char ->
  8724. 1851.32 s [opt-env-conf-test] Maybe String
  8725. 1851.32 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  8726. 1851.32 s [opt-env-conf-test] - if isLong
  8727. 1851.32 s [opt-env-conf-test] + if not (isLong)
  8728. 1851.32 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  8729. 1851.32 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  8730. 1851.32 s [opt-env-conf-test]
  8731. 1851.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
  8732. 1851.32 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  8733. 1851.32 s [opt-env-conf-test] renderArg = \case
  8734. 1851.32 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  8735. 1851.32 s [opt-env-conf-test] ArgBareDash -> "-"
  8736. 1851.32 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  8737. 1851.32 s [opt-env-conf-test] + ArgDashed l cs -> (if True then "--" else "-") <> NE.toList cs
  8738. 1851.32 s [opt-env-conf-test] ArgPlain a -> a
  8739. 1851.32 s [opt-env-conf-test]
  8740. 1851.32 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  8741. 1851.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
  8742. 1851.32 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  8743. 1851.32 s [opt-env-conf-test] renderArg = \case
  8744. 1851.32 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  8745. 1851.32 s [opt-env-conf-test] ArgBareDash -> "-"
  8746. 1851.32 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  8747. 1851.32 s [opt-env-conf-test] + ArgDashed l cs -> (if False then "--" else "-") <> NE.toList cs
  8748. 1851.32 s [opt-env-conf-test] ArgPlain a -> a
  8749. 1851.32 s [opt-env-conf-test]
  8750. 1851.32 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  8751. 1851.32 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:89:25-26
  8752. 1851.32 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  8753. 1851.32 s [opt-env-conf-test] renderArg = \case
  8754. 1851.32 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  8755. 1851.32 s [opt-env-conf-test] ArgBareDash -> "-"
  8756. 1851.32 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  8757. 1851.32 s [opt-env-conf-test] + ArgDashed l cs -> (if not (l) then "--" else "-") <> NE.toList cs
  8758. 1851.32 s [opt-env-conf-test] ArgPlain a -> a
  8759. 1851.32 s [opt-env-conf-test]
  8760. 1851.32 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  8761. 1851.32 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
  8762. 1851.32 s [opt-env-conf-test] @@ -130,10 +130,9 @@
  8763. 1851.32 s [opt-env-conf-test] -- things like a default command.
  8764. 1851.32 s [opt-env-conf-test] let addConsumeNothing = \case
  8765. 1851.32 s [opt-env-conf-test] [] -> [(Nothing, as)]
  8766. 1851.32 s [opt-env-conf-test] r@(t@(mA, _) : rest) -> case mA of
  8767. 1851.32 s [opt-env-conf-test] -- If not consuming anything is already an option, don't add it to the end.
  8768. 1851.32 s [opt-env-conf-test] - Nothing -> r
  8769. 1851.32 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  8770. 1851.32 s [opt-env-conf-test]
  8771. 1851.32 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  8772. 1851.32 s [opt-env-conf-test] [] -> []
  8773. 1851.32 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
  8774. 1851.33 s [opt-env-conf-test] @@ -130,10 +130,9 @@
  8775. 1851.33 s [opt-env-conf-test] -- things like a default command.
  8776. 1851.33 s [opt-env-conf-test] let addConsumeNothing = \case
  8777. 1851.33 s [opt-env-conf-test] [] -> [(Nothing, as)]
  8778. 1851.33 s [opt-env-conf-test] r@(t@(mA, _) : rest) -> case mA of
  8779. 1851.33 s [opt-env-conf-test] -- If not consuming anything is already an option, don't add it to the end.
  8780. 1851.33 s [opt-env-conf-test] Nothing -> r
  8781. 1851.33 s [opt-env-conf-test] - Just _ -> t : addConsumeNothing rest
  8782. 1851.33 s [opt-env-conf-test]
  8783. 1851.33 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  8784. 1851.33 s [opt-env-conf-test] [] -> []
  8785. 1851.33 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:148:35-45
  8786. 1851.33 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  8787. 1851.33 s [opt-env-conf-test] Dead -> consumeArgument consumed
  8788. 1851.33 s [opt-env-conf-test] Live a -> case a of
  8789. 1851.33 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  8790. 1851.33 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  8791. 1851.33 s [opt-env-conf-test] + ArgPlain plain -> [(Nothing, consumed)]
  8792. 1851.33 s [opt-env-conf-test] -- A single dash is always an argument
  8793. 1851.33 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  8794. 1851.33 s [opt-env-conf-test] -- Bare double-dash
  8795. 1851.33 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:150:32-40
  8796. 1851.33 s [opt-env-conf-test] @@ -147,7 +147,7 @@
  8797. 1851.33 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  8798. 1851.33 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  8799. 1851.33 s [opt-env-conf-test] -- A single dash is always an argument
  8800. 1851.33 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  8801. 1851.33 s [opt-env-conf-test] + ArgBareDash -> [(Nothing, consumed)]
  8802. 1851.33 s [opt-env-conf-test] -- Bare double-dash
  8803. 1851.33 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  8804. 1851.33 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  8805. 1851.33 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:154:25-34
  8806. 1851.33 s [opt-env-conf-test] @@ -151,7 +151,7 @@
  8807. 1851.33 s [opt-env-conf-test] -- Bare double-dash
  8808. 1851.33 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  8809. 1851.33 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  8810. 1851.33 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  8811. 1851.33 s [opt-env-conf-test] + [] -> [(Nothing, consumed)]
  8812. 1851.33 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  8813. 1851.33 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  8814. 1851.33 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  8815. 1851.33 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:168:45-60
  8816. 1851.33 s [opt-env-conf-test] @@ -165,7 +165,7 @@
  8817. 1851.33 s [opt-env-conf-test] let go = \case
  8818. 1851.33 s [opt-env-conf-test] [] -> Nothing
  8819. 1851.33 s [opt-env-conf-test] (Dead : rest) -> go rest
  8820. 1851.33 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  8821. 1851.33 s [opt-env-conf-test] + (Live a' : rest) -> Nothing
  8822. 1851.33 s [opt-env-conf-test] in case go afters of
  8823. 1851.33 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  8824. 1851.33 s [opt-env-conf-test] Just (firstLive, rest) ->
  8825. 1851.33 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  8826. 1851.33 s [opt-env-conf-test] @@ -166,17 +166,16 @@
  8827. 1851.33 s [opt-env-conf-test] [] -> Nothing
  8828. 1851.33 s [opt-env-conf-test] (Dead : rest) -> go rest
  8829. 1851.33 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  8830. 1851.33 s [opt-env-conf-test] in case go afters of
  8831. 1851.33 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  8832. 1851.33 s [opt-env-conf-test] Just (firstLive, rest) ->
  8833. 1851.33 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  8834. 1851.33 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  8835. 1851.33 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  8836. 1851.34 s [opt-env-conf-test] -- arguments.
  8837. 1851.34 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  8838. 1851.50 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  8839. 1851.50 s [opt-env-conf-test] )
  8840. 1851.50 s [opt-env-conf-test] ]
  8841. 1851.50 s [opt-env-conf-test] ArgDashed {} ->
  8842. 1851.50 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  8843. 1851.50 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  8844. 1851.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  8845. 1851.50 s [opt-env-conf-test] @@ -166,17 +166,8 @@
  8846. 1851.50 s [opt-env-conf-test] [] -> Nothing
  8847. 1851.50 s [opt-env-conf-test] (Dead : rest) -> go rest
  8848. 1851.50 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  8849. 1851.50 s [opt-env-conf-test] in case go afters of
  8850. 1851.50 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  8851. 1851.50 s [opt-env-conf-test] - Just (firstLive, rest) ->
  8852. 1851.50 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  8853. 1851.50 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  8854. 1851.50 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  8855. 1851.50 s [opt-env-conf-test] - -- arguments.
  8856. 1851.50 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  8857. 1851.50 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  8858. 1851.50 s [opt-env-conf-test] - )
  8859. 1851.50 s [opt-env-conf-test] - ]
  8860. 1851.50 s [opt-env-conf-test] ArgDashed {} ->
  8861. 1851.50 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  8862. 1851.50 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  8863. 1851.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  8864. 1851.50 s [opt-env-conf-test] @@ -149,34 +149,33 @@
  8865. 1851.50 s [opt-env-conf-test] -- A single dash is always an argument
  8866. 1851.50 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  8867. 1851.50 s [opt-env-conf-test] -- Bare double-dash
  8868. 1851.50 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  8869. 1851.50 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  8870. 1851.50 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  8871. 1851.50 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  8872. 1851.50 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  8873. 1851.50 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  8874. 1851.50 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  8875. 1851.50 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  8876. 1851.50 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  8877. 1851.50 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  8878. 1851.50 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  8879. 1851.50 s [opt-env-conf-test] -- pop the args as they come.
  8880. 1851.50 s [opt-env-conf-test] _ ->
  8881. 1851.50 s [opt-env-conf-test] let go = \case
  8882. 1851.50 s [opt-env-conf-test] [] -> Nothing
  8883. 1851.50 s [opt-env-conf-test] (Dead : rest) -> go rest
  8884. 1851.50 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  8885. 1851.50 s [opt-env-conf-test] in case go afters of
  8886. 1851.50 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  8887. 1851.50 s [opt-env-conf-test] Just (firstLive, rest) ->
  8888. 1851.50 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  8889. 1851.50 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  8890. 1851.50 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  8891. 1851.51 s [opt-env-conf-test] -- arguments.
  8892. 1851.51 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  8893. 1851.51 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  8894. 1851.51 s [opt-env-conf-test] )
  8895. 1851.51 s [opt-env-conf-test] ]
  8896. 1851.51 s [opt-env-conf-test] ArgDashed {} ->
  8897. 1852.08 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  8898. 1852.09 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  8899. 1852.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  8900. 1852.09 s [opt-env-conf-test] @@ -149,34 +149,33 @@
  8901. 1852.09 s [opt-env-conf-test] -- A single dash is always an argument
  8902. 1852.09 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  8903. 1852.09 s [opt-env-conf-test] -- Bare double-dash
  8904. 1852.09 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  8905. 1852.09 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  8906. 1852.09 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  8907. 1852.09 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  8908. 1852.09 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  8909. 1852.09 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  8910. 1852.09 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  8911. 1852.09 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  8912. 1852.09 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  8913. 1852.09 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  8914. 1852.09 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  8915. 1852.09 s [opt-env-conf-test] -- pop the args as they come.
  8916. 1852.09 s [opt-env-conf-test] _ ->
  8917. 1852.09 s [opt-env-conf-test] let go = \case
  8918. 1852.09 s [opt-env-conf-test] [] -> Nothing
  8919. 1852.09 s [opt-env-conf-test] (Dead : rest) -> go rest
  8920. 1852.09 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  8921. 1852.09 s [opt-env-conf-test] in case go afters of
  8922. 1852.09 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  8923. 1852.09 s [opt-env-conf-test] Just (firstLive, rest) ->
  8924. 1852.09 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  8925. 1852.09 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  8926. 1852.09 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  8927. 1852.09 s [opt-env-conf-test] -- arguments.
  8928. 1852.09 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  8929. 1852.09 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  8930. 1852.09 s [opt-env-conf-test] )
  8931. 1852.09 s [opt-env-conf-test] ]
  8932. 1852.09 s [opt-env-conf-test] ArgDashed {} ->
  8933. 1852.21 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  8934. 1852.21 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  8935. 1852.21 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  8936. 1852.21 s [opt-env-conf-test] @@ -149,34 +149,18 @@
  8937. 1852.21 s [opt-env-conf-test] -- A single dash is always an argument
  8938. 1852.21 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  8939. 1852.21 s [opt-env-conf-test] -- Bare double-dash
  8940. 1852.21 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  8941. 1852.21 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  8942. 1852.21 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  8943. 1852.21 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  8944. 1852.21 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  8945. 1852.21 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  8946. 1852.21 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  8947. 1852.21 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  8948. 1852.21 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  8949. 1852.21 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  8950. 1852.21 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  8951. 1852.21 s [opt-env-conf-test] -- pop the args as they come.
  8952. 1852.21 s [opt-env-conf-test] - _ ->
  8953. 1852.21 s [opt-env-conf-test] - let go = \case
  8954. 1852.21 s [opt-env-conf-test] - [] -> Nothing
  8955. 1852.21 s [opt-env-conf-test] - (Dead : rest) -> go rest
  8956. 1852.21 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  8957. 1852.21 s [opt-env-conf-test] - in case go afters of
  8958. 1852.21 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  8959. 1852.21 s [opt-env-conf-test] - Just (firstLive, rest) ->
  8960. 1852.21 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  8961. 1852.21 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  8962. 1852.21 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  8963. 1852.21 s [opt-env-conf-test] - -- arguments.
  8964. 1852.21 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  8965. 1852.21 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  8966. 1852.21 s [opt-env-conf-test] - )
  8967. 1855.08 s [opt-env-conf-test] - ]
  8968. 1855.08 s [opt-env-conf-test] ArgDashed {} ->
  8969. 1855.08 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  8970. 1855.08 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  8971. 1855.08 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:187:31-49
  8972. 1855.08 s [opt-env-conf-test] @@ -184,7 +184,7 @@
  8973. 1855.08 s [opt-env-conf-test] -- TODO we need to continue looking too
  8974. 1855.08 s [opt-env-conf-test] let switchCase =
  8975. 1855.08 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  8976. 1855.08 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  8977. 1855.08 s [opt-env-conf-test] + ++ [ (Nothing, consumed)
  8978. 1855.08 s [opt-env-conf-test] ]
  8979. 1855.08 s [opt-env-conf-test] in case afters of
  8980. 1855.08 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  8981. 1855.08 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:201:39-57
  8982. 1855.08 s [opt-env-conf-test] @@ -198,7 +198,7 @@
  8983. 1855.08 s [opt-env-conf-test] ( case a' of
  8984. 1855.08 s [opt-env-conf-test] ArgDashed {} ->
  8985. 1855.08 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  8986. 1855.08 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  8987. 1855.08 s [opt-env-conf-test] + ++ [ (Nothing, consumed)
  8988. 1855.08 s [opt-env-conf-test] ]
  8989. 1855.08 s [opt-env-conf-test] _ ->
  8990. 1855.08 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  8991. 1855.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
  8992. 1855.08 s [opt-env-conf-test] @@ -201,7 +201,6 @@
  8993. 1855.08 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  8994. 1855.08 s [opt-env-conf-test] ]
  8995. 1855.08 s [opt-env-conf-test] _ ->
  8996. 1855.08 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  8997. 1855.08 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  8998. 1855.08 s [opt-env-conf-test] (Just (renderArg a), consumed)
  8999. 1855.08 s [opt-env-conf-test] ]
  9000. 1855.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
  9001. 1855.08 s [opt-env-conf-test] @@ -201,7 +201,6 @@
  9002. 1855.08 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9003. 1855.08 s [opt-env-conf-test] ]
  9004. 1855.08 s [opt-env-conf-test] _ ->
  9005. 1855.08 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9006. 1855.08 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9007. 1855.08 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9008. 1855.08 s [opt-env-conf-test] ]
  9009. 1855.08 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:205:39-58
  9010. 1855.08 s [opt-env-conf-test] @@ -202,7 +202,7 @@
  9011. 1855.08 s [opt-env-conf-test] ]
  9012. 1855.08 s [opt-env-conf-test] _ ->
  9013. 1855.09 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9014. 1855.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9015. 1855.09 s [opt-env-conf-test] + ++ [ (Nothing, Args (befores ++ [Live a, Dead]) rest),
  9016. 1855.09 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9017. 1855.09 s [opt-env-conf-test] ]
  9018. 1855.09 s [opt-env-conf-test] )
  9019. 1855.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
  9020. 1855.09 s [opt-env-conf-test] @@ -202,7 +202,6 @@
  9021. 1855.09 s [opt-env-conf-test] ]
  9022. 1855.09 s [opt-env-conf-test] _ ->
  9023. 1855.09 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9024. 1855.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9025. 1855.09 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9026. 1855.09 s [opt-env-conf-test] ]
  9027. 1855.09 s [opt-env-conf-test] )
  9028. 1855.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
  9029. 1855.09 s [opt-env-conf-test] @@ -202,7 +202,6 @@
  9030. 1855.09 s [opt-env-conf-test] ]
  9031. 1855.09 s [opt-env-conf-test] _ ->
  9032. 1855.09 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9033. 1855.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9034. 1855.09 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9035. 1855.09 s [opt-env-conf-test] ]
  9036. 1855.09 s [opt-env-conf-test] )
  9037. 1855.09 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:206:39-57
  9038. 1855.09 s [opt-env-conf-test] @@ -203,7 +203,7 @@
  9039. 1855.09 s [opt-env-conf-test] _ ->
  9040. 1855.09 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9041. 1855.09 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9042. 1855.09 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  9043. 1855.09 s [opt-env-conf-test] + (Nothing, consumed)
  9044. 1855.09 s [opt-env-conf-test] ]
  9045. 1855.09 s [opt-env-conf-test] )
  9046. 1855.09 s [opt-env-conf-test]
  9047. 1855.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
  9048. 1855.09 s [opt-env-conf-test] @@ -202,9 +202,7 @@
  9049. 1855.09 s [opt-env-conf-test] ]
  9050. 1855.09 s [opt-env-conf-test] _ ->
  9051. 1855.09 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9052. 1855.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9053. 1855.09 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  9054. 1855.09 s [opt-env-conf-test] ]
  9055. 1855.09 s [opt-env-conf-test] )
  9056. 1855.09 s [opt-env-conf-test]
  9057. 1855.09 s [opt-env-conf-test] -- | Consume an option.
  9058. 1855.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
  9059. 1855.09 s [opt-env-conf-test] @@ -202,9 +202,8 @@
  9060. 1855.09 s [opt-env-conf-test] ]
  9061. 1855.09 s [opt-env-conf-test] _ ->
  9062. 1855.09 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9063. 1855.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9064. 1855.09 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9065. 1855.09 s [opt-env-conf-test] ]
  9066. 1855.09 s [opt-env-conf-test] )
  9067. 1855.09 s [opt-env-conf-test]
  9068. 1855.09 s [opt-env-conf-test] -- | Consume an option.
  9069. 1855.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
  9070. 1855.09 s [opt-env-conf-test] @@ -195,16 +195,12 @@
  9071. 1855.09 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  9072. 1855.09 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  9073. 1855.09 s [opt-env-conf-test] -- * The dashed is an argument
  9074. 1855.09 s [opt-env-conf-test] ( case a' of
  9075. 1855.09 s [opt-env-conf-test] - ArgDashed {} ->
  9076. 1855.09 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  9077. 1855.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  9078. 1855.09 s [opt-env-conf-test] - ]
  9079. 1855.09 s [opt-env-conf-test] _ ->
  9080. 1855.09 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9081. 1855.09 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9082. 1855.09 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9083. 1855.09 s [opt-env-conf-test] ]
  9084. 1855.09 s [opt-env-conf-test] )
  9085. 1855.09 s [opt-env-conf-test]
  9086. 1855.09 s [opt-env-conf-test] -- | Consume an option.
  9087. 1855.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
  9088. 1855.09 s [opt-env-conf-test] @@ -195,16 +195,11 @@
  9089. 1855.09 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  9090. 1855.09 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  9091. 1855.09 s [opt-env-conf-test] -- * The dashed is an argument
  9092. 1855.09 s [opt-env-conf-test] ( case a' of
  9093. 1855.09 s [opt-env-conf-test] ArgDashed {} ->
  9094. 1855.09 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  9095. 1855.09 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9096. 1855.09 s [opt-env-conf-test] ]
  9097. 1855.09 s [opt-env-conf-test] - _ ->
  9098. 1855.09 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9099. 1855.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9100. 1857.83 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  9101. 1857.91 s [opt-env-conf-test] - ]
  9102. 1857.91 s [opt-env-conf-test] )
  9103. 1857.91 s [opt-env-conf-test]
  9104. 1857.91 s [opt-env-conf-test] -- | Consume an option.
  9105. 1857.91 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  9106. 1857.91 s [opt-env-conf-test] @@ -186,26 +186,25 @@
  9107. 1857.91 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  9108. 1857.92 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9109. 1857.92 s [opt-env-conf-test] ]
  9110. 1857.92 s [opt-env-conf-test] in case afters of
  9111. 1857.92 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  9112. 1857.92 s [opt-env-conf-test] - [] -> switchCase
  9113. 1857.92 s [opt-env-conf-test] (Dead : _) -> switchCase
  9114. 1857.92 s [opt-env-conf-test] (Live a' : rest) ->
  9115. 1857.92 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  9116. 1857.92 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  9117. 1857.92 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  9118. 1857.92 s [opt-env-conf-test] -- * The dashed is an argument
  9119. 1857.92 s [opt-env-conf-test] ( case a' of
  9120. 1857.92 s [opt-env-conf-test] ArgDashed {} ->
  9121. 1857.92 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  9122. 1857.92 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9123. 1857.92 s [opt-env-conf-test] ]
  9124. 1857.92 s [opt-env-conf-test] _ ->
  9125. 1857.92 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9126. 1857.92 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9127. 1857.92 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9128. 1857.92 s [opt-env-conf-test] ]
  9129. 1857.92 s [opt-env-conf-test] )
  9130. 1857.92 s [opt-env-conf-test]
  9131. 1857.92 s [opt-env-conf-test] -- | Consume an option.
  9132. 1857.92 s [opt-env-conf-test] --
  9133. 1857.92 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  9134. 1857.92 s [opt-env-conf-test] @@ -186,26 +186,25 @@
  9135. 1857.92 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  9136. 1857.92 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9137. 1857.92 s [opt-env-conf-test] ]
  9138. 1857.92 s [opt-env-conf-test] in case afters of
  9139. 1857.92 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  9140. 1857.92 s [opt-env-conf-test] [] -> switchCase
  9141. 1857.92 s [opt-env-conf-test] - (Dead : _) -> switchCase
  9142. 1857.92 s [opt-env-conf-test] (Live a' : rest) ->
  9143. 1857.92 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  9144. 1857.92 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  9145. 1857.92 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  9146. 1857.92 s [opt-env-conf-test] -- * The dashed is an argument
  9147. 1857.92 s [opt-env-conf-test] ( case a' of
  9148. 1857.92 s [opt-env-conf-test] ArgDashed {} ->
  9149. 1857.92 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  9150. 1857.92 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9151. 1857.92 s [opt-env-conf-test] ]
  9152. 1857.92 s [opt-env-conf-test] _ ->
  9153. 1857.92 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9154. 1857.92 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9155. 1857.92 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9156. 1857.92 s [opt-env-conf-test] ]
  9157. 1857.92 s [opt-env-conf-test] )
  9158. 1857.92 s [opt-env-conf-test]
  9159. 1857.92 s [opt-env-conf-test] -- | Consume an option.
  9160. 1857.92 s [opt-env-conf-test] --
  9161. 1857.92 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  9162. 1857.92 s [opt-env-conf-test] @@ -186,26 +186,10 @@
  9163. 1857.92 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  9164. 1857.92 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9165. 1857.92 s [opt-env-conf-test] ]
  9166. 1857.92 s [opt-env-conf-test] in case afters of
  9167. 1857.92 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  9168. 1857.92 s [opt-env-conf-test] [] -> switchCase
  9169. 1857.92 s [opt-env-conf-test] (Dead : _) -> switchCase
  9170. 1857.92 s [opt-env-conf-test] - (Live a' : rest) ->
  9171. 1857.92 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  9172. 1857.92 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  9173. 1857.92 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  9174. 1857.92 s [opt-env-conf-test] - -- * The dashed is an argument
  9175. 1857.92 s [opt-env-conf-test] - ( case a' of
  9176. 1857.92 s [opt-env-conf-test] - ArgDashed {} ->
  9177. 1857.92 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  9178. 1857.92 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  9179. 1857.92 s [opt-env-conf-test] - ]
  9180. 1857.92 s [opt-env-conf-test] - _ ->
  9181. 1857.92 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9182. 1857.92 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9183. 1857.92 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  9184. 1857.92 s [opt-env-conf-test] - ]
  9185. 1857.92 s [opt-env-conf-test] - )
  9186. 1857.92 s [opt-env-conf-test]
  9187. 1857.92 s [opt-env-conf-test] -- | Consume an option.
  9188. 1857.92 s [opt-env-conf-test] --
  9189. 1857.92 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  9190. 1857.92 s [opt-env-conf-test] @@ -143,69 +143,68 @@
  9191. 1857.92 s [opt-env-conf-test] in case firstArg of
  9192. 1857.92 s [opt-env-conf-test] -- Skip any dead argument
  9193. 1857.92 s [opt-env-conf-test] Dead -> consumeArgument consumed
  9194. 1857.92 s [opt-env-conf-test] Live a -> case a of
  9195. 1857.92 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  9196. 1857.92 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  9197. 1857.92 s [opt-env-conf-test] -- A single dash is always an argument
  9198. 1857.92 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  9199. 1857.92 s [opt-env-conf-test] -- Bare double-dash
  9200. 1857.93 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  9201. 1857.93 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  9202. 1857.93 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  9203. 1857.93 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  9204. 1857.93 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  9205. 1857.93 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  9206. 1857.93 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  9207. 1857.93 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  9208. 1857.93 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  9209. 1857.93 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  9210. 1857.93 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  9211. 1857.93 s [opt-env-conf-test] -- pop the args as they come.
  9212. 1857.93 s [opt-env-conf-test] _ ->
  9213. 1857.93 s [opt-env-conf-test] let go = \case
  9214. 1857.93 s [opt-env-conf-test] [] -> Nothing
  9215. 1857.93 s [opt-env-conf-test] (Dead : rest) -> go rest
  9216. 1857.93 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  9217. 1857.93 s [opt-env-conf-test] in case go afters of
  9218. 1857.93 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  9219. 1857.93 s [opt-env-conf-test] Just (firstLive, rest) ->
  9220. 1857.93 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  9221. 1857.93 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  9222. 1857.93 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  9223. 1857.93 s [opt-env-conf-test] -- arguments.
  9224. 1858.31 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  9225. 1858.31 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  9226. 1858.31 s [opt-env-conf-test] )
  9227. 1858.31 s [opt-env-conf-test] ]
  9228. 1858.31 s [opt-env-conf-test] ArgDashed {} ->
  9229. 1858.31 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  9230. 1858.31 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  9231. 1858.31 s [opt-env-conf-test] -- * The dashed is an argument
  9232. 1858.31 s [opt-env-conf-test] -- TODO we need to continue looking too
  9233. 1858.31 s [opt-env-conf-test] let switchCase =
  9234. 1858.31 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  9235. 1858.31 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9236. 1858.32 s [opt-env-conf-test] ]
  9237. 1858.32 s [opt-env-conf-test] in case afters of
  9238. 1858.32 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  9239. 1858.32 s [opt-env-conf-test] [] -> switchCase
  9240. 1858.32 s [opt-env-conf-test] (Dead : _) -> switchCase
  9241. 1858.32 s [opt-env-conf-test] (Live a' : rest) ->
  9242. 1858.32 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  9243. 1858.32 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  9244. 1858.32 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  9245. 1858.32 s [opt-env-conf-test] -- * The dashed is an argument
  9246. 1858.32 s [opt-env-conf-test] ( case a' of
  9247. 1858.32 s [opt-env-conf-test] ArgDashed {} ->
  9248. 1858.32 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  9249. 1858.32 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9250. 1858.32 s [opt-env-conf-test] ]
  9251. 1858.32 s [opt-env-conf-test] _ ->
  9252. 1858.32 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9253. 1858.32 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9254. 1858.32 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9255. 1858.32 s [opt-env-conf-test] ]
  9256. 1858.32 s [opt-env-conf-test] )
  9257. 1858.32 s [opt-env-conf-test]
  9258. 1858.32 s [opt-env-conf-test] -- | Consume an option.
  9259. 1858.32 s [opt-env-conf-test] --
  9260. 1858.32 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  9261. 1858.32 s [opt-env-conf-test] @@ -143,69 +143,68 @@
  9262. 1858.32 s [opt-env-conf-test] in case firstArg of
  9263. 1858.32 s [opt-env-conf-test] -- Skip any dead argument
  9264. 1858.32 s [opt-env-conf-test] Dead -> consumeArgument consumed
  9265. 1858.32 s [opt-env-conf-test] Live a -> case a of
  9266. 1858.32 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  9267. 1858.32 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  9268. 1858.32 s [opt-env-conf-test] -- A single dash is always an argument
  9269. 1858.32 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  9270. 1858.32 s [opt-env-conf-test] -- Bare double-dash
  9271. 1858.32 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  9272. 1858.32 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  9273. 1858.32 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  9274. 1858.32 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  9275. 1858.32 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  9276. 1858.32 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  9277. 1858.32 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  9278. 1858.32 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  9279. 1858.32 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  9280. 1858.32 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  9281. 1858.32 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  9282. 1858.32 s [opt-env-conf-test] -- pop the args as they come.
  9283. 1858.32 s [opt-env-conf-test] _ ->
  9284. 1858.32 s [opt-env-conf-test] let go = \case
  9285. 1858.32 s [opt-env-conf-test] [] -> Nothing
  9286. 1858.32 s [opt-env-conf-test] (Dead : rest) -> go rest
  9287. 1858.32 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  9288. 1858.32 s [opt-env-conf-test] in case go afters of
  9289. 1858.32 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  9290. 1858.32 s [opt-env-conf-test] Just (firstLive, rest) ->
  9291. 1858.32 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  9292. 1858.32 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  9293. 1858.32 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  9294. 1858.32 s [opt-env-conf-test] -- arguments.
  9295. 1858.37 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  9296. 1858.37 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  9297. 1858.37 s [opt-env-conf-test] )
  9298. 1858.37 s [opt-env-conf-test] ]
  9299. 1858.37 s [opt-env-conf-test] ArgDashed {} ->
  9300. 1858.37 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  9301. 1858.37 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  9302. 1858.37 s [opt-env-conf-test] -- * The dashed is an argument
  9303. 1858.37 s [opt-env-conf-test] -- TODO we need to continue looking too
  9304. 1858.37 s [opt-env-conf-test] let switchCase =
  9305. 1858.37 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  9306. 1858.37 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9307. 1858.37 s [opt-env-conf-test] ]
  9308. 1858.37 s [opt-env-conf-test] in case afters of
  9309. 1858.37 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  9310. 1858.37 s [opt-env-conf-test] [] -> switchCase
  9311. 1858.37 s [opt-env-conf-test] (Dead : _) -> switchCase
  9312. 1858.37 s [opt-env-conf-test] (Live a' : rest) ->
  9313. 1858.37 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  9314. 1858.37 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  9315. 1858.37 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  9316. 1858.37 s [opt-env-conf-test] -- * The dashed is an argument
  9317. 1858.37 s [opt-env-conf-test] ( case a' of
  9318. 1858.38 s [opt-env-conf-test] ArgDashed {} ->
  9319. 1858.38 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  9320. 1858.38 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9321. 1858.38 s [opt-env-conf-test] ]
  9322. 1858.38 s [opt-env-conf-test] _ ->
  9323. 1858.38 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9324. 1858.38 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9325. 1858.38 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9326. 1858.38 s [opt-env-conf-test] ]
  9327. 1858.38 s [opt-env-conf-test] )
  9328. 1858.38 s [opt-env-conf-test]
  9329. 1858.38 s [opt-env-conf-test] -- | Consume an option.
  9330. 1858.38 s [opt-env-conf-test] --
  9331. 1858.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  9332. 1858.38 s [opt-env-conf-test] @@ -143,69 +143,41 @@
  9333. 1858.38 s [opt-env-conf-test] in case firstArg of
  9334. 1858.38 s [opt-env-conf-test] -- Skip any dead argument
  9335. 1858.38 s [opt-env-conf-test] Dead -> consumeArgument consumed
  9336. 1858.38 s [opt-env-conf-test] Live a -> case a of
  9337. 1858.38 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  9338. 1858.38 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  9339. 1858.38 s [opt-env-conf-test] -- A single dash is always an argument
  9340. 1858.38 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  9341. 1858.38 s [opt-env-conf-test] -- Bare double-dash
  9342. 1858.38 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  9343. 1858.38 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  9344. 1858.38 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  9345. 1858.38 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  9346. 1858.38 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  9347. 1858.38 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  9348. 1858.38 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  9349. 1858.38 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  9350. 1858.38 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  9351. 1858.38 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  9352. 1858.38 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  9353. 1858.38 s [opt-env-conf-test] - -- pop the args as they come.
  9354. 1858.38 s [opt-env-conf-test] - _ ->
  9355. 1858.38 s [opt-env-conf-test] - let go = \case
  9356. 1858.38 s [opt-env-conf-test] - [] -> Nothing
  9357. 1858.38 s [opt-env-conf-test] - (Dead : rest) -> go rest
  9358. 1858.38 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  9359. 1858.38 s [opt-env-conf-test] - in case go afters of
  9360. 1858.38 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  9361. 1858.38 s [opt-env-conf-test] - Just (firstLive, rest) ->
  9362. 1858.38 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  9363. 1858.38 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  9364. 1858.38 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  9365. 1858.38 s [opt-env-conf-test] - -- arguments.
  9366. 1858.38 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  9367. 1858.38 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  9368. 1858.38 s [opt-env-conf-test] - )
  9369. 1858.38 s [opt-env-conf-test] - ]
  9370. 1858.38 s [opt-env-conf-test] ArgDashed {} ->
  9371. 1858.38 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  9372. 1858.38 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  9373. 1858.38 s [opt-env-conf-test] -- * The dashed is an argument
  9374. 1858.38 s [opt-env-conf-test] -- TODO we need to continue looking too
  9375. 1858.38 s [opt-env-conf-test] let switchCase =
  9376. 1858.38 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  9377. 1858.38 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9378. 1858.38 s [opt-env-conf-test] ]
  9379. 1858.38 s [opt-env-conf-test] in case afters of
  9380. 1858.38 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  9381. 1858.38 s [opt-env-conf-test] [] -> switchCase
  9382. 1858.38 s [opt-env-conf-test] (Dead : _) -> switchCase
  9383. 1858.38 s [opt-env-conf-test] (Live a' : rest) ->
  9384. 1858.38 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  9385. 1858.38 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  9386. 1858.38 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  9387. 1858.38 s [opt-env-conf-test] -- * The dashed is an argument
  9388. 1858.38 s [opt-env-conf-test] ( case a' of
  9389. 1858.38 s [opt-env-conf-test] ArgDashed {} ->
  9390. 1858.38 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  9391. 1858.38 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9392. 1858.38 s [opt-env-conf-test] ]
  9393. 1858.38 s [opt-env-conf-test] _ ->
  9394. 1858.38 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9395. 1858.38 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9396. 1858.38 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9397. 1858.59 s [opt-env-conf-test] ]
  9398. 1858.60 s [opt-env-conf-test] )
  9399. 1858.60 s [opt-env-conf-test]
  9400. 1858.60 s [opt-env-conf-test] -- | Consume an option.
  9401. 1858.60 s [opt-env-conf-test] --
  9402. 1858.60 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  9403. 1858.60 s [opt-env-conf-test] @@ -143,69 +143,40 @@
  9404. 1858.60 s [opt-env-conf-test] in case firstArg of
  9405. 1858.60 s [opt-env-conf-test] -- Skip any dead argument
  9406. 1858.60 s [opt-env-conf-test] Dead -> consumeArgument consumed
  9407. 1858.60 s [opt-env-conf-test] Live a -> case a of
  9408. 1858.60 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  9409. 1858.60 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  9410. 1858.60 s [opt-env-conf-test] -- A single dash is always an argument
  9411. 1858.60 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  9412. 1858.60 s [opt-env-conf-test] -- Bare double-dash
  9413. 1858.60 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  9414. 1858.60 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  9415. 1858.60 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  9416. 1858.60 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  9417. 1858.60 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  9418. 1858.60 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  9419. 1858.60 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  9420. 1858.60 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  9421. 1858.60 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  9422. 1858.60 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  9423. 1858.60 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  9424. 1858.60 s [opt-env-conf-test] -- pop the args as they come.
  9425. 1858.60 s [opt-env-conf-test] _ ->
  9426. 1858.60 s [opt-env-conf-test] let go = \case
  9427. 1858.60 s [opt-env-conf-test] [] -> Nothing
  9428. 1858.60 s [opt-env-conf-test] (Dead : rest) -> go rest
  9429. 1858.60 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  9430. 1858.60 s [opt-env-conf-test] in case go afters of
  9431. 1858.60 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  9432. 1858.60 s [opt-env-conf-test] Just (firstLive, rest) ->
  9433. 1858.61 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  9434. 1858.61 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  9435. 1858.61 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  9436. 1858.61 s [opt-env-conf-test] -- arguments.
  9437. 1858.61 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  9438. 1858.61 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  9439. 1858.61 s [opt-env-conf-test] )
  9440. 1858.61 s [opt-env-conf-test] ]
  9441. 1858.61 s [opt-env-conf-test] - ArgDashed {} ->
  9442. 1858.61 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  9443. 1858.61 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  9444. 1858.61 s [opt-env-conf-test] - -- * The dashed is an argument
  9445. 1858.61 s [opt-env-conf-test] - -- TODO we need to continue looking too
  9446. 1858.61 s [opt-env-conf-test] - let switchCase =
  9447. 1858.61 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  9448. 1858.61 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  9449. 1858.61 s [opt-env-conf-test] - ]
  9450. 1858.61 s [opt-env-conf-test] - in case afters of
  9451. 1858.61 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  9452. 1858.61 s [opt-env-conf-test] - [] -> switchCase
  9453. 1858.61 s [opt-env-conf-test] - (Dead : _) -> switchCase
  9454. 1858.61 s [opt-env-conf-test] - (Live a' : rest) ->
  9455. 1858.61 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  9456. 1858.61 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  9457. 1858.61 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  9458. 1858.61 s [opt-env-conf-test] - -- * The dashed is an argument
  9459. 1858.61 s [opt-env-conf-test] - ( case a' of
  9460. 1858.61 s [opt-env-conf-test] - ArgDashed {} ->
  9461. 1858.61 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  9462. 1858.61 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  9463. 1858.61 s [opt-env-conf-test] - ]
  9464. 1858.61 s [opt-env-conf-test] - _ ->
  9465. 1858.61 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9466. 1858.61 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9467. 1858.61 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  9468. 1859.18 s [opt-env-conf-test] - ]
  9469. 1859.18 s [opt-env-conf-test] - )
  9470. 1859.18 s [opt-env-conf-test]
  9471. 1859.18 s [opt-env-conf-test] -- | Consume an option.
  9472. 1859.18 s [opt-env-conf-test] --
  9473. 1859.18 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
  9474. 1859.18 s [opt-env-conf-test] @@ -140,72 +140,71 @@
  9475. 1859.18 s [opt-env-conf-test] (firstArg : afters) ->
  9476. 1859.18 s [opt-env-conf-test] let befores = argsBefore as
  9477. 1859.18 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  9478. 1859.18 s [opt-env-conf-test] in case firstArg of
  9479. 1859.18 s [opt-env-conf-test] -- Skip any dead argument
  9480. 1859.18 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  9481. 1859.18 s [opt-env-conf-test] Live a -> case a of
  9482. 1859.19 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  9483. 1859.19 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  9484. 1859.19 s [opt-env-conf-test] -- A single dash is always an argument
  9485. 1859.19 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  9486. 1859.19 s [opt-env-conf-test] -- Bare double-dash
  9487. 1859.19 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  9488. 1859.19 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  9489. 1859.19 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  9490. 1859.19 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  9491. 1859.19 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  9492. 1859.19 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  9493. 1859.19 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  9494. 1859.19 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  9495. 1859.19 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  9496. 1859.19 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  9497. 1859.19 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  9498. 1859.19 s [opt-env-conf-test] -- pop the args as they come.
  9499. 1859.19 s [opt-env-conf-test] _ ->
  9500. 1859.19 s [opt-env-conf-test] let go = \case
  9501. 1859.19 s [opt-env-conf-test] [] -> Nothing
  9502. 1859.19 s [opt-env-conf-test] (Dead : rest) -> go rest
  9503. 1859.19 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  9504. 1859.19 s [opt-env-conf-test] in case go afters of
  9505. 1859.19 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  9506. 1859.19 s [opt-env-conf-test] Just (firstLive, rest) ->
  9507. 1859.19 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  9508. 1859.19 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  9509. 1859.70 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  9510. 1859.70 s [opt-env-conf-test] -- arguments.
  9511. 1859.71 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  9512. 1859.71 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  9513. 1859.71 s [opt-env-conf-test] )
  9514. 1859.71 s [opt-env-conf-test] ]
  9515. 1859.71 s [opt-env-conf-test] ArgDashed {} ->
  9516. 1859.71 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  9517. 1859.71 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  9518. 1859.71 s [opt-env-conf-test] -- * The dashed is an argument
  9519. 1859.71 s [opt-env-conf-test] -- TODO we need to continue looking too
  9520. 1859.71 s [opt-env-conf-test] let switchCase =
  9521. 1859.71 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  9522. 1859.71 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9523. 1859.71 s [opt-env-conf-test] ]
  9524. 1859.71 s [opt-env-conf-test] in case afters of
  9525. 1859.71 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  9526. 1859.71 s [opt-env-conf-test] [] -> switchCase
  9527. 1859.71 s [opt-env-conf-test] (Dead : _) -> switchCase
  9528. 1859.71 s [opt-env-conf-test] (Live a' : rest) ->
  9529. 1859.71 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  9530. 1859.71 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  9531. 1859.71 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  9532. 1859.71 s [opt-env-conf-test] -- * The dashed is an argument
  9533. 1859.71 s [opt-env-conf-test] ( case a' of
  9534. 1859.71 s [opt-env-conf-test] ArgDashed {} ->
  9535. 1859.71 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  9536. 1859.71 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9537. 1859.71 s [opt-env-conf-test] ]
  9538. 1859.71 s [opt-env-conf-test] _ ->
  9539. 1859.71 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9540. 1859.71 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9541. 1859.71 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9542. 1859.71 s [opt-env-conf-test] ]
  9543. 1859.71 s [opt-env-conf-test] )
  9544. 1859.71 s [opt-env-conf-test]
  9545. 1859.71 s [opt-env-conf-test] -- | Consume an option.
  9546. 1859.71 s [opt-env-conf-test] --
  9547. 1859.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
  9548. 1859.71 s [opt-env-conf-test] @@ -140,72 +140,9 @@
  9549. 1859.71 s [opt-env-conf-test] (firstArg : afters) ->
  9550. 1859.71 s [opt-env-conf-test] let befores = argsBefore as
  9551. 1859.71 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  9552. 1859.71 s [opt-env-conf-test] in case firstArg of
  9553. 1859.71 s [opt-env-conf-test] -- Skip any dead argument
  9554. 1859.71 s [opt-env-conf-test] Dead -> consumeArgument consumed
  9555. 1859.71 s [opt-env-conf-test] - Live a -> case a of
  9556. 1859.71 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  9557. 1859.71 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  9558. 1859.71 s [opt-env-conf-test] - -- A single dash is always an argument
  9559. 1859.71 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  9560. 1859.71 s [opt-env-conf-test] - -- Bare double-dash
  9561. 1859.71 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  9562. 1859.71 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  9563. 1859.71 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  9564. 1859.71 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  9565. 1859.71 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  9566. 1859.71 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  9567. 1859.71 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  9568. 1859.71 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  9569. 1859.71 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  9570. 1859.71 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  9571. 1859.71 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  9572. 1859.71 s [opt-env-conf-test] - -- pop the args as they come.
  9573. 1859.71 s [opt-env-conf-test] - _ ->
  9574. 1859.71 s [opt-env-conf-test] - let go = \case
  9575. 1859.71 s [opt-env-conf-test] - [] -> Nothing
  9576. 1859.71 s [opt-env-conf-test] - (Dead : rest) -> go rest
  9577. 1859.71 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  9578. 1859.71 s [opt-env-conf-test] - in case go afters of
  9579. 1859.71 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  9580. 1859.72 s [opt-env-conf-test] - Just (firstLive, rest) ->
  9581. 1859.72 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  9582. 1859.72 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  9583. 1859.72 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  9584. 1859.72 s [opt-env-conf-test] - -- arguments.
  9585. 1859.72 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  9586. 1859.72 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  9587. 1859.72 s [opt-env-conf-test] - )
  9588. 1859.72 s [opt-env-conf-test] - ]
  9589. 1859.72 s [opt-env-conf-test] - ArgDashed {} ->
  9590. 1859.72 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  9591. 1859.72 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  9592. 1859.72 s [opt-env-conf-test] - -- * The dashed is an argument
  9593. 1859.72 s [opt-env-conf-test] - -- TODO we need to continue looking too
  9594. 1859.72 s [opt-env-conf-test] - let switchCase =
  9595. 1859.72 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  9596. 1859.72 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  9597. 1859.72 s [opt-env-conf-test] - ]
  9598. 1859.72 s [opt-env-conf-test] - in case afters of
  9599. 1859.72 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  9600. 1859.72 s [opt-env-conf-test] - [] -> switchCase
  9601. 1859.72 s [opt-env-conf-test] - (Dead : _) -> switchCase
  9602. 1859.72 s [opt-env-conf-test] - (Live a' : rest) ->
  9603. 1859.72 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  9604. 1859.72 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  9605. 1859.72 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  9606. 1859.72 s [opt-env-conf-test] - -- * The dashed is an argument
  9607. 1859.72 s [opt-env-conf-test] - ( case a' of
  9608. 1859.72 s [opt-env-conf-test] - ArgDashed {} ->
  9609. 1859.72 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  9610. 1859.72 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  9611. 1859.72 s [opt-env-conf-test] - ]
  9612. 1859.72 s [opt-env-conf-test] - _ ->
  9613. 1859.72 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9614. 1859.72 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9615. 1859.72 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  9616. 1859.72 s [opt-env-conf-test] - ]
  9617. 1859.72 s [opt-env-conf-test] - )
  9618. 1859.72 s [opt-env-conf-test]
  9619. 1859.72 s [opt-env-conf-test] -- | Consume an option.
  9620. 1859.72 s [opt-env-conf-test] --
  9621. 1859.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
  9622. 1859.72 s [opt-env-conf-test] @@ -135,77 +135,76 @@
  9623. 1859.72 s [opt-env-conf-test] Nothing -> r
  9624. 1859.72 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  9625. 1859.72 s [opt-env-conf-test]
  9626. 1859.72 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  9627. 1859.72 s [opt-env-conf-test] - [] -> []
  9628. 1859.72 s [opt-env-conf-test] (firstArg : afters) ->
  9629. 1859.72 s [opt-env-conf-test] let befores = argsBefore as
  9630. 1859.72 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  9631. 1859.72 s [opt-env-conf-test] in case firstArg of
  9632. 1859.72 s [opt-env-conf-test] -- Skip any dead argument
  9633. 1859.72 s [opt-env-conf-test] Dead -> consumeArgument consumed
  9634. 1859.72 s [opt-env-conf-test] Live a -> case a of
  9635. 1859.72 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  9636. 1859.72 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  9637. 1859.72 s [opt-env-conf-test] -- A single dash is always an argument
  9638. 1859.72 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  9639. 1859.72 s [opt-env-conf-test] -- Bare double-dash
  9640. 1859.72 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  9641. 1859.72 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  9642. 1859.72 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  9643. 1859.72 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  9644. 1859.72 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  9645. 1859.72 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  9646. 1859.72 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  9647. 1859.72 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  9648. 1859.72 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  9649. 1859.72 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  9650. 1859.72 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  9651. 1859.72 s [opt-env-conf-test] -- pop the args as they come.
  9652. 1859.72 s [opt-env-conf-test] _ ->
  9653. 1859.72 s [opt-env-conf-test] let go = \case
  9654. 1859.72 s [opt-env-conf-test] [] -> Nothing
  9655. 1859.72 s [opt-env-conf-test] (Dead : rest) -> go rest
  9656. 1859.72 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  9657. 1859.72 s [opt-env-conf-test] in case go afters of
  9658. 1859.72 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  9659. 1859.72 s [opt-env-conf-test] Just (firstLive, rest) ->
  9660. 1859.72 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  9661. 1859.72 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  9662. 1859.72 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  9663. 1859.72 s [opt-env-conf-test] -- arguments.
  9664. 1859.72 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  9665. 1859.72 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  9666. 1859.72 s [opt-env-conf-test] )
  9667. 1859.72 s [opt-env-conf-test] ]
  9668. 1859.72 s [opt-env-conf-test] ArgDashed {} ->
  9669. 1859.72 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  9670. 1859.72 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  9671. 1859.72 s [opt-env-conf-test] -- * The dashed is an argument
  9672. 1859.72 s [opt-env-conf-test] -- TODO we need to continue looking too
  9673. 1859.72 s [opt-env-conf-test] let switchCase =
  9674. 1859.72 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  9675. 1859.72 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9676. 1859.72 s [opt-env-conf-test] ]
  9677. 1859.72 s [opt-env-conf-test] in case afters of
  9678. 1859.72 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  9679. 1859.72 s [opt-env-conf-test] [] -> switchCase
  9680. 1859.72 s [opt-env-conf-test] (Dead : _) -> switchCase
  9681. 1859.72 s [opt-env-conf-test] (Live a' : rest) ->
  9682. 1859.72 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  9683. 1859.72 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  9684. 1859.72 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  9685. 1859.72 s [opt-env-conf-test] -- * The dashed is an argument
  9686. 1859.72 s [opt-env-conf-test] ( case a' of
  9687. 1859.72 s [opt-env-conf-test] ArgDashed {} ->
  9688. 1859.72 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  9689. 1859.72 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  9690. 1859.72 s [opt-env-conf-test] ]
  9691. 1859.72 s [opt-env-conf-test] _ ->
  9692. 1859.72 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9693. 1859.72 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9694. 1860.27 s [opt-env-conf-test] (Just (renderArg a), consumed)
  9695. 1860.27 s [opt-env-conf-test] ]
  9696. 1860.27 s [opt-env-conf-test] )
  9697. 1860.27 s [opt-env-conf-test]
  9698. 1860.27 s [opt-env-conf-test] -- | Consume an option.
  9699. 1860.27 s [opt-env-conf-test] --
  9700. 1860.27 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:222:31-71
  9701. 1860.27 s [opt-env-conf-test] @@ -219,7 +219,7 @@
  9702. 1860.27 s [opt-env-conf-test] consumeOption :: [Dashed] -> Args -> Maybe (String, Args)
  9703. 1860.27 s [opt-env-conf-test] consumeOption dasheds as = do
  9704. 1860.27 s [opt-env-conf-test] case go (argsBefore as) of
  9705. 1860.27 s [opt-env-conf-test] - Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  9706. 1860.27 s [opt-env-conf-test] + Just (val, newBefores) -> Nothing
  9707. 1860.27 s [opt-env-conf-test] Nothing ->
  9708. 1860.27 s [opt-env-conf-test] -- TODO option value on the border
  9709. 1860.27 s [opt-env-conf-test] case go (argsAfter as) of
  9710. 1860.27 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
  9711. 1860.27 s [opt-env-conf-test] @@ -135,77 +135,8 @@
  9712. 1860.27 s [opt-env-conf-test] Nothing -> r
  9713. 1860.27 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  9714. 1860.27 s [opt-env-conf-test]
  9715. 1860.27 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  9716. 1860.27 s [opt-env-conf-test] [] -> []
  9717. 1860.27 s [opt-env-conf-test] - (firstArg : afters) ->
  9718. 1860.27 s [opt-env-conf-test] - let befores = argsBefore as
  9719. 1860.28 s [opt-env-conf-test] - consumed = Args (befores ++ [Dead]) afters
  9720. 1860.28 s [opt-env-conf-test] - in case firstArg of
  9721. 1860.28 s [opt-env-conf-test] - -- Skip any dead argument
  9722. 1860.28 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  9723. 1860.28 s [opt-env-conf-test] - Live a -> case a of
  9724. 1860.28 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  9725. 1860.28 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  9726. 1860.28 s [opt-env-conf-test] - -- A single dash is always an argument
  9727. 1860.28 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  9728. 1860.28 s [opt-env-conf-test] - -- Bare double-dash
  9729. 1860.28 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  9730. 1860.28 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  9731. 1860.28 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  9732. 1860.28 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  9733. 1860.28 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  9734. 1860.28 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  9735. 1860.28 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  9736. 1860.28 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  9737. 1860.28 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  9738. 1860.28 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  9739. 1860.28 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  9740. 1860.28 s [opt-env-conf-test] - -- pop the args as they come.
  9741. 1860.28 s [opt-env-conf-test] - _ ->
  9742. 1860.28 s [opt-env-conf-test] - let go = \case
  9743. 1860.28 s [opt-env-conf-test] - [] -> Nothing
  9744. 1860.28 s [opt-env-conf-test] - (Dead : rest) -> go rest
  9745. 1860.28 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  9746. 1860.28 s [opt-env-conf-test] - in case go afters of
  9747. 1860.28 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  9748. 1860.28 s [opt-env-conf-test] - Just (firstLive, rest) ->
  9749. 1860.28 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  9750. 1860.28 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  9751. 1860.28 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  9752. 1860.28 s [opt-env-conf-test] - -- arguments.
  9753. 1860.28 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  9754. 1860.28 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  9755. 1860.28 s [opt-env-conf-test] - )
  9756. 1860.28 s [opt-env-conf-test] - ]
  9757. 1860.28 s [opt-env-conf-test] - ArgDashed {} ->
  9758. 1860.28 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  9759. 1860.28 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  9760. 1860.28 s [opt-env-conf-test] - -- * The dashed is an argument
  9761. 1860.28 s [opt-env-conf-test] - -- TODO we need to continue looking too
  9762. 1860.28 s [opt-env-conf-test] - let switchCase =
  9763. 1860.28 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  9764. 1860.28 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  9765. 1860.28 s [opt-env-conf-test] - ]
  9766. 1860.28 s [opt-env-conf-test] - in case afters of
  9767. 1860.28 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  9768. 1860.28 s [opt-env-conf-test] - [] -> switchCase
  9769. 1860.28 s [opt-env-conf-test] - (Dead : _) -> switchCase
  9770. 1860.28 s [opt-env-conf-test] - (Live a' : rest) ->
  9771. 1860.28 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  9772. 1860.28 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  9773. 1860.28 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  9774. 1860.28 s [opt-env-conf-test] - -- * The dashed is an argument
  9775. 1860.28 s [opt-env-conf-test] - ( case a' of
  9776. 1863.91 s [opt-env-conf-test] - ArgDashed {} ->
  9777. 1863.91 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  9778. 1864.01 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  9779. 1864.01 s [opt-env-conf-test] - ]
  9780. 1864.01 s [opt-env-conf-test] - _ ->
  9781. 1864.01 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  9782. 1864.01 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  9783. 1864.01 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  9784. 1864.01 s [opt-env-conf-test] - ]
  9785. 1864.01 s [opt-env-conf-test] - )
  9786. 1864.01 s [opt-env-conf-test]
  9787. 1864.01 s [opt-env-conf-test] -- | Consume an option.
  9788. 1864.01 s [opt-env-conf-test] --
  9789. 1864.01 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:226:34-72
  9790. 1864.01 s [opt-env-conf-test] @@ -223,7 +223,7 @@
  9791. 1864.01 s [opt-env-conf-test] Nothing ->
  9792. 1864.01 s [opt-env-conf-test] -- TODO option value on the border
  9793. 1864.01 s [opt-env-conf-test] case go (argsAfter as) of
  9794. 1864.01 s [opt-env-conf-test] - Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  9795. 1864.01 s [opt-env-conf-test] + Just (val, newAfters) -> Nothing
  9796. 1864.01 s [opt-env-conf-test] Nothing -> Nothing
  9797. 1864.01 s [opt-env-conf-test] where
  9798. 1864.01 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  9799. 1864.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  9800. 1864.01 s [opt-env-conf-test] @@ -222,9 +222,8 @@
  9801. 1864.01 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  9802. 1864.01 s [opt-env-conf-test] Nothing ->
  9803. 1864.01 s [opt-env-conf-test] -- TODO option value on the border
  9804. 1864.01 s [opt-env-conf-test] case go (argsAfter as) of
  9805. 1864.01 s [opt-env-conf-test] - Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  9806. 1864.01 s [opt-env-conf-test] Nothing -> Nothing
  9807. 1864.01 s [opt-env-conf-test] where
  9808. 1864.01 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  9809. 1864.01 s [opt-env-conf-test] go = \case
  9810. 1864.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  9811. 1864.01 s [opt-env-conf-test] @@ -222,9 +222,8 @@
  9812. 1864.01 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  9813. 1864.01 s [opt-env-conf-test] Nothing ->
  9814. 1864.01 s [opt-env-conf-test] -- TODO option value on the border
  9815. 1864.01 s [opt-env-conf-test] case go (argsAfter as) of
  9816. 1864.01 s [opt-env-conf-test] Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  9817. 1864.01 s [opt-env-conf-test] - Nothing -> Nothing
  9818. 1864.01 s [opt-env-conf-test] where
  9819. 1864.01 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  9820. 1864.01 s [opt-env-conf-test] go = \case
  9821. 1864.01 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
  9822. 1864.01 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  9823. 1864.01 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  9824. 1864.01 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  9825. 1864.01 s [opt-env-conf-test] ArgDashed isLong cs ->
  9826. 1864.01 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  9827. 1864.01 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds True cs of
  9828. 1864.01 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  9829. 1864.01 s [opt-env-conf-test] Nothing ->
  9830. 1864.01 s [opt-env-conf-test] case rest of
  9831. 1864.01 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
  9832. 1864.01 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  9833. 1864.01 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  9834. 1864.01 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  9835. 1864.01 s [opt-env-conf-test] ArgDashed isLong cs ->
  9836. 1864.01 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  9837. 1864.01 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds False cs of
  9838. 1864.01 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  9839. 1864.01 s [opt-env-conf-test] Nothing ->
  9840. 1864.01 s [opt-env-conf-test] case rest of
  9841. 1864.01 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:240:55-61
  9842. 1864.01 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  9843. 1864.01 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  9844. 1864.01 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  9845. 1864.01 s [opt-env-conf-test] ArgDashed isLong cs ->
  9846. 1864.01 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  9847. 1864.01 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds not (isLong) cs of
  9848. 1864.01 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  9849. 1864.01 s [opt-env-conf-test] Nothing ->
  9850. 1864.01 s [opt-env-conf-test] case rest of
  9851. 1864.01 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:241:25-46
  9852. 1864.02 s [opt-env-conf-test] @@ -238,7 +238,7 @@
  9853. 1864.02 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  9854. 1864.02 s [opt-env-conf-test] ArgDashed isLong cs ->
  9855. 1864.02 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  9856. 1864.02 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  9857. 1864.02 s [opt-env-conf-test] + Just v -> Nothing
  9858. 1864.02 s [opt-env-conf-test] Nothing ->
  9859. 1864.02 s [opt-env-conf-test] case rest of
  9860. 1864.02 s [opt-env-conf-test] (Live v : rest') ->
  9861. 1864.02 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:365:34-43
  9862. 1864.02 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  9863. 1864.02 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  9864. 1864.02 s [opt-env-conf-test] go (c :| rest) =
  9865. 1864.02 s [opt-env-conf-test] if c `elem` cs
  9866. 1864.02 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  9867. 1864.02 s [opt-env-conf-test] + then Just $ (\ne -> (ne, not (null rest))) <$> NE.nonEmpty rest
  9868. 1864.02 s [opt-env-conf-test] else do
  9869. 1864.02 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  9870. 1864.02 s [opt-env-conf-test] new <- go rest'
  9871. 1864.02 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
  9872. 1864.02 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  9873. 1864.02 s [opt-env-conf-test] Nothing ->
  9874. 1864.02 s [opt-env-conf-test] case rest of
  9875. 1864.02 s [opt-env-conf-test] (Live v : rest') ->
  9876. 1864.02 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  9877. 1864.02 s [opt-env-conf-test] + case consumeDashedOption dasheds True cs of
  9878. 1864.02 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  9879. 1864.02 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  9880. 1864.02 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9881. 1864.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
  9882. 1864.02 s [opt-env-conf-test] @@ -403,7 +403,6 @@
  9883. 1864.02 s [opt-env-conf-test]
  9884. 1864.02 s [opt-env-conf-test] renderDashed :: Dashed -> String
  9885. 1864.02 s [opt-env-conf-test] renderDashed = \case
  9886. 1864.02 s [opt-env-conf-test] - DashedShort c -> ['-', c]
  9887. 1864.02 s [opt-env-conf-test] DashedLong cs -> '-' : '-' : NE.toList cs
  9888. 1864.02 s [opt-env-conf-test]
  9889. 1864.02 s [opt-env-conf-test] prefixDashed :: String -> Dashed -> Dashed
  9890. 1864.02 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
  9891. 1864.02 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  9892. 1864.02 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  9893. 1864.02 s [opt-env-conf-test] go (c :| rest) =
  9894. 1864.02 s [opt-env-conf-test] if c `elem` cs
  9895. 1864.02 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  9896. 1864.02 s [opt-env-conf-test] + then Just $ (\ne -> (ne, True)) <$> NE.nonEmpty rest
  9897. 1864.02 s [opt-env-conf-test] else do
  9898. 1864.02 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  9899. 1864.02 s [opt-env-conf-test] new <- go rest'
  9900. 1864.02 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
  9901. 1864.02 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  9902. 1864.02 s [opt-env-conf-test] Nothing ->
  9903. 1864.02 s [opt-env-conf-test] case rest of
  9904. 1864.02 s [opt-env-conf-test] (Live v : rest') ->
  9905. 1864.02 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  9906. 1864.02 s [opt-env-conf-test] + case consumeDashedOption dasheds False cs of
  9907. 1864.02 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  9908. 1864.02 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  9909. 1864.02 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9910. 1864.02 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
  9911. 1864.02 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  9912. 1864.02 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  9913. 1864.02 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  9914. 1864.02 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  9915. 1864.02 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9916. 1864.02 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
  9917. 1864.02 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9918. 1864.02 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9919. 1864.02 s [opt-env-conf-test]
  9920. 1864.02 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:248:77-83
  9921. 1864.02 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  9922. 1864.02 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  9923. 1864.02 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  9924. 1864.02 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  9925. 1869.81 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9926. 1869.83 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed not (isLong) cs') : Dead : rest')
  9927. 1869.83 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9928. 1869.83 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9929. 1869.83 s [opt-env-conf-test]
  9930. 1869.83 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:248:42-104
  9931. 1869.83 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  9932. 1869.83 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  9933. 1869.83 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  9934. 1869.83 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  9935. 1869.84 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9936. 1869.84 s [opt-env-conf-test] + Just (Just cs') -> Nothing
  9937. 1869.84 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9938. 1869.84 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9939. 1869.84 s [opt-env-conf-test]
  9940. 1869.84 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  9941. 1869.84 s [opt-env-conf-test] @@ -242,10 +242,9 @@
  9942. 1869.84 s [opt-env-conf-test] Nothing ->
  9943. 1869.84 s [opt-env-conf-test] case rest of
  9944. 1869.84 s [opt-env-conf-test] (Live v : rest') ->
  9945. 1869.84 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  9946. 1869.84 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  9947. 1869.84 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  9948. 1869.84 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9949. 1869.84 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9950. 1869.84 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9951. 1869.84 s [opt-env-conf-test]
  9952. 1869.84 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  9953. 1869.84 s [opt-env-conf-test] @@ -242,10 +242,9 @@
  9954. 1869.84 s [opt-env-conf-test] Nothing ->
  9955. 1869.84 s [opt-env-conf-test] case rest of
  9956. 1869.84 s [opt-env-conf-test] (Live v : rest') ->
  9957. 1869.84 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  9958. 1869.84 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  9959. 1869.84 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  9960. 1869.84 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9961. 1869.84 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9962. 1869.84 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9963. 1869.84 s [opt-env-conf-test]
  9964. 1869.84 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  9965. 1869.84 s [opt-env-conf-test] @@ -242,10 +242,9 @@
  9966. 1869.84 s [opt-env-conf-test] Nothing ->
  9967. 1869.84 s [opt-env-conf-test] case rest of
  9968. 1869.84 s [opt-env-conf-test] (Live v : rest') ->
  9969. 1869.84 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  9970. 1869.84 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  9971. 1869.84 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  9972. 1869.84 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9973. 1869.84 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9974. 1869.84 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9975. 1869.84 s [opt-env-conf-test]
  9976. 1869.84 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
  9977. 1869.84 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  9978. 1869.84 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  9979. 1869.84 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  9980. 1869.84 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  9981. 1869.85 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9982. 1869.85 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed True cs') : Dead : rest')
  9983. 1869.85 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9984. 1869.85 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9985. 1869.85 s [opt-env-conf-test]
  9986. 1869.85 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:247:39-71
  9987. 1869.85 s [opt-env-conf-test] @@ -244,7 +244,7 @@
  9988. 1869.85 s [opt-env-conf-test] (Live v : rest') ->
  9989. 1869.85 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  9990. 1869.85 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  9991. 1869.85 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  9992. 1869.85 s [opt-env-conf-test] + Just Nothing -> Nothing
  9993. 1869.85 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  9994. 1869.85 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9995. 1869.85 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  9996. 1869.85 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:245:54-60
  9997. 1869.85 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  9998. 1869.85 s [opt-env-conf-test] Nothing ->
  9999. 1869.85 s [opt-env-conf-test] case rest of
  10000. 1869.85 s [opt-env-conf-test] (Live v : rest') ->
  10001. 1869.85 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  10002. 1869.85 s [opt-env-conf-test] + case consumeDashedOption dasheds not (isLong) cs of
  10003. 1869.85 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  10004. 1869.85 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  10005. 1869.85 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  10006. 1869.85 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
  10007. 1869.85 s [opt-env-conf-test] @@ -240,13 +240,12 @@
  10008. 1869.85 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  10009. 1869.85 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  10010. 1869.85 s [opt-env-conf-test] Nothing ->
  10011. 1869.85 s [opt-env-conf-test] case rest of
  10012. 1869.85 s [opt-env-conf-test] (Live v : rest') ->
  10013. 1869.85 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  10014. 1869.85 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  10015. 1869.85 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  10016. 1869.85 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  10017. 1869.85 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  10018. 1869.85 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10019. 1869.85 s [opt-env-conf-test]
  10020. 1869.85 s [opt-env-conf-test] consumeDashedShorthandOption ::
  10021. 1869.85 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
  10022. 1869.85 s [opt-env-conf-test] @@ -240,13 +240,8 @@
  10023. 1869.85 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  10024. 1869.85 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  10025. 1869.85 s [opt-env-conf-test] Nothing ->
  10026. 1869.85 s [opt-env-conf-test] case rest of
  10027. 1869.85 s [opt-env-conf-test] - (Live v : rest') ->
  10028. 1869.85 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  10029. 1869.85 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  10030. 1869.85 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  10031. 1869.85 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  10032. 1869.85 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10033. 1869.85 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10034. 1869.85 s [opt-env-conf-test]
  10035. 1869.85 s [opt-env-conf-test] consumeDashedShorthandOption ::
  10036. 1869.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
  10037. 1869.86 s [opt-env-conf-test] @@ -237,16 +237,15 @@
  10038. 1869.86 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  10039. 1869.86 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  10040. 1869.86 s [opt-env-conf-test] ArgDashed isLong cs ->
  10041. 1869.86 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  10042. 1869.86 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  10043. 1869.86 s [opt-env-conf-test] Nothing ->
  10044. 1869.86 s [opt-env-conf-test] case rest of
  10045. 1869.86 s [opt-env-conf-test] (Live v : rest') ->
  10046. 1869.86 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  10047. 1869.86 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  10048. 1869.86 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  10049. 1869.86 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  10050. 1869.86 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10051. 1869.86 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10052. 1869.86 s [opt-env-conf-test]
  10053. 1869.86 s [opt-env-conf-test] consumeDashedShorthandOption ::
  10054. 1869.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  10055. 1869.86 s [opt-env-conf-test] @@ -233,21 +233,20 @@
  10056. 1869.86 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  10057. 1869.86 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  10058. 1869.86 s [opt-env-conf-test] (Live k : rest) ->
  10059. 1869.86 s [opt-env-conf-test] case k of
  10060. 1869.86 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  10061. 1869.86 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  10062. 1869.86 s [opt-env-conf-test] ArgDashed isLong cs ->
  10063. 1869.86 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  10064. 1869.86 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  10065. 1869.86 s [opt-env-conf-test] Nothing ->
  10066. 1869.86 s [opt-env-conf-test] case rest of
  10067. 1872.93 s [opt-env-conf-test] (Live v : rest') ->
  10068. 1872.93 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  10069. 1872.93 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  10070. 1872.93 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  10071. 1872.93 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  10072. 1872.93 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10073. 1872.93 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  10074. 1872.93 s [opt-env-conf-test]
  10075. 1872.93 s [opt-env-conf-test] consumeDashedShorthandOption ::
  10076. 1872.93 s [opt-env-conf-test] [Dashed] ->
  10077. 1872.93 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:387:23-41
  10078. 1872.93 s [opt-env-conf-test] @@ -384,7 +384,7 @@
  10079. 1872.93 s [opt-env-conf-test] live =
  10080. 1872.93 s [opt-env-conf-test] mapMaybe
  10081. 1872.93 s [opt-env-conf-test] ( \case
  10082. 1872.93 s [opt-env-conf-test] - Live a -> Just (renderArg a)
  10083. 1872.93 s [opt-env-conf-test] + Live a -> Nothing
  10084. 1872.93 s [opt-env-conf-test] Dead -> Nothing
  10085. 1872.93 s [opt-env-conf-test] )
  10086. 1872.93 s [opt-env-conf-test]
  10087. 1872.93 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:79:26-30
  10088. 1872.93 s [opt-env-conf-test] @@ -76,7 +76,7 @@
  10089. 1872.93 s [opt-env-conf-test] parseArg = \case
  10090. 1872.93 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  10091. 1872.93 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  10092. 1872.93 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  10093. 1872.93 s [opt-env-conf-test] + Just ne -> ArgDashed False ne
  10094. 1872.93 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  10095. 1872.93 s [opt-env-conf-test] Nothing -> ArgBareDash
  10096. 1872.93 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  10097. 1872.93 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
  10098. 1872.93 s [opt-env-conf-test] @@ -74,9 +74,8 @@
  10099. 1872.93 s [opt-env-conf-test]
  10100. 1872.93 s [opt-env-conf-test] parseArg :: String -> Arg
  10101. 1872.93 s [opt-env-conf-test] parseArg = \case
  10102. 1872.93 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  10103. 1872.93 s [opt-env-conf-test] - Nothing -> ArgBareDoubleDash
  10104. 1872.93 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  10105. 1872.93 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  10106. 1872.93 s [opt-env-conf-test] Nothing -> ArgBareDash
  10107. 1872.93 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  10108. 1872.93 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
  10109. 1872.93 s [opt-env-conf-test] @@ -74,9 +74,8 @@
  10110. 1872.93 s [opt-env-conf-test]
  10111. 1872.93 s [opt-env-conf-test] parseArg :: String -> Arg
  10112. 1872.94 s [opt-env-conf-test] parseArg = \case
  10113. 1872.94 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  10114. 1872.94 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  10115. 1872.94 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  10116. 1872.94 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  10117. 1872.94 s [opt-env-conf-test] Nothing -> ArgBareDash
  10118. 1872.94 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  10119. 1872.94 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:82:26-31
  10120. 1872.94 s [opt-env-conf-test] @@ -79,7 +79,7 @@
  10121. 1872.94 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  10122. 1872.94 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  10123. 1872.94 s [opt-env-conf-test] Nothing -> ArgBareDash
  10124. 1872.94 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  10125. 1872.94 s [opt-env-conf-test] + Just ne -> ArgDashed True ne
  10126. 1872.94 s [opt-env-conf-test] s -> ArgPlain s
  10127. 1872.94 s [opt-env-conf-test]
  10128. 1872.94 s [opt-env-conf-test] renderArg :: Arg -> String
  10129. 1872.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
  10130. 1872.94 s [opt-env-conf-test] @@ -77,9 +77,8 @@
  10131. 1872.94 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  10132. 1872.94 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  10133. 1872.94 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  10134. 1872.94 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  10135. 1872.94 s [opt-env-conf-test] - Nothing -> ArgBareDash
  10136. 1872.94 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  10137. 1872.94 s [opt-env-conf-test] s -> ArgPlain s
  10138. 1872.94 s [opt-env-conf-test]
  10139. 1872.94 s [opt-env-conf-test] renderArg :: Arg -> String
  10140. 1872.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
  10141. 1872.94 s [opt-env-conf-test] @@ -77,9 +77,8 @@
  10142. 1872.94 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  10143. 1872.94 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  10144. 1872.94 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  10145. 1872.94 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  10146. 1872.94 s [opt-env-conf-test] Nothing -> ArgBareDash
  10147. 1872.94 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  10148. 1872.94 s [opt-env-conf-test] s -> ArgPlain s
  10149. 1872.94 s [opt-env-conf-test]
  10150. 1872.94 s [opt-env-conf-test] renderArg :: Arg -> String
  10151. 1872.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  10152. 1872.94 s [opt-env-conf-test] @@ -396,10 +396,9 @@
  10153. 1872.94 s [opt-env-conf-test] instance Validity Dashed
  10154. 1872.94 s [opt-env-conf-test]
  10155. 1872.94 s [opt-env-conf-test] instance IsString Dashed where
  10156. 1872.94 s [opt-env-conf-test] fromString s = case fromString s of
  10157. 1872.94 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  10158. 1872.94 s [opt-env-conf-test] ArgDashed False (c :| []) -> DashedShort c
  10159. 1872.94 s [opt-env-conf-test] _ -> error "Invalid dashed"
  10160. 1872.94 s [opt-env-conf-test]
  10161. 1872.94 s [opt-env-conf-test] renderDashed :: Dashed -> String
  10162. 1872.94 s [opt-env-conf-test] renderDashed = \case
  10163. 1872.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  10164. 1872.94 s [opt-env-conf-test] @@ -396,10 +396,9 @@
  10165. 1872.94 s [opt-env-conf-test] instance Validity Dashed
  10166. 1872.94 s [opt-env-conf-test]
  10167. 1872.94 s [opt-env-conf-test] instance IsString Dashed where
  10168. 1872.94 s [opt-env-conf-test] fromString s = case fromString s of
  10169. 1872.94 s [opt-env-conf-test] ArgDashed True cs -> DashedLong cs
  10170. 1872.94 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  10171. 1872.94 s [opt-env-conf-test] _ -> error "Invalid dashed"
  10172. 1872.94 s [opt-env-conf-test]
  10173. 1872.94 s [opt-env-conf-test] renderDashed :: Dashed -> String
  10174. 1872.94 s [opt-env-conf-test] renderDashed = \case
  10175. 1872.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  10176. 1872.94 s [opt-env-conf-test] @@ -396,10 +396,9 @@
  10177. 1872.94 s [opt-env-conf-test] instance Validity Dashed
  10178. 1872.94 s [opt-env-conf-test]
  10179. 1872.94 s [opt-env-conf-test] instance IsString Dashed where
  10180. 1872.94 s [opt-env-conf-test] fromString s = case fromString s of
  10181. 1872.94 s [opt-env-conf-test] ArgDashed True cs -> DashedLong cs
  10182. 1872.94 s [opt-env-conf-test] ArgDashed False (c :| []) -> DashedShort c
  10183. 1872.94 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  10184. 1872.94 s [opt-env-conf-test]
  10185. 1872.94 s [opt-env-conf-test] renderDashed :: Dashed -> String
  10186. 1872.94 s [opt-env-conf-test] renderDashed = \case
  10187. 1872.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
  10188. 1872.94 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  10189. 1872.94 s [opt-env-conf-test] mconcat
  10190. 1872.94 s [opt-env-conf-test] [ genericValidate arg,
  10191. 1872.94 s [opt-env-conf-test] case arg of
  10192. 1872.94 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10193. 1872.94 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
  10194. 1872.94 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10195. 1872.94 s [opt-env-conf-test] ('-' : _) -> False
  10196. 1872.94 s [opt-env-conf-test] _ -> True
  10197. 1872.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
  10198. 1872.94 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  10199. 1872.94 s [opt-env-conf-test] mconcat
  10200. 1872.94 s [opt-env-conf-test] [ genericValidate arg,
  10201. 1872.95 s [opt-env-conf-test] case arg of
  10202. 1872.95 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10203. 1872.95 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ False
  10204. 1872.95 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10205. 1872.95 s [opt-env-conf-test] ('-' : _) -> False
  10206. 1872.95 s [opt-env-conf-test] _ -> True
  10207. 1872.95 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:65:103-111
  10208. 1872.95 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  10209. 1872.95 s [opt-env-conf-test] mconcat
  10210. 1872.95 s [opt-env-conf-test] [ genericValidate arg,
  10211. 1872.95 s [opt-env-conf-test] case arg of
  10212. 1872.95 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10213. 1872.95 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ not (c /= '-')
  10214. 1872.95 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10215. 1872.95 s [opt-env-conf-test] ('-' : _) -> False
  10216. 1872.95 s [opt-env-conf-test] _ -> True
  10217. 1872.95 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:67:26-31
  10218. 1872.95 s [opt-env-conf-test] @@ -64,7 +64,7 @@
  10219. 1872.95 s [opt-env-conf-test] case arg of
  10220. 1872.95 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10221. 1872.95 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10222. 1872.95 s [opt-env-conf-test] - ('-' : _) -> False
  10223. 1872.95 s [opt-env-conf-test] + ('-' : _) -> True
  10224. 1872.95 s [opt-env-conf-test] _ -> True
  10225. 1872.95 s [opt-env-conf-test] _ -> valid
  10226. 1872.95 s [opt-env-conf-test] ]
  10227. 1872.95 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:68:18-22
  10228. 1872.95 s [opt-env-conf-test] @@ -65,7 +65,7 @@
  10229. 1872.95 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10230. 1872.95 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10231. 1872.95 s [opt-env-conf-test] ('-' : _) -> False
  10232. 1872.95 s [opt-env-conf-test] - _ -> True
  10233. 1872.95 s [opt-env-conf-test] + _ -> False
  10234. 1872.95 s [opt-env-conf-test] _ -> valid
  10235. 1872.95 s [opt-env-conf-test] ]
  10236. 1872.95 s [opt-env-conf-test]
  10237. 1872.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
  10238. 1872.95 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  10239. 1872.95 s [opt-env-conf-test] [ genericValidate arg,
  10240. 1872.95 s [opt-env-conf-test] case arg of
  10241. 1872.95 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10242. 1872.95 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  10243. 1872.95 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ True-> declare "does not start with a dash" $ case s of
  10244. 1872.95 s [opt-env-conf-test] ('-' : _) -> False
  10245. 1872.95 s [opt-env-conf-test] _ -> True
  10246. 1872.95 s [opt-env-conf-test] _ -> valid
  10247. 1872.95 s [opt-env-conf-test] ]
  10248. 1872.95 s [opt-env-conf-test]
  10249. 1872.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
  10250. 1872.95 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  10251. 1872.95 s [opt-env-conf-test] [ genericValidate arg,
  10252. 1872.95 s [opt-env-conf-test] case arg of
  10253. 1878.83 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10254. 1878.83 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  10255. 1878.85 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ False-> declare "does not start with a dash" $ case s of
  10256. 1878.85 s [opt-env-conf-test] ('-' : _) -> False
  10257. 1878.86 s [opt-env-conf-test] _ -> True
  10258. 1878.86 s [opt-env-conf-test] _ -> valid
  10259. 1878.86 s [opt-env-conf-test] ]
  10260. 1878.86 s [opt-env-conf-test]
  10261. 1878.86 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:66:64-22
  10262. 1878.86 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  10263. 1878.86 s [opt-env-conf-test] [ genericValidate arg,
  10264. 1878.86 s [opt-env-conf-test] case arg of
  10265. 1878.86 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10266. 1878.86 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  10267. 1878.86 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ not (case s of
  10268. 1878.86 s [opt-env-conf-test] ('-' : _) -> False
  10269. 1878.86 s [opt-env-conf-test] - _ -> True
  10270. 1878.86 s [opt-env-conf-test] + _ -> True)
  10271. 1878.86 s [opt-env-conf-test] _ -> valid
  10272. 1878.86 s [opt-env-conf-test] ]
  10273. 1878.86 s [opt-env-conf-test]
  10274. 1878.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  10275. 1878.86 s [opt-env-conf-test] @@ -63,9 +63,8 @@
  10276. 1878.86 s [opt-env-conf-test] [ genericValidate arg,
  10277. 1878.86 s [opt-env-conf-test] case arg of
  10278. 1878.86 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10279. 1878.86 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10280. 1878.86 s [opt-env-conf-test] - ('-' : _) -> False
  10281. 1878.86 s [opt-env-conf-test] _ -> True
  10282. 1878.86 s [opt-env-conf-test] _ -> valid
  10283. 1878.86 s [opt-env-conf-test] ]
  10284. 1878.86 s [opt-env-conf-test]
  10285. 1878.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  10286. 1878.86 s [opt-env-conf-test] @@ -63,9 +63,8 @@
  10287. 1878.86 s [opt-env-conf-test] [ genericValidate arg,
  10288. 1878.86 s [opt-env-conf-test] case arg of
  10289. 1878.86 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10290. 1878.86 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10291. 1878.86 s [opt-env-conf-test] ('-' : _) -> False
  10292. 1878.86 s [opt-env-conf-test] - _ -> True
  10293. 1878.86 s [opt-env-conf-test] _ -> valid
  10294. 1878.86 s [opt-env-conf-test] ]
  10295. 1878.86 s [opt-env-conf-test]
  10296. 1878.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  10297. 1878.87 s [opt-env-conf-test] @@ -233,21 +233,10 @@
  10298. 1878.87 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  10299. 1878.87 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  10300. 1878.87 s [opt-env-conf-test] (Live k : rest) ->
  10301. 1878.87 s [opt-env-conf-test] case k of
  10302. 1878.87 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  10303. 1878.87 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  10304. 1878.87 s [opt-env-conf-test] - ArgDashed isLong cs ->
  10305. 1878.87 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  10306. 1878.87 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  10307. 1878.87 s [opt-env-conf-test] - Nothing ->
  10308. 1878.87 s [opt-env-conf-test] - case rest of
  10309. 1878.87 s [opt-env-conf-test] - (Live v : rest') ->
  10310. 1878.87 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  10311. 1878.87 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  10312. 1878.87 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  10313. 1878.87 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  10314. 1878.87 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  10315. 1878.87 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10316. 1878.87 s [opt-env-conf-test]
  10317. 1878.87 s [opt-env-conf-test] consumeDashedShorthandOption ::
  10318. 1878.87 s [opt-env-conf-test] [Dashed] ->
  10319. 1878.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  10320. 1878.87 s [opt-env-conf-test] @@ -61,12 +61,11 @@
  10321. 1878.87 s [opt-env-conf-test] validate arg =
  10322. 1878.87 s [opt-env-conf-test] mconcat
  10323. 1878.87 s [opt-env-conf-test] [ genericValidate arg,
  10324. 1878.87 s [opt-env-conf-test] case arg of
  10325. 1878.87 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10326. 1878.87 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10327. 1878.87 s [opt-env-conf-test] ('-' : _) -> False
  10328. 1878.87 s [opt-env-conf-test] _ -> True
  10329. 1878.87 s [opt-env-conf-test] _ -> valid
  10330. 1878.87 s [opt-env-conf-test] ]
  10331. 1878.87 s [opt-env-conf-test]
  10332. 1878.87 s [opt-env-conf-test] instance IsString Arg where
  10333. 1878.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
  10334. 1878.87 s [opt-env-conf-test] @@ -237,16 +237,8 @@
  10335. 1878.87 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  10336. 1878.87 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  10337. 1878.88 s [opt-env-conf-test] ArgDashed isLong cs ->
  10338. 1878.88 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  10339. 1878.88 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  10340. 1878.88 s [opt-env-conf-test] - Nothing ->
  10341. 1878.88 s [opt-env-conf-test] - case rest of
  10342. 1878.88 s [opt-env-conf-test] - (Live v : rest') ->
  10343. 1878.88 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  10344. 1878.88 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  10345. 1878.88 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  10346. 1878.88 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  10347. 1878.88 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  10348. 1878.88 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10349. 1878.88 s [opt-env-conf-test]
  10350. 1878.88 s [opt-env-conf-test] consumeDashedShorthandOption ::
  10351. 1878.88 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  10352. 1878.88 s [opt-env-conf-test] @@ -61,12 +61,9 @@
  10353. 1878.88 s [opt-env-conf-test] validate arg =
  10354. 1878.88 s [opt-env-conf-test] mconcat
  10355. 1878.88 s [opt-env-conf-test] [ genericValidate arg,
  10356. 1878.88 s [opt-env-conf-test] case arg of
  10357. 1878.88 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10358. 1878.88 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  10359. 1878.88 s [opt-env-conf-test] - ('-' : _) -> False
  10360. 1878.88 s [opt-env-conf-test] - _ -> True
  10361. 1878.88 s [opt-env-conf-test] _ -> valid
  10362. 1878.88 s [opt-env-conf-test] ]
  10363. 1878.88 s [opt-env-conf-test]
  10364. 1878.88 s [opt-env-conf-test] instance IsString Arg where
  10365. 1878.88 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  10366. 1878.88 s [opt-env-conf-test] @@ -61,12 +61,11 @@
  10367. 1878.88 s [opt-env-conf-test] validate arg =
  10368. 1878.88 s [opt-env-conf-test] mconcat
  10369. 1878.88 s [opt-env-conf-test] [ genericValidate arg,
  10370. 1878.88 s [opt-env-conf-test] case arg of
  10371. 1878.88 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10372. 1878.88 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10373. 1878.88 s [opt-env-conf-test] ('-' : _) -> False
  10374. 1878.88 s [opt-env-conf-test] _ -> True
  10375. 1878.88 s [opt-env-conf-test] - _ -> valid
  10376. 1878.88 s [opt-env-conf-test] ]
  10377. 1878.88 s [opt-env-conf-test]
  10378. 1878.88 s [opt-env-conf-test] instance IsString Arg where
  10379. 1878.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
  10380. 1878.88 s [opt-env-conf-test] @@ -60,14 +60,7 @@
  10381. 1878.88 s [opt-env-conf-test] instance Validity Arg where
  10382. 1878.88 s [opt-env-conf-test] validate arg =
  10383. 1878.88 s [opt-env-conf-test] mconcat
  10384. 1878.88 s [opt-env-conf-test] - [ genericValidate arg,
  10385. 1878.88 s [opt-env-conf-test] - case arg of
  10386. 1878.88 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10387. 1878.88 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  10388. 1878.88 s [opt-env-conf-test] - ('-' : _) -> False
  10389. 1878.88 s [opt-env-conf-test] - _ -> True
  10390. 1878.88 s [opt-env-conf-test] - _ -> valid
  10391. 1878.88 s [opt-env-conf-test] ]
  10392. 1878.89 s [opt-env-conf-test]
  10393. 1878.89 s [opt-env-conf-test] instance IsString Arg where
  10394. 1878.89 s [opt-env-conf-test] fromString = parseArg
  10395. 1878.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
  10396. 1878.89 s [opt-env-conf-test] @@ -60,14 +60,13 @@
  10397. 1878.89 s [opt-env-conf-test] instance Validity Arg where
  10398. 1878.89 s [opt-env-conf-test] validate arg =
  10399. 1878.89 s [opt-env-conf-test] mconcat
  10400. 1878.89 s [opt-env-conf-test] - [ genericValidate arg,
  10401. 1878.89 s [opt-env-conf-test] case arg of
  10402. 1878.89 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  10403. 1878.89 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  10404. 1878.89 s [opt-env-conf-test] ('-' : _) -> False
  10405. 1878.89 s [opt-env-conf-test] _ -> True
  10406. 1878.89 s [opt-env-conf-test] _ -> valid
  10407. 1878.89 s [opt-env-conf-test] ]
  10408. 1878.89 s [opt-env-conf-test]
  10409. 1878.89 s [opt-env-conf-test] instance IsString Arg where
  10410. 1878.89 s [opt-env-conf-test] fromString = parseArg
  10411. 1878.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
  10412. 1878.89 s [opt-env-conf-test] @@ -93,6 +93,5 @@
  10413. 1878.89 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  10414. 1878.89 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  10415. 1878.89 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  10416. 1878.89 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  10417. 1878.89 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  10418. 1878.89 s [opt-env-conf-test] goCommand = go . commandParser
  10419. 1878.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  10420. 1878.89 s [opt-env-conf-test] @@ -233,21 +233,20 @@
  10421. 1878.89 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  10422. 1878.89 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  10423. 1878.89 s [opt-env-conf-test] (Live k : rest) ->
  10424. 1878.89 s [opt-env-conf-test] case k of
  10425. 1878.89 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  10426. 1878.89 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  10427. 1878.89 s [opt-env-conf-test] ArgDashed isLong cs ->
  10428. 1878.89 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  10429. 1878.89 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  10430. 1878.89 s [opt-env-conf-test] Nothing ->
  10431. 1878.89 s [opt-env-conf-test] case rest of
  10432. 1878.89 s [opt-env-conf-test] (Live v : rest') ->
  10433. 1878.89 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  10434. 1878.89 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  10435. 1878.89 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  10436. 1878.89 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  10437. 1878.89 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10438. 1878.89 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  10439. 1878.89 s [opt-env-conf-test]
  10440. 1882.33 s [opt-env-conf-test] consumeDashedShorthandOption ::
  10441. 1882.33 s [opt-env-conf-test] [Dashed] ->
  10442. 1882.33 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  10443. 1882.33 s [opt-env-conf-test] @@ -91,8 +91,7 @@
  10444. 1882.33 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  10445. 1882.33 s [opt-env-conf-test]
  10446. 1882.33 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  10447. 1882.33 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  10448. 1882.33 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  10449. 1882.33 s [opt-env-conf-test] _ -> OptionTypeOneOf [ot1, ot2]
  10450. 1882.33 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  10451. 1882.33 s [opt-env-conf-test] goCommand = go . commandParser
  10452. 1882.33 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Nix.hs:90:47-55
  10453. 1882.33 s [opt-env-conf-test] @@ -87,7 +87,7 @@
  10454. 1882.33 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  10455. 1882.33 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  10456. 1882.33 s [opt-env-conf-test] (Nothing, _) -> o2
  10457. 1882.33 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  10458. 1882.33 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Nothing}
  10459. 1882.33 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  10460. 1882.33 s [opt-env-conf-test]
  10461. 1882.33 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  10462. 1882.33 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
  10463. 1882.33 s [opt-env-conf-test] @@ -93,6 +93,5 @@
  10464. 1882.33 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  10465. 1882.33 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  10466. 1882.33 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  10467. 1882.33 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  10468. 1882.33 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  10469. 1882.34 s [opt-env-conf-test] goCommand = go . commandParser
  10470. 1882.34 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  10471. 1882.34 s [opt-env-conf-test] @@ -91,8 +91,7 @@
  10472. 1882.34 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  10473. 1882.34 s [opt-env-conf-test]
  10474. 1882.34 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  10475. 1882.34 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  10476. 1882.34 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  10477. 1882.34 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  10478. 1882.34 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  10479. 1882.34 s [opt-env-conf-test] goCommand = go . commandParser
  10480. 1882.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
  10481. 1882.34 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  10482. 1882.34 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  10483. 1882.34 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10484. 1882.34 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  10485. 1882.34 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  10486. 1882.34 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ True
  10487. 1882.34 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10488. 1882.34 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10489. 1882.34 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  10490. 1882.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
  10491. 1882.34 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  10492. 1882.34 s [opt-env-conf-test] where
  10493. 1882.34 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  10494. 1882.34 s [opt-env-conf-test] go (c :| rest) =
  10495. 1882.34 s [opt-env-conf-test] - if c `elem` cs
  10496. 1882.34 s [opt-env-conf-test] + if False
  10497. 1882.34 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  10498. 1882.34 s [opt-env-conf-test] else do
  10499. 1882.34 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  10500. 1882.34 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:364:10-21
  10501. 1882.34 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  10502. 1882.34 s [opt-env-conf-test] where
  10503. 1882.34 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  10504. 1882.34 s [opt-env-conf-test] go (c :| rest) =
  10505. 1882.34 s [opt-env-conf-test] - if c `elem` cs
  10506. 1882.34 s [opt-env-conf-test] + if not (c `elem` cs)
  10507. 1882.34 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  10508. 1882.34 s [opt-env-conf-test] else do
  10509. 1882.34 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  10510. 1882.34 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:372:27-31
  10511. 1882.34 s [opt-env-conf-test] @@ -369,7 +369,7 @@
  10512. 1882.34 s [opt-env-conf-test] pure $
  10513. 1882.34 s [opt-env-conf-test] Just $
  10514. 1882.34 s [opt-env-conf-test] maybe
  10515. 1882.34 s [opt-env-conf-test] - (c :| [], True)
  10516. 1882.34 s [opt-env-conf-test] + (c :| [], False)
  10517. 1882.34 s [opt-env-conf-test] (first (c NE.<|))
  10518. 1882.34 s [opt-env-conf-test] new
  10519. 1882.34 s [opt-env-conf-test]
  10520. 1882.34 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:67:31-36
  10521. 1882.34 s [opt-env-conf-test] @@ -64,7 +64,7 @@
  10522. 1882.34 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  10523. 1882.34 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  10524. 1882.34 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10525. 1882.34 s [opt-env-conf-test] - ParseErrorAllOrNothing _ -> False
  10526. 1882.34 s [opt-env-conf-test] + ParseErrorAllOrNothing _ -> True
  10527. 1882.34 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  10528. 1882.34 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  10529. 1882.34 s [opt-env-conf-test]
  10530. 1882.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
  10531. 1882.34 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  10532. 1882.34 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  10533. 1882.34 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10534. 1882.34 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  10535. 1882.34 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  10536. 1882.34 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> True
  10537. 1882.34 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10538. 1882.34 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10539. 1882.34 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  10540. 1882.34 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Error.hs:65:40-47
  10541. 1882.34 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  10542. 1882.34 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  10543. 1882.34 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10544. 1882.34 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  10545. 1882.34 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  10546. 1882.34 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ not (null cs)
  10547. 1882.34 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10548. 1882.34 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10549. 1882.34 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  10550. 1882.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
  10551. 1882.35 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  10552. 1882.35 s [opt-env-conf-test] where
  10553. 1882.35 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  10554. 1882.35 s [opt-env-conf-test] go (c :| rest) =
  10555. 1882.35 s [opt-env-conf-test] - if c `elem` cs
  10556. 1882.35 s [opt-env-conf-test] + if True
  10557. 1882.35 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  10558. 1882.35 s [opt-env-conf-test] else do
  10559. 1882.35 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  10560. 1882.35 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
  10561. 1882.35 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  10562. 1882.35 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  10563. 1882.35 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10564. 1882.35 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  10565. 1882.35 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  10566. 1882.35 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> False
  10567. 1882.35 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10568. 1882.35 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10569. 1882.35 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  10570. 1882.35 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Error.hs:65:34-47
  10571. 1882.35 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  10572. 1882.35 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  10573. 1882.35 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10574. 1882.35 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  10575. 1882.35 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  10576. 1882.35 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not (not $ null cs)
  10577. 1882.35 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10578. 1882.35 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10579. 1882.35 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  10580. 1882.35 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
  10581. 1882.35 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  10582. 1882.35 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  10583. 1882.35 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10584. 1882.35 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  10585. 1882.35 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  10586. 1882.35 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ False
  10587. 1882.35 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10588. 1882.35 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10589. 1882.35 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  10590. 1882.35 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:64:31-36
  10591. 1882.35 s [opt-env-conf-test] @@ -61,7 +61,7 @@
  10592. 1882.35 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  10593. 1882.35 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  10594. 1882.35 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10595. 1882.35 s [opt-env-conf-test] - ParseErrorConfigRead _ _ -> False
  10596. 1882.35 s [opt-env-conf-test] + ParseErrorConfigRead _ _ -> True
  10597. 1882.35 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  10598. 1882.35 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10599. 1882.35 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10600. 1886.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
  10601. 1886.87 s [opt-env-conf-test] @@ -403,7 +403,6 @@
  10602. 1886.87 s [opt-env-conf-test]
  10603. 1886.87 s [opt-env-conf-test] renderDashed :: Dashed -> String
  10604. 1886.87 s [opt-env-conf-test] renderDashed = \case
  10605. 1886.87 s [opt-env-conf-test] - DashedShort c -> ['-', c]
  10606. 1886.87 s [opt-env-conf-test] DashedLong cs -> '-' : '-' : NE.toList cs
  10607. 1886.87 s [opt-env-conf-test]
  10608. 1886.87 s [opt-env-conf-test] prefixDashed :: String -> Dashed -> Dashed
  10609. 1886.87 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:426:25-31
  10610. 1886.87 s [opt-env-conf-test] @@ -423,6 +423,6 @@
  10611. 1886.87 s [opt-env-conf-test] longDasheds =
  10612. 1886.87 s [opt-env-conf-test] mapMaybe
  10613. 1886.87 s [opt-env-conf-test] ( \case
  10614. 1886.88 s [opt-env-conf-test] - DashedLong l -> Just l
  10615. 1886.88 s [opt-env-conf-test] + DashedLong l -> Nothing
  10616. 1886.88 s [opt-env-conf-test] DashedShort _ -> Nothing
  10617. 1886.88 s [opt-env-conf-test] )
  10618. 1886.88 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:69:36-41
  10619. 1886.88 s [opt-env-conf-test] @@ -66,7 +66,7 @@
  10620. 1886.88 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10621. 1886.88 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10622. 1886.88 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  10623. 1886.88 s [opt-env-conf-test] - ParseErrorMissingCapability _ -> False
  10624. 1886.88 s [opt-env-conf-test] + ParseErrorMissingCapability _ -> True
  10625. 1886.88 s [opt-env-conf-test]
  10626. 1886.88 s [opt-env-conf-test] eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
  10627. 1886.88 s [opt-env-conf-test] eraseErrorSrcLocs = fmap eraseErrorSrcLoc
  10628. 1886.88 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:418:26-32
  10629. 1886.88 s [opt-env-conf-test] @@ -415,7 +415,7 @@
  10630. 1886.88 s [opt-env-conf-test] shortDasheds =
  10631. 1886.88 s [opt-env-conf-test] mapMaybe
  10632. 1886.88 s [opt-env-conf-test] ( \case
  10633. 1886.88 s [opt-env-conf-test] - DashedShort c -> Just c
  10634. 1886.88 s [opt-env-conf-test] + DashedShort c -> Nothing
  10635. 1886.88 s [opt-env-conf-test] DashedLong _ -> Nothing
  10636. 1886.88 s [opt-env-conf-test] )
  10637. 1886.88 s [opt-env-conf-test]
  10638. 1886.88 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:66:40-45
  10639. 1886.88 s [opt-env-conf-test] @@ -63,7 +63,7 @@
  10640. 1886.88 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10641. 1886.88 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  10642. 1886.88 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  10643. 1886.88 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand _ _ -> False
  10644. 1886.88 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand _ _ -> True
  10645. 1886.88 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10646. 1886.88 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  10647. 1886.88 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  10648. 1886.88 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:61:32-36
  10649. 1886.88 s [opt-env-conf-test] @@ -58,7 +58,7 @@
  10650. 1886.88 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  10651. 1886.88 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  10652. 1886.88 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  10653. 1886.88 s [opt-env-conf-test] - ParseErrorMissingEnvVar _ -> True
  10654. 1886.88 s [opt-env-conf-test] + ParseErrorMissingEnvVar _ -> False
  10655. 1886.88 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  10656. 1886.88 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10657. 1886.88 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  10658. 1886.88 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:60:32-36
  10659. 1886.88 s [opt-env-conf-test] @@ -57,7 +57,7 @@
  10660. 1886.88 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  10661. 1886.88 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  10662. 1886.89 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  10663. 1886.89 s [opt-env-conf-test] - ParseErrorMissingOption _ -> True
  10664. 1886.89 s [opt-env-conf-test] + ParseErrorMissingOption _ -> False
  10665. 1886.89 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  10666. 1886.89 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  10667. 1886.89 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  10668. 1886.89 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:68:31-36
  10669. 1886.89 s [opt-env-conf-test] @@ -65,7 +65,7 @@
  10670. 1886.89 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  10671. 1886.89 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  10672. 1886.89 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  10673. 1886.89 s [opt-env-conf-test] - ParseErrorUnrecognised _ -> False
  10674. 1886.89 s [opt-env-conf-test] + ParseErrorUnrecognised _ -> True
  10675. 1886.89 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  10676. 1886.89 s [opt-env-conf-test]
  10677. 1886.89 s [opt-env-conf-test] eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
  10678. 1886.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
  10679. 1886.89 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  10680. 1886.89 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  10681. 1886.89 s [opt-env-conf-test] go (c :| rest) =
  10682. 1886.89 s [opt-env-conf-test] if c `elem` cs
  10683. 1886.89 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  10684. 1886.89 s [opt-env-conf-test] + then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
  10685. 1886.89 s [opt-env-conf-test] else do
  10686. 1886.89 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  10687. 1886.89 s [opt-env-conf-test] new <- go rest'
  10688. 1886.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
  10689. 1886.89 s [opt-env-conf-test] @@ -52,7 +52,7 @@
  10690. 1886.89 s [opt-env-conf-test] ParseErrorEmpty -> True
  10691. 1886.89 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  10692. 1886.89 s [opt-env-conf-test] ParseErrorNoReaders -> False
  10693. 1886.89 s [opt-env-conf-test] - ParseErrorCheckFailed forgivable _ -> forgivable
  10694. 1886.89 s [opt-env-conf-test] + ParseErrorCheckFailed forgivable _ -> False
  10695. 1886.89 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  10696. 1886.89 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  10697. 1886.89 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  10698. 1886.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  10699. 1886.89 s [opt-env-conf-test] @@ -513,9 +513,8 @@
  10700. 1886.89 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  10701. 1886.89 s [opt-env-conf-test] case mResOrNext of
  10702. 1886.89 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  10703. 1886.89 s [opt-env-conf-test] Just ((result, _), _) -> pure $ case result of
  10704. 1886.89 s [opt-env-conf-test] - Failure errs -> Left errs
  10705. 1886.89 s [opt-env-conf-test] Success mDocs -> Right mDocs
  10706. 1886.89 s [opt-env-conf-test] where
  10707. 1886.89 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  10708. 1886.89 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  10709. 1886.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  10710. 1886.89 s [opt-env-conf-test] @@ -513,9 +513,8 @@
  10711. 1886.89 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  10712. 1886.89 s [opt-env-conf-test] case mResOrNext of
  10713. 1886.89 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  10714. 1886.89 s [opt-env-conf-test] Just ((result, _), _) -> pure $ case result of
  10715. 1886.89 s [opt-env-conf-test] Failure errs -> Left errs
  10716. 1886.89 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  10717. 1886.89 s [opt-env-conf-test] where
  10718. 1886.89 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  10719. 1886.89 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  10720. 1886.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  10721. 1886.89 s [opt-env-conf-test] @@ -511,11 +511,10 @@
  10722. 1886.89 s [opt-env-conf-test] ppEnvIndent = 0
  10723. 1886.89 s [opt-env-conf-test] }
  10724. 1886.89 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  10725. 1886.89 s [opt-env-conf-test] case mResOrNext of
  10726. 1886.89 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  10727. 1886.89 s [opt-env-conf-test] Just ((result, _), _) -> pure $ case result of
  10728. 1886.89 s [opt-env-conf-test] Failure errs -> Left errs
  10729. 1886.89 s [opt-env-conf-test] Success mDocs -> Right mDocs
  10730. 1886.89 s [opt-env-conf-test] where
  10731. 1886.89 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  10732. 1886.89 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  10733. 1886.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  10734. 1886.89 s [opt-env-conf-test] @@ -511,11 +511,8 @@
  10735. 1886.89 s [opt-env-conf-test] ppEnvIndent = 0
  10736. 1886.89 s [opt-env-conf-test] }
  10737. 1886.89 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  10738. 1886.89 s [opt-env-conf-test] case mResOrNext of
  10739. 1886.89 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  10740. 1886.89 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  10741. 1886.89 s [opt-env-conf-test] - Failure errs -> Left errs
  10742. 1886.89 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  10743. 1886.89 s [opt-env-conf-test] where
  10744. 1886.89 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  10745. 1886.89 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  10746. 1886.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
  10747. 1886.89 s [opt-env-conf-test] @@ -35,7 +35,6 @@
  10748. 1886.89 s [opt-env-conf-test] ("# " <>)
  10749. 1886.89 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  10750. 1886.89 s [opt-env-conf-test] "This file was generated by running",
  10751. 1886.89 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  10752. 1886.89 s [opt-env-conf-test] T.unpack content
  10753. 1886.89 s [opt-env-conf-test] ]
  10754. 1886.89 s [opt-env-conf-test]
  10755. 1886.89 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:535:35-33
  10756. 1886.89 s [opt-env-conf-test] @@ -532,12 +532,11 @@
  10757. 1886.89 s [opt-env-conf-test] mf <- go ff
  10758. 1886.89 s [opt-env-conf-test] ma <- go fa
  10759. 1886.89 s [opt-env-conf-test] pure $ ma <|> mf -- Reverse order
  10760. 1886.89 s [opt-env-conf-test] ParserSelect fe ff -> do
  10761. 1886.89 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  10762. 1886.89 s [opt-env-conf-test] ppIndent $ do
  10763. 1886.89 s [opt-env-conf-test] me <- go fe
  10764. 1886.89 s [opt-env-conf-test] mf <- go ff
  10765. 1886.89 s [opt-env-conf-test] pure $ mf <|> me -- Reverse order
  10766. 1886.89 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10767. 1886.89 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10768. 1886.89 s [opt-env-conf-test] pure Nothing
  10769. 1886.89 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:529:31-33
  10770. 1886.89 s [opt-env-conf-test] @@ -526,12 +526,11 @@
  10771. 1886.89 s [opt-env-conf-test] ParserPure _ -> do
  10772. 1886.89 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  10773. 1886.89 s [opt-env-conf-test] pure Nothing
  10774. 1886.89 s [opt-env-conf-test] ParserAp ff fa -> do
  10775. 1886.89 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  10776. 1886.89 s [opt-env-conf-test] ppIndent $ do
  10777. 1886.89 s [opt-env-conf-test] mf <- go ff
  10778. 1886.89 s [opt-env-conf-test] ma <- go fa
  10779. 1886.89 s [opt-env-conf-test] pure $ ma <|> mf -- Reverse order
  10780. 1886.89 s [opt-env-conf-test] ParserSelect fe ff -> do
  10781. 1886.89 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10782. 1886.89 s [opt-env-conf-test] ppIndent $ do
  10783. 1886.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  10784. 1886.89 s [opt-env-conf-test] @@ -546,13 +546,10 @@
  10785. 1886.89 s [opt-env-conf-test] ppIndent $ do
  10786. 1886.89 s [opt-env-conf-test] debug ["Trying left side."]
  10787. 1888.63 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  10788. 1888.63 s [opt-env-conf-test] case eor of
  10789. 1888.63 s [opt-env-conf-test] - Just a -> do
  10790. 1888.63 s [opt-env-conf-test] - debug ["Left side succeeded."]
  10791. 1888.63 s [opt-env-conf-test] - pure a
  10792. 1888.63 s [opt-env-conf-test] Nothing -> do
  10793. 1888.63 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10794. 1888.63 s [opt-env-conf-test] ppIndent $ go p2
  10795. 1888.63 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10796. 1888.64 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10797. 1888.64 s [opt-env-conf-test] ppIndent $ go p'
  10798. 1888.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  10799. 1888.64 s [opt-env-conf-test] @@ -546,13 +546,10 @@
  10800. 1888.64 s [opt-env-conf-test] ppIndent $ do
  10801. 1888.64 s [opt-env-conf-test] debug ["Trying left side."]
  10802. 1888.64 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  10803. 1888.64 s [opt-env-conf-test] case eor of
  10804. 1888.64 s [opt-env-conf-test] Just a -> do
  10805. 1888.64 s [opt-env-conf-test] debug ["Left side succeeded."]
  10806. 1888.64 s [opt-env-conf-test] pure a
  10807. 1888.64 s [opt-env-conf-test] - Nothing -> do
  10808. 1888.64 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  10809. 1888.64 s [opt-env-conf-test] - ppIndent $ go p2
  10810. 1888.64 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10811. 1888.64 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10812. 1888.64 s [opt-env-conf-test] ppIndent $ go p'
  10813. 1888.64 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:544:32-37
  10814. 1888.64 s [opt-env-conf-test] @@ -541,18 +541,17 @@
  10815. 1888.64 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10816. 1888.64 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10817. 1888.64 s [opt-env-conf-test] pure Nothing
  10818. 1888.64 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  10819. 1888.64 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  10820. 1888.64 s [opt-env-conf-test] ppIndent $ do
  10821. 1888.64 s [opt-env-conf-test] debug ["Trying left side."]
  10822. 1888.64 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  10823. 1888.64 s [opt-env-conf-test] case eor of
  10824. 1888.64 s [opt-env-conf-test] Just a -> do
  10825. 1888.64 s [opt-env-conf-test] debug ["Left side succeeded."]
  10826. 1888.64 s [opt-env-conf-test] pure a
  10827. 1888.64 s [opt-env-conf-test] Nothing -> do
  10828. 1888.64 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10829. 1888.64 s [opt-env-conf-test] ppIndent $ go p2
  10830. 1888.64 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10831. 1888.64 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10832. 1888.64 s [opt-env-conf-test] ppIndent $ go p'
  10833. 1888.64 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:553:30-37
  10834. 1888.64 s [opt-env-conf-test] @@ -550,9 +550,8 @@
  10835. 1888.64 s [opt-env-conf-test] Just a -> do
  10836. 1888.64 s [opt-env-conf-test] debug ["Left side succeeded."]
  10837. 1888.64 s [opt-env-conf-test] pure a
  10838. 1888.64 s [opt-env-conf-test] Nothing -> do
  10839. 1888.64 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  10840. 1888.64 s [opt-env-conf-test] ppIndent $ go p2
  10841. 1888.64 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10842. 1888.64 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10843. 1888.64 s [opt-env-conf-test] ppIndent $ go p'
  10844. 1888.64 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  10845. 1888.64 s [opt-env-conf-test] @@ -554,7 +554,6 @@
  10846. 1888.64 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10847. 1888.64 s [opt-env-conf-test] ppIndent $ go p2
  10848. 1888.64 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10849. 1888.64 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10850. 1888.64 s [opt-env-conf-test] ppIndent $ go p'
  10851. 1888.64 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10852. 1888.64 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10853. 1888.64 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:556:35-31
  10854. 1888.64 s [opt-env-conf-test] @@ -553,9 +553,8 @@
  10855. 1888.64 s [opt-env-conf-test] Nothing -> do
  10856. 1888.64 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10857. 1888.64 s [opt-env-conf-test] ppIndent $ go p2
  10858. 1888.64 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10859. 1888.64 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10860. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10861. 1888.65 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10862. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10863. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10864. 1888.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  10865. 1888.65 s [opt-env-conf-test] @@ -554,7 +554,6 @@
  10866. 1888.65 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10867. 1888.65 s [opt-env-conf-test] ppIndent $ go p2
  10868. 1888.65 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10869. 1888.65 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10870. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10871. 1888.65 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10872. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10873. 1888.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
  10874. 1888.65 s [opt-env-conf-test] @@ -557,7 +557,6 @@
  10875. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10876. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10877. 1888.65 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10878. 1888.65 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10879. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10880. 1888.65 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10881. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10882. 1888.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
  10883. 1888.65 s [opt-env-conf-test] @@ -557,7 +557,6 @@
  10884. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10885. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10886. 1888.65 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10887. 1888.65 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10888. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10889. 1888.65 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10890. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10891. 1888.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  10892. 1888.65 s [opt-env-conf-test] @@ -554,7 +554,6 @@
  10893. 1888.65 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10894. 1888.65 s [opt-env-conf-test] ppIndent $ go p2
  10895. 1888.65 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10896. 1888.65 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10897. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10898. 1888.65 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10899. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10900. 1888.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
  10901. 1888.65 s [opt-env-conf-test] @@ -557,7 +557,6 @@
  10902. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10903. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10904. 1888.65 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10905. 1888.65 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10906. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10907. 1888.65 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10908. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10909. 1888.65 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Run.hs:511:27-28
  10910. 1888.65 s [opt-env-conf-test] @@ -508,7 +508,7 @@
  10911. 1888.65 s [opt-env-conf-test] { ppEnvEnv = EnvMap.empty,
  10912. 1888.65 s [opt-env-conf-test] ppEnvConf = Nothing,
  10913. 1888.65 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  10914. 1888.65 s [opt-env-conf-test] - ppEnvIndent = 0
  10915. 1888.65 s [opt-env-conf-test] + ppEnvIndent = 1
  10916. 1888.65 s [opt-env-conf-test] }
  10917. 1888.65 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  10918. 1888.65 s [opt-env-conf-test] case mResOrNext of
  10919. 1888.65 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:562:43-31
  10920. 1888.65 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  10921. 1888.65 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10922. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10923. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10924. 1888.65 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10925. 1888.65 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10926. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10927. 1888.65 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10928. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10929. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10930. 1888.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
  10931. 1888.65 s [opt-env-conf-test] @@ -563,7 +563,6 @@
  10932. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10933. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10934. 1888.65 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10935. 1888.65 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10936. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10937. 1888.65 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10938. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10939. 1888.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
  10940. 1888.65 s [opt-env-conf-test] @@ -563,7 +563,6 @@
  10941. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10942. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10943. 1888.65 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10944. 1888.65 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10945. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10946. 1888.65 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10947. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10948. 1888.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
  10949. 1888.65 s [opt-env-conf-test] @@ -563,7 +563,6 @@
  10950. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10951. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10952. 1888.65 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10953. 1888.65 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10954. 1888.65 s [opt-env-conf-test] ppIndent $ go p'
  10955. 1888.65 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10956. 1888.65 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10957. 1888.65 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:565:42-31
  10958. 1888.65 s [opt-env-conf-test] @@ -562,9 +562,8 @@
  10959. 1891.14 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10960. 1891.14 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10961. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  10962. 1891.15 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10963. 1891.15 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10964. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  10965. 1891.15 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10966. 1891.15 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10967. 1891.15 s [opt-env-conf-test] ppIndent $ do
  10968. 1891.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
  10969. 1891.15 s [opt-env-conf-test] @@ -566,7 +566,6 @@
  10970. 1891.15 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10971. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  10972. 1891.15 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10973. 1891.15 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10974. 1891.15 s [opt-env-conf-test] ppIndent $ do
  10975. 1891.15 s [opt-env-conf-test] mNewConfig <- go pc
  10976. 1891.15 s [opt-env-conf-test] mRes <- go pa
  10977. 1891.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
  10978. 1891.15 s [opt-env-conf-test] @@ -560,7 +560,6 @@
  10979. 1891.15 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10980. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  10981. 1891.15 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10982. 1891.15 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10983. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  10984. 1891.15 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10985. 1891.15 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10986. 1891.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
  10987. 1891.15 s [opt-env-conf-test] @@ -566,7 +566,6 @@
  10988. 1891.15 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10989. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  10990. 1891.15 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10991. 1891.15 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10992. 1891.15 s [opt-env-conf-test] ppIndent $ do
  10993. 1891.15 s [opt-env-conf-test] mNewConfig <- go pc
  10994. 1891.15 s [opt-env-conf-test] mRes <- go pa
  10995. 1891.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
  10996. 1891.15 s [opt-env-conf-test] @@ -560,7 +560,6 @@
  10997. 1891.15 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10998. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  10999. 1891.15 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11000. 1891.15 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11001. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  11002. 1891.15 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  11003. 1891.15 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11004. 1891.15 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:559:35-31
  11005. 1891.15 s [opt-env-conf-test] @@ -556,9 +556,8 @@
  11006. 1891.15 s [opt-env-conf-test] ParserMany mLoc p' -> do
  11007. 1891.15 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11008. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  11009. 1891.15 s [opt-env-conf-test] ParserSome mLoc p' -> do
  11010. 1891.15 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11011. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  11012. 1891.15 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11013. 1891.15 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11014. 1891.15 s [opt-env-conf-test] ppIndent $ go p'
  11015. 1891.15 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
  11016. 1891.15 s [opt-env-conf-test] @@ -635,7 +635,7 @@
  11017. 1891.15 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  11018. 1891.15 s [opt-env-conf-test] case errOrRes of
  11019. 1891.15 s [opt-env-conf-test] Failure errs ->
  11020. 1891.15 s [opt-env-conf-test] - if all errorIsForgivable errs
  11021. 1891.15 s [opt-env-conf-test] + if True
  11022. 1891.15 s [opt-env-conf-test] then do
  11023. 1891.15 s [opt-env-conf-test] pure Nothing
  11024. 1891.16 s [opt-env-conf-test] else ppErrors' errs
  11025. 1891.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
  11026. 1891.16 s [opt-env-conf-test] @@ -700,11 +700,8 @@
  11027. 1891.16 s [opt-env-conf-test] ppOpt :: [Dashed] -> PP (Maybe String)
  11028. 1891.16 s [opt-env-conf-test] ppOpt ds = do
  11029. 1891.16 s [opt-env-conf-test] args <- gets ppStateArgs
  11030. 1891.16 s [opt-env-conf-test] case Args.consumeOption ds args of
  11031. 1891.16 s [opt-env-conf-test] Nothing -> pure Nothing
  11032. 1891.16 s [opt-env-conf-test] - Just (a, args') -> do
  11033. 1891.16 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  11034. 1891.16 s [opt-env-conf-test] - pure (Just a)
  11035. 1891.16 s [opt-env-conf-test]
  11036. 1891.16 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  11037. 1891.16 s [opt-env-conf-test] ppSwitch ds = do
  11038. 1891.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
  11039. 1891.16 s [opt-env-conf-test] @@ -635,7 +635,7 @@
  11040. 1891.16 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  11041. 1891.16 s [opt-env-conf-test] case errOrRes of
  11042. 1891.16 s [opt-env-conf-test] Failure errs ->
  11043. 1891.16 s [opt-env-conf-test] - if all errorIsForgivable errs
  11044. 1891.16 s [opt-env-conf-test] + if False
  11045. 1891.16 s [opt-env-conf-test] then do
  11046. 1891.16 s [opt-env-conf-test] pure Nothing
  11047. 1891.16 s [opt-env-conf-test] else ppErrors' errs
  11048. 1891.16 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:638:10-36
  11049. 1891.16 s [opt-env-conf-test] @@ -635,7 +635,7 @@
  11050. 1891.16 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  11051. 1891.16 s [opt-env-conf-test] case errOrRes of
  11052. 1891.16 s [opt-env-conf-test] Failure errs ->
  11053. 1891.16 s [opt-env-conf-test] - if all errorIsForgivable errs
  11054. 1891.16 s [opt-env-conf-test] + if not (all errorIsForgivable errs)
  11055. 1891.16 s [opt-env-conf-test] then do
  11056. 1891.16 s [opt-env-conf-test] pure Nothing
  11057. 1891.16 s [opt-env-conf-test] else ppErrors' errs
  11058. 1891.16 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Run.hs:707:13-19
  11059. 1891.16 s [opt-env-conf-test] @@ -704,7 +704,7 @@
  11060. 1891.16 s [opt-env-conf-test] Nothing -> pure Nothing
  11061. 1891.16 s [opt-env-conf-test] Just (a, args') -> do
  11062. 1891.16 s [opt-env-conf-test] modify' (\s -> s {ppStateArgs = args'})
  11063. 1891.16 s [opt-env-conf-test] - pure (Just a)
  11064. 1891.16 s [opt-env-conf-test] + pure (Nothing)
  11065. 1891.16 s [opt-env-conf-test]
  11066. 1891.16 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  11067. 1891.16 s [opt-env-conf-test] ppSwitch ds = do
  11068. 1891.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
  11069. 1891.16 s [opt-env-conf-test] @@ -709,11 +709,10 @@
  11070. 1891.16 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  11071. 1891.16 s [opt-env-conf-test] ppSwitch ds = do
  11072. 1891.16 s [opt-env-conf-test] args <- gets ppStateArgs
  11073. 1891.16 s [opt-env-conf-test] case Args.consumeSwitch ds args of
  11074. 1891.16 s [opt-env-conf-test] - Nothing -> pure Nothing
  11075. 1891.16 s [opt-env-conf-test] Just args' -> do
  11076. 1891.16 s [opt-env-conf-test] modify' (\s -> s {ppStateArgs = args'})
  11077. 1891.16 s [opt-env-conf-test] pure (Just ())
  11078. 1891.16 s [opt-env-conf-test]
  11079. 1891.16 s [opt-env-conf-test] ppErrors' :: NonEmpty ParseError -> PP a
  11080. 1891.16 s [opt-env-conf-test] ppErrors' = PP . lift . ValidationT . lift . pure . Failure
  11081. 1891.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
  11082. 1891.16 s [opt-env-conf-test] @@ -700,11 +700,10 @@
  11083. 1891.16 s [opt-env-conf-test] ppOpt :: [Dashed] -> PP (Maybe String)
  11084. 1891.16 s [opt-env-conf-test] ppOpt ds = do
  11085. 1891.16 s [opt-env-conf-test] args <- gets ppStateArgs
  11086. 1891.16 s [opt-env-conf-test] case Args.consumeOption ds args of
  11087. 1891.16 s [opt-env-conf-test] - Nothing -> pure Nothing
  11088. 1891.16 s [opt-env-conf-test] Just (a, args') -> do
  11089. 1891.16 s [opt-env-conf-test] modify' (\s -> s {ppStateArgs = args'})
  11090. 1891.16 s [opt-env-conf-test] pure (Just a)
  11091. 1891.16 s [opt-env-conf-test]
  11092. 1891.16 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  11093. 1891.16 s [opt-env-conf-test] ppSwitch ds = do
  11094. 1891.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
  11095. 1891.16 s [opt-env-conf-test] @@ -709,11 +709,8 @@
  11096. 1891.16 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  11097. 1891.16 s [opt-env-conf-test] ppSwitch ds = do
  11098. 1891.16 s [opt-env-conf-test] args <- gets ppStateArgs
  11099. 1891.16 s [opt-env-conf-test] case Args.consumeSwitch ds args of
  11100. 1891.16 s [opt-env-conf-test] Nothing -> pure Nothing
  11101. 1891.16 s [opt-env-conf-test] - Just args' -> do
  11102. 1891.16 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  11103. 1891.16 s [opt-env-conf-test] - pure (Just ())
  11104. 1891.16 s [opt-env-conf-test]
  11105. 1891.16 s [opt-env-conf-test] ppErrors' :: NonEmpty ParseError -> PP a
  11106. 1891.16 s [opt-env-conf-test] ppErrors' = PP . lift . ValidationT . lift . pure . Failure
  11107. 1891.16 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Run.hs:716:13-20
  11108. 1891.16 s [opt-env-conf-test] @@ -713,7 +713,7 @@
  11109. 1891.16 s [opt-env-conf-test] Nothing -> pure Nothing
  11110. 1891.17 s [opt-env-conf-test] Just args' -> do
  11111. 1891.17 s [opt-env-conf-test] modify' (\s -> s {ppStateArgs = args'})
  11112. 1891.17 s [opt-env-conf-test] - pure (Just ())
  11113. 1891.17 s [opt-env-conf-test] + pure (Nothing)
  11114. 1891.17 s [opt-env-conf-test]
  11115. 1891.17 s [opt-env-conf-test] ppErrors' :: NonEmpty ParseError -> PP a
  11116. 1891.17 s [opt-env-conf-test] ppErrors' = PP . lift . ValidationT . lift . pure . Failure
  11117. 1891.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
  11118. 1891.17 s [opt-env-conf-test] @@ -482,9 +482,8 @@
  11119. 1891.17 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  11120. 1891.17 s [opt-env-conf-test] tryReaders rs s = left NE.reverse $ go rs
  11121. 1891.17 s [opt-env-conf-test] where
  11122. 1891.17 s [opt-env-conf-test] go (r :| rl) = case runReader r s of
  11123. 1891.17 s [opt-env-conf-test] Left err -> go' (err :| []) rl
  11124. 1891.17 s [opt-env-conf-test] - Right a -> Right a
  11125. 1891.17 s [opt-env-conf-test] go' errs = \case
  11126. 1891.17 s [opt-env-conf-test] [] -> Left errs
  11127. 1891.17 s [opt-env-conf-test] (r : rl) -> case runReader r s of
  11128. 1891.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  11129. 1891.17 s [opt-env-conf-test] @@ -474,9 +474,8 @@
  11130. 1891.17 s [opt-env-conf-test] | Found a
  11131. 1891.17 s [opt-env-conf-test]
  11132. 1891.17 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  11133. 1891.17 s [opt-env-conf-test] requireReaders rs = case NE.nonEmpty rs of
  11134. 1891.17 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  11135. 1891.17 s [opt-env-conf-test] Just ne -> pure ne
  11136. 1891.17 s [opt-env-conf-test]
  11137. 1891.17 s [opt-env-conf-test] -- Try the readers in order
  11138. 1891.17 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  11139. 1891.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  11140. 1891.17 s [opt-env-conf-test] @@ -474,9 +474,8 @@
  11141. 1891.17 s [opt-env-conf-test] | Found a
  11142. 1891.17 s [opt-env-conf-test]
  11143. 1891.17 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  11144. 1891.17 s [opt-env-conf-test] requireReaders rs = case NE.nonEmpty rs of
  11145. 1891.17 s [opt-env-conf-test] Nothing -> ppError Nothing ParseErrorNoReaders
  11146. 1891.17 s [opt-env-conf-test] - Just ne -> pure ne
  11147. 1891.17 s [opt-env-conf-test]
  11148. 1891.17 s [opt-env-conf-test] -- Try the readers in order
  11149. 1891.17 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  11150. 1891.17 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:464:22-66
  11151. 1891.17 s [opt-env-conf-test] @@ -461,11 +461,8 @@
  11152. 1891.17 s [opt-env-conf-test] PP a
  11153. 1891.17 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  11154. 1891.17 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  11155. 1894.53 s [opt-env-conf-test] Just missings -> do
  11156. 1894.53 s [opt-env-conf-test] - debug $
  11157. 1894.53 s [opt-env-conf-test] - "Missing capabilities: "
  11158. 1894.61 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  11159. 1894.61 s [opt-env-conf-test] ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  11160. 1894.61 s [opt-env-conf-test] Nothing -> func
  11161. 1894.61 s [opt-env-conf-test]
  11162. 1894.61 s [opt-env-conf-test] data ParseResult a
  11163. 1894.61 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
  11164. 1894.61 s [opt-env-conf-test] @@ -487,9 +487,8 @@
  11165. 1894.61 s [opt-env-conf-test] Right a -> Right a
  11166. 1894.61 s [opt-env-conf-test] go' errs = \case
  11167. 1894.62 s [opt-env-conf-test] [] -> Left errs
  11168. 1894.62 s [opt-env-conf-test] (r : rl) -> case runReader r s of
  11169. 1894.62 s [opt-env-conf-test] - Left err -> go' (err <| errs) rl
  11170. 1894.62 s [opt-env-conf-test] Right a -> Right a
  11171. 1894.62 s [opt-env-conf-test]
  11172. 1894.62 s [opt-env-conf-test] runHelpParser ::
  11173. 1894.62 s [opt-env-conf-test] -- DebugMode
  11174. 1894.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
  11175. 1894.62 s [opt-env-conf-test] @@ -460,13 +460,8 @@
  11176. 1894.62 s [opt-env-conf-test] PP a ->
  11177. 1894.62 s [opt-env-conf-test] PP a
  11178. 1894.62 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  11179. 1894.62 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  11180. 1894.62 s [opt-env-conf-test] - Just missings -> do
  11181. 1894.62 s [opt-env-conf-test] - debug $
  11182. 1894.62 s [opt-env-conf-test] - "Missing capabilities: "
  11183. 1894.62 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  11184. 1894.62 s [opt-env-conf-test] - ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  11185. 1894.62 s [opt-env-conf-test] Nothing -> func
  11186. 1894.62 s [opt-env-conf-test]
  11187. 1894.62 s [opt-env-conf-test] data ParseResult a
  11188. 1894.62 s [opt-env-conf-test] = NotRun
  11189. 1894.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
  11190. 1894.62 s [opt-env-conf-test] @@ -460,13 +460,12 @@
  11191. 1894.62 s [opt-env-conf-test] PP a ->
  11192. 1894.62 s [opt-env-conf-test] PP a
  11193. 1894.62 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  11194. 1894.62 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  11195. 1894.62 s [opt-env-conf-test] Just missings -> do
  11196. 1894.62 s [opt-env-conf-test] debug $
  11197. 1894.62 s [opt-env-conf-test] "Missing capabilities: "
  11198. 1894.62 s [opt-env-conf-test] : capabilitiesChunks (Set.fromList (NE.toList missings))
  11199. 1894.62 s [opt-env-conf-test] ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  11200. 1894.62 s [opt-env-conf-test] - Nothing -> func
  11201. 1894.62 s [opt-env-conf-test]
  11202. 1894.62 s [opt-env-conf-test] data ParseResult a
  11203. 1894.62 s [opt-env-conf-test] = NotRun
  11204. 1894.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
  11205. 1894.62 s [opt-env-conf-test] @@ -579,21 +579,10 @@
  11206. 1894.62 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  11207. 1894.62 s [opt-env-conf-test] ppIndent $ do
  11208. 1894.62 s [opt-env-conf-test] mS <- ppArg
  11209. 1894.62 s [opt-env-conf-test] case mS of
  11210. 1894.62 s [opt-env-conf-test] Nothing -> do
  11211. 1894.62 s [opt-env-conf-test] debug ["No argument found for choosing a command."]
  11212. 1894.62 s [opt-env-conf-test] pure Nothing
  11213. 1894.62 s [opt-env-conf-test] - Just s -> do
  11214. 1894.62 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  11215. 1894.62 s [opt-env-conf-test] - Nothing -> do
  11216. 1894.62 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  11217. 1894.62 s [opt-env-conf-test] - pure Nothing
  11218. 1894.62 s [opt-env-conf-test] - Just c -> do
  11219. 1894.62 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11220. 1894.62 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  11221. 1894.62 s [opt-env-conf-test] - pure $ case mRes of
  11222. 1894.62 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  11223. 1894.62 s [opt-env-conf-test] - Just res -> pure res
  11224. 1894.62 s [opt-env-conf-test]
  11225. 1894.62 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  11226. 1894.62 s [opt-env-conf-test] deriving
  11227. 1894.62 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Run.hs:75:27-28
  11228. 1894.62 s [opt-env-conf-test] @@ -72,7 +72,7 @@
  11229. 1894.62 s [opt-env-conf-test] { ppEnvEnv = envVars,
  11230. 1894.62 s [opt-env-conf-test] ppEnvConf = mConfig,
  11231. 1894.62 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  11232. 1894.62 s [opt-env-conf-test] - ppEnvIndent = 0
  11233. 1894.62 s [opt-env-conf-test] + ppEnvIndent = 1
  11234. 1894.62 s [opt-env-conf-test] }
  11235. 1894.62 s [opt-env-conf-test] let go' = do
  11236. 1894.62 s [opt-env-conf-test] result <- go parser
  11237. 1894.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
  11238. 1894.62 s [opt-env-conf-test] @@ -77,9 +77,8 @@
  11239. 1894.62 s [opt-env-conf-test] let go' = do
  11240. 1894.62 s [opt-env-conf-test] result <- go parser
  11241. 1894.62 s [opt-env-conf-test] leftoverArgs <- gets ppStateArgs
  11242. 1894.62 s [opt-env-conf-test] case recogniseLeftovers leftoverArgs of
  11243. 1894.62 s [opt-env-conf-test] - Nothing -> pure result
  11244. 1894.62 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  11245. 1894.62 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  11246. 1894.62 s [opt-env-conf-test] case mTup of
  11247. 1894.62 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  11248. 1894.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
  11249. 1894.62 s [opt-env-conf-test] @@ -94,9 +94,8 @@
  11250. 1894.62 s [opt-env-conf-test] pure $
  11251. 1894.62 s [opt-env-conf-test] Left $
  11252. 1894.62 s [opt-env-conf-test] -- Only show source locations in debug mode.
  11253. 1894.62 s [opt-env-conf-test] let f = case mDebugMode of
  11254. 1894.62 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  11255. 1894.62 s [opt-env-conf-test] Just _ -> id
  11256. 1894.62 s [opt-env-conf-test] in f firstErrors
  11257. 1894.62 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  11258. 1894.62 s [opt-env-conf-test] Success a -> pure (Right a)
  11259. 1894.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
  11260. 1894.62 s [opt-env-conf-test] @@ -77,9 +77,8 @@
  11261. 1894.63 s [opt-env-conf-test] let go' = do
  11262. 1894.63 s [opt-env-conf-test] result <- go parser
  11263. 1894.63 s [opt-env-conf-test] leftoverArgs <- gets ppStateArgs
  11264. 1894.63 s [opt-env-conf-test] case recogniseLeftovers leftoverArgs of
  11265. 1894.63 s [opt-env-conf-test] Nothing -> pure result
  11266. 1894.63 s [opt-env-conf-test] - Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  11267. 1894.63 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  11268. 1894.63 s [opt-env-conf-test] case mTup of
  11269. 1894.63 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  11270. 1894.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
  11271. 1894.63 s [opt-env-conf-test] @@ -94,9 +94,8 @@
  11272. 1894.63 s [opt-env-conf-test] pure $
  11273. 1894.63 s [opt-env-conf-test] Left $
  11274. 1894.63 s [opt-env-conf-test] -- Only show source locations in debug mode.
  11275. 1894.63 s [opt-env-conf-test] let f = case mDebugMode of
  11276. 1894.63 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  11277. 1894.63 s [opt-env-conf-test] - Just _ -> id
  11278. 1894.63 s [opt-env-conf-test] in f firstErrors
  11279. 1894.63 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  11280. 1894.63 s [opt-env-conf-test] Success a -> pure (Right a)
  11281. 1894.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
  11282. 1894.63 s [opt-env-conf-test] @@ -89,18 +89,10 @@
  11283. 1894.63 s [opt-env-conf-test] let goNexts ns = do
  11284. 1894.63 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  11285. 1894.63 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  11286. 1894.63 s [opt-env-conf-test] case mNext of
  11287. 1894.63 s [opt-env-conf-test] - Nothing ->
  11288. 1894.63 s [opt-env-conf-test] - pure $
  11289. 1894.63 s [opt-env-conf-test] - Left $
  11290. 1894.63 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  11291. 1894.63 s [opt-env-conf-test] - let f = case mDebugMode of
  11292. 1894.63 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  11293. 1894.63 s [opt-env-conf-test] - Just _ -> id
  11294. 1894.63 s [opt-env-conf-test] - in f firstErrors
  11295. 1894.63 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  11296. 1894.63 s [opt-env-conf-test] Success a -> pure (Right a)
  11297. 1894.63 s [opt-env-conf-test] Failure _ -> goNexts ns'
  11298. 1894.63 s [opt-env-conf-test] in goNexts nexts
  11299. 1894.63 s [opt-env-conf-test] where
  11300. 1894.63 s [opt-env-conf-test] go ::
  11301. 1894.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
  11302. 1894.63 s [opt-env-conf-test] @@ -89,18 +89,15 @@
  11303. 1894.63 s [opt-env-conf-test] let goNexts ns = do
  11304. 1894.63 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  11305. 1894.63 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  11306. 1894.63 s [opt-env-conf-test] case mNext of
  11307. 1894.63 s [opt-env-conf-test] Nothing ->
  11308. 1894.63 s [opt-env-conf-test] pure $
  11309. 1894.63 s [opt-env-conf-test] Left $
  11310. 1894.63 s [opt-env-conf-test] -- Only show source locations in debug mode.
  11311. 1894.63 s [opt-env-conf-test] let f = case mDebugMode of
  11312. 1894.63 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  11313. 1894.63 s [opt-env-conf-test] Just _ -> id
  11314. 1894.63 s [opt-env-conf-test] in f firstErrors
  11315. 1894.63 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  11316. 1894.63 s [opt-env-conf-test] - Success a -> pure (Right a)
  11317. 1894.63 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  11318. 1894.63 s [opt-env-conf-test] in goNexts nexts
  11319. 1894.63 s [opt-env-conf-test] where
  11320. 1894.63 s [opt-env-conf-test] go ::
  11321. 1894.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
  11322. 1894.63 s [opt-env-conf-test] @@ -579,21 +579,18 @@
  11323. 1894.63 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  11324. 1894.63 s [opt-env-conf-test] ppIndent $ do
  11325. 1894.63 s [opt-env-conf-test] mS <- ppArg
  11326. 1894.63 s [opt-env-conf-test] case mS of
  11327. 1894.63 s [opt-env-conf-test] - Nothing -> do
  11328. 1894.63 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  11329. 1894.64 s [opt-env-conf-test] - pure Nothing
  11330. 1894.64 s [opt-env-conf-test] Just s -> do
  11331. 1894.64 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11332. 1894.64 s [opt-env-conf-test] Nothing -> do
  11333. 1894.64 s [opt-env-conf-test] debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  11334. 1894.64 s [opt-env-conf-test] pure Nothing
  11335. 1894.64 s [opt-env-conf-test] Just c -> do
  11336. 1894.64 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11337. 1894.64 s [opt-env-conf-test] mRes <- go' (commandArg c : path) $ commandParser c
  11338. 1894.64 s [opt-env-conf-test] pure $ case mRes of
  11339. 1894.64 s [opt-env-conf-test] Nothing -> Just (reverse path, commandParserDocs c)
  11340. 1894.64 s [opt-env-conf-test] Just res -> pure res
  11341. 1894.64 s [opt-env-conf-test]
  11342. 1894.64 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  11343. 1894.64 s [opt-env-conf-test] deriving
  11344. 1894.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
  11345. 1894.64 s [opt-env-conf-test] @@ -83,25 +83,24 @@
  11346. 1894.64 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  11347. 1894.64 s [opt-env-conf-test] case mTup of
  11348. 1897.36 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  11349. 1897.36 s [opt-env-conf-test] Just ((errOrRes, _), nexts) -> case errOrRes of
  11350. 1897.36 s [opt-env-conf-test] - Success a -> pure (Right a)
  11351. 1897.36 s [opt-env-conf-test] Failure firstErrors ->
  11352. 1897.36 s [opt-env-conf-test] let goNexts ns = do
  11353. 1897.36 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  11354. 1897.36 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  11355. 1897.36 s [opt-env-conf-test] case mNext of
  11356. 1897.36 s [opt-env-conf-test] Nothing ->
  11357. 1897.36 s [opt-env-conf-test] pure $
  11358. 1897.36 s [opt-env-conf-test] Left $
  11359. 1897.36 s [opt-env-conf-test] -- Only show source locations in debug mode.
  11360. 1897.36 s [opt-env-conf-test] let f = case mDebugMode of
  11361. 1897.36 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  11362. 1897.36 s [opt-env-conf-test] Just _ -> id
  11363. 1897.36 s [opt-env-conf-test] in f firstErrors
  11364. 1897.36 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  11365. 1897.36 s [opt-env-conf-test] Success a -> pure (Right a)
  11366. 1897.36 s [opt-env-conf-test] Failure _ -> goNexts ns'
  11367. 1897.36 s [opt-env-conf-test] in goNexts nexts
  11368. 1897.36 s [opt-env-conf-test] where
  11369. 1897.36 s [opt-env-conf-test] go ::
  11370. 1897.36 s [opt-env-conf-test] Parser a ->
  11371. 1897.36 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
  11372. 1897.36 s [opt-env-conf-test] @@ -584,16 +584,13 @@
  11373. 1897.36 s [opt-env-conf-test] debug ["No argument found for choosing a command."]
  11374. 1897.36 s [opt-env-conf-test] pure Nothing
  11375. 1897.36 s [opt-env-conf-test] Just s -> do
  11376. 1897.36 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11377. 1897.36 s [opt-env-conf-test] - Nothing -> do
  11378. 1897.36 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  11379. 1897.36 s [opt-env-conf-test] - pure Nothing
  11380. 1897.36 s [opt-env-conf-test] Just c -> do
  11381. 1897.36 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11382. 1897.36 s [opt-env-conf-test] mRes <- go' (commandArg c : path) $ commandParser c
  11383. 1897.36 s [opt-env-conf-test] pure $ case mRes of
  11384. 1897.36 s [opt-env-conf-test] Nothing -> Just (reverse path, commandParserDocs c)
  11385. 1897.36 s [opt-env-conf-test] Just res -> pure res
  11386. 1897.36 s [opt-env-conf-test]
  11387. 1897.36 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  11388. 1897.36 s [opt-env-conf-test] deriving
  11389. 1897.36 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
  11390. 1897.37 s [opt-env-conf-test] @@ -591,9 +591,8 @@
  11391. 1897.37 s [opt-env-conf-test] Just c -> do
  11392. 1897.37 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11393. 1897.37 s [opt-env-conf-test] mRes <- go' (commandArg c : path) $ commandParser c
  11394. 1897.37 s [opt-env-conf-test] pure $ case mRes of
  11395. 1897.37 s [opt-env-conf-test] Nothing -> Just (reverse path, commandParserDocs c)
  11396. 1897.37 s [opt-env-conf-test] - Just res -> pure res
  11397. 1897.37 s [opt-env-conf-test]
  11398. 1897.37 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  11399. 1897.37 s [opt-env-conf-test] deriving
  11400. 1897.37 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
  11401. 1897.37 s [opt-env-conf-test] @@ -566,7 +566,6 @@
  11402. 1897.37 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11403. 1897.37 s [opt-env-conf-test] ppIndent $ go p'
  11404. 1897.37 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11405. 1897.37 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11406. 1897.37 s [opt-env-conf-test] ppIndent $ do
  11407. 1897.37 s [opt-env-conf-test] mNewConfig <- go pc
  11408. 1897.37 s [opt-env-conf-test] mRes <- go pa
  11409. 1897.37 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:568:44-43
  11410. 1897.37 s [opt-env-conf-test] @@ -565,12 +565,11 @@
  11411. 1897.37 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  11412. 1897.37 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11413. 1897.37 s [opt-env-conf-test] ppIndent $ go p'
  11414. 1897.37 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11415. 1897.37 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11416. 1897.37 s [opt-env-conf-test] ppIndent $ do
  11417. 1897.37 s [opt-env-conf-test] mNewConfig <- go pc
  11418. 1897.37 s [opt-env-conf-test] mRes <- go pa
  11419. 1897.37 s [opt-env-conf-test] pure $ mRes <|> mNewConfig -- Reverse order
  11420. 1897.37 s [opt-env-conf-test] ParserSetting mLoc _ -> do
  11421. 1897.37 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  11422. 1897.37 s [opt-env-conf-test] pure Nothing
  11423. 1897.37 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
  11424. 1897.37 s [opt-env-conf-test] @@ -591,9 +591,8 @@
  11425. 1897.37 s [opt-env-conf-test] Just c -> do
  11426. 1897.37 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11427. 1897.37 s [opt-env-conf-test] mRes <- go' (commandArg c : path) $ commandParser c
  11428. 1897.37 s [opt-env-conf-test] pure $ case mRes of
  11429. 1897.37 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  11430. 1897.37 s [opt-env-conf-test] Just res -> pure res
  11431. 1897.37 s [opt-env-conf-test]
  11432. 1897.37 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  11433. 1897.37 s [opt-env-conf-test] deriving
  11434. 1897.37 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Run.hs:595:38-78
  11435. 1897.37 s [opt-env-conf-test] @@ -592,7 +592,7 @@
  11436. 1897.37 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11437. 1897.37 s [opt-env-conf-test] mRes <- go' (commandArg c : path) $ commandParser c
  11438. 1897.37 s [opt-env-conf-test] pure $ case mRes of
  11439. 1897.37 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  11440. 1897.37 s [opt-env-conf-test] + Nothing -> Nothing
  11441. 1897.37 s [opt-env-conf-test] Just res -> pure res
  11442. 1897.37 s [opt-env-conf-test]
  11443. 1897.37 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  11444. 1897.37 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
  11445. 1897.37 s [opt-env-conf-test] @@ -482,9 +482,8 @@
  11446. 1897.37 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  11447. 1897.37 s [opt-env-conf-test] tryReaders rs s = left NE.reverse $ go rs
  11448. 1897.37 s [opt-env-conf-test] where
  11449. 1897.37 s [opt-env-conf-test] go (r :| rl) = case runReader r s of
  11450. 1897.37 s [opt-env-conf-test] - Left err -> go' (err :| []) rl
  11451. 1897.37 s [opt-env-conf-test] Right a -> Right a
  11452. 1897.37 s [opt-env-conf-test] go' errs = \case
  11453. 1897.37 s [opt-env-conf-test] [] -> Left errs
  11454. 1897.37 s [opt-env-conf-test] (r : rl) -> case runReader r s of
  11455. 1897.37 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
  11456. 1897.37 s [opt-env-conf-test] @@ -98,9 +98,8 @@
  11457. 1897.37 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  11458. 1897.37 s [opt-env-conf-test] Just _ -> id
  11459. 1897.37 s [opt-env-conf-test] in f firstErrors
  11460. 1897.37 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  11461. 1897.37 s [opt-env-conf-test] Success a -> pure (Right a)
  11462. 1897.37 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  11463. 1897.37 s [opt-env-conf-test] in goNexts nexts
  11464. 1897.37 s [opt-env-conf-test] where
  11465. 1897.37 s [opt-env-conf-test] go ::
  11466. 1897.37 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  11467. 1897.37 s [opt-env-conf-test] @@ -81,27 +81,26 @@
  11468. 1897.37 s [opt-env-conf-test] Nothing -> pure result
  11469. 1897.37 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  11470. 1897.37 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  11471. 1897.37 s [opt-env-conf-test] case mTup of
  11472. 1897.37 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  11473. 1897.37 s [opt-env-conf-test] Just ((errOrRes, _), nexts) -> case errOrRes of
  11474. 1897.37 s [opt-env-conf-test] Success a -> pure (Right a)
  11475. 1897.37 s [opt-env-conf-test] Failure firstErrors ->
  11476. 1897.37 s [opt-env-conf-test] let goNexts ns = do
  11477. 1897.37 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  11478. 1897.37 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  11479. 1897.37 s [opt-env-conf-test] case mNext of
  11480. 1897.37 s [opt-env-conf-test] Nothing ->
  11481. 1897.37 s [opt-env-conf-test] pure $
  11482. 1897.37 s [opt-env-conf-test] Left $
  11483. 1897.37 s [opt-env-conf-test] -- Only show source locations in debug mode.
  11484. 1897.37 s [opt-env-conf-test] let f = case mDebugMode of
  11485. 1897.37 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  11486. 1897.37 s [opt-env-conf-test] Just _ -> id
  11487. 1897.37 s [opt-env-conf-test] in f firstErrors
  11488. 1897.37 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  11489. 1897.37 s [opt-env-conf-test] Success a -> pure (Right a)
  11490. 1897.37 s [opt-env-conf-test] Failure _ -> goNexts ns'
  11491. 1897.37 s [opt-env-conf-test] in goNexts nexts
  11492. 1897.37 s [opt-env-conf-test] where
  11493. 1897.37 s [opt-env-conf-test] go ::
  11494. 1897.37 s [opt-env-conf-test] Parser a ->
  11495. 1897.37 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
  11496. 1897.37 s [opt-env-conf-test] @@ -83,25 +83,8 @@
  11497. 1897.37 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  11498. 1897.37 s [opt-env-conf-test] case mTup of
  11499. 1897.37 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  11500. 1897.37 s [opt-env-conf-test] Just ((errOrRes, _), nexts) -> case errOrRes of
  11501. 1897.37 s [opt-env-conf-test] Success a -> pure (Right a)
  11502. 1897.37 s [opt-env-conf-test] - Failure firstErrors ->
  11503. 1897.37 s [opt-env-conf-test] - let goNexts ns = do
  11504. 1897.37 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  11505. 1897.37 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  11506. 1897.37 s [opt-env-conf-test] - case mNext of
  11507. 1897.37 s [opt-env-conf-test] - Nothing ->
  11508. 1897.37 s [opt-env-conf-test] - pure $
  11509. 1897.37 s [opt-env-conf-test] - Left $
  11510. 1897.37 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  11511. 1897.37 s [opt-env-conf-test] - let f = case mDebugMode of
  11512. 1897.37 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  11513. 1897.37 s [opt-env-conf-test] - Just _ -> id
  11514. 1897.37 s [opt-env-conf-test] - in f firstErrors
  11515. 1897.37 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  11516. 1897.37 s [opt-env-conf-test] - Success a -> pure (Right a)
  11517. 1897.37 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  11518. 1897.37 s [opt-env-conf-test] - in goNexts nexts
  11519. 1897.37 s [opt-env-conf-test] where
  11520. 1897.37 s [opt-env-conf-test] go ::
  11521. 1897.37 s [opt-env-conf-test] Parser a ->
  11522. 1897.37 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  11523. 1897.37 s [opt-env-conf-test] @@ -114,7 +114,6 @@
  11524. 1897.37 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  11525. 1897.37 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  11526. 1898.47 s [opt-env-conf-test] ParserEmpty mLoc -> do
  11527. 1898.47 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  11528. 1898.47 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  11529. 1898.47 s [opt-env-conf-test] ParserSelect fe ff -> do
  11530. 1898.47 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  11531. 1898.47 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
  11532. 1898.47 s [opt-env-conf-test] @@ -560,7 +560,6 @@
  11533. 1898.47 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11534. 1898.47 s [opt-env-conf-test] ppIndent $ go p'
  11535. 1898.47 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11536. 1898.47 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11537. 1898.47 s [opt-env-conf-test] ppIndent $ go p'
  11538. 1898.47 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  11539. 1898.47 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11540. 1898.47 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Run.hs:644:14-20
  11541. 1898.47 s [opt-env-conf-test] @@ -641,7 +641,7 @@
  11542. 1898.47 s [opt-env-conf-test] else ppErrors' errs
  11543. 1898.48 s [opt-env-conf-test] Success a -> do
  11544. 1898.48 s [opt-env-conf-test] put s' -- Only set state if parsing succeeded.
  11545. 1898.48 s [opt-env-conf-test] - pure $ Just a
  11546. 1898.48 s [opt-env-conf-test] + pure $ Nothing
  11547. 1898.48 s [opt-env-conf-test]
  11548. 1898.48 s [opt-env-conf-test] ppNonDet :: NonDetT IO a -> PP a
  11549. 1898.48 s [opt-env-conf-test] ppNonDet = PP . lift . lift . lift
  11550. 1898.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
  11551. 1898.48 s [opt-env-conf-test] @@ -633,15 +633,10 @@
  11552. 1898.48 s [opt-env-conf-test] e <- ask
  11553. 1898.48 s [opt-env-conf-test] results <- liftIO $ runPP pp s e
  11554. 1898.48 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  11555. 1898.48 s [opt-env-conf-test] case errOrRes of
  11556. 1898.48 s [opt-env-conf-test] - Failure errs ->
  11557. 1898.48 s [opt-env-conf-test] - if all errorIsForgivable errs
  11558. 1898.48 s [opt-env-conf-test] - then do
  11559. 1898.48 s [opt-env-conf-test] - pure Nothing
  11560. 1898.48 s [opt-env-conf-test] - else ppErrors' errs
  11561. 1898.48 s [opt-env-conf-test] Success a -> do
  11562. 1898.48 s [opt-env-conf-test] put s' -- Only set state if parsing succeeded.
  11563. 1898.48 s [opt-env-conf-test] pure $ Just a
  11564. 1898.48 s [opt-env-conf-test]
  11565. 1898.48 s [opt-env-conf-test] ppNonDet :: NonDetT IO a -> PP a
  11566. 1898.48 s [opt-env-conf-test] ppNonDet = PP . lift . lift . lift
  11567. 1898.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  11568. 1898.48 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  11569. 1898.48 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  11570. 1898.48 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  11571. 1898.48 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  11572. 1898.48 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  11573. 1898.48 s [opt-env-conf-test] (Nothing, _) -> o2
  11574. 1898.48 s [opt-env-conf-test] (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  11575. 1898.48 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  11576. 1898.48 s [opt-env-conf-test]
  11577. 1898.48 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  11578. 1898.48 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  11579. 1898.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  11580. 1898.48 s [opt-env-conf-test] @@ -33,11 +33,7 @@
  11581. 1898.48 s [opt-env-conf-test] unlines $
  11582. 1898.48 s [opt-env-conf-test] map
  11583. 1898.48 s [opt-env-conf-test] ("# " <>)
  11584. 1898.48 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  11585. 1898.48 s [opt-env-conf-test] - "This file was generated by running",
  11586. 1898.48 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  11587. 1898.48 s [opt-env-conf-test] - T.unpack content
  11588. 1898.48 s [opt-env-conf-test] ]
  11589. 1898.48 s [opt-env-conf-test]
  11590. 1898.48 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  11591. 1898.48 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  11592. 1898.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  11593. 1898.48 s [opt-env-conf-test] @@ -33,11 +33,10 @@
  11594. 1898.48 s [opt-env-conf-test] unlines $
  11595. 1898.48 s [opt-env-conf-test] map
  11596. 1898.48 s [opt-env-conf-test] ("# " <>)
  11597. 1898.48 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  11598. 1898.48 s [opt-env-conf-test] "This file was generated by running",
  11599. 1898.48 s [opt-env-conf-test] unwords [progname, "--render-nix-options"],
  11600. 1898.48 s [opt-env-conf-test] T.unpack content
  11601. 1898.48 s [opt-env-conf-test] ]
  11602. 1898.48 s [opt-env-conf-test]
  11603. 1898.48 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  11604. 1898.48 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  11605. 1898.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
  11606. 1898.48 s [opt-env-conf-test] @@ -35,7 +35,6 @@
  11607. 1898.48 s [opt-env-conf-test] ("# " <>)
  11608. 1898.49 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  11609. 1898.49 s [opt-env-conf-test] "This file was generated by running",
  11610. 1898.49 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  11611. 1898.49 s [opt-env-conf-test] T.unpack content
  11612. 1898.49 s [opt-env-conf-test] ]
  11613. 1898.49 s [opt-env-conf-test]
  11614. 1898.49 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
  11615. 1898.49 s [opt-env-conf-test] @@ -72,17 +72,10 @@
  11616. 1898.49 s [opt-env-conf-test] let codecTups = maybe [] NE.toList (settingConfigVals s)
  11617. 1898.49 s [opt-env-conf-test] in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
  11618. 1898.49 s [opt-env-conf-test] let go' :: NonEmpty Text -> Map Text Option
  11619. 1898.49 s [opt-env-conf-test] go' (p :| ps) = case NE.nonEmpty ps of
  11620. 1898.49 s [opt-env-conf-test] - Nothing ->
  11621. 1898.49 s [opt-env-conf-test] - let oc =
  11622. 1898.49 s [opt-env-conf-test] - maybe
  11623. 1898.49 s [opt-env-conf-test] - (optionalFieldWith' p configValSettingCodec)
  11624. 1898.49 s [opt-env-conf-test] - (optionalFieldWith p configValSettingCodec)
  11625. 1898.49 s [opt-env-conf-test] - (T.pack <$> settingHelp s)
  11626. 1898.49 s [opt-env-conf-test] - in objectCodecNixOptions oc
  11627. 1898.49 s [opt-env-conf-test] Just rest ->
  11628. 1898.49 s [opt-env-conf-test] let m = go' rest
  11629. 1898.49 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  11630. 1898.49 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  11631. 1898.49 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  11632. 1898.49 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  11633. 1898.49 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Nix.hs:85:69-97
  11634. 1898.49 s [opt-env-conf-test] @@ -82,7 +82,7 @@
  11635. 1898.49 s [opt-env-conf-test] in objectCodecNixOptions oc
  11636. 1898.49 s [opt-env-conf-test] Just rest ->
  11637. 1898.49 s [opt-env-conf-test] let m = go' rest
  11638. 1898.49 s [opt-env-conf-test] - in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  11639. 1898.49 s [opt-env-conf-test] + in M.singleton p $ emptyOption {optionType = Nothing}
  11640. 1898.49 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  11641. 1898.49 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  11642. 1898.49 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  11643. 1898.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  11644. 1898.49 s [opt-env-conf-test] @@ -114,7 +114,6 @@
  11645. 1898.49 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  11646. 1898.49 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  11647. 1898.49 s [opt-env-conf-test] ParserEmpty mLoc -> do
  11648. 1898.49 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  11649. 1898.49 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  11650. 1898.49 s [opt-env-conf-test] ParserSelect fe ff -> do
  11651. 1898.49 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  11652. 1898.49 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:116:27-37
  11653. 1898.49 s [opt-env-conf-test] @@ -113,9 +113,8 @@
  11654. 1898.49 s [opt-env-conf-test] ParserAp ff fa -> do
  11655. 1898.49 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  11656. 1898.49 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  11657. 1898.49 s [opt-env-conf-test] ParserEmpty mLoc -> do
  11658. 1898.49 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  11659. 1898.49 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  11660. 1898.49 s [opt-env-conf-test] ParserSelect fe ff -> do
  11661. 1898.49 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  11662. 1898.49 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  11663. 1898.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  11664. 1898.49 s [opt-env-conf-test] @@ -33,11 +33,10 @@
  11665. 1898.49 s [opt-env-conf-test] unlines $
  11666. 1898.49 s [opt-env-conf-test] map
  11667. 1898.49 s [opt-env-conf-test] ("# " <>)
  11668. 1898.49 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  11669. 1898.49 s [opt-env-conf-test] "This file was generated by running",
  11670. 1898.49 s [opt-env-conf-test] unwords [progname, "--render-nix-options"],
  11671. 1898.49 s [opt-env-conf-test] - T.unpack content
  11672. 1898.49 s [opt-env-conf-test] ]
  11673. 1898.49 s [opt-env-conf-test]
  11674. 1898.49 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  11675. 1898.49 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  11676. 1898.49 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:119:29-42
  11677. 1898.49 s [opt-env-conf-test] @@ -116,9 +116,8 @@
  11678. 1898.49 s [opt-env-conf-test] ParserEmpty mLoc -> do
  11679. 1898.49 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  11680. 1898.49 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  11681. 1898.49 s [opt-env-conf-test] ParserSelect fe ff -> do
  11682. 1898.49 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  11683. 1898.49 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  11684. 1898.49 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  11685. 1898.49 s [opt-env-conf-test] debug [syntaxChunk "Alt"]
  11686. 1898.49 s [opt-env-conf-test] ppIndent $ do
  11687. 1898.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
  11688. 1898.49 s [opt-env-conf-test] @@ -148,7 +148,6 @@
  11689. 1898.49 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11690. 1898.49 s [opt-env-conf-test] pure (a :| as)
  11691. 1898.49 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11692. 1898.49 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11693. 1898.49 s [opt-env-conf-test] ppIndent $ do
  11694. 1898.49 s [opt-env-conf-test] e <- ask
  11695. 1898.49 s [opt-env-conf-test] s <- get
  11696. 1898.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
  11697. 1898.49 s [opt-env-conf-test] @@ -148,7 +148,6 @@
  11698. 1898.49 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11699. 1898.49 s [opt-env-conf-test] pure (a :| as)
  11700. 1898.49 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11701. 1898.49 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11702. 1898.49 s [opt-env-conf-test] ppIndent $ do
  11703. 1898.49 s [opt-env-conf-test] e <- ask
  11704. 1898.49 s [opt-env-conf-test] s <- get
  11705. 1898.49 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
  11706. 1898.49 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  11707. 1898.49 s [opt-env-conf-test] case result of
  11708. 1898.49 s [opt-env-conf-test] Success a -> pure a
  11709. 1898.49 s [opt-env-conf-test] Failure errs -> do
  11710. 1904.42 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11711. 1904.46 s [opt-env-conf-test] + if not $ True
  11712. 1904.46 s [opt-env-conf-test] then ppErrors' errs
  11713. 1904.46 s [opt-env-conf-test] else do
  11714. 1904.46 s [opt-env-conf-test] -- Settings available below
  11715. 1904.46 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
  11716. 1904.46 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  11717. 1904.46 s [opt-env-conf-test] case result of
  11718. 1904.46 s [opt-env-conf-test] Success a -> pure a
  11719. 1904.47 s [opt-env-conf-test] Failure errs -> do
  11720. 1904.47 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11721. 1904.47 s [opt-env-conf-test] + if not $ False
  11722. 1904.47 s [opt-env-conf-test] then ppErrors' errs
  11723. 1904.47 s [opt-env-conf-test] else do
  11724. 1904.47 s [opt-env-conf-test] -- Settings available below
  11725. 1904.47 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:161:24-50
  11726. 1904.47 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  11727. 1904.47 s [opt-env-conf-test] case result of
  11728. 1904.47 s [opt-env-conf-test] Success a -> pure a
  11729. 1904.47 s [opt-env-conf-test] Failure errs -> do
  11730. 1904.47 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11731. 1904.47 s [opt-env-conf-test] + if not $ not (all errorIsForgivable errs)
  11732. 1904.47 s [opt-env-conf-test] then ppErrors' errs
  11733. 1904.47 s [opt-env-conf-test] else do
  11734. 1904.47 s [opt-env-conf-test] -- Settings available below
  11735. 1904.47 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
  11736. 1904.47 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  11737. 1904.47 s [opt-env-conf-test] case result of
  11738. 1904.47 s [opt-env-conf-test] Success a -> pure a
  11739. 1904.47 s [opt-env-conf-test] Failure errs -> do
  11740. 1904.47 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11741. 1904.47 s [opt-env-conf-test] + if True
  11742. 1904.47 s [opt-env-conf-test] then ppErrors' errs
  11743. 1904.47 s [opt-env-conf-test] else do
  11744. 1904.47 s [opt-env-conf-test] -- Settings available below
  11745. 1904.47 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
  11746. 1904.47 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  11747. 1904.47 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  11748. 1904.47 s [opt-env-conf-test] ppIndent $ go p2
  11749. 1904.47 s [opt-env-conf-test] ParserMany mLoc p' -> do
  11750. 1904.47 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11751. 1904.47 s [opt-env-conf-test] ppIndent $ do
  11752. 1904.47 s [opt-env-conf-test] eor <- tryPP $ go p'
  11753. 1904.47 s [opt-env-conf-test] case eor of
  11754. 1904.47 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
  11755. 1904.47 s [opt-env-conf-test] @@ -148,7 +148,6 @@
  11756. 1904.47 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11757. 1904.47 s [opt-env-conf-test] pure (a :| as)
  11758. 1904.47 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11759. 1904.47 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11760. 1904.47 s [opt-env-conf-test] ppIndent $ do
  11761. 1904.47 s [opt-env-conf-test] e <- ask
  11762. 1904.48 s [opt-env-conf-test] s <- get
  11763. 1904.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
  11764. 1904.48 s [opt-env-conf-test] @@ -124,13 +124,10 @@
  11765. 1904.48 s [opt-env-conf-test] ppIndent $ do
  11766. 1904.48 s [opt-env-conf-test] debug ["Trying left side."]
  11767. 1904.48 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  11768. 1904.48 s [opt-env-conf-test] case eor of
  11769. 1904.48 s [opt-env-conf-test] - Just a -> do
  11770. 1904.48 s [opt-env-conf-test] - debug ["Left side succeeded."]
  11771. 1904.48 s [opt-env-conf-test] - pure a
  11772. 1904.48 s [opt-env-conf-test] Nothing -> do
  11773. 1904.48 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  11774. 1904.48 s [opt-env-conf-test] ppIndent $ go p2
  11775. 1904.48 s [opt-env-conf-test] ParserMany mLoc p' -> do
  11776. 1904.48 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11777. 1904.48 s [opt-env-conf-test] ppIndent $ do
  11778. 1904.48 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:131:24-31
  11779. 1904.48 s [opt-env-conf-test] @@ -128,9 +128,8 @@
  11780. 1904.48 s [opt-env-conf-test] Just a -> do
  11781. 1904.48 s [opt-env-conf-test] debug ["Left side succeeded."]
  11782. 1904.48 s [opt-env-conf-test] pure a
  11783. 1904.48 s [opt-env-conf-test] Nothing -> do
  11784. 1904.48 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  11785. 1904.48 s [opt-env-conf-test] ppIndent $ go p2
  11786. 1904.48 s [opt-env-conf-test] ParserMany mLoc p' -> do
  11787. 1904.48 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11788. 1904.48 s [opt-env-conf-test] ppIndent $ do
  11789. 1904.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  11790. 1904.48 s [opt-env-conf-test] @@ -141,7 +141,6 @@
  11791. 1904.48 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11792. 1904.48 s [opt-env-conf-test] pure (a : as)
  11793. 1904.48 s [opt-env-conf-test] ParserSome mLoc p' -> do
  11794. 1904.48 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11795. 1904.48 s [opt-env-conf-test] ppIndent $ do
  11796. 1904.48 s [opt-env-conf-test] a <- go p'
  11797. 1904.48 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  11798. 1904.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
  11799. 1904.48 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  11800. 1904.48 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  11801. 1904.48 s [opt-env-conf-test] ppIndent $ go p2
  11802. 1904.48 s [opt-env-conf-test] ParserMany mLoc p' -> do
  11803. 1904.48 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11804. 1904.48 s [opt-env-conf-test] ppIndent $ do
  11805. 1904.48 s [opt-env-conf-test] eor <- tryPP $ go p'
  11806. 1904.48 s [opt-env-conf-test] case eor of
  11807. 1904.48 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:175:22-44
  11808. 1904.48 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  11809. 1904.48 s [opt-env-conf-test] -- with only forgivable errors
  11810. 1904.48 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  11811. 1904.48 s [opt-env-conf-test] -- then this should be an unforgivable error.
  11812. 1904.48 s [opt-env-conf-test] - if null parsedSettingsMap
  11813. 1904.48 s [opt-env-conf-test] + if not (null parsedSettingsMap)
  11814. 1904.48 s [opt-env-conf-test] then ppErrors' errs
  11815. 1904.48 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11816. 1904.48 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11817. 1904.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
  11818. 1904.48 s [opt-env-conf-test] @@ -155,26 +155,25 @@
  11819. 1904.48 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  11820. 1904.48 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  11821. 1904.48 s [opt-env-conf-test] put s'
  11822. 1904.48 s [opt-env-conf-test] case result of
  11823. 1904.48 s [opt-env-conf-test] - Success a -> pure a
  11824. 1904.48 s [opt-env-conf-test] Failure errs -> do
  11825. 1904.48 s [opt-env-conf-test] if not $ all errorIsForgivable errs
  11826. 1904.48 s [opt-env-conf-test] then ppErrors' errs
  11827. 1904.48 s [opt-env-conf-test] else do
  11828. 1904.48 s [opt-env-conf-test] -- Settings available below
  11829. 1904.48 s [opt-env-conf-test] let settingsMap = parserSettingsMap p'
  11830. 1904.48 s [opt-env-conf-test] -- Settings that have been parsed
  11831. 1904.48 s [opt-env-conf-test] parsedMap <- gets ppStateParsedSettings
  11832. 1904.48 s [opt-env-conf-test] -- Settings that have been parsed below
  11833. 1904.48 s [opt-env-conf-test] let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11834. 1904.48 s [opt-env-conf-test] -- If any settings have been parsed below, and parsing still failed
  11835. 1904.48 s [opt-env-conf-test] -- (this is the case because we're in the failure branch)
  11836. 1904.48 s [opt-env-conf-test] -- with only forgivable errors
  11837. 1904.48 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  11838. 1904.48 s [opt-env-conf-test] -- then this should be an unforgivable error.
  11839. 1904.48 s [opt-env-conf-test] if null parsedSettingsMap
  11840. 1904.48 s [opt-env-conf-test] then ppErrors' errs
  11841. 1904.48 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11842. 1904.48 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11843. 1904.48 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11844. 1904.48 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11845. 1904.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
  11846. 1904.48 s [opt-env-conf-test] @@ -155,26 +155,8 @@
  11847. 1904.48 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  11848. 1904.48 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  11849. 1904.48 s [opt-env-conf-test] put s'
  11850. 1904.48 s [opt-env-conf-test] case result of
  11851. 1904.48 s [opt-env-conf-test] Success a -> pure a
  11852. 1904.48 s [opt-env-conf-test] - Failure errs -> do
  11853. 1904.48 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11854. 1904.48 s [opt-env-conf-test] - then ppErrors' errs
  11855. 1904.49 s [opt-env-conf-test] - else do
  11856. 1904.49 s [opt-env-conf-test] - -- Settings available below
  11857. 1904.49 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  11858. 1904.49 s [opt-env-conf-test] - -- Settings that have been parsed
  11859. 1904.49 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  11860. 1904.49 s [opt-env-conf-test] - -- Settings that have been parsed below
  11861. 1904.49 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11862. 1904.49 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  11863. 1904.49 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  11864. 1904.49 s [opt-env-conf-test] - -- with only forgivable errors
  11865. 1904.49 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  11866. 1904.49 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  11867. 1904.49 s [opt-env-conf-test] - if null parsedSettingsMap
  11868. 1904.49 s [opt-env-conf-test] - then ppErrors' errs
  11869. 1904.49 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11870. 1904.49 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11871. 1904.49 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11872. 1910.14 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11873. 1910.14 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
  11874. 1910.17 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  11875. 1910.17 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  11876. 1910.17 s [opt-env-conf-test] ppIndent $ go p2
  11877. 1910.17 s [opt-env-conf-test] ParserMany mLoc p' -> do
  11878. 1910.17 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11879. 1910.17 s [opt-env-conf-test] ppIndent $ do
  11880. 1910.17 s [opt-env-conf-test] eor <- tryPP $ go p'
  11881. 1910.17 s [opt-env-conf-test] case eor of
  11882. 1910.17 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:196:72-82
  11883. 1910.17 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11884. 1910.17 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11885. 1910.17 s [opt-env-conf-test] case errOrB of
  11886. 1910.17 s [opt-env-conf-test] Left err -> do
  11887. 1910.17 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11888. 1910.17 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
  11889. 1910.18 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11890. 1910.18 s [opt-env-conf-test] Right b -> do
  11891. 1910.18 s [opt-env-conf-test] debug ["succeeded"]
  11892. 1910.18 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
  11893. 1910.18 s [opt-env-conf-test] @@ -193,7 +193,6 @@
  11894. 1910.18 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11895. 1910.18 s [opt-env-conf-test] case errOrB of
  11896. 1910.18 s [opt-env-conf-test] Left err -> do
  11897. 1910.18 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11898. 1910.18 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11899. 1910.18 s [opt-env-conf-test] Right b -> do
  11900. 1910.18 s [opt-env-conf-test] debug ["succeeded"]
  11901. 1910.18 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
  11902. 1910.18 s [opt-env-conf-test] @@ -193,7 +193,6 @@
  11903. 1910.18 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11904. 1910.18 s [opt-env-conf-test] case errOrB of
  11905. 1910.18 s [opt-env-conf-test] Left err -> do
  11906. 1910.18 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11907. 1910.18 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11908. 1910.18 s [opt-env-conf-test] Right b -> do
  11909. 1910.18 s [opt-env-conf-test] debug ["succeeded"]
  11910. 1910.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
  11911. 1910.18 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  11912. 1910.18 s [opt-env-conf-test] case errOrB of
  11913. 1910.18 s [opt-env-conf-test] Left err -> do
  11914. 1910.18 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11915. 1910.18 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11916. 1910.18 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed True err
  11917. 1910.18 s [opt-env-conf-test] Right b -> do
  11918. 1910.18 s [opt-env-conf-test] debug ["succeeded"]
  11919. 1910.18 s [opt-env-conf-test] pure b
  11920. 1910.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
  11921. 1910.18 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  11922. 1910.18 s [opt-env-conf-test] case errOrB of
  11923. 1910.18 s [opt-env-conf-test] Left err -> do
  11924. 1910.18 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11925. 1910.18 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11926. 1910.18 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed False err
  11927. 1910.18 s [opt-env-conf-test] Right b -> do
  11928. 1910.18 s [opt-env-conf-test] debug ["succeeded"]
  11929. 1910.18 s [opt-env-conf-test] pure b
  11930. 1910.19 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:197:56-66
  11931. 1910.19 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  11932. 1910.19 s [opt-env-conf-test] case errOrB of
  11933. 1910.19 s [opt-env-conf-test] Left err -> do
  11934. 1910.19 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11935. 1910.19 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11936. 1910.19 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed not (forgivable) err
  11937. 1910.19 s [opt-env-conf-test] Right b -> do
  11938. 1910.19 s [opt-env-conf-test] debug ["succeeded"]
  11939. 1910.19 s [opt-env-conf-test] pure b
  11940. 1910.19 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:195:29-70
  11941. 1910.19 s [opt-env-conf-test] @@ -192,9 +192,8 @@
  11942. 1910.19 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  11943. 1910.19 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11944. 1910.19 s [opt-env-conf-test] case errOrB of
  11945. 1910.19 s [opt-env-conf-test] Left err -> do
  11946. 1910.19 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11947. 1910.19 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11948. 1910.19 s [opt-env-conf-test] Right b -> do
  11949. 1910.19 s [opt-env-conf-test] debug ["succeeded"]
  11950. 1910.19 s [opt-env-conf-test] pure b
  11951. 1910.19 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
  11952. 1910.19 s [opt-env-conf-test] @@ -191,13 +191,10 @@
  11953. 1910.19 s [opt-env-conf-test] ppIndent $
  11954. 1910.19 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  11955. 1910.19 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11956. 1910.19 s [opt-env-conf-test] case errOrB of
  11957. 1910.19 s [opt-env-conf-test] - Left err -> do
  11958. 1910.19 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11959. 1910.19 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11960. 1910.19 s [opt-env-conf-test] Right b -> do
  11961. 1910.19 s [opt-env-conf-test] debug ["succeeded"]
  11962. 1910.19 s [opt-env-conf-test] pure b
  11963. 1910.19 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  11964. 1910.19 s [opt-env-conf-test] debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
  11965. 1910.19 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  11966. 1910.19 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:196:72-82
  11967. 1910.19 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11968. 1910.19 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11969. 1910.19 s [opt-env-conf-test] case errOrB of
  11970. 1910.19 s [opt-env-conf-test] Left err -> do
  11971. 1910.19 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11972. 1910.19 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show True]
  11973. 1910.19 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11974. 1910.19 s [opt-env-conf-test] Right b -> do
  11975. 1910.19 s [opt-env-conf-test] debug ["succeeded"]
  11976. 1910.19 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:152:20-112
  11977. 1910.19 s [opt-env-conf-test] @@ -149,32 +149,31 @@
  11978. 1910.19 s [opt-env-conf-test] pure (a :| as)
  11979. 1910.19 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11980. 1910.19 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11981. 1910.19 s [opt-env-conf-test] ppIndent $ do
  11982. 1910.20 s [opt-env-conf-test] e <- ask
  11983. 1910.20 s [opt-env-conf-test] s <- get
  11984. 1910.20 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  11985. 1910.20 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  11986. 1910.20 s [opt-env-conf-test] - put s'
  11987. 1910.20 s [opt-env-conf-test] case result of
  11988. 1910.20 s [opt-env-conf-test] Success a -> pure a
  11989. 1910.20 s [opt-env-conf-test] Failure errs -> do
  11990. 1910.20 s [opt-env-conf-test] if not $ all errorIsForgivable errs
  11991. 1910.20 s [opt-env-conf-test] then ppErrors' errs
  11992. 1910.20 s [opt-env-conf-test] else do
  11993. 1910.20 s [opt-env-conf-test] -- Settings available below
  11994. 1910.20 s [opt-env-conf-test] let settingsMap = parserSettingsMap p'
  11995. 1910.20 s [opt-env-conf-test] -- Settings that have been parsed
  11996. 1910.20 s [opt-env-conf-test] parsedMap <- gets ppStateParsedSettings
  11997. 1910.20 s [opt-env-conf-test] -- Settings that have been parsed below
  11998. 1910.20 s [opt-env-conf-test] let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11999. 1910.20 s [opt-env-conf-test] -- If any settings have been parsed below, and parsing still failed
  12000. 1910.20 s [opt-env-conf-test] -- (this is the case because we're in the failure branch)
  12001. 1910.20 s [opt-env-conf-test] -- with only forgivable errors
  12002. 1910.20 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  12003. 1910.20 s [opt-env-conf-test] -- then this should be an unforgivable error.
  12004. 1910.20 s [opt-env-conf-test] if null parsedSettingsMap
  12005. 1910.20 s [opt-env-conf-test] then ppErrors' errs
  12006. 1910.20 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  12007. 1910.20 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  12008. 1910.20 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  12009. 1910.20 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  12010. 1910.20 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:150:37-112
  12011. 1910.20 s [opt-env-conf-test] @@ -147,34 +147,33 @@
  12012. 1910.20 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  12013. 1910.20 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  12014. 1910.20 s [opt-env-conf-test] pure (a :| as)
  12015. 1910.20 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  12016. 1910.20 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  12017. 1910.20 s [opt-env-conf-test] ppIndent $ do
  12018. 1910.20 s [opt-env-conf-test] e <- ask
  12019. 1910.20 s [opt-env-conf-test] s <- get
  12020. 1910.20 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  12021. 1910.20 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  12022. 1910.20 s [opt-env-conf-test] put s'
  12023. 1910.20 s [opt-env-conf-test] case result of
  12024. 1910.20 s [opt-env-conf-test] Success a -> pure a
  12025. 1910.20 s [opt-env-conf-test] Failure errs -> do
  12026. 1910.20 s [opt-env-conf-test] if not $ all errorIsForgivable errs
  12027. 1910.20 s [opt-env-conf-test] then ppErrors' errs
  12028. 1910.20 s [opt-env-conf-test] else do
  12029. 1910.20 s [opt-env-conf-test] -- Settings available below
  12030. 1910.20 s [opt-env-conf-test] let settingsMap = parserSettingsMap p'
  12031. 1915.76 s [opt-env-conf-test] -- Settings that have been parsed
  12032. 1915.78 s [opt-env-conf-test] parsedMap <- gets ppStateParsedSettings
  12033. 1915.78 s [opt-env-conf-test] -- Settings that have been parsed below
  12034. 1915.78 s [opt-env-conf-test] let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  12035. 1915.78 s [opt-env-conf-test] -- If any settings have been parsed below, and parsing still failed
  12036. 1915.78 s [opt-env-conf-test] -- (this is the case because we're in the failure branch)
  12037. 1915.78 s [opt-env-conf-test] -- with only forgivable errors
  12038. 1915.78 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  12039. 1915.78 s [opt-env-conf-test] -- then this should be an unforgivable error.
  12040. 1915.79 s [opt-env-conf-test] if null parsedSettingsMap
  12041. 1915.79 s [opt-env-conf-test] then ppErrors' errs
  12042. 1915.79 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  12043. 1915.79 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  12044. 1915.79 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  12045. 1915.79 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  12046. 1915.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
  12047. 1915.79 s [opt-env-conf-test] @@ -213,7 +213,6 @@
  12048. 1915.79 s [opt-env-conf-test] case mDefaultCommand of
  12049. 1915.79 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  12050. 1915.79 s [opt-env-conf-test] Just dc -> do
  12051. 1915.79 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  12052. 1915.79 s [opt-env-conf-test] go $ commandParser dc
  12053. 1915.79 s [opt-env-conf-test] Just s -> do
  12054. 1915.79 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  12055. 1915.79 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
  12056. 1915.79 s [opt-env-conf-test] @@ -191,13 +191,10 @@
  12057. 1915.79 s [opt-env-conf-test] ppIndent $
  12058. 1915.79 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  12059. 1915.79 s [opt-env-conf-test] errOrB <- liftIO $ f a
  12060. 1915.79 s [opt-env-conf-test] case errOrB of
  12061. 1915.79 s [opt-env-conf-test] Left err -> do
  12062. 1915.79 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  12063. 1915.79 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  12064. 1915.79 s [opt-env-conf-test] - Right b -> do
  12065. 1915.79 s [opt-env-conf-test] - debug ["succeeded"]
  12066. 1915.79 s [opt-env-conf-test] - pure b
  12067. 1915.79 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  12068. 1915.79 s [opt-env-conf-test] debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
  12069. 1915.79 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  12070. 1915.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
  12071. 1915.79 s [opt-env-conf-test] @@ -213,7 +213,6 @@
  12072. 1915.79 s [opt-env-conf-test] case mDefaultCommand of
  12073. 1915.79 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  12074. 1915.79 s [opt-env-conf-test] Just dc -> do
  12075. 1915.79 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  12076. 1915.79 s [opt-env-conf-test] go $ commandParser dc
  12077. 1915.79 s [opt-env-conf-test] Just s -> do
  12078. 1915.79 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  12079. 1915.79 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:215:28-40
  12080. 1915.79 s [opt-env-conf-test] @@ -212,9 +212,8 @@
  12081. 1915.79 s [opt-env-conf-test] find ((== d) . commandArg) cs
  12082. 1915.79 s [opt-env-conf-test] case mDefaultCommand of
  12083. 1915.79 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  12084. 1915.79 s [opt-env-conf-test] Just dc -> do
  12085. 1915.79 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  12086. 1915.79 s [opt-env-conf-test] go $ commandParser dc
  12087. 1915.79 s [opt-env-conf-test] Just s -> do
  12088. 1915.80 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  12089. 1915.80 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  12090. 1915.80 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
  12091. 1915.80 s [opt-env-conf-test] @@ -210,11 +210,8 @@
  12092. 1915.80 s [opt-env-conf-test] let mDefaultCommand = do
  12093. 1915.80 s [opt-env-conf-test] d <- mDefault
  12094. 1915.80 s [opt-env-conf-test] find ((== d) . commandArg) cs
  12095. 1915.80 s [opt-env-conf-test] case mDefaultCommand of
  12096. 1915.80 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  12097. 1915.80 s [opt-env-conf-test] - Just dc -> do
  12098. 1915.80 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  12099. 1915.80 s [opt-env-conf-test] - go $ commandParser dc
  12100. 1915.80 s [opt-env-conf-test] Just s -> do
  12101. 1915.80 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  12102. 1915.80 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  12103. 1915.80 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
  12104. 1915.80 s [opt-env-conf-test] @@ -210,11 +210,10 @@
  12105. 1915.80 s [opt-env-conf-test] let mDefaultCommand = do
  12106. 1915.80 s [opt-env-conf-test] d <- mDefault
  12107. 1915.80 s [opt-env-conf-test] find ((== d) . commandArg) cs
  12108. 1915.80 s [opt-env-conf-test] case mDefaultCommand of
  12109. 1915.80 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  12110. 1915.80 s [opt-env-conf-test] Just dc -> do
  12111. 1915.80 s [opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
  12112. 1915.80 s [opt-env-conf-test] go $ commandParser dc
  12113. 1915.80 s [opt-env-conf-test] Just s -> do
  12114. 1915.80 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  12115. 1915.80 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  12116. 1915.80 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
  12117. 1915.80 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  12118. 1915.80 s [opt-env-conf-test] -- with only forgivable errors
  12119. 1915.80 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  12120. 1915.80 s [opt-env-conf-test] -- then this should be an unforgivable error.
  12121. 1915.80 s [opt-env-conf-test] - if null parsedSettingsMap
  12122. 1915.80 s [opt-env-conf-test] + if True
  12123. 1915.80 s [opt-env-conf-test] then ppErrors' errs
  12124. 1915.80 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  12125. 1915.80 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  12126. 1915.80 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:161:18-50
  12127. 1915.80 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  12128. 1915.80 s [opt-env-conf-test] case result of
  12129. 1915.80 s [opt-env-conf-test] Success a -> pure a
  12130. 1915.80 s [opt-env-conf-test] Failure errs -> do
  12131. 1915.80 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  12132. 1915.80 s [opt-env-conf-test] + if not (not $ all errorIsForgivable errs)
  12133. 1915.80 s [opt-env-conf-test] then ppErrors' errs
  12134. 1915.80 s [opt-env-conf-test] else do
  12135. 1915.80 s [opt-env-conf-test] -- Settings available below
  12136. 1915.80 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
  12137. 1915.80 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  12138. 1915.80 s [opt-env-conf-test] case result of
  12139. 1915.80 s [opt-env-conf-test] Success a -> pure a
  12140. 1915.80 s [opt-env-conf-test] Failure errs -> do
  12141. 1915.80 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  12142. 1915.80 s [opt-env-conf-test] + if False
  12143. 1915.80 s [opt-env-conf-test] then ppErrors' errs
  12144. 1915.80 s [opt-env-conf-test] else do
  12145. 1915.80 s [opt-env-conf-test] -- Settings available below
  12146. 1915.80 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
  12147. 1915.80 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  12148. 1915.80 s [opt-env-conf-test] -- with only forgivable errors
  12149. 1915.80 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  12150. 1915.80 s [opt-env-conf-test] -- then this should be an unforgivable error.
  12151. 1915.80 s [opt-env-conf-test] - if null parsedSettingsMap
  12152. 1915.81 s [opt-env-conf-test] + if False
  12153. 1915.81 s [opt-env-conf-test] then ppErrors' errs
  12154. 1915.81 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  12155. 1915.81 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  12156. 1915.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  12157. 1915.81 s [opt-env-conf-test] @@ -114,7 +114,6 @@
  12158. 1915.81 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  12159. 1915.81 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  12160. 1915.81 s [opt-env-conf-test] ParserEmpty mLoc -> do
  12161. 1915.81 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  12162. 1915.81 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  12163. 1915.81 s [opt-env-conf-test] ParserSelect fe ff -> do
  12164. 1915.81 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  12165. 1915.81 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:113:25-35
  12166. 1915.81 s [opt-env-conf-test] @@ -110,9 +110,8 @@
  12167. 1915.81 s [opt-env-conf-test] ParserPure a -> do
  12168. 1915.81 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  12169. 1915.81 s [opt-env-conf-test] pure a
  12170. 1915.81 s [opt-env-conf-test] ParserAp ff fa -> do
  12171. 1915.81 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  12172. 1915.81 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  12173. 1915.81 s [opt-env-conf-test] ParserEmpty mLoc -> do
  12174. 1915.81 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  12175. 1915.81 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  12176. 1915.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
  12177. 1915.81 s [opt-env-conf-test] @@ -222,7 +222,6 @@
  12178. 1915.81 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  12179. 1915.81 s [opt-env-conf-test] go $ commandParser c
  12180. 1915.81 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  12181. 1921.70 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  12182. 1921.72 s [opt-env-conf-test] ppIndent $ do
  12183. 1921.72 s [opt-env-conf-test] debug ["loading config"]
  12184. 1921.72 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  12185. 1921.72 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:224:38-20
  12186. 1921.72 s [opt-env-conf-test] @@ -221,15 +221,14 @@
  12187. 1921.72 s [opt-env-conf-test] Just c -> do
  12188. 1921.72 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  12189. 1921.73 s [opt-env-conf-test] go $ commandParser c
  12190. 1921.73 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  12191. 1921.73 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  12192. 1921.73 s [opt-env-conf-test] ppIndent $ do
  12193. 1921.73 s [opt-env-conf-test] debug ["loading config"]
  12194. 1921.73 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  12195. 1921.73 s [opt-env-conf-test] debug ["with loaded config"]
  12196. 1921.73 s [opt-env-conf-test] ppIndent $
  12197. 1921.73 s [opt-env-conf-test] local (\e -> e {ppEnvConf = mNewConfig}) $
  12198. 1921.73 s [opt-env-conf-test] go pa
  12199. 1921.73 s [opt-env-conf-test] ParserSetting mLoc set@Setting {..} -> do
  12200. 1921.73 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  12201. 1921.73 s [opt-env-conf-test] when (not (Set.null settingRequiredCapabilities)) $
  12202. 1921.73 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
  12203. 1921.73 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  12204. 1921.73 s [opt-env-conf-test] mLoc
  12205. 1921.73 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  12206. 1921.74 s [opt-env-conf-test] mArg <-
  12207. 1921.74 s [opt-env-conf-test] - if settingTryArgument
  12208. 1921.74 s [opt-env-conf-test] + if True
  12209. 1921.74 s [opt-env-conf-test] then do
  12210. 1921.74 s [opt-env-conf-test] -- Require readers before finding the argument so the parser
  12211. 1921.74 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12212. 1921.74 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
  12213. 1921.74 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  12214. 1921.74 s [opt-env-conf-test] mLoc
  12215. 1921.74 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  12216. 1921.74 s [opt-env-conf-test] mArg <-
  12217. 1921.74 s [opt-env-conf-test] - if settingTryArgument
  12218. 1921.74 s [opt-env-conf-test] + if False
  12219. 1921.74 s [opt-env-conf-test] then do
  12220. 1921.74 s [opt-env-conf-test] -- Require readers before finding the argument so the parser
  12221. 1921.74 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12222. 1921.74 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:262:16-34
  12223. 1921.74 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  12224. 1921.74 s [opt-env-conf-test] mLoc
  12225. 1921.74 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  12226. 1921.74 s [opt-env-conf-test] mArg <-
  12227. 1921.74 s [opt-env-conf-test] - if settingTryArgument
  12228. 1921.74 s [opt-env-conf-test] + if not (settingTryArgument)
  12229. 1921.74 s [opt-env-conf-test] then do
  12230. 1921.74 s [opt-env-conf-test] -- Require readers before finding the argument so the parser
  12231. 1921.74 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12232. 1921.74 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
  12233. 1921.74 s [opt-env-conf-test] @@ -270,14 +270,13 @@
  12234. 1921.74 s [opt-env-conf-test] debug ["could not set based on argument: no argument"]
  12235. 1921.74 s [opt-env-conf-test] pure NotFound
  12236. 1921.74 s [opt-env-conf-test] Just argStr -> cap $
  12237. 1921.74 s [opt-env-conf-test] case tryReaders rs argStr of
  12238. 1921.74 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12239. 1921.74 s [opt-env-conf-test] Right a -> do
  12240. 1921.75 s [opt-env-conf-test] debug
  12241. 1921.75 s [opt-env-conf-test] [ "set based on argument: ",
  12242. 1921.75 s [opt-env-conf-test] chunk $ T.pack $ show argStr
  12243. 1921.75 s [opt-env-conf-test] ]
  12244. 1921.75 s [opt-env-conf-test] pure $ Found a
  12245. 1921.75 s [opt-env-conf-test] else pure NotRun
  12246. 1921.75 s [opt-env-conf-test]
  12247. 1921.75 s [opt-env-conf-test] case mArg of
  12248. 1921.75 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
  12249. 1921.75 s [opt-env-conf-test] @@ -270,14 +270,8 @@
  12250. 1921.75 s [opt-env-conf-test] debug ["could not set based on argument: no argument"]
  12251. 1921.75 s [opt-env-conf-test] pure NotFound
  12252. 1921.75 s [opt-env-conf-test] Just argStr -> cap $
  12253. 1921.75 s [opt-env-conf-test] case tryReaders rs argStr of
  12254. 1921.75 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12255. 1921.75 s [opt-env-conf-test] - Right a -> do
  12256. 1921.75 s [opt-env-conf-test] - debug
  12257. 1921.75 s [opt-env-conf-test] - [ "set based on argument: ",
  12258. 1921.75 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  12259. 1921.75 s [opt-env-conf-test] - ]
  12260. 1921.75 s [opt-env-conf-test] - pure $ Found a
  12261. 1921.75 s [opt-env-conf-test] else pure NotRun
  12262. 1921.75 s [opt-env-conf-test]
  12263. 1921.75 s [opt-env-conf-test] case mArg of
  12264. 1921.75 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
  12265. 1921.75 s [opt-env-conf-test] @@ -265,19 +265,16 @@
  12266. 1921.75 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12267. 1921.75 s [opt-env-conf-test] rs <- requireReaders settingReaders
  12268. 1921.75 s [opt-env-conf-test] mS <- ppArg
  12269. 1921.75 s [opt-env-conf-test] case mS of
  12270. 1921.75 s [opt-env-conf-test] - Nothing -> do
  12271. 1921.75 s [opt-env-conf-test] - debug ["could not set based on argument: no argument"]
  12272. 1921.75 s [opt-env-conf-test] - pure NotFound
  12273. 1921.75 s [opt-env-conf-test] Just argStr -> cap $
  12274. 1921.75 s [opt-env-conf-test] case tryReaders rs argStr of
  12275. 1921.75 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12276. 1921.75 s [opt-env-conf-test] Right a -> do
  12277. 1921.75 s [opt-env-conf-test] debug
  12278. 1921.75 s [opt-env-conf-test] [ "set based on argument: ",
  12279. 1921.75 s [opt-env-conf-test] chunk $ T.pack $ show argStr
  12280. 1921.75 s [opt-env-conf-test] ]
  12281. 1921.75 s [opt-env-conf-test] pure $ Found a
  12282. 1921.75 s [opt-env-conf-test] else pure NotRun
  12283. 1921.75 s [opt-env-conf-test]
  12284. 1921.75 s [opt-env-conf-test] case mArg of
  12285. 1921.75 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
  12286. 1921.75 s [opt-env-conf-test] @@ -265,19 +265,10 @@
  12287. 1921.75 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12288. 1921.75 s [opt-env-conf-test] rs <- requireReaders settingReaders
  12289. 1921.75 s [opt-env-conf-test] mS <- ppArg
  12290. 1921.75 s [opt-env-conf-test] case mS of
  12291. 1921.75 s [opt-env-conf-test] Nothing -> do
  12292. 1921.75 s [opt-env-conf-test] debug ["could not set based on argument: no argument"]
  12293. 1921.75 s [opt-env-conf-test] pure NotFound
  12294. 1921.76 s [opt-env-conf-test] - Just argStr -> cap $
  12295. 1921.76 s [opt-env-conf-test] - case tryReaders rs argStr of
  12296. 1921.76 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12297. 1921.76 s [opt-env-conf-test] - Right a -> do
  12298. 1921.76 s [opt-env-conf-test] - debug
  12299. 1921.76 s [opt-env-conf-test] - [ "set based on argument: ",
  12300. 1921.76 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  12301. 1921.76 s [opt-env-conf-test] - ]
  12302. 1921.76 s [opt-env-conf-test] - pure $ Found a
  12303. 1921.76 s [opt-env-conf-test] else pure NotRun
  12304. 1921.76 s [opt-env-conf-test]
  12305. 1921.76 s [opt-env-conf-test] case mArg of
  12306. 1921.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
  12307. 1921.76 s [opt-env-conf-test] @@ -289,16 +289,10 @@
  12308. 1921.76 s [opt-env-conf-test] Nothing -> pure NotRun
  12309. 1921.76 s [opt-env-conf-test] Just a -> do
  12310. 1921.76 s [opt-env-conf-test] mS <- ppSwitch settingDasheds
  12311. 1921.76 s [opt-env-conf-test] case mS of
  12312. 1921.76 s [opt-env-conf-test] - Nothing -> do
  12313. 1921.76 s [opt-env-conf-test] - debug
  12314. 1921.76 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  12315. 1921.76 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  12316. 1921.76 s [opt-env-conf-test] - ]
  12317. 1921.76 s [opt-env-conf-test] - pure NotFound
  12318. 1921.76 s [opt-env-conf-test] Just () -> cap $ do
  12319. 1921.76 s [opt-env-conf-test] debug ["set based on switch."]
  12320. 1921.76 s [opt-env-conf-test] pure $ Found a
  12321. 1921.76 s [opt-env-conf-test]
  12322. 1921.76 s [opt-env-conf-test] case mSwitch of
  12323. 1921.76 s [opt-env-conf-test] Found a -> do
  12324. 1921.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
  12325. 1921.76 s [opt-env-conf-test] @@ -289,16 +289,13 @@
  12326. 1921.76 s [opt-env-conf-test] Nothing -> pure NotRun
  12327. 1921.76 s [opt-env-conf-test] Just a -> do
  12328. 1921.76 s [opt-env-conf-test] mS <- ppSwitch settingDasheds
  12329. 1921.76 s [opt-env-conf-test] case mS of
  12330. 1921.76 s [opt-env-conf-test] Nothing -> do
  12331. 1921.76 s [opt-env-conf-test] debug
  12332. 1921.76 s [opt-env-conf-test] [ "could not set based on switch, no switch: ",
  12333. 1921.76 s [opt-env-conf-test] chunk $ T.pack $ show $ map renderDashed settingDasheds
  12334. 1921.76 s [opt-env-conf-test] ]
  12335. 1921.76 s [opt-env-conf-test] pure NotFound
  12336. 1921.76 s [opt-env-conf-test] - Just () -> cap $ do
  12337. 1921.76 s [opt-env-conf-test] - debug ["set based on switch."]
  12338. 1921.76 s [opt-env-conf-test] - pure $ Found a
  12339. 1921.76 s [opt-env-conf-test]
  12340. 1921.76 s [opt-env-conf-test] case mSwitch of
  12341. 1921.76 s [opt-env-conf-test] Found a -> do
  12342. 1921.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
  12343. 1921.76 s [opt-env-conf-test] @@ -285,20 +285,19 @@
  12344. 1921.76 s [opt-env-conf-test] markParsed
  12345. 1921.76 s [opt-env-conf-test] pure a
  12346. 1921.76 s [opt-env-conf-test] _ -> do
  12347. 1921.76 s [opt-env-conf-test] mSwitch <- case settingSwitchValue of
  12348. 1921.76 s [opt-env-conf-test] - Nothing -> pure NotRun
  12349. 1921.76 s [opt-env-conf-test] Just a -> do
  12350. 1921.76 s [opt-env-conf-test] mS <- ppSwitch settingDasheds
  12351. 1921.76 s [opt-env-conf-test] case mS of
  12352. 1921.76 s [opt-env-conf-test] Nothing -> do
  12353. 1921.76 s [opt-env-conf-test] debug
  12354. 1921.76 s [opt-env-conf-test] [ "could not set based on switch, no switch: ",
  12355. 1921.76 s [opt-env-conf-test] chunk $ T.pack $ show $ map renderDashed settingDasheds
  12356. 1921.77 s [opt-env-conf-test] ]
  12357. 1921.77 s [opt-env-conf-test] pure NotFound
  12358. 1921.77 s [opt-env-conf-test] Just () -> cap $ do
  12359. 1921.77 s [opt-env-conf-test] debug ["set based on switch."]
  12360. 1921.77 s [opt-env-conf-test] pure $ Found a
  12361. 1921.77 s [opt-env-conf-test]
  12362. 1921.77 s [opt-env-conf-test] case mSwitch of
  12363. 1926.45 s [opt-env-conf-test] Found a -> do
  12364. 1926.45 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
  12365. 1926.45 s [opt-env-conf-test] @@ -285,20 +285,8 @@
  12366. 1926.45 s [opt-env-conf-test] markParsed
  12367. 1926.45 s [opt-env-conf-test] pure a
  12368. 1926.45 s [opt-env-conf-test] _ -> do
  12369. 1926.45 s [opt-env-conf-test] mSwitch <- case settingSwitchValue of
  12370. 1926.46 s [opt-env-conf-test] Nothing -> pure NotRun
  12371. 1926.46 s [opt-env-conf-test] - Just a -> do
  12372. 1926.46 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  12373. 1926.46 s [opt-env-conf-test] - case mS of
  12374. 1926.46 s [opt-env-conf-test] - Nothing -> do
  12375. 1926.46 s [opt-env-conf-test] - debug
  12376. 1926.46 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  12377. 1926.46 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  12378. 1926.46 s [opt-env-conf-test] - ]
  12379. 1926.46 s [opt-env-conf-test] - pure NotFound
  12380. 1926.46 s [opt-env-conf-test] - Just () -> cap $ do
  12381. 1926.46 s [opt-env-conf-test] - debug ["set based on switch."]
  12382. 1926.46 s [opt-env-conf-test] - pure $ Found a
  12383. 1926.46 s [opt-env-conf-test]
  12384. 1926.46 s [opt-env-conf-test] case mSwitch of
  12385. 1926.46 s [opt-env-conf-test] Found a -> do
  12386. 1926.46 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
  12387. 1926.46 s [opt-env-conf-test] @@ -306,7 +306,7 @@
  12388. 1926.46 s [opt-env-conf-test] pure a
  12389. 1926.46 s [opt-env-conf-test] _ -> do
  12390. 1926.46 s [opt-env-conf-test] mOpt <-
  12391. 1926.46 s [opt-env-conf-test] - if settingTryOption
  12392. 1926.46 s [opt-env-conf-test] + if True
  12393. 1926.46 s [opt-env-conf-test] then do
  12394. 1926.46 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  12395. 1926.46 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12396. 1926.46 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
  12397. 1926.46 s [opt-env-conf-test] @@ -306,7 +306,7 @@
  12398. 1926.46 s [opt-env-conf-test] pure a
  12399. 1926.46 s [opt-env-conf-test] _ -> do
  12400. 1926.46 s [opt-env-conf-test] mOpt <-
  12401. 1926.46 s [opt-env-conf-test] - if settingTryOption
  12402. 1926.46 s [opt-env-conf-test] + if False
  12403. 1926.46 s [opt-env-conf-test] then do
  12404. 1926.46 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  12405. 1926.46 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12406. 1926.46 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:309:24-40
  12407. 1926.46 s [opt-env-conf-test] @@ -306,7 +306,7 @@
  12408. 1926.46 s [opt-env-conf-test] pure a
  12409. 1926.46 s [opt-env-conf-test] _ -> do
  12410. 1926.46 s [opt-env-conf-test] mOpt <-
  12411. 1926.46 s [opt-env-conf-test] - if settingTryOption
  12412. 1926.46 s [opt-env-conf-test] + if not (settingTryOption)
  12413. 1926.46 s [opt-env-conf-test] then do
  12414. 1926.46 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  12415. 1926.46 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12416. 1926.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
  12417. 1926.47 s [opt-env-conf-test] @@ -320,14 +320,13 @@
  12418. 1926.47 s [opt-env-conf-test] ]
  12419. 1926.47 s [opt-env-conf-test] pure NotFound
  12420. 1926.47 s [opt-env-conf-test] Just optionStr -> cap $
  12421. 1926.47 s [opt-env-conf-test] case tryReaders rs optionStr of
  12422. 1926.47 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  12423. 1926.47 s [opt-env-conf-test] Right a -> do
  12424. 1926.47 s [opt-env-conf-test] debug
  12425. 1926.47 s [opt-env-conf-test] [ "set based on option: ",
  12426. 1926.47 s [opt-env-conf-test] chunk $ T.pack $ show optionStr
  12427. 1926.47 s [opt-env-conf-test] ]
  12428. 1926.47 s [opt-env-conf-test] pure $ Found a
  12429. 1926.47 s [opt-env-conf-test] else pure NotRun
  12430. 1926.47 s [opt-env-conf-test]
  12431. 1926.47 s [opt-env-conf-test] case mOpt of
  12432. 1926.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
  12433. 1926.47 s [opt-env-conf-test] @@ -320,14 +320,8 @@
  12434. 1926.47 s [opt-env-conf-test] ]
  12435. 1926.47 s [opt-env-conf-test] pure NotFound
  12436. 1926.47 s [opt-env-conf-test] Just optionStr -> cap $
  12437. 1926.47 s [opt-env-conf-test] case tryReaders rs optionStr of
  12438. 1926.47 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  12439. 1926.47 s [opt-env-conf-test] - Right a -> do
  12440. 1926.47 s [opt-env-conf-test] - debug
  12441. 1926.47 s [opt-env-conf-test] - [ "set based on option: ",
  12442. 1926.47 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  12443. 1926.47 s [opt-env-conf-test] - ]
  12444. 1926.47 s [opt-env-conf-test] - pure $ Found a
  12445. 1926.47 s [opt-env-conf-test] else pure NotRun
  12446. 1926.47 s [opt-env-conf-test]
  12447. 1926.47 s [opt-env-conf-test] case mOpt of
  12448. 1926.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
  12449. 1926.47 s [opt-env-conf-test] @@ -312,22 +312,16 @@
  12450. 1926.47 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12451. 1926.47 s [opt-env-conf-test] rs <- requireReaders settingReaders
  12452. 1926.47 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  12453. 1926.47 s [opt-env-conf-test] case mS of
  12454. 1926.47 s [opt-env-conf-test] - Nothing -> do
  12455. 1926.47 s [opt-env-conf-test] - debug
  12456. 1926.47 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  12457. 1926.47 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  12458. 1926.47 s [opt-env-conf-test] - ]
  12459. 1926.47 s [opt-env-conf-test] - pure NotFound
  12460. 1926.47 s [opt-env-conf-test] Just optionStr -> cap $
  12461. 1926.47 s [opt-env-conf-test] case tryReaders rs optionStr of
  12462. 1926.47 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  12463. 1926.47 s [opt-env-conf-test] Right a -> do
  12464. 1926.47 s [opt-env-conf-test] debug
  12465. 1926.47 s [opt-env-conf-test] [ "set based on option: ",
  12466. 1926.47 s [opt-env-conf-test] chunk $ T.pack $ show optionStr
  12467. 1926.47 s [opt-env-conf-test] ]
  12468. 1926.47 s [opt-env-conf-test] pure $ Found a
  12469. 1926.47 s [opt-env-conf-test] else pure NotRun
  12470. 1926.47 s [opt-env-conf-test]
  12471. 1926.47 s [opt-env-conf-test] case mOpt of
  12472. 1926.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
  12473. 1926.47 s [opt-env-conf-test] @@ -312,22 +312,13 @@
  12474. 1926.47 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12475. 1926.47 s [opt-env-conf-test] rs <- requireReaders settingReaders
  12476. 1926.47 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  12477. 1926.47 s [opt-env-conf-test] case mS of
  12478. 1926.47 s [opt-env-conf-test] Nothing -> do
  12479. 1926.47 s [opt-env-conf-test] debug
  12480. 1926.47 s [opt-env-conf-test] [ "could not set based on options, no option: ",
  12481. 1926.47 s [opt-env-conf-test] chunk $ T.pack $ show $ map renderDashed settingDasheds
  12482. 1926.47 s [opt-env-conf-test] ]
  12483. 1926.47 s [opt-env-conf-test] pure NotFound
  12484. 1926.47 s [opt-env-conf-test] - Just optionStr -> cap $
  12485. 1926.47 s [opt-env-conf-test] - case tryReaders rs optionStr of
  12486. 1926.47 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  12487. 1926.47 s [opt-env-conf-test] - Right a -> do
  12488. 1926.47 s [opt-env-conf-test] - debug
  12489. 1926.47 s [opt-env-conf-test] - [ "set based on option: ",
  12490. 1926.47 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  12491. 1926.47 s [opt-env-conf-test] - ]
  12492. 1926.47 s [opt-env-conf-test] - pure $ Found a
  12493. 1926.47 s [opt-env-conf-test] else pure NotRun
  12494. 1926.47 s [opt-env-conf-test]
  12495. 1926.47 s [opt-env-conf-test] case mOpt of
  12496. 1926.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
  12497. 1926.47 s [opt-env-conf-test] @@ -349,14 +349,13 @@
  12498. 1926.47 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  12499. 1926.47 s [opt-env-conf-test] -- result.
  12500. 1926.47 s [opt-env-conf-test] results <- for founds $ \varStr ->
  12501. 1926.47 s [opt-env-conf-test] case tryReaders rs varStr of
  12502. 1926.47 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12503. 1926.47 s [opt-env-conf-test] Right a -> do
  12504. 1926.47 s [opt-env-conf-test] debug
  12505. 1926.47 s [opt-env-conf-test] [ "set based on env: ",
  12506. 1926.47 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  12507. 1926.47 s [opt-env-conf-test] ]
  12508. 1926.47 s [opt-env-conf-test] pure a
  12509. 1926.47 s [opt-env-conf-test] case listToMaybe results of
  12510. 1926.47 s [opt-env-conf-test] Nothing -> do
  12511. 1926.47 s [opt-env-conf-test] debug
  12512. 1926.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
  12513. 1926.48 s [opt-env-conf-test] @@ -349,14 +349,8 @@
  12514. 1926.48 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  12515. 1926.48 s [opt-env-conf-test] -- result.
  12516. 1926.48 s [opt-env-conf-test] results <- for founds $ \varStr ->
  12517. 1926.48 s [opt-env-conf-test] case tryReaders rs varStr of
  12518. 1926.48 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12519. 1926.48 s [opt-env-conf-test] - Right a -> do
  12520. 1926.48 s [opt-env-conf-test] - debug
  12521. 1926.48 s [opt-env-conf-test] - [ "set based on env: ",
  12522. 1926.48 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  12523. 1928.02 s [opt-env-conf-test] - ]
  12524. 1928.02 s [opt-env-conf-test] - pure a
  12525. 1928.09 s [opt-env-conf-test] case listToMaybe results of
  12526. 1928.09 s [opt-env-conf-test] Nothing -> do
  12527. 1928.09 s [opt-env-conf-test] debug
  12528. 1928.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
  12529. 1928.09 s [opt-env-conf-test] @@ -357,14 +357,8 @@
  12530. 1928.09 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  12531. 1928.09 s [opt-env-conf-test] ]
  12532. 1928.09 s [opt-env-conf-test] pure a
  12533. 1928.09 s [opt-env-conf-test] case listToMaybe results of
  12534. 1928.09 s [opt-env-conf-test] - Nothing -> do
  12535. 1928.09 s [opt-env-conf-test] - debug
  12536. 1928.09 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  12537. 1928.10 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12538. 1928.10 s [opt-env-conf-test] - ]
  12539. 1928.10 s [opt-env-conf-test] - pure NotFound
  12540. 1928.10 s [opt-env-conf-test] Just a -> pure $ Found a
  12541. 1928.10 s [opt-env-conf-test]
  12542. 1928.10 s [opt-env-conf-test] case mEnv of
  12543. 1928.10 s [opt-env-conf-test] Found a -> do
  12544. 1928.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
  12545. 1928.10 s [opt-env-conf-test] @@ -357,14 +357,13 @@
  12546. 1928.10 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  12547. 1928.10 s [opt-env-conf-test] ]
  12548. 1928.10 s [opt-env-conf-test] pure a
  12549. 1928.10 s [opt-env-conf-test] case listToMaybe results of
  12550. 1928.10 s [opt-env-conf-test] Nothing -> do
  12551. 1928.10 s [opt-env-conf-test] debug
  12552. 1928.10 s [opt-env-conf-test] [ "could not set based on env vars, no var: ",
  12553. 1928.10 s [opt-env-conf-test] chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12554. 1928.10 s [opt-env-conf-test] ]
  12555. 1928.10 s [opt-env-conf-test] pure NotFound
  12556. 1928.10 s [opt-env-conf-test] - Just a -> pure $ Found a
  12557. 1928.10 s [opt-env-conf-test]
  12558. 1928.10 s [opt-env-conf-test] case mEnv of
  12559. 1928.10 s [opt-env-conf-test] Found a -> do
  12560. 1928.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
  12561. 1928.10 s [opt-env-conf-test] @@ -336,35 +336,34 @@
  12562. 1928.10 s [opt-env-conf-test] pure a
  12563. 1928.10 s [opt-env-conf-test] _ -> do
  12564. 1928.10 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  12565. 1928.10 s [opt-env-conf-test] mEnv <- cap $ case settingEnvVars of
  12566. 1928.10 s [opt-env-conf-test] - Nothing -> pure NotRun
  12567. 1928.10 s [opt-env-conf-test] Just ne -> do
  12568. 1928.10 s [opt-env-conf-test] -- Require readers before finding the env vars so the parser
  12569. 1928.10 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12570. 1928.10 s [opt-env-conf-test] rs <- requireReaders settingReaders
  12571. 1928.10 s [opt-env-conf-test] es <- asks ppEnvEnv
  12572. 1928.10 s [opt-env-conf-test] let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  12573. 1928.10 s [opt-env-conf-test] -- Run the parser on all specified env vars before
  12574. 1928.10 s [opt-env-conf-test] -- returning the first because we want to fail if any
  12575. 1928.11 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  12576. 1928.11 s [opt-env-conf-test] -- result.
  12577. 1928.11 s [opt-env-conf-test] results <- for founds $ \varStr ->
  12578. 1928.11 s [opt-env-conf-test] case tryReaders rs varStr of
  12579. 1928.11 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12580. 1928.11 s [opt-env-conf-test] Right a -> do
  12581. 1928.11 s [opt-env-conf-test] debug
  12582. 1928.11 s [opt-env-conf-test] [ "set based on env: ",
  12583. 1928.11 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  12584. 1928.11 s [opt-env-conf-test] ]
  12585. 1928.11 s [opt-env-conf-test] pure a
  12586. 1928.11 s [opt-env-conf-test] case listToMaybe results of
  12587. 1928.11 s [opt-env-conf-test] Nothing -> do
  12588. 1928.11 s [opt-env-conf-test] debug
  12589. 1928.11 s [opt-env-conf-test] [ "could not set based on env vars, no var: ",
  12590. 1928.11 s [opt-env-conf-test] chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12591. 1928.11 s [opt-env-conf-test] ]
  12592. 1928.11 s [opt-env-conf-test] pure NotFound
  12593. 1928.11 s [opt-env-conf-test] Just a -> pure $ Found a
  12594. 1928.11 s [opt-env-conf-test]
  12595. 1928.11 s [opt-env-conf-test] case mEnv of
  12596. 1928.11 s [opt-env-conf-test] Found a -> do
  12597. 1928.11 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
  12598. 1928.11 s [opt-env-conf-test] @@ -336,35 +336,8 @@
  12599. 1928.11 s [opt-env-conf-test] pure a
  12600. 1928.11 s [opt-env-conf-test] _ -> do
  12601. 1928.11 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  12602. 1928.11 s [opt-env-conf-test] mEnv <- cap $ case settingEnvVars of
  12603. 1928.11 s [opt-env-conf-test] Nothing -> pure NotRun
  12604. 1928.11 s [opt-env-conf-test] - Just ne -> do
  12605. 1928.11 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  12606. 1928.11 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  12607. 1928.11 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  12608. 1928.11 s [opt-env-conf-test] - es <- asks ppEnvEnv
  12609. 1928.11 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  12610. 1928.11 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  12611. 1928.11 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  12612. 1928.11 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  12613. 1928.11 s [opt-env-conf-test] - -- result.
  12614. 1928.11 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  12615. 1928.11 s [opt-env-conf-test] - case tryReaders rs varStr of
  12616. 1928.12 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12617. 1928.12 s [opt-env-conf-test] - Right a -> do
  12618. 1928.12 s [opt-env-conf-test] - debug
  12619. 1928.12 s [opt-env-conf-test] - [ "set based on env: ",
  12620. 1928.12 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  12621. 1928.12 s [opt-env-conf-test] - ]
  12622. 1928.12 s [opt-env-conf-test] - pure a
  12623. 1928.12 s [opt-env-conf-test] - case listToMaybe results of
  12624. 1928.12 s [opt-env-conf-test] - Nothing -> do
  12625. 1928.12 s [opt-env-conf-test] - debug
  12626. 1928.12 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  12627. 1928.12 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12628. 1928.12 s [opt-env-conf-test] - ]
  12629. 1932.50 s [opt-env-conf-test] - pure NotFound
  12630. 1932.50 s [opt-env-conf-test] - Just a -> pure $ Found a
  12631. 1932.50 s [opt-env-conf-test]
  12632. 1932.50 s [opt-env-conf-test] case mEnv of
  12633. 1932.50 s [opt-env-conf-test] Found a -> do
  12634. 1932.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
  12635. 1932.50 s [opt-env-conf-test] @@ -385,9 +385,8 @@
  12636. 1932.50 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12637. 1932.50 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12638. 1932.50 s [opt-env-conf-test] Nothing -> do
  12639. 1932.50 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  12640. 1932.50 s [opt-env-conf-test] - Nothing -> pure Nothing
  12641. 1932.50 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  12642. 1932.50 s [opt-env-conf-test] Just neRest -> do
  12643. 1932.50 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12644. 1932.50 s [opt-env-conf-test] case mO' of
  12645. 1932.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
  12646. 1932.50 s [opt-env-conf-test] @@ -385,9 +385,8 @@
  12647. 1932.50 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12648. 1932.50 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12649. 1932.50 s [opt-env-conf-test] Nothing -> do
  12650. 1932.50 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  12651. 1932.50 s [opt-env-conf-test] Nothing -> pure Nothing
  12652. 1932.50 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12653. 1932.50 s [opt-env-conf-test] Just neRest -> do
  12654. 1932.50 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12655. 1932.50 s [opt-env-conf-test] case mO' of
  12656. 1932.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  12657. 1932.50 s [opt-env-conf-test] @@ -390,9 +390,8 @@
  12658. 1932.50 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  12659. 1932.50 s [opt-env-conf-test] Just neRest -> do
  12660. 1932.51 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12661. 1932.51 s [opt-env-conf-test] case mO' of
  12662. 1932.51 s [opt-env-conf-test] - Nothing -> pure Nothing
  12663. 1932.51 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12664. 1932.51 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12665. 1932.51 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12666. 1932.51 s [opt-env-conf-test] Right mV -> case mV of
  12667. 1932.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  12668. 1932.51 s [opt-env-conf-test] @@ -390,9 +390,8 @@
  12669. 1932.51 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  12670. 1932.51 s [opt-env-conf-test] Just neRest -> do
  12671. 1932.51 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12672. 1932.51 s [opt-env-conf-test] case mO' of
  12673. 1932.51 s [opt-env-conf-test] Nothing -> pure Nothing
  12674. 1932.51 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12675. 1932.51 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12676. 1932.51 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12677. 1932.51 s [opt-env-conf-test] Right mV -> case mV of
  12678. 1932.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
  12679. 1932.51 s [opt-env-conf-test] @@ -383,16 +383,12 @@
  12680. 1932.51 s [opt-env-conf-test] Just obj -> do
  12681. 1932.51 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  12682. 1932.51 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12683. 1932.51 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12684. 1932.51 s [opt-env-conf-test] - Nothing -> do
  12685. 1932.51 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12686. 1932.51 s [opt-env-conf-test] - Nothing -> pure Nothing
  12687. 1932.51 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12688. 1932.51 s [opt-env-conf-test] Just neRest -> do
  12689. 1932.51 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12690. 1932.51 s [opt-env-conf-test] case mO' of
  12691. 1932.51 s [opt-env-conf-test] Nothing -> pure Nothing
  12692. 1932.51 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12693. 1932.51 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12694. 1932.51 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12695. 1932.52 s [opt-env-conf-test] Right mV -> case mV of
  12696. 1932.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
  12697. 1932.52 s [opt-env-conf-test] @@ -383,16 +383,11 @@
  12698. 1932.52 s [opt-env-conf-test] Just obj -> do
  12699. 1932.52 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  12700. 1932.52 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12701. 1932.52 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12702. 1932.52 s [opt-env-conf-test] Nothing -> do
  12703. 1932.52 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  12704. 1932.52 s [opt-env-conf-test] Nothing -> pure Nothing
  12705. 1932.52 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  12706. 1932.52 s [opt-env-conf-test] - Just neRest -> do
  12707. 1932.52 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  12708. 1932.52 s [opt-env-conf-test] - case mO' of
  12709. 1932.52 s [opt-env-conf-test] - Nothing -> pure Nothing
  12710. 1932.52 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12711. 1932.52 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12712. 1932.52 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12713. 1932.52 s [opt-env-conf-test] Right mV -> case mV of
  12714. 1932.52 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Run.hs:419:58-64
  12715. 1932.52 s [opt-env-conf-test] @@ -416,7 +416,7 @@
  12716. 1932.52 s [opt-env-conf-test] [ "set based on config value: ",
  12717. 1932.52 s [opt-env-conf-test] chunk $ T.pack $ show v
  12718. 1932.52 s [opt-env-conf-test] ]
  12719. 1932.52 s [opt-env-conf-test] - pure $ Just a
  12720. 1932.52 s [opt-env-conf-test] + pure $ Nothing
  12721. 1932.52 s [opt-env-conf-test] let toRes = \case
  12722. 1932.52 s [opt-env-conf-test] Nothing -> NotFound
  12723. 1932.52 s [opt-env-conf-test] Just a -> Found a
  12724. 1932.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
  12725. 1932.52 s [opt-env-conf-test] @@ -404,19 +404,13 @@
  12726. 1932.52 s [opt-env-conf-test] pure Nothing
  12727. 1932.52 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12728. 1932.52 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12729. 1932.52 s [opt-env-conf-test] Right mA -> case mA of
  12730. 1932.52 s [opt-env-conf-test] - Nothing -> do
  12731. 1932.52 s [opt-env-conf-test] - debug
  12732. 1932.52 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12733. 1932.52 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12734. 1932.52 s [opt-env-conf-test] - ]
  12735. 1932.52 s [opt-env-conf-test] - pure Nothing
  12736. 1932.52 s [opt-env-conf-test] Just a -> do
  12737. 1932.52 s [opt-env-conf-test] debug
  12738. 1936.17 s [opt-env-conf-test] [ "set based on config value: ",
  12739. 1936.17 s [opt-env-conf-test] chunk $ T.pack $ show v
  12740. 1936.22 s [opt-env-conf-test] ]
  12741. 1936.22 s [opt-env-conf-test] pure $ Just a
  12742. 1936.22 s [opt-env-conf-test] let toRes = \case
  12743. 1936.22 s [opt-env-conf-test] Nothing -> NotFound
  12744. 1936.22 s [opt-env-conf-test] Just a -> Found a
  12745. 1936.22 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
  12746. 1936.22 s [opt-env-conf-test] @@ -404,19 +404,13 @@
  12747. 1936.22 s [opt-env-conf-test] pure Nothing
  12748. 1936.22 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12749. 1936.22 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12750. 1936.22 s [opt-env-conf-test] Right mA -> case mA of
  12751. 1936.22 s [opt-env-conf-test] Nothing -> do
  12752. 1936.22 s [opt-env-conf-test] debug
  12753. 1936.22 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  12754. 1936.23 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12755. 1936.23 s [opt-env-conf-test] ]
  12756. 1936.23 s [opt-env-conf-test] pure Nothing
  12757. 1936.23 s [opt-env-conf-test] - Just a -> do
  12758. 1936.23 s [opt-env-conf-test] - debug
  12759. 1936.23 s [opt-env-conf-test] - [ "set based on config value: ",
  12760. 1936.23 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12761. 1936.23 s [opt-env-conf-test] - ]
  12762. 1936.23 s [opt-env-conf-test] - pure $ Just a
  12763. 1936.23 s [opt-env-conf-test] let toRes = \case
  12764. 1936.23 s [opt-env-conf-test] Nothing -> NotFound
  12765. 1936.23 s [opt-env-conf-test] Just a -> Found a
  12766. 1936.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  12767. 1936.23 s [opt-env-conf-test] @@ -402,21 +402,20 @@
  12768. 1936.23 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12769. 1936.23 s [opt-env-conf-test] ]
  12770. 1936.23 s [opt-env-conf-test] pure Nothing
  12771. 1936.23 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12772. 1936.23 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12773. 1936.23 s [opt-env-conf-test] Right mA -> case mA of
  12774. 1936.23 s [opt-env-conf-test] Nothing -> do
  12775. 1936.23 s [opt-env-conf-test] debug
  12776. 1936.23 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  12777. 1936.23 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12778. 1936.23 s [opt-env-conf-test] ]
  12779. 1936.23 s [opt-env-conf-test] pure Nothing
  12780. 1936.23 s [opt-env-conf-test] Just a -> do
  12781. 1936.23 s [opt-env-conf-test] debug
  12782. 1936.23 s [opt-env-conf-test] [ "set based on config value: ",
  12783. 1936.23 s [opt-env-conf-test] chunk $ T.pack $ show v
  12784. 1936.23 s [opt-env-conf-test] ]
  12785. 1936.23 s [opt-env-conf-test] pure $ Just a
  12786. 1936.23 s [opt-env-conf-test] let toRes = \case
  12787. 1936.23 s [opt-env-conf-test] Nothing -> NotFound
  12788. 1936.23 s [opt-env-conf-test] Just a -> Found a
  12789. 1936.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  12790. 1936.23 s [opt-env-conf-test] @@ -402,21 +402,8 @@
  12791. 1936.23 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12792. 1936.23 s [opt-env-conf-test] ]
  12793. 1936.23 s [opt-env-conf-test] pure Nothing
  12794. 1936.23 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12795. 1936.23 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12796. 1936.23 s [opt-env-conf-test] - Right mA -> case mA of
  12797. 1936.23 s [opt-env-conf-test] - Nothing -> do
  12798. 1936.23 s [opt-env-conf-test] - debug
  12799. 1936.23 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12800. 1936.23 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12801. 1936.23 s [opt-env-conf-test] - ]
  12802. 1936.23 s [opt-env-conf-test] - pure Nothing
  12803. 1936.23 s [opt-env-conf-test] - Just a -> do
  12804. 1936.24 s [opt-env-conf-test] - debug
  12805. 1936.24 s [opt-env-conf-test] - [ "set based on config value: ",
  12806. 1936.24 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12807. 1936.24 s [opt-env-conf-test] - ]
  12808. 1936.24 s [opt-env-conf-test] - pure $ Just a
  12809. 1936.24 s [opt-env-conf-test] let toRes = \case
  12810. 1936.24 s [opt-env-conf-test] Nothing -> NotFound
  12811. 1936.24 s [opt-env-conf-test] Just a -> Found a
  12812. 1936.24 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
  12813. 1936.24 s [opt-env-conf-test] @@ -395,28 +395,22 @@
  12814. 1936.24 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12815. 1936.24 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12816. 1936.24 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12817. 1936.24 s [opt-env-conf-test] Right mV -> case mV of
  12818. 1936.24 s [opt-env-conf-test] - Nothing -> do
  12819. 1936.24 s [opt-env-conf-test] - debug
  12820. 1936.24 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  12821. 1936.24 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12822. 1936.24 s [opt-env-conf-test] - ]
  12823. 1936.24 s [opt-env-conf-test] - pure Nothing
  12824. 1936.24 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12825. 1936.24 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12826. 1936.24 s [opt-env-conf-test] Right mA -> case mA of
  12827. 1936.24 s [opt-env-conf-test] Nothing -> do
  12828. 1936.24 s [opt-env-conf-test] debug
  12829. 1936.24 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  12830. 1936.24 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12831. 1936.24 s [opt-env-conf-test] ]
  12832. 1936.24 s [opt-env-conf-test] pure Nothing
  12833. 1936.24 s [opt-env-conf-test] Just a -> do
  12834. 1936.24 s [opt-env-conf-test] debug
  12835. 1936.24 s [opt-env-conf-test] [ "set based on config value: ",
  12836. 1936.24 s [opt-env-conf-test] chunk $ T.pack $ show v
  12837. 1936.24 s [opt-env-conf-test] ]
  12838. 1936.24 s [opt-env-conf-test] pure $ Just a
  12839. 1936.24 s [opt-env-conf-test] let toRes = \case
  12840. 1936.24 s [opt-env-conf-test] Nothing -> NotFound
  12841. 1936.24 s [opt-env-conf-test] Just a -> Found a
  12842. 1936.24 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
  12843. 1936.24 s [opt-env-conf-test] @@ -395,28 +395,13 @@
  12844. 1936.24 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12845. 1936.24 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12846. 1936.24 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12847. 1936.24 s [opt-env-conf-test] Right mV -> case mV of
  12848. 1936.24 s [opt-env-conf-test] Nothing -> do
  12849. 1936.24 s [opt-env-conf-test] debug
  12850. 1936.24 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  12851. 1936.24 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12852. 1936.24 s [opt-env-conf-test] ]
  12853. 1936.24 s [opt-env-conf-test] pure Nothing
  12854. 1936.24 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12855. 1936.24 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12856. 1936.24 s [opt-env-conf-test] - Right mA -> case mA of
  12857. 1936.24 s [opt-env-conf-test] - Nothing -> do
  12858. 1936.24 s [opt-env-conf-test] - debug
  12859. 1936.24 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12860. 1936.24 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12861. 1936.24 s [opt-env-conf-test] - ]
  12862. 1936.24 s [opt-env-conf-test] - pure Nothing
  12863. 1936.24 s [opt-env-conf-test] - Just a -> do
  12864. 1936.24 s [opt-env-conf-test] - debug
  12865. 1936.24 s [opt-env-conf-test] - [ "set based on config value: ",
  12866. 1936.24 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12867. 1937.49 s [opt-env-conf-test] - ]
  12868. 1937.49 s [opt-env-conf-test] - pure $ Just a
  12869. 1937.49 s [opt-env-conf-test] let toRes = \case
  12870. 1937.49 s [opt-env-conf-test] Nothing -> NotFound
  12871. 1937.49 s [opt-env-conf-test] Just a -> Found a
  12872. 1937.49 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  12873. 1937.49 s [opt-env-conf-test] @@ -393,30 +393,29 @@
  12874. 1937.49 s [opt-env-conf-test] case mO' of
  12875. 1937.49 s [opt-env-conf-test] Nothing -> pure Nothing
  12876. 1937.49 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12877. 1937.50 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12878. 1937.50 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12879. 1937.50 s [opt-env-conf-test] Right mV -> case mV of
  12880. 1937.50 s [opt-env-conf-test] Nothing -> do
  12881. 1937.50 s [opt-env-conf-test] debug
  12882. 1937.50 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  12883. 1937.50 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12884. 1937.50 s [opt-env-conf-test] ]
  12885. 1937.50 s [opt-env-conf-test] pure Nothing
  12886. 1937.50 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12887. 1937.50 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12888. 1937.50 s [opt-env-conf-test] Right mA -> case mA of
  12889. 1937.50 s [opt-env-conf-test] Nothing -> do
  12890. 1937.50 s [opt-env-conf-test] debug
  12891. 1937.50 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  12892. 1937.50 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12893. 1937.50 s [opt-env-conf-test] ]
  12894. 1937.50 s [opt-env-conf-test] pure Nothing
  12895. 1937.50 s [opt-env-conf-test] Just a -> do
  12896. 1937.50 s [opt-env-conf-test] debug
  12897. 1937.50 s [opt-env-conf-test] [ "set based on config value: ",
  12898. 1937.71 s [opt-env-conf-test] chunk $ T.pack $ show v
  12899. 1937.71 s [opt-env-conf-test] ]
  12900. 1937.71 s [opt-env-conf-test] pure $ Just a
  12901. 1937.72 s [opt-env-conf-test] let toRes = \case
  12902. 1937.72 s [opt-env-conf-test] Nothing -> NotFound
  12903. 1937.72 s [opt-env-conf-test] Just a -> Found a
  12904. 1937.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  12905. 1937.72 s [opt-env-conf-test] @@ -393,30 +393,8 @@
  12906. 1937.72 s [opt-env-conf-test] case mO' of
  12907. 1937.72 s [opt-env-conf-test] Nothing -> pure Nothing
  12908. 1937.72 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12909. 1937.72 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12910. 1937.72 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12911. 1937.72 s [opt-env-conf-test] - Right mV -> case mV of
  12912. 1937.72 s [opt-env-conf-test] - Nothing -> do
  12913. 1937.72 s [opt-env-conf-test] - debug
  12914. 1937.72 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  12915. 1937.72 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12916. 1937.72 s [opt-env-conf-test] - ]
  12917. 1937.72 s [opt-env-conf-test] - pure Nothing
  12918. 1937.72 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12919. 1937.72 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12920. 1937.72 s [opt-env-conf-test] - Right mA -> case mA of
  12921. 1937.72 s [opt-env-conf-test] - Nothing -> do
  12922. 1937.72 s [opt-env-conf-test] - debug
  12923. 1937.72 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12924. 1937.72 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12925. 1937.72 s [opt-env-conf-test] - ]
  12926. 1937.72 s [opt-env-conf-test] - pure Nothing
  12927. 1937.72 s [opt-env-conf-test] - Just a -> do
  12928. 1939.64 s [opt-env-conf-test] - debug
  12929. 1939.64 s [opt-env-conf-test] - [ "set based on config value: ",
  12930. 1939.64 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12931. 1939.64 s [opt-env-conf-test] - ]
  12932. 1939.64 s [opt-env-conf-test] - pure $ Just a
  12933. 1939.64 s [opt-env-conf-test] let toRes = \case
  12934. 1939.64 s [opt-env-conf-test] Nothing -> NotFound
  12935. 1939.64 s [opt-env-conf-test] Just a -> Found a
  12936. 1939.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
  12937. 1939.64 s [opt-env-conf-test] @@ -424,9 +424,8 @@
  12938. 1939.64 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  12939. 1939.64 s [opt-env-conf-test] Just ne -> do
  12940. 1939.64 s [opt-env-conf-test] res <- goConfSet confSet
  12941. 1939.64 s [opt-env-conf-test] case res of
  12942. 1939.64 s [opt-env-conf-test] - Just a -> pure $ Found a
  12943. 1939.64 s [opt-env-conf-test] Nothing -> goConfSets ne
  12944. 1939.64 s [opt-env-conf-test] goConfSets confSets
  12945. 1939.65 s [opt-env-conf-test] case mConf of
  12946. 1939.65 s [opt-env-conf-test] Found a -> do
  12947. 1939.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
  12948. 1939.65 s [opt-env-conf-test] @@ -424,9 +424,8 @@
  12949. 1939.65 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  12950. 1939.65 s [opt-env-conf-test] Just ne -> do
  12951. 1939.65 s [opt-env-conf-test] res <- goConfSet confSet
  12952. 1939.65 s [opt-env-conf-test] case res of
  12953. 1939.65 s [opt-env-conf-test] Just a -> pure $ Found a
  12954. 1939.65 s [opt-env-conf-test] - Nothing -> goConfSets ne
  12955. 1939.65 s [opt-env-conf-test] goConfSets confSets
  12956. 1939.65 s [opt-env-conf-test] case mConf of
  12957. 1939.65 s [opt-env-conf-test] Found a -> do
  12958. 1939.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
  12959. 1939.65 s [opt-env-conf-test] @@ -420,13 +420,12 @@
  12960. 1939.65 s [opt-env-conf-test] let toRes = \case
  12961. 1939.65 s [opt-env-conf-test] Nothing -> NotFound
  12962. 1939.65 s [opt-env-conf-test] Just a -> Found a
  12963. 1939.65 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  12964. 1939.65 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  12965. 1939.65 s [opt-env-conf-test] Just ne -> do
  12966. 1939.65 s [opt-env-conf-test] res <- goConfSet confSet
  12967. 1939.65 s [opt-env-conf-test] case res of
  12968. 1939.65 s [opt-env-conf-test] Just a -> pure $ Found a
  12969. 1939.65 s [opt-env-conf-test] Nothing -> goConfSets ne
  12970. 1939.65 s [opt-env-conf-test] goConfSets confSets
  12971. 1939.65 s [opt-env-conf-test] case mConf of
  12972. 1939.65 s [opt-env-conf-test] Found a -> do
  12973. 1939.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
  12974. 1939.65 s [opt-env-conf-test] @@ -420,13 +420,8 @@
  12975. 1939.65 s [opt-env-conf-test] let toRes = \case
  12976. 1939.65 s [opt-env-conf-test] Nothing -> NotFound
  12977. 1939.65 s [opt-env-conf-test] Just a -> Found a
  12978. 1939.65 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  12979. 1939.65 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  12980. 1939.65 s [opt-env-conf-test] - Just ne -> do
  12981. 1939.65 s [opt-env-conf-test] - res <- goConfSet confSet
  12982. 1939.65 s [opt-env-conf-test] - case res of
  12983. 1939.65 s [opt-env-conf-test] - Just a -> pure $ Found a
  12984. 1939.65 s [opt-env-conf-test] - Nothing -> goConfSets ne
  12985. 1939.65 s [opt-env-conf-test] goConfSets confSets
  12986. 1939.65 s [opt-env-conf-test] case mConf of
  12987. 1939.65 s [opt-env-conf-test] Found a -> do
  12988. 1939.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
  12989. 1939.65 s [opt-env-conf-test] @@ -376,58 +376,55 @@
  12990. 1939.65 s [opt-env-conf-test] Nothing -> pure NotRun
  12991. 1939.65 s [opt-env-conf-test] Just confSets -> do
  12992. 1939.65 s [opt-env-conf-test] mObj <- asks ppEnvConf
  12993. 1939.65 s [opt-env-conf-test] case mObj of
  12994. 1939.65 s [opt-env-conf-test] - Nothing -> do
  12995. 1939.65 s [opt-env-conf-test] - debug ["no config object to set from"]
  12996. 1939.65 s [opt-env-conf-test] - pure NotFound
  12997. 1939.66 s [opt-env-conf-test] Just obj -> do
  12998. 1939.66 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  12999. 1939.66 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13000. 1939.66 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13001. 1939.66 s [opt-env-conf-test] Nothing -> do
  13002. 1939.66 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  13003. 1939.66 s [opt-env-conf-test] Nothing -> pure Nothing
  13004. 1939.66 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  13005. 1939.66 s [opt-env-conf-test] Just neRest -> do
  13006. 1939.66 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  13007. 1939.66 s [opt-env-conf-test] case mO' of
  13008. 1939.66 s [opt-env-conf-test] Nothing -> pure Nothing
  13009. 1939.66 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  13010. 1939.66 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  13011. 1939.66 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13012. 1939.66 s [opt-env-conf-test] Right mV -> case mV of
  13013. 1939.66 s [opt-env-conf-test] Nothing -> do
  13014. 1939.66 s [opt-env-conf-test] debug
  13015. 1939.66 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  13016. 1939.66 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  13017. 1939.66 s [opt-env-conf-test] ]
  13018. 1939.66 s [opt-env-conf-test] pure Nothing
  13019. 1939.66 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13020. 1939.66 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13021. 1939.66 s [opt-env-conf-test] Right mA -> case mA of
  13022. 1939.66 s [opt-env-conf-test] Nothing -> do
  13023. 1939.66 s [opt-env-conf-test] debug
  13024. 1939.66 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  13025. 1939.66 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  13026. 1939.66 s [opt-env-conf-test] ]
  13027. 1939.66 s [opt-env-conf-test] pure Nothing
  13028. 1939.66 s [opt-env-conf-test] Just a -> do
  13029. 1939.66 s [opt-env-conf-test] debug
  13030. 1939.66 s [opt-env-conf-test] [ "set based on config value: ",
  13031. 1939.66 s [opt-env-conf-test] chunk $ T.pack $ show v
  13032. 1939.66 s [opt-env-conf-test] ]
  13033. 1939.66 s [opt-env-conf-test] pure $ Just a
  13034. 1939.66 s [opt-env-conf-test] let toRes = \case
  13035. 1939.66 s [opt-env-conf-test] Nothing -> NotFound
  13036. 1939.66 s [opt-env-conf-test] Just a -> Found a
  13037. 1939.66 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13038. 1939.66 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  13039. 1939.66 s [opt-env-conf-test] Just ne -> do
  13040. 1939.66 s [opt-env-conf-test] res <- goConfSet confSet
  13041. 1939.66 s [opt-env-conf-test] case res of
  13042. 1939.66 s [opt-env-conf-test] Just a -> pure $ Found a
  13043. 1939.66 s [opt-env-conf-test] Nothing -> goConfSets ne
  13044. 1940.33 s [opt-env-conf-test] goConfSets confSets
  13045. 1940.33 s [opt-env-conf-test] case mConf of
  13046. 1940.33 s [opt-env-conf-test] Found a -> do
  13047. 1940.33 s [opt-env-conf-test] markParsed
  13048. 1940.33 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
  13049. 1940.33 s [opt-env-conf-test] @@ -376,58 +376,10 @@
  13050. 1940.33 s [opt-env-conf-test] Nothing -> pure NotRun
  13051. 1940.33 s [opt-env-conf-test] Just confSets -> do
  13052. 1940.33 s [opt-env-conf-test] mObj <- asks ppEnvConf
  13053. 1940.33 s [opt-env-conf-test] case mObj of
  13054. 1940.33 s [opt-env-conf-test] Nothing -> do
  13055. 1940.33 s [opt-env-conf-test] debug ["no config object to set from"]
  13056. 1940.33 s [opt-env-conf-test] pure NotFound
  13057. 1940.33 s [opt-env-conf-test] - Just obj -> do
  13058. 1940.34 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13059. 1940.34 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13060. 1940.34 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13061. 1940.34 s [opt-env-conf-test] - Nothing -> do
  13062. 1940.34 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13063. 1940.34 s [opt-env-conf-test] - Nothing -> pure Nothing
  13064. 1940.34 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13065. 1940.34 s [opt-env-conf-test] - Just neRest -> do
  13066. 1940.34 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13067. 1940.34 s [opt-env-conf-test] - case mO' of
  13068. 1940.34 s [opt-env-conf-test] - Nothing -> pure Nothing
  13069. 1940.34 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13070. 1940.34 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13071. 1940.34 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13072. 1940.34 s [opt-env-conf-test] - Right mV -> case mV of
  13073. 1940.34 s [opt-env-conf-test] - Nothing -> do
  13074. 1940.34 s [opt-env-conf-test] - debug
  13075. 1940.34 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13076. 1940.34 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13077. 1940.34 s [opt-env-conf-test] - ]
  13078. 1940.34 s [opt-env-conf-test] - pure Nothing
  13079. 1940.34 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13080. 1940.34 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13081. 1940.34 s [opt-env-conf-test] - Right mA -> case mA of
  13082. 1940.34 s [opt-env-conf-test] - Nothing -> do
  13083. 1940.34 s [opt-env-conf-test] - debug
  13084. 1940.34 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13085. 1940.34 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13086. 1940.34 s [opt-env-conf-test] - ]
  13087. 1940.34 s [opt-env-conf-test] - pure Nothing
  13088. 1940.34 s [opt-env-conf-test] - Just a -> do
  13089. 1940.34 s [opt-env-conf-test] - debug
  13090. 1940.34 s [opt-env-conf-test] - [ "set based on config value: ",
  13091. 1940.34 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13092. 1940.34 s [opt-env-conf-test] - ]
  13093. 1940.34 s [opt-env-conf-test] - pure $ Just a
  13094. 1940.34 s [opt-env-conf-test] - let toRes = \case
  13095. 1940.34 s [opt-env-conf-test] - Nothing -> NotFound
  13096. 1940.34 s [opt-env-conf-test] - Just a -> Found a
  13097. 1940.34 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13098. 1940.34 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13099. 1940.51 s [opt-env-conf-test] - Just ne -> do
  13100. 1940.52 s [opt-env-conf-test] - res <- goConfSet confSet
  13101. 1940.52 s [opt-env-conf-test] - case res of
  13102. 1940.52 s [opt-env-conf-test] - Just a -> pure $ Found a
  13103. 1940.52 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13104. 1940.52 s [opt-env-conf-test] - goConfSets confSets
  13105. 1940.52 s [opt-env-conf-test] case mConf of
  13106. 1940.52 s [opt-env-conf-test] Found a -> do
  13107. 1940.52 s [opt-env-conf-test] markParsed
  13108. 1940.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
  13109. 1940.52 s [opt-env-conf-test] @@ -372,62 +372,61 @@
  13110. 1940.52 s [opt-env-conf-test] pure a
  13111. 1940.52 s [opt-env-conf-test] _ -> do
  13112. 1940.52 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  13113. 1940.52 s [opt-env-conf-test] mConf <- case settingConfigVals of
  13114. 1940.52 s [opt-env-conf-test] - Nothing -> pure NotRun
  13115. 1940.52 s [opt-env-conf-test] Just confSets -> do
  13116. 1940.52 s [opt-env-conf-test] mObj <- asks ppEnvConf
  13117. 1940.52 s [opt-env-conf-test] case mObj of
  13118. 1940.52 s [opt-env-conf-test] Nothing -> do
  13119. 1940.52 s [opt-env-conf-test] debug ["no config object to set from"]
  13120. 1940.52 s [opt-env-conf-test] pure NotFound
  13121. 1940.52 s [opt-env-conf-test] Just obj -> do
  13122. 1940.52 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  13123. 1940.52 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13124. 1940.52 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13125. 1940.52 s [opt-env-conf-test] Nothing -> do
  13126. 1940.52 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  13127. 1940.52 s [opt-env-conf-test] Nothing -> pure Nothing
  13128. 1940.52 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  13129. 1940.52 s [opt-env-conf-test] Just neRest -> do
  13130. 1940.52 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  13131. 1940.52 s [opt-env-conf-test] case mO' of
  13132. 1940.52 s [opt-env-conf-test] Nothing -> pure Nothing
  13133. 1940.52 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  13134. 1940.53 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  13135. 1940.53 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13136. 1940.53 s [opt-env-conf-test] Right mV -> case mV of
  13137. 1940.53 s [opt-env-conf-test] Nothing -> do
  13138. 1940.53 s [opt-env-conf-test] debug
  13139. 1940.53 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  13140. 1940.53 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  13141. 1940.53 s [opt-env-conf-test] ]
  13142. 1940.53 s [opt-env-conf-test] pure Nothing
  13143. 1940.53 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13144. 1940.53 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13145. 1940.53 s [opt-env-conf-test] Right mA -> case mA of
  13146. 1940.53 s [opt-env-conf-test] Nothing -> do
  13147. 1940.53 s [opt-env-conf-test] debug
  13148. 1940.53 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  13149. 1940.53 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  13150. 1940.53 s [opt-env-conf-test] ]
  13151. 1940.53 s [opt-env-conf-test] pure Nothing
  13152. 1940.53 s [opt-env-conf-test] Just a -> do
  13153. 1940.53 s [opt-env-conf-test] debug
  13154. 1940.53 s [opt-env-conf-test] [ "set based on config value: ",
  13155. 1940.53 s [opt-env-conf-test] chunk $ T.pack $ show v
  13156. 1940.53 s [opt-env-conf-test] ]
  13157. 1940.53 s [opt-env-conf-test] pure $ Just a
  13158. 1940.53 s [opt-env-conf-test] let toRes = \case
  13159. 1940.53 s [opt-env-conf-test] Nothing -> NotFound
  13160. 1940.53 s [opt-env-conf-test] Just a -> Found a
  13161. 1940.53 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13162. 1940.53 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  13163. 1940.53 s [opt-env-conf-test] Just ne -> do
  13164. 1940.53 s [opt-env-conf-test] res <- goConfSet confSet
  13165. 1940.53 s [opt-env-conf-test] case res of
  13166. 1940.65 s [opt-env-conf-test] Just a -> pure $ Found a
  13167. 1940.65 s [opt-env-conf-test] Nothing -> goConfSets ne
  13168. 1940.65 s [opt-env-conf-test] goConfSets confSets
  13169. 1940.65 s [opt-env-conf-test] case mConf of
  13170. 1940.65 s [opt-env-conf-test] Found a -> do
  13171. 1940.65 s [opt-env-conf-test] markParsed
  13172. 1940.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
  13173. 1940.65 s [opt-env-conf-test] @@ -372,62 +372,8 @@
  13174. 1940.65 s [opt-env-conf-test] pure a
  13175. 1940.65 s [opt-env-conf-test] _ -> do
  13176. 1940.65 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  13177. 1940.65 s [opt-env-conf-test] mConf <- case settingConfigVals of
  13178. 1940.65 s [opt-env-conf-test] Nothing -> pure NotRun
  13179. 1940.65 s [opt-env-conf-test] - Just confSets -> do
  13180. 1940.65 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13181. 1940.65 s [opt-env-conf-test] - case mObj of
  13182. 1940.65 s [opt-env-conf-test] - Nothing -> do
  13183. 1940.65 s [opt-env-conf-test] - debug ["no config object to set from"]
  13184. 1940.65 s [opt-env-conf-test] - pure NotFound
  13185. 1940.65 s [opt-env-conf-test] - Just obj -> do
  13186. 1940.65 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13187. 1940.65 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13188. 1940.65 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13189. 1940.66 s [opt-env-conf-test] - Nothing -> do
  13190. 1940.66 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13191. 1940.66 s [opt-env-conf-test] - Nothing -> pure Nothing
  13192. 1940.66 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13193. 1940.66 s [opt-env-conf-test] - Just neRest -> do
  13194. 1940.66 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13195. 1940.66 s [opt-env-conf-test] - case mO' of
  13196. 1940.66 s [opt-env-conf-test] - Nothing -> pure Nothing
  13197. 1940.66 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13198. 1940.66 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13199. 1940.66 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13200. 1940.66 s [opt-env-conf-test] - Right mV -> case mV of
  13201. 1940.66 s [opt-env-conf-test] - Nothing -> do
  13202. 1940.66 s [opt-env-conf-test] - debug
  13203. 1940.66 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13204. 1940.66 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13205. 1940.66 s [opt-env-conf-test] - ]
  13206. 1940.66 s [opt-env-conf-test] - pure Nothing
  13207. 1940.66 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13208. 1940.66 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13209. 1940.66 s [opt-env-conf-test] - Right mA -> case mA of
  13210. 1940.66 s [opt-env-conf-test] - Nothing -> do
  13211. 1940.66 s [opt-env-conf-test] - debug
  13212. 1940.66 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13213. 1940.66 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13214. 1940.66 s [opt-env-conf-test] - ]
  13215. 1940.66 s [opt-env-conf-test] - pure Nothing
  13216. 1940.66 s [opt-env-conf-test] - Just a -> do
  13217. 1940.66 s [opt-env-conf-test] - debug
  13218. 1940.66 s [opt-env-conf-test] - [ "set based on config value: ",
  13219. 1940.66 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13220. 1940.66 s [opt-env-conf-test] - ]
  13221. 1940.66 s [opt-env-conf-test] - pure $ Just a
  13222. 1940.66 s [opt-env-conf-test] - let toRes = \case
  13223. 1940.66 s [opt-env-conf-test] - Nothing -> NotFound
  13224. 1940.66 s [opt-env-conf-test] - Just a -> Found a
  13225. 1945.97 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13226. 1946.00 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13227. 1946.00 s [opt-env-conf-test] - Just ne -> do
  13228. 1946.00 s [opt-env-conf-test] - res <- goConfSet confSet
  13229. 1946.00 s [opt-env-conf-test] - case res of
  13230. 1946.00 s [opt-env-conf-test] - Just a -> pure $ Found a
  13231. 1946.01 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13232. 1946.01 s [opt-env-conf-test] - goConfSets confSets
  13233. 1946.01 s [opt-env-conf-test] case mConf of
  13234. 1946.01 s [opt-env-conf-test] Found a -> do
  13235. 1946.01 s [opt-env-conf-test] markParsed
  13236. 1946.01 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Run.hs:443:53-59
  13237. 1946.01 s [opt-env-conf-test] @@ -440,7 +440,7 @@
  13238. 1946.01 s [opt-env-conf-test] Nothing -> do
  13239. 1946.01 s [opt-env-conf-test] let parseResultError e res = case res of
  13240. 1946.01 s [opt-env-conf-test] NotRun -> Nothing
  13241. 1946.01 s [opt-env-conf-test] - NotFound -> Just e
  13242. 1946.01 s [opt-env-conf-test] + NotFound -> Nothing
  13243. 1946.01 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  13244. 1946.01 s [opt-env-conf-test] debug ["not found"]
  13245. 1946.01 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13246. 1946.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  13247. 1946.01 s [opt-env-conf-test] @@ -438,10 +438,9 @@
  13248. 1946.01 s [opt-env-conf-test] debug ["set to default value"]
  13249. 1946.01 s [opt-env-conf-test] pure a -- Don't mark as parsed
  13250. 1946.01 s [opt-env-conf-test] Nothing -> do
  13251. 1946.01 s [opt-env-conf-test] let parseResultError e res = case res of
  13252. 1946.01 s [opt-env-conf-test] - NotRun -> Nothing
  13253. 1946.01 s [opt-env-conf-test] NotFound -> Just e
  13254. 1946.01 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  13255. 1946.01 s [opt-env-conf-test] debug ["not found"]
  13256. 1946.01 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13257. 1946.01 s [opt-env-conf-test] NE.nonEmpty $
  13258. 1946.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  13259. 1946.01 s [opt-env-conf-test] @@ -438,10 +438,9 @@
  13260. 1946.01 s [opt-env-conf-test] debug ["set to default value"]
  13261. 1946.01 s [opt-env-conf-test] pure a -- Don't mark as parsed
  13262. 1946.01 s [opt-env-conf-test] Nothing -> do
  13263. 1946.01 s [opt-env-conf-test] let parseResultError e res = case res of
  13264. 1946.01 s [opt-env-conf-test] NotRun -> Nothing
  13265. 1946.01 s [opt-env-conf-test] - NotFound -> Just e
  13266. 1946.01 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  13267. 1946.01 s [opt-env-conf-test] debug ["not found"]
  13268. 1946.01 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13269. 1946.01 s [opt-env-conf-test] NE.nonEmpty $
  13270. 1946.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  13271. 1946.01 s [opt-env-conf-test] @@ -438,10 +438,9 @@
  13272. 1946.01 s [opt-env-conf-test] debug ["set to default value"]
  13273. 1946.01 s [opt-env-conf-test] pure a -- Don't mark as parsed
  13274. 1946.02 s [opt-env-conf-test] Nothing -> do
  13275. 1946.02 s [opt-env-conf-test] let parseResultError e res = case res of
  13276. 1946.02 s [opt-env-conf-test] NotRun -> Nothing
  13277. 1946.02 s [opt-env-conf-test] NotFound -> Just e
  13278. 1946.02 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13279. 1946.02 s [opt-env-conf-test] debug ["not found"]
  13280. 1946.02 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13281. 1946.02 s [opt-env-conf-test] NE.nonEmpty $
  13282. 1946.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  13283. 1946.02 s [opt-env-conf-test] @@ -446,12 +446,7 @@
  13284. 1946.02 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13285. 1946.02 s [opt-env-conf-test] NE.nonEmpty $
  13286. 1946.02 s [opt-env-conf-test] catMaybes
  13287. 1946.02 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13288. 1946.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13289. 1946.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13290. 1946.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13291. 1946.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13292. 1946.02 s [opt-env-conf-test] ]
  13293. 1946.02 s [opt-env-conf-test]
  13294. 1946.02 s [opt-env-conf-test] withCapabilities ::
  13295. 1946.02 s [opt-env-conf-test] Maybe SrcLoc ->
  13296. 1946.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  13297. 1946.02 s [opt-env-conf-test] @@ -446,12 +446,11 @@
  13298. 1946.02 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13299. 1946.03 s [opt-env-conf-test] NE.nonEmpty $
  13300. 1946.03 s [opt-env-conf-test] catMaybes
  13301. 1946.03 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13302. 1946.03 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13303. 1946.03 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13304. 1946.03 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13305. 1946.03 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13306. 1946.03 s [opt-env-conf-test] ]
  13307. 1946.03 s [opt-env-conf-test]
  13308. 1946.03 s [opt-env-conf-test] withCapabilities ::
  13309. 1946.03 s [opt-env-conf-test] Maybe SrcLoc ->
  13310. 1946.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  13311. 1946.03 s [opt-env-conf-test] @@ -446,12 +446,11 @@
  13312. 1946.03 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13313. 1946.03 s [opt-env-conf-test] NE.nonEmpty $
  13314. 1946.03 s [opt-env-conf-test] catMaybes
  13315. 1946.03 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13316. 1946.03 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13317. 1946.03 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13318. 1946.03 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13319. 1946.03 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13320. 1946.03 s [opt-env-conf-test] ]
  13321. 1946.03 s [opt-env-conf-test]
  13322. 1946.03 s [opt-env-conf-test] withCapabilities ::
  13323. 1946.03 s [opt-env-conf-test] Maybe SrcLoc ->
  13324. 1946.03 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:440:44-42
  13325. 1946.03 s [opt-env-conf-test] @@ -437,21 +437,20 @@
  13326. 1946.03 s [opt-env-conf-test] Just (a, _) -> do
  13327. 1946.03 s [opt-env-conf-test] debug ["set to default value"]
  13328. 1946.03 s [opt-env-conf-test] pure a -- Don't mark as parsed
  13329. 1946.03 s [opt-env-conf-test] Nothing -> do
  13330. 1946.03 s [opt-env-conf-test] let parseResultError e res = case res of
  13331. 1946.03 s [opt-env-conf-test] NotRun -> Nothing
  13332. 1946.03 s [opt-env-conf-test] NotFound -> Just e
  13333. 1946.04 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  13334. 1946.04 s [opt-env-conf-test] - debug ["not found"]
  13335. 1946.04 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13336. 1946.04 s [opt-env-conf-test] NE.nonEmpty $
  13337. 1946.04 s [opt-env-conf-test] catMaybes
  13338. 1946.04 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13339. 1946.04 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13340. 1946.04 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13341. 1946.04 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13342. 1946.04 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13343. 1946.04 s [opt-env-conf-test] ]
  13344. 1946.04 s [opt-env-conf-test]
  13345. 1946.04 s [opt-env-conf-test] withCapabilities ::
  13346. 1946.04 s [opt-env-conf-test] Maybe SrcLoc ->
  13347. 1946.04 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
  13348. 1946.04 s [opt-env-conf-test] @@ -433,25 +433,22 @@
  13349. 1946.04 s [opt-env-conf-test] markParsed
  13350. 1946.04 s [opt-env-conf-test] pure a
  13351. 1946.04 s [opt-env-conf-test] _ ->
  13352. 1946.04 s [opt-env-conf-test] case settingDefaultValue of
  13353. 1947.37 s [opt-env-conf-test] - Just (a, _) -> do
  13354. 1947.37 s [opt-env-conf-test] - debug ["set to default value"]
  13355. 1947.38 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13356. 1947.38 s [opt-env-conf-test] Nothing -> do
  13357. 1947.38 s [opt-env-conf-test] let parseResultError e res = case res of
  13358. 1947.38 s [opt-env-conf-test] NotRun -> Nothing
  13359. 1947.38 s [opt-env-conf-test] NotFound -> Just e
  13360. 1947.38 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  13361. 1947.38 s [opt-env-conf-test] debug ["not found"]
  13362. 1947.38 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13363. 1947.38 s [opt-env-conf-test] NE.nonEmpty $
  13364. 1947.38 s [opt-env-conf-test] catMaybes
  13365. 1947.38 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13366. 1947.38 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13367. 1947.38 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13368. 1947.38 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13369. 1947.38 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13370. 1947.38 s [opt-env-conf-test] ]
  13371. 1947.38 s [opt-env-conf-test]
  13372. 1947.38 s [opt-env-conf-test] withCapabilities ::
  13373. 1947.38 s [opt-env-conf-test] Maybe SrcLoc ->
  13374. 1947.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
  13375. 1947.38 s [opt-env-conf-test] @@ -433,25 +433,10 @@
  13376. 1947.38 s [opt-env-conf-test] markParsed
  13377. 1947.38 s [opt-env-conf-test] pure a
  13378. 1947.38 s [opt-env-conf-test] _ ->
  13379. 1947.38 s [opt-env-conf-test] case settingDefaultValue of
  13380. 1947.38 s [opt-env-conf-test] Just (a, _) -> do
  13381. 1947.38 s [opt-env-conf-test] debug ["set to default value"]
  13382. 1947.38 s [opt-env-conf-test] pure a -- Don't mark as parsed
  13383. 1947.38 s [opt-env-conf-test] - Nothing -> do
  13384. 1947.38 s [opt-env-conf-test] - let parseResultError e res = case res of
  13385. 1947.38 s [opt-env-conf-test] - NotRun -> Nothing
  13386. 1947.38 s [opt-env-conf-test] - NotFound -> Just e
  13387. 1947.38 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13388. 1947.38 s [opt-env-conf-test] - debug ["not found"]
  13389. 1947.38 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13390. 1947.38 s [opt-env-conf-test] - NE.nonEmpty $
  13391. 1947.38 s [opt-env-conf-test] - catMaybes
  13392. 1947.38 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13393. 1947.38 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13394. 1947.38 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13395. 1947.38 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13396. 1947.38 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13397. 1947.38 s [opt-env-conf-test] - ]
  13398. 1947.38 s [opt-env-conf-test]
  13399. 1947.38 s [opt-env-conf-test] withCapabilities ::
  13400. 1947.38 s [opt-env-conf-test] Maybe SrcLoc ->
  13401. 1947.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
  13402. 1947.38 s [opt-env-conf-test] @@ -428,30 +428,27 @@
  13403. 1947.38 s [opt-env-conf-test] Just a -> pure $ Found a
  13404. 1947.38 s [opt-env-conf-test] Nothing -> goConfSets ne
  13405. 1947.38 s [opt-env-conf-test] goConfSets confSets
  13406. 1947.38 s [opt-env-conf-test] case mConf of
  13407. 1947.38 s [opt-env-conf-test] - Found a -> do
  13408. 1947.39 s [opt-env-conf-test] - markParsed
  13409. 1947.39 s [opt-env-conf-test] - pure a
  13410. 1947.39 s [opt-env-conf-test] _ ->
  13411. 1947.39 s [opt-env-conf-test] case settingDefaultValue of
  13412. 1947.39 s [opt-env-conf-test] Just (a, _) -> do
  13413. 1947.39 s [opt-env-conf-test] debug ["set to default value"]
  13414. 1947.39 s [opt-env-conf-test] pure a -- Don't mark as parsed
  13415. 1947.39 s [opt-env-conf-test] Nothing -> do
  13416. 1947.39 s [opt-env-conf-test] let parseResultError e res = case res of
  13417. 1947.39 s [opt-env-conf-test] NotRun -> Nothing
  13418. 1947.39 s [opt-env-conf-test] NotFound -> Just e
  13419. 1947.39 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  13420. 1947.39 s [opt-env-conf-test] debug ["not found"]
  13421. 1947.39 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13422. 1947.39 s [opt-env-conf-test] NE.nonEmpty $
  13423. 1947.39 s [opt-env-conf-test] catMaybes
  13424. 1947.39 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13425. 1947.39 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13426. 1947.39 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13427. 1947.39 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13428. 1947.39 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13429. 1947.39 s [opt-env-conf-test] ]
  13430. 1947.39 s [opt-env-conf-test]
  13431. 1947.39 s [opt-env-conf-test] withCapabilities ::
  13432. 1947.39 s [opt-env-conf-test] Maybe SrcLoc ->
  13433. 1947.39 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
  13434. 1947.39 s [opt-env-conf-test] @@ -428,30 +428,10 @@
  13435. 1947.39 s [opt-env-conf-test] Just a -> pure $ Found a
  13436. 1947.39 s [opt-env-conf-test] Nothing -> goConfSets ne
  13437. 1947.39 s [opt-env-conf-test] goConfSets confSets
  13438. 1947.39 s [opt-env-conf-test] case mConf of
  13439. 1947.39 s [opt-env-conf-test] Found a -> do
  13440. 1947.39 s [opt-env-conf-test] markParsed
  13441. 1947.39 s [opt-env-conf-test] pure a
  13442. 1947.39 s [opt-env-conf-test] - _ ->
  13443. 1947.39 s [opt-env-conf-test] - case settingDefaultValue of
  13444. 1947.39 s [opt-env-conf-test] - Just (a, _) -> do
  13445. 1947.39 s [opt-env-conf-test] - debug ["set to default value"]
  13446. 1947.39 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13447. 1947.39 s [opt-env-conf-test] - Nothing -> do
  13448. 1947.39 s [opt-env-conf-test] - let parseResultError e res = case res of
  13449. 1947.39 s [opt-env-conf-test] - NotRun -> Nothing
  13450. 1947.39 s [opt-env-conf-test] - NotFound -> Just e
  13451. 1947.39 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13452. 1947.39 s [opt-env-conf-test] - debug ["not found"]
  13453. 1947.39 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13454. 1947.39 s [opt-env-conf-test] - NE.nonEmpty $
  13455. 1947.39 s [opt-env-conf-test] - catMaybes
  13456. 1947.39 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13457. 1947.39 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13458. 1947.39 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13459. 1947.39 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13460. 1947.39 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13461. 1947.39 s [opt-env-conf-test] - ]
  13462. 1947.39 s [opt-env-conf-test]
  13463. 1947.39 s [opt-env-conf-test] withCapabilities ::
  13464. 1948.01 s [opt-env-conf-test] Maybe SrcLoc ->
  13465. 1948.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
  13466. 1948.01 s [opt-env-conf-test] @@ -366,92 +366,89 @@
  13467. 1948.01 s [opt-env-conf-test] pure NotFound
  13468. 1948.01 s [opt-env-conf-test] Just a -> pure $ Found a
  13469. 1948.01 s [opt-env-conf-test]
  13470. 1948.01 s [opt-env-conf-test] case mEnv of
  13471. 1948.01 s [opt-env-conf-test] - Found a -> do
  13472. 1948.01 s [opt-env-conf-test] - markParsed
  13473. 1948.01 s [opt-env-conf-test] - pure a
  13474. 1948.01 s [opt-env-conf-test] _ -> do
  13475. 1948.01 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  13476. 1948.01 s [opt-env-conf-test] mConf <- case settingConfigVals of
  13477. 1948.01 s [opt-env-conf-test] Nothing -> pure NotRun
  13478. 1948.01 s [opt-env-conf-test] Just confSets -> do
  13479. 1948.01 s [opt-env-conf-test] mObj <- asks ppEnvConf
  13480. 1948.01 s [opt-env-conf-test] case mObj of
  13481. 1948.01 s [opt-env-conf-test] Nothing -> do
  13482. 1948.01 s [opt-env-conf-test] debug ["no config object to set from"]
  13483. 1948.01 s [opt-env-conf-test] pure NotFound
  13484. 1948.01 s [opt-env-conf-test] Just obj -> do
  13485. 1948.01 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  13486. 1948.01 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13487. 1948.02 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13488. 1948.02 s [opt-env-conf-test] Nothing -> do
  13489. 1948.02 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  13490. 1948.02 s [opt-env-conf-test] Nothing -> pure Nothing
  13491. 1948.02 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  13492. 1948.02 s [opt-env-conf-test] Just neRest -> do
  13493. 1948.02 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  13494. 1948.02 s [opt-env-conf-test] case mO' of
  13495. 1948.02 s [opt-env-conf-test] Nothing -> pure Nothing
  13496. 1948.02 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  13497. 1948.02 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  13498. 1948.02 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13499. 1948.02 s [opt-env-conf-test] Right mV -> case mV of
  13500. 1948.02 s [opt-env-conf-test] Nothing -> do
  13501. 1948.02 s [opt-env-conf-test] debug
  13502. 1948.02 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  13503. 1948.02 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  13504. 1948.02 s [opt-env-conf-test] ]
  13505. 1948.02 s [opt-env-conf-test] pure Nothing
  13506. 1948.02 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13507. 1948.02 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13508. 1948.02 s [opt-env-conf-test] Right mA -> case mA of
  13509. 1948.02 s [opt-env-conf-test] Nothing -> do
  13510. 1948.02 s [opt-env-conf-test] debug
  13511. 1948.02 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  13512. 1948.02 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  13513. 1948.02 s [opt-env-conf-test] ]
  13514. 1948.02 s [opt-env-conf-test] pure Nothing
  13515. 1948.02 s [opt-env-conf-test] Just a -> do
  13516. 1948.02 s [opt-env-conf-test] debug
  13517. 1948.02 s [opt-env-conf-test] [ "set based on config value: ",
  13518. 1948.02 s [opt-env-conf-test] chunk $ T.pack $ show v
  13519. 1948.02 s [opt-env-conf-test] ]
  13520. 1948.02 s [opt-env-conf-test] pure $ Just a
  13521. 1948.02 s [opt-env-conf-test] let toRes = \case
  13522. 1948.02 s [opt-env-conf-test] Nothing -> NotFound
  13523. 1948.02 s [opt-env-conf-test] Just a -> Found a
  13524. 1948.02 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13525. 1948.61 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  13526. 1948.61 s [opt-env-conf-test] Just ne -> do
  13527. 1948.61 s [opt-env-conf-test] res <- goConfSet confSet
  13528. 1948.61 s [opt-env-conf-test] case res of
  13529. 1948.61 s [opt-env-conf-test] Just a -> pure $ Found a
  13530. 1948.62 s [opt-env-conf-test] Nothing -> goConfSets ne
  13531. 1948.62 s [opt-env-conf-test] goConfSets confSets
  13532. 1948.62 s [opt-env-conf-test] case mConf of
  13533. 1948.62 s [opt-env-conf-test] Found a -> do
  13534. 1948.62 s [opt-env-conf-test] markParsed
  13535. 1948.62 s [opt-env-conf-test] pure a
  13536. 1948.62 s [opt-env-conf-test] _ ->
  13537. 1948.62 s [opt-env-conf-test] case settingDefaultValue of
  13538. 1948.62 s [opt-env-conf-test] Just (a, _) -> do
  13539. 1948.62 s [opt-env-conf-test] debug ["set to default value"]
  13540. 1948.62 s [opt-env-conf-test] pure a -- Don't mark as parsed
  13541. 1948.62 s [opt-env-conf-test] Nothing -> do
  13542. 1948.62 s [opt-env-conf-test] let parseResultError e res = case res of
  13543. 1948.62 s [opt-env-conf-test] NotRun -> Nothing
  13544. 1948.62 s [opt-env-conf-test] NotFound -> Just e
  13545. 1948.62 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  13546. 1948.62 s [opt-env-conf-test] debug ["not found"]
  13547. 1948.62 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13548. 1948.62 s [opt-env-conf-test] NE.nonEmpty $
  13549. 1948.62 s [opt-env-conf-test] catMaybes
  13550. 1948.62 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13551. 1948.62 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13552. 1948.62 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13553. 1948.62 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13554. 1948.62 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13555. 1948.62 s [opt-env-conf-test] ]
  13556. 1948.62 s [opt-env-conf-test]
  13557. 1948.62 s [opt-env-conf-test] withCapabilities ::
  13558. 1948.62 s [opt-env-conf-test] Maybe SrcLoc ->
  13559. 1948.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
  13560. 1948.62 s [opt-env-conf-test] @@ -366,92 +366,10 @@
  13561. 1948.62 s [opt-env-conf-test] pure NotFound
  13562. 1948.62 s [opt-env-conf-test] Just a -> pure $ Found a
  13563. 1948.62 s [opt-env-conf-test]
  13564. 1948.62 s [opt-env-conf-test] case mEnv of
  13565. 1948.62 s [opt-env-conf-test] Found a -> do
  13566. 1948.62 s [opt-env-conf-test] markParsed
  13567. 1948.62 s [opt-env-conf-test] pure a
  13568. 1948.62 s [opt-env-conf-test] - _ -> do
  13569. 1948.62 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  13570. 1948.62 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  13571. 1948.63 s [opt-env-conf-test] - Nothing -> pure NotRun
  13572. 1948.63 s [opt-env-conf-test] - Just confSets -> do
  13573. 1948.63 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13574. 1948.63 s [opt-env-conf-test] - case mObj of
  13575. 1948.63 s [opt-env-conf-test] - Nothing -> do
  13576. 1948.63 s [opt-env-conf-test] - debug ["no config object to set from"]
  13577. 1948.63 s [opt-env-conf-test] - pure NotFound
  13578. 1948.63 s [opt-env-conf-test] - Just obj -> do
  13579. 1948.63 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13580. 1948.63 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13581. 1948.63 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13582. 1948.63 s [opt-env-conf-test] - Nothing -> do
  13583. 1948.63 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13584. 1948.63 s [opt-env-conf-test] - Nothing -> pure Nothing
  13585. 1948.63 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13586. 1948.63 s [opt-env-conf-test] - Just neRest -> do
  13587. 1948.63 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13588. 1948.63 s [opt-env-conf-test] - case mO' of
  13589. 1948.63 s [opt-env-conf-test] - Nothing -> pure Nothing
  13590. 1948.63 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13591. 1948.63 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13592. 1948.63 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13593. 1948.63 s [opt-env-conf-test] - Right mV -> case mV of
  13594. 1948.63 s [opt-env-conf-test] - Nothing -> do
  13595. 1948.63 s [opt-env-conf-test] - debug
  13596. 1948.63 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13597. 1948.63 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13598. 1948.63 s [opt-env-conf-test] - ]
  13599. 1948.63 s [opt-env-conf-test] - pure Nothing
  13600. 1948.63 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13601. 1948.63 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13602. 1948.63 s [opt-env-conf-test] - Right mA -> case mA of
  13603. 1948.63 s [opt-env-conf-test] - Nothing -> do
  13604. 1948.63 s [opt-env-conf-test] - debug
  13605. 1948.63 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13606. 1948.63 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13607. 1948.63 s [opt-env-conf-test] - ]
  13608. 1948.63 s [opt-env-conf-test] - pure Nothing
  13609. 1948.63 s [opt-env-conf-test] - Just a -> do
  13610. 1948.63 s [opt-env-conf-test] - debug
  13611. 1948.63 s [opt-env-conf-test] - [ "set based on config value: ",
  13612. 1948.63 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13613. 1948.64 s [opt-env-conf-test] - ]
  13614. 1948.64 s [opt-env-conf-test] - pure $ Just a
  13615. 1948.64 s [opt-env-conf-test] - let toRes = \case
  13616. 1948.64 s [opt-env-conf-test] - Nothing -> NotFound
  13617. 1948.64 s [opt-env-conf-test] - Just a -> Found a
  13618. 1948.64 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13619. 1948.64 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13620. 1948.64 s [opt-env-conf-test] - Just ne -> do
  13621. 1948.64 s [opt-env-conf-test] - res <- goConfSet confSet
  13622. 1948.64 s [opt-env-conf-test] - case res of
  13623. 1948.64 s [opt-env-conf-test] - Just a -> pure $ Found a
  13624. 1948.64 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13625. 1948.64 s [opt-env-conf-test] - goConfSets confSets
  13626. 1948.64 s [opt-env-conf-test] - case mConf of
  13627. 1948.64 s [opt-env-conf-test] - Found a -> do
  13628. 1948.64 s [opt-env-conf-test] - markParsed
  13629. 1948.64 s [opt-env-conf-test] - pure a
  13630. 1948.64 s [opt-env-conf-test] - _ ->
  13631. 1948.64 s [opt-env-conf-test] - case settingDefaultValue of
  13632. 1948.64 s [opt-env-conf-test] - Just (a, _) -> do
  13633. 1948.64 s [opt-env-conf-test] - debug ["set to default value"]
  13634. 1948.64 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13635. 1948.64 s [opt-env-conf-test] - Nothing -> do
  13636. 1948.64 s [opt-env-conf-test] - let parseResultError e res = case res of
  13637. 1948.64 s [opt-env-conf-test] - NotRun -> Nothing
  13638. 1948.64 s [opt-env-conf-test] - NotFound -> Just e
  13639. 1948.64 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13640. 1948.64 s [opt-env-conf-test] - debug ["not found"]
  13641. 1948.64 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13642. 1948.64 s [opt-env-conf-test] - NE.nonEmpty $
  13643. 1948.64 s [opt-env-conf-test] - catMaybes
  13644. 1949.26 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13645. 1949.26 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13646. 1949.26 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13647. 1949.26 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13648. 1949.26 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13649. 1949.26 s [opt-env-conf-test] - ]
  13650. 1949.26 s [opt-env-conf-test]
  13651. 1949.26 s [opt-env-conf-test] withCapabilities ::
  13652. 1949.26 s [opt-env-conf-test] Maybe SrcLoc ->
  13653. 1949.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
  13654. 1949.26 s [opt-env-conf-test] @@ -330,128 +330,125 @@
  13655. 1949.26 s [opt-env-conf-test] pure $ Found a
  13656. 1949.26 s [opt-env-conf-test] else pure NotRun
  13657. 1949.26 s [opt-env-conf-test]
  13658. 1949.26 s [opt-env-conf-test] case mOpt of
  13659. 1949.26 s [opt-env-conf-test] - Found a -> do
  13660. 1949.26 s [opt-env-conf-test] - markParsed
  13661. 1949.26 s [opt-env-conf-test] - pure a
  13662. 1949.26 s [opt-env-conf-test] _ -> do
  13663. 1949.27 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  13664. 1949.27 s [opt-env-conf-test] mEnv <- cap $ case settingEnvVars of
  13665. 1949.27 s [opt-env-conf-test] Nothing -> pure NotRun
  13666. 1949.27 s [opt-env-conf-test] Just ne -> do
  13667. 1949.27 s [opt-env-conf-test] -- Require readers before finding the env vars so the parser
  13668. 1949.27 s [opt-env-conf-test] -- always fails if it's missing a reader.
  13669. 1949.27 s [opt-env-conf-test] rs <- requireReaders settingReaders
  13670. 1949.27 s [opt-env-conf-test] es <- asks ppEnvEnv
  13671. 1949.27 s [opt-env-conf-test] let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  13672. 1949.27 s [opt-env-conf-test] -- Run the parser on all specified env vars before
  13673. 1949.27 s [opt-env-conf-test] -- returning the first because we want to fail if any
  13674. 1949.27 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  13675. 1949.27 s [opt-env-conf-test] -- result.
  13676. 1949.27 s [opt-env-conf-test] results <- for founds $ \varStr ->
  13677. 1949.27 s [opt-env-conf-test] case tryReaders rs varStr of
  13678. 1949.27 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  13679. 1949.27 s [opt-env-conf-test] Right a -> do
  13680. 1949.27 s [opt-env-conf-test] debug
  13681. 1949.27 s [opt-env-conf-test] [ "set based on env: ",
  13682. 1949.27 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  13683. 1949.27 s [opt-env-conf-test] ]
  13684. 1949.27 s [opt-env-conf-test] pure a
  13685. 1949.27 s [opt-env-conf-test] case listToMaybe results of
  13686. 1949.27 s [opt-env-conf-test] Nothing -> do
  13687. 1949.27 s [opt-env-conf-test] debug
  13688. 1949.27 s [opt-env-conf-test] [ "could not set based on env vars, no var: ",
  13689. 1949.27 s [opt-env-conf-test] chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13690. 1949.27 s [opt-env-conf-test] ]
  13691. 1949.27 s [opt-env-conf-test] pure NotFound
  13692. 1949.27 s [opt-env-conf-test] Just a -> pure $ Found a
  13693. 1949.27 s [opt-env-conf-test]
  13694. 1949.27 s [opt-env-conf-test] case mEnv of
  13695. 1949.27 s [opt-env-conf-test] Found a -> do
  13696. 1949.27 s [opt-env-conf-test] markParsed
  13697. 1949.27 s [opt-env-conf-test] pure a
  13698. 1949.27 s [opt-env-conf-test] _ -> do
  13699. 1949.27 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  13700. 1949.27 s [opt-env-conf-test] mConf <- case settingConfigVals of
  13701. 1949.27 s [opt-env-conf-test] Nothing -> pure NotRun
  13702. 1949.27 s [opt-env-conf-test] Just confSets -> do
  13703. 1949.27 s [opt-env-conf-test] mObj <- asks ppEnvConf
  13704. 1949.27 s [opt-env-conf-test] case mObj of
  13705. 1949.27 s [opt-env-conf-test] Nothing -> do
  13706. 1949.27 s [opt-env-conf-test] debug ["no config object to set from"]
  13707. 1949.27 s [opt-env-conf-test] pure NotFound
  13708. 1949.27 s [opt-env-conf-test] Just obj -> do
  13709. 1949.27 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  13710. 1949.27 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13711. 1949.27 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13712. 1949.27 s [opt-env-conf-test] Nothing -> do
  13713. 1949.27 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  13714. 1949.27 s [opt-env-conf-test] Nothing -> pure Nothing
  13715. 1949.27 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  13716. 1949.27 s [opt-env-conf-test] Just neRest -> do
  13717. 1949.27 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  13718. 1949.27 s [opt-env-conf-test] case mO' of
  13719. 1949.28 s [opt-env-conf-test] Nothing -> pure Nothing
  13720. 1949.28 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  13721. 1949.28 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  13722. 1949.28 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13723. 1949.28 s [opt-env-conf-test] Right mV -> case mV of
  13724. 1949.28 s [opt-env-conf-test] Nothing -> do
  13725. 1949.28 s [opt-env-conf-test] debug
  13726. 1949.28 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  13727. 1949.28 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  13728. 1949.28 s [opt-env-conf-test] ]
  13729. 1949.28 s [opt-env-conf-test] pure Nothing
  13730. 1949.28 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13731. 1949.28 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13732. 1949.28 s [opt-env-conf-test] Right mA -> case mA of
  13733. 1949.28 s [opt-env-conf-test] Nothing -> do
  13734. 1949.28 s [opt-env-conf-test] debug
  13735. 1949.28 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  13736. 1949.28 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  13737. 1949.28 s [opt-env-conf-test] ]
  13738. 1949.28 s [opt-env-conf-test] pure Nothing
  13739. 1949.28 s [opt-env-conf-test] Just a -> do
  13740. 1949.28 s [opt-env-conf-test] debug
  13741. 1949.28 s [opt-env-conf-test] [ "set based on config value: ",
  13742. 1949.28 s [opt-env-conf-test] chunk $ T.pack $ show v
  13743. 1949.28 s [opt-env-conf-test] ]
  13744. 1949.28 s [opt-env-conf-test] pure $ Just a
  13745. 1949.28 s [opt-env-conf-test] let toRes = \case
  13746. 1949.28 s [opt-env-conf-test] Nothing -> NotFound
  13747. 1949.28 s [opt-env-conf-test] Just a -> Found a
  13748. 1949.28 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13749. 1949.28 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  13750. 1949.28 s [opt-env-conf-test] Just ne -> do
  13751. 1949.96 s [opt-env-conf-test] res <- goConfSet confSet
  13752. 1949.96 s [opt-env-conf-test] case res of
  13753. 1949.96 s [opt-env-conf-test] Just a -> pure $ Found a
  13754. 1949.96 s [opt-env-conf-test] Nothing -> goConfSets ne
  13755. 1949.96 s [opt-env-conf-test] goConfSets confSets
  13756. 1949.96 s [opt-env-conf-test] case mConf of
  13757. 1949.96 s [opt-env-conf-test] Found a -> do
  13758. 1949.96 s [opt-env-conf-test] markParsed
  13759. 1949.96 s [opt-env-conf-test] pure a
  13760. 1949.96 s [opt-env-conf-test] _ ->
  13761. 1949.96 s [opt-env-conf-test] case settingDefaultValue of
  13762. 1949.96 s [opt-env-conf-test] Just (a, _) -> do
  13763. 1949.96 s [opt-env-conf-test] debug ["set to default value"]
  13764. 1949.96 s [opt-env-conf-test] pure a -- Don't mark as parsed
  13765. 1949.96 s [opt-env-conf-test] Nothing -> do
  13766. 1949.97 s [opt-env-conf-test] let parseResultError e res = case res of
  13767. 1949.97 s [opt-env-conf-test] NotRun -> Nothing
  13768. 1949.97 s [opt-env-conf-test] NotFound -> Just e
  13769. 1949.97 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  13770. 1949.97 s [opt-env-conf-test] debug ["not found"]
  13771. 1949.97 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13772. 1949.97 s [opt-env-conf-test] NE.nonEmpty $
  13773. 1949.97 s [opt-env-conf-test] catMaybes
  13774. 1949.97 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13775. 1949.97 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13776. 1949.97 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13777. 1949.97 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13778. 1949.97 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13779. 1949.97 s [opt-env-conf-test] ]
  13780. 1949.97 s [opt-env-conf-test]
  13781. 1949.97 s [opt-env-conf-test] withCapabilities ::
  13782. 1949.97 s [opt-env-conf-test] Maybe SrcLoc ->
  13783. 1949.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
  13784. 1949.97 s [opt-env-conf-test] @@ -330,128 +330,10 @@
  13785. 1949.97 s [opt-env-conf-test] pure $ Found a
  13786. 1949.97 s [opt-env-conf-test] else pure NotRun
  13787. 1949.97 s [opt-env-conf-test]
  13788. 1949.97 s [opt-env-conf-test] case mOpt of
  13789. 1949.97 s [opt-env-conf-test] Found a -> do
  13790. 1949.97 s [opt-env-conf-test] markParsed
  13791. 1949.97 s [opt-env-conf-test] pure a
  13792. 1949.97 s [opt-env-conf-test] - _ -> do
  13793. 1949.97 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  13794. 1949.97 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  13795. 1949.97 s [opt-env-conf-test] - Nothing -> pure NotRun
  13796. 1949.97 s [opt-env-conf-test] - Just ne -> do
  13797. 1949.97 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  13798. 1949.97 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  13799. 1949.97 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  13800. 1949.97 s [opt-env-conf-test] - es <- asks ppEnvEnv
  13801. 1949.97 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  13802. 1949.97 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  13803. 1949.97 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  13804. 1949.97 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  13805. 1949.97 s [opt-env-conf-test] - -- result.
  13806. 1949.97 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  13807. 1949.98 s [opt-env-conf-test] - case tryReaders rs varStr of
  13808. 1949.98 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  13809. 1949.98 s [opt-env-conf-test] - Right a -> do
  13810. 1949.98 s [opt-env-conf-test] - debug
  13811. 1949.98 s [opt-env-conf-test] - [ "set based on env: ",
  13812. 1949.98 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  13813. 1949.98 s [opt-env-conf-test] - ]
  13814. 1949.98 s [opt-env-conf-test] - pure a
  13815. 1949.98 s [opt-env-conf-test] - case listToMaybe results of
  13816. 1949.98 s [opt-env-conf-test] - Nothing -> do
  13817. 1949.98 s [opt-env-conf-test] - debug
  13818. 1949.98 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  13819. 1949.98 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13820. 1949.98 s [opt-env-conf-test] - ]
  13821. 1949.98 s [opt-env-conf-test] - pure NotFound
  13822. 1949.98 s [opt-env-conf-test] - Just a -> pure $ Found a
  13823. 1949.98 s [opt-env-conf-test] -
  13824. 1949.98 s [opt-env-conf-test] - case mEnv of
  13825. 1949.98 s [opt-env-conf-test] - Found a -> do
  13826. 1949.98 s [opt-env-conf-test] - markParsed
  13827. 1949.98 s [opt-env-conf-test] - pure a
  13828. 1949.98 s [opt-env-conf-test] - _ -> do
  13829. 1949.98 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  13830. 1949.98 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  13831. 1949.98 s [opt-env-conf-test] - Nothing -> pure NotRun
  13832. 1949.98 s [opt-env-conf-test] - Just confSets -> do
  13833. 1949.98 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13834. 1949.98 s [opt-env-conf-test] - case mObj of
  13835. 1949.98 s [opt-env-conf-test] - Nothing -> do
  13836. 1949.98 s [opt-env-conf-test] - debug ["no config object to set from"]
  13837. 1949.98 s [opt-env-conf-test] - pure NotFound
  13838. 1949.98 s [opt-env-conf-test] - Just obj -> do
  13839. 1949.98 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13840. 1949.98 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13841. 1949.98 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13842. 1949.98 s [opt-env-conf-test] - Nothing -> do
  13843. 1949.98 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13844. 1949.98 s [opt-env-conf-test] - Nothing -> pure Nothing
  13845. 1949.98 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13846. 1949.98 s [opt-env-conf-test] - Just neRest -> do
  13847. 1949.99 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13848. 1949.99 s [opt-env-conf-test] - case mO' of
  13849. 1949.99 s [opt-env-conf-test] - Nothing -> pure Nothing
  13850. 1949.99 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13851. 1949.99 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13852. 1949.99 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13853. 1949.99 s [opt-env-conf-test] - Right mV -> case mV of
  13854. 1949.99 s [opt-env-conf-test] - Nothing -> do
  13855. 1949.99 s [opt-env-conf-test] - debug
  13856. 1949.99 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13857. 1949.99 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13858. 1949.99 s [opt-env-conf-test] - ]
  13859. 1949.99 s [opt-env-conf-test] - pure Nothing
  13860. 1949.99 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13861. 1949.99 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13862. 1949.99 s [opt-env-conf-test] - Right mA -> case mA of
  13863. 1949.99 s [opt-env-conf-test] - Nothing -> do
  13864. 1949.99 s [opt-env-conf-test] - debug
  13865. 1949.99 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13866. 1949.99 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13867. 1949.99 s [opt-env-conf-test] - ]
  13868. 1949.99 s [opt-env-conf-test] - pure Nothing
  13869. 1949.99 s [opt-env-conf-test] - Just a -> do
  13870. 1949.99 s [opt-env-conf-test] - debug
  13871. 1949.99 s [opt-env-conf-test] - [ "set based on config value: ",
  13872. 1949.99 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13873. 1949.99 s [opt-env-conf-test] - ]
  13874. 1949.99 s [opt-env-conf-test] - pure $ Just a
  13875. 1949.99 s [opt-env-conf-test] - let toRes = \case
  13876. 1949.99 s [opt-env-conf-test] - Nothing -> NotFound
  13877. 1949.99 s [opt-env-conf-test] - Just a -> Found a
  13878. 1949.99 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13879. 1949.99 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13880. 1949.99 s [opt-env-conf-test] - Just ne -> do
  13881. 1949.99 s [opt-env-conf-test] - res <- goConfSet confSet
  13882. 1949.99 s [opt-env-conf-test] - case res of
  13883. 1949.99 s [opt-env-conf-test] - Just a -> pure $ Found a
  13884. 1949.99 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13885. 1949.99 s [opt-env-conf-test] - goConfSets confSets
  13886. 1949.99 s [opt-env-conf-test] - case mConf of
  13887. 1949.99 s [opt-env-conf-test] - Found a -> do
  13888. 1949.99 s [opt-env-conf-test] - markParsed
  13889. 1949.99 s [opt-env-conf-test] - pure a
  13890. 1949.99 s [opt-env-conf-test] - _ ->
  13891. 1949.99 s [opt-env-conf-test] - case settingDefaultValue of
  13892. 1949.99 s [opt-env-conf-test] - Just (a, _) -> do
  13893. 1949.99 s [opt-env-conf-test] - debug ["set to default value"]
  13894. 1949.99 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13895. 1949.99 s [opt-env-conf-test] - Nothing -> do
  13896. 1949.99 s [opt-env-conf-test] - let parseResultError e res = case res of
  13897. 1949.99 s [opt-env-conf-test] - NotRun -> Nothing
  13898. 1949.99 s [opt-env-conf-test] - NotFound -> Just e
  13899. 1950.00 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13900. 1950.00 s [opt-env-conf-test] - debug ["not found"]
  13901. 1950.27 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13902. 1950.27 s [opt-env-conf-test] - NE.nonEmpty $
  13903. 1950.27 s [opt-env-conf-test] - catMaybes
  13904. 1950.27 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13905. 1950.27 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13906. 1950.27 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13907. 1950.27 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13908. 1950.28 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13909. 1950.28 s [opt-env-conf-test] - ]
  13910. 1950.28 s [opt-env-conf-test]
  13911. 1950.28 s [opt-env-conf-test] withCapabilities ::
  13912. 1950.28 s [opt-env-conf-test] Maybe SrcLoc ->
  13913. 1950.28 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
  13914. 1950.28 s [opt-env-conf-test] @@ -300,158 +300,155 @@
  13915. 1950.28 s [opt-env-conf-test] debug ["set based on switch."]
  13916. 1950.28 s [opt-env-conf-test] pure $ Found a
  13917. 1950.28 s [opt-env-conf-test]
  13918. 1950.28 s [opt-env-conf-test] case mSwitch of
  13919. 1950.28 s [opt-env-conf-test] - Found a -> do
  13920. 1950.28 s [opt-env-conf-test] - markParsed
  13921. 1950.28 s [opt-env-conf-test] - pure a
  13922. 1950.28 s [opt-env-conf-test] _ -> do
  13923. 1950.28 s [opt-env-conf-test] mOpt <-
  13924. 1950.28 s [opt-env-conf-test] if settingTryOption
  13925. 1950.28 s [opt-env-conf-test] then do
  13926. 1950.28 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  13927. 1950.28 s [opt-env-conf-test] -- always fails if it's missing a reader.
  13928. 1950.28 s [opt-env-conf-test] rs <- requireReaders settingReaders
  13929. 1950.28 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  13930. 1950.28 s [opt-env-conf-test] case mS of
  13931. 1950.28 s [opt-env-conf-test] Nothing -> do
  13932. 1950.28 s [opt-env-conf-test] debug
  13933. 1950.28 s [opt-env-conf-test] [ "could not set based on options, no option: ",
  13934. 1950.28 s [opt-env-conf-test] chunk $ T.pack $ show $ map renderDashed settingDasheds
  13935. 1950.28 s [opt-env-conf-test] ]
  13936. 1950.28 s [opt-env-conf-test] pure NotFound
  13937. 1950.28 s [opt-env-conf-test] Just optionStr -> cap $
  13938. 1950.28 s [opt-env-conf-test] case tryReaders rs optionStr of
  13939. 1950.28 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  13940. 1950.28 s [opt-env-conf-test] Right a -> do
  13941. 1950.28 s [opt-env-conf-test] debug
  13942. 1950.28 s [opt-env-conf-test] [ "set based on option: ",
  13943. 1950.28 s [opt-env-conf-test] chunk $ T.pack $ show optionStr
  13944. 1950.28 s [opt-env-conf-test] ]
  13945. 1950.29 s [opt-env-conf-test] pure $ Found a
  13946. 1950.29 s [opt-env-conf-test] else pure NotRun
  13947. 1950.29 s [opt-env-conf-test]
  13948. 1950.29 s [opt-env-conf-test] case mOpt of
  13949. 1950.29 s [opt-env-conf-test] Found a -> do
  13950. 1950.29 s [opt-env-conf-test] markParsed
  13951. 1950.29 s [opt-env-conf-test] pure a
  13952. 1950.29 s [opt-env-conf-test] _ -> do
  13953. 1950.29 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  13954. 1950.29 s [opt-env-conf-test] mEnv <- cap $ case settingEnvVars of
  13955. 1950.29 s [opt-env-conf-test] Nothing -> pure NotRun
  13956. 1950.29 s [opt-env-conf-test] Just ne -> do
  13957. 1950.29 s [opt-env-conf-test] -- Require readers before finding the env vars so the parser
  13958. 1950.29 s [opt-env-conf-test] -- always fails if it's missing a reader.
  13959. 1950.29 s [opt-env-conf-test] rs <- requireReaders settingReaders
  13960. 1950.29 s [opt-env-conf-test] es <- asks ppEnvEnv
  13961. 1950.29 s [opt-env-conf-test] let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  13962. 1950.29 s [opt-env-conf-test] -- Run the parser on all specified env vars before
  13963. 1950.29 s [opt-env-conf-test] -- returning the first because we want to fail if any
  13964. 1950.29 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  13965. 1950.29 s [opt-env-conf-test] -- result.
  13966. 1950.29 s [opt-env-conf-test] results <- for founds $ \varStr ->
  13967. 1950.29 s [opt-env-conf-test] case tryReaders rs varStr of
  13968. 1950.29 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  13969. 1950.29 s [opt-env-conf-test] Right a -> do
  13970. 1950.29 s [opt-env-conf-test] debug
  13971. 1950.29 s [opt-env-conf-test] [ "set based on env: ",
  13972. 1950.29 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  13973. 1950.29 s [opt-env-conf-test] ]
  13974. 1950.29 s [opt-env-conf-test] pure a
  13975. 1950.29 s [opt-env-conf-test] case listToMaybe results of
  13976. 1950.29 s [opt-env-conf-test] Nothing -> do
  13977. 1950.29 s [opt-env-conf-test] debug
  13978. 1950.29 s [opt-env-conf-test] [ "could not set based on env vars, no var: ",
  13979. 1950.29 s [opt-env-conf-test] chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13980. 1950.29 s [opt-env-conf-test] ]
  13981. 1950.29 s [opt-env-conf-test] pure NotFound
  13982. 1950.29 s [opt-env-conf-test] Just a -> pure $ Found a
  13983. 1950.29 s [opt-env-conf-test]
  13984. 1950.29 s [opt-env-conf-test] case mEnv of
  13985. 1950.29 s [opt-env-conf-test] Found a -> do
  13986. 1950.29 s [opt-env-conf-test] markParsed
  13987. 1950.29 s [opt-env-conf-test] pure a
  13988. 1950.30 s [opt-env-conf-test] _ -> do
  13989. 1950.30 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  13990. 1950.30 s [opt-env-conf-test] mConf <- case settingConfigVals of
  13991. 1950.30 s [opt-env-conf-test] Nothing -> pure NotRun
  13992. 1950.30 s [opt-env-conf-test] Just confSets -> do
  13993. 1950.30 s [opt-env-conf-test] mObj <- asks ppEnvConf
  13994. 1950.30 s [opt-env-conf-test] case mObj of
  13995. 1950.30 s [opt-env-conf-test] Nothing -> do
  13996. 1950.30 s [opt-env-conf-test] debug ["no config object to set from"]
  13997. 1950.30 s [opt-env-conf-test] pure NotFound
  13998. 1950.30 s [opt-env-conf-test] Just obj -> do
  13999. 1950.30 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  14000. 1950.30 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14001. 1950.30 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14002. 1950.30 s [opt-env-conf-test] Nothing -> do
  14003. 1950.30 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  14004. 1950.30 s [opt-env-conf-test] Nothing -> pure Nothing
  14005. 1950.30 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  14006. 1950.30 s [opt-env-conf-test] Just neRest -> do
  14007. 1950.30 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  14008. 1950.30 s [opt-env-conf-test] case mO' of
  14009. 1950.30 s [opt-env-conf-test] Nothing -> pure Nothing
  14010. 1950.30 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  14011. 1950.30 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  14012. 1950.30 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14013. 1950.30 s [opt-env-conf-test] Right mV -> case mV of
  14014. 1950.30 s [opt-env-conf-test] Nothing -> do
  14015. 1950.30 s [opt-env-conf-test] debug
  14016. 1950.30 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  14017. 1950.30 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  14018. 1950.30 s [opt-env-conf-test] ]
  14019. 1950.30 s [opt-env-conf-test] pure Nothing
  14020. 1950.30 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14021. 1950.30 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14022. 1950.30 s [opt-env-conf-test] Right mA -> case mA of
  14023. 1950.30 s [opt-env-conf-test] Nothing -> do
  14024. 1950.30 s [opt-env-conf-test] debug
  14025. 1950.30 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  14026. 1950.30 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  14027. 1950.30 s [opt-env-conf-test] ]
  14028. 1950.30 s [opt-env-conf-test] pure Nothing
  14029. 1950.30 s [opt-env-conf-test] Just a -> do
  14030. 1950.30 s [opt-env-conf-test] debug
  14031. 1950.30 s [opt-env-conf-test] [ "set based on config value: ",
  14032. 1950.30 s [opt-env-conf-test] chunk $ T.pack $ show v
  14033. 1950.30 s [opt-env-conf-test] ]
  14034. 1950.30 s [opt-env-conf-test] pure $ Just a
  14035. 1950.30 s [opt-env-conf-test] let toRes = \case
  14036. 1950.30 s [opt-env-conf-test] Nothing -> NotFound
  14037. 1950.30 s [opt-env-conf-test] Just a -> Found a
  14038. 1950.30 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14039. 1950.30 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  14040. 1950.30 s [opt-env-conf-test] Just ne -> do
  14041. 1950.30 s [opt-env-conf-test] res <- goConfSet confSet
  14042. 1950.31 s [opt-env-conf-test] case res of
  14043. 1950.31 s [opt-env-conf-test] Just a -> pure $ Found a
  14044. 1950.31 s [opt-env-conf-test] Nothing -> goConfSets ne
  14045. 1950.31 s [opt-env-conf-test] goConfSets confSets
  14046. 1950.31 s [opt-env-conf-test] case mConf of
  14047. 1950.31 s [opt-env-conf-test] Found a -> do
  14048. 1950.31 s [opt-env-conf-test] markParsed
  14049. 1950.31 s [opt-env-conf-test] pure a
  14050. 1950.31 s [opt-env-conf-test] _ ->
  14051. 1950.31 s [opt-env-conf-test] case settingDefaultValue of
  14052. 1950.31 s [opt-env-conf-test] Just (a, _) -> do
  14053. 1951.04 s [opt-env-conf-test] debug ["set to default value"]
  14054. 1951.17 s [opt-env-conf-test] pure a -- Don't mark as parsed
  14055. 1951.17 s [opt-env-conf-test] Nothing -> do
  14056. 1951.17 s [opt-env-conf-test] let parseResultError e res = case res of
  14057. 1951.17 s [opt-env-conf-test] NotRun -> Nothing
  14058. 1951.17 s [opt-env-conf-test] NotFound -> Just e
  14059. 1951.17 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  14060. 1951.17 s [opt-env-conf-test] debug ["not found"]
  14061. 1951.17 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14062. 1951.17 s [opt-env-conf-test] NE.nonEmpty $
  14063. 1951.17 s [opt-env-conf-test] catMaybes
  14064. 1951.17 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14065. 1951.17 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14066. 1951.17 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14067. 1951.17 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14068. 1951.17 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14069. 1951.17 s [opt-env-conf-test] ]
  14070. 1951.17 s [opt-env-conf-test]
  14071. 1951.17 s [opt-env-conf-test] withCapabilities ::
  14072. 1951.17 s [opt-env-conf-test] Maybe SrcLoc ->
  14073. 1951.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
  14074. 1951.18 s [opt-env-conf-test] @@ -300,158 +300,10 @@
  14075. 1951.18 s [opt-env-conf-test] debug ["set based on switch."]
  14076. 1951.18 s [opt-env-conf-test] pure $ Found a
  14077. 1951.18 s [opt-env-conf-test]
  14078. 1951.18 s [opt-env-conf-test] case mSwitch of
  14079. 1951.18 s [opt-env-conf-test] Found a -> do
  14080. 1951.18 s [opt-env-conf-test] markParsed
  14081. 1951.18 s [opt-env-conf-test] pure a
  14082. 1951.18 s [opt-env-conf-test] - _ -> do
  14083. 1951.18 s [opt-env-conf-test] - mOpt <-
  14084. 1951.18 s [opt-env-conf-test] - if settingTryOption
  14085. 1951.18 s [opt-env-conf-test] - then do
  14086. 1951.18 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  14087. 1951.18 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14088. 1951.18 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14089. 1951.18 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  14090. 1951.18 s [opt-env-conf-test] - case mS of
  14091. 1951.18 s [opt-env-conf-test] - Nothing -> do
  14092. 1951.18 s [opt-env-conf-test] - debug
  14093. 1951.18 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  14094. 1951.18 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14095. 1951.18 s [opt-env-conf-test] - ]
  14096. 1951.18 s [opt-env-conf-test] - pure NotFound
  14097. 1951.18 s [opt-env-conf-test] - Just optionStr -> cap $
  14098. 1951.18 s [opt-env-conf-test] - case tryReaders rs optionStr of
  14099. 1951.18 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14100. 1951.18 s [opt-env-conf-test] - Right a -> do
  14101. 1951.18 s [opt-env-conf-test] - debug
  14102. 1951.18 s [opt-env-conf-test] - [ "set based on option: ",
  14103. 1951.18 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  14104. 1951.18 s [opt-env-conf-test] - ]
  14105. 1951.18 s [opt-env-conf-test] - pure $ Found a
  14106. 1951.18 s [opt-env-conf-test] - else pure NotRun
  14107. 1951.18 s [opt-env-conf-test] -
  14108. 1951.18 s [opt-env-conf-test] - case mOpt of
  14109. 1951.19 s [opt-env-conf-test] - Found a -> do
  14110. 1951.19 s [opt-env-conf-test] - markParsed
  14111. 1951.19 s [opt-env-conf-test] - pure a
  14112. 1951.19 s [opt-env-conf-test] - _ -> do
  14113. 1951.19 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  14114. 1951.19 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  14115. 1951.19 s [opt-env-conf-test] - Nothing -> pure NotRun
  14116. 1951.19 s [opt-env-conf-test] - Just ne -> do
  14117. 1951.19 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  14118. 1951.19 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14119. 1951.19 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14120. 1951.19 s [opt-env-conf-test] - es <- asks ppEnvEnv
  14121. 1951.19 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14122. 1951.19 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  14123. 1951.19 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  14124. 1951.19 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  14125. 1951.19 s [opt-env-conf-test] - -- result.
  14126. 1951.19 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  14127. 1951.19 s [opt-env-conf-test] - case tryReaders rs varStr of
  14128. 1951.19 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14129. 1951.19 s [opt-env-conf-test] - Right a -> do
  14130. 1951.19 s [opt-env-conf-test] - debug
  14131. 1951.19 s [opt-env-conf-test] - [ "set based on env: ",
  14132. 1951.19 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  14133. 1951.19 s [opt-env-conf-test] - ]
  14134. 1951.19 s [opt-env-conf-test] - pure a
  14135. 1951.19 s [opt-env-conf-test] - case listToMaybe results of
  14136. 1951.19 s [opt-env-conf-test] - Nothing -> do
  14137. 1951.19 s [opt-env-conf-test] - debug
  14138. 1951.19 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  14139. 1951.19 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14140. 1951.19 s [opt-env-conf-test] - ]
  14141. 1951.19 s [opt-env-conf-test] - pure NotFound
  14142. 1951.19 s [opt-env-conf-test] - Just a -> pure $ Found a
  14143. 1951.19 s [opt-env-conf-test] -
  14144. 1951.19 s [opt-env-conf-test] - case mEnv of
  14145. 1951.19 s [opt-env-conf-test] - Found a -> do
  14146. 1951.19 s [opt-env-conf-test] - markParsed
  14147. 1951.19 s [opt-env-conf-test] - pure a
  14148. 1951.19 s [opt-env-conf-test] - _ -> do
  14149. 1951.19 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  14150. 1951.19 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  14151. 1951.19 s [opt-env-conf-test] - Nothing -> pure NotRun
  14152. 1951.19 s [opt-env-conf-test] - Just confSets -> do
  14153. 1951.20 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  14154. 1951.20 s [opt-env-conf-test] - case mObj of
  14155. 1951.20 s [opt-env-conf-test] - Nothing -> do
  14156. 1951.20 s [opt-env-conf-test] - debug ["no config object to set from"]
  14157. 1951.20 s [opt-env-conf-test] - pure NotFound
  14158. 1951.20 s [opt-env-conf-test] - Just obj -> do
  14159. 1951.20 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  14160. 1951.20 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14161. 1951.20 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14162. 1951.20 s [opt-env-conf-test] - Nothing -> do
  14163. 1951.20 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  14164. 1951.20 s [opt-env-conf-test] - Nothing -> pure Nothing
  14165. 1951.20 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  14166. 1951.20 s [opt-env-conf-test] - Just neRest -> do
  14167. 1951.20 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  14168. 1951.20 s [opt-env-conf-test] - case mO' of
  14169. 1951.20 s [opt-env-conf-test] - Nothing -> pure Nothing
  14170. 1951.20 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  14171. 1951.20 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  14172. 1951.20 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14173. 1951.20 s [opt-env-conf-test] - Right mV -> case mV of
  14174. 1951.20 s [opt-env-conf-test] - Nothing -> do
  14175. 1951.20 s [opt-env-conf-test] - debug
  14176. 1951.20 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  14177. 1951.20 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14178. 1951.20 s [opt-env-conf-test] - ]
  14179. 1951.20 s [opt-env-conf-test] - pure Nothing
  14180. 1951.20 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14181. 1951.20 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14182. 1951.20 s [opt-env-conf-test] - Right mA -> case mA of
  14183. 1951.20 s [opt-env-conf-test] - Nothing -> do
  14184. 1951.20 s [opt-env-conf-test] - debug
  14185. 1951.20 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  14186. 1951.20 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14187. 1951.20 s [opt-env-conf-test] - ]
  14188. 1951.20 s [opt-env-conf-test] - pure Nothing
  14189. 1951.20 s [opt-env-conf-test] - Just a -> do
  14190. 1951.20 s [opt-env-conf-test] - debug
  14191. 1951.20 s [opt-env-conf-test] - [ "set based on config value: ",
  14192. 1951.20 s [opt-env-conf-test] - chunk $ T.pack $ show v
  14193. 1951.21 s [opt-env-conf-test] - ]
  14194. 1951.21 s [opt-env-conf-test] - pure $ Just a
  14195. 1951.21 s [opt-env-conf-test] - let toRes = \case
  14196. 1951.21 s [opt-env-conf-test] - Nothing -> NotFound
  14197. 1951.21 s [opt-env-conf-test] - Just a -> Found a
  14198. 1951.21 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14199. 1951.21 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  14200. 1951.21 s [opt-env-conf-test] - Just ne -> do
  14201. 1951.21 s [opt-env-conf-test] - res <- goConfSet confSet
  14202. 1951.21 s [opt-env-conf-test] - case res of
  14203. 1951.21 s [opt-env-conf-test] - Just a -> pure $ Found a
  14204. 1951.21 s [opt-env-conf-test] - Nothing -> goConfSets ne
  14205. 1951.21 s [opt-env-conf-test] - goConfSets confSets
  14206. 1951.21 s [opt-env-conf-test] - case mConf of
  14207. 1951.21 s [opt-env-conf-test] - Found a -> do
  14208. 1951.21 s [opt-env-conf-test] - markParsed
  14209. 1951.21 s [opt-env-conf-test] - pure a
  14210. 1951.21 s [opt-env-conf-test] - _ ->
  14211. 1951.21 s [opt-env-conf-test] - case settingDefaultValue of
  14212. 1951.21 s [opt-env-conf-test] - Just (a, _) -> do
  14213. 1951.21 s [opt-env-conf-test] - debug ["set to default value"]
  14214. 1951.21 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  14215. 1951.21 s [opt-env-conf-test] - Nothing -> do
  14216. 1951.21 s [opt-env-conf-test] - let parseResultError e res = case res of
  14217. 1951.21 s [opt-env-conf-test] - NotRun -> Nothing
  14218. 1951.21 s [opt-env-conf-test] - NotFound -> Just e
  14219. 1951.21 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14220. 1951.21 s [opt-env-conf-test] - debug ["not found"]
  14221. 1951.21 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14222. 1951.21 s [opt-env-conf-test] - NE.nonEmpty $
  14223. 1951.21 s [opt-env-conf-test] - catMaybes
  14224. 1951.21 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14225. 1951.21 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14226. 1951.21 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14227. 1951.21 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14228. 1951.21 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14229. 1951.21 s [opt-env-conf-test] - ]
  14230. 1951.21 s [opt-env-conf-test]
  14231. 1951.21 s [opt-env-conf-test] withCapabilities ::
  14232. 1951.21 s [opt-env-conf-test] Maybe SrcLoc ->
  14233. 1951.21 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
  14234. 1951.21 s [opt-env-conf-test] @@ -280,178 +280,175 @@
  14235. 1951.21 s [opt-env-conf-test] pure $ Found a
  14236. 1951.21 s [opt-env-conf-test] else pure NotRun
  14237. 1951.21 s [opt-env-conf-test]
  14238. 1951.21 s [opt-env-conf-test] case mArg of
  14239. 1951.21 s [opt-env-conf-test] - Found a -> do
  14240. 1951.21 s [opt-env-conf-test] - markParsed
  14241. 1951.21 s [opt-env-conf-test] - pure a
  14242. 1951.21 s [opt-env-conf-test] _ -> do
  14243. 1951.21 s [opt-env-conf-test] mSwitch <- case settingSwitchValue of
  14244. 1951.21 s [opt-env-conf-test] Nothing -> pure NotRun
  14245. 1951.21 s [opt-env-conf-test] Just a -> do
  14246. 1951.21 s [opt-env-conf-test] mS <- ppSwitch settingDasheds
  14247. 1951.21 s [opt-env-conf-test] case mS of
  14248. 1951.21 s [opt-env-conf-test] Nothing -> do
  14249. 1951.21 s [opt-env-conf-test] debug
  14250. 1951.21 s [opt-env-conf-test] [ "could not set based on switch, no switch: ",
  14251. 1951.21 s [opt-env-conf-test] chunk $ T.pack $ show $ map renderDashed settingDasheds
  14252. 1951.21 s [opt-env-conf-test] ]
  14253. 1951.21 s [opt-env-conf-test] pure NotFound
  14254. 1951.21 s [opt-env-conf-test] Just () -> cap $ do
  14255. 1951.21 s [opt-env-conf-test] debug ["set based on switch."]
  14256. 1951.21 s [opt-env-conf-test] pure $ Found a
  14257. 1951.21 s [opt-env-conf-test]
  14258. 1951.22 s [opt-env-conf-test] case mSwitch of
  14259. 1951.22 s [opt-env-conf-test] Found a -> do
  14260. 1951.22 s [opt-env-conf-test] markParsed
  14261. 1951.22 s [opt-env-conf-test] pure a
  14262. 1951.22 s [opt-env-conf-test] _ -> do
  14263. 1951.22 s [opt-env-conf-test] mOpt <-
  14264. 1951.22 s [opt-env-conf-test] if settingTryOption
  14265. 1951.22 s [opt-env-conf-test] then do
  14266. 1951.22 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  14267. 1951.22 s [opt-env-conf-test] -- always fails if it's missing a reader.
  14268. 1951.22 s [opt-env-conf-test] rs <- requireReaders settingReaders
  14269. 1951.22 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  14270. 1951.22 s [opt-env-conf-test] case mS of
  14271. 1951.22 s [opt-env-conf-test] Nothing -> do
  14272. 1951.22 s [opt-env-conf-test] debug
  14273. 1951.22 s [opt-env-conf-test] [ "could not set based on options, no option: ",
  14274. 1951.22 s [opt-env-conf-test] chunk $ T.pack $ show $ map renderDashed settingDasheds
  14275. 1951.22 s [opt-env-conf-test] ]
  14276. 1951.22 s [opt-env-conf-test] pure NotFound
  14277. 1951.22 s [opt-env-conf-test] Just optionStr -> cap $
  14278. 1951.22 s [opt-env-conf-test] case tryReaders rs optionStr of
  14279. 1951.22 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14280. 1951.22 s [opt-env-conf-test] Right a -> do
  14281. 1951.22 s [opt-env-conf-test] debug
  14282. 1951.22 s [opt-env-conf-test] [ "set based on option: ",
  14283. 1951.22 s [opt-env-conf-test] chunk $ T.pack $ show optionStr
  14284. 1951.22 s [opt-env-conf-test] ]
  14285. 1951.22 s [opt-env-conf-test] pure $ Found a
  14286. 1951.22 s [opt-env-conf-test] else pure NotRun
  14287. 1951.22 s [opt-env-conf-test]
  14288. 1951.22 s [opt-env-conf-test] case mOpt of
  14289. 1951.22 s [opt-env-conf-test] Found a -> do
  14290. 1951.22 s [opt-env-conf-test] markParsed
  14291. 1951.22 s [opt-env-conf-test] pure a
  14292. 1951.22 s [opt-env-conf-test] _ -> do
  14293. 1951.22 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  14294. 1951.22 s [opt-env-conf-test] mEnv <- cap $ case settingEnvVars of
  14295. 1951.22 s [opt-env-conf-test] Nothing -> pure NotRun
  14296. 1951.22 s [opt-env-conf-test] Just ne -> do
  14297. 1951.22 s [opt-env-conf-test] -- Require readers before finding the env vars so the parser
  14298. 1951.22 s [opt-env-conf-test] -- always fails if it's missing a reader.
  14299. 1951.22 s [opt-env-conf-test] rs <- requireReaders settingReaders
  14300. 1951.22 s [opt-env-conf-test] es <- asks ppEnvEnv
  14301. 1951.22 s [opt-env-conf-test] let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14302. 1951.22 s [opt-env-conf-test] -- Run the parser on all specified env vars before
  14303. 1951.22 s [opt-env-conf-test] -- returning the first because we want to fail if any
  14304. 1951.22 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  14305. 1951.22 s [opt-env-conf-test] -- result.
  14306. 1951.22 s [opt-env-conf-test] results <- for founds $ \varStr ->
  14307. 1951.22 s [opt-env-conf-test] case tryReaders rs varStr of
  14308. 1951.22 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14309. 1951.22 s [opt-env-conf-test] Right a -> do
  14310. 1951.22 s [opt-env-conf-test] debug
  14311. 1951.22 s [opt-env-conf-test] [ "set based on env: ",
  14312. 1951.22 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  14313. 1951.22 s [opt-env-conf-test] ]
  14314. 1951.22 s [opt-env-conf-test] pure a
  14315. 1951.22 s [opt-env-conf-test] case listToMaybe results of
  14316. 1951.22 s [opt-env-conf-test] Nothing -> do
  14317. 1951.22 s [opt-env-conf-test] debug
  14318. 1951.22 s [opt-env-conf-test] [ "could not set based on env vars, no var: ",
  14319. 1951.22 s [opt-env-conf-test] chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14320. 1951.22 s [opt-env-conf-test] ]
  14321. 1951.22 s [opt-env-conf-test] pure NotFound
  14322. 1951.22 s [opt-env-conf-test] Just a -> pure $ Found a
  14323. 1951.22 s [opt-env-conf-test]
  14324. 1951.22 s [opt-env-conf-test] case mEnv of
  14325. 1951.22 s [opt-env-conf-test] Found a -> do
  14326. 1951.22 s [opt-env-conf-test] markParsed
  14327. 1951.22 s [opt-env-conf-test] pure a
  14328. 1951.22 s [opt-env-conf-test] _ -> do
  14329. 1951.22 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  14330. 1951.22 s [opt-env-conf-test] mConf <- case settingConfigVals of
  14331. 1951.23 s [opt-env-conf-test] Nothing -> pure NotRun
  14332. 1951.23 s [opt-env-conf-test] Just confSets -> do
  14333. 1951.23 s [opt-env-conf-test] mObj <- asks ppEnvConf
  14334. 1951.23 s [opt-env-conf-test] case mObj of
  14335. 1951.23 s [opt-env-conf-test] Nothing -> do
  14336. 1951.23 s [opt-env-conf-test] debug ["no config object to set from"]
  14337. 1951.23 s [opt-env-conf-test] pure NotFound
  14338. 1951.23 s [opt-env-conf-test] Just obj -> do
  14339. 1951.23 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  14340. 1951.23 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14341. 1951.23 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14342. 1951.23 s [opt-env-conf-test] Nothing -> do
  14343. 1951.23 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  14344. 1951.23 s [opt-env-conf-test] Nothing -> pure Nothing
  14345. 1951.23 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  14346. 1951.23 s [opt-env-conf-test] Just neRest -> do
  14347. 1951.23 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  14348. 1951.23 s [opt-env-conf-test] case mO' of
  14349. 1951.23 s [opt-env-conf-test] Nothing -> pure Nothing
  14350. 1951.23 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  14351. 1951.23 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  14352. 1951.23 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14353. 1951.23 s [opt-env-conf-test] Right mV -> case mV of
  14354. 1951.23 s [opt-env-conf-test] Nothing -> do
  14355. 1951.23 s [opt-env-conf-test] debug
  14356. 1951.23 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  14357. 1951.23 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  14358. 1951.23 s [opt-env-conf-test] ]
  14359. 1951.23 s [opt-env-conf-test] pure Nothing
  14360. 1951.23 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14361. 1951.23 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14362. 1951.23 s [opt-env-conf-test] Right mA -> case mA of
  14363. 1951.23 s [opt-env-conf-test] Nothing -> do
  14364. 1951.23 s [opt-env-conf-test] debug
  14365. 1951.23 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  14366. 1951.23 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  14367. 1951.23 s [opt-env-conf-test] ]
  14368. 1951.23 s [opt-env-conf-test] pure Nothing
  14369. 1951.23 s [opt-env-conf-test] Just a -> do
  14370. 1951.23 s [opt-env-conf-test] debug
  14371. 1951.23 s [opt-env-conf-test] [ "set based on config value: ",
  14372. 1951.23 s [opt-env-conf-test] chunk $ T.pack $ show v
  14373. 1951.23 s [opt-env-conf-test] ]
  14374. 1951.23 s [opt-env-conf-test] pure $ Just a
  14375. 1951.23 s [opt-env-conf-test] let toRes = \case
  14376. 1951.23 s [opt-env-conf-test] Nothing -> NotFound
  14377. 1951.23 s [opt-env-conf-test] Just a -> Found a
  14378. 1951.23 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14379. 1952.49 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  14380. 1952.50 s [opt-env-conf-test] Just ne -> do
  14381. 1952.50 s [opt-env-conf-test] res <- goConfSet confSet
  14382. 1952.50 s [opt-env-conf-test] case res of
  14383. 1952.50 s [opt-env-conf-test] Just a -> pure $ Found a
  14384. 1952.50 s [opt-env-conf-test] Nothing -> goConfSets ne
  14385. 1952.50 s [opt-env-conf-test] goConfSets confSets
  14386. 1952.50 s [opt-env-conf-test] case mConf of
  14387. 1952.50 s [opt-env-conf-test] Found a -> do
  14388. 1952.50 s [opt-env-conf-test] markParsed
  14389. 1952.50 s [opt-env-conf-test] pure a
  14390. 1952.50 s [opt-env-conf-test] _ ->
  14391. 1952.50 s [opt-env-conf-test] case settingDefaultValue of
  14392. 1952.50 s [opt-env-conf-test] Just (a, _) -> do
  14393. 1952.50 s [opt-env-conf-test] debug ["set to default value"]
  14394. 1952.50 s [opt-env-conf-test] pure a -- Don't mark as parsed
  14395. 1952.50 s [opt-env-conf-test] Nothing -> do
  14396. 1952.50 s [opt-env-conf-test] let parseResultError e res = case res of
  14397. 1952.50 s [opt-env-conf-test] NotRun -> Nothing
  14398. 1952.50 s [opt-env-conf-test] NotFound -> Just e
  14399. 1952.51 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  14400. 1952.51 s [opt-env-conf-test] debug ["not found"]
  14401. 1952.51 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14402. 1952.51 s [opt-env-conf-test] NE.nonEmpty $
  14403. 1952.51 s [opt-env-conf-test] catMaybes
  14404. 1952.51 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14405. 1952.51 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14406. 1952.51 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14407. 1952.51 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14408. 1952.51 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14409. 1952.51 s [opt-env-conf-test] ]
  14410. 1952.51 s [opt-env-conf-test]
  14411. 1952.51 s [opt-env-conf-test] withCapabilities ::
  14412. 1952.51 s [opt-env-conf-test] Maybe SrcLoc ->
  14413. 1952.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
  14414. 1952.51 s [opt-env-conf-test] @@ -280,178 +280,10 @@
  14415. 1952.51 s [opt-env-conf-test] pure $ Found a
  14416. 1952.51 s [opt-env-conf-test] else pure NotRun
  14417. 1952.51 s [opt-env-conf-test]
  14418. 1952.51 s [opt-env-conf-test] case mArg of
  14419. 1952.51 s [opt-env-conf-test] Found a -> do
  14420. 1952.51 s [opt-env-conf-test] markParsed
  14421. 1952.51 s [opt-env-conf-test] pure a
  14422. 1952.51 s [opt-env-conf-test] - _ -> do
  14423. 1952.51 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  14424. 1952.51 s [opt-env-conf-test] - Nothing -> pure NotRun
  14425. 1952.51 s [opt-env-conf-test] - Just a -> do
  14426. 1952.51 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  14427. 1952.51 s [opt-env-conf-test] - case mS of
  14428. 1952.51 s [opt-env-conf-test] - Nothing -> do
  14429. 1952.51 s [opt-env-conf-test] - debug
  14430. 1952.51 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  14431. 1952.52 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14432. 1952.52 s [opt-env-conf-test] - ]
  14433. 1952.52 s [opt-env-conf-test] - pure NotFound
  14434. 1952.52 s [opt-env-conf-test] - Just () -> cap $ do
  14435. 1952.52 s [opt-env-conf-test] - debug ["set based on switch."]
  14436. 1952.52 s [opt-env-conf-test] - pure $ Found a
  14437. 1952.52 s [opt-env-conf-test] -
  14438. 1952.52 s [opt-env-conf-test] - case mSwitch of
  14439. 1952.52 s [opt-env-conf-test] - Found a -> do
  14440. 1952.52 s [opt-env-conf-test] - markParsed
  14441. 1952.52 s [opt-env-conf-test] - pure a
  14442. 1952.52 s [opt-env-conf-test] - _ -> do
  14443. 1952.52 s [opt-env-conf-test] - mOpt <-
  14444. 1952.52 s [opt-env-conf-test] - if settingTryOption
  14445. 1952.52 s [opt-env-conf-test] - then do
  14446. 1952.52 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  14447. 1952.52 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14448. 1952.52 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14449. 1952.52 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  14450. 1952.52 s [opt-env-conf-test] - case mS of
  14451. 1952.52 s [opt-env-conf-test] - Nothing -> do
  14452. 1952.52 s [opt-env-conf-test] - debug
  14453. 1952.52 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  14454. 1952.52 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14455. 1952.52 s [opt-env-conf-test] - ]
  14456. 1952.52 s [opt-env-conf-test] - pure NotFound
  14457. 1952.52 s [opt-env-conf-test] - Just optionStr -> cap $
  14458. 1952.52 s [opt-env-conf-test] - case tryReaders rs optionStr of
  14459. 1952.52 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14460. 1952.52 s [opt-env-conf-test] - Right a -> do
  14461. 1952.52 s [opt-env-conf-test] - debug
  14462. 1952.52 s [opt-env-conf-test] - [ "set based on option: ",
  14463. 1952.52 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  14464. 1952.52 s [opt-env-conf-test] - ]
  14465. 1952.52 s [opt-env-conf-test] - pure $ Found a
  14466. 1952.52 s [opt-env-conf-test] - else pure NotRun
  14467. 1952.52 s [opt-env-conf-test] -
  14468. 1952.52 s [opt-env-conf-test] - case mOpt of
  14469. 1952.52 s [opt-env-conf-test] - Found a -> do
  14470. 1952.52 s [opt-env-conf-test] - markParsed
  14471. 1952.52 s [opt-env-conf-test] - pure a
  14472. 1952.53 s [opt-env-conf-test] - _ -> do
  14473. 1952.53 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  14474. 1952.53 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  14475. 1952.53 s [opt-env-conf-test] - Nothing -> pure NotRun
  14476. 1952.53 s [opt-env-conf-test] - Just ne -> do
  14477. 1952.53 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  14478. 1952.53 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14479. 1952.53 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14480. 1952.53 s [opt-env-conf-test] - es <- asks ppEnvEnv
  14481. 1952.53 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14482. 1952.53 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  14483. 1952.53 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  14484. 1952.53 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  14485. 1952.53 s [opt-env-conf-test] - -- result.
  14486. 1952.53 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  14487. 1952.53 s [opt-env-conf-test] - case tryReaders rs varStr of
  14488. 1952.53 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14489. 1952.53 s [opt-env-conf-test] - Right a -> do
  14490. 1952.53 s [opt-env-conf-test] - debug
  14491. 1952.53 s [opt-env-conf-test] - [ "set based on env: ",
  14492. 1952.53 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  14493. 1952.53 s [opt-env-conf-test] - ]
  14494. 1952.53 s [opt-env-conf-test] - pure a
  14495. 1952.53 s [opt-env-conf-test] - case listToMaybe results of
  14496. 1952.53 s [opt-env-conf-test] - Nothing -> do
  14497. 1952.53 s [opt-env-conf-test] - debug
  14498. 1952.53 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  14499. 1952.53 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14500. 1952.53 s [opt-env-conf-test] - ]
  14501. 1952.53 s [opt-env-conf-test] - pure NotFound
  14502. 1952.53 s [opt-env-conf-test] - Just a -> pure $ Found a
  14503. 1952.53 s [opt-env-conf-test] -
  14504. 1952.53 s [opt-env-conf-test] - case mEnv of
  14505. 1952.53 s [opt-env-conf-test] - Found a -> do
  14506. 1952.54 s [opt-env-conf-test] - markParsed
  14507. 1952.54 s [opt-env-conf-test] - pure a
  14508. 1952.54 s [opt-env-conf-test] - _ -> do
  14509. 1952.54 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  14510. 1952.54 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  14511. 1952.54 s [opt-env-conf-test] - Nothing -> pure NotRun
  14512. 1952.54 s [opt-env-conf-test] - Just confSets -> do
  14513. 1952.54 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  14514. 1952.54 s [opt-env-conf-test] - case mObj of
  14515. 1952.54 s [opt-env-conf-test] - Nothing -> do
  14516. 1952.54 s [opt-env-conf-test] - debug ["no config object to set from"]
  14517. 1952.54 s [opt-env-conf-test] - pure NotFound
  14518. 1952.54 s [opt-env-conf-test] - Just obj -> do
  14519. 1952.54 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  14520. 1952.54 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14521. 1952.54 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14522. 1952.54 s [opt-env-conf-test] - Nothing -> do
  14523. 1952.54 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  14524. 1952.54 s [opt-env-conf-test] - Nothing -> pure Nothing
  14525. 1952.54 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  14526. 1952.54 s [opt-env-conf-test] - Just neRest -> do
  14527. 1952.54 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  14528. 1952.54 s [opt-env-conf-test] - case mO' of
  14529. 1952.54 s [opt-env-conf-test] - Nothing -> pure Nothing
  14530. 1952.54 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  14531. 1952.54 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  14532. 1952.54 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14533. 1952.54 s [opt-env-conf-test] - Right mV -> case mV of
  14534. 1952.54 s [opt-env-conf-test] - Nothing -> do
  14535. 1952.54 s [opt-env-conf-test] - debug
  14536. 1952.54 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  14537. 1952.54 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14538. 1952.54 s [opt-env-conf-test] - ]
  14539. 1952.54 s [opt-env-conf-test] - pure Nothing
  14540. 1952.54 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14541. 1952.54 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14542. 1952.54 s [opt-env-conf-test] - Right mA -> case mA of
  14543. 1952.55 s [opt-env-conf-test] - Nothing -> do
  14544. 1952.55 s [opt-env-conf-test] - debug
  14545. 1952.55 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  14546. 1952.55 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14547. 1952.55 s [opt-env-conf-test] - ]
  14548. 1952.55 s [opt-env-conf-test] - pure Nothing
  14549. 1952.55 s [opt-env-conf-test] - Just a -> do
  14550. 1952.55 s [opt-env-conf-test] - debug
  14551. 1952.55 s [opt-env-conf-test] - [ "set based on config value: ",
  14552. 1952.55 s [opt-env-conf-test] - chunk $ T.pack $ show v
  14553. 1952.55 s [opt-env-conf-test] - ]
  14554. 1952.55 s [opt-env-conf-test] - pure $ Just a
  14555. 1952.55 s [opt-env-conf-test] - let toRes = \case
  14556. 1952.55 s [opt-env-conf-test] - Nothing -> NotFound
  14557. 1952.55 s [opt-env-conf-test] - Just a -> Found a
  14558. 1952.55 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14559. 1952.55 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  14560. 1952.55 s [opt-env-conf-test] - Just ne -> do
  14561. 1952.55 s [opt-env-conf-test] - res <- goConfSet confSet
  14562. 1952.55 s [opt-env-conf-test] - case res of
  14563. 1952.55 s [opt-env-conf-test] - Just a -> pure $ Found a
  14564. 1952.55 s [opt-env-conf-test] - Nothing -> goConfSets ne
  14565. 1952.55 s [opt-env-conf-test] - goConfSets confSets
  14566. 1952.55 s [opt-env-conf-test] - case mConf of
  14567. 1952.55 s [opt-env-conf-test] - Found a -> do
  14568. 1952.55 s [opt-env-conf-test] - markParsed
  14569. 1952.55 s [opt-env-conf-test] - pure a
  14570. 1952.55 s [opt-env-conf-test] - _ ->
  14571. 1952.55 s [opt-env-conf-test] - case settingDefaultValue of
  14572. 1952.55 s [opt-env-conf-test] - Just (a, _) -> do
  14573. 1952.55 s [opt-env-conf-test] - debug ["set to default value"]
  14574. 1952.55 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  14575. 1960.19 s [opt-env-conf-test] - Nothing -> do
  14576. 1960.22 s [opt-env-conf-test] - let parseResultError e res = case res of
  14577. 1960.22 s [opt-env-conf-test] - NotRun -> Nothing
  14578. 1960.22 s [opt-env-conf-test] - NotFound -> Just e
  14579. 1960.22 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14580. 1960.22 s [opt-env-conf-test] - debug ["not found"]
  14581. 1960.22 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14582. 1960.22 s [opt-env-conf-test] - NE.nonEmpty $
  14583. 1960.22 s [opt-env-conf-test] - catMaybes
  14584. 1960.22 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14585. 1960.22 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14586. 1960.22 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14587. 1960.22 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14588. 1960.22 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14589. 1960.22 s [opt-env-conf-test] - ]
  14590. 1960.22 s [opt-env-conf-test]
  14591. 1960.23 s [opt-env-conf-test] withCapabilities ::
  14592. 1960.23 s [opt-env-conf-test] Maybe SrcLoc ->
  14593. 1960.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
  14594. 1960.23 s [opt-env-conf-test] @@ -75,9 +75,8 @@
  14595. 1960.23 s [opt-env-conf-test]
  14596. 1960.23 s [opt-env-conf-test] -- | Turn a 'Maybe' parsing function into a 'Reader'
  14597. 1960.23 s [opt-env-conf-test] maybeReader :: (String -> Maybe a) -> Reader a
  14598. 1960.23 s [opt-env-conf-test] maybeReader func = eitherReader $ \s -> case func s of
  14599. 1960.23 s [opt-env-conf-test] - Nothing -> Left $ "Unparseable value: " <> show s
  14600. 1960.23 s [opt-env-conf-test] Just a -> Right a
  14601. 1960.23 s [opt-env-conf-test]
  14602. 1960.23 s [opt-env-conf-test] -- | Turn an 'Either' parsing function into a 'Reader'
  14603. 1960.23 s [opt-env-conf-test] --
  14604. 1960.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
  14605. 1960.23 s [opt-env-conf-test] @@ -75,9 +75,8 @@
  14606. 1960.23 s [opt-env-conf-test]
  14607. 1960.23 s [opt-env-conf-test] -- | Turn a 'Maybe' parsing function into a 'Reader'
  14608. 1960.23 s [opt-env-conf-test] maybeReader :: (String -> Maybe a) -> Reader a
  14609. 1960.23 s [opt-env-conf-test] maybeReader func = eitherReader $ \s -> case func s of
  14610. 1960.23 s [opt-env-conf-test] Nothing -> Left $ "Unparseable value: " <> show s
  14611. 1960.23 s [opt-env-conf-test] - Just a -> Right a
  14612. 1960.23 s [opt-env-conf-test]
  14613. 1960.23 s [opt-env-conf-test] -- | Turn an 'Either' parsing function into a 'Reader'
  14614. 1960.23 s [opt-env-conf-test] --
  14615. 1960.23 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Reader.hs:70:32-36
  14616. 1960.23 s [opt-env-conf-test] @@ -67,7 +67,7 @@
  14617. 1960.23 s [opt-env-conf-test] --
  14618. 1960.23 s [opt-env-conf-test] -- > exists = Reader $ const $ pure True
  14619. 1960.23 s [opt-env-conf-test] exists :: Reader Bool
  14620. 1960.23 s [opt-env-conf-test] -exists = Reader $ const $ pure True
  14621. 1960.23 s [opt-env-conf-test] +exists = Reader $ const $ pure False
  14622. 1960.23 s [opt-env-conf-test]
  14623. 1960.23 s [opt-env-conf-test] -- | Read a value as if it were specified as a 'String' and parsed via the given 'Codec'.
  14624. 1960.23 s [opt-env-conf-test] viaStringCodec :: (HasCodec a) => Reader a
  14625. 1960.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
  14626. 1960.23 s [opt-env-conf-test] @@ -59,9 +59,8 @@
  14627. 1960.23 s [opt-env-conf-test] --
  14628. 1960.23 s [opt-env-conf-test] -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
  14629. 1960.24 s [opt-env-conf-test] auto :: (Read a) => Reader a
  14630. 1960.24 s [opt-env-conf-test] auto = Reader $ \s -> case readMaybe s of
  14631. 1960.24 s [opt-env-conf-test] - Nothing -> Left $ "Un-Read-able value: " <> show s
  14632. 1960.24 s [opt-env-conf-test] Just a -> Right a
  14633. 1960.24 s [opt-env-conf-test]
  14634. 1960.24 s [opt-env-conf-test] -- | Always return True
  14635. 1960.24 s [opt-env-conf-test] --
  14636. 1960.24 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
  14637. 1960.24 s [opt-env-conf-test] @@ -59,9 +59,8 @@
  14638. 1960.24 s [opt-env-conf-test] --
  14639. 1960.24 s [opt-env-conf-test] -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
  14640. 1960.24 s [opt-env-conf-test] auto :: (Read a) => Reader a
  14641. 1960.24 s [opt-env-conf-test] auto = Reader $ \s -> case readMaybe s of
  14642. 1960.24 s [opt-env-conf-test] Nothing -> Left $ "Un-Read-able value: " <> show s
  14643. 1960.24 s [opt-env-conf-test] - Just a -> Right a
  14644. 1960.24 s [opt-env-conf-test]
  14645. 1960.24 s [opt-env-conf-test] -- | Always return True
  14646. 1960.24 s [opt-env-conf-test] --
  14647. 1960.24 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:254:20-23
  14648. 1960.24 s [opt-env-conf-test] @@ -251,9 +251,8 @@
  14649. 1960.24 s [opt-env-conf-test] before <- get
  14650. 1960.24 s [opt-env-conf-test] mA <- func
  14651. 1960.24 s [opt-env-conf-test] case mA of
  14652. 1960.24 s [opt-env-conf-test] Nothing -> do
  14653. 1960.24 s [opt-env-conf-test] - put before
  14654. 1960.24 s [opt-env-conf-test] pure Nothing
  14655. 1960.24 s [opt-env-conf-test] Just a -> pure (Just a)
  14656. 1960.24 s [opt-env-conf-test]
  14657. 1960.24 s [opt-env-conf-test] -- Completions for many/some: try the parser repeatedly.
  14658. 1960.24 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:257:25-31
  14659. 1960.24 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  14660. 1960.24 s [opt-env-conf-test] Nothing -> do
  14661. 1960.24 s [opt-env-conf-test] put before
  14662. 1960.24 s [opt-env-conf-test] pure Nothing
  14663. 1960.24 s [opt-env-conf-test] - Just a -> pure (Just a)
  14664. 1960.24 s [opt-env-conf-test] + Just a -> pure (Nothing)
  14665. 1960.24 s [opt-env-conf-test]
  14666. 1960.24 s [opt-env-conf-test] -- Completions for many/some: try the parser repeatedly.
  14667. 1960.24 s [opt-env-conf-test] -- Each iteration either advances the args state (consuming input)
  14668. 1960.24 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
  14669. 1960.24 s [opt-env-conf-test] @@ -304,9 +304,8 @@
  14670. 1960.24 s [opt-env-conf-test] Nothing -> pure Nothing
  14671. 1960.24 s [opt-env-conf-test] Just cs1 -> do
  14672. 1960.24 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  14673. 1960.24 s [opt-env-conf-test] pure $ case p2s of
  14674. 1960.24 s [opt-env-conf-test] - Nothing -> Nothing
  14675. 1960.24 s [opt-env-conf-test] Just cs2 -> pure $ cs1 ++ cs2
  14676. 1960.24 s [opt-env-conf-test]
  14677. 1960.24 s [opt-env-conf-test] -- Nothing means "this branch was not valid"
  14678. 1960.24 s [opt-env-conf-test] -- Just [] means "no completions"
  14679. 1960.25 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
  14680. 1960.25 s [opt-env-conf-test] @@ -304,9 +304,8 @@
  14681. 1960.25 s [opt-env-conf-test] Nothing -> pure Nothing
  14682. 1960.25 s [opt-env-conf-test] Just cs1 -> do
  14683. 1960.25 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  14684. 1960.25 s [opt-env-conf-test] pure $ case p2s of
  14685. 1960.25 s [opt-env-conf-test] Nothing -> Nothing
  14686. 1960.25 s [opt-env-conf-test] - Just cs2 -> pure $ cs1 ++ cs2
  14687. 1960.25 s [opt-env-conf-test]
  14688. 1960.25 s [opt-env-conf-test] -- Nothing means "this branch was not valid"
  14689. 1960.25 s [opt-env-conf-test] -- Just [] means "no completions"
  14690. 1960.25 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:296:31-38
  14691. 1960.25 s [opt-env-conf-test] @@ -293,7 +293,7 @@
  14692. 1960.25 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  14693. 1960.25 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  14694. 1960.25 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  14695. 1960.25 s [opt-env-conf-test] - (Just cs, Nothing) -> Just cs
  14696. 1960.25 s [opt-env-conf-test] + (Just cs, Nothing) -> Nothing
  14697. 1960.25 s [opt-env-conf-test] (Nothing, Just cs) -> Just cs
  14698. 1960.25 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  14699. 1960.25 s [opt-env-conf-test]
  14700. 1960.25 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:297:31-38
  14701. 1960.25 s [opt-env-conf-test] @@ -294,7 +294,7 @@
  14702. 1960.25 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  14703. 1960.25 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  14704. 1960.25 s [opt-env-conf-test] (Just cs, Nothing) -> Just cs
  14705. 1960.25 s [opt-env-conf-test] - (Nothing, Just cs) -> Just cs
  14706. 1960.25 s [opt-env-conf-test] + (Nothing, Just cs) -> Nothing
  14707. 1960.25 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  14708. 1960.25 s [opt-env-conf-test]
  14709. 1960.25 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  14710. 1960.25 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
  14711. 1960.25 s [opt-env-conf-test] @@ -291,11 +291,10 @@
  14712. 1960.25 s [opt-env-conf-test] orCompletions p1 p2 = do
  14713. 1960.25 s [opt-env-conf-test] p1s <- tryOrRestore $ go p1
  14714. 1960.25 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  14715. 1960.25 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  14716. 1960.25 s [opt-env-conf-test] - (Nothing, Nothing) -> Nothing
  14717. 1960.25 s [opt-env-conf-test] (Just cs, Nothing) -> Just cs
  14718. 1960.25 s [opt-env-conf-test] (Nothing, Just cs) -> Just cs
  14719. 1960.25 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  14720. 1960.25 s [opt-env-conf-test]
  14721. 1960.25 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  14722. 1960.25 s [opt-env-conf-test] andCompletions p1 p2 = do
  14723. 1960.25 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
  14724. 1960.25 s [opt-env-conf-test] @@ -291,11 +291,10 @@
  14725. 1960.25 s [opt-env-conf-test] orCompletions p1 p2 = do
  14726. 1960.25 s [opt-env-conf-test] p1s <- tryOrRestore $ go p1
  14727. 1960.25 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  14728. 1960.25 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  14729. 1960.25 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  14730. 1960.25 s [opt-env-conf-test] - (Just cs, Nothing) -> Just cs
  14731. 1960.25 s [opt-env-conf-test] (Nothing, Just cs) -> Just cs
  14732. 1960.25 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  14733. 1960.26 s [opt-env-conf-test]
  14734. 1960.26 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  14735. 1960.26 s [opt-env-conf-test] andCompletions p1 p2 = do
  14736. 1960.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
  14737. 1960.26 s [opt-env-conf-test] @@ -291,11 +291,10 @@
  14738. 1960.26 s [opt-env-conf-test] orCompletions p1 p2 = do
  14739. 1960.26 s [opt-env-conf-test] p1s <- tryOrRestore $ go p1
  14740. 1960.26 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  14741. 1960.26 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  14742. 1960.26 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  14743. 1960.26 s [opt-env-conf-test] (Just cs, Nothing) -> Just cs
  14744. 1960.26 s [opt-env-conf-test] - (Nothing, Just cs) -> Just cs
  14745. 1960.26 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  14746. 1960.26 s [opt-env-conf-test]
  14747. 1960.26 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  14748. 1960.26 s [opt-env-conf-test] andCompletions p1 p2 = do
  14749. 1960.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
  14750. 1960.26 s [opt-env-conf-test] @@ -291,11 +291,10 @@
  14751. 1960.26 s [opt-env-conf-test] orCompletions p1 p2 = do
  14752. 1960.26 s [opt-env-conf-test] p1s <- tryOrRestore $ go p1
  14753. 1960.26 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  14754. 1960.26 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  14755. 1960.26 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  14756. 1960.26 s [opt-env-conf-test] (Just cs, Nothing) -> Just cs
  14757. 1960.26 s [opt-env-conf-test] (Nothing, Just cs) -> Just cs
  14758. 1960.26 s [opt-env-conf-test] - (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  14759. 1960.26 s [opt-env-conf-test]
  14760. 1960.26 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  14761. 1960.26 s [opt-env-conf-test] andCompletions p1 p2 = do
  14762. 1960.26 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
  14763. 1960.26 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  14764. 1960.26 s [opt-env-conf-test] Nothing -> pure Nothing
  14765. 1966.69 s [opt-env-conf-test] Just os -> do
  14766. 1966.71 s [opt-env-conf-test] after <- get
  14767. 1966.71 s [opt-env-conf-test] - if after == before
  14768. 1966.71 s [opt-env-conf-test] + if True
  14769. 1966.71 s [opt-env-conf-test] then -- State did not advance; return these completions.
  14770. 1966.71 s [opt-env-conf-test] pure $ Just os
  14771. 1966.71 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  14772. 1966.71 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
  14773. 1966.71 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  14774. 1966.71 s [opt-env-conf-test] Nothing -> pure Nothing
  14775. 1966.71 s [opt-env-conf-test] Just os -> do
  14776. 1966.71 s [opt-env-conf-test] after <- get
  14777. 1966.71 s [opt-env-conf-test] - if after == before
  14778. 1966.71 s [opt-env-conf-test] + if False
  14779. 1966.71 s [opt-env-conf-test] then -- State did not advance; return these completions.
  14780. 1966.71 s [opt-env-conf-test] pure $ Just os
  14781. 1966.71 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  14782. 1966.71 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:272:14-29
  14783. 1966.71 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  14784. 1966.71 s [opt-env-conf-test] Nothing -> pure Nothing
  14785. 1966.72 s [opt-env-conf-test] Just os -> do
  14786. 1966.72 s [opt-env-conf-test] after <- get
  14787. 1966.72 s [opt-env-conf-test] - if after == before
  14788. 1966.72 s [opt-env-conf-test] + if not (after == before)
  14789. 1966.72 s [opt-env-conf-test] then -- State did not advance; return these completions.
  14790. 1966.72 s [opt-env-conf-test] pure $ Just os
  14791. 1966.72 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  14792. 1966.72 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:274:22-29
  14793. 1966.72 s [opt-env-conf-test] @@ -271,7 +271,7 @@
  14794. 1966.72 s [opt-env-conf-test] after <- get
  14795. 1966.72 s [opt-env-conf-test] if after == before
  14796. 1966.72 s [opt-env-conf-test] then -- State did not advance; return these completions.
  14797. 1966.72 s [opt-env-conf-test] - pure $ Just os
  14798. 1966.72 s [opt-env-conf-test] + pure $ Nothing
  14799. 1966.72 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  14800. 1966.72 s [opt-env-conf-test] -- next iteration. Its completions supersede ours
  14801. 1966.72 s [opt-env-conf-test] -- only if it also has a valid result.
  14802. 1966.72 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:281:37-44
  14803. 1966.72 s [opt-env-conf-test] @@ -278,7 +278,7 @@
  14804. 1966.72 s [opt-env-conf-test] do
  14805. 1966.72 s [opt-env-conf-test] mMore <- manyCompletions p
  14806. 1966.72 s [opt-env-conf-test] case mMore of
  14807. 1966.72 s [opt-env-conf-test] - Nothing -> pure $ Just os
  14808. 1966.72 s [opt-env-conf-test] + Nothing -> pure $ Nothing
  14809. 1966.72 s [opt-env-conf-test] Just more
  14810. 1966.72 s [opt-env-conf-test] -- If the next iteration only produced stale
  14811. 1966.72 s [opt-env-conf-test] -- dashed suggestions (state didn't advance
  14812. 1966.72 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:287:23-30
  14813. 1966.72 s [opt-env-conf-test] @@ -284,7 +284,7 @@
  14814. 1966.72 s [opt-env-conf-test] -- dashed suggestions (state didn't advance
  14815. 1966.72 s [opt-env-conf-test] -- further), prefer our completions which came
  14816. 1966.72 s [opt-env-conf-test] -- from the advancing iteration.
  14817. 1966.72 s [opt-env-conf-test] - | null os -> pure $ Just more
  14818. 1966.72 s [opt-env-conf-test] + | True -> pure $ Just more
  14819. 1966.72 s [opt-env-conf-test] | otherwise -> pure $ Just os
  14820. 1966.72 s [opt-env-conf-test]
  14821. 1966.72 s [opt-env-conf-test] orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  14822. 1966.72 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:287:23-30
  14823. 1966.72 s [opt-env-conf-test] @@ -284,7 +284,7 @@
  14824. 1966.72 s [opt-env-conf-test] -- dashed suggestions (state didn't advance
  14825. 1966.72 s [opt-env-conf-test] -- further), prefer our completions which came
  14826. 1966.72 s [opt-env-conf-test] -- from the advancing iteration.
  14827. 1966.72 s [opt-env-conf-test] - | null os -> pure $ Just more
  14828. 1966.72 s [opt-env-conf-test] + | not (null os) -> pure $ Just more
  14829. 1966.72 s [opt-env-conf-test] | otherwise -> pure $ Just os
  14830. 1966.72 s [opt-env-conf-test]
  14831. 1966.72 s [opt-env-conf-test] orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  14832. 1966.72 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:287:41-50
  14833. 1966.72 s [opt-env-conf-test] @@ -284,7 +284,7 @@
  14834. 1966.72 s [opt-env-conf-test] -- dashed suggestions (state didn't advance
  14835. 1966.72 s [opt-env-conf-test] -- further), prefer our completions which came
  14836. 1966.73 s [opt-env-conf-test] -- from the advancing iteration.
  14837. 1966.73 s [opt-env-conf-test] - | null os -> pure $ Just more
  14838. 1966.73 s [opt-env-conf-test] + | null os -> pure $ Nothing
  14839. 1966.73 s [opt-env-conf-test] | otherwise -> pure $ Just os
  14840. 1966.73 s [opt-env-conf-test]
  14841. 1966.73 s [opt-env-conf-test] orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  14842. 1966.73 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:288:43-50
  14843. 1966.73 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  14844. 1966.73 s [opt-env-conf-test] -- further), prefer our completions which came
  14845. 1966.73 s [opt-env-conf-test] -- from the advancing iteration.
  14846. 1966.73 s [opt-env-conf-test] | null os -> pure $ Just more
  14847. 1966.73 s [opt-env-conf-test] - | otherwise -> pure $ Just os
  14848. 1966.73 s [opt-env-conf-test] + | otherwise -> pure $ Nothing
  14849. 1966.73 s [opt-env-conf-test]
  14850. 1966.73 s [opt-env-conf-test] orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  14851. 1966.73 s [opt-env-conf-test] orCompletions p1 p2 = do
  14852. 1966.73 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:315:30-37
  14853. 1966.73 s [opt-env-conf-test] @@ -312,7 +312,7 @@
  14854. 1966.73 s [opt-env-conf-test] -- Just [] means "no completions"
  14855. 1966.73 s [opt-env-conf-test] go :: Parser a -> State Args (Maybe [Completion Suggestion])
  14856. 1966.73 s [opt-env-conf-test] go = \case
  14857. 1966.73 s [opt-env-conf-test] - ParserPure _ -> pure $ Just []
  14858. 1966.73 s [opt-env-conf-test] + ParserPure _ -> pure $ Nothing
  14859. 1966.73 s [opt-env-conf-test] -- Parse both and combine the result
  14860. 1966.73 s [opt-env-conf-test] ParserAp p1 p2 -> andCompletions p1 p2
  14861. 1966.73 s [opt-env-conf-test] -- Parse either: either completions are valid
  14862. 1966.73 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
  14863. 1966.73 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  14864. 1966.73 s [opt-env-conf-test] fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
  14865. 1966.73 s [opt-env-conf-test] case mArg of
  14866. 1966.73 s [opt-env-conf-test] Nothing -> do
  14867. 1966.73 s [opt-env-conf-test] - if argsAtEnd rest
  14868. 1966.73 s [opt-env-conf-test] + if True
  14869. 1966.73 s [opt-env-conf-test] then do
  14870. 1966.73 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  14871. 1966.73 s [opt-env-conf-test] let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
  14872. 1966.73 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
  14873. 1966.73 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  14874. 1966.73 s [opt-env-conf-test] fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
  14875. 1966.73 s [opt-env-conf-test] case mArg of
  14876. 1966.73 s [opt-env-conf-test] Nothing -> do
  14877. 1966.73 s [opt-env-conf-test] - if argsAtEnd rest
  14878. 1966.73 s [opt-env-conf-test] + if False
  14879. 1966.73 s [opt-env-conf-test] then do
  14880. 1966.73 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  14881. 1966.73 s [opt-env-conf-test] let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
  14882. 1966.73 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:340:20-34
  14883. 1966.73 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  14884. 1966.73 s [opt-env-conf-test] fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
  14885. 1966.73 s [opt-env-conf-test] case mArg of
  14886. 1966.73 s [opt-env-conf-test] Nothing -> do
  14887. 1966.73 s [opt-env-conf-test] - if argsAtEnd rest
  14888. 1966.73 s [opt-env-conf-test] + if not (argsAtEnd rest)
  14889. 1966.73 s [opt-env-conf-test] then do
  14890. 1966.73 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  14891. 1966.73 s [opt-env-conf-test] let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
  14892. 1966.73 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:350:59-75
  14893. 1966.73 s [opt-env-conf-test] @@ -347,7 +347,7 @@
  14894. 1966.73 s [opt-env-conf-test] ( \Command {..} ->
  14895. 1966.73 s [opt-env-conf-test] Completion
  14896. 1966.73 s [opt-env-conf-test] { completionSuggestion = SuggestionBare commandArg,
  14897. 1966.73 s [opt-env-conf-test] - completionDescription = Just commandHelp
  14898. 1966.73 s [opt-env-conf-test] + completionDescription = Nothing
  14899. 1966.73 s [opt-env-conf-test] }
  14900. 1966.73 s [opt-env-conf-test] )
  14901. 1973.02 s [opt-env-conf-test] matchingCommands
  14902. 1973.05 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:361:29-32
  14903. 1973.05 s [opt-env-conf-test] @@ -358,9 +358,8 @@
  14904. 1973.05 s [opt-env-conf-test] pure Nothing
  14905. 1973.05 s [opt-env-conf-test] Just arg ->
  14906. 1973.05 s [opt-env-conf-test] case find ((== arg) . commandArg) cs of
  14907. 1973.05 s [opt-env-conf-test] Just c -> do
  14908. 1973.05 s [opt-env-conf-test] - put rest
  14909. 1973.05 s [opt-env-conf-test] goCommand c
  14910. 1973.05 s [opt-env-conf-test] Nothing -> pure Nothing
  14911. 1973.05 s [opt-env-conf-test] -- If there is a default command, also try completing within
  14912. 1973.05 s [opt-env-conf-test] -- the default command's parser, since that is what would run
  14913. 1973.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
  14914. 1973.05 s [opt-env-conf-test] @@ -357,11 +357,8 @@
  14915. 1973.05 s [opt-env-conf-test] -- name then the remaining args have nowhere to go.
  14916. 1973.05 s [opt-env-conf-test] pure Nothing
  14917. 1973.05 s [opt-env-conf-test] Just arg ->
  14918. 1973.06 s [opt-env-conf-test] case find ((== arg) . commandArg) cs of
  14919. 1973.06 s [opt-env-conf-test] - Just c -> do
  14920. 1973.06 s [opt-env-conf-test] - put rest
  14921. 1973.06 s [opt-env-conf-test] - goCommand c
  14922. 1973.06 s [opt-env-conf-test] Nothing -> pure Nothing
  14923. 1973.06 s [opt-env-conf-test] -- If there is a default command, also try completing within
  14924. 1973.06 s [opt-env-conf-test] -- the default command's parser, since that is what would run
  14925. 1973.06 s [opt-env-conf-test] -- if the user provides no command.
  14926. 1973.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
  14927. 1973.06 s [opt-env-conf-test] @@ -357,11 +357,10 @@
  14928. 1973.06 s [opt-env-conf-test] -- name then the remaining args have nowhere to go.
  14929. 1973.06 s [opt-env-conf-test] pure Nothing
  14930. 1973.06 s [opt-env-conf-test] Just arg ->
  14931. 1973.06 s [opt-env-conf-test] case find ((== arg) . commandArg) cs of
  14932. 1973.06 s [opt-env-conf-test] Just c -> do
  14933. 1973.06 s [opt-env-conf-test] put rest
  14934. 1973.06 s [opt-env-conf-test] goCommand c
  14935. 1973.06 s [opt-env-conf-test] - Nothing -> pure Nothing
  14936. 1973.06 s [opt-env-conf-test] -- If there is a default command, also try completing within
  14937. 1973.06 s [opt-env-conf-test] -- the default command's parser, since that is what would run
  14938. 1973.06 s [opt-env-conf-test] -- if the user provides no command.
  14939. 1973.06 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:378:19-31
  14940. 1973.06 s [opt-env-conf-test] @@ -375,7 +375,7 @@
  14941. 1973.06 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  14942. 1973.06 s [opt-env-conf-test] -- combine the explicit command listing with the default
  14943. 1973.06 s [opt-env-conf-test] -- command's completions.
  14944. 1973.06 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  14945. 1973.07 s [opt-env-conf-test] + | True -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  14946. 1973.07 s [opt-env-conf-test] | otherwise -> do
  14947. 1973.07 s [opt-env-conf-test] -- The default command consumed args, so its
  14948. 1973.07 s [opt-env-conf-test] -- completions are valid. But we must restore
  14949. 1973.07 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:378:19-31
  14950. 1973.07 s [opt-env-conf-test] @@ -375,7 +375,7 @@
  14951. 1973.07 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  14952. 1973.07 s [opt-env-conf-test] -- combine the explicit command listing with the default
  14953. 1973.07 s [opt-env-conf-test] -- command's completions.
  14954. 1973.07 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  14955. 1973.07 s [opt-env-conf-test] + | not (argsAtEnd as) -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  14956. 1973.07 s [opt-env-conf-test] | otherwise -> do
  14957. 1973.07 s [opt-env-conf-test] -- The default command consumed args, so its
  14958. 1973.07 s [opt-env-conf-test] -- completions are valid. But we must restore
  14959. 1973.07 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:378:86-94
  14960. 1973.07 s [opt-env-conf-test] @@ -375,7 +375,7 @@
  14961. 1973.07 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  14962. 1973.07 s [opt-env-conf-test] -- combine the explicit command listing with the default
  14963. 1973.07 s [opt-env-conf-test] -- command's completions.
  14964. 1973.07 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  14965. 1973.07 s [opt-env-conf-test] + | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Nothing]
  14966. 1973.07 s [opt-env-conf-test] | otherwise -> do
  14967. 1973.07 s [opt-env-conf-test] -- The default command consumed args, so its
  14968. 1973.07 s [opt-env-conf-test] -- completions are valid. But we must restore
  14969. 1973.07 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
  14970. 1973.07 s [opt-env-conf-test] @@ -375,7 +375,6 @@
  14971. 1973.07 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  14972. 1973.07 s [opt-env-conf-test] -- combine the explicit command listing with the default
  14973. 1973.07 s [opt-env-conf-test] -- command's completions.
  14974. 1973.07 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  14975. 1973.07 s [opt-env-conf-test] | otherwise -> do
  14976. 1973.07 s [opt-env-conf-test] -- The default command consumed args, so its
  14977. 1973.07 s [opt-env-conf-test] -- completions are valid. But we must restore
  14978. 1973.07 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
  14979. 1973.07 s [opt-env-conf-test] @@ -375,7 +375,6 @@
  14980. 1973.07 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  14981. 1973.08 s [opt-env-conf-test] -- combine the explicit command listing with the default
  14982. 1973.08 s [opt-env-conf-test] -- command's completions.
  14983. 1973.08 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  14984. 1973.08 s [opt-env-conf-test] | otherwise -> do
  14985. 1973.08 s [opt-env-conf-test] -- The default command consumed args, so its
  14986. 1973.08 s [opt-env-conf-test] -- completions are valid. But we must restore
  14987. 1973.08 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:388:28-36
  14988. 1973.08 s [opt-env-conf-test] @@ -385,7 +385,7 @@
  14989. 1973.08 s [opt-env-conf-test] -- --archive-dir that the default command
  14990. 1973.08 s [opt-env-conf-test] -- swallowed as a positional argument.
  14991. 1973.08 s [opt-env-conf-test] put as
  14992. 1973.08 s [opt-env-conf-test] - pure $ Just dcs
  14993. 1973.08 s [opt-env-conf-test] + pure $ Nothing
  14994. 1973.08 s [opt-env-conf-test] ParserSetting _ Setting {..} -> do
  14995. 1973.08 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  14996. 1973.08 s [opt-env-conf-test] let completionDescription = settingHelp
  14997. 1973.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  14998. 1973.08 s [opt-env-conf-test] @@ -81,27 +81,8 @@
  14999. 1973.08 s [opt-env-conf-test] Nothing -> pure result
  15000. 1973.08 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  15001. 1973.08 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  15002. 1973.08 s [opt-env-conf-test] case mTup of
  15003. 1973.08 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  15004. 1973.08 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  15005. 1973.08 s [opt-env-conf-test] - Success a -> pure (Right a)
  15006. 1973.08 s [opt-env-conf-test] - Failure firstErrors ->
  15007. 1973.08 s [opt-env-conf-test] - let goNexts ns = do
  15008. 1973.08 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  15009. 1973.08 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  15010. 1973.08 s [opt-env-conf-test] - case mNext of
  15011. 1973.08 s [opt-env-conf-test] - Nothing ->
  15012. 1973.08 s [opt-env-conf-test] - pure $
  15013. 1973.08 s [opt-env-conf-test] - Left $
  15014. 1973.08 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  15015. 1973.08 s [opt-env-conf-test] - let f = case mDebugMode of
  15016. 1973.08 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  15017. 1973.08 s [opt-env-conf-test] - Just _ -> id
  15018. 1973.08 s [opt-env-conf-test] - in f firstErrors
  15019. 1973.08 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  15020. 1973.08 s [opt-env-conf-test] - Success a -> pure (Right a)
  15021. 1973.08 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  15022. 1973.08 s [opt-env-conf-test] - in goNexts nexts
  15023. 1973.08 s [opt-env-conf-test] where
  15024. 1973.08 s [opt-env-conf-test] go ::
  15025. 1973.08 s [opt-env-conf-test] Parser a ->
  15026. 1973.08 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:379:32-36
  15027. 1973.08 s [opt-env-conf-test] @@ -376,16 +376,15 @@
  15028. 1973.08 s [opt-env-conf-test] -- combine the explicit command listing with the default
  15029. 1973.09 s [opt-env-conf-test] -- command's completions.
  15030. 1973.09 s [opt-env-conf-test] | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  15031. 1973.09 s [opt-env-conf-test] | otherwise -> do
  15032. 1973.09 s [opt-env-conf-test] -- The default command consumed args, so its
  15033. 1973.09 s [opt-env-conf-test] -- completions are valid. But we must restore
  15034. 1973.09 s [opt-env-conf-test] -- the state: the consumed args may also be
  15035. 1973.09 s [opt-env-conf-test] -- intended for sibling parsers in an
  15036. 1973.09 s [opt-env-conf-test] -- applicative (<*>), e.g. an option like
  15037. 1973.09 s [opt-env-conf-test] -- --archive-dir that the default command
  15038. 1973.09 s [opt-env-conf-test] -- swallowed as a positional argument.
  15039. 1973.09 s [opt-env-conf-test] - put as
  15040. 1973.09 s [opt-env-conf-test] pure $ Just dcs
  15041. 1973.09 s [opt-env-conf-test] ParserSetting _ Setting {..} -> do
  15042. 1973.09 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  15043. 1973.09 s [opt-env-conf-test] let completionDescription = settingHelp
  15044. 1977.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
  15045. 1977.08 s [opt-env-conf-test] @@ -216,11 +216,8 @@
  15046. 1977.08 s [opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
  15047. 1977.08 s [opt-env-conf-test] go $ commandParser dc
  15048. 1977.08 s [opt-env-conf-test] Just s -> do
  15049. 1977.08 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  15050. 1977.08 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  15051. 1977.08 s [opt-env-conf-test] - Just c -> do
  15052. 1977.08 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  15053. 1977.08 s [opt-env-conf-test] - go $ commandParser c
  15054. 1977.09 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  15055. 1977.09 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  15056. 1977.09 s [opt-env-conf-test] ppIndent $ do
  15057. 1977.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
  15058. 1977.09 s [opt-env-conf-test] @@ -222,7 +222,6 @@
  15059. 1977.09 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  15060. 1977.09 s [opt-env-conf-test] go $ commandParser c
  15061. 1977.09 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  15062. 1977.09 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  15063. 1977.09 s [opt-env-conf-test] ppIndent $ do
  15064. 1977.09 s [opt-env-conf-test] debug ["loading config"]
  15065. 1977.09 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  15066. 1977.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
  15067. 1977.09 s [opt-env-conf-test] @@ -216,11 +216,10 @@
  15068. 1977.09 s [opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
  15069. 1977.09 s [opt-env-conf-test] go $ commandParser dc
  15070. 1977.09 s [opt-env-conf-test] Just s -> do
  15071. 1977.09 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  15072. 1977.09 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  15073. 1977.09 s [opt-env-conf-test] Just c -> do
  15074. 1977.09 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  15075. 1977.09 s [opt-env-conf-test] go $ commandParser c
  15076. 1977.09 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  15077. 1977.09 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  15078. 1977.09 s [opt-env-conf-test] ppIndent $ do
  15079. 1977.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
  15080. 1977.09 s [opt-env-conf-test] @@ -219,7 +219,6 @@
  15081. 1977.09 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  15082. 1977.09 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  15083. 1977.09 s [opt-env-conf-test] Just c -> do
  15084. 1977.09 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  15085. 1977.09 s [opt-env-conf-test] go $ commandParser c
  15086. 1977.09 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  15087. 1977.09 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  15088. 1977.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
  15089. 1977.09 s [opt-env-conf-test] @@ -204,23 +204,17 @@
  15090. 1977.09 s [opt-env-conf-test] ppIndent $ do
  15091. 1977.09 s [opt-env-conf-test] mS <- ppArg
  15092. 1977.09 s [opt-env-conf-test] let docsForErrors = map (void . commandParserDocs) cs
  15093. 1977.09 s [opt-env-conf-test] case mS of
  15094. 1977.09 s [opt-env-conf-test] Nothing -> do
  15095. 1977.09 s [opt-env-conf-test] debug ["No argument found for choosing a command."]
  15096. 1977.09 s [opt-env-conf-test] let mDefaultCommand = do
  15097. 1977.09 s [opt-env-conf-test] d <- mDefault
  15098. 1977.09 s [opt-env-conf-test] find ((== d) . commandArg) cs
  15099. 1977.10 s [opt-env-conf-test] case mDefaultCommand of
  15100. 1977.10 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  15101. 1977.10 s [opt-env-conf-test] Just dc -> do
  15102. 1977.10 s [opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
  15103. 1977.10 s [opt-env-conf-test] go $ commandParser dc
  15104. 1977.10 s [opt-env-conf-test] - Just s -> do
  15105. 1977.10 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  15106. 1977.10 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  15107. 1977.10 s [opt-env-conf-test] - Just c -> do
  15108. 1977.10 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  15109. 1977.10 s [opt-env-conf-test] - go $ commandParser c
  15110. 1977.10 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  15111. 1977.10 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  15112. 1977.10 s [opt-env-conf-test] ppIndent $ do
  15113. 1977.10 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:221:27-39
  15114. 1977.10 s [opt-env-conf-test] @@ -218,9 +218,8 @@
  15115. 1977.10 s [opt-env-conf-test] Just s -> do
  15116. 1977.10 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  15117. 1977.10 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  15118. 1977.10 s [opt-env-conf-test] Just c -> do
  15119. 1977.10 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  15120. 1977.10 s [opt-env-conf-test] go $ commandParser c
  15121. 1977.10 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  15122. 1977.10 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  15123. 1977.10 s [opt-env-conf-test] ppIndent $ do
  15124. 1977.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
  15125. 1977.10 s [opt-env-conf-test] @@ -204,23 +204,13 @@
  15126. 1977.10 s [opt-env-conf-test] ppIndent $ do
  15127. 1977.10 s [opt-env-conf-test] mS <- ppArg
  15128. 1977.10 s [opt-env-conf-test] let docsForErrors = map (void . commandParserDocs) cs
  15129. 1977.10 s [opt-env-conf-test] case mS of
  15130. 1977.10 s [opt-env-conf-test] - Nothing -> do
  15131. 1977.10 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  15132. 1977.10 s [opt-env-conf-test] - let mDefaultCommand = do
  15133. 1977.10 s [opt-env-conf-test] - d <- mDefault
  15134. 1977.10 s [opt-env-conf-test] - find ((== d) . commandArg) cs
  15135. 1977.10 s [opt-env-conf-test] - case mDefaultCommand of
  15136. 1977.10 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  15137. 1977.10 s [opt-env-conf-test] - Just dc -> do
  15138. 1977.10 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  15139. 1977.10 s [opt-env-conf-test] - go $ commandParser dc
  15140. 1977.10 s [opt-env-conf-test] Just s -> do
  15141. 1977.10 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  15142. 1977.10 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  15143. 1977.10 s [opt-env-conf-test] Just c -> do
  15144. 1977.10 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  15145. 1977.10 s [opt-env-conf-test] go $ commandParser c
  15146. 1977.10 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  15147. 1977.10 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  15148. 1977.10 s [opt-env-conf-test] ppIndent $ do
  15149. 1977.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
  15150. 1977.10 s [opt-env-conf-test] @@ -219,7 +219,6 @@
  15151. 1977.10 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  15152. 1977.10 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  15153. 1977.10 s [opt-env-conf-test] Just c -> do
  15154. 1977.10 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  15155. 1977.10 s [opt-env-conf-test] go $ commandParser c
  15156. 1977.10 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  15157. 1977.10 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  15158. 1977.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
  15159. 1977.11 s [opt-env-conf-test] @@ -222,7 +222,6 @@
  15160. 1977.11 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  15161. 1977.11 s [opt-env-conf-test] go $ commandParser c
  15162. 1977.11 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  15163. 1977.11 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  15164. 1977.11 s [opt-env-conf-test] ppIndent $ do
  15165. 1977.11 s [opt-env-conf-test] debug ["loading config"]
  15166. 1977.11 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  15167. 1977.11 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  15168. 1977.11 s [opt-env-conf-test] @@ -141,7 +141,6 @@
  15169. 1977.11 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  15170. 1977.11 s [opt-env-conf-test] pure (a : as)
  15171. 1977.11 s [opt-env-conf-test] ParserSome mLoc p' -> do
  15172. 1977.11 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  15173. 1977.11 s [opt-env-conf-test] ppIndent $ do
  15174. 1977.11 s [opt-env-conf-test] a <- go p'
  15175. 1977.11 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  15176. 1977.11 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:143:29-25
  15177. 1977.11 s [opt-env-conf-test] @@ -140,13 +140,12 @@
  15178. 1977.11 s [opt-env-conf-test] Just a -> do
  15179. 1977.11 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  15180. 1977.11 s [opt-env-conf-test] pure (a : as)
  15181. 1977.11 s [opt-env-conf-test] ParserSome mLoc p' -> do
  15182. 1977.11 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  15183. 1977.11 s [opt-env-conf-test] ppIndent $ do
  15184. 1977.11 s [opt-env-conf-test] a <- go p'
  15185. 1977.11 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  15186. 1977.11 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  15187. 1977.11 s [opt-env-conf-test] pure (a :| as)
  15188. 1977.11 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  15189. 1977.11 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  15190. 1977.11 s [opt-env-conf-test] ppIndent $ do
  15191. 1977.11 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
  15192. 1977.11 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  15193. 1977.11 s [opt-env-conf-test] pure Completion {..}
  15194. 1977.11 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  15195. 1977.11 s [opt-env-conf-test] as <- get
  15196. 1977.11 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  15197. 1977.11 s [opt-env-conf-test] + if True then completeWithCompleter else pure $ Just []
  15198. 1977.11 s [opt-env-conf-test] let completeWithDasheds = do
  15199. 1977.11 s [opt-env-conf-test] let isLong = \case
  15200. 1977.11 s [opt-env-conf-test] DashedLong _ -> True
  15201. 1977.11 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
  15202. 1977.11 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  15203. 1977.11 s [opt-env-conf-test] pure Completion {..}
  15204. 1977.11 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  15205. 1977.11 s [opt-env-conf-test] as <- get
  15206. 1977.11 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  15207. 1984.14 s [opt-env-conf-test] + if False then completeWithCompleter else pure $ Just []
  15208. 1984.16 s [opt-env-conf-test] let completeWithDasheds = do
  15209. 1984.16 s [opt-env-conf-test] let isLong = \case
  15210. 1984.16 s [opt-env-conf-test] DashedLong _ -> True
  15211. 1984.16 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:398:18-30
  15212. 1984.16 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  15213. 1984.16 s [opt-env-conf-test] pure Completion {..}
  15214. 1984.16 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  15215. 1984.16 s [opt-env-conf-test] as <- get
  15216. 1984.16 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  15217. 1984.16 s [opt-env-conf-test] + if not (argsAtEnd as) then completeWithCompleter else pure $ Just []
  15218. 1984.16 s [opt-env-conf-test] let completeWithDasheds = do
  15219. 1984.16 s [opt-env-conf-test] let isLong = \case
  15220. 1984.16 s [opt-env-conf-test] DashedLong _ -> True
  15221. 1984.17 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:398:70-77
  15222. 1984.17 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  15223. 1984.17 s [opt-env-conf-test] pure Completion {..}
  15224. 1984.17 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  15225. 1984.17 s [opt-env-conf-test] as <- get
  15226. 1984.17 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  15227. 1984.17 s [opt-env-conf-test] + if argsAtEnd as then completeWithCompleter else pure $ Nothing
  15228. 1984.17 s [opt-env-conf-test] let completeWithDasheds = do
  15229. 1984.17 s [opt-env-conf-test] let isLong = \case
  15230. 1984.17 s [opt-env-conf-test] DashedLong _ -> True
  15231. 1984.17 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completion.hs:401:37-41
  15232. 1984.17 s [opt-env-conf-test] @@ -398,7 +398,7 @@
  15233. 1984.17 s [opt-env-conf-test] if argsAtEnd as then completeWithCompleter else pure $ Just []
  15234. 1984.17 s [opt-env-conf-test] let completeWithDasheds = do
  15235. 1984.17 s [opt-env-conf-test] let isLong = \case
  15236. 1984.17 s [opt-env-conf-test] - DashedLong _ -> True
  15237. 1984.17 s [opt-env-conf-test] + DashedLong _ -> False
  15238. 1984.17 s [opt-env-conf-test] DashedShort _ -> False
  15239. 1984.17 s [opt-env-conf-test] let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  15240. 1984.17 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  15241. 1984.17 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completion.hs:402:38-43
  15242. 1984.17 s [opt-env-conf-test] @@ -399,7 +399,7 @@
  15243. 1984.17 s [opt-env-conf-test] let completeWithDasheds = do
  15244. 1984.18 s [opt-env-conf-test] let isLong = \case
  15245. 1984.18 s [opt-env-conf-test] DashedLong _ -> True
  15246. 1984.18 s [opt-env-conf-test] - DashedShort _ -> False
  15247. 1984.18 s [opt-env-conf-test] + DashedShort _ -> True
  15248. 1984.18 s [opt-env-conf-test] let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  15249. 1984.18 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  15250. 1984.18 s [opt-env-conf-test] let completions =
  15251. 1984.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
  15252. 1984.18 s [opt-env-conf-test] @@ -400,7 +400,7 @@
  15253. 1984.18 s [opt-env-conf-test] let isLong = \case
  15254. 1984.18 s [opt-env-conf-test] DashedLong _ -> True
  15255. 1984.18 s [opt-env-conf-test] DashedShort _ -> False
  15256. 1984.18 s [opt-env-conf-test] - let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  15257. 1984.18 s [opt-env-conf-test] + let favorableDasheds = if True then filter isLong settingDasheds else settingDasheds
  15258. 1984.18 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  15259. 1984.18 s [opt-env-conf-test] let completions =
  15260. 1984.18 s [opt-env-conf-test] map
  15261. 1984.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
  15262. 1984.18 s [opt-env-conf-test] @@ -400,7 +400,7 @@
  15263. 1984.18 s [opt-env-conf-test] let isLong = \case
  15264. 1984.18 s [opt-env-conf-test] DashedLong _ -> True
  15265. 1984.18 s [opt-env-conf-test] DashedShort _ -> False
  15266. 1984.18 s [opt-env-conf-test] - let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  15267. 1984.18 s [opt-env-conf-test] + let favorableDasheds = if False then filter isLong settingDasheds else settingDasheds
  15268. 1984.18 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  15269. 1984.18 s [opt-env-conf-test] let completions =
  15270. 1984.18 s [opt-env-conf-test] map
  15271. 1984.18 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:403:41-66
  15272. 1984.18 s [opt-env-conf-test] @@ -400,7 +400,7 @@
  15273. 1984.18 s [opt-env-conf-test] let isLong = \case
  15274. 1984.18 s [opt-env-conf-test] DashedLong _ -> True
  15275. 1984.19 s [opt-env-conf-test] DashedShort _ -> False
  15276. 1984.19 s [opt-env-conf-test] - let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  15277. 1984.19 s [opt-env-conf-test] + let favorableDasheds = if not (any isLong settingDasheds) then filter isLong settingDasheds else settingDasheds
  15278. 1984.19 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  15279. 1984.19 s [opt-env-conf-test] let completions =
  15280. 1984.19 s [opt-env-conf-test] map
  15281. 1984.19 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
  15282. 1984.19 s [opt-env-conf-test] @@ -411,7 +411,7 @@
  15283. 1984.19 s [opt-env-conf-test] )
  15284. 1984.19 s [opt-env-conf-test] suggestions
  15285. 1984.19 s [opt-env-conf-test] pure $ Just completions
  15286. 1984.19 s [opt-env-conf-test] - if settingHidden
  15287. 1984.19 s [opt-env-conf-test] + if True
  15288. 1984.19 s [opt-env-conf-test] then pure $ Just []
  15289. 1984.19 s [opt-env-conf-test] else do
  15290. 1984.19 s [opt-env-conf-test] as <- get
  15291. 1984.19 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
  15292. 1984.19 s [opt-env-conf-test] @@ -411,7 +411,7 @@
  15293. 1984.19 s [opt-env-conf-test] )
  15294. 1984.19 s [opt-env-conf-test] suggestions
  15295. 1984.19 s [opt-env-conf-test] pure $ Just completions
  15296. 1984.19 s [opt-env-conf-test] - if settingHidden
  15297. 1984.19 s [opt-env-conf-test] + if False
  15298. 1984.19 s [opt-env-conf-test] then pure $ Just []
  15299. 1984.19 s [opt-env-conf-test] else do
  15300. 1984.19 s [opt-env-conf-test] as <- get
  15301. 1984.19 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:414:12-25
  15302. 1984.19 s [opt-env-conf-test] @@ -411,7 +411,7 @@
  15303. 1984.19 s [opt-env-conf-test] )
  15304. 1984.19 s [opt-env-conf-test] suggestions
  15305. 1984.19 s [opt-env-conf-test] pure $ Just completions
  15306. 1984.19 s [opt-env-conf-test] - if settingHidden
  15307. 1984.20 s [opt-env-conf-test] + if not (settingHidden)
  15308. 1984.20 s [opt-env-conf-test] then pure $ Just []
  15309. 1984.20 s [opt-env-conf-test] else do
  15310. 1984.20 s [opt-env-conf-test] as <- get
  15311. 1984.20 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:415:23-30
  15312. 1984.20 s [opt-env-conf-test] @@ -412,7 +412,7 @@
  15313. 1984.20 s [opt-env-conf-test] suggestions
  15314. 1984.20 s [opt-env-conf-test] pure $ Just completions
  15315. 1984.20 s [opt-env-conf-test] if settingHidden
  15316. 1984.20 s [opt-env-conf-test] - then pure $ Just []
  15317. 1984.20 s [opt-env-conf-test] + then pure $ Nothing
  15318. 1984.20 s [opt-env-conf-test] else do
  15319. 1984.20 s [opt-env-conf-test] as <- get
  15320. 1984.20 s [opt-env-conf-test] if settingTryArgument
  15321. 1984.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
  15322. 1984.20 s [opt-env-conf-test] @@ -415,7 +415,7 @@
  15323. 1984.20 s [opt-env-conf-test] then pure $ Just []
  15324. 1984.20 s [opt-env-conf-test] else do
  15325. 1984.20 s [opt-env-conf-test] as <- get
  15326. 1984.20 s [opt-env-conf-test] - if settingTryArgument
  15327. 1984.20 s [opt-env-conf-test] + if True
  15328. 1984.20 s [opt-env-conf-test] then do
  15329. 1984.20 s [opt-env-conf-test] let possibilities = Args.consumeArgument as
  15330. 1984.20 s [opt-env-conf-test] -- Try all possible consumptions of the argument.
  15331. 1984.20 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:413:22-38
  15332. 1984.20 s [opt-env-conf-test] @@ -410,7 +410,7 @@
  15333. 1984.20 s [opt-env-conf-test] . SuggestionBare
  15334. 1984.20 s [opt-env-conf-test] )
  15335. 1984.20 s [opt-env-conf-test] suggestions
  15336. 1984.20 s [opt-env-conf-test] - pure $ Just completions
  15337. 1984.20 s [opt-env-conf-test] + pure $ Nothing
  15338. 1984.20 s [opt-env-conf-test] if settingHidden
  15339. 1984.20 s [opt-env-conf-test] then pure $ Just []
  15340. 1984.20 s [opt-env-conf-test] else do
  15341. 1984.20 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  15342. 1984.20 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  15343. 1984.20 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  15344. 1984.20 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  15345. 1990.79 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  15346. 1990.81 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  15347. 1990.81 s [opt-env-conf-test] - (Nothing, _) -> o2
  15348. 1990.81 s [opt-env-conf-test] (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  15349. 1990.81 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  15350. 1990.81 s [opt-env-conf-test]
  15351. 1990.81 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  15352. 1990.82 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  15353. 1990.82 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
  15354. 1990.82 s [opt-env-conf-test] @@ -124,13 +124,10 @@
  15355. 1990.82 s [opt-env-conf-test] ppIndent $ do
  15356. 1990.82 s [opt-env-conf-test] debug ["Trying left side."]
  15357. 1990.82 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  15358. 1990.82 s [opt-env-conf-test] case eor of
  15359. 1990.82 s [opt-env-conf-test] Just a -> do
  15360. 1990.82 s [opt-env-conf-test] debug ["Left side succeeded."]
  15361. 1990.82 s [opt-env-conf-test] pure a
  15362. 1990.82 s [opt-env-conf-test] - Nothing -> do
  15363. 1990.82 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  15364. 1990.82 s [opt-env-conf-test] - ppIndent $ go p2
  15365. 1990.82 s [opt-env-conf-test] ParserMany mLoc p' -> do
  15366. 1990.82 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  15367. 1990.82 s [opt-env-conf-test] ppIndent $ do
  15368. 1990.82 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
  15369. 1990.82 s [opt-env-conf-test] @@ -415,7 +415,7 @@
  15370. 1990.82 s [opt-env-conf-test] then pure $ Just []
  15371. 1990.82 s [opt-env-conf-test] else do
  15372. 1990.82 s [opt-env-conf-test] as <- get
  15373. 1990.82 s [opt-env-conf-test] - if settingTryArgument
  15374. 1990.82 s [opt-env-conf-test] + if False
  15375. 1990.82 s [opt-env-conf-test] then do
  15376. 1990.82 s [opt-env-conf-test] let possibilities = Args.consumeArgument as
  15377. 1990.82 s [opt-env-conf-test] -- Try all possible consumptions of the argument.
  15378. 1990.82 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
  15379. 1990.82 s [opt-env-conf-test] @@ -98,9 +98,8 @@
  15380. 1990.82 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  15381. 1990.82 s [opt-env-conf-test] Just _ -> id
  15382. 1990.82 s [opt-env-conf-test] in f firstErrors
  15383. 1990.82 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  15384. 1990.82 s [opt-env-conf-test] - Success a -> pure (Right a)
  15385. 1990.82 s [opt-env-conf-test] Failure _ -> goNexts ns'
  15386. 1990.82 s [opt-env-conf-test] in goNexts nexts
  15387. 1990.82 s [opt-env-conf-test] where
  15388. 1990.82 s [opt-env-conf-test] go ::
  15389. 1990.82 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
  15390. 1990.82 s [opt-env-conf-test] @@ -432,11 +432,8 @@
  15391. 1990.82 s [opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
  15392. 1990.82 s [opt-env-conf-test] -- fallback matched. In both cases, offer the
  15393. 1990.82 s [opt-env-conf-test] -- completer if we are at the end.
  15394. 1990.82 s [opt-env-conf-test] case possibilities of
  15395. 1990.82 s [opt-env-conf-test] [] -> completeWithCompleterAtEnd
  15396. 1990.82 s [opt-env-conf-test] - (_, as') : _ -> do
  15397. 1990.82 s [opt-env-conf-test] - put as'
  15398. 1990.82 s [opt-env-conf-test] - completeWithCompleterAtEnd
  15399. 1990.82 s [opt-env-conf-test] else
  15400. 1990.82 s [opt-env-conf-test] if isJust settingSwitchValue
  15401. 1990.82 s [opt-env-conf-test] then do
  15402. 1990.82 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
  15403. 1990.82 s [opt-env-conf-test] @@ -432,11 +432,10 @@
  15404. 1990.82 s [opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
  15405. 1990.82 s [opt-env-conf-test] -- fallback matched. In both cases, offer the
  15406. 1990.82 s [opt-env-conf-test] -- completer if we are at the end.
  15407. 1990.82 s [opt-env-conf-test] case possibilities of
  15408. 1990.82 s [opt-env-conf-test] - [] -> completeWithCompleterAtEnd
  15409. 1990.82 s [opt-env-conf-test] (_, as') : _ -> do
  15410. 1990.82 s [opt-env-conf-test] put as'
  15411. 1990.82 s [opt-env-conf-test] completeWithCompleterAtEnd
  15412. 1990.82 s [opt-env-conf-test] else
  15413. 1990.82 s [opt-env-conf-test] if isJust settingSwitchValue
  15414. 1990.82 s [opt-env-conf-test] then do
  15415. 1990.82 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:428:28-35
  15416. 1990.82 s [opt-env-conf-test] @@ -425,7 +425,7 @@
  15417. 1990.82 s [opt-env-conf-test] case filter (isJust . fst) possibilities of
  15418. 1990.82 s [opt-env-conf-test] (_, as') : _ -> do
  15419. 1990.82 s [opt-env-conf-test] put as'
  15420. 1990.82 s [opt-env-conf-test] - pure $ Just []
  15421. 1990.83 s [opt-env-conf-test] + pure $ Nothing
  15422. 1990.83 s [opt-env-conf-test] [] ->
  15423. 1990.83 s [opt-env-conf-test] -- No possibility consumed a value. This is either
  15424. 1990.83 s [opt-env-conf-test] -- because there are no args at all (the [] case from
  15425. 1990.83 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
  15426. 1990.83 s [opt-env-conf-test] @@ -438,7 +438,7 @@
  15427. 1990.83 s [opt-env-conf-test] put as'
  15428. 1990.83 s [opt-env-conf-test] completeWithCompleterAtEnd
  15429. 1990.83 s [opt-env-conf-test] else
  15430. 1990.83 s [opt-env-conf-test] - if isJust settingSwitchValue
  15431. 1990.83 s [opt-env-conf-test] + if True
  15432. 1990.83 s [opt-env-conf-test] then do
  15433. 1990.83 s [opt-env-conf-test] -- Try to parse the switch first, so we don't suggest it if
  15434. 1990.83 s [opt-env-conf-test] -- it's already been parsed.
  15435. 1990.83 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:418:16-34
  15436. 1990.83 s [opt-env-conf-test] @@ -415,7 +415,7 @@
  15437. 1990.83 s [opt-env-conf-test] then pure $ Just []
  15438. 1990.83 s [opt-env-conf-test] else do
  15439. 1990.83 s [opt-env-conf-test] as <- get
  15440. 1990.83 s [opt-env-conf-test] - if settingTryArgument
  15441. 1990.83 s [opt-env-conf-test] + if not (settingTryArgument)
  15442. 1990.83 s [opt-env-conf-test] then do
  15443. 1990.83 s [opt-env-conf-test] let possibilities = Args.consumeArgument as
  15444. 1990.83 s [opt-env-conf-test] -- Try all possible consumptions of the argument.
  15445. 1990.83 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
  15446. 1990.83 s [opt-env-conf-test] @@ -438,7 +438,7 @@
  15447. 1990.83 s [opt-env-conf-test] put as'
  15448. 1990.83 s [opt-env-conf-test] completeWithCompleterAtEnd
  15449. 1990.83 s [opt-env-conf-test] else
  15450. 1990.83 s [opt-env-conf-test] - if isJust settingSwitchValue
  15451. 1990.83 s [opt-env-conf-test] + if False
  15452. 1990.83 s [opt-env-conf-test] then do
  15453. 1990.83 s [opt-env-conf-test] -- Try to parse the switch first, so we don't suggest it if
  15454. 1990.83 s [opt-env-conf-test] -- it's already been parsed.
  15455. 1990.83 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
  15456. 1990.83 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  15457. 1990.83 s [opt-env-conf-test] put as'
  15458. 1990.83 s [opt-env-conf-test] pure $ Just []
  15459. 1990.83 s [opt-env-conf-test] else do
  15460. 1990.83 s [opt-env-conf-test] - if settingTryOption
  15461. 1990.83 s [opt-env-conf-test] + if False
  15462. 1990.83 s [opt-env-conf-test] then do
  15463. 1990.83 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  15464. 1990.83 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  15465. 1990.83 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:453:24-40
  15466. 1990.83 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  15467. 1990.83 s [opt-env-conf-test] put as'
  15468. 1990.83 s [opt-env-conf-test] pure $ Just []
  15469. 1990.83 s [opt-env-conf-test] else do
  15470. 1990.83 s [opt-env-conf-test] - if settingTryOption
  15471. 1990.83 s [opt-env-conf-test] + if not (settingTryOption)
  15472. 1990.83 s [opt-env-conf-test] then do
  15473. 1990.83 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  15474. 1990.83 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  15475. 1990.83 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
  15476. 1990.83 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  15477. 1990.83 s [opt-env-conf-test] put as'
  15478. 1990.83 s [opt-env-conf-test] pure $ Just []
  15479. 1990.83 s [opt-env-conf-test] else do
  15480. 1990.83 s [opt-env-conf-test] - if settingTryOption
  15481. 1990.83 s [opt-env-conf-test] + if True
  15482. 1990.83 s [opt-env-conf-test] then do
  15483. 1990.83 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  15484. 1990.83 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  15485. 1990.83 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:459:36-43
  15486. 1990.83 s [opt-env-conf-test] @@ -456,7 +456,7 @@
  15487. 1990.83 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  15488. 1990.83 s [opt-env-conf-test] Just (_, as') -> do
  15489. 1990.83 s [opt-env-conf-test] put as'
  15490. 1990.83 s [opt-env-conf-test] - pure $ Just []
  15491. 1990.83 s [opt-env-conf-test] + pure $ Nothing
  15492. 1990.83 s [opt-env-conf-test] Nothing -> do
  15493. 1990.83 s [opt-env-conf-test] if argsAtEnd as
  15494. 1990.83 s [opt-env-conf-test] then completeWithDasheds
  15495. 1990.83 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:461:32-44
  15496. 1990.83 s [opt-env-conf-test] @@ -458,7 +458,7 @@
  15497. 1990.83 s [opt-env-conf-test] put as'
  15498. 1990.83 s [opt-env-conf-test] pure $ Just []
  15499. 1990.83 s [opt-env-conf-test] Nothing -> do
  15500. 1990.83 s [opt-env-conf-test] - if argsAtEnd as
  15501. 1991.58 s [opt-env-conf-test] + if not (argsAtEnd as)
  15502. 1991.58 s [opt-env-conf-test] then completeWithDasheds
  15503. 1991.58 s [opt-env-conf-test] else do
  15504. 1991.58 s [opt-env-conf-test] -- If we're not at the end, we may be between an option's
  15505. 1991.59 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:449:35-39
  15506. 1991.59 s [opt-env-conf-test] @@ -446,9 +446,8 @@
  15507. 1991.59 s [opt-env-conf-test] Nothing ->
  15508. 1991.59 s [opt-env-conf-test] -- A switch can be anywhere, doesn't need to be at the end.
  15509. 1991.59 s [opt-env-conf-test] completeWithDasheds
  15510. 1991.59 s [opt-env-conf-test] Just as' -> do
  15511. 1991.59 s [opt-env-conf-test] - put as'
  15512. 1991.59 s [opt-env-conf-test] pure $ Just []
  15513. 1991.59 s [opt-env-conf-test] else do
  15514. 1991.59 s [opt-env-conf-test] if settingTryOption
  15515. 1991.59 s [opt-env-conf-test] then do
  15516. 1991.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
  15517. 1991.59 s [opt-env-conf-test] @@ -175,7 +175,7 @@
  15518. 1991.59 s [opt-env-conf-test] map
  15519. 1991.59 s [opt-env-conf-test] ( \Completion {..} ->
  15520. 1991.59 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15521. 1991.59 s [opt-env-conf-test] - notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15522. 1991.59 s [opt-env-conf-test] + notFinal = True
  15523. 1991.59 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  15524. 1991.59 s [opt-env-conf-test] (False, Nothing) -> val
  15525. 1991.59 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  15526. 1991.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
  15527. 1991.59 s [opt-env-conf-test] @@ -175,7 +175,7 @@
  15528. 1991.59 s [opt-env-conf-test] map
  15529. 1991.59 s [opt-env-conf-test] ( \Completion {..} ->
  15530. 1991.59 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15531. 1991.59 s [opt-env-conf-test] - notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15532. 1991.59 s [opt-env-conf-test] + notFinal = False
  15533. 1991.59 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  15534. 1991.59 s [opt-env-conf-test] (False, Nothing) -> val
  15535. 1991.59 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  15536. 1991.59 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:178:32-99
  15537. 1991.59 s [opt-env-conf-test] @@ -175,7 +175,7 @@
  15538. 1991.59 s [opt-env-conf-test] map
  15539. 1991.59 s [opt-env-conf-test] ( \Completion {..} ->
  15540. 1991.59 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15541. 1991.59 s [opt-env-conf-test] - notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15542. 1991.59 s [opt-env-conf-test] + notFinal = not (completionResultFinality completionSuggestion == CompletionNotFinal)
  15543. 1991.59 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  15544. 1991.59 s [opt-env-conf-test] (False, Nothing) -> val
  15545. 1991.59 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  15546. 1991.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
  15547. 1991.59 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  15548. 1991.59 s [opt-env-conf-test] ( \Completion {..} ->
  15549. 1991.59 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15550. 1991.59 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15551. 1991.59 s [opt-env-conf-test] - in case (notFinal, completionDescription) of
  15552. 1991.60 s [opt-env-conf-test] + in case (True, completionDescription) of
  15553. 1991.60 s [opt-env-conf-test] (False, Nothing) -> val
  15554. 1991.60 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  15555. 1991.60 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  15556. 1991.60 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
  15557. 1991.60 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  15558. 1991.60 s [opt-env-conf-test] ( \Completion {..} ->
  15559. 1991.60 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15560. 1991.60 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15561. 1991.60 s [opt-env-conf-test] - in case (notFinal, completionDescription) of
  15562. 1991.60 s [opt-env-conf-test] + in case (False, completionDescription) of
  15563. 1991.60 s [opt-env-conf-test] (False, Nothing) -> val
  15564. 1991.60 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  15565. 1991.60 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  15566. 1991.60 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:179:27-35
  15567. 1991.60 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  15568. 1991.60 s [opt-env-conf-test] ( \Completion {..} ->
  15569. 1991.60 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15570. 1991.60 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15571. 1991.60 s [opt-env-conf-test] - in case (notFinal, completionDescription) of
  15572. 1991.60 s [opt-env-conf-test] + in case (not (notFinal), completionDescription) of
  15573. 1991.60 s [opt-env-conf-test] (False, Nothing) -> val
  15574. 1991.60 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  15575. 1991.60 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  15576. 1991.60 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
  15577. 1991.60 s [opt-env-conf-test] @@ -176,11 +176,10 @@
  15578. 1991.60 s [opt-env-conf-test] ( \Completion {..} ->
  15579. 1991.60 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15580. 1991.60 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15581. 1991.60 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  15582. 1991.60 s [opt-env-conf-test] - (False, Nothing) -> val
  15583. 1991.60 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  15584. 1991.60 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  15585. 1991.60 s [opt-env-conf-test] (True, Just d) -> val <> "\t" <> d <> "\tN"
  15586. 1991.60 s [opt-env-conf-test] )
  15587. 1991.60 s [opt-env-conf-test] evaluatedCompletions
  15588. 1991.60 s [opt-env-conf-test] else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  15589. 1991.60 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
  15590. 1991.60 s [opt-env-conf-test] @@ -176,11 +176,10 @@
  15591. 1991.60 s [opt-env-conf-test] ( \Completion {..} ->
  15592. 1991.60 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15593. 1991.61 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15594. 1991.61 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  15595. 1991.61 s [opt-env-conf-test] (False, Nothing) -> val
  15596. 1991.61 s [opt-env-conf-test] - (False, Just d) -> val <> "\t" <> d
  15597. 1991.61 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  15598. 1991.61 s [opt-env-conf-test] (True, Just d) -> val <> "\t" <> d <> "\tN"
  15599. 1991.61 s [opt-env-conf-test] )
  15600. 1991.61 s [opt-env-conf-test] evaluatedCompletions
  15601. 1991.61 s [opt-env-conf-test] else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  15602. 1991.61 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
  15603. 1991.61 s [opt-env-conf-test] @@ -176,11 +176,10 @@
  15604. 1991.61 s [opt-env-conf-test] ( \Completion {..} ->
  15605. 1991.61 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15606. 1991.61 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15607. 1991.61 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  15608. 1991.61 s [opt-env-conf-test] (False, Nothing) -> val
  15609. 1991.61 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  15610. 1991.61 s [opt-env-conf-test] - (True, Nothing) -> val <> "\t\tN"
  15611. 1991.61 s [opt-env-conf-test] (True, Just d) -> val <> "\t" <> d <> "\tN"
  15612. 1991.61 s [opt-env-conf-test] )
  15613. 1991.61 s [opt-env-conf-test] evaluatedCompletions
  15614. 1991.61 s [opt-env-conf-test] else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  15615. 1991.61 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
  15616. 1991.61 s [opt-env-conf-test] @@ -176,11 +176,10 @@
  15617. 1991.61 s [opt-env-conf-test] ( \Completion {..} ->
  15618. 1991.61 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  15619. 1991.61 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15620. 1991.61 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  15621. 1991.61 s [opt-env-conf-test] (False, Nothing) -> val
  15622. 1991.61 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  15623. 1991.61 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  15624. 1991.61 s [opt-env-conf-test] - (True, Just d) -> val <> "\t" <> d <> "\tN"
  15625. 1991.61 s [opt-env-conf-test] )
  15626. 1991.61 s [opt-env-conf-test] evaluatedCompletions
  15627. 1991.61 s [opt-env-conf-test] else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  15628. 1991.61 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:171:3-100
  15629. 1991.61 s [opt-env-conf-test] @@ -168,22 +168,6 @@
  15630. 1991.61 s [opt-env-conf-test] -- import System.IO
  15631. 1995.12 s [opt-env-conf-test] -- hPutStrLn stderr $ show (enriched, index, ws)
  15632. 1995.12 s [opt-env-conf-test] -- hPutStrLn stderr $ show evaluatedCompletions
  15633. 1995.12 s [opt-env-conf-test] - if enriched
  15634. 1995.12 s [opt-env-conf-test] - then
  15635. 1995.12 s [opt-env-conf-test] - putStr $
  15636. 1995.12 s [opt-env-conf-test] - unlines $
  15637. 1995.12 s [opt-env-conf-test] - map
  15638. 1995.12 s [opt-env-conf-test] - ( \Completion {..} ->
  15639. 1995.12 s [opt-env-conf-test] - let val = completionResultValue completionSuggestion
  15640. 1995.12 s [opt-env-conf-test] - notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  15641. 1995.12 s [opt-env-conf-test] - in case (notFinal, completionDescription) of
  15642. 1995.12 s [opt-env-conf-test] - (False, Nothing) -> val
  15643. 1995.12 s [opt-env-conf-test] - (False, Just d) -> val <> "\t" <> d
  15644. 1995.12 s [opt-env-conf-test] - (True, Nothing) -> val <> "\t\tN"
  15645. 1995.12 s [opt-env-conf-test] - (True, Just d) -> val <> "\t" <> d <> "\tN"
  15646. 1995.12 s [opt-env-conf-test] - )
  15647. 1995.12 s [opt-env-conf-test] - evaluatedCompletions
  15648. 1995.12 s [opt-env-conf-test] - else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  15649. 1995.12 s [opt-env-conf-test] pure ()
  15650. 1995.12 s [opt-env-conf-test]
  15651. 1995.12 s [opt-env-conf-test] -- Because the first arg has already been skipped we get input like this here:
  15652. 1995.12 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
  15653. 1995.12 s [opt-env-conf-test] @@ -113,27 +113,7 @@
  15654. 1995.12 s [opt-env-conf-test] fishCompletionScript progPath progname =
  15655. 1995.12 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  15656. 1995.12 s [opt-env-conf-test] in unlines
  15657. 1995.12 s [opt-env-conf-test] - [ " function " ++ functionName,
  15658. 1995.12 s [opt-env-conf-test] - " set -l cl (commandline --tokenize --current-process)",
  15659. 1995.12 s [opt-env-conf-test] - " # Hack around fish issue #3934",
  15660. 1995.12 s [opt-env-conf-test] - " set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
  15661. 1995.12 s [opt-env-conf-test] - " set -l cn (count $cn)",
  15662. 1995.12 s [opt-env-conf-test] - " set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
  15663. 1995.12 s [opt-env-conf-test] - " for arg in $cl",
  15664. 1995.12 s [opt-env-conf-test] - " set tmpline $tmpline --completion-word $arg",
  15665. 1995.12 s [opt-env-conf-test] - " end",
  15666. 1995.12 s [opt-env-conf-test] - " for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
  15667. 1995.12 s [opt-env-conf-test] - " set -l val (string split \\t -- $opt)[1]",
  15668. 1995.12 s [opt-env-conf-test] - " if test -d $val",
  15669. 1995.12 s [opt-env-conf-test] - " echo -E \"$val/\"",
  15670. 1995.12 s [opt-env-conf-test] - " else",
  15671. 1995.13 s [opt-env-conf-test] - " echo -E \"$val\"",
  15672. 1995.13 s [opt-env-conf-test] - " end",
  15673. 1995.13 s [opt-env-conf-test] - " end",
  15674. 1995.13 s [opt-env-conf-test] - "end",
  15675. 1995.13 s [opt-env-conf-test] - "",
  15676. 1995.13 s [opt-env-conf-test] - "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
  15677. 1995.13 s [opt-env-conf-test] ]
  15678. 1995.13 s [opt-env-conf-test]
  15679. 1995.13 s [opt-env-conf-test] -- This should be a name that a normal user would never want to define themselves.
  15680. 1995.13 s [opt-env-conf-test] progNameToFunctionName :: String -> String
  15681. 1995.13 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
  15682. 1995.13 s [opt-env-conf-test] @@ -113,27 +113,26 @@
  15683. 1995.13 s [opt-env-conf-test] fishCompletionScript progPath progname =
  15684. 1995.13 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  15685. 1995.13 s [opt-env-conf-test] in unlines
  15686. 1995.13 s [opt-env-conf-test] - [ " function " ++ functionName,
  15687. 1995.13 s [opt-env-conf-test] " set -l cl (commandline --tokenize --current-process)",
  15688. 1995.13 s [opt-env-conf-test] " # Hack around fish issue #3934",
  15689. 1995.13 s [opt-env-conf-test] " set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
  15690. 1995.13 s [opt-env-conf-test] " set -l cn (count $cn)",
  15691. 1995.13 s [opt-env-conf-test] " set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
  15692. 1995.13 s [opt-env-conf-test] " for arg in $cl",
  15693. 1995.13 s [opt-env-conf-test] " set tmpline $tmpline --completion-word $arg",
  15694. 1995.13 s [opt-env-conf-test] " end",
  15695. 1995.13 s [opt-env-conf-test] " for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
  15696. 1995.13 s [opt-env-conf-test] " set -l val (string split \\t -- $opt)[1]",
  15697. 1995.13 s [opt-env-conf-test] " if test -d $val",
  15698. 1995.13 s [opt-env-conf-test] " echo -E \"$val/\"",
  15699. 1995.13 s [opt-env-conf-test] " else",
  15700. 1995.13 s [opt-env-conf-test] " echo -E \"$val\"",
  15701. 1995.13 s [opt-env-conf-test] " end",
  15702. 1995.13 s [opt-env-conf-test] " end",
  15703. 1995.13 s [opt-env-conf-test] "end",
  15704. 1995.13 s [opt-env-conf-test] "",
  15705. 1995.13 s [opt-env-conf-test] "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
  15706. 1995.13 s [opt-env-conf-test] ]
  15707. 1995.13 s [opt-env-conf-test]
  15708. 1995.13 s [opt-env-conf-test] -- This should be a name that a normal user would never want to define themselves.
  15709. 1995.13 s [opt-env-conf-test] progNameToFunctionName :: String -> String
  15710. 1995.13 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
  15711. 1995.13 s [opt-env-conf-test] @@ -113,27 +113,26 @@
  15712. 1995.13 s [opt-env-conf-test] fishCompletionScript progPath progname =
  15713. 1995.13 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  15714. 1995.13 s [opt-env-conf-test] in unlines
  15715. 1995.13 s [opt-env-conf-test] [ " function " ++ functionName,
  15716. 1995.13 s [opt-env-conf-test] " set -l cl (commandline --tokenize --current-process)",
  15717. 1995.13 s [opt-env-conf-test] " # Hack around fish issue #3934",
  15718. 1995.13 s [opt-env-conf-test] " set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
  15719. 1995.13 s [opt-env-conf-test] " set -l cn (count $cn)",
  15720. 1995.14 s [opt-env-conf-test] " set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
  15721. 1995.14 s [opt-env-conf-test] " for arg in $cl",
  15722. 1995.14 s [opt-env-conf-test] " set tmpline $tmpline --completion-word $arg",
  15723. 1995.14 s [opt-env-conf-test] " end",
  15724. 1995.14 s [opt-env-conf-test] " for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
  15725. 1995.14 s [opt-env-conf-test] " set -l val (string split \\t -- $opt)[1]",
  15726. 1995.14 s [opt-env-conf-test] " if test -d $val",
  15727. 1995.14 s [opt-env-conf-test] " echo -E \"$val/\"",
  15728. 1995.14 s [opt-env-conf-test] " else",
  15729. 1995.14 s [opt-env-conf-test] " echo -E \"$val\"",
  15730. 1995.14 s [opt-env-conf-test] " end",
  15731. 1995.14 s [opt-env-conf-test] " end",
  15732. 1995.14 s [opt-env-conf-test] "end",
  15733. 1995.14 s [opt-env-conf-test] "",
  15734. 1995.14 s [opt-env-conf-test] - "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
  15735. 1995.14 s [opt-env-conf-test] ]
  15736. 1995.14 s [opt-env-conf-test]
  15737. 1995.14 s [opt-env-conf-test] -- This should be a name that a normal user would never want to define themselves.
  15738. 1995.14 s [opt-env-conf-test] progNameToFunctionName :: String -> String
  15739. 1995.14 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
  15740. 1995.14 s [opt-env-conf-test] @@ -64,46 +64,7 @@
  15741. 1995.14 s [opt-env-conf-test] zshCompletionScript :: Path Abs File -> String -> String
  15742. 1995.14 s [opt-env-conf-test] zshCompletionScript progPath progname =
  15743. 1995.14 s [opt-env-conf-test] unlines
  15744. 1995.14 s [opt-env-conf-test] - [ "#compdef " ++ progname,
  15745. 1995.14 s [opt-env-conf-test] - "",
  15746. 1995.14 s [opt-env-conf-test] - "local request",
  15747. 1995.14 s [opt-env-conf-test] - "local completions",
  15748. 1995.14 s [opt-env-conf-test] - "local word",
  15749. 1995.14 s [opt-env-conf-test] - "local index=$((CURRENT - 1))",
  15750. 1995.14 s [opt-env-conf-test] - "",
  15751. 1995.14 s [opt-env-conf-test] - "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
  15752. 1995.14 s [opt-env-conf-test] - "for arg in ${words[@]}; do",
  15753. 1995.14 s [opt-env-conf-test] - " request=(${request[@]} --completion-word $arg)",
  15754. 1995.14 s [opt-env-conf-test] - "done",
  15755. 1995.14 s [opt-env-conf-test] - "",
  15756. 1995.14 s [opt-env-conf-test] - "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
  15757. 1995.14 s [opt-env-conf-test] - "",
  15758. 1995.14 s [opt-env-conf-test] - "for word in $completions; do",
  15759. 1995.14 s [opt-env-conf-test] - " local -a parts",
  15760. 1995.14 s [opt-env-conf-test] - "",
  15761. 1995.14 s [opt-env-conf-test] - " # Split the line at a tab if there is one.",
  15762. 1995.14 s [opt-env-conf-test] - " IFS=$'\\t' parts=($( echo $word ))",
  15763. 1995.14 s [opt-env-conf-test] - "",
  15764. 1995.14 s [opt-env-conf-test] - " if [[ -n $parts[2] ]]; then",
  15765. 1995.14 s [opt-env-conf-test] - " if [[ $word[1] == \"-\" ]]; then",
  15766. 1995.14 s [opt-env-conf-test] - " local desc=(\"$parts[1] ($parts[2])\")",
  15767. 1995.14 s [opt-env-conf-test] - " compadd -d desc -- $parts[1]",
  15768. 1995.14 s [opt-env-conf-test] - " elif [[ $parts[3] == 'N' ]]; then",
  15769. 1995.14 s [opt-env-conf-test] - " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  15770. 1995.15 s [opt-env-conf-test] - " compadd -f -l -S '' -d desc -- $parts[1]",
  15771. 1995.15 s [opt-env-conf-test] - " else",
  15772. 1995.15 s [opt-env-conf-test] - " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  15773. 1995.15 s [opt-env-conf-test] - " compadd -f -l -d desc -- $parts[1]",
  15774. 1995.15 s [opt-env-conf-test] - " fi",
  15775. 1995.15 s [opt-env-conf-test] - " else",
  15776. 1995.15 s [opt-env-conf-test] - " if [[ $parts[3] == 'N' ]]; then",
  15777. 1995.15 s [opt-env-conf-test] - " compadd -f -S '' -- $parts[1]",
  15778. 1995.15 s [opt-env-conf-test] - " else",
  15779. 1995.15 s [opt-env-conf-test] - " compadd -f -- $parts[1]",
  15780. 1995.15 s [opt-env-conf-test] - " fi",
  15781. 1995.15 s [opt-env-conf-test] - " fi",
  15782. 1995.15 s [opt-env-conf-test] - "done"
  15783. 1995.15 s [opt-env-conf-test] ]
  15784. 1995.15 s [opt-env-conf-test]
  15785. 1995.15 s [opt-env-conf-test] generateFishCompletionScript :: Path Abs File -> String -> IO ()
  15786. 1997.34 s [opt-env-conf-test] generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
  15787. 1997.34 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
  15788. 1997.42 s [opt-env-conf-test] @@ -64,46 +64,45 @@
  15789. 1997.42 s [opt-env-conf-test] zshCompletionScript :: Path Abs File -> String -> String
  15790. 1997.42 s [opt-env-conf-test] zshCompletionScript progPath progname =
  15791. 1997.42 s [opt-env-conf-test] unlines
  15792. 1997.42 s [opt-env-conf-test] - [ "#compdef " ++ progname,
  15793. 1997.42 s [opt-env-conf-test] "",
  15794. 1997.42 s [opt-env-conf-test] "local request",
  15795. 1997.42 s [opt-env-conf-test] "local completions",
  15796. 1997.42 s [opt-env-conf-test] "local word",
  15797. 1997.42 s [opt-env-conf-test] "local index=$((CURRENT - 1))",
  15798. 1997.42 s [opt-env-conf-test] "",
  15799. 1997.42 s [opt-env-conf-test] "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
  15800. 1997.42 s [opt-env-conf-test] "for arg in ${words[@]}; do",
  15801. 1997.42 s [opt-env-conf-test] " request=(${request[@]} --completion-word $arg)",
  15802. 1997.42 s [opt-env-conf-test] "done",
  15803. 1997.42 s [opt-env-conf-test] "",
  15804. 1997.42 s [opt-env-conf-test] "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
  15805. 1997.43 s [opt-env-conf-test] "",
  15806. 1997.43 s [opt-env-conf-test] "for word in $completions; do",
  15807. 1997.43 s [opt-env-conf-test] " local -a parts",
  15808. 1997.43 s [opt-env-conf-test] "",
  15809. 1997.43 s [opt-env-conf-test] " # Split the line at a tab if there is one.",
  15810. 1997.43 s [opt-env-conf-test] " IFS=$'\\t' parts=($( echo $word ))",
  15811. 1997.43 s [opt-env-conf-test] "",
  15812. 1997.43 s [opt-env-conf-test] " if [[ -n $parts[2] ]]; then",
  15813. 1997.43 s [opt-env-conf-test] " if [[ $word[1] == \"-\" ]]; then",
  15814. 1997.43 s [opt-env-conf-test] " local desc=(\"$parts[1] ($parts[2])\")",
  15815. 1997.43 s [opt-env-conf-test] " compadd -d desc -- $parts[1]",
  15816. 1997.43 s [opt-env-conf-test] " elif [[ $parts[3] == 'N' ]]; then",
  15817. 1997.43 s [opt-env-conf-test] " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  15818. 1997.43 s [opt-env-conf-test] " compadd -f -l -S '' -d desc -- $parts[1]",
  15819. 1997.43 s [opt-env-conf-test] " else",
  15820. 1997.43 s [opt-env-conf-test] " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  15821. 1997.43 s [opt-env-conf-test] " compadd -f -l -d desc -- $parts[1]",
  15822. 1997.43 s [opt-env-conf-test] " fi",
  15823. 1997.43 s [opt-env-conf-test] " else",
  15824. 1997.43 s [opt-env-conf-test] " if [[ $parts[3] == 'N' ]]; then",
  15825. 1997.43 s [opt-env-conf-test] " compadd -f -S '' -- $parts[1]",
  15826. 1997.43 s [opt-env-conf-test] " else",
  15827. 1997.43 s [opt-env-conf-test] " compadd -f -- $parts[1]",
  15828. 1997.43 s [opt-env-conf-test] " fi",
  15829. 1997.43 s [opt-env-conf-test] " fi",
  15830. 1997.43 s [opt-env-conf-test] "done"
  15831. 1997.43 s [opt-env-conf-test] ]
  15832. 1997.43 s [opt-env-conf-test]
  15833. 1997.43 s [opt-env-conf-test] generateFishCompletionScript :: Path Abs File -> String -> IO ()
  15834. 1997.43 s [opt-env-conf-test] generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
  15835. 1997.43 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
  15836. 1997.43 s [opt-env-conf-test] @@ -64,46 +64,45 @@
  15837. 1997.43 s [opt-env-conf-test] zshCompletionScript :: Path Abs File -> String -> String
  15838. 1997.43 s [opt-env-conf-test] zshCompletionScript progPath progname =
  15839. 1997.43 s [opt-env-conf-test] unlines
  15840. 1997.43 s [opt-env-conf-test] [ "#compdef " ++ progname,
  15841. 1997.43 s [opt-env-conf-test] "",
  15842. 1997.43 s [opt-env-conf-test] "local request",
  15843. 1997.43 s [opt-env-conf-test] "local completions",
  15844. 1997.43 s [opt-env-conf-test] "local word",
  15845. 1997.43 s [opt-env-conf-test] "local index=$((CURRENT - 1))",
  15846. 1997.43 s [opt-env-conf-test] "",
  15847. 1997.43 s [opt-env-conf-test] "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
  15848. 1997.43 s [opt-env-conf-test] "for arg in ${words[@]}; do",
  15849. 1997.43 s [opt-env-conf-test] " request=(${request[@]} --completion-word $arg)",
  15850. 1997.43 s [opt-env-conf-test] "done",
  15851. 1997.43 s [opt-env-conf-test] "",
  15852. 1997.43 s [opt-env-conf-test] "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
  15853. 1997.43 s [opt-env-conf-test] "",
  15854. 1997.43 s [opt-env-conf-test] "for word in $completions; do",
  15855. 1997.43 s [opt-env-conf-test] " local -a parts",
  15856. 1997.43 s [opt-env-conf-test] "",
  15857. 1997.43 s [opt-env-conf-test] " # Split the line at a tab if there is one.",
  15858. 1997.43 s [opt-env-conf-test] " IFS=$'\\t' parts=($( echo $word ))",
  15859. 1997.43 s [opt-env-conf-test] "",
  15860. 1997.43 s [opt-env-conf-test] " if [[ -n $parts[2] ]]; then",
  15861. 1997.43 s [opt-env-conf-test] " if [[ $word[1] == \"-\" ]]; then",
  15862. 1997.43 s [opt-env-conf-test] " local desc=(\"$parts[1] ($parts[2])\")",
  15863. 1997.43 s [opt-env-conf-test] " compadd -d desc -- $parts[1]",
  15864. 1997.43 s [opt-env-conf-test] " elif [[ $parts[3] == 'N' ]]; then",
  15865. 1997.43 s [opt-env-conf-test] " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  15866. 1997.43 s [opt-env-conf-test] " compadd -f -l -S '' -d desc -- $parts[1]",
  15867. 1997.43 s [opt-env-conf-test] " else",
  15868. 1997.43 s [opt-env-conf-test] " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  15869. 1997.43 s [opt-env-conf-test] " compadd -f -l -d desc -- $parts[1]",
  15870. 1997.43 s [opt-env-conf-test] " fi",
  15871. 1997.43 s [opt-env-conf-test] " else",
  15872. 1997.43 s [opt-env-conf-test] " if [[ $parts[3] == 'N' ]]; then",
  15873. 1997.43 s [opt-env-conf-test] " compadd -f -S '' -- $parts[1]",
  15874. 1997.44 s [opt-env-conf-test] " else",
  15875. 1997.44 s [opt-env-conf-test] " compadd -f -- $parts[1]",
  15876. 1997.44 s [opt-env-conf-test] " fi",
  15877. 1997.44 s [opt-env-conf-test] " fi",
  15878. 1997.44 s [opt-env-conf-test] - "done"
  15879. 1997.44 s [opt-env-conf-test] ]
  15880. 1997.44 s [opt-env-conf-test]
  15881. 1997.44 s [opt-env-conf-test] generateFishCompletionScript :: Path Abs File -> String -> IO ()
  15882. 1997.44 s [opt-env-conf-test] generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
  15883. 1997.44 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
  15884. 1997.44 s [opt-env-conf-test] @@ -40,22 +40,7 @@
  15885. 1997.44 s [opt-env-conf-test] bashCompletionScript progPath progname =
  15886. 1997.44 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  15887. 1997.44 s [opt-env-conf-test] in unlines
  15888. 1997.44 s [opt-env-conf-test] - [ functionName ++ "()",
  15889. 1997.44 s [opt-env-conf-test] - "{",
  15890. 1997.44 s [opt-env-conf-test] - " local CMDLINE",
  15891. 1997.44 s [opt-env-conf-test] - " local IFS=$'\\n'",
  15892. 1997.44 s [opt-env-conf-test] - " CMDLINE=(--query-opt-env-conf-completion)",
  15893. 1997.44 s [opt-env-conf-test] - " CMDLINE+=(--completion-index $COMP_CWORD)",
  15894. 1997.44 s [opt-env-conf-test] - "",
  15895. 1997.44 s [opt-env-conf-test] - " for arg in ${COMP_WORDS[@]}; do",
  15896. 1997.44 s [opt-env-conf-test] - " CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
  15897. 1997.44 s [opt-env-conf-test] - " done",
  15898. 1997.44 s [opt-env-conf-test] - "",
  15899. 1997.44 s [opt-env-conf-test] - " COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
  15900. 1997.44 s [opt-env-conf-test] - "}",
  15901. 1997.44 s [opt-env-conf-test] - "",
  15902. 1997.44 s [opt-env-conf-test] - "complete -o filenames -F " ++ functionName ++ " " ++ progname
  15903. 1997.44 s [opt-env-conf-test] ]
  15904. 1997.44 s [opt-env-conf-test]
  15905. 1997.44 s [opt-env-conf-test] generateZshCompletionScript :: Path Abs File -> String -> IO ()
  15906. 1997.44 s [opt-env-conf-test] generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
  15907. 1997.44 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
  15908. 1997.44 s [opt-env-conf-test] @@ -40,22 +40,21 @@
  15909. 1997.44 s [opt-env-conf-test] bashCompletionScript progPath progname =
  15910. 1997.44 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  15911. 1997.44 s [opt-env-conf-test] in unlines
  15912. 1997.44 s [opt-env-conf-test] - [ functionName ++ "()",
  15913. 1997.44 s [opt-env-conf-test] "{",
  15914. 1997.44 s [opt-env-conf-test] " local CMDLINE",
  15915. 1997.44 s [opt-env-conf-test] " local IFS=$'\\n'",
  15916. 1997.44 s [opt-env-conf-test] " CMDLINE=(--query-opt-env-conf-completion)",
  15917. 1997.44 s [opt-env-conf-test] " CMDLINE+=(--completion-index $COMP_CWORD)",
  15918. 1997.44 s [opt-env-conf-test] "",
  15919. 1997.44 s [opt-env-conf-test] " for arg in ${COMP_WORDS[@]}; do",
  15920. 1997.44 s [opt-env-conf-test] " CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
  15921. 1997.44 s [opt-env-conf-test] " done",
  15922. 1997.44 s [opt-env-conf-test] "",
  15923. 1997.44 s [opt-env-conf-test] " COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
  15924. 1997.44 s [opt-env-conf-test] "}",
  15925. 1997.44 s [opt-env-conf-test] "",
  15926. 1997.44 s [opt-env-conf-test] "complete -o filenames -F " ++ functionName ++ " " ++ progname
  15927. 1997.44 s [opt-env-conf-test] ]
  15928. 1997.44 s [opt-env-conf-test]
  15929. 1997.44 s [opt-env-conf-test] generateZshCompletionScript :: Path Abs File -> String -> IO ()
  15930. 1997.44 s [opt-env-conf-test] generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
  15931. 1997.44 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
  15932. 1997.44 s [opt-env-conf-test] @@ -40,22 +40,21 @@
  15933. 1997.44 s [opt-env-conf-test] bashCompletionScript progPath progname =
  15934. 1997.44 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  15935. 1997.44 s [opt-env-conf-test] in unlines
  15936. 1997.44 s [opt-env-conf-test] [ functionName ++ "()",
  15937. 1997.44 s [opt-env-conf-test] "{",
  15938. 1997.44 s [opt-env-conf-test] " local CMDLINE",
  15939. 1997.44 s [opt-env-conf-test] " local IFS=$'\\n'",
  15940. 1997.44 s [opt-env-conf-test] " CMDLINE=(--query-opt-env-conf-completion)",
  15941. 1997.44 s [opt-env-conf-test] " CMDLINE+=(--completion-index $COMP_CWORD)",
  15942. 1997.44 s [opt-env-conf-test] "",
  15943. 1997.44 s [opt-env-conf-test] " for arg in ${COMP_WORDS[@]}; do",
  15944. 1997.44 s [opt-env-conf-test] " CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
  15945. 1997.44 s [opt-env-conf-test] " done",
  15946. 1997.44 s [opt-env-conf-test] "",
  15947. 1997.44 s [opt-env-conf-test] " COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
  15948. 1997.44 s [opt-env-conf-test] "}",
  15949. 1997.44 s [opt-env-conf-test] "",
  15950. 1997.44 s [opt-env-conf-test] - "complete -o filenames -F " ++ functionName ++ " " ++ progname
  15951. 1997.44 s [opt-env-conf-test] ]
  15952. 1997.44 s [opt-env-conf-test]
  15953. 1997.44 s [opt-env-conf-test] generateZshCompletionScript :: Path Abs File -> String -> IO ()
  15954. 1997.44 s [opt-env-conf-test] generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
  15955. 1997.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
  15956. 1997.44 s [opt-env-conf-test] @@ -1207,7 +1207,7 @@
  15957. 1997.44 s [opt-env-conf-test] ParserMany mLoc p -> ParserMany mLoc <$> go p
  15958. 1997.44 s [opt-env-conf-test] ParserSome mLoc p -> ParserSome mLoc <$> go p
  15959. 1997.44 s [opt-env-conf-test] ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
  15960. 1997.44 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
  15961. 1997.44 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc True caps f <$> go p
  15962. 1997.44 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
  15963. 1997.44 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
  15964. 1997.44 s [opt-env-conf-test] ParserSetting mLoc s -> ParserSetting mLoc <$> func s
  15965. 1997.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
  15966. 1997.44 s [opt-env-conf-test] @@ -1207,7 +1207,7 @@
  15967. 1997.44 s [opt-env-conf-test] ParserMany mLoc p -> ParserMany mLoc <$> go p
  15968. 1997.44 s [opt-env-conf-test] ParserSome mLoc p -> ParserSome mLoc <$> go p
  15969. 1997.44 s [opt-env-conf-test] ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
  15970. 1997.44 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
  15971. 2004.52 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc False caps f <$> go p
  15972. 2004.54 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
  15973. 2004.54 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
  15974. 2004.55 s [opt-env-conf-test] ParserSetting mLoc s -> ParserSetting mLoc <$> func s
  15975. 2004.55 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:1210:64-74
  15976. 2004.55 s [opt-env-conf-test] @@ -1207,7 +1207,7 @@
  15977. 2004.55 s [opt-env-conf-test] ParserMany mLoc p -> ParserMany mLoc <$> go p
  15978. 2004.55 s [opt-env-conf-test] ParserSome mLoc p -> ParserSome mLoc <$> go p
  15979. 2004.55 s [opt-env-conf-test] ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
  15980. 2004.55 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
  15981. 2004.55 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc not (forgivable) caps f <$> go p
  15982. 2004.55 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
  15983. 2004.55 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
  15984. 2004.55 s [opt-env-conf-test] ParserSetting mLoc s -> ParserSetting mLoc <$> func s
  15985. 2004.55 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
  15986. 2004.55 s [opt-env-conf-test] @@ -1170,7 +1170,7 @@
  15987. 2004.55 s [opt-env-conf-test] ParserMany _ p -> ParserMany Nothing (go p)
  15988. 2004.55 s [opt-env-conf-test] ParserSome _ p -> ParserSome Nothing (go p)
  15989. 2004.55 s [opt-env-conf-test] ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
  15990. 2004.55 s [opt-env-conf-test] - ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
  15991. 2004.55 s [opt-env-conf-test] + ParserCheck _ forgivable caps f p -> ParserCheck Nothing True caps f (go p)
  15992. 2004.55 s [opt-env-conf-test] ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
  15993. 2004.55 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
  15994. 2004.55 s [opt-env-conf-test] ParserSetting _ s -> ParserSetting Nothing s
  15995. 2004.55 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
  15996. 2004.55 s [opt-env-conf-test] @@ -1170,7 +1170,7 @@
  15997. 2004.55 s [opt-env-conf-test] ParserMany _ p -> ParserMany Nothing (go p)
  15998. 2004.55 s [opt-env-conf-test] ParserSome _ p -> ParserSome Nothing (go p)
  15999. 2004.55 s [opt-env-conf-test] ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
  16000. 2004.55 s [opt-env-conf-test] - ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
  16001. 2004.55 s [opt-env-conf-test] + ParserCheck _ forgivable caps f p -> ParserCheck Nothing False caps f (go p)
  16002. 2004.55 s [opt-env-conf-test] ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
  16003. 2004.56 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
  16004. 2004.56 s [opt-env-conf-test] ParserSetting _ s -> ParserSetting Nothing s
  16005. 2004.56 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:1173:64-74
  16006. 2004.56 s [opt-env-conf-test] @@ -1170,7 +1170,7 @@
  16007. 2004.56 s [opt-env-conf-test] ParserMany _ p -> ParserMany Nothing (go p)
  16008. 2004.56 s [opt-env-conf-test] ParserSome _ p -> ParserSome Nothing (go p)
  16009. 2004.56 s [opt-env-conf-test] ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
  16010. 2004.56 s [opt-env-conf-test] - ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
  16011. 2004.56 s [opt-env-conf-test] + ParserCheck _ forgivable caps f p -> ParserCheck Nothing not (forgivable) caps f (go p)
  16012. 2004.56 s [opt-env-conf-test] ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
  16013. 2004.56 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
  16014. 2004.56 s [opt-env-conf-test] ParserSetting _ s -> ParserSetting Nothing s
  16015. 2004.56 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:705:57-63
  16016. 2004.56 s [opt-env-conf-test] @@ -702,7 +702,7 @@
  16017. 2004.56 s [opt-env-conf-test] let (mDefault, cs) = go bs
  16018. 2004.56 s [opt-env-conf-test] in case b of
  16019. 2004.56 s [opt-env-conf-test] CommandsBuilderCommand c -> (mDefault, c : cs)
  16020. 2004.56 s [opt-env-conf-test] - CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
  16021. 2004.56 s [opt-env-conf-test] + CommandsBuilderDefault d -> (mDefault <|> Nothing, cs)
  16022. 2004.56 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16023. 2004.56 s [opt-env-conf-test]
  16024. 2004.56 s [opt-env-conf-test] -- | Declare a single command with a name, documentation and parser
  16025. 2004.56 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
  16026. 2004.56 s [opt-env-conf-test] @@ -700,9 +700,8 @@
  16027. 2004.56 s [opt-env-conf-test] [] -> (Nothing, [])
  16028. 2004.56 s [opt-env-conf-test] (b : bs) ->
  16029. 2004.56 s [opt-env-conf-test] let (mDefault, cs) = go bs
  16030. 2004.56 s [opt-env-conf-test] in case b of
  16031. 2004.56 s [opt-env-conf-test] - CommandsBuilderCommand c -> (mDefault, c : cs)
  16032. 2004.56 s [opt-env-conf-test] CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
  16033. 2004.56 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16034. 2004.56 s [opt-env-conf-test]
  16035. 2004.56 s [opt-env-conf-test] -- | Declare a single command with a name, documentation and parser
  16036. 2004.56 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
  16037. 2004.56 s [opt-env-conf-test] @@ -700,9 +700,8 @@
  16038. 2004.56 s [opt-env-conf-test] [] -> (Nothing, [])
  16039. 2004.56 s [opt-env-conf-test] (b : bs) ->
  16040. 2004.56 s [opt-env-conf-test] let (mDefault, cs) = go bs
  16041. 2004.56 s [opt-env-conf-test] in case b of
  16042. 2004.56 s [opt-env-conf-test] CommandsBuilderCommand c -> (mDefault, c : cs)
  16043. 2004.56 s [opt-env-conf-test] - CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
  16044. 2004.56 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16045. 2004.57 s [opt-env-conf-test]
  16046. 2004.57 s [opt-env-conf-test] -- | Declare a single command with a name, documentation and parser
  16047. 2004.57 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:686:41-45
  16048. 2004.57 s [opt-env-conf-test] @@ -683,7 +683,7 @@
  16049. 2004.57 s [opt-env-conf-test]
  16050. 2004.57 s [opt-env-conf-test] -- | Like 'checkMapIO', but allow trying the other side of any alternative if the result is Nothing.
  16051. 2004.57 s [opt-env-conf-test] checkMapIOForgivable :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
  16052. 2004.57 s [opt-env-conf-test] -checkMapIOForgivable = ParserCheck mLoc True Set.empty
  16053. 2004.57 s [opt-env-conf-test] +checkMapIOForgivable = ParserCheck mLoc False Set.empty
  16054. 2004.57 s [opt-env-conf-test] where
  16055. 2004.57 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16056. 2004.57 s [opt-env-conf-test]
  16057. 2004.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
  16058. 2004.57 s [opt-env-conf-test] @@ -671,9 +671,8 @@
  16059. 2004.57 s [opt-env-conf-test] checkMapMaybeForgivable func p =
  16060. 2004.57 s [opt-env-conf-test] withFrozenCallStack $
  16061. 2004.57 s [opt-env-conf-test] checkMapEitherForgivable
  16062. 2004.57 s [opt-env-conf-test] ( \a -> case func a of
  16063. 2004.57 s [opt-env-conf-test] - Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
  16064. 2004.57 s [opt-env-conf-test] Just b -> Right b
  16065. 2004.57 s [opt-env-conf-test] )
  16066. 2004.57 s [opt-env-conf-test] p
  16067. 2004.57 s [opt-env-conf-test]
  16068. 2004.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
  16069. 2004.57 s [opt-env-conf-test] @@ -671,9 +671,8 @@
  16070. 2004.57 s [opt-env-conf-test] checkMapMaybeForgivable func p =
  16071. 2004.57 s [opt-env-conf-test] withFrozenCallStack $
  16072. 2004.57 s [opt-env-conf-test] checkMapEitherForgivable
  16073. 2004.57 s [opt-env-conf-test] ( \a -> case func a of
  16074. 2004.57 s [opt-env-conf-test] Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
  16075. 2004.57 s [opt-env-conf-test] - Just b -> Right b
  16076. 2004.57 s [opt-env-conf-test] )
  16077. 2004.57 s [opt-env-conf-test] p
  16078. 2004.57 s [opt-env-conf-test]
  16079. 2004.57 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
  16080. 2004.57 s [opt-env-conf-test] @@ -660,7 +660,7 @@
  16081. 2004.57 s [opt-env-conf-test] checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
  16082. 2004.57 s [opt-env-conf-test] checkWithRequiredCapability capName = \case
  16083. 2004.57 s [opt-env-conf-test] ParserCheck mLoc' forgivable caps f p ->
  16084. 2004.57 s [opt-env-conf-test] - ParserCheck mLoc' forgivable (Set.insert cap caps) f p
  16085. 2004.57 s [opt-env-conf-test] + ParserCheck mLoc' True (Set.insert cap caps) f p
  16086. 2004.57 s [opt-env-conf-test] p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
  16087. 2004.57 s [opt-env-conf-test] where
  16088. 2004.57 s [opt-env-conf-test] cap = Capability (T.pack capName)
  16089. 2004.57 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
  16090. 2004.57 s [opt-env-conf-test] @@ -660,7 +660,7 @@
  16091. 2004.57 s [opt-env-conf-test] checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
  16092. 2004.57 s [opt-env-conf-test] checkWithRequiredCapability capName = \case
  16093. 2004.57 s [opt-env-conf-test] ParserCheck mLoc' forgivable caps f p ->
  16094. 2004.57 s [opt-env-conf-test] - ParserCheck mLoc' forgivable (Set.insert cap caps) f p
  16095. 2004.57 s [opt-env-conf-test] + ParserCheck mLoc' False (Set.insert cap caps) f p
  16096. 2004.57 s [opt-env-conf-test] p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
  16097. 2004.57 s [opt-env-conf-test] where
  16098. 2004.57 s [opt-env-conf-test] cap = Capability (T.pack capName)
  16099. 2004.57 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:663:23-33
  16100. 2004.57 s [opt-env-conf-test] @@ -660,7 +660,7 @@
  16101. 2004.57 s [opt-env-conf-test] checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
  16102. 2004.57 s [opt-env-conf-test] checkWithRequiredCapability capName = \case
  16103. 2004.58 s [opt-env-conf-test] ParserCheck mLoc' forgivable caps f p ->
  16104. 2004.58 s [opt-env-conf-test] - ParserCheck mLoc' forgivable (Set.insert cap caps) f p
  16105. 2004.58 s [opt-env-conf-test] + ParserCheck mLoc' not (forgivable) (Set.insert cap caps) f p
  16106. 2012.47 s [opt-env-conf-test] p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
  16107. 2012.47 s [opt-env-conf-test] where
  16108. 2012.47 s [opt-env-conf-test] cap = Capability (T.pack capName)
  16109. 2012.49 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:664:25-30
  16110. 2012.49 s [opt-env-conf-test] @@ -661,7 +661,7 @@
  16111. 2012.49 s [opt-env-conf-test] checkWithRequiredCapability capName = \case
  16112. 2012.49 s [opt-env-conf-test] ParserCheck mLoc' forgivable caps f p ->
  16113. 2012.49 s [opt-env-conf-test] ParserCheck mLoc' forgivable (Set.insert cap caps) f p
  16114. 2012.50 s [opt-env-conf-test] - p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
  16115. 2012.50 s [opt-env-conf-test] + p -> ParserCheck mLoc True (Set.singleton cap) (pure . Right) p
  16116. 2012.50 s [opt-env-conf-test] where
  16117. 2012.50 s [opt-env-conf-test] cap = Capability (T.pack capName)
  16118. 2012.50 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16119. 2012.50 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:618:31-36
  16120. 2012.50 s [opt-env-conf-test] @@ -615,7 +615,7 @@
  16121. 2012.50 s [opt-env-conf-test]
  16122. 2012.50 s [opt-env-conf-test] -- | Check a 'Parser' after the fact, allowing IO.
  16123. 2012.50 s [opt-env-conf-test] checkMapIO :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
  16124. 2012.50 s [opt-env-conf-test] -checkMapIO = ParserCheck mLoc False Set.empty
  16125. 2012.50 s [opt-env-conf-test] +checkMapIO = ParserCheck mLoc True Set.empty
  16126. 2012.50 s [opt-env-conf-test] where
  16127. 2012.50 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16128. 2012.50 s [opt-env-conf-test]
  16129. 2012.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
  16130. 2012.50 s [opt-env-conf-test] @@ -599,9 +599,8 @@
  16131. 2012.50 s [opt-env-conf-test] checkMapMaybe func p =
  16132. 2012.50 s [opt-env-conf-test] withFrozenCallStack $
  16133. 2012.50 s [opt-env-conf-test] checkMapEither
  16134. 2012.50 s [opt-env-conf-test] ( \a -> case func a of
  16135. 2012.50 s [opt-env-conf-test] - Nothing -> Left "checkMapMaybe failed without a helpful error message"
  16136. 2012.50 s [opt-env-conf-test] Just b -> Right b
  16137. 2012.50 s [opt-env-conf-test] )
  16138. 2012.50 s [opt-env-conf-test] p
  16139. 2012.50 s [opt-env-conf-test]
  16140. 2012.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
  16141. 2012.50 s [opt-env-conf-test] @@ -599,9 +599,8 @@
  16142. 2012.50 s [opt-env-conf-test] checkMapMaybe func p =
  16143. 2012.50 s [opt-env-conf-test] withFrozenCallStack $
  16144. 2012.50 s [opt-env-conf-test] checkMapEither
  16145. 2012.50 s [opt-env-conf-test] ( \a -> case func a of
  16146. 2012.50 s [opt-env-conf-test] Nothing -> Left "checkMapMaybe failed without a helpful error message"
  16147. 2012.50 s [opt-env-conf-test] - Just b -> Right b
  16148. 2012.50 s [opt-env-conf-test] )
  16149. 2012.50 s [opt-env-conf-test] p
  16150. 2012.50 s [opt-env-conf-test]
  16151. 2012.50 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
  16152. 2012.50 s [opt-env-conf-test] @@ -1016,13 +1016,7 @@
  16153. 2012.50 s [opt-env-conf-test] withFrozenCallStack $
  16154. 2012.50 s [opt-env-conf-test] choice $
  16155. 2012.50 s [opt-env-conf-test] catMaybes
  16156. 2012.50 s [opt-env-conf-test] - [ bareOption,
  16157. 2012.50 s [opt-env-conf-test] - fileOption,
  16158. 2012.50 s [opt-env-conf-test] - bareEnv,
  16159. 2012.50 s [opt-env-conf-test] - fileEnv,
  16160. 2012.50 s [opt-env-conf-test] - bareConf,
  16161. 2012.50 s [opt-env-conf-test] - fileConf
  16162. 2012.50 s [opt-env-conf-test] ]
  16163. 2012.51 s [opt-env-conf-test] where
  16164. 2012.51 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16165. 2012.51 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  16166. 2012.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
  16167. 2012.51 s [opt-env-conf-test] @@ -1016,13 +1016,12 @@
  16168. 2012.51 s [opt-env-conf-test] withFrozenCallStack $
  16169. 2012.51 s [opt-env-conf-test] choice $
  16170. 2012.51 s [opt-env-conf-test] catMaybes
  16171. 2012.51 s [opt-env-conf-test] [ bareOption,
  16172. 2012.51 s [opt-env-conf-test] fileOption,
  16173. 2012.51 s [opt-env-conf-test] bareEnv,
  16174. 2012.51 s [opt-env-conf-test] fileEnv,
  16175. 2012.51 s [opt-env-conf-test] bareConf,
  16176. 2012.51 s [opt-env-conf-test] - fileConf
  16177. 2012.51 s [opt-env-conf-test] ]
  16178. 2012.51 s [opt-env-conf-test] where
  16179. 2012.51 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16180. 2012.51 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  16181. 2012.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
  16182. 2012.51 s [opt-env-conf-test] @@ -1016,13 +1016,12 @@
  16183. 2012.51 s [opt-env-conf-test] withFrozenCallStack $
  16184. 2012.51 s [opt-env-conf-test] choice $
  16185. 2012.51 s [opt-env-conf-test] catMaybes
  16186. 2012.51 s [opt-env-conf-test] - [ bareOption,
  16187. 2012.51 s [opt-env-conf-test] fileOption,
  16188. 2012.51 s [opt-env-conf-test] bareEnv,
  16189. 2012.51 s [opt-env-conf-test] fileEnv,
  16190. 2012.51 s [opt-env-conf-test] bareConf,
  16191. 2012.51 s [opt-env-conf-test] fileConf
  16192. 2012.51 s [opt-env-conf-test] ]
  16193. 2012.51 s [opt-env-conf-test] where
  16194. 2012.51 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16195. 2012.51 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  16196. 2012.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
  16197. 2012.51 s [opt-env-conf-test] @@ -1027,7 +1027,6 @@
  16198. 2012.51 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16199. 2012.51 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  16200. 2012.51 s [opt-env-conf-test] bareSetting p f = do
  16201. 2012.51 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
  16202. 2012.51 s [opt-env-conf-test] guard $ p s
  16203. 2012.51 s [opt-env-conf-test] pure $
  16204. 2012.51 s [opt-env-conf-test] -- Require the capability for the entire setting because the secret may be
  16205. 2012.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
  16206. 2012.51 s [opt-env-conf-test] @@ -1027,7 +1027,6 @@
  16207. 2012.51 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16208. 2012.51 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  16209. 2012.51 s [opt-env-conf-test] bareSetting p f = do
  16210. 2012.51 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
  16211. 2012.51 s [opt-env-conf-test] guard $ p s
  16212. 2012.51 s [opt-env-conf-test] pure $
  16213. 2012.51 s [opt-env-conf-test] -- Require the capability for the entire setting because the secret may be
  16214. 2012.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
  16215. 2012.51 s [opt-env-conf-test] @@ -1027,7 +1027,6 @@
  16216. 2012.51 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16217. 2012.51 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  16218. 2012.51 s [opt-env-conf-test] bareSetting p f = do
  16219. 2012.51 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
  16220. 2012.51 s [opt-env-conf-test] guard $ p s
  16221. 2012.51 s [opt-env-conf-test] pure $
  16222. 2012.51 s [opt-env-conf-test] -- Require the capability for the entire setting because the secret may be
  16223. 2012.51 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1055:12-18
  16224. 2012.51 s [opt-env-conf-test] @@ -1052,7 +1052,7 @@
  16225. 2012.51 s [opt-env-conf-test] BuildAddEnv _ -> Nothing
  16226. 2012.51 s [opt-env-conf-test] BuildAddConf _ -> Nothing
  16227. 2012.51 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  16228. 2012.51 s [opt-env-conf-test] - i -> Just i
  16229. 2012.51 s [opt-env-conf-test] + i -> Nothing
  16230. 2012.51 s [opt-env-conf-test] fileOption = fileSetting settingTryOption $ \case
  16231. 2012.51 s [opt-env-conf-test] BuildTryArgument -> Nothing
  16232. 2012.51 s [opt-env-conf-test] BuildAddShort _ -> Nothing
  16233. 2012.51 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1072:12-18
  16234. 2012.51 s [opt-env-conf-test] @@ -1069,7 +1069,7 @@
  16235. 2012.51 s [opt-env-conf-test] BuildAddEnv v -> Just $ BuildAddEnv v
  16236. 2012.51 s [opt-env-conf-test] BuildAddConf _ -> Nothing
  16237. 2012.51 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  16238. 2012.51 s [opt-env-conf-test] - i -> Just i
  16239. 2012.51 s [opt-env-conf-test] + i -> Nothing
  16240. 2012.51 s [opt-env-conf-test] fileEnv = fileSetting (isJust . settingEnvVars) $ \case
  16241. 2012.51 s [opt-env-conf-test] BuildTryArgument -> Nothing
  16242. 2012.51 s [opt-env-conf-test] BuildTryOption -> Nothing
  16243. 2012.51 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1093:12-18
  16244. 2012.51 s [opt-env-conf-test] @@ -1090,7 +1090,7 @@
  16245. 2012.52 s [opt-env-conf-test] BuildAddEnv _ -> Nothing
  16246. 2012.52 s [opt-env-conf-test] BuildAddConf k -> Just $ BuildAddConf k
  16247. 2012.52 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  16248. 2012.52 s [opt-env-conf-test] - i -> Just i
  16249. 2012.52 s [opt-env-conf-test] + i -> Nothing
  16250. 2012.52 s [opt-env-conf-test] fileConf = fileSetting (isJust . settingConfigVals) $ \case
  16251. 2012.52 s [opt-env-conf-test] BuildTryArgument -> Nothing
  16252. 2012.52 s [opt-env-conf-test] BuildTryOption -> Nothing
  16253. 2012.52 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
  16254. 2012.52 s [opt-env-conf-test] @@ -1035,7 +1035,6 @@
  16255. 2012.52 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  16256. 2012.52 s [opt-env-conf-test] T.pack <$> ParserSetting mLoc s
  16257. 2012.52 s [opt-env-conf-test] fileSetting p f = do
  16258. 2012.52 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
  16259. 2012.52 s [opt-env-conf-test] guard $ p s
  16260. 2012.52 s [opt-env-conf-test] pure $
  16261. 2012.52 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  16262. 2012.52 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
  16263. 2012.52 s [opt-env-conf-test] @@ -1035,7 +1035,6 @@
  16264. 2012.52 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  16265. 2012.52 s [opt-env-conf-test] T.pack <$> ParserSetting mLoc s
  16266. 2012.52 s [opt-env-conf-test] fileSetting p f = do
  16267. 2012.52 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
  16268. 2012.52 s [opt-env-conf-test] guard $ p s
  16269. 2012.52 s [opt-env-conf-test] pure $
  16270. 2012.52 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  16271. 2012.52 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
  16272. 2012.52 s [opt-env-conf-test] @@ -1035,7 +1035,6 @@
  16273. 2012.52 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  16274. 2012.52 s [opt-env-conf-test] T.pack <$> ParserSetting mLoc s
  16275. 2012.52 s [opt-env-conf-test] fileSetting p f = do
  16276. 2012.52 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
  16277. 2012.52 s [opt-env-conf-test] guard $ p s
  16278. 2012.52 s [opt-env-conf-test] pure $
  16279. 2012.52 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  16280. 2012.52 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1063:12-18
  16281. 2012.52 s [opt-env-conf-test] @@ -1060,7 +1060,7 @@
  16282. 2012.52 s [opt-env-conf-test] BuildAddEnv _ -> Nothing
  16283. 2012.52 s [opt-env-conf-test] BuildAddConf _ -> Nothing
  16284. 2012.52 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  16285. 2012.52 s [opt-env-conf-test] - i -> Just i
  16286. 2012.52 s [opt-env-conf-test] + i -> Nothing
  16287. 2012.52 s [opt-env-conf-test] bareEnv = bareSetting (isJust . settingEnvVars) $ \case
  16288. 2012.52 s [opt-env-conf-test] BuildTryArgument -> Nothing
  16289. 2012.52 s [opt-env-conf-test] BuildTryOption -> Nothing
  16290. 2012.52 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1084:12-18
  16291. 2012.52 s [opt-env-conf-test] @@ -1081,7 +1081,7 @@
  16292. 2012.52 s [opt-env-conf-test] suffixEnvVarSetting "_FILE" e
  16293. 2012.52 s [opt-env-conf-test] BuildAddConf _ -> Nothing
  16294. 2012.52 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  16295. 2012.52 s [opt-env-conf-test] - i -> Just i
  16296. 2012.52 s [opt-env-conf-test] + i -> Nothing
  16297. 2012.52 s [opt-env-conf-test] bareConf = bareSetting (isJust . settingConfigVals) $ \case
  16298. 2012.52 s [opt-env-conf-test] BuildTryArgument -> Nothing
  16299. 2012.52 s [opt-env-conf-test] BuildTryOption -> Nothing
  16300. 2012.52 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1102:12-18
  16301. 2012.52 s [opt-env-conf-test] @@ -1099,7 +1099,7 @@
  16302. 2012.52 s [opt-env-conf-test] BuildAddEnv _ -> Nothing
  16303. 2018.02 s [opt-env-conf-test] BuildAddConf k -> Just $ BuildAddConf $ suffixConfigValSettingKey "-file" k
  16304. 2018.04 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  16305. 2018.04 s [opt-env-conf-test] - i -> Just i
  16306. 2018.04 s [opt-env-conf-test] + i -> Nothing
  16307. 2018.04 s [opt-env-conf-test]
  16308. 2018.04 s [opt-env-conf-test] -- | Prefix all 'long's and 'short's with a given 'String'.
  16309. 2018.04 s [opt-env-conf-test] {-# ANN subArgs ("NOCOVER" :: String) #-}
  16310. 2018.04 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:563:72-117
  16311. 2018.04 s [opt-env-conf-test] @@ -560,7 +560,7 @@
  16312. 2018.04 s [opt-env-conf-test] ParserCommands {} -> p'
  16313. 2018.04 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16314. 2018.04 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16315. 2018.04 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16316. 2018.04 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Nothing}
  16317. 2018.04 s [opt-env-conf-test] Just _ -> p
  16318. 2018.04 s [opt-env-conf-test]
  16319. 2018.04 s [opt-env-conf-test] -- | Try a list of parsers in order
  16320. 2018.04 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
  16321. 2018.04 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  16322. 2018.05 s [opt-env-conf-test] ParserCheck {} -> p'
  16323. 2018.05 s [opt-env-conf-test] ParserCommands {} -> p'
  16324. 2018.05 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16325. 2018.05 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16326. 2018.05 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16327. 2018.05 s [opt-env-conf-test] - Just _ -> p
  16328. 2018.05 s [opt-env-conf-test]
  16329. 2018.05 s [opt-env-conf-test] -- | Try a list of parsers in order
  16330. 2018.05 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16331. 2018.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
  16332. 2018.05 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  16333. 2018.05 s [opt-env-conf-test] ParserCheck {} -> p'
  16334. 2018.05 s [opt-env-conf-test] ParserCommands {} -> p'
  16335. 2018.05 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16336. 2018.05 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16337. 2018.05 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16338. 2018.05 s [opt-env-conf-test] Just _ -> p
  16339. 2018.05 s [opt-env-conf-test]
  16340. 2018.05 s [opt-env-conf-test] -- | Try a list of parsers in order
  16341. 2018.05 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16342. 2018.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16343. 2018.05 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16344. 2018.05 s [opt-env-conf-test] where
  16345. 2018.05 s [opt-env-conf-test] go p =
  16346. 2018.05 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16347. 2018.05 s [opt-env-conf-test] in case p of
  16348. 2018.05 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  16349. 2018.05 s [opt-env-conf-test] ParserAp {} -> p'
  16350. 2018.05 s [opt-env-conf-test] ParserSelect {} -> p'
  16351. 2018.05 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16352. 2018.05 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16353. 2018.05 s [opt-env-conf-test] ParserMany {} -> p'
  16354. 2018.05 s [opt-env-conf-test] ParserSome {} -> p'
  16355. 2018.05 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16356. 2018.06 s [opt-env-conf-test] ParserCheck {} -> p'
  16357. 2018.06 s [opt-env-conf-test] ParserCommands {} -> p'
  16358. 2018.06 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16359. 2018.06 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16360. 2018.06 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16361. 2018.06 s [opt-env-conf-test] Just _ -> p
  16362. 2018.06 s [opt-env-conf-test]
  16363. 2018.06 s [opt-env-conf-test] -- | Try a list of parsers in order
  16364. 2018.06 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16365. 2018.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16366. 2018.06 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16367. 2018.06 s [opt-env-conf-test] where
  16368. 2018.06 s [opt-env-conf-test] go p =
  16369. 2018.06 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16370. 2018.06 s [opt-env-conf-test] in case p of
  16371. 2018.06 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16372. 2018.06 s [opt-env-conf-test] - ParserAp {} -> p'
  16373. 2018.06 s [opt-env-conf-test] ParserSelect {} -> p'
  16374. 2018.06 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16375. 2018.06 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16376. 2018.06 s [opt-env-conf-test] ParserMany {} -> p'
  16377. 2018.06 s [opt-env-conf-test] ParserSome {} -> p'
  16378. 2018.06 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16379. 2018.06 s [opt-env-conf-test] ParserCheck {} -> p'
  16380. 2018.06 s [opt-env-conf-test] ParserCommands {} -> p'
  16381. 2018.06 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16382. 2018.06 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16383. 2018.06 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16384. 2018.06 s [opt-env-conf-test] Just _ -> p
  16385. 2018.06 s [opt-env-conf-test]
  16386. 2018.06 s [opt-env-conf-test] -- | Try a list of parsers in order
  16387. 2018.06 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16388. 2018.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16389. 2018.06 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16390. 2018.06 s [opt-env-conf-test] where
  16391. 2018.06 s [opt-env-conf-test] go p =
  16392. 2018.06 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16393. 2018.06 s [opt-env-conf-test] in case p of
  16394. 2018.06 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16395. 2018.07 s [opt-env-conf-test] ParserAp {} -> p'
  16396. 2018.07 s [opt-env-conf-test] - ParserSelect {} -> p'
  16397. 2018.07 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16398. 2018.07 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16399. 2018.07 s [opt-env-conf-test] ParserMany {} -> p'
  16400. 2018.07 s [opt-env-conf-test] ParserSome {} -> p'
  16401. 2018.07 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16402. 2018.07 s [opt-env-conf-test] ParserCheck {} -> p'
  16403. 2018.07 s [opt-env-conf-test] ParserCommands {} -> p'
  16404. 2018.07 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16405. 2018.07 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16406. 2018.07 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16407. 2018.07 s [opt-env-conf-test] Just _ -> p
  16408. 2018.07 s [opt-env-conf-test]
  16409. 2018.07 s [opt-env-conf-test] -- | Try a list of parsers in order
  16410. 2018.07 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16411. 2018.07 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16412. 2018.07 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16413. 2018.07 s [opt-env-conf-test] where
  16414. 2018.07 s [opt-env-conf-test] go p =
  16415. 2018.07 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16416. 2018.07 s [opt-env-conf-test] in case p of
  16417. 2018.07 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16418. 2018.07 s [opt-env-conf-test] ParserAp {} -> p'
  16419. 2018.07 s [opt-env-conf-test] ParserSelect {} -> p'
  16420. 2018.07 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  16421. 2018.07 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16422. 2018.07 s [opt-env-conf-test] ParserMany {} -> p'
  16423. 2018.07 s [opt-env-conf-test] ParserSome {} -> p'
  16424. 2018.07 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16425. 2018.07 s [opt-env-conf-test] ParserCheck {} -> p'
  16426. 2018.07 s [opt-env-conf-test] ParserCommands {} -> p'
  16427. 2018.07 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16428. 2018.07 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16429. 2018.07 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16430. 2018.07 s [opt-env-conf-test] Just _ -> p
  16431. 2018.07 s [opt-env-conf-test]
  16432. 2018.07 s [opt-env-conf-test] -- | Try a list of parsers in order
  16433. 2018.07 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16434. 2018.07 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16435. 2018.07 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16436. 2018.07 s [opt-env-conf-test] where
  16437. 2018.07 s [opt-env-conf-test] go p =
  16438. 2018.07 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16439. 2018.07 s [opt-env-conf-test] in case p of
  16440. 2018.07 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16441. 2018.07 s [opt-env-conf-test] ParserAp {} -> p'
  16442. 2018.07 s [opt-env-conf-test] ParserSelect {} -> p'
  16443. 2018.07 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16444. 2018.07 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16445. 2018.08 s [opt-env-conf-test] ParserMany {} -> p'
  16446. 2018.08 s [opt-env-conf-test] ParserSome {} -> p'
  16447. 2018.08 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16448. 2018.08 s [opt-env-conf-test] ParserCheck {} -> p'
  16449. 2018.08 s [opt-env-conf-test] ParserCommands {} -> p'
  16450. 2018.08 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16451. 2018.08 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16452. 2018.08 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16453. 2018.08 s [opt-env-conf-test] Just _ -> p
  16454. 2018.08 s [opt-env-conf-test]
  16455. 2018.08 s [opt-env-conf-test] -- | Try a list of parsers in order
  16456. 2018.08 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16457. 2018.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16458. 2018.08 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16459. 2018.08 s [opt-env-conf-test] where
  16460. 2018.08 s [opt-env-conf-test] go p =
  16461. 2018.08 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16462. 2018.08 s [opt-env-conf-test] in case p of
  16463. 2018.08 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16464. 2018.08 s [opt-env-conf-test] ParserAp {} -> p'
  16465. 2018.08 s [opt-env-conf-test] ParserSelect {} -> p'
  16466. 2018.08 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16467. 2018.08 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16468. 2018.08 s [opt-env-conf-test] - ParserMany {} -> p'
  16469. 2018.08 s [opt-env-conf-test] ParserSome {} -> p'
  16470. 2018.08 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16471. 2018.08 s [opt-env-conf-test] ParserCheck {} -> p'
  16472. 2018.08 s [opt-env-conf-test] ParserCommands {} -> p'
  16473. 2018.08 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16474. 2018.08 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16475. 2018.08 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16476. 2018.08 s [opt-env-conf-test] Just _ -> p
  16477. 2018.08 s [opt-env-conf-test]
  16478. 2018.08 s [opt-env-conf-test] -- | Try a list of parsers in order
  16479. 2018.08 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16480. 2018.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16481. 2018.08 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16482. 2018.08 s [opt-env-conf-test] where
  16483. 2018.08 s [opt-env-conf-test] go p =
  16484. 2018.08 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16485. 2018.08 s [opt-env-conf-test] in case p of
  16486. 2018.08 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16487. 2018.08 s [opt-env-conf-test] ParserAp {} -> p'
  16488. 2018.08 s [opt-env-conf-test] ParserSelect {} -> p'
  16489. 2018.09 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16490. 2018.09 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16491. 2018.09 s [opt-env-conf-test] ParserMany {} -> p'
  16492. 2018.09 s [opt-env-conf-test] - ParserSome {} -> p'
  16493. 2018.09 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16494. 2024.65 s [opt-env-conf-test] ParserCheck {} -> p'
  16495. 2024.65 s [opt-env-conf-test] ParserCommands {} -> p'
  16496. 2024.65 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16497. 2024.67 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16498. 2024.67 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16499. 2024.67 s [opt-env-conf-test] Just _ -> p
  16500. 2024.67 s [opt-env-conf-test]
  16501. 2024.67 s [opt-env-conf-test] -- | Try a list of parsers in order
  16502. 2024.67 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16503. 2024.67 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16504. 2024.67 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16505. 2024.67 s [opt-env-conf-test] where
  16506. 2024.67 s [opt-env-conf-test] go p =
  16507. 2024.67 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16508. 2024.67 s [opt-env-conf-test] in case p of
  16509. 2024.67 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16510. 2024.68 s [opt-env-conf-test] ParserAp {} -> p'
  16511. 2024.68 s [opt-env-conf-test] ParserSelect {} -> p'
  16512. 2024.68 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16513. 2024.68 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16514. 2024.68 s [opt-env-conf-test] ParserMany {} -> p'
  16515. 2024.68 s [opt-env-conf-test] ParserSome {} -> p'
  16516. 2024.68 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  16517. 2024.68 s [opt-env-conf-test] ParserCheck {} -> p'
  16518. 2024.68 s [opt-env-conf-test] ParserCommands {} -> p'
  16519. 2024.68 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16520. 2024.68 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16521. 2024.68 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16522. 2024.68 s [opt-env-conf-test] Just _ -> p
  16523. 2024.68 s [opt-env-conf-test]
  16524. 2024.68 s [opt-env-conf-test] -- | Try a list of parsers in order
  16525. 2024.68 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16526. 2024.68 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16527. 2024.68 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16528. 2024.68 s [opt-env-conf-test] where
  16529. 2024.68 s [opt-env-conf-test] go p =
  16530. 2024.68 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16531. 2024.68 s [opt-env-conf-test] in case p of
  16532. 2024.68 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16533. 2024.68 s [opt-env-conf-test] ParserAp {} -> p'
  16534. 2024.68 s [opt-env-conf-test] ParserSelect {} -> p'
  16535. 2024.68 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16536. 2024.68 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16537. 2024.68 s [opt-env-conf-test] ParserMany {} -> p'
  16538. 2024.68 s [opt-env-conf-test] ParserSome {} -> p'
  16539. 2024.68 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16540. 2024.68 s [opt-env-conf-test] - ParserCheck {} -> p'
  16541. 2024.68 s [opt-env-conf-test] ParserCommands {} -> p'
  16542. 2024.68 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16543. 2024.68 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16544. 2024.68 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16545. 2024.68 s [opt-env-conf-test] Just _ -> p
  16546. 2024.68 s [opt-env-conf-test]
  16547. 2024.68 s [opt-env-conf-test] -- | Try a list of parsers in order
  16548. 2024.68 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16549. 2024.69 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16550. 2024.69 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16551. 2024.69 s [opt-env-conf-test] where
  16552. 2024.69 s [opt-env-conf-test] go p =
  16553. 2024.69 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16554. 2024.69 s [opt-env-conf-test] in case p of
  16555. 2024.69 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16556. 2024.69 s [opt-env-conf-test] ParserAp {} -> p'
  16557. 2024.69 s [opt-env-conf-test] ParserSelect {} -> p'
  16558. 2024.69 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16559. 2024.69 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16560. 2024.69 s [opt-env-conf-test] ParserMany {} -> p'
  16561. 2024.69 s [opt-env-conf-test] ParserSome {} -> p'
  16562. 2024.69 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16563. 2024.69 s [opt-env-conf-test] ParserCheck {} -> p'
  16564. 2024.69 s [opt-env-conf-test] - ParserCommands {} -> p'
  16565. 2024.69 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16566. 2024.69 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16567. 2024.69 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16568. 2024.69 s [opt-env-conf-test] Just _ -> p
  16569. 2024.69 s [opt-env-conf-test]
  16570. 2024.69 s [opt-env-conf-test] -- | Try a list of parsers in order
  16571. 2024.69 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16572. 2024.69 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16573. 2024.69 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  16574. 2024.69 s [opt-env-conf-test] where
  16575. 2024.69 s [opt-env-conf-test] go p =
  16576. 2024.69 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16577. 2024.69 s [opt-env-conf-test] in case p of
  16578. 2024.69 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16579. 2024.69 s [opt-env-conf-test] ParserAp {} -> p'
  16580. 2024.69 s [opt-env-conf-test] ParserSelect {} -> p'
  16581. 2024.69 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16582. 2024.69 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16583. 2024.70 s [opt-env-conf-test] ParserMany {} -> p'
  16584. 2024.70 s [opt-env-conf-test] ParserSome {} -> p'
  16585. 2024.70 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16586. 2024.70 s [opt-env-conf-test] ParserCheck {} -> p'
  16587. 2024.70 s [opt-env-conf-test] ParserCommands {} -> p'
  16588. 2024.70 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  16589. 2024.70 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  16590. 2024.70 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16591. 2024.70 s [opt-env-conf-test] Just _ -> p
  16592. 2024.70 s [opt-env-conf-test]
  16593. 2024.70 s [opt-env-conf-test] -- | Try a list of parsers in order
  16594. 2024.70 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16595. 2024.70 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  16596. 2024.70 s [opt-env-conf-test] @@ -547,21 +547,18 @@
  16597. 2024.70 s [opt-env-conf-test] where
  16598. 2024.70 s [opt-env-conf-test] go p =
  16599. 2024.70 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  16600. 2024.70 s [opt-env-conf-test] in case p of
  16601. 2024.70 s [opt-env-conf-test] ParserPure a -> ParserPure a
  16602. 2024.70 s [opt-env-conf-test] ParserAp {} -> p'
  16603. 2024.70 s [opt-env-conf-test] ParserSelect {} -> p'
  16604. 2024.70 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  16605. 2024.70 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  16606. 2024.70 s [opt-env-conf-test] ParserMany {} -> p'
  16607. 2024.70 s [opt-env-conf-test] ParserSome {} -> p'
  16608. 2024.70 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  16609. 2024.70 s [opt-env-conf-test] ParserCheck {} -> p'
  16610. 2024.70 s [opt-env-conf-test] ParserCommands {} -> p'
  16611. 2024.70 s [opt-env-conf-test] ParserWithConfig {} -> p'
  16612. 2024.70 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  16613. 2024.70 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  16614. 2024.70 s [opt-env-conf-test] - Just _ -> p
  16615. 2024.70 s [opt-env-conf-test]
  16616. 2024.70 s [opt-env-conf-test] -- | Try a list of parsers in order
  16617. 2024.70 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  16618. 2024.70 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:877:11-26
  16619. 2024.70 s [opt-env-conf-test] @@ -874,7 +874,7 @@
  16620. 2024.71 s [opt-env-conf-test] withFrozenCallStack $
  16621. 2024.71 s [opt-env-conf-test] choice $
  16622. 2024.71 s [opt-env-conf-test] catMaybes
  16623. 2024.71 s [opt-env-conf-test] - [ Just parseDummy,
  16624. 2024.71 s [opt-env-conf-test] + [ Nothing,
  16625. 2024.71 s [opt-env-conf-test] Just parseDisableSwitch,
  16626. 2024.71 s [opt-env-conf-test] Just parseEnableSwitch,
  16627. 2024.71 s [opt-env-conf-test] parseEnv,
  16628. 2024.71 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:878:11-34
  16629. 2024.71 s [opt-env-conf-test] @@ -875,7 +875,7 @@
  16630. 2024.71 s [opt-env-conf-test] choice $
  16631. 2024.71 s [opt-env-conf-test] catMaybes
  16632. 2024.71 s [opt-env-conf-test] [ Just parseDummy,
  16633. 2024.71 s [opt-env-conf-test] - Just parseDisableSwitch,
  16634. 2024.71 s [opt-env-conf-test] + Nothing,
  16635. 2024.71 s [opt-env-conf-test] Just parseEnableSwitch,
  16636. 2024.71 s [opt-env-conf-test] parseEnv,
  16637. 2024.71 s [opt-env-conf-test] parseConfigVal,
  16638. 2024.71 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:879:11-33
  16639. 2024.71 s [opt-env-conf-test] @@ -876,7 +876,7 @@
  16640. 2024.72 s [opt-env-conf-test] catMaybes
  16641. 2024.72 s [opt-env-conf-test] [ Just parseDummy,
  16642. 2024.72 s [opt-env-conf-test] Just parseDisableSwitch,
  16643. 2024.72 s [opt-env-conf-test] - Just parseEnableSwitch,
  16644. 2024.72 s [opt-env-conf-test] + Nothing,
  16645. 2024.72 s [opt-env-conf-test] parseEnv,
  16646. 2024.72 s [opt-env-conf-test] parseConfigVal,
  16647. 2024.72 s [opt-env-conf-test] parseDefaultVal
  16648. 2024.72 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
  16649. 2024.72 s [opt-env-conf-test] @@ -874,13 +874,7 @@
  16650. 2024.72 s [opt-env-conf-test] withFrozenCallStack $
  16651. 2024.72 s [opt-env-conf-test] choice $
  16652. 2024.72 s [opt-env-conf-test] catMaybes
  16653. 2024.72 s [opt-env-conf-test] - [ Just parseDummy,
  16654. 2024.72 s [opt-env-conf-test] - Just parseDisableSwitch,
  16655. 2024.72 s [opt-env-conf-test] - Just parseEnableSwitch,
  16656. 2024.72 s [opt-env-conf-test] - parseEnv,
  16657. 2024.72 s [opt-env-conf-test] - parseConfigVal,
  16658. 2024.72 s [opt-env-conf-test] - parseDefaultVal
  16659. 2024.72 s [opt-env-conf-test] ]
  16660. 2024.72 s [opt-env-conf-test] where
  16661. 2024.72 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16662. 2024.72 s [opt-env-conf-test] s = buildSetting builders
  16663. 2024.72 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
  16664. 2024.72 s [opt-env-conf-test] @@ -874,13 +874,12 @@
  16665. 2024.73 s [opt-env-conf-test] withFrozenCallStack $
  16666. 2024.73 s [opt-env-conf-test] choice $
  16667. 2024.73 s [opt-env-conf-test] catMaybes
  16668. 2024.73 s [opt-env-conf-test] - [ Just parseDummy,
  16669. 2024.73 s [opt-env-conf-test] Just parseDisableSwitch,
  16670. 2024.73 s [opt-env-conf-test] Just parseEnableSwitch,
  16671. 2024.73 s [opt-env-conf-test] parseEnv,
  16672. 2024.73 s [opt-env-conf-test] parseConfigVal,
  16673. 2024.73 s [opt-env-conf-test] parseDefaultVal
  16674. 2024.73 s [opt-env-conf-test] ]
  16675. 2024.73 s [opt-env-conf-test] where
  16676. 2024.73 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16677. 2024.73 s [opt-env-conf-test] s = buildSetting builders
  16678. 2024.73 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
  16679. 2024.73 s [opt-env-conf-test] @@ -874,13 +874,12 @@
  16680. 2024.73 s [opt-env-conf-test] withFrozenCallStack $
  16681. 2024.73 s [opt-env-conf-test] choice $
  16682. 2024.73 s [opt-env-conf-test] catMaybes
  16683. 2024.73 s [opt-env-conf-test] [ Just parseDummy,
  16684. 2024.73 s [opt-env-conf-test] Just parseDisableSwitch,
  16685. 2024.73 s [opt-env-conf-test] Just parseEnableSwitch,
  16686. 2024.73 s [opt-env-conf-test] parseEnv,
  16687. 2024.73 s [opt-env-conf-test] parseConfigVal,
  16688. 2024.73 s [opt-env-conf-test] - parseDefaultVal
  16689. 2024.73 s [opt-env-conf-test] ]
  16690. 2024.73 s [opt-env-conf-test] where
  16691. 2024.73 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  16692. 2024.73 s [opt-env-conf-test] s = buildSetting builders
  16693. 2024.73 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
  16694. 2024.73 s [opt-env-conf-test] @@ -887,7 +887,7 @@
  16695. 2024.73 s [opt-env-conf-test] parseDefaultVal :: Maybe (Parser Bool)
  16696. 2024.73 s [opt-env-conf-test] parseDefaultVal = do
  16697. 2024.73 s [opt-env-conf-test] (dv, _) <- settingDefaultValue s
  16698. 2024.73 s [opt-env-conf-test] - pure $ pure dv
  16699. 2024.74 s [opt-env-conf-test] + pure $ pure True
  16700. 2024.74 s [opt-env-conf-test]
  16701. 2024.74 s [opt-env-conf-test] parseEnableSwitch :: Parser Bool
  16702. 2024.74 s [opt-env-conf-test] parseEnableSwitch =
  16703. 2027.54 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
  16704. 2027.54 s [opt-env-conf-test] @@ -887,7 +887,7 @@
  16705. 2027.55 s [opt-env-conf-test] parseDefaultVal :: Maybe (Parser Bool)
  16706. 2027.55 s [opt-env-conf-test] parseDefaultVal = do
  16707. 2027.55 s [opt-env-conf-test] (dv, _) <- settingDefaultValue s
  16708. 2027.55 s [opt-env-conf-test] - pure $ pure dv
  16709. 2027.55 s [opt-env-conf-test] + pure $ pure False
  16710. 2027.55 s [opt-env-conf-test]
  16711. 2027.55 s [opt-env-conf-test] parseEnableSwitch :: Parser Bool
  16712. 2027.55 s [opt-env-conf-test] parseEnableSwitch =
  16713. 2027.55 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:890:19-21
  16714. 2027.55 s [opt-env-conf-test] @@ -887,7 +887,7 @@
  16715. 2027.55 s [opt-env-conf-test] parseDefaultVal :: Maybe (Parser Bool)
  16716. 2027.55 s [opt-env-conf-test] parseDefaultVal = do
  16717. 2027.55 s [opt-env-conf-test] (dv, _) <- settingDefaultValue s
  16718. 2027.55 s [opt-env-conf-test] - pure $ pure dv
  16719. 2027.55 s [opt-env-conf-test] + pure $ pure not (dv)
  16720. 2027.55 s [opt-env-conf-test]
  16721. 2027.55 s [opt-env-conf-test] parseEnableSwitch :: Parser Bool
  16722. 2027.55 s [opt-env-conf-test] parseEnableSwitch =
  16723. 2027.55 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:898:34-39
  16724. 2027.55 s [opt-env-conf-test] @@ -895,7 +895,7 @@
  16725. 2027.55 s [opt-env-conf-test] Setting
  16726. 2027.55 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
  16727. 2027.55 s [opt-env-conf-test] settingReaders = [],
  16728. 2027.55 s [opt-env-conf-test] - settingTryArgument = False,
  16729. 2027.55 s [opt-env-conf-test] + settingTryArgument = True,
  16730. 2027.55 s [opt-env-conf-test] settingSwitchValue = Just True,
  16731. 2027.55 s [opt-env-conf-test] settingTryOption = False,
  16732. 2027.56 s [opt-env-conf-test] settingEnvVars = Nothing,
  16733. 2027.56 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:899:39-43
  16734. 2027.56 s [opt-env-conf-test] @@ -896,7 +896,7 @@
  16735. 2027.56 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
  16736. 2027.56 s [opt-env-conf-test] settingReaders = [],
  16737. 2027.56 s [opt-env-conf-test] settingTryArgument = False,
  16738. 2027.56 s [opt-env-conf-test] - settingSwitchValue = Just True,
  16739. 2027.56 s [opt-env-conf-test] + settingSwitchValue = Just False,
  16740. 2027.56 s [opt-env-conf-test] settingTryOption = False,
  16741. 2027.56 s [opt-env-conf-test] settingEnvVars = Nothing,
  16742. 2027.56 s [opt-env-conf-test] settingConfigVals = Nothing,
  16743. 2027.56 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:899:34-43
  16744. 2027.56 s [opt-env-conf-test] @@ -896,7 +896,7 @@
  16745. 2027.56 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
  16746. 2027.56 s [opt-env-conf-test] settingReaders = [],
  16747. 2027.56 s [opt-env-conf-test] settingTryArgument = False,
  16748. 2027.56 s [opt-env-conf-test] - settingSwitchValue = Just True,
  16749. 2027.56 s [opt-env-conf-test] + settingSwitchValue = Nothing,
  16750. 2027.56 s [opt-env-conf-test] settingTryOption = False,
  16751. 2027.56 s [opt-env-conf-test] settingEnvVars = Nothing,
  16752. 2027.56 s [opt-env-conf-test] settingConfigVals = Nothing,
  16753. 2027.56 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:900:32-37
  16754. 2027.56 s [opt-env-conf-test] @@ -897,7 +897,7 @@
  16755. 2027.56 s [opt-env-conf-test] settingReaders = [],
  16756. 2027.56 s [opt-env-conf-test] settingTryArgument = False,
  16757. 2027.56 s [opt-env-conf-test] settingSwitchValue = Just True,
  16758. 2027.56 s [opt-env-conf-test] - settingTryOption = False,
  16759. 2027.56 s [opt-env-conf-test] + settingTryOption = True,
  16760. 2027.56 s [opt-env-conf-test] settingEnvVars = Nothing,
  16761. 2027.56 s [opt-env-conf-test] settingConfigVals = Nothing,
  16762. 2027.56 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16763. 2027.56 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:905:29-33
  16764. 2027.56 s [opt-env-conf-test] @@ -902,7 +902,7 @@
  16765. 2027.56 s [opt-env-conf-test] settingConfigVals = Nothing,
  16766. 2027.56 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16767. 2027.56 s [opt-env-conf-test] settingExamples = [],
  16768. 2027.56 s [opt-env-conf-test] - settingHidden = True,
  16769. 2027.56 s [opt-env-conf-test] + settingHidden = False,
  16770. 2027.56 s [opt-env-conf-test] settingMetavar = Nothing,
  16771. 2027.56 s [opt-env-conf-test] settingHelp = Nothing,
  16772. 2027.56 s [opt-env-conf-test] settingCompleter = Nothing,
  16773. 2027.56 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:917:34-39
  16774. 2027.57 s [opt-env-conf-test] @@ -914,7 +914,7 @@
  16775. 2027.57 s [opt-env-conf-test] Setting
  16776. 2027.57 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
  16777. 2027.57 s [opt-env-conf-test] settingReaders = [],
  16778. 2027.57 s [opt-env-conf-test] - settingTryArgument = False,
  16779. 2027.57 s [opt-env-conf-test] + settingTryArgument = True,
  16780. 2027.57 s [opt-env-conf-test] settingSwitchValue = Just False,
  16781. 2027.57 s [opt-env-conf-test] settingTryOption = False,
  16782. 2027.57 s [opt-env-conf-test] settingEnvVars = Nothing,
  16783. 2027.57 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:918:39-44
  16784. 2027.57 s [opt-env-conf-test] @@ -915,7 +915,7 @@
  16785. 2027.57 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
  16786. 2027.57 s [opt-env-conf-test] settingReaders = [],
  16787. 2027.57 s [opt-env-conf-test] settingTryArgument = False,
  16788. 2027.57 s [opt-env-conf-test] - settingSwitchValue = Just False,
  16789. 2027.57 s [opt-env-conf-test] + settingSwitchValue = Just True,
  16790. 2027.57 s [opt-env-conf-test] settingTryOption = False,
  16791. 2027.57 s [opt-env-conf-test] settingEnvVars = Nothing,
  16792. 2027.57 s [opt-env-conf-test] settingConfigVals = Nothing,
  16793. 2027.57 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:918:34-44
  16794. 2027.57 s [opt-env-conf-test] @@ -915,7 +915,7 @@
  16795. 2027.57 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
  16796. 2027.57 s [opt-env-conf-test] settingReaders = [],
  16797. 2027.57 s [opt-env-conf-test] settingTryArgument = False,
  16798. 2027.57 s [opt-env-conf-test] - settingSwitchValue = Just False,
  16799. 2027.57 s [opt-env-conf-test] + settingSwitchValue = Nothing,
  16800. 2027.57 s [opt-env-conf-test] settingTryOption = False,
  16801. 2027.57 s [opt-env-conf-test] settingEnvVars = Nothing,
  16802. 2027.57 s [opt-env-conf-test] settingConfigVals = Nothing,
  16803. 2027.57 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:919:32-37
  16804. 2027.57 s [opt-env-conf-test] @@ -916,7 +916,7 @@
  16805. 2027.57 s [opt-env-conf-test] settingReaders = [],
  16806. 2027.57 s [opt-env-conf-test] settingTryArgument = False,
  16807. 2027.57 s [opt-env-conf-test] settingSwitchValue = Just False,
  16808. 2027.57 s [opt-env-conf-test] - settingTryOption = False,
  16809. 2027.57 s [opt-env-conf-test] + settingTryOption = True,
  16810. 2027.57 s [opt-env-conf-test] settingEnvVars = Nothing,
  16811. 2027.57 s [opt-env-conf-test] settingConfigVals = Nothing,
  16812. 2027.57 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16813. 2027.57 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:924:29-33
  16814. 2027.57 s [opt-env-conf-test] @@ -921,7 +921,7 @@
  16815. 2027.57 s [opt-env-conf-test] settingConfigVals = Nothing,
  16816. 2027.57 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16817. 2027.57 s [opt-env-conf-test] settingExamples = [],
  16818. 2027.57 s [opt-env-conf-test] - settingHidden = True,
  16819. 2027.57 s [opt-env-conf-test] + settingHidden = False,
  16820. 2027.57 s [opt-env-conf-test] settingMetavar = Nothing,
  16821. 2027.57 s [opt-env-conf-test] settingHelp = Nothing,
  16822. 2027.57 s [opt-env-conf-test] settingCompleter = Nothing,
  16823. 2027.57 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:939:36-41
  16824. 2027.57 s [opt-env-conf-test] @@ -936,7 +936,7 @@
  16825. 2027.57 s [opt-env-conf-test] Setting
  16826. 2027.57 s [opt-env-conf-test] { settingDasheds = [],
  16827. 2027.58 s [opt-env-conf-test] settingReaders = (auto :: Reader Bool) : settingReaders s,
  16828. 2027.58 s [opt-env-conf-test] - settingTryArgument = False,
  16829. 2027.58 s [opt-env-conf-test] + settingTryArgument = True,
  16830. 2027.58 s [opt-env-conf-test] settingSwitchValue = Nothing,
  16831. 2027.58 s [opt-env-conf-test] settingTryOption = False,
  16832. 2027.58 s [opt-env-conf-test] settingEnvVars = Just ne,
  16833. 2027.58 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:941:34-39
  16834. 2027.58 s [opt-env-conf-test] @@ -938,7 +938,7 @@
  16835. 2027.58 s [opt-env-conf-test] settingReaders = (auto :: Reader Bool) : settingReaders s,
  16836. 2027.58 s [opt-env-conf-test] settingTryArgument = False,
  16837. 2027.58 s [opt-env-conf-test] settingSwitchValue = Nothing,
  16838. 2027.58 s [opt-env-conf-test] - settingTryOption = False,
  16839. 2027.58 s [opt-env-conf-test] + settingTryOption = True,
  16840. 2027.58 s [opt-env-conf-test] settingEnvVars = Just ne,
  16841. 2027.58 s [opt-env-conf-test] settingConfigVals = Nothing,
  16842. 2027.58 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16843. 2027.58 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:942:32-39
  16844. 2027.58 s [opt-env-conf-test] @@ -939,7 +939,7 @@
  16845. 2027.58 s [opt-env-conf-test] settingTryArgument = False,
  16846. 2027.58 s [opt-env-conf-test] settingSwitchValue = Nothing,
  16847. 2027.58 s [opt-env-conf-test] settingTryOption = False,
  16848. 2027.58 s [opt-env-conf-test] - settingEnvVars = Just ne,
  16849. 2027.58 s [opt-env-conf-test] + settingEnvVars = Nothing,
  16850. 2027.58 s [opt-env-conf-test] settingConfigVals = Nothing,
  16851. 2027.58 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16852. 2027.58 s [opt-env-conf-test] settingExamples = [],
  16853. 2027.58 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:946:31-36
  16854. 2027.58 s [opt-env-conf-test] @@ -943,7 +943,7 @@
  16855. 2027.58 s [opt-env-conf-test] settingConfigVals = Nothing,
  16856. 2027.58 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16857. 2027.58 s [opt-env-conf-test] settingExamples = [],
  16858. 2027.58 s [opt-env-conf-test] - settingHidden = False,
  16859. 2027.58 s [opt-env-conf-test] + settingHidden = True,
  16860. 2027.60 s [opt-env-conf-test] settingMetavar = Just "BOOL",
  16861. 2027.60 s [opt-env-conf-test] settingHelp = settingHelp s,
  16862. 2027.60 s [opt-env-conf-test] settingCompleter = Nothing,
  16863. 2027.60 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:947:32-43
  16864. 2027.61 s [opt-env-conf-test] @@ -944,7 +944,7 @@
  16865. 2027.61 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16866. 2027.61 s [opt-env-conf-test] settingExamples = [],
  16867. 2027.61 s [opt-env-conf-test] settingHidden = False,
  16868. 2027.61 s [opt-env-conf-test] - settingMetavar = Just "BOOL",
  16869. 2027.61 s [opt-env-conf-test] + settingMetavar = Nothing,
  16870. 2027.61 s [opt-env-conf-test] settingHelp = settingHelp s,
  16871. 2027.61 s [opt-env-conf-test] settingCompleter = Nothing,
  16872. 2027.61 s [opt-env-conf-test] settingRequiredCapabilities = Set.empty
  16873. 2027.61 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:960:36-41
  16874. 2027.61 s [opt-env-conf-test] @@ -957,7 +957,7 @@
  16875. 2027.61 s [opt-env-conf-test] Setting
  16876. 2027.61 s [opt-env-conf-test] { settingDasheds = [],
  16877. 2027.61 s [opt-env-conf-test] settingReaders = [],
  16878. 2027.61 s [opt-env-conf-test] - settingTryArgument = False,
  16879. 2027.61 s [opt-env-conf-test] + settingTryArgument = True,
  16880. 2027.61 s [opt-env-conf-test] settingSwitchValue = Nothing,
  16881. 2027.61 s [opt-env-conf-test] settingTryOption = False,
  16882. 2027.61 s [opt-env-conf-test] settingEnvVars = Nothing,
  16883. 2027.61 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:962:34-39
  16884. 2027.61 s [opt-env-conf-test] @@ -959,7 +959,7 @@
  16885. 2027.61 s [opt-env-conf-test] settingReaders = [],
  16886. 2027.61 s [opt-env-conf-test] settingTryArgument = False,
  16887. 2027.61 s [opt-env-conf-test] settingSwitchValue = Nothing,
  16888. 2027.61 s [opt-env-conf-test] - settingTryOption = False,
  16889. 2027.61 s [opt-env-conf-test] + settingTryOption = True,
  16890. 2027.61 s [opt-env-conf-test] settingEnvVars = Nothing,
  16891. 2027.61 s [opt-env-conf-test] settingConfigVals = Just ne,
  16892. 2027.61 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16893. 2027.61 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:964:35-42
  16894. 2027.61 s [opt-env-conf-test] @@ -961,7 +961,7 @@
  16895. 2027.61 s [opt-env-conf-test] settingSwitchValue = Nothing,
  16896. 2027.62 s [opt-env-conf-test] settingTryOption = False,
  16897. 2027.62 s [opt-env-conf-test] settingEnvVars = Nothing,
  16898. 2027.62 s [opt-env-conf-test] - settingConfigVals = Just ne,
  16899. 2027.62 s [opt-env-conf-test] + settingConfigVals = Nothing,
  16900. 2027.62 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16901. 2027.62 s [opt-env-conf-test] settingExamples = [],
  16902. 2027.62 s [opt-env-conf-test] settingHidden = False,
  16903. 2027.62 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:967:31-36
  16904. 2027.62 s [opt-env-conf-test] @@ -964,7 +964,7 @@
  16905. 2027.62 s [opt-env-conf-test] settingConfigVals = Just ne,
  16906. 2027.62 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16907. 2027.62 s [opt-env-conf-test] settingExamples = [],
  16908. 2027.62 s [opt-env-conf-test] - settingHidden = False,
  16909. 2027.62 s [opt-env-conf-test] + settingHidden = True,
  16910. 2027.62 s [opt-env-conf-test] settingMetavar = Nothing,
  16911. 2027.62 s [opt-env-conf-test] settingHelp = settingHelp s,
  16912. 2027.62 s [opt-env-conf-test] settingCompleter = Nothing,
  16913. 2027.62 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:979:34-39
  16914. 2027.62 s [opt-env-conf-test] @@ -976,7 +976,7 @@
  16915. 2027.62 s [opt-env-conf-test] Setting
  16916. 2027.62 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
  16917. 2027.62 s [opt-env-conf-test] settingReaders = [],
  16918. 2027.62 s [opt-env-conf-test] - settingTryArgument = False,
  16919. 2027.62 s [opt-env-conf-test] + settingTryArgument = True,
  16920. 2027.62 s [opt-env-conf-test] settingSwitchValue = Just True, -- Unused
  16921. 2027.62 s [opt-env-conf-test] settingTryOption = False,
  16922. 2027.62 s [opt-env-conf-test] settingEnvVars = Nothing,
  16923. 2027.62 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:980:39-43
  16924. 2027.62 s [opt-env-conf-test] @@ -977,7 +977,7 @@
  16925. 2027.62 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
  16926. 2027.62 s [opt-env-conf-test] settingReaders = [],
  16927. 2027.63 s [opt-env-conf-test] settingTryArgument = False,
  16928. 2027.63 s [opt-env-conf-test] - settingSwitchValue = Just True, -- Unused
  16929. 2027.63 s [opt-env-conf-test] + settingSwitchValue = Just False, -- Unused
  16930. 2027.63 s [opt-env-conf-test] settingTryOption = False,
  16931. 2027.63 s [opt-env-conf-test] settingEnvVars = Nothing,
  16932. 2027.63 s [opt-env-conf-test] settingConfigVals = Nothing,
  16933. 2027.63 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:980:34-43
  16934. 2027.63 s [opt-env-conf-test] @@ -977,7 +977,7 @@
  16935. 2027.63 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
  16936. 2027.63 s [opt-env-conf-test] settingReaders = [],
  16937. 2027.63 s [opt-env-conf-test] settingTryArgument = False,
  16938. 2027.63 s [opt-env-conf-test] - settingSwitchValue = Just True, -- Unused
  16939. 2027.63 s [opt-env-conf-test] + settingSwitchValue = Nothing, -- Unused
  16940. 2027.63 s [opt-env-conf-test] settingTryOption = False,
  16941. 2027.63 s [opt-env-conf-test] settingEnvVars = Nothing,
  16942. 2027.63 s [opt-env-conf-test] settingConfigVals = Nothing,
  16943. 2027.63 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:981:32-37
  16944. 2027.63 s [opt-env-conf-test] @@ -978,7 +978,7 @@
  16945. 2027.63 s [opt-env-conf-test] settingReaders = [],
  16946. 2027.63 s [opt-env-conf-test] settingTryArgument = False,
  16947. 2027.63 s [opt-env-conf-test] settingSwitchValue = Just True, -- Unused
  16948. 2027.63 s [opt-env-conf-test] - settingTryOption = False,
  16949. 2027.63 s [opt-env-conf-test] + settingTryOption = True,
  16950. 2027.63 s [opt-env-conf-test] settingEnvVars = Nothing,
  16951. 2027.63 s [opt-env-conf-test] settingConfigVals = Nothing,
  16952. 2027.63 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16953. 2027.63 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:986:29-34
  16954. 2027.63 s [opt-env-conf-test] @@ -983,7 +983,7 @@
  16955. 2027.63 s [opt-env-conf-test] settingConfigVals = Nothing,
  16956. 2027.63 s [opt-env-conf-test] settingDefaultValue = Nothing,
  16957. 2027.63 s [opt-env-conf-test] settingExamples = [],
  16958. 2027.63 s [opt-env-conf-test] - settingHidden = False,
  16959. 2027.63 s [opt-env-conf-test] + settingHidden = True,
  16960. 2027.63 s [opt-env-conf-test] settingMetavar = Nothing,
  16961. 2027.63 s [opt-env-conf-test] settingHelp = settingHelp s,
  16962. 2027.63 s [opt-env-conf-test] settingCompleter = Nothing,
  16963. 2027.63 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
  16964. 2027.63 s [opt-env-conf-test] @@ -480,10 +480,7 @@
  16965. 2027.63 s [opt-env-conf-test] withFrozenCallStack $
  16966. 2027.63 s [opt-env-conf-test] setting $
  16967. 2027.63 s [opt-env-conf-test] builders
  16968. 2027.63 s [opt-env-conf-test] - ++ [ reader str,
  16969. 2027.63 s [opt-env-conf-test] - metavar "FILE_PATH",
  16970. 2027.63 s [opt-env-conf-test] - completer filePath
  16971. 2027.63 s [opt-env-conf-test] ]
  16972. 2027.64 s [opt-env-conf-test]
  16973. 2027.64 s [opt-env-conf-test] -- | A setting for @Path Abs dir@.
  16974. 2027.64 s [opt-env-conf-test] --
  16975. 2027.64 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
  16976. 2027.64 s [opt-env-conf-test] @@ -480,10 +480,9 @@
  16977. 2027.64 s [opt-env-conf-test] withFrozenCallStack $
  16978. 2027.64 s [opt-env-conf-test] setting $
  16979. 2027.64 s [opt-env-conf-test] builders
  16980. 2027.64 s [opt-env-conf-test] - ++ [ reader str,
  16981. 2027.64 s [opt-env-conf-test] metavar "FILE_PATH",
  16982. 2027.64 s [opt-env-conf-test] completer filePath
  16983. 2027.64 s [opt-env-conf-test] ]
  16984. 2027.64 s [opt-env-conf-test]
  16985. 2027.64 s [opt-env-conf-test] -- | A setting for @Path Abs dir@.
  16986. 2027.64 s [opt-env-conf-test] --
  16987. 2027.64 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
  16988. 2027.64 s [opt-env-conf-test] @@ -480,10 +480,9 @@
  16989. 2027.64 s [opt-env-conf-test] withFrozenCallStack $
  16990. 2027.64 s [opt-env-conf-test] setting $
  16991. 2027.64 s [opt-env-conf-test] builders
  16992. 2027.64 s [opt-env-conf-test] ++ [ reader str,
  16993. 2027.64 s [opt-env-conf-test] metavar "FILE_PATH",
  16994. 2027.64 s [opt-env-conf-test] - completer filePath
  16995. 2027.64 s [opt-env-conf-test] ]
  16996. 2027.64 s [opt-env-conf-test]
  16997. 2027.64 s [opt-env-conf-test] -- | A setting for @Path Abs dir@.
  16998. 2027.64 s [opt-env-conf-test] --
  16999. 2027.64 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
  17000. 2027.64 s [opt-env-conf-test] @@ -826,7 +826,6 @@
  17001. 2027.64 s [opt-env-conf-test] long "config-file",
  17002. 2027.64 s [opt-env-conf-test] env "CONFIG_FILE",
  17003. 2027.64 s [opt-env-conf-test] help "Path to the configuration file",
  17004. 2027.64 s [opt-env-conf-test] - completer (filePathWithExtensions [".yaml", ".yml"])
  17005. 2027.64 s [opt-env-conf-test] ]
  17006. 2027.64 s [opt-env-conf-test]
  17007. 2027.64 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  17008. 2027.64 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
  17009. 2027.64 s [opt-env-conf-test] @@ -826,7 +826,6 @@
  17010. 2027.64 s [opt-env-conf-test] long "config-file",
  17011. 2027.64 s [opt-env-conf-test] env "CONFIG_FILE",
  17012. 2027.64 s [opt-env-conf-test] help "Path to the configuration file",
  17013. 2027.64 s [opt-env-conf-test] - completer (filePathWithExtensions [".yaml", ".yml"])
  17014. 2027.64 s [opt-env-conf-test] ]
  17015. 2027.64 s [opt-env-conf-test]
  17016. 2027.64 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  17017. 2027.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
  17018. 2027.65 s [opt-env-conf-test] @@ -822,12 +822,7 @@
  17019. 2027.65 s [opt-env-conf-test] configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
  17020. 2027.65 s [opt-env-conf-test] configuredConfigFile =
  17021. 2027.65 s [opt-env-conf-test] filePathSetting
  17022. 2027.65 s [opt-env-conf-test] - [ option,
  17023. 2027.65 s [opt-env-conf-test] - long "config-file",
  17024. 2027.65 s [opt-env-conf-test] - env "CONFIG_FILE",
  17025. 2027.65 s [opt-env-conf-test] - help "Path to the configuration file",
  17026. 2027.65 s [opt-env-conf-test] - completer (filePathWithExtensions [".yaml", ".yml"])
  17027. 2027.65 s [opt-env-conf-test] ]
  17028. 2027.65 s [opt-env-conf-test]
  17029. 2027.65 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  17030. 2027.65 s [opt-env-conf-test] --
  17031. 2027.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
  17032. 2027.65 s [opt-env-conf-test] @@ -822,12 +822,11 @@
  17033. 2027.65 s [opt-env-conf-test] configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
  17034. 2027.65 s [opt-env-conf-test] configuredConfigFile =
  17035. 2027.65 s [opt-env-conf-test] filePathSetting
  17036. 2027.65 s [opt-env-conf-test] - [ option,
  17037. 2027.65 s [opt-env-conf-test] long "config-file",
  17038. 2027.65 s [opt-env-conf-test] env "CONFIG_FILE",
  17039. 2027.65 s [opt-env-conf-test] help "Path to the configuration file",
  17040. 2027.65 s [opt-env-conf-test] completer (filePathWithExtensions [".yaml", ".yml"])
  17041. 2027.65 s [opt-env-conf-test] ]
  17042. 2027.65 s [opt-env-conf-test]
  17043. 2027.65 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  17044. 2027.65 s [opt-env-conf-test] --
  17045. 2027.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
  17046. 2027.65 s [opt-env-conf-test] @@ -822,12 +822,11 @@
  17047. 2029.75 s [opt-env-conf-test] configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
  17048. 2029.82 s [opt-env-conf-test] configuredConfigFile =
  17049. 2029.82 s [opt-env-conf-test] filePathSetting
  17050. 2029.82 s [opt-env-conf-test] [ option,
  17051. 2029.82 s [opt-env-conf-test] long "config-file",
  17052. 2029.82 s [opt-env-conf-test] env "CONFIG_FILE",
  17053. 2029.82 s [opt-env-conf-test] help "Path to the configuration file",
  17054. 2029.82 s [opt-env-conf-test] - completer (filePathWithExtensions [".yaml", ".yml"])
  17055. 2029.82 s [opt-env-conf-test] ]
  17056. 2029.82 s [opt-env-conf-test]
  17057. 2029.82 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  17058. 2029.82 s [opt-env-conf-test] --
  17059. 2029.82 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:774:47-68
  17060. 2029.82 s [opt-env-conf-test] @@ -771,7 +771,7 @@
  17061. 2029.82 s [opt-env-conf-test] combineMaybeObjects :: Maybe JSON.Object -> Maybe JSON.Object -> Maybe JSON.Object
  17062. 2029.82 s [opt-env-conf-test] combineMaybeObjects Nothing mo = mo
  17063. 2029.82 s [opt-env-conf-test] combineMaybeObjects mo Nothing = mo
  17064. 2029.82 s [opt-env-conf-test] - combineMaybeObjects (Just o1) (Just o2) = Just (combiner o1 o2)
  17065. 2029.82 s [opt-env-conf-test] + combineMaybeObjects (Just o1) (Just o2) = Nothing
  17066. 2029.82 s [opt-env-conf-test]
  17067. 2029.82 s [opt-env-conf-test] combineConfigObjects :: JSON.Object -> JSON.Object -> JSON.Object
  17068. 2029.82 s [opt-env-conf-test] combineConfigObjects = KM.unionWith combineValues
  17069. 2029.82 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
  17070. 2029.82 s [opt-env-conf-test] @@ -497,10 +497,7 @@
  17071. 2029.82 s [opt-env-conf-test] withFrozenCallStack $
  17072. 2029.82 s [opt-env-conf-test] setting $
  17073. 2029.82 s [opt-env-conf-test] builders
  17074. 2029.82 s [opt-env-conf-test] - ++ [ reader str,
  17075. 2029.82 s [opt-env-conf-test] - metavar "DIRECTORY_PATH",
  17076. 2029.82 s [opt-env-conf-test] - completer directoryPath
  17077. 2029.82 s [opt-env-conf-test] ]
  17078. 2029.82 s [opt-env-conf-test]
  17079. 2029.82 s [opt-env-conf-test] -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
  17080. 2029.82 s [opt-env-conf-test] --
  17081. 2029.82 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
  17082. 2029.82 s [opt-env-conf-test] @@ -497,10 +497,9 @@
  17083. 2029.83 s [opt-env-conf-test] withFrozenCallStack $
  17084. 2029.83 s [opt-env-conf-test] setting $
  17085. 2029.83 s [opt-env-conf-test] builders
  17086. 2029.83 s [opt-env-conf-test] - ++ [ reader str,
  17087. 2029.83 s [opt-env-conf-test] metavar "DIRECTORY_PATH",
  17088. 2029.83 s [opt-env-conf-test] completer directoryPath
  17089. 2029.83 s [opt-env-conf-test] ]
  17090. 2029.83 s [opt-env-conf-test]
  17091. 2029.83 s [opt-env-conf-test] -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
  17092. 2029.83 s [opt-env-conf-test] --
  17093. 2029.83 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
  17094. 2029.83 s [opt-env-conf-test] @@ -497,10 +497,9 @@
  17095. 2029.83 s [opt-env-conf-test] withFrozenCallStack $
  17096. 2029.83 s [opt-env-conf-test] setting $
  17097. 2029.83 s [opt-env-conf-test] builders
  17098. 2029.83 s [opt-env-conf-test] ++ [ reader str,
  17099. 2029.83 s [opt-env-conf-test] metavar "DIRECTORY_PATH",
  17100. 2029.83 s [opt-env-conf-test] - completer directoryPath
  17101. 2029.83 s [opt-env-conf-test] ]
  17102. 2029.83 s [opt-env-conf-test]
  17103. 2029.83 s [opt-env-conf-test] -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
  17104. 2029.83 s [opt-env-conf-test] --
  17105. 2029.83 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
  17106. 2029.83 s [opt-env-conf-test] @@ -785,11 +785,10 @@
  17107. 2029.83 s [opt-env-conf-test] xdgYamlConfigFile subdir =
  17108. 2029.83 s [opt-env-conf-test] mapIO
  17109. 2029.83 s [opt-env-conf-test] ( \mXdgDir -> do
  17110. 2029.83 s [opt-env-conf-test] xdgDir <- case mXdgDir of
  17111. 2029.83 s [opt-env-conf-test] - Just d -> resolveDir' d
  17112. 2029.83 s [opt-env-conf-test] Nothing -> do
  17113. 2029.83 s [opt-env-conf-test] home <- getHomeDir
  17114. 2029.83 s [opt-env-conf-test] resolveDir home ".config"
  17115. 2029.83 s [opt-env-conf-test] configDir <- resolveDir xdgDir subdir
  17116. 2029.83 s [opt-env-conf-test] resolveFile configDir "config.yaml"
  17117. 2029.83 s [opt-env-conf-test] )
  17118. 2029.83 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
  17119. 2029.83 s [opt-env-conf-test] @@ -785,11 +785,8 @@
  17120. 2029.83 s [opt-env-conf-test] xdgYamlConfigFile subdir =
  17121. 2029.83 s [opt-env-conf-test] mapIO
  17122. 2029.83 s [opt-env-conf-test] ( \mXdgDir -> do
  17123. 2029.83 s [opt-env-conf-test] xdgDir <- case mXdgDir of
  17124. 2029.83 s [opt-env-conf-test] Just d -> resolveDir' d
  17125. 2029.83 s [opt-env-conf-test] - Nothing -> do
  17126. 2029.83 s [opt-env-conf-test] - home <- getHomeDir
  17127. 2029.83 s [opt-env-conf-test] - resolveDir home ".config"
  17128. 2029.83 s [opt-env-conf-test] configDir <- resolveDir xdgDir subdir
  17129. 2029.83 s [opt-env-conf-test] resolveFile configDir "config.yaml"
  17130. 2029.83 s [opt-env-conf-test] )
  17131. 2029.83 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
  17132. 2029.83 s [opt-env-conf-test] @@ -796,12 +796,7 @@
  17133. 2029.83 s [opt-env-conf-test] $ optional
  17134. 2029.83 s [opt-env-conf-test] $ withFrozenCallStack
  17135. 2029.83 s [opt-env-conf-test] $ setting
  17136. 2029.83 s [opt-env-conf-test] - [ help "Path to the XDG configuration directory",
  17137. 2029.83 s [opt-env-conf-test] - reader str,
  17138. 2029.83 s [opt-env-conf-test] - env "XDG_CONFIG_HOME",
  17139. 2029.83 s [opt-env-conf-test] - metavar "DIRECTORY",
  17140. 2029.83 s [opt-env-conf-test] - hidden
  17141. 2029.83 s [opt-env-conf-test] ]
  17142. 2029.83 s [opt-env-conf-test]
  17143. 2029.83 s [opt-env-conf-test] -- | Load a config file that is reconfigurable with an option and environment
  17144. 2029.83 s [opt-env-conf-test] -- variable but @config.yaml@ in the local working directory by default.
  17145. 2029.83 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
  17146. 2029.83 s [opt-env-conf-test] @@ -796,12 +796,11 @@
  17147. 2029.83 s [opt-env-conf-test] $ optional
  17148. 2029.83 s [opt-env-conf-test] $ withFrozenCallStack
  17149. 2029.83 s [opt-env-conf-test] $ setting
  17150. 2029.83 s [opt-env-conf-test] - [ help "Path to the XDG configuration directory",
  17151. 2029.84 s [opt-env-conf-test] reader str,
  17152. 2029.84 s [opt-env-conf-test] env "XDG_CONFIG_HOME",
  17153. 2029.84 s [opt-env-conf-test] metavar "DIRECTORY",
  17154. 2029.84 s [opt-env-conf-test] hidden
  17155. 2029.84 s [opt-env-conf-test] ]
  17156. 2029.84 s [opt-env-conf-test]
  17157. 2029.84 s [opt-env-conf-test] -- | Load a config file that is reconfigurable with an option and environment
  17158. 2029.84 s [opt-env-conf-test] -- variable but @config.yaml@ in the local working directory by default.
  17159. 2029.84 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
  17160. 2029.84 s [opt-env-conf-test] @@ -796,12 +796,11 @@
  17161. 2029.84 s [opt-env-conf-test] $ optional
  17162. 2029.84 s [opt-env-conf-test] $ withFrozenCallStack
  17163. 2029.84 s [opt-env-conf-test] $ setting
  17164. 2029.84 s [opt-env-conf-test] [ help "Path to the XDG configuration directory",
  17165. 2029.84 s [opt-env-conf-test] reader str,
  17166. 2029.84 s [opt-env-conf-test] env "XDG_CONFIG_HOME",
  17167. 2029.84 s [opt-env-conf-test] metavar "DIRECTORY",
  17168. 2029.84 s [opt-env-conf-test] - hidden
  17169. 2029.84 s [opt-env-conf-test] ]
  17170. 2029.84 s [opt-env-conf-test]
  17171. 2029.84 s [opt-env-conf-test] -- | Load a config file that is reconfigurable with an option and environment
  17172. 2029.84 s [opt-env-conf-test] -- variable but @config.yaml@ in the local working directory by default.
  17173. 2029.84 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
  17174. 2029.84 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  17175. 2029.84 s [opt-env-conf-test] where
  17176. 2029.84 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  17177. 2029.84 s [opt-env-conf-test] go d = \case
  17178. 2029.84 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17179. 2029.84 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 0) $ showString "Pure _"
  17180. 2029.84 s [opt-env-conf-test] ParserAp pf pa ->
  17181. 2029.84 s [opt-env-conf-test] showParen (d > 10) $
  17182. 2029.84 s [opt-env-conf-test] showString "Ap "
  17183. 2029.84 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
  17184. 2029.84 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  17185. 2029.84 s [opt-env-conf-test] where
  17186. 2029.84 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  17187. 2029.84 s [opt-env-conf-test] go d = \case
  17188. 2029.84 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17189. 2029.84 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 1) $ showString "Pure _"
  17190. 2029.84 s [opt-env-conf-test] ParserAp pf pa ->
  17191. 2029.84 s [opt-env-conf-test] showParen (d > 10) $
  17192. 2029.84 s [opt-env-conf-test] showString "Ap "
  17193. 2029.84 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
  17194. 2029.84 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  17195. 2029.84 s [opt-env-conf-test] where
  17196. 2029.84 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  17197. 2029.84 s [opt-env-conf-test] go d = \case
  17198. 2029.84 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17199. 2029.84 s [opt-env-conf-test] + ParserPure _ -> showParen (d > -10) $ showString "Pure _"
  17200. 2029.84 s [opt-env-conf-test] ParserAp pf pa ->
  17201. 2029.84 s [opt-env-conf-test] showParen (d > 10) $
  17202. 2029.84 s [opt-env-conf-test] showString "Ap "
  17203. 2029.84 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:304:34-40
  17204. 2029.84 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  17205. 2029.84 s [opt-env-conf-test] where
  17206. 2029.84 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  17207. 2029.84 s [opt-env-conf-test] go d = \case
  17208. 2029.84 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17209. 2029.84 s [opt-env-conf-test] + ParserPure _ -> showParen (d < 10) $ showString "Pure _"
  17210. 2029.84 s [opt-env-conf-test] ParserAp pf pa ->
  17211. 2029.84 s [opt-env-conf-test] showParen (d > 10) $
  17212. 2029.84 s [opt-env-conf-test] showString "Ap "
  17213. 2029.84 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:304:34-40
  17214. 2029.84 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  17215. 2029.84 s [opt-env-conf-test] where
  17216. 2029.84 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  17217. 2029.84 s [opt-env-conf-test] go d = \case
  17218. 2029.84 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17219. 2029.84 s [opt-env-conf-test] + ParserPure _ -> showParen (d <= 10) $ showString "Pure _"
  17220. 2029.84 s [opt-env-conf-test] ParserAp pf pa ->
  17221. 2029.84 s [opt-env-conf-test] showParen (d > 10) $
  17222. 2029.84 s [opt-env-conf-test] showString "Ap "
  17223. 2029.84 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:171:6-14
  17224. 2029.84 s [opt-env-conf-test] @@ -168,7 +168,7 @@
  17225. 2029.84 s [opt-env-conf-test] -- import System.IO
  17226. 2029.84 s [opt-env-conf-test] -- hPutStrLn stderr $ show (enriched, index, ws)
  17227. 2029.84 s [opt-env-conf-test] -- hPutStrLn stderr $ show evaluatedCompletions
  17228. 2029.84 s [opt-env-conf-test] - if enriched
  17229. 2029.85 s [opt-env-conf-test] + if not (enriched)
  17230. 2029.85 s [opt-env-conf-test] then
  17231. 2029.85 s [opt-env-conf-test] putStr $
  17232. 2029.85 s [opt-env-conf-test] unlines $
  17233. 2029.85 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
  17234. 2029.85 s [opt-env-conf-test] @@ -168,7 +168,7 @@
  17235. 2029.85 s [opt-env-conf-test] -- import System.IO
  17236. 2029.85 s [opt-env-conf-test] -- hPutStrLn stderr $ show (enriched, index, ws)
  17237. 2029.85 s [opt-env-conf-test] -- hPutStrLn stderr $ show evaluatedCompletions
  17238. 2029.85 s [opt-env-conf-test] - if enriched
  17239. 2029.85 s [opt-env-conf-test] + if False
  17240. 2029.85 s [opt-env-conf-test] then
  17241. 2029.85 s [opt-env-conf-test] putStr $
  17242. 2029.85 s [opt-env-conf-test] unlines $
  17243. 2029.85 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
  17244. 2029.85 s [opt-env-conf-test] @@ -168,7 +168,7 @@
  17245. 2029.85 s [opt-env-conf-test] -- import System.IO
  17246. 2029.85 s [opt-env-conf-test] -- hPutStrLn stderr $ show (enriched, index, ws)
  17247. 2029.85 s [opt-env-conf-test] -- hPutStrLn stderr $ show evaluatedCompletions
  17248. 2029.85 s [opt-env-conf-test] - if enriched
  17249. 2029.85 s [opt-env-conf-test] + if True
  17250. 2029.85 s [opt-env-conf-test] then
  17251. 2029.85 s [opt-env-conf-test] putStr $
  17252. 2029.85 s [opt-env-conf-test] unlines $
  17253. 2029.85 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
  17254. 2029.85 s [opt-env-conf-test] @@ -160,7 +160,7 @@
  17255. 2029.85 s [opt-env-conf-test] --
  17256. 2029.85 s [opt-env-conf-test] -- We use 'drop 1' here because we don't care about the progname anymore.
  17257. 2029.85 s [opt-env-conf-test] let index = pred index'
  17258. 2029.85 s [opt-env-conf-test] - let ws = drop 1 ws'
  17259. 2029.85 s [opt-env-conf-test] + let ws = drop -1 ws'
  17260. 2039.75 s [opt-env-conf-test] let arg = fromMaybe "" $ listToMaybe $ drop index ws
  17261. 2039.75 s [opt-env-conf-test] let completions = pureCompletionQuery parser index ws
  17262. 2039.77 s [opt-env-conf-test] evaluatedCompletions <- evalCompletions arg completions
  17263. 2039.77 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:487:32-39
  17264. 2039.77 s [opt-env-conf-test] @@ -484,4 +484,4 @@
  17265. 2039.77 s [opt-env-conf-test] -- this branch, improving completions when one branch
  17266. 2039.77 s [opt-env-conf-test] -- is env/conf-only and the other has args/options.
  17267. 2039.77 s [opt-env-conf-test] -- This would require IO or an environment parameter.
  17268. 2039.77 s [opt-env-conf-test] - pure $ Just []
  17269. 2039.77 s [opt-env-conf-test] + pure $ Nothing
  17270. 2039.77 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
  17271. 2039.77 s [opt-env-conf-test] @@ -160,7 +160,7 @@
  17272. 2039.77 s [opt-env-conf-test] --
  17273. 2039.77 s [opt-env-conf-test] -- We use 'drop 1' here because we don't care about the progname anymore.
  17274. 2039.77 s [opt-env-conf-test] let index = pred index'
  17275. 2039.77 s [opt-env-conf-test] - let ws = drop 1 ws'
  17276. 2039.77 s [opt-env-conf-test] + let ws = drop 0 ws'
  17277. 2039.77 s [opt-env-conf-test] let arg = fromMaybe "" $ listToMaybe $ drop index ws
  17278. 2039.77 s [opt-env-conf-test] let completions = pureCompletionQuery parser index ws
  17279. 2039.77 s [opt-env-conf-test] evaluatedCompletions <- evalCompletions arg completions
  17280. 2039.77 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:304:34-40
  17281. 2039.77 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  17282. 2039.77 s [opt-env-conf-test] where
  17283. 2039.77 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  17284. 2039.78 s [opt-env-conf-test] go d = \case
  17285. 2039.78 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17286. 2039.78 s [opt-env-conf-test] + ParserPure _ -> showParen (d >= 10) $ showString "Pure _"
  17287. 2039.78 s [opt-env-conf-test] ParserAp pf pa ->
  17288. 2039.78 s [opt-env-conf-test] showParen (d > 10) $
  17289. 2039.78 s [opt-env-conf-test] showString "Ap "
  17290. 2039.78 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
  17291. 2039.78 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17292. 2039.78 s [opt-env-conf-test] go d = \case
  17293. 2039.78 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17294. 2039.78 s [opt-env-conf-test] ParserAp pf pa ->
  17295. 2039.78 s [opt-env-conf-test] - showParen (d > 10) $
  17296. 2039.78 s [opt-env-conf-test] + showParen (d > 0) $
  17297. 2039.78 s [opt-env-conf-test] showString "Ap "
  17298. 2039.78 s [opt-env-conf-test] . go 11 pf
  17299. 2039.78 s [opt-env-conf-test] . showString " "
  17300. 2039.78 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
  17301. 2039.78 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17302. 2039.78 s [opt-env-conf-test] go d = \case
  17303. 2039.78 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17304. 2039.78 s [opt-env-conf-test] ParserAp pf pa ->
  17305. 2039.78 s [opt-env-conf-test] - showParen (d > 10) $
  17306. 2039.78 s [opt-env-conf-test] + showParen (d > 1) $
  17307. 2039.78 s [opt-env-conf-test] showString "Ap "
  17308. 2039.78 s [opt-env-conf-test] . go 11 pf
  17309. 2039.78 s [opt-env-conf-test] . showString " "
  17310. 2039.78 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
  17311. 2039.78 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17312. 2039.78 s [opt-env-conf-test] go d = \case
  17313. 2039.78 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17314. 2039.78 s [opt-env-conf-test] ParserAp pf pa ->
  17315. 2039.78 s [opt-env-conf-test] - showParen (d > 10) $
  17316. 2039.78 s [opt-env-conf-test] + showParen (d > -10) $
  17317. 2039.78 s [opt-env-conf-test] showString "Ap "
  17318. 2039.78 s [opt-env-conf-test] . go 11 pf
  17319. 2039.78 s [opt-env-conf-test] . showString " "
  17320. 2039.78 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:306:20-26
  17321. 2039.78 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17322. 2039.78 s [opt-env-conf-test] go d = \case
  17323. 2039.78 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17324. 2039.78 s [opt-env-conf-test] ParserAp pf pa ->
  17325. 2039.78 s [opt-env-conf-test] - showParen (d > 10) $
  17326. 2039.78 s [opt-env-conf-test] + showParen (d < 10) $
  17327. 2039.78 s [opt-env-conf-test] showString "Ap "
  17328. 2039.78 s [opt-env-conf-test] . go 11 pf
  17329. 2039.78 s [opt-env-conf-test] . showString " "
  17330. 2039.78 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:306:20-26
  17331. 2039.78 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17332. 2039.78 s [opt-env-conf-test] go d = \case
  17333. 2039.78 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17334. 2039.78 s [opt-env-conf-test] ParserAp pf pa ->
  17335. 2039.78 s [opt-env-conf-test] - showParen (d > 10) $
  17336. 2039.78 s [opt-env-conf-test] + showParen (d <= 10) $
  17337. 2039.78 s [opt-env-conf-test] showString "Ap "
  17338. 2039.78 s [opt-env-conf-test] . go 11 pf
  17339. 2039.78 s [opt-env-conf-test] . showString " "
  17340. 2039.78 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:306:20-26
  17341. 2039.78 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17342. 2039.78 s [opt-env-conf-test] go d = \case
  17343. 2039.78 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17344. 2039.78 s [opt-env-conf-test] ParserAp pf pa ->
  17345. 2039.78 s [opt-env-conf-test] - showParen (d > 10) $
  17346. 2039.78 s [opt-env-conf-test] + showParen (d >= 10) $
  17347. 2039.78 s [opt-env-conf-test] showString "Ap "
  17348. 2039.78 s [opt-env-conf-test] . go 11 pf
  17349. 2039.78 s [opt-env-conf-test] . showString " "
  17350. 2039.78 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
  17351. 2039.78 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17352. 2039.78 s [opt-env-conf-test] go d = \case
  17353. 2039.78 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17354. 2039.78 s [opt-env-conf-test] ParserAp pf pa ->
  17355. 2039.78 s [opt-env-conf-test] - showParen (d > 10) $
  17356. 2039.78 s [opt-env-conf-test] + showParen (True) $
  17357. 2039.78 s [opt-env-conf-test] showString "Ap "
  17358. 2039.78 s [opt-env-conf-test] . go 11 pf
  17359. 2039.78 s [opt-env-conf-test] . showString " "
  17360. 2039.78 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
  17361. 2039.78 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17362. 2039.78 s [opt-env-conf-test] go d = \case
  17363. 2039.79 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17364. 2039.79 s [opt-env-conf-test] ParserAp pf pa ->
  17365. 2039.79 s [opt-env-conf-test] - showParen (d > 10) $
  17366. 2039.79 s [opt-env-conf-test] + showParen (False) $
  17367. 2039.79 s [opt-env-conf-test] showString "Ap "
  17368. 2039.79 s [opt-env-conf-test] . go 11 pf
  17369. 2039.79 s [opt-env-conf-test] . showString " "
  17370. 2039.79 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:306:20-26
  17371. 2039.79 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17372. 2039.79 s [opt-env-conf-test] go d = \case
  17373. 2039.79 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17374. 2039.79 s [opt-env-conf-test] ParserAp pf pa ->
  17375. 2039.79 s [opt-env-conf-test] - showParen (d > 10) $
  17376. 2039.79 s [opt-env-conf-test] + showParen (not (d > 10)) $
  17377. 2039.79 s [opt-env-conf-test] showString "Ap "
  17378. 2039.79 s [opt-env-conf-test] . go 11 pf
  17379. 2039.79 s [opt-env-conf-test] . showString " "
  17380. 2039.79 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
  17381. 2039.79 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17382. 2039.79 s [opt-env-conf-test] go d = \case
  17383. 2039.79 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17384. 2039.79 s [opt-env-conf-test] ParserAp pf pa ->
  17385. 2039.79 s [opt-env-conf-test] - showParen (d > 10) $
  17386. 2039.79 s [opt-env-conf-test] + showParen True $
  17387. 2039.79 s [opt-env-conf-test] showString "Ap "
  17388. 2039.79 s [opt-env-conf-test] . go 11 pf
  17389. 2039.79 s [opt-env-conf-test] . showString " "
  17390. 2039.79 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
  17391. 2039.79 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17392. 2039.79 s [opt-env-conf-test] go d = \case
  17393. 2039.79 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17394. 2039.79 s [opt-env-conf-test] ParserAp pf pa ->
  17395. 2039.79 s [opt-env-conf-test] - showParen (d > 10) $
  17396. 2039.79 s [opt-env-conf-test] + showParen False $
  17397. 2039.79 s [opt-env-conf-test] showString "Ap "
  17398. 2039.79 s [opt-env-conf-test] . go 11 pf
  17399. 2039.79 s [opt-env-conf-test] . showString " "
  17400. 2039.79 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:306:19-27
  17401. 2039.79 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  17402. 2039.79 s [opt-env-conf-test] go d = \case
  17403. 2039.79 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  17404. 2039.79 s [opt-env-conf-test] ParserAp pf pa ->
  17405. 2039.79 s [opt-env-conf-test] - showParen (d > 10) $
  17406. 2039.79 s [opt-env-conf-test] + showParen not ((d > 10)) $
  17407. 2039.79 s [opt-env-conf-test] showString "Ap "
  17408. 2039.79 s [opt-env-conf-test] . go 11 pf
  17409. 2039.79 s [opt-env-conf-test] . showString " "
  17410. 2039.79 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
  17411. 2039.79 s [opt-env-conf-test] @@ -305,7 +305,7 @@
  17412. 2039.79 s [opt-env-conf-test] ParserAp pf pa ->
  17413. 2039.79 s [opt-env-conf-test] showParen (d > 10) $
  17414. 2039.79 s [opt-env-conf-test] showString "Ap "
  17415. 2039.79 s [opt-env-conf-test] - . go 11 pf
  17416. 2039.79 s [opt-env-conf-test] + . go 0 pf
  17417. 2039.79 s [opt-env-conf-test] . showString " "
  17418. 2039.79 s [opt-env-conf-test] . go 11 pa
  17419. 2039.79 s [opt-env-conf-test] ParserSelect pe pf ->
  17420. 2039.79 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
  17421. 2039.79 s [opt-env-conf-test] @@ -305,7 +305,7 @@
  17422. 2039.79 s [opt-env-conf-test] ParserAp pf pa ->
  17423. 2039.79 s [opt-env-conf-test] showParen (d > 10) $
  17424. 2039.79 s [opt-env-conf-test] showString "Ap "
  17425. 2039.79 s [opt-env-conf-test] - . go 11 pf
  17426. 2039.79 s [opt-env-conf-test] + . go 1 pf
  17427. 2039.79 s [opt-env-conf-test] . showString " "
  17428. 2039.79 s [opt-env-conf-test] . go 11 pa
  17429. 2039.79 s [opt-env-conf-test] ParserSelect pe pf ->
  17430. 2039.79 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
  17431. 2039.79 s [opt-env-conf-test] @@ -305,7 +305,7 @@
  17432. 2039.79 s [opt-env-conf-test] ParserAp pf pa ->
  17433. 2039.79 s [opt-env-conf-test] showParen (d > 10) $
  17434. 2039.79 s [opt-env-conf-test] showString "Ap "
  17435. 2039.79 s [opt-env-conf-test] - . go 11 pf
  17436. 2039.79 s [opt-env-conf-test] + . go -11 pf
  17437. 2039.79 s [opt-env-conf-test] . showString " "
  17438. 2039.79 s [opt-env-conf-test] . go 11 pa
  17439. 2039.79 s [opt-env-conf-test] ParserSelect pe pf ->
  17440. 2039.79 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
  17441. 2039.79 s [opt-env-conf-test] @@ -307,7 +307,7 @@
  17442. 2039.79 s [opt-env-conf-test] showString "Ap "
  17443. 2039.79 s [opt-env-conf-test] . go 11 pf
  17444. 2039.79 s [opt-env-conf-test] . showString " "
  17445. 2039.79 s [opt-env-conf-test] - . go 11 pa
  17446. 2039.79 s [opt-env-conf-test] + . go 0 pa
  17447. 2040.09 s [opt-env-conf-test] ParserSelect pe pf ->
  17448. 2040.09 s [opt-env-conf-test] showParen (d > 10) $
  17449. 2040.09 s [opt-env-conf-test] showString "Select "
  17450. 2040.09 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
  17451. 2040.09 s [opt-env-conf-test] @@ -307,7 +307,7 @@
  17452. 2040.09 s [opt-env-conf-test] showString "Ap "
  17453. 2040.09 s [opt-env-conf-test] . go 11 pf
  17454. 2040.09 s [opt-env-conf-test] . showString " "
  17455. 2040.09 s [opt-env-conf-test] - . go 11 pa
  17456. 2040.09 s [opt-env-conf-test] + . go 1 pa
  17457. 2040.10 s [opt-env-conf-test] ParserSelect pe pf ->
  17458. 2040.10 s [opt-env-conf-test] showParen (d > 10) $
  17459. 2040.10 s [opt-env-conf-test] showString "Select "
  17460. 2040.10 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
  17461. 2040.10 s [opt-env-conf-test] @@ -307,7 +307,7 @@
  17462. 2040.10 s [opt-env-conf-test] showString "Ap "
  17463. 2040.10 s [opt-env-conf-test] . go 11 pf
  17464. 2040.10 s [opt-env-conf-test] . showString " "
  17465. 2040.10 s [opt-env-conf-test] - . go 11 pa
  17466. 2040.10 s [opt-env-conf-test] + . go -11 pa
  17467. 2040.10 s [opt-env-conf-test] ParserSelect pe pf ->
  17468. 2040.10 s [opt-env-conf-test] showParen (d > 10) $
  17469. 2040.10 s [opt-env-conf-test] showString "Select "
  17470. 2040.10 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
  17471. 2040.10 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17472. 2040.10 s [opt-env-conf-test] . showString " "
  17473. 2040.10 s [opt-env-conf-test] . go 11 pa
  17474. 2040.10 s [opt-env-conf-test] ParserSelect pe pf ->
  17475. 2040.10 s [opt-env-conf-test] - showParen (d > 10) $
  17476. 2040.10 s [opt-env-conf-test] + showParen (d > 0) $
  17477. 2040.10 s [opt-env-conf-test] showString "Select "
  17478. 2040.10 s [opt-env-conf-test] . go 11 pe
  17479. 2040.10 s [opt-env-conf-test] . showString " "
  17480. 2040.10 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
  17481. 2040.10 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17482. 2040.10 s [opt-env-conf-test] . showString " "
  17483. 2040.10 s [opt-env-conf-test] . go 11 pa
  17484. 2040.10 s [opt-env-conf-test] ParserSelect pe pf ->
  17485. 2040.10 s [opt-env-conf-test] - showParen (d > 10) $
  17486. 2040.10 s [opt-env-conf-test] + showParen (d > 1) $
  17487. 2040.10 s [opt-env-conf-test] showString "Select "
  17488. 2040.10 s [opt-env-conf-test] . go 11 pe
  17489. 2040.11 s [opt-env-conf-test] . showString " "
  17490. 2040.11 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
  17491. 2040.11 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17492. 2040.11 s [opt-env-conf-test] . showString " "
  17493. 2040.11 s [opt-env-conf-test] . go 11 pa
  17494. 2040.11 s [opt-env-conf-test] ParserSelect pe pf ->
  17495. 2040.11 s [opt-env-conf-test] - showParen (d > 10) $
  17496. 2040.11 s [opt-env-conf-test] + showParen (d > -10) $
  17497. 2040.11 s [opt-env-conf-test] showString "Select "
  17498. 2040.11 s [opt-env-conf-test] . go 11 pe
  17499. 2040.11 s [opt-env-conf-test] . showString " "
  17500. 2040.11 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:312:20-26
  17501. 2040.11 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17502. 2040.11 s [opt-env-conf-test] . showString " "
  17503. 2040.11 s [opt-env-conf-test] . go 11 pa
  17504. 2040.11 s [opt-env-conf-test] ParserSelect pe pf ->
  17505. 2040.11 s [opt-env-conf-test] - showParen (d > 10) $
  17506. 2040.11 s [opt-env-conf-test] + showParen (d < 10) $
  17507. 2040.11 s [opt-env-conf-test] showString "Select "
  17508. 2040.11 s [opt-env-conf-test] . go 11 pe
  17509. 2040.11 s [opt-env-conf-test] . showString " "
  17510. 2040.11 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:312:20-26
  17511. 2040.11 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17512. 2040.11 s [opt-env-conf-test] . showString " "
  17513. 2040.11 s [opt-env-conf-test] . go 11 pa
  17514. 2040.11 s [opt-env-conf-test] ParserSelect pe pf ->
  17515. 2040.11 s [opt-env-conf-test] - showParen (d > 10) $
  17516. 2040.11 s [opt-env-conf-test] + showParen (d <= 10) $
  17517. 2040.11 s [opt-env-conf-test] showString "Select "
  17518. 2040.11 s [opt-env-conf-test] . go 11 pe
  17519. 2040.11 s [opt-env-conf-test] . showString " "
  17520. 2040.11 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:312:20-26
  17521. 2040.11 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17522. 2040.11 s [opt-env-conf-test] . showString " "
  17523. 2040.11 s [opt-env-conf-test] . go 11 pa
  17524. 2040.11 s [opt-env-conf-test] ParserSelect pe pf ->
  17525. 2040.11 s [opt-env-conf-test] - showParen (d > 10) $
  17526. 2040.12 s [opt-env-conf-test] + showParen (d >= 10) $
  17527. 2040.12 s [opt-env-conf-test] showString "Select "
  17528. 2040.12 s [opt-env-conf-test] . go 11 pe
  17529. 2040.12 s [opt-env-conf-test] . showString " "
  17530. 2040.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
  17531. 2040.12 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17532. 2040.12 s [opt-env-conf-test] . showString " "
  17533. 2040.12 s [opt-env-conf-test] . go 11 pa
  17534. 2040.12 s [opt-env-conf-test] ParserSelect pe pf ->
  17535. 2040.12 s [opt-env-conf-test] - showParen (d > 10) $
  17536. 2040.12 s [opt-env-conf-test] + showParen (True) $
  17537. 2040.12 s [opt-env-conf-test] showString "Select "
  17538. 2040.12 s [opt-env-conf-test] . go 11 pe
  17539. 2040.12 s [opt-env-conf-test] . showString " "
  17540. 2040.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
  17541. 2040.12 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17542. 2040.12 s [opt-env-conf-test] . showString " "
  17543. 2040.12 s [opt-env-conf-test] . go 11 pa
  17544. 2040.12 s [opt-env-conf-test] ParserSelect pe pf ->
  17545. 2040.12 s [opt-env-conf-test] - showParen (d > 10) $
  17546. 2040.12 s [opt-env-conf-test] + showParen (False) $
  17547. 2040.12 s [opt-env-conf-test] showString "Select "
  17548. 2040.12 s [opt-env-conf-test] . go 11 pe
  17549. 2040.12 s [opt-env-conf-test] . showString " "
  17550. 2040.12 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:312:20-26
  17551. 2040.12 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17552. 2040.12 s [opt-env-conf-test] . showString " "
  17553. 2040.12 s [opt-env-conf-test] . go 11 pa
  17554. 2040.12 s [opt-env-conf-test] ParserSelect pe pf ->
  17555. 2040.12 s [opt-env-conf-test] - showParen (d > 10) $
  17556. 2040.12 s [opt-env-conf-test] + showParen (not (d > 10)) $
  17557. 2040.12 s [opt-env-conf-test] showString "Select "
  17558. 2040.12 s [opt-env-conf-test] . go 11 pe
  17559. 2040.12 s [opt-env-conf-test] . showString " "
  17560. 2040.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
  17561. 2040.12 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17562. 2040.12 s [opt-env-conf-test] . showString " "
  17563. 2040.12 s [opt-env-conf-test] . go 11 pa
  17564. 2040.12 s [opt-env-conf-test] ParserSelect pe pf ->
  17565. 2040.12 s [opt-env-conf-test] - showParen (d > 10) $
  17566. 2040.12 s [opt-env-conf-test] + showParen True $
  17567. 2040.13 s [opt-env-conf-test] showString "Select "
  17568. 2040.13 s [opt-env-conf-test] . go 11 pe
  17569. 2040.13 s [opt-env-conf-test] . showString " "
  17570. 2040.13 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
  17571. 2040.13 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17572. 2040.13 s [opt-env-conf-test] . showString " "
  17573. 2040.13 s [opt-env-conf-test] . go 11 pa
  17574. 2040.13 s [opt-env-conf-test] ParserSelect pe pf ->
  17575. 2040.13 s [opt-env-conf-test] - showParen (d > 10) $
  17576. 2040.13 s [opt-env-conf-test] + showParen False $
  17577. 2040.13 s [opt-env-conf-test] showString "Select "
  17578. 2040.13 s [opt-env-conf-test] . go 11 pe
  17579. 2040.13 s [opt-env-conf-test] . showString " "
  17580. 2040.13 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:312:19-27
  17581. 2040.13 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  17582. 2040.13 s [opt-env-conf-test] . showString " "
  17583. 2040.13 s [opt-env-conf-test] . go 11 pa
  17584. 2040.13 s [opt-env-conf-test] ParserSelect pe pf ->
  17585. 2040.13 s [opt-env-conf-test] - showParen (d > 10) $
  17586. 2040.13 s [opt-env-conf-test] + showParen not ((d > 10)) $
  17587. 2040.13 s [opt-env-conf-test] showString "Select "
  17588. 2040.13 s [opt-env-conf-test] . go 11 pe
  17589. 2040.13 s [opt-env-conf-test] . showString " "
  17590. 2040.13 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
  17591. 2040.13 s [opt-env-conf-test] @@ -311,7 +311,7 @@
  17592. 2040.13 s [opt-env-conf-test] ParserSelect pe pf ->
  17593. 2040.13 s [opt-env-conf-test] showParen (d > 10) $
  17594. 2040.13 s [opt-env-conf-test] showString "Select "
  17595. 2040.13 s [opt-env-conf-test] - . go 11 pe
  17596. 2040.13 s [opt-env-conf-test] + . go 0 pe
  17597. 2040.13 s [opt-env-conf-test] . showString " "
  17598. 2040.13 s [opt-env-conf-test] . go 11 pf
  17599. 2040.13 s [opt-env-conf-test] ParserEmpty mLoc ->
  17600. 2040.13 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
  17601. 2040.13 s [opt-env-conf-test] @@ -311,7 +311,7 @@
  17602. 2040.13 s [opt-env-conf-test] ParserSelect pe pf ->
  17603. 2040.13 s [opt-env-conf-test] showParen (d > 10) $
  17604. 2040.13 s [opt-env-conf-test] showString "Select "
  17605. 2040.13 s [opt-env-conf-test] - . go 11 pe
  17606. 2040.13 s [opt-env-conf-test] + . go 1 pe
  17607. 2040.13 s [opt-env-conf-test] . showString " "
  17608. 2040.13 s [opt-env-conf-test] . go 11 pf
  17609. 2040.13 s [opt-env-conf-test] ParserEmpty mLoc ->
  17610. 2040.13 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
  17611. 2040.14 s [opt-env-conf-test] @@ -311,7 +311,7 @@
  17612. 2040.14 s [opt-env-conf-test] ParserSelect pe pf ->
  17613. 2040.14 s [opt-env-conf-test] showParen (d > 10) $
  17614. 2040.14 s [opt-env-conf-test] showString "Select "
  17615. 2040.14 s [opt-env-conf-test] - . go 11 pe
  17616. 2040.14 s [opt-env-conf-test] + . go -11 pe
  17617. 2040.14 s [opt-env-conf-test] . showString " "
  17618. 2040.14 s [opt-env-conf-test] . go 11 pf
  17619. 2040.14 s [opt-env-conf-test] ParserEmpty mLoc ->
  17620. 2040.14 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
  17621. 2040.14 s [opt-env-conf-test] @@ -313,7 +313,7 @@
  17622. 2040.14 s [opt-env-conf-test] showString "Select "
  17623. 2040.14 s [opt-env-conf-test] . go 11 pe
  17624. 2040.14 s [opt-env-conf-test] . showString " "
  17625. 2040.14 s [opt-env-conf-test] - . go 11 pf
  17626. 2040.14 s [opt-env-conf-test] + . go 0 pf
  17627. 2040.14 s [opt-env-conf-test] ParserEmpty mLoc ->
  17628. 2040.14 s [opt-env-conf-test] showString "Empty "
  17629. 2040.14 s [opt-env-conf-test] . showsPrec 11 mLoc
  17630. 2040.14 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
  17631. 2040.14 s [opt-env-conf-test] @@ -313,7 +313,7 @@
  17632. 2040.14 s [opt-env-conf-test] showString "Select "
  17633. 2040.14 s [opt-env-conf-test] . go 11 pe
  17634. 2040.14 s [opt-env-conf-test] . showString " "
  17635. 2040.14 s [opt-env-conf-test] - . go 11 pf
  17636. 2040.14 s [opt-env-conf-test] + . go 1 pf
  17637. 2040.14 s [opt-env-conf-test] ParserEmpty mLoc ->
  17638. 2040.14 s [opt-env-conf-test] showString "Empty "
  17639. 2040.14 s [opt-env-conf-test] . showsPrec 11 mLoc
  17640. 2040.14 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
  17641. 2040.14 s [opt-env-conf-test] @@ -313,7 +313,7 @@
  17642. 2040.14 s [opt-env-conf-test] showString "Select "
  17643. 2040.14 s [opt-env-conf-test] . go 11 pe
  17644. 2040.14 s [opt-env-conf-test] . showString " "
  17645. 2040.14 s [opt-env-conf-test] - . go 11 pf
  17646. 2040.14 s [opt-env-conf-test] + . go -11 pf
  17647. 2040.14 s [opt-env-conf-test] ParserEmpty mLoc ->
  17648. 2040.14 s [opt-env-conf-test] showString "Empty "
  17649. 2040.14 s [opt-env-conf-test] . showsPrec 11 mLoc
  17650. 2040.14 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
  17651. 2040.14 s [opt-env-conf-test] @@ -316,7 +316,7 @@
  17652. 2040.14 s [opt-env-conf-test] . go 11 pf
  17653. 2040.14 s [opt-env-conf-test] ParserEmpty mLoc ->
  17654. 2040.14 s [opt-env-conf-test] showString "Empty "
  17655. 2054.87 s [opt-env-conf-test] - . showsPrec 11 mLoc
  17656. 2054.89 s [opt-env-conf-test] + . showsPrec 0 mLoc
  17657. 2054.89 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17658. 2054.89 s [opt-env-conf-test] showParen (d > 10) $
  17659. 2054.89 s [opt-env-conf-test] showString "Alt "
  17660. 2054.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
  17661. 2054.89 s [opt-env-conf-test] @@ -316,7 +316,7 @@
  17662. 2054.89 s [opt-env-conf-test] . go 11 pf
  17663. 2054.89 s [opt-env-conf-test] ParserEmpty mLoc ->
  17664. 2054.89 s [opt-env-conf-test] showString "Empty "
  17665. 2054.89 s [opt-env-conf-test] - . showsPrec 11 mLoc
  17666. 2054.89 s [opt-env-conf-test] + . showsPrec 1 mLoc
  17667. 2054.89 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17668. 2054.89 s [opt-env-conf-test] showParen (d > 10) $
  17669. 2054.89 s [opt-env-conf-test] showString "Alt "
  17670. 2054.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
  17671. 2054.89 s [opt-env-conf-test] @@ -316,7 +316,7 @@
  17672. 2054.89 s [opt-env-conf-test] . go 11 pf
  17673. 2054.89 s [opt-env-conf-test] ParserEmpty mLoc ->
  17674. 2054.89 s [opt-env-conf-test] showString "Empty "
  17675. 2054.89 s [opt-env-conf-test] - . showsPrec 11 mLoc
  17676. 2054.89 s [opt-env-conf-test] + . showsPrec -11 mLoc
  17677. 2054.89 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17678. 2054.89 s [opt-env-conf-test] showParen (d > 10) $
  17679. 2054.89 s [opt-env-conf-test] showString "Alt "
  17680. 2054.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
  17681. 2054.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17682. 2054.90 s [opt-env-conf-test] showString "Empty "
  17683. 2054.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  17684. 2054.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17685. 2054.90 s [opt-env-conf-test] - showParen (d > 10) $
  17686. 2054.90 s [opt-env-conf-test] + showParen (d > 0) $
  17687. 2054.90 s [opt-env-conf-test] showString "Alt "
  17688. 2054.90 s [opt-env-conf-test] . go 11 p1
  17689. 2054.90 s [opt-env-conf-test] . showString " "
  17690. 2054.90 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
  17691. 2054.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17692. 2054.90 s [opt-env-conf-test] showString "Empty "
  17693. 2054.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  17694. 2054.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17695. 2054.90 s [opt-env-conf-test] - showParen (d > 10) $
  17696. 2054.90 s [opt-env-conf-test] + showParen (d > 1) $
  17697. 2054.90 s [opt-env-conf-test] showString "Alt "
  17698. 2054.90 s [opt-env-conf-test] . go 11 p1
  17699. 2054.90 s [opt-env-conf-test] . showString " "
  17700. 2054.90 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
  17701. 2054.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17702. 2054.90 s [opt-env-conf-test] showString "Empty "
  17703. 2054.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  17704. 2054.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17705. 2054.90 s [opt-env-conf-test] - showParen (d > 10) $
  17706. 2054.90 s [opt-env-conf-test] + showParen (d > -10) $
  17707. 2054.90 s [opt-env-conf-test] showString "Alt "
  17708. 2054.90 s [opt-env-conf-test] . go 11 p1
  17709. 2054.90 s [opt-env-conf-test] . showString " "
  17710. 2054.90 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:321:20-26
  17711. 2054.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17712. 2054.90 s [opt-env-conf-test] showString "Empty "
  17713. 2054.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  17714. 2054.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17715. 2054.90 s [opt-env-conf-test] - showParen (d > 10) $
  17716. 2054.90 s [opt-env-conf-test] + showParen (d < 10) $
  17717. 2054.90 s [opt-env-conf-test] showString "Alt "
  17718. 2054.90 s [opt-env-conf-test] . go 11 p1
  17719. 2054.90 s [opt-env-conf-test] . showString " "
  17720. 2054.90 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:321:20-26
  17721. 2054.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17722. 2054.90 s [opt-env-conf-test] showString "Empty "
  17723. 2054.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  17724. 2054.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17725. 2054.90 s [opt-env-conf-test] - showParen (d > 10) $
  17726. 2054.90 s [opt-env-conf-test] + showParen (d <= 10) $
  17727. 2054.90 s [opt-env-conf-test] showString "Alt "
  17728. 2054.90 s [opt-env-conf-test] . go 11 p1
  17729. 2054.90 s [opt-env-conf-test] . showString " "
  17730. 2054.90 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:321:20-26
  17731. 2054.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17732. 2054.90 s [opt-env-conf-test] showString "Empty "
  17733. 2054.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  17734. 2054.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17735. 2054.90 s [opt-env-conf-test] - showParen (d > 10) $
  17736. 2054.90 s [opt-env-conf-test] + showParen (d >= 10) $
  17737. 2054.90 s [opt-env-conf-test] showString "Alt "
  17738. 2054.90 s [opt-env-conf-test] . go 11 p1
  17739. 2054.90 s [opt-env-conf-test] . showString " "
  17740. 2054.90 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
  17741. 2054.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17742. 2054.90 s [opt-env-conf-test] showString "Empty "
  17743. 2054.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  17744. 2054.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17745. 2054.91 s [opt-env-conf-test] - showParen (d > 10) $
  17746. 2054.91 s [opt-env-conf-test] + showParen (True) $
  17747. 2054.91 s [opt-env-conf-test] showString "Alt "
  17748. 2054.91 s [opt-env-conf-test] . go 11 p1
  17749. 2054.91 s [opt-env-conf-test] . showString " "
  17750. 2054.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
  17751. 2054.91 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17752. 2054.91 s [opt-env-conf-test] showString "Empty "
  17753. 2054.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  17754. 2054.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17755. 2054.91 s [opt-env-conf-test] - showParen (d > 10) $
  17756. 2054.91 s [opt-env-conf-test] + showParen (False) $
  17757. 2054.91 s [opt-env-conf-test] showString "Alt "
  17758. 2054.91 s [opt-env-conf-test] . go 11 p1
  17759. 2054.91 s [opt-env-conf-test] . showString " "
  17760. 2054.91 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:321:20-26
  17761. 2054.91 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17762. 2054.91 s [opt-env-conf-test] showString "Empty "
  17763. 2054.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  17764. 2054.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17765. 2054.91 s [opt-env-conf-test] - showParen (d > 10) $
  17766. 2054.91 s [opt-env-conf-test] + showParen (not (d > 10)) $
  17767. 2054.91 s [opt-env-conf-test] showString "Alt "
  17768. 2054.91 s [opt-env-conf-test] . go 11 p1
  17769. 2054.91 s [opt-env-conf-test] . showString " "
  17770. 2054.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
  17771. 2054.91 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17772. 2054.91 s [opt-env-conf-test] showString "Empty "
  17773. 2054.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  17774. 2054.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17775. 2054.91 s [opt-env-conf-test] - showParen (d > 10) $
  17776. 2054.91 s [opt-env-conf-test] + showParen True $
  17777. 2054.91 s [opt-env-conf-test] showString "Alt "
  17778. 2054.91 s [opt-env-conf-test] . go 11 p1
  17779. 2054.91 s [opt-env-conf-test] . showString " "
  17780. 2054.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
  17781. 2054.91 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17782. 2054.91 s [opt-env-conf-test] showString "Empty "
  17783. 2054.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  17784. 2054.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17785. 2054.91 s [opt-env-conf-test] - showParen (d > 10) $
  17786. 2054.91 s [opt-env-conf-test] + showParen False $
  17787. 2054.91 s [opt-env-conf-test] showString "Alt "
  17788. 2054.91 s [opt-env-conf-test] . go 11 p1
  17789. 2054.91 s [opt-env-conf-test] . showString " "
  17790. 2054.91 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:321:19-27
  17791. 2054.91 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  17792. 2054.91 s [opt-env-conf-test] showString "Empty "
  17793. 2054.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  17794. 2054.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17795. 2054.91 s [opt-env-conf-test] - showParen (d > 10) $
  17796. 2054.91 s [opt-env-conf-test] + showParen not ((d > 10)) $
  17797. 2054.91 s [opt-env-conf-test] showString "Alt "
  17798. 2054.91 s [opt-env-conf-test] . go 11 p1
  17799. 2054.91 s [opt-env-conf-test] . showString " "
  17800. 2054.91 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
  17801. 2054.91 s [opt-env-conf-test] @@ -320,7 +320,7 @@
  17802. 2054.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17803. 2054.91 s [opt-env-conf-test] showParen (d > 10) $
  17804. 2054.91 s [opt-env-conf-test] showString "Alt "
  17805. 2054.91 s [opt-env-conf-test] - . go 11 p1
  17806. 2054.91 s [opt-env-conf-test] + . go 0 p1
  17807. 2054.91 s [opt-env-conf-test] . showString " "
  17808. 2054.91 s [opt-env-conf-test] . go 11 p2
  17809. 2054.91 s [opt-env-conf-test] ParserMany mLoc p ->
  17810. 2054.91 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
  17811. 2054.91 s [opt-env-conf-test] @@ -320,7 +320,7 @@
  17812. 2054.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17813. 2054.91 s [opt-env-conf-test] showParen (d > 10) $
  17814. 2054.91 s [opt-env-conf-test] showString "Alt "
  17815. 2054.91 s [opt-env-conf-test] - . go 11 p1
  17816. 2054.91 s [opt-env-conf-test] + . go 1 p1
  17817. 2054.91 s [opt-env-conf-test] . showString " "
  17818. 2054.91 s [opt-env-conf-test] . go 11 p2
  17819. 2054.91 s [opt-env-conf-test] ParserMany mLoc p ->
  17820. 2054.91 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
  17821. 2054.91 s [opt-env-conf-test] @@ -320,7 +320,7 @@
  17822. 2054.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  17823. 2054.91 s [opt-env-conf-test] showParen (d > 10) $
  17824. 2054.91 s [opt-env-conf-test] showString "Alt "
  17825. 2054.91 s [opt-env-conf-test] - . go 11 p1
  17826. 2054.92 s [opt-env-conf-test] + . go -11 p1
  17827. 2054.92 s [opt-env-conf-test] . showString " "
  17828. 2054.92 s [opt-env-conf-test] . go 11 p2
  17829. 2054.92 s [opt-env-conf-test] ParserMany mLoc p ->
  17830. 2054.92 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
  17831. 2054.92 s [opt-env-conf-test] @@ -322,7 +322,7 @@
  17832. 2054.92 s [opt-env-conf-test] showString "Alt "
  17833. 2054.92 s [opt-env-conf-test] . go 11 p1
  17834. 2054.92 s [opt-env-conf-test] . showString " "
  17835. 2054.92 s [opt-env-conf-test] - . go 11 p2
  17836. 2054.92 s [opt-env-conf-test] + . go 0 p2
  17837. 2054.92 s [opt-env-conf-test] ParserMany mLoc p ->
  17838. 2054.92 s [opt-env-conf-test] showParen (d > 10) $
  17839. 2054.92 s [opt-env-conf-test] showString "Many "
  17840. 2054.92 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
  17841. 2054.92 s [opt-env-conf-test] @@ -322,7 +322,7 @@
  17842. 2054.92 s [opt-env-conf-test] showString "Alt "
  17843. 2054.92 s [opt-env-conf-test] . go 11 p1
  17844. 2054.92 s [opt-env-conf-test] . showString " "
  17845. 2054.92 s [opt-env-conf-test] - . go 11 p2
  17846. 2054.92 s [opt-env-conf-test] + . go 1 p2
  17847. 2054.92 s [opt-env-conf-test] ParserMany mLoc p ->
  17848. 2054.92 s [opt-env-conf-test] showParen (d > 10) $
  17849. 2054.92 s [opt-env-conf-test] showString "Many "
  17850. 2054.92 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
  17851. 2054.92 s [opt-env-conf-test] @@ -322,7 +322,7 @@
  17852. 2054.92 s [opt-env-conf-test] showString "Alt "
  17853. 2054.92 s [opt-env-conf-test] . go 11 p1
  17854. 2054.92 s [opt-env-conf-test] . showString " "
  17855. 2054.92 s [opt-env-conf-test] - . go 11 p2
  17856. 2054.92 s [opt-env-conf-test] + . go -11 p2
  17857. 2054.92 s [opt-env-conf-test] ParserMany mLoc p ->
  17858. 2054.92 s [opt-env-conf-test] showParen (d > 10) $
  17859. 2054.92 s [opt-env-conf-test] showString "Many "
  17860. 2054.92 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
  17861. 2054.92 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17862. 2062.16 s [opt-env-conf-test] . showString " "
  17863. 2062.21 s [opt-env-conf-test] . go 11 p2
  17864. 2062.21 s [opt-env-conf-test] ParserMany mLoc p ->
  17865. 2062.21 s [opt-env-conf-test] - showParen (d > 10) $
  17866. 2062.21 s [opt-env-conf-test] + showParen (d > 0) $
  17867. 2062.21 s [opt-env-conf-test] showString "Many "
  17868. 2062.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  17869. 2062.21 s [opt-env-conf-test] . showString " "
  17870. 2062.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
  17871. 2062.21 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17872. 2062.21 s [opt-env-conf-test] . showString " "
  17873. 2062.21 s [opt-env-conf-test] . go 11 p2
  17874. 2062.21 s [opt-env-conf-test] ParserMany mLoc p ->
  17875. 2062.21 s [opt-env-conf-test] - showParen (d > 10) $
  17876. 2062.21 s [opt-env-conf-test] + showParen (d > 1) $
  17877. 2062.21 s [opt-env-conf-test] showString "Many "
  17878. 2062.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  17879. 2062.21 s [opt-env-conf-test] . showString " "
  17880. 2062.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
  17881. 2062.21 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17882. 2062.21 s [opt-env-conf-test] . showString " "
  17883. 2062.21 s [opt-env-conf-test] . go 11 p2
  17884. 2062.21 s [opt-env-conf-test] ParserMany mLoc p ->
  17885. 2062.21 s [opt-env-conf-test] - showParen (d > 10) $
  17886. 2062.21 s [opt-env-conf-test] + showParen (d > -10) $
  17887. 2062.21 s [opt-env-conf-test] showString "Many "
  17888. 2062.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  17889. 2062.21 s [opt-env-conf-test] . showString " "
  17890. 2062.21 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:327:20-26
  17891. 2062.21 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17892. 2062.21 s [opt-env-conf-test] . showString " "
  17893. 2062.21 s [opt-env-conf-test] . go 11 p2
  17894. 2062.21 s [opt-env-conf-test] ParserMany mLoc p ->
  17895. 2062.21 s [opt-env-conf-test] - showParen (d > 10) $
  17896. 2062.21 s [opt-env-conf-test] + showParen (d < 10) $
  17897. 2062.21 s [opt-env-conf-test] showString "Many "
  17898. 2062.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  17899. 2062.21 s [opt-env-conf-test] . showString " "
  17900. 2062.21 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:327:20-26
  17901. 2062.21 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17902. 2062.21 s [opt-env-conf-test] . showString " "
  17903. 2062.22 s [opt-env-conf-test] . go 11 p2
  17904. 2062.22 s [opt-env-conf-test] ParserMany mLoc p ->
  17905. 2062.22 s [opt-env-conf-test] - showParen (d > 10) $
  17906. 2062.22 s [opt-env-conf-test] + showParen (d <= 10) $
  17907. 2062.22 s [opt-env-conf-test] showString "Many "
  17908. 2062.22 s [opt-env-conf-test] . showsPrec 11 mLoc
  17909. 2062.22 s [opt-env-conf-test] . showString " "
  17910. 2062.22 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:327:20-26
  17911. 2062.22 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17912. 2062.22 s [opt-env-conf-test] . showString " "
  17913. 2062.22 s [opt-env-conf-test] . go 11 p2
  17914. 2062.22 s [opt-env-conf-test] ParserMany mLoc p ->
  17915. 2062.22 s [opt-env-conf-test] - showParen (d > 10) $
  17916. 2062.22 s [opt-env-conf-test] + showParen (d >= 10) $
  17917. 2062.22 s [opt-env-conf-test] showString "Many "
  17918. 2062.22 s [opt-env-conf-test] . showsPrec 11 mLoc
  17919. 2062.22 s [opt-env-conf-test] . showString " "
  17920. 2062.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
  17921. 2062.22 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17922. 2062.22 s [opt-env-conf-test] . showString " "
  17923. 2062.22 s [opt-env-conf-test] . go 11 p2
  17924. 2062.22 s [opt-env-conf-test] ParserMany mLoc p ->
  17925. 2062.22 s [opt-env-conf-test] - showParen (d > 10) $
  17926. 2062.22 s [opt-env-conf-test] + showParen (True) $
  17927. 2062.22 s [opt-env-conf-test] showString "Many "
  17928. 2062.22 s [opt-env-conf-test] . showsPrec 11 mLoc
  17929. 2062.22 s [opt-env-conf-test] . showString " "
  17930. 2062.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
  17931. 2062.22 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17932. 2062.22 s [opt-env-conf-test] . showString " "
  17933. 2062.22 s [opt-env-conf-test] . go 11 p2
  17934. 2062.22 s [opt-env-conf-test] ParserMany mLoc p ->
  17935. 2062.22 s [opt-env-conf-test] - showParen (d > 10) $
  17936. 2062.22 s [opt-env-conf-test] + showParen (False) $
  17937. 2062.22 s [opt-env-conf-test] showString "Many "
  17938. 2062.22 s [opt-env-conf-test] . showsPrec 11 mLoc
  17939. 2062.22 s [opt-env-conf-test] . showString " "
  17940. 2062.22 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:327:20-26
  17941. 2062.22 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17942. 2062.22 s [opt-env-conf-test] . showString " "
  17943. 2062.22 s [opt-env-conf-test] . go 11 p2
  17944. 2062.22 s [opt-env-conf-test] ParserMany mLoc p ->
  17945. 2062.22 s [opt-env-conf-test] - showParen (d > 10) $
  17946. 2062.22 s [opt-env-conf-test] + showParen (not (d > 10)) $
  17947. 2062.22 s [opt-env-conf-test] showString "Many "
  17948. 2062.22 s [opt-env-conf-test] . showsPrec 11 mLoc
  17949. 2062.22 s [opt-env-conf-test] . showString " "
  17950. 2062.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
  17951. 2062.22 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17952. 2062.22 s [opt-env-conf-test] . showString " "
  17953. 2062.22 s [opt-env-conf-test] . go 11 p2
  17954. 2062.22 s [opt-env-conf-test] ParserMany mLoc p ->
  17955. 2062.22 s [opt-env-conf-test] - showParen (d > 10) $
  17956. 2062.22 s [opt-env-conf-test] + showParen True $
  17957. 2062.22 s [opt-env-conf-test] showString "Many "
  17958. 2062.22 s [opt-env-conf-test] . showsPrec 11 mLoc
  17959. 2062.22 s [opt-env-conf-test] . showString " "
  17960. 2062.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
  17961. 2062.22 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17962. 2062.22 s [opt-env-conf-test] . showString " "
  17963. 2062.22 s [opt-env-conf-test] . go 11 p2
  17964. 2062.22 s [opt-env-conf-test] ParserMany mLoc p ->
  17965. 2062.22 s [opt-env-conf-test] - showParen (d > 10) $
  17966. 2062.22 s [opt-env-conf-test] + showParen False $
  17967. 2062.22 s [opt-env-conf-test] showString "Many "
  17968. 2062.22 s [opt-env-conf-test] . showsPrec 11 mLoc
  17969. 2062.22 s [opt-env-conf-test] . showString " "
  17970. 2062.22 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:327:19-27
  17971. 2062.23 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  17972. 2062.23 s [opt-env-conf-test] . showString " "
  17973. 2062.23 s [opt-env-conf-test] . go 11 p2
  17974. 2062.23 s [opt-env-conf-test] ParserMany mLoc p ->
  17975. 2062.23 s [opt-env-conf-test] - showParen (d > 10) $
  17976. 2062.23 s [opt-env-conf-test] + showParen not ((d > 10)) $
  17977. 2062.23 s [opt-env-conf-test] showString "Many "
  17978. 2062.23 s [opt-env-conf-test] . showsPrec 11 mLoc
  17979. 2062.23 s [opt-env-conf-test] . showString " "
  17980. 2062.23 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
  17981. 2062.23 s [opt-env-conf-test] @@ -326,7 +326,7 @@
  17982. 2062.23 s [opt-env-conf-test] ParserMany mLoc p ->
  17983. 2062.23 s [opt-env-conf-test] showParen (d > 10) $
  17984. 2062.23 s [opt-env-conf-test] showString "Many "
  17985. 2062.23 s [opt-env-conf-test] - . showsPrec 11 mLoc
  17986. 2062.23 s [opt-env-conf-test] + . showsPrec 0 mLoc
  17987. 2062.23 s [opt-env-conf-test] . showString " "
  17988. 2062.23 s [opt-env-conf-test] . go 11 p
  17989. 2062.23 s [opt-env-conf-test] ParserSome mLoc p ->
  17990. 2062.23 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
  17991. 2062.23 s [opt-env-conf-test] @@ -326,7 +326,7 @@
  17992. 2062.23 s [opt-env-conf-test] ParserMany mLoc p ->
  17993. 2062.23 s [opt-env-conf-test] showParen (d > 10) $
  17994. 2062.23 s [opt-env-conf-test] showString "Many "
  17995. 2062.23 s [opt-env-conf-test] - . showsPrec 11 mLoc
  17996. 2062.23 s [opt-env-conf-test] + . showsPrec 1 mLoc
  17997. 2062.23 s [opt-env-conf-test] . showString " "
  17998. 2062.23 s [opt-env-conf-test] . go 11 p
  17999. 2062.23 s [opt-env-conf-test] ParserSome mLoc p ->
  18000. 2062.23 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
  18001. 2062.23 s [opt-env-conf-test] @@ -326,7 +326,7 @@
  18002. 2062.23 s [opt-env-conf-test] ParserMany mLoc p ->
  18003. 2062.23 s [opt-env-conf-test] showParen (d > 10) $
  18004. 2062.23 s [opt-env-conf-test] showString "Many "
  18005. 2062.23 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18006. 2062.23 s [opt-env-conf-test] + . showsPrec -11 mLoc
  18007. 2062.23 s [opt-env-conf-test] . showString " "
  18008. 2062.23 s [opt-env-conf-test] . go 11 p
  18009. 2062.23 s [opt-env-conf-test] ParserSome mLoc p ->
  18010. 2062.23 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
  18011. 2062.23 s [opt-env-conf-test] @@ -328,7 +328,7 @@
  18012. 2062.23 s [opt-env-conf-test] showString "Many "
  18013. 2062.23 s [opt-env-conf-test] . showsPrec 11 mLoc
  18014. 2062.23 s [opt-env-conf-test] . showString " "
  18015. 2062.23 s [opt-env-conf-test] - . go 11 p
  18016. 2062.23 s [opt-env-conf-test] + . go 0 p
  18017. 2062.23 s [opt-env-conf-test] ParserSome mLoc p ->
  18018. 2062.23 s [opt-env-conf-test] showParen (d > 10) $
  18019. 2062.23 s [opt-env-conf-test] showString "Some "
  18020. 2062.23 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
  18021. 2062.23 s [opt-env-conf-test] @@ -328,7 +328,7 @@
  18022. 2062.23 s [opt-env-conf-test] showString "Many "
  18023. 2062.23 s [opt-env-conf-test] . showsPrec 11 mLoc
  18024. 2062.23 s [opt-env-conf-test] . showString " "
  18025. 2062.23 s [opt-env-conf-test] - . go 11 p
  18026. 2062.23 s [opt-env-conf-test] + . go 1 p
  18027. 2062.23 s [opt-env-conf-test] ParserSome mLoc p ->
  18028. 2062.23 s [opt-env-conf-test] showParen (d > 10) $
  18029. 2062.23 s [opt-env-conf-test] showString "Some "
  18030. 2062.23 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
  18031. 2062.23 s [opt-env-conf-test] @@ -328,7 +328,7 @@
  18032. 2062.23 s [opt-env-conf-test] showString "Many "
  18033. 2062.24 s [opt-env-conf-test] . showsPrec 11 mLoc
  18034. 2062.24 s [opt-env-conf-test] . showString " "
  18035. 2062.24 s [opt-env-conf-test] - . go 11 p
  18036. 2062.24 s [opt-env-conf-test] + . go -11 p
  18037. 2062.24 s [opt-env-conf-test] ParserSome mLoc p ->
  18038. 2062.24 s [opt-env-conf-test] showParen (d > 10) $
  18039. 2062.24 s [opt-env-conf-test] showString "Some "
  18040. 2062.24 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
  18041. 2062.24 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18042. 2062.24 s [opt-env-conf-test] . showString " "
  18043. 2062.24 s [opt-env-conf-test] . go 11 p
  18044. 2062.24 s [opt-env-conf-test] ParserSome mLoc p ->
  18045. 2062.24 s [opt-env-conf-test] - showParen (d > 10) $
  18046. 2062.24 s [opt-env-conf-test] + showParen (d > 0) $
  18047. 2062.24 s [opt-env-conf-test] showString "Some "
  18048. 2062.24 s [opt-env-conf-test] . showsPrec 11 mLoc
  18049. 2062.24 s [opt-env-conf-test] . showString " "
  18050. 2062.24 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
  18051. 2062.24 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18052. 2062.24 s [opt-env-conf-test] . showString " "
  18053. 2062.24 s [opt-env-conf-test] . go 11 p
  18054. 2062.24 s [opt-env-conf-test] ParserSome mLoc p ->
  18055. 2062.24 s [opt-env-conf-test] - showParen (d > 10) $
  18056. 2062.24 s [opt-env-conf-test] + showParen (d > 1) $
  18057. 2062.24 s [opt-env-conf-test] showString "Some "
  18058. 2062.24 s [opt-env-conf-test] . showsPrec 11 mLoc
  18059. 2062.24 s [opt-env-conf-test] . showString " "
  18060. 2062.24 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
  18061. 2062.24 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18062. 2062.24 s [opt-env-conf-test] . showString " "
  18063. 2062.24 s [opt-env-conf-test] . go 11 p
  18064. 2062.24 s [opt-env-conf-test] ParserSome mLoc p ->
  18065. 2068.48 s [opt-env-conf-test] - showParen (d > 10) $
  18066. 2068.48 s [opt-env-conf-test] + showParen (d > -10) $
  18067. 2068.50 s [opt-env-conf-test] showString "Some "
  18068. 2068.50 s [opt-env-conf-test] . showsPrec 11 mLoc
  18069. 2068.50 s [opt-env-conf-test] . showString " "
  18070. 2068.50 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:333:20-26
  18071. 2068.50 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18072. 2068.50 s [opt-env-conf-test] . showString " "
  18073. 2068.50 s [opt-env-conf-test] . go 11 p
  18074. 2068.50 s [opt-env-conf-test] ParserSome mLoc p ->
  18075. 2068.50 s [opt-env-conf-test] - showParen (d > 10) $
  18076. 2068.50 s [opt-env-conf-test] + showParen (d < 10) $
  18077. 2068.50 s [opt-env-conf-test] showString "Some "
  18078. 2068.50 s [opt-env-conf-test] . showsPrec 11 mLoc
  18079. 2068.50 s [opt-env-conf-test] . showString " "
  18080. 2068.50 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:333:20-26
  18081. 2068.50 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18082. 2068.50 s [opt-env-conf-test] . showString " "
  18083. 2068.50 s [opt-env-conf-test] . go 11 p
  18084. 2068.50 s [opt-env-conf-test] ParserSome mLoc p ->
  18085. 2068.50 s [opt-env-conf-test] - showParen (d > 10) $
  18086. 2068.50 s [opt-env-conf-test] + showParen (d <= 10) $
  18087. 2068.51 s [opt-env-conf-test] showString "Some "
  18088. 2068.51 s [opt-env-conf-test] . showsPrec 11 mLoc
  18089. 2068.51 s [opt-env-conf-test] . showString " "
  18090. 2068.51 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:333:20-26
  18091. 2068.51 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18092. 2068.51 s [opt-env-conf-test] . showString " "
  18093. 2068.51 s [opt-env-conf-test] . go 11 p
  18094. 2068.51 s [opt-env-conf-test] ParserSome mLoc p ->
  18095. 2068.51 s [opt-env-conf-test] - showParen (d > 10) $
  18096. 2068.51 s [opt-env-conf-test] + showParen (d >= 10) $
  18097. 2068.51 s [opt-env-conf-test] showString "Some "
  18098. 2068.51 s [opt-env-conf-test] . showsPrec 11 mLoc
  18099. 2068.51 s [opt-env-conf-test] . showString " "
  18100. 2068.51 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
  18101. 2068.51 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18102. 2068.51 s [opt-env-conf-test] . showString " "
  18103. 2068.51 s [opt-env-conf-test] . go 11 p
  18104. 2068.51 s [opt-env-conf-test] ParserSome mLoc p ->
  18105. 2068.51 s [opt-env-conf-test] - showParen (d > 10) $
  18106. 2068.51 s [opt-env-conf-test] + showParen (True) $
  18107. 2068.51 s [opt-env-conf-test] showString "Some "
  18108. 2068.51 s [opt-env-conf-test] . showsPrec 11 mLoc
  18109. 2068.51 s [opt-env-conf-test] . showString " "
  18110. 2068.51 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
  18111. 2068.51 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18112. 2068.51 s [opt-env-conf-test] . showString " "
  18113. 2068.51 s [opt-env-conf-test] . go 11 p
  18114. 2068.51 s [opt-env-conf-test] ParserSome mLoc p ->
  18115. 2068.51 s [opt-env-conf-test] - showParen (d > 10) $
  18116. 2068.51 s [opt-env-conf-test] + showParen (False) $
  18117. 2068.51 s [opt-env-conf-test] showString "Some "
  18118. 2068.51 s [opt-env-conf-test] . showsPrec 11 mLoc
  18119. 2068.51 s [opt-env-conf-test] . showString " "
  18120. 2068.51 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:333:20-26
  18121. 2068.51 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18122. 2068.51 s [opt-env-conf-test] . showString " "
  18123. 2068.51 s [opt-env-conf-test] . go 11 p
  18124. 2068.51 s [opt-env-conf-test] ParserSome mLoc p ->
  18125. 2068.51 s [opt-env-conf-test] - showParen (d > 10) $
  18126. 2068.51 s [opt-env-conf-test] + showParen (not (d > 10)) $
  18127. 2068.51 s [opt-env-conf-test] showString "Some "
  18128. 2068.51 s [opt-env-conf-test] . showsPrec 11 mLoc
  18129. 2068.51 s [opt-env-conf-test] . showString " "
  18130. 2068.51 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
  18131. 2068.51 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18132. 2068.51 s [opt-env-conf-test] . showString " "
  18133. 2068.51 s [opt-env-conf-test] . go 11 p
  18134. 2068.51 s [opt-env-conf-test] ParserSome mLoc p ->
  18135. 2068.51 s [opt-env-conf-test] - showParen (d > 10) $
  18136. 2068.51 s [opt-env-conf-test] + showParen True $
  18137. 2068.51 s [opt-env-conf-test] showString "Some "
  18138. 2068.51 s [opt-env-conf-test] . showsPrec 11 mLoc
  18139. 2068.51 s [opt-env-conf-test] . showString " "
  18140. 2068.51 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
  18141. 2068.51 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18142. 2068.51 s [opt-env-conf-test] . showString " "
  18143. 2068.51 s [opt-env-conf-test] . go 11 p
  18144. 2068.51 s [opt-env-conf-test] ParserSome mLoc p ->
  18145. 2068.51 s [opt-env-conf-test] - showParen (d > 10) $
  18146. 2068.51 s [opt-env-conf-test] + showParen False $
  18147. 2068.51 s [opt-env-conf-test] showString "Some "
  18148. 2068.52 s [opt-env-conf-test] . showsPrec 11 mLoc
  18149. 2068.52 s [opt-env-conf-test] . showString " "
  18150. 2068.52 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:333:19-27
  18151. 2068.52 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  18152. 2068.52 s [opt-env-conf-test] . showString " "
  18153. 2068.52 s [opt-env-conf-test] . go 11 p
  18154. 2068.52 s [opt-env-conf-test] ParserSome mLoc p ->
  18155. 2068.52 s [opt-env-conf-test] - showParen (d > 10) $
  18156. 2068.52 s [opt-env-conf-test] + showParen not ((d > 10)) $
  18157. 2068.52 s [opt-env-conf-test] showString "Some "
  18158. 2068.52 s [opt-env-conf-test] . showsPrec 11 mLoc
  18159. 2068.52 s [opt-env-conf-test] . showString " "
  18160. 2068.52 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
  18161. 2068.52 s [opt-env-conf-test] @@ -332,7 +332,7 @@
  18162. 2068.52 s [opt-env-conf-test] ParserSome mLoc p ->
  18163. 2068.52 s [opt-env-conf-test] showParen (d > 10) $
  18164. 2068.52 s [opt-env-conf-test] showString "Some "
  18165. 2068.52 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18166. 2068.52 s [opt-env-conf-test] + . showsPrec 0 mLoc
  18167. 2068.52 s [opt-env-conf-test] . showString " "
  18168. 2068.52 s [opt-env-conf-test] . go 11 p
  18169. 2068.52 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18170. 2068.52 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
  18171. 2068.52 s [opt-env-conf-test] @@ -332,7 +332,7 @@
  18172. 2068.52 s [opt-env-conf-test] ParserSome mLoc p ->
  18173. 2068.52 s [opt-env-conf-test] showParen (d > 10) $
  18174. 2068.52 s [opt-env-conf-test] showString "Some "
  18175. 2068.52 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18176. 2068.52 s [opt-env-conf-test] + . showsPrec 1 mLoc
  18177. 2068.52 s [opt-env-conf-test] . showString " "
  18178. 2068.52 s [opt-env-conf-test] . go 11 p
  18179. 2068.52 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18180. 2068.52 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
  18181. 2068.52 s [opt-env-conf-test] @@ -332,7 +332,7 @@
  18182. 2068.52 s [opt-env-conf-test] ParserSome mLoc p ->
  18183. 2068.52 s [opt-env-conf-test] showParen (d > 10) $
  18184. 2068.52 s [opt-env-conf-test] showString "Some "
  18185. 2068.52 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18186. 2068.52 s [opt-env-conf-test] + . showsPrec -11 mLoc
  18187. 2068.52 s [opt-env-conf-test] . showString " "
  18188. 2068.52 s [opt-env-conf-test] . go 11 p
  18189. 2068.52 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18190. 2068.52 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
  18191. 2068.52 s [opt-env-conf-test] @@ -334,7 +334,7 @@
  18192. 2068.52 s [opt-env-conf-test] showString "Some "
  18193. 2068.52 s [opt-env-conf-test] . showsPrec 11 mLoc
  18194. 2068.52 s [opt-env-conf-test] . showString " "
  18195. 2068.52 s [opt-env-conf-test] - . go 11 p
  18196. 2068.52 s [opt-env-conf-test] + . go 0 p
  18197. 2068.52 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18198. 2068.52 s [opt-env-conf-test] showParen (d > 10) $
  18199. 2068.52 s [opt-env-conf-test] showString "AllOrNothing "
  18200. 2068.52 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
  18201. 2068.52 s [opt-env-conf-test] @@ -334,7 +334,7 @@
  18202. 2068.52 s [opt-env-conf-test] showString "Some "
  18203. 2068.52 s [opt-env-conf-test] . showsPrec 11 mLoc
  18204. 2068.52 s [opt-env-conf-test] . showString " "
  18205. 2068.52 s [opt-env-conf-test] - . go 11 p
  18206. 2068.52 s [opt-env-conf-test] + . go 1 p
  18207. 2068.52 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18208. 2068.52 s [opt-env-conf-test] showParen (d > 10) $
  18209. 2068.52 s [opt-env-conf-test] showString "AllOrNothing "
  18210. 2068.52 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
  18211. 2068.52 s [opt-env-conf-test] @@ -334,7 +334,7 @@
  18212. 2068.52 s [opt-env-conf-test] showString "Some "
  18213. 2068.52 s [opt-env-conf-test] . showsPrec 11 mLoc
  18214. 2068.52 s [opt-env-conf-test] . showString " "
  18215. 2068.52 s [opt-env-conf-test] - . go 11 p
  18216. 2068.52 s [opt-env-conf-test] + . go -11 p
  18217. 2068.52 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18218. 2068.52 s [opt-env-conf-test] showParen (d > 10) $
  18219. 2068.52 s [opt-env-conf-test] showString "AllOrNothing "
  18220. 2068.52 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
  18221. 2068.52 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18222. 2068.52 s [opt-env-conf-test] . showString " "
  18223. 2068.52 s [opt-env-conf-test] . go 11 p
  18224. 2068.52 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18225. 2068.52 s [opt-env-conf-test] - showParen (d > 10) $
  18226. 2068.52 s [opt-env-conf-test] + showParen (d > 0) $
  18227. 2068.52 s [opt-env-conf-test] showString "AllOrNothing "
  18228. 2068.52 s [opt-env-conf-test] . showsPrec 11 mLoc
  18229. 2068.52 s [opt-env-conf-test] . showString " "
  18230. 2068.52 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
  18231. 2068.52 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18232. 2068.52 s [opt-env-conf-test] . showString " "
  18233. 2068.52 s [opt-env-conf-test] . go 11 p
  18234. 2068.52 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18235. 2068.52 s [opt-env-conf-test] - showParen (d > 10) $
  18236. 2068.52 s [opt-env-conf-test] + showParen (d > 1) $
  18237. 2068.52 s [opt-env-conf-test] showString "AllOrNothing "
  18238. 2068.52 s [opt-env-conf-test] . showsPrec 11 mLoc
  18239. 2068.52 s [opt-env-conf-test] . showString " "
  18240. 2068.52 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
  18241. 2068.52 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18242. 2068.52 s [opt-env-conf-test] . showString " "
  18243. 2068.52 s [opt-env-conf-test] . go 11 p
  18244. 2068.52 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18245. 2068.52 s [opt-env-conf-test] - showParen (d > 10) $
  18246. 2068.52 s [opt-env-conf-test] + showParen (d > -10) $
  18247. 2068.52 s [opt-env-conf-test] showString "AllOrNothing "
  18248. 2068.52 s [opt-env-conf-test] . showsPrec 11 mLoc
  18249. 2068.52 s [opt-env-conf-test] . showString " "
  18250. 2068.52 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:339:20-26
  18251. 2068.52 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18252. 2068.52 s [opt-env-conf-test] . showString " "
  18253. 2068.53 s [opt-env-conf-test] . go 11 p
  18254. 2068.53 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18255. 2068.53 s [opt-env-conf-test] - showParen (d > 10) $
  18256. 2068.53 s [opt-env-conf-test] + showParen (d < 10) $
  18257. 2068.53 s [opt-env-conf-test] showString "AllOrNothing "
  18258. 2068.53 s [opt-env-conf-test] . showsPrec 11 mLoc
  18259. 2068.53 s [opt-env-conf-test] . showString " "
  18260. 2068.53 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:339:20-26
  18261. 2068.53 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18262. 2068.53 s [opt-env-conf-test] . showString " "
  18263. 2068.53 s [opt-env-conf-test] . go 11 p
  18264. 2068.53 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18265. 2069.70 s [opt-env-conf-test] - showParen (d > 10) $
  18266. 2069.70 s [opt-env-conf-test] + showParen (d <= 10) $
  18267. 2069.70 s [opt-env-conf-test] showString "AllOrNothing "
  18268. 2069.70 s [opt-env-conf-test] . showsPrec 11 mLoc
  18269. 2069.70 s [opt-env-conf-test] . showString " "
  18270. 2069.70 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:339:20-26
  18271. 2069.70 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18272. 2069.70 s [opt-env-conf-test] . showString " "
  18273. 2069.70 s [opt-env-conf-test] . go 11 p
  18274. 2069.70 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18275. 2069.70 s [opt-env-conf-test] - showParen (d > 10) $
  18276. 2069.70 s [opt-env-conf-test] + showParen (d >= 10) $
  18277. 2069.70 s [opt-env-conf-test] showString "AllOrNothing "
  18278. 2069.70 s [opt-env-conf-test] . showsPrec 11 mLoc
  18279. 2069.70 s [opt-env-conf-test] . showString " "
  18280. 2069.70 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
  18281. 2069.70 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18282. 2069.70 s [opt-env-conf-test] . showString " "
  18283. 2069.70 s [opt-env-conf-test] . go 11 p
  18284. 2069.70 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18285. 2069.70 s [opt-env-conf-test] - showParen (d > 10) $
  18286. 2069.70 s [opt-env-conf-test] + showParen (True) $
  18287. 2069.70 s [opt-env-conf-test] showString "AllOrNothing "
  18288. 2069.70 s [opt-env-conf-test] . showsPrec 11 mLoc
  18289. 2069.70 s [opt-env-conf-test] . showString " "
  18290. 2069.70 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
  18291. 2069.70 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18292. 2069.70 s [opt-env-conf-test] . showString " "
  18293. 2069.70 s [opt-env-conf-test] . go 11 p
  18294. 2069.70 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18295. 2069.70 s [opt-env-conf-test] - showParen (d > 10) $
  18296. 2069.70 s [opt-env-conf-test] + showParen (False) $
  18297. 2069.70 s [opt-env-conf-test] showString "AllOrNothing "
  18298. 2069.70 s [opt-env-conf-test] . showsPrec 11 mLoc
  18299. 2069.70 s [opt-env-conf-test] . showString " "
  18300. 2069.70 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:339:20-26
  18301. 2069.70 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18302. 2069.70 s [opt-env-conf-test] . showString " "
  18303. 2069.70 s [opt-env-conf-test] . go 11 p
  18304. 2069.70 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18305. 2069.70 s [opt-env-conf-test] - showParen (d > 10) $
  18306. 2069.70 s [opt-env-conf-test] + showParen (not (d > 10)) $
  18307. 2069.70 s [opt-env-conf-test] showString "AllOrNothing "
  18308. 2069.70 s [opt-env-conf-test] . showsPrec 11 mLoc
  18309. 2069.70 s [opt-env-conf-test] . showString " "
  18310. 2069.70 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
  18311. 2069.70 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18312. 2069.70 s [opt-env-conf-test] . showString " "
  18313. 2069.70 s [opt-env-conf-test] . go 11 p
  18314. 2069.70 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18315. 2069.70 s [opt-env-conf-test] - showParen (d > 10) $
  18316. 2069.70 s [opt-env-conf-test] + showParen True $
  18317. 2069.70 s [opt-env-conf-test] showString "AllOrNothing "
  18318. 2069.70 s [opt-env-conf-test] . showsPrec 11 mLoc
  18319. 2069.70 s [opt-env-conf-test] . showString " "
  18320. 2069.71 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
  18321. 2069.71 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18322. 2069.71 s [opt-env-conf-test] . showString " "
  18323. 2069.71 s [opt-env-conf-test] . go 11 p
  18324. 2069.71 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18325. 2069.71 s [opt-env-conf-test] - showParen (d > 10) $
  18326. 2069.71 s [opt-env-conf-test] + showParen False $
  18327. 2069.71 s [opt-env-conf-test] showString "AllOrNothing "
  18328. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18329. 2069.71 s [opt-env-conf-test] . showString " "
  18330. 2069.71 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:339:19-27
  18331. 2069.71 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  18332. 2069.71 s [opt-env-conf-test] . showString " "
  18333. 2069.71 s [opt-env-conf-test] . go 11 p
  18334. 2069.71 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18335. 2069.71 s [opt-env-conf-test] - showParen (d > 10) $
  18336. 2069.71 s [opt-env-conf-test] + showParen not ((d > 10)) $
  18337. 2069.71 s [opt-env-conf-test] showString "AllOrNothing "
  18338. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18339. 2069.71 s [opt-env-conf-test] . showString " "
  18340. 2069.71 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
  18341. 2069.71 s [opt-env-conf-test] @@ -338,7 +338,7 @@
  18342. 2069.71 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18343. 2069.71 s [opt-env-conf-test] showParen (d > 10) $
  18344. 2069.71 s [opt-env-conf-test] showString "AllOrNothing "
  18345. 2069.71 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18346. 2069.71 s [opt-env-conf-test] + . showsPrec 0 mLoc
  18347. 2069.71 s [opt-env-conf-test] . showString " "
  18348. 2069.71 s [opt-env-conf-test] . go 11 p
  18349. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18350. 2069.71 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
  18351. 2069.71 s [opt-env-conf-test] @@ -338,7 +338,7 @@
  18352. 2069.71 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18353. 2069.71 s [opt-env-conf-test] showParen (d > 10) $
  18354. 2069.71 s [opt-env-conf-test] showString "AllOrNothing "
  18355. 2069.71 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18356. 2069.71 s [opt-env-conf-test] + . showsPrec 1 mLoc
  18357. 2069.71 s [opt-env-conf-test] . showString " "
  18358. 2069.71 s [opt-env-conf-test] . go 11 p
  18359. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18360. 2069.71 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
  18361. 2069.71 s [opt-env-conf-test] @@ -338,7 +338,7 @@
  18362. 2069.71 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  18363. 2069.71 s [opt-env-conf-test] showParen (d > 10) $
  18364. 2069.71 s [opt-env-conf-test] showString "AllOrNothing "
  18365. 2069.71 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18366. 2069.71 s [opt-env-conf-test] + . showsPrec -11 mLoc
  18367. 2069.71 s [opt-env-conf-test] . showString " "
  18368. 2069.71 s [opt-env-conf-test] . go 11 p
  18369. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18370. 2069.71 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
  18371. 2069.71 s [opt-env-conf-test] @@ -340,7 +340,7 @@
  18372. 2069.71 s [opt-env-conf-test] showString "AllOrNothing "
  18373. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18374. 2069.71 s [opt-env-conf-test] . showString " "
  18375. 2069.71 s [opt-env-conf-test] - . go 11 p
  18376. 2069.71 s [opt-env-conf-test] + . go 0 p
  18377. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18378. 2069.71 s [opt-env-conf-test] showParen (d > 10) $
  18379. 2069.71 s [opt-env-conf-test] showString "Check "
  18380. 2069.71 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
  18381. 2069.71 s [opt-env-conf-test] @@ -340,7 +340,7 @@
  18382. 2069.71 s [opt-env-conf-test] showString "AllOrNothing "
  18383. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18384. 2069.71 s [opt-env-conf-test] . showString " "
  18385. 2069.71 s [opt-env-conf-test] - . go 11 p
  18386. 2069.71 s [opt-env-conf-test] + . go 1 p
  18387. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18388. 2069.71 s [opt-env-conf-test] showParen (d > 10) $
  18389. 2069.71 s [opt-env-conf-test] showString "Check "
  18390. 2069.71 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
  18391. 2069.71 s [opt-env-conf-test] @@ -340,7 +340,7 @@
  18392. 2069.71 s [opt-env-conf-test] showString "AllOrNothing "
  18393. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18394. 2069.71 s [opt-env-conf-test] . showString " "
  18395. 2069.71 s [opt-env-conf-test] - . go 11 p
  18396. 2069.71 s [opt-env-conf-test] + . go -11 p
  18397. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18398. 2069.71 s [opt-env-conf-test] showParen (d > 10) $
  18399. 2069.71 s [opt-env-conf-test] showString "Check "
  18400. 2069.71 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
  18401. 2069.71 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18402. 2069.71 s [opt-env-conf-test] . showString " "
  18403. 2069.71 s [opt-env-conf-test] . go 11 p
  18404. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18405. 2069.71 s [opt-env-conf-test] - showParen (d > 10) $
  18406. 2069.71 s [opt-env-conf-test] + showParen (d > 0) $
  18407. 2069.71 s [opt-env-conf-test] showString "Check "
  18408. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18409. 2069.71 s [opt-env-conf-test] . showString " "
  18410. 2069.71 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
  18411. 2069.71 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18412. 2069.71 s [opt-env-conf-test] . showString " "
  18413. 2069.71 s [opt-env-conf-test] . go 11 p
  18414. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18415. 2069.71 s [opt-env-conf-test] - showParen (d > 10) $
  18416. 2069.71 s [opt-env-conf-test] + showParen (d > -10) $
  18417. 2069.71 s [opt-env-conf-test] showString "Check "
  18418. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18419. 2069.71 s [opt-env-conf-test] . showString " "
  18420. 2069.71 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
  18421. 2069.71 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18422. 2069.71 s [opt-env-conf-test] . showString " "
  18423. 2069.71 s [opt-env-conf-test] . go 11 p
  18424. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18425. 2069.71 s [opt-env-conf-test] - showParen (d > 10) $
  18426. 2069.71 s [opt-env-conf-test] + showParen (d > 1) $
  18427. 2069.71 s [opt-env-conf-test] showString "Check "
  18428. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18429. 2069.71 s [opt-env-conf-test] . showString " "
  18430. 2069.71 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:345:20-26
  18431. 2069.71 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18432. 2069.71 s [opt-env-conf-test] . showString " "
  18433. 2069.71 s [opt-env-conf-test] . go 11 p
  18434. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18435. 2069.71 s [opt-env-conf-test] - showParen (d > 10) $
  18436. 2069.71 s [opt-env-conf-test] + showParen (d < 10) $
  18437. 2069.71 s [opt-env-conf-test] showString "Check "
  18438. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18439. 2069.71 s [opt-env-conf-test] . showString " "
  18440. 2069.71 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:345:20-26
  18441. 2069.71 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18442. 2069.71 s [opt-env-conf-test] . showString " "
  18443. 2069.71 s [opt-env-conf-test] . go 11 p
  18444. 2069.71 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18445. 2069.71 s [opt-env-conf-test] - showParen (d > 10) $
  18446. 2069.71 s [opt-env-conf-test] + showParen (d <= 10) $
  18447. 2069.71 s [opt-env-conf-test] showString "Check "
  18448. 2069.71 s [opt-env-conf-test] . showsPrec 11 mLoc
  18449. 2069.71 s [opt-env-conf-test] . showString " "
  18450. 2069.71 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:345:20-26
  18451. 2069.71 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18452. 2069.71 s [opt-env-conf-test] . showString " "
  18453. 2069.71 s [opt-env-conf-test] . go 11 p
  18454. 2069.72 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18455. 2069.72 s [opt-env-conf-test] - showParen (d > 10) $
  18456. 2072.19 s [opt-env-conf-test] + showParen (d >= 10) $
  18457. 2072.19 s [opt-env-conf-test] showString "Check "
  18458. 2072.19 s [opt-env-conf-test] . showsPrec 11 mLoc
  18459. 2072.19 s [opt-env-conf-test] . showString " "
  18460. 2072.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
  18461. 2072.20 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18462. 2072.20 s [opt-env-conf-test] . showString " "
  18463. 2072.20 s [opt-env-conf-test] . go 11 p
  18464. 2072.20 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18465. 2072.20 s [opt-env-conf-test] - showParen (d > 10) $
  18466. 2072.20 s [opt-env-conf-test] + showParen (True) $
  18467. 2072.20 s [opt-env-conf-test] showString "Check "
  18468. 2072.20 s [opt-env-conf-test] . showsPrec 11 mLoc
  18469. 2072.20 s [opt-env-conf-test] . showString " "
  18470. 2072.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
  18471. 2072.20 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18472. 2072.20 s [opt-env-conf-test] . showString " "
  18473. 2072.20 s [opt-env-conf-test] . go 11 p
  18474. 2072.20 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18475. 2072.20 s [opt-env-conf-test] - showParen (d > 10) $
  18476. 2072.20 s [opt-env-conf-test] + showParen (False) $
  18477. 2072.20 s [opt-env-conf-test] showString "Check "
  18478. 2072.20 s [opt-env-conf-test] . showsPrec 11 mLoc
  18479. 2072.20 s [opt-env-conf-test] . showString " "
  18480. 2072.20 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:345:20-26
  18481. 2072.20 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18482. 2072.20 s [opt-env-conf-test] . showString " "
  18483. 2072.20 s [opt-env-conf-test] . go 11 p
  18484. 2072.20 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18485. 2072.20 s [opt-env-conf-test] - showParen (d > 10) $
  18486. 2072.20 s [opt-env-conf-test] + showParen (not (d > 10)) $
  18487. 2072.20 s [opt-env-conf-test] showString "Check "
  18488. 2072.20 s [opt-env-conf-test] . showsPrec 11 mLoc
  18489. 2072.20 s [opt-env-conf-test] . showString " "
  18490. 2072.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
  18491. 2072.20 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18492. 2072.20 s [opt-env-conf-test] . showString " "
  18493. 2072.20 s [opt-env-conf-test] . go 11 p
  18494. 2072.20 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18495. 2072.20 s [opt-env-conf-test] - showParen (d > 10) $
  18496. 2072.20 s [opt-env-conf-test] + showParen True $
  18497. 2072.20 s [opt-env-conf-test] showString "Check "
  18498. 2072.20 s [opt-env-conf-test] . showsPrec 11 mLoc
  18499. 2072.20 s [opt-env-conf-test] . showString " "
  18500. 2072.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
  18501. 2072.20 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18502. 2072.20 s [opt-env-conf-test] . showString " "
  18503. 2072.20 s [opt-env-conf-test] . go 11 p
  18504. 2072.20 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18505. 2072.20 s [opt-env-conf-test] - showParen (d > 10) $
  18506. 2072.20 s [opt-env-conf-test] + showParen False $
  18507. 2072.20 s [opt-env-conf-test] showString "Check "
  18508. 2072.20 s [opt-env-conf-test] . showsPrec 11 mLoc
  18509. 2072.20 s [opt-env-conf-test] . showString " "
  18510. 2072.20 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:345:19-27
  18511. 2072.20 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  18512. 2072.20 s [opt-env-conf-test] . showString " "
  18513. 2072.20 s [opt-env-conf-test] . go 11 p
  18514. 2072.20 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18515. 2072.20 s [opt-env-conf-test] - showParen (d > 10) $
  18516. 2072.20 s [opt-env-conf-test] + showParen not ((d > 10)) $
  18517. 2072.20 s [opt-env-conf-test] showString "Check "
  18518. 2072.20 s [opt-env-conf-test] . showsPrec 11 mLoc
  18519. 2072.20 s [opt-env-conf-test] . showString " "
  18520. 2072.20 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
  18521. 2072.20 s [opt-env-conf-test] @@ -344,7 +344,7 @@
  18522. 2072.20 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18523. 2072.20 s [opt-env-conf-test] showParen (d > 10) $
  18524. 2072.20 s [opt-env-conf-test] showString "Check "
  18525. 2072.21 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18526. 2072.21 s [opt-env-conf-test] + . showsPrec 0 mLoc
  18527. 2072.21 s [opt-env-conf-test] . showString " "
  18528. 2072.21 s [opt-env-conf-test] . showsPrec 11 forgivable
  18529. 2072.21 s [opt-env-conf-test] . showString " "
  18530. 2072.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
  18531. 2072.21 s [opt-env-conf-test] @@ -344,7 +344,7 @@
  18532. 2072.21 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18533. 2072.21 s [opt-env-conf-test] showParen (d > 10) $
  18534. 2072.21 s [opt-env-conf-test] showString "Check "
  18535. 2072.21 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18536. 2072.21 s [opt-env-conf-test] + . showsPrec 1 mLoc
  18537. 2072.21 s [opt-env-conf-test] . showString " "
  18538. 2072.21 s [opt-env-conf-test] . showsPrec 11 forgivable
  18539. 2072.21 s [opt-env-conf-test] . showString " "
  18540. 2072.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
  18541. 2072.21 s [opt-env-conf-test] @@ -344,7 +344,7 @@
  18542. 2072.21 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  18543. 2072.21 s [opt-env-conf-test] showParen (d > 10) $
  18544. 2072.21 s [opt-env-conf-test] showString "Check "
  18545. 2072.21 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18546. 2072.21 s [opt-env-conf-test] + . showsPrec -11 mLoc
  18547. 2072.21 s [opt-env-conf-test] . showString " "
  18548. 2072.21 s [opt-env-conf-test] . showsPrec 11 forgivable
  18549. 2072.21 s [opt-env-conf-test] . showString " "
  18550. 2072.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
  18551. 2072.21 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  18552. 2072.21 s [opt-env-conf-test] showString "Check "
  18553. 2072.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  18554. 2072.21 s [opt-env-conf-test] . showString " "
  18555. 2072.21 s [opt-env-conf-test] - . showsPrec 11 forgivable
  18556. 2072.21 s [opt-env-conf-test] + . showsPrec 0 forgivable
  18557. 2072.21 s [opt-env-conf-test] . showString " "
  18558. 2072.21 s [opt-env-conf-test] . showsPrec 11 caps
  18559. 2072.21 s [opt-env-conf-test] . showString " _ "
  18560. 2072.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
  18561. 2072.21 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  18562. 2072.21 s [opt-env-conf-test] showString "Check "
  18563. 2072.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  18564. 2072.21 s [opt-env-conf-test] . showString " "
  18565. 2072.21 s [opt-env-conf-test] - . showsPrec 11 forgivable
  18566. 2072.21 s [opt-env-conf-test] + . showsPrec 1 forgivable
  18567. 2072.21 s [opt-env-conf-test] . showString " "
  18568. 2072.21 s [opt-env-conf-test] . showsPrec 11 caps
  18569. 2072.21 s [opt-env-conf-test] . showString " _ "
  18570. 2072.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
  18571. 2072.21 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  18572. 2072.21 s [opt-env-conf-test] showString "Check "
  18573. 2072.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  18574. 2072.21 s [opt-env-conf-test] . showString " "
  18575. 2072.21 s [opt-env-conf-test] - . showsPrec 11 forgivable
  18576. 2072.21 s [opt-env-conf-test] + . showsPrec -11 forgivable
  18577. 2072.21 s [opt-env-conf-test] . showString " "
  18578. 2072.21 s [opt-env-conf-test] . showsPrec 11 caps
  18579. 2072.21 s [opt-env-conf-test] . showString " _ "
  18580. 2072.21 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
  18581. 2072.21 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  18582. 2072.21 s [opt-env-conf-test] showString "Check "
  18583. 2072.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  18584. 2072.21 s [opt-env-conf-test] . showString " "
  18585. 2072.21 s [opt-env-conf-test] - . showsPrec 11 forgivable
  18586. 2072.21 s [opt-env-conf-test] + . showsPrec 11 True
  18587. 2072.21 s [opt-env-conf-test] . showString " "
  18588. 2072.21 s [opt-env-conf-test] . showsPrec 11 caps
  18589. 2072.21 s [opt-env-conf-test] . showString " _ "
  18590. 2072.21 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
  18591. 2072.21 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  18592. 2072.21 s [opt-env-conf-test] showString "Check "
  18593. 2072.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  18594. 2072.21 s [opt-env-conf-test] . showString " "
  18595. 2072.21 s [opt-env-conf-test] - . showsPrec 11 forgivable
  18596. 2072.21 s [opt-env-conf-test] + . showsPrec 11 False
  18597. 2072.21 s [opt-env-conf-test] . showString " "
  18598. 2072.21 s [opt-env-conf-test] . showsPrec 11 caps
  18599. 2072.21 s [opt-env-conf-test] . showString " _ "
  18600. 2072.21 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:349:28-38
  18601. 2072.21 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  18602. 2072.21 s [opt-env-conf-test] showString "Check "
  18603. 2072.21 s [opt-env-conf-test] . showsPrec 11 mLoc
  18604. 2072.21 s [opt-env-conf-test] . showString " "
  18605. 2072.21 s [opt-env-conf-test] - . showsPrec 11 forgivable
  18606. 2072.21 s [opt-env-conf-test] + . showsPrec 11 not (forgivable)
  18607. 2072.21 s [opt-env-conf-test] . showString " "
  18608. 2072.21 s [opt-env-conf-test] . showsPrec 11 caps
  18609. 2072.21 s [opt-env-conf-test] . showString " _ "
  18610. 2072.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
  18611. 2072.21 s [opt-env-conf-test] @@ -348,7 +348,7 @@
  18612. 2072.21 s [opt-env-conf-test] . showString " "
  18613. 2072.21 s [opt-env-conf-test] . showsPrec 11 forgivable
  18614. 2072.21 s [opt-env-conf-test] . showString " "
  18615. 2072.21 s [opt-env-conf-test] - . showsPrec 11 caps
  18616. 2072.21 s [opt-env-conf-test] + . showsPrec 0 caps
  18617. 2072.21 s [opt-env-conf-test] . showString " _ "
  18618. 2072.21 s [opt-env-conf-test] . go 11 p
  18619. 2072.21 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18620. 2072.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
  18621. 2072.21 s [opt-env-conf-test] @@ -348,7 +348,7 @@
  18622. 2072.21 s [opt-env-conf-test] . showString " "
  18623. 2072.21 s [opt-env-conf-test] . showsPrec 11 forgivable
  18624. 2072.21 s [opt-env-conf-test] . showString " "
  18625. 2072.21 s [opt-env-conf-test] - . showsPrec 11 caps
  18626. 2072.21 s [opt-env-conf-test] + . showsPrec 1 caps
  18627. 2072.21 s [opt-env-conf-test] . showString " _ "
  18628. 2072.21 s [opt-env-conf-test] . go 11 p
  18629. 2072.21 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18630. 2072.21 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
  18631. 2072.21 s [opt-env-conf-test] @@ -348,7 +348,7 @@
  18632. 2072.21 s [opt-env-conf-test] . showString " "
  18633. 2072.21 s [opt-env-conf-test] . showsPrec 11 forgivable
  18634. 2072.21 s [opt-env-conf-test] . showString " "
  18635. 2072.21 s [opt-env-conf-test] - . showsPrec 11 caps
  18636. 2072.21 s [opt-env-conf-test] + . showsPrec -11 caps
  18637. 2072.21 s [opt-env-conf-test] . showString " _ "
  18638. 2072.21 s [opt-env-conf-test] . go 11 p
  18639. 2072.21 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18640. 2078.62 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
  18641. 2078.62 s [opt-env-conf-test] @@ -350,7 +350,7 @@
  18642. 2078.62 s [opt-env-conf-test] . showString " "
  18643. 2078.66 s [opt-env-conf-test] . showsPrec 11 caps
  18644. 2078.66 s [opt-env-conf-test] . showString " _ "
  18645. 2078.66 s [opt-env-conf-test] - . go 11 p
  18646. 2078.66 s [opt-env-conf-test] + . go 0 p
  18647. 2078.66 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18648. 2078.67 s [opt-env-conf-test] showParen (d > 10) $
  18649. 2078.67 s [opt-env-conf-test] showString "Commands "
  18650. 2078.67 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
  18651. 2078.67 s [opt-env-conf-test] @@ -350,7 +350,7 @@
  18652. 2078.67 s [opt-env-conf-test] . showString " "
  18653. 2078.67 s [opt-env-conf-test] . showsPrec 11 caps
  18654. 2078.67 s [opt-env-conf-test] . showString " _ "
  18655. 2078.67 s [opt-env-conf-test] - . go 11 p
  18656. 2078.67 s [opt-env-conf-test] + . go 1 p
  18657. 2078.67 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18658. 2078.67 s [opt-env-conf-test] showParen (d > 10) $
  18659. 2078.67 s [opt-env-conf-test] showString "Commands "
  18660. 2078.67 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
  18661. 2078.67 s [opt-env-conf-test] @@ -350,7 +350,7 @@
  18662. 2078.67 s [opt-env-conf-test] . showString " "
  18663. 2078.67 s [opt-env-conf-test] . showsPrec 11 caps
  18664. 2078.67 s [opt-env-conf-test] . showString " _ "
  18665. 2078.67 s [opt-env-conf-test] - . go 11 p
  18666. 2078.67 s [opt-env-conf-test] + . go -11 p
  18667. 2078.67 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18668. 2078.67 s [opt-env-conf-test] showParen (d > 10) $
  18669. 2078.67 s [opt-env-conf-test] showString "Commands "
  18670. 2078.67 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
  18671. 2078.67 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18672. 2078.67 s [opt-env-conf-test] . showString " _ "
  18673. 2078.67 s [opt-env-conf-test] . go 11 p
  18674. 2078.67 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18675. 2078.67 s [opt-env-conf-test] - showParen (d > 10) $
  18676. 2078.67 s [opt-env-conf-test] + showParen (d > 0) $
  18677. 2078.67 s [opt-env-conf-test] showString "Commands "
  18678. 2078.67 s [opt-env-conf-test] . showsPrec 11 mLoc
  18679. 2078.67 s [opt-env-conf-test] . showString " "
  18680. 2078.67 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
  18681. 2078.67 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18682. 2078.67 s [opt-env-conf-test] . showString " _ "
  18683. 2078.67 s [opt-env-conf-test] . go 11 p
  18684. 2078.67 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18685. 2078.67 s [opt-env-conf-test] - showParen (d > 10) $
  18686. 2078.67 s [opt-env-conf-test] + showParen (d > 1) $
  18687. 2078.67 s [opt-env-conf-test] showString "Commands "
  18688. 2078.67 s [opt-env-conf-test] . showsPrec 11 mLoc
  18689. 2078.67 s [opt-env-conf-test] . showString " "
  18690. 2078.67 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
  18691. 2078.67 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18692. 2078.67 s [opt-env-conf-test] . showString " _ "
  18693. 2078.67 s [opt-env-conf-test] . go 11 p
  18694. 2078.67 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18695. 2078.67 s [opt-env-conf-test] - showParen (d > 10) $
  18696. 2078.68 s [opt-env-conf-test] + showParen (d > -10) $
  18697. 2078.68 s [opt-env-conf-test] showString "Commands "
  18698. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18699. 2078.68 s [opt-env-conf-test] . showString " "
  18700. 2078.68 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:355:20-26
  18701. 2078.68 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18702. 2078.68 s [opt-env-conf-test] . showString " _ "
  18703. 2078.68 s [opt-env-conf-test] . go 11 p
  18704. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18705. 2078.68 s [opt-env-conf-test] - showParen (d > 10) $
  18706. 2078.68 s [opt-env-conf-test] + showParen (d < 10) $
  18707. 2078.68 s [opt-env-conf-test] showString "Commands "
  18708. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18709. 2078.68 s [opt-env-conf-test] . showString " "
  18710. 2078.68 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:355:20-26
  18711. 2078.68 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18712. 2078.68 s [opt-env-conf-test] . showString " _ "
  18713. 2078.68 s [opt-env-conf-test] . go 11 p
  18714. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18715. 2078.68 s [opt-env-conf-test] - showParen (d > 10) $
  18716. 2078.68 s [opt-env-conf-test] + showParen (d <= 10) $
  18717. 2078.68 s [opt-env-conf-test] showString "Commands "
  18718. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18719. 2078.68 s [opt-env-conf-test] . showString " "
  18720. 2078.68 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:355:20-26
  18721. 2078.68 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18722. 2078.68 s [opt-env-conf-test] . showString " _ "
  18723. 2078.68 s [opt-env-conf-test] . go 11 p
  18724. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18725. 2078.68 s [opt-env-conf-test] - showParen (d > 10) $
  18726. 2078.68 s [opt-env-conf-test] + showParen (d >= 10) $
  18727. 2078.68 s [opt-env-conf-test] showString "Commands "
  18728. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18729. 2078.68 s [opt-env-conf-test] . showString " "
  18730. 2078.68 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
  18731. 2078.68 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18732. 2078.68 s [opt-env-conf-test] . showString " _ "
  18733. 2078.68 s [opt-env-conf-test] . go 11 p
  18734. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18735. 2078.68 s [opt-env-conf-test] - showParen (d > 10) $
  18736. 2078.68 s [opt-env-conf-test] + showParen (True) $
  18737. 2078.68 s [opt-env-conf-test] showString "Commands "
  18738. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18739. 2078.68 s [opt-env-conf-test] . showString " "
  18740. 2078.68 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
  18741. 2078.68 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18742. 2078.68 s [opt-env-conf-test] . showString " _ "
  18743. 2078.68 s [opt-env-conf-test] . go 11 p
  18744. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18745. 2078.68 s [opt-env-conf-test] - showParen (d > 10) $
  18746. 2078.68 s [opt-env-conf-test] + showParen (False) $
  18747. 2078.68 s [opt-env-conf-test] showString "Commands "
  18748. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18749. 2078.68 s [opt-env-conf-test] . showString " "
  18750. 2078.68 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:355:20-26
  18751. 2078.68 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18752. 2078.68 s [opt-env-conf-test] . showString " _ "
  18753. 2078.68 s [opt-env-conf-test] . go 11 p
  18754. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18755. 2078.68 s [opt-env-conf-test] - showParen (d > 10) $
  18756. 2078.68 s [opt-env-conf-test] + showParen (not (d > 10)) $
  18757. 2078.68 s [opt-env-conf-test] showString "Commands "
  18758. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18759. 2078.68 s [opt-env-conf-test] . showString " "
  18760. 2078.68 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
  18761. 2078.68 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18762. 2078.68 s [opt-env-conf-test] . showString " _ "
  18763. 2078.68 s [opt-env-conf-test] . go 11 p
  18764. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18765. 2078.68 s [opt-env-conf-test] - showParen (d > 10) $
  18766. 2078.68 s [opt-env-conf-test] + showParen True $
  18767. 2078.68 s [opt-env-conf-test] showString "Commands "
  18768. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18769. 2078.68 s [opt-env-conf-test] . showString " "
  18770. 2078.68 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
  18771. 2078.68 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18772. 2078.68 s [opt-env-conf-test] . showString " _ "
  18773. 2078.68 s [opt-env-conf-test] . go 11 p
  18774. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18775. 2078.68 s [opt-env-conf-test] - showParen (d > 10) $
  18776. 2078.68 s [opt-env-conf-test] + showParen False $
  18777. 2078.68 s [opt-env-conf-test] showString "Commands "
  18778. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18779. 2078.68 s [opt-env-conf-test] . showString " "
  18780. 2078.68 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:355:19-27
  18781. 2078.68 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  18782. 2078.68 s [opt-env-conf-test] . showString " _ "
  18783. 2078.68 s [opt-env-conf-test] . go 11 p
  18784. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18785. 2078.68 s [opt-env-conf-test] - showParen (d > 10) $
  18786. 2078.68 s [opt-env-conf-test] + showParen not ((d > 10)) $
  18787. 2078.68 s [opt-env-conf-test] showString "Commands "
  18788. 2078.68 s [opt-env-conf-test] . showsPrec 11 mLoc
  18789. 2078.68 s [opt-env-conf-test] . showString " "
  18790. 2078.68 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
  18791. 2078.68 s [opt-env-conf-test] @@ -354,7 +354,7 @@
  18792. 2078.68 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18793. 2078.68 s [opt-env-conf-test] showParen (d > 10) $
  18794. 2078.69 s [opt-env-conf-test] showString "Commands "
  18795. 2078.69 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18796. 2078.69 s [opt-env-conf-test] + . showsPrec 0 mLoc
  18797. 2078.69 s [opt-env-conf-test] . showString " "
  18798. 2078.69 s [opt-env-conf-test] . showsPrec 11 mDefault
  18799. 2078.69 s [opt-env-conf-test] . showString " "
  18800. 2078.69 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
  18801. 2078.69 s [opt-env-conf-test] @@ -354,7 +354,7 @@
  18802. 2078.69 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18803. 2078.69 s [opt-env-conf-test] showParen (d > 10) $
  18804. 2078.69 s [opt-env-conf-test] showString "Commands "
  18805. 2078.69 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18806. 2078.69 s [opt-env-conf-test] + . showsPrec 1 mLoc
  18807. 2078.69 s [opt-env-conf-test] . showString " "
  18808. 2078.69 s [opt-env-conf-test] . showsPrec 11 mDefault
  18809. 2078.69 s [opt-env-conf-test] . showString " "
  18810. 2078.69 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
  18811. 2078.69 s [opt-env-conf-test] @@ -354,7 +354,7 @@
  18812. 2078.69 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  18813. 2078.69 s [opt-env-conf-test] showParen (d > 10) $
  18814. 2078.69 s [opt-env-conf-test] showString "Commands "
  18815. 2078.69 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18816. 2078.69 s [opt-env-conf-test] + . showsPrec -11 mLoc
  18817. 2078.69 s [opt-env-conf-test] . showString " "
  18818. 2078.69 s [opt-env-conf-test] . showsPrec 11 mDefault
  18819. 2078.69 s [opt-env-conf-test] . showString " "
  18820. 2078.69 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
  18821. 2078.69 s [opt-env-conf-test] @@ -356,7 +356,7 @@
  18822. 2078.69 s [opt-env-conf-test] showString "Commands "
  18823. 2078.69 s [opt-env-conf-test] . showsPrec 11 mLoc
  18824. 2078.69 s [opt-env-conf-test] . showString " "
  18825. 2078.69 s [opt-env-conf-test] - . showsPrec 11 mDefault
  18826. 2078.69 s [opt-env-conf-test] + . showsPrec 0 mDefault
  18827. 2078.69 s [opt-env-conf-test] . showString " "
  18828. 2078.69 s [opt-env-conf-test] . showListWith
  18829. 2078.69 s [opt-env-conf-test] showCommandABit
  18830. 2078.69 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
  18831. 2084.12 s [opt-env-conf-test] @@ -356,7 +356,7 @@
  18832. 2084.12 s [opt-env-conf-test] showString "Commands "
  18833. 2084.12 s [opt-env-conf-test] . showsPrec 11 mLoc
  18834. 2084.14 s [opt-env-conf-test] . showString " "
  18835. 2084.14 s [opt-env-conf-test] - . showsPrec 11 mDefault
  18836. 2084.14 s [opt-env-conf-test] + . showsPrec 1 mDefault
  18837. 2084.14 s [opt-env-conf-test] . showString " "
  18838. 2084.14 s [opt-env-conf-test] . showListWith
  18839. 2084.14 s [opt-env-conf-test] showCommandABit
  18840. 2084.14 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
  18841. 2084.14 s [opt-env-conf-test] @@ -356,7 +356,7 @@
  18842. 2084.14 s [opt-env-conf-test] showString "Commands "
  18843. 2084.14 s [opt-env-conf-test] . showsPrec 11 mLoc
  18844. 2084.14 s [opt-env-conf-test] . showString " "
  18845. 2084.14 s [opt-env-conf-test] - . showsPrec 11 mDefault
  18846. 2084.14 s [opt-env-conf-test] + . showsPrec -11 mDefault
  18847. 2084.14 s [opt-env-conf-test] . showString " "
  18848. 2084.14 s [opt-env-conf-test] . showListWith
  18849. 2084.14 s [opt-env-conf-test] showCommandABit
  18850. 2084.14 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
  18851. 2084.14 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18852. 2084.14 s [opt-env-conf-test] showCommandABit
  18853. 2084.14 s [opt-env-conf-test] cs
  18854. 2084.15 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18855. 2084.15 s [opt-env-conf-test] - showParen (d > 10) $
  18856. 2084.15 s [opt-env-conf-test] + showParen (d > 0) $
  18857. 2084.15 s [opt-env-conf-test] showString "WithConfig _ "
  18858. 2084.15 s [opt-env-conf-test] . showsPrec 11 mLoc
  18859. 2084.15 s [opt-env-conf-test] . showString " "
  18860. 2084.15 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
  18861. 2084.15 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18862. 2084.15 s [opt-env-conf-test] showCommandABit
  18863. 2084.15 s [opt-env-conf-test] cs
  18864. 2084.15 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18865. 2084.15 s [opt-env-conf-test] - showParen (d > 10) $
  18866. 2084.15 s [opt-env-conf-test] + showParen (d > 1) $
  18867. 2084.15 s [opt-env-conf-test] showString "WithConfig _ "
  18868. 2084.15 s [opt-env-conf-test] . showsPrec 11 mLoc
  18869. 2084.15 s [opt-env-conf-test] . showString " "
  18870. 2084.15 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
  18871. 2084.15 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18872. 2084.15 s [opt-env-conf-test] showCommandABit
  18873. 2084.15 s [opt-env-conf-test] cs
  18874. 2084.15 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18875. 2084.15 s [opt-env-conf-test] - showParen (d > 10) $
  18876. 2084.15 s [opt-env-conf-test] + showParen (d > -10) $
  18877. 2084.15 s [opt-env-conf-test] showString "WithConfig _ "
  18878. 2084.15 s [opt-env-conf-test] . showsPrec 11 mLoc
  18879. 2084.15 s [opt-env-conf-test] . showString " "
  18880. 2084.15 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:365:20-26
  18881. 2084.15 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18882. 2084.15 s [opt-env-conf-test] showCommandABit
  18883. 2084.15 s [opt-env-conf-test] cs
  18884. 2084.15 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18885. 2084.15 s [opt-env-conf-test] - showParen (d > 10) $
  18886. 2084.15 s [opt-env-conf-test] + showParen (d < 10) $
  18887. 2084.15 s [opt-env-conf-test] showString "WithConfig _ "
  18888. 2084.15 s [opt-env-conf-test] . showsPrec 11 mLoc
  18889. 2084.15 s [opt-env-conf-test] . showString " "
  18890. 2084.15 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:365:20-26
  18891. 2084.15 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18892. 2084.15 s [opt-env-conf-test] showCommandABit
  18893. 2084.15 s [opt-env-conf-test] cs
  18894. 2084.15 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18895. 2084.15 s [opt-env-conf-test] - showParen (d > 10) $
  18896. 2084.15 s [opt-env-conf-test] + showParen (d <= 10) $
  18897. 2084.15 s [opt-env-conf-test] showString "WithConfig _ "
  18898. 2084.15 s [opt-env-conf-test] . showsPrec 11 mLoc
  18899. 2084.15 s [opt-env-conf-test] . showString " "
  18900. 2084.15 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:365:20-26
  18901. 2084.15 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18902. 2084.15 s [opt-env-conf-test] showCommandABit
  18903. 2084.15 s [opt-env-conf-test] cs
  18904. 2084.15 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18905. 2084.15 s [opt-env-conf-test] - showParen (d > 10) $
  18906. 2084.15 s [opt-env-conf-test] + showParen (d >= 10) $
  18907. 2084.15 s [opt-env-conf-test] showString "WithConfig _ "
  18908. 2084.15 s [opt-env-conf-test] . showsPrec 11 mLoc
  18909. 2084.15 s [opt-env-conf-test] . showString " "
  18910. 2084.15 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  18911. 2084.15 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18912. 2084.15 s [opt-env-conf-test] showCommandABit
  18913. 2084.15 s [opt-env-conf-test] cs
  18914. 2084.15 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18915. 2084.15 s [opt-env-conf-test] - showParen (d > 10) $
  18916. 2084.15 s [opt-env-conf-test] + showParen (True) $
  18917. 2084.15 s [opt-env-conf-test] showString "WithConfig _ "
  18918. 2084.15 s [opt-env-conf-test] . showsPrec 11 mLoc
  18919. 2084.15 s [opt-env-conf-test] . showString " "
  18920. 2084.15 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  18921. 2084.16 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18922. 2084.16 s [opt-env-conf-test] showCommandABit
  18923. 2084.16 s [opt-env-conf-test] cs
  18924. 2084.16 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18925. 2084.16 s [opt-env-conf-test] - showParen (d > 10) $
  18926. 2084.16 s [opt-env-conf-test] + showParen (False) $
  18927. 2084.16 s [opt-env-conf-test] showString "WithConfig _ "
  18928. 2084.16 s [opt-env-conf-test] . showsPrec 11 mLoc
  18929. 2084.16 s [opt-env-conf-test] . showString " "
  18930. 2084.16 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:365:20-26
  18931. 2084.16 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18932. 2084.16 s [opt-env-conf-test] showCommandABit
  18933. 2084.16 s [opt-env-conf-test] cs
  18934. 2084.16 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18935. 2084.16 s [opt-env-conf-test] - showParen (d > 10) $
  18936. 2084.16 s [opt-env-conf-test] + showParen (not (d > 10)) $
  18937. 2084.16 s [opt-env-conf-test] showString "WithConfig _ "
  18938. 2084.16 s [opt-env-conf-test] . showsPrec 11 mLoc
  18939. 2084.16 s [opt-env-conf-test] . showString " "
  18940. 2084.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  18941. 2084.16 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18942. 2084.16 s [opt-env-conf-test] showCommandABit
  18943. 2084.16 s [opt-env-conf-test] cs
  18944. 2084.16 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18945. 2084.16 s [opt-env-conf-test] - showParen (d > 10) $
  18946. 2084.16 s [opt-env-conf-test] + showParen True $
  18947. 2084.16 s [opt-env-conf-test] showString "WithConfig _ "
  18948. 2084.16 s [opt-env-conf-test] . showsPrec 11 mLoc
  18949. 2084.16 s [opt-env-conf-test] . showString " "
  18950. 2084.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  18951. 2084.16 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18952. 2084.16 s [opt-env-conf-test] showCommandABit
  18953. 2084.16 s [opt-env-conf-test] cs
  18954. 2084.16 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18955. 2084.16 s [opt-env-conf-test] - showParen (d > 10) $
  18956. 2084.16 s [opt-env-conf-test] + showParen False $
  18957. 2084.16 s [opt-env-conf-test] showString "WithConfig _ "
  18958. 2084.16 s [opt-env-conf-test] . showsPrec 11 mLoc
  18959. 2084.16 s [opt-env-conf-test] . showString " "
  18960. 2084.16 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:365:19-27
  18961. 2084.16 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  18962. 2084.16 s [opt-env-conf-test] showCommandABit
  18963. 2084.16 s [opt-env-conf-test] cs
  18964. 2084.16 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18965. 2084.16 s [opt-env-conf-test] - showParen (d > 10) $
  18966. 2084.16 s [opt-env-conf-test] + showParen not ((d > 10)) $
  18967. 2084.16 s [opt-env-conf-test] showString "WithConfig _ "
  18968. 2084.16 s [opt-env-conf-test] . showsPrec 11 mLoc
  18969. 2084.16 s [opt-env-conf-test] . showString " "
  18970. 2084.16 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
  18971. 2084.16 s [opt-env-conf-test] @@ -364,7 +364,7 @@
  18972. 2084.16 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18973. 2084.16 s [opt-env-conf-test] showParen (d > 10) $
  18974. 2084.16 s [opt-env-conf-test] showString "WithConfig _ "
  18975. 2084.16 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18976. 2084.16 s [opt-env-conf-test] + . showsPrec 0 mLoc
  18977. 2084.16 s [opt-env-conf-test] . showString " "
  18978. 2084.16 s [opt-env-conf-test] . go 11 p1
  18979. 2084.16 s [opt-env-conf-test] . showString " "
  18980. 2084.16 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
  18981. 2084.16 s [opt-env-conf-test] @@ -364,7 +364,7 @@
  18982. 2084.16 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18983. 2084.16 s [opt-env-conf-test] showParen (d > 10) $
  18984. 2084.16 s [opt-env-conf-test] showString "WithConfig _ "
  18985. 2084.16 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18986. 2084.16 s [opt-env-conf-test] + . showsPrec 1 mLoc
  18987. 2084.16 s [opt-env-conf-test] . showString " "
  18988. 2084.16 s [opt-env-conf-test] . go 11 p1
  18989. 2084.16 s [opt-env-conf-test] . showString " "
  18990. 2084.16 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
  18991. 2084.16 s [opt-env-conf-test] @@ -364,7 +364,7 @@
  18992. 2084.16 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  18993. 2084.16 s [opt-env-conf-test] showParen (d > 10) $
  18994. 2084.16 s [opt-env-conf-test] showString "WithConfig _ "
  18995. 2084.16 s [opt-env-conf-test] - . showsPrec 11 mLoc
  18996. 2084.16 s [opt-env-conf-test] + . showsPrec -11 mLoc
  18997. 2084.16 s [opt-env-conf-test] . showString " "
  18998. 2084.16 s [opt-env-conf-test] . go 11 p1
  18999. 2084.16 s [opt-env-conf-test] . showString " "
  19000. 2084.16 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
  19001. 2084.16 s [opt-env-conf-test] @@ -366,7 +366,7 @@
  19002. 2084.16 s [opt-env-conf-test] showString "WithConfig _ "
  19003. 2084.16 s [opt-env-conf-test] . showsPrec 11 mLoc
  19004. 2084.16 s [opt-env-conf-test] . showString " "
  19005. 2084.16 s [opt-env-conf-test] - . go 11 p1
  19006. 2084.16 s [opt-env-conf-test] + . go 0 p1
  19007. 2084.16 s [opt-env-conf-test] . showString " "
  19008. 2084.16 s [opt-env-conf-test] . go 11 p2
  19009. 2084.17 s [opt-env-conf-test] ParserSetting mLoc p ->
  19010. 2084.17 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
  19011. 2084.17 s [opt-env-conf-test] @@ -366,7 +366,7 @@
  19012. 2084.17 s [opt-env-conf-test] showString "WithConfig _ "
  19013. 2084.17 s [opt-env-conf-test] . showsPrec 11 mLoc
  19014. 2084.17 s [opt-env-conf-test] . showString " "
  19015. 2084.17 s [opt-env-conf-test] - . go 11 p1
  19016. 2084.17 s [opt-env-conf-test] + . go 1 p1
  19017. 2084.17 s [opt-env-conf-test] . showString " "
  19018. 2084.17 s [opt-env-conf-test] . go 11 p2
  19019. 2084.17 s [opt-env-conf-test] ParserSetting mLoc p ->
  19020. 2084.17 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
  19021. 2084.17 s [opt-env-conf-test] @@ -366,7 +366,7 @@
  19022. 2084.17 s [opt-env-conf-test] showString "WithConfig _ "
  19023. 2084.17 s [opt-env-conf-test] . showsPrec 11 mLoc
  19024. 2084.17 s [opt-env-conf-test] . showString " "
  19025. 2084.17 s [opt-env-conf-test] - . go 11 p1
  19026. 2089.29 s [opt-env-conf-test] + . go -11 p1
  19027. 2089.29 s [opt-env-conf-test] . showString " "
  19028. 2089.29 s [opt-env-conf-test] . go 11 p2
  19029. 2089.31 s [opt-env-conf-test] ParserSetting mLoc p ->
  19030. 2089.31 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
  19031. 2089.31 s [opt-env-conf-test] @@ -368,7 +368,7 @@
  19032. 2089.31 s [opt-env-conf-test] . showString " "
  19033. 2089.31 s [opt-env-conf-test] . go 11 p1
  19034. 2089.31 s [opt-env-conf-test] . showString " "
  19035. 2089.31 s [opt-env-conf-test] - . go 11 p2
  19036. 2089.31 s [opt-env-conf-test] + . go 0 p2
  19037. 2089.31 s [opt-env-conf-test] ParserSetting mLoc p ->
  19038. 2089.31 s [opt-env-conf-test] showParen (d > 10) $
  19039. 2089.31 s [opt-env-conf-test] showString "Setting "
  19040. 2089.31 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
  19041. 2089.31 s [opt-env-conf-test] @@ -368,7 +368,7 @@
  19042. 2089.31 s [opt-env-conf-test] . showString " "
  19043. 2089.31 s [opt-env-conf-test] . go 11 p1
  19044. 2089.31 s [opt-env-conf-test] . showString " "
  19045. 2089.31 s [opt-env-conf-test] - . go 11 p2
  19046. 2089.31 s [opt-env-conf-test] + . go 1 p2
  19047. 2089.31 s [opt-env-conf-test] ParserSetting mLoc p ->
  19048. 2089.31 s [opt-env-conf-test] showParen (d > 10) $
  19049. 2089.31 s [opt-env-conf-test] showString "Setting "
  19050. 2089.31 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
  19051. 2089.31 s [opt-env-conf-test] @@ -368,7 +368,7 @@
  19052. 2089.31 s [opt-env-conf-test] . showString " "
  19053. 2089.31 s [opt-env-conf-test] . go 11 p1
  19054. 2089.31 s [opt-env-conf-test] . showString " "
  19055. 2089.31 s [opt-env-conf-test] - . go 11 p2
  19056. 2089.31 s [opt-env-conf-test] + . go -11 p2
  19057. 2089.31 s [opt-env-conf-test] ParserSetting mLoc p ->
  19058. 2089.32 s [opt-env-conf-test] showParen (d > 10) $
  19059. 2089.32 s [opt-env-conf-test] showString "Setting "
  19060. 2089.32 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
  19061. 2089.32 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19062. 2089.32 s [opt-env-conf-test] . showString " "
  19063. 2089.32 s [opt-env-conf-test] . go 11 p2
  19064. 2089.32 s [opt-env-conf-test] ParserSetting mLoc p ->
  19065. 2089.32 s [opt-env-conf-test] - showParen (d > 10) $
  19066. 2089.32 s [opt-env-conf-test] + showParen (d > 0) $
  19067. 2089.32 s [opt-env-conf-test] showString "Setting "
  19068. 2089.32 s [opt-env-conf-test] . showsPrec 11 mLoc
  19069. 2089.32 s [opt-env-conf-test] . showString " "
  19070. 2089.32 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
  19071. 2089.32 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19072. 2089.32 s [opt-env-conf-test] . showString " "
  19073. 2089.32 s [opt-env-conf-test] . go 11 p2
  19074. 2089.32 s [opt-env-conf-test] ParserSetting mLoc p ->
  19075. 2089.32 s [opt-env-conf-test] - showParen (d > 10) $
  19076. 2089.32 s [opt-env-conf-test] + showParen (d > 1) $
  19077. 2089.32 s [opt-env-conf-test] showString "Setting "
  19078. 2089.32 s [opt-env-conf-test] . showsPrec 11 mLoc
  19079. 2089.32 s [opt-env-conf-test] . showString " "
  19080. 2089.32 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
  19081. 2089.32 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19082. 2089.32 s [opt-env-conf-test] . showString " "
  19083. 2089.32 s [opt-env-conf-test] . go 11 p2
  19084. 2089.32 s [opt-env-conf-test] ParserSetting mLoc p ->
  19085. 2089.32 s [opt-env-conf-test] - showParen (d > 10) $
  19086. 2089.32 s [opt-env-conf-test] + showParen (d > -10) $
  19087. 2089.32 s [opt-env-conf-test] showString "Setting "
  19088. 2089.32 s [opt-env-conf-test] . showsPrec 11 mLoc
  19089. 2089.32 s [opt-env-conf-test] . showString " "
  19090. 2089.32 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:373:20-26
  19091. 2089.32 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19092. 2089.32 s [opt-env-conf-test] . showString " "
  19093. 2089.32 s [opt-env-conf-test] . go 11 p2
  19094. 2089.32 s [opt-env-conf-test] ParserSetting mLoc p ->
  19095. 2089.32 s [opt-env-conf-test] - showParen (d > 10) $
  19096. 2089.32 s [opt-env-conf-test] + showParen (d < 10) $
  19097. 2089.32 s [opt-env-conf-test] showString "Setting "
  19098. 2089.32 s [opt-env-conf-test] . showsPrec 11 mLoc
  19099. 2089.32 s [opt-env-conf-test] . showString " "
  19100. 2089.32 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:373:20-26
  19101. 2089.32 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19102. 2089.32 s [opt-env-conf-test] . showString " "
  19103. 2089.32 s [opt-env-conf-test] . go 11 p2
  19104. 2089.32 s [opt-env-conf-test] ParserSetting mLoc p ->
  19105. 2089.32 s [opt-env-conf-test] - showParen (d > 10) $
  19106. 2089.32 s [opt-env-conf-test] + showParen (d <= 10) $
  19107. 2089.32 s [opt-env-conf-test] showString "Setting "
  19108. 2089.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  19109. 2089.33 s [opt-env-conf-test] . showString " "
  19110. 2089.33 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:373:20-26
  19111. 2089.33 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19112. 2089.33 s [opt-env-conf-test] . showString " "
  19113. 2089.33 s [opt-env-conf-test] . go 11 p2
  19114. 2089.33 s [opt-env-conf-test] ParserSetting mLoc p ->
  19115. 2089.33 s [opt-env-conf-test] - showParen (d > 10) $
  19116. 2089.33 s [opt-env-conf-test] + showParen (d >= 10) $
  19117. 2089.33 s [opt-env-conf-test] showString "Setting "
  19118. 2089.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  19119. 2089.33 s [opt-env-conf-test] . showString " "
  19120. 2089.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
  19121. 2089.33 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19122. 2089.33 s [opt-env-conf-test] . showString " "
  19123. 2089.33 s [opt-env-conf-test] . go 11 p2
  19124. 2089.33 s [opt-env-conf-test] ParserSetting mLoc p ->
  19125. 2089.33 s [opt-env-conf-test] - showParen (d > 10) $
  19126. 2089.33 s [opt-env-conf-test] + showParen (True) $
  19127. 2089.33 s [opt-env-conf-test] showString "Setting "
  19128. 2089.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  19129. 2089.33 s [opt-env-conf-test] . showString " "
  19130. 2089.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
  19131. 2089.33 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19132. 2089.33 s [opt-env-conf-test] . showString " "
  19133. 2089.33 s [opt-env-conf-test] . go 11 p2
  19134. 2089.33 s [opt-env-conf-test] ParserSetting mLoc p ->
  19135. 2089.33 s [opt-env-conf-test] - showParen (d > 10) $
  19136. 2089.33 s [opt-env-conf-test] + showParen (False) $
  19137. 2089.33 s [opt-env-conf-test] showString "Setting "
  19138. 2089.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  19139. 2089.33 s [opt-env-conf-test] . showString " "
  19140. 2089.33 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:373:20-26
  19141. 2089.33 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19142. 2089.33 s [opt-env-conf-test] . showString " "
  19143. 2089.33 s [opt-env-conf-test] . go 11 p2
  19144. 2089.33 s [opt-env-conf-test] ParserSetting mLoc p ->
  19145. 2089.33 s [opt-env-conf-test] - showParen (d > 10) $
  19146. 2089.33 s [opt-env-conf-test] + showParen (not (d > 10)) $
  19147. 2089.33 s [opt-env-conf-test] showString "Setting "
  19148. 2089.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  19149. 2089.33 s [opt-env-conf-test] . showString " "
  19150. 2089.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
  19151. 2089.33 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19152. 2089.33 s [opt-env-conf-test] . showString " "
  19153. 2089.33 s [opt-env-conf-test] . go 11 p2
  19154. 2089.33 s [opt-env-conf-test] ParserSetting mLoc p ->
  19155. 2089.33 s [opt-env-conf-test] - showParen (d > 10) $
  19156. 2089.33 s [opt-env-conf-test] + showParen True $
  19157. 2089.33 s [opt-env-conf-test] showString "Setting "
  19158. 2089.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  19159. 2089.33 s [opt-env-conf-test] . showString " "
  19160. 2089.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
  19161. 2089.33 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  19162. 2089.33 s [opt-env-conf-test] . showString " "
  19163. 2089.33 s [opt-env-conf-test] . go 11 p2
  19164. 2089.33 s [opt-env-conf-test] ParserSetting mLoc p ->
  19165. 2089.33 s [opt-env-conf-test] - showParen (d > 10) $
  19166. 2089.33 s [opt-env-conf-test] + showParen False $
  19167. 2089.33 s [opt-env-conf-test] showString "Setting "
  19168. 2089.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  19169. 2089.33 s [opt-env-conf-test] . showString " "
  19170. 2089.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
  19171. 2089.33 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  19172. 2089.33 s [opt-env-conf-test] where
  19173. 2089.33 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  19174. 2089.33 s [opt-env-conf-test] go d = \case
  19175. 2089.33 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  19176. 2089.34 s [opt-env-conf-test] + ParserPure _ -> showParen False $ showString "Pure _"
  19177. 2089.34 s [opt-env-conf-test] ParserAp pf pa ->
  19178. 2089.34 s [opt-env-conf-test] showParen (d > 10) $
  19179. 2089.34 s [opt-env-conf-test] showString "Ap "
  19180. 2089.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
  19181. 2089.34 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  19182. 2089.34 s [opt-env-conf-test] where
  19183. 2089.34 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  19184. 2089.34 s [opt-env-conf-test] go d = \case
  19185. 2089.34 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  19186. 2089.34 s [opt-env-conf-test] + ParserPure _ -> showParen True $ showString "Pure _"
  19187. 2089.34 s [opt-env-conf-test] ParserAp pf pa ->
  19188. 2089.34 s [opt-env-conf-test] showParen (d > 10) $
  19189. 2089.34 s [opt-env-conf-test] showString "Ap "
  19190. 2089.34 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:304:34-40
  19191. 2089.34 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  19192. 2089.34 s [opt-env-conf-test] where
  19193. 2089.34 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  19194. 2089.34 s [opt-env-conf-test] go d = \case
  19195. 2089.34 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  19196. 2089.34 s [opt-env-conf-test] + ParserPure _ -> showParen (not (d > 10)) $ showString "Pure _"
  19197. 2089.34 s [opt-env-conf-test] ParserAp pf pa ->
  19198. 2089.34 s [opt-env-conf-test] showParen (d > 10) $
  19199. 2089.34 s [opt-env-conf-test] showString "Ap "
  19200. 2089.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
  19201. 2089.34 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  19202. 2089.34 s [opt-env-conf-test] where
  19203. 2089.34 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  19204. 2089.34 s [opt-env-conf-test] go d = \case
  19205. 2089.34 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  19206. 2089.34 s [opt-env-conf-test] + ParserPure _ -> showParen (True) $ showString "Pure _"
  19207. 2089.34 s [opt-env-conf-test] ParserAp pf pa ->
  19208. 2089.34 s [opt-env-conf-test] showParen (d > 10) $
  19209. 2089.34 s [opt-env-conf-test] showString "Ap "
  19210. 2089.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
  19211. 2089.34 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  19212. 2089.34 s [opt-env-conf-test] where
  19213. 2089.34 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  19214. 2089.34 s [opt-env-conf-test] go d = \case
  19215. 2089.34 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  19216. 2093.85 s [opt-env-conf-test] + ParserPure _ -> showParen (False) $ showString "Pure _"
  19217. 2093.85 s [opt-env-conf-test] ParserAp pf pa ->
  19218. 2093.85 s [opt-env-conf-test] showParen (d > 10) $
  19219. 2093.85 s [opt-env-conf-test] showString "Ap "
  19220. 2093.85 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:473:53-60
  19221. 2093.85 s [opt-env-conf-test] @@ -470,7 +470,7 @@
  19222. 2093.85 s [opt-env-conf-test] -- the option because consumeOption would try to
  19223. 2093.85 s [opt-env-conf-test] -- consume the option argument too.
  19224. 2093.85 s [opt-env-conf-test] case Args.consumeSwitch settingDasheds as of
  19225. 2093.85 s [opt-env-conf-test] - Nothing -> pure $ Just []
  19226. 2093.86 s [opt-env-conf-test] + Nothing -> pure $ Nothing
  19227. 2093.86 s [opt-env-conf-test] Just as' -> do
  19228. 2093.86 s [opt-env-conf-test] put as'
  19229. 2093.86 s [opt-env-conf-test] completeWithCompleterAtEnd
  19230. 2093.86 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:457:44-43
  19231. 2093.86 s [opt-env-conf-test] @@ -454,9 +454,8 @@
  19232. 2093.86 s [opt-env-conf-test] then do
  19233. 2093.86 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  19234. 2093.86 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  19235. 2093.86 s [opt-env-conf-test] Just (_, as') -> do
  19236. 2093.86 s [opt-env-conf-test] - put as'
  19237. 2093.86 s [opt-env-conf-test] pure $ Just []
  19238. 2093.86 s [opt-env-conf-test] Nothing -> do
  19239. 2093.86 s [opt-env-conf-test] if argsAtEnd as
  19240. 2093.86 s [opt-env-conf-test] then completeWithDasheds
  19241. 2093.86 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:451:32-39
  19242. 2093.86 s [opt-env-conf-test] @@ -448,7 +448,7 @@
  19243. 2093.86 s [opt-env-conf-test] completeWithDasheds
  19244. 2093.86 s [opt-env-conf-test] Just as' -> do
  19245. 2093.86 s [opt-env-conf-test] put as'
  19246. 2093.86 s [opt-env-conf-test] - pure $ Just []
  19247. 2093.86 s [opt-env-conf-test] + pure $ Nothing
  19248. 2093.86 s [opt-env-conf-test] else do
  19249. 2093.86 s [opt-env-conf-test] if settingTryOption
  19250. 2093.86 s [opt-env-conf-test] then do
  19251. 2093.86 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
  19252. 2093.86 s [opt-env-conf-test] @@ -372,7 +372,7 @@
  19253. 2093.86 s [opt-env-conf-test] ParserSetting mLoc p ->
  19254. 2093.86 s [opt-env-conf-test] showParen (d > 10) $
  19255. 2093.86 s [opt-env-conf-test] showString "Setting "
  19256. 2093.86 s [opt-env-conf-test] - . showsPrec 11 mLoc
  19257. 2093.86 s [opt-env-conf-test] + . showsPrec 0 mLoc
  19258. 2093.86 s [opt-env-conf-test] . showString " "
  19259. 2093.86 s [opt-env-conf-test] . showSettingABit p
  19260. 2093.86 s [opt-env-conf-test]
  19261. 2093.86 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
  19262. 2093.86 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  19263. 2093.86 s [opt-env-conf-test] showString "Command "
  19264. 2093.86 s [opt-env-conf-test] . showsPrec 11 commandArg
  19265. 2093.86 s [opt-env-conf-test] . showString " "
  19266. 2093.86 s [opt-env-conf-test] - . showsPrec 11 commandHelp
  19267. 2093.86 s [opt-env-conf-test] + . showsPrec -11 commandHelp
  19268. 2093.86 s [opt-env-conf-test] . showString " "
  19269. 2093.86 s [opt-env-conf-test] . showParserPrec 11 commandParser
  19270. 2093.86 s [opt-env-conf-test]
  19271. 2093.86 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
  19272. 2093.86 s [opt-env-conf-test] @@ -135,7 +135,7 @@
  19273. 2093.86 s [opt-env-conf-test] . showString " "
  19274. 2093.86 s [opt-env-conf-test] . showsPrec 11 commandHelp
  19275. 2093.86 s [opt-env-conf-test] . showString " "
  19276. 2093.86 s [opt-env-conf-test] - . showParserPrec 11 commandParser
  19277. 2093.86 s [opt-env-conf-test] + . showParserPrec 0 commandParser
  19278. 2093.86 s [opt-env-conf-test]
  19279. 2093.86 s [opt-env-conf-test] -- | A 'Parser' structure
  19280. 2093.86 s [opt-env-conf-test] --
  19281. 2093.86 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
  19282. 2093.86 s [opt-env-conf-test] @@ -135,7 +135,7 @@
  19283. 2093.86 s [opt-env-conf-test] . showString " "
  19284. 2093.86 s [opt-env-conf-test] . showsPrec 11 commandHelp
  19285. 2093.86 s [opt-env-conf-test] . showString " "
  19286. 2093.87 s [opt-env-conf-test] - . showParserPrec 11 commandParser
  19287. 2093.87 s [opt-env-conf-test] + . showParserPrec 1 commandParser
  19288. 2093.87 s [opt-env-conf-test]
  19289. 2093.87 s [opt-env-conf-test] -- | A 'Parser' structure
  19290. 2093.87 s [opt-env-conf-test] --
  19291. 2093.87 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
  19292. 2093.87 s [opt-env-conf-test] @@ -135,7 +135,7 @@
  19293. 2093.87 s [opt-env-conf-test] . showString " "
  19294. 2093.87 s [opt-env-conf-test] . showsPrec 11 commandHelp
  19295. 2093.87 s [opt-env-conf-test] . showString " "
  19296. 2093.87 s [opt-env-conf-test] - . showParserPrec 11 commandParser
  19297. 2093.87 s [opt-env-conf-test] + . showParserPrec -11 commandParser
  19298. 2093.87 s [opt-env-conf-test]
  19299. 2093.87 s [opt-env-conf-test] -- | A 'Parser' structure
  19300. 2093.87 s [opt-env-conf-test] --
  19301. 2093.87 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:297:39-40
  19302. 2093.87 s [opt-env-conf-test] @@ -294,7 +294,7 @@
  19303. 2093.87 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  19304. 2093.87 s [opt-env-conf-test]
  19305. 2093.87 s [opt-env-conf-test] showParserABit :: Parser a -> String
  19306. 2093.87 s [opt-env-conf-test] -showParserABit = flip (showParserPrec 0) ""
  19307. 2093.87 s [opt-env-conf-test] +showParserABit = flip (showParserPrec 1) ""
  19308. 2093.87 s [opt-env-conf-test]
  19309. 2093.87 s [opt-env-conf-test] showParserPrec :: Int -> Parser a -> ShowS
  19310. 2093.87 s [opt-env-conf-test] showParserPrec = go
  19311. 2093.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:255:27-32
  19312. 2093.87 s [opt-env-conf-test] @@ -252,7 +252,7 @@
  19313. 2093.87 s [opt-env-conf-test] (<|>) p1 p2 =
  19314. 2093.87 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19315. 2093.87 s [opt-env-conf-test] isEmpty = \case
  19316. 2093.87 s [opt-env-conf-test] - ParserPure _ -> False
  19317. 2093.87 s [opt-env-conf-test] + ParserPure _ -> True
  19318. 2093.87 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19319. 2093.87 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19320. 2093.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19321. 2093.87 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  19322. 2093.87 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19323. 2093.87 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19324. 2093.87 s [opt-env-conf-test] isEmpty = \case
  19325. 2093.87 s [opt-env-conf-test] ParserPure _ -> False
  19326. 2093.87 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19327. 2093.87 s [opt-env-conf-test] + ParserAp pf pa -> True && isEmpty pa
  19328. 2093.87 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19329. 2093.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19330. 2093.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19331. 2093.87 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  19332. 2093.87 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19333. 2093.87 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19334. 2093.87 s [opt-env-conf-test] isEmpty = \case
  19335. 2093.87 s [opt-env-conf-test] ParserPure _ -> False
  19336. 2093.87 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19337. 2093.87 s [opt-env-conf-test] + ParserAp pf pa -> False && isEmpty pa
  19338. 2093.87 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19339. 2093.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19340. 2093.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19341. 2093.87 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:256:29-39
  19342. 2093.87 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19343. 2093.87 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19344. 2093.87 s [opt-env-conf-test] isEmpty = \case
  19345. 2093.87 s [opt-env-conf-test] ParserPure _ -> False
  19346. 2093.87 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19347. 2093.87 s [opt-env-conf-test] + ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
  19348. 2093.87 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19349. 2093.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19350. 2093.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19351. 2093.87 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  19352. 2093.87 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19353. 2093.87 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19354. 2093.87 s [opt-env-conf-test] isEmpty = \case
  19355. 2093.87 s [opt-env-conf-test] ParserPure _ -> False
  19356. 2093.87 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19357. 2093.87 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && True
  19358. 2093.87 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19359. 2093.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19360. 2093.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19361. 2093.87 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  19362. 2093.87 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19363. 2093.87 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19364. 2093.87 s [opt-env-conf-test] isEmpty = \case
  19365. 2093.87 s [opt-env-conf-test] ParserPure _ -> False
  19366. 2093.87 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19367. 2093.87 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && False
  19368. 2093.87 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19369. 2093.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19370. 2093.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19371. 2093.87 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:256:43-53
  19372. 2093.87 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19373. 2093.87 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19374. 2093.87 s [opt-env-conf-test] isEmpty = \case
  19375. 2093.87 s [opt-env-conf-test] ParserPure _ -> False
  19376. 2093.87 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19377. 2093.87 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
  19378. 2093.87 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19379. 2093.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19380. 2093.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19381. 2093.87 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
  19382. 2093.87 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19383. 2093.87 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19384. 2093.87 s [opt-env-conf-test] isEmpty = \case
  19385. 2093.87 s [opt-env-conf-test] ParserPure _ -> False
  19386. 2093.87 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19387. 2095.78 s [opt-env-conf-test] + ParserAp pf pa -> True
  19388. 2095.78 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19389. 2095.85 s [opt-env-conf-test] ParserEmpty _ -> True
  19390. 2095.85 s [opt-env-conf-test] ParserAlt _ _ -> False
  19391. 2095.85 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
  19392. 2095.85 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19393. 2095.85 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19394. 2095.85 s [opt-env-conf-test] isEmpty = \case
  19395. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19396. 2095.86 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19397. 2095.86 s [opt-env-conf-test] + ParserAp pf pa -> False
  19398. 2095.86 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19399. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19400. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19401. 2095.86 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Parser.hs:256:29-53
  19402. 2095.86 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19403. 2095.86 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19404. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19405. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19406. 2095.86 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19407. 2095.86 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf || isEmpty pa
  19408. 2095.86 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19409. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19410. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19411. 2095.86 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:256:29-53
  19412. 2095.86 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  19413. 2095.86 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  19414. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19415. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19416. 2095.86 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  19417. 2095.86 s [opt-env-conf-test] + ParserAp pf pa -> not (isEmpty pf && isEmpty pa)
  19418. 2095.86 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19419. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19420. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19421. 2095.86 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
  19422. 2095.86 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19423. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19424. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19425. 2095.86 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19426. 2095.86 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19427. 2095.86 s [opt-env-conf-test] + ParserSelect pe pf -> True && isEmpty pf
  19428. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19429. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19430. 2095.86 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19431. 2095.86 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
  19432. 2095.86 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19433. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19434. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19435. 2095.86 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19436. 2095.86 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19437. 2095.86 s [opt-env-conf-test] + ParserSelect pe pf -> False && isEmpty pf
  19438. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19439. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19440. 2095.86 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19441. 2095.86 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:257:33-43
  19442. 2095.86 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19443. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19444. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19445. 2095.86 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19446. 2095.86 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19447. 2095.86 s [opt-env-conf-test] + ParserSelect pe pf -> not (isEmpty pe) && isEmpty pf
  19448. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19449. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19450. 2095.86 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19451. 2095.86 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
  19452. 2095.86 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19453. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19454. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19455. 2095.86 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19456. 2095.86 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19457. 2095.86 s [opt-env-conf-test] + ParserSelect pe pf -> isEmpty pe && True
  19458. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19459. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19460. 2095.86 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19461. 2095.86 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
  19462. 2095.86 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19463. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19464. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19465. 2095.86 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19466. 2095.86 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19467. 2095.86 s [opt-env-conf-test] + ParserSelect pe pf -> isEmpty pe && False
  19468. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19469. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19470. 2095.86 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19471. 2095.86 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:257:47-57
  19472. 2095.86 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19473. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19474. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19475. 2095.86 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19476. 2095.86 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19477. 2095.86 s [opt-env-conf-test] + ParserSelect pe pf -> isEmpty pe && not (isEmpty pf)
  19478. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19479. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19480. 2095.86 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19481. 2095.86 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
  19482. 2095.86 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19483. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19484. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19485. 2095.86 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19486. 2095.86 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19487. 2095.86 s [opt-env-conf-test] + ParserSelect pe pf -> True
  19488. 2095.86 s [opt-env-conf-test] ParserEmpty _ -> True
  19489. 2095.86 s [opt-env-conf-test] ParserAlt _ _ -> False
  19490. 2095.86 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19491. 2095.86 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
  19492. 2095.86 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19493. 2095.86 s [opt-env-conf-test] isEmpty = \case
  19494. 2095.86 s [opt-env-conf-test] ParserPure _ -> False
  19495. 2095.87 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19496. 2095.87 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19497. 2095.87 s [opt-env-conf-test] + ParserSelect pe pf -> False
  19498. 2095.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19499. 2095.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19500. 2095.87 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19501. 2095.87 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Parser.hs:257:33-57
  19502. 2095.87 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19503. 2095.87 s [opt-env-conf-test] isEmpty = \case
  19504. 2095.87 s [opt-env-conf-test] ParserPure _ -> False
  19505. 2095.87 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19506. 2095.87 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19507. 2095.87 s [opt-env-conf-test] + ParserSelect pe pf -> isEmpty pe || isEmpty pf
  19508. 2095.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19509. 2095.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19510. 2095.87 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19511. 2095.87 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:257:33-57
  19512. 2095.87 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  19513. 2095.87 s [opt-env-conf-test] isEmpty = \case
  19514. 2095.87 s [opt-env-conf-test] ParserPure _ -> False
  19515. 2095.87 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19516. 2095.87 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19517. 2095.87 s [opt-env-conf-test] + ParserSelect pe pf -> not (isEmpty pe && isEmpty pf)
  19518. 2095.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19519. 2095.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19520. 2095.87 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19521. 2095.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:258:28-32
  19522. 2095.87 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  19523. 2095.87 s [opt-env-conf-test] ParserPure _ -> False
  19524. 2095.87 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19525. 2095.87 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19526. 2095.87 s [opt-env-conf-test] - ParserEmpty _ -> True
  19527. 2095.87 s [opt-env-conf-test] + ParserEmpty _ -> False
  19528. 2095.87 s [opt-env-conf-test] ParserAlt _ _ -> False
  19529. 2095.87 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19530. 2095.87 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19531. 2095.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:259:28-33
  19532. 2095.87 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  19533. 2095.87 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  19534. 2095.87 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19535. 2095.87 s [opt-env-conf-test] ParserEmpty _ -> True
  19536. 2095.87 s [opt-env-conf-test] - ParserAlt _ _ -> False
  19537. 2095.87 s [opt-env-conf-test] + ParserAlt _ _ -> True
  19538. 2095.87 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19539. 2095.87 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19540. 2095.87 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19541. 2098.42 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
  19542. 2098.43 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  19543. 2098.43 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19544. 2098.43 s [opt-env-conf-test] ParserEmpty _ -> True
  19545. 2098.43 s [opt-env-conf-test] ParserAlt _ _ -> False
  19546. 2098.43 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  19547. 2098.43 s [opt-env-conf-test] + ParserMany _ p -> True
  19548. 2098.43 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19549. 2098.43 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19550. 2098.43 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19551. 2098.43 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
  19552. 2098.43 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  19553. 2098.43 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19554. 2098.43 s [opt-env-conf-test] ParserEmpty _ -> True
  19555. 2098.43 s [opt-env-conf-test] ParserAlt _ _ -> False
  19556. 2098.43 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  19557. 2098.43 s [opt-env-conf-test] + ParserMany _ p -> False
  19558. 2098.43 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19559. 2098.43 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19560. 2098.43 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19561. 2098.43 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:260:29-38
  19562. 2098.43 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  19563. 2098.43 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  19564. 2098.43 s [opt-env-conf-test] ParserEmpty _ -> True
  19565. 2098.43 s [opt-env-conf-test] ParserAlt _ _ -> False
  19566. 2098.43 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  19567. 2098.43 s [opt-env-conf-test] + ParserMany _ p -> not (isEmpty p)
  19568. 2098.43 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19569. 2098.43 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19570. 2098.43 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19571. 2098.43 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
  19572. 2098.43 s [opt-env-conf-test] @@ -258,7 +258,7 @@
  19573. 2098.43 s [opt-env-conf-test] ParserEmpty _ -> True
  19574. 2098.43 s [opt-env-conf-test] ParserAlt _ _ -> False
  19575. 2098.43 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19576. 2098.43 s [opt-env-conf-test] - ParserSome _ p -> isEmpty p
  19577. 2098.43 s [opt-env-conf-test] + ParserSome _ p -> True
  19578. 2098.43 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19579. 2098.43 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19580. 2098.44 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19581. 2098.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
  19582. 2098.44 s [opt-env-conf-test] @@ -258,7 +258,7 @@
  19583. 2098.44 s [opt-env-conf-test] ParserEmpty _ -> True
  19584. 2098.44 s [opt-env-conf-test] ParserAlt _ _ -> False
  19585. 2098.44 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19586. 2098.44 s [opt-env-conf-test] - ParserSome _ p -> isEmpty p
  19587. 2098.44 s [opt-env-conf-test] + ParserSome _ p -> False
  19588. 2098.44 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19589. 2098.44 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19590. 2098.44 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19591. 2098.44 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:261:29-38
  19592. 2098.44 s [opt-env-conf-test] @@ -258,7 +258,7 @@
  19593. 2098.44 s [opt-env-conf-test] ParserEmpty _ -> True
  19594. 2098.44 s [opt-env-conf-test] ParserAlt _ _ -> False
  19595. 2098.44 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19596. 2098.44 s [opt-env-conf-test] - ParserSome _ p -> isEmpty p
  19597. 2098.44 s [opt-env-conf-test] + ParserSome _ p -> not (isEmpty p)
  19598. 2098.44 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19599. 2098.44 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19600. 2098.44 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19601. 2098.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
  19602. 2098.44 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  19603. 2098.44 s [opt-env-conf-test] ParserAlt _ _ -> False
  19604. 2098.44 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19605. 2098.44 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19606. 2098.44 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  19607. 2098.44 s [opt-env-conf-test] + ParserAllOrNothing _ p -> True
  19608. 2098.44 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19609. 2098.44 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19610. 2098.44 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19611. 2098.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
  19612. 2098.44 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  19613. 2098.44 s [opt-env-conf-test] ParserAlt _ _ -> False
  19614. 2098.44 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19615. 2098.44 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19616. 2098.44 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  19617. 2098.44 s [opt-env-conf-test] + ParserAllOrNothing _ p -> False
  19618. 2098.44 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19619. 2098.44 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19620. 2098.44 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19621. 2098.45 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:262:37-46
  19622. 2098.45 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  19623. 2098.45 s [opt-env-conf-test] ParserAlt _ _ -> False
  19624. 2098.45 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19625. 2098.45 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19626. 2098.45 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  19627. 2098.45 s [opt-env-conf-test] + ParserAllOrNothing _ p -> not (isEmpty p)
  19628. 2098.45 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19629. 2098.45 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19630. 2098.45 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19631. 2098.45 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
  19632. 2098.45 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  19633. 2098.45 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19634. 2098.45 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19635. 2098.45 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19636. 2098.45 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  19637. 2098.45 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> True
  19638. 2098.45 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19639. 2098.45 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19640. 2098.45 s [opt-env-conf-test] ParserSetting _ _ -> False
  19641. 2098.45 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
  19642. 2098.45 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  19643. 2098.45 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19644. 2098.45 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19645. 2098.45 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19646. 2098.45 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  19647. 2098.45 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> False
  19648. 2098.45 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19649. 2098.45 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19650. 2098.45 s [opt-env-conf-test] ParserSetting _ _ -> False
  19651. 2098.45 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:263:36-45
  19652. 2098.45 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  19653. 2098.45 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  19654. 2098.45 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19655. 2098.45 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19656. 2098.45 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  19657. 2098.45 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> not (isEmpty p)
  19658. 2098.45 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19659. 2098.45 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19660. 2098.45 s [opt-env-conf-test] ParserSetting _ _ -> False
  19661. 2098.45 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
  19662. 2098.45 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  19663. 2098.45 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19664. 2098.45 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19665. 2098.45 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19666. 2098.45 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  19667. 2098.45 s [opt-env-conf-test] + ParserCommands _ _ cs -> True
  19668. 2098.45 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19669. 2098.45 s [opt-env-conf-test] ParserSetting _ _ -> False
  19670. 2098.45 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19671. 2098.45 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
  19672. 2098.45 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  19673. 2098.45 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19674. 2098.45 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19675. 2098.45 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19676. 2098.45 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  19677. 2098.45 s [opt-env-conf-test] + ParserCommands _ _ cs -> False
  19678. 2098.45 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19679. 2098.45 s [opt-env-conf-test] ParserSetting _ _ -> False
  19680. 2098.45 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19681. 2098.45 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:264:36-43
  19682. 2098.45 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  19683. 2098.45 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  19684. 2098.45 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19685. 2098.45 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19686. 2098.45 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  19687. 2098.45 s [opt-env-conf-test] + ParserCommands _ _ cs -> not (null cs)
  19688. 2098.45 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19689. 2098.45 s [opt-env-conf-test] ParserSetting _ _ -> False
  19690. 2098.45 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19691. 2099.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
  19692. 2099.12 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19693. 2099.12 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19694. 2099.12 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19695. 2099.12 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19696. 2099.12 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19697. 2099.12 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> True && isEmpty ps
  19698. 2099.12 s [opt-env-conf-test] ParserSetting _ _ -> False
  19699. 2099.12 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19700. 2099.12 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19701. 2099.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
  19702. 2099.12 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19703. 2099.12 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19704. 2099.12 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19705. 2099.12 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19706. 2099.12 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19707. 2099.12 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> False && isEmpty ps
  19708. 2099.12 s [opt-env-conf-test] ParserSetting _ _ -> False
  19709. 2099.12 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19710. 2099.12 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19711. 2099.12 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:265:39-49
  19712. 2099.12 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19713. 2099.12 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19714. 2099.12 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19715. 2099.12 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19716. 2099.12 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19717. 2099.12 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> not (isEmpty pc) && isEmpty ps
  19718. 2099.12 s [opt-env-conf-test] ParserSetting _ _ -> False
  19719. 2099.12 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19720. 2099.12 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19721. 2099.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
  19722. 2099.12 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19723. 2099.12 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19724. 2099.12 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19725. 2099.12 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19726. 2099.12 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19727. 2099.12 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> isEmpty pc && True
  19728. 2099.12 s [opt-env-conf-test] ParserSetting _ _ -> False
  19729. 2099.12 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19730. 2099.12 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19731. 2099.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
  19732. 2099.12 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19733. 2099.12 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19734. 2099.12 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19735. 2099.12 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19736. 2099.12 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19737. 2099.12 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> isEmpty pc && False
  19738. 2099.12 s [opt-env-conf-test] ParserSetting _ _ -> False
  19739. 2099.12 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19740. 2099.12 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19741. 2099.12 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:265:53-63
  19742. 2099.13 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19743. 2099.13 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19744. 2099.13 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19745. 2099.13 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19746. 2099.13 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19747. 2099.13 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> isEmpty pc && not (isEmpty ps)
  19748. 2099.13 s [opt-env-conf-test] ParserSetting _ _ -> False
  19749. 2099.13 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19750. 2099.13 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19751. 2099.13 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
  19752. 2099.13 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19753. 2099.13 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19754. 2099.13 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19755. 2099.13 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19756. 2099.13 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19757. 2099.13 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> True
  19758. 2099.13 s [opt-env-conf-test] ParserSetting _ _ -> False
  19759. 2099.13 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19760. 2099.13 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19761. 2099.13 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
  19762. 2099.13 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19763. 2099.13 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19764. 2099.13 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19765. 2099.13 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19766. 2099.13 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19767. 2099.13 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> False
  19768. 2099.13 s [opt-env-conf-test] ParserSetting _ _ -> False
  19769. 2099.13 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19770. 2099.13 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19771. 2099.13 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Parser.hs:265:39-63
  19772. 2099.13 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19773. 2099.13 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19774. 2099.13 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19775. 2099.13 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19776. 2099.13 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19777. 2099.13 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> isEmpty pc || isEmpty ps
  19778. 2099.13 s [opt-env-conf-test] ParserSetting _ _ -> False
  19779. 2099.13 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19780. 2099.13 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19781. 2099.13 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:265:39-63
  19782. 2099.13 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  19783. 2099.13 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  19784. 2099.13 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19785. 2099.13 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19786. 2099.13 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19787. 2099.13 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> not (isEmpty pc && isEmpty ps)
  19788. 2099.13 s [opt-env-conf-test] ParserSetting _ _ -> False
  19789. 2099.13 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19790. 2099.13 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19791. 2099.13 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:266:32-37
  19792. 2099.13 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  19793. 2099.13 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  19794. 2099.13 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19795. 2099.13 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19796. 2099.13 s [opt-env-conf-test] - ParserSetting _ _ -> False
  19797. 2099.13 s [opt-env-conf-test] + ParserSetting _ _ -> True
  19798. 2099.13 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19799. 2099.13 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19800. 2099.13 s [opt-env-conf-test] (True, False) -> p2
  19801. 2099.13 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
  19802. 2099.13 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  19803. 2099.13 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19804. 2099.13 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19805. 2099.13 s [opt-env-conf-test] ParserSetting _ _ -> False
  19806. 2099.13 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  19807. 2099.13 s [opt-env-conf-test] + in case (True, isEmpty p2) of
  19808. 2099.13 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19809. 2099.13 s [opt-env-conf-test] (True, False) -> p2
  19810. 2099.13 s [opt-env-conf-test] (False, True) -> p1
  19811. 2099.13 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
  19812. 2099.13 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  19813. 2099.13 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19814. 2099.13 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19815. 2099.13 s [opt-env-conf-test] ParserSetting _ _ -> False
  19816. 2099.13 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  19817. 2099.13 s [opt-env-conf-test] + in case (False, isEmpty p2) of
  19818. 2099.13 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19819. 2099.13 s [opt-env-conf-test] (True, False) -> p2
  19820. 2099.13 s [opt-env-conf-test] (False, True) -> p1
  19821. 2099.13 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:267:15-25
  19822. 2099.13 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  19823. 2099.14 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19824. 2099.14 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19825. 2099.14 s [opt-env-conf-test] ParserSetting _ _ -> False
  19826. 2099.14 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  19827. 2099.14 s [opt-env-conf-test] + in case (not (isEmpty p1), isEmpty p2) of
  19828. 2099.14 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19829. 2099.14 s [opt-env-conf-test] (True, False) -> p2
  19830. 2099.14 s [opt-env-conf-test] (False, True) -> p1
  19831. 2101.17 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
  19832. 2101.17 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  19833. 2101.25 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19834. 2101.25 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19835. 2101.25 s [opt-env-conf-test] ParserSetting _ _ -> False
  19836. 2101.25 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  19837. 2101.25 s [opt-env-conf-test] + in case (isEmpty p1, True) of
  19838. 2101.25 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19839. 2101.25 s [opt-env-conf-test] (True, False) -> p2
  19840. 2101.25 s [opt-env-conf-test] (False, True) -> p1
  19841. 2101.25 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
  19842. 2101.25 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  19843. 2101.25 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19844. 2101.25 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19845. 2101.25 s [opt-env-conf-test] ParserSetting _ _ -> False
  19846. 2101.25 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  19847. 2101.25 s [opt-env-conf-test] + in case (isEmpty p1, False) of
  19848. 2101.25 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19849. 2101.25 s [opt-env-conf-test] (True, False) -> p2
  19850. 2101.25 s [opt-env-conf-test] (False, True) -> p1
  19851. 2101.25 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:267:27-37
  19852. 2101.25 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  19853. 2101.26 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19854. 2101.26 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19855. 2101.26 s [opt-env-conf-test] ParserSetting _ _ -> False
  19856. 2101.26 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  19857. 2101.26 s [opt-env-conf-test] + in case (isEmpty p1, not (isEmpty p2)) of
  19858. 2101.26 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19859. 2101.26 s [opt-env-conf-test] (True, False) -> p2
  19860. 2101.26 s [opt-env-conf-test] (False, True) -> p1
  19861. 2101.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  19862. 2101.26 s [opt-env-conf-test] @@ -269,26 +269,24 @@
  19863. 2101.26 s [opt-env-conf-test] (True, False) -> p2
  19864. 2101.26 s [opt-env-conf-test] (False, True) -> p1
  19865. 2101.26 s [opt-env-conf-test] (False, False) ->
  19866. 2101.26 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  19867. 2101.26 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  19868. 2101.26 s [opt-env-conf-test] -- alts to always be right-leaning
  19869. 2101.26 s [opt-env-conf-test] --
  19870. 2101.26 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  19871. 2101.26 s [opt-env-conf-test] -- p
  19872. 2101.26 s [opt-env-conf-test] -- / \
  19873. 2101.26 s [opt-env-conf-test] -- p1 p2
  19874. 2101.26 s [opt-env-conf-test] -- / \
  19875. 2101.26 s [opt-env-conf-test] -- p3 p4
  19876. 2101.26 s [opt-env-conf-test] --
  19877. 2101.26 s [opt-env-conf-test] -- We need to rearrange it to
  19878. 2101.26 s [opt-env-conf-test] -- p
  19879. 2101.26 s [opt-env-conf-test] -- / \
  19880. 2101.26 s [opt-env-conf-test] -- p1 ++ p3 p4
  19881. 2101.26 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  19882. 2101.26 s [opt-env-conf-test] - go (go p1' p3') p4'
  19883. 2101.26 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  19884. 2101.26 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  19885. 2101.26 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  19886. 2101.26 s [opt-env-conf-test] in go p1 p2
  19887. 2101.26 s [opt-env-conf-test] many = ParserMany Nothing
  19888. 2101.26 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  19889. 2101.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  19890. 2101.26 s [opt-env-conf-test] @@ -269,26 +269,24 @@
  19891. 2101.26 s [opt-env-conf-test] (True, False) -> p2
  19892. 2101.26 s [opt-env-conf-test] (False, True) -> p1
  19893. 2101.26 s [opt-env-conf-test] (False, False) ->
  19894. 2101.26 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  19895. 2101.26 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  19896. 2101.26 s [opt-env-conf-test] -- alts to always be right-leaning
  19897. 2101.26 s [opt-env-conf-test] --
  19898. 2101.26 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  19899. 2101.26 s [opt-env-conf-test] -- p
  19900. 2101.26 s [opt-env-conf-test] -- / \
  19901. 2101.26 s [opt-env-conf-test] -- p1 p2
  19902. 2101.26 s [opt-env-conf-test] -- / \
  19903. 2101.26 s [opt-env-conf-test] -- p3 p4
  19904. 2101.26 s [opt-env-conf-test] --
  19905. 2101.26 s [opt-env-conf-test] -- We need to rearrange it to
  19906. 2101.26 s [opt-env-conf-test] -- p
  19907. 2101.26 s [opt-env-conf-test] -- / \
  19908. 2101.26 s [opt-env-conf-test] -- p1 ++ p3 p4
  19909. 2101.26 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  19910. 2101.26 s [opt-env-conf-test] go (go p1' p3') p4'
  19911. 2101.26 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  19912. 2101.26 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  19913. 2101.26 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  19914. 2101.26 s [opt-env-conf-test] in go p1 p2
  19915. 2101.26 s [opt-env-conf-test] many = ParserMany Nothing
  19916. 2101.26 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  19917. 2101.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  19918. 2101.26 s [opt-env-conf-test] @@ -269,26 +269,25 @@
  19919. 2101.26 s [opt-env-conf-test] (True, False) -> p2
  19920. 2101.26 s [opt-env-conf-test] (False, True) -> p1
  19921. 2101.26 s [opt-env-conf-test] (False, False) ->
  19922. 2101.26 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  19923. 2101.26 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  19924. 2101.26 s [opt-env-conf-test] -- alts to always be right-leaning
  19925. 2101.26 s [opt-env-conf-test] --
  19926. 2101.26 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  19927. 2101.26 s [opt-env-conf-test] -- p
  19928. 2101.26 s [opt-env-conf-test] -- / \
  19929. 2101.26 s [opt-env-conf-test] -- p1 p2
  19930. 2101.26 s [opt-env-conf-test] -- / \
  19931. 2101.26 s [opt-env-conf-test] -- p3 p4
  19932. 2101.26 s [opt-env-conf-test] --
  19933. 2101.26 s [opt-env-conf-test] -- We need to rearrange it to
  19934. 2101.26 s [opt-env-conf-test] -- p
  19935. 2101.26 s [opt-env-conf-test] -- / \
  19936. 2101.26 s [opt-env-conf-test] -- p1 ++ p3 p4
  19937. 2101.26 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  19938. 2101.26 s [opt-env-conf-test] go (go p1' p3') p4'
  19939. 2101.26 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  19940. 2101.26 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  19941. 2101.27 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  19942. 2101.27 s [opt-env-conf-test] in go p1 p2
  19943. 2101.27 s [opt-env-conf-test] many = ParserMany Nothing
  19944. 2101.27 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  19945. 2101.27 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  19946. 2101.27 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  19947. 2101.27 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19948. 2101.27 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19949. 2101.27 s [opt-env-conf-test] ParserSetting _ _ -> False
  19950. 2101.27 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19951. 2101.27 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  19952. 2101.27 s [opt-env-conf-test] (True, False) -> p2
  19953. 2101.27 s [opt-env-conf-test] (False, True) -> p1
  19954. 2101.27 s [opt-env-conf-test] (False, False) ->
  19955. 2101.27 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  19956. 2101.27 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  19957. 2101.27 s [opt-env-conf-test] -- alts to always be right-leaning
  19958. 2101.27 s [opt-env-conf-test] --
  19959. 2101.27 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  19960. 2101.27 s [opt-env-conf-test] -- p
  19961. 2101.27 s [opt-env-conf-test] -- / \
  19962. 2101.27 s [opt-env-conf-test] -- p1 p2
  19963. 2101.27 s [opt-env-conf-test] -- / \
  19964. 2101.27 s [opt-env-conf-test] -- p3 p4
  19965. 2101.27 s [opt-env-conf-test] --
  19966. 2101.27 s [opt-env-conf-test] -- We need to rearrange it to
  19967. 2101.27 s [opt-env-conf-test] -- p
  19968. 2101.27 s [opt-env-conf-test] -- / \
  19969. 2101.27 s [opt-env-conf-test] -- p1 ++ p3 p4
  19970. 2101.27 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  19971. 2101.27 s [opt-env-conf-test] go (go p1' p3') p4'
  19972. 2101.27 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  19973. 2101.27 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  19974. 2101.27 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  19975. 2101.27 s [opt-env-conf-test] in go p1 p2
  19976. 2101.27 s [opt-env-conf-test] many = ParserMany Nothing
  19977. 2101.27 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  19978. 2101.27 s [opt-env-conf-test]
  19979. 2101.27 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  19980. 2101.27 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  19981. 2101.27 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  19982. 2101.27 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  19983. 2101.27 s [opt-env-conf-test] ParserSetting _ _ -> False
  19984. 2101.27 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  19985. 2101.27 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  19986. 2101.27 s [opt-env-conf-test] - (True, False) -> p2
  19987. 2101.27 s [opt-env-conf-test] (False, True) -> p1
  19988. 2101.27 s [opt-env-conf-test] (False, False) ->
  19989. 2101.27 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  19990. 2101.27 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  19991. 2101.27 s [opt-env-conf-test] -- alts to always be right-leaning
  19992. 2101.27 s [opt-env-conf-test] --
  19993. 2101.27 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  19994. 2101.27 s [opt-env-conf-test] -- p
  19995. 2101.27 s [opt-env-conf-test] -- / \
  19996. 2101.27 s [opt-env-conf-test] -- p1 p2
  19997. 2101.27 s [opt-env-conf-test] -- / \
  19998. 2101.27 s [opt-env-conf-test] -- p3 p4
  19999. 2101.27 s [opt-env-conf-test] --
  20000. 2101.27 s [opt-env-conf-test] -- We need to rearrange it to
  20001. 2101.27 s [opt-env-conf-test] -- p
  20002. 2101.27 s [opt-env-conf-test] -- / \
  20003. 2101.27 s [opt-env-conf-test] -- p1 ++ p3 p4
  20004. 2101.27 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  20005. 2101.27 s [opt-env-conf-test] go (go p1' p3') p4'
  20006. 2103.73 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  20007. 2103.73 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  20008. 2103.73 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  20009. 2103.73 s [opt-env-conf-test] in go p1 p2
  20010. 2103.73 s [opt-env-conf-test] many = ParserMany Nothing
  20011. 2103.73 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  20012. 2103.73 s [opt-env-conf-test]
  20013. 2103.73 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  20014. 2103.73 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  20015. 2103.73 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  20016. 2103.73 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20017. 2103.73 s [opt-env-conf-test] ParserSetting _ _ -> False
  20018. 2103.73 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  20019. 2103.73 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  20020. 2103.74 s [opt-env-conf-test] (True, False) -> p2
  20021. 2103.74 s [opt-env-conf-test] - (False, True) -> p1
  20022. 2103.74 s [opt-env-conf-test] (False, False) ->
  20023. 2103.74 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  20024. 2103.74 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  20025. 2103.74 s [opt-env-conf-test] -- alts to always be right-leaning
  20026. 2103.74 s [opt-env-conf-test] --
  20027. 2103.74 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  20028. 2103.74 s [opt-env-conf-test] -- p
  20029. 2103.74 s [opt-env-conf-test] -- / \
  20030. 2103.74 s [opt-env-conf-test] -- p1 p2
  20031. 2103.74 s [opt-env-conf-test] -- / \
  20032. 2103.74 s [opt-env-conf-test] -- p3 p4
  20033. 2103.74 s [opt-env-conf-test] --
  20034. 2103.74 s [opt-env-conf-test] -- We need to rearrange it to
  20035. 2103.74 s [opt-env-conf-test] -- p
  20036. 2103.74 s [opt-env-conf-test] -- / \
  20037. 2103.74 s [opt-env-conf-test] -- p1 ++ p3 p4
  20038. 2103.74 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  20039. 2103.74 s [opt-env-conf-test] go (go p1' p3') p4'
  20040. 2103.74 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  20041. 2103.74 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  20042. 2103.74 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  20043. 2103.74 s [opt-env-conf-test] in go p1 p2
  20044. 2103.74 s [opt-env-conf-test] many = ParserMany Nothing
  20045. 2103.74 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  20046. 2103.74 s [opt-env-conf-test]
  20047. 2103.74 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  20048. 2103.74 s [opt-env-conf-test] @@ -264,32 +264,10 @@
  20049. 2103.74 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  20050. 2103.74 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20051. 2103.74 s [opt-env-conf-test] ParserSetting _ _ -> False
  20052. 2103.74 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  20053. 2103.74 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  20054. 2103.74 s [opt-env-conf-test] (True, False) -> p2
  20055. 2103.74 s [opt-env-conf-test] (False, True) -> p1
  20056. 2103.74 s [opt-env-conf-test] - (False, False) ->
  20057. 2103.74 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  20058. 2103.74 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  20059. 2103.74 s [opt-env-conf-test] - -- alts to always be right-leaning
  20060. 2103.74 s [opt-env-conf-test] - --
  20061. 2103.74 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  20062. 2103.74 s [opt-env-conf-test] - -- p
  20063. 2103.74 s [opt-env-conf-test] - -- / \
  20064. 2103.74 s [opt-env-conf-test] - -- p1 p2
  20065. 2103.74 s [opt-env-conf-test] - -- / \
  20066. 2103.74 s [opt-env-conf-test] - -- p3 p4
  20067. 2103.74 s [opt-env-conf-test] - --
  20068. 2103.74 s [opt-env-conf-test] - -- We need to rearrange it to
  20069. 2103.74 s [opt-env-conf-test] - -- p
  20070. 2103.74 s [opt-env-conf-test] - -- / \
  20071. 2103.74 s [opt-env-conf-test] - -- p1 ++ p3 p4
  20072. 2103.74 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  20073. 2103.74 s [opt-env-conf-test] - go (go p1' p3') p4'
  20074. 2103.74 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  20075. 2103.74 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  20076. 2103.74 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  20077. 2103.74 s [opt-env-conf-test] - in go p1 p2
  20078. 2103.74 s [opt-env-conf-test] many = ParserMany Nothing
  20079. 2103.74 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  20080. 2103.74 s [opt-env-conf-test]
  20081. 2103.74 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
  20082. 2103.74 s [opt-env-conf-test] @@ -239,10 +239,9 @@
  20083. 2103.74 s [opt-env-conf-test]
  20084. 2103.74 s [opt-env-conf-test] instance Applicative Parser where
  20085. 2103.74 s [opt-env-conf-test] pure = ParserPure
  20086. 2103.74 s [opt-env-conf-test] (<*>) p1 p2 = case (p1, p2) of
  20087. 2103.74 s [opt-env-conf-test] -- Homomorphism law for applicative
  20088. 2103.74 s [opt-env-conf-test] - (ParserPure f, ParserPure a) -> ParserPure (f a)
  20089. 2103.74 s [opt-env-conf-test] _ -> ParserAp p1 p2
  20090. 2103.74 s [opt-env-conf-test]
  20091. 2103.74 s [opt-env-conf-test] instance Selective Parser where
  20092. 2103.75 s [opt-env-conf-test] select = ParserSelect
  20093. 2103.75 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
  20094. 2103.75 s [opt-env-conf-test] @@ -239,10 +239,9 @@
  20095. 2103.75 s [opt-env-conf-test]
  20096. 2103.75 s [opt-env-conf-test] instance Applicative Parser where
  20097. 2103.75 s [opt-env-conf-test] pure = ParserPure
  20098. 2103.75 s [opt-env-conf-test] (<*>) p1 p2 = case (p1, p2) of
  20099. 2103.75 s [opt-env-conf-test] -- Homomorphism law for applicative
  20100. 2103.75 s [opt-env-conf-test] (ParserPure f, ParserPure a) -> ParserPure (f a)
  20101. 2103.75 s [opt-env-conf-test] - _ -> ParserAp p1 p2
  20102. 2103.75 s [opt-env-conf-test]
  20103. 2103.75 s [opt-env-conf-test] instance Selective Parser where
  20104. 2103.75 s [opt-env-conf-test] select = ParserSelect
  20105. 2103.75 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
  20106. 2103.75 s [opt-env-conf-test] @@ -231,7 +231,7 @@
  20107. 2103.75 s [opt-env-conf-test] ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
  20108. 2103.75 s [opt-env-conf-test] ParserEmpty mLoc -> ParserEmpty mLoc
  20109. 2103.75 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
  20110. 2103.75 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
  20111. 2103.75 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc True caps (fmap (fmap f) . g) p
  20112. 2103.75 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
  20113. 2103.75 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
  20114. 2103.75 s [opt-env-conf-test] -- If we ever make Setting a functor, then we need to fmap here
  20115. 2103.75 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
  20116. 2103.75 s [opt-env-conf-test] @@ -231,7 +231,7 @@
  20117. 2103.75 s [opt-env-conf-test] ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
  20118. 2103.75 s [opt-env-conf-test] ParserEmpty mLoc -> ParserEmpty mLoc
  20119. 2103.75 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
  20120. 2103.75 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
  20121. 2103.75 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc False caps (fmap (fmap f) . g) p
  20122. 2103.75 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
  20123. 2103.75 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
  20124. 2103.75 s [opt-env-conf-test] -- If we ever make Setting a functor, then we need to fmap here
  20125. 2103.75 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:234:62-72
  20126. 2103.75 s [opt-env-conf-test] @@ -231,7 +231,7 @@
  20127. 2103.75 s [opt-env-conf-test] ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
  20128. 2103.75 s [opt-env-conf-test] ParserEmpty mLoc -> ParserEmpty mLoc
  20129. 2103.75 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
  20130. 2103.75 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
  20131. 2103.75 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc not (forgivable) caps (fmap (fmap f) . g) p
  20132. 2103.75 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
  20133. 2103.75 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
  20134. 2103.75 s [opt-env-conf-test] -- If we ever make Setting a functor, then we need to fmap here
  20135. 2103.75 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:238:30-34
  20136. 2103.75 s [opt-env-conf-test] @@ -235,7 +235,7 @@
  20137. 2103.75 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
  20138. 2103.75 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
  20139. 2103.75 s [opt-env-conf-test] -- If we ever make Setting a functor, then we need to fmap here
  20140. 2103.75 s [opt-env-conf-test] - p -> ParserCheck Nothing True Set.empty (pure . Right . f) p
  20141. 2103.75 s [opt-env-conf-test] + p -> ParserCheck Nothing False Set.empty (pure . Right . f) p
  20142. 2103.75 s [opt-env-conf-test]
  20143. 2103.75 s [opt-env-conf-test] instance Applicative Parser where
  20144. 2103.75 s [opt-env-conf-test] pure = ParserPure
  20145. 2103.75 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
  20146. 2103.75 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  20147. 2103.75 s [opt-env-conf-test] showString "Command "
  20148. 2103.75 s [opt-env-conf-test] . showsPrec 11 commandArg
  20149. 2103.75 s [opt-env-conf-test] . showString " "
  20150. 2103.75 s [opt-env-conf-test] - . showsPrec 11 commandHelp
  20151. 2103.75 s [opt-env-conf-test] + . showsPrec 0 commandHelp
  20152. 2103.75 s [opt-env-conf-test] . showString " "
  20153. 2103.75 s [opt-env-conf-test] . showParserPrec 11 commandParser
  20154. 2103.75 s [opt-env-conf-test]
  20155. 2103.75 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
  20156. 2103.75 s [opt-env-conf-test] @@ -131,7 +131,7 @@
  20157. 2103.75 s [opt-env-conf-test] showCommandABit :: Command a -> ShowS
  20158. 2103.75 s [opt-env-conf-test] showCommandABit Command {..} =
  20159. 2103.75 s [opt-env-conf-test] showString "Command "
  20160. 2103.75 s [opt-env-conf-test] - . showsPrec 11 commandArg
  20161. 2103.75 s [opt-env-conf-test] + . showsPrec -11 commandArg
  20162. 2103.75 s [opt-env-conf-test] . showString " "
  20163. 2103.75 s [opt-env-conf-test] . showsPrec 11 commandHelp
  20164. 2103.75 s [opt-env-conf-test] . showString " "
  20165. 2103.75 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
  20166. 2103.75 s [opt-env-conf-test] @@ -131,7 +131,7 @@
  20167. 2103.75 s [opt-env-conf-test] showCommandABit :: Command a -> ShowS
  20168. 2103.75 s [opt-env-conf-test] showCommandABit Command {..} =
  20169. 2106.28 s [opt-env-conf-test] showString "Command "
  20170. 2106.28 s [opt-env-conf-test] - . showsPrec 11 commandArg
  20171. 2106.35 s [opt-env-conf-test] + . showsPrec 1 commandArg
  20172. 2106.35 s [opt-env-conf-test] . showString " "
  20173. 2106.35 s [opt-env-conf-test] . showsPrec 11 commandHelp
  20174. 2106.35 s [opt-env-conf-test] . showString " "
  20175. 2106.35 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
  20176. 2106.35 s [opt-env-conf-test] @@ -372,7 +372,7 @@
  20177. 2106.35 s [opt-env-conf-test] ParserSetting mLoc p ->
  20178. 2106.35 s [opt-env-conf-test] showParen (d > 10) $
  20179. 2106.35 s [opt-env-conf-test] showString "Setting "
  20180. 2106.35 s [opt-env-conf-test] - . showsPrec 11 mLoc
  20181. 2106.35 s [opt-env-conf-test] + . showsPrec -11 mLoc
  20182. 2106.35 s [opt-env-conf-test] . showString " "
  20183. 2106.35 s [opt-env-conf-test] . showSettingABit p
  20184. 2106.35 s [opt-env-conf-test]
  20185. 2106.35 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
  20186. 2106.35 s [opt-env-conf-test] @@ -131,7 +131,7 @@
  20187. 2106.35 s [opt-env-conf-test] showCommandABit :: Command a -> ShowS
  20188. 2106.35 s [opt-env-conf-test] showCommandABit Command {..} =
  20189. 2106.35 s [opt-env-conf-test] showString "Command "
  20190. 2106.36 s [opt-env-conf-test] - . showsPrec 11 commandArg
  20191. 2106.36 s [opt-env-conf-test] + . showsPrec 0 commandArg
  20192. 2106.36 s [opt-env-conf-test] . showString " "
  20193. 2106.36 s [opt-env-conf-test] . showsPrec 11 commandHelp
  20194. 2106.36 s [opt-env-conf-test] . showString " "
  20195. 2106.36 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
  20196. 2106.36 s [opt-env-conf-test] @@ -372,7 +372,7 @@
  20197. 2106.36 s [opt-env-conf-test] ParserSetting mLoc p ->
  20198. 2106.36 s [opt-env-conf-test] showParen (d > 10) $
  20199. 2106.36 s [opt-env-conf-test] showString "Setting "
  20200. 2106.36 s [opt-env-conf-test] - . showsPrec 11 mLoc
  20201. 2106.36 s [opt-env-conf-test] + . showsPrec 1 mLoc
  20202. 2106.36 s [opt-env-conf-test] . showString " "
  20203. 2106.36 s [opt-env-conf-test] . showSettingABit p
  20204. 2106.36 s [opt-env-conf-test]
  20205. 2106.36 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:373:19-27
  20206. 2106.36 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  20207. 2106.36 s [opt-env-conf-test] . showString " "
  20208. 2106.36 s [opt-env-conf-test] . go 11 p2
  20209. 2106.36 s [opt-env-conf-test] ParserSetting mLoc p ->
  20210. 2106.36 s [opt-env-conf-test] - showParen (d > 10) $
  20211. 2106.36 s [opt-env-conf-test] + showParen not ((d > 10)) $
  20212. 2106.36 s [opt-env-conf-test] showString "Setting "
  20213. 2106.36 s [opt-env-conf-test] . showsPrec 11 mLoc
  20214. 2106.36 s [opt-env-conf-test] . showString " "
  20215. 2106.36 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
  20216. 2106.36 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  20217. 2106.36 s [opt-env-conf-test] showString "Command "
  20218. 2106.36 s [opt-env-conf-test] . showsPrec 11 commandArg
  20219. 2106.36 s [opt-env-conf-test] . showString " "
  20220. 2106.36 s [opt-env-conf-test] - . showsPrec 11 commandHelp
  20221. 2106.36 s [opt-env-conf-test] + . showsPrec 1 commandHelp
  20222. 2106.36 s [opt-env-conf-test] . showString " "
  20223. 2106.36 s [opt-env-conf-test] . showParserPrec 11 commandParser
  20224. 2106.36 s [opt-env-conf-test]
  20225. 2106.36 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
  20226. 2106.36 s [opt-env-conf-test] @@ -458,7 +458,7 @@
  20227. 2106.36 s [opt-env-conf-test] put as'
  20228. 2106.36 s [opt-env-conf-test] pure $ Just []
  20229. 2106.36 s [opt-env-conf-test] Nothing -> do
  20230. 2106.36 s [opt-env-conf-test] - if argsAtEnd as
  20231. 2106.36 s [opt-env-conf-test] + if True
  20232. 2106.36 s [opt-env-conf-test] then completeWithDasheds
  20233. 2106.36 s [opt-env-conf-test] else do
  20234. 2106.36 s [opt-env-conf-test] -- If we're not at the end, we may be between an option's
  20235. 2106.36 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
  20236. 2106.36 s [opt-env-conf-test] @@ -458,7 +458,7 @@
  20237. 2106.36 s [opt-env-conf-test] put as'
  20238. 2106.36 s [opt-env-conf-test] pure $ Just []
  20239. 2106.36 s [opt-env-conf-test] Nothing -> do
  20240. 2106.36 s [opt-env-conf-test] - if argsAtEnd as
  20241. 2106.36 s [opt-env-conf-test] + if False
  20242. 2106.36 s [opt-env-conf-test] then completeWithDasheds
  20243. 2106.36 s [opt-env-conf-test] else do
  20244. 2106.36 s [opt-env-conf-test] -- If we're not at the end, we may be between an option's
  20245. 2106.36 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:304:33-41
  20246. 2106.36 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  20247. 2106.36 s [opt-env-conf-test] where
  20248. 2106.36 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  20249. 2106.36 s [opt-env-conf-test] go d = \case
  20250. 2106.36 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  20251. 2106.36 s [opt-env-conf-test] + ParserPure _ -> showParen not ((d > 10)) $ showString "Pure _"
  20252. 2106.36 s [opt-env-conf-test] ParserAp pf pa ->
  20253. 2106.36 s [opt-env-conf-test] showParen (d > 10) $
  20254. 2106.36 s [opt-env-conf-test] showString "Ap "
  20255. 2106.36 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:474:47-63
  20256. 2106.36 s [opt-env-conf-test] @@ -471,9 +471,8 @@
  20257. 2106.36 s [opt-env-conf-test] -- consume the option argument too.
  20258. 2106.36 s [opt-env-conf-test] case Args.consumeSwitch settingDasheds as of
  20259. 2106.36 s [opt-env-conf-test] Nothing -> pure $ Just []
  20260. 2106.36 s [opt-env-conf-test] Just as' -> do
  20261. 2106.36 s [opt-env-conf-test] - put as'
  20262. 2106.36 s [opt-env-conf-test] completeWithCompleterAtEnd
  20263. 2106.36 s [opt-env-conf-test] else do
  20264. 2106.36 s [opt-env-conf-test] -- We can't auto-complete settings parsed from env vars
  20265. 2106.36 s [opt-env-conf-test] -- or config values, but this path is still valid.
  20266. 2106.36 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:441:20-45
  20267. 2106.36 s [opt-env-conf-test] @@ -438,7 +438,7 @@
  20268. 2106.36 s [opt-env-conf-test] put as'
  20269. 2106.36 s [opt-env-conf-test] completeWithCompleterAtEnd
  20270. 2106.36 s [opt-env-conf-test] else
  20271. 2106.36 s [opt-env-conf-test] - if isJust settingSwitchValue
  20272. 2106.36 s [opt-env-conf-test] + if not (isJust settingSwitchValue)
  20273. 2106.36 s [opt-env-conf-test] then do
  20274. 2106.36 s [opt-env-conf-test] -- Try to parse the switch first, so we don't suggest it if
  20275. 2106.37 s [opt-env-conf-test] -- it's already been parsed.
  20276. 2106.37 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:426:35-35
  20277. 2106.37 s [opt-env-conf-test] @@ -423,9 +423,8 @@
  20278. 2106.37 s [opt-env-conf-test] -- that over the "don't consume" fallback, because a
  20279. 2106.37 s [opt-env-conf-test] -- consumed value means the user already provided input.
  20280. 2106.37 s [opt-env-conf-test] case filter (isJust . fst) possibilities of
  20281. 2106.37 s [opt-env-conf-test] (_, as') : _ -> do
  20282. 2106.37 s [opt-env-conf-test] - put as'
  20283. 2106.37 s [opt-env-conf-test] pure $ Just []
  20284. 2106.37 s [opt-env-conf-test] [] ->
  20285. 2106.37 s [opt-env-conf-test] -- No possibility consumed a value. This is either
  20286. 2106.37 s [opt-env-conf-test] -- because there are no args at all (the [] case from
  20287. 2106.37 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  20288. 2106.37 s [opt-env-conf-test] @@ -141,7 +141,6 @@
  20289. 2106.37 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  20290. 2106.37 s [opt-env-conf-test] pure (a : as)
  20291. 2106.37 s [opt-env-conf-test] ParserSome mLoc p' -> do
  20292. 2106.37 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20293. 2106.37 s [opt-env-conf-test] ppIndent $ do
  20294. 2106.37 s [opt-env-conf-test] a <- go p'
  20295. 2106.37 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  20296. 2106.37 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
  20297. 2106.37 s [opt-env-conf-test] @@ -135,11 +135,10 @@
  20298. 2106.37 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20299. 2106.37 s [opt-env-conf-test] ppIndent $ do
  20300. 2106.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  20301. 2106.37 s [opt-env-conf-test] case eor of
  20302. 2106.37 s [opt-env-conf-test] - Nothing -> pure []
  20303. 2106.37 s [opt-env-conf-test] Just a -> do
  20304. 2106.37 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  20305. 2106.37 s [opt-env-conf-test] pure (a : as)
  20306. 2106.37 s [opt-env-conf-test] ParserSome mLoc p' -> do
  20307. 2106.37 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20308. 2106.37 s [opt-env-conf-test] ppIndent $ do
  20309. 2106.37 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:437:39-51
  20310. 2106.37 s [opt-env-conf-test] @@ -434,9 +434,8 @@
  20311. 2106.37 s [opt-env-conf-test] -- completer if we are at the end.
  20312. 2106.37 s [opt-env-conf-test] case possibilities of
  20313. 2106.37 s [opt-env-conf-test] [] -> completeWithCompleterAtEnd
  20314. 2106.37 s [opt-env-conf-test] (_, as') : _ -> do
  20315. 2106.37 s [opt-env-conf-test] - put as'
  20316. 2106.37 s [opt-env-conf-test] completeWithCompleterAtEnd
  20317. 2106.37 s [opt-env-conf-test] else
  20318. 2106.37 s [opt-env-conf-test] if isJust settingSwitchValue
  20319. 2106.37 s [opt-env-conf-test] then do
  20320. 2106.37 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
  20321. 2106.37 s [opt-env-conf-test] @@ -135,11 +135,8 @@
  20322. 2106.37 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20323. 2106.37 s [opt-env-conf-test] ppIndent $ do
  20324. 2106.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  20325. 2106.37 s [opt-env-conf-test] case eor of
  20326. 2106.37 s [opt-env-conf-test] Nothing -> pure []
  20327. 2106.37 s [opt-env-conf-test] - Just a -> do
  20328. 2106.37 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  20329. 2106.37 s [opt-env-conf-test] - pure (a : as)
  20330. 2106.37 s [opt-env-conf-test] ParserSome mLoc p' -> do
  20331. 2106.37 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20332. 2106.37 s [opt-env-conf-test] ppIndent $ do
  20333. 2106.37 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:134:29-28
  20334. 2106.37 s [opt-env-conf-test] @@ -131,15 +131,14 @@
  20335. 2106.37 s [opt-env-conf-test] Nothing -> do
  20336. 2106.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  20337. 2106.37 s [opt-env-conf-test] ppIndent $ go p2
  20338. 2106.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20339. 2106.37 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20340. 2106.37 s [opt-env-conf-test] ppIndent $ do
  20341. 2106.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  20342. 2106.37 s [opt-env-conf-test] case eor of
  20343. 2106.37 s [opt-env-conf-test] Nothing -> pure []
  20344. 2106.37 s [opt-env-conf-test] Just a -> do
  20345. 2106.37 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  20346. 2106.37 s [opt-env-conf-test] pure (a : as)
  20347. 2106.37 s [opt-env-conf-test] ParserSome mLoc p' -> do
  20348. 2106.37 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20349. 2112.51 s [opt-env-conf-test] Killed: 1228
  20350. 2112.51 s [opt-env-conf-test] (of which timed out: 1)
  20351. 2112.51 s [opt-env-conf-test] Survived: 301
  20352. 2112.53 s [opt-env-conf-test] Uncovered: 381
  20353. 2112.53 s [opt-env-conf-test]
  20354. 2112.53 s [opt-env-conf-test] Timed-out mutations:
  20355. 2112.53 s [opt-env-conf-test]
  20356. 2112.53 s [opt-env-conf-test] [timed out after 30.211618s]
  20357. 2112.53 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completion.hs:272:14-29
  20358. 2112.53 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  20359. 2112.53 s [opt-env-conf-test] Nothing -> pure Nothing
  20360. 2112.53 s [opt-env-conf-test] Just os -> do
  20361. 2112.53 s [opt-env-conf-test] after <- get
  20362. 2112.53 s [opt-env-conf-test] - if after == before
  20363. 2112.53 s [opt-env-conf-test] + if False
  20364. 2112.53 s [opt-env-conf-test] then -- State did not advance; return these completions.
  20365. 2112.53 s [opt-env-conf-test] pure $ Just os
  20366. 2112.53 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  20367. 2112.53 s [opt-env-conf-test]
  20368. 2112.53 s [opt-env-conf-test] Surviving mutations:
  20369. 2112.53 s [opt-env-conf-test]
  20370. 2112.53 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
  20371. 2112.53 s [opt-env-conf-test] @@ -239,10 +239,9 @@
  20372. 2112.53 s [opt-env-conf-test]
  20373. 2112.53 s [opt-env-conf-test] instance Applicative Parser where
  20374. 2112.53 s [opt-env-conf-test] pure = ParserPure
  20375. 2112.53 s [opt-env-conf-test] (<*>) p1 p2 = case (p1, p2) of
  20376. 2112.53 s [opt-env-conf-test] -- Homomorphism law for applicative
  20377. 2112.53 s [opt-env-conf-test] - (ParserPure f, ParserPure a) -> ParserPure (f a)
  20378. 2112.53 s [opt-env-conf-test] _ -> ParserAp p1 p2
  20379. 2112.53 s [opt-env-conf-test]
  20380. 2112.53 s [opt-env-conf-test] instance Selective Parser where
  20381. 2112.53 s [opt-env-conf-test] select = ParserSelect
  20382. 2112.53 s [opt-env-conf-test]
  20383. 2112.53 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  20384. 2112.53 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  20385. 2112.53 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  20386. 2112.53 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20387. 2112.53 s [opt-env-conf-test] ParserSetting _ _ -> False
  20388. 2112.53 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  20389. 2112.53 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  20390. 2112.53 s [opt-env-conf-test] (True, False) -> p2
  20391. 2112.53 s [opt-env-conf-test] - (False, True) -> p1
  20392. 2112.53 s [opt-env-conf-test] (False, False) ->
  20393. 2112.53 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  20394. 2112.53 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  20395. 2112.53 s [opt-env-conf-test] -- alts to always be right-leaning
  20396. 2112.53 s [opt-env-conf-test] --
  20397. 2112.53 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  20398. 2112.53 s [opt-env-conf-test] -- p
  20399. 2112.53 s [opt-env-conf-test] -- / \
  20400. 2112.53 s [opt-env-conf-test] -- p1 p2
  20401. 2112.53 s [opt-env-conf-test] -- / \
  20402. 2112.53 s [opt-env-conf-test] -- p3 p4
  20403. 2112.53 s [opt-env-conf-test] --
  20404. 2112.53 s [opt-env-conf-test] -- We need to rearrange it to
  20405. 2112.53 s [opt-env-conf-test] -- p
  20406. 2112.53 s [opt-env-conf-test] -- / \
  20407. 2112.53 s [opt-env-conf-test] -- p1 ++ p3 p4
  20408. 2112.53 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  20409. 2112.53 s [opt-env-conf-test] go (go p1' p3') p4'
  20410. 2112.53 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  20411. 2112.53 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  20412. 2112.53 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  20413. 2112.53 s [opt-env-conf-test] in go p1 p2
  20414. 2112.53 s [opt-env-conf-test] many = ParserMany Nothing
  20415. 2112.53 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  20416. 2112.53 s [opt-env-conf-test]
  20417. 2112.53 s [opt-env-conf-test]
  20418. 2112.53 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  20419. 2112.53 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  20420. 2112.53 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  20421. 2112.53 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20422. 2112.53 s [opt-env-conf-test] ParserSetting _ _ -> False
  20423. 2112.53 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  20424. 2112.53 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  20425. 2112.53 s [opt-env-conf-test] - (True, False) -> p2
  20426. 2112.53 s [opt-env-conf-test] (False, True) -> p1
  20427. 2112.53 s [opt-env-conf-test] (False, False) ->
  20428. 2112.53 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  20429. 2112.53 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  20430. 2112.53 s [opt-env-conf-test] -- alts to always be right-leaning
  20431. 2112.53 s [opt-env-conf-test] --
  20432. 2112.53 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  20433. 2112.53 s [opt-env-conf-test] -- p
  20434. 2112.53 s [opt-env-conf-test] -- / \
  20435. 2112.53 s [opt-env-conf-test] -- p1 p2
  20436. 2112.53 s [opt-env-conf-test] -- / \
  20437. 2112.54 s [opt-env-conf-test] -- p3 p4
  20438. 2112.54 s [opt-env-conf-test] --
  20439. 2112.54 s [opt-env-conf-test] -- We need to rearrange it to
  20440. 2112.54 s [opt-env-conf-test] -- p
  20441. 2112.54 s [opt-env-conf-test] -- / \
  20442. 2112.54 s [opt-env-conf-test] -- p1 ++ p3 p4
  20443. 2112.54 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  20444. 2112.54 s [opt-env-conf-test] go (go p1' p3') p4'
  20445. 2112.54 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  20446. 2112.54 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  20447. 2112.54 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  20448. 2112.54 s [opt-env-conf-test] in go p1 p2
  20449. 2112.54 s [opt-env-conf-test] many = ParserMany Nothing
  20450. 2112.54 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  20451. 2112.54 s [opt-env-conf-test]
  20452. 2112.54 s [opt-env-conf-test]
  20453. 2112.54 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  20454. 2112.54 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  20455. 2112.54 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  20456. 2112.54 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20457. 2112.54 s [opt-env-conf-test] ParserSetting _ _ -> False
  20458. 2112.54 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  20459. 2112.54 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  20460. 2112.54 s [opt-env-conf-test] (True, False) -> p2
  20461. 2112.54 s [opt-env-conf-test] (False, True) -> p1
  20462. 2112.54 s [opt-env-conf-test] (False, False) ->
  20463. 2112.54 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  20464. 2112.54 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  20465. 2112.54 s [opt-env-conf-test] -- alts to always be right-leaning
  20466. 2112.54 s [opt-env-conf-test] --
  20467. 2112.54 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  20468. 2112.54 s [opt-env-conf-test] -- p
  20469. 2112.54 s [opt-env-conf-test] -- / \
  20470. 2112.54 s [opt-env-conf-test] -- p1 p2
  20471. 2112.54 s [opt-env-conf-test] -- / \
  20472. 2112.54 s [opt-env-conf-test] -- p3 p4
  20473. 2112.54 s [opt-env-conf-test] --
  20474. 2112.54 s [opt-env-conf-test] -- We need to rearrange it to
  20475. 2112.54 s [opt-env-conf-test] -- p
  20476. 2112.54 s [opt-env-conf-test] -- / \
  20477. 2112.54 s [opt-env-conf-test] -- p1 ++ p3 p4
  20478. 2112.54 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  20479. 2112.54 s [opt-env-conf-test] go (go p1' p3') p4'
  20480. 2112.54 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  20481. 2112.54 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  20482. 2112.54 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  20483. 2112.54 s [opt-env-conf-test] in go p1 p2
  20484. 2112.54 s [opt-env-conf-test] many = ParserMany Nothing
  20485. 2112.54 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  20486. 2112.54 s [opt-env-conf-test]
  20487. 2112.54 s [opt-env-conf-test]
  20488. 2112.54 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  20489. 2112.54 s [opt-env-conf-test] @@ -269,26 +269,24 @@
  20490. 2112.54 s [opt-env-conf-test] (True, False) -> p2
  20491. 2112.54 s [opt-env-conf-test] (False, True) -> p1
  20492. 2112.54 s [opt-env-conf-test] (False, False) ->
  20493. 2112.54 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  20494. 2112.54 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  20495. 2112.54 s [opt-env-conf-test] -- alts to always be right-leaning
  20496. 2112.54 s [opt-env-conf-test] --
  20497. 2112.54 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  20498. 2112.54 s [opt-env-conf-test] -- p
  20499. 2112.54 s [opt-env-conf-test] -- / \
  20500. 2112.54 s [opt-env-conf-test] -- p1 p2
  20501. 2112.54 s [opt-env-conf-test] -- / \
  20502. 2112.54 s [opt-env-conf-test] -- p3 p4
  20503. 2112.54 s [opt-env-conf-test] --
  20504. 2112.54 s [opt-env-conf-test] -- We need to rearrange it to
  20505. 2112.54 s [opt-env-conf-test] -- p
  20506. 2112.54 s [opt-env-conf-test] -- / \
  20507. 2112.54 s [opt-env-conf-test] -- p1 ++ p3 p4
  20508. 2112.54 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  20509. 2112.54 s [opt-env-conf-test] go (go p1' p3') p4'
  20510. 2112.54 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  20511. 2112.54 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  20512. 2112.54 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  20513. 2112.54 s [opt-env-conf-test] in go p1 p2
  20514. 2112.54 s [opt-env-conf-test] many = ParserMany Nothing
  20515. 2112.54 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  20516. 2112.54 s [opt-env-conf-test]
  20517. 2112.54 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  20518. 2112.54 s [opt-env-conf-test] @@ -269,26 +269,24 @@
  20519. 2112.54 s [opt-env-conf-test] (True, False) -> p2
  20520. 2112.54 s [opt-env-conf-test] (False, True) -> p1
  20521. 2112.54 s [opt-env-conf-test] (False, False) ->
  20522. 2112.54 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  20523. 2112.54 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  20524. 2112.54 s [opt-env-conf-test] -- alts to always be right-leaning
  20525. 2112.54 s [opt-env-conf-test] --
  20526. 2112.54 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  20527. 2112.54 s [opt-env-conf-test] -- p
  20528. 2112.54 s [opt-env-conf-test] -- / \
  20529. 2112.54 s [opt-env-conf-test] -- p1 p2
  20530. 2112.54 s [opt-env-conf-test] -- / \
  20531. 2112.54 s [opt-env-conf-test] -- p3 p4
  20532. 2112.54 s [opt-env-conf-test] --
  20533. 2112.54 s [opt-env-conf-test] -- We need to rearrange it to
  20534. 2112.54 s [opt-env-conf-test] -- p
  20535. 2112.54 s [opt-env-conf-test] -- / \
  20536. 2112.54 s [opt-env-conf-test] -- p1 ++ p3 p4
  20537. 2112.54 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  20538. 2112.54 s [opt-env-conf-test] - go (go p1' p3') p4'
  20539. 2112.54 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  20540. 2112.54 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  20541. 2112.54 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  20542. 2112.54 s [opt-env-conf-test] in go p1 p2
  20543. 2112.54 s [opt-env-conf-test] many = ParserMany Nothing
  20544. 2112.54 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  20545. 2112.54 s [opt-env-conf-test]
  20546. 2112.54 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:27-37
  20547. 2112.54 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  20548. 2112.54 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  20549. 2112.54 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20550. 2112.54 s [opt-env-conf-test] ParserSetting _ _ -> False
  20551. 2112.54 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  20552. 2112.54 s [opt-env-conf-test] + in case (isEmpty p1, False) of
  20553. 2112.54 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  20554. 2112.54 s [opt-env-conf-test] (True, False) -> p2
  20555. 2112.54 s [opt-env-conf-test] (False, True) -> p1
  20556. 2112.54 s [opt-env-conf-test]
  20557. 2112.54 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:15-25
  20558. 2112.54 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  20559. 2112.54 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  20560. 2112.54 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20561. 2112.54 s [opt-env-conf-test] ParserSetting _ _ -> False
  20562. 2112.54 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  20563. 2112.54 s [opt-env-conf-test] + in case (False, isEmpty p2) of
  20564. 2112.54 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  20565. 2112.54 s [opt-env-conf-test] (True, False) -> p2
  20566. 2112.54 s [opt-env-conf-test] (False, True) -> p1
  20567. 2112.54 s [opt-env-conf-test]
  20568. 2112.54 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:264:36-43
  20569. 2112.54 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  20570. 2112.54 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  20571. 2112.54 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  20572. 2112.54 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  20573. 2112.54 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  20574. 2112.54 s [opt-env-conf-test] + ParserCommands _ _ cs -> False
  20575. 2112.54 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20576. 2112.54 s [opt-env-conf-test] ParserSetting _ _ -> False
  20577. 2112.54 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  20578. 2112.54 s [opt-env-conf-test]
  20579. 2112.54 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:263:36-45
  20580. 2112.54 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  20581. 2112.54 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  20582. 2112.54 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  20583. 2112.54 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  20584. 2112.54 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  20585. 2112.54 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> False
  20586. 2112.54 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  20587. 2112.54 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20588. 2112.54 s [opt-env-conf-test] ParserSetting _ _ -> False
  20589. 2112.54 s [opt-env-conf-test]
  20590. 2112.54 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:262:37-46
  20591. 2112.54 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  20592. 2112.54 s [opt-env-conf-test] ParserAlt _ _ -> False
  20593. 2112.54 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  20594. 2112.54 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  20595. 2112.54 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  20596. 2112.54 s [opt-env-conf-test] + ParserAllOrNothing _ p -> False
  20597. 2112.54 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  20598. 2112.54 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  20599. 2112.54 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  20600. 2112.54 s [opt-env-conf-test]
  20601. 2112.54 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:260:29-38
  20602. 2112.54 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  20603. 2112.54 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20604. 2112.54 s [opt-env-conf-test] ParserEmpty _ -> True
  20605. 2112.54 s [opt-env-conf-test] ParserAlt _ _ -> False
  20606. 2112.54 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  20607. 2112.54 s [opt-env-conf-test] + ParserMany _ p -> False
  20608. 2112.54 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  20609. 2112.54 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  20610. 2112.54 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  20611. 2112.54 s [opt-env-conf-test]
  20612. 2112.54 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Parser.hs:258:28-32
  20613. 2112.54 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  20614. 2112.55 s [opt-env-conf-test] ParserPure _ -> False
  20615. 2112.55 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  20616. 2112.55 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20617. 2112.55 s [opt-env-conf-test] - ParserEmpty _ -> True
  20618. 2112.55 s [opt-env-conf-test] + ParserEmpty _ -> False
  20619. 2112.55 s [opt-env-conf-test] ParserAlt _ _ -> False
  20620. 2112.55 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  20621. 2112.55 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  20622. 2112.55 s [opt-env-conf-test]
  20623. 2112.55 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Parser.hs:256:29-53
  20624. 2112.55 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  20625. 2112.55 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  20626. 2112.55 s [opt-env-conf-test] isEmpty = \case
  20627. 2112.55 s [opt-env-conf-test] ParserPure _ -> False
  20628. 2112.55 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  20629. 2112.55 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf || isEmpty pa
  20630. 2112.55 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20631. 2112.55 s [opt-env-conf-test] ParserEmpty _ -> True
  20632. 2112.55 s [opt-env-conf-test] ParserAlt _ _ -> False
  20633. 2112.55 s [opt-env-conf-test]
  20634. 2112.55 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-53
  20635. 2112.55 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  20636. 2112.55 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  20637. 2112.55 s [opt-env-conf-test] isEmpty = \case
  20638. 2112.55 s [opt-env-conf-test] ParserPure _ -> False
  20639. 2112.55 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  20640. 2112.55 s [opt-env-conf-test] + ParserAp pf pa -> False
  20641. 2112.55 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20642. 2112.55 s [opt-env-conf-test] ParserEmpty _ -> True
  20643. 2112.55 s [opt-env-conf-test] ParserAlt _ _ -> False
  20644. 2112.55 s [opt-env-conf-test]
  20645. 2112.55 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:43-53
  20646. 2112.55 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  20647. 2112.55 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  20648. 2112.55 s [opt-env-conf-test] isEmpty = \case
  20649. 2112.55 s [opt-env-conf-test] ParserPure _ -> False
  20650. 2112.55 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  20651. 2112.55 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
  20652. 2112.55 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20653. 2112.55 s [opt-env-conf-test] ParserEmpty _ -> True
  20654. 2112.55 s [opt-env-conf-test] ParserAlt _ _ -> False
  20655. 2112.55 s [opt-env-conf-test]
  20656. 2112.55 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  20657. 2112.55 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  20658. 2112.55 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  20659. 2112.55 s [opt-env-conf-test] isEmpty = \case
  20660. 2112.55 s [opt-env-conf-test] ParserPure _ -> False
  20661. 2112.55 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  20662. 2112.55 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && False
  20663. 2112.55 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20664. 2112.55 s [opt-env-conf-test] ParserEmpty _ -> True
  20665. 2112.55 s [opt-env-conf-test] ParserAlt _ _ -> False
  20666. 2112.55 s [opt-env-conf-test]
  20667. 2112.55 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  20668. 2112.55 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  20669. 2112.55 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  20670. 2112.55 s [opt-env-conf-test] isEmpty = \case
  20671. 2112.55 s [opt-env-conf-test] ParserPure _ -> False
  20672. 2112.55 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  20673. 2112.55 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && True
  20674. 2112.55 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20675. 2112.55 s [opt-env-conf-test] ParserEmpty _ -> True
  20676. 2112.55 s [opt-env-conf-test] ParserAlt _ _ -> False
  20677. 2112.55 s [opt-env-conf-test]
  20678. 2112.55 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:29-39
  20679. 2112.55 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  20680. 2112.55 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  20681. 2112.55 s [opt-env-conf-test] isEmpty = \case
  20682. 2112.55 s [opt-env-conf-test] ParserPure _ -> False
  20683. 2112.55 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  20684. 2112.55 s [opt-env-conf-test] + ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
  20685. 2112.55 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20686. 2112.55 s [opt-env-conf-test] ParserEmpty _ -> True
  20687. 2112.55 s [opt-env-conf-test] ParserAlt _ _ -> False
  20688. 2112.55 s [opt-env-conf-test]
  20689. 2112.55 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  20690. 2112.55 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  20691. 2112.55 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  20692. 2112.55 s [opt-env-conf-test] isEmpty = \case
  20693. 2112.55 s [opt-env-conf-test] ParserPure _ -> False
  20694. 2112.55 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  20695. 2112.55 s [opt-env-conf-test] + ParserAp pf pa -> False && isEmpty pa
  20696. 2112.55 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20697. 2112.55 s [opt-env-conf-test] ParserEmpty _ -> True
  20698. 2112.55 s [opt-env-conf-test] ParserAlt _ _ -> False
  20699. 2112.55 s [opt-env-conf-test]
  20700. 2112.55 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  20701. 2112.55 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  20702. 2112.55 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  20703. 2112.55 s [opt-env-conf-test] isEmpty = \case
  20704. 2112.55 s [opt-env-conf-test] ParserPure _ -> False
  20705. 2112.55 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  20706. 2112.55 s [opt-env-conf-test] + ParserAp pf pa -> True && isEmpty pa
  20707. 2112.55 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  20708. 2112.55 s [opt-env-conf-test] ParserEmpty _ -> True
  20709. 2112.55 s [opt-env-conf-test] ParserAlt _ _ -> False
  20710. 2112.55 s [opt-env-conf-test]
  20711. 2112.55 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:297:39-40
  20712. 2112.55 s [opt-env-conf-test] @@ -294,7 +294,7 @@
  20713. 2112.55 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  20714. 2112.55 s [opt-env-conf-test]
  20715. 2112.55 s [opt-env-conf-test] showParserABit :: Parser a -> String
  20716. 2112.55 s [opt-env-conf-test] -showParserABit = flip (showParserPrec 0) ""
  20717. 2112.55 s [opt-env-conf-test] +showParserABit = flip (showParserPrec 1) ""
  20718. 2112.55 s [opt-env-conf-test]
  20719. 2112.55 s [opt-env-conf-test] showParserPrec :: Int -> Parser a -> ShowS
  20720. 2112.55 s [opt-env-conf-test] showParserPrec = go
  20721. 2112.55 s [opt-env-conf-test]
  20722. 2112.55 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:19-27
  20723. 2112.55 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  20724. 2112.55 s [opt-env-conf-test] . showString " "
  20725. 2112.55 s [opt-env-conf-test] . go 11 p2
  20726. 2112.55 s [opt-env-conf-test] ParserSetting mLoc p ->
  20727. 2112.55 s [opt-env-conf-test] - showParen (d > 10) $
  20728. 2112.55 s [opt-env-conf-test] + showParen True $
  20729. 2112.55 s [opt-env-conf-test] showString "Setting "
  20730. 2112.55 s [opt-env-conf-test] . showsPrec 11 mLoc
  20731. 2112.55 s [opt-env-conf-test] . showString " "
  20732. 2112.55 s [opt-env-conf-test]
  20733. 2112.55 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:20-26
  20734. 2112.55 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  20735. 2112.55 s [opt-env-conf-test] . showString " "
  20736. 2112.55 s [opt-env-conf-test] . go 11 p2
  20737. 2112.55 s [opt-env-conf-test] ParserSetting mLoc p ->
  20738. 2112.55 s [opt-env-conf-test] - showParen (d > 10) $
  20739. 2112.55 s [opt-env-conf-test] + showParen (True) $
  20740. 2112.55 s [opt-env-conf-test] showString "Setting "
  20741. 2112.55 s [opt-env-conf-test] . showsPrec 11 mLoc
  20742. 2112.55 s [opt-env-conf-test] . showString " "
  20743. 2112.55 s [opt-env-conf-test]
  20744. 2112.55 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:373:20-26
  20745. 2112.55 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  20746. 2112.55 s [opt-env-conf-test] . showString " "
  20747. 2112.55 s [opt-env-conf-test] . go 11 p2
  20748. 2112.55 s [opt-env-conf-test] ParserSetting mLoc p ->
  20749. 2112.55 s [opt-env-conf-test] - showParen (d > 10) $
  20750. 2112.55 s [opt-env-conf-test] + showParen (d >= 10) $
  20751. 2112.55 s [opt-env-conf-test] showString "Setting "
  20752. 2112.55 s [opt-env-conf-test] . showsPrec 11 mLoc
  20753. 2112.55 s [opt-env-conf-test] . showString " "
  20754. 2112.55 s [opt-env-conf-test]
  20755. 2112.55 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  20756. 2112.55 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  20757. 2112.55 s [opt-env-conf-test] . showString " "
  20758. 2112.55 s [opt-env-conf-test] . go 11 p2
  20759. 2112.55 s [opt-env-conf-test] ParserSetting mLoc p ->
  20760. 2112.55 s [opt-env-conf-test] - showParen (d > 10) $
  20761. 2112.55 s [opt-env-conf-test] + showParen (d > -10) $
  20762. 2112.55 s [opt-env-conf-test] showString "Setting "
  20763. 2112.55 s [opt-env-conf-test] . showsPrec 11 mLoc
  20764. 2112.55 s [opt-env-conf-test] . showString " "
  20765. 2112.55 s [opt-env-conf-test]
  20766. 2112.55 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  20767. 2112.55 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  20768. 2112.55 s [opt-env-conf-test] . showString " "
  20769. 2112.55 s [opt-env-conf-test] . go 11 p2
  20770. 2112.55 s [opt-env-conf-test] ParserSetting mLoc p ->
  20771. 2112.55 s [opt-env-conf-test] - showParen (d > 10) $
  20772. 2112.55 s [opt-env-conf-test] + showParen (d > 1) $
  20773. 2112.55 s [opt-env-conf-test] showString "Setting "
  20774. 2112.55 s [opt-env-conf-test] . showsPrec 11 mLoc
  20775. 2112.55 s [opt-env-conf-test] . showString " "
  20776. 2112.55 s [opt-env-conf-test]
  20777. 2112.55 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  20778. 2112.55 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  20779. 2112.55 s [opt-env-conf-test] . showString " "
  20780. 2112.55 s [opt-env-conf-test] . go 11 p2
  20781. 2112.55 s [opt-env-conf-test] ParserSetting mLoc p ->
  20782. 2112.55 s [opt-env-conf-test] - showParen (d > 10) $
  20783. 2112.55 s [opt-env-conf-test] + showParen (d > 0) $
  20784. 2112.55 s [opt-env-conf-test] showString "Setting "
  20785. 2112.55 s [opt-env-conf-test] . showsPrec 11 mLoc
  20786. 2112.55 s [opt-env-conf-test] . showString " "
  20787. 2112.55 s [opt-env-conf-test]
  20788. 2112.55 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:19-27
  20789. 2112.55 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20790. 2112.55 s [opt-env-conf-test] showCommandABit
  20791. 2112.55 s [opt-env-conf-test] cs
  20792. 2112.55 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20793. 2112.55 s [opt-env-conf-test] - showParen (d > 10) $
  20794. 2112.55 s [opt-env-conf-test] + showParen not ((d > 10)) $
  20795. 2112.55 s [opt-env-conf-test] showString "WithConfig _ "
  20796. 2112.55 s [opt-env-conf-test] . showsPrec 11 mLoc
  20797. 2112.55 s [opt-env-conf-test] . showString " "
  20798. 2112.55 s [opt-env-conf-test]
  20799. 2112.55 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  20800. 2112.55 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20801. 2112.55 s [opt-env-conf-test] showCommandABit
  20802. 2112.55 s [opt-env-conf-test] cs
  20803. 2112.55 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20804. 2112.55 s [opt-env-conf-test] - showParen (d > 10) $
  20805. 2112.55 s [opt-env-conf-test] + showParen False $
  20806. 2112.55 s [opt-env-conf-test] showString "WithConfig _ "
  20807. 2112.55 s [opt-env-conf-test] . showsPrec 11 mLoc
  20808. 2112.55 s [opt-env-conf-test] . showString " "
  20809. 2112.55 s [opt-env-conf-test]
  20810. 2112.55 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  20811. 2112.55 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20812. 2112.56 s [opt-env-conf-test] showCommandABit
  20813. 2112.56 s [opt-env-conf-test] cs
  20814. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20815. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20816. 2112.56 s [opt-env-conf-test] + showParen True $
  20817. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20818. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20819. 2112.56 s [opt-env-conf-test] . showString " "
  20820. 2112.56 s [opt-env-conf-test]
  20821. 2112.56 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:20-26
  20822. 2112.56 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20823. 2112.56 s [opt-env-conf-test] showCommandABit
  20824. 2112.56 s [opt-env-conf-test] cs
  20825. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20826. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20827. 2112.56 s [opt-env-conf-test] + showParen (not (d > 10)) $
  20828. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20829. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20830. 2112.56 s [opt-env-conf-test] . showString " "
  20831. 2112.56 s [opt-env-conf-test]
  20832. 2112.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  20833. 2112.56 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20834. 2112.56 s [opt-env-conf-test] showCommandABit
  20835. 2112.56 s [opt-env-conf-test] cs
  20836. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20837. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20838. 2112.56 s [opt-env-conf-test] + showParen (False) $
  20839. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20840. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20841. 2112.56 s [opt-env-conf-test] . showString " "
  20842. 2112.56 s [opt-env-conf-test]
  20843. 2112.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  20844. 2112.56 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20845. 2112.56 s [opt-env-conf-test] showCommandABit
  20846. 2112.56 s [opt-env-conf-test] cs
  20847. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20848. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20849. 2112.56 s [opt-env-conf-test] + showParen (True) $
  20850. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20851. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20852. 2112.56 s [opt-env-conf-test] . showString " "
  20853. 2112.56 s [opt-env-conf-test]
  20854. 2112.56 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:365:20-26
  20855. 2112.56 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20856. 2112.56 s [opt-env-conf-test] showCommandABit
  20857. 2112.56 s [opt-env-conf-test] cs
  20858. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20859. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20860. 2112.56 s [opt-env-conf-test] + showParen (d >= 10) $
  20861. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20862. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20863. 2112.56 s [opt-env-conf-test] . showString " "
  20864. 2112.56 s [opt-env-conf-test]
  20865. 2112.56 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:365:20-26
  20866. 2112.56 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20867. 2112.56 s [opt-env-conf-test] showCommandABit
  20868. 2112.56 s [opt-env-conf-test] cs
  20869. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20870. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20871. 2112.56 s [opt-env-conf-test] + showParen (d <= 10) $
  20872. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20873. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20874. 2112.56 s [opt-env-conf-test] . showString " "
  20875. 2112.56 s [opt-env-conf-test]
  20876. 2112.56 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:365:20-26
  20877. 2112.56 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20878. 2112.56 s [opt-env-conf-test] showCommandABit
  20879. 2112.56 s [opt-env-conf-test] cs
  20880. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20881. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20882. 2112.56 s [opt-env-conf-test] + showParen (d < 10) $
  20883. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20884. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20885. 2112.56 s [opt-env-conf-test] . showString " "
  20886. 2112.56 s [opt-env-conf-test]
  20887. 2112.56 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  20888. 2112.56 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20889. 2112.56 s [opt-env-conf-test] showCommandABit
  20890. 2112.56 s [opt-env-conf-test] cs
  20891. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20892. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20893. 2112.56 s [opt-env-conf-test] + showParen (d > -10) $
  20894. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20895. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20896. 2112.56 s [opt-env-conf-test] . showString " "
  20897. 2112.56 s [opt-env-conf-test]
  20898. 2112.56 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  20899. 2112.56 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20900. 2112.56 s [opt-env-conf-test] showCommandABit
  20901. 2112.56 s [opt-env-conf-test] cs
  20902. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20903. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20904. 2112.56 s [opt-env-conf-test] + showParen (d > 1) $
  20905. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20906. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20907. 2112.56 s [opt-env-conf-test] . showString " "
  20908. 2112.56 s [opt-env-conf-test]
  20909. 2112.56 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  20910. 2112.56 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  20911. 2112.56 s [opt-env-conf-test] showCommandABit
  20912. 2112.56 s [opt-env-conf-test] cs
  20913. 2112.56 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  20914. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20915. 2112.56 s [opt-env-conf-test] + showParen (d > 0) $
  20916. 2112.56 s [opt-env-conf-test] showString "WithConfig _ "
  20917. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20918. 2112.56 s [opt-env-conf-test] . showString " "
  20919. 2112.56 s [opt-env-conf-test]
  20920. 2112.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:19-27
  20921. 2112.56 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  20922. 2112.56 s [opt-env-conf-test] . showString " _ "
  20923. 2112.56 s [opt-env-conf-test] . go 11 p
  20924. 2112.56 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  20925. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20926. 2112.56 s [opt-env-conf-test] + showParen True $
  20927. 2112.56 s [opt-env-conf-test] showString "Commands "
  20928. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20929. 2112.56 s [opt-env-conf-test] . showString " "
  20930. 2112.56 s [opt-env-conf-test]
  20931. 2112.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:20-26
  20932. 2112.56 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  20933. 2112.56 s [opt-env-conf-test] . showString " _ "
  20934. 2112.56 s [opt-env-conf-test] . go 11 p
  20935. 2112.56 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  20936. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20937. 2112.56 s [opt-env-conf-test] + showParen (True) $
  20938. 2112.56 s [opt-env-conf-test] showString "Commands "
  20939. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20940. 2112.56 s [opt-env-conf-test] . showString " "
  20941. 2112.56 s [opt-env-conf-test]
  20942. 2112.56 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:355:20-26
  20943. 2112.56 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  20944. 2112.56 s [opt-env-conf-test] . showString " _ "
  20945. 2112.56 s [opt-env-conf-test] . go 11 p
  20946. 2112.56 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  20947. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20948. 2112.56 s [opt-env-conf-test] + showParen (d >= 10) $
  20949. 2112.56 s [opt-env-conf-test] showString "Commands "
  20950. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20951. 2112.56 s [opt-env-conf-test] . showString " "
  20952. 2112.56 s [opt-env-conf-test]
  20953. 2112.56 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  20954. 2112.56 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  20955. 2112.56 s [opt-env-conf-test] . showString " _ "
  20956. 2112.56 s [opt-env-conf-test] . go 11 p
  20957. 2112.56 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  20958. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20959. 2112.56 s [opt-env-conf-test] + showParen (d > -10) $
  20960. 2112.56 s [opt-env-conf-test] showString "Commands "
  20961. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20962. 2112.56 s [opt-env-conf-test] . showString " "
  20963. 2112.56 s [opt-env-conf-test]
  20964. 2112.56 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  20965. 2112.56 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  20966. 2112.56 s [opt-env-conf-test] . showString " _ "
  20967. 2112.56 s [opt-env-conf-test] . go 11 p
  20968. 2112.56 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  20969. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20970. 2112.56 s [opt-env-conf-test] + showParen (d > 1) $
  20971. 2112.56 s [opt-env-conf-test] showString "Commands "
  20972. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20973. 2112.56 s [opt-env-conf-test] . showString " "
  20974. 2112.56 s [opt-env-conf-test]
  20975. 2112.56 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  20976. 2112.56 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  20977. 2112.56 s [opt-env-conf-test] . showString " _ "
  20978. 2112.56 s [opt-env-conf-test] . go 11 p
  20979. 2112.56 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  20980. 2112.56 s [opt-env-conf-test] - showParen (d > 10) $
  20981. 2112.56 s [opt-env-conf-test] + showParen (d > 0) $
  20982. 2112.56 s [opt-env-conf-test] showString "Commands "
  20983. 2112.56 s [opt-env-conf-test] . showsPrec 11 mLoc
  20984. 2112.56 s [opt-env-conf-test] . showString " "
  20985. 2112.56 s [opt-env-conf-test]
  20986. 2112.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:19-27
  20987. 2112.56 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  20988. 2112.56 s [opt-env-conf-test] . showString " "
  20989. 2112.56 s [opt-env-conf-test] . go 11 p
  20990. 2112.57 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  20991. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  20992. 2112.57 s [opt-env-conf-test] + showParen True $
  20993. 2112.57 s [opt-env-conf-test] showString "Check "
  20994. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  20995. 2112.57 s [opt-env-conf-test] . showString " "
  20996. 2112.57 s [opt-env-conf-test]
  20997. 2112.57 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:20-26
  20998. 2112.57 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  20999. 2112.57 s [opt-env-conf-test] . showString " "
  21000. 2112.57 s [opt-env-conf-test] . go 11 p
  21001. 2112.57 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  21002. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21003. 2112.57 s [opt-env-conf-test] + showParen (True) $
  21004. 2112.57 s [opt-env-conf-test] showString "Check "
  21005. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21006. 2112.57 s [opt-env-conf-test] . showString " "
  21007. 2112.57 s [opt-env-conf-test]
  21008. 2112.57 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:345:20-26
  21009. 2112.57 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  21010. 2112.57 s [opt-env-conf-test] . showString " "
  21011. 2112.57 s [opt-env-conf-test] . go 11 p
  21012. 2112.57 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  21013. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21014. 2112.57 s [opt-env-conf-test] + showParen (d >= 10) $
  21015. 2112.57 s [opt-env-conf-test] showString "Check "
  21016. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21017. 2112.57 s [opt-env-conf-test] . showString " "
  21018. 2112.57 s [opt-env-conf-test]
  21019. 2112.57 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  21020. 2112.57 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  21021. 2112.57 s [opt-env-conf-test] . showString " "
  21022. 2112.57 s [opt-env-conf-test] . go 11 p
  21023. 2112.57 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  21024. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21025. 2112.57 s [opt-env-conf-test] + showParen (d > -10) $
  21026. 2112.57 s [opt-env-conf-test] showString "Check "
  21027. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21028. 2112.57 s [opt-env-conf-test] . showString " "
  21029. 2112.57 s [opt-env-conf-test]
  21030. 2112.57 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  21031. 2112.57 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  21032. 2112.57 s [opt-env-conf-test] . showString " "
  21033. 2112.57 s [opt-env-conf-test] . go 11 p
  21034. 2112.57 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  21035. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21036. 2112.57 s [opt-env-conf-test] + showParen (d > 1) $
  21037. 2112.57 s [opt-env-conf-test] showString "Check "
  21038. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21039. 2112.57 s [opt-env-conf-test] . showString " "
  21040. 2112.57 s [opt-env-conf-test]
  21041. 2112.57 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  21042. 2112.57 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  21043. 2112.57 s [opt-env-conf-test] . showString " "
  21044. 2112.57 s [opt-env-conf-test] . go 11 p
  21045. 2112.57 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  21046. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21047. 2112.57 s [opt-env-conf-test] + showParen (d > 0) $
  21048. 2112.57 s [opt-env-conf-test] showString "Check "
  21049. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21050. 2112.57 s [opt-env-conf-test] . showString " "
  21051. 2112.57 s [opt-env-conf-test]
  21052. 2112.57 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:19-27
  21053. 2112.57 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  21054. 2112.57 s [opt-env-conf-test] . showString " "
  21055. 2112.57 s [opt-env-conf-test] . go 11 p
  21056. 2112.57 s [opt-env-conf-test] ParserSome mLoc p ->
  21057. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21058. 2112.57 s [opt-env-conf-test] + showParen True $
  21059. 2112.57 s [opt-env-conf-test] showString "Some "
  21060. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21061. 2112.57 s [opt-env-conf-test] . showString " "
  21062. 2112.57 s [opt-env-conf-test]
  21063. 2112.57 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:20-26
  21064. 2112.57 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  21065. 2112.57 s [opt-env-conf-test] . showString " "
  21066. 2112.57 s [opt-env-conf-test] . go 11 p
  21067. 2112.57 s [opt-env-conf-test] ParserSome mLoc p ->
  21068. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21069. 2112.57 s [opt-env-conf-test] + showParen (True) $
  21070. 2112.57 s [opt-env-conf-test] showString "Some "
  21071. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21072. 2112.57 s [opt-env-conf-test] . showString " "
  21073. 2112.57 s [opt-env-conf-test]
  21074. 2112.57 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:333:20-26
  21075. 2112.57 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  21076. 2112.57 s [opt-env-conf-test] . showString " "
  21077. 2112.57 s [opt-env-conf-test] . go 11 p
  21078. 2112.57 s [opt-env-conf-test] ParserSome mLoc p ->
  21079. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21080. 2112.57 s [opt-env-conf-test] + showParen (d >= 10) $
  21081. 2112.57 s [opt-env-conf-test] showString "Some "
  21082. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21083. 2112.57 s [opt-env-conf-test] . showString " "
  21084. 2112.57 s [opt-env-conf-test]
  21085. 2112.57 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  21086. 2112.57 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  21087. 2112.57 s [opt-env-conf-test] . showString " "
  21088. 2112.57 s [opt-env-conf-test] . go 11 p
  21089. 2112.57 s [opt-env-conf-test] ParserSome mLoc p ->
  21090. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21091. 2112.57 s [opt-env-conf-test] + showParen (d > -10) $
  21092. 2112.57 s [opt-env-conf-test] showString "Some "
  21093. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21094. 2112.57 s [opt-env-conf-test] . showString " "
  21095. 2112.57 s [opt-env-conf-test]
  21096. 2112.57 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  21097. 2112.57 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  21098. 2112.57 s [opt-env-conf-test] . showString " "
  21099. 2112.57 s [opt-env-conf-test] . go 11 p
  21100. 2112.57 s [opt-env-conf-test] ParserSome mLoc p ->
  21101. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21102. 2112.57 s [opt-env-conf-test] + showParen (d > 1) $
  21103. 2112.57 s [opt-env-conf-test] showString "Some "
  21104. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21105. 2112.57 s [opt-env-conf-test] . showString " "
  21106. 2112.57 s [opt-env-conf-test]
  21107. 2112.57 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  21108. 2112.57 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  21109. 2112.57 s [opt-env-conf-test] . showString " "
  21110. 2112.57 s [opt-env-conf-test] . go 11 p
  21111. 2112.57 s [opt-env-conf-test] ParserSome mLoc p ->
  21112. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21113. 2112.57 s [opt-env-conf-test] + showParen (d > 0) $
  21114. 2112.57 s [opt-env-conf-test] showString "Some "
  21115. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21116. 2112.57 s [opt-env-conf-test] . showString " "
  21117. 2112.57 s [opt-env-conf-test]
  21118. 2112.57 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:19-27
  21119. 2112.57 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  21120. 2112.57 s [opt-env-conf-test] . showString " "
  21121. 2112.57 s [opt-env-conf-test] . go 11 p2
  21122. 2112.57 s [opt-env-conf-test] ParserMany mLoc p ->
  21123. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21124. 2112.57 s [opt-env-conf-test] + showParen True $
  21125. 2112.57 s [opt-env-conf-test] showString "Many "
  21126. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21127. 2112.57 s [opt-env-conf-test] . showString " "
  21128. 2112.57 s [opt-env-conf-test]
  21129. 2112.57 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:20-26
  21130. 2112.57 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  21131. 2112.57 s [opt-env-conf-test] . showString " "
  21132. 2112.57 s [opt-env-conf-test] . go 11 p2
  21133. 2112.57 s [opt-env-conf-test] ParserMany mLoc p ->
  21134. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21135. 2112.57 s [opt-env-conf-test] + showParen (True) $
  21136. 2112.57 s [opt-env-conf-test] showString "Many "
  21137. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21138. 2112.57 s [opt-env-conf-test] . showString " "
  21139. 2112.57 s [opt-env-conf-test]
  21140. 2112.57 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:327:20-26
  21141. 2112.57 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  21142. 2112.57 s [opt-env-conf-test] . showString " "
  21143. 2112.57 s [opt-env-conf-test] . go 11 p2
  21144. 2112.57 s [opt-env-conf-test] ParserMany mLoc p ->
  21145. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21146. 2112.57 s [opt-env-conf-test] + showParen (d >= 10) $
  21147. 2112.57 s [opt-env-conf-test] showString "Many "
  21148. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21149. 2112.57 s [opt-env-conf-test] . showString " "
  21150. 2112.57 s [opt-env-conf-test]
  21151. 2112.57 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  21152. 2112.57 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  21153. 2112.57 s [opt-env-conf-test] . showString " "
  21154. 2112.57 s [opt-env-conf-test] . go 11 p2
  21155. 2112.57 s [opt-env-conf-test] ParserMany mLoc p ->
  21156. 2112.57 s [opt-env-conf-test] - showParen (d > 10) $
  21157. 2112.57 s [opt-env-conf-test] + showParen (d > -10) $
  21158. 2112.57 s [opt-env-conf-test] showString "Many "
  21159. 2112.57 s [opt-env-conf-test] . showsPrec 11 mLoc
  21160. 2112.57 s [opt-env-conf-test] . showString " "
  21161. 2112.57 s [opt-env-conf-test]
  21162. 2112.57 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  21163. 2112.57 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  21164. 2112.57 s [opt-env-conf-test] . showString " "
  21165. 2112.57 s [opt-env-conf-test] . go 11 p2
  21166. 2112.58 s [opt-env-conf-test] ParserMany mLoc p ->
  21167. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21168. 2112.58 s [opt-env-conf-test] + showParen (d > 1) $
  21169. 2112.58 s [opt-env-conf-test] showString "Many "
  21170. 2112.58 s [opt-env-conf-test] . showsPrec 11 mLoc
  21171. 2112.58 s [opt-env-conf-test] . showString " "
  21172. 2112.58 s [opt-env-conf-test]
  21173. 2112.58 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  21174. 2112.58 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  21175. 2112.58 s [opt-env-conf-test] . showString " "
  21176. 2112.58 s [opt-env-conf-test] . go 11 p2
  21177. 2112.58 s [opt-env-conf-test] ParserMany mLoc p ->
  21178. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21179. 2112.58 s [opt-env-conf-test] + showParen (d > 0) $
  21180. 2112.58 s [opt-env-conf-test] showString "Many "
  21181. 2112.58 s [opt-env-conf-test] . showsPrec 11 mLoc
  21182. 2112.58 s [opt-env-conf-test] . showString " "
  21183. 2112.58 s [opt-env-conf-test]
  21184. 2112.58 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:19-27
  21185. 2112.58 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  21186. 2112.58 s [opt-env-conf-test] showString "Empty "
  21187. 2112.58 s [opt-env-conf-test] . showsPrec 11 mLoc
  21188. 2112.58 s [opt-env-conf-test] ParserAlt p1 p2 ->
  21189. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21190. 2112.58 s [opt-env-conf-test] + showParen True $
  21191. 2112.58 s [opt-env-conf-test] showString "Alt "
  21192. 2112.58 s [opt-env-conf-test] . go 11 p1
  21193. 2112.58 s [opt-env-conf-test] . showString " "
  21194. 2112.58 s [opt-env-conf-test]
  21195. 2112.58 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:20-26
  21196. 2112.58 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  21197. 2112.58 s [opt-env-conf-test] showString "Empty "
  21198. 2112.58 s [opt-env-conf-test] . showsPrec 11 mLoc
  21199. 2112.58 s [opt-env-conf-test] ParserAlt p1 p2 ->
  21200. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21201. 2112.58 s [opt-env-conf-test] + showParen (True) $
  21202. 2112.58 s [opt-env-conf-test] showString "Alt "
  21203. 2112.58 s [opt-env-conf-test] . go 11 p1
  21204. 2112.58 s [opt-env-conf-test] . showString " "
  21205. 2112.58 s [opt-env-conf-test]
  21206. 2112.58 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:321:20-26
  21207. 2112.58 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  21208. 2112.58 s [opt-env-conf-test] showString "Empty "
  21209. 2112.58 s [opt-env-conf-test] . showsPrec 11 mLoc
  21210. 2112.58 s [opt-env-conf-test] ParserAlt p1 p2 ->
  21211. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21212. 2112.58 s [opt-env-conf-test] + showParen (d >= 10) $
  21213. 2112.58 s [opt-env-conf-test] showString "Alt "
  21214. 2112.58 s [opt-env-conf-test] . go 11 p1
  21215. 2112.58 s [opt-env-conf-test] . showString " "
  21216. 2112.58 s [opt-env-conf-test]
  21217. 2112.58 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  21218. 2112.58 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  21219. 2112.58 s [opt-env-conf-test] showString "Empty "
  21220. 2112.58 s [opt-env-conf-test] . showsPrec 11 mLoc
  21221. 2112.58 s [opt-env-conf-test] ParserAlt p1 p2 ->
  21222. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21223. 2112.58 s [opt-env-conf-test] + showParen (d > -10) $
  21224. 2112.58 s [opt-env-conf-test] showString "Alt "
  21225. 2112.58 s [opt-env-conf-test] . go 11 p1
  21226. 2112.58 s [opt-env-conf-test] . showString " "
  21227. 2112.58 s [opt-env-conf-test]
  21228. 2112.58 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  21229. 2112.58 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  21230. 2112.58 s [opt-env-conf-test] showString "Empty "
  21231. 2112.58 s [opt-env-conf-test] . showsPrec 11 mLoc
  21232. 2112.58 s [opt-env-conf-test] ParserAlt p1 p2 ->
  21233. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21234. 2112.58 s [opt-env-conf-test] + showParen (d > 1) $
  21235. 2112.58 s [opt-env-conf-test] showString "Alt "
  21236. 2112.58 s [opt-env-conf-test] . go 11 p1
  21237. 2112.58 s [opt-env-conf-test] . showString " "
  21238. 2112.58 s [opt-env-conf-test]
  21239. 2112.58 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  21240. 2112.58 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  21241. 2112.58 s [opt-env-conf-test] showString "Empty "
  21242. 2112.58 s [opt-env-conf-test] . showsPrec 11 mLoc
  21243. 2112.58 s [opt-env-conf-test] ParserAlt p1 p2 ->
  21244. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21245. 2112.58 s [opt-env-conf-test] + showParen (d > 0) $
  21246. 2112.58 s [opt-env-conf-test] showString "Alt "
  21247. 2112.58 s [opt-env-conf-test] . go 11 p1
  21248. 2112.58 s [opt-env-conf-test] . showString " "
  21249. 2112.58 s [opt-env-conf-test]
  21250. 2112.58 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:19-27
  21251. 2112.58 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  21252. 2112.58 s [opt-env-conf-test] go d = \case
  21253. 2112.58 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21254. 2112.58 s [opt-env-conf-test] ParserAp pf pa ->
  21255. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21256. 2112.58 s [opt-env-conf-test] + showParen True $
  21257. 2112.58 s [opt-env-conf-test] showString "Ap "
  21258. 2112.58 s [opt-env-conf-test] . go 11 pf
  21259. 2112.58 s [opt-env-conf-test] . showString " "
  21260. 2112.58 s [opt-env-conf-test]
  21261. 2112.58 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:20-26
  21262. 2112.58 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  21263. 2112.58 s [opt-env-conf-test] go d = \case
  21264. 2112.58 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21265. 2112.58 s [opt-env-conf-test] ParserAp pf pa ->
  21266. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21267. 2112.58 s [opt-env-conf-test] + showParen (True) $
  21268. 2112.58 s [opt-env-conf-test] showString "Ap "
  21269. 2112.58 s [opt-env-conf-test] . go 11 pf
  21270. 2112.58 s [opt-env-conf-test] . showString " "
  21271. 2112.58 s [opt-env-conf-test]
  21272. 2112.58 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:306:20-26
  21273. 2112.58 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  21274. 2112.58 s [opt-env-conf-test] go d = \case
  21275. 2112.58 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21276. 2112.58 s [opt-env-conf-test] ParserAp pf pa ->
  21277. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21278. 2112.58 s [opt-env-conf-test] + showParen (d >= 10) $
  21279. 2112.58 s [opt-env-conf-test] showString "Ap "
  21280. 2112.58 s [opt-env-conf-test] . go 11 pf
  21281. 2112.58 s [opt-env-conf-test] . showString " "
  21282. 2112.58 s [opt-env-conf-test]
  21283. 2112.58 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  21284. 2112.58 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  21285. 2112.58 s [opt-env-conf-test] go d = \case
  21286. 2112.58 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21287. 2112.58 s [opt-env-conf-test] ParserAp pf pa ->
  21288. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21289. 2112.58 s [opt-env-conf-test] + showParen (d > -10) $
  21290. 2112.58 s [opt-env-conf-test] showString "Ap "
  21291. 2112.58 s [opt-env-conf-test] . go 11 pf
  21292. 2112.58 s [opt-env-conf-test] . showString " "
  21293. 2112.58 s [opt-env-conf-test]
  21294. 2112.58 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  21295. 2112.58 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  21296. 2112.58 s [opt-env-conf-test] go d = \case
  21297. 2112.58 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21298. 2112.58 s [opt-env-conf-test] ParserAp pf pa ->
  21299. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21300. 2112.58 s [opt-env-conf-test] + showParen (d > 1) $
  21301. 2112.58 s [opt-env-conf-test] showString "Ap "
  21302. 2112.58 s [opt-env-conf-test] . go 11 pf
  21303. 2112.58 s [opt-env-conf-test] . showString " "
  21304. 2112.58 s [opt-env-conf-test]
  21305. 2112.58 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  21306. 2112.58 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  21307. 2112.58 s [opt-env-conf-test] go d = \case
  21308. 2112.58 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21309. 2112.58 s [opt-env-conf-test] ParserAp pf pa ->
  21310. 2112.58 s [opt-env-conf-test] - showParen (d > 10) $
  21311. 2112.58 s [opt-env-conf-test] + showParen (d > 0) $
  21312. 2112.58 s [opt-env-conf-test] showString "Ap "
  21313. 2112.58 s [opt-env-conf-test] . go 11 pf
  21314. 2112.58 s [opt-env-conf-test] . showString " "
  21315. 2112.58 s [opt-env-conf-test]
  21316. 2112.58 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:33-41
  21317. 2112.58 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  21318. 2112.58 s [opt-env-conf-test] where
  21319. 2112.58 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  21320. 2112.58 s [opt-env-conf-test] go d = \case
  21321. 2112.58 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21322. 2112.58 s [opt-env-conf-test] + ParserPure _ -> showParen True $ showString "Pure _"
  21323. 2112.58 s [opt-env-conf-test] ParserAp pf pa ->
  21324. 2112.58 s [opt-env-conf-test] showParen (d > 10) $
  21325. 2112.58 s [opt-env-conf-test] showString "Ap "
  21326. 2112.58 s [opt-env-conf-test]
  21327. 2112.58 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:34-40
  21328. 2112.58 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  21329. 2112.58 s [opt-env-conf-test] where
  21330. 2112.58 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  21331. 2112.58 s [opt-env-conf-test] go d = \case
  21332. 2112.58 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21333. 2112.58 s [opt-env-conf-test] + ParserPure _ -> showParen (True) $ showString "Pure _"
  21334. 2112.58 s [opt-env-conf-test] ParserAp pf pa ->
  21335. 2112.59 s [opt-env-conf-test] showParen (d > 10) $
  21336. 2112.59 s [opt-env-conf-test] showString "Ap "
  21337. 2112.59 s [opt-env-conf-test]
  21338. 2112.59 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:304:34-40
  21339. 2112.59 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  21340. 2112.59 s [opt-env-conf-test] where
  21341. 2112.59 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  21342. 2112.59 s [opt-env-conf-test] go d = \case
  21343. 2112.59 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21344. 2112.59 s [opt-env-conf-test] + ParserPure _ -> showParen (d >= 10) $ showString "Pure _"
  21345. 2112.59 s [opt-env-conf-test] ParserAp pf pa ->
  21346. 2112.59 s [opt-env-conf-test] showParen (d > 10) $
  21347. 2112.59 s [opt-env-conf-test] showString "Ap "
  21348. 2112.59 s [opt-env-conf-test]
  21349. 2112.59 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  21350. 2112.59 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  21351. 2112.59 s [opt-env-conf-test] where
  21352. 2112.59 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  21353. 2112.59 s [opt-env-conf-test] go d = \case
  21354. 2112.59 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21355. 2112.59 s [opt-env-conf-test] + ParserPure _ -> showParen (d > -10) $ showString "Pure _"
  21356. 2112.59 s [opt-env-conf-test] ParserAp pf pa ->
  21357. 2112.59 s [opt-env-conf-test] showParen (d > 10) $
  21358. 2112.59 s [opt-env-conf-test] showString "Ap "
  21359. 2112.59 s [opt-env-conf-test]
  21360. 2112.59 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  21361. 2112.59 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  21362. 2112.59 s [opt-env-conf-test] where
  21363. 2112.59 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  21364. 2112.59 s [opt-env-conf-test] go d = \case
  21365. 2112.59 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21366. 2112.59 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 1) $ showString "Pure _"
  21367. 2112.59 s [opt-env-conf-test] ParserAp pf pa ->
  21368. 2112.59 s [opt-env-conf-test] showParen (d > 10) $
  21369. 2112.59 s [opt-env-conf-test] showString "Ap "
  21370. 2112.59 s [opt-env-conf-test]
  21371. 2112.59 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  21372. 2112.59 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  21373. 2112.59 s [opt-env-conf-test] where
  21374. 2112.59 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  21375. 2112.59 s [opt-env-conf-test] go d = \case
  21376. 2112.59 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  21377. 2112.59 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 0) $ showString "Pure _"
  21378. 2112.59 s [opt-env-conf-test] ParserAp pf pa ->
  21379. 2112.59 s [opt-env-conf-test] showParen (d > 10) $
  21380. 2112.59 s [opt-env-conf-test] showString "Ap "
  21381. 2112.59 s [opt-env-conf-test]
  21382. 2112.59 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21383. 2112.59 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21384. 2112.59 s [opt-env-conf-test] where
  21385. 2112.59 s [opt-env-conf-test] go p =
  21386. 2112.59 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21387. 2112.59 s [opt-env-conf-test] in case p of
  21388. 2112.59 s [opt-env-conf-test] ParserPure a -> ParserPure a
  21389. 2112.59 s [opt-env-conf-test] ParserAp {} -> p'
  21390. 2112.59 s [opt-env-conf-test] ParserSelect {} -> p'
  21391. 2112.59 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  21392. 2112.59 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21393. 2112.59 s [opt-env-conf-test] ParserMany {} -> p'
  21394. 2112.59 s [opt-env-conf-test] ParserSome {} -> p'
  21395. 2112.59 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  21396. 2112.59 s [opt-env-conf-test] ParserCheck {} -> p'
  21397. 2112.59 s [opt-env-conf-test] ParserCommands {} -> p'
  21398. 2112.59 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  21399. 2112.59 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21400. 2112.59 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21401. 2112.59 s [opt-env-conf-test] Just _ -> p
  21402. 2112.59 s [opt-env-conf-test]
  21403. 2112.59 s [opt-env-conf-test] -- | Try a list of parsers in order
  21404. 2112.59 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21405. 2112.59 s [opt-env-conf-test]
  21406. 2112.59 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21407. 2112.59 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21408. 2112.59 s [opt-env-conf-test] where
  21409. 2112.59 s [opt-env-conf-test] go p =
  21410. 2112.59 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21411. 2112.59 s [opt-env-conf-test] in case p of
  21412. 2112.59 s [opt-env-conf-test] ParserPure a -> ParserPure a
  21413. 2112.59 s [opt-env-conf-test] ParserAp {} -> p'
  21414. 2112.59 s [opt-env-conf-test] ParserSelect {} -> p'
  21415. 2112.59 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  21416. 2112.59 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21417. 2112.59 s [opt-env-conf-test] ParserMany {} -> p'
  21418. 2112.59 s [opt-env-conf-test] ParserSome {} -> p'
  21419. 2112.59 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  21420. 2112.59 s [opt-env-conf-test] ParserCheck {} -> p'
  21421. 2112.59 s [opt-env-conf-test] - ParserCommands {} -> p'
  21422. 2112.59 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21423. 2112.59 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21424. 2112.59 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21425. 2112.59 s [opt-env-conf-test] Just _ -> p
  21426. 2112.59 s [opt-env-conf-test]
  21427. 2112.59 s [opt-env-conf-test] -- | Try a list of parsers in order
  21428. 2112.59 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21429. 2112.59 s [opt-env-conf-test]
  21430. 2112.59 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21431. 2112.59 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21432. 2112.59 s [opt-env-conf-test] where
  21433. 2112.59 s [opt-env-conf-test] go p =
  21434. 2112.59 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21435. 2112.59 s [opt-env-conf-test] in case p of
  21436. 2112.59 s [opt-env-conf-test] ParserPure a -> ParserPure a
  21437. 2112.59 s [opt-env-conf-test] ParserAp {} -> p'
  21438. 2112.59 s [opt-env-conf-test] ParserSelect {} -> p'
  21439. 2112.59 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  21440. 2112.59 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21441. 2112.59 s [opt-env-conf-test] ParserMany {} -> p'
  21442. 2112.59 s [opt-env-conf-test] ParserSome {} -> p'
  21443. 2112.59 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  21444. 2112.59 s [opt-env-conf-test] - ParserCheck {} -> p'
  21445. 2112.59 s [opt-env-conf-test] ParserCommands {} -> p'
  21446. 2112.59 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21447. 2112.59 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21448. 2112.59 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21449. 2112.59 s [opt-env-conf-test] Just _ -> p
  21450. 2112.59 s [opt-env-conf-test]
  21451. 2112.59 s [opt-env-conf-test] -- | Try a list of parsers in order
  21452. 2112.59 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21453. 2112.59 s [opt-env-conf-test]
  21454. 2112.59 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21455. 2112.59 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21456. 2112.59 s [opt-env-conf-test] where
  21457. 2112.59 s [opt-env-conf-test] go p =
  21458. 2112.59 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21459. 2112.59 s [opt-env-conf-test] in case p of
  21460. 2112.59 s [opt-env-conf-test] ParserPure a -> ParserPure a
  21461. 2112.59 s [opt-env-conf-test] ParserAp {} -> p'
  21462. 2112.59 s [opt-env-conf-test] ParserSelect {} -> p'
  21463. 2112.59 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  21464. 2112.59 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21465. 2112.59 s [opt-env-conf-test] ParserMany {} -> p'
  21466. 2112.59 s [opt-env-conf-test] ParserSome {} -> p'
  21467. 2112.59 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  21468. 2112.59 s [opt-env-conf-test] ParserCheck {} -> p'
  21469. 2112.59 s [opt-env-conf-test] ParserCommands {} -> p'
  21470. 2112.59 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21471. 2112.59 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21472. 2112.59 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21473. 2112.59 s [opt-env-conf-test] Just _ -> p
  21474. 2112.59 s [opt-env-conf-test]
  21475. 2112.59 s [opt-env-conf-test] -- | Try a list of parsers in order
  21476. 2112.59 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21477. 2112.59 s [opt-env-conf-test]
  21478. 2112.59 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21479. 2112.59 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21480. 2112.59 s [opt-env-conf-test] where
  21481. 2112.59 s [opt-env-conf-test] go p =
  21482. 2112.59 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21483. 2112.60 s [opt-env-conf-test] in case p of
  21484. 2112.60 s [opt-env-conf-test] ParserPure a -> ParserPure a
  21485. 2112.60 s [opt-env-conf-test] ParserAp {} -> p'
  21486. 2112.60 s [opt-env-conf-test] ParserSelect {} -> p'
  21487. 2112.60 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  21488. 2112.60 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21489. 2112.60 s [opt-env-conf-test] ParserMany {} -> p'
  21490. 2112.60 s [opt-env-conf-test] - ParserSome {} -> p'
  21491. 2112.60 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  21492. 2112.60 s [opt-env-conf-test] ParserCheck {} -> p'
  21493. 2112.60 s [opt-env-conf-test] ParserCommands {} -> p'
  21494. 2112.60 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21495. 2112.60 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21496. 2112.60 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21497. 2112.60 s [opt-env-conf-test] Just _ -> p
  21498. 2112.60 s [opt-env-conf-test]
  21499. 2112.60 s [opt-env-conf-test] -- | Try a list of parsers in order
  21500. 2112.60 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21501. 2112.60 s [opt-env-conf-test]
  21502. 2112.60 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21503. 2112.60 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21504. 2112.60 s [opt-env-conf-test] where
  21505. 2112.60 s [opt-env-conf-test] go p =
  21506. 2112.60 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21507. 2112.60 s [opt-env-conf-test] in case p of
  21508. 2112.60 s [opt-env-conf-test] ParserPure a -> ParserPure a
  21509. 2112.60 s [opt-env-conf-test] ParserAp {} -> p'
  21510. 2112.60 s [opt-env-conf-test] ParserSelect {} -> p'
  21511. 2112.60 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  21512. 2112.60 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21513. 2112.60 s [opt-env-conf-test] - ParserMany {} -> p'
  21514. 2112.60 s [opt-env-conf-test] ParserSome {} -> p'
  21515. 2112.60 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  21516. 2112.60 s [opt-env-conf-test] ParserCheck {} -> p'
  21517. 2112.60 s [opt-env-conf-test] ParserCommands {} -> p'
  21518. 2112.60 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21519. 2112.60 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21520. 2112.60 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21521. 2112.60 s [opt-env-conf-test] Just _ -> p
  21522. 2112.60 s [opt-env-conf-test]
  21523. 2112.60 s [opt-env-conf-test] -- | Try a list of parsers in order
  21524. 2112.60 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21525. 2112.60 s [opt-env-conf-test]
  21526. 2112.60 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21527. 2112.60 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21528. 2112.60 s [opt-env-conf-test] where
  21529. 2112.60 s [opt-env-conf-test] go p =
  21530. 2112.60 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21531. 2112.60 s [opt-env-conf-test] in case p of
  21532. 2112.60 s [opt-env-conf-test] ParserPure a -> ParserPure a
  21533. 2112.60 s [opt-env-conf-test] ParserAp {} -> p'
  21534. 2112.60 s [opt-env-conf-test] ParserSelect {} -> p'
  21535. 2112.60 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  21536. 2112.60 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21537. 2112.60 s [opt-env-conf-test] ParserMany {} -> p'
  21538. 2112.60 s [opt-env-conf-test] ParserSome {} -> p'
  21539. 2112.60 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  21540. 2112.60 s [opt-env-conf-test] ParserCheck {} -> p'
  21541. 2112.60 s [opt-env-conf-test] ParserCommands {} -> p'
  21542. 2112.60 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21543. 2112.60 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21544. 2112.60 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21545. 2112.60 s [opt-env-conf-test] Just _ -> p
  21546. 2112.60 s [opt-env-conf-test]
  21547. 2112.60 s [opt-env-conf-test] -- | Try a list of parsers in order
  21548. 2112.60 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21549. 2112.60 s [opt-env-conf-test]
  21550. 2112.60 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21551. 2112.60 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21552. 2112.60 s [opt-env-conf-test] where
  21553. 2112.60 s [opt-env-conf-test] go p =
  21554. 2112.60 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21555. 2112.60 s [opt-env-conf-test] in case p of
  21556. 2112.60 s [opt-env-conf-test] ParserPure a -> ParserPure a
  21557. 2112.60 s [opt-env-conf-test] ParserAp {} -> p'
  21558. 2112.60 s [opt-env-conf-test] - ParserSelect {} -> p'
  21559. 2112.60 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  21560. 2112.60 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21561. 2112.60 s [opt-env-conf-test] ParserMany {} -> p'
  21562. 2112.60 s [opt-env-conf-test] ParserSome {} -> p'
  21563. 2112.60 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  21564. 2112.60 s [opt-env-conf-test] ParserCheck {} -> p'
  21565. 2112.60 s [opt-env-conf-test] ParserCommands {} -> p'
  21566. 2112.60 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21567. 2112.60 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21568. 2112.60 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21569. 2112.60 s [opt-env-conf-test] Just _ -> p
  21570. 2112.60 s [opt-env-conf-test]
  21571. 2112.60 s [opt-env-conf-test] -- | Try a list of parsers in order
  21572. 2112.60 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21573. 2112.60 s [opt-env-conf-test]
  21574. 2112.60 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21575. 2112.60 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21576. 2112.60 s [opt-env-conf-test] where
  21577. 2112.60 s [opt-env-conf-test] go p =
  21578. 2112.60 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21579. 2112.60 s [opt-env-conf-test] in case p of
  21580. 2112.60 s [opt-env-conf-test] ParserPure a -> ParserPure a
  21581. 2112.60 s [opt-env-conf-test] - ParserAp {} -> p'
  21582. 2112.60 s [opt-env-conf-test] ParserSelect {} -> p'
  21583. 2112.60 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  21584. 2112.60 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21585. 2112.60 s [opt-env-conf-test] ParserMany {} -> p'
  21586. 2112.60 s [opt-env-conf-test] ParserSome {} -> p'
  21587. 2112.60 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  21588. 2112.60 s [opt-env-conf-test] ParserCheck {} -> p'
  21589. 2112.60 s [opt-env-conf-test] ParserCommands {} -> p'
  21590. 2112.60 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21591. 2112.60 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21592. 2112.60 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21593. 2112.60 s [opt-env-conf-test] Just _ -> p
  21594. 2112.60 s [opt-env-conf-test]
  21595. 2112.60 s [opt-env-conf-test] -- | Try a list of parsers in order
  21596. 2112.60 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21597. 2112.60 s [opt-env-conf-test]
  21598. 2112.60 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  21599. 2112.60 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  21600. 2112.60 s [opt-env-conf-test] where
  21601. 2112.60 s [opt-env-conf-test] go p =
  21602. 2112.60 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  21603. 2112.60 s [opt-env-conf-test] in case p of
  21604. 2112.60 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  21605. 2112.60 s [opt-env-conf-test] ParserAp {} -> p'
  21606. 2112.60 s [opt-env-conf-test] ParserSelect {} -> p'
  21607. 2112.60 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  21608. 2112.60 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  21609. 2112.60 s [opt-env-conf-test] ParserMany {} -> p'
  21610. 2112.60 s [opt-env-conf-test] ParserSome {} -> p'
  21611. 2112.60 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  21612. 2112.60 s [opt-env-conf-test] ParserCheck {} -> p'
  21613. 2112.60 s [opt-env-conf-test] ParserCommands {} -> p'
  21614. 2112.60 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21615. 2112.60 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21616. 2112.60 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21617. 2112.60 s [opt-env-conf-test] Just _ -> p
  21618. 2112.60 s [opt-env-conf-test]
  21619. 2112.60 s [opt-env-conf-test] -- | Try a list of parsers in order
  21620. 2112.60 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21621. 2112.60 s [opt-env-conf-test]
  21622. 2112.60 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
  21623. 2112.60 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  21624. 2112.60 s [opt-env-conf-test] ParserCheck {} -> p'
  21625. 2112.60 s [opt-env-conf-test] ParserCommands {} -> p'
  21626. 2112.60 s [opt-env-conf-test] ParserWithConfig {} -> p'
  21627. 2112.60 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  21628. 2112.60 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  21629. 2112.60 s [opt-env-conf-test] - Just _ -> p
  21630. 2112.60 s [opt-env-conf-test]
  21631. 2112.60 s [opt-env-conf-test] -- | Try a list of parsers in order
  21632. 2112.60 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  21633. 2112.60 s [opt-env-conf-test]
  21634. 2112.60 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
  21635. 2112.60 s [opt-env-conf-test] @@ -599,9 +599,8 @@
  21636. 2112.60 s [opt-env-conf-test] checkMapMaybe func p =
  21637. 2112.60 s [opt-env-conf-test] withFrozenCallStack $
  21638. 2112.60 s [opt-env-conf-test] checkMapEither
  21639. 2112.60 s [opt-env-conf-test] ( \a -> case func a of
  21640. 2112.60 s [opt-env-conf-test] Nothing -> Left "checkMapMaybe failed without a helpful error message"
  21641. 2112.60 s [opt-env-conf-test] - Just b -> Right b
  21642. 2112.60 s [opt-env-conf-test] )
  21643. 2112.60 s [opt-env-conf-test] p
  21644. 2112.60 s [opt-env-conf-test]
  21645. 2112.60 s [opt-env-conf-test]
  21646. 2112.60 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completion.hs:453:24-40
  21647. 2112.60 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  21648. 2112.60 s [opt-env-conf-test] put as'
  21649. 2112.60 s [opt-env-conf-test] pure $ Just []
  21650. 2112.60 s [opt-env-conf-test] else do
  21651. 2112.60 s [opt-env-conf-test] - if settingTryOption
  21652. 2112.60 s [opt-env-conf-test] + if True
  21653. 2112.60 s [opt-env-conf-test] then do
  21654. 2112.60 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  21655. 2112.60 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  21656. 2112.60 s [opt-env-conf-test]
  21657. 2112.60 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
  21658. 2112.60 s [opt-env-conf-test] @@ -432,11 +432,10 @@
  21659. 2112.60 s [opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
  21660. 2112.60 s [opt-env-conf-test] -- fallback matched. In both cases, offer the
  21661. 2112.60 s [opt-env-conf-test] -- completer if we are at the end.
  21662. 2112.60 s [opt-env-conf-test] case possibilities of
  21663. 2112.60 s [opt-env-conf-test] - [] -> completeWithCompleterAtEnd
  21664. 2112.60 s [opt-env-conf-test] (_, as') : _ -> do
  21665. 2112.60 s [opt-env-conf-test] put as'
  21666. 2112.60 s [opt-env-conf-test] completeWithCompleterAtEnd
  21667. 2112.60 s [opt-env-conf-test] else
  21668. 2112.60 s [opt-env-conf-test] if isJust settingSwitchValue
  21669. 2112.60 s [opt-env-conf-test] then do
  21670. 2112.60 s [opt-env-conf-test]
  21671. 2112.60 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Completion.hs:437:39-51
  21672. 2112.60 s [opt-env-conf-test] @@ -434,9 +434,8 @@
  21673. 2112.60 s [opt-env-conf-test] -- completer if we are at the end.
  21674. 2112.60 s [opt-env-conf-test] case possibilities of
  21675. 2112.60 s [opt-env-conf-test] [] -> completeWithCompleterAtEnd
  21676. 2112.60 s [opt-env-conf-test] (_, as') : _ -> do
  21677. 2112.60 s [opt-env-conf-test] - put as'
  21678. 2112.60 s [opt-env-conf-test] completeWithCompleterAtEnd
  21679. 2112.60 s [opt-env-conf-test] else
  21680. 2112.60 s [opt-env-conf-test] if isJust settingSwitchValue
  21681. 2112.60 s [opt-env-conf-test] then do
  21682. 2112.60 s [opt-env-conf-test]
  21683. 2112.60 s [opt-env-conf-test] MaybeOp at src/OptEnvConf/Completion.hs:398:70-77
  21684. 2112.60 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  21685. 2112.60 s [opt-env-conf-test] pure Completion {..}
  21686. 2112.60 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  21687. 2112.60 s [opt-env-conf-test] as <- get
  21688. 2112.60 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  21689. 2112.60 s [opt-env-conf-test] + if argsAtEnd as then completeWithCompleter else pure $ Nothing
  21690. 2112.60 s [opt-env-conf-test] let completeWithDasheds = do
  21691. 2112.60 s [opt-env-conf-test] let isLong = \case
  21692. 2112.60 s [opt-env-conf-test] DashedLong _ -> True
  21693. 2112.60 s [opt-env-conf-test]
  21694. 2112.60 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Completion.hs:254:20-23
  21695. 2112.60 s [opt-env-conf-test] @@ -251,9 +251,8 @@
  21696. 2112.60 s [opt-env-conf-test] before <- get
  21697. 2112.60 s [opt-env-conf-test] mA <- func
  21698. 2112.60 s [opt-env-conf-test] case mA of
  21699. 2112.60 s [opt-env-conf-test] Nothing -> do
  21700. 2112.60 s [opt-env-conf-test] - put before
  21701. 2112.60 s [opt-env-conf-test] pure Nothing
  21702. 2112.60 s [opt-env-conf-test] Just a -> pure (Just a)
  21703. 2112.60 s [opt-env-conf-test]
  21704. 2112.60 s [opt-env-conf-test] -- Completions for many/some: try the parser repeatedly.
  21705. 2112.60 s [opt-env-conf-test]
  21706. 2112.60 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:440:44-42
  21707. 2112.60 s [opt-env-conf-test] @@ -437,21 +437,20 @@
  21708. 2112.60 s [opt-env-conf-test] Just (a, _) -> do
  21709. 2112.60 s [opt-env-conf-test] debug ["set to default value"]
  21710. 2112.60 s [opt-env-conf-test] pure a -- Don't mark as parsed
  21711. 2112.60 s [opt-env-conf-test] Nothing -> do
  21712. 2112.60 s [opt-env-conf-test] let parseResultError e res = case res of
  21713. 2112.60 s [opt-env-conf-test] NotRun -> Nothing
  21714. 2112.61 s [opt-env-conf-test] NotFound -> Just e
  21715. 2112.61 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  21716. 2112.61 s [opt-env-conf-test] - debug ["not found"]
  21717. 2112.61 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  21718. 2112.61 s [opt-env-conf-test] NE.nonEmpty $
  21719. 2112.61 s [opt-env-conf-test] catMaybes
  21720. 2112.61 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  21721. 2112.61 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  21722. 2112.61 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  21723. 2112.61 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  21724. 2112.61 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  21725. 2112.61 s [opt-env-conf-test] ]
  21726. 2112.61 s [opt-env-conf-test]
  21727. 2112.61 s [opt-env-conf-test] withCapabilities ::
  21728. 2112.61 s [opt-env-conf-test] Maybe SrcLoc ->
  21729. 2112.61 s [opt-env-conf-test]
  21730. 2112.61 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  21731. 2112.61 s [opt-env-conf-test] @@ -438,10 +438,9 @@
  21732. 2112.61 s [opt-env-conf-test] debug ["set to default value"]
  21733. 2112.61 s [opt-env-conf-test] pure a -- Don't mark as parsed
  21734. 2112.61 s [opt-env-conf-test] Nothing -> do
  21735. 2112.61 s [opt-env-conf-test] let parseResultError e res = case res of
  21736. 2112.61 s [opt-env-conf-test] NotRun -> Nothing
  21737. 2112.61 s [opt-env-conf-test] NotFound -> Just e
  21738. 2112.61 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  21739. 2112.61 s [opt-env-conf-test] debug ["not found"]
  21740. 2112.61 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  21741. 2112.61 s [opt-env-conf-test] NE.nonEmpty $
  21742. 2112.61 s [opt-env-conf-test]
  21743. 2112.61 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  21744. 2112.61 s [opt-env-conf-test] @@ -393,30 +393,29 @@
  21745. 2112.61 s [opt-env-conf-test] case mO' of
  21746. 2112.61 s [opt-env-conf-test] Nothing -> pure Nothing
  21747. 2112.61 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  21748. 2112.61 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  21749. 2112.61 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  21750. 2112.61 s [opt-env-conf-test] Right mV -> case mV of
  21751. 2112.61 s [opt-env-conf-test] Nothing -> do
  21752. 2112.61 s [opt-env-conf-test] debug
  21753. 2112.61 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  21754. 2112.61 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  21755. 2112.61 s [opt-env-conf-test] ]
  21756. 2112.61 s [opt-env-conf-test] pure Nothing
  21757. 2112.61 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  21758. 2112.61 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  21759. 2112.61 s [opt-env-conf-test] Right mA -> case mA of
  21760. 2112.61 s [opt-env-conf-test] Nothing -> do
  21761. 2112.61 s [opt-env-conf-test] debug
  21762. 2112.61 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  21763. 2112.61 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  21764. 2112.61 s [opt-env-conf-test] ]
  21765. 2112.61 s [opt-env-conf-test] pure Nothing
  21766. 2112.61 s [opt-env-conf-test] Just a -> do
  21767. 2112.61 s [opt-env-conf-test] debug
  21768. 2112.61 s [opt-env-conf-test] [ "set based on config value: ",
  21769. 2112.61 s [opt-env-conf-test] chunk $ T.pack $ show v
  21770. 2112.61 s [opt-env-conf-test] ]
  21771. 2112.61 s [opt-env-conf-test] pure $ Just a
  21772. 2112.61 s [opt-env-conf-test] let toRes = \case
  21773. 2112.61 s [opt-env-conf-test] Nothing -> NotFound
  21774. 2112.61 s [opt-env-conf-test] Just a -> Found a
  21775. 2112.61 s [opt-env-conf-test]
  21776. 2112.61 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  21777. 2112.61 s [opt-env-conf-test] @@ -402,21 +402,20 @@
  21778. 2112.61 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  21779. 2112.61 s [opt-env-conf-test] ]
  21780. 2112.61 s [opt-env-conf-test] pure Nothing
  21781. 2112.61 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  21782. 2112.61 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  21783. 2112.61 s [opt-env-conf-test] Right mA -> case mA of
  21784. 2112.61 s [opt-env-conf-test] Nothing -> do
  21785. 2112.61 s [opt-env-conf-test] debug
  21786. 2112.61 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  21787. 2112.61 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  21788. 2112.61 s [opt-env-conf-test] ]
  21789. 2112.61 s [opt-env-conf-test] pure Nothing
  21790. 2112.61 s [opt-env-conf-test] Just a -> do
  21791. 2112.61 s [opt-env-conf-test] debug
  21792. 2112.61 s [opt-env-conf-test] [ "set based on config value: ",
  21793. 2112.61 s [opt-env-conf-test] chunk $ T.pack $ show v
  21794. 2112.61 s [opt-env-conf-test] ]
  21795. 2112.61 s [opt-env-conf-test] pure $ Just a
  21796. 2112.61 s [opt-env-conf-test] let toRes = \case
  21797. 2112.61 s [opt-env-conf-test] Nothing -> NotFound
  21798. 2112.61 s [opt-env-conf-test] Just a -> Found a
  21799. 2112.61 s [opt-env-conf-test]
  21800. 2112.61 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  21801. 2112.61 s [opt-env-conf-test] @@ -390,9 +390,8 @@
  21802. 2112.61 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  21803. 2112.61 s [opt-env-conf-test] Just neRest -> do
  21804. 2112.61 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  21805. 2112.61 s [opt-env-conf-test] case mO' of
  21806. 2112.61 s [opt-env-conf-test] - Nothing -> pure Nothing
  21807. 2112.61 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  21808. 2112.61 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  21809. 2112.61 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  21810. 2112.61 s [opt-env-conf-test] Right mV -> case mV of
  21811. 2112.61 s [opt-env-conf-test]
  21812. 2112.61 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:224:38-20
  21813. 2112.61 s [opt-env-conf-test] @@ -221,15 +221,14 @@
  21814. 2112.61 s [opt-env-conf-test] Just c -> do
  21815. 2112.61 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  21816. 2112.61 s [opt-env-conf-test] go $ commandParser c
  21817. 2112.61 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  21818. 2112.61 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  21819. 2112.61 s [opt-env-conf-test] ppIndent $ do
  21820. 2112.61 s [opt-env-conf-test] debug ["loading config"]
  21821. 2112.61 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  21822. 2112.61 s [opt-env-conf-test] debug ["with loaded config"]
  21823. 2112.61 s [opt-env-conf-test] ppIndent $
  21824. 2112.61 s [opt-env-conf-test] local (\e -> e {ppEnvConf = mNewConfig}) $
  21825. 2112.61 s [opt-env-conf-test] go pa
  21826. 2112.61 s [opt-env-conf-test] ParserSetting mLoc set@Setting {..} -> do
  21827. 2112.61 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  21828. 2112.61 s [opt-env-conf-test] when (not (Set.null settingRequiredCapabilities)) $
  21829. 2112.61 s [opt-env-conf-test]
  21830. 2112.61 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:221:27-39
  21831. 2112.61 s [opt-env-conf-test] @@ -218,9 +218,8 @@
  21832. 2112.61 s [opt-env-conf-test] Just s -> do
  21833. 2112.61 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  21834. 2112.61 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  21835. 2112.61 s [opt-env-conf-test] Just c -> do
  21836. 2112.61 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  21837. 2112.61 s [opt-env-conf-test] go $ commandParser c
  21838. 2112.61 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  21839. 2112.61 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  21840. 2112.61 s [opt-env-conf-test] ppIndent $ do
  21841. 2112.61 s [opt-env-conf-test]
  21842. 2112.61 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:215:28-40
  21843. 2112.61 s [opt-env-conf-test] @@ -212,9 +212,8 @@
  21844. 2112.61 s [opt-env-conf-test] find ((== d) . commandArg) cs
  21845. 2112.61 s [opt-env-conf-test] case mDefaultCommand of
  21846. 2112.61 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  21847. 2112.61 s [opt-env-conf-test] Just dc -> do
  21848. 2112.61 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  21849. 2112.61 s [opt-env-conf-test] go $ commandParser dc
  21850. 2112.61 s [opt-env-conf-test] Just s -> do
  21851. 2112.61 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  21852. 2112.61 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  21853. 2112.61 s [opt-env-conf-test]
  21854. 2112.61 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:195:29-70
  21855. 2112.61 s [opt-env-conf-test] @@ -192,9 +192,8 @@
  21856. 2112.61 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  21857. 2112.61 s [opt-env-conf-test] errOrB <- liftIO $ f a
  21858. 2112.61 s [opt-env-conf-test] case errOrB of
  21859. 2112.61 s [opt-env-conf-test] Left err -> do
  21860. 2112.61 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  21861. 2112.61 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  21862. 2112.61 s [opt-env-conf-test] Right b -> do
  21863. 2112.61 s [opt-env-conf-test] debug ["succeeded"]
  21864. 2112.61 s [opt-env-conf-test] pure b
  21865. 2112.61 s [opt-env-conf-test]
  21866. 2112.61 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:197:56-66
  21867. 2112.61 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  21868. 2112.61 s [opt-env-conf-test] case errOrB of
  21869. 2112.61 s [opt-env-conf-test] Left err -> do
  21870. 2112.61 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  21871. 2112.61 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  21872. 2112.61 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed False err
  21873. 2112.61 s [opt-env-conf-test] Right b -> do
  21874. 2112.61 s [opt-env-conf-test] debug ["succeeded"]
  21875. 2112.61 s [opt-env-conf-test] pure b
  21876. 2112.61 s [opt-env-conf-test]
  21877. 2112.61 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  21878. 2112.61 s [opt-env-conf-test] @@ -193,7 +193,6 @@
  21879. 2112.61 s [opt-env-conf-test] errOrB <- liftIO $ f a
  21880. 2112.61 s [opt-env-conf-test] case errOrB of
  21881. 2112.61 s [opt-env-conf-test] Left err -> do
  21882. 2112.61 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  21883. 2112.61 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  21884. 2112.61 s [opt-env-conf-test] Right b -> do
  21885. 2112.61 s [opt-env-conf-test] debug ["succeeded"]
  21886. 2112.61 s [opt-env-conf-test]
  21887. 2112.61 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  21888. 2112.61 s [opt-env-conf-test] @@ -193,7 +193,6 @@
  21889. 2112.61 s [opt-env-conf-test] errOrB <- liftIO $ f a
  21890. 2112.61 s [opt-env-conf-test] case errOrB of
  21891. 2112.61 s [opt-env-conf-test] Left err -> do
  21892. 2112.61 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  21893. 2112.61 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  21894. 2112.61 s [opt-env-conf-test] Right b -> do
  21895. 2112.61 s [opt-env-conf-test] debug ["succeeded"]
  21896. 2112.61 s [opt-env-conf-test]
  21897. 2112.61 s [opt-env-conf-test] Negate at src/OptEnvConf/Run.hs:196:72-82
  21898. 2112.61 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  21899. 2112.61 s [opt-env-conf-test] errOrB <- liftIO $ f a
  21900. 2112.61 s [opt-env-conf-test] case errOrB of
  21901. 2112.61 s [opt-env-conf-test] Left err -> do
  21902. 2112.61 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  21903. 2112.61 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
  21904. 2112.61 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  21905. 2112.61 s [opt-env-conf-test] Right b -> do
  21906. 2112.61 s [opt-env-conf-test] debug ["succeeded"]
  21907. 2112.61 s [opt-env-conf-test]
  21908. 2112.61 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:196:72-82
  21909. 2112.61 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  21910. 2112.61 s [opt-env-conf-test] errOrB <- liftIO $ f a
  21911. 2112.61 s [opt-env-conf-test] case errOrB of
  21912. 2112.61 s [opt-env-conf-test] Left err -> do
  21913. 2112.61 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  21914. 2112.62 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show True]
  21915. 2112.62 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  21916. 2112.62 s [opt-env-conf-test] Right b -> do
  21917. 2112.62 s [opt-env-conf-test] debug ["succeeded"]
  21918. 2112.62 s [opt-env-conf-test]
  21919. 2112.62 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:150:37-112
  21920. 2112.62 s [opt-env-conf-test] @@ -147,34 +147,33 @@
  21921. 2112.62 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  21922. 2112.62 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  21923. 2112.62 s [opt-env-conf-test] pure (a :| as)
  21924. 2112.62 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  21925. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  21926. 2112.62 s [opt-env-conf-test] ppIndent $ do
  21927. 2112.62 s [opt-env-conf-test] e <- ask
  21928. 2112.62 s [opt-env-conf-test] s <- get
  21929. 2112.62 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  21930. 2112.62 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  21931. 2112.62 s [opt-env-conf-test] put s'
  21932. 2112.62 s [opt-env-conf-test] case result of
  21933. 2112.62 s [opt-env-conf-test] Success a -> pure a
  21934. 2112.62 s [opt-env-conf-test] Failure errs -> do
  21935. 2112.62 s [opt-env-conf-test] if not $ all errorIsForgivable errs
  21936. 2112.62 s [opt-env-conf-test] then ppErrors' errs
  21937. 2112.62 s [opt-env-conf-test] else do
  21938. 2112.62 s [opt-env-conf-test] -- Settings available below
  21939. 2112.62 s [opt-env-conf-test] let settingsMap = parserSettingsMap p'
  21940. 2112.62 s [opt-env-conf-test] -- Settings that have been parsed
  21941. 2112.62 s [opt-env-conf-test] parsedMap <- gets ppStateParsedSettings
  21942. 2112.62 s [opt-env-conf-test] -- Settings that have been parsed below
  21943. 2112.62 s [opt-env-conf-test] let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  21944. 2112.62 s [opt-env-conf-test] -- If any settings have been parsed below, and parsing still failed
  21945. 2112.62 s [opt-env-conf-test] -- (this is the case because we're in the failure branch)
  21946. 2112.62 s [opt-env-conf-test] -- with only forgivable errors
  21947. 2112.62 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  21948. 2112.62 s [opt-env-conf-test] -- then this should be an unforgivable error.
  21949. 2112.62 s [opt-env-conf-test] if null parsedSettingsMap
  21950. 2112.62 s [opt-env-conf-test] then ppErrors' errs
  21951. 2112.62 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  21952. 2112.62 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  21953. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  21954. 2112.62 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  21955. 2112.62 s [opt-env-conf-test]
  21956. 2112.62 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:18-50
  21957. 2112.62 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  21958. 2112.62 s [opt-env-conf-test] case result of
  21959. 2112.62 s [opt-env-conf-test] Success a -> pure a
  21960. 2112.62 s [opt-env-conf-test] Failure errs -> do
  21961. 2112.62 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  21962. 2112.62 s [opt-env-conf-test] + if False
  21963. 2112.62 s [opt-env-conf-test] then ppErrors' errs
  21964. 2112.62 s [opt-env-conf-test] else do
  21965. 2112.62 s [opt-env-conf-test] -- Settings available below
  21966. 2112.62 s [opt-env-conf-test]
  21967. 2112.62 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:24-50
  21968. 2112.62 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  21969. 2112.62 s [opt-env-conf-test] case result of
  21970. 2112.62 s [opt-env-conf-test] Success a -> pure a
  21971. 2112.62 s [opt-env-conf-test] Failure errs -> do
  21972. 2112.62 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  21973. 2112.62 s [opt-env-conf-test] + if not $ True
  21974. 2112.62 s [opt-env-conf-test] then ppErrors' errs
  21975. 2112.62 s [opt-env-conf-test] else do
  21976. 2112.62 s [opt-env-conf-test] -- Settings available below
  21977. 2112.62 s [opt-env-conf-test]
  21978. 2112.62 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:143:29-25
  21979. 2112.62 s [opt-env-conf-test] @@ -140,13 +140,12 @@
  21980. 2112.62 s [opt-env-conf-test] Just a -> do
  21981. 2112.62 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  21982. 2112.62 s [opt-env-conf-test] pure (a : as)
  21983. 2112.62 s [opt-env-conf-test] ParserSome mLoc p' -> do
  21984. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  21985. 2112.62 s [opt-env-conf-test] ppIndent $ do
  21986. 2112.62 s [opt-env-conf-test] a <- go p'
  21987. 2112.62 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  21988. 2112.62 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  21989. 2112.62 s [opt-env-conf-test] pure (a :| as)
  21990. 2112.62 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  21991. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  21992. 2112.62 s [opt-env-conf-test] ppIndent $ do
  21993. 2112.62 s [opt-env-conf-test]
  21994. 2112.62 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:134:29-28
  21995. 2112.62 s [opt-env-conf-test] @@ -131,15 +131,14 @@
  21996. 2112.62 s [opt-env-conf-test] Nothing -> do
  21997. 2112.62 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  21998. 2112.62 s [opt-env-conf-test] ppIndent $ go p2
  21999. 2112.62 s [opt-env-conf-test] ParserMany mLoc p' -> do
  22000. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  22001. 2112.62 s [opt-env-conf-test] ppIndent $ do
  22002. 2112.62 s [opt-env-conf-test] eor <- tryPP $ go p'
  22003. 2112.62 s [opt-env-conf-test] case eor of
  22004. 2112.62 s [opt-env-conf-test] Nothing -> pure []
  22005. 2112.62 s [opt-env-conf-test] Just a -> do
  22006. 2112.62 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  22007. 2112.62 s [opt-env-conf-test] pure (a : as)
  22008. 2112.62 s [opt-env-conf-test] ParserSome mLoc p' -> do
  22009. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  22010. 2112.62 s [opt-env-conf-test] ppIndent $ do
  22011. 2112.62 s [opt-env-conf-test]
  22012. 2112.62 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  22013. 2112.62 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  22014. 2112.62 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  22015. 2112.62 s [opt-env-conf-test] ppIndent $ go p2
  22016. 2112.62 s [opt-env-conf-test] ParserMany mLoc p' -> do
  22017. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  22018. 2112.62 s [opt-env-conf-test] ppIndent $ do
  22019. 2112.62 s [opt-env-conf-test] eor <- tryPP $ go p'
  22020. 2112.62 s [opt-env-conf-test] case eor of
  22021. 2112.62 s [opt-env-conf-test]
  22022. 2112.62 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  22023. 2112.62 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  22024. 2112.62 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  22025. 2112.62 s [opt-env-conf-test] ppIndent $ go p2
  22026. 2112.62 s [opt-env-conf-test] ParserMany mLoc p' -> do
  22027. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  22028. 2112.62 s [opt-env-conf-test] ppIndent $ do
  22029. 2112.62 s [opt-env-conf-test] eor <- tryPP $ go p'
  22030. 2112.62 s [opt-env-conf-test] case eor of
  22031. 2112.62 s [opt-env-conf-test]
  22032. 2112.62 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  22033. 2112.62 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  22034. 2112.62 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  22035. 2112.62 s [opt-env-conf-test] ppIndent $ go p2
  22036. 2112.62 s [opt-env-conf-test] ParserMany mLoc p' -> do
  22037. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  22038. 2112.62 s [opt-env-conf-test] ppIndent $ do
  22039. 2112.62 s [opt-env-conf-test] eor <- tryPP $ go p'
  22040. 2112.62 s [opt-env-conf-test] case eor of
  22041. 2112.62 s [opt-env-conf-test]
  22042. 2112.62 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:122:26-31
  22043. 2112.62 s [opt-env-conf-test] @@ -119,18 +119,17 @@
  22044. 2112.62 s [opt-env-conf-test] ParserSelect fe ff -> do
  22045. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  22046. 2112.62 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  22047. 2112.62 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  22048. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  22049. 2112.62 s [opt-env-conf-test] ppIndent $ do
  22050. 2112.62 s [opt-env-conf-test] debug ["Trying left side."]
  22051. 2112.62 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  22052. 2112.62 s [opt-env-conf-test] case eor of
  22053. 2112.62 s [opt-env-conf-test] Just a -> do
  22054. 2112.62 s [opt-env-conf-test] debug ["Left side succeeded."]
  22055. 2112.62 s [opt-env-conf-test] pure a
  22056. 2112.62 s [opt-env-conf-test] Nothing -> do
  22057. 2112.62 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  22058. 2112.62 s [opt-env-conf-test] ppIndent $ go p2
  22059. 2112.62 s [opt-env-conf-test] ParserMany mLoc p' -> do
  22060. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  22061. 2112.62 s [opt-env-conf-test] ppIndent $ do
  22062. 2112.62 s [opt-env-conf-test]
  22063. 2112.62 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:131:24-31
  22064. 2112.62 s [opt-env-conf-test] @@ -128,9 +128,8 @@
  22065. 2112.62 s [opt-env-conf-test] Just a -> do
  22066. 2112.62 s [opt-env-conf-test] debug ["Left side succeeded."]
  22067. 2112.62 s [opt-env-conf-test] pure a
  22068. 2112.62 s [opt-env-conf-test] Nothing -> do
  22069. 2112.62 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  22070. 2112.62 s [opt-env-conf-test] ppIndent $ go p2
  22071. 2112.62 s [opt-env-conf-test] ParserMany mLoc p' -> do
  22072. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  22073. 2112.62 s [opt-env-conf-test] ppIndent $ do
  22074. 2112.62 s [opt-env-conf-test]
  22075. 2112.62 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:119:29-42
  22076. 2112.62 s [opt-env-conf-test] @@ -116,9 +116,8 @@
  22077. 2112.62 s [opt-env-conf-test] ParserEmpty mLoc -> do
  22078. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  22079. 2112.62 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  22080. 2112.62 s [opt-env-conf-test] ParserSelect fe ff -> do
  22081. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  22082. 2112.62 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  22083. 2112.62 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  22084. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Alt"]
  22085. 2112.62 s [opt-env-conf-test] ppIndent $ do
  22086. 2112.62 s [opt-env-conf-test]
  22087. 2112.62 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:116:27-37
  22088. 2112.62 s [opt-env-conf-test] @@ -113,9 +113,8 @@
  22089. 2112.62 s [opt-env-conf-test] ParserAp ff fa -> do
  22090. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  22091. 2112.62 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  22092. 2112.62 s [opt-env-conf-test] ParserEmpty mLoc -> do
  22093. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  22094. 2112.62 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  22095. 2112.62 s [opt-env-conf-test] ParserSelect fe ff -> do
  22096. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  22097. 2112.62 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  22098. 2112.62 s [opt-env-conf-test]
  22099. 2112.62 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:113:25-35
  22100. 2112.62 s [opt-env-conf-test] @@ -110,9 +110,8 @@
  22101. 2112.62 s [opt-env-conf-test] ParserPure a -> do
  22102. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  22103. 2112.62 s [opt-env-conf-test] pure a
  22104. 2112.62 s [opt-env-conf-test] ParserAp ff fa -> do
  22105. 2112.62 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  22106. 2112.62 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  22107. 2112.62 s [opt-env-conf-test] ParserEmpty mLoc -> do
  22108. 2112.62 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  22109. 2112.62 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  22110. 2112.62 s [opt-env-conf-test]
  22111. 2112.62 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  22112. 2112.62 s [opt-env-conf-test] @@ -81,27 +81,26 @@
  22113. 2112.62 s [opt-env-conf-test] Nothing -> pure result
  22114. 2112.62 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  22115. 2112.62 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  22116. 2112.62 s [opt-env-conf-test] case mTup of
  22117. 2112.62 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  22118. 2112.62 s [opt-env-conf-test] Just ((errOrRes, _), nexts) -> case errOrRes of
  22119. 2112.62 s [opt-env-conf-test] Success a -> pure (Right a)
  22120. 2112.62 s [opt-env-conf-test] Failure firstErrors ->
  22121. 2112.62 s [opt-env-conf-test] let goNexts ns = do
  22122. 2112.62 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  22123. 2112.62 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  22124. 2112.62 s [opt-env-conf-test] case mNext of
  22125. 2112.62 s [opt-env-conf-test] Nothing ->
  22126. 2112.62 s [opt-env-conf-test] pure $
  22127. 2112.62 s [opt-env-conf-test] Left $
  22128. 2112.62 s [opt-env-conf-test] -- Only show source locations in debug mode.
  22129. 2112.62 s [opt-env-conf-test] let f = case mDebugMode of
  22130. 2112.62 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  22131. 2112.62 s [opt-env-conf-test] Just _ -> id
  22132. 2112.62 s [opt-env-conf-test] in f firstErrors
  22133. 2112.62 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  22134. 2112.62 s [opt-env-conf-test] Success a -> pure (Right a)
  22135. 2112.62 s [opt-env-conf-test] Failure _ -> goNexts ns'
  22136. 2112.62 s [opt-env-conf-test] in goNexts nexts
  22137. 2112.62 s [opt-env-conf-test] where
  22138. 2112.62 s [opt-env-conf-test] go ::
  22139. 2112.62 s [opt-env-conf-test] Parser a ->
  22140. 2112.62 s [opt-env-conf-test]
  22141. 2112.62 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:464:22-66
  22142. 2112.62 s [opt-env-conf-test] @@ -461,11 +461,8 @@
  22143. 2112.62 s [opt-env-conf-test] PP a
  22144. 2112.62 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  22145. 2112.62 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  22146. 2112.63 s [opt-env-conf-test] Just missings -> do
  22147. 2112.63 s [opt-env-conf-test] - debug $
  22148. 2112.63 s [opt-env-conf-test] - "Missing capabilities: "
  22149. 2112.63 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  22150. 2112.63 s [opt-env-conf-test] ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  22151. 2112.63 s [opt-env-conf-test] Nothing -> func
  22152. 2112.63 s [opt-env-conf-test]
  22153. 2112.63 s [opt-env-conf-test] data ParseResult a
  22154. 2112.63 s [opt-env-conf-test]
  22155. 2112.63 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  22156. 2112.63 s [opt-env-conf-test] @@ -474,9 +474,8 @@
  22157. 2112.63 s [opt-env-conf-test] | Found a
  22158. 2112.63 s [opt-env-conf-test]
  22159. 2112.63 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  22160. 2112.63 s [opt-env-conf-test] requireReaders rs = case NE.nonEmpty rs of
  22161. 2112.63 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  22162. 2112.63 s [opt-env-conf-test] Just ne -> pure ne
  22163. 2112.63 s [opt-env-conf-test]
  22164. 2112.63 s [opt-env-conf-test] -- Try the readers in order
  22165. 2112.63 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  22166. 2112.63 s [opt-env-conf-test]
  22167. 2112.63 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:568:44-43
  22168. 2112.63 s [opt-env-conf-test] @@ -565,12 +565,11 @@
  22169. 2112.63 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  22170. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  22171. 2112.63 s [opt-env-conf-test] ppIndent $ go p'
  22172. 2112.63 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  22173. 2112.63 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  22174. 2112.63 s [opt-env-conf-test] ppIndent $ do
  22175. 2112.63 s [opt-env-conf-test] mNewConfig <- go pc
  22176. 2112.63 s [opt-env-conf-test] mRes <- go pa
  22177. 2112.63 s [opt-env-conf-test] pure $ mRes <|> mNewConfig -- Reverse order
  22178. 2112.63 s [opt-env-conf-test] ParserSetting mLoc _ -> do
  22179. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  22180. 2112.63 s [opt-env-conf-test] pure Nothing
  22181. 2112.63 s [opt-env-conf-test]
  22182. 2112.63 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:565:42-31
  22183. 2112.63 s [opt-env-conf-test] @@ -562,9 +562,8 @@
  22184. 2112.63 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  22185. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  22186. 2112.63 s [opt-env-conf-test] ppIndent $ go p'
  22187. 2112.63 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  22188. 2112.63 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  22189. 2112.63 s [opt-env-conf-test] ppIndent $ go p'
  22190. 2112.63 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  22191. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  22192. 2112.63 s [opt-env-conf-test] ppIndent $ do
  22193. 2112.63 s [opt-env-conf-test]
  22194. 2112.63 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:562:43-31
  22195. 2112.63 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  22196. 2112.63 s [opt-env-conf-test] ParserSome mLoc p' -> do
  22197. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  22198. 2112.63 s [opt-env-conf-test] ppIndent $ go p'
  22199. 2112.63 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  22200. 2112.63 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  22201. 2112.63 s [opt-env-conf-test] ppIndent $ go p'
  22202. 2112.63 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  22203. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  22204. 2112.63 s [opt-env-conf-test] ppIndent $ go p'
  22205. 2112.63 s [opt-env-conf-test]
  22206. 2112.63 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:544:32-37
  22207. 2112.63 s [opt-env-conf-test] @@ -541,18 +541,17 @@
  22208. 2112.63 s [opt-env-conf-test] ParserEmpty mLoc -> do
  22209. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  22210. 2112.63 s [opt-env-conf-test] pure Nothing
  22211. 2112.63 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  22212. 2112.63 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  22213. 2112.63 s [opt-env-conf-test] ppIndent $ do
  22214. 2112.63 s [opt-env-conf-test] debug ["Trying left side."]
  22215. 2112.63 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  22216. 2112.63 s [opt-env-conf-test] case eor of
  22217. 2112.63 s [opt-env-conf-test] Just a -> do
  22218. 2112.63 s [opt-env-conf-test] debug ["Left side succeeded."]
  22219. 2112.63 s [opt-env-conf-test] pure a
  22220. 2112.63 s [opt-env-conf-test] Nothing -> do
  22221. 2112.63 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  22222. 2112.63 s [opt-env-conf-test] ppIndent $ go p2
  22223. 2112.63 s [opt-env-conf-test] ParserMany mLoc p' -> do
  22224. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  22225. 2112.63 s [opt-env-conf-test] ppIndent $ go p'
  22226. 2112.63 s [opt-env-conf-test]
  22227. 2112.63 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  22228. 2112.63 s [opt-env-conf-test] @@ -546,13 +546,10 @@
  22229. 2112.63 s [opt-env-conf-test] ppIndent $ do
  22230. 2112.63 s [opt-env-conf-test] debug ["Trying left side."]
  22231. 2112.63 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  22232. 2112.63 s [opt-env-conf-test] case eor of
  22233. 2112.63 s [opt-env-conf-test] Just a -> do
  22234. 2112.63 s [opt-env-conf-test] debug ["Left side succeeded."]
  22235. 2112.63 s [opt-env-conf-test] pure a
  22236. 2112.63 s [opt-env-conf-test] - Nothing -> do
  22237. 2112.63 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  22238. 2112.63 s [opt-env-conf-test] - ppIndent $ go p2
  22239. 2112.63 s [opt-env-conf-test] ParserMany mLoc p' -> do
  22240. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  22241. 2112.63 s [opt-env-conf-test] ppIndent $ go p'
  22242. 2112.63 s [opt-env-conf-test]
  22243. 2112.63 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:529:31-33
  22244. 2112.63 s [opt-env-conf-test] @@ -526,12 +526,11 @@
  22245. 2112.63 s [opt-env-conf-test] ParserPure _ -> do
  22246. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  22247. 2112.63 s [opt-env-conf-test] pure Nothing
  22248. 2112.63 s [opt-env-conf-test] ParserAp ff fa -> do
  22249. 2112.63 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  22250. 2112.63 s [opt-env-conf-test] ppIndent $ do
  22251. 2112.63 s [opt-env-conf-test] mf <- go ff
  22252. 2112.63 s [opt-env-conf-test] ma <- go fa
  22253. 2112.63 s [opt-env-conf-test] pure $ ma <|> mf -- Reverse order
  22254. 2112.63 s [opt-env-conf-test] ParserSelect fe ff -> do
  22255. 2112.63 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  22256. 2112.63 s [opt-env-conf-test] ppIndent $ do
  22257. 2112.63 s [opt-env-conf-test]
  22258. 2112.63 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  22259. 2112.63 s [opt-env-conf-test] @@ -511,11 +511,10 @@
  22260. 2112.63 s [opt-env-conf-test] ppEnvIndent = 0
  22261. 2112.63 s [opt-env-conf-test] }
  22262. 2112.63 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  22263. 2112.63 s [opt-env-conf-test] case mResOrNext of
  22264. 2112.63 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  22265. 2112.63 s [opt-env-conf-test] Just ((result, _), _) -> pure $ case result of
  22266. 2112.63 s [opt-env-conf-test] Failure errs -> Left errs
  22267. 2112.63 s [opt-env-conf-test] Success mDocs -> Right mDocs
  22268. 2112.63 s [opt-env-conf-test] where
  22269. 2112.63 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  22270. 2112.63 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  22271. 2112.63 s [opt-env-conf-test]
  22272. 2112.63 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  22273. 2112.63 s [opt-env-conf-test] @@ -513,9 +513,8 @@
  22274. 2112.63 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  22275. 2112.63 s [opt-env-conf-test] case mResOrNext of
  22276. 2112.63 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  22277. 2112.63 s [opt-env-conf-test] Just ((result, _), _) -> pure $ case result of
  22278. 2112.63 s [opt-env-conf-test] - Failure errs -> Left errs
  22279. 2112.63 s [opt-env-conf-test] Success mDocs -> Right mDocs
  22280. 2112.63 s [opt-env-conf-test] where
  22281. 2112.63 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  22282. 2112.63 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  22283. 2112.63 s [opt-env-conf-test]
  22284. 2112.63 s [opt-env-conf-test] IntLit at src/OptEnvConf/Run.hs:511:27-28
  22285. 2112.63 s [opt-env-conf-test] @@ -508,7 +508,7 @@
  22286. 2112.63 s [opt-env-conf-test] { ppEnvEnv = EnvMap.empty,
  22287. 2112.63 s [opt-env-conf-test] ppEnvConf = Nothing,
  22288. 2112.63 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  22289. 2112.63 s [opt-env-conf-test] - ppEnvIndent = 0
  22290. 2112.63 s [opt-env-conf-test] + ppEnvIndent = 1
  22291. 2112.63 s [opt-env-conf-test] }
  22292. 2112.63 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  22293. 2112.63 s [opt-env-conf-test] case mResOrNext of
  22294. 2112.63 s [opt-env-conf-test]
  22295. 2112.63 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  22296. 2112.63 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  22297. 2112.63 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  22298. 2112.63 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  22299. 2112.63 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  22300. 2112.63 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  22301. 2112.63 s [opt-env-conf-test] (Nothing, _) -> o2
  22302. 2112.63 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  22303. 2112.63 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  22304. 2112.63 s [opt-env-conf-test]
  22305. 2112.63 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  22306. 2112.63 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  22307. 2112.63 s [opt-env-conf-test]
  22308. 2112.63 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  22309. 2112.63 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  22310. 2112.63 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  22311. 2112.63 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  22312. 2112.63 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  22313. 2112.63 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  22314. 2112.63 s [opt-env-conf-test] - (Nothing, _) -> o2
  22315. 2112.63 s [opt-env-conf-test] (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  22316. 2112.63 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  22317. 2112.63 s [opt-env-conf-test]
  22318. 2112.63 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  22319. 2112.63 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  22320. 2112.63 s [opt-env-conf-test]
  22321. 2112.63 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  22322. 2112.63 s [opt-env-conf-test] @@ -91,8 +91,7 @@
  22323. 2112.63 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  22324. 2112.63 s [opt-env-conf-test]
  22325. 2112.63 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  22326. 2112.63 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  22327. 2112.63 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  22328. 2112.63 s [opt-env-conf-test] _ -> OptionTypeOneOf [ot1, ot2]
  22329. 2112.63 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  22330. 2112.63 s [opt-env-conf-test] goCommand = go . commandParser
  22331. 2112.63 s [opt-env-conf-test]
  22332. 2112.63 s [opt-env-conf-test] ListLit at src/OptEnvConf/Nix.hs:96:28-38
  22333. 2112.63 s [opt-env-conf-test] @@ -93,6 +93,5 @@
  22334. 2112.63 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  22335. 2112.63 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  22336. 2112.63 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  22337. 2112.63 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  22338. 2112.63 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  22339. 2112.63 s [opt-env-conf-test] goCommand = go . commandParser
  22340. 2112.63 s [opt-env-conf-test]
  22341. 2112.63 s [opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
  22342. 2112.63 s [opt-env-conf-test] @@ -60,14 +60,13 @@
  22343. 2112.63 s [opt-env-conf-test] instance Validity Arg where
  22344. 2112.63 s [opt-env-conf-test] validate arg =
  22345. 2112.63 s [opt-env-conf-test] mconcat
  22346. 2112.63 s [opt-env-conf-test] - [ genericValidate arg,
  22347. 2112.63 s [opt-env-conf-test] case arg of
  22348. 2112.63 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  22349. 2112.63 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  22350. 2112.63 s [opt-env-conf-test] ('-' : _) -> False
  22351. 2112.63 s [opt-env-conf-test] _ -> True
  22352. 2112.63 s [opt-env-conf-test] _ -> valid
  22353. 2112.63 s [opt-env-conf-test] ]
  22354. 2112.63 s [opt-env-conf-test]
  22355. 2112.63 s [opt-env-conf-test] instance IsString Arg where
  22356. 2112.63 s [opt-env-conf-test] fromString = parseArg
  22357. 2112.63 s [opt-env-conf-test]
  22358. 2112.63 s [opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
  22359. 2112.63 s [opt-env-conf-test] @@ -60,14 +60,7 @@
  22360. 2112.63 s [opt-env-conf-test] instance Validity Arg where
  22361. 2112.63 s [opt-env-conf-test] validate arg =
  22362. 2112.63 s [opt-env-conf-test] mconcat
  22363. 2112.63 s [opt-env-conf-test] - [ genericValidate arg,
  22364. 2112.63 s [opt-env-conf-test] - case arg of
  22365. 2112.63 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  22366. 2112.63 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  22367. 2112.63 s [opt-env-conf-test] - ('-' : _) -> False
  22368. 2112.63 s [opt-env-conf-test] - _ -> True
  22369. 2112.63 s [opt-env-conf-test] - _ -> valid
  22370. 2112.63 s [opt-env-conf-test] ]
  22371. 2112.63 s [opt-env-conf-test]
  22372. 2112.63 s [opt-env-conf-test] instance IsString Arg where
  22373. 2112.63 s [opt-env-conf-test] fromString = parseArg
  22374. 2112.63 s [opt-env-conf-test]
  22375. 2112.63 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  22376. 2112.63 s [opt-env-conf-test] @@ -61,12 +61,9 @@
  22377. 2112.63 s [opt-env-conf-test] validate arg =
  22378. 2112.64 s [opt-env-conf-test] mconcat
  22379. 2112.64 s [opt-env-conf-test] [ genericValidate arg,
  22380. 2112.64 s [opt-env-conf-test] case arg of
  22381. 2112.64 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  22382. 2112.64 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  22383. 2112.64 s [opt-env-conf-test] - ('-' : _) -> False
  22384. 2112.64 s [opt-env-conf-test] - _ -> True
  22385. 2112.64 s [opt-env-conf-test] _ -> valid
  22386. 2112.64 s [opt-env-conf-test] ]
  22387. 2112.64 s [opt-env-conf-test]
  22388. 2112.64 s [opt-env-conf-test] instance IsString Arg where
  22389. 2112.64 s [opt-env-conf-test]
  22390. 2112.64 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  22391. 2112.64 s [opt-env-conf-test] @@ -61,12 +61,11 @@
  22392. 2112.64 s [opt-env-conf-test] validate arg =
  22393. 2112.64 s [opt-env-conf-test] mconcat
  22394. 2112.64 s [opt-env-conf-test] [ genericValidate arg,
  22395. 2112.64 s [opt-env-conf-test] case arg of
  22396. 2112.64 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  22397. 2112.64 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  22398. 2112.64 s [opt-env-conf-test] ('-' : _) -> False
  22399. 2112.64 s [opt-env-conf-test] _ -> True
  22400. 2112.64 s [opt-env-conf-test] _ -> valid
  22401. 2112.64 s [opt-env-conf-test] ]
  22402. 2112.64 s [opt-env-conf-test]
  22403. 2112.64 s [opt-env-conf-test] instance IsString Arg where
  22404. 2112.64 s [opt-env-conf-test]
  22405. 2112.64 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  22406. 2112.64 s [opt-env-conf-test] @@ -63,9 +63,8 @@
  22407. 2112.64 s [opt-env-conf-test] [ genericValidate arg,
  22408. 2112.64 s [opt-env-conf-test] case arg of
  22409. 2112.64 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  22410. 2112.64 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  22411. 2112.64 s [opt-env-conf-test] - ('-' : _) -> False
  22412. 2112.64 s [opt-env-conf-test] _ -> True
  22413. 2112.64 s [opt-env-conf-test] _ -> valid
  22414. 2112.64 s [opt-env-conf-test] ]
  22415. 2112.64 s [opt-env-conf-test]
  22416. 2112.64 s [opt-env-conf-test]
  22417. 2112.64 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:66:64-22
  22418. 2112.64 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  22419. 2112.64 s [opt-env-conf-test] [ genericValidate arg,
  22420. 2112.64 s [opt-env-conf-test] case arg of
  22421. 2112.64 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  22422. 2112.64 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  22423. 2112.64 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ True-> declare "does not start with a dash" $ case s of
  22424. 2112.64 s [opt-env-conf-test] ('-' : _) -> False
  22425. 2112.64 s [opt-env-conf-test] _ -> True
  22426. 2112.64 s [opt-env-conf-test] _ -> valid
  22427. 2112.64 s [opt-env-conf-test] ]
  22428. 2112.64 s [opt-env-conf-test]
  22429. 2112.64 s [opt-env-conf-test]
  22430. 2112.64 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:65:103-111
  22431. 2112.64 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  22432. 2112.64 s [opt-env-conf-test] mconcat
  22433. 2112.64 s [opt-env-conf-test] [ genericValidate arg,
  22434. 2112.64 s [opt-env-conf-test] case arg of
  22435. 2112.64 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  22436. 2112.64 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
  22437. 2112.64 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  22438. 2112.64 s [opt-env-conf-test] ('-' : _) -> False
  22439. 2112.64 s [opt-env-conf-test] _ -> True
  22440. 2112.64 s [opt-env-conf-test]
  22441. 2112.64 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  22442. 2112.64 s [opt-env-conf-test] @@ -396,10 +396,9 @@
  22443. 2112.64 s [opt-env-conf-test] instance Validity Dashed
  22444. 2112.64 s [opt-env-conf-test]
  22445. 2112.64 s [opt-env-conf-test] instance IsString Dashed where
  22446. 2112.64 s [opt-env-conf-test] fromString s = case fromString s of
  22447. 2112.64 s [opt-env-conf-test] ArgDashed True cs -> DashedLong cs
  22448. 2112.64 s [opt-env-conf-test] ArgDashed False (c :| []) -> DashedShort c
  22449. 2112.64 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  22450. 2112.64 s [opt-env-conf-test]
  22451. 2112.64 s [opt-env-conf-test] renderDashed :: Dashed -> String
  22452. 2112.64 s [opt-env-conf-test] renderDashed = \case
  22453. 2112.64 s [opt-env-conf-test]
  22454. 2112.64 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:248:77-83
  22455. 2112.64 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  22456. 2112.64 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  22457. 2112.64 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  22458. 2112.64 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  22459. 2112.64 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  22460. 2112.64 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
  22461. 2112.64 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  22462. 2112.64 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  22463. 2112.64 s [opt-env-conf-test]
  22464. 2112.64 s [opt-env-conf-test]
  22465. 2112.64 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  22466. 2112.64 s [opt-env-conf-test] @@ -149,34 +149,33 @@
  22467. 2112.64 s [opt-env-conf-test] -- A single dash is always an argument
  22468. 2112.64 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  22469. 2112.64 s [opt-env-conf-test] -- Bare double-dash
  22470. 2112.64 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  22471. 2112.64 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  22472. 2112.64 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  22473. 2112.64 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  22474. 2112.64 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  22475. 2112.64 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  22476. 2112.64 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  22477. 2112.64 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  22478. 2112.64 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  22479. 2112.64 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  22480. 2112.64 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  22481. 2112.64 s [opt-env-conf-test] -- pop the args as they come.
  22482. 2112.64 s [opt-env-conf-test] _ ->
  22483. 2112.64 s [opt-env-conf-test] let go = \case
  22484. 2112.64 s [opt-env-conf-test] [] -> Nothing
  22485. 2112.64 s [opt-env-conf-test] (Dead : rest) -> go rest
  22486. 2112.64 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  22487. 2112.64 s [opt-env-conf-test] in case go afters of
  22488. 2112.64 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  22489. 2112.64 s [opt-env-conf-test] Just (firstLive, rest) ->
  22490. 2112.64 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  22491. 2112.64 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  22492. 2112.64 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  22493. 2112.64 s [opt-env-conf-test] -- arguments.
  22494. 2112.64 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  22495. 2112.64 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  22496. 2112.64 s [opt-env-conf-test] )
  22497. 2112.64 s [opt-env-conf-test] ]
  22498. 2112.64 s [opt-env-conf-test] ArgDashed {} ->
  22499. 2112.64 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  22500. 2112.64 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  22501. 2112.64 s [opt-env-conf-test]
  22502. 2112.64 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  22503. 2112.64 s [opt-env-conf-test] @@ -166,17 +166,16 @@
  22504. 2112.64 s [opt-env-conf-test] [] -> Nothing
  22505. 2112.64 s [opt-env-conf-test] (Dead : rest) -> go rest
  22506. 2112.64 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  22507. 2112.64 s [opt-env-conf-test] in case go afters of
  22508. 2112.64 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  22509. 2112.64 s [opt-env-conf-test] Just (firstLive, rest) ->
  22510. 2112.64 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  22511. 2112.64 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  22512. 2112.64 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  22513. 2112.64 s [opt-env-conf-test] -- arguments.
  22514. 2112.64 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  22515. 2112.64 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  22516. 2112.64 s [opt-env-conf-test] )
  22517. 2112.64 s [opt-env-conf-test] ]
  22518. 2112.64 s [opt-env-conf-test] ArgDashed {} ->
  22519. 2112.64 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  22520. 2112.64 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  22521. 2112.64 s [opt-env-conf-test]
  22522. 2112.64 s [opt-env-conf-test] MaybeOp at src/OptEnvConf/Args.hs:150:32-40
  22523. 2112.64 s [opt-env-conf-test] @@ -147,7 +147,7 @@
  22524. 2112.64 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  22525. 2112.64 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  22526. 2112.64 s [opt-env-conf-test] -- A single dash is always an argument
  22527. 2112.64 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  22528. 2112.64 s [opt-env-conf-test] + ArgBareDash -> [(Nothing, consumed)]
  22529. 2112.64 s [opt-env-conf-test] -- Bare double-dash
  22530. 2112.64 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  22531. 2112.64 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  22532. 2112.64 s [opt-env-conf-test]
  22533. 2112.64 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:339:40-46
  22534. 2112.64 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  22535. 2112.64 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  22536. 2112.64 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  22537. 2112.64 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  22538. 2112.64 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  22539. 2112.64 s [opt-env-conf-test] + in Just $ Live (ArgDashed False cs') : rest'
  22540. 2112.64 s [opt-env-conf-test] _ -> do
  22541. 2112.64 s [opt-env-conf-test] os <- go rest
  22542. 2112.64 s [opt-env-conf-test] pure $ Live o : os
  22543. 2112.64 s [opt-env-conf-test]
  22544. 2112.64 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:365:34-43
  22545. 2112.64 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22546. 2112.64 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  22547. 2112.64 s [opt-env-conf-test] go (c :| rest) =
  22548. 2112.64 s [opt-env-conf-test] if c `elem` cs
  22549. 2112.64 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  22550. 2112.64 s [opt-env-conf-test] + then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
  22551. 2112.64 s [opt-env-conf-test] else do
  22552. 2112.64 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  22553. 2112.64 s [opt-env-conf-test] new <- go rest'
  22554. 2112.64 s [opt-env-conf-test]
  22555. 2112.64 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Error.hs:66:40-45
  22556. 2112.64 s [opt-env-conf-test] @@ -63,7 +63,7 @@
  22557. 2112.64 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  22558. 2112.64 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  22559. 2112.64 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  22560. 2112.64 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand _ _ -> False
  22561. 2112.64 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand _ _ -> True
  22562. 2112.64 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  22563. 2112.64 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  22564. 2112.64 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  22565. 2112.64 s [opt-env-conf-test]
  22566. 2112.64 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:34-47
  22567. 2112.64 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  22568. 2112.64 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  22569. 2112.64 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  22570. 2112.64 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  22571. 2112.64 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  22572. 2112.64 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> True
  22573. 2112.64 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  22574. 2112.64 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  22575. 2112.64 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  22576. 2112.64 s [opt-env-conf-test]
  22577. 2112.64 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:40-47
  22578. 2112.64 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  22579. 2112.64 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  22580. 2112.64 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  22581. 2112.64 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  22582. 2112.64 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  22583. 2112.64 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ False
  22584. 2112.64 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  22585. 2112.64 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  22586. 2112.64 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  22587. 2112.64 s [opt-env-conf-test]
  22588. 2112.64 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  22589. 2112.64 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  22590. 2112.64 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  22591. 2112.64 s [opt-env-conf-test] renderError ParseError {..} =
  22592. 2112.64 s [opt-env-conf-test] concat
  22593. 2112.64 s [opt-env-conf-test] [ case parseErrorMessage of
  22594. 2112.64 s [opt-env-conf-test] ParseErrorEmpty ->
  22595. 2112.64 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  22596. 2112.64 s [opt-env-conf-test] ParseErrorEmptySetting ->
  22597. 2112.64 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  22598. 2112.64 s [opt-env-conf-test] ParseErrorNoReaders ->
  22599. 2112.64 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  22600. 2112.64 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  22601. 2112.64 s [opt-env-conf-test] ]
  22602. 2112.64 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  22603. 2112.64 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  22604. 2112.64 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  22605. 2112.64 s [opt-env-conf-test] [ "Missing argument: "
  22606. 2112.64 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  22607. 2112.64 s [opt-env-conf-test] ]
  22608. 2112.64 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  22609. 2112.64 s [opt-env-conf-test] ["Failed to read argument: "]
  22610. 2112.64 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22611. 2112.64 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22612. 2112.64 s [opt-env-conf-test] ParseErrorMissingOption o ->
  22613. 2112.64 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22614. 2112.64 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  22615. 2112.64 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22616. 2112.64 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  22617. 2112.64 s [opt-env-conf-test] ["Failed to read option: "]
  22618. 2112.64 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22619. 2112.64 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22620. 2112.64 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  22621. 2112.65 s [opt-env-conf-test] ["Missing env var: "]
  22622. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22623. 2112.65 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  22624. 2112.65 s [opt-env-conf-test] ["Failed to read env var: "]
  22625. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22626. 2112.65 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22627. 2112.65 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  22628. 2112.65 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  22629. 2112.65 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  22630. 2112.65 s [opt-env-conf-test] ["Failed to parse configuration: "]
  22631. 2112.65 s [opt-env-conf-test] : maybe [] renderConfDoc md
  22632. 2112.65 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  22633. 2112.65 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  22634. 2112.65 s [opt-env-conf-test] ["Missing command, available commands:"]
  22635. 2112.65 s [opt-env-conf-test] : availableCommandsLines cs
  22636. 2112.65 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  22637. 2112.65 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  22638. 2112.65 s [opt-env-conf-test] [fore blue "available commands:"]
  22639. 2112.65 s [opt-env-conf-test] ]
  22640. 2112.65 s [opt-env-conf-test] ++ availableCommandsLines cs
  22641. 2112.65 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  22642. 2112.65 s [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."],
  22643. 2112.65 s [opt-env-conf-test] ["The following settings have been parsed:"]
  22644. 2112.65 s [opt-env-conf-test] ]
  22645. 2112.65 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  22646. 2112.65 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  22647. 2112.65 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  22648. 2112.65 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  22649. 2112.65 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  22650. 2112.65 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  22651. 2112.65 s [opt-env-conf-test] ]
  22652. 2112.65 s [opt-env-conf-test]
  22653. 2112.65 s [opt-env-conf-test]
  22654. 2112.65 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  22655. 2112.65 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  22656. 2112.65 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  22657. 2112.65 s [opt-env-conf-test] renderError ParseError {..} =
  22658. 2112.65 s [opt-env-conf-test] concat
  22659. 2112.65 s [opt-env-conf-test] [ case parseErrorMessage of
  22660. 2112.65 s [opt-env-conf-test] ParseErrorEmpty ->
  22661. 2112.65 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  22662. 2112.65 s [opt-env-conf-test] ParseErrorEmptySetting ->
  22663. 2112.65 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  22664. 2112.65 s [opt-env-conf-test] ParseErrorNoReaders ->
  22665. 2112.65 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  22666. 2112.65 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  22667. 2112.65 s [opt-env-conf-test] ]
  22668. 2112.65 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  22669. 2112.65 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  22670. 2112.65 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  22671. 2112.65 s [opt-env-conf-test] [ "Missing argument: "
  22672. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  22673. 2112.65 s [opt-env-conf-test] ]
  22674. 2112.65 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  22675. 2112.65 s [opt-env-conf-test] ["Failed to read argument: "]
  22676. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22677. 2112.65 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22678. 2112.65 s [opt-env-conf-test] ParseErrorMissingOption o ->
  22679. 2112.65 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22680. 2112.65 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  22681. 2112.65 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22682. 2112.65 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  22683. 2112.65 s [opt-env-conf-test] ["Failed to read option: "]
  22684. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22685. 2112.65 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22686. 2112.65 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  22687. 2112.65 s [opt-env-conf-test] ["Missing env var: "]
  22688. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22689. 2112.65 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  22690. 2112.65 s [opt-env-conf-test] ["Failed to read env var: "]
  22691. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22692. 2112.65 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22693. 2112.65 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  22694. 2112.65 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  22695. 2112.65 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  22696. 2112.65 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  22697. 2112.65 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  22698. 2112.65 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  22699. 2112.65 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  22700. 2112.65 s [opt-env-conf-test] ["Missing command, available commands:"]
  22701. 2112.65 s [opt-env-conf-test] : availableCommandsLines cs
  22702. 2112.65 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  22703. 2112.65 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  22704. 2112.65 s [opt-env-conf-test] [fore blue "available commands:"]
  22705. 2112.65 s [opt-env-conf-test] ]
  22706. 2112.65 s [opt-env-conf-test] ++ availableCommandsLines cs
  22707. 2112.65 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  22708. 2112.65 s [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."],
  22709. 2112.65 s [opt-env-conf-test] ["The following settings have been parsed:"]
  22710. 2112.65 s [opt-env-conf-test] ]
  22711. 2112.65 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  22712. 2112.65 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  22713. 2112.65 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  22714. 2112.65 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  22715. 2112.65 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  22716. 2112.65 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  22717. 2112.65 s [opt-env-conf-test] ]
  22718. 2112.65 s [opt-env-conf-test]
  22719. 2112.65 s [opt-env-conf-test]
  22720. 2112.65 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  22721. 2112.65 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  22722. 2112.65 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  22723. 2112.65 s [opt-env-conf-test] renderError ParseError {..} =
  22724. 2112.65 s [opt-env-conf-test] concat
  22725. 2112.65 s [opt-env-conf-test] [ case parseErrorMessage of
  22726. 2112.65 s [opt-env-conf-test] ParseErrorEmpty ->
  22727. 2112.65 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  22728. 2112.65 s [opt-env-conf-test] ParseErrorEmptySetting ->
  22729. 2112.65 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  22730. 2112.65 s [opt-env-conf-test] ParseErrorNoReaders ->
  22731. 2112.65 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  22732. 2112.65 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  22733. 2112.65 s [opt-env-conf-test] ]
  22734. 2112.65 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  22735. 2112.65 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  22736. 2112.65 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  22737. 2112.65 s [opt-env-conf-test] [ "Missing argument: "
  22738. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  22739. 2112.65 s [opt-env-conf-test] ]
  22740. 2112.65 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  22741. 2112.65 s [opt-env-conf-test] ["Failed to read argument: "]
  22742. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22743. 2112.65 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22744. 2112.65 s [opt-env-conf-test] ParseErrorMissingOption o ->
  22745. 2112.65 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22746. 2112.65 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  22747. 2112.65 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22748. 2112.65 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  22749. 2112.65 s [opt-env-conf-test] ["Failed to read option: "]
  22750. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22751. 2112.65 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22752. 2112.65 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  22753. 2112.65 s [opt-env-conf-test] ["Missing env var: "]
  22754. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22755. 2112.65 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  22756. 2112.65 s [opt-env-conf-test] ["Failed to read env var: "]
  22757. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22758. 2112.65 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22759. 2112.65 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  22760. 2112.65 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  22761. 2112.65 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  22762. 2112.65 s [opt-env-conf-test] ["Failed to parse configuration: "]
  22763. 2112.65 s [opt-env-conf-test] : maybe [] renderConfDoc md
  22764. 2112.65 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  22765. 2112.65 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  22766. 2112.65 s [opt-env-conf-test] ["Missing command, available commands:"]
  22767. 2112.65 s [opt-env-conf-test] : availableCommandsLines cs
  22768. 2112.65 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  22769. 2112.65 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  22770. 2112.65 s [opt-env-conf-test] [fore blue "available commands:"]
  22771. 2112.65 s [opt-env-conf-test] ]
  22772. 2112.65 s [opt-env-conf-test] ++ availableCommandsLines cs
  22773. 2112.65 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  22774. 2112.65 s [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."],
  22775. 2112.65 s [opt-env-conf-test] ["The following settings have been parsed:"]
  22776. 2112.65 s [opt-env-conf-test] ]
  22777. 2112.65 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  22778. 2112.65 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  22779. 2112.65 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  22780. 2112.65 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  22781. 2112.65 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  22782. 2112.65 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  22783. 2112.65 s [opt-env-conf-test] ]
  22784. 2112.65 s [opt-env-conf-test]
  22785. 2112.65 s [opt-env-conf-test]
  22786. 2112.65 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  22787. 2112.65 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  22788. 2112.65 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  22789. 2112.65 s [opt-env-conf-test] renderError ParseError {..} =
  22790. 2112.65 s [opt-env-conf-test] concat
  22791. 2112.65 s [opt-env-conf-test] [ case parseErrorMessage of
  22792. 2112.65 s [opt-env-conf-test] ParseErrorEmpty ->
  22793. 2112.65 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  22794. 2112.65 s [opt-env-conf-test] ParseErrorEmptySetting ->
  22795. 2112.65 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  22796. 2112.65 s [opt-env-conf-test] ParseErrorNoReaders ->
  22797. 2112.65 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  22798. 2112.65 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  22799. 2112.65 s [opt-env-conf-test] ]
  22800. 2112.65 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  22801. 2112.65 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  22802. 2112.65 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  22803. 2112.65 s [opt-env-conf-test] [ "Missing argument: "
  22804. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  22805. 2112.65 s [opt-env-conf-test] ]
  22806. 2112.65 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  22807. 2112.65 s [opt-env-conf-test] ["Failed to read argument: "]
  22808. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22809. 2112.65 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22810. 2112.65 s [opt-env-conf-test] ParseErrorMissingOption o ->
  22811. 2112.65 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22812. 2112.65 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  22813. 2112.65 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22814. 2112.65 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  22815. 2112.65 s [opt-env-conf-test] ["Failed to read option: "]
  22816. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22817. 2112.65 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22818. 2112.65 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  22819. 2112.65 s [opt-env-conf-test] ["Missing env var: "]
  22820. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22821. 2112.65 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  22822. 2112.65 s [opt-env-conf-test] ["Failed to read env var: "]
  22823. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22824. 2112.65 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22825. 2112.65 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  22826. 2112.65 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  22827. 2112.65 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  22828. 2112.65 s [opt-env-conf-test] ["Failed to parse configuration: "]
  22829. 2112.65 s [opt-env-conf-test] : maybe [] renderConfDoc md
  22830. 2112.65 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  22831. 2112.65 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  22832. 2112.65 s [opt-env-conf-test] ["Missing command, available commands:"]
  22833. 2112.65 s [opt-env-conf-test] : availableCommandsLines cs
  22834. 2112.65 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  22835. 2112.65 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  22836. 2112.65 s [opt-env-conf-test] [fore blue "available commands:"]
  22837. 2112.65 s [opt-env-conf-test] ]
  22838. 2112.65 s [opt-env-conf-test] ++ availableCommandsLines cs
  22839. 2112.65 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  22840. 2112.65 s [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."],
  22841. 2112.65 s [opt-env-conf-test] ["The following settings have been parsed:"]
  22842. 2112.65 s [opt-env-conf-test] ]
  22843. 2112.65 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  22844. 2112.65 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  22845. 2112.65 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  22846. 2112.65 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  22847. 2112.65 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  22848. 2112.65 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  22849. 2112.65 s [opt-env-conf-test] ]
  22850. 2112.65 s [opt-env-conf-test]
  22851. 2112.65 s [opt-env-conf-test]
  22852. 2112.65 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  22853. 2112.65 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  22854. 2112.65 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  22855. 2112.65 s [opt-env-conf-test] renderError ParseError {..} =
  22856. 2112.65 s [opt-env-conf-test] concat
  22857. 2112.65 s [opt-env-conf-test] [ case parseErrorMessage of
  22858. 2112.65 s [opt-env-conf-test] ParseErrorEmpty ->
  22859. 2112.65 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  22860. 2112.65 s [opt-env-conf-test] ParseErrorEmptySetting ->
  22861. 2112.65 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  22862. 2112.65 s [opt-env-conf-test] - ParseErrorNoReaders ->
  22863. 2112.65 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  22864. 2112.65 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  22865. 2112.65 s [opt-env-conf-test] - ]
  22866. 2112.65 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  22867. 2112.65 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  22868. 2112.65 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  22869. 2112.65 s [opt-env-conf-test] [ "Missing argument: "
  22870. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  22871. 2112.65 s [opt-env-conf-test] ]
  22872. 2112.65 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  22873. 2112.65 s [opt-env-conf-test] ["Failed to read argument: "]
  22874. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22875. 2112.65 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22876. 2112.65 s [opt-env-conf-test] ParseErrorMissingOption o ->
  22877. 2112.65 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22878. 2112.65 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  22879. 2112.65 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22880. 2112.65 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  22881. 2112.65 s [opt-env-conf-test] ["Failed to read option: "]
  22882. 2112.65 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22883. 2112.65 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22884. 2112.65 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  22885. 2112.65 s [opt-env-conf-test] ["Missing env var: "]
  22886. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22887. 2112.65 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  22888. 2112.65 s [opt-env-conf-test] ["Failed to read env var: "]
  22889. 2112.65 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22890. 2112.65 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22891. 2112.66 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  22892. 2112.66 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  22893. 2112.66 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  22894. 2112.66 s [opt-env-conf-test] ["Failed to parse configuration: "]
  22895. 2112.66 s [opt-env-conf-test] : maybe [] renderConfDoc md
  22896. 2112.66 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  22897. 2112.66 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  22898. 2112.66 s [opt-env-conf-test] ["Missing command, available commands:"]
  22899. 2112.66 s [opt-env-conf-test] : availableCommandsLines cs
  22900. 2112.66 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  22901. 2112.66 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  22902. 2112.66 s [opt-env-conf-test] [fore blue "available commands:"]
  22903. 2112.66 s [opt-env-conf-test] ]
  22904. 2112.66 s [opt-env-conf-test] ++ availableCommandsLines cs
  22905. 2112.66 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  22906. 2112.66 s [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."],
  22907. 2112.66 s [opt-env-conf-test] ["The following settings have been parsed:"]
  22908. 2112.66 s [opt-env-conf-test] ]
  22909. 2112.66 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  22910. 2112.66 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  22911. 2112.66 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  22912. 2112.66 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  22913. 2112.66 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  22914. 2112.66 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  22915. 2112.66 s [opt-env-conf-test] ]
  22916. 2112.66 s [opt-env-conf-test]
  22917. 2112.66 s [opt-env-conf-test]
  22918. 2112.66 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  22919. 2112.66 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  22920. 2112.66 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  22921. 2112.66 s [opt-env-conf-test] renderError ParseError {..} =
  22922. 2112.66 s [opt-env-conf-test] concat
  22923. 2112.66 s [opt-env-conf-test] [ case parseErrorMessage of
  22924. 2112.66 s [opt-env-conf-test] ParseErrorEmpty ->
  22925. 2112.66 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  22926. 2112.66 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  22927. 2112.66 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  22928. 2112.66 s [opt-env-conf-test] ParseErrorNoReaders ->
  22929. 2112.66 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  22930. 2112.66 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  22931. 2112.66 s [opt-env-conf-test] ]
  22932. 2112.66 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  22933. 2112.66 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  22934. 2112.66 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  22935. 2112.66 s [opt-env-conf-test] [ "Missing argument: "
  22936. 2112.66 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  22937. 2112.66 s [opt-env-conf-test] ]
  22938. 2112.66 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  22939. 2112.66 s [opt-env-conf-test] ["Failed to read argument: "]
  22940. 2112.66 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22941. 2112.66 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22942. 2112.66 s [opt-env-conf-test] ParseErrorMissingOption o ->
  22943. 2112.66 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22944. 2112.66 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  22945. 2112.66 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  22946. 2112.66 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  22947. 2112.66 s [opt-env-conf-test] ["Failed to read option: "]
  22948. 2112.66 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  22949. 2112.66 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22950. 2112.66 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  22951. 2112.66 s [opt-env-conf-test] ["Missing env var: "]
  22952. 2112.66 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22953. 2112.66 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  22954. 2112.66 s [opt-env-conf-test] ["Failed to read env var: "]
  22955. 2112.66 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  22956. 2112.66 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  22957. 2112.66 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  22958. 2112.66 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  22959. 2112.66 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  22960. 2112.66 s [opt-env-conf-test] ["Failed to parse configuration: "]
  22961. 2112.66 s [opt-env-conf-test] : maybe [] renderConfDoc md
  22962. 2112.66 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  22963. 2112.66 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  22964. 2112.66 s [opt-env-conf-test] ["Missing command, available commands:"]
  22965. 2112.66 s [opt-env-conf-test] : availableCommandsLines cs
  22966. 2112.66 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  22967. 2112.66 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  22968. 2112.66 s [opt-env-conf-test] [fore blue "available commands:"]
  22969. 2112.66 s [opt-env-conf-test] ]
  22970. 2112.66 s [opt-env-conf-test] ++ availableCommandsLines cs
  22971. 2112.66 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  22972. 2112.66 s [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."],
  22973. 2112.66 s [opt-env-conf-test] ["The following settings have been parsed:"]
  22974. 2112.66 s [opt-env-conf-test] ]
  22975. 2112.66 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  22976. 2112.66 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  22977. 2112.66 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  22978. 2112.66 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  22979. 2112.66 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  22980. 2112.66 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  22981. 2112.66 s [opt-env-conf-test] ]
  22982. 2112.66 s [opt-env-conf-test]
  22983. 2112.66 s [opt-env-conf-test]
  22984. 2112.66 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:144:22-46
  22985. 2112.66 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  22986. 2112.66 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  22987. 2112.66 s [opt-env-conf-test] salt
  22988. 2112.66 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  22989. 2112.66 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  22990. 2112.66 s [opt-env-conf-test] + `hashWithSalt` not (envVarSettingAllowPrefix)
  22991. 2112.66 s [opt-env-conf-test]
  22992. 2112.66 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  22993. 2112.66 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  22994. 2112.66 s [opt-env-conf-test]
  22995. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  22996. 2112.66 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  22997. 2112.66 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  22998. 2112.66 s [opt-env-conf-test] salt
  22999. 2112.66 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  23000. 2112.66 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  23001. 2112.66 s [opt-env-conf-test] + `hashWithSalt` False
  23002. 2112.66 s [opt-env-conf-test]
  23003. 2112.66 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  23004. 2112.66 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  23005. 2112.66 s [opt-env-conf-test]
  23006. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  23007. 2112.66 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  23008. 2112.66 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  23009. 2112.66 s [opt-env-conf-test] salt
  23010. 2112.66 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  23011. 2112.66 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  23012. 2112.66 s [opt-env-conf-test] + `hashWithSalt` True
  23013. 2112.66 s [opt-env-conf-test]
  23014. 2112.66 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  23015. 2112.66 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  23016. 2112.66 s [opt-env-conf-test]
  23017. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:136:5-29
  23018. 2112.66 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  23019. 2112.66 s [opt-env-conf-test]
  23020. 2112.66 s [opt-env-conf-test] data EnvVarSetting = EnvVarSetting
  23021. 2112.66 s [opt-env-conf-test] { envVarSettingVar :: !String,
  23022. 2112.66 s [opt-env-conf-test] - envVarSettingAllowPrefix :: !Bool
  23023. 2112.66 s [opt-env-conf-test] + True :: !Bool
  23024. 2112.66 s [opt-env-conf-test] }
  23025. 2112.66 s [opt-env-conf-test] deriving (Show, Eq)
  23026. 2112.66 s [opt-env-conf-test]
  23027. 2112.66 s [opt-env-conf-test]
  23028. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:159:5-32
  23029. 2112.66 s [opt-env-conf-test] @@ -156,7 +156,7 @@
  23030. 2112.66 s [opt-env-conf-test] = forall void.
  23031. 2112.66 s [opt-env-conf-test] ConfigValSetting
  23032. 2112.66 s [opt-env-conf-test] { configValSettingPath :: !(NonEmpty String),
  23033. 2112.66 s [opt-env-conf-test] - configValSettingAllowPrefix :: !Bool,
  23034. 2112.66 s [opt-env-conf-test] + True :: !Bool,
  23035. 2112.66 s [opt-env-conf-test] configValSettingCodec :: !(ValueCodec void (Maybe a))
  23036. 2112.66 s [opt-env-conf-test] }
  23037. 2112.66 s [opt-env-conf-test]
  23038. 2112.66 s [opt-env-conf-test]
  23039. 2112.66 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:128:24-40
  23040. 2112.66 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  23041. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  23042. 2112.66 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  23043. 2112.66 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  23044. 2112.66 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  23045. 2112.66 s [opt-env-conf-test] + `hashWithSalt` not (settingTryOption)
  23046. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  23047. 2112.66 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  23048. 2112.66 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  23049. 2112.66 s [opt-env-conf-test]
  23050. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  23051. 2112.66 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  23052. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  23053. 2112.66 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  23054. 2112.66 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  23055. 2112.66 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  23056. 2112.66 s [opt-env-conf-test] + `hashWithSalt` False
  23057. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  23058. 2112.66 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  23059. 2112.66 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  23060. 2112.66 s [opt-env-conf-test]
  23061. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  23062. 2112.66 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  23063. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  23064. 2112.66 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  23065. 2112.66 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  23066. 2112.66 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  23067. 2112.66 s [opt-env-conf-test] + `hashWithSalt` True
  23068. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  23069. 2112.66 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  23070. 2112.66 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  23071. 2112.66 s [opt-env-conf-test]
  23072. 2112.66 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:127:24-49
  23073. 2112.66 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  23074. 2112.66 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  23075. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  23076. 2112.66 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  23077. 2112.66 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  23078. 2112.66 s [opt-env-conf-test] + `hashWithSalt` not (isJust settingSwitchValue)
  23079. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  23080. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  23081. 2112.66 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  23082. 2112.66 s [opt-env-conf-test]
  23083. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  23084. 2112.66 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  23085. 2112.66 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  23086. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  23087. 2112.66 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  23088. 2112.66 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  23089. 2112.66 s [opt-env-conf-test] + `hashWithSalt` False
  23090. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  23091. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  23092. 2112.66 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  23093. 2112.66 s [opt-env-conf-test]
  23094. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  23095. 2112.66 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  23096. 2112.66 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  23097. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  23098. 2112.66 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  23099. 2112.66 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  23100. 2112.66 s [opt-env-conf-test] + `hashWithSalt` True
  23101. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  23102. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  23103. 2112.66 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  23104. 2112.66 s [opt-env-conf-test]
  23105. 2112.66 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:125:24-42
  23106. 2112.66 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  23107. 2112.66 s [opt-env-conf-test] SettingHash
  23108. 2112.66 s [opt-env-conf-test] ( 42
  23109. 2112.66 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  23110. 2112.66 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  23111. 2112.66 s [opt-env-conf-test] + `hashWithSalt` not (settingTryArgument)
  23112. 2112.66 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  23113. 2112.66 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  23114. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  23115. 2112.66 s [opt-env-conf-test]
  23116. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  23117. 2112.66 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  23118. 2112.66 s [opt-env-conf-test] SettingHash
  23119. 2112.66 s [opt-env-conf-test] ( 42
  23120. 2112.66 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  23121. 2112.66 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  23122. 2112.66 s [opt-env-conf-test] + `hashWithSalt` False
  23123. 2112.66 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  23124. 2112.66 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  23125. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  23126. 2112.66 s [opt-env-conf-test]
  23127. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  23128. 2112.66 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  23129. 2112.66 s [opt-env-conf-test] SettingHash
  23130. 2112.66 s [opt-env-conf-test] ( 42
  23131. 2112.66 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  23132. 2112.66 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  23133. 2112.66 s [opt-env-conf-test] + `hashWithSalt` True
  23134. 2112.66 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  23135. 2112.66 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  23136. 2112.66 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  23137. 2112.66 s [opt-env-conf-test]
  23138. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:148:6-32
  23139. 2112.66 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  23140. 2112.66 s [opt-env-conf-test]
  23141. 2112.66 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  23142. 2112.66 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  23143. 2112.66 s [opt-env-conf-test] - if envVarSettingAllowPrefix e
  23144. 2112.66 s [opt-env-conf-test] + if True
  23145. 2112.66 s [opt-env-conf-test] then e {envVarSettingVar = prefix <> envVarSettingVar e}
  23146. 2112.66 s [opt-env-conf-test] else e
  23147. 2112.66 s [opt-env-conf-test]
  23148. 2112.66 s [opt-env-conf-test]
  23149. 2112.66 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:165:6-35
  23150. 2112.66 s [opt-env-conf-test] @@ -162,7 +162,7 @@
  23151. 2112.66 s [opt-env-conf-test]
  23152. 2112.66 s [opt-env-conf-test] prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
  23153. 2112.66 s [opt-env-conf-test] prefixConfigValSetting prefix c =
  23154. 2112.66 s [opt-env-conf-test] - if configValSettingAllowPrefix c
  23155. 2112.67 s [opt-env-conf-test] + if True
  23156. 2112.67 s [opt-env-conf-test] then c {configValSettingPath = prefix NE.<| configValSettingPath c}
  23157. 2112.67 s [opt-env-conf-test] else c
  23158. 2112.67 s [opt-env-conf-test]
  23159. 2112.67 s [opt-env-conf-test]
  23160. 2112.67 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
  23161. 2112.67 s [opt-env-conf-test] @@ -170,9 +170,8 @@
  23162. 2112.67 s [opt-env-conf-test] suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
  23163. 2112.67 s [opt-env-conf-test] where
  23164. 2112.67 s [opt-env-conf-test] suffixPath :: NonEmpty String -> NonEmpty String
  23165. 2112.67 s [opt-env-conf-test] suffixPath (f :| rest) = case NE.nonEmpty rest of
  23166. 2112.67 s [opt-env-conf-test] Nothing -> (f <> suffix) :| []
  23167. 2112.67 s [opt-env-conf-test] - Just ne -> f NE.<| suffixPath ne
  23168. 2112.67 s [opt-env-conf-test]
  23169. 2112.67 s [opt-env-conf-test] -- | A 'mempty' 'Setting' to build up a setting from.
  23170. 2112.67 s [opt-env-conf-test] emptySetting :: Setting a
  23171. 2112.67 s [opt-env-conf-test]
  23172. 2112.67 s [opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
  23173. 2112.67 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  23174. 2112.67 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  23175. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23176. 2112.67 s [opt-env-conf-test] and
  23177. 2112.67 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23178. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23179. 2112.67 s [opt-env-conf-test] - null settingConfigVals
  23180. 2112.67 s [opt-env-conf-test] ]
  23181. 2112.67 s [opt-env-conf-test]
  23182. 2112.67 s [opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
  23183. 2112.67 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  23184. 2112.67 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  23185. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23186. 2112.67 s [opt-env-conf-test] and
  23187. 2112.67 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23188. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23189. 2112.67 s [opt-env-conf-test] null settingConfigVals
  23190. 2112.67 s [opt-env-conf-test] ]
  23191. 2112.67 s [opt-env-conf-test]
  23192. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:342:15-37
  23193. 2112.67 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  23194. 2112.67 s [opt-env-conf-test] and
  23195. 2112.67 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23196. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23197. 2112.67 s [opt-env-conf-test] - null settingConfigVals
  23198. 2112.67 s [opt-env-conf-test] + True
  23199. 2112.67 s [opt-env-conf-test] ]
  23200. 2112.67 s [opt-env-conf-test]
  23201. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:341:15-34
  23202. 2112.67 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  23203. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23204. 2112.67 s [opt-env-conf-test] and
  23205. 2112.67 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23206. 2112.67 s [opt-env-conf-test] - null settingEnvVars,
  23207. 2112.67 s [opt-env-conf-test] + True,
  23208. 2112.67 s [opt-env-conf-test] null settingConfigVals
  23209. 2112.67 s [opt-env-conf-test] ]
  23210. 2112.67 s [opt-env-conf-test]
  23211. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-82
  23212. 2112.67 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  23213. 2112.67 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  23214. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23215. 2112.67 s [opt-env-conf-test] and
  23216. 2112.67 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23217. 2112.67 s [opt-env-conf-test] + [ True,
  23218. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23219. 2112.67 s [opt-env-conf-test] null settingConfigVals
  23220. 2112.67 s [opt-env-conf-test] ]
  23221. 2112.67 s [opt-env-conf-test]
  23222. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-82
  23223. 2112.67 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  23224. 2112.67 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  23225. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23226. 2112.67 s [opt-env-conf-test] and
  23227. 2112.67 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23228. 2112.67 s [opt-env-conf-test] + [ settingTryArgument || True,
  23229. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23230. 2112.67 s [opt-env-conf-test] null settingConfigVals
  23231. 2112.67 s [opt-env-conf-test] ]
  23232. 2112.67 s [opt-env-conf-test]
  23233. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:57-82
  23234. 2112.67 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  23235. 2112.67 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  23236. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23237. 2112.67 s [opt-env-conf-test] and
  23238. 2112.67 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23239. 2112.67 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || True,
  23240. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23241. 2112.67 s [opt-env-conf-test] null settingConfigVals
  23242. 2112.67 s [opt-env-conf-test] ]
  23243. 2112.67 s [opt-env-conf-test]
  23244. 2112.67 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:340:37-53
  23245. 2112.67 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  23246. 2112.67 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  23247. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23248. 2112.67 s [opt-env-conf-test] and
  23249. 2112.67 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23250. 2112.67 s [opt-env-conf-test] + [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
  23251. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23252. 2112.67 s [opt-env-conf-test] null settingConfigVals
  23253. 2112.67 s [opt-env-conf-test] ]
  23254. 2112.67 s [opt-env-conf-test]
  23255. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  23256. 2112.67 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  23257. 2112.67 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  23258. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23259. 2112.67 s [opt-env-conf-test] and
  23260. 2112.67 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23261. 2112.67 s [opt-env-conf-test] + [ settingTryArgument || False || isJust settingSwitchValue,
  23262. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23263. 2112.67 s [opt-env-conf-test] null settingConfigVals
  23264. 2112.67 s [opt-env-conf-test] ]
  23265. 2112.67 s [opt-env-conf-test]
  23266. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  23267. 2112.67 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  23268. 2112.67 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  23269. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23270. 2112.67 s [opt-env-conf-test] and
  23271. 2112.67 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23272. 2112.67 s [opt-env-conf-test] + [ settingTryArgument || True || isJust settingSwitchValue,
  23273. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23274. 2112.67 s [opt-env-conf-test] null settingConfigVals
  23275. 2112.67 s [opt-env-conf-test] ]
  23276. 2112.67 s [opt-env-conf-test]
  23277. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  23278. 2112.67 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  23279. 2112.67 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  23280. 2112.67 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  23281. 2112.67 s [opt-env-conf-test] and
  23282. 2112.67 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  23283. 2112.67 s [opt-env-conf-test] + [ True || settingTryOption || isJust settingSwitchValue,
  23284. 2112.67 s [opt-env-conf-test] null settingEnvVars,
  23285. 2112.67 s [opt-env-conf-test] null settingConfigVals
  23286. 2112.67 s [opt-env-conf-test] ]
  23287. 2112.67 s [opt-env-conf-test]
  23288. 2112.67 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-24
  23289. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23290. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23291. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23292. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23293. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23294. 2112.67 s [opt-env-conf-test] + pure $ not (c1 || c2)
  23295. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23296. 2112.67 s [opt-env-conf-test] case settingHelp of
  23297. 2112.67 s [opt-env-conf-test] Nothing ->
  23298. 2112.67 s [opt-env-conf-test]
  23299. 2112.67 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Lint.hs:288:16-24
  23300. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23301. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23302. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23303. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23304. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23305. 2112.67 s [opt-env-conf-test] + pure $ c1 && c2
  23306. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23307. 2112.67 s [opt-env-conf-test] case settingHelp of
  23308. 2112.67 s [opt-env-conf-test] Nothing ->
  23309. 2112.67 s [opt-env-conf-test]
  23310. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  23311. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23312. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23313. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23314. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23315. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23316. 2112.67 s [opt-env-conf-test] + pure $ False
  23317. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23318. 2112.67 s [opt-env-conf-test] case settingHelp of
  23319. 2112.67 s [opt-env-conf-test] Nothing ->
  23320. 2112.67 s [opt-env-conf-test]
  23321. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  23322. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23323. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23324. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23325. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23326. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23327. 2112.67 s [opt-env-conf-test] + pure $ True
  23328. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23329. 2112.67 s [opt-env-conf-test] case settingHelp of
  23330. 2112.67 s [opt-env-conf-test] Nothing ->
  23331. 2112.67 s [opt-env-conf-test]
  23332. 2112.67 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:22-24
  23333. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23334. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23335. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23336. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23337. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23338. 2112.67 s [opt-env-conf-test] + pure $ c1 || not (c2)
  23339. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23340. 2112.67 s [opt-env-conf-test] case settingHelp of
  23341. 2112.67 s [opt-env-conf-test] Nothing ->
  23342. 2112.67 s [opt-env-conf-test]
  23343. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  23344. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23345. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23346. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23347. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23348. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23349. 2112.67 s [opt-env-conf-test] + pure $ c1 || False
  23350. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23351. 2112.67 s [opt-env-conf-test] case settingHelp of
  23352. 2112.67 s [opt-env-conf-test] Nothing ->
  23353. 2112.67 s [opt-env-conf-test]
  23354. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  23355. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23356. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23357. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23358. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23359. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23360. 2112.67 s [opt-env-conf-test] + pure $ c1 || True
  23361. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23362. 2112.67 s [opt-env-conf-test] case settingHelp of
  23363. 2112.67 s [opt-env-conf-test] Nothing ->
  23364. 2112.67 s [opt-env-conf-test]
  23365. 2112.67 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-18
  23366. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23367. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23368. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23369. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23370. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23371. 2112.67 s [opt-env-conf-test] + pure $ not (c1) || c2
  23372. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23373. 2112.67 s [opt-env-conf-test] case settingHelp of
  23374. 2112.67 s [opt-env-conf-test] Nothing ->
  23375. 2112.67 s [opt-env-conf-test]
  23376. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  23377. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23378. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23379. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23380. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23381. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23382. 2112.67 s [opt-env-conf-test] + pure $ False || c2
  23383. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23384. 2112.67 s [opt-env-conf-test] case settingHelp of
  23385. 2112.67 s [opt-env-conf-test] Nothing ->
  23386. 2112.67 s [opt-env-conf-test]
  23387. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  23388. 2112.67 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  23389. 2112.67 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  23390. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23391. 2112.67 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  23392. 2112.67 s [opt-env-conf-test] - pure $ c1 || c2
  23393. 2112.67 s [opt-env-conf-test] + pure $ True || c2
  23394. 2112.67 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  23395. 2112.67 s [opt-env-conf-test] case settingHelp of
  23396. 2112.67 s [opt-env-conf-test] Nothing ->
  23397. 2112.67 s [opt-env-conf-test]
  23398. 2112.67 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:14-24
  23399. 2112.67 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23400. 2112.67 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23401. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23402. 2112.67 s [opt-env-conf-test] c2 <- go p2
  23403. 2112.67 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23404. 2112.67 s [opt-env-conf-test] + pure not ((c1 && c2)) -- TODO: is this right?
  23405. 2112.67 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23406. 2112.67 s [opt-env-conf-test] ParserMany mLoc p -> do
  23407. 2112.67 s [opt-env-conf-test] c <- go p
  23408. 2112.67 s [opt-env-conf-test]
  23409. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  23410. 2112.67 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23411. 2112.67 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23412. 2112.67 s [opt-env-conf-test] c1 <- go p1
  23413. 2112.67 s [opt-env-conf-test] c2 <- go p2
  23414. 2112.67 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23415. 2112.67 s [opt-env-conf-test] + pure False -- TODO: is this right?
  23416. 2112.67 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23417. 2112.67 s [opt-env-conf-test] ParserMany mLoc p -> do
  23418. 2112.67 s [opt-env-conf-test] c <- go p
  23419. 2112.67 s [opt-env-conf-test]
  23420. 2112.67 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  23421. 2112.67 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23422. 2112.67 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23423. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23424. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23425. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23426. 2112.68 s [opt-env-conf-test] + pure True -- TODO: is this right?
  23427. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23428. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23429. 2112.68 s [opt-env-conf-test] c <- go p
  23430. 2112.68 s [opt-env-conf-test]
  23431. 2112.68 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-23
  23432. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23433. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23434. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23435. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23436. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23437. 2112.68 s [opt-env-conf-test] + pure (not (c1 && c2)) -- TODO: is this right?
  23438. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23439. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23440. 2112.68 s [opt-env-conf-test] c <- go p
  23441. 2112.68 s [opt-env-conf-test]
  23442. 2112.68 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Lint.hs:259:15-23
  23443. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23444. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23445. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23446. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23447. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23448. 2112.68 s [opt-env-conf-test] + pure (c1 || c2) -- TODO: is this right?
  23449. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23450. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23451. 2112.68 s [opt-env-conf-test] c <- go p
  23452. 2112.68 s [opt-env-conf-test]
  23453. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  23454. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23455. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23456. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23457. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23458. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23459. 2112.68 s [opt-env-conf-test] + pure (False) -- TODO: is this right?
  23460. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23461. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23462. 2112.68 s [opt-env-conf-test] c <- go p
  23463. 2112.68 s [opt-env-conf-test]
  23464. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  23465. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23466. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23467. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23468. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23469. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23470. 2112.68 s [opt-env-conf-test] + pure (True) -- TODO: is this right?
  23471. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23472. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23473. 2112.68 s [opt-env-conf-test] c <- go p
  23474. 2112.68 s [opt-env-conf-test]
  23475. 2112.68 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:21-23
  23476. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23477. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23478. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23479. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23480. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23481. 2112.68 s [opt-env-conf-test] + pure (c1 && not (c2)) -- TODO: is this right?
  23482. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23483. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23484. 2112.68 s [opt-env-conf-test] c <- go p
  23485. 2112.68 s [opt-env-conf-test]
  23486. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  23487. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23488. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23489. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23490. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23491. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23492. 2112.68 s [opt-env-conf-test] + pure (c1 && False) -- TODO: is this right?
  23493. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23494. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23495. 2112.68 s [opt-env-conf-test] c <- go p
  23496. 2112.68 s [opt-env-conf-test]
  23497. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  23498. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23499. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23500. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23501. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23502. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23503. 2112.68 s [opt-env-conf-test] + pure (c1 && True) -- TODO: is this right?
  23504. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23505. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23506. 2112.68 s [opt-env-conf-test] c <- go p
  23507. 2112.68 s [opt-env-conf-test]
  23508. 2112.68 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-17
  23509. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23510. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23511. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23512. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23513. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23514. 2112.68 s [opt-env-conf-test] + pure (not (c1) && c2) -- TODO: is this right?
  23515. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23516. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23517. 2112.68 s [opt-env-conf-test] c <- go p
  23518. 2112.68 s [opt-env-conf-test]
  23519. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  23520. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23521. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23522. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23523. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23524. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23525. 2112.68 s [opt-env-conf-test] + pure (False && c2) -- TODO: is this right?
  23526. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23527. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23528. 2112.68 s [opt-env-conf-test] c <- go p
  23529. 2112.68 s [opt-env-conf-test]
  23530. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  23531. 2112.68 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  23532. 2112.68 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  23533. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23534. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23535. 2112.68 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  23536. 2112.68 s [opt-env-conf-test] + pure (True && c2) -- TODO: is this right?
  23537. 2112.68 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  23538. 2112.68 s [opt-env-conf-test] ParserMany mLoc p -> do
  23539. 2112.68 s [opt-env-conf-test] c <- go p
  23540. 2112.68 s [opt-env-conf-test]
  23541. 2112.68 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:14-24
  23542. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23543. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23544. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23545. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23546. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23547. 2112.68 s [opt-env-conf-test] + pure not ((c1 || c2))
  23548. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23549. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23550. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23551. 2112.68 s [opt-env-conf-test]
  23552. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  23553. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23554. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23555. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23556. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23557. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23558. 2112.68 s [opt-env-conf-test] + pure False
  23559. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23560. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23561. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23562. 2112.68 s [opt-env-conf-test]
  23563. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  23564. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23565. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23566. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23567. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23568. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23569. 2112.68 s [opt-env-conf-test] + pure True
  23570. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23571. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23572. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23573. 2112.68 s [opt-env-conf-test]
  23574. 2112.68 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-23
  23575. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23576. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23577. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23578. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23579. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23580. 2112.68 s [opt-env-conf-test] + pure (not (c1 || c2))
  23581. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23582. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23583. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23584. 2112.68 s [opt-env-conf-test]
  23585. 2112.68 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Lint.hs:250:15-23
  23586. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23587. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23588. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23589. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23590. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23591. 2112.68 s [opt-env-conf-test] + pure (c1 && c2)
  23592. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23593. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23594. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23595. 2112.68 s [opt-env-conf-test]
  23596. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  23597. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23598. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23599. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23600. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23601. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23602. 2112.68 s [opt-env-conf-test] + pure (False)
  23603. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23604. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23605. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23606. 2112.68 s [opt-env-conf-test]
  23607. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  23608. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23609. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23610. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23611. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23612. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23613. 2112.68 s [opt-env-conf-test] + pure (True)
  23614. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23615. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23616. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23617. 2112.68 s [opt-env-conf-test]
  23618. 2112.68 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:21-23
  23619. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23620. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23621. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23622. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23623. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23624. 2112.68 s [opt-env-conf-test] + pure (c1 || not (c2))
  23625. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23626. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23627. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23628. 2112.68 s [opt-env-conf-test]
  23629. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  23630. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23631. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23632. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23633. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23634. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23635. 2112.68 s [opt-env-conf-test] + pure (c1 || False)
  23636. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23637. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23638. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23639. 2112.68 s [opt-env-conf-test]
  23640. 2112.68 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  23641. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23642. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23643. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23644. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23645. 2112.68 s [opt-env-conf-test] - pure (c1 || c2)
  23646. 2112.68 s [opt-env-conf-test] + pure (c1 || True)
  23647. 2112.68 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23648. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23649. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23650. 2112.68 s [opt-env-conf-test]
  23651. 2112.68 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-17
  23652. 2112.68 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23653. 2112.68 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23654. 2112.68 s [opt-env-conf-test] c1 <- go p1
  23655. 2112.68 s [opt-env-conf-test] c2 <- go p2
  23656. 2112.69 s [opt-env-conf-test] - pure (c1 || c2)
  23657. 2112.69 s [opt-env-conf-test] + pure (not (c1) || c2)
  23658. 2112.69 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23659. 2112.69 s [opt-env-conf-test] c1 <- go p1
  23660. 2112.69 s [opt-env-conf-test] c2 <- go p2
  23661. 2112.69 s [opt-env-conf-test]
  23662. 2112.69 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  23663. 2112.69 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23664. 2112.69 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23665. 2112.69 s [opt-env-conf-test] c1 <- go p1
  23666. 2112.69 s [opt-env-conf-test] c2 <- go p2
  23667. 2112.69 s [opt-env-conf-test] - pure (c1 || c2)
  23668. 2112.69 s [opt-env-conf-test] + pure (False || c2)
  23669. 2112.69 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23670. 2112.69 s [opt-env-conf-test] c1 <- go p1
  23671. 2112.69 s [opt-env-conf-test] c2 <- go p2
  23672. 2112.69 s [opt-env-conf-test]
  23673. 2112.69 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  23674. 2112.69 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  23675. 2112.69 s [opt-env-conf-test] ParserAp p1 p2 -> do
  23676. 2112.69 s [opt-env-conf-test] c1 <- go p1
  23677. 2112.69 s [opt-env-conf-test] c2 <- go p2
  23678. 2112.69 s [opt-env-conf-test] - pure (c1 || c2)
  23679. 2112.69 s [opt-env-conf-test] + pure (True || c2)
  23680. 2112.69 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  23681. 2112.69 s [opt-env-conf-test] c1 <- go p1
  23682. 2112.69 s [opt-env-conf-test] c2 <- go p2
  23683. 2112.69 s [opt-env-conf-test]
  23684. 2112.69 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Check.hs:44:7-71
  23685. 2112.69 s [opt-env-conf-test] @@ -41,7 +41,6 @@
  23686. 2112.69 s [opt-env-conf-test] exitSuccess
  23687. 2112.69 s [opt-env-conf-test] CheckSucceeded _ -> do
  23688. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23689. 2112.69 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout ["Settings parsed successfully."]
  23690. 2112.69 s [opt-env-conf-test] exitSuccess
  23691. 2112.69 s [opt-env-conf-test]
  23692. 2112.69 s [opt-env-conf-test] renderMissingCapabilities :: NonEmpty MissingCapability -> [Chunk]
  23693. 2112.69 s [opt-env-conf-test]
  23694. 2112.69 s [opt-env-conf-test] MaybeOp at src/OptEnvConf/Check.hs:80:42-56
  23695. 2112.69 s [opt-env-conf-test] @@ -77,7 +77,7 @@
  23696. 2112.69 s [opt-env-conf-test] Maybe JSON.Object ->
  23697. 2112.69 s [opt-env-conf-test] IO (CheckResult a)
  23698. 2112.69 s [opt-env-conf-test] runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
  23699. 2112.69 s [opt-env-conf-test] - errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
  23700. 2112.69 s [opt-env-conf-test] + errOrSets <- runParserOn capabilities (Nothing) p args envVars mConfig
  23701. 2112.69 s [opt-env-conf-test] pure $ case errOrSets of
  23702. 2112.69 s [opt-env-conf-test] Right a -> CheckSucceeded a
  23703. 2112.69 s [opt-env-conf-test] Left errs ->
  23704. 2112.69 s [opt-env-conf-test]
  23705. 2112.69 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23706. 2112.69 s [opt-env-conf-test] @@ -125,42 +125,41 @@
  23707. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23708. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23709. 2112.69 s [opt-env-conf-test] exitFailure
  23710. 2112.69 s [opt-env-conf-test] Right i -> case i of
  23711. 2112.69 s [opt-env-conf-test] ShowVersion -> do
  23712. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23713. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23714. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23715. 2112.69 s [opt-env-conf-test] exitSuccess
  23716. 2112.69 s [opt-env-conf-test] RenderMan -> do
  23717. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23718. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23719. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23720. 2112.69 s [opt-env-conf-test] exitSuccess
  23721. 2112.69 s [opt-env-conf-test] RenderDocumentation -> do
  23722. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23723. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23724. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23725. 2112.69 s [opt-env-conf-test] exitSuccess
  23726. 2112.69 s [opt-env-conf-test] RenderNixosOptions -> do
  23727. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23728. 2112.69 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23729. 2112.69 s [opt-env-conf-test] exitSuccess
  23730. 2112.69 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23731. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23732. 2112.69 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23733. 2112.69 s [opt-env-conf-test] exitSuccess
  23734. 2112.69 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23735. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23736. 2112.69 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23737. 2112.69 s [opt-env-conf-test] exitSuccess
  23738. 2112.69 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23739. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23740. 2112.69 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23741. 2112.69 s [opt-env-conf-test] exitSuccess
  23742. 2112.69 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23743. 2112.69 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23744. 2112.69 s [opt-env-conf-test] exitSuccess
  23745. 2112.69 s [opt-env-conf-test] - ParsedNormally a -> pure a
  23746. 2112.69 s [opt-env-conf-test]
  23747. 2112.69 s [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.
  23748. 2112.69 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23749. 2112.69 s [opt-env-conf-test]
  23750. 2112.69 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23751. 2112.69 s [opt-env-conf-test] @@ -125,42 +125,39 @@
  23752. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23753. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23754. 2112.69 s [opt-env-conf-test] exitFailure
  23755. 2112.69 s [opt-env-conf-test] Right i -> case i of
  23756. 2112.69 s [opt-env-conf-test] ShowVersion -> do
  23757. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23758. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23759. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23760. 2112.69 s [opt-env-conf-test] exitSuccess
  23761. 2112.69 s [opt-env-conf-test] RenderMan -> do
  23762. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23763. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23764. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23765. 2112.69 s [opt-env-conf-test] exitSuccess
  23766. 2112.69 s [opt-env-conf-test] RenderDocumentation -> do
  23767. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23768. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23769. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23770. 2112.69 s [opt-env-conf-test] exitSuccess
  23771. 2112.69 s [opt-env-conf-test] RenderNixosOptions -> do
  23772. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23773. 2112.69 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23774. 2112.69 s [opt-env-conf-test] exitSuccess
  23775. 2112.69 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23776. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23777. 2112.69 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23778. 2112.69 s [opt-env-conf-test] exitSuccess
  23779. 2112.69 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23780. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23781. 2112.69 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23782. 2112.69 s [opt-env-conf-test] exitSuccess
  23783. 2112.69 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23784. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23785. 2112.69 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23786. 2112.69 s [opt-env-conf-test] exitSuccess
  23787. 2112.69 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  23788. 2112.69 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  23789. 2112.69 s [opt-env-conf-test] - exitSuccess
  23790. 2112.69 s [opt-env-conf-test] ParsedNormally a -> pure a
  23791. 2112.69 s [opt-env-conf-test]
  23792. 2112.69 s [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.
  23793. 2112.69 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23794. 2112.69 s [opt-env-conf-test]
  23795. 2112.69 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23796. 2112.69 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  23797. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23798. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23799. 2112.69 s [opt-env-conf-test] exitFailure
  23800. 2112.69 s [opt-env-conf-test] Right i -> case i of
  23801. 2112.69 s [opt-env-conf-test] ShowVersion -> do
  23802. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23803. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23804. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23805. 2112.69 s [opt-env-conf-test] exitSuccess
  23806. 2112.69 s [opt-env-conf-test] RenderMan -> do
  23807. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23808. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23809. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23810. 2112.69 s [opt-env-conf-test] exitSuccess
  23811. 2112.69 s [opt-env-conf-test] RenderDocumentation -> do
  23812. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23813. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23814. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23815. 2112.69 s [opt-env-conf-test] exitSuccess
  23816. 2112.69 s [opt-env-conf-test] RenderNixosOptions -> do
  23817. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23818. 2112.69 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23819. 2112.69 s [opt-env-conf-test] exitSuccess
  23820. 2112.69 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23821. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23822. 2112.69 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23823. 2112.69 s [opt-env-conf-test] exitSuccess
  23824. 2112.69 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23825. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23826. 2112.69 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23827. 2112.69 s [opt-env-conf-test] - exitSuccess
  23828. 2112.69 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  23829. 2112.69 s [opt-env-conf-test] - progname <- getProgName
  23830. 2112.69 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  23831. 2112.69 s [opt-env-conf-test] exitSuccess
  23832. 2112.69 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23833. 2112.69 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23834. 2112.69 s [opt-env-conf-test] exitSuccess
  23835. 2112.69 s [opt-env-conf-test] ParsedNormally a -> pure a
  23836. 2112.69 s [opt-env-conf-test]
  23837. 2112.69 s [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.
  23838. 2112.69 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23839. 2112.69 s [opt-env-conf-test]
  23840. 2112.69 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23841. 2112.69 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  23842. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23843. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23844. 2112.69 s [opt-env-conf-test] exitFailure
  23845. 2112.69 s [opt-env-conf-test] Right i -> case i of
  23846. 2112.69 s [opt-env-conf-test] ShowVersion -> do
  23847. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23848. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23849. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23850. 2112.69 s [opt-env-conf-test] exitSuccess
  23851. 2112.69 s [opt-env-conf-test] RenderMan -> do
  23852. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23853. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23854. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23855. 2112.69 s [opt-env-conf-test] exitSuccess
  23856. 2112.69 s [opt-env-conf-test] RenderDocumentation -> do
  23857. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23858. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23859. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23860. 2112.69 s [opt-env-conf-test] exitSuccess
  23861. 2112.69 s [opt-env-conf-test] RenderNixosOptions -> do
  23862. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23863. 2112.69 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23864. 2112.69 s [opt-env-conf-test] exitSuccess
  23865. 2112.69 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23866. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23867. 2112.69 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23868. 2112.69 s [opt-env-conf-test] - exitSuccess
  23869. 2112.69 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  23870. 2112.69 s [opt-env-conf-test] - progname <- getProgName
  23871. 2112.69 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  23872. 2112.69 s [opt-env-conf-test] exitSuccess
  23873. 2112.69 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23874. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23875. 2112.69 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23876. 2112.69 s [opt-env-conf-test] exitSuccess
  23877. 2112.69 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23878. 2112.69 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23879. 2112.69 s [opt-env-conf-test] exitSuccess
  23880. 2112.69 s [opt-env-conf-test] ParsedNormally a -> pure a
  23881. 2112.69 s [opt-env-conf-test]
  23882. 2112.69 s [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.
  23883. 2112.69 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23884. 2112.69 s [opt-env-conf-test]
  23885. 2112.69 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23886. 2112.69 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  23887. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23888. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23889. 2112.69 s [opt-env-conf-test] exitFailure
  23890. 2112.69 s [opt-env-conf-test] Right i -> case i of
  23891. 2112.69 s [opt-env-conf-test] ShowVersion -> do
  23892. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23893. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23894. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23895. 2112.69 s [opt-env-conf-test] exitSuccess
  23896. 2112.69 s [opt-env-conf-test] RenderMan -> do
  23897. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23898. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23899. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23900. 2112.69 s [opt-env-conf-test] exitSuccess
  23901. 2112.69 s [opt-env-conf-test] RenderDocumentation -> do
  23902. 2112.69 s [opt-env-conf-test] progname <- getProgName
  23903. 2112.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23904. 2112.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23905. 2112.70 s [opt-env-conf-test] exitSuccess
  23906. 2112.70 s [opt-env-conf-test] RenderNixosOptions -> do
  23907. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23908. 2112.70 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23909. 2112.70 s [opt-env-conf-test] - exitSuccess
  23910. 2112.70 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  23911. 2112.70 s [opt-env-conf-test] - progname <- getProgName
  23912. 2112.70 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  23913. 2112.70 s [opt-env-conf-test] exitSuccess
  23914. 2112.70 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23915. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23916. 2112.70 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23917. 2112.70 s [opt-env-conf-test] exitSuccess
  23918. 2112.70 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23919. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23920. 2112.70 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23921. 2112.70 s [opt-env-conf-test] exitSuccess
  23922. 2112.70 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23923. 2112.70 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23924. 2112.70 s [opt-env-conf-test] exitSuccess
  23925. 2112.70 s [opt-env-conf-test] ParsedNormally a -> pure a
  23926. 2112.70 s [opt-env-conf-test]
  23927. 2112.70 s [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.
  23928. 2112.70 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23929. 2112.70 s [opt-env-conf-test]
  23930. 2112.70 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23931. 2112.70 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  23932. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23933. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23934. 2112.70 s [opt-env-conf-test] exitFailure
  23935. 2112.70 s [opt-env-conf-test] Right i -> case i of
  23936. 2112.70 s [opt-env-conf-test] ShowVersion -> do
  23937. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23938. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23939. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23940. 2112.70 s [opt-env-conf-test] exitSuccess
  23941. 2112.70 s [opt-env-conf-test] RenderMan -> do
  23942. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23943. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23944. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23945. 2112.70 s [opt-env-conf-test] exitSuccess
  23946. 2112.70 s [opt-env-conf-test] RenderDocumentation -> do
  23947. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23948. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23949. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23950. 2112.70 s [opt-env-conf-test] - exitSuccess
  23951. 2112.70 s [opt-env-conf-test] - RenderNixosOptions -> do
  23952. 2112.70 s [opt-env-conf-test] - progname <- getProgName
  23953. 2112.70 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23954. 2112.70 s [opt-env-conf-test] exitSuccess
  23955. 2112.70 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23956. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23957. 2112.70 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23958. 2112.70 s [opt-env-conf-test] exitSuccess
  23959. 2112.70 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23960. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23961. 2112.70 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23962. 2112.70 s [opt-env-conf-test] exitSuccess
  23963. 2112.70 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23964. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23965. 2112.70 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23966. 2112.70 s [opt-env-conf-test] exitSuccess
  23967. 2112.70 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23968. 2112.70 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23969. 2112.70 s [opt-env-conf-test] exitSuccess
  23970. 2112.70 s [opt-env-conf-test] ParsedNormally a -> pure a
  23971. 2112.70 s [opt-env-conf-test]
  23972. 2112.70 s [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.
  23973. 2112.70 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23974. 2112.70 s [opt-env-conf-test]
  23975. 2112.70 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23976. 2112.70 s [opt-env-conf-test] @@ -125,42 +125,37 @@
  23977. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23978. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23979. 2112.70 s [opt-env-conf-test] exitFailure
  23980. 2112.70 s [opt-env-conf-test] Right i -> case i of
  23981. 2112.70 s [opt-env-conf-test] ShowVersion -> do
  23982. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23983. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23984. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23985. 2112.70 s [opt-env-conf-test] exitSuccess
  23986. 2112.70 s [opt-env-conf-test] RenderMan -> do
  23987. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23988. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23989. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23990. 2112.70 s [opt-env-conf-test] exitSuccess
  23991. 2112.70 s [opt-env-conf-test] - RenderDocumentation -> do
  23992. 2112.70 s [opt-env-conf-test] - progname <- getProgName
  23993. 2112.70 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  23994. 2112.70 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23995. 2112.70 s [opt-env-conf-test] - exitSuccess
  23996. 2112.70 s [opt-env-conf-test] RenderNixosOptions -> do
  23997. 2112.70 s [opt-env-conf-test] progname <- getProgName
  23998. 2112.70 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23999. 2112.70 s [opt-env-conf-test] exitSuccess
  24000. 2112.70 s [opt-env-conf-test] BashCompletionScript progPath -> do
  24001. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24002. 2112.70 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  24003. 2112.70 s [opt-env-conf-test] exitSuccess
  24004. 2112.70 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  24005. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24006. 2112.70 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  24007. 2112.70 s [opt-env-conf-test] exitSuccess
  24008. 2112.70 s [opt-env-conf-test] FishCompletionScript progPath -> do
  24009. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24010. 2112.70 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  24011. 2112.70 s [opt-env-conf-test] exitSuccess
  24012. 2112.70 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  24013. 2112.70 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  24014. 2112.70 s [opt-env-conf-test] exitSuccess
  24015. 2112.70 s [opt-env-conf-test] ParsedNormally a -> pure a
  24016. 2112.70 s [opt-env-conf-test]
  24017. 2112.70 s [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.
  24018. 2112.70 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  24019. 2112.70 s [opt-env-conf-test]
  24020. 2112.70 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  24021. 2112.70 s [opt-env-conf-test] @@ -125,42 +125,37 @@
  24022. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  24023. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  24024. 2112.70 s [opt-env-conf-test] exitFailure
  24025. 2112.70 s [opt-env-conf-test] Right i -> case i of
  24026. 2112.70 s [opt-env-conf-test] ShowVersion -> do
  24027. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24028. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  24029. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  24030. 2112.70 s [opt-env-conf-test] exitSuccess
  24031. 2112.70 s [opt-env-conf-test] - RenderMan -> do
  24032. 2112.70 s [opt-env-conf-test] - progname <- getProgName
  24033. 2112.70 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  24034. 2112.70 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  24035. 2112.70 s [opt-env-conf-test] - exitSuccess
  24036. 2112.70 s [opt-env-conf-test] RenderDocumentation -> do
  24037. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24038. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  24039. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  24040. 2112.70 s [opt-env-conf-test] exitSuccess
  24041. 2112.70 s [opt-env-conf-test] RenderNixosOptions -> do
  24042. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24043. 2112.70 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  24044. 2112.70 s [opt-env-conf-test] exitSuccess
  24045. 2112.70 s [opt-env-conf-test] BashCompletionScript progPath -> do
  24046. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24047. 2112.70 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  24048. 2112.70 s [opt-env-conf-test] exitSuccess
  24049. 2112.70 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  24050. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24051. 2112.70 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  24052. 2112.70 s [opt-env-conf-test] exitSuccess
  24053. 2112.70 s [opt-env-conf-test] FishCompletionScript progPath -> do
  24054. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24055. 2112.70 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  24056. 2112.70 s [opt-env-conf-test] exitSuccess
  24057. 2112.70 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  24058. 2112.70 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  24059. 2112.70 s [opt-env-conf-test] exitSuccess
  24060. 2112.70 s [opt-env-conf-test] ParsedNormally a -> pure a
  24061. 2112.70 s [opt-env-conf-test]
  24062. 2112.70 s [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.
  24063. 2112.70 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  24064. 2112.70 s [opt-env-conf-test]
  24065. 2112.70 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Main.hs:132:21-88
  24066. 2112.70 s [opt-env-conf-test] @@ -129,7 +129,6 @@
  24067. 2112.70 s [opt-env-conf-test] ShowVersion -> do
  24068. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24069. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  24070. 2112.70 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  24071. 2112.70 s [opt-env-conf-test] exitSuccess
  24072. 2112.70 s [opt-env-conf-test] RenderMan -> do
  24073. 2112.70 s [opt-env-conf-test] progname <- getProgName
  24074. 2112.70 s [opt-env-conf-test]
  24075. 2112.70 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Main.hs:126:19-69
  24076. 2112.70 s [opt-env-conf-test] @@ -123,7 +123,6 @@
  24077. 2112.70 s [opt-env-conf-test] case errOrResult of
  24078. 2112.70 s [opt-env-conf-test] Left errs -> do
  24079. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  24080. 2112.70 s [opt-env-conf-test] - hPutChunksLocaleWith tc stderr $ renderErrors errs
  24081. 2112.70 s [opt-env-conf-test] exitFailure
  24082. 2112.70 s [opt-env-conf-test] Right i -> case i of
  24083. 2112.70 s [opt-env-conf-test] ShowVersion -> do
  24084. 2112.70 s [opt-env-conf-test]
  24085. 2112.70 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Main.hs:100:15-78
  24086. 2112.70 s [opt-env-conf-test] @@ -97,9 +97,6 @@
  24087. 2112.70 s [opt-env-conf-test] exitFailure
  24088. 2112.70 s [opt-env-conf-test] Right mCommandDoc -> do
  24089. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  24090. 2112.70 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  24091. 2112.70 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  24092. 2112.70 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  24093. 2112.70 s [opt-env-conf-test] exitSuccess
  24094. 2112.70 s [opt-env-conf-test] else do
  24095. 2112.70 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  24096. 2112.70 s [opt-env-conf-test]
  24097. 2112.70 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  24098. 2112.70 s [opt-env-conf-test] @@ -97,9 +97,8 @@
  24099. 2112.70 s [opt-env-conf-test] exitFailure
  24100. 2112.70 s [opt-env-conf-test] Right mCommandDoc -> do
  24101. 2112.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  24102. 2112.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  24103. 2112.70 s [opt-env-conf-test] Nothing -> renderHelpPage progname version progDesc docs
  24104. 2112.70 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  24105. 2112.70 s [opt-env-conf-test] exitSuccess
  24106. 2112.70 s [opt-env-conf-test] else do
  24107. 2112.70 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  24108. 2112.70 s [opt-env-conf-test]
  24109. 2112.70 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:83:12-21
  24110. 2112.70 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  24111. 2112.70 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  24112. 2112.70 s [opt-env-conf-test]
  24113. 2112.70 s [opt-env-conf-test] mDebugMode <-
  24114. 2112.70 s [opt-env-conf-test] - if debugMode
  24115. 2112.70 s [opt-env-conf-test] + if not (debugMode)
  24116. 2112.70 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  24117. 2112.70 s [opt-env-conf-test] else pure Nothing
  24118. 2112.70 s [opt-env-conf-test]
  24119. 2112.70 s [opt-env-conf-test]
  24120. 2112.70 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  24121. 2112.70 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  24122. 2112.70 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  24123. 2112.70 s [opt-env-conf-test]
  24124. 2112.70 s [opt-env-conf-test] mDebugMode <-
  24125. 2112.70 s [opt-env-conf-test] - if debugMode
  24126. 2112.70 s [opt-env-conf-test] + if False
  24127. 2112.70 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  24128. 2112.70 s [opt-env-conf-test] else pure Nothing
  24129. 2112.70 s [opt-env-conf-test]
  24130. 2112.70 s [opt-env-conf-test]
  24131. 2112.70 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  24132. 2112.70 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  24133. 2112.70 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  24134. 2112.70 s [opt-env-conf-test]
  24135. 2112.70 s [opt-env-conf-test] mDebugMode <-
  24136. 2112.70 s [opt-env-conf-test] - if debugMode
  24137. 2112.70 s [opt-env-conf-test] + if True
  24138. 2112.70 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  24139. 2112.70 s [opt-env-conf-test] else pure Nothing
  24140. 2112.70 s [opt-env-conf-test]
  24141. 2112.70 s [opt-env-conf-test]
  24142. 2112.70 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:175:18-23
  24143. 2112.70 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  24144. 2112.70 s [opt-env-conf-test] | x == arg -> (True, xs)
  24145. 2112.70 s [opt-env-conf-test] | otherwise ->
  24146. 2112.70 s [opt-env-conf-test] let (found, rest) = go xs
  24147. 2112.70 s [opt-env-conf-test] - in (found, x : rest)
  24148. 2112.70 s [opt-env-conf-test] + in (not (found), x : rest)
  24149. 2112.70 s [opt-env-conf-test]
  24150. 2112.70 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  24151. 2112.70 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  24152. 2112.70 s [opt-env-conf-test]
  24153. 2112.70 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:175:18-23
  24154. 2112.70 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  24155. 2112.70 s [opt-env-conf-test] | x == arg -> (True, xs)
  24156. 2112.70 s [opt-env-conf-test] | otherwise ->
  24157. 2112.70 s [opt-env-conf-test] let (found, rest) = go xs
  24158. 2112.70 s [opt-env-conf-test] - in (found, x : rest)
  24159. 2112.70 s [opt-env-conf-test] + in (False, x : rest)
  24160. 2112.70 s [opt-env-conf-test]
  24161. 2112.70 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  24162. 2112.70 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  24163. 2112.70 s [opt-env-conf-test]
  24164. 2112.70 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  24165. 2112.70 s [opt-env-conf-test] @@ -196,13 +196,12 @@
  24166. 2112.70 s [opt-env-conf-test] [] -> (caps, [])
  24167. 2112.70 s [opt-env-conf-test] (x : xs) ->
  24168. 2112.70 s [opt-env-conf-test] let t = T.pack x
  24169. 2112.70 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  24170. 2112.70 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  24171. 2112.70 s [opt-env-conf-test] Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  24172. 2112.70 s [opt-env-conf-test] Just capName -> go (enableCapability (Capability capName) caps) xs
  24173. 2112.70 s [opt-env-conf-test] Nothing ->
  24174. 2112.70 s [opt-env-conf-test] let (finalCaps, rest) = go caps xs
  24175. 2112.70 s [opt-env-conf-test] in (finalCaps, x : rest)
  24176. 2112.70 s [opt-env-conf-test]
  24177. 2112.70 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  24178. 2112.70 s [opt-env-conf-test] -- is supposed to.
  24179. 2112.70 s [opt-env-conf-test]
  24180. 2112.70 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  24181. 2112.70 s [opt-env-conf-test] @@ -198,11 +198,10 @@
  24182. 2112.70 s [opt-env-conf-test] let t = T.pack x
  24183. 2112.70 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  24184. 2112.70 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  24185. 2112.70 s [opt-env-conf-test] Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  24186. 2112.71 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  24187. 2112.71 s [opt-env-conf-test] Nothing ->
  24188. 2112.71 s [opt-env-conf-test] let (finalCaps, rest) = go caps xs
  24189. 2112.71 s [opt-env-conf-test] in (finalCaps, x : rest)
  24190. 2112.71 s [opt-env-conf-test]
  24191. 2112.71 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  24192. 2112.71 s [opt-env-conf-test] -- is supposed to.
  24193. 2112.71 s [opt-env-conf-test]
  24194. 2112.71 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  24195. 2112.71 s [opt-env-conf-test] @@ -66,10 +66,9 @@
  24196. 2112.71 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  24197. 2112.71 s [opt-env-conf-test]
  24198. 2112.71 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  24199. 2112.71 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  24200. 2112.71 s [opt-env-conf-test] [] -> []
  24201. 2112.71 s [opt-env-conf-test] [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  24202. 2112.71 s [opt-env-conf-test] - _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  24203. 2112.71 s [opt-env-conf-test]
  24204. 2112.71 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  24205. 2112.71 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  24206. 2112.71 s [opt-env-conf-test]
  24207. 2112.71 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  24208. 2112.71 s [opt-env-conf-test] @@ -66,10 +66,9 @@
  24209. 2112.71 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  24210. 2112.71 s [opt-env-conf-test]
  24211. 2112.71 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  24212. 2112.71 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  24213. 2112.71 s [opt-env-conf-test] - [] -> []
  24214. 2112.71 s [opt-env-conf-test] [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  24215. 2112.71 s [opt-env-conf-test] _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  24216. 2112.71 s [opt-env-conf-test]
  24217. 2112.71 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  24218. 2112.71 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  24219. 2112.71 s [opt-env-conf-test]
  24220. 2112.71 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:87:27-50
  24221. 2112.71 s [opt-env-conf-test] @@ -84,9 +84,8 @@
  24222. 2112.71 s [opt-env-conf-test] syntaxChunk = fore blue . chunk . T.pack
  24223. 2112.71 s [opt-env-conf-test]
  24224. 2112.71 s [opt-env-conf-test] capabilitiesChunks :: Set Capability -> [Chunk]
  24225. 2112.71 s [opt-env-conf-test] capabilitiesChunks caps = case Set.toList caps of
  24226. 2112.71 s [opt-env-conf-test] - [] -> []
  24227. 2112.71 s [opt-env-conf-test] cs -> intersperse ", " (map capabilityChunk cs)
  24228. 2112.71 s [opt-env-conf-test]
  24229. 2112.71 s [opt-env-conf-test] capabilityChunk :: Capability -> Chunk
  24230. 2112.71 s [opt-env-conf-test] capabilityChunk = fore green . chunk . unCapability
  24231. 2112.71 s [opt-env-conf-test]
  24232. 2112.71 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
  24233. 2112.71 s [opt-env-conf-test] @@ -93,33 +93,25 @@
  24234. 2112.71 s [opt-env-conf-test] map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
  24235. 2112.71 s [opt-env-conf-test] )
  24236. 2112.71 s [opt-env-conf-test]
  24237. 2112.71 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  24238. 2112.71 s [opt-env-conf-test] Nothing ->
  24239. 2112.71 s [opt-env-conf-test] if fp == "."
  24240. 2112.71 s [opt-env-conf-test] then do
  24241. 2112.71 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  24242. 2112.71 s [opt-env-conf-test] pure
  24243. 2112.71 s [opt-env-conf-test] ( map fromRelDir ds,
  24244. 2112.71 s [opt-env-conf-test] map fromRelFile fs
  24245. 2112.71 s [opt-env-conf-test] )
  24246. 2112.71 s [opt-env-conf-test] else pur ppIndent $ do
  24247. 2112.71 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:122:26-31
  24248. 2112.71 s [opt-env-conf-test] @@ -119,18 +119,17 @@
  24249. 2112.71 s [opt-env-conf-test] ParserSelect fe ff -> do
  24250. 2112.71 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  24251. 2112.71 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  24252. 2112.71 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  24253. 2112.71 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  24254. 2112.71 s [opt-env-conf-test] ppIndent $ do
  24255. 2112.71 s [opt-env-conf-test] debug ["Trying left side."]
  24256. 2112.71 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  24257. 2112.71 s [opt-env-conf-test] case eor of
  24258. 2112.71 s [opt-env-conf-test] Just a -> do
  24259. 2112.71 s [opt-env-conf-test] debug ["Left side succeeded."]
  24260. 2112.71 s [opt-env-conf-test] pure a
  24261. 2112.71 s [opt-env-conf-test] Nothing -> do
  24262. 2112.71 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  24263. 2112.71 s [opt-env-conf-test] ppIndent $ go p2
  24264. 2112.71 s [opt-env-conf-test] ParserMany mLoc p' -> do
  24265. 2112.71 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  24266. 2112.71 s [opt-env-conf-test] ppIndent $ do
  24267. 2112.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
  24268. 2112.71 s [opt-env-conf-test] @@ -72,17 +72,14 @@
  24269. 2112.71 s [opt-env-conf-test] let codecTups = maybe [] NE.toList (settingConfigVals s)
  24270. 2112.71 s [opt-env-conf-test] in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
  24271. 2112.71 s [opt-env-conf-test] let go' :: NonEmpty Text -> Map Text Option
  24272. 2112.71 s [opt-env-conf-test] go' (p :| ps) = case NE.nonEmpty ps of
  24273. 2112.71 s [opt-env-conf-test] Nothing ->
  24274. 2112.71 s [opt-env-conf-test] let oc =
  24275. 2112.71 s [opt-env-conf-test] maybe
  24276. 2112.71 s [opt-env-conf-test] (optionalFieldWith' p configValSettingCodec)
  24277. 2112.71 s [opt-env-conf-test] (optionalFieldWith p configValSettingCodec)
  24278. 2112.71 s [opt-env-conf-test] (T.pack <$> settingHelp s)
  24279. 2112.71 s [opt-env-conf-test] in objectCodecNixOptions oc
  24280. 2112.71 s [opt-env-conf-test] - Just rest ->
  24281. 2112.71 s [opt-env-conf-test] - let m = go' rest
  24282. 2112.71 s [opt-env-conf-test] - in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  24283. 2112.71 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  24284. 2112.71 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  24285. 2112.71 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  24286. 2112.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  24287. 2112.71 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  24288. 2112.71 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  24289. 2112.71 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  24290. 2112.71 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  24291. 2112.71 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  24292. 2112.71 s [opt-env-conf-test] (Nothing, _) -> o2
  24293. 2112.71 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  24294. 2112.71 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  24295. 2112.71 s [opt-env-conf-test]
  24296. 2112.71 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  24297. 2112.71 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  24298. 2112.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
  24299. 2112.71 s [opt-env-conf-test] @@ -633,15 +633,12 @@
  24300. 2112.71 s [opt-env-conf-test] e <- ask
  24301. 2112.71 s [opt-env-conf-test] results <- liftIO $ runPP pp s e
  24302. 2112.71 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  24303. 2112.71 s [opt-env-conf-test] case errOrRes of
  24304. 2112.71 s [opt-env-conf-test] Failure errs ->
  24305. 2112.71 s [opt-env-conf-test] if all errorIsForgivable errs
  24306. 2112.71 s [opt-env-conf-test] then do
  24307. 2112.71 s [opt-env-conf-test] pure Nothing
  24308. 2112.71 s [opt-env-conf-test] else ppErrors' errs
  24309. 2112.71 s [opt-env-conf-test] - Success a -> do
  24310. 2112.71 s [opt-env-conf-test] - put s' -- Only set state if parsing succeeded.
  24311. 2112.71 s [opt-env-conf-test] - pure $ Just a
  24312. 2112.71 s [opt-env-conf-test]
  24313. 2112.71 s [opt-env-conf-test] ppNonDet :: NonDetT IO a -> PP a
  24314. 2112.71 s [opt-env-conf-test] ppNonDet = PP . lift . lift . lift
  24315. 2112.71 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Error.hs:55:41-51
  24316. 2112.71 s [opt-env-conf-test] @@ -52,7 +52,7 @@
  24317. 2112.71 s [opt-env-conf-test] ParseErrorEmpty -> True
  24318. 2112.71 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  24319. 2112.71 s [opt-env-conf-test] ParseErrorNoReaders -> False
  24320. 2112.71 s [opt-env-conf-test] - ParseErrorCheckFailed forgivable _ -> forgivable
  24321. 2112.71 s [opt-env-conf-test] + ParseErrorCheckFailed forgivable _ -> not (forgivable)
  24322. 2112.71 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  24323. 2112.71 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  24324. 2112.71 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  24325. 2112.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
  24326. 2112.71 s [opt-env-conf-test] @@ -487,9 +487,8 @@
  24327. 2112.71 s [opt-env-conf-test] Right a -> Right a
  24328. 2112.71 s [opt-env-conf-test] go' errs = \case
  24329. 2112.71 s [opt-env-conf-test] [] -> Left errs
  24330. 2112.71 s [opt-env-conf-test] (r : rl) -> case runReader r s of
  24331. 2112.71 s [opt-env-conf-test] Left err -> go' (err <| errs) rl
  24332. 2112.71 s [opt-env-conf-test] - Right a -> Right a
  24333. 2112.71 s [opt-env-conf-test]
  24334. 2112.71 s [opt-env-conf-test] runHelpParser ::
  24335. 2112.71 s [opt-env-conf-test] -- DebugMode
  24336. 2112.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
  24337. 2112.71 s [opt-env-conf-test] @@ -584,16 +584,10 @@
  24338. 2112.71 s [opt-env-conf-test] debug ["No argument found for choosing a command."]
  24339. 2112.71 s [opt-env-conf-test] pure Nothing
  24340. 2112.71 s [opt-env-conf-test] Just s -> do
  24341. 2112.71 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  24342. 2112.71 s [opt-env-conf-test] Nothing -> do
  24343. 2112.71 s [opt-env-conf-test] debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  24344. 2112.71 s [opt-env-conf-test] pure Nothing
  24345. 2112.71 s [opt-env-conf-test] - Just c -> do
  24346. 2112.71 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  24347. 2112.71 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  24348. 2112.71 s [opt-env-conf-test] - pure $ case mRes of
  24349. 2112.71 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  24350. 2112.71 s [opt-env-conf-test] - Just res -> pure res
  24351. 2112.71 s [opt-env-conf-test]
  24352. 2112.71 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  24353. 2112.71 s [opt-env-conf-test] deriving
  24354. 2112.71 s [opt-env-conf-test] e ([], [])
  24355. 2112.71 s [opt-env-conf-test] - Just (Abs af) -> do
  24356. 2112.71 s [opt-env-conf-test] - let dir = parent af
  24357. 2112.71 s [opt-env-conf-test] - let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
  24358. 2112.71 s [opt-env-conf-test] - (ds, fs) <- listDirForgiving dir
  24359. 2112.71 s [opt-env-conf-test] - pure
  24360. 2112.71 s [opt-env-conf-test] - ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
  24361. 2112.71 s [opt-env-conf-test] - map (fromAbsFile . (dir </>)) $ filterHidden fs
  24362. 2112.71 s [opt-env-conf-test] - )
  24363. 2112.71 s [opt-env-conf-test] Just (Rel rf) -> do
  24364. 2112.71 s [opt-env-conf-test] let dir = parent rf
  24365. 2112.71 s [opt-env-conf-test] let ad = baseDir </> dir
  24366. 2112.71 s [opt-env-conf-test] let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  24367. 2112.71 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  24368. 2112.71 s [opt-env-conf-test] pure
  24369. 2112.71 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  24370. 2112.71 s [opt-env-conf-test] map (fromRelFile . (dir </>)) $ filterHidden fs
  24371. 2112.71 s [opt-env-conf-test] )
  24372. 2112.71 s [opt-env-conf-test]
  24373. 2112.71 s [opt-env-conf-test] pure $
  24374. 2112.71 s [opt-env-conf-test] concat
  24375. 2112.71 s [opt-env-conf-test]
  24376. 2112.71 s [opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:117:31-43
  24377. 2112.71 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  24378. 2112.71 s [opt-env-conf-test] Just (Rel rf) -> do
  24379. 2112.71 s [opt-env-conf-test] let dir = parent rf
  24380. 2112.71 s [opt-env-conf-test] let ad = baseDir </> dir
  24381. 2112.71 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  24382. 2112.71 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  24383. 2112.71 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  24384. 2112.71 s [opt-env-conf-test] pure
  24385. 2112.71 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  24386. 2112.71 s [opt-env-conf-test]
  24387. 2112.71 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  24388. 2112.71 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  24389. 2112.71 s [opt-env-conf-test] Just (Rel rf) -> do
  24390. 2112.71 s [opt-env-conf-test] let dir = parent rf
  24391. 2112.71 s [opt-env-conf-test] let ad = baseDir </> dir
  24392. 2112.71 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  24393. 2112.71 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  24394. 2112.71 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  24395. 2112.71 s [opt-env-conf-test] pure
  24396. 2112.71 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  24397. 2112.71 s [opt-env-conf-test]
  24398. 2112.71 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  24399. 2112.71 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  24400. 2112.71 s [opt-env-conf-test] Just (Rel rf) -> do
  24401. 2112.71 s [opt-env-conf-test] let dir = parent rf
  24402. 2112.71 s [opt-env-conf-test] let ad = baseDir </> dir
  24403. 2112.71 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  24404. 2112.71 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  24405. 2112.71 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  24406. 2112.71 s [opt-env-conf-test] pure
  24407. 2112.71 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  24408. 2112.71 s [opt-env-conf-test]
  24409. 2112.71 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:74:18-27
  24410. 2112.71 s [opt-env-conf-test] @@ -71,14 +71,13 @@
  24411. 2112.71 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
  24412. 2112.71 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  24413. 2112.71 s [opt-env-conf-test] (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
  24414. 2112.71 s [opt-env-conf-test] Nothing -> case fp of
  24415. 2112.71 s [opt-env-conf-test] [] -> do
  24416. 2112.71 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  24417. 2112.71 s [opt-env-conf-test] pure
  24418. 2112.71 s [opt-env-conf-test] ( map fromRelDir $ filter (not . hiddenRel) ds,
  24419. 2112.71 s [opt-env-conf-test] map fromRelFile $ filter (not . hiddenRel) fs
  24420. 2112.71 s [opt-env-conf-test] )
  24421. 2112.71 s [opt-env-conf-test] - _ -> pure ([], [])
  24422. 2112.71 s [opt-env-conf-test] Just (Abs ad) -> do
  24423. 2112.71 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  24424. 2112.71 s [opt-env-conf-test] pure
  24425. 2112.71 s [opt-env-conf-test]
  24426. 2112.71 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
  24427. 2112.71 s [opt-env-conf-test] @@ -168,24 +168,19 @@
  24428. 2112.71 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  24429. 2112.71 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  24430. 2112.71 s [opt-env-conf-test]
  24431. 2112.71 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  24432. 2112.71 s [opt-env-conf-test] Nothing -> pure []
  24433. 2112.71 s [opt-env-conf-test] - Just (Abs af) -> do
  24434. 2112.71 s [opt-env-conf-test] - let dir = parent af
  24435. 2112.71 s [opt-env-conf-test] - let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  24436. 2112.71 s [opt-env-conf-test] - (ds, _) <- listDirForgiving dir
  24437. 2112.71 s [opt-env-conf-test] - pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  24438. 2112.71 s [opt-env-conf-test] Just (Rel rf) ->
  24439. 2112.71 s [opt-env-conf-test] if fp == "."
  24440. 2112.71 s [opt-env-conf-test] then do
  24441. 2112.71 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  24442. 2112.71 s [opt-env-conf-test] pure (map fromRelDir ds)
  24443. 2112.71 s [opt-env-conf-test] else do
  24444. 2112.71 s [opt-env-conf-test] let dir = parent rf
  24445. 2112.71 s [opt-env-conf-test] let ad = baseDir </> dir
  24446. 2112.71 s [opt-env-conf-test] let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  24447. 2112.71 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  24448. 2112.71 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  24449. 2112.71 s [opt-env-conf-test]
  24450. 2112.71 s [opt-env-conf-test] pure $
  24451. 2112.71 s [opt-env-conf-test] concat
  24452. 2112.71 s [opt-env-conf-test]
  24453. 2112.71 s [opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:186:35-47
  24454. 2112.71 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  24455. 2112.71 s [opt-env-conf-test] else do
  24456. 2112.71 s [opt-env-conf-test] let dir = parent rf
  24457. 2112.71 s [opt-env-conf-test] let ad = baseDir </> dir
  24458. 2112.71 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  24459. 2112.71 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  24460. 2112.71 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  24461. 2112.71 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  24462. 2112.71 s [opt-env-conf-test]
  24463. 2112.71 s [opt-env-conf-test]
  24464. 2112.71 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  24465. 2112.72 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  24466. 2112.72 s [opt-env-conf-test] else do
  24467. 2112.72 s [opt-env-conf-test] let dir = parent rf
  24468. 2112.72 s [opt-env-conf-test] let ad = baseDir </> dir
  24469. 2112.72 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  24470. 2112.72 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  24471. 2112.72 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  24472. 2112.72 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  24473. 2112.72 s [opt-env-conf-test]
  24474. 2112.72 s [opt-env-conf-test]
  24475. 2112.72 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  24476. 2112.72 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  24477. 2112.72 s [opt-env-conf-test] else do
  24478. 2112.72 s [opt-env-conf-test] let dir = parent rf
  24479. 2112.72 s [opt-env-conf-test] let ad = baseDir </> dir
  24480. 2112.72 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  24481. 2112.72 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  24482. 2112.72 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  24483. 2112.72 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  24484. 2112.72 s [opt-env-conf-test]
  24485. 2112.72 s [opt-env-conf-test]
  24486. 2112.72 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:179:12-21
  24487. 2112.72 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  24488. 2112.72 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  24489. 2112.72 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  24490. 2112.72 s [opt-env-conf-test] Just (Rel rf) ->
  24491. 2112.72 s [opt-env-conf-test] - if fp == "."
  24492. 2112.72 s [opt-env-conf-test] + if False
  24493. 2112.72 s [opt-env-conf-test] then do
  24494. 2112.72 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  24495. 2112.72 s [opt-env-conf-test] pure (map fromRelDir ds)
  24496. 2112.72 s [opt-env-conf-test]
  24497. 2112.72 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
  24498. 2112.72 s [opt-env-conf-test] @@ -154,19 +154,16 @@
  24499. 2112.72 s [opt-env-conf-test] directoryPathFromDir baseDir prefix fp fp' = do
  24500. 2112.72 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  24501. 2112.72 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  24502. 2112.72 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  24503. 2112.72 s [opt-env-conf-test] Nothing -> case fp of
  24504. 2112.72 s [opt-env-conf-test] [] -> do
  24505. 2112.72 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  24506. 2112.72 s [opt-env-conf-test] pure (map fromRelDir $ filter (not . hiddenRel) ds)
  24507. 2112.72 s [opt-env-conf-test] _ -> pure []
  24508. 2112.72 s [opt-env-conf-test] - Just (Abs ad) -> do
  24509. 2112.72 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  24510. 2112.72 s [opt-env-conf-test] - pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  24511. 2112.72 s [opt-env-conf-test] Just (Rel rd) -> do
  24512. 2112.72 s [opt-env-conf-test] let ad = baseDir </> rd
  24513. 2112.72 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  24514. 2112.72 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  24515. 2112.72 s [opt-env-conf-test]
  24516. 2112.72 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  24517. 2112.72 s [opt-env-conf-test] Nothing -> pure []
  24518. 2112.72 s [opt-env-conf-test]
  24519. 2112.72 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
  24520. 2112.72 s [opt-env-conf-test] @@ -155,11 +155,10 @@
  24521. 2112.72 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  24522. 2112.72 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  24523. 2112.72 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  24524. 2112.72 s [opt-env-conf-test] Nothing -> case fp of
  24525. 2112.72 s [opt-env-conf-test] [] -> do
  24526. 2112.72 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  24527. 2112.72 s [opt-env-conf-test] pure (map fromRelDir $ filter (not . hiddenRel) ds)
  24528. 2112.72 s [opt-env-conf-test] - _ -> pure []
  24529. 2112.72 s [opt-env-conf-test] Just (Abs ad) -> do
  24530. 2112.72 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  24531. 2112.72 s [opt-env-conf-test] pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  24532. 2112.72 s [opt-env-conf-test]
  24533. 2112.72 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Completer.hs:267:22-44
  24534. 2112.72 s [opt-env-conf-test] @@ -264,7 +264,6 @@
  24535. 2112.72 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  24536. 2112.72 s [opt-env-conf-test] in case rest of
  24537. 2112.72 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  24538. 2112.72 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  24539. 2112.72 s [opt-env-conf-test]
  24540. 2112.72 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  24541. 2112.72 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  24542. 2112.72 s [opt-env-conf-test]
  24543. 2112.72 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:267:29-43
  24544. 2112.72 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  24545. 2112.72 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  24546. 2112.72 s [opt-env-conf-test] in case rest of
  24547. 2112.72 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  24548. 2112.72 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  24549. 2112.72 s [opt-env-conf-test] + _ : rest' -> [seg | True] <> splitOnSlash rest'
  24550. 2112.72 s [opt-env-conf-test]
  24551. 2112.72 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  24552. 2112.72 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  24553. 2112.72 s [opt-env-conf-test]
  24554. 2112.72 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Completer.hs:266:15-37
  24555. 2112.72 s [opt-env-conf-test] @@ -263,7 +263,6 @@
  24556. 2112.72 s [opt-env-conf-test] splitOnSlash s =
  24557. 2112.72 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  24558. 2112.72 s [opt-env-conf-test] in case rest of
  24559. 2112.72 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  24560. 2112.72 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  24561. 2112.72 s [opt-env-conf-test]
  24562. 2112.72 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  24563. 2112.72 s [opt-env-conf-test]
  24564. 2112.72 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:266:22-36
  24565. 2112.72 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  24566. 2112.72 s [opt-env-conf-test] splitOnSlash s =
  24567. 2112.72 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  24568. 2112.72 s [opt-env-conf-test] in case rest of
  24569. 2112.72 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  24570. 2112.72 s [opt-env-conf-test] + [] -> [seg | True]
  24571. 2112.72 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  24572. 2112.72 s [opt-env-conf-test]
  24573. 2112.72 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  24574. 2112.72 s [opt-env-conf-test]
  24575. 2112.72 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:272:22-22
  24576. 2112.72 s [opt-env-conf-test] @@ -269,9 +269,8 @@
  24577. 2112.72 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  24578. 2112.72 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  24579. 2112.72 s [opt-env-conf-test] applyComponent d ".." = parent d
  24580. 2112.72 s [opt-env-conf-test] applyComponent d c = case parseRelDir c of
  24581. 2112.72 s [opt-env-conf-test] - Nothing -> d
  24582. 2112.72 s [opt-env-conf-test] Just rd -> d </> rd
  24583. 2112.72 s [opt-env-conf-test]
  24584. 2112.72 s [opt-env-conf-test] filterPrefix :: String -> [CompletionResult] -> [CompletionResult]
  24585. 2112.72 s [opt-env-conf-test] filterPrefix s = filter ((s `isPrefixOf`) . completionResultValue)
  24586. 2112.72 s [opt-env-conf-test]
  24587. 2112.72 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
  24588. 2112.72 s [opt-env-conf-test] @@ -367,11 +367,10 @@
  24589. 2112.72 s [opt-env-conf-test] | not (null commandDocs)
  24590. 2112.72 s [opt-env-conf-test] ],
  24591. 2112.72 s [opt-env-conf-test] concat
  24592. 2112.72 s [opt-env-conf-test] [ [ headerChunks "Options",
  24593. 2112.72 s [opt-env-conf-test] renderLongOptDocs optDocs
  24594. 2112.72 s [opt-env-conf-test] ]
  24595. 2112.72 s [opt-env-conf-test] - | not (nullDocs optDocs)
  24596. 2112.72 s [opt-env-conf-test] ],
  24597. 2112.72 s [opt-env-conf-test] concat
  24598. 2112.72 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  24599. 2112.72 s [opt-env-conf-test] renderEnvDocs envDocs
  24600. 2112.72 s [opt-env-conf-test]
  24601. 2112.72 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:373:17-39
  24602. 2112.72 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  24603. 2112.72 s [opt-env-conf-test] [ [ headerChunks "Options",
  24604. 2112.72 s [opt-env-conf-test] renderLongOptDocs optDocs
  24605. 2112.72 s [opt-env-conf-test] ]
  24606. 2112.72 s [opt-env-conf-test] - | not (nullDocs optDocs)
  24607. 2112.72 s [opt-env-conf-test] + | True
  24608. 2112.72 s [opt-env-conf-test] ],
  24609. 2112.72 s [opt-env-conf-test] concat
  24610. 2112.72 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  24611. 2112.72 s [opt-env-conf-test]
  24612. 2112.72 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
  24613. 2112.72 s [opt-env-conf-test] @@ -326,11 +326,10 @@
  24614. 2112.72 s [opt-env-conf-test] | not (null commandDocs)
  24615. 2112.72 s [opt-env-conf-test] ],
  24616. 2112.72 s [opt-env-conf-test] concat
  24617. 2112.72 s [opt-env-conf-test] [ [ [".Sh ", "OPTIONS"],
  24618. 2112.72 s [opt-env-conf-test] renderLongOptDocs optDocs
  24619. 2112.72 s [opt-env-conf-test] ]
  24620. 2112.72 s [opt-env-conf-test] - | not (nullDocs optDocs)
  24621. 2112.72 s [opt-env-conf-test] ],
  24622. 2112.72 s [opt-env-conf-test] concat
  24623. 2112.72 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  24624. 2112.72 s [opt-env-conf-test] renderEnvDocs envDocs
  24625. 2112.72 s [opt-env-conf-test]
  24626. 2112.72 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:332:17-39
  24627. 2112.72 s [opt-env-conf-test] @@ -329,7 +329,7 @@
  24628. 2112.72 s [opt-env-conf-test] [ [ [".Sh ", "OPTIONS"],
  24629. 2112.72 s [opt-env-conf-test] renderLongOptDocs optDocs
  24630. 2112.72 s [opt-env-conf-test] ]
  24631. 2112.72 s [opt-env-conf-test] - | not (nullDocs optDocs)
  24632. 2112.72 s [opt-env-conf-test] + | True
  24633. 2112.72 s [opt-env-conf-test] ],
  24634. 2112.72 s [opt-env-conf-test] concat
  24635. 2112.72 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  24636. 2112.72 s [opt-env-conf-test]
  24637. 2112.72 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
  24638. 2112.72 s [opt-env-conf-test] @@ -565,21 +565,20 @@
  24639. 2112.72 s [opt-env-conf-test] [] -> []
  24640. 2112.72 s [opt-env-conf-test] [d] -> go isTopLevel d
  24641. 2112.72 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24642. 2112.72 s [opt-env-conf-test] case setDocHelp d of
  24643. 2112.72 s [opt-env-conf-test] - Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  24644. 2112.72 s [opt-env-conf-test] Just h ->
  24645. 2112.72 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  24646. 2112.72 s [opt-env-conf-test] in concat
  24647. 2112.72 s [opt-env-conf-test] [ concat
  24648. 2112.72 s [opt-env-conf-test] [ concat
  24649. 2112.72 s [opt-env-conf-test] [ indent $ renderSetDocHeader (Just h),
  24650. 2112.72 s [opt-env-conf-test] indent $ concatMap renderSetDocWithoutHeader $ d : sds,
  24651. 2112.72 s [opt-env-conf-test] [[]]
  24652. 2112.72 s [opt-env-conf-test] ]
  24653. 2112.72 s [opt-env-conf-test] | not isTopLevel
  24654. 2112.72 s [opt-env-conf-test] ],
  24655. 2112.72 s [opt-env-conf-test] goOr isTopLevel rest
  24656. 2112.72 s [opt-env-conf-test] ]
  24657. 2112.72 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  24658. 2112.72 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  24659. 2112.72 s [opt-env-conf-test] goSameHelp h = \case
  24660. 2112.72 s [opt-env-conf-test]
  24661. 2112.72 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:581:26-36
  24662. 2112.72 s [opt-env-conf-test] @@ -578,7 +578,7 @@
  24663. 2112.72 s [opt-env-conf-test] ]
  24664. 2112.72 s [opt-env-conf-test] | not isTopLevel
  24665. 2112.72 s [opt-env-conf-test] ],
  24666. 2112.72 s [opt-env-conf-test] - goOr isTopLevel rest
  24667. 2112.72 s [opt-env-conf-test] + goOr True rest
  24668. 2112.72 s [opt-env-conf-test] ]
  24669. 2112.72 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  24670. 2112.72 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  24671. 2112.72 s [opt-env-conf-test]
  24672. 2112.72 s [opt-env-conf-test] Negate at src/OptEnvConf/Doc.hs:566:17-27
  24673. 2112.72 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  24674. 2112.72 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  24675. 2112.72 s [opt-env-conf-test] goOr isTopLevel = \case
  24676. 2112.72 s [opt-env-conf-test] [] -> []
  24677. 2112.72 s [opt-env-conf-test] - [d] -> go isTopLevel d
  24678. 2112.72 s [opt-env-conf-test] + [d] -> go not (isTopLevel) d
  24679. 2112.72 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24680. 2112.72 s [opt-env-conf-test] case setDocHelp d of
  24681. 2112.72 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  24682. 2112.72 s [opt-env-conf-test]
  24683. 2112.72 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:566:17-27
  24684. 2112.72 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  24685. 2112.72 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  24686. 2112.72 s [opt-env-conf-test] goOr isTopLevel = \case
  24687. 2112.72 s [opt-env-conf-test] [] -> []
  24688. 2112.72 s [opt-env-conf-test] - [d] -> go isTopLevel d
  24689. 2112.72 s [opt-env-conf-test] + [d] -> go True d
  24690. 2112.72 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24691. 2112.72 s [opt-env-conf-test] case setDocHelp d of
  24692. 2112.72 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  24693. 2112.72 s [opt-env-conf-test]
  24694. 2112.72 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:588:12-34
  24695. 2112.72 s [opt-env-conf-test] @@ -585,7 +585,7 @@
  24696. 2112.72 s [opt-env-conf-test] goSameHelp h = \case
  24697. 2112.73 s [opt-env-conf-test] [] -> ([], [])
  24698. 2112.73 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24699. 2112.73 s [opt-env-conf-test] - if setDocHelp d == Just h
  24700. 2112.73 s [opt-env-conf-test] + if True
  24701. 2112.73 s [opt-env-conf-test] then
  24702. 2112.73 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  24703. 2112.73 s [opt-env-conf-test] in (d : sds, rest)
  24704. 2112.73 s [opt-env-conf-test]
  24705. 2112.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
  24706. 2112.73 s [opt-env-conf-test] @@ -529,12 +529,11 @@
  24707. 2112.73 s [opt-env-conf-test] [] -> []
  24708. 2112.73 s [opt-env-conf-test] [d] -> [go' d]
  24709. 2112.73 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24710. 2112.73 s [opt-env-conf-test] case setDocHelp d of
  24711. 2112.73 s [opt-env-conf-test] - Nothing -> go' (AnyDocsSingle d) : goOr' ds
  24712. 2112.73 s [opt-env-conf-test] Just h ->
  24713. 2112.73 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  24714. 2112.73 s [opt-env-conf-test] ne = d :| sds
  24715. 2112.73 s [opt-env-conf-test] in AnyDocsSingle ne : goOr' rest
  24716. 2112.73 s [opt-env-conf-test] (d : ds) -> go' d : goOr' ds
  24717. 2112.73 s [opt-env-conf-test]
  24718. 2112.73 s [opt-env-conf-test] renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
  24719. 2112.73 s [opt-env-conf-test]
  24720. 2112.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
  24721. 2112.73 s [opt-env-conf-test] @@ -256,18 +256,16 @@
  24722. 2112.73 s [opt-env-conf-test] concat
  24723. 2112.73 s [opt-env-conf-test] [ concatMap
  24724. 2112.73 s [opt-env-conf-test] ( \(key, schema) ->
  24725. 2112.73 s [opt-env-conf-test] case jsonSchemaChunkLines schema of
  24726. 2112.73 s [opt-env-conf-test] - [line] ->
  24727. 2112.73 s [opt-env-conf-test] - [["config: ", confValChunk key, ": "] ++ line]
  24728. 2112.73 s [opt-env-conf-test] ls ->
  24729. 2112.73 s [opt-env-conf-test] ["config:"]
  24730. 2112.73 s [opt-env-conf-test] : indent
  24731. 2112.73 s [opt-env-conf-test] ( case ls of
  24732. 2112.73 s [opt-env-conf-test] [] -> [["TODO"]]
  24733. 2112.73 s [opt-env-conf-test] (l : ll) ->
  24734. 2112.73 s [opt-env-conf-test] ([confValChunk key, ": "] ++ l)
  24735. 2112.73 s [opt-env-conf-test] : indent ll
  24736. 2112.73 s [opt-env-conf-test] )
  24737. 2112.73 s [opt-env-conf-test] )
  24738. 2112.73 s [opt-env-conf-test] (NE.toList confs)
  24739. 2112.73 s [opt-env-conf-test] | confs <- maybeToList setDocConfKeys
  24740. 2112.73 s [opt-env-conf-test]
  24741. 2112.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
  24742. 2112.73 s [opt-env-conf-test] @@ -262,11 +262,10 @@
  24743. 2112.73 s [opt-env-conf-test] ls ->
  24744. 2112.73 s [opt-env-conf-test] ["config:"]
  24745. 2112.73 s [opt-env-conf-test] : indent
  24746. 2112.73 s [opt-env-conf-test] ( case ls of
  24747. 2112.73 s [opt-env-conf-test] - [] -> [["TODO"]]
  24748. 2112.73 s [opt-env-conf-test] (l : ll) ->
  24749. 2112.73 s [opt-env-conf-test] ([confValChunk key, ": "] ++ l)
  24750. 2112.73 s [opt-env-conf-test] : indent ll
  24751. 2112.73 s [opt-env-conf-test] )
  24752. 2112.73 s [opt-env-conf-test] )
  24753. 2112.73 s [opt-env-conf-test] (NE.toList confs)
  24754. 2112.73 s [opt-env-conf-test]
  24755. 2112.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
  24756. 2112.73 s [opt-env-conf-test] @@ -658,29 +658,28 @@
  24757. 2112.73 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24758. 2112.73 s [opt-env-conf-test] [] -> Nothing
  24759. 2112.73 s [opt-env-conf-test] cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
  24760. 2112.73 s [opt-env-conf-test] AnyDocsSingle mOd -> case mOd of
  24761. 2112.73 s [opt-env-conf-test] - Nothing -> Nothing
  24762. 2112.73 s [opt-env-conf-test] Just OptDoc {..} ->
  24763. 2112.73 s [opt-env-conf-test] Just
  24764. 2112.73 s [opt-env-conf-test] $ ( if isJust optDocDefault
  24765. 2112.73 s [opt-env-conf-test] then bracketise
  24766. 2112.73 s [opt-env-conf-test] else id
  24767. 2112.73 s [opt-env-conf-test] )
  24768. 2112.73 s [opt-env-conf-test] $ unwordsChunks
  24769. 2112.73 s [opt-env-conf-test] $ concat
  24770. 2112.73 s [opt-env-conf-test] [ [ [mMetavarChunk optDocMetavar]
  24771. 2112.73 s [opt-env-conf-test] | optDocTryArgument
  24772. 2112.73 s [opt-env-conf-test] ],
  24773. 2112.73 s [opt-env-conf-test] [ concat $ maybeToList $ dashedChunks optDocDasheds
  24774. 2112.73 s [opt-env-conf-test] | optDocTrySwitch
  24775. 2112.73 s [opt-env-conf-test] ],
  24776. 2112.73 s [opt-env-conf-test] [ concat
  24777. 2112.73 s [opt-env-conf-test] [ concat $ maybeToList $ dashedChunks optDocDasheds,
  24778. 2112.73 s [opt-env-conf-test] [" ", mMetavarChunk optDocMetavar]
  24779. 2112.73 s [opt-env-conf-test] ]
  24780. 2112.73 s [opt-env-conf-test] | optDocTryOption
  24781. 2112.73 s [opt-env-conf-test] ]
  24782. 2112.73 s [opt-env-conf-test] ]
  24783. 2112.73 s [opt-env-conf-test]
  24784. 2112.73 s [opt-env-conf-test] orChunk :: Chunk
  24785. 2112.73 s [opt-env-conf-test] orChunk = fore cyan "|"
  24786. 2112.73 s [opt-env-conf-test]
  24787. 2112.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  24788. 2112.73 s [opt-env-conf-test] @@ -650,10 +650,9 @@
  24789. 2112.73 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  24790. 2112.73 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  24791. 2112.73 s [opt-env-conf-test] AnyDocsAnd ds ->
  24792. 2112.73 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24793. 2112.73 s [opt-env-conf-test] [] -> Nothing
  24794. 2112.73 s [opt-env-conf-test] - [c] -> Just c
  24795. 2112.73 s [opt-env-conf-test] cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24796. 2112.73 s [opt-env-conf-test] AnyDocsOr ds ->
  24797. 2112.73 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24798. 2112.73 s [opt-env-conf-test] [] -> Nothing
  24799. 2112.73 s [opt-env-conf-test]
  24800. 2112.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  24801. 2112.73 s [opt-env-conf-test] @@ -650,10 +650,9 @@
  24802. 2112.73 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  24803. 2112.73 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  24804. 2112.73 s [opt-env-conf-test] AnyDocsAnd ds ->
  24805. 2112.73 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24806. 2112.73 s [opt-env-conf-test] - [] -> Nothing
  24807. 2112.73 s [opt-env-conf-test] [c] -> Just c
  24808. 2112.73 s [opt-env-conf-test] cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24809. 2112.73 s [opt-env-conf-test] AnyDocsOr ds ->
  24810. 2112.73 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24811. 2112.73 s [opt-env-conf-test] [] -> Nothing
  24812. 2112.73 s [opt-env-conf-test]
  24813. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:656:30-31
  24814. 2112.73 s [opt-env-conf-test] @@ -653,7 +653,7 @@
  24815. 2112.73 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24816. 2112.73 s [opt-env-conf-test] [] -> Nothing
  24817. 2112.73 s [opt-env-conf-test] [c] -> Just c
  24818. 2112.73 s [opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24819. 2112.73 s [opt-env-conf-test] + cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
  24820. 2112.73 s [opt-env-conf-test] AnyDocsOr ds ->
  24821. 2112.73 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24822. 2112.73 s [opt-env-conf-test] [] -> Nothing
  24823. 2112.73 s [opt-env-conf-test]
  24824. 2112.73 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Doc.hs:637:38-43
  24825. 2112.73 s [opt-env-conf-test] @@ -634,7 +634,7 @@
  24826. 2112.73 s [opt-env-conf-test] withoutNothings =
  24827. 2112.73 s [opt-env-conf-test] filter
  24828. 2112.73 s [opt-env-conf-test] ( \case
  24829. 2112.73 s [opt-env-conf-test] - AnyDocsSingle Nothing -> False
  24830. 2112.73 s [opt-env-conf-test] + AnyDocsSingle Nothing -> True
  24831. 2112.73 s [opt-env-conf-test] AnyDocsAnd [] -> False
  24832. 2112.73 s [opt-env-conf-test] AnyDocsOr [] -> False
  24833. 2112.73 s [opt-env-conf-test] _ -> True
  24834. 2112.73 s [opt-env-conf-test]
  24835. 2112.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
  24836. 2112.73 s [opt-env-conf-test] @@ -819,11 +819,9 @@
  24837. 2112.73 s [opt-env-conf-test] [exampleValuesChunks confDocExamples | not (null confDocExamples)],
  24838. 2112.73 s [opt-env-conf-test] concatMap
  24839. 2112.73 s [opt-env-conf-test] ( \(key, schema) ->
  24840. 2112.73 s [opt-env-conf-test] case jsonSchemaChunkLines schema of
  24841. 2112.73 s [opt-env-conf-test] - [line] ->
  24842. 2112.73 s [opt-env-conf-test] - [[confValChunk key, ": "] ++ line]
  24843. 2112.73 s [opt-env-conf-test] ls ->
  24844. 2112.73 s [opt-env-conf-test] [confValChunk key, ":"] : indent ls
  24845. 2112.73 s [opt-env-conf-test] )
  24846. 2112.73 s [opt-env-conf-test] (NE.toList confDocKeys)
  24847. 2112.73 s [opt-env-conf-test] ]
  24848. 2112.73 s [opt-env-conf-test]
  24849. 2112.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:67:3-96
  24850. 2112.73 s [opt-env-conf-test] @@ -64,10 +64,8 @@
  24851. 2112.73 s [opt-env-conf-test]
  24852. 2112.73 s [opt-env-conf-test] parserLintTest :: Parser a -> IO ()
  24853. 2112.73 s [opt-env-conf-test] parserLintTest parser =
  24854. 2112.73 s [opt-env-conf-test] case lintParser parser of
  24855. 2112.73 s [opt-env-conf-test] Nothing -> pure ()
  24856. 2112.73 s [opt-env-conf-test] - Just errs ->
  24857. 2112.73 s [opt-env-conf-test] - expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
  24858. 2112.73 s [opt-env-conf-test]
  24859. 2112.73 s [opt-env-conf-test] settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
  24860. 2112.73 s [opt-env-conf-test] settingsParserArgsTest = parserArgsTest settingsParser
  24861. 2112.73 s [opt-env-conf-test]
  24862. 2112.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:149:13-24
  24863. 2112.73 s [opt-env-conf-test] @@ -146,14 +146,13 @@
  24864. 2112.73 s [opt-env-conf-test]
  24865. 2112.73 s [opt-env-conf-test] generatedFileComment :: CallStack -> T.Text
  24866. 2112.73 s [opt-env-conf-test] generatedFileComment cs =
  24867. 2112.73 s [opt-env-conf-test] let loc = case getCallStack cs of
  24868. 2112.73 s [opt-env-conf-test] (_, srcLoc) : _ ->
  24869. 2112.73 s [opt-env-conf-test] packageName (Stack.srcLocPackage srcLoc)
  24870. 2112.73 s [opt-env-conf-test] <> ":"
  24871. 2112.73 s [opt-env-conf-test] <> Stack.srcLocFile srcLoc
  24872. 2112.73 s [opt-env-conf-test] <> ":"
  24873. 2112.73 s [opt-env-conf-test] <> show (Stack.srcLocStartLine srcLoc)
  24874. 2112.73 s [opt-env-conf-test] - [] -> "unknown"
  24875. 2112.73 s [opt-env-conf-test] in T.pack $
  24876. 2112.73 s [opt-env-conf-test] unlines $
  24877. 2112.73 s [opt-env-conf-test] map
  24878. 2112.73 s [opt-env-conf-test]
  24879. 2112.73 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Test.hs:180:19-84
  24880. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24881. 2112.73 s [opt-env-conf-test] where
  24882. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24883. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24884. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24885. 2112.73 s [opt-env-conf-test] + isVersion v = not (null v) || elem '.' v && all (\c -> isDigit c || c == '.') v
  24886. 2112.73 s [opt-env-conf-test]
  24887. 2112.73 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Test.hs:180:35-84
  24888. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24889. 2112.73 s [opt-env-conf-test] where
  24890. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24891. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24892. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24893. 2112.73 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v || all (\c -> isDigit c || c == '.') v
  24894. 2112.73 s [opt-env-conf-test]
  24895. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-84
  24896. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24897. 2112.73 s [opt-env-conf-test] where
  24898. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24899. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24900. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24901. 2112.73 s [opt-env-conf-test] + isVersion v = not (null v) && True
  24902. 2112.73 s [opt-env-conf-test]
  24903. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:49-84
  24904. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24905. 2112.73 s [opt-env-conf-test] where
  24906. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24907. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24908. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24909. 2112.73 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && True
  24910. 2112.73 s [opt-env-conf-test]
  24911. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-81
  24912. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24913. 2112.73 s [opt-env-conf-test] where
  24914. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24915. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24916. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24917. 2112.73 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True) v
  24918. 2112.73 s [opt-env-conf-test]
  24919. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:73-81
  24920. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24921. 2112.73 s [opt-env-conf-test] where
  24922. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24923. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24924. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24925. 2112.73 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
  24926. 2112.73 s [opt-env-conf-test]
  24927. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-69
  24928. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24929. 2112.73 s [opt-env-conf-test] where
  24930. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24931. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24932. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24933. 2112.73 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
  24934. 2112.73 s [opt-env-conf-test]
  24935. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-45
  24936. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24937. 2112.73 s [opt-env-conf-test] where
  24938. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24939. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24940. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24941. 2112.73 s [opt-env-conf-test] + isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
  24942. 2112.73 s [opt-env-conf-test]
  24943. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:19-31
  24944. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24945. 2112.73 s [opt-env-conf-test] where
  24946. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24947. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24948. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24949. 2112.73 s [opt-env-conf-test] + isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
  24950. 2112.73 s [opt-env-conf-test]
  24951. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:23-31
  24952. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24953. 2112.73 s [opt-env-conf-test] where
  24954. 2112.73 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24955. 2112.73 s [opt-env-conf-test] go (c : rest) = c : go rest
  24956. 2112.73 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24957. 2112.73 s [opt-env-conf-test] + isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
  24958. 2112.73 s [opt-env-conf-test]
  24959. 2112.73 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:24-30
  24960. 2112.73 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24961. 2112.73 s [opt-env-conf-test] where
  24962. 2112.74 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24963. 2112.74 s [opt-env-conf-test] go (c : rest) = c : go rest
  24964. 2112.74 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24965. 2112.74 s [opt-env-conf-test] + isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24966. 2112.74 s [opt-env-conf-test] checkPhase completed in 27 minutes 48 seconds
  24967. 2112.74 s [opt-env-conf-test] Phase: haddockPhase
  24968. 2112.74 s [opt-env-conf-test] Phase: installPhase
  24969. 2112.74 s [opt-env-conf-test] Installing library in /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-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-3WilUK79pGbKEOnYVCQCp5
  24970. 2112.95 s [opt-env-conf-test] Phase: fixupPhase
  24971. 2112.97 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4
  24972. 2112.98 s [opt-env-conf-test] shrinking /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-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-3WilUK79pGbKEOnYVCQCp5-ghc9.10.3.so
  24973. 2113.01 s [opt-env-conf-test] shrinking /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4/bin/opt-env-conf-test
  24974. 2113.04 s [opt-env-conf-test] checking for references to /build/ in /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4...
  24975. 2113.08 s [opt-env-conf-test] patching script interpreter paths in /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4
  24976. 2113.08 s [opt-env-conf-test] stripping (with command strip and flags -S -p) in /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4/lib /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4/bin
  24977. 2113.16 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/krf5j3msrd398pmg9711psc83m0bzl39-opt-env-conf-test-0.0.0.4-manifest
  24978. 2113.17 s [opt-env-conf-test] checking for references to /build/ in /nix/store/krf5j3msrd398pmg9711psc83m0bzl39-opt-env-conf-test-0.0.0.4-manifest...
  24979. 2113.18 s [opt-env-conf-test] patching script interpreter paths in /nix/store/krf5j3msrd398pmg9711psc83m0bzl39-opt-env-conf-test-0.0.0.4-manifest
  24980. 2113.19 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/3m2m0sr1y9h4fq5v0c002xdvm9826fs4-opt-env-conf-test-0.0.0.4-report
  24981. 2113.26 s [opt-env-conf-test] checking for references to /build/ in /nix/store/3m2m0sr1y9h4fq5v0c002xdvm9826fs4-opt-env-conf-test-0.0.0.4-report...
  24982. 2113.34 s [opt-env-conf-test] patching script interpreter paths in /nix/store/3m2m0sr1y9h4fq5v0c002xdvm9826fs4-opt-env-conf-test-0.0.0.4-report
  24983. 2113.51 s [post-build-hook] Uploading to cachix cache "sydtest": /nix/store/3m2m0sr1y9h4fq5v0c002xdvm9826fs4-opt-env-conf-test-0.0.0.4-report /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4 /nix/store/krf5j3msrd398pmg9711psc83m0bzl39-opt-env-conf-test-0.0.0.4-manifest
  24984. 2114.15 s [post-build-hook] Pushing 3 paths (268 are already present) using zstd to cache sydtest ⏳
  24985. 2114.15 s [post-build-hook]
  24986. 2114.52 s [post-build-hook] Pushing /nix/store/krf5j3msrd398pmg9711psc83m0bzl39-opt-env-conf-test-0.0.0.4-manifest (33.58 KiB)
  24987. 2114.53 s [post-build-hook] Pushing /nix/store/3m2m0sr1y9h4fq5v0c002xdvm9826fs4-opt-env-conf-test-0.0.0.4-report (2.93 MiB)
  24988. 2114.54 s [post-build-hook] Pushing /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4 (15.02 MiB)
  24989. 2116.24 s [post-build-hook]
  24990. 2116.24 s [post-build-hook] All done.
  24991. 2116.26 s [post-build-hook] Uploading to the NixCI staging cache: /nix/store/3m2m0sr1y9h4fq5v0c002xdvm9826fs4-opt-env-conf-test-0.0.0.4-report /nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4 /nix/store/krf5j3msrd398pmg9711psc83m0bzl39-opt-env-conf-test-0.0.0.4-manifest
  24992. 2116.31 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  24993. 2116.68 s [post-build-hook] copying 3 paths...
  24994. 2116.68 s [post-build-hook] copying path '/nix/store/krf5j3msrd398pmg9711psc83m0bzl39-opt-env-conf-test-0.0.0.4-manifest' to 'https://cache.staging.nix-ci.com'...
  24995. 2116.68 s [post-build-hook] copying path '/nix/store/3m2m0sr1y9h4fq5v0c002xdvm9826fs4-opt-env-conf-test-0.0.0.4-report' to 'https://cache.staging.nix-ci.com'...
  24996. 2116.68 s [post-build-hook] copying path '/nix/store/kg6vc3ciivlcjplr4j87pcag4c9fllqp-opt-env-conf-test-0.0.0.4' to 'https://cache.staging.nix-ci.com'...
  24997. 2120.58 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  24998. 2120.80 s [post-build-hook] copying 1 paths...
  24999. 2121.20 s [post-build-hook] copying path '/nix/store/ia3vvp6ack61n1s2pbjryxcwym6pq0sq-opt-env-conf-test-0.0.0.4.drv' to 'https://cache.staging.nix-ci.com'...
  25000. 2121.20 s Progress: 8 of 9 built
Tail Raw Logs