1. 840.02 s [opt-env-conf-test] ]
  2. 840.02 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  3. 840.02 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4. 840.02 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader"
  5. 840.02 s [opt-env-conf-test] +],
  6. 840.02 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  7. 840.02 s [opt-env-conf-test] ]
  8. 840.02 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  9. 840.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
  10. 840.02 s [opt-env-conf-test] @@ -205,7 +205,7 @@
  11. 840.02 s [opt-env-conf-test] ]
  12. 840.02 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  13. 840.02 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  14. 840.02 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  15. 840.02 s [opt-env-conf-test] + []
  16. 840.02 s [opt-env-conf-test] ]
  17. 840.02 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  18. 840.02 s [opt-env-conf-test] [ [ functionChunk "conf",
  19. 840.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
  20. 840.02 s [opt-env-conf-test] @@ -198,10 +198,9 @@
  21. 840.02 s [opt-env-conf-test] ]
  22. 840.02 s [opt-env-conf-test] ]
  23. 840.02 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  24. 840.02 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  25. 840.02 s [opt-env-conf-test] - " was called with an unknown command: ",
  26. 840.03 s [opt-env-conf-test] - commandChunk c
  27. 840.03 s [opt-env-conf-test] - ]
  28. 840.03 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  29. 840.03 s [opt-env-conf-test] + " was called with an unknown command: "
  30. 840.03 s [opt-env-conf-test] +]
  31. 840.03 s [opt-env-conf-test] ]
  32. 840.03 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  33. 840.03 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  34. 840.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
  35. 840.03 s [opt-env-conf-test] @@ -205,7 +205,7 @@
  36. 840.03 s [opt-env-conf-test] ]
  37. 840.03 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  38. 840.03 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  39. 840.03 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  40. 840.03 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  41. 840.03 s [opt-env-conf-test] ]
  42. 840.03 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  43. 840.03 s [opt-env-conf-test] [ [ functionChunk "conf",
  44. 840.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
  45. 840.03 s [opt-env-conf-test] @@ -204,9 +204,7 @@
  46. 840.03 s [opt-env-conf-test] ]
  47. 840.03 s [opt-env-conf-test] ]
  48. 840.03 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  49. 840.03 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  50. 840.03 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  51. 840.03 s [opt-env-conf-test] - ]
  52. 840.03 s [opt-env-conf-test] + []
  53. 840.03 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  54. 840.03 s [opt-env-conf-test] [ [ functionChunk "conf",
  55. 840.03 s [opt-env-conf-test] " or ",
  56. 840.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  57. 840.03 s [opt-env-conf-test] @@ -208,11 +208,10 @@
  58. 840.03 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  59. 840.03 s [opt-env-conf-test] ]
  60. 840.03 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  61. 840.03 s [opt-env-conf-test] - [ [ functionChunk "conf",
  62. 840.03 s [opt-env-conf-test] - " or ",
  63. 840.03 s [opt-env-conf-test] - functionChunk "name",
  64. 840.03 s [opt-env-conf-test] - " was called with no way to load configuration."
  65. 840.03 s [opt-env-conf-test] - ],
  66. 840.03 s [opt-env-conf-test] + [ [ functionChunk "conf",
  67. 840.03 s [opt-env-conf-test] + " or ",
  68. 840.03 s [opt-env-conf-test] + functionChunk "name"
  69. 840.03 s [opt-env-conf-test] +],
  70. 840.03 s [opt-env-conf-test] [ "You can load configuration with ",
  71. 840.03 s [opt-env-conf-test] functionChunk "withConfig",
  72. 840.03 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  73. 840.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  74. 840.03 s [opt-env-conf-test] @@ -213,12 +213,11 @@
  75. 840.03 s [opt-env-conf-test] functionChunk "name",
  76. 840.03 s [opt-env-conf-test] " was called with no way to load configuration."
  77. 840.03 s [opt-env-conf-test] ],
  78. 840.03 s [opt-env-conf-test] - [ "You can load configuration with ",
  79. 840.03 s [opt-env-conf-test] - functionChunk "withConfig",
  80. 840.03 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  81. 840.03 s [opt-env-conf-test] - functionChunk "withoutConfig",
  82. 840.03 s [opt-env-conf-test] - "."
  83. 840.03 s [opt-env-conf-test] - ]
  84. 840.03 s [opt-env-conf-test] + [ "You can load configuration with ",
  85. 840.03 s [opt-env-conf-test] + functionChunk "withConfig",
  86. 840.03 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  87. 840.03 s [opt-env-conf-test] + functionChunk "withoutConfig"
  88. 840.03 s [opt-env-conf-test] +]
  89. 840.03 s [opt-env-conf-test] ]
  90. 840.03 s [opt-env-conf-test] LintErrorManyInfinite ->
  91. 840.03 s [opt-env-conf-test] [ [ functionChunk "many",
  92. 840.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
  93. 840.03 s [opt-env-conf-test] @@ -208,18 +208,18 @@
  94. 840.03 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  95. 840.03 s [opt-env-conf-test] ]
  96. 840.03 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  97. 840.03 s [opt-env-conf-test] - [ [ functionChunk "conf",
  98. 840.03 s [opt-env-conf-test] - " or ",
  99. 840.03 s [opt-env-conf-test] - functionChunk "name",
  100. 840.03 s [opt-env-conf-test] - " was called with no way to load configuration."
  101. 840.03 s [opt-env-conf-test] - ],
  102. 840.03 s [opt-env-conf-test] - [ "You can load configuration with ",
  103. 840.03 s [opt-env-conf-test] - functionChunk "withConfig",
  104. 840.03 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  105. 840.03 s [opt-env-conf-test] - functionChunk "withoutConfig",
  106. 840.03 s [opt-env-conf-test] - "."
  107. 840.03 s [opt-env-conf-test] - ]
  108. 840.03 s [opt-env-conf-test] - ]
  109. 840.03 s [opt-env-conf-test] + [ [ functionChunk "conf",
  110. 840.03 s [opt-env-conf-test] + " or ",
  111. 840.50 s [opt-env-conf-test] + functionChunk "name",
  112. 840.50 s [opt-env-conf-test] + " was called with no way to load configuration."
  113. 840.50 s [opt-env-conf-test] + ],
  114. 840.50 s [opt-env-conf-test] + [ "You can load configuration with ",
  115. 840.50 s [opt-env-conf-test] + functionChunk "withConfig",
  116. 840.50 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  117. 840.50 s [opt-env-conf-test] + functionChunk "withoutConfig",
  118. 840.50 s [opt-env-conf-test] + "."
  119. 840.50 s [opt-env-conf-test] + ]
  120. 840.50 s [opt-env-conf-test] + ]
  121. 840.50 s [opt-env-conf-test] LintErrorManyInfinite ->
  122. 840.50 s [opt-env-conf-test] [ [ functionChunk "many",
  123. 840.50 s [opt-env-conf-test] " or ",
  124. 840.50 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  125. 840.50 s [opt-env-conf-test] @@ -221,11 +221,7 @@
  126. 840.51 s [opt-env-conf-test] ]
  127. 840.51 s [opt-env-conf-test] ]
  128. 840.51 s [opt-env-conf-test] LintErrorManyInfinite ->
  129. 840.51 s [opt-env-conf-test] - [ [ functionChunk "many",
  130. 840.51 s [opt-env-conf-test] - " or ",
  131. 840.51 s [opt-env-conf-test] - functionChunk "some",
  132. 840.51 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  133. 840.51 s [opt-env-conf-test] - ],
  134. 840.51 s [opt-env-conf-test] + [ [],
  135. 840.51 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  136. 840.51 s [opt-env-conf-test] ],
  137. 840.51 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  138. 840.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
  139. 840.51 s [opt-env-conf-test] @@ -221,13 +221,7 @@
  140. 840.51 s [opt-env-conf-test] ]
  141. 840.51 s [opt-env-conf-test] ]
  142. 840.51 s [opt-env-conf-test] LintErrorManyInfinite ->
  143. 840.51 s [opt-env-conf-test] - [ [ functionChunk "many",
  144. 840.51 s [opt-env-conf-test] - " or ",
  145. 840.51 s [opt-env-conf-test] - functionChunk "some",
  146. 840.51 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  147. 840.51 s [opt-env-conf-test] - ],
  148. 840.51 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  149. 840.51 s [opt-env-conf-test] - ],
  150. 840.51 s [opt-env-conf-test] + [],
  151. 840.51 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  152. 840.51 s [opt-env-conf-test] ]
  153. 840.51 s [opt-env-conf-test]
  154. 840.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
  155. 840.51 s [opt-env-conf-test] @@ -221,13 +221,13 @@
  156. 840.51 s [opt-env-conf-test] ]
  157. 840.51 s [opt-env-conf-test] ]
  158. 840.51 s [opt-env-conf-test] LintErrorManyInfinite ->
  159. 840.51 s [opt-env-conf-test] - [ [ functionChunk "many",
  160. 840.51 s [opt-env-conf-test] - " or ",
  161. 840.51 s [opt-env-conf-test] - functionChunk "some",
  162. 840.51 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  163. 840.51 s [opt-env-conf-test] - ],
  164. 840.51 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  165. 840.51 s [opt-env-conf-test] - ],
  166. 840.51 s [opt-env-conf-test] + [ [ functionChunk "many",
  167. 840.51 s [opt-env-conf-test] + " or ",
  168. 840.51 s [opt-env-conf-test] + functionChunk "some",
  169. 840.51 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  170. 840.51 s [opt-env-conf-test] + ],
  171. 840.51 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  172. 840.51 s [opt-env-conf-test] + ],
  173. 840.51 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  174. 840.51 s [opt-env-conf-test] ]
  175. 840.51 s [opt-env-conf-test]
  176. 840.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  177. 840.51 s [opt-env-conf-test] @@ -208,11 +208,7 @@
  178. 840.51 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  179. 840.51 s [opt-env-conf-test] ]
  180. 840.51 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  181. 840.51 s [opt-env-conf-test] - [ [ functionChunk "conf",
  182. 840.51 s [opt-env-conf-test] - " or ",
  183. 840.51 s [opt-env-conf-test] - functionChunk "name",
  184. 840.51 s [opt-env-conf-test] - " was called with no way to load configuration."
  185. 840.51 s [opt-env-conf-test] - ],
  186. 840.51 s [opt-env-conf-test] + [ [],
  187. 840.51 s [opt-env-conf-test] [ "You can load configuration with ",
  188. 840.51 s [opt-env-conf-test] functionChunk "withConfig",
  189. 840.51 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  190. 840.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  191. 840.51 s [opt-env-conf-test] @@ -208,11 +208,11 @@
  192. 840.51 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  193. 840.51 s [opt-env-conf-test] ]
  194. 840.51 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  195. 840.51 s [opt-env-conf-test] - [ [ functionChunk "conf",
  196. 840.51 s [opt-env-conf-test] - " or ",
  197. 840.51 s [opt-env-conf-test] - functionChunk "name",
  198. 840.51 s [opt-env-conf-test] - " was called with no way to load configuration."
  199. 840.51 s [opt-env-conf-test] - ],
  200. 840.51 s [opt-env-conf-test] + [ [ functionChunk "conf",
  201. 840.51 s [opt-env-conf-test] + " or ",
  202. 840.52 s [opt-env-conf-test] + functionChunk "name",
  203. 840.52 s [opt-env-conf-test] + " was called with no way to load configuration."
  204. 840.52 s [opt-env-conf-test] + ],
  205. 840.52 s [opt-env-conf-test] [ "You can load configuration with ",
  206. 840.52 s [opt-env-conf-test] functionChunk "withConfig",
  207. 840.52 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  208. 840.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  209. 840.52 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  210. 840.52 s [opt-env-conf-test] renderLintError LintError {..} =
  211. 840.52 s [opt-env-conf-test] concat
  212. 840.52 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  213. 840.52 s [opt-env-conf-test] - case lintErrorMessage of
  214. 840.52 s [opt-env-conf-test] - LintErrorUndocumented ->
  215. 840.52 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  216. 840.52 s [opt-env-conf-test] - LintErrorEmptySetting ->
  217. 840.52 s [opt-env-conf-test] - concat
  218. 840.52 s [opt-env-conf-test] - [ [ [ "This ",
  219. 840.52 s [opt-env-conf-test] - functionChunk "setting",
  220. 840.52 s [opt-env-conf-test] - " parses nothing."
  221. 840.52 s [opt-env-conf-test] - ]
  222. 840.52 s [opt-env-conf-test] - ],
  223. 840.52 s [opt-env-conf-test] - [ [ "Add an ",
  224. 840.52 s [opt-env-conf-test] - functionChunk "argument",
  225. 840.52 s [opt-env-conf-test] - ", ",
  226. 840.52 s [opt-env-conf-test] - functionChunk "switch",
  227. 840.52 s [opt-env-conf-test] - ", ",
  228. 840.52 s [opt-env-conf-test] - functionChunk "option",
  229. 840.52 s [opt-env-conf-test] - ", ",
  230. 840.52 s [opt-env-conf-test] - functionChunk "env",
  231. 840.52 s [opt-env-conf-test] - ", ",
  232. 840.52 s [opt-env-conf-test] - functionChunk "conf",
  233. 840.52 s [opt-env-conf-test] - ", or ",
  234. 840.52 s [opt-env-conf-test] - functionChunk "value",
  235. 840.52 s [opt-env-conf-test] - "."
  236. 840.52 s [opt-env-conf-test] - ]
  237. 840.52 s [opt-env-conf-test] - ]
  238. 840.52 s [opt-env-conf-test] - ]
  239. 840.52 s [opt-env-conf-test] - LintErrorDashInShort ->
  240. 840.52 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  241. 840.52 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  242. 840.52 s [opt-env-conf-test] - ]
  243. 840.52 s [opt-env-conf-test] - LintErrorDashInLong s ->
  244. 840.52 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  245. 840.52 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  246. 840.52 s [opt-env-conf-test] - [ "Try ",
  247. 840.52 s [opt-env-conf-test] - functionChunk "long",
  248. 840.52 s [opt-env-conf-test] - " ",
  249. 840.52 s [opt-env-conf-test] - chunk $
  250. 840.52 s [opt-env-conf-test] - T.pack $
  251. 840.52 s [opt-env-conf-test] - show $
  252. 840.52 s [opt-env-conf-test] - let go = \case
  253. 840.52 s [opt-env-conf-test] - [] -> []
  254. 840.52 s [opt-env-conf-test] - '-' : cs -> go cs
  255. 840.52 s [opt-env-conf-test] - c : cs -> c : cs
  256. 840.52 s [opt-env-conf-test] - in go $ NE.toList s,
  257. 840.52 s [opt-env-conf-test] - " instead."
  258. 840.52 s [opt-env-conf-test] - ]
  259. 840.52 s [opt-env-conf-test] - ]
  260. 840.52 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  261. 840.52 s [opt-env-conf-test] - [ [ functionChunk "argument",
  262. 840.52 s [opt-env-conf-test] - " has no ",
  263. 840.52 s [opt-env-conf-test] - functionChunk "reader",
  264. 840.52 s [opt-env-conf-test] - "."
  265. 840.52 s [opt-env-conf-test] - ]
  266. 840.52 s [opt-env-conf-test] - ]
  267. 840.52 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  268. 840.52 s [opt-env-conf-test] - [ [ functionChunk "argument",
  269. 840.52 s [opt-env-conf-test] - " has no ",
  270. 840.52 s [opt-env-conf-test] - functionChunk "metavar",
  271. 840.52 s [opt-env-conf-test] - "."
  272. 840.52 s [opt-env-conf-test] - ]
  273. 840.52 s [opt-env-conf-test] - ]
  274. 840.52 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  275. 840.52 s [opt-env-conf-test] - [ [ functionChunk "option",
  276. 840.52 s [opt-env-conf-test] - " or ",
  277. 840.52 s [opt-env-conf-test] - functionChunk "name",
  278. 840.52 s [opt-env-conf-test] - " has no ",
  279. 840.52 s [opt-env-conf-test] - functionChunk "reader",
  280. 840.52 s [opt-env-conf-test] - "."
  281. 840.52 s [opt-env-conf-test] - ]
  282. 840.52 s [opt-env-conf-test] - ]
  283. 840.52 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  284. 840.52 s [opt-env-conf-test] - [ [ functionChunk "option",
  285. 840.52 s [opt-env-conf-test] - " has no ",
  286. 840.52 s [opt-env-conf-test] - functionChunk "long",
  287. 840.52 s [opt-env-conf-test] - " or ",
  288. 840.52 s [opt-env-conf-test] - functionChunk "short",
  289. 840.52 s [opt-env-conf-test] - "."
  290. 840.52 s [opt-env-conf-test] - ]
  291. 840.52 s [opt-env-conf-test] - ]
  292. 840.52 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  293. 840.52 s [opt-env-conf-test] - [ [ functionChunk "option",
  294. 840.52 s [opt-env-conf-test] - " or ",
  295. 840.52 s [opt-env-conf-test] - functionChunk "name",
  296. 840.52 s [opt-env-conf-test] - " has no ",
  297. 840.52 s [opt-env-conf-test] - functionChunk "metavar",
  298. 840.52 s [opt-env-conf-test] - "."
  299. 840.52 s [opt-env-conf-test] - ]
  300. 840.52 s [opt-env-conf-test] - ]
  301. 840.52 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  302. 840.52 s [opt-env-conf-test] - [ [ functionChunk "switch",
  303. 840.53 s [opt-env-conf-test] - " has no ",
  304. 840.53 s [opt-env-conf-test] - functionChunk "long",
  305. 840.53 s [opt-env-conf-test] - " or ",
  306. 840.53 s [opt-env-conf-test] - functionChunk "short",
  307. 840.53 s [opt-env-conf-test] - "."
  308. 840.53 s [opt-env-conf-test] - ]
  309. 840.53 s [opt-env-conf-test] - ]
  310. 840.53 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  311. 840.53 s [opt-env-conf-test] - [ [ functionChunk "long",
  312. 840.53 s [opt-env-conf-test] - " or ",
  313. 840.53 s [opt-env-conf-test] - functionChunk "short",
  314. 840.53 s [opt-env-conf-test] - " has no ",
  315. 840.53 s [opt-env-conf-test] - functionChunk "option",
  316. 840.53 s [opt-env-conf-test] - " or ",
  317. 840.53 s [opt-env-conf-test] - functionChunk "switch",
  318. 840.53 s [opt-env-conf-test] - "."
  319. 840.53 s [opt-env-conf-test] - ]
  320. 840.53 s [opt-env-conf-test] - ]
  321. 840.53 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  322. 840.53 s [opt-env-conf-test] - [ [ functionChunk "env",
  323. 840.53 s [opt-env-conf-test] - " or ",
  324. 840.53 s [opt-env-conf-test] - functionChunk "name",
  325. 840.53 s [opt-env-conf-test] - " has no ",
  326. 840.53 s [opt-env-conf-test] - functionChunk "reader",
  327. 840.53 s [opt-env-conf-test] - "."
  328. 840.53 s [opt-env-conf-test] - ]
  329. 840.53 s [opt-env-conf-test] - ]
  330. 840.53 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  331. 840.53 s [opt-env-conf-test] - [ [ functionChunk "env",
  332. 840.53 s [opt-env-conf-test] - " or ",
  333. 840.53 s [opt-env-conf-test] - functionChunk "name",
  334. 840.53 s [opt-env-conf-test] - " has no ",
  335. 840.53 s [opt-env-conf-test] - functionChunk "metavar",
  336. 840.53 s [opt-env-conf-test] - "."
  337. 840.53 s [opt-env-conf-test] - ]
  338. 840.53 s [opt-env-conf-test] - ]
  339. 840.53 s [opt-env-conf-test] - LintErrorNoCommands ->
  340. 840.53 s [opt-env-conf-test] - [ [ functionChunk "commands",
  341. 840.53 s [opt-env-conf-test] - " was called with an empty list."
  342. 840.53 s [opt-env-conf-test] - ]
  343. 840.53 s [opt-env-conf-test] - ]
  344. 840.53 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  345. 840.53 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  346. 840.53 s [opt-env-conf-test] - " was called with an unknown command: ",
  347. 840.53 s [opt-env-conf-test] - commandChunk c
  348. 840.53 s [opt-env-conf-test] - ]
  349. 840.53 s [opt-env-conf-test] - ]
  350. 840.53 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  351. 840.53 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  352. 840.53 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  353. 840.53 s [opt-env-conf-test] - ]
  354. 840.53 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  355. 840.53 s [opt-env-conf-test] - [ [ functionChunk "conf",
  356. 840.70 s [opt-env-conf-test] - " or ",
  357. 840.70 s [opt-env-conf-test] - functionChunk "name",
  358. 840.70 s [opt-env-conf-test] - " was called with no way to load configuration."
  359. 840.70 s [opt-env-conf-test] - ],
  360. 840.70 s [opt-env-conf-test] - [ "You can load configuration with ",
  361. 840.70 s [opt-env-conf-test] - functionChunk "withConfig",
  362. 840.70 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  363. 840.70 s [opt-env-conf-test] - functionChunk "withoutConfig",
  364. 840.70 s [opt-env-conf-test] - "."
  365. 840.70 s [opt-env-conf-test] - ]
  366. 840.70 s [opt-env-conf-test] - ]
  367. 840.70 s [opt-env-conf-test] - LintErrorManyInfinite ->
  368. 840.70 s [opt-env-conf-test] - [ [ functionChunk "many",
  369. 840.70 s [opt-env-conf-test] - " or ",
  370. 840.70 s [opt-env-conf-test] - functionChunk "some",
  371. 840.70 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  372. 840.70 s [opt-env-conf-test] - ],
  373. 840.70 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  374. 840.70 s [opt-env-conf-test] - ],
  375. 840.70 s [opt-env-conf-test] + case lintErrorMessage of
  376. 840.70 s [opt-env-conf-test] + LintErrorUndocumented ->
  377. 840.70 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  378. 840.70 s [opt-env-conf-test] + LintErrorEmptySetting ->
  379. 840.70 s [opt-env-conf-test] + concat
  380. 840.70 s [opt-env-conf-test] + [ [ [ "This ",
  381. 840.70 s [opt-env-conf-test] + functionChunk "setting",
  382. 840.70 s [opt-env-conf-test] + " parses nothing."
  383. 840.70 s [opt-env-conf-test] + ]
  384. 840.70 s [opt-env-conf-test] + ],
  385. 840.70 s [opt-env-conf-test] + [ [ "Add an ",
  386. 840.71 s [opt-env-conf-test] + functionChunk "argument",
  387. 840.71 s [opt-env-conf-test] + ", ",
  388. 840.71 s [opt-env-conf-test] + functionChunk "switch",
  389. 840.71 s [opt-env-conf-test] + ", ",
  390. 840.71 s [opt-env-conf-test] + functionChunk "option",
  391. 840.71 s [opt-env-conf-test] + ", ",
  392. 840.71 s [opt-env-conf-test] + functionChunk "env",
  393. 840.71 s [opt-env-conf-test] + ", ",
  394. 840.71 s [opt-env-conf-test] + functionChunk "conf",
  395. 840.71 s [opt-env-conf-test] + ", or ",
  396. 840.71 s [opt-env-conf-test] + functionChunk "value",
  397. 840.71 s [opt-env-conf-test] + "."
  398. 840.71 s [opt-env-conf-test] + ]
  399. 840.71 s [opt-env-conf-test] + ]
  400. 840.71 s [opt-env-conf-test] + ]
  401. 840.71 s [opt-env-conf-test] + LintErrorDashInShort ->
  402. 840.71 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  403. 840.71 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  404. 840.71 s [opt-env-conf-test] + ]
  405. 840.71 s [opt-env-conf-test] + LintErrorDashInLong s ->
  406. 840.71 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  407. 840.71 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  408. 840.71 s [opt-env-conf-test] + [ "Try ",
  409. 840.71 s [opt-env-conf-test] + functionChunk "long",
  410. 840.71 s [opt-env-conf-test] + " ",
  411. 840.71 s [opt-env-conf-test] + chunk $
  412. 840.71 s [opt-env-conf-test] + T.pack $
  413. 840.71 s [opt-env-conf-test] + show $
  414. 840.71 s [opt-env-conf-test] + let go = \case
  415. 840.71 s [opt-env-conf-test] + [] -> []
  416. 840.71 s [opt-env-conf-test] + '-' : cs -> go cs
  417. 840.71 s [opt-env-conf-test] + c : cs -> c : cs
  418. 840.71 s [opt-env-conf-test] + in go $ NE.toList s,
  419. 840.71 s [opt-env-conf-test] + " instead."
  420. 840.71 s [opt-env-conf-test] + ]
  421. 840.71 s [opt-env-conf-test] + ]
  422. 840.71 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  423. 840.71 s [opt-env-conf-test] + [ [ functionChunk "argument",
  424. 840.71 s [opt-env-conf-test] + " has no ",
  425. 840.71 s [opt-env-conf-test] + functionChunk "reader",
  426. 840.71 s [opt-env-conf-test] + "."
  427. 840.71 s [opt-env-conf-test] + ]
  428. 840.71 s [opt-env-conf-test] + ]
  429. 840.71 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  430. 840.71 s [opt-env-conf-test] + [ [ functionChunk "argument",
  431. 840.71 s [opt-env-conf-test] + " has no ",
  432. 840.71 s [opt-env-conf-test] + functionChunk "metavar",
  433. 840.71 s [opt-env-conf-test] + "."
  434. 840.71 s [opt-env-conf-test] + ]
  435. 840.71 s [opt-env-conf-test] + ]
  436. 840.71 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  437. 840.71 s [opt-env-conf-test] + [ [ functionChunk "option",
  438. 840.71 s [opt-env-conf-test] + " or ",
  439. 840.71 s [opt-env-conf-test] + functionChunk "name",
  440. 840.71 s [opt-env-conf-test] + " has no ",
  441. 840.71 s [opt-env-conf-test] + functionChunk "reader",
  442. 840.71 s [opt-env-conf-test] + "."
  443. 840.71 s [opt-env-conf-test] + ]
  444. 840.71 s [opt-env-conf-test] + ]
  445. 840.71 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  446. 840.71 s [opt-env-conf-test] + [ [ functionChunk "option",
  447. 840.71 s [opt-env-conf-test] + " has no ",
  448. 840.71 s [opt-env-conf-test] + functionChunk "long",
  449. 840.71 s [opt-env-conf-test] + " or ",
  450. 840.71 s [opt-env-conf-test] + functionChunk "short",
  451. 840.71 s [opt-env-conf-test] + "."
  452. 840.71 s [opt-env-conf-test] + ]
  453. 840.71 s [opt-env-conf-test] + ]
  454. 840.71 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  455. 840.71 s [opt-env-conf-test] + [ [ functionChunk "option",
  456. 840.71 s [opt-env-conf-test] + " or ",
  457. 840.71 s [opt-env-conf-test] + functionChunk "name",
  458. 840.71 s [opt-env-conf-test] + " has no ",
  459. 840.71 s [opt-env-conf-test] + functionChunk "metavar",
  460. 840.71 s [opt-env-conf-test] + "."
  461. 840.71 s [opt-env-conf-test] + ]
  462. 840.71 s [opt-env-conf-test] + ]
  463. 840.72 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  464. 840.72 s [opt-env-conf-test] + [ [ functionChunk "switch",
  465. 840.72 s [opt-env-conf-test] + " has no ",
  466. 840.72 s [opt-env-conf-test] + functionChunk "long",
  467. 840.72 s [opt-env-conf-test] + " or ",
  468. 840.72 s [opt-env-conf-test] + functionChunk "short",
  469. 840.72 s [opt-env-conf-test] + "."
  470. 840.72 s [opt-env-conf-test] + ]
  471. 840.72 s [opt-env-conf-test] + ]
  472. 840.72 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  473. 840.72 s [opt-env-conf-test] + [ [ functionChunk "long",
  474. 840.72 s [opt-env-conf-test] + " or ",
  475. 840.72 s [opt-env-conf-test] + functionChunk "short",
  476. 840.72 s [opt-env-conf-test] + " has no ",
  477. 840.72 s [opt-env-conf-test] + functionChunk "option",
  478. 840.72 s [opt-env-conf-test] + " or ",
  479. 840.72 s [opt-env-conf-test] + functionChunk "switch",
  480. 840.72 s [opt-env-conf-test] + "."
  481. 840.72 s [opt-env-conf-test] + ]
  482. 840.72 s [opt-env-conf-test] + ]
  483. 840.72 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  484. 840.72 s [opt-env-conf-test] + [ [ functionChunk "env",
  485. 840.72 s [opt-env-conf-test] + " or ",
  486. 840.72 s [opt-env-conf-test] + functionChunk "name",
  487. 840.72 s [opt-env-conf-test] + " has no ",
  488. 840.72 s [opt-env-conf-test] + functionChunk "reader",
  489. 840.72 s [opt-env-conf-test] + "."
  490. 840.72 s [opt-env-conf-test] + ]
  491. 840.72 s [opt-env-conf-test] + ]
  492. 840.72 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  493. 840.72 s [opt-env-conf-test] + [ [ functionChunk "env",
  494. 840.72 s [opt-env-conf-test] + " or ",
  495. 840.72 s [opt-env-conf-test] + functionChunk "name",
  496. 840.72 s [opt-env-conf-test] + " has no ",
  497. 840.72 s [opt-env-conf-test] + functionChunk "metavar",
  498. 840.72 s [opt-env-conf-test] + "."
  499. 840.72 s [opt-env-conf-test] + ]
  500. 840.72 s [opt-env-conf-test] + ]
  501. 840.72 s [opt-env-conf-test] + LintErrorNoCommands ->
  502. 840.72 s [opt-env-conf-test] + [ [ functionChunk "commands",
  503. 840.72 s [opt-env-conf-test] + " was called with an empty list."
  504. 840.72 s [opt-env-conf-test] + ]
  505. 840.72 s [opt-env-conf-test] + ]
  506. 840.72 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  507. 840.72 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  508. 840.72 s [opt-env-conf-test] + " was called with an unknown command: ",
  509. 840.72 s [opt-env-conf-test] + commandChunk c
  510. 840.72 s [opt-env-conf-test] + ]
  511. 840.72 s [opt-env-conf-test] + ]
  512. 840.72 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  513. 840.72 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  514. 840.72 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  515. 840.72 s [opt-env-conf-test] + ]
  516. 840.72 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  517. 840.72 s [opt-env-conf-test] + [ [ functionChunk "conf",
  518. 840.72 s [opt-env-conf-test] + " or ",
  519. 840.72 s [opt-env-conf-test] + functionChunk "name",
  520. 840.72 s [opt-env-conf-test] + " was called with no way to load configuration."
  521. 840.72 s [opt-env-conf-test] + ],
  522. 840.72 s [opt-env-conf-test] + [ "You can load configuration with ",
  523. 840.72 s [opt-env-conf-test] + functionChunk "withConfig",
  524. 840.72 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  525. 840.72 s [opt-env-conf-test] + functionChunk "withoutConfig",
  526. 840.72 s [opt-env-conf-test] + "."
  527. 840.72 s [opt-env-conf-test] + ]
  528. 840.72 s [opt-env-conf-test] + ]
  529. 840.72 s [opt-env-conf-test] + LintErrorManyInfinite ->
  530. 840.72 s [opt-env-conf-test] + [ [ functionChunk "many",
  531. 840.72 s [opt-env-conf-test] + " or ",
  532. 840.72 s [opt-env-conf-test] + functionChunk "some",
  533. 840.72 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  534. 840.72 s [opt-env-conf-test] + ],
  535. 840.72 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  536. 840.72 s [opt-env-conf-test] + ],
  537. 840.72 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  538. 840.72 s [opt-env-conf-test] ]
  539. 840.72 s [opt-env-conf-test]
  540. 840.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  541. 840.72 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  542. 840.72 s [opt-env-conf-test] renderLintError LintError {..} =
  543. 840.72 s [opt-env-conf-test] concat
  544. 840.72 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  545. 840.72 s [opt-env-conf-test] - case lintErrorMessage of
  546. 840.72 s [opt-env-conf-test] - LintErrorUndocumented ->
  547. 840.72 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  548. 840.72 s [opt-env-conf-test] - LintErrorEmptySetting ->
  549. 840.72 s [opt-env-conf-test] - concat
  550. 840.72 s [opt-env-conf-test] - [ [ [ "This ",
  551. 840.72 s [opt-env-conf-test] - functionChunk "setting",
  552. 840.72 s [opt-env-conf-test] - " parses nothing."
  553. 840.72 s [opt-env-conf-test] - ]
  554. 840.72 s [opt-env-conf-test] - ],
  555. 840.72 s [opt-env-conf-test] - [ [ "Add an ",
  556. 840.72 s [opt-env-conf-test] - functionChunk "argument",
  557. 840.72 s [opt-env-conf-test] - ", ",
  558. 840.72 s [opt-env-conf-test] - functionChunk "switch",
  559. 840.72 s [opt-env-conf-test] - ", ",
  560. 840.72 s [opt-env-conf-test] - functionChunk "option",
  561. 840.72 s [opt-env-conf-test] - ", ",
  562. 840.72 s [opt-env-conf-test] - functionChunk "env",
  563. 840.72 s [opt-env-conf-test] - ", ",
  564. 840.72 s [opt-env-conf-test] - functionChunk "conf",
  565. 840.72 s [opt-env-conf-test] - ", or ",
  566. 840.72 s [opt-env-conf-test] - functionChunk "value",
  567. 840.72 s [opt-env-conf-test] - "."
  568. 840.72 s [opt-env-conf-test] - ]
  569. 840.72 s [opt-env-conf-test] - ]
  570. 840.72 s [opt-env-conf-test] - ]
  571. 840.72 s [opt-env-conf-test] - LintErrorDashInShort ->
  572. 840.72 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  573. 840.72 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  574. 840.72 s [opt-env-conf-test] - ]
  575. 840.72 s [opt-env-conf-test] - LintErrorDashInLong s ->
  576. 840.72 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  577. 840.73 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  578. 840.73 s [opt-env-conf-test] - [ "Try ",
  579. 840.73 s [opt-env-conf-test] - functionChunk "long",
  580. 840.73 s [opt-env-conf-test] - " ",
  581. 840.73 s [opt-env-conf-test] - chunk $
  582. 840.73 s [opt-env-conf-test] - T.pack $
  583. 840.73 s [opt-env-conf-test] - show $
  584. 840.73 s [opt-env-conf-test] - let go = \case
  585. 840.73 s [opt-env-conf-test] - [] -> []
  586. 840.73 s [opt-env-conf-test] - '-' : cs -> go cs
  587. 840.73 s [opt-env-conf-test] - c : cs -> c : cs
  588. 840.73 s [opt-env-conf-test] - in go $ NE.toList s,
  589. 840.73 s [opt-env-conf-test] - " instead."
  590. 840.73 s [opt-env-conf-test] - ]
  591. 840.73 s [opt-env-conf-test] - ]
  592. 840.73 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  593. 840.73 s [opt-env-conf-test] - [ [ functionChunk "argument",
  594. 840.73 s [opt-env-conf-test] - " has no ",
  595. 840.73 s [opt-env-conf-test] - functionChunk "reader",
  596. 840.73 s [opt-env-conf-test] - "."
  597. 840.73 s [opt-env-conf-test] - ]
  598. 840.73 s [opt-env-conf-test] - ]
  599. 840.73 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  600. 840.73 s [opt-env-conf-test] - [ [ functionChunk "argument",
  601. 840.73 s [opt-env-conf-test] - " has no ",
  602. 840.73 s [opt-env-conf-test] - functionChunk "metavar",
  603. 840.73 s [opt-env-conf-test] - "."
  604. 840.73 s [opt-env-conf-test] - ]
  605. 840.73 s [opt-env-conf-test] - ]
  606. 840.73 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  607. 840.73 s [opt-env-conf-test] - [ [ functionChunk "option",
  608. 840.73 s [opt-env-conf-test] - " or ",
  609. 840.73 s [opt-env-conf-test] - functionChunk "name",
  610. 840.73 s [opt-env-conf-test] - " has no ",
  611. 840.73 s [opt-env-conf-test] - functionChunk "reader",
  612. 840.73 s [opt-env-conf-test] - "."
  613. 840.73 s [opt-env-conf-test] - ]
  614. 840.73 s [opt-env-conf-test] - ]
  615. 840.73 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  616. 840.73 s [opt-env-conf-test] - [ [ functionChunk "option",
  617. 840.73 s [opt-env-conf-test] - " has no ",
  618. 840.73 s [opt-env-conf-test] - functionChunk "long",
  619. 840.73 s [opt-env-conf-test] - " or ",
  620. 840.73 s [opt-env-conf-test] - functionChunk "short",
  621. 840.73 s [opt-env-conf-test] - "."
  622. 840.73 s [opt-env-conf-test] - ]
  623. 840.73 s [opt-env-conf-test] - ]
  624. 840.73 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  625. 840.73 s [opt-env-conf-test] - [ [ functionChunk "option",
  626. 840.73 s [opt-env-conf-test] - " or ",
  627. 840.73 s [opt-env-conf-test] - functionChunk "name",
  628. 840.73 s [opt-env-conf-test] - " has no ",
  629. 840.73 s [opt-env-conf-test] - functionChunk "metavar",
  630. 840.73 s [opt-env-conf-test] - "."
  631. 840.73 s [opt-env-conf-test] - ]
  632. 840.73 s [opt-env-conf-test] - ]
  633. 840.73 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  634. 840.73 s [opt-env-conf-test] - [ [ functionChunk "switch",
  635. 840.73 s [opt-env-conf-test] - " has no ",
  636. 840.73 s [opt-env-conf-test] - functionChunk "long",
  637. 840.73 s [opt-env-conf-test] - " or ",
  638. 840.73 s [opt-env-conf-test] - functionChunk "short",
  639. 840.73 s [opt-env-conf-test] - "."
  640. 840.73 s [opt-env-conf-test] - ]
  641. 840.73 s [opt-env-conf-test] - ]
  642. 840.73 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  643. 840.73 s [opt-env-conf-test] - [ [ functionChunk "long",
  644. 840.73 s [opt-env-conf-test] - " or ",
  645. 840.73 s [opt-env-conf-test] - functionChunk "short",
  646. 840.73 s [opt-env-conf-test] - " has no ",
  647. 840.73 s [opt-env-conf-test] - functionChunk "option",
  648. 840.73 s [opt-env-conf-test] - " or ",
  649. 840.73 s [opt-env-conf-test] - functionChunk "switch",
  650. 840.73 s [opt-env-conf-test] - "."
  651. 840.73 s [opt-env-conf-test] - ]
  652. 840.73 s [opt-env-conf-test] - ]
  653. 840.73 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  654. 840.73 s [opt-env-conf-test] - [ [ functionChunk "env",
  655. 840.73 s [opt-env-conf-test] - " or ",
  656. 840.73 s [opt-env-conf-test] - functionChunk "name",
  657. 840.73 s [opt-env-conf-test] - " has no ",
  658. 840.73 s [opt-env-conf-test] - functionChunk "reader",
  659. 840.73 s [opt-env-conf-test] - "."
  660. 840.73 s [opt-env-conf-test] - ]
  661. 840.73 s [opt-env-conf-test] - ]
  662. 840.73 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  663. 840.73 s [opt-env-conf-test] - [ [ functionChunk "env",
  664. 840.73 s [opt-env-conf-test] - " or ",
  665. 840.73 s [opt-env-conf-test] - functionChunk "name",
  666. 840.73 s [opt-env-conf-test] - " has no ",
  667. 840.73 s [opt-env-conf-test] - functionChunk "metavar",
  668. 840.73 s [opt-env-conf-test] - "."
  669. 840.73 s [opt-env-conf-test] - ]
  670. 840.73 s [opt-env-conf-test] - ]
  671. 840.73 s [opt-env-conf-test] - LintErrorNoCommands ->
  672. 840.73 s [opt-env-conf-test] - [ [ functionChunk "commands",
  673. 840.73 s [opt-env-conf-test] - " was called with an empty list."
  674. 840.73 s [opt-env-conf-test] - ]
  675. 840.73 s [opt-env-conf-test] - ]
  676. 840.73 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  677. 840.73 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  678. 840.73 s [opt-env-conf-test] - " was called with an unknown command: ",
  679. 840.73 s [opt-env-conf-test] - commandChunk c
  680. 840.73 s [opt-env-conf-test] - ]
  681. 840.73 s [opt-env-conf-test] - ]
  682. 840.73 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  683. 840.73 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  684. 840.73 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  685. 840.73 s [opt-env-conf-test] - ]
  686. 840.73 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  687. 840.73 s [opt-env-conf-test] - [ [ functionChunk "conf",
  688. 840.73 s [opt-env-conf-test] - " or ",
  689. 840.73 s [opt-env-conf-test] - functionChunk "name",
  690. 840.73 s [opt-env-conf-test] - " was called with no way to load configuration."
  691. 840.73 s [opt-env-conf-test] - ],
  692. 840.73 s [opt-env-conf-test] - [ "You can load configuration with ",
  693. 840.74 s [opt-env-conf-test] - functionChunk "withConfig",
  694. 840.74 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  695. 840.74 s [opt-env-conf-test] - functionChunk "withoutConfig",
  696. 840.74 s [opt-env-conf-test] - "."
  697. 840.74 s [opt-env-conf-test] - ]
  698. 840.74 s [opt-env-conf-test] - ]
  699. 840.74 s [opt-env-conf-test] - LintErrorManyInfinite ->
  700. 840.74 s [opt-env-conf-test] - [ [ functionChunk "many",
  701. 840.74 s [opt-env-conf-test] - " or ",
  702. 840.74 s [opt-env-conf-test] - functionChunk "some",
  703. 840.74 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  704. 840.74 s [opt-env-conf-test] - ],
  705. 840.74 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  706. 840.74 s [opt-env-conf-test] - ],
  707. 840.74 s [opt-env-conf-test] + case lintErrorMessage of
  708. 840.74 s [opt-env-conf-test] + LintErrorUndocumented ->
  709. 840.74 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  710. 840.74 s [opt-env-conf-test] + LintErrorEmptySetting ->
  711. 840.74 s [opt-env-conf-test] + concat
  712. 840.74 s [opt-env-conf-test] + [ [ [ "This ",
  713. 840.74 s [opt-env-conf-test] + functionChunk "setting",
  714. 840.74 s [opt-env-conf-test] + " parses nothing."
  715. 840.74 s [opt-env-conf-test] + ]
  716. 840.74 s [opt-env-conf-test] + ],
  717. 840.74 s [opt-env-conf-test] + [ [ "Add an ",
  718. 840.74 s [opt-env-conf-test] + functionChunk "argument",
  719. 840.74 s [opt-env-conf-test] + ", ",
  720. 840.74 s [opt-env-conf-test] + functionChunk "switch",
  721. 840.74 s [opt-env-conf-test] + ", ",
  722. 840.74 s [opt-env-conf-test] + functionChunk "option",
  723. 840.74 s [opt-env-conf-test] + ", ",
  724. 840.74 s [opt-env-conf-test] + functionChunk "env",
  725. 840.74 s [opt-env-conf-test] + ", ",
  726. 840.74 s [opt-env-conf-test] + functionChunk "conf",
  727. 840.74 s [opt-env-conf-test] + ", or ",
  728. 840.74 s [opt-env-conf-test] + functionChunk "value",
  729. 840.74 s [opt-env-conf-test] + "."
  730. 840.74 s [opt-env-conf-test] + ]
  731. 840.74 s [opt-env-conf-test] + ]
  732. 840.74 s [opt-env-conf-test] + ]
  733. 840.74 s [opt-env-conf-test] + LintErrorDashInShort ->
  734. 840.74 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  735. 840.74 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  736. 840.74 s [opt-env-conf-test] + ]
  737. 840.74 s [opt-env-conf-test] + LintErrorDashInLong s ->
  738. 840.74 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  739. 840.74 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  740. 840.74 s [opt-env-conf-test] + [ "Try ",
  741. 840.74 s [opt-env-conf-test] + functionChunk "long",
  742. 840.74 s [opt-env-conf-test] + " ",
  743. 840.74 s [opt-env-conf-test] + chunk $
  744. 840.74 s [opt-env-conf-test] + T.pack $
  745. 840.74 s [opt-env-conf-test] + show $
  746. 840.74 s [opt-env-conf-test] + let go = \case
  747. 840.74 s [opt-env-conf-test] + [] -> []
  748. 840.74 s [opt-env-conf-test] + '-' : cs -> go cs
  749. 840.74 s [opt-env-conf-test] + c : cs -> c : cs
  750. 840.74 s [opt-env-conf-test] + in go $ NE.toList s,
  751. 840.74 s [opt-env-conf-test] + " instead."
  752. 840.74 s [opt-env-conf-test] + ]
  753. 840.74 s [opt-env-conf-test] + ]
  754. 840.74 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  755. 840.74 s [opt-env-conf-test] + [ [ functionChunk "argument",
  756. 840.74 s [opt-env-conf-test] + " has no ",
  757. 840.74 s [opt-env-conf-test] + functionChunk "reader",
  758. 840.74 s [opt-env-conf-test] + "."
  759. 840.74 s [opt-env-conf-test] + ]
  760. 840.74 s [opt-env-conf-test] + ]
  761. 840.74 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  762. 840.74 s [opt-env-conf-test] + [ [ functionChunk "argument",
  763. 840.74 s [opt-env-conf-test] + " has no ",
  764. 840.74 s [opt-env-conf-test] + functionChunk "metavar",
  765. 840.74 s [opt-env-conf-test] + "."
  766. 840.74 s [opt-env-conf-test] + ]
  767. 840.74 s [opt-env-conf-test] + ]
  768. 840.74 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  769. 840.74 s [opt-env-conf-test] + [ [ functionChunk "option",
  770. 840.74 s [opt-env-conf-test] + " or ",
  771. 840.74 s [opt-env-conf-test] + functionChunk "name",
  772. 840.74 s [opt-env-conf-test] + " has no ",
  773. 840.74 s [opt-env-conf-test] + functionChunk "reader",
  774. 840.74 s [opt-env-conf-test] + "."
  775. 840.74 s [opt-env-conf-test] + ]
  776. 840.74 s [opt-env-conf-test] + ]
  777. 840.74 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  778. 840.74 s [opt-env-conf-test] + [ [ functionChunk "option",
  779. 840.74 s [opt-env-conf-test] + " has no ",
  780. 840.74 s [opt-env-conf-test] + functionChunk "long",
  781. 840.74 s [opt-env-conf-test] + " or ",
  782. 840.74 s [opt-env-conf-test] + functionChunk "short",
  783. 840.74 s [opt-env-conf-test] + "."
  784. 840.74 s [opt-env-conf-test] + ]
  785. 840.74 s [opt-env-conf-test] + ]
  786. 840.74 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  787. 840.74 s [opt-env-conf-test] + [ [ functionChunk "option",
  788. 840.74 s [opt-env-conf-test] + " or ",
  789. 840.74 s [opt-env-conf-test] + functionChunk "name",
  790. 840.74 s [opt-env-conf-test] + " has no ",
  791. 840.74 s [opt-env-conf-test] + functionChunk "metavar",
  792. 840.74 s [opt-env-conf-test] + "."
  793. 840.74 s [opt-env-conf-test] + ]
  794. 840.74 s [opt-env-conf-test] + ]
  795. 840.74 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  796. 840.74 s [opt-env-conf-test] + [ [ functionChunk "switch",
  797. 840.74 s [opt-env-conf-test] + " has no ",
  798. 840.74 s [opt-env-conf-test] + functionChunk "long",
  799. 840.74 s [opt-env-conf-test] + " or ",
  800. 840.74 s [opt-env-conf-test] + functionChunk "short",
  801. 840.74 s [opt-env-conf-test] + "."
  802. 840.74 s [opt-env-conf-test] + ]
  803. 840.74 s [opt-env-conf-test] + ]
  804. 840.74 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  805. 840.74 s [opt-env-conf-test] + [ [ functionChunk "long",
  806. 840.74 s [opt-env-conf-test] + " or ",
  807. 840.74 s [opt-env-conf-test] + functionChunk "short",
  808. 840.74 s [opt-env-conf-test] + " has no ",
  809. 840.74 s [opt-env-conf-test] + functionChunk "option",
  810. 840.74 s [opt-env-conf-test] + " or ",
  811. 840.74 s [opt-env-conf-test] + functionChunk "switch",
  812. 840.74 s [opt-env-conf-test] + "."
  813. 840.74 s [opt-env-conf-test] + ]
  814. 840.75 s [opt-env-conf-test] + ]
  815. 840.75 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  816. 840.75 s [opt-env-conf-test] + [ [ functionChunk "env",
  817. 840.75 s [opt-env-conf-test] + " or ",
  818. 840.75 s [opt-env-conf-test] + functionChunk "name",
  819. 840.75 s [opt-env-conf-test] + " has no ",
  820. 840.75 s [opt-env-conf-test] + functionChunk "reader",
  821. 840.75 s [opt-env-conf-test] + "."
  822. 840.75 s [opt-env-conf-test] + ]
  823. 840.75 s [opt-env-conf-test] + ]
  824. 840.75 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  825. 840.75 s [opt-env-conf-test] + [ [ functionChunk "env",
  826. 840.75 s [opt-env-conf-test] + " or ",
  827. 840.75 s [opt-env-conf-test] + functionChunk "name",
  828. 840.75 s [opt-env-conf-test] + " has no ",
  829. 840.75 s [opt-env-conf-test] + functionChunk "metavar",
  830. 840.75 s [opt-env-conf-test] + "."
  831. 840.75 s [opt-env-conf-test] + ]
  832. 840.75 s [opt-env-conf-test] + ]
  833. 840.75 s [opt-env-conf-test] + LintErrorNoCommands ->
  834. 840.75 s [opt-env-conf-test] + [ [ functionChunk "commands",
  835. 840.75 s [opt-env-conf-test] + " was called with an empty list."
  836. 840.75 s [opt-env-conf-test] + ]
  837. 840.75 s [opt-env-conf-test] + ]
  838. 840.75 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  839. 840.75 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  840. 840.75 s [opt-env-conf-test] + " was called with an unknown command: ",
  841. 840.75 s [opt-env-conf-test] + commandChunk c
  842. 840.75 s [opt-env-conf-test] + ]
  843. 840.75 s [opt-env-conf-test] + ]
  844. 840.75 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  845. 840.75 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  846. 840.75 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  847. 840.75 s [opt-env-conf-test] + ]
  848. 840.75 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  849. 840.75 s [opt-env-conf-test] + [ [ functionChunk "conf",
  850. 840.75 s [opt-env-conf-test] + " or ",
  851. 840.75 s [opt-env-conf-test] + functionChunk "name",
  852. 840.75 s [opt-env-conf-test] + " was called with no way to load configuration."
  853. 840.75 s [opt-env-conf-test] + ],
  854. 840.75 s [opt-env-conf-test] + [ "You can load configuration with ",
  855. 840.75 s [opt-env-conf-test] + functionChunk "withConfig",
  856. 840.75 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  857. 840.75 s [opt-env-conf-test] + functionChunk "withoutConfig",
  858. 840.75 s [opt-env-conf-test] + "."
  859. 840.75 s [opt-env-conf-test] + ]
  860. 840.75 s [opt-env-conf-test] + ]
  861. 840.75 s [opt-env-conf-test] + LintErrorManyInfinite ->
  862. 840.75 s [opt-env-conf-test] + [ [ functionChunk "many",
  863. 840.75 s [opt-env-conf-test] + " or ",
  864. 840.75 s [opt-env-conf-test] + functionChunk "some",
  865. 840.91 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  866. 840.92 s [opt-env-conf-test] + ],
  867. 840.92 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  868. 840.92 s [opt-env-conf-test] + ],
  869. 840.92 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  870. 840.92 s [opt-env-conf-test] ]
  871. 840.92 s [opt-env-conf-test]
  872. 840.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  873. 840.92 s [opt-env-conf-test] @@ -221,11 +221,10 @@
  874. 840.92 s [opt-env-conf-test] ]
  875. 840.92 s [opt-env-conf-test] ]
  876. 840.92 s [opt-env-conf-test] LintErrorManyInfinite ->
  877. 840.92 s [opt-env-conf-test] - [ [ functionChunk "many",
  878. 840.92 s [opt-env-conf-test] - " or ",
  879. 840.92 s [opt-env-conf-test] - functionChunk "some",
  880. 840.92 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  881. 840.92 s [opt-env-conf-test] - ],
  882. 840.92 s [opt-env-conf-test] + [ [ functionChunk "many",
  883. 840.92 s [opt-env-conf-test] + " or ",
  884. 840.92 s [opt-env-conf-test] + functionChunk "some"
  885. 840.92 s [opt-env-conf-test] +],
  886. 840.92 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  887. 840.92 s [opt-env-conf-test] ],
  888. 840.92 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  889. 840.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
  890. 840.92 s [opt-env-conf-test] @@ -93,9 +93,7 @@
  891. 840.92 s [opt-env-conf-test] ]
  892. 840.92 s [opt-env-conf-test] ]
  893. 840.92 s [opt-env-conf-test] LintErrorDashInShort ->
  894. 840.92 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  895. 840.92 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  896. 840.92 s [opt-env-conf-test] - ]
  897. 840.92 s [opt-env-conf-test] + []
  898. 840.92 s [opt-env-conf-test] LintErrorDashInLong s ->
  899. 840.92 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  900. 840.92 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  901. 840.92 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  902. 840.92 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  903. 840.92 s [opt-env-conf-test] renderLintError LintError {..} =
  904. 840.92 s [opt-env-conf-test] concat
  905. 840.92 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  906. 840.92 s [opt-env-conf-test] - case lintErrorMessage of
  907. 840.92 s [opt-env-conf-test] - LintErrorUndocumented ->
  908. 840.92 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  909. 840.92 s [opt-env-conf-test] - LintErrorEmptySetting ->
  910. 840.92 s [opt-env-conf-test] - concat
  911. 840.92 s [opt-env-conf-test] - [ [ [ "This ",
  912. 840.92 s [opt-env-conf-test] - functionChunk "setting",
  913. 840.92 s [opt-env-conf-test] - " parses nothing."
  914. 840.92 s [opt-env-conf-test] - ]
  915. 840.92 s [opt-env-conf-test] - ],
  916. 840.92 s [opt-env-conf-test] - [ [ "Add an ",
  917. 840.92 s [opt-env-conf-test] - functionChunk "argument",
  918. 840.92 s [opt-env-conf-test] - ", ",
  919. 840.92 s [opt-env-conf-test] - functionChunk "switch",
  920. 840.92 s [opt-env-conf-test] - ", ",
  921. 840.92 s [opt-env-conf-test] - functionChunk "option",
  922. 840.92 s [opt-env-conf-test] - ", ",
  923. 840.92 s [opt-env-conf-test] - functionChunk "env",
  924. 840.92 s [opt-env-conf-test] - ", ",
  925. 840.92 s [opt-env-conf-test] - functionChunk "conf",
  926. 840.92 s [opt-env-conf-test] - ", or ",
  927. 840.92 s [opt-env-conf-test] - functionChunk "value",
  928. 840.92 s [opt-env-conf-test] - "."
  929. 840.93 s [opt-env-conf-test] - ]
  930. 840.93 s [opt-env-conf-test] - ]
  931. 840.93 s [opt-env-conf-test] - ]
  932. 840.93 s [opt-env-conf-test] - LintErrorDashInShort ->
  933. 840.93 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  934. 840.93 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  935. 840.93 s [opt-env-conf-test] - ]
  936. 840.93 s [opt-env-conf-test] - LintErrorDashInLong s ->
  937. 840.93 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  938. 840.93 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  939. 840.93 s [opt-env-conf-test] - [ "Try ",
  940. 840.93 s [opt-env-conf-test] - functionChunk "long",
  941. 840.93 s [opt-env-conf-test] - " ",
  942. 840.93 s [opt-env-conf-test] - chunk $
  943. 840.93 s [opt-env-conf-test] - T.pack $
  944. 840.93 s [opt-env-conf-test] - show $
  945. 840.93 s [opt-env-conf-test] - let go = \case
  946. 840.93 s [opt-env-conf-test] - [] -> []
  947. 840.93 s [opt-env-conf-test] - '-' : cs -> go cs
  948. 840.93 s [opt-env-conf-test] - c : cs -> c : cs
  949. 840.93 s [opt-env-conf-test] - in go $ NE.toList s,
  950. 840.93 s [opt-env-conf-test] - " instead."
  951. 840.93 s [opt-env-conf-test] - ]
  952. 840.93 s [opt-env-conf-test] - ]
  953. 840.93 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  954. 840.93 s [opt-env-conf-test] - [ [ functionChunk "argument",
  955. 840.93 s [opt-env-conf-test] - " has no ",
  956. 840.93 s [opt-env-conf-test] - functionChunk "reader",
  957. 840.93 s [opt-env-conf-test] - "."
  958. 840.93 s [opt-env-conf-test] - ]
  959. 840.93 s [opt-env-conf-test] - ]
  960. 840.93 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  961. 840.93 s [opt-env-conf-test] - [ [ functionChunk "argument",
  962. 840.93 s [opt-env-conf-test] - " has no ",
  963. 840.93 s [opt-env-conf-test] - functionChunk "metavar",
  964. 840.93 s [opt-env-conf-test] - "."
  965. 840.93 s [opt-env-conf-test] - ]
  966. 840.93 s [opt-env-conf-test] - ]
  967. 840.93 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  968. 840.93 s [opt-env-conf-test] - [ [ functionChunk "option",
  969. 840.93 s [opt-env-conf-test] - " or ",
  970. 840.93 s [opt-env-conf-test] - functionChunk "name",
  971. 840.93 s [opt-env-conf-test] - " has no ",
  972. 840.93 s [opt-env-conf-test] - functionChunk "reader",
  973. 840.93 s [opt-env-conf-test] - "."
  974. 840.93 s [opt-env-conf-test] - ]
  975. 840.93 s [opt-env-conf-test] - ]
  976. 840.93 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  977. 840.93 s [opt-env-conf-test] - [ [ functionChunk "option",
  978. 840.93 s [opt-env-conf-test] - " has no ",
  979. 840.93 s [opt-env-conf-test] - functionChunk "long",
  980. 840.93 s [opt-env-conf-test] - " or ",
  981. 840.93 s [opt-env-conf-test] - functionChunk "short",
  982. 840.93 s [opt-env-conf-test] - "."
  983. 840.93 s [opt-env-conf-test] - ]
  984. 840.93 s [opt-env-conf-test] - ]
  985. 840.93 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  986. 840.93 s [opt-env-conf-test] - [ [ functionChunk "option",
  987. 840.93 s [opt-env-conf-test] - " or ",
  988. 840.93 s [opt-env-conf-test] - functionChunk "name",
  989. 840.93 s [opt-env-conf-test] - " has no ",
  990. 840.93 s [opt-env-conf-test] - functionChunk "metavar",
  991. 840.93 s [opt-env-conf-test] - "."
  992. 840.93 s [opt-env-conf-test] - ]
  993. 840.93 s [opt-env-conf-test] - ]
  994. 840.93 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  995. 840.93 s [opt-env-conf-test] - [ [ functionChunk "switch",
  996. 840.93 s [opt-env-conf-test] - " has no ",
  997. 840.93 s [opt-env-conf-test] - functionChunk "long",
  998. 840.93 s [opt-env-conf-test] - " or ",
  999. 840.93 s [opt-env-conf-test] - functionChunk "short",
  1000. 840.93 s [opt-env-conf-test] - "."
  1001. 840.93 s [opt-env-conf-test] - ]
  1002. 840.93 s [opt-env-conf-test] - ]
  1003. 840.93 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  1004. 840.93 s [opt-env-conf-test] - [ [ functionChunk "long",
  1005. 840.93 s [opt-env-conf-test] - " or ",
  1006. 840.93 s [opt-env-conf-test] - functionChunk "short",
  1007. 840.93 s [opt-env-conf-test] - " has no ",
  1008. 840.93 s [opt-env-conf-test] - functionChunk "option",
  1009. 840.93 s [opt-env-conf-test] - " or ",
  1010. 840.93 s [opt-env-conf-test] - functionChunk "switch",
  1011. 840.93 s [opt-env-conf-test] - "."
  1012. 840.93 s [opt-env-conf-test] - ]
  1013. 840.93 s [opt-env-conf-test] - ]
  1014. 840.93 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  1015. 840.93 s [opt-env-conf-test] - [ [ functionChunk "env",
  1016. 840.93 s [opt-env-conf-test] - " or ",
  1017. 840.93 s [opt-env-conf-test] - functionChunk "name",
  1018. 840.93 s [opt-env-conf-test] - " has no ",
  1019. 840.93 s [opt-env-conf-test] - functionChunk "reader",
  1020. 840.93 s [opt-env-conf-test] - "."
  1021. 840.93 s [opt-env-conf-test] - ]
  1022. 840.93 s [opt-env-conf-test] - ]
  1023. 840.93 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  1024. 840.93 s [opt-env-conf-test] - [ [ functionChunk "env",
  1025. 840.93 s [opt-env-conf-test] - " or ",
  1026. 840.93 s [opt-env-conf-test] - functionChunk "name",
  1027. 840.93 s [opt-env-conf-test] - " has no ",
  1028. 840.93 s [opt-env-conf-test] - functionChunk "metavar",
  1029. 840.93 s [opt-env-conf-test] - "."
  1030. 840.93 s [opt-env-conf-test] - ]
  1031. 840.93 s [opt-env-conf-test] - ]
  1032. 840.93 s [opt-env-conf-test] - LintErrorNoCommands ->
  1033. 840.93 s [opt-env-conf-test] - [ [ functionChunk "commands",
  1034. 840.93 s [opt-env-conf-test] - " was called with an empty list."
  1035. 840.93 s [opt-env-conf-test] - ]
  1036. 840.93 s [opt-env-conf-test] - ]
  1037. 840.93 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  1038. 840.93 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  1039. 840.93 s [opt-env-conf-test] - " was called with an unknown command: ",
  1040. 840.93 s [opt-env-conf-test] - commandChunk c
  1041. 840.93 s [opt-env-conf-test] - ]
  1042. 840.93 s [opt-env-conf-test] - ]
  1043. 840.93 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  1044. 840.93 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1045. 840.93 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1046. 840.93 s [opt-env-conf-test] - ]
  1047. 840.93 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  1048. 840.93 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1049. 840.93 s [opt-env-conf-test] - " or ",
  1050. 840.93 s [opt-env-conf-test] - functionChunk "name",
  1051. 840.93 s [opt-env-conf-test] - " was called with no way to load configuration."
  1052. 840.93 s [opt-env-conf-test] - ],
  1053. 840.93 s [opt-env-conf-test] - [ "You can load configuration with ",
  1054. 840.93 s [opt-env-conf-test] - functionChunk "withConfig",
  1055. 840.93 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1056. 840.93 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1057. 840.94 s [opt-env-conf-test] - "."
  1058. 840.94 s [opt-env-conf-test] - ]
  1059. 840.94 s [opt-env-conf-test] - ]
  1060. 840.94 s [opt-env-conf-test] - LintErrorManyInfinite ->
  1061. 840.94 s [opt-env-conf-test] - [ [ functionChunk "many",
  1062. 840.94 s [opt-env-conf-test] - " or ",
  1063. 840.94 s [opt-env-conf-test] - functionChunk "some",
  1064. 840.94 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1065. 840.94 s [opt-env-conf-test] - ],
  1066. 840.94 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  1067. 840.94 s [opt-env-conf-test] - ],
  1068. 840.94 s [opt-env-conf-test] + case lintErrorMessage of
  1069. 840.94 s [opt-env-conf-test] + LintErrorUndocumented ->
  1070. 840.94 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  1071. 840.94 s [opt-env-conf-test] + LintErrorEmptySetting ->
  1072. 840.94 s [opt-env-conf-test] + concat
  1073. 840.94 s [opt-env-conf-test] + [ [ [ "This ",
  1074. 840.94 s [opt-env-conf-test] + functionChunk "setting",
  1075. 840.94 s [opt-env-conf-test] + " parses nothing."
  1076. 840.94 s [opt-env-conf-test] + ]
  1077. 840.94 s [opt-env-conf-test] + ],
  1078. 840.94 s [opt-env-conf-test] + [ [ "Add an ",
  1079. 840.94 s [opt-env-conf-test] + functionChunk "argument",
  1080. 840.94 s [opt-env-conf-test] + ", ",
  1081. 840.94 s [opt-env-conf-test] + functionChunk "switch",
  1082. 840.94 s [opt-env-conf-test] + ", ",
  1083. 840.94 s [opt-env-conf-test] + functionChunk "option",
  1084. 840.94 s [opt-env-conf-test] + ", ",
  1085. 840.94 s [opt-env-conf-test] + functionChunk "env",
  1086. 840.94 s [opt-env-conf-test] + ", ",
  1087. 840.94 s [opt-env-conf-test] + functionChunk "conf",
  1088. 840.94 s [opt-env-conf-test] + ", or ",
  1089. 840.94 s [opt-env-conf-test] + functionChunk "value",
  1090. 840.94 s [opt-env-conf-test] + "."
  1091. 840.94 s [opt-env-conf-test] + ]
  1092. 840.94 s [opt-env-conf-test] + ]
  1093. 840.94 s [opt-env-conf-test] + ]
  1094. 840.94 s [opt-env-conf-test] + LintErrorDashInShort ->
  1095. 840.94 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  1096. 840.94 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  1097. 840.94 s [opt-env-conf-test] + ]
  1098. 840.94 s [opt-env-conf-test] + LintErrorDashInLong s ->
  1099. 840.94 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  1100. 840.94 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1101. 840.94 s [opt-env-conf-test] + [ "Try ",
  1102. 840.94 s [opt-env-conf-test] + functionChunk "long",
  1103. 840.94 s [opt-env-conf-test] + " ",
  1104. 840.94 s [opt-env-conf-test] + chunk $
  1105. 840.94 s [opt-env-conf-test] + T.pack $
  1106. 840.94 s [opt-env-conf-test] + show $
  1107. 840.94 s [opt-env-conf-test] + let go = \case
  1108. 840.94 s [opt-env-conf-test] + [] -> []
  1109. 840.94 s [opt-env-conf-test] + '-' : cs -> go cs
  1110. 840.94 s [opt-env-conf-test] + c : cs -> c : cs
  1111. 842.92 s [opt-env-conf-test] + in go $ NE.toList s,
  1112. 842.92 s [opt-env-conf-test] + " instead."
  1113. 842.92 s [opt-env-conf-test] + ]
  1114. 842.93 s [opt-env-conf-test] + ]
  1115. 842.93 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  1116. 842.93 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1117. 842.93 s [opt-env-conf-test] + " has no ",
  1118. 842.93 s [opt-env-conf-test] + functionChunk "reader",
  1119. 842.93 s [opt-env-conf-test] + "."
  1120. 842.93 s [opt-env-conf-test] + ]
  1121. 842.93 s [opt-env-conf-test] + ]
  1122. 842.93 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  1123. 842.93 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1124. 842.93 s [opt-env-conf-test] + " has no ",
  1125. 842.93 s [opt-env-conf-test] + functionChunk "metavar",
  1126. 842.93 s [opt-env-conf-test] + "."
  1127. 842.93 s [opt-env-conf-test] + ]
  1128. 842.93 s [opt-env-conf-test] + ]
  1129. 842.93 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  1130. 842.93 s [opt-env-conf-test] + [ [ functionChunk "option",
  1131. 842.93 s [opt-env-conf-test] + " or ",
  1132. 842.93 s [opt-env-conf-test] + functionChunk "name",
  1133. 842.93 s [opt-env-conf-test] + " has no ",
  1134. 842.93 s [opt-env-conf-test] + functionChunk "reader",
  1135. 842.93 s [opt-env-conf-test] + "."
  1136. 842.93 s [opt-env-conf-test] + ]
  1137. 842.93 s [opt-env-conf-test] + ]
  1138. 842.93 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  1139. 842.93 s [opt-env-conf-test] + [ [ functionChunk "option",
  1140. 842.93 s [opt-env-conf-test] + " has no ",
  1141. 842.93 s [opt-env-conf-test] + functionChunk "long",
  1142. 842.93 s [opt-env-conf-test] + " or ",
  1143. 842.93 s [opt-env-conf-test] + functionChunk "short",
  1144. 842.93 s [opt-env-conf-test] + "."
  1145. 842.93 s [opt-env-conf-test] + ]
  1146. 842.93 s [opt-env-conf-test] + ]
  1147. 842.93 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  1148. 842.93 s [opt-env-conf-test] + [ [ functionChunk "option",
  1149. 842.93 s [opt-env-conf-test] + " or ",
  1150. 842.93 s [opt-env-conf-test] + functionChunk "name",
  1151. 842.93 s [opt-env-conf-test] + " has no ",
  1152. 842.93 s [opt-env-conf-test] + functionChunk "metavar",
  1153. 842.93 s [opt-env-conf-test] + "."
  1154. 842.93 s [opt-env-conf-test] + ]
  1155. 842.93 s [opt-env-conf-test] + ]
  1156. 842.93 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  1157. 842.94 s [opt-env-conf-test] + [ [ functionChunk "switch",
  1158. 842.94 s [opt-env-conf-test] + " has no ",
  1159. 842.94 s [opt-env-conf-test] + functionChunk "long",
  1160. 842.94 s [opt-env-conf-test] + " or ",
  1161. 842.94 s [opt-env-conf-test] + functionChunk "short",
  1162. 842.94 s [opt-env-conf-test] + "."
  1163. 842.94 s [opt-env-conf-test] + ]
  1164. 842.94 s [opt-env-conf-test] + ]
  1165. 842.94 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  1166. 842.94 s [opt-env-conf-test] + [ [ functionChunk "long",
  1167. 842.94 s [opt-env-conf-test] + " or ",
  1168. 842.94 s [opt-env-conf-test] + functionChunk "short",
  1169. 842.94 s [opt-env-conf-test] + " has no ",
  1170. 842.94 s [opt-env-conf-test] + functionChunk "option",
  1171. 842.94 s [opt-env-conf-test] + " or ",
  1172. 842.94 s [opt-env-conf-test] + functionChunk "switch",
  1173. 842.94 s [opt-env-conf-test] + "."
  1174. 842.94 s [opt-env-conf-test] + ]
  1175. 842.94 s [opt-env-conf-test] + ]
  1176. 842.94 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  1177. 842.94 s [opt-env-conf-test] + [ [ functionChunk "env",
  1178. 842.94 s [opt-env-conf-test] + " or ",
  1179. 842.94 s [opt-env-conf-test] + functionChunk "name",
  1180. 842.94 s [opt-env-conf-test] + " has no ",
  1181. 842.94 s [opt-env-conf-test] + functionChunk "reader",
  1182. 842.94 s [opt-env-conf-test] + "."
  1183. 842.94 s [opt-env-conf-test] + ]
  1184. 842.94 s [opt-env-conf-test] + ]
  1185. 842.94 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  1186. 842.94 s [opt-env-conf-test] + [ [ functionChunk "env",
  1187. 842.94 s [opt-env-conf-test] + " or ",
  1188. 842.94 s [opt-env-conf-test] + functionChunk "name",
  1189. 842.94 s [opt-env-conf-test] + " has no ",
  1190. 842.94 s [opt-env-conf-test] + functionChunk "metavar",
  1191. 842.94 s [opt-env-conf-test] + "."
  1192. 842.94 s [opt-env-conf-test] + ]
  1193. 842.94 s [opt-env-conf-test] + ]
  1194. 842.94 s [opt-env-conf-test] + LintErrorNoCommands ->
  1195. 842.94 s [opt-env-conf-test] + [ [ functionChunk "commands",
  1196. 842.94 s [opt-env-conf-test] + " was called with an empty list."
  1197. 842.94 s [opt-env-conf-test] + ]
  1198. 842.94 s [opt-env-conf-test] + ]
  1199. 842.94 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  1200. 842.94 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  1201. 842.94 s [opt-env-conf-test] + " was called with an unknown command: ",
  1202. 842.94 s [opt-env-conf-test] + commandChunk c
  1203. 842.94 s [opt-env-conf-test] + ]
  1204. 842.94 s [opt-env-conf-test] + ]
  1205. 842.94 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  1206. 842.94 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1207. 842.94 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  1208. 842.94 s [opt-env-conf-test] + ]
  1209. 842.94 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  1210. 842.94 s [opt-env-conf-test] + [ [ functionChunk "conf",
  1211. 842.94 s [opt-env-conf-test] + " or ",
  1212. 842.94 s [opt-env-conf-test] + functionChunk "name",
  1213. 842.94 s [opt-env-conf-test] + " was called with no way to load configuration."
  1214. 842.94 s [opt-env-conf-test] + ],
  1215. 842.94 s [opt-env-conf-test] + [ "You can load configuration with ",
  1216. 842.94 s [opt-env-conf-test] + functionChunk "withConfig",
  1217. 842.94 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  1218. 842.94 s [opt-env-conf-test] + functionChunk "withoutConfig",
  1219. 842.94 s [opt-env-conf-test] + "."
  1220. 842.94 s [opt-env-conf-test] + ]
  1221. 842.94 s [opt-env-conf-test] + ]
  1222. 842.94 s [opt-env-conf-test] + LintErrorManyInfinite ->
  1223. 842.94 s [opt-env-conf-test] + [ [ functionChunk "many",
  1224. 842.94 s [opt-env-conf-test] + " or ",
  1225. 842.94 s [opt-env-conf-test] + functionChunk "some",
  1226. 842.94 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  1227. 842.94 s [opt-env-conf-test] + ],
  1228. 842.94 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  1229. 842.95 s [opt-env-conf-test] + ],
  1230. 842.95 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1231. 842.95 s [opt-env-conf-test] ]
  1232. 842.95 s [opt-env-conf-test]
  1233. 842.95 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
  1234. 842.95 s [opt-env-conf-test] @@ -93,7 +93,7 @@
  1235. 842.95 s [opt-env-conf-test] ]
  1236. 842.95 s [opt-env-conf-test] ]
  1237. 842.95 s [opt-env-conf-test] LintErrorDashInShort ->
  1238. 842.95 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  1239. 842.95 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  1240. 842.95 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  1241. 842.95 s [opt-env-conf-test] ]
  1242. 842.95 s [opt-env-conf-test] LintErrorDashInLong s ->
  1243. 842.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  1244. 842.95 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  1245. 842.95 s [opt-env-conf-test] renderLintError LintError {..} =
  1246. 842.95 s [opt-env-conf-test] concat
  1247. 842.95 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  1248. 842.95 s [opt-env-conf-test] - case lintErrorMessage of
  1249. 842.95 s [opt-env-conf-test] - LintErrorUndocumented ->
  1250. 842.95 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  1251. 842.95 s [opt-env-conf-test] - LintErrorEmptySetting ->
  1252. 842.95 s [opt-env-conf-test] - concat
  1253. 842.95 s [opt-env-conf-test] - [ [ [ "This ",
  1254. 842.95 s [opt-env-conf-test] - functionChunk "setting",
  1255. 842.95 s [opt-env-conf-test] - " parses nothing."
  1256. 842.95 s [opt-env-conf-test] - ]
  1257. 842.95 s [opt-env-conf-test] - ],
  1258. 842.95 s [opt-env-conf-test] - [ [ "Add an ",
  1259. 842.95 s [opt-env-conf-test] - functionChunk "argument",
  1260. 842.95 s [opt-env-conf-test] - ", ",
  1261. 842.95 s [opt-env-conf-test] - functionChunk "switch",
  1262. 842.95 s [opt-env-conf-test] - ", ",
  1263. 842.95 s [opt-env-conf-test] - functionChunk "option",
  1264. 842.95 s [opt-env-conf-test] - ", ",
  1265. 842.95 s [opt-env-conf-test] - functionChunk "env",
  1266. 842.95 s [opt-env-conf-test] - ", ",
  1267. 842.95 s [opt-env-conf-test] - functionChunk "conf",
  1268. 842.95 s [opt-env-conf-test] - ", or ",
  1269. 842.95 s [opt-env-conf-test] - functionChunk "value",
  1270. 842.95 s [opt-env-conf-test] - "."
  1271. 842.95 s [opt-env-conf-test] - ]
  1272. 842.95 s [opt-env-conf-test] - ]
  1273. 842.95 s [opt-env-conf-test] - ]
  1274. 842.95 s [opt-env-conf-test] - LintErrorDashInShort ->
  1275. 842.95 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  1276. 842.95 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  1277. 842.95 s [opt-env-conf-test] - ]
  1278. 842.95 s [opt-env-conf-test] - LintErrorDashInLong s ->
  1279. 842.95 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  1280. 842.95 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1281. 842.95 s [opt-env-conf-test] - [ "Try ",
  1282. 842.95 s [opt-env-conf-test] - functionChunk "long",
  1283. 842.95 s [opt-env-conf-test] - " ",
  1284. 842.95 s [opt-env-conf-test] - chunk $
  1285. 842.95 s [opt-env-conf-test] - T.pack $
  1286. 842.95 s [opt-env-conf-test] - show $
  1287. 842.95 s [opt-env-conf-test] - let go = \case
  1288. 842.95 s [opt-env-conf-test] - [] -> []
  1289. 842.95 s [opt-env-conf-test] - '-' : cs -> go cs
  1290. 842.95 s [opt-env-conf-test] - c : cs -> c : cs
  1291. 842.95 s [opt-env-conf-test] - in go $ NE.toList s,
  1292. 842.95 s [opt-env-conf-test] - " instead."
  1293. 842.95 s [opt-env-conf-test] - ]
  1294. 842.95 s [opt-env-conf-test] - ]
  1295. 842.95 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  1296. 842.95 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1297. 842.95 s [opt-env-conf-test] - " has no ",
  1298. 842.95 s [opt-env-conf-test] - functionChunk "reader",
  1299. 842.95 s [opt-env-conf-test] - "."
  1300. 842.95 s [opt-env-conf-test] - ]
  1301. 842.95 s [opt-env-conf-test] - ]
  1302. 842.95 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  1303. 842.95 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1304. 842.95 s [opt-env-conf-test] - " has no ",
  1305. 842.95 s [opt-env-conf-test] - functionChunk "metavar",
  1306. 842.96 s [opt-env-conf-test] - "."
  1307. 842.96 s [opt-env-conf-test] - ]
  1308. 842.96 s [opt-env-conf-test] - ]
  1309. 842.96 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  1310. 842.96 s [opt-env-conf-test] - [ [ functionChunk "option",
  1311. 842.96 s [opt-env-conf-test] - " or ",
  1312. 842.96 s [opt-env-conf-test] - functionChunk "name",
  1313. 842.96 s [opt-env-conf-test] - " has no ",
  1314. 842.96 s [opt-env-conf-test] - functionChunk "reader",
  1315. 842.96 s [opt-env-conf-test] - "."
  1316. 842.96 s [opt-env-conf-test] - ]
  1317. 842.96 s [opt-env-conf-test] - ]
  1318. 842.96 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  1319. 842.96 s [opt-env-conf-test] - [ [ functionChunk "option",
  1320. 842.96 s [opt-env-conf-test] - " has no ",
  1321. 842.96 s [opt-env-conf-test] - functionChunk "long",
  1322. 842.96 s [opt-env-conf-test] - " or ",
  1323. 842.96 s [opt-env-conf-test] - functionChunk "short",
  1324. 842.96 s [opt-env-conf-test] - "."
  1325. 842.96 s [opt-env-conf-test] - ]
  1326. 842.96 s [opt-env-conf-test] - ]
  1327. 842.96 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  1328. 842.96 s [opt-env-conf-test] - [ [ functionChunk "option",
  1329. 842.96 s [opt-env-conf-test] - " or ",
  1330. 842.96 s [opt-env-conf-test] - functionChunk "name",
  1331. 842.96 s [opt-env-conf-test] - " has no ",
  1332. 842.96 s [opt-env-conf-test] - functionChunk "metavar",
  1333. 842.96 s [opt-env-conf-test] - "."
  1334. 842.96 s [opt-env-conf-test] - ]
  1335. 842.96 s [opt-env-conf-test] - ]
  1336. 842.96 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  1337. 842.96 s [opt-env-conf-test] - [ [ functionChunk "switch",
  1338. 842.96 s [opt-env-conf-test] - " has no ",
  1339. 842.96 s [opt-env-conf-test] - functionChunk "long",
  1340. 842.96 s [opt-env-conf-test] - " or ",
  1341. 842.96 s [opt-env-conf-test] - functionChunk "short",
  1342. 842.96 s [opt-env-conf-test] - "."
  1343. 842.96 s [opt-env-conf-test] - ]
  1344. 842.96 s [opt-env-conf-test] - ]
  1345. 842.96 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  1346. 842.96 s [opt-env-conf-test] - [ [ functionChunk "long",
  1347. 842.96 s [opt-env-conf-test] - " or ",
  1348. 842.96 s [opt-env-conf-test] - functionChunk "short",
  1349. 842.96 s [opt-env-conf-test] - " has no ",
  1350. 842.96 s [opt-env-conf-test] - functionChunk "option",
  1351. 842.96 s [opt-env-conf-test] - " or ",
  1352. 842.96 s [opt-env-conf-test] - functionChunk "switch",
  1353. 842.96 s [opt-env-conf-test] - "."
  1354. 842.96 s [opt-env-conf-test] - ]
  1355. 842.96 s [opt-env-conf-test] - ]
  1356. 842.96 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  1357. 842.96 s [opt-env-conf-test] - [ [ functionChunk "env",
  1358. 842.96 s [opt-env-conf-test] - " or ",
  1359. 842.96 s [opt-env-conf-test] - functionChunk "name",
  1360. 842.96 s [opt-env-conf-test] - " has no ",
  1361. 842.96 s [opt-env-conf-test] - functionChunk "reader",
  1362. 842.96 s [opt-env-conf-test] - "."
  1363. 842.96 s [opt-env-conf-test] - ]
  1364. 842.96 s [opt-env-conf-test] - ]
  1365. 842.96 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  1366. 842.96 s [opt-env-conf-test] - [ [ functionChunk "env",
  1367. 842.96 s [opt-env-conf-test] - " or ",
  1368. 842.96 s [opt-env-conf-test] - functionChunk "name",
  1369. 842.96 s [opt-env-conf-test] - " has no ",
  1370. 842.96 s [opt-env-conf-test] - functionChunk "metavar",
  1371. 842.96 s [opt-env-conf-test] - "."
  1372. 842.96 s [opt-env-conf-test] - ]
  1373. 842.96 s [opt-env-conf-test] - ]
  1374. 842.96 s [opt-env-conf-test] - LintErrorNoCommands ->
  1375. 842.96 s [opt-env-conf-test] - [ [ functionChunk "commands",
  1376. 843.65 s [opt-env-conf-test] - " was called with an empty list."
  1377. 843.65 s [opt-env-conf-test] - ]
  1378. 843.65 s [opt-env-conf-test] - ]
  1379. 843.65 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  1380. 843.65 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  1381. 843.65 s [opt-env-conf-test] - " was called with an unknown command: ",
  1382. 843.65 s [opt-env-conf-test] - commandChunk c
  1383. 843.65 s [opt-env-conf-test] - ]
  1384. 843.65 s [opt-env-conf-test] - ]
  1385. 843.65 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  1386. 843.65 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1387. 843.65 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1388. 843.65 s [opt-env-conf-test] - ]
  1389. 843.65 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  1390. 843.65 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1391. 843.65 s [opt-env-conf-test] - " or ",
  1392. 843.65 s [opt-env-conf-test] - functionChunk "name",
  1393. 843.65 s [opt-env-conf-test] - " was called with no way to load configuration."
  1394. 843.65 s [opt-env-conf-test] - ],
  1395. 843.65 s [opt-env-conf-test] - [ "You can load configuration with ",
  1396. 843.65 s [opt-env-conf-test] - functionChunk "withConfig",
  1397. 843.65 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1398. 843.65 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1399. 843.65 s [opt-env-conf-test] - "."
  1400. 843.65 s [opt-env-conf-test] - ]
  1401. 843.65 s [opt-env-conf-test] - ]
  1402. 843.65 s [opt-env-conf-test] - LintErrorManyInfinite ->
  1403. 843.65 s [opt-env-conf-test] - [ [ functionChunk "many",
  1404. 843.65 s [opt-env-conf-test] - " or ",
  1405. 843.65 s [opt-env-conf-test] - functionChunk "some",
  1406. 843.65 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1407. 843.65 s [opt-env-conf-test] - ],
  1408. 843.65 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  1409. 843.65 s [opt-env-conf-test] - ],
  1410. 843.65 s [opt-env-conf-test] + case lintErrorMessage of
  1411. 843.65 s [opt-env-conf-test] + LintErrorUndocumented ->
  1412. 843.65 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  1413. 843.65 s [opt-env-conf-test] + LintErrorEmptySetting ->
  1414. 843.65 s [opt-env-conf-test] + concat
  1415. 843.65 s [opt-env-conf-test] + [ [ [ "This ",
  1416. 843.65 s [opt-env-conf-test] + functionChunk "setting",
  1417. 843.65 s [opt-env-conf-test] + " parses nothing."
  1418. 843.65 s [opt-env-conf-test] + ]
  1419. 843.65 s [opt-env-conf-test] + ],
  1420. 843.66 s [opt-env-conf-test] + [ [ "Add an ",
  1421. 843.66 s [opt-env-conf-test] + functionChunk "argument",
  1422. 843.66 s [opt-env-conf-test] + ", ",
  1423. 843.66 s [opt-env-conf-test] + functionChunk "switch",
  1424. 843.66 s [opt-env-conf-test] + ", ",
  1425. 843.66 s [opt-env-conf-test] + functionChunk "option",
  1426. 843.66 s [opt-env-conf-test] + ", ",
  1427. 843.66 s [opt-env-conf-test] + functionChunk "env",
  1428. 843.66 s [opt-env-conf-test] + ", ",
  1429. 843.66 s [opt-env-conf-test] + functionChunk "conf",
  1430. 843.66 s [opt-env-conf-test] + ", or ",
  1431. 843.66 s [opt-env-conf-test] + functionChunk "value",
  1432. 843.66 s [opt-env-conf-test] + "."
  1433. 843.66 s [opt-env-conf-test] + ]
  1434. 843.66 s [opt-env-conf-test] + ]
  1435. 843.66 s [opt-env-conf-test] + ]
  1436. 843.66 s [opt-env-conf-test] + LintErrorDashInShort ->
  1437. 843.66 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  1438. 843.66 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  1439. 843.66 s [opt-env-conf-test] + ]
  1440. 843.66 s [opt-env-conf-test] + LintErrorDashInLong s ->
  1441. 843.66 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  1442. 843.66 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1443. 843.66 s [opt-env-conf-test] + [ "Try ",
  1444. 843.66 s [opt-env-conf-test] + functionChunk "long",
  1445. 843.66 s [opt-env-conf-test] + " ",
  1446. 843.66 s [opt-env-conf-test] + chunk $
  1447. 843.66 s [opt-env-conf-test] + T.pack $
  1448. 843.66 s [opt-env-conf-test] + show $
  1449. 843.66 s [opt-env-conf-test] + let go = \case
  1450. 843.66 s [opt-env-conf-test] + [] -> []
  1451. 843.66 s [opt-env-conf-test] + '-' : cs -> go cs
  1452. 843.66 s [opt-env-conf-test] + c : cs -> c : cs
  1453. 843.66 s [opt-env-conf-test] + in go $ NE.toList s,
  1454. 843.66 s [opt-env-conf-test] + " instead."
  1455. 843.66 s [opt-env-conf-test] + ]
  1456. 843.66 s [opt-env-conf-test] + ]
  1457. 843.66 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  1458. 843.66 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1459. 843.66 s [opt-env-conf-test] + " has no ",
  1460. 843.66 s [opt-env-conf-test] + functionChunk "reader",
  1461. 843.66 s [opt-env-conf-test] + "."
  1462. 843.66 s [opt-env-conf-test] + ]
  1463. 843.66 s [opt-env-conf-test] + ]
  1464. 843.66 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  1465. 843.66 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1466. 843.66 s [opt-env-conf-test] + " has no ",
  1467. 843.66 s [opt-env-conf-test] + functionChunk "metavar",
  1468. 843.66 s [opt-env-conf-test] + "."
  1469. 843.66 s [opt-env-conf-test] + ]
  1470. 843.66 s [opt-env-conf-test] + ]
  1471. 843.66 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  1472. 843.66 s [opt-env-conf-test] + [ [ functionChunk "option",
  1473. 843.66 s [opt-env-conf-test] + " or ",
  1474. 843.66 s [opt-env-conf-test] + functionChunk "name",
  1475. 843.66 s [opt-env-conf-test] + " has no ",
  1476. 843.66 s [opt-env-conf-test] + functionChunk "reader",
  1477. 843.66 s [opt-env-conf-test] + "."
  1478. 843.66 s [opt-env-conf-test] + ]
  1479. 843.66 s [opt-env-conf-test] + ]
  1480. 843.66 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  1481. 843.66 s [opt-env-conf-test] + [ [ functionChunk "option",
  1482. 843.66 s [opt-env-conf-test] + " has no ",
  1483. 843.66 s [opt-env-conf-test] + functionChunk "long",
  1484. 843.66 s [opt-env-conf-test] + " or ",
  1485. 843.66 s [opt-env-conf-test] + functionChunk "short",
  1486. 843.66 s [opt-env-conf-test] + "."
  1487. 843.66 s [opt-env-conf-test] + ]
  1488. 843.66 s [opt-env-conf-test] + ]
  1489. 843.66 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  1490. 843.66 s [opt-env-conf-test] + [ [ functionChunk "option",
  1491. 843.66 s [opt-env-conf-test] + " or ",
  1492. 843.66 s [opt-env-conf-test] + functionChunk "name",
  1493. 843.66 s [opt-env-conf-test] + " has no ",
  1494. 843.66 s [opt-env-conf-test] + functionChunk "metavar",
  1495. 843.66 s [opt-env-conf-test] + "."
  1496. 843.66 s [opt-env-conf-test] + ]
  1497. 843.66 s [opt-env-conf-test] + ]
  1498. 843.66 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  1499. 843.66 s [opt-env-conf-test] + [ [ functionChunk "switch",
  1500. 843.66 s [opt-env-conf-test] + " has no ",
  1501. 843.66 s [opt-env-conf-test] + functionChunk "long",
  1502. 843.66 s [opt-env-conf-test] + " or ",
  1503. 843.66 s [opt-env-conf-test] + functionChunk "short",
  1504. 843.67 s [opt-env-conf-test] + "."
  1505. 843.67 s [opt-env-conf-test] + ]
  1506. 843.67 s [opt-env-conf-test] + ]
  1507. 843.67 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  1508. 843.67 s [opt-env-conf-test] + [ [ functionChunk "long",
  1509. 843.67 s [opt-env-conf-test] + " or ",
  1510. 843.67 s [opt-env-conf-test] + functionChunk "short",
  1511. 843.67 s [opt-env-conf-test] + " has no ",
  1512. 843.67 s [opt-env-conf-test] + functionChunk "option",
  1513. 843.67 s [opt-env-conf-test] + " or ",
  1514. 843.67 s [opt-env-conf-test] + functionChunk "switch",
  1515. 843.67 s [opt-env-conf-test] + "."
  1516. 843.67 s [opt-env-conf-test] + ]
  1517. 843.67 s [opt-env-conf-test] + ]
  1518. 843.67 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  1519. 843.67 s [opt-env-conf-test] + [ [ functionChunk "env",
  1520. 843.67 s [opt-env-conf-test] + " or ",
  1521. 843.67 s [opt-env-conf-test] + functionChunk "name",
  1522. 843.67 s [opt-env-conf-test] + " has no ",
  1523. 843.67 s [opt-env-conf-test] + functionChunk "reader",
  1524. 843.67 s [opt-env-conf-test] + "."
  1525. 843.67 s [opt-env-conf-test] + ]
  1526. 843.67 s [opt-env-conf-test] + ]
  1527. 843.67 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  1528. 843.67 s [opt-env-conf-test] + [ [ functionChunk "env",
  1529. 843.67 s [opt-env-conf-test] + " or ",
  1530. 843.67 s [opt-env-conf-test] + functionChunk "name",
  1531. 843.67 s [opt-env-conf-test] + " has no ",
  1532. 843.67 s [opt-env-conf-test] + functionChunk "metavar",
  1533. 843.67 s [opt-env-conf-test] + "."
  1534. 843.67 s [opt-env-conf-test] + ]
  1535. 843.67 s [opt-env-conf-test] + ]
  1536. 843.67 s [opt-env-conf-test] + LintErrorNoCommands ->
  1537. 843.67 s [opt-env-conf-test] + [ [ functionChunk "commands",
  1538. 843.67 s [opt-env-conf-test] + " was called with an empty list."
  1539. 843.67 s [opt-env-conf-test] + ]
  1540. 843.67 s [opt-env-conf-test] + ]
  1541. 843.67 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  1542. 843.67 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  1543. 843.67 s [opt-env-conf-test] + " was called with an unknown command: ",
  1544. 843.67 s [opt-env-conf-test] + commandChunk c
  1545. 843.67 s [opt-env-conf-test] + ]
  1546. 843.67 s [opt-env-conf-test] + ]
  1547. 843.67 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  1548. 843.67 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1549. 843.67 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  1550. 843.67 s [opt-env-conf-test] + ]
  1551. 843.67 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  1552. 843.67 s [opt-env-conf-test] + [ [ functionChunk "conf",
  1553. 843.67 s [opt-env-conf-test] + " or ",
  1554. 843.67 s [opt-env-conf-test] + functionChunk "name",
  1555. 843.67 s [opt-env-conf-test] + " was called with no way to load configuration."
  1556. 843.67 s [opt-env-conf-test] + ],
  1557. 843.67 s [opt-env-conf-test] + [ "You can load configuration with ",
  1558. 843.67 s [opt-env-conf-test] + functionChunk "withConfig",
  1559. 843.67 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  1560. 843.67 s [opt-env-conf-test] + functionChunk "withoutConfig",
  1561. 843.67 s [opt-env-conf-test] + "."
  1562. 843.67 s [opt-env-conf-test] + ]
  1563. 843.67 s [opt-env-conf-test] + ]
  1564. 843.67 s [opt-env-conf-test] + LintErrorManyInfinite ->
  1565. 843.67 s [opt-env-conf-test] + [ [ functionChunk "many",
  1566. 843.67 s [opt-env-conf-test] + " or ",
  1567. 843.67 s [opt-env-conf-test] + functionChunk "some",
  1568. 843.67 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  1569. 843.67 s [opt-env-conf-test] + ],
  1570. 843.67 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  1571. 843.67 s [opt-env-conf-test] + ],
  1572. 843.67 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1573. 843.67 s [opt-env-conf-test] ]
  1574. 843.67 s [opt-env-conf-test]
  1575. 843.67 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
  1576. 843.67 s [opt-env-conf-test] @@ -204,9 +204,9 @@
  1577. 843.67 s [opt-env-conf-test] ]
  1578. 843.67 s [opt-env-conf-test] ]
  1579. 843.67 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  1580. 843.67 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1581. 843.67 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1582. 843.67 s [opt-env-conf-test] - ]
  1583. 843.67 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1584. 843.67 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  1585. 843.67 s [opt-env-conf-test] + ]
  1586. 843.67 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1587. 843.67 s [opt-env-conf-test] [ [ functionChunk "conf",
  1588. 843.67 s [opt-env-conf-test] " or ",
  1589. 843.67 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  1590. 843.67 s [opt-env-conf-test] @@ -213,12 +213,7 @@
  1591. 843.67 s [opt-env-conf-test] functionChunk "name",
  1592. 843.67 s [opt-env-conf-test] " was called with no way to load configuration."
  1593. 843.67 s [opt-env-conf-test] ],
  1594. 843.67 s [opt-env-conf-test] - [ "You can load configuration with ",
  1595. 843.67 s [opt-env-conf-test] - functionChunk "withConfig",
  1596. 843.67 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1597. 843.67 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1598. 843.67 s [opt-env-conf-test] - "."
  1599. 843.67 s [opt-env-conf-test] - ]
  1600. 843.67 s [opt-env-conf-test] + []
  1601. 843.67 s [opt-env-conf-test] ]
  1602. 843.67 s [opt-env-conf-test] LintErrorManyInfinite ->
  1603. 843.67 s [opt-env-conf-test] [ [ functionChunk "many",
  1604. 843.67 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  1605. 843.67 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  1606. 843.67 s [opt-env-conf-test] renderLintError LintError {..} =
  1607. 843.67 s [opt-env-conf-test] concat
  1608. 843.67 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  1609. 843.67 s [opt-env-conf-test] - case lintErrorMessage of
  1610. 843.67 s [opt-env-conf-test] - LintErrorUndocumented ->
  1611. 843.67 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  1612. 843.67 s [opt-env-conf-test] - LintErrorEmptySetting ->
  1613. 843.67 s [opt-env-conf-test] - concat
  1614. 843.67 s [opt-env-conf-test] - [ [ [ "This ",
  1615. 843.67 s [opt-env-conf-test] - functionChunk "setting",
  1616. 843.67 s [opt-env-conf-test] - " parses nothing."
  1617. 843.67 s [opt-env-conf-test] - ]
  1618. 843.67 s [opt-env-conf-test] - ],
  1619. 843.67 s [opt-env-conf-test] - [ [ "Add an ",
  1620. 843.67 s [opt-env-conf-test] - functionChunk "argument",
  1621. 843.67 s [opt-env-conf-test] - ", ",
  1622. 843.67 s [opt-env-conf-test] - functionChunk "switch",
  1623. 843.67 s [opt-env-conf-test] - ", ",
  1624. 843.67 s [opt-env-conf-test] - functionChunk "option",
  1625. 843.67 s [opt-env-conf-test] - ", ",
  1626. 843.67 s [opt-env-conf-test] - functionChunk "env",
  1627. 843.67 s [opt-env-conf-test] - ", ",
  1628. 843.67 s [opt-env-conf-test] - functionChunk "conf",
  1629. 843.67 s [opt-env-conf-test] - ", or ",
  1630. 843.67 s [opt-env-conf-test] - functionChunk "value",
  1631. 843.67 s [opt-env-conf-test] - "."
  1632. 843.68 s [opt-env-conf-test] - ]
  1633. 843.68 s [opt-env-conf-test] - ]
  1634. 843.68 s [opt-env-conf-test] - ]
  1635. 843.68 s [opt-env-conf-test] - LintErrorDashInShort ->
  1636. 843.68 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  1637. 843.68 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  1638. 843.68 s [opt-env-conf-test] - ]
  1639. 843.68 s [opt-env-conf-test] - LintErrorDashInLong s ->
  1640. 843.68 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  1641. 843.68 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1642. 843.68 s [opt-env-conf-test] - [ "Try ",
  1643. 843.68 s [opt-env-conf-test] - functionChunk "long",
  1644. 843.68 s [opt-env-conf-test] - " ",
  1645. 843.68 s [opt-env-conf-test] - chunk $
  1646. 843.68 s [opt-env-conf-test] - T.pack $
  1647. 843.68 s [opt-env-conf-test] - show $
  1648. 843.68 s [opt-env-conf-test] - let go = \case
  1649. 843.68 s [opt-env-conf-test] - [] -> []
  1650. 843.68 s [opt-env-conf-test] - '-' : cs -> go cs
  1651. 843.68 s [opt-env-conf-test] - c : cs -> c : cs
  1652. 843.68 s [opt-env-conf-test] - in go $ NE.toList s,
  1653. 843.68 s [opt-env-conf-test] - " instead."
  1654. 843.68 s [opt-env-conf-test] - ]
  1655. 843.68 s [opt-env-conf-test] - ]
  1656. 843.68 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  1657. 843.68 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1658. 843.68 s [opt-env-conf-test] - " has no ",
  1659. 843.68 s [opt-env-conf-test] - functionChunk "reader",
  1660. 843.68 s [opt-env-conf-test] - "."
  1661. 843.68 s [opt-env-conf-test] - ]
  1662. 843.68 s [opt-env-conf-test] - ]
  1663. 843.68 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  1664. 843.68 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1665. 843.68 s [opt-env-conf-test] - " has no ",
  1666. 843.68 s [opt-env-conf-test] - functionChunk "metavar",
  1667. 843.68 s [opt-env-conf-test] - "."
  1668. 843.68 s [opt-env-conf-test] - ]
  1669. 843.68 s [opt-env-conf-test] - ]
  1670. 843.68 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  1671. 843.68 s [opt-env-conf-test] - [ [ functionChunk "option",
  1672. 843.68 s [opt-env-conf-test] - " or ",
  1673. 843.68 s [opt-env-conf-test] - functionChunk "name",
  1674. 843.68 s [opt-env-conf-test] - " has no ",
  1675. 843.68 s [opt-env-conf-test] - functionChunk "reader",
  1676. 843.68 s [opt-env-conf-test] - "."
  1677. 843.68 s [opt-env-conf-test] - ]
  1678. 843.68 s [opt-env-conf-test] - ]
  1679. 843.68 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  1680. 843.68 s [opt-env-conf-test] - [ [ functionChunk "option",
  1681. 843.68 s [opt-env-conf-test] - " has no ",
  1682. 843.68 s [opt-env-conf-test] - functionChunk "long",
  1683. 843.68 s [opt-env-conf-test] - " or ",
  1684. 843.68 s [opt-env-conf-test] - functionChunk "short",
  1685. 843.68 s [opt-env-conf-test] - "."
  1686. 843.68 s [opt-env-conf-test] - ]
  1687. 843.68 s [opt-env-conf-test] - ]
  1688. 843.68 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  1689. 843.68 s [opt-env-conf-test] - [ [ functionChunk "option",
  1690. 843.68 s [opt-env-conf-test] - " or ",
  1691. 843.68 s [opt-env-conf-test] - functionChunk "name",
  1692. 843.68 s [opt-env-conf-test] - " has no ",
  1693. 843.68 s [opt-env-conf-test] - functionChunk "metavar",
  1694. 843.68 s [opt-env-conf-test] - "."
  1695. 843.68 s [opt-env-conf-test] - ]
  1696. 843.68 s [opt-env-conf-test] - ]
  1697. 843.68 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  1698. 843.68 s [opt-env-conf-test] - [ [ functionChunk "switch",
  1699. 843.68 s [opt-env-conf-test] - " has no ",
  1700. 843.68 s [opt-env-conf-test] - functionChunk "long",
  1701. 843.68 s [opt-env-conf-test] - " or ",
  1702. 843.68 s [opt-env-conf-test] - functionChunk "short",
  1703. 843.68 s [opt-env-conf-test] - "."
  1704. 843.68 s [opt-env-conf-test] - ]
  1705. 843.68 s [opt-env-conf-test] - ]
  1706. 843.68 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  1707. 843.68 s [opt-env-conf-test] - [ [ functionChunk "long",
  1708. 843.68 s [opt-env-conf-test] - " or ",
  1709. 843.68 s [opt-env-conf-test] - functionChunk "short",
  1710. 843.68 s [opt-env-conf-test] - " has no ",
  1711. 843.68 s [opt-env-conf-test] - functionChunk "option",
  1712. 843.68 s [opt-env-conf-test] - " or ",
  1713. 843.68 s [opt-env-conf-test] - functionChunk "switch",
  1714. 843.68 s [opt-env-conf-test] - "."
  1715. 843.68 s [opt-env-conf-test] - ]
  1716. 843.68 s [opt-env-conf-test] - ]
  1717. 843.68 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  1718. 843.68 s [opt-env-conf-test] - [ [ functionChunk "env",
  1719. 843.68 s [opt-env-conf-test] - " or ",
  1720. 843.68 s [opt-env-conf-test] - functionChunk "name",
  1721. 843.68 s [opt-env-conf-test] - " has no ",
  1722. 843.68 s [opt-env-conf-test] - functionChunk "reader",
  1723. 843.68 s [opt-env-conf-test] - "."
  1724. 843.68 s [opt-env-conf-test] - ]
  1725. 843.68 s [opt-env-conf-test] - ]
  1726. 843.68 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  1727. 843.68 s [opt-env-conf-test] - [ [ functionChunk "env",
  1728. 843.68 s [opt-env-conf-test] - " or ",
  1729. 843.68 s [opt-env-conf-test] - functionChunk "name",
  1730. 843.68 s [opt-env-conf-test] - " has no ",
  1731. 843.68 s [opt-env-conf-test] - functionChunk "metavar",
  1732. 843.68 s [opt-env-conf-test] - "."
  1733. 843.68 s [opt-env-conf-test] - ]
  1734. 843.68 s [opt-env-conf-test] - ]
  1735. 843.68 s [opt-env-conf-test] - LintErrorNoCommands ->
  1736. 843.68 s [opt-env-conf-test] - [ [ functionChunk "commands",
  1737. 843.68 s [opt-env-conf-test] - " was called with an empty list."
  1738. 843.68 s [opt-env-conf-test] - ]
  1739. 843.68 s [opt-env-conf-test] - ]
  1740. 843.68 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  1741. 843.68 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  1742. 843.68 s [opt-env-conf-test] - " was called with an unknown command: ",
  1743. 843.68 s [opt-env-conf-test] - commandChunk c
  1744. 843.68 s [opt-env-conf-test] - ]
  1745. 843.68 s [opt-env-conf-test] - ]
  1746. 843.68 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  1747. 843.68 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1748. 843.68 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1749. 843.68 s [opt-env-conf-test] - ]
  1750. 843.68 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  1751. 843.68 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1752. 843.68 s [opt-env-conf-test] - " or ",
  1753. 843.68 s [opt-env-conf-test] - functionChunk "name",
  1754. 843.68 s [opt-env-conf-test] - " was called with no way to load configuration."
  1755. 843.68 s [opt-env-conf-test] - ],
  1756. 843.68 s [opt-env-conf-test] - [ "You can load configuration with ",
  1757. 843.69 s [opt-env-conf-test] - functionChunk "withConfig",
  1758. 843.69 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1759. 843.69 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1760. 843.69 s [opt-env-conf-test] - "."
  1761. 843.69 s [opt-env-conf-test] - ]
  1762. 843.69 s [opt-env-conf-test] - ]
  1763. 843.69 s [opt-env-conf-test] - LintErrorManyInfinite ->
  1764. 843.69 s [opt-env-conf-test] - [ [ functionChunk "many",
  1765. 843.69 s [opt-env-conf-test] - " or ",
  1766. 843.69 s [opt-env-conf-test] - functionChunk "some",
  1767. 843.69 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1768. 843.69 s [opt-env-conf-test] - ],
  1769. 843.69 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  1770. 843.69 s [opt-env-conf-test] - ],
  1771. 843.69 s [opt-env-conf-test] + case lintErrorMessage of
  1772. 843.69 s [opt-env-conf-test] + LintErrorUndocumented ->
  1773. 843.69 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  1774. 843.69 s [opt-env-conf-test] + LintErrorEmptySetting ->
  1775. 843.69 s [opt-env-conf-test] + concat
  1776. 843.69 s [opt-env-conf-test] + [ [ [ "This ",
  1777. 843.69 s [opt-env-conf-test] + functionChunk "setting",
  1778. 843.69 s [opt-env-conf-test] + " parses nothing."
  1779. 843.69 s [opt-env-conf-test] + ]
  1780. 843.69 s [opt-env-conf-test] + ],
  1781. 843.69 s [opt-env-conf-test] + [ [ "Add an ",
  1782. 843.69 s [opt-env-conf-test] + functionChunk "argument",
  1783. 843.69 s [opt-env-conf-test] + ", ",
  1784. 843.69 s [opt-env-conf-test] + functionChunk "switch",
  1785. 843.69 s [opt-env-conf-test] + ", ",
  1786. 843.69 s [opt-env-conf-test] + functionChunk "option",
  1787. 843.69 s [opt-env-conf-test] + ", ",
  1788. 843.69 s [opt-env-conf-test] + functionChunk "env",
  1789. 843.69 s [opt-env-conf-test] + ", ",
  1790. 843.69 s [opt-env-conf-test] + functionChunk "conf",
  1791. 843.69 s [opt-env-conf-test] + ", or ",
  1792. 843.69 s [opt-env-conf-test] + functionChunk "value",
  1793. 843.69 s [opt-env-conf-test] + "."
  1794. 843.69 s [opt-env-conf-test] + ]
  1795. 843.69 s [opt-env-conf-test] + ]
  1796. 843.69 s [opt-env-conf-test] + ]
  1797. 843.69 s [opt-env-conf-test] + LintErrorDashInShort ->
  1798. 843.69 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  1799. 843.69 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  1800. 843.69 s [opt-env-conf-test] + ]
  1801. 843.69 s [opt-env-conf-test] + LintErrorDashInLong s ->
  1802. 843.69 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  1803. 843.69 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1804. 843.69 s [opt-env-conf-test] + [ "Try ",
  1805. 843.69 s [opt-env-conf-test] + functionChunk "long",
  1806. 843.69 s [opt-env-conf-test] + " ",
  1807. 843.69 s [opt-env-conf-test] + chunk $
  1808. 843.69 s [opt-env-conf-test] + T.pack $
  1809. 843.69 s [opt-env-conf-test] + show $
  1810. 843.69 s [opt-env-conf-test] + let go = \case
  1811. 843.69 s [opt-env-conf-test] + [] -> []
  1812. 843.69 s [opt-env-conf-test] + '-' : cs -> go cs
  1813. 843.69 s [opt-env-conf-test] + c : cs -> c : cs
  1814. 843.69 s [opt-env-conf-test] + in go $ NE.toList s,
  1815. 843.69 s [opt-env-conf-test] + " instead."
  1816. 843.69 s [opt-env-conf-test] + ]
  1817. 843.69 s [opt-env-conf-test] + ]
  1818. 843.69 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  1819. 843.69 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1820. 843.69 s [opt-env-conf-test] + " has no ",
  1821. 843.69 s [opt-env-conf-test] + functionChunk "reader",
  1822. 843.69 s [opt-env-conf-test] + "."
  1823. 843.69 s [opt-env-conf-test] + ]
  1824. 843.69 s [opt-env-conf-test] + ]
  1825. 843.69 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  1826. 843.69 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1827. 843.69 s [opt-env-conf-test] + " has no ",
  1828. 843.69 s [opt-env-conf-test] + functionChunk "metavar",
  1829. 843.69 s [opt-env-conf-test] + "."
  1830. 843.69 s [opt-env-conf-test] + ]
  1831. 843.69 s [opt-env-conf-test] + ]
  1832. 843.69 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  1833. 843.69 s [opt-env-conf-test] + [ [ functionChunk "option",
  1834. 843.69 s [opt-env-conf-test] + " or ",
  1835. 843.69 s [opt-env-conf-test] + functionChunk "name",
  1836. 843.69 s [opt-env-conf-test] + " has no ",
  1837. 843.69 s [opt-env-conf-test] + functionChunk "reader",
  1838. 843.69 s [opt-env-conf-test] + "."
  1839. 843.69 s [opt-env-conf-test] + ]
  1840. 843.69 s [opt-env-conf-test] + ]
  1841. 843.69 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  1842. 843.69 s [opt-env-conf-test] + [ [ functionChunk "option",
  1843. 843.69 s [opt-env-conf-test] + " has no ",
  1844. 843.69 s [opt-env-conf-test] + functionChunk "long",
  1845. 843.69 s [opt-env-conf-test] + " or ",
  1846. 843.69 s [opt-env-conf-test] + functionChunk "short",
  1847. 843.69 s [opt-env-conf-test] + "."
  1848. 843.69 s [opt-env-conf-test] + ]
  1849. 843.69 s [opt-env-conf-test] + ]
  1850. 843.69 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  1851. 843.69 s [opt-env-conf-test] + [ [ functionChunk "option",
  1852. 843.69 s [opt-env-conf-test] + " or ",
  1853. 843.69 s [opt-env-conf-test] + functionChunk "name",
  1854. 843.69 s [opt-env-conf-test] + " has no ",
  1855. 843.69 s [opt-env-conf-test] + functionChunk "metavar",
  1856. 843.69 s [opt-env-conf-test] + "."
  1857. 843.69 s [opt-env-conf-test] + ]
  1858. 843.69 s [opt-env-conf-test] + ]
  1859. 843.69 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  1860. 843.69 s [opt-env-conf-test] + [ [ functionChunk "switch",
  1861. 843.69 s [opt-env-conf-test] + " has no ",
  1862. 843.69 s [opt-env-conf-test] + functionChunk "long",
  1863. 843.69 s [opt-env-conf-test] + " or ",
  1864. 843.69 s [opt-env-conf-test] + functionChunk "short",
  1865. 843.69 s [opt-env-conf-test] + "."
  1866. 843.69 s [opt-env-conf-test] + ]
  1867. 843.69 s [opt-env-conf-test] + ]
  1868. 843.69 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  1869. 843.69 s [opt-env-conf-test] + [ [ functionChunk "long",
  1870. 843.69 s [opt-env-conf-test] + " or ",
  1871. 843.69 s [opt-env-conf-test] + functionChunk "short",
  1872. 843.69 s [opt-env-conf-test] + " has no ",
  1873. 843.69 s [opt-env-conf-test] + functionChunk "option",
  1874. 843.69 s [opt-env-conf-test] + " or ",
  1875. 843.69 s [opt-env-conf-test] + functionChunk "switch",
  1876. 843.69 s [opt-env-conf-test] + "."
  1877. 843.75 s [opt-env-conf-test] + ]
  1878. 843.75 s [opt-env-conf-test] + ]
  1879. 843.75 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  1880. 843.75 s [opt-env-conf-test] + [ [ functionChunk "env",
  1881. 843.75 s [opt-env-conf-test] + " or ",
  1882. 843.75 s [opt-env-conf-test] + functionChunk "name",
  1883. 843.75 s [opt-env-conf-test] + " has no ",
  1884. 843.75 s [opt-env-conf-test] + functionChunk "reader",
  1885. 843.75 s [opt-env-conf-test] + "."
  1886. 843.75 s [opt-env-conf-test] + ]
  1887. 843.75 s [opt-env-conf-test] + ]
  1888. 843.75 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  1889. 843.75 s [opt-env-conf-test] + [ [ functionChunk "env",
  1890. 843.75 s [opt-env-conf-test] + " or ",
  1891. 843.75 s [opt-env-conf-test] + functionChunk "name",
  1892. 843.75 s [opt-env-conf-test] + " has no ",
  1893. 843.75 s [opt-env-conf-test] + functionChunk "metavar",
  1894. 843.75 s [opt-env-conf-test] + "."
  1895. 843.75 s [opt-env-conf-test] + ]
  1896. 843.75 s [opt-env-conf-test] + ]
  1897. 843.75 s [opt-env-conf-test] + LintErrorNoCommands ->
  1898. 843.75 s [opt-env-conf-test] + [ [ functionChunk "commands",
  1899. 843.75 s [opt-env-conf-test] + " was called with an empty list."
  1900. 843.75 s [opt-env-conf-test] + ]
  1901. 843.75 s [opt-env-conf-test] + ]
  1902. 843.75 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  1903. 843.75 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  1904. 843.75 s [opt-env-conf-test] + " was called with an unknown command: ",
  1905. 843.75 s [opt-env-conf-test] + commandChunk c
  1906. 843.76 s [opt-env-conf-test] + ]
  1907. 843.76 s [opt-env-conf-test] + ]
  1908. 843.76 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  1909. 843.76 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1910. 843.76 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  1911. 843.76 s [opt-env-conf-test] + ]
  1912. 843.76 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  1913. 843.76 s [opt-env-conf-test] + [ [ functionChunk "conf",
  1914. 843.76 s [opt-env-conf-test] + " or ",
  1915. 843.76 s [opt-env-conf-test] + functionChunk "name",
  1916. 843.76 s [opt-env-conf-test] + " was called with no way to load configuration."
  1917. 843.76 s [opt-env-conf-test] + ],
  1918. 843.76 s [opt-env-conf-test] + [ "You can load configuration with ",
  1919. 843.76 s [opt-env-conf-test] + functionChunk "withConfig",
  1920. 843.76 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  1921. 843.76 s [opt-env-conf-test] + functionChunk "withoutConfig",
  1922. 843.76 s [opt-env-conf-test] + "."
  1923. 843.76 s [opt-env-conf-test] + ]
  1924. 843.76 s [opt-env-conf-test] + ]
  1925. 843.76 s [opt-env-conf-test] + LintErrorManyInfinite ->
  1926. 843.76 s [opt-env-conf-test] + [ [ functionChunk "many",
  1927. 843.76 s [opt-env-conf-test] + " or ",
  1928. 843.76 s [opt-env-conf-test] + functionChunk "some",
  1929. 843.76 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  1930. 843.76 s [opt-env-conf-test] + ],
  1931. 843.76 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  1932. 843.76 s [opt-env-conf-test] + ],
  1933. 843.76 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1934. 843.76 s [opt-env-conf-test] ]
  1935. 843.76 s [opt-env-conf-test]
  1936. 843.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  1937. 843.76 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  1938. 843.76 s [opt-env-conf-test] renderLintError LintError {..} =
  1939. 843.76 s [opt-env-conf-test] concat
  1940. 843.76 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  1941. 843.76 s [opt-env-conf-test] - case lintErrorMessage of
  1942. 843.76 s [opt-env-conf-test] - LintErrorUndocumented ->
  1943. 843.76 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  1944. 843.76 s [opt-env-conf-test] - LintErrorEmptySetting ->
  1945. 843.76 s [opt-env-conf-test] - concat
  1946. 843.76 s [opt-env-conf-test] - [ [ [ "This ",
  1947. 843.76 s [opt-env-conf-test] - functionChunk "setting",
  1948. 843.76 s [opt-env-conf-test] - " parses nothing."
  1949. 843.76 s [opt-env-conf-test] - ]
  1950. 843.76 s [opt-env-conf-test] - ],
  1951. 843.76 s [opt-env-conf-test] - [ [ "Add an ",
  1952. 843.76 s [opt-env-conf-test] - functionChunk "argument",
  1953. 843.76 s [opt-env-conf-test] - ", ",
  1954. 843.76 s [opt-env-conf-test] - functionChunk "switch",
  1955. 843.76 s [opt-env-conf-test] - ", ",
  1956. 843.76 s [opt-env-conf-test] - functionChunk "option",
  1957. 843.76 s [opt-env-conf-test] - ", ",
  1958. 843.76 s [opt-env-conf-test] - functionChunk "env",
  1959. 843.76 s [opt-env-conf-test] - ", ",
  1960. 843.76 s [opt-env-conf-test] - functionChunk "conf",
  1961. 843.76 s [opt-env-conf-test] - ", or ",
  1962. 843.76 s [opt-env-conf-test] - functionChunk "value",
  1963. 843.76 s [opt-env-conf-test] - "."
  1964. 843.76 s [opt-env-conf-test] - ]
  1965. 843.76 s [opt-env-conf-test] - ]
  1966. 843.76 s [opt-env-conf-test] - ]
  1967. 843.76 s [opt-env-conf-test] - LintErrorDashInShort ->
  1968. 843.76 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  1969. 843.76 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  1970. 843.76 s [opt-env-conf-test] - ]
  1971. 843.76 s [opt-env-conf-test] - LintErrorDashInLong s ->
  1972. 843.76 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  1973. 843.76 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1974. 843.76 s [opt-env-conf-test] - [ "Try ",
  1975. 843.76 s [opt-env-conf-test] - functionChunk "long",
  1976. 843.76 s [opt-env-conf-test] - " ",
  1977. 843.76 s [opt-env-conf-test] - chunk $
  1978. 843.76 s [opt-env-conf-test] - T.pack $
  1979. 843.76 s [opt-env-conf-test] - show $
  1980. 843.76 s [opt-env-conf-test] - let go = \case
  1981. 843.76 s [opt-env-conf-test] - [] -> []
  1982. 843.76 s [opt-env-conf-test] - '-' : cs -> go cs
  1983. 843.76 s [opt-env-conf-test] - c : cs -> c : cs
  1984. 843.76 s [opt-env-conf-test] - in go $ NE.toList s,
  1985. 843.76 s [opt-env-conf-test] - " instead."
  1986. 843.77 s [opt-env-conf-test] - ]
  1987. 843.77 s [opt-env-conf-test] - ]
  1988. 843.77 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  1989. 843.77 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1990. 843.77 s [opt-env-conf-test] - " has no ",
  1991. 843.77 s [opt-env-conf-test] - functionChunk "reader",
  1992. 843.77 s [opt-env-conf-test] - "."
  1993. 843.77 s [opt-env-conf-test] - ]
  1994. 843.77 s [opt-env-conf-test] - ]
  1995. 843.77 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  1996. 843.77 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1997. 843.77 s [opt-env-conf-test] - " has no ",
  1998. 843.77 s [opt-env-conf-test] - functionChunk "metavar",
  1999. 843.77 s [opt-env-conf-test] - "."
  2000. 843.77 s [opt-env-conf-test] - ]
  2001. 843.77 s [opt-env-conf-test] - ]
  2002. 843.77 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  2003. 843.77 s [opt-env-conf-test] - [ [ functionChunk "option",
  2004. 843.77 s [opt-env-conf-test] - " or ",
  2005. 843.77 s [opt-env-conf-test] - functionChunk "name",
  2006. 843.77 s [opt-env-conf-test] - " has no ",
  2007. 843.77 s [opt-env-conf-test] - functionChunk "reader",
  2008. 843.77 s [opt-env-conf-test] - "."
  2009. 843.77 s [opt-env-conf-test] - ]
  2010. 843.77 s [opt-env-conf-test] - ]
  2011. 843.77 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  2012. 843.77 s [opt-env-conf-test] - [ [ functionChunk "option",
  2013. 843.77 s [opt-env-conf-test] - " has no ",
  2014. 843.77 s [opt-env-conf-test] - functionChunk "long",
  2015. 843.77 s [opt-env-conf-test] - " or ",
  2016. 843.77 s [opt-env-conf-test] - functionChunk "short",
  2017. 843.77 s [opt-env-conf-test] - "."
  2018. 843.77 s [opt-env-conf-test] - ]
  2019. 843.77 s [opt-env-conf-test] - ]
  2020. 843.77 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  2021. 843.77 s [opt-env-conf-test] - [ [ functionChunk "option",
  2022. 843.77 s [opt-env-conf-test] - " or ",
  2023. 843.77 s [opt-env-conf-test] - functionChunk "name",
  2024. 843.77 s [opt-env-conf-test] - " has no ",
  2025. 843.77 s [opt-env-conf-test] - functionChunk "metavar",
  2026. 843.77 s [opt-env-conf-test] - "."
  2027. 843.77 s [opt-env-conf-test] - ]
  2028. 843.77 s [opt-env-conf-test] - ]
  2029. 843.77 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  2030. 843.77 s [opt-env-conf-test] - [ [ functionChunk "switch",
  2031. 843.77 s [opt-env-conf-test] - " has no ",
  2032. 843.77 s [opt-env-conf-test] - functionChunk "long",
  2033. 843.77 s [opt-env-conf-test] - " or ",
  2034. 843.77 s [opt-env-conf-test] - functionChunk "short",
  2035. 843.77 s [opt-env-conf-test] - "."
  2036. 843.77 s [opt-env-conf-test] - ]
  2037. 843.77 s [opt-env-conf-test] - ]
  2038. 843.77 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  2039. 843.77 s [opt-env-conf-test] - [ [ functionChunk "long",
  2040. 843.77 s [opt-env-conf-test] - " or ",
  2041. 843.77 s [opt-env-conf-test] - functionChunk "short",
  2042. 843.77 s [opt-env-conf-test] - " has no ",
  2043. 843.77 s [opt-env-conf-test] - functionChunk "option",
  2044. 843.77 s [opt-env-conf-test] - " or ",
  2045. 843.77 s [opt-env-conf-test] - functionChunk "switch",
  2046. 843.77 s [opt-env-conf-test] - "."
  2047. 843.77 s [opt-env-conf-test] - ]
  2048. 843.77 s [opt-env-conf-test] - ]
  2049. 843.77 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  2050. 843.77 s [opt-env-conf-test] - [ [ functionChunk "env",
  2051. 843.77 s [opt-env-conf-test] - " or ",
  2052. 843.77 s [opt-env-conf-test] - functionChunk "name",
  2053. 843.77 s [opt-env-conf-test] - " has no ",
  2054. 843.77 s [opt-env-conf-test] - functionChunk "reader",
  2055. 843.77 s [opt-env-conf-test] - "."
  2056. 843.77 s [opt-env-conf-test] - ]
  2057. 843.77 s [opt-env-conf-test] - ]
  2058. 843.77 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  2059. 843.77 s [opt-env-conf-test] - [ [ functionChunk "env",
  2060. 843.77 s [opt-env-conf-test] - " or ",
  2061. 843.77 s [opt-env-conf-test] - functionChunk "name",
  2062. 843.77 s [opt-env-conf-test] - " has no ",
  2063. 843.77 s [opt-env-conf-test] - functionChunk "metavar",
  2064. 843.77 s [opt-env-conf-test] - "."
  2065. 843.77 s [opt-env-conf-test] - ]
  2066. 843.77 s [opt-env-conf-test] - ]
  2067. 843.77 s [opt-env-conf-test] - LintErrorNoCommands ->
  2068. 843.77 s [opt-env-conf-test] - [ [ functionChunk "commands",
  2069. 843.77 s [opt-env-conf-test] - " was called with an empty list."
  2070. 843.77 s [opt-env-conf-test] - ]
  2071. 843.77 s [opt-env-conf-test] - ]
  2072. 843.77 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  2073. 843.77 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  2074. 843.77 s [opt-env-conf-test] - " was called with an unknown command: ",
  2075. 843.77 s [opt-env-conf-test] - commandChunk c
  2076. 843.77 s [opt-env-conf-test] - ]
  2077. 843.77 s [opt-env-conf-test] - ]
  2078. 843.77 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  2079. 843.77 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2080. 843.77 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  2081. 843.77 s [opt-env-conf-test] - ]
  2082. 843.77 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  2083. 843.77 s [opt-env-conf-test] - [ [ functionChunk "conf",
  2084. 843.77 s [opt-env-conf-test] - " or ",
  2085. 843.77 s [opt-env-conf-test] - functionChunk "name",
  2086. 843.77 s [opt-env-conf-test] - " was called with no way to load configuration."
  2087. 843.77 s [opt-env-conf-test] - ],
  2088. 843.77 s [opt-env-conf-test] - [ "You can load configuration with ",
  2089. 843.77 s [opt-env-conf-test] - functionChunk "withConfig",
  2090. 843.77 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  2091. 843.77 s [opt-env-conf-test] - functionChunk "withoutConfig",
  2092. 843.77 s [opt-env-conf-test] - "."
  2093. 843.77 s [opt-env-conf-test] - ]
  2094. 843.77 s [opt-env-conf-test] - ]
  2095. 843.77 s [opt-env-conf-test] - LintErrorManyInfinite ->
  2096. 843.77 s [opt-env-conf-test] - [ [ functionChunk "many",
  2097. 843.77 s [opt-env-conf-test] - " or ",
  2098. 843.77 s [opt-env-conf-test] - functionChunk "some",
  2099. 843.77 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  2100. 843.77 s [opt-env-conf-test] - ],
  2101. 843.77 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  2102. 843.78 s [opt-env-conf-test] - ],
  2103. 843.78 s [opt-env-conf-test] + case lintErrorMessage of
  2104. 843.78 s [opt-env-conf-test] + LintErrorUndocumented ->
  2105. 843.78 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  2106. 843.78 s [opt-env-conf-test] + LintErrorEmptySetting ->
  2107. 843.78 s [opt-env-conf-test] + concat
  2108. 843.78 s [opt-env-conf-test] + [ [ [ "This ",
  2109. 843.78 s [opt-env-conf-test] + functionChunk "setting",
  2110. 843.78 s [opt-env-conf-test] + " parses nothing."
  2111. 843.78 s [opt-env-conf-test] + ]
  2112. 843.78 s [opt-env-conf-test] + ],
  2113. 843.78 s [opt-env-conf-test] + [ [ "Add an ",
  2114. 843.78 s [opt-env-conf-test] + functionChunk "argument",
  2115. 843.78 s [opt-env-conf-test] + ", ",
  2116. 843.78 s [opt-env-conf-test] + functionChunk "switch",
  2117. 843.78 s [opt-env-conf-test] + ", ",
  2118. 843.78 s [opt-env-conf-test] + functionChunk "option",
  2119. 843.78 s [opt-env-conf-test] + ", ",
  2120. 843.78 s [opt-env-conf-test] + functionChunk "env",
  2121. 843.78 s [opt-env-conf-test] + ", ",
  2122. 843.78 s [opt-env-conf-test] + functionChunk "conf",
  2123. 843.78 s [opt-env-conf-test] + ", or ",
  2124. 843.78 s [opt-env-conf-test] + functionChunk "value",
  2125. 843.78 s [opt-env-conf-test] + "."
  2126. 843.78 s [opt-env-conf-test] + ]
  2127. 843.78 s [opt-env-conf-test] + ]
  2128. 843.78 s [opt-env-conf-test] + ]
  2129. 844.69 s [opt-env-conf-test] + LintErrorDashInShort ->
  2130. 844.69 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  2131. 844.69 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  2132. 844.69 s [opt-env-conf-test] + ]
  2133. 844.69 s [opt-env-conf-test] + LintErrorDashInLong s ->
  2134. 844.69 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  2135. 844.69 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2136. 844.69 s [opt-env-conf-test] + [ "Try ",
  2137. 844.69 s [opt-env-conf-test] + functionChunk "long",
  2138. 844.69 s [opt-env-conf-test] + " ",
  2139. 844.69 s [opt-env-conf-test] + chunk $
  2140. 844.69 s [opt-env-conf-test] + T.pack $
  2141. 844.69 s [opt-env-conf-test] + show $
  2142. 844.69 s [opt-env-conf-test] + let go = \case
  2143. 844.69 s [opt-env-conf-test] + [] -> []
  2144. 844.69 s [opt-env-conf-test] + '-' : cs -> go cs
  2145. 844.69 s [opt-env-conf-test] + c : cs -> c : cs
  2146. 844.69 s [opt-env-conf-test] + in go $ NE.toList s,
  2147. 844.69 s [opt-env-conf-test] + " instead."
  2148. 844.69 s [opt-env-conf-test] + ]
  2149. 844.69 s [opt-env-conf-test] + ]
  2150. 844.69 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  2151. 844.69 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2152. 844.69 s [opt-env-conf-test] + " has no ",
  2153. 844.69 s [opt-env-conf-test] + functionChunk "reader",
  2154. 844.69 s [opt-env-conf-test] + "."
  2155. 844.69 s [opt-env-conf-test] + ]
  2156. 844.69 s [opt-env-conf-test] + ]
  2157. 844.69 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  2158. 844.69 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2159. 844.69 s [opt-env-conf-test] + " has no ",
  2160. 844.69 s [opt-env-conf-test] + functionChunk "metavar",
  2161. 844.70 s [opt-env-conf-test] + "."
  2162. 844.70 s [opt-env-conf-test] + ]
  2163. 844.70 s [opt-env-conf-test] + ]
  2164. 844.70 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  2165. 844.70 s [opt-env-conf-test] + [ [ functionChunk "option",
  2166. 844.70 s [opt-env-conf-test] + " or ",
  2167. 844.70 s [opt-env-conf-test] + functionChunk "name",
  2168. 844.70 s [opt-env-conf-test] + " has no ",
  2169. 844.70 s [opt-env-conf-test] + functionChunk "reader",
  2170. 844.70 s [opt-env-conf-test] + "."
  2171. 844.70 s [opt-env-conf-test] + ]
  2172. 844.70 s [opt-env-conf-test] + ]
  2173. 844.70 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  2174. 844.70 s [opt-env-conf-test] + [ [ functionChunk "option",
  2175. 844.70 s [opt-env-conf-test] + " has no ",
  2176. 844.70 s [opt-env-conf-test] + functionChunk "long",
  2177. 844.70 s [opt-env-conf-test] + " or ",
  2178. 844.70 s [opt-env-conf-test] + functionChunk "short",
  2179. 844.70 s [opt-env-conf-test] + "."
  2180. 844.70 s [opt-env-conf-test] + ]
  2181. 844.70 s [opt-env-conf-test] + ]
  2182. 844.70 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  2183. 844.70 s [opt-env-conf-test] + [ [ functionChunk "option",
  2184. 844.70 s [opt-env-conf-test] + " or ",
  2185. 844.70 s [opt-env-conf-test] + functionChunk "name",
  2186. 844.70 s [opt-env-conf-test] + " has no ",
  2187. 844.70 s [opt-env-conf-test] + functionChunk "metavar",
  2188. 844.70 s [opt-env-conf-test] + "."
  2189. 844.70 s [opt-env-conf-test] + ]
  2190. 844.70 s [opt-env-conf-test] + ]
  2191. 844.70 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  2192. 844.70 s [opt-env-conf-test] + [ [ functionChunk "switch",
  2193. 844.70 s [opt-env-conf-test] + " has no ",
  2194. 844.70 s [opt-env-conf-test] + functionChunk "long",
  2195. 844.70 s [opt-env-conf-test] + " or ",
  2196. 844.70 s [opt-env-conf-test] + functionChunk "short",
  2197. 844.70 s [opt-env-conf-test] + "."
  2198. 844.70 s [opt-env-conf-test] + ]
  2199. 844.70 s [opt-env-conf-test] + ]
  2200. 844.70 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  2201. 844.70 s [opt-env-conf-test] + [ [ functionChunk "long",
  2202. 844.70 s [opt-env-conf-test] + " or ",
  2203. 844.70 s [opt-env-conf-test] + functionChunk "short",
  2204. 844.70 s [opt-env-conf-test] + " has no ",
  2205. 844.70 s [opt-env-conf-test] + functionChunk "option",
  2206. 844.70 s [opt-env-conf-test] + " or ",
  2207. 844.70 s [opt-env-conf-test] + functionChunk "switch",
  2208. 844.70 s [opt-env-conf-test] + "."
  2209. 844.70 s [opt-env-conf-test] + ]
  2210. 844.70 s [opt-env-conf-test] + ]
  2211. 844.70 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  2212. 844.70 s [opt-env-conf-test] + [ [ functionChunk "env",
  2213. 844.70 s [opt-env-conf-test] + " or ",
  2214. 844.70 s [opt-env-conf-test] + functionChunk "name",
  2215. 844.70 s [opt-env-conf-test] + " has no ",
  2216. 844.70 s [opt-env-conf-test] + functionChunk "reader",
  2217. 844.70 s [opt-env-conf-test] + "."
  2218. 844.70 s [opt-env-conf-test] + ]
  2219. 844.70 s [opt-env-conf-test] + ]
  2220. 844.70 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  2221. 844.70 s [opt-env-conf-test] + [ [ functionChunk "env",
  2222. 844.70 s [opt-env-conf-test] + " or ",
  2223. 844.70 s [opt-env-conf-test] + functionChunk "name",
  2224. 844.70 s [opt-env-conf-test] + " has no ",
  2225. 844.70 s [opt-env-conf-test] + functionChunk "metavar",
  2226. 844.70 s [opt-env-conf-test] + "."
  2227. 844.70 s [opt-env-conf-test] + ]
  2228. 844.70 s [opt-env-conf-test] + ]
  2229. 844.70 s [opt-env-conf-test] + LintErrorNoCommands ->
  2230. 844.70 s [opt-env-conf-test] + [ [ functionChunk "commands",
  2231. 844.70 s [opt-env-conf-test] + " was called with an empty list."
  2232. 844.70 s [opt-env-conf-test] + ]
  2233. 844.70 s [opt-env-conf-test] + ]
  2234. 844.70 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  2235. 844.70 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  2236. 844.70 s [opt-env-conf-test] + " was called with an unknown command: ",
  2237. 844.70 s [opt-env-conf-test] + commandChunk c
  2238. 844.70 s [opt-env-conf-test] + ]
  2239. 844.70 s [opt-env-conf-test] + ]
  2240. 844.70 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  2241. 844.71 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2242. 844.71 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  2243. 844.71 s [opt-env-conf-test] + ]
  2244. 844.71 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  2245. 844.71 s [opt-env-conf-test] + [ [ functionChunk "conf",
  2246. 844.71 s [opt-env-conf-test] + " or ",
  2247. 844.71 s [opt-env-conf-test] + functionChunk "name",
  2248. 844.71 s [opt-env-conf-test] + " was called with no way to load configuration."
  2249. 844.71 s [opt-env-conf-test] + ],
  2250. 844.71 s [opt-env-conf-test] + [ "You can load configuration with ",
  2251. 844.71 s [opt-env-conf-test] + functionChunk "withConfig",
  2252. 844.71 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  2253. 844.71 s [opt-env-conf-test] + functionChunk "withoutConfig",
  2254. 844.71 s [opt-env-conf-test] + "."
  2255. 844.71 s [opt-env-conf-test] + ]
  2256. 844.71 s [opt-env-conf-test] + ]
  2257. 844.71 s [opt-env-conf-test] + LintErrorManyInfinite ->
  2258. 844.71 s [opt-env-conf-test] + [ [ functionChunk "many",
  2259. 844.71 s [opt-env-conf-test] + " or ",
  2260. 844.71 s [opt-env-conf-test] + functionChunk "some",
  2261. 844.71 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  2262. 844.71 s [opt-env-conf-test] + ],
  2263. 844.71 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  2264. 844.71 s [opt-env-conf-test] + ],
  2265. 844.71 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2266. 844.71 s [opt-env-conf-test] ]
  2267. 844.71 s [opt-env-conf-test]
  2268. 844.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2269. 844.71 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  2270. 844.71 s [opt-env-conf-test] renderLintError LintError {..} =
  2271. 844.71 s [opt-env-conf-test] concat
  2272. 844.71 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2273. 844.71 s [opt-env-conf-test] - case lintErrorMessage of
  2274. 844.71 s [opt-env-conf-test] - LintErrorUndocumented ->
  2275. 844.71 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  2276. 844.71 s [opt-env-conf-test] - LintErrorEmptySetting ->
  2277. 844.71 s [opt-env-conf-test] - concat
  2278. 844.71 s [opt-env-conf-test] - [ [ [ "This ",
  2279. 844.71 s [opt-env-conf-test] - functionChunk "setting",
  2280. 844.71 s [opt-env-conf-test] - " parses nothing."
  2281. 844.71 s [opt-env-conf-test] - ]
  2282. 844.71 s [opt-env-conf-test] - ],
  2283. 844.71 s [opt-env-conf-test] - [ [ "Add an ",
  2284. 844.71 s [opt-env-conf-test] - functionChunk "argument",
  2285. 844.71 s [opt-env-conf-test] - ", ",
  2286. 844.71 s [opt-env-conf-test] - functionChunk "switch",
  2287. 844.71 s [opt-env-conf-test] - ", ",
  2288. 844.71 s [opt-env-conf-test] - functionChunk "option",
  2289. 844.71 s [opt-env-conf-test] - ", ",
  2290. 844.71 s [opt-env-conf-test] - functionChunk "env",
  2291. 844.71 s [opt-env-conf-test] - ", ",
  2292. 844.71 s [opt-env-conf-test] - functionChunk "conf",
  2293. 844.71 s [opt-env-conf-test] - ", or ",
  2294. 844.71 s [opt-env-conf-test] - functionChunk "value",
  2295. 844.71 s [opt-env-conf-test] - "."
  2296. 844.71 s [opt-env-conf-test] - ]
  2297. 844.71 s [opt-env-conf-test] - ]
  2298. 844.71 s [opt-env-conf-test] - ]
  2299. 844.71 s [opt-env-conf-test] - LintErrorDashInShort ->
  2300. 844.71 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  2301. 844.71 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  2302. 844.71 s [opt-env-conf-test] - ]
  2303. 844.71 s [opt-env-conf-test] - LintErrorDashInLong s ->
  2304. 844.71 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  2305. 844.71 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2306. 844.71 s [opt-env-conf-test] - [ "Try ",
  2307. 844.71 s [opt-env-conf-test] - functionChunk "long",
  2308. 844.71 s [opt-env-conf-test] - " ",
  2309. 844.71 s [opt-env-conf-test] - chunk $
  2310. 844.71 s [opt-env-conf-test] - T.pack $
  2311. 844.71 s [opt-env-conf-test] - show $
  2312. 844.71 s [opt-env-conf-test] - let go = \case
  2313. 844.71 s [opt-env-conf-test] - [] -> []
  2314. 844.71 s [opt-env-conf-test] - '-' : cs -> go cs
  2315. 844.71 s [opt-env-conf-test] - c : cs -> c : cs
  2316. 844.71 s [opt-env-conf-test] - in go $ NE.toList s,
  2317. 844.71 s [opt-env-conf-test] - " instead."
  2318. 844.71 s [opt-env-conf-test] - ]
  2319. 844.71 s [opt-env-conf-test] - ]
  2320. 844.71 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  2321. 844.71 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2322. 844.71 s [opt-env-conf-test] - " has no ",
  2323. 844.71 s [opt-env-conf-test] - functionChunk "reader",
  2324. 844.71 s [opt-env-conf-test] - "."
  2325. 844.71 s [opt-env-conf-test] - ]
  2326. 844.71 s [opt-env-conf-test] - ]
  2327. 844.71 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  2328. 844.71 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2329. 844.71 s [opt-env-conf-test] - " has no ",
  2330. 844.71 s [opt-env-conf-test] - functionChunk "metavar",
  2331. 844.71 s [opt-env-conf-test] - "."
  2332. 844.71 s [opt-env-conf-test] - ]
  2333. 844.71 s [opt-env-conf-test] - ]
  2334. 844.71 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  2335. 844.71 s [opt-env-conf-test] - [ [ functionChunk "option",
  2336. 844.71 s [opt-env-conf-test] - " or ",
  2337. 844.71 s [opt-env-conf-test] - functionChunk "name",
  2338. 844.71 s [opt-env-conf-test] - " has no ",
  2339. 844.71 s [opt-env-conf-test] - functionChunk "reader",
  2340. 844.71 s [opt-env-conf-test] - "."
  2341. 844.71 s [opt-env-conf-test] - ]
  2342. 844.71 s [opt-env-conf-test] - ]
  2343. 844.71 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  2344. 844.71 s [opt-env-conf-test] - [ [ functionChunk "option",
  2345. 844.71 s [opt-env-conf-test] - " has no ",
  2346. 844.71 s [opt-env-conf-test] - functionChunk "long",
  2347. 844.71 s [opt-env-conf-test] - " or ",
  2348. 844.71 s [opt-env-conf-test] - functionChunk "short",
  2349. 844.71 s [opt-env-conf-test] - "."
  2350. 844.71 s [opt-env-conf-test] - ]
  2351. 844.72 s [opt-env-conf-test] - ]
  2352. 844.72 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  2353. 844.72 s [opt-env-conf-test] - [ [ functionChunk "option",
  2354. 844.72 s [opt-env-conf-test] - " or ",
  2355. 844.72 s [opt-env-conf-test] - functionChunk "name",
  2356. 844.72 s [opt-env-conf-test] - " has no ",
  2357. 844.72 s [opt-env-conf-test] - functionChunk "metavar",
  2358. 844.72 s [opt-env-conf-test] - "."
  2359. 844.72 s [opt-env-conf-test] - ]
  2360. 844.72 s [opt-env-conf-test] - ]
  2361. 844.72 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  2362. 844.72 s [opt-env-conf-test] - [ [ functionChunk "switch",
  2363. 844.72 s [opt-env-conf-test] - " has no ",
  2364. 844.72 s [opt-env-conf-test] - functionChunk "long",
  2365. 844.72 s [opt-env-conf-test] - " or ",
  2366. 844.72 s [opt-env-conf-test] - functionChunk "short",
  2367. 844.72 s [opt-env-conf-test] - "."
  2368. 844.72 s [opt-env-conf-test] - ]
  2369. 844.72 s [opt-env-conf-test] - ]
  2370. 844.72 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  2371. 844.72 s [opt-env-conf-test] - [ [ functionChunk "long",
  2372. 844.72 s [opt-env-conf-test] - " or ",
  2373. 844.72 s [opt-env-conf-test] - functionChunk "short",
  2374. 844.72 s [opt-env-conf-test] - " has no ",
  2375. 844.72 s [opt-env-conf-test] - functionChunk "option",
  2376. 844.72 s [opt-env-conf-test] - " or ",
  2377. 844.72 s [opt-env-conf-test] - functionChunk "switch",
  2378. 844.72 s [opt-env-conf-test] - "."
  2379. 844.72 s [opt-env-conf-test] - ]
  2380. 844.72 s [opt-env-conf-test] - ]
  2381. 844.72 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  2382. 844.72 s [opt-env-conf-test] - [ [ functionChunk "env",
  2383. 844.72 s [opt-env-conf-test] - " or ",
  2384. 844.72 s [opt-env-conf-test] - functionChunk "name",
  2385. 844.72 s [opt-env-conf-test] - " has no ",
  2386. 844.72 s [opt-env-conf-test] - functionChunk "reader",
  2387. 844.72 s [opt-env-conf-test] - "."
  2388. 844.72 s [opt-env-conf-test] - ]
  2389. 844.72 s [opt-env-conf-test] - ]
  2390. 844.72 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  2391. 845.94 s [opt-env-conf-test] - [ [ functionChunk "env",
  2392. 846.20 s [opt-env-conf-test] - " or ",
  2393. 846.20 s [opt-env-conf-test] - functionChunk "name",
  2394. 846.20 s [opt-env-conf-test] - " has no ",
  2395. 846.20 s [opt-env-conf-test] - functionChunk "metavar",
  2396. 846.20 s [opt-env-conf-test] - "."
  2397. 846.20 s [opt-env-conf-test] - ]
  2398. 846.20 s [opt-env-conf-test] - ]
  2399. 846.20 s [opt-env-conf-test] - LintErrorNoCommands ->
  2400. 846.20 s [opt-env-conf-test] - [ [ functionChunk "commands",
  2401. 846.20 s [opt-env-conf-test] - " was called with an empty list."
  2402. 846.20 s [opt-env-conf-test] - ]
  2403. 846.20 s [opt-env-conf-test] - ]
  2404. 846.20 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  2405. 846.20 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  2406. 846.20 s [opt-env-conf-test] - " was called with an unknown command: ",
  2407. 846.20 s [opt-env-conf-test] - commandChunk c
  2408. 846.20 s [opt-env-conf-test] - ]
  2409. 846.20 s [opt-env-conf-test] - ]
  2410. 846.20 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  2411. 846.20 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2412. 846.20 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  2413. 846.20 s [opt-env-conf-test] - ]
  2414. 846.20 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  2415. 846.20 s [opt-env-conf-test] - [ [ functionChunk "conf",
  2416. 846.20 s [opt-env-conf-test] - " or ",
  2417. 846.20 s [opt-env-conf-test] - functionChunk "name",
  2418. 846.20 s [opt-env-conf-test] - " was called with no way to load configuration."
  2419. 846.20 s [opt-env-conf-test] - ],
  2420. 846.20 s [opt-env-conf-test] - [ "You can load configuration with ",
  2421. 846.20 s [opt-env-conf-test] - functionChunk "withConfig",
  2422. 846.20 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  2423. 846.20 s [opt-env-conf-test] - functionChunk "withoutConfig",
  2424. 846.20 s [opt-env-conf-test] - "."
  2425. 846.20 s [opt-env-conf-test] - ]
  2426. 846.20 s [opt-env-conf-test] - ]
  2427. 846.20 s [opt-env-conf-test] - LintErrorManyInfinite ->
  2428. 846.20 s [opt-env-conf-test] - [ [ functionChunk "many",
  2429. 846.20 s [opt-env-conf-test] - " or ",
  2430. 846.20 s [opt-env-conf-test] - functionChunk "some",
  2431. 846.20 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  2432. 846.20 s [opt-env-conf-test] - ],
  2433. 846.21 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  2434. 846.21 s [opt-env-conf-test] - ],
  2435. 846.21 s [opt-env-conf-test] + case lintErrorMessage of
  2436. 846.21 s [opt-env-conf-test] + LintErrorUndocumented ->
  2437. 846.21 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  2438. 846.21 s [opt-env-conf-test] + LintErrorEmptySetting ->
  2439. 846.21 s [opt-env-conf-test] + concat
  2440. 846.21 s [opt-env-conf-test] + [ [ [ "This ",
  2441. 846.21 s [opt-env-conf-test] + functionChunk "setting",
  2442. 846.21 s [opt-env-conf-test] + " parses nothing."
  2443. 846.21 s [opt-env-conf-test] + ]
  2444. 846.21 s [opt-env-conf-test] + ],
  2445. 846.21 s [opt-env-conf-test] + [ [ "Add an ",
  2446. 846.21 s [opt-env-conf-test] + functionChunk "argument",
  2447. 846.21 s [opt-env-conf-test] + ", ",
  2448. 846.21 s [opt-env-conf-test] + functionChunk "switch",
  2449. 846.21 s [opt-env-conf-test] + ", ",
  2450. 846.21 s [opt-env-conf-test] + functionChunk "option",
  2451. 846.21 s [opt-env-conf-test] + ", ",
  2452. 846.21 s [opt-env-conf-test] + functionChunk "env",
  2453. 846.21 s [opt-env-conf-test] + ", ",
  2454. 846.21 s [opt-env-conf-test] + functionChunk "conf",
  2455. 846.21 s [opt-env-conf-test] + ", or ",
  2456. 846.21 s [opt-env-conf-test] + functionChunk "value",
  2457. 846.21 s [opt-env-conf-test] + "."
  2458. 846.21 s [opt-env-conf-test] + ]
  2459. 846.21 s [opt-env-conf-test] + ]
  2460. 846.21 s [opt-env-conf-test] + ]
  2461. 846.21 s [opt-env-conf-test] + LintErrorDashInShort ->
  2462. 846.21 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  2463. 846.21 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  2464. 846.21 s [opt-env-conf-test] + ]
  2465. 846.21 s [opt-env-conf-test] + LintErrorDashInLong s ->
  2466. 846.21 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  2467. 846.21 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2468. 846.21 s [opt-env-conf-test] + [ "Try ",
  2469. 846.21 s [opt-env-conf-test] + functionChunk "long",
  2470. 846.21 s [opt-env-conf-test] + " ",
  2471. 846.21 s [opt-env-conf-test] + chunk $
  2472. 846.21 s [opt-env-conf-test] + T.pack $
  2473. 846.21 s [opt-env-conf-test] + show $
  2474. 846.21 s [opt-env-conf-test] + let go = \case
  2475. 846.21 s [opt-env-conf-test] + [] -> []
  2476. 846.21 s [opt-env-conf-test] + '-' : cs -> go cs
  2477. 846.21 s [opt-env-conf-test] + c : cs -> c : cs
  2478. 846.21 s [opt-env-conf-test] + in go $ NE.toList s,
  2479. 846.21 s [opt-env-conf-test] + " instead."
  2480. 846.21 s [opt-env-conf-test] + ]
  2481. 846.21 s [opt-env-conf-test] + ]
  2482. 846.21 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  2483. 846.21 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2484. 846.21 s [opt-env-conf-test] + " has no ",
  2485. 846.21 s [opt-env-conf-test] + functionChunk "reader",
  2486. 846.21 s [opt-env-conf-test] + "."
  2487. 846.21 s [opt-env-conf-test] + ]
  2488. 846.21 s [opt-env-conf-test] + ]
  2489. 846.21 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  2490. 846.21 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2491. 846.21 s [opt-env-conf-test] + " has no ",
  2492. 846.21 s [opt-env-conf-test] + functionChunk "metavar",
  2493. 846.21 s [opt-env-conf-test] + "."
  2494. 846.21 s [opt-env-conf-test] + ]
  2495. 846.21 s [opt-env-conf-test] + ]
  2496. 846.21 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  2497. 846.21 s [opt-env-conf-test] + [ [ functionChunk "option",
  2498. 846.21 s [opt-env-conf-test] + " or ",
  2499. 846.21 s [opt-env-conf-test] + functionChunk "name",
  2500. 846.21 s [opt-env-conf-test] + " has no ",
  2501. 846.21 s [opt-env-conf-test] + functionChunk "reader",
  2502. 846.21 s [opt-env-conf-test] + "."
  2503. 846.21 s [opt-env-conf-test] + ]
  2504. 846.21 s [opt-env-conf-test] + ]
  2505. 846.21 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  2506. 846.21 s [opt-env-conf-test] + [ [ functionChunk "option",
  2507. 846.21 s [opt-env-conf-test] + " has no ",
  2508. 846.21 s [opt-env-conf-test] + functionChunk "long",
  2509. 846.21 s [opt-env-conf-test] + " or ",
  2510. 846.21 s [opt-env-conf-test] + functionChunk "short",
  2511. 846.21 s [opt-env-conf-test] + "."
  2512. 846.22 s [opt-env-conf-test] + ]
  2513. 846.22 s [opt-env-conf-test] + ]
  2514. 846.22 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  2515. 846.22 s [opt-env-conf-test] + [ [ functionChunk "option",
  2516. 846.22 s [opt-env-conf-test] + " or ",
  2517. 846.22 s [opt-env-conf-test] + functionChunk "name",
  2518. 846.22 s [opt-env-conf-test] + " has no ",
  2519. 846.22 s [opt-env-conf-test] + functionChunk "metavar",
  2520. 846.22 s [opt-env-conf-test] + "."
  2521. 846.22 s [opt-env-conf-test] + ]
  2522. 846.22 s [opt-env-conf-test] + ]
  2523. 846.22 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  2524. 846.22 s [opt-env-conf-test] + [ [ functionChunk "switch",
  2525. 846.22 s [opt-env-conf-test] + " has no ",
  2526. 846.22 s [opt-env-conf-test] + functionChunk "long",
  2527. 846.22 s [opt-env-conf-test] + " or ",
  2528. 846.22 s [opt-env-conf-test] + functionChunk "short",
  2529. 846.22 s [opt-env-conf-test] + "."
  2530. 846.22 s [opt-env-conf-test] + ]
  2531. 846.22 s [opt-env-conf-test] + ]
  2532. 846.22 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  2533. 846.22 s [opt-env-conf-test] + [ [ functionChunk "long",
  2534. 846.22 s [opt-env-conf-test] + " or ",
  2535. 846.22 s [opt-env-conf-test] + functionChunk "short",
  2536. 846.22 s [opt-env-conf-test] + " has no ",
  2537. 846.22 s [opt-env-conf-test] + functionChunk "option",
  2538. 846.22 s [opt-env-conf-test] + " or ",
  2539. 846.22 s [opt-env-conf-test] + functionChunk "switch",
  2540. 846.22 s [opt-env-conf-test] + "."
  2541. 846.22 s [opt-env-conf-test] + ]
  2542. 846.22 s [opt-env-conf-test] + ]
  2543. 846.22 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  2544. 846.22 s [opt-env-conf-test] + [ [ functionChunk "env",
  2545. 846.22 s [opt-env-conf-test] + " or ",
  2546. 846.22 s [opt-env-conf-test] + functionChunk "name",
  2547. 846.22 s [opt-env-conf-test] + " has no ",
  2548. 846.22 s [opt-env-conf-test] + functionChunk "reader",
  2549. 846.22 s [opt-env-conf-test] + "."
  2550. 846.22 s [opt-env-conf-test] + ]
  2551. 846.22 s [opt-env-conf-test] + ]
  2552. 846.22 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  2553. 846.22 s [opt-env-conf-test] + [ [ functionChunk "env",
  2554. 846.22 s [opt-env-conf-test] + " or ",
  2555. 846.22 s [opt-env-conf-test] + functionChunk "name",
  2556. 846.22 s [opt-env-conf-test] + " has no ",
  2557. 846.22 s [opt-env-conf-test] + functionChunk "metavar",
  2558. 846.22 s [opt-env-conf-test] + "."
  2559. 846.22 s [opt-env-conf-test] + ]
  2560. 846.22 s [opt-env-conf-test] + ]
  2561. 846.22 s [opt-env-conf-test] + LintErrorNoCommands ->
  2562. 846.22 s [opt-env-conf-test] + [ [ functionChunk "commands",
  2563. 846.22 s [opt-env-conf-test] + " was called with an empty list."
  2564. 846.22 s [opt-env-conf-test] + ]
  2565. 846.22 s [opt-env-conf-test] + ]
  2566. 846.22 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  2567. 846.22 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  2568. 846.22 s [opt-env-conf-test] + " was called with an unknown command: ",
  2569. 846.22 s [opt-env-conf-test] + commandChunk c
  2570. 846.22 s [opt-env-conf-test] + ]
  2571. 846.22 s [opt-env-conf-test] + ]
  2572. 846.22 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  2573. 846.22 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2574. 846.22 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  2575. 846.22 s [opt-env-conf-test] + ]
  2576. 846.22 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  2577. 846.22 s [opt-env-conf-test] + [ [ functionChunk "conf",
  2578. 846.22 s [opt-env-conf-test] + " or ",
  2579. 846.22 s [opt-env-conf-test] + functionChunk "name",
  2580. 846.22 s [opt-env-conf-test] + " was called with no way to load configuration."
  2581. 846.22 s [opt-env-conf-test] + ],
  2582. 846.22 s [opt-env-conf-test] + [ "You can load configuration with ",
  2583. 846.22 s [opt-env-conf-test] + functionChunk "withConfig",
  2584. 846.22 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  2585. 846.22 s [opt-env-conf-test] + functionChunk "withoutConfig",
  2586. 846.22 s [opt-env-conf-test] + "."
  2587. 846.22 s [opt-env-conf-test] + ]
  2588. 846.22 s [opt-env-conf-test] + ]
  2589. 846.22 s [opt-env-conf-test] + LintErrorManyInfinite ->
  2590. 846.22 s [opt-env-conf-test] + [ [ functionChunk "many",
  2591. 846.22 s [opt-env-conf-test] + " or ",
  2592. 846.22 s [opt-env-conf-test] + functionChunk "some",
  2593. 846.23 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  2594. 846.23 s [opt-env-conf-test] + ],
  2595. 846.23 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  2596. 846.23 s [opt-env-conf-test] + ],
  2597. 846.23 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2598. 846.23 s [opt-env-conf-test] ]
  2599. 846.23 s [opt-env-conf-test]
  2600. 846.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2601. 846.23 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  2602. 846.23 s [opt-env-conf-test] renderLintError LintError {..} =
  2603. 846.23 s [opt-env-conf-test] concat
  2604. 846.23 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2605. 846.23 s [opt-env-conf-test] - case lintErrorMessage of
  2606. 846.23 s [opt-env-conf-test] - LintErrorUndocumented ->
  2607. 846.23 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  2608. 846.23 s [opt-env-conf-test] - LintErrorEmptySetting ->
  2609. 846.23 s [opt-env-conf-test] - concat
  2610. 846.23 s [opt-env-conf-test] - [ [ [ "This ",
  2611. 846.23 s [opt-env-conf-test] - functionChunk "setting",
  2612. 846.23 s [opt-env-conf-test] - " parses nothing."
  2613. 846.23 s [opt-env-conf-test] - ]
  2614. 846.23 s [opt-env-conf-test] - ],
  2615. 846.23 s [opt-env-conf-test] - [ [ "Add an ",
  2616. 846.23 s [opt-env-conf-test] - functionChunk "argument",
  2617. 846.23 s [opt-env-conf-test] - ", ",
  2618. 846.23 s [opt-env-conf-test] - functionChunk "switch",
  2619. 846.23 s [opt-env-conf-test] - ", ",
  2620. 846.23 s [opt-env-conf-test] - functionChunk "option",
  2621. 846.23 s [opt-env-conf-test] - ", ",
  2622. 846.23 s [opt-env-conf-test] - functionChunk "env",
  2623. 846.23 s [opt-env-conf-test] - ", ",
  2624. 846.23 s [opt-env-conf-test] - functionChunk "conf",
  2625. 846.23 s [opt-env-conf-test] - ", or ",
  2626. 846.23 s [opt-env-conf-test] - functionChunk "value",
  2627. 846.23 s [opt-env-conf-test] - "."
  2628. 846.23 s [opt-env-conf-test] - ]
  2629. 846.23 s [opt-env-conf-test] - ]
  2630. 846.23 s [opt-env-conf-test] - ]
  2631. 846.23 s [opt-env-conf-test] - LintErrorDashInShort ->
  2632. 846.23 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  2633. 846.23 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  2634. 846.23 s [opt-env-conf-test] - ]
  2635. 846.23 s [opt-env-conf-test] - LintErrorDashInLong s ->
  2636. 846.23 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  2637. 846.23 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2638. 846.23 s [opt-env-conf-test] - [ "Try ",
  2639. 846.23 s [opt-env-conf-test] - functionChunk "long",
  2640. 846.23 s [opt-env-conf-test] - " ",
  2641. 846.23 s [opt-env-conf-test] - chunk $
  2642. 846.23 s [opt-env-conf-test] - T.pack $
  2643. 846.23 s [opt-env-conf-test] - show $
  2644. 846.23 s [opt-env-conf-test] - let go = \case
  2645. 846.23 s [opt-env-conf-test] - [] -> []
  2646. 846.23 s [opt-env-conf-test] - '-' : cs -> go cs
  2647. 846.23 s [opt-env-conf-test] - c : cs -> c : cs
  2648. 846.23 s [opt-env-conf-test] - in go $ NE.toList s,
  2649. 846.23 s [opt-env-conf-test] - " instead."
  2650. 846.23 s [opt-env-conf-test] - ]
  2651. 846.23 s [opt-env-conf-test] - ]
  2652. 846.23 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  2653. 846.23 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2654. 846.23 s [opt-env-conf-test] - " has no ",
  2655. 846.23 s [opt-env-conf-test] - functionChunk "reader",
  2656. 846.23 s [opt-env-conf-test] - "."
  2657. 846.23 s [opt-env-conf-test] - ]
  2658. 846.23 s [opt-env-conf-test] - ]
  2659. 846.23 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  2660. 846.23 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2661. 846.23 s [opt-env-conf-test] - " has no ",
  2662. 846.23 s [opt-env-conf-test] - functionChunk "metavar",
  2663. 846.23 s [opt-env-conf-test] - "."
  2664. 846.23 s [opt-env-conf-test] - ]
  2665. 846.23 s [opt-env-conf-test] - ]
  2666. 846.23 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  2667. 846.23 s [opt-env-conf-test] - [ [ functionChunk "option",
  2668. 846.23 s [opt-env-conf-test] - " or ",
  2669. 846.23 s [opt-env-conf-test] - functionChunk "name",
  2670. 846.23 s [opt-env-conf-test] - " has no ",
  2671. 846.23 s [opt-env-conf-test] - functionChunk "reader",
  2672. 846.23 s [opt-env-conf-test] - "."
  2673. 846.23 s [opt-env-conf-test] - ]
  2674. 846.23 s [opt-env-conf-test] - ]
  2675. 846.23 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  2676. 846.23 s [opt-env-conf-test] - [ [ functionChunk "option",
  2677. 846.23 s [opt-env-conf-test] - " has no ",
  2678. 846.23 s [opt-env-conf-test] - functionChunk "long",
  2679. 846.23 s [opt-env-conf-test] - " or ",
  2680. 846.23 s [opt-env-conf-test] - functionChunk "short",
  2681. 846.23 s [opt-env-conf-test] - "."
  2682. 846.24 s [opt-env-conf-test] - ]
  2683. 846.24 s [opt-env-conf-test] - ]
  2684. 846.24 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  2685. 846.24 s [opt-env-conf-test] - [ [ functionChunk "option",
  2686. 846.24 s [opt-env-conf-test] - " or ",
  2687. 846.24 s [opt-env-conf-test] - functionChunk "name",
  2688. 846.24 s [opt-env-conf-test] - " has no ",
  2689. 846.24 s [opt-env-conf-test] - functionChunk "metavar",
  2690. 846.24 s [opt-env-conf-test] - "."
  2691. 846.24 s [opt-env-conf-test] - ]
  2692. 846.24 s [opt-env-conf-test] - ]
  2693. 846.24 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  2694. 846.24 s [opt-env-conf-test] - [ [ functionChunk "switch",
  2695. 846.24 s [opt-env-conf-test] - " has no ",
  2696. 846.24 s [opt-env-conf-test] - functionChunk "long",
  2697. 846.24 s [opt-env-conf-test] - " or ",
  2698. 846.24 s [opt-env-conf-test] - functionChunk "short",
  2699. 846.24 s [opt-env-conf-test] - "."
  2700. 846.24 s [opt-env-conf-test] - ]
  2701. 846.24 s [opt-env-conf-test] - ]
  2702. 846.24 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  2703. 846.24 s [opt-env-conf-test] - [ [ functionChunk "long",
  2704. 846.24 s [opt-env-conf-test] - " or ",
  2705. 846.24 s [opt-env-conf-test] - functionChunk "short",
  2706. 846.24 s [opt-env-conf-test] - " has no ",
  2707. 846.24 s [opt-env-conf-test] - functionChunk "option",
  2708. 846.24 s [opt-env-conf-test] - " or ",
  2709. 846.24 s [opt-env-conf-test] - functionChunk "switch",
  2710. 846.24 s [opt-env-conf-test] - "."
  2711. 846.24 s [opt-env-conf-test] - ]
  2712. 846.24 s [opt-env-conf-test] - ]
  2713. 846.24 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  2714. 846.24 s [opt-env-conf-test] - [ [ functionChunk "env",
  2715. 846.24 s [opt-env-conf-test] - " or ",
  2716. 846.24 s [opt-env-conf-test] - functionChunk "name",
  2717. 846.24 s [opt-env-conf-test] - " has no ",
  2718. 846.24 s [opt-env-conf-test] - functionChunk "reader",
  2719. 846.24 s [opt-env-conf-test] - "."
  2720. 846.24 s [opt-env-conf-test] - ]
  2721. 846.24 s [opt-env-conf-test] - ]
  2722. 846.24 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  2723. 846.24 s [opt-env-conf-test] - [ [ functionChunk "env",
  2724. 846.24 s [opt-env-conf-test] - " or ",
  2725. 846.24 s [opt-env-conf-test] - functionChunk "name",
  2726. 846.24 s [opt-env-conf-test] - " has no ",
  2727. 846.24 s [opt-env-conf-test] - functionChunk "metavar",
  2728. 846.24 s [opt-env-conf-test] - "."
  2729. 846.24 s [opt-env-conf-test] - ]
  2730. 846.24 s [opt-env-conf-test] - ]
  2731. 846.24 s [opt-env-conf-test] - LintErrorNoCommands ->
  2732. 846.24 s [opt-env-conf-test] - [ [ functionChunk "commands",
  2733. 846.24 s [opt-env-conf-test] - " was called with an empty list."
  2734. 846.24 s [opt-env-conf-test] - ]
  2735. 846.24 s [opt-env-conf-test] - ]
  2736. 846.24 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  2737. 846.24 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  2738. 846.24 s [opt-env-conf-test] - " was called with an unknown command: ",
  2739. 846.24 s [opt-env-conf-test] - commandChunk c
  2740. 846.24 s [opt-env-conf-test] - ]
  2741. 846.24 s [opt-env-conf-test] - ]
  2742. 846.24 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  2743. 846.24 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2744. 846.24 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  2745. 846.24 s [opt-env-conf-test] - ]
  2746. 846.24 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  2747. 846.24 s [opt-env-conf-test] - [ [ functionChunk "conf",
  2748. 846.24 s [opt-env-conf-test] - " or ",
  2749. 846.24 s [opt-env-conf-test] - functionChunk "name",
  2750. 846.24 s [opt-env-conf-test] - " was called with no way to load configuration."
  2751. 846.24 s [opt-env-conf-test] - ],
  2752. 846.24 s [opt-env-conf-test] - [ "You can load configuration with ",
  2753. 846.24 s [opt-env-conf-test] - functionChunk "withConfig",
  2754. 846.24 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  2755. 846.24 s [opt-env-conf-test] - functionChunk "withoutConfig",
  2756. 846.24 s [opt-env-conf-test] - "."
  2757. 846.24 s [opt-env-conf-test] - ]
  2758. 846.24 s [opt-env-conf-test] - ]
  2759. 846.24 s [opt-env-conf-test] - LintErrorManyInfinite ->
  2760. 846.24 s [opt-env-conf-test] - [ [ functionChunk "many",
  2761. 846.24 s [opt-env-conf-test] - " or ",
  2762. 846.24 s [opt-env-conf-test] - functionChunk "some",
  2763. 846.24 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  2764. 846.24 s [opt-env-conf-test] - ],
  2765. 846.24 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  2766. 846.24 s [opt-env-conf-test] - ],
  2767. 846.24 s [opt-env-conf-test] + case lintErrorMessage of
  2768. 846.24 s [opt-env-conf-test] + LintErrorUndocumented ->
  2769. 846.24 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  2770. 846.24 s [opt-env-conf-test] + LintErrorEmptySetting ->
  2771. 846.24 s [opt-env-conf-test] + concat
  2772. 846.24 s [opt-env-conf-test] + [ [ [ "This ",
  2773. 846.24 s [opt-env-conf-test] + functionChunk "setting",
  2774. 846.24 s [opt-env-conf-test] + " parses nothing."
  2775. 846.24 s [opt-env-conf-test] + ]
  2776. 846.25 s [opt-env-conf-test] + ],
  2777. 846.25 s [opt-env-conf-test] + [ [ "Add an ",
  2778. 846.25 s [opt-env-conf-test] + functionChunk "argument",
  2779. 846.25 s [opt-env-conf-test] + ", ",
  2780. 846.25 s [opt-env-conf-test] + functionChunk "switch",
  2781. 846.25 s [opt-env-conf-test] + ", ",
  2782. 846.25 s [opt-env-conf-test] + functionChunk "option",
  2783. 846.25 s [opt-env-conf-test] + ", ",
  2784. 846.25 s [opt-env-conf-test] + functionChunk "env",
  2785. 846.25 s [opt-env-conf-test] + ", ",
  2786. 846.25 s [opt-env-conf-test] + functionChunk "conf",
  2787. 846.25 s [opt-env-conf-test] + ", or ",
  2788. 846.25 s [opt-env-conf-test] + functionChunk "value",
  2789. 846.25 s [opt-env-conf-test] + "."
  2790. 846.25 s [opt-env-conf-test] + ]
  2791. 846.25 s [opt-env-conf-test] + ]
  2792. 846.25 s [opt-env-conf-test] + ]
  2793. 846.25 s [opt-env-conf-test] + LintErrorDashInShort ->
  2794. 846.25 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  2795. 846.25 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  2796. 846.25 s [opt-env-conf-test] + ]
  2797. 846.25 s [opt-env-conf-test] + LintErrorDashInLong s ->
  2798. 846.25 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  2799. 846.25 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2800. 846.25 s [opt-env-conf-test] + [ "Try ",
  2801. 846.25 s [opt-env-conf-test] + functionChunk "long",
  2802. 846.25 s [opt-env-conf-test] + " ",
  2803. 846.25 s [opt-env-conf-test] + chunk $
  2804. 846.25 s [opt-env-conf-test] + T.pack $
  2805. 846.25 s [opt-env-conf-test] + show $
  2806. 846.25 s [opt-env-conf-test] + let go = \case
  2807. 846.25 s [opt-env-conf-test] + [] -> []
  2808. 846.25 s [opt-env-conf-test] + '-' : cs -> go cs
  2809. 846.25 s [opt-env-conf-test] + c : cs -> c : cs
  2810. 846.25 s [opt-env-conf-test] + in go $ NE.toList s,
  2811. 846.25 s [opt-env-conf-test] + " instead."
  2812. 846.25 s [opt-env-conf-test] + ]
  2813. 846.25 s [opt-env-conf-test] + ]
  2814. 846.25 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  2815. 846.25 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2816. 846.25 s [opt-env-conf-test] + " has no ",
  2817. 846.25 s [opt-env-conf-test] + functionChunk "reader",
  2818. 846.25 s [opt-env-conf-test] + "."
  2819. 846.25 s [opt-env-conf-test] + ]
  2820. 846.25 s [opt-env-conf-test] + ]
  2821. 846.25 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  2822. 846.25 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2823. 846.25 s [opt-env-conf-test] + " has no ",
  2824. 846.25 s [opt-env-conf-test] + functionChunk "metavar",
  2825. 846.25 s [opt-env-conf-test] + "."
  2826. 846.25 s [opt-env-conf-test] + ]
  2827. 846.25 s [opt-env-conf-test] + ]
  2828. 846.25 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  2829. 846.25 s [opt-env-conf-test] + [ [ functionChunk "option",
  2830. 846.25 s [opt-env-conf-test] + " or ",
  2831. 846.25 s [opt-env-conf-test] + functionChunk "name",
  2832. 846.25 s [opt-env-conf-test] + " has no ",
  2833. 846.25 s [opt-env-conf-test] + functionChunk "reader",
  2834. 846.25 s [opt-env-conf-test] + "."
  2835. 846.25 s [opt-env-conf-test] + ]
  2836. 846.25 s [opt-env-conf-test] + ]
  2837. 846.25 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  2838. 846.25 s [opt-env-conf-test] + [ [ functionChunk "option",
  2839. 846.25 s [opt-env-conf-test] + " has no ",
  2840. 846.25 s [opt-env-conf-test] + functionChunk "long",
  2841. 846.25 s [opt-env-conf-test] + " or ",
  2842. 846.25 s [opt-env-conf-test] + functionChunk "short",
  2843. 846.25 s [opt-env-conf-test] + "."
  2844. 846.25 s [opt-env-conf-test] + ]
  2845. 846.25 s [opt-env-conf-test] + ]
  2846. 846.25 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  2847. 846.25 s [opt-env-conf-test] + [ [ functionChunk "option",
  2848. 846.25 s [opt-env-conf-test] + " or ",
  2849. 846.25 s [opt-env-conf-test] + functionChunk "name",
  2850. 846.25 s [opt-env-conf-test] + " has no ",
  2851. 846.25 s [opt-env-conf-test] + functionChunk "metavar",
  2852. 846.25 s [opt-env-conf-test] + "."
  2853. 846.25 s [opt-env-conf-test] + ]
  2854. 846.25 s [opt-env-conf-test] + ]
  2855. 846.25 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  2856. 846.25 s [opt-env-conf-test] + [ [ functionChunk "switch",
  2857. 846.25 s [opt-env-conf-test] + " has no ",
  2858. 846.25 s [opt-env-conf-test] + functionChunk "long",
  2859. 846.25 s [opt-env-conf-test] + " or ",
  2860. 846.25 s [opt-env-conf-test] + functionChunk "short",
  2861. 846.25 s [opt-env-conf-test] + "."
  2862. 846.25 s [opt-env-conf-test] + ]
  2863. 846.25 s [opt-env-conf-test] + ]
  2864. 846.25 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  2865. 846.25 s [opt-env-conf-test] + [ [ functionChunk "long",
  2866. 846.25 s [opt-env-conf-test] + " or ",
  2867. 846.25 s [opt-env-conf-test] + functionChunk "short",
  2868. 846.25 s [opt-env-conf-test] + " has no ",
  2869. 846.25 s [opt-env-conf-test] + functionChunk "option",
  2870. 846.25 s [opt-env-conf-test] + " or ",
  2871. 846.25 s [opt-env-conf-test] + functionChunk "switch",
  2872. 846.25 s [opt-env-conf-test] + "."
  2873. 846.25 s [opt-env-conf-test] + ]
  2874. 846.25 s [opt-env-conf-test] + ]
  2875. 846.25 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  2876. 846.25 s [opt-env-conf-test] + [ [ functionChunk "env",
  2877. 846.25 s [opt-env-conf-test] + " or ",
  2878. 846.25 s [opt-env-conf-test] + functionChunk "name",
  2879. 846.25 s [opt-env-conf-test] + " has no ",
  2880. 846.25 s [opt-env-conf-test] + functionChunk "reader",
  2881. 846.25 s [opt-env-conf-test] + "."
  2882. 846.25 s [opt-env-conf-test] + ]
  2883. 846.26 s [opt-env-conf-test] + ]
  2884. 846.26 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  2885. 846.26 s [opt-env-conf-test] + [ [ functionChunk "env",
  2886. 846.26 s [opt-env-conf-test] + " or ",
  2887. 846.26 s [opt-env-conf-test] + functionChunk "name",
  2888. 846.26 s [opt-env-conf-test] + " has no ",
  2889. 846.26 s [opt-env-conf-test] + functionChunk "metavar",
  2890. 846.26 s [opt-env-conf-test] + "."
  2891. 846.26 s [opt-env-conf-test] + ]
  2892. 846.26 s [opt-env-conf-test] + ]
  2893. 846.26 s [opt-env-conf-test] + LintErrorNoCommands ->
  2894. 846.26 s [opt-env-conf-test] + [ [ functionChunk "commands",
  2895. 846.26 s [opt-env-conf-test] + " was called with an empty list."
  2896. 846.26 s [opt-env-conf-test] + ]
  2897. 846.26 s [opt-env-conf-test] + ]
  2898. 846.26 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  2899. 846.26 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  2900. 846.26 s [opt-env-conf-test] + " was called with an unknown command: ",
  2901. 846.26 s [opt-env-conf-test] + commandChunk c
  2902. 846.26 s [opt-env-conf-test] + ]
  2903. 846.26 s [opt-env-conf-test] + ]
  2904. 846.26 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  2905. 846.26 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2906. 846.26 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  2907. 846.26 s [opt-env-conf-test] + ]
  2908. 846.26 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  2909. 846.26 s [opt-env-conf-test] + [ [ functionChunk "conf",
  2910. 846.26 s [opt-env-conf-test] + " or ",
  2911. 846.26 s [opt-env-conf-test] + functionChunk "name",
  2912. 846.26 s [opt-env-conf-test] + " was called with no way to load configuration."
  2913. 846.26 s [opt-env-conf-test] + ],
  2914. 846.26 s [opt-env-conf-test] + [ "You can load configuration with ",
  2915. 846.26 s [opt-env-conf-test] + functionChunk "withConfig",
  2916. 846.26 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  2917. 846.26 s [opt-env-conf-test] + functionChunk "withoutConfig",
  2918. 846.26 s [opt-env-conf-test] + "."
  2919. 846.26 s [opt-env-conf-test] + ]
  2920. 846.26 s [opt-env-conf-test] + ]
  2921. 846.26 s [opt-env-conf-test] + LintErrorManyInfinite ->
  2922. 846.26 s [opt-env-conf-test] + [ [ functionChunk "many",
  2923. 846.26 s [opt-env-conf-test] + " or ",
  2924. 846.26 s [opt-env-conf-test] + functionChunk "some",
  2925. 846.26 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  2926. 846.26 s [opt-env-conf-test] + ],
  2927. 846.26 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  2928. 846.26 s [opt-env-conf-test] + ],
  2929. 846.26 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2930. 846.26 s [opt-env-conf-test] ]
  2931. 846.26 s [opt-env-conf-test]
  2932. 846.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2933. 846.26 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  2934. 846.26 s [opt-env-conf-test] renderLintError LintError {..} =
  2935. 846.26 s [opt-env-conf-test] concat
  2936. 846.26 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2937. 846.26 s [opt-env-conf-test] - case lintErrorMessage of
  2938. 846.26 s [opt-env-conf-test] - LintErrorUndocumented ->
  2939. 846.26 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  2940. 846.26 s [opt-env-conf-test] - LintErrorEmptySetting ->
  2941. 846.26 s [opt-env-conf-test] - concat
  2942. 846.26 s [opt-env-conf-test] - [ [ [ "This ",
  2943. 846.26 s [opt-env-conf-test] - functionChunk "setting",
  2944. 846.26 s [opt-env-conf-test] - " parses nothing."
  2945. 846.26 s [opt-env-conf-test] - ]
  2946. 846.26 s [opt-env-conf-test] - ],
  2947. 846.26 s [opt-env-conf-test] - [ [ "Add an ",
  2948. 846.26 s [opt-env-conf-test] - functionChunk "argument",
  2949. 846.26 s [opt-env-conf-test] - ", ",
  2950. 846.26 s [opt-env-conf-test] - functionChunk "switch",
  2951. 846.26 s [opt-env-conf-test] - ", ",
  2952. 846.26 s [opt-env-conf-test] - functionChunk "option",
  2953. 846.26 s [opt-env-conf-test] - ", ",
  2954. 846.26 s [opt-env-conf-test] - functionChunk "env",
  2955. 846.26 s [opt-env-conf-test] - ", ",
  2956. 846.26 s [opt-env-conf-test] - functionChunk "conf",
  2957. 846.26 s [opt-env-conf-test] - ", or ",
  2958. 846.26 s [opt-env-conf-test] - functionChunk "value",
  2959. 846.26 s [opt-env-conf-test] - "."
  2960. 846.26 s [opt-env-conf-test] - ]
  2961. 846.26 s [opt-env-conf-test] - ]
  2962. 846.26 s [opt-env-conf-test] - ]
  2963. 846.26 s [opt-env-conf-test] - LintErrorDashInShort ->
  2964. 846.26 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  2965. 846.26 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  2966. 846.26 s [opt-env-conf-test] - ]
  2967. 846.26 s [opt-env-conf-test] - LintErrorDashInLong s ->
  2968. 846.26 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  2969. 846.26 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2970. 846.26 s [opt-env-conf-test] - [ "Try ",
  2971. 846.26 s [opt-env-conf-test] - functionChunk "long",
  2972. 846.26 s [opt-env-conf-test] - " ",
  2973. 846.26 s [opt-env-conf-test] - chunk $
  2974. 846.26 s [opt-env-conf-test] - T.pack $
  2975. 846.26 s [opt-env-conf-test] - show $
  2976. 846.26 s [opt-env-conf-test] - let go = \case
  2977. 846.26 s [opt-env-conf-test] - [] -> []
  2978. 846.26 s [opt-env-conf-test] - '-' : cs -> go cs
  2979. 846.26 s [opt-env-conf-test] - c : cs -> c : cs
  2980. 846.26 s [opt-env-conf-test] - in go $ NE.toList s,
  2981. 846.26 s [opt-env-conf-test] - " instead."
  2982. 846.26 s [opt-env-conf-test] - ]
  2983. 846.26 s [opt-env-conf-test] - ]
  2984. 846.26 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  2985. 846.26 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2986. 846.26 s [opt-env-conf-test] - " has no ",
  2987. 846.26 s [opt-env-conf-test] - functionChunk "reader",
  2988. 846.26 s [opt-env-conf-test] - "."
  2989. 846.27 s [opt-env-conf-test] - ]
  2990. 846.27 s [opt-env-conf-test] - ]
  2991. 846.27 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  2992. 846.27 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2993. 846.27 s [opt-env-conf-test] - " has no ",
  2994. 846.27 s [opt-env-conf-test] - functionChunk "metavar",
  2995. 846.27 s [opt-env-conf-test] - "."
  2996. 846.27 s [opt-env-conf-test] - ]
  2997. 846.27 s [opt-env-conf-test] - ]
  2998. 846.27 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  2999. 846.27 s [opt-env-conf-test] - [ [ functionChunk "option",
  3000. 846.27 s [opt-env-conf-test] - " or ",
  3001. 846.27 s [opt-env-conf-test] - functionChunk "name",
  3002. 846.27 s [opt-env-conf-test] - " has no ",
  3003. 846.27 s [opt-env-conf-test] - functionChunk "reader",
  3004. 846.27 s [opt-env-conf-test] - "."
  3005. 846.27 s [opt-env-conf-test] - ]
  3006. 846.27 s [opt-env-conf-test] - ]
  3007. 846.27 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  3008. 846.27 s [opt-env-conf-test] - [ [ functionChunk "option",
  3009. 846.27 s [opt-env-conf-test] - " has no ",
  3010. 846.27 s [opt-env-conf-test] - functionChunk "long",
  3011. 846.27 s [opt-env-conf-test] - " or ",
  3012. 846.27 s [opt-env-conf-test] - functionChunk "short",
  3013. 846.27 s [opt-env-conf-test] - "."
  3014. 846.27 s [opt-env-conf-test] - ]
  3015. 846.27 s [opt-env-conf-test] - ]
  3016. 846.27 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  3017. 846.27 s [opt-env-conf-test] - [ [ functionChunk "option",
  3018. 846.27 s [opt-env-conf-test] - " or ",
  3019. 846.27 s [opt-env-conf-test] - functionChunk "name",
  3020. 846.27 s [opt-env-conf-test] - " has no ",
  3021. 846.27 s [opt-env-conf-test] - functionChunk "metavar",
  3022. 846.27 s [opt-env-conf-test] - "."
  3023. 846.27 s [opt-env-conf-test] - ]
  3024. 846.27 s [opt-env-conf-test] - ]
  3025. 846.27 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  3026. 846.27 s [opt-env-conf-test] - [ [ functionChunk "switch",
  3027. 846.27 s [opt-env-conf-test] - " has no ",
  3028. 846.27 s [opt-env-conf-test] - functionChunk "long",
  3029. 846.27 s [opt-env-conf-test] - " or ",
  3030. 846.27 s [opt-env-conf-test] - functionChunk "short",
  3031. 846.27 s [opt-env-conf-test] - "."
  3032. 846.27 s [opt-env-conf-test] - ]
  3033. 846.27 s [opt-env-conf-test] - ]
  3034. 846.27 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  3035. 846.27 s [opt-env-conf-test] - [ [ functionChunk "long",
  3036. 846.27 s [opt-env-conf-test] - " or ",
  3037. 846.27 s [opt-env-conf-test] - functionChunk "short",
  3038. 846.27 s [opt-env-conf-test] - " has no ",
  3039. 846.27 s [opt-env-conf-test] - functionChunk "option",
  3040. 846.27 s [opt-env-conf-test] - " or ",
  3041. 846.27 s [opt-env-conf-test] - functionChunk "switch",
  3042. 846.27 s [opt-env-conf-test] - "."
  3043. 846.27 s [opt-env-conf-test] - ]
  3044. 846.27 s [opt-env-conf-test] - ]
  3045. 846.27 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  3046. 846.27 s [opt-env-conf-test] - [ [ functionChunk "env",
  3047. 846.27 s [opt-env-conf-test] - " or ",
  3048. 846.27 s [opt-env-conf-test] - functionChunk "name",
  3049. 846.27 s [opt-env-conf-test] - " has no ",
  3050. 846.27 s [opt-env-conf-test] - functionChunk "reader",
  3051. 846.27 s [opt-env-conf-test] - "."
  3052. 846.27 s [opt-env-conf-test] - ]
  3053. 846.27 s [opt-env-conf-test] - ]
  3054. 846.27 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  3055. 846.27 s [opt-env-conf-test] - [ [ functionChunk "env",
  3056. 846.27 s [opt-env-conf-test] - " or ",
  3057. 846.27 s [opt-env-conf-test] - functionChunk "name",
  3058. 846.27 s [opt-env-conf-test] - " has no ",
  3059. 846.27 s [opt-env-conf-test] - functionChunk "metavar",
  3060. 846.27 s [opt-env-conf-test] - "."
  3061. 846.27 s [opt-env-conf-test] - ]
  3062. 846.27 s [opt-env-conf-test] - ]
  3063. 846.27 s [opt-env-conf-test] - LintErrorNoCommands ->
  3064. 846.27 s [opt-env-conf-test] - [ [ functionChunk "commands",
  3065. 846.27 s [opt-env-conf-test] - " was called with an empty list."
  3066. 846.27 s [opt-env-conf-test] - ]
  3067. 846.27 s [opt-env-conf-test] - ]
  3068. 846.27 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  3069. 846.27 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  3070. 846.27 s [opt-env-conf-test] - " was called with an unknown command: ",
  3071. 846.27 s [opt-env-conf-test] - commandChunk c
  3072. 846.27 s [opt-env-conf-test] - ]
  3073. 846.27 s [opt-env-conf-test] - ]
  3074. 846.27 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  3075. 846.27 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3076. 846.27 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  3077. 846.27 s [opt-env-conf-test] - ]
  3078. 846.27 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  3079. 846.27 s [opt-env-conf-test] - [ [ functionChunk "conf",
  3080. 846.27 s [opt-env-conf-test] - " or ",
  3081. 846.27 s [opt-env-conf-test] - functionChunk "name",
  3082. 846.27 s [opt-env-conf-test] - " was called with no way to load configuration."
  3083. 846.27 s [opt-env-conf-test] - ],
  3084. 846.27 s [opt-env-conf-test] - [ "You can load configuration with ",
  3085. 846.27 s [opt-env-conf-test] - functionChunk "withConfig",
  3086. 846.27 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  3087. 846.27 s [opt-env-conf-test] - functionChunk "withoutConfig",
  3088. 846.27 s [opt-env-conf-test] - "."
  3089. 846.27 s [opt-env-conf-test] - ]
  3090. 846.27 s [opt-env-conf-test] - ]
  3091. 846.27 s [opt-env-conf-test] - LintErrorManyInfinite ->
  3092. 846.27 s [opt-env-conf-test] - [ [ functionChunk "many",
  3093. 846.27 s [opt-env-conf-test] - " or ",
  3094. 846.27 s [opt-env-conf-test] - functionChunk "some",
  3095. 846.27 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  3096. 846.27 s [opt-env-conf-test] - ],
  3097. 846.27 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  3098. 846.27 s [opt-env-conf-test] - ],
  3099. 846.27 s [opt-env-conf-test] + case lintErrorMessage of
  3100. 846.27 s [opt-env-conf-test] + LintErrorUndocumented ->
  3101. 846.27 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  3102. 846.27 s [opt-env-conf-test] + LintErrorEmptySetting ->
  3103. 846.27 s [opt-env-conf-test] + concat
  3104. 846.27 s [opt-env-conf-test] + [ [ [ "This ",
  3105. 846.28 s [opt-env-conf-test] + functionChunk "setting",
  3106. 846.28 s [opt-env-conf-test] + " parses nothing."
  3107. 846.28 s [opt-env-conf-test] + ]
  3108. 846.28 s [opt-env-conf-test] + ],
  3109. 846.28 s [opt-env-conf-test] + [ [ "Add an ",
  3110. 846.28 s [opt-env-conf-test] + functionChunk "argument",
  3111. 846.28 s [opt-env-conf-test] + ", ",
  3112. 846.28 s [opt-env-conf-test] + functionChunk "switch",
  3113. 846.28 s [opt-env-conf-test] + ", ",
  3114. 846.28 s [opt-env-conf-test] + functionChunk "option",
  3115. 846.28 s [opt-env-conf-test] + ", ",
  3116. 846.28 s [opt-env-conf-test] + functionChunk "env",
  3117. 846.28 s [opt-env-conf-test] + ", ",
  3118. 846.28 s [opt-env-conf-test] + functionChunk "conf",
  3119. 846.28 s [opt-env-conf-test] + ", or ",
  3120. 846.28 s [opt-env-conf-test] + functionChunk "value",
  3121. 846.28 s [opt-env-conf-test] + "."
  3122. 846.28 s [opt-env-conf-test] + ]
  3123. 846.28 s [opt-env-conf-test] + ]
  3124. 846.28 s [opt-env-conf-test] + ]
  3125. 846.28 s [opt-env-conf-test] + LintErrorDashInShort ->
  3126. 846.28 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  3127. 846.28 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  3128. 846.28 s [opt-env-conf-test] + ]
  3129. 846.28 s [opt-env-conf-test] + LintErrorDashInLong s ->
  3130. 846.28 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  3131. 846.28 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3132. 846.28 s [opt-env-conf-test] + [ "Try ",
  3133. 846.28 s [opt-env-conf-test] + functionChunk "long",
  3134. 846.28 s [opt-env-conf-test] + " ",
  3135. 846.28 s [opt-env-conf-test] + chunk $
  3136. 846.28 s [opt-env-conf-test] + T.pack $
  3137. 846.28 s [opt-env-conf-test] + show $
  3138. 846.28 s [opt-env-conf-test] + let go = \case
  3139. 846.28 s [opt-env-conf-test] + [] -> []
  3140. 846.28 s [opt-env-conf-test] + '-' : cs -> go cs
  3141. 846.28 s [opt-env-conf-test] + c : cs -> c : cs
  3142. 846.28 s [opt-env-conf-test] + in go $ NE.toList s,
  3143. 846.28 s [opt-env-conf-test] + " instead."
  3144. 846.28 s [opt-env-conf-test] + ]
  3145. 846.28 s [opt-env-conf-test] + ]
  3146. 846.28 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  3147. 846.28 s [opt-env-conf-test] + [ [ functionChunk "argument",
  3148. 846.28 s [opt-env-conf-test] + " has no ",
  3149. 846.49 s [opt-env-conf-test] + functionChunk "reader",
  3150. 846.49 s [opt-env-conf-test] + "."
  3151. 846.49 s [opt-env-conf-test] + ]
  3152. 846.49 s [opt-env-conf-test] + ]
  3153. 846.49 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  3154. 846.49 s [opt-env-conf-test] + [ [ functionChunk "argument",
  3155. 846.49 s [opt-env-conf-test] + " has no ",
  3156. 846.49 s [opt-env-conf-test] + functionChunk "metavar",
  3157. 846.49 s [opt-env-conf-test] + "."
  3158. 846.49 s [opt-env-conf-test] + ]
  3159. 846.49 s [opt-env-conf-test] + ]
  3160. 846.49 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  3161. 846.49 s [opt-env-conf-test] + [ [ functionChunk "option",
  3162. 846.49 s [opt-env-conf-test] + " or ",
  3163. 846.49 s [opt-env-conf-test] + functionChunk "name",
  3164. 846.49 s [opt-env-conf-test] + " has no ",
  3165. 846.49 s [opt-env-conf-test] + functionChunk "reader",
  3166. 846.49 s [opt-env-conf-test] + "."
  3167. 846.49 s [opt-env-conf-test] + ]
  3168. 846.49 s [opt-env-conf-test] + ]
  3169. 846.49 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  3170. 846.49 s [opt-env-conf-test] + [ [ functionChunk "option",
  3171. 846.49 s [opt-env-conf-test] + " has no ",
  3172. 846.49 s [opt-env-conf-test] + functionChunk "long",
  3173. 846.49 s [opt-env-conf-test] + " or ",
  3174. 846.49 s [opt-env-conf-test] + functionChunk "short",
  3175. 846.49 s [opt-env-conf-test] + "."
  3176. 846.49 s [opt-env-conf-test] + ]
  3177. 846.49 s [opt-env-conf-test] + ]
  3178. 846.49 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  3179. 846.49 s [opt-env-conf-test] + [ [ functionChunk "option",
  3180. 846.49 s [opt-env-conf-test] + " or ",
  3181. 846.49 s [opt-env-conf-test] + functionChunk "name",
  3182. 846.49 s [opt-env-conf-test] + " has no ",
  3183. 846.49 s [opt-env-conf-test] + functionChunk "metavar",
  3184. 846.49 s [opt-env-conf-test] + "."
  3185. 846.49 s [opt-env-conf-test] + ]
  3186. 846.49 s [opt-env-conf-test] + ]
  3187. 846.49 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  3188. 846.49 s [opt-env-conf-test] + [ [ functionChunk "switch",
  3189. 846.49 s [opt-env-conf-test] + " has no ",
  3190. 846.49 s [opt-env-conf-test] + functionChunk "long",
  3191. 846.49 s [opt-env-conf-test] + " or ",
  3192. 846.49 s [opt-env-conf-test] + functionChunk "short",
  3193. 846.49 s [opt-env-conf-test] + "."
  3194. 846.49 s [opt-env-conf-test] + ]
  3195. 846.49 s [opt-env-conf-test] + ]
  3196. 846.49 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  3197. 846.49 s [opt-env-conf-test] + [ [ functionChunk "long",
  3198. 846.49 s [opt-env-conf-test] + " or ",
  3199. 846.49 s [opt-env-conf-test] + functionChunk "short",
  3200. 846.49 s [opt-env-conf-test] + " has no ",
  3201. 846.50 s [opt-env-conf-test] + functionChunk "option",
  3202. 846.50 s [opt-env-conf-test] + " or ",
  3203. 846.50 s [opt-env-conf-test] + functionChunk "switch",
  3204. 846.50 s [opt-env-conf-test] + "."
  3205. 846.50 s [opt-env-conf-test] + ]
  3206. 846.50 s [opt-env-conf-test] + ]
  3207. 846.50 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  3208. 846.50 s [opt-env-conf-test] + [ [ functionChunk "env",
  3209. 846.50 s [opt-env-conf-test] + " or ",
  3210. 846.50 s [opt-env-conf-test] + functionChunk "name",
  3211. 846.50 s [opt-env-conf-test] + " has no ",
  3212. 846.50 s [opt-env-conf-test] + functionChunk "reader",
  3213. 846.50 s [opt-env-conf-test] + "."
  3214. 846.50 s [opt-env-conf-test] + ]
  3215. 846.50 s [opt-env-conf-test] + ]
  3216. 846.50 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  3217. 846.50 s [opt-env-conf-test] + [ [ functionChunk "env",
  3218. 846.50 s [opt-env-conf-test] + " or ",
  3219. 846.50 s [opt-env-conf-test] + functionChunk "name",
  3220. 846.50 s [opt-env-conf-test] + " has no ",
  3221. 846.50 s [opt-env-conf-test] + functionChunk "metavar",
  3222. 846.50 s [opt-env-conf-test] + "."
  3223. 846.50 s [opt-env-conf-test] + ]
  3224. 846.50 s [opt-env-conf-test] + ]
  3225. 846.50 s [opt-env-conf-test] + LintErrorNoCommands ->
  3226. 846.50 s [opt-env-conf-test] + [ [ functionChunk "commands",
  3227. 846.50 s [opt-env-conf-test] + " was called with an empty list."
  3228. 846.50 s [opt-env-conf-test] + ]
  3229. 846.50 s [opt-env-conf-test] + ]
  3230. 846.50 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  3231. 846.50 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  3232. 846.50 s [opt-env-conf-test] + " was called with an unknown command: ",
  3233. 846.50 s [opt-env-conf-test] + commandChunk c
  3234. 846.50 s [opt-env-conf-test] + ]
  3235. 846.50 s [opt-env-conf-test] + ]
  3236. 846.50 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  3237. 846.50 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3238. 846.50 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  3239. 846.50 s [opt-env-conf-test] + ]
  3240. 846.50 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  3241. 846.50 s [opt-env-conf-test] + [ [ functionChunk "conf",
  3242. 846.50 s [opt-env-conf-test] + " or ",
  3243. 846.50 s [opt-env-conf-test] + functionChunk "name",
  3244. 846.50 s [opt-env-conf-test] + " was called with no way to load configuration."
  3245. 846.50 s [opt-env-conf-test] + ],
  3246. 846.50 s [opt-env-conf-test] + [ "You can load configuration with ",
  3247. 846.50 s [opt-env-conf-test] + functionChunk "withConfig",
  3248. 846.50 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  3249. 846.50 s [opt-env-conf-test] + functionChunk "withoutConfig",
  3250. 846.50 s [opt-env-conf-test] + "."
  3251. 846.50 s [opt-env-conf-test] + ]
  3252. 846.50 s [opt-env-conf-test] + ]
  3253. 846.50 s [opt-env-conf-test] + LintErrorManyInfinite ->
  3254. 846.50 s [opt-env-conf-test] + [ [ functionChunk "many",
  3255. 846.50 s [opt-env-conf-test] + " or ",
  3256. 846.50 s [opt-env-conf-test] + functionChunk "some",
  3257. 846.50 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  3258. 846.50 s [opt-env-conf-test] + ],
  3259. 846.50 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  3260. 846.50 s [opt-env-conf-test] + ],
  3261. 846.50 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3262. 846.50 s [opt-env-conf-test] ]
  3263. 846.50 s [opt-env-conf-test]
  3264. 846.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  3265. 846.50 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  3266. 846.50 s [opt-env-conf-test] renderLintError LintError {..} =
  3267. 846.50 s [opt-env-conf-test] concat
  3268. 846.50 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  3269. 846.50 s [opt-env-conf-test] - case lintErrorMessage of
  3270. 846.50 s [opt-env-conf-test] - LintErrorUndocumented ->
  3271. 846.50 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  3272. 846.50 s [opt-env-conf-test] - LintErrorEmptySetting ->
  3273. 846.50 s [opt-env-conf-test] - concat
  3274. 846.50 s [opt-env-conf-test] - [ [ [ "This ",
  3275. 846.50 s [opt-env-conf-test] - functionChunk "setting",
  3276. 846.50 s [opt-env-conf-test] - " parses nothing."
  3277. 846.50 s [opt-env-conf-test] - ]
  3278. 846.50 s [opt-env-conf-test] - ],
  3279. 846.50 s [opt-env-conf-test] - [ [ "Add an ",
  3280. 846.50 s [opt-env-conf-test] - functionChunk "argument",
  3281. 846.50 s [opt-env-conf-test] - ", ",
  3282. 846.50 s [opt-env-conf-test] - functionChunk "switch",
  3283. 846.50 s [opt-env-conf-test] - ", ",
  3284. 846.50 s [opt-env-conf-test] - functionChunk "option",
  3285. 846.50 s [opt-env-conf-test] - ", ",
  3286. 846.50 s [opt-env-conf-test] - functionChunk "env",
  3287. 846.50 s [opt-env-conf-test] - ", ",
  3288. 846.50 s [opt-env-conf-test] - functionChunk "conf",
  3289. 846.50 s [opt-env-conf-test] - ", or ",
  3290. 846.50 s [opt-env-conf-test] - functionChunk "value",
  3291. 846.50 s [opt-env-conf-test] - "."
  3292. 846.50 s [opt-env-conf-test] - ]
  3293. 846.50 s [opt-env-conf-test] - ]
  3294. 846.50 s [opt-env-conf-test] - ]
  3295. 846.50 s [opt-env-conf-test] - LintErrorDashInShort ->
  3296. 846.50 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  3297. 846.50 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  3298. 846.50 s [opt-env-conf-test] - ]
  3299. 846.50 s [opt-env-conf-test] - LintErrorDashInLong s ->
  3300. 846.50 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  3301. 846.50 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3302. 846.50 s [opt-env-conf-test] - [ "Try ",
  3303. 846.50 s [opt-env-conf-test] - functionChunk "long",
  3304. 846.50 s [opt-env-conf-test] - " ",
  3305. 846.50 s [opt-env-conf-test] - chunk $
  3306. 846.50 s [opt-env-conf-test] - T.pack $
  3307. 846.50 s [opt-env-conf-test] - show $
  3308. 846.50 s [opt-env-conf-test] - let go = \case
  3309. 846.50 s [opt-env-conf-test] - [] -> []
  3310. 846.50 s [opt-env-conf-test] - '-' : cs -> go cs
  3311. 846.50 s [opt-env-conf-test] - c : cs -> c : cs
  3312. 846.50 s [opt-env-conf-test] - in go $ NE.toList s,
  3313. 846.50 s [opt-env-conf-test] - " instead."
  3314. 846.50 s [opt-env-conf-test] - ]
  3315. 846.50 s [opt-env-conf-test] - ]
  3316. 846.50 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  3317. 846.50 s [opt-env-conf-test] - [ [ functionChunk "argument",
  3318. 846.50 s [opt-env-conf-test] - " has no ",
  3319. 846.50 s [opt-env-conf-test] - functionChunk "reader",
  3320. 846.50 s [opt-env-conf-test] - "."
  3321. 846.50 s [opt-env-conf-test] - ]
  3322. 846.50 s [opt-env-conf-test] - ]
  3323. 846.51 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  3324. 846.51 s [opt-env-conf-test] - [ [ functionChunk "argument",
  3325. 846.51 s [opt-env-conf-test] - " has no ",
  3326. 846.51 s [opt-env-conf-test] - functionChunk "metavar",
  3327. 846.51 s [opt-env-conf-test] - "."
  3328. 846.51 s [opt-env-conf-test] - ]
  3329. 846.51 s [opt-env-conf-test] - ]
  3330. 846.51 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  3331. 846.51 s [opt-env-conf-test] - [ [ functionChunk "option",
  3332. 846.51 s [opt-env-conf-test] - " or ",
  3333. 846.51 s [opt-env-conf-test] - functionChunk "name",
  3334. 846.51 s [opt-env-conf-test] - " has no ",
  3335. 846.51 s [opt-env-conf-test] - functionChunk "reader",
  3336. 846.51 s [opt-env-conf-test] - "."
  3337. 846.51 s [opt-env-conf-test] - ]
  3338. 846.51 s [opt-env-conf-test] - ]
  3339. 846.51 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  3340. 846.51 s [opt-env-conf-test] - [ [ functionChunk "option",
  3341. 846.51 s [opt-env-conf-test] - " has no ",
  3342. 846.51 s [opt-env-conf-test] - functionChunk "long",
  3343. 846.51 s [opt-env-conf-test] - " or ",
  3344. 846.51 s [opt-env-conf-test] - functionChunk "short",
  3345. 846.51 s [opt-env-conf-test] - "."
  3346. 846.51 s [opt-env-conf-test] - ]
  3347. 846.51 s [opt-env-conf-test] - ]
  3348. 846.51 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  3349. 846.51 s [opt-env-conf-test] - [ [ functionChunk "option",
  3350. 846.51 s [opt-env-conf-test] - " or ",
  3351. 846.51 s [opt-env-conf-test] - functionChunk "name",
  3352. 846.51 s [opt-env-conf-test] - " has no ",
  3353. 846.51 s [opt-env-conf-test] - functionChunk "metavar",
  3354. 846.51 s [opt-env-conf-test] - "."
  3355. 846.51 s [opt-env-conf-test] - ]
  3356. 846.51 s [opt-env-conf-test] - ]
  3357. 846.51 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  3358. 846.51 s [opt-env-conf-test] - [ [ functionChunk "switch",
  3359. 846.51 s [opt-env-conf-test] - " has no ",
  3360. 846.51 s [opt-env-conf-test] - functionChunk "long",
  3361. 846.51 s [opt-env-conf-test] - " or ",
  3362. 846.51 s [opt-env-conf-test] - functionChunk "short",
  3363. 846.51 s [opt-env-conf-test] - "."
  3364. 846.51 s [opt-env-conf-test] - ]
  3365. 846.51 s [opt-env-conf-test] - ]
  3366. 846.51 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  3367. 846.51 s [opt-env-conf-test] - [ [ functionChunk "long",
  3368. 846.51 s [opt-env-conf-test] - " or ",
  3369. 846.51 s [opt-env-conf-test] - functionChunk "short",
  3370. 846.51 s [opt-env-conf-test] - " has no ",
  3371. 846.51 s [opt-env-conf-test] - functionChunk "option",
  3372. 846.51 s [opt-env-conf-test] - " or ",
  3373. 846.51 s [opt-env-conf-test] - functionChunk "switch",
  3374. 846.51 s [opt-env-conf-test] - "."
  3375. 846.51 s [opt-env-conf-test] - ]
  3376. 846.51 s [opt-env-conf-test] - ]
  3377. 846.51 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  3378. 846.51 s [opt-env-conf-test] - [ [ functionChunk "env",
  3379. 846.51 s [opt-env-conf-test] - " or ",
  3380. 846.51 s [opt-env-conf-test] - functionChunk "name",
  3381. 846.51 s [opt-env-conf-test] - " has no ",
  3382. 846.51 s [opt-env-conf-test] - functionChunk "reader",
  3383. 846.51 s [opt-env-conf-test] - "."
  3384. 846.51 s [opt-env-conf-test] - ]
  3385. 846.51 s [opt-env-conf-test] - ]
  3386. 846.51 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  3387. 846.51 s [opt-env-conf-test] - [ [ functionChunk "env",
  3388. 846.51 s [opt-env-conf-test] - " or ",
  3389. 846.51 s [opt-env-conf-test] - functionChunk "name",
  3390. 846.51 s [opt-env-conf-test] - " has no ",
  3391. 846.51 s [opt-env-conf-test] - functionChunk "metavar",
  3392. 846.51 s [opt-env-conf-test] - "."
  3393. 846.51 s [opt-env-conf-test] - ]
  3394. 846.51 s [opt-env-conf-test] - ]
  3395. 846.51 s [opt-env-conf-test] - LintErrorNoCommands ->
  3396. 846.51 s [opt-env-conf-test] - [ [ functionChunk "commands",
  3397. 846.51 s [opt-env-conf-test] - " was called with an empty list."
  3398. 846.51 s [opt-env-conf-test] - ]
  3399. 846.51 s [opt-env-conf-test] - ]
  3400. 846.51 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  3401. 846.51 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  3402. 846.51 s [opt-env-conf-test] - " was called with an unknown command: ",
  3403. 846.51 s [opt-env-conf-test] - commandChunk c
  3404. 846.51 s [opt-env-conf-test] - ]
  3405. 846.51 s [opt-env-conf-test] - ]
  3406. 846.51 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  3407. 846.51 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3408. 846.51 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  3409. 846.51 s [opt-env-conf-test] - ]
  3410. 846.51 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  3411. 846.51 s [opt-env-conf-test] - [ [ functionChunk "conf",
  3412. 846.58 s [opt-env-conf-test] - " or ",
  3413. 846.58 s [opt-env-conf-test] - functionChunk "name",
  3414. 846.58 s [opt-env-conf-test] - " was called with no way to load configuration."
  3415. 846.58 s [opt-env-conf-test] - ],
  3416. 846.58 s [opt-env-conf-test] - [ "You can load configuration with ",
  3417. 846.58 s [opt-env-conf-test] - functionChunk "withConfig",
  3418. 846.58 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  3419. 846.58 s [opt-env-conf-test] - functionChunk "withoutConfig",
  3420. 846.58 s [opt-env-conf-test] - "."
  3421. 846.58 s [opt-env-conf-test] - ]
  3422. 846.58 s [opt-env-conf-test] - ]
  3423. 846.58 s [opt-env-conf-test] - LintErrorManyInfinite ->
  3424. 846.58 s [opt-env-conf-test] - [ [ functionChunk "many",
  3425. 846.58 s [opt-env-conf-test] - " or ",
  3426. 846.58 s [opt-env-conf-test] - functionChunk "some",
  3427. 846.58 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  3428. 846.58 s [opt-env-conf-test] - ],
  3429. 846.58 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  3430. 846.58 s [opt-env-conf-test] - ],
  3431. 846.58 s [opt-env-conf-test] + case lintErrorMessage of
  3432. 846.58 s [opt-env-conf-test] + LintErrorUndocumented ->
  3433. 846.58 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  3434. 846.58 s [opt-env-conf-test] + LintErrorEmptySetting ->
  3435. 846.58 s [opt-env-conf-test] + concat
  3436. 846.58 s [opt-env-conf-test] + [ [ [ "This ",
  3437. 846.58 s [opt-env-conf-test] + functionChunk "setting",
  3438. 846.58 s [opt-env-conf-test] + " parses nothing."
  3439. 846.58 s [opt-env-conf-test] + ]
  3440. 846.58 s [opt-env-conf-test] + ],
  3441. 846.58 s [opt-env-conf-test] + [ [ "Add an ",
  3442. 846.58 s [opt-env-conf-test] + functionChunk "argument",
  3443. 846.58 s [opt-env-conf-test] + ", ",
  3444. 846.58 s [opt-env-conf-test] + functionChunk "switch",
  3445. 846.58 s [opt-env-conf-test] + ", ",
  3446. 846.58 s [opt-env-conf-test] + functionChunk "option",
  3447. 846.58 s [opt-env-conf-test] + ", ",
  3448. 846.58 s [opt-env-conf-test] + functionChunk "env",
  3449. 846.58 s [opt-env-conf-test] + ", ",
  3450. 846.58 s [opt-env-conf-test] + functionChunk "conf",
  3451. 846.58 s [opt-env-conf-test] + ", or ",
  3452. 846.58 s [opt-env-conf-test] + functionChunk "value",
  3453. 846.58 s [opt-env-conf-test] + "."
  3454. 846.58 s [opt-env-conf-test] + ]
  3455. 846.58 s [opt-env-conf-test] + ]
  3456. 846.58 s [opt-env-conf-test] + ]
  3457. 846.58 s [opt-env-conf-test] + LintErrorDashInShort ->
  3458. 846.58 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  3459. 846.59 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  3460. 846.59 s [opt-env-conf-test] + ]
  3461. 846.59 s [opt-env-conf-test] + LintErrorDashInLong s ->
  3462. 846.59 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  3463. 846.59 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3464. 846.59 s [opt-env-conf-test] + [ "Try ",
  3465. 846.59 s [opt-env-conf-test] + functionChunk "long",
  3466. 846.59 s [opt-env-conf-test] + " ",
  3467. 846.59 s [opt-env-conf-test] + chunk $
  3468. 846.59 s [opt-env-conf-test] + T.pack $
  3469. 846.59 s [opt-env-conf-test] + show $
  3470. 846.59 s [opt-env-conf-test] + let go = \case
  3471. 846.59 s [opt-env-conf-test] + [] -> []
  3472. 846.59 s [opt-env-conf-test] + '-' : cs -> go cs
  3473. 846.59 s [opt-env-conf-test] + c : cs -> c : cs
  3474. 846.59 s [opt-env-conf-test] + in go $ NE.toList s,
  3475. 846.59 s [opt-env-conf-test] + " instead."
  3476. 846.59 s [opt-env-conf-test] + ]
  3477. 846.59 s [opt-env-conf-test] + ]
  3478. 846.59 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  3479. 846.59 s [opt-env-conf-test] + [ [ functionChunk "argument",
  3480. 846.59 s [opt-env-conf-test] + " has no ",
  3481. 846.59 s [opt-env-conf-test] + functionChunk "reader",
  3482. 846.59 s [opt-env-conf-test] + "."
  3483. 846.59 s [opt-env-conf-test] + ]
  3484. 846.59 s [opt-env-conf-test] + ]
  3485. 846.59 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  3486. 846.59 s [opt-env-conf-test] + [ [ functionChunk "argument",
  3487. 846.59 s [opt-env-conf-test] + " has no ",
  3488. 846.59 s [opt-env-conf-test] + functionChunk "metavar",
  3489. 846.59 s [opt-env-conf-test] + "."
  3490. 846.59 s [opt-env-conf-test] + ]
  3491. 846.59 s [opt-env-conf-test] + ]
  3492. 846.59 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  3493. 846.59 s [opt-env-conf-test] + [ [ functionChunk "option",
  3494. 846.59 s [opt-env-conf-test] + " or ",
  3495. 846.59 s [opt-env-conf-test] + functionChunk "name",
  3496. 846.59 s [opt-env-conf-test] + " has no ",
  3497. 846.59 s [opt-env-conf-test] + functionChunk "reader",
  3498. 846.59 s [opt-env-conf-test] + "."
  3499. 846.59 s [opt-env-conf-test] + ]
  3500. 846.59 s [opt-env-conf-test] + ]
  3501. 846.59 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  3502. 846.59 s [opt-env-conf-test] + [ [ functionChunk "option",
  3503. 846.59 s [opt-env-conf-test] + " has no ",
  3504. 846.59 s [opt-env-conf-test] + functionChunk "long",
  3505. 846.59 s [opt-env-conf-test] + " or ",
  3506. 846.59 s [opt-env-conf-test] + functionChunk "short",
  3507. 846.59 s [opt-env-conf-test] + "."
  3508. 846.59 s [opt-env-conf-test] + ]
  3509. 846.59 s [opt-env-conf-test] + ]
  3510. 846.59 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  3511. 846.59 s [opt-env-conf-test] + [ [ functionChunk "option",
  3512. 846.59 s [opt-env-conf-test] + " or ",
  3513. 846.59 s [opt-env-conf-test] + functionChunk "name",
  3514. 846.59 s [opt-env-conf-test] + " has no ",
  3515. 846.59 s [opt-env-conf-test] + functionChunk "metavar",
  3516. 846.59 s [opt-env-conf-test] + "."
  3517. 846.59 s [opt-env-conf-test] + ]
  3518. 846.59 s [opt-env-conf-test] + ]
  3519. 846.59 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  3520. 846.59 s [opt-env-conf-test] + [ [ functionChunk "switch",
  3521. 846.59 s [opt-env-conf-test] + " has no ",
  3522. 846.59 s [opt-env-conf-test] + functionChunk "long",
  3523. 846.59 s [opt-env-conf-test] + " or ",
  3524. 846.59 s [opt-env-conf-test] + functionChunk "short",
  3525. 846.59 s [opt-env-conf-test] + "."
  3526. 846.59 s [opt-env-conf-test] + ]
  3527. 846.59 s [opt-env-conf-test] + ]
  3528. 846.59 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  3529. 846.59 s [opt-env-conf-test] + [ [ functionChunk "long",
  3530. 846.59 s [opt-env-conf-test] + " or ",
  3531. 846.59 s [opt-env-conf-test] + functionChunk "short",
  3532. 846.59 s [opt-env-conf-test] + " has no ",
  3533. 846.59 s [opt-env-conf-test] + functionChunk "option",
  3534. 846.59 s [opt-env-conf-test] + " or ",
  3535. 846.59 s [opt-env-conf-test] + functionChunk "switch",
  3536. 846.59 s [opt-env-conf-test] + "."
  3537. 846.59 s [opt-env-conf-test] + ]
  3538. 846.59 s [opt-env-conf-test] + ]
  3539. 846.59 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  3540. 846.59 s [opt-env-conf-test] + [ [ functionChunk "env",
  3541. 846.59 s [opt-env-conf-test] + " or ",
  3542. 846.59 s [opt-env-conf-test] + functionChunk "name",
  3543. 846.59 s [opt-env-conf-test] + " has no ",
  3544. 846.59 s [opt-env-conf-test] + functionChunk "reader",
  3545. 846.59 s [opt-env-conf-test] + "."
  3546. 846.59 s [opt-env-conf-test] + ]
  3547. 846.59 s [opt-env-conf-test] + ]
  3548. 846.59 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  3549. 846.59 s [opt-env-conf-test] + [ [ functionChunk "env",
  3550. 846.59 s [opt-env-conf-test] + " or ",
  3551. 846.59 s [opt-env-conf-test] + functionChunk "name",
  3552. 846.59 s [opt-env-conf-test] + " has no ",
  3553. 846.59 s [opt-env-conf-test] + functionChunk "metavar",
  3554. 846.59 s [opt-env-conf-test] + "."
  3555. 846.59 s [opt-env-conf-test] + ]
  3556. 846.59 s [opt-env-conf-test] + ]
  3557. 846.59 s [opt-env-conf-test] + LintErrorNoCommands ->
  3558. 846.59 s [opt-env-conf-test] + [ [ functionChunk "commands",
  3559. 846.59 s [opt-env-conf-test] + " was called with an empty list."
  3560. 846.59 s [opt-env-conf-test] + ]
  3561. 846.59 s [opt-env-conf-test] + ]
  3562. 846.59 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  3563. 846.59 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  3564. 846.59 s [opt-env-conf-test] + " was called with an unknown command: ",
  3565. 846.59 s [opt-env-conf-test] + commandChunk c
  3566. 846.59 s [opt-env-conf-test] + ]
  3567. 846.59 s [opt-env-conf-test] + ]
  3568. 846.59 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  3569. 846.59 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3570. 846.59 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  3571. 846.59 s [opt-env-conf-test] + ]
  3572. 846.59 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  3573. 846.59 s [opt-env-conf-test] + [ [ functionChunk "conf",
  3574. 846.59 s [opt-env-conf-test] + " or ",
  3575. 846.59 s [opt-env-conf-test] + functionChunk "name",
  3576. 846.59 s [opt-env-conf-test] + " was called with no way to load configuration."
  3577. 846.59 s [opt-env-conf-test] + ],
  3578. 846.59 s [opt-env-conf-test] + [ "You can load configuration with ",
  3579. 846.59 s [opt-env-conf-test] + functionChunk "withConfig",
  3580. 846.59 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  3581. 846.59 s [opt-env-conf-test] + functionChunk "withoutConfig",
  3582. 846.59 s [opt-env-conf-test] + "."
  3583. 846.59 s [opt-env-conf-test] + ]
  3584. 846.59 s [opt-env-conf-test] + ]
  3585. 846.59 s [opt-env-conf-test] + LintErrorManyInfinite ->
  3586. 846.59 s [opt-env-conf-test] + [ [ functionChunk "many",
  3587. 846.59 s [opt-env-conf-test] + " or ",
  3588. 846.59 s [opt-env-conf-test] + functionChunk "some",
  3589. 846.59 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  3590. 846.60 s [opt-env-conf-test] + ],
  3591. 846.60 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  3592. 846.60 s [opt-env-conf-test] + ],
  3593. 846.60 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3594. 846.60 s [opt-env-conf-test] ]
  3595. 846.60 s [opt-env-conf-test]
  3596. 846.60 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  3597. 846.60 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  3598. 846.60 s [opt-env-conf-test] renderLintError LintError {..} =
  3599. 846.60 s [opt-env-conf-test] concat
  3600. 846.60 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  3601. 846.60 s [opt-env-conf-test] - case lintErrorMessage of
  3602. 846.60 s [opt-env-conf-test] - LintErrorUndocumented ->
  3603. 846.60 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  3604. 846.60 s [opt-env-conf-test] - LintErrorEmptySetting ->
  3605. 846.60 s [opt-env-conf-test] - concat
  3606. 846.60 s [opt-env-conf-test] - [ [ [ "This ",
  3607. 846.60 s [opt-env-conf-test] - functionChunk "setting",
  3608. 846.60 s [opt-env-conf-test] - " parses nothing."
  3609. 846.60 s [opt-env-conf-test] - ]
  3610. 846.60 s [opt-env-conf-test] - ],
  3611. 846.60 s [opt-env-conf-test] - [ [ "Add an ",
  3612. 846.60 s [opt-env-conf-test] - functionChunk "argument",
  3613. 846.60 s [opt-env-conf-test] - ", ",
  3614. 846.60 s [opt-env-conf-test] - functionChunk "switch",
  3615. 846.60 s [opt-env-conf-test] - ", ",
  3616. 846.60 s [opt-env-conf-test] - functionChunk "option",
  3617. 846.60 s [opt-env-conf-test] - ", ",
  3618. 846.60 s [opt-env-conf-test] - functionChunk "env",
  3619. 846.60 s [opt-env-conf-test] - ", ",
  3620. 846.60 s [opt-env-conf-test] - functionChunk "conf",
  3621. 846.60 s [opt-env-conf-test] - ", or ",
  3622. 846.60 s [opt-env-conf-test] - functionChunk "value",
  3623. 846.60 s [opt-env-conf-test] - "."
  3624. 846.60 s [opt-env-conf-test] - ]
  3625. 846.60 s [opt-env-conf-test] - ]
  3626. 846.60 s [opt-env-conf-test] - ]
  3627. 846.60 s [opt-env-conf-test] - LintErrorDashInShort ->
  3628. 846.60 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  3629. 846.60 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  3630. 846.60 s [opt-env-conf-test] - ]
  3631. 846.60 s [opt-env-conf-test] - LintErrorDashInLong s ->
  3632. 846.60 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  3633. 846.60 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3634. 846.60 s [opt-env-conf-test] - [ "Try ",
  3635. 846.60 s [opt-env-conf-test] - functionChunk "long",
  3636. 846.60 s [opt-env-conf-test] - " ",
  3637. 846.60 s [opt-env-conf-test] - chunk $
  3638. 846.60 s [opt-env-conf-test] - T.pack $
  3639. 846.60 s [opt-env-conf-test] - show $
  3640. 846.60 s [opt-env-conf-test] - let go = \case
  3641. 846.60 s [opt-env-conf-test] - [] -> []
  3642. 846.60 s [opt-env-conf-test] - '-' : cs -> go cs
  3643. 846.60 s [opt-env-conf-test] - c : cs -> c : cs
  3644. 846.60 s [opt-env-conf-test] - in go $ NE.toList s,
  3645. 846.60 s [opt-env-conf-test] - " instead."
  3646. 846.60 s [opt-env-conf-test] - ]
  3647. 846.60 s [opt-env-conf-test] - ]
  3648. 846.60 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  3649. 846.60 s [opt-env-conf-test] - [ [ functionChunk "argument",
  3650. 846.60 s [opt-env-conf-test] - " has no ",
  3651. 846.60 s [opt-env-conf-test] - functionChunk "reader",
  3652. 846.60 s [opt-env-conf-test] - "."
  3653. 846.60 s [opt-env-conf-test] - ]
  3654. 846.60 s [opt-env-conf-test] - ]
  3655. 846.60 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  3656. 846.60 s [opt-env-conf-test] - [ [ functionChunk "argument",
  3657. 846.60 s [opt-env-conf-test] - " has no ",
  3658. 846.60 s [opt-env-conf-test] - functionChunk "metavar",
  3659. 846.60 s [opt-env-conf-test] - "."
  3660. 846.60 s [opt-env-conf-test] - ]
  3661. 846.60 s [opt-env-conf-test] - ]
  3662. 846.60 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  3663. 846.60 s [opt-env-conf-test] - [ [ functionChunk "option",
  3664. 846.60 s [opt-env-conf-test] - " or ",
  3665. 846.60 s [opt-env-conf-test] - functionChunk "name",
  3666. 846.60 s [opt-env-conf-test] - " has no ",
  3667. 846.60 s [opt-env-conf-test] - functionChunk "reader",
  3668. 846.60 s [opt-env-conf-test] - "."
  3669. 846.60 s [opt-env-conf-test] - ]
  3670. 846.60 s [opt-env-conf-test] - ]
  3671. 846.60 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  3672. 846.60 s [opt-env-conf-test] - [ [ functionChunk "option",
  3673. 846.60 s [opt-env-conf-test] - " has no ",
  3674. 846.60 s [opt-env-conf-test] - functionChunk "long",
  3675. 846.60 s [opt-env-conf-test] - " or ",
  3676. 846.60 s [opt-env-conf-test] - functionChunk "short",
  3677. 846.60 s [opt-env-conf-test] - "."
  3678. 846.60 s [opt-env-conf-test] - ]
  3679. 846.60 s [opt-env-conf-test] - ]
  3680. 846.60 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  3681. 846.60 s [opt-env-conf-test] - [ [ functionChunk "option",
  3682. 846.60 s [opt-env-conf-test] - " or ",
  3683. 846.60 s [opt-env-conf-test] - functionChunk "name",
  3684. 846.60 s [opt-env-conf-test] - " has no ",
  3685. 846.60 s [opt-env-conf-test] - functionChunk "metavar",
  3686. 846.60 s [opt-env-conf-test] - "."
  3687. 846.60 s [opt-env-conf-test] - ]
  3688. 846.60 s [opt-env-conf-test] - ]
  3689. 846.60 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  3690. 846.60 s [opt-env-conf-test] - [ [ functionChunk "switch",
  3691. 846.60 s [opt-env-conf-test] - " has no ",
  3692. 846.60 s [opt-env-conf-test] - functionChunk "long",
  3693. 846.60 s [opt-env-conf-test] - " or ",
  3694. 846.60 s [opt-env-conf-test] - functionChunk "short",
  3695. 846.60 s [opt-env-conf-test] - "."
  3696. 846.60 s [opt-env-conf-test] - ]
  3697. 846.60 s [opt-env-conf-test] - ]
  3698. 846.60 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  3699. 846.60 s [opt-env-conf-test] - [ [ functionChunk "long",
  3700. 846.60 s [opt-env-conf-test] - " or ",
  3701. 846.60 s [opt-env-conf-test] - functionChunk "short",
  3702. 846.60 s [opt-env-conf-test] - " has no ",
  3703. 846.60 s [opt-env-conf-test] - functionChunk "option",
  3704. 846.60 s [opt-env-conf-test] - " or ",
  3705. 846.60 s [opt-env-conf-test] - functionChunk "switch",
  3706. 846.60 s [opt-env-conf-test] - "."
  3707. 846.60 s [opt-env-conf-test] - ]
  3708. 846.60 s [opt-env-conf-test] - ]
  3709. 846.60 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  3710. 846.60 s [opt-env-conf-test] - [ [ functionChunk "env",
  3711. 846.60 s [opt-env-conf-test] - " or ",
  3712. 846.60 s [opt-env-conf-test] - functionChunk "name",
  3713. 846.60 s [opt-env-conf-test] - " has no ",
  3714. 846.60 s [opt-env-conf-test] - functionChunk "reader",
  3715. 846.60 s [opt-env-conf-test] - "."
  3716. 846.60 s [opt-env-conf-test] - ]
  3717. 846.60 s [opt-env-conf-test] - ]
  3718. 846.60 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  3719. 846.60 s [opt-env-conf-test] - [ [ functionChunk "env",
  3720. 846.60 s [opt-env-conf-test] - " or ",
  3721. 846.60 s [opt-env-conf-test] - functionChunk "name",
  3722. 846.60 s [opt-env-conf-test] - " has no ",
  3723. 846.60 s [opt-env-conf-test] - functionChunk "metavar",
  3724. 846.60 s [opt-env-conf-test] - "."
  3725. 846.60 s [opt-env-conf-test] - ]
  3726. 846.60 s [opt-env-conf-test] - ]
  3727. 846.60 s [opt-env-conf-test] - LintErrorNoCommands ->
  3728. 846.60 s [opt-env-conf-test] - [ [ functionChunk "commands",
  3729. 846.60 s [opt-env-conf-test] - " was called with an empty list."
  3730. 846.60 s [opt-env-conf-test] - ]
  3731. 846.60 s [opt-env-conf-test] - ]
  3732. 846.60 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  3733. 846.61 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  3734. 846.61 s [opt-env-conf-test] - " was called with an unknown command: ",
  3735. 846.61 s [opt-env-conf-test] - commandChunk c
  3736. 846.61 s [opt-env-conf-test] - ]
  3737. 846.61 s [opt-env-conf-test] - ]
  3738. 846.61 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  3739. 846.61 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3740. 846.61 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  3741. 846.61 s [opt-env-conf-test] - ]
  3742. 846.61 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  3743. 846.61 s [opt-env-conf-test] - [ [ functionChunk "conf",
  3744. 846.61 s [opt-env-conf-test] - " or ",
  3745. 846.61 s [opt-env-conf-test] - functionChunk "name",
  3746. 846.61 s [opt-env-conf-test] - " was called with no way to load configuration."
  3747. 846.61 s [opt-env-conf-test] - ],
  3748. 846.61 s [opt-env-conf-test] - [ "You can load configuration with ",
  3749. 846.61 s [opt-env-conf-test] - functionChunk "withConfig",
  3750. 846.61 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  3751. 846.61 s [opt-env-conf-test] - functionChunk "withoutConfig",
  3752. 846.61 s [opt-env-conf-test] - "."
  3753. 846.61 s [opt-env-conf-test] - ]
  3754. 846.61 s [opt-env-conf-test] - ]
  3755. 846.61 s [opt-env-conf-test] - LintErrorManyInfinite ->
  3756. 846.61 s [opt-env-conf-test] - [ [ functionChunk "many",
  3757. 846.61 s [opt-env-conf-test] - " or ",
  3758. 846.61 s [opt-env-conf-test] - functionChunk "some",
  3759. 846.61 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  3760. 846.61 s [opt-env-conf-test] - ],
  3761. 846.61 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  3762. 846.61 s [opt-env-conf-test] - ],
  3763. 846.61 s [opt-env-conf-test] + case lintErrorMessage of
  3764. 846.61 s [opt-env-conf-test] + LintErrorUndocumented ->
  3765. 846.61 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  3766. 846.61 s [opt-env-conf-test] + LintErrorEmptySetting ->
  3767. 846.61 s [opt-env-conf-test] + concat
  3768. 846.61 s [opt-env-conf-test] + [ [ [ "This ",
  3769. 846.61 s [opt-env-conf-test] + functionChunk "setting",
  3770. 846.61 s [opt-env-conf-test] + " parses nothing."
  3771. 846.61 s [opt-env-conf-test] + ]
  3772. 846.61 s [opt-env-conf-test] + ],
  3773. 846.61 s [opt-env-conf-test] + [ [ "Add an ",
  3774. 846.61 s [opt-env-conf-test] + functionChunk "argument",
  3775. 846.61 s [opt-env-conf-test] + ", ",
  3776. 846.61 s [opt-env-conf-test] + functionChunk "switch",
  3777. 846.61 s [opt-env-conf-test] + ", ",
  3778. 846.61 s [opt-env-conf-test] + functionChunk "option",
  3779. 846.61 s [opt-env-conf-test] + ", ",
  3780. 846.61 s [opt-env-conf-test] + functionChunk "env",
  3781. 846.61 s [opt-env-conf-test] + ", ",
  3782. 846.61 s [opt-env-conf-test] + functionChunk "conf",
  3783. 846.61 s [opt-env-conf-test] + ", or ",
  3784. 846.61 s [opt-env-conf-test] + functionChunk "value",
  3785. 846.61 s [opt-env-conf-test] + "."
  3786. 846.61 s [opt-env-conf-test] + ]
  3787. 846.61 s [opt-env-conf-test] + ]
  3788. 846.61 s [opt-env-conf-test] + ]
  3789. 846.61 s [opt-env-conf-test] + LintErrorDashInShort ->
  3790. 846.61 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  3791. 846.61 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  3792. 846.61 s [opt-env-conf-test] + ]
  3793. 846.61 s [opt-env-conf-test] + LintErrorDashInLong s ->
  3794. 846.61 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  3795. 846.61 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3796. 846.61 s [opt-env-conf-test] + [ "Try ",
  3797. 846.61 s [opt-env-conf-test] + functionChunk "long",
  3798. 846.61 s [opt-env-conf-test] + " ",
  3799. 846.61 s [opt-env-conf-test] + chunk $
  3800. 846.61 s [opt-env-conf-test] + T.pack $
  3801. 846.61 s [opt-env-conf-test] + show $
  3802. 846.61 s [opt-env-conf-test] + let go = \case
  3803. 846.61 s [opt-env-conf-test] + [] -> []
  3804. 846.61 s [opt-env-conf-test] + '-' : cs -> go cs
  3805. 846.61 s [opt-env-conf-test] + c : cs -> c : cs
  3806. 846.61 s [opt-env-conf-test] + in go $ NE.toList s,
  3807. 846.61 s [opt-env-conf-test] + " instead."
  3808. 846.61 s [opt-env-conf-test] + ]
  3809. 846.61 s [opt-env-conf-test] + ]
  3810. 846.61 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  3811. 846.61 s [opt-env-conf-test] + [ [ functionChunk "argument",
  3812. 846.61 s [opt-env-conf-test] + " has no ",
  3813. 846.61 s [opt-env-conf-test] + functionChunk "reader",
  3814. 846.61 s [opt-env-conf-test] + "."
  3815. 846.61 s [opt-env-conf-test] + ]
  3816. 846.61 s [opt-env-conf-test] + ]
  3817. 846.61 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  3818. 846.61 s [opt-env-conf-test] + [ [ functionChunk "argument",
  3819. 846.61 s [opt-env-conf-test] + " has no ",
  3820. 846.61 s [opt-env-conf-test] + functionChunk "metavar",
  3821. 846.61 s [opt-env-conf-test] + "."
  3822. 846.61 s [opt-env-conf-test] + ]
  3823. 846.61 s [opt-env-conf-test] + ]
  3824. 846.61 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  3825. 846.61 s [opt-env-conf-test] + [ [ functionChunk "option",
  3826. 846.61 s [opt-env-conf-test] + " or ",
  3827. 846.61 s [opt-env-conf-test] + functionChunk "name",
  3828. 846.61 s [opt-env-conf-test] + " has no ",
  3829. 846.61 s [opt-env-conf-test] + functionChunk "reader",
  3830. 846.61 s [opt-env-conf-test] + "."
  3831. 846.61 s [opt-env-conf-test] + ]
  3832. 846.61 s [opt-env-conf-test] + ]
  3833. 846.61 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  3834. 846.61 s [opt-env-conf-test] + [ [ functionChunk "option",
  3835. 846.61 s [opt-env-conf-test] + " has no ",
  3836. 846.61 s [opt-env-conf-test] + functionChunk "long",
  3837. 846.61 s [opt-env-conf-test] + " or ",
  3838. 846.61 s [opt-env-conf-test] + functionChunk "short",
  3839. 846.61 s [opt-env-conf-test] + "."
  3840. 846.61 s [opt-env-conf-test] + ]
  3841. 846.61 s [opt-env-conf-test] + ]
  3842. 846.61 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  3843. 846.61 s [opt-env-conf-test] + [ [ functionChunk "option",
  3844. 846.61 s [opt-env-conf-test] + " or ",
  3845. 846.61 s [opt-env-conf-test] + functionChunk "name",
  3846. 846.61 s [opt-env-conf-test] + " has no ",
  3847. 846.61 s [opt-env-conf-test] + functionChunk "metavar",
  3848. 846.61 s [opt-env-conf-test] + "."
  3849. 846.61 s [opt-env-conf-test] + ]
  3850. 846.61 s [opt-env-conf-test] + ]
  3851. 846.61 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  3852. 846.61 s [opt-env-conf-test] + [ [ functionChunk "switch",
  3853. 846.61 s [opt-env-conf-test] + " has no ",
  3854. 846.61 s [opt-env-conf-test] + functionChunk "long",
  3855. 846.61 s [opt-env-conf-test] + " or ",
  3856. 846.61 s [opt-env-conf-test] + functionChunk "short",
  3857. 846.61 s [opt-env-conf-test] + "."
  3858. 846.61 s [opt-env-conf-test] + ]
  3859. 846.61 s [opt-env-conf-test] + ]
  3860. 846.61 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  3861. 846.61 s [opt-env-conf-test] + [ [ functionChunk "long",
  3862. 846.61 s [opt-env-conf-test] + " or ",
  3863. 846.61 s [opt-env-conf-test] + functionChunk "short",
  3864. 846.61 s [opt-env-conf-test] + " has no ",
  3865. 846.61 s [opt-env-conf-test] + functionChunk "option",
  3866. 846.61 s [opt-env-conf-test] + " or ",
  3867. 846.62 s [opt-env-conf-test] + functionChunk "switch",
  3868. 846.62 s [opt-env-conf-test] + "."
  3869. 846.62 s [opt-env-conf-test] + ]
  3870. 846.62 s [opt-env-conf-test] + ]
  3871. 846.62 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  3872. 846.62 s [opt-env-conf-test] + [ [ functionChunk "env",
  3873. 846.62 s [opt-env-conf-test] + " or ",
  3874. 846.62 s [opt-env-conf-test] + functionChunk "name",
  3875. 846.62 s [opt-env-conf-test] + " has no ",
  3876. 846.62 s [opt-env-conf-test] + functionChunk "reader",
  3877. 846.62 s [opt-env-conf-test] + "."
  3878. 846.62 s [opt-env-conf-test] + ]
  3879. 846.62 s [opt-env-conf-test] + ]
  3880. 846.62 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  3881. 846.62 s [opt-env-conf-test] + [ [ functionChunk "env",
  3882. 846.62 s [opt-env-conf-test] + " or ",
  3883. 846.62 s [opt-env-conf-test] + functionChunk "name",
  3884. 846.62 s [opt-env-conf-test] + " has no ",
  3885. 846.62 s [opt-env-conf-test] + functionChunk "metavar",
  3886. 846.62 s [opt-env-conf-test] + "."
  3887. 846.62 s [opt-env-conf-test] + ]
  3888. 846.62 s [opt-env-conf-test] + ]
  3889. 846.62 s [opt-env-conf-test] + LintErrorNoCommands ->
  3890. 846.62 s [opt-env-conf-test] + [ [ functionChunk "commands",
  3891. 846.62 s [opt-env-conf-test] + " was called with an empty list."
  3892. 846.62 s [opt-env-conf-test] + ]
  3893. 846.62 s [opt-env-conf-test] + ]
  3894. 846.62 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  3895. 846.62 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  3896. 846.62 s [opt-env-conf-test] + " was called with an unknown command: ",
  3897. 846.62 s [opt-env-conf-test] + commandChunk c
  3898. 846.62 s [opt-env-conf-test] + ]
  3899. 846.62 s [opt-env-conf-test] + ]
  3900. 846.62 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  3901. 846.62 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3902. 846.62 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  3903. 846.62 s [opt-env-conf-test] + ]
  3904. 846.62 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  3905. 846.62 s [opt-env-conf-test] + [ [ functionChunk "conf",
  3906. 846.62 s [opt-env-conf-test] + " or ",
  3907. 846.62 s [opt-env-conf-test] + functionChunk "name",
  3908. 846.62 s [opt-env-conf-test] + " was called with no way to load configuration."
  3909. 846.62 s [opt-env-conf-test] + ],
  3910. 846.62 s [opt-env-conf-test] + [ "You can load configuration with ",
  3911. 846.62 s [opt-env-conf-test] + functionChunk "withConfig",
  3912. 846.62 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  3913. 846.62 s [opt-env-conf-test] + functionChunk "withoutConfig",
  3914. 846.62 s [opt-env-conf-test] + "."
  3915. 846.62 s [opt-env-conf-test] + ]
  3916. 846.62 s [opt-env-conf-test] + ]
  3917. 846.62 s [opt-env-conf-test] + LintErrorManyInfinite ->
  3918. 846.62 s [opt-env-conf-test] + [ [ functionChunk "many",
  3919. 846.62 s [opt-env-conf-test] + " or ",
  3920. 846.62 s [opt-env-conf-test] + functionChunk "some",
  3921. 846.63 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  3922. 846.63 s [opt-env-conf-test] + ],
  3923. 846.63 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  3924. 846.63 s [opt-env-conf-test] + ],
  3925. 846.63 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3926. 846.63 s [opt-env-conf-test] ]
  3927. 846.63 s [opt-env-conf-test]
  3928. 846.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  3929. 846.63 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  3930. 846.63 s [opt-env-conf-test] renderLintError LintError {..} =
  3931. 846.63 s [opt-env-conf-test] concat
  3932. 846.63 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  3933. 846.63 s [opt-env-conf-test] - case lintErrorMessage of
  3934. 846.63 s [opt-env-conf-test] - LintErrorUndocumented ->
  3935. 846.63 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  3936. 846.63 s [opt-env-conf-test] - LintErrorEmptySetting ->
  3937. 846.64 s [opt-env-conf-test] - concat
  3938. 846.64 s [opt-env-conf-test] - [ [ [ "This ",
  3939. 846.64 s [opt-env-conf-test] - functionChunk "setting",
  3940. 846.64 s [opt-env-conf-test] - " parses nothing."
  3941. 846.64 s [opt-env-conf-test] - ]
  3942. 846.64 s [opt-env-conf-test] - ],
  3943. 846.64 s [opt-env-conf-test] - [ [ "Add an ",
  3944. 846.64 s [opt-env-conf-test] - functionChunk "argument",
  3945. 846.64 s [opt-env-conf-test] - ", ",
  3946. 846.64 s [opt-env-conf-test] - functionChunk "switch",
  3947. 846.64 s [opt-env-conf-test] - ", ",
  3948. 846.64 s [opt-env-conf-test] - functionChunk "option",
  3949. 846.64 s [opt-env-conf-test] - ", ",
  3950. 846.64 s [opt-env-conf-test] - functionChunk "env",
  3951. 846.64 s [opt-env-conf-test] - ", ",
  3952. 846.64 s [opt-env-conf-test] - functionChunk "conf",
  3953. 846.64 s [opt-env-conf-test] - ", or ",
  3954. 846.64 s [opt-env-conf-test] - functionChunk "value",
  3955. 846.64 s [opt-env-conf-test] - "."
  3956. 846.64 s [opt-env-conf-test] - ]
  3957. 846.64 s [opt-env-conf-test] - ]
  3958. 846.64 s [opt-env-conf-test] - ]
  3959. 846.64 s [opt-env-conf-test] - LintErrorDashInShort ->
  3960. 846.64 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  3961. 846.64 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  3962. 846.64 s [opt-env-conf-test] - ]
  3963. 846.64 s [opt-env-conf-test] - LintErrorDashInLong s ->
  3964. 846.64 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  3965. 846.64 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3966. 846.64 s [opt-env-conf-test] - [ "Try ",
  3967. 846.64 s [opt-env-conf-test] - functionChunk "long",
  3968. 846.64 s [opt-env-conf-test] - " ",
  3969. 846.64 s [opt-env-conf-test] - chunk $
  3970. 846.64 s [opt-env-conf-test] - T.pack $
  3971. 846.64 s [opt-env-conf-test] - show $
  3972. 846.64 s [opt-env-conf-test] - let go = \case
  3973. 846.64 s [opt-env-conf-test] - [] -> []
  3974. 846.64 s [opt-env-conf-test] - '-' : cs -> go cs
  3975. 846.64 s [opt-env-conf-test] - c : cs -> c : cs
  3976. 846.64 s [opt-env-conf-test] - in go $ NE.toList s,
  3977. 846.64 s [opt-env-conf-test] - " instead."
  3978. 846.64 s [opt-env-conf-test] - ]
  3979. 846.64 s [opt-env-conf-test] - ]
  3980. 846.64 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  3981. 846.64 s [opt-env-conf-test] - [ [ functionChunk "argument",
  3982. 846.64 s [opt-env-conf-test] - " has no ",
  3983. 846.64 s [opt-env-conf-test] - functionChunk "reader",
  3984. 846.64 s [opt-env-conf-test] - "."
  3985. 846.64 s [opt-env-conf-test] - ]
  3986. 846.64 s [opt-env-conf-test] - ]
  3987. 846.64 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  3988. 846.64 s [opt-env-conf-test] - [ [ functionChunk "argument",
  3989. 846.64 s [opt-env-conf-test] - " has no ",
  3990. 846.64 s [opt-env-conf-test] - functionChunk "metavar",
  3991. 846.64 s [opt-env-conf-test] - "."
  3992. 846.64 s [opt-env-conf-test] - ]
  3993. 846.64 s [opt-env-conf-test] - ]
  3994. 846.65 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  3995. 846.65 s [opt-env-conf-test] - [ [ functionChunk "option",
  3996. 846.65 s [opt-env-conf-test] - " or ",
  3997. 846.65 s [opt-env-conf-test] - functionChunk "name",
  3998. 846.65 s [opt-env-conf-test] - " has no ",
  3999. 846.65 s [opt-env-conf-test] - functionChunk "reader",
  4000. 846.65 s [opt-env-conf-test] - "."
  4001. 846.65 s [opt-env-conf-test] - ]
  4002. 846.65 s [opt-env-conf-test] - ]
  4003. 846.65 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  4004. 846.65 s [opt-env-conf-test] - [ [ functionChunk "option",
  4005. 846.65 s [opt-env-conf-test] - " has no ",
  4006. 846.65 s [opt-env-conf-test] - functionChunk "long",
  4007. 846.65 s [opt-env-conf-test] - " or ",
  4008. 846.65 s [opt-env-conf-test] - functionChunk "short",
  4009. 846.65 s [opt-env-conf-test] - "."
  4010. 846.65 s [opt-env-conf-test] - ]
  4011. 846.65 s [opt-env-conf-test] - ]
  4012. 846.65 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  4013. 846.65 s [opt-env-conf-test] - [ [ functionChunk "option",
  4014. 846.65 s [opt-env-conf-test] - " or ",
  4015. 846.65 s [opt-env-conf-test] - functionChunk "name",
  4016. 846.65 s [opt-env-conf-test] - " has no ",
  4017. 846.65 s [opt-env-conf-test] - functionChunk "metavar",
  4018. 846.65 s [opt-env-conf-test] - "."
  4019. 846.65 s [opt-env-conf-test] - ]
  4020. 846.65 s [opt-env-conf-test] - ]
  4021. 846.65 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  4022. 846.65 s [opt-env-conf-test] - [ [ functionChunk "switch",
  4023. 846.65 s [opt-env-conf-test] - " has no ",
  4024. 846.65 s [opt-env-conf-test] - functionChunk "long",
  4025. 846.65 s [opt-env-conf-test] - " or ",
  4026. 846.65 s [opt-env-conf-test] - functionChunk "short",
  4027. 846.65 s [opt-env-conf-test] - "."
  4028. 846.65 s [opt-env-conf-test] - ]
  4029. 846.65 s [opt-env-conf-test] - ]
  4030. 846.65 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  4031. 846.65 s [opt-env-conf-test] - [ [ functionChunk "long",
  4032. 846.65 s [opt-env-conf-test] - " or ",
  4033. 846.65 s [opt-env-conf-test] - functionChunk "short",
  4034. 846.65 s [opt-env-conf-test] - " has no ",
  4035. 846.65 s [opt-env-conf-test] - functionChunk "option",
  4036. 846.65 s [opt-env-conf-test] - " or ",
  4037. 846.65 s [opt-env-conf-test] - functionChunk "switch",
  4038. 846.65 s [opt-env-conf-test] - "."
  4039. 846.65 s [opt-env-conf-test] - ]
  4040. 846.65 s [opt-env-conf-test] - ]
  4041. 846.65 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  4042. 846.65 s [opt-env-conf-test] - [ [ functionChunk "env",
  4043. 846.65 s [opt-env-conf-test] - " or ",
  4044. 846.65 s [opt-env-conf-test] - functionChunk "name",
  4045. 846.65 s [opt-env-conf-test] - " has no ",
  4046. 846.65 s [opt-env-conf-test] - functionChunk "reader",
  4047. 846.65 s [opt-env-conf-test] - "."
  4048. 846.65 s [opt-env-conf-test] - ]
  4049. 846.65 s [opt-env-conf-test] - ]
  4050. 846.65 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  4051. 846.65 s [opt-env-conf-test] - [ [ functionChunk "env",
  4052. 846.65 s [opt-env-conf-test] - " or ",
  4053. 846.65 s [opt-env-conf-test] - functionChunk "name",
  4054. 846.65 s [opt-env-conf-test] - " has no ",
  4055. 846.65 s [opt-env-conf-test] - functionChunk "metavar",
  4056. 846.65 s [opt-env-conf-test] - "."
  4057. 846.65 s [opt-env-conf-test] - ]
  4058. 846.65 s [opt-env-conf-test] - ]
  4059. 846.65 s [opt-env-conf-test] - LintErrorNoCommands ->
  4060. 846.65 s [opt-env-conf-test] - [ [ functionChunk "commands",
  4061. 846.65 s [opt-env-conf-test] - " was called with an empty list."
  4062. 846.65 s [opt-env-conf-test] - ]
  4063. 846.65 s [opt-env-conf-test] - ]
  4064. 846.65 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  4065. 846.65 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  4066. 846.65 s [opt-env-conf-test] - " was called with an unknown command: ",
  4067. 846.66 s [opt-env-conf-test] - commandChunk c
  4068. 846.66 s [opt-env-conf-test] - ]
  4069. 846.66 s [opt-env-conf-test] - ]
  4070. 846.66 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  4071. 846.66 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4072. 846.66 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  4073. 846.66 s [opt-env-conf-test] - ]
  4074. 846.66 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  4075. 846.66 s [opt-env-conf-test] - [ [ functionChunk "conf",
  4076. 846.66 s [opt-env-conf-test] - " or ",
  4077. 846.66 s [opt-env-conf-test] - functionChunk "name",
  4078. 846.66 s [opt-env-conf-test] - " was called with no way to load configuration."
  4079. 846.66 s [opt-env-conf-test] - ],
  4080. 846.66 s [opt-env-conf-test] - [ "You can load configuration with ",
  4081. 846.66 s [opt-env-conf-test] - functionChunk "withConfig",
  4082. 846.66 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  4083. 846.66 s [opt-env-conf-test] - functionChunk "withoutConfig",
  4084. 846.66 s [opt-env-conf-test] - "."
  4085. 846.66 s [opt-env-conf-test] - ]
  4086. 846.66 s [opt-env-conf-test] - ]
  4087. 846.66 s [opt-env-conf-test] - LintErrorManyInfinite ->
  4088. 846.66 s [opt-env-conf-test] - [ [ functionChunk "many",
  4089. 846.66 s [opt-env-conf-test] - " or ",
  4090. 846.66 s [opt-env-conf-test] - functionChunk "some",
  4091. 846.66 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  4092. 846.66 s [opt-env-conf-test] - ],
  4093. 846.66 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  4094. 846.66 s [opt-env-conf-test] - ],
  4095. 846.66 s [opt-env-conf-test] + case lintErrorMessage of
  4096. 846.66 s [opt-env-conf-test] + LintErrorUndocumented ->
  4097. 846.66 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  4098. 846.66 s [opt-env-conf-test] + LintErrorEmptySetting ->
  4099. 846.66 s [opt-env-conf-test] + concat
  4100. 846.66 s [opt-env-conf-test] + [ [ [ "This ",
  4101. 846.66 s [opt-env-conf-test] + functionChunk "setting",
  4102. 846.66 s [opt-env-conf-test] + " parses nothing."
  4103. 846.66 s [opt-env-conf-test] + ]
  4104. 846.66 s [opt-env-conf-test] + ],
  4105. 846.66 s [opt-env-conf-test] + [ [ "Add an ",
  4106. 846.66 s [opt-env-conf-test] + functionChunk "argument",
  4107. 846.66 s [opt-env-conf-test] + ", ",
  4108. 846.66 s [opt-env-conf-test] + functionChunk "switch",
  4109. 846.66 s [opt-env-conf-test] + ", ",
  4110. 846.66 s [opt-env-conf-test] + functionChunk "option",
  4111. 846.66 s [opt-env-conf-test] + ", ",
  4112. 846.66 s [opt-env-conf-test] + functionChunk "env",
  4113. 846.66 s [opt-env-conf-test] + ", ",
  4114. 846.66 s [opt-env-conf-test] + functionChunk "conf",
  4115. 846.66 s [opt-env-conf-test] + ", or ",
  4116. 846.66 s [opt-env-conf-test] + functionChunk "value",
  4117. 846.66 s [opt-env-conf-test] + "."
  4118. 846.66 s [opt-env-conf-test] + ]
  4119. 846.66 s [opt-env-conf-test] + ]
  4120. 846.66 s [opt-env-conf-test] + ]
  4121. 846.66 s [opt-env-conf-test] + LintErrorDashInShort ->
  4122. 846.66 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  4123. 846.66 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  4124. 846.66 s [opt-env-conf-test] + ]
  4125. 846.66 s [opt-env-conf-test] + LintErrorDashInLong s ->
  4126. 846.66 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  4127. 846.66 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4128. 846.66 s [opt-env-conf-test] + [ "Try ",
  4129. 846.67 s [opt-env-conf-test] + functionChunk "long",
  4130. 846.67 s [opt-env-conf-test] + " ",
  4131. 846.67 s [opt-env-conf-test] + chunk $
  4132. 846.67 s [opt-env-conf-test] + T.pack $
  4133. 846.67 s [opt-env-conf-test] + show $
  4134. 846.67 s [opt-env-conf-test] + let go = \case
  4135. 846.67 s [opt-env-conf-test] + [] -> []
  4136. 846.67 s [opt-env-conf-test] + '-' : cs -> go cs
  4137. 846.67 s [opt-env-conf-test] + c : cs -> c : cs
  4138. 846.67 s [opt-env-conf-test] + in go $ NE.toList s,
  4139. 846.67 s [opt-env-conf-test] + " instead."
  4140. 846.67 s [opt-env-conf-test] + ]
  4141. 846.67 s [opt-env-conf-test] + ]
  4142. 846.67 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  4143. 846.67 s [opt-env-conf-test] + [ [ functionChunk "argument",
  4144. 846.67 s [opt-env-conf-test] + " has no ",
  4145. 846.67 s [opt-env-conf-test] + functionChunk "reader",
  4146. 846.67 s [opt-env-conf-test] + "."
  4147. 846.67 s [opt-env-conf-test] + ]
  4148. 846.67 s [opt-env-conf-test] + ]
  4149. 846.67 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  4150. 846.67 s [opt-env-conf-test] + [ [ functionChunk "argument",
  4151. 846.67 s [opt-env-conf-test] + " has no ",
  4152. 846.67 s [opt-env-conf-test] + functionChunk "metavar",
  4153. 846.67 s [opt-env-conf-test] + "."
  4154. 846.67 s [opt-env-conf-test] + ]
  4155. 846.67 s [opt-env-conf-test] + ]
  4156. 846.67 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  4157. 846.67 s [opt-env-conf-test] + [ [ functionChunk "option",
  4158. 846.67 s [opt-env-conf-test] + " or ",
  4159. 846.67 s [opt-env-conf-test] + functionChunk "name",
  4160. 846.67 s [opt-env-conf-test] + " has no ",
  4161. 846.67 s [opt-env-conf-test] + functionChunk "reader",
  4162. 846.67 s [opt-env-conf-test] + "."
  4163. 846.67 s [opt-env-conf-test] + ]
  4164. 846.67 s [opt-env-conf-test] + ]
  4165. 846.67 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  4166. 846.67 s [opt-env-conf-test] + [ [ functionChunk "option",
  4167. 846.67 s [opt-env-conf-test] + " has no ",
  4168. 846.67 s [opt-env-conf-test] + functionChunk "long",
  4169. 846.67 s [opt-env-conf-test] + " or ",
  4170. 846.67 s [opt-env-conf-test] + functionChunk "short",
  4171. 846.67 s [opt-env-conf-test] + "."
  4172. 846.67 s [opt-env-conf-test] + ]
  4173. 846.67 s [opt-env-conf-test] + ]
  4174. 846.67 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  4175. 846.67 s [opt-env-conf-test] + [ [ functionChunk "option",
  4176. 846.67 s [opt-env-conf-test] + " or ",
  4177. 846.67 s [opt-env-conf-test] + functionChunk "name",
  4178. 846.75 s [opt-env-conf-test] + " has no ",
  4179. 846.75 s [opt-env-conf-test] + functionChunk "metavar",
  4180. 846.75 s [opt-env-conf-test] + "."
  4181. 846.75 s [opt-env-conf-test] + ]
  4182. 846.75 s [opt-env-conf-test] + ]
  4183. 846.75 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  4184. 846.75 s [opt-env-conf-test] + [ [ functionChunk "switch",
  4185. 846.75 s [opt-env-conf-test] + " has no ",
  4186. 846.75 s [opt-env-conf-test] + functionChunk "long",
  4187. 846.75 s [opt-env-conf-test] + " or ",
  4188. 846.75 s [opt-env-conf-test] + functionChunk "short",
  4189. 846.75 s [opt-env-conf-test] + "."
  4190. 846.76 s [opt-env-conf-test] + ]
  4191. 846.76 s [opt-env-conf-test] + ]
  4192. 846.76 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  4193. 846.76 s [opt-env-conf-test] + [ [ functionChunk "long",
  4194. 846.76 s [opt-env-conf-test] + " or ",
  4195. 846.76 s [opt-env-conf-test] + functionChunk "short",
  4196. 846.76 s [opt-env-conf-test] + " has no ",
  4197. 846.76 s [opt-env-conf-test] + functionChunk "option",
  4198. 846.76 s [opt-env-conf-test] + " or ",
  4199. 846.76 s [opt-env-conf-test] + functionChunk "switch",
  4200. 846.76 s [opt-env-conf-test] + "."
  4201. 846.76 s [opt-env-conf-test] + ]
  4202. 846.76 s [opt-env-conf-test] + ]
  4203. 846.76 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  4204. 846.76 s [opt-env-conf-test] + [ [ functionChunk "env",
  4205. 846.76 s [opt-env-conf-test] + " or ",
  4206. 846.76 s [opt-env-conf-test] + functionChunk "name",
  4207. 846.76 s [opt-env-conf-test] + " has no ",
  4208. 846.76 s [opt-env-conf-test] + functionChunk "reader",
  4209. 846.76 s [opt-env-conf-test] + "."
  4210. 846.76 s [opt-env-conf-test] + ]
  4211. 846.76 s [opt-env-conf-test] + ]
  4212. 846.76 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  4213. 846.76 s [opt-env-conf-test] + [ [ functionChunk "env",
  4214. 846.76 s [opt-env-conf-test] + " or ",
  4215. 846.76 s [opt-env-conf-test] + functionChunk "name",
  4216. 846.76 s [opt-env-conf-test] + " has no ",
  4217. 846.76 s [opt-env-conf-test] + functionChunk "metavar",
  4218. 846.76 s [opt-env-conf-test] + "."
  4219. 846.76 s [opt-env-conf-test] + ]
  4220. 846.76 s [opt-env-conf-test] + ]
  4221. 846.76 s [opt-env-conf-test] + LintErrorNoCommands ->
  4222. 846.76 s [opt-env-conf-test] + [ [ functionChunk "commands",
  4223. 846.76 s [opt-env-conf-test] + " was called with an empty list."
  4224. 846.76 s [opt-env-conf-test] + ]
  4225. 846.76 s [opt-env-conf-test] + ]
  4226. 846.76 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  4227. 846.76 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  4228. 846.76 s [opt-env-conf-test] + " was called with an unknown command: ",
  4229. 846.76 s [opt-env-conf-test] + commandChunk c
  4230. 846.76 s [opt-env-conf-test] + ]
  4231. 846.76 s [opt-env-conf-test] + ]
  4232. 846.76 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  4233. 846.76 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4234. 846.76 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  4235. 846.76 s [opt-env-conf-test] + ]
  4236. 846.76 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  4237. 846.76 s [opt-env-conf-test] + [ [ functionChunk "conf",
  4238. 846.76 s [opt-env-conf-test] + " or ",
  4239. 846.76 s [opt-env-conf-test] + functionChunk "name",
  4240. 846.76 s [opt-env-conf-test] + " was called with no way to load configuration."
  4241. 846.76 s [opt-env-conf-test] + ],
  4242. 846.76 s [opt-env-conf-test] + [ "You can load configuration with ",
  4243. 846.76 s [opt-env-conf-test] + functionChunk "withConfig",
  4244. 846.76 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  4245. 846.76 s [opt-env-conf-test] + functionChunk "withoutConfig",
  4246. 846.77 s [opt-env-conf-test] + "."
  4247. 846.77 s [opt-env-conf-test] + ]
  4248. 846.77 s [opt-env-conf-test] + ]
  4249. 846.77 s [opt-env-conf-test] + LintErrorManyInfinite ->
  4250. 846.77 s [opt-env-conf-test] + [ [ functionChunk "many",
  4251. 846.77 s [opt-env-conf-test] + " or ",
  4252. 846.77 s [opt-env-conf-test] + functionChunk "some",
  4253. 846.77 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  4254. 846.77 s [opt-env-conf-test] + ],
  4255. 846.77 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  4256. 846.77 s [opt-env-conf-test] + ],
  4257. 846.77 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  4258. 846.77 s [opt-env-conf-test] ]
  4259. 846.77 s [opt-env-conf-test]
  4260. 846.77 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  4261. 846.77 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  4262. 846.77 s [opt-env-conf-test] renderLintError LintError {..} =
  4263. 846.77 s [opt-env-conf-test] concat
  4264. 846.77 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  4265. 846.77 s [opt-env-conf-test] - case lintErrorMessage of
  4266. 846.77 s [opt-env-conf-test] - LintErrorUndocumented ->
  4267. 846.77 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  4268. 846.77 s [opt-env-conf-test] - LintErrorEmptySetting ->
  4269. 846.77 s [opt-env-conf-test] - concat
  4270. 846.77 s [opt-env-conf-test] - [ [ [ "This ",
  4271. 846.77 s [opt-env-conf-test] - functionChunk "setting",
  4272. 846.77 s [opt-env-conf-test] - " parses nothing."
  4273. 846.77 s [opt-env-conf-test] - ]
  4274. 846.77 s [opt-env-conf-test] - ],
  4275. 846.77 s [opt-env-conf-test] - [ [ "Add an ",
  4276. 846.77 s [opt-env-conf-test] - functionChunk "argument",
  4277. 846.77 s [opt-env-conf-test] - ", ",
  4278. 846.77 s [opt-env-conf-test] - functionChunk "switch",
  4279. 846.77 s [opt-env-conf-test] - ", ",
  4280. 846.77 s [opt-env-conf-test] - functionChunk "option",
  4281. 846.77 s [opt-env-conf-test] - ", ",
  4282. 846.77 s [opt-env-conf-test] - functionChunk "env",
  4283. 846.77 s [opt-env-conf-test] - ", ",
  4284. 846.77 s [opt-env-conf-test] - functionChunk "conf",
  4285. 846.77 s [opt-env-conf-test] - ", or ",
  4286. 846.77 s [opt-env-conf-test] - functionChunk "value",
  4287. 846.77 s [opt-env-conf-test] - "."
  4288. 846.77 s [opt-env-conf-test] - ]
  4289. 846.77 s [opt-env-conf-test] - ]
  4290. 846.77 s [opt-env-conf-test] - ]
  4291. 846.77 s [opt-env-conf-test] - LintErrorDashInShort ->
  4292. 846.77 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  4293. 846.77 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  4294. 846.77 s [opt-env-conf-test] - ]
  4295. 846.77 s [opt-env-conf-test] - LintErrorDashInLong s ->
  4296. 846.77 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  4297. 846.77 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4298. 846.77 s [opt-env-conf-test] - [ "Try ",
  4299. 846.77 s [opt-env-conf-test] - functionChunk "long",
  4300. 846.77 s [opt-env-conf-test] - " ",
  4301. 846.77 s [opt-env-conf-test] - chunk $
  4302. 846.77 s [opt-env-conf-test] - T.pack $
  4303. 846.77 s [opt-env-conf-test] - show $
  4304. 846.77 s [opt-env-conf-test] - let go = \case
  4305. 846.77 s [opt-env-conf-test] - [] -> []
  4306. 846.77 s [opt-env-conf-test] - '-' : cs -> go cs
  4307. 846.77 s [opt-env-conf-test] - c : cs -> c : cs
  4308. 846.77 s [opt-env-conf-test] - in go $ NE.toList s,
  4309. 846.77 s [opt-env-conf-test] - " instead."
  4310. 846.77 s [opt-env-conf-test] - ]
  4311. 846.77 s [opt-env-conf-test] - ]
  4312. 846.77 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  4313. 846.77 s [opt-env-conf-test] - [ [ functionChunk "argument",
  4314. 846.77 s [opt-env-conf-test] - " has no ",
  4315. 846.77 s [opt-env-conf-test] - functionChunk "reader",
  4316. 846.77 s [opt-env-conf-test] - "."
  4317. 846.77 s [opt-env-conf-test] - ]
  4318. 846.77 s [opt-env-conf-test] - ]
  4319. 846.77 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  4320. 846.77 s [opt-env-conf-test] - [ [ functionChunk "argument",
  4321. 846.77 s [opt-env-conf-test] - " has no ",
  4322. 846.77 s [opt-env-conf-test] - functionChunk "metavar",
  4323. 846.77 s [opt-env-conf-test] - "."
  4324. 846.77 s [opt-env-conf-test] - ]
  4325. 846.77 s [opt-env-conf-test] - ]
  4326. 846.77 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  4327. 846.77 s [opt-env-conf-test] - [ [ functionChunk "option",
  4328. 846.77 s [opt-env-conf-test] - " or ",
  4329. 846.77 s [opt-env-conf-test] - functionChunk "name",
  4330. 846.77 s [opt-env-conf-test] - " has no ",
  4331. 846.77 s [opt-env-conf-test] - functionChunk "reader",
  4332. 846.77 s [opt-env-conf-test] - "."
  4333. 846.77 s [opt-env-conf-test] - ]
  4334. 846.77 s [opt-env-conf-test] - ]
  4335. 846.77 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  4336. 846.77 s [opt-env-conf-test] - [ [ functionChunk "option",
  4337. 846.78 s [opt-env-conf-test] - " has no ",
  4338. 846.78 s [opt-env-conf-test] - functionChunk "long",
  4339. 846.78 s [opt-env-conf-test] - " or ",
  4340. 846.78 s [opt-env-conf-test] - functionChunk "short",
  4341. 846.78 s [opt-env-conf-test] - "."
  4342. 846.78 s [opt-env-conf-test] - ]
  4343. 846.78 s [opt-env-conf-test] - ]
  4344. 846.78 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  4345. 846.78 s [opt-env-conf-test] - [ [ functionChunk "option",
  4346. 846.78 s [opt-env-conf-test] - " or ",
  4347. 846.78 s [opt-env-conf-test] - functionChunk "name",
  4348. 846.78 s [opt-env-conf-test] - " has no ",
  4349. 846.78 s [opt-env-conf-test] - functionChunk "metavar",
  4350. 846.78 s [opt-env-conf-test] - "."
  4351. 846.78 s [opt-env-conf-test] - ]
  4352. 846.78 s [opt-env-conf-test] - ]
  4353. 846.78 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  4354. 846.78 s [opt-env-conf-test] - [ [ functionChunk "switch",
  4355. 846.78 s [opt-env-conf-test] - " has no ",
  4356. 846.78 s [opt-env-conf-test] - functionChunk "long",
  4357. 846.78 s [opt-env-conf-test] - " or ",
  4358. 846.78 s [opt-env-conf-test] - functionChunk "short",
  4359. 846.78 s [opt-env-conf-test] - "."
  4360. 846.78 s [opt-env-conf-test] - ]
  4361. 846.78 s [opt-env-conf-test] - ]
  4362. 846.78 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  4363. 846.78 s [opt-env-conf-test] - [ [ functionChunk "long",
  4364. 846.78 s [opt-env-conf-test] - " or ",
  4365. 846.78 s [opt-env-conf-test] - functionChunk "short",
  4366. 846.78 s [opt-env-conf-test] - " has no ",
  4367. 846.78 s [opt-env-conf-test] - functionChunk "option",
  4368. 846.78 s [opt-env-conf-test] - " or ",
  4369. 846.78 s [opt-env-conf-test] - functionChunk "switch",
  4370. 846.78 s [opt-env-conf-test] - "."
  4371. 846.78 s [opt-env-conf-test] - ]
  4372. 846.78 s [opt-env-conf-test] - ]
  4373. 846.78 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  4374. 846.78 s [opt-env-conf-test] - [ [ functionChunk "env",
  4375. 846.78 s [opt-env-conf-test] - " or ",
  4376. 846.78 s [opt-env-conf-test] - functionChunk "name",
  4377. 846.78 s [opt-env-conf-test] - " has no ",
  4378. 846.78 s [opt-env-conf-test] - functionChunk "reader",
  4379. 846.78 s [opt-env-conf-test] - "."
  4380. 846.78 s [opt-env-conf-test] - ]
  4381. 846.78 s [opt-env-conf-test] - ]
  4382. 846.78 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  4383. 846.78 s [opt-env-conf-test] - [ [ functionChunk "env",
  4384. 846.78 s [opt-env-conf-test] - " or ",
  4385. 846.78 s [opt-env-conf-test] - functionChunk "name",
  4386. 846.78 s [opt-env-conf-test] - " has no ",
  4387. 846.78 s [opt-env-conf-test] - functionChunk "metavar",
  4388. 846.78 s [opt-env-conf-test] - "."
  4389. 846.78 s [opt-env-conf-test] - ]
  4390. 846.78 s [opt-env-conf-test] - ]
  4391. 846.78 s [opt-env-conf-test] - LintErrorNoCommands ->
  4392. 846.78 s [opt-env-conf-test] - [ [ functionChunk "commands",
  4393. 846.78 s [opt-env-conf-test] - " was called with an empty list."
  4394. 846.78 s [opt-env-conf-test] - ]
  4395. 846.78 s [opt-env-conf-test] - ]
  4396. 846.78 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  4397. 846.78 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  4398. 846.78 s [opt-env-conf-test] - " was called with an unknown command: ",
  4399. 846.78 s [opt-env-conf-test] - commandChunk c
  4400. 846.78 s [opt-env-conf-test] - ]
  4401. 846.78 s [opt-env-conf-test] - ]
  4402. 846.78 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  4403. 846.78 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4404. 846.78 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  4405. 846.78 s [opt-env-conf-test] - ]
  4406. 846.78 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  4407. 846.78 s [opt-env-conf-test] - [ [ functionChunk "conf",
  4408. 846.78 s [opt-env-conf-test] - " or ",
  4409. 846.78 s [opt-env-conf-test] - functionChunk "name",
  4410. 846.78 s [opt-env-conf-test] - " was called with no way to load configuration."
  4411. 846.78 s [opt-env-conf-test] - ],
  4412. 846.78 s [opt-env-conf-test] - [ "You can load configuration with ",
  4413. 846.78 s [opt-env-conf-test] - functionChunk "withConfig",
  4414. 846.78 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  4415. 846.78 s [opt-env-conf-test] - functionChunk "withoutConfig",
  4416. 846.78 s [opt-env-conf-test] - "."
  4417. 846.78 s [opt-env-conf-test] - ]
  4418. 846.78 s [opt-env-conf-test] - ]
  4419. 846.78 s [opt-env-conf-test] - LintErrorManyInfinite ->
  4420. 846.78 s [opt-env-conf-test] - [ [ functionChunk "many",
  4421. 846.78 s [opt-env-conf-test] - " or ",
  4422. 846.78 s [opt-env-conf-test] - functionChunk "some",
  4423. 846.78 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  4424. 846.78 s [opt-env-conf-test] - ],
  4425. 846.78 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  4426. 846.78 s [opt-env-conf-test] - ],
  4427. 846.78 s [opt-env-conf-test] + case lintErrorMessage of
  4428. 846.78 s [opt-env-conf-test] + LintErrorUndocumented ->
  4429. 846.78 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  4430. 846.78 s [opt-env-conf-test] + LintErrorEmptySetting ->
  4431. 846.78 s [opt-env-conf-test] + concat
  4432. 846.78 s [opt-env-conf-test] + [ [ [ "This ",
  4433. 846.78 s [opt-env-conf-test] + functionChunk "setting",
  4434. 846.78 s [opt-env-conf-test] + " parses nothing."
  4435. 846.78 s [opt-env-conf-test] + ]
  4436. 846.78 s [opt-env-conf-test] + ],
  4437. 846.78 s [opt-env-conf-test] + [ [ "Add an ",
  4438. 846.79 s [opt-env-conf-test] + functionChunk "argument",
  4439. 846.79 s [opt-env-conf-test] + ", ",
  4440. 846.79 s [opt-env-conf-test] + functionChunk "switch",
  4441. 846.79 s [opt-env-conf-test] + ", ",
  4442. 846.79 s [opt-env-conf-test] + functionChunk "option",
  4443. 846.79 s [opt-env-conf-test] + ", ",
  4444. 846.79 s [opt-env-conf-test] + functionChunk "env",
  4445. 846.79 s [opt-env-conf-test] + ", ",
  4446. 846.79 s [opt-env-conf-test] + functionChunk "conf",
  4447. 846.79 s [opt-env-conf-test] + ", or ",
  4448. 846.79 s [opt-env-conf-test] + functionChunk "value",
  4449. 846.79 s [opt-env-conf-test] + "."
  4450. 846.79 s [opt-env-conf-test] + ]
  4451. 846.79 s [opt-env-conf-test] + ]
  4452. 846.79 s [opt-env-conf-test] + ]
  4453. 846.79 s [opt-env-conf-test] + LintErrorDashInShort ->
  4454. 846.79 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  4455. 846.79 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  4456. 846.79 s [opt-env-conf-test] + ]
  4457. 846.79 s [opt-env-conf-test] + LintErrorDashInLong s ->
  4458. 846.79 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  4459. 846.79 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4460. 846.79 s [opt-env-conf-test] + [ "Try ",
  4461. 846.79 s [opt-env-conf-test] + functionChunk "long",
  4462. 846.79 s [opt-env-conf-test] + " ",
  4463. 846.79 s [opt-env-conf-test] + chunk $
  4464. 846.79 s [opt-env-conf-test] + T.pack $
  4465. 846.79 s [opt-env-conf-test] + show $
  4466. 846.79 s [opt-env-conf-test] + let go = \case
  4467. 846.79 s [opt-env-conf-test] + [] -> []
  4468. 846.79 s [opt-env-conf-test] + '-' : cs -> go cs
  4469. 846.79 s [opt-env-conf-test] + c : cs -> c : cs
  4470. 846.79 s [opt-env-conf-test] + in go $ NE.toList s,
  4471. 846.79 s [opt-env-conf-test] + " instead."
  4472. 846.79 s [opt-env-conf-test] + ]
  4473. 846.79 s [opt-env-conf-test] + ]
  4474. 846.79 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  4475. 846.79 s [opt-env-conf-test] + [ [ functionChunk "argument",
  4476. 846.79 s [opt-env-conf-test] + " has no ",
  4477. 846.79 s [opt-env-conf-test] + functionChunk "reader",
  4478. 846.79 s [opt-env-conf-test] + "."
  4479. 846.79 s [opt-env-conf-test] + ]
  4480. 846.79 s [opt-env-conf-test] + ]
  4481. 846.79 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  4482. 846.79 s [opt-env-conf-test] + [ [ functionChunk "argument",
  4483. 846.79 s [opt-env-conf-test] + " has no ",
  4484. 846.79 s [opt-env-conf-test] + functionChunk "metavar",
  4485. 846.79 s [opt-env-conf-test] + "."
  4486. 846.79 s [opt-env-conf-test] + ]
  4487. 846.79 s [opt-env-conf-test] + ]
  4488. 846.79 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  4489. 846.79 s [opt-env-conf-test] + [ [ functionChunk "option",
  4490. 846.79 s [opt-env-conf-test] + " or ",
  4491. 846.79 s [opt-env-conf-test] + functionChunk "name",
  4492. 846.79 s [opt-env-conf-test] + " has no ",
  4493. 846.79 s [opt-env-conf-test] + functionChunk "reader",
  4494. 846.79 s [opt-env-conf-test] + "."
  4495. 846.79 s [opt-env-conf-test] + ]
  4496. 846.79 s [opt-env-conf-test] + ]
  4497. 846.79 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  4498. 846.79 s [opt-env-conf-test] + [ [ functionChunk "option",
  4499. 846.79 s [opt-env-conf-test] + " has no ",
  4500. 846.79 s [opt-env-conf-test] + functionChunk "long",
  4501. 846.79 s [opt-env-conf-test] + " or ",
  4502. 846.79 s [opt-env-conf-test] + functionChunk "short",
  4503. 846.79 s [opt-env-conf-test] + "."
  4504. 846.79 s [opt-env-conf-test] + ]
  4505. 846.79 s [opt-env-conf-test] + ]
  4506. 846.79 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  4507. 846.79 s [opt-env-conf-test] + [ [ functionChunk "option",
  4508. 846.79 s [opt-env-conf-test] + " or ",
  4509. 846.79 s [opt-env-conf-test] + functionChunk "name",
  4510. 846.79 s [opt-env-conf-test] + " has no ",
  4511. 846.79 s [opt-env-conf-test] + functionChunk "metavar",
  4512. 846.79 s [opt-env-conf-test] + "."
  4513. 846.79 s [opt-env-conf-test] + ]
  4514. 846.79 s [opt-env-conf-test] + ]
  4515. 846.79 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  4516. 846.79 s [opt-env-conf-test] + [ [ functionChunk "switch",
  4517. 846.79 s [opt-env-conf-test] + " has no ",
  4518. 846.79 s [opt-env-conf-test] + functionChunk "long",
  4519. 846.79 s [opt-env-conf-test] + " or ",
  4520. 846.79 s [opt-env-conf-test] + functionChunk "short",
  4521. 846.79 s [opt-env-conf-test] + "."
  4522. 846.79 s [opt-env-conf-test] + ]
  4523. 846.79 s [opt-env-conf-test] + ]
  4524. 846.79 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  4525. 846.79 s [opt-env-conf-test] + [ [ functionChunk "long",
  4526. 846.79 s [opt-env-conf-test] + " or ",
  4527. 846.79 s [opt-env-conf-test] + functionChunk "short",
  4528. 846.79 s [opt-env-conf-test] + " has no ",
  4529. 846.79 s [opt-env-conf-test] + functionChunk "option",
  4530. 846.79 s [opt-env-conf-test] + " or ",
  4531. 846.79 s [opt-env-conf-test] + functionChunk "switch",
  4532. 846.79 s [opt-env-conf-test] + "."
  4533. 846.79 s [opt-env-conf-test] + ]
  4534. 846.79 s [opt-env-conf-test] + ]
  4535. 846.79 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  4536. 846.79 s [opt-env-conf-test] + [ [ functionChunk "env",
  4537. 846.79 s [opt-env-conf-test] + " or ",
  4538. 846.79 s [opt-env-conf-test] + functionChunk "name",
  4539. 846.79 s [opt-env-conf-test] + " has no ",
  4540. 846.79 s [opt-env-conf-test] + functionChunk "reader",
  4541. 846.79 s [opt-env-conf-test] + "."
  4542. 846.79 s [opt-env-conf-test] + ]
  4543. 846.79 s [opt-env-conf-test] + ]
  4544. 846.79 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  4545. 846.79 s [opt-env-conf-test] + [ [ functionChunk "env",
  4546. 846.79 s [opt-env-conf-test] + " or ",
  4547. 846.79 s [opt-env-conf-test] + functionChunk "name",
  4548. 846.79 s [opt-env-conf-test] + " has no ",
  4549. 846.79 s [opt-env-conf-test] + functionChunk "metavar",
  4550. 846.79 s [opt-env-conf-test] + "."
  4551. 846.79 s [opt-env-conf-test] + ]
  4552. 846.79 s [opt-env-conf-test] + ]
  4553. 846.79 s [opt-env-conf-test] + LintErrorNoCommands ->
  4554. 846.79 s [opt-env-conf-test] + [ [ functionChunk "commands",
  4555. 846.79 s [opt-env-conf-test] + " was called with an empty list."
  4556. 846.79 s [opt-env-conf-test] + ]
  4557. 846.79 s [opt-env-conf-test] + ]
  4558. 846.79 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  4559. 846.79 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  4560. 846.79 s [opt-env-conf-test] + " was called with an unknown command: ",
  4561. 846.79 s [opt-env-conf-test] + commandChunk c
  4562. 846.79 s [opt-env-conf-test] + ]
  4563. 846.79 s [opt-env-conf-test] + ]
  4564. 846.79 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  4565. 846.79 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4566. 846.79 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  4567. 846.79 s [opt-env-conf-test] + ]
  4568. 846.79 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  4569. 846.79 s [opt-env-conf-test] + [ [ functionChunk "conf",
  4570. 846.79 s [opt-env-conf-test] + " or ",
  4571. 846.79 s [opt-env-conf-test] + functionChunk "name",
  4572. 846.79 s [opt-env-conf-test] + " was called with no way to load configuration."
  4573. 846.79 s [opt-env-conf-test] + ],
  4574. 846.79 s [opt-env-conf-test] + [ "You can load configuration with ",
  4575. 846.79 s [opt-env-conf-test] + functionChunk "withConfig",
  4576. 846.79 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  4577. 846.79 s [opt-env-conf-test] + functionChunk "withoutConfig",
  4578. 846.79 s [opt-env-conf-test] + "."
  4579. 846.79 s [opt-env-conf-test] + ]
  4580. 846.79 s [opt-env-conf-test] + ]
  4581. 846.79 s [opt-env-conf-test] + LintErrorManyInfinite ->
  4582. 846.79 s [opt-env-conf-test] + [ [ functionChunk "many",
  4583. 846.79 s [opt-env-conf-test] + " or ",
  4584. 846.79 s [opt-env-conf-test] + functionChunk "some",
  4585. 846.79 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  4586. 846.79 s [opt-env-conf-test] + ],
  4587. 846.79 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  4588. 846.80 s [opt-env-conf-test] + ],
  4589. 846.80 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  4590. 846.80 s [opt-env-conf-test] ]
  4591. 846.80 s [opt-env-conf-test]
  4592. 846.80 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  4593. 846.80 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  4594. 846.80 s [opt-env-conf-test] renderLintError LintError {..} =
  4595. 846.80 s [opt-env-conf-test] concat
  4596. 846.80 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  4597. 846.80 s [opt-env-conf-test] - case lintErrorMessage of
  4598. 846.80 s [opt-env-conf-test] - LintErrorUndocumented ->
  4599. 846.80 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  4600. 846.80 s [opt-env-conf-test] - LintErrorEmptySetting ->
  4601. 846.80 s [opt-env-conf-test] - concat
  4602. 846.80 s [opt-env-conf-test] - [ [ [ "This ",
  4603. 846.80 s [opt-env-conf-test] - functionChunk "setting",
  4604. 846.80 s [opt-env-conf-test] - " parses nothing."
  4605. 846.80 s [opt-env-conf-test] - ]
  4606. 846.80 s [opt-env-conf-test] - ],
  4607. 846.80 s [opt-env-conf-test] - [ [ "Add an ",
  4608. 846.80 s [opt-env-conf-test] - functionChunk "argument",
  4609. 846.80 s [opt-env-conf-test] - ", ",
  4610. 846.80 s [opt-env-conf-test] - functionChunk "switch",
  4611. 846.80 s [opt-env-conf-test] - ", ",
  4612. 846.80 s [opt-env-conf-test] - functionChunk "option",
  4613. 846.80 s [opt-env-conf-test] - ", ",
  4614. 846.80 s [opt-env-conf-test] - functionChunk "env",
  4615. 846.80 s [opt-env-conf-test] - ", ",
  4616. 846.80 s [opt-env-conf-test] - functionChunk "conf",
  4617. 846.80 s [opt-env-conf-test] - ", or ",
  4618. 846.80 s [opt-env-conf-test] - functionChunk "value",
  4619. 846.80 s [opt-env-conf-test] - "."
  4620. 846.80 s [opt-env-conf-test] - ]
  4621. 846.80 s [opt-env-conf-test] - ]
  4622. 846.80 s [opt-env-conf-test] - ]
  4623. 846.80 s [opt-env-conf-test] - LintErrorDashInShort ->
  4624. 846.80 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  4625. 846.80 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  4626. 846.80 s [opt-env-conf-test] - ]
  4627. 846.80 s [opt-env-conf-test] - LintErrorDashInLong s ->
  4628. 846.80 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  4629. 846.80 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4630. 846.80 s [opt-env-conf-test] - [ "Try ",
  4631. 846.80 s [opt-env-conf-test] - functionChunk "long",
  4632. 846.80 s [opt-env-conf-test] - " ",
  4633. 846.80 s [opt-env-conf-test] - chunk $
  4634. 846.80 s [opt-env-conf-test] - T.pack $
  4635. 846.80 s [opt-env-conf-test] - show $
  4636. 846.80 s [opt-env-conf-test] - let go = \case
  4637. 846.80 s [opt-env-conf-test] - [] -> []
  4638. 846.80 s [opt-env-conf-test] - '-' : cs -> go cs
  4639. 846.80 s [opt-env-conf-test] - c : cs -> c : cs
  4640. 846.80 s [opt-env-conf-test] - in go $ NE.toList s,
  4641. 846.80 s [opt-env-conf-test] - " instead."
  4642. 846.80 s [opt-env-conf-test] - ]
  4643. 846.80 s [opt-env-conf-test] - ]
  4644. 846.80 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  4645. 846.80 s [opt-env-conf-test] - [ [ functionChunk "argument",
  4646. 846.80 s [opt-env-conf-test] - " has no ",
  4647. 846.80 s [opt-env-conf-test] - functionChunk "reader",
  4648. 846.80 s [opt-env-conf-test] - "."
  4649. 846.80 s [opt-env-conf-test] - ]
  4650. 846.80 s [opt-env-conf-test] - ]
  4651. 846.80 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  4652. 846.80 s [opt-env-conf-test] - [ [ functionChunk "argument",
  4653. 846.80 s [opt-env-conf-test] - " has no ",
  4654. 846.80 s [opt-env-conf-test] - functionChunk "metavar",
  4655. 846.80 s [opt-env-conf-test] - "."
  4656. 846.80 s [opt-env-conf-test] - ]
  4657. 846.80 s [opt-env-conf-test] - ]
  4658. 846.80 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  4659. 846.80 s [opt-env-conf-test] - [ [ functionChunk "option",
  4660. 846.80 s [opt-env-conf-test] - " or ",
  4661. 846.80 s [opt-env-conf-test] - functionChunk "name",
  4662. 846.80 s [opt-env-conf-test] - " has no ",
  4663. 846.80 s [opt-env-conf-test] - functionChunk "reader",
  4664. 846.80 s [opt-env-conf-test] - "."
  4665. 846.80 s [opt-env-conf-test] - ]
  4666. 846.80 s [opt-env-conf-test] - ]
  4667. 846.80 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  4668. 846.80 s [opt-env-conf-test] - [ [ functionChunk "option",
  4669. 846.80 s [opt-env-conf-test] - " has no ",
  4670. 846.80 s [opt-env-conf-test] - functionChunk "long",
  4671. 846.80 s [opt-env-conf-test] - " or ",
  4672. 846.80 s [opt-env-conf-test] - functionChunk "short",
  4673. 846.80 s [opt-env-conf-test] - "."
  4674. 846.80 s [opt-env-conf-test] - ]
  4675. 846.80 s [opt-env-conf-test] - ]
  4676. 846.80 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  4677. 846.80 s [opt-env-conf-test] - [ [ functionChunk "option",
  4678. 846.80 s [opt-env-conf-test] - " or ",
  4679. 846.80 s [opt-env-conf-test] - functionChunk "name",
  4680. 846.80 s [opt-env-conf-test] - " has no ",
  4681. 846.80 s [opt-env-conf-test] - functionChunk "metavar",
  4682. 846.80 s [opt-env-conf-test] - "."
  4683. 846.80 s [opt-env-conf-test] - ]
  4684. 846.80 s [opt-env-conf-test] - ]
  4685. 846.80 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  4686. 846.80 s [opt-env-conf-test] - [ [ functionChunk "switch",
  4687. 846.80 s [opt-env-conf-test] - " has no ",
  4688. 846.80 s [opt-env-conf-test] - functionChunk "long",
  4689. 846.80 s [opt-env-conf-test] - " or ",
  4690. 846.80 s [opt-env-conf-test] - functionChunk "short",
  4691. 846.83 s [opt-env-conf-test] - "."
  4692. 846.83 s [opt-env-conf-test] - ]
  4693. 846.83 s [opt-env-conf-test] - ]
  4694. 846.83 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  4695. 846.83 s [opt-env-conf-test] - [ [ functionChunk "long",
  4696. 846.83 s [opt-env-conf-test] - " or ",
  4697. 846.83 s [opt-env-conf-test] - functionChunk "short",
  4698. 846.83 s [opt-env-conf-test] - " has no ",
  4699. 846.83 s [opt-env-conf-test] - functionChunk "option",
  4700. 846.83 s [opt-env-conf-test] - " or ",
  4701. 846.83 s [opt-env-conf-test] - functionChunk "switch",
  4702. 846.83 s [opt-env-conf-test] - "."
  4703. 846.83 s [opt-env-conf-test] - ]
  4704. 846.83 s [opt-env-conf-test] - ]
  4705. 846.83 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  4706. 846.83 s [opt-env-conf-test] - [ [ functionChunk "env",
  4707. 846.83 s [opt-env-conf-test] - " or ",
  4708. 846.83 s [opt-env-conf-test] - functionChunk "name",
  4709. 846.83 s [opt-env-conf-test] - " has no ",
  4710. 846.83 s [opt-env-conf-test] - functionChunk "reader",
  4711. 846.83 s [opt-env-conf-test] - "."
  4712. 846.83 s [opt-env-conf-test] - ]
  4713. 846.83 s [opt-env-conf-test] - ]
  4714. 846.83 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  4715. 846.83 s [opt-env-conf-test] - [ [ functionChunk "env",
  4716. 846.83 s [opt-env-conf-test] - " or ",
  4717. 846.83 s [opt-env-conf-test] - functionChunk "name",
  4718. 846.83 s [opt-env-conf-test] - " has no ",
  4719. 846.83 s [opt-env-conf-test] - functionChunk "metavar",
  4720. 846.83 s [opt-env-conf-test] - "."
  4721. 846.83 s [opt-env-conf-test] - ]
  4722. 846.83 s [opt-env-conf-test] - ]
  4723. 846.83 s [opt-env-conf-test] - LintErrorNoCommands ->
  4724. 846.83 s [opt-env-conf-test] - [ [ functionChunk "commands",
  4725. 846.83 s [opt-env-conf-test] - " was called with an empty list."
  4726. 846.83 s [opt-env-conf-test] - ]
  4727. 846.83 s [opt-env-conf-test] - ]
  4728. 846.83 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  4729. 846.83 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  4730. 846.83 s [opt-env-conf-test] - " was called with an unknown command: ",
  4731. 846.83 s [opt-env-conf-test] - commandChunk c
  4732. 846.83 s [opt-env-conf-test] - ]
  4733. 846.83 s [opt-env-conf-test] - ]
  4734. 846.83 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  4735. 846.83 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4736. 846.83 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  4737. 846.83 s [opt-env-conf-test] - ]
  4738. 846.84 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  4739. 846.84 s [opt-env-conf-test] - [ [ functionChunk "conf",
  4740. 846.84 s [opt-env-conf-test] - " or ",
  4741. 846.84 s [opt-env-conf-test] - functionChunk "name",
  4742. 846.84 s [opt-env-conf-test] - " was called with no way to load configuration."
  4743. 846.84 s [opt-env-conf-test] - ],
  4744. 846.84 s [opt-env-conf-test] - [ "You can load configuration with ",
  4745. 846.84 s [opt-env-conf-test] - functionChunk "withConfig",
  4746. 846.84 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  4747. 846.84 s [opt-env-conf-test] - functionChunk "withoutConfig",
  4748. 846.84 s [opt-env-conf-test] - "."
  4749. 846.84 s [opt-env-conf-test] - ]
  4750. 846.84 s [opt-env-conf-test] - ]
  4751. 846.84 s [opt-env-conf-test] - LintErrorManyInfinite ->
  4752. 846.84 s [opt-env-conf-test] - [ [ functionChunk "many",
  4753. 846.84 s [opt-env-conf-test] - " or ",
  4754. 846.84 s [opt-env-conf-test] - functionChunk "some",
  4755. 846.84 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  4756. 846.84 s [opt-env-conf-test] - ],
  4757. 846.84 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  4758. 846.84 s [opt-env-conf-test] - ],
  4759. 846.84 s [opt-env-conf-test] + case lintErrorMessage of
  4760. 846.84 s [opt-env-conf-test] + LintErrorUndocumented ->
  4761. 846.84 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  4762. 846.84 s [opt-env-conf-test] + LintErrorEmptySetting ->
  4763. 846.84 s [opt-env-conf-test] + concat
  4764. 846.84 s [opt-env-conf-test] + [ [ [ "This ",
  4765. 846.84 s [opt-env-conf-test] + functionChunk "setting",
  4766. 846.84 s [opt-env-conf-test] + " parses nothing."
  4767. 846.84 s [opt-env-conf-test] + ]
  4768. 846.84 s [opt-env-conf-test] + ],
  4769. 846.84 s [opt-env-conf-test] + [ [ "Add an ",
  4770. 846.84 s [opt-env-conf-test] + functionChunk "argument",
  4771. 846.84 s [opt-env-conf-test] + ", ",
  4772. 846.84 s [opt-env-conf-test] + functionChunk "switch",
  4773. 846.84 s [opt-env-conf-test] + ", ",
  4774. 846.84 s [opt-env-conf-test] + functionChunk "option",
  4775. 846.84 s [opt-env-conf-test] + ", ",
  4776. 846.84 s [opt-env-conf-test] + functionChunk "env",
  4777. 846.84 s [opt-env-conf-test] + ", ",
  4778. 846.84 s [opt-env-conf-test] + functionChunk "conf",
  4779. 846.84 s [opt-env-conf-test] + ", or ",
  4780. 846.84 s [opt-env-conf-test] + functionChunk "value",
  4781. 846.84 s [opt-env-conf-test] + "."
  4782. 846.84 s [opt-env-conf-test] + ]
  4783. 846.84 s [opt-env-conf-test] + ]
  4784. 846.84 s [opt-env-conf-test] + ]
  4785. 846.84 s [opt-env-conf-test] + LintErrorDashInShort ->
  4786. 846.84 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  4787. 846.84 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  4788. 846.84 s [opt-env-conf-test] + ]
  4789. 846.84 s [opt-env-conf-test] + LintErrorDashInLong s ->
  4790. 846.84 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  4791. 846.84 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4792. 846.84 s [opt-env-conf-test] + [ "Try ",
  4793. 846.84 s [opt-env-conf-test] + functionChunk "long",
  4794. 846.84 s [opt-env-conf-test] + " ",
  4795. 846.84 s [opt-env-conf-test] + chunk $
  4796. 846.85 s [opt-env-conf-test] + T.pack $
  4797. 846.85 s [opt-env-conf-test] + show $
  4798. 846.85 s [opt-env-conf-test] + let go = \case
  4799. 846.85 s [opt-env-conf-test] + [] -> []
  4800. 846.85 s [opt-env-conf-test] + '-' : cs -> go cs
  4801. 846.85 s [opt-env-conf-test] + c : cs -> c : cs
  4802. 846.85 s [opt-env-conf-test] + in go $ NE.toList s,
  4803. 846.85 s [opt-env-conf-test] + " instead."
  4804. 846.85 s [opt-env-conf-test] + ]
  4805. 846.85 s [opt-env-conf-test] + ]
  4806. 846.85 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  4807. 846.85 s [opt-env-conf-test] + [ [ functionChunk "argument",
  4808. 846.85 s [opt-env-conf-test] + " has no ",
  4809. 846.85 s [opt-env-conf-test] + functionChunk "reader",
  4810. 846.85 s [opt-env-conf-test] + "."
  4811. 846.85 s [opt-env-conf-test] + ]
  4812. 846.85 s [opt-env-conf-test] + ]
  4813. 846.85 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  4814. 846.85 s [opt-env-conf-test] + [ [ functionChunk "argument",
  4815. 846.85 s [opt-env-conf-test] + " has no ",
  4816. 846.85 s [opt-env-conf-test] + functionChunk "metavar",
  4817. 846.85 s [opt-env-conf-test] + "."
  4818. 846.85 s [opt-env-conf-test] + ]
  4819. 846.85 s [opt-env-conf-test] + ]
  4820. 846.85 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  4821. 846.85 s [opt-env-conf-test] + [ [ functionChunk "option",
  4822. 846.85 s [opt-env-conf-test] + " or ",
  4823. 846.85 s [opt-env-conf-test] + functionChunk "name",
  4824. 846.85 s [opt-env-conf-test] + " has no ",
  4825. 846.85 s [opt-env-conf-test] + functionChunk "reader",
  4826. 846.85 s [opt-env-conf-test] + "."
  4827. 846.85 s [opt-env-conf-test] + ]
  4828. 846.85 s [opt-env-conf-test] + ]
  4829. 846.85 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  4830. 846.85 s [opt-env-conf-test] + [ [ functionChunk "option",
  4831. 846.85 s [opt-env-conf-test] + " has no ",
  4832. 846.85 s [opt-env-conf-test] + functionChunk "long",
  4833. 846.85 s [opt-env-conf-test] + " or ",
  4834. 846.85 s [opt-env-conf-test] + functionChunk "short",
  4835. 846.85 s [opt-env-conf-test] + "."
  4836. 846.85 s [opt-env-conf-test] + ]
  4837. 846.85 s [opt-env-conf-test] + ]
  4838. 846.85 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  4839. 846.85 s [opt-env-conf-test] + [ [ functionChunk "option",
  4840. 846.85 s [opt-env-conf-test] + " or ",
  4841. 846.85 s [opt-env-conf-test] + functionChunk "name",
  4842. 846.85 s [opt-env-conf-test] + " has no ",
  4843. 846.85 s [opt-env-conf-test] + functionChunk "metavar",
  4844. 846.85 s [opt-env-conf-test] + "."
  4845. 846.85 s [opt-env-conf-test] + ]
  4846. 846.85 s [opt-env-conf-test] + ]
  4847. 846.85 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  4848. 846.85 s [opt-env-conf-test] + [ [ functionChunk "switch",
  4849. 846.85 s [opt-env-conf-test] + " has no ",
  4850. 846.85 s [opt-env-conf-test] + functionChunk "long",
  4851. 846.85 s [opt-env-conf-test] + " or ",
  4852. 846.85 s [opt-env-conf-test] + functionChunk "short",
  4853. 846.85 s [opt-env-conf-test] + "."
  4854. 846.85 s [opt-env-conf-test] + ]
  4855. 846.85 s [opt-env-conf-test] + ]
  4856. 846.85 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  4857. 846.85 s [opt-env-conf-test] + [ [ functionChunk "long",
  4858. 846.85 s [opt-env-conf-test] + " or ",
  4859. 846.85 s [opt-env-conf-test] + functionChunk "short",
  4860. 846.85 s [opt-env-conf-test] + " has no ",
  4861. 846.85 s [opt-env-conf-test] + functionChunk "option",
  4862. 846.85 s [opt-env-conf-test] + " or ",
  4863. 846.85 s [opt-env-conf-test] + functionChunk "switch",
  4864. 846.86 s [opt-env-conf-test] + "."
  4865. 846.86 s [opt-env-conf-test] + ]
  4866. 846.86 s [opt-env-conf-test] + ]
  4867. 846.86 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  4868. 846.86 s [opt-env-conf-test] + [ [ functionChunk "env",
  4869. 846.86 s [opt-env-conf-test] + " or ",
  4870. 846.86 s [opt-env-conf-test] + functionChunk "name",
  4871. 846.86 s [opt-env-conf-test] + " has no ",
  4872. 846.86 s [opt-env-conf-test] + functionChunk "reader",
  4873. 846.86 s [opt-env-conf-test] + "."
  4874. 846.86 s [opt-env-conf-test] + ]
  4875. 846.86 s [opt-env-conf-test] + ]
  4876. 846.86 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  4877. 846.86 s [opt-env-conf-test] + [ [ functionChunk "env",
  4878. 846.86 s [opt-env-conf-test] + " or ",
  4879. 846.86 s [opt-env-conf-test] + functionChunk "name",
  4880. 846.86 s [opt-env-conf-test] + " has no ",
  4881. 846.86 s [opt-env-conf-test] + functionChunk "metavar",
  4882. 846.86 s [opt-env-conf-test] + "."
  4883. 846.86 s [opt-env-conf-test] + ]
  4884. 846.86 s [opt-env-conf-test] + ]
  4885. 846.86 s [opt-env-conf-test] + LintErrorNoCommands ->
  4886. 846.86 s [opt-env-conf-test] + [ [ functionChunk "commands",
  4887. 846.86 s [opt-env-conf-test] + " was called with an empty list."
  4888. 846.86 s [opt-env-conf-test] + ]
  4889. 846.86 s [opt-env-conf-test] + ]
  4890. 846.86 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  4891. 846.86 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  4892. 846.86 s [opt-env-conf-test] + " was called with an unknown command: ",
  4893. 846.86 s [opt-env-conf-test] + commandChunk c
  4894. 846.86 s [opt-env-conf-test] + ]
  4895. 846.86 s [opt-env-conf-test] + ]
  4896. 846.86 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  4897. 846.86 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4898. 846.86 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  4899. 846.86 s [opt-env-conf-test] + ]
  4900. 846.86 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  4901. 846.86 s [opt-env-conf-test] + [ [ functionChunk "conf",
  4902. 846.86 s [opt-env-conf-test] + " or ",
  4903. 846.86 s [opt-env-conf-test] + functionChunk "name",
  4904. 846.86 s [opt-env-conf-test] + " was called with no way to load configuration."
  4905. 846.86 s [opt-env-conf-test] + ],
  4906. 846.86 s [opt-env-conf-test] + [ "You can load configuration with ",
  4907. 846.86 s [opt-env-conf-test] + functionChunk "withConfig",
  4908. 846.86 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  4909. 846.86 s [opt-env-conf-test] + functionChunk "withoutConfig",
  4910. 846.86 s [opt-env-conf-test] + "."
  4911. 846.86 s [opt-env-conf-test] + ]
  4912. 846.86 s [opt-env-conf-test] + ]
  4913. 846.86 s [opt-env-conf-test] + LintErrorManyInfinite ->
  4914. 846.86 s [opt-env-conf-test] + [ [ functionChunk "many",
  4915. 846.86 s [opt-env-conf-test] + " or ",
  4916. 846.86 s [opt-env-conf-test] + functionChunk "some",
  4917. 846.86 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  4918. 846.86 s [opt-env-conf-test] + ],
  4919. 846.86 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  4920. 846.86 s [opt-env-conf-test] + ],
  4921. 846.86 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  4922. 846.86 s [opt-env-conf-test] ]
  4923. 846.86 s [opt-env-conf-test]
  4924. 846.86 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  4925. 846.86 s [opt-env-conf-test] @@ -65,171 +65,7 @@
  4926. 846.86 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  4927. 846.86 s [opt-env-conf-test] renderLintError LintError {..} =
  4928. 846.86 s [opt-env-conf-test] concat
  4929. 846.86 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  4930. 846.86 s [opt-env-conf-test] - case lintErrorMessage of
  4931. 846.86 s [opt-env-conf-test] - LintErrorUndocumented ->
  4932. 846.86 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  4933. 846.86 s [opt-env-conf-test] - LintErrorEmptySetting ->
  4934. 846.86 s [opt-env-conf-test] - concat
  4935. 846.87 s [opt-env-conf-test] - [ [ [ "This ",
  4936. 846.87 s [opt-env-conf-test] - functionChunk "setting",
  4937. 846.87 s [opt-env-conf-test] - " parses nothing."
  4938. 846.87 s [opt-env-conf-test] - ]
  4939. 846.87 s [opt-env-conf-test] - ],
  4940. 846.87 s [opt-env-conf-test] - [ [ "Add an ",
  4941. 846.87 s [opt-env-conf-test] - functionChunk "argument",
  4942. 846.87 s [opt-env-conf-test] - ", ",
  4943. 847.30 s [opt-env-conf-test] - functionChunk "switch",
  4944. 847.31 s [opt-env-conf-test] - ", ",
  4945. 847.31 s [opt-env-conf-test] - functionChunk "option",
  4946. 847.31 s [opt-env-conf-test] - ", ",
  4947. 847.31 s [opt-env-conf-test] - functionChunk "env",
  4948. 847.31 s [opt-env-conf-test] - ", ",
  4949. 847.31 s [opt-env-conf-test] - functionChunk "conf",
  4950. 847.31 s [opt-env-conf-test] - ", or ",
  4951. 847.31 s [opt-env-conf-test] - functionChunk "value",
  4952. 847.31 s [opt-env-conf-test] - "."
  4953. 847.31 s [opt-env-conf-test] - ]
  4954. 847.31 s [opt-env-conf-test] - ]
  4955. 847.31 s [opt-env-conf-test] - ]
  4956. 847.31 s [opt-env-conf-test] - LintErrorDashInShort ->
  4957. 847.31 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  4958. 847.31 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  4959. 847.31 s [opt-env-conf-test] - ]
  4960. 847.31 s [opt-env-conf-test] - LintErrorDashInLong s ->
  4961. 847.31 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  4962. 847.31 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4963. 847.31 s [opt-env-conf-test] - [ "Try ",
  4964. 847.31 s [opt-env-conf-test] - functionChunk "long",
  4965. 847.31 s [opt-env-conf-test] - " ",
  4966. 847.31 s [opt-env-conf-test] - chunk $
  4967. 847.31 s [opt-env-conf-test] - T.pack $
  4968. 847.31 s [opt-env-conf-test] - show $
  4969. 847.31 s [opt-env-conf-test] - let go = \case
  4970. 847.31 s [opt-env-conf-test] - [] -> []
  4971. 847.31 s [opt-env-conf-test] - '-' : cs -> go cs
  4972. 847.31 s [opt-env-conf-test] - c : cs -> c : cs
  4973. 847.31 s [opt-env-conf-test] - in go $ NE.toList s,
  4974. 847.31 s [opt-env-conf-test] - " instead."
  4975. 847.31 s [opt-env-conf-test] - ]
  4976. 847.31 s [opt-env-conf-test] - ]
  4977. 847.31 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  4978. 847.31 s [opt-env-conf-test] - [ [ functionChunk "argument",
  4979. 847.31 s [opt-env-conf-test] - " has no ",
  4980. 847.31 s [opt-env-conf-test] - functionChunk "reader",
  4981. 847.31 s [opt-env-conf-test] - "."
  4982. 847.31 s [opt-env-conf-test] - ]
  4983. 847.31 s [opt-env-conf-test] - ]
  4984. 847.31 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  4985. 847.32 s [opt-env-conf-test] - [ [ functionChunk "argument",
  4986. 847.32 s [opt-env-conf-test] - " has no ",
  4987. 847.32 s [opt-env-conf-test] - functionChunk "metavar",
  4988. 847.32 s [opt-env-conf-test] - "."
  4989. 847.32 s [opt-env-conf-test] - ]
  4990. 847.32 s [opt-env-conf-test] - ]
  4991. 847.32 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  4992. 847.32 s [opt-env-conf-test] - [ [ functionChunk "option",
  4993. 847.32 s [opt-env-conf-test] - " or ",
  4994. 847.32 s [opt-env-conf-test] - functionChunk "name",
  4995. 847.32 s [opt-env-conf-test] - " has no ",
  4996. 847.32 s [opt-env-conf-test] - functionChunk "reader",
  4997. 847.32 s [opt-env-conf-test] - "."
  4998. 847.32 s [opt-env-conf-test] - ]
  4999. 847.32 s [opt-env-conf-test] - ]
  5000. 847.32 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  5001. 847.32 s [opt-env-conf-test] - [ [ functionChunk "option",
  5002. 847.32 s [opt-env-conf-test] - " has no ",
  5003. 847.32 s [opt-env-conf-test] - functionChunk "long",
  5004. 847.32 s [opt-env-conf-test] - " or ",
  5005. 847.32 s [opt-env-conf-test] - functionChunk "short",
  5006. 847.32 s [opt-env-conf-test] - "."
  5007. 847.32 s [opt-env-conf-test] - ]
  5008. 847.32 s [opt-env-conf-test] - ]
  5009. 847.32 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  5010. 847.32 s [opt-env-conf-test] - [ [ functionChunk "option",
  5011. 847.32 s [opt-env-conf-test] - " or ",
  5012. 847.32 s [opt-env-conf-test] - functionChunk "name",
  5013. 847.32 s [opt-env-conf-test] - " has no ",
  5014. 847.32 s [opt-env-conf-test] - functionChunk "metavar",
  5015. 847.32 s [opt-env-conf-test] - "."
  5016. 847.32 s [opt-env-conf-test] - ]
  5017. 847.32 s [opt-env-conf-test] - ]
  5018. 847.32 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  5019. 847.32 s [opt-env-conf-test] - [ [ functionChunk "switch",
  5020. 847.32 s [opt-env-conf-test] - " has no ",
  5021. 847.32 s [opt-env-conf-test] - functionChunk "long",
  5022. 847.32 s [opt-env-conf-test] - " or ",
  5023. 847.32 s [opt-env-conf-test] - functionChunk "short",
  5024. 847.32 s [opt-env-conf-test] - "."
  5025. 847.32 s [opt-env-conf-test] - ]
  5026. 847.32 s [opt-env-conf-test] - ]
  5027. 847.32 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  5028. 847.32 s [opt-env-conf-test] - [ [ functionChunk "long",
  5029. 847.32 s [opt-env-conf-test] - " or ",
  5030. 847.32 s [opt-env-conf-test] - functionChunk "short",
  5031. 847.32 s [opt-env-conf-test] - " has no ",
  5032. 847.32 s [opt-env-conf-test] - functionChunk "option",
  5033. 847.32 s [opt-env-conf-test] - " or ",
  5034. 847.32 s [opt-env-conf-test] - functionChunk "switch",
  5035. 847.32 s [opt-env-conf-test] - "."
  5036. 847.32 s [opt-env-conf-test] - ]
  5037. 847.32 s [opt-env-conf-test] - ]
  5038. 847.32 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  5039. 847.32 s [opt-env-conf-test] - [ [ functionChunk "env",
  5040. 847.32 s [opt-env-conf-test] - " or ",
  5041. 847.32 s [opt-env-conf-test] - functionChunk "name",
  5042. 847.32 s [opt-env-conf-test] - " has no ",
  5043. 847.32 s [opt-env-conf-test] - functionChunk "reader",
  5044. 847.32 s [opt-env-conf-test] - "."
  5045. 847.32 s [opt-env-conf-test] - ]
  5046. 847.32 s [opt-env-conf-test] - ]
  5047. 847.32 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  5048. 847.32 s [opt-env-conf-test] - [ [ functionChunk "env",
  5049. 847.32 s [opt-env-conf-test] - " or ",
  5050. 847.32 s [opt-env-conf-test] - functionChunk "name",
  5051. 847.32 s [opt-env-conf-test] - " has no ",
  5052. 847.32 s [opt-env-conf-test] - functionChunk "metavar",
  5053. 847.32 s [opt-env-conf-test] - "."
  5054. 847.33 s [opt-env-conf-test] - ]
  5055. 847.33 s [opt-env-conf-test] - ]
  5056. 847.33 s [opt-env-conf-test] - LintErrorNoCommands ->
  5057. 847.33 s [opt-env-conf-test] - [ [ functionChunk "commands",
  5058. 847.33 s [opt-env-conf-test] - " was called with an empty list."
  5059. 847.33 s [opt-env-conf-test] - ]
  5060. 847.33 s [opt-env-conf-test] - ]
  5061. 847.33 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  5062. 847.33 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  5063. 847.33 s [opt-env-conf-test] - " was called with an unknown command: ",
  5064. 847.33 s [opt-env-conf-test] - commandChunk c
  5065. 847.33 s [opt-env-conf-test] - ]
  5066. 847.33 s [opt-env-conf-test] - ]
  5067. 847.33 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  5068. 847.33 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5069. 847.33 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  5070. 847.33 s [opt-env-conf-test] - ]
  5071. 847.33 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  5072. 847.33 s [opt-env-conf-test] - [ [ functionChunk "conf",
  5073. 847.33 s [opt-env-conf-test] - " or ",
  5074. 847.33 s [opt-env-conf-test] - functionChunk "name",
  5075. 847.33 s [opt-env-conf-test] - " was called with no way to load configuration."
  5076. 847.33 s [opt-env-conf-test] - ],
  5077. 847.33 s [opt-env-conf-test] - [ "You can load configuration with ",
  5078. 847.33 s [opt-env-conf-test] - functionChunk "withConfig",
  5079. 847.33 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  5080. 847.33 s [opt-env-conf-test] - functionChunk "withoutConfig",
  5081. 847.33 s [opt-env-conf-test] - "."
  5082. 847.33 s [opt-env-conf-test] - ]
  5083. 847.33 s [opt-env-conf-test] - ]
  5084. 847.33 s [opt-env-conf-test] - LintErrorManyInfinite ->
  5085. 847.33 s [opt-env-conf-test] - [ [ functionChunk "many",
  5086. 847.33 s [opt-env-conf-test] - " or ",
  5087. 847.33 s [opt-env-conf-test] - functionChunk "some",
  5088. 847.33 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  5089. 847.33 s [opt-env-conf-test] - ],
  5090. 847.33 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  5091. 847.33 s [opt-env-conf-test] - ],
  5092. 847.33 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  5093. 847.33 s [opt-env-conf-test] - ]
  5094. 847.33 s [opt-env-conf-test] + []
  5095. 847.33 s [opt-env-conf-test]
  5096. 847.33 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  5097. 847.33 s [opt-env-conf-test] lintParser =
  5098. 847.33 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  5099. 847.33 s [opt-env-conf-test] @@ -65,171 +65,166 @@
  5100. 847.33 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  5101. 847.33 s [opt-env-conf-test] renderLintError LintError {..} =
  5102. 847.33 s [opt-env-conf-test] concat
  5103. 847.33 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  5104. 847.33 s [opt-env-conf-test] - case lintErrorMessage of
  5105. 847.33 s [opt-env-conf-test] - LintErrorUndocumented ->
  5106. 847.33 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  5107. 847.33 s [opt-env-conf-test] - LintErrorEmptySetting ->
  5108. 847.33 s [opt-env-conf-test] - concat
  5109. 847.33 s [opt-env-conf-test] - [ [ [ "This ",
  5110. 847.33 s [opt-env-conf-test] - functionChunk "setting",
  5111. 847.33 s [opt-env-conf-test] - " parses nothing."
  5112. 847.33 s [opt-env-conf-test] - ]
  5113. 847.33 s [opt-env-conf-test] - ],
  5114. 847.33 s [opt-env-conf-test] - [ [ "Add an ",
  5115. 847.33 s [opt-env-conf-test] - functionChunk "argument",
  5116. 847.33 s [opt-env-conf-test] - ", ",
  5117. 847.33 s [opt-env-conf-test] - functionChunk "switch",
  5118. 847.33 s [opt-env-conf-test] - ", ",
  5119. 847.33 s [opt-env-conf-test] - functionChunk "option",
  5120. 847.33 s [opt-env-conf-test] - ", ",
  5121. 847.34 s [opt-env-conf-test] - functionChunk "env",
  5122. 847.34 s [opt-env-conf-test] - ", ",
  5123. 847.34 s [opt-env-conf-test] - functionChunk "conf",
  5124. 847.34 s [opt-env-conf-test] - ", or ",
  5125. 847.34 s [opt-env-conf-test] - functionChunk "value",
  5126. 847.34 s [opt-env-conf-test] - "."
  5127. 847.34 s [opt-env-conf-test] - ]
  5128. 847.34 s [opt-env-conf-test] - ]
  5129. 847.34 s [opt-env-conf-test] - ]
  5130. 847.34 s [opt-env-conf-test] - LintErrorDashInShort ->
  5131. 847.34 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  5132. 847.34 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  5133. 847.34 s [opt-env-conf-test] - ]
  5134. 847.34 s [opt-env-conf-test] - LintErrorDashInLong s ->
  5135. 847.34 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  5136. 847.34 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5137. 847.34 s [opt-env-conf-test] - [ "Try ",
  5138. 847.34 s [opt-env-conf-test] - functionChunk "long",
  5139. 847.34 s [opt-env-conf-test] - " ",
  5140. 847.34 s [opt-env-conf-test] - chunk $
  5141. 847.34 s [opt-env-conf-test] - T.pack $
  5142. 847.34 s [opt-env-conf-test] - show $
  5143. 847.34 s [opt-env-conf-test] - let go = \case
  5144. 847.34 s [opt-env-conf-test] - [] -> []
  5145. 847.34 s [opt-env-conf-test] - '-' : cs -> go cs
  5146. 847.34 s [opt-env-conf-test] - c : cs -> c : cs
  5147. 847.34 s [opt-env-conf-test] - in go $ NE.toList s,
  5148. 847.34 s [opt-env-conf-test] - " instead."
  5149. 847.34 s [opt-env-conf-test] - ]
  5150. 847.34 s [opt-env-conf-test] - ]
  5151. 847.34 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  5152. 847.34 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5153. 847.34 s [opt-env-conf-test] - " has no ",
  5154. 847.34 s [opt-env-conf-test] - functionChunk "reader",
  5155. 847.34 s [opt-env-conf-test] - "."
  5156. 847.34 s [opt-env-conf-test] - ]
  5157. 847.34 s [opt-env-conf-test] - ]
  5158. 847.34 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  5159. 847.34 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5160. 847.34 s [opt-env-conf-test] - " has no ",
  5161. 847.34 s [opt-env-conf-test] - functionChunk "metavar",
  5162. 847.34 s [opt-env-conf-test] - "."
  5163. 847.34 s [opt-env-conf-test] - ]
  5164. 847.34 s [opt-env-conf-test] - ]
  5165. 847.34 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  5166. 847.34 s [opt-env-conf-test] - [ [ functionChunk "option",
  5167. 847.34 s [opt-env-conf-test] - " or ",
  5168. 847.34 s [opt-env-conf-test] - functionChunk "name",
  5169. 847.34 s [opt-env-conf-test] - " has no ",
  5170. 847.34 s [opt-env-conf-test] - functionChunk "reader",
  5171. 847.34 s [opt-env-conf-test] - "."
  5172. 847.34 s [opt-env-conf-test] - ]
  5173. 847.34 s [opt-env-conf-test] - ]
  5174. 847.34 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  5175. 847.34 s [opt-env-conf-test] - [ [ functionChunk "option",
  5176. 847.34 s [opt-env-conf-test] - " has no ",
  5177. 847.34 s [opt-env-conf-test] - functionChunk "long",
  5178. 847.34 s [opt-env-conf-test] - " or ",
  5179. 847.34 s [opt-env-conf-test] - functionChunk "short",
  5180. 847.34 s [opt-env-conf-test] - "."
  5181. 847.34 s [opt-env-conf-test] - ]
  5182. 847.34 s [opt-env-conf-test] - ]
  5183. 847.34 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  5184. 847.34 s [opt-env-conf-test] - [ [ functionChunk "option",
  5185. 847.34 s [opt-env-conf-test] - " or ",
  5186. 847.34 s [opt-env-conf-test] - functionChunk "name",
  5187. 847.34 s [opt-env-conf-test] - " has no ",
  5188. 847.34 s [opt-env-conf-test] - functionChunk "metavar",
  5189. 847.34 s [opt-env-conf-test] - "."
  5190. 847.34 s [opt-env-conf-test] - ]
  5191. 847.34 s [opt-env-conf-test] - ]
  5192. 847.34 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  5193. 847.34 s [opt-env-conf-test] - [ [ functionChunk "switch",
  5194. 847.34 s [opt-env-conf-test] - " has no ",
  5195. 847.34 s [opt-env-conf-test] - functionChunk "long",
  5196. 847.34 s [opt-env-conf-test] - " or ",
  5197. 847.34 s [opt-env-conf-test] - functionChunk "short",
  5198. 847.34 s [opt-env-conf-test] - "."
  5199. 847.34 s [opt-env-conf-test] - ]
  5200. 847.34 s [opt-env-conf-test] - ]
  5201. 847.34 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  5202. 847.34 s [opt-env-conf-test] - [ [ functionChunk "long",
  5203. 847.34 s [opt-env-conf-test] - " or ",
  5204. 847.36 s [opt-env-conf-test] - functionChunk "short",
  5205. 847.36 s [opt-env-conf-test] - " has no ",
  5206. 847.36 s [opt-env-conf-test] - functionChunk "option",
  5207. 847.36 s [opt-env-conf-test] - " or ",
  5208. 847.36 s [opt-env-conf-test] - functionChunk "switch",
  5209. 847.36 s [opt-env-conf-test] - "."
  5210. 847.36 s [opt-env-conf-test] - ]
  5211. 847.36 s [opt-env-conf-test] - ]
  5212. 847.36 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  5213. 847.36 s [opt-env-conf-test] - [ [ functionChunk "env",
  5214. 847.36 s [opt-env-conf-test] - " or ",
  5215. 847.36 s [opt-env-conf-test] - functionChunk "name",
  5216. 847.36 s [opt-env-conf-test] - " has no ",
  5217. 847.36 s [opt-env-conf-test] - functionChunk "reader",
  5218. 847.36 s [opt-env-conf-test] - "."
  5219. 847.36 s [opt-env-conf-test] - ]
  5220. 847.36 s [opt-env-conf-test] - ]
  5221. 847.36 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  5222. 847.36 s [opt-env-conf-test] - [ [ functionChunk "env",
  5223. 847.36 s [opt-env-conf-test] - " or ",
  5224. 847.36 s [opt-env-conf-test] - functionChunk "name",
  5225. 847.36 s [opt-env-conf-test] - " has no ",
  5226. 847.36 s [opt-env-conf-test] - functionChunk "metavar",
  5227. 847.36 s [opt-env-conf-test] - "."
  5228. 847.36 s [opt-env-conf-test] - ]
  5229. 847.36 s [opt-env-conf-test] - ]
  5230. 847.36 s [opt-env-conf-test] - LintErrorNoCommands ->
  5231. 847.36 s [opt-env-conf-test] - [ [ functionChunk "commands",
  5232. 847.36 s [opt-env-conf-test] - " was called with an empty list."
  5233. 847.36 s [opt-env-conf-test] - ]
  5234. 847.36 s [opt-env-conf-test] - ]
  5235. 847.36 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  5236. 847.36 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  5237. 847.36 s [opt-env-conf-test] - " was called with an unknown command: ",
  5238. 847.36 s [opt-env-conf-test] - commandChunk c
  5239. 847.36 s [opt-env-conf-test] - ]
  5240. 847.36 s [opt-env-conf-test] - ]
  5241. 847.36 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  5242. 847.37 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5243. 847.37 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  5244. 847.37 s [opt-env-conf-test] - ]
  5245. 847.37 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  5246. 847.37 s [opt-env-conf-test] - [ [ functionChunk "conf",
  5247. 847.37 s [opt-env-conf-test] - " or ",
  5248. 847.37 s [opt-env-conf-test] - functionChunk "name",
  5249. 847.37 s [opt-env-conf-test] - " was called with no way to load configuration."
  5250. 847.37 s [opt-env-conf-test] - ],
  5251. 847.37 s [opt-env-conf-test] - [ "You can load configuration with ",
  5252. 847.37 s [opt-env-conf-test] - functionChunk "withConfig",
  5253. 847.37 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  5254. 847.37 s [opt-env-conf-test] - functionChunk "withoutConfig",
  5255. 847.37 s [opt-env-conf-test] - "."
  5256. 847.37 s [opt-env-conf-test] - ]
  5257. 847.37 s [opt-env-conf-test] - ]
  5258. 847.37 s [opt-env-conf-test] - LintErrorManyInfinite ->
  5259. 847.37 s [opt-env-conf-test] - [ [ functionChunk "many",
  5260. 847.37 s [opt-env-conf-test] - " or ",
  5261. 847.37 s [opt-env-conf-test] - functionChunk "some",
  5262. 847.37 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  5263. 847.37 s [opt-env-conf-test] - ],
  5264. 847.37 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  5265. 847.37 s [opt-env-conf-test] - ],
  5266. 847.37 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  5267. 847.37 s [opt-env-conf-test] - ]
  5268. 847.37 s [opt-env-conf-test] + [ [[fore red "Invalid Setting:"]],
  5269. 847.37 s [opt-env-conf-test] + case lintErrorMessage of
  5270. 847.37 s [opt-env-conf-test] + LintErrorUndocumented ->
  5271. 847.37 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  5272. 847.37 s [opt-env-conf-test] + LintErrorEmptySetting ->
  5273. 847.37 s [opt-env-conf-test] + concat
  5274. 847.37 s [opt-env-conf-test] + [ [ [ "This ",
  5275. 847.37 s [opt-env-conf-test] + functionChunk "setting",
  5276. 847.37 s [opt-env-conf-test] + " parses nothing."
  5277. 847.37 s [opt-env-conf-test] + ]
  5278. 847.37 s [opt-env-conf-test] + ],
  5279. 847.37 s [opt-env-conf-test] + [ [ "Add an ",
  5280. 847.37 s [opt-env-conf-test] + functionChunk "argument",
  5281. 847.37 s [opt-env-conf-test] + ", ",
  5282. 847.37 s [opt-env-conf-test] + functionChunk "switch",
  5283. 847.37 s [opt-env-conf-test] + ", ",
  5284. 847.37 s [opt-env-conf-test] + functionChunk "option",
  5285. 847.37 s [opt-env-conf-test] + ", ",
  5286. 847.37 s [opt-env-conf-test] + functionChunk "env",
  5287. 847.37 s [opt-env-conf-test] + ", ",
  5288. 847.37 s [opt-env-conf-test] + functionChunk "conf",
  5289. 847.37 s [opt-env-conf-test] + ", or ",
  5290. 847.37 s [opt-env-conf-test] + functionChunk "value",
  5291. 847.37 s [opt-env-conf-test] + "."
  5292. 847.37 s [opt-env-conf-test] + ]
  5293. 847.38 s [opt-env-conf-test] + ]
  5294. 847.38 s [opt-env-conf-test] + ]
  5295. 847.38 s [opt-env-conf-test] + LintErrorDashInShort ->
  5296. 847.38 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  5297. 847.38 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  5298. 847.38 s [opt-env-conf-test] + ]
  5299. 847.38 s [opt-env-conf-test] + LintErrorDashInLong s ->
  5300. 847.38 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  5301. 847.38 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5302. 847.38 s [opt-env-conf-test] + [ "Try ",
  5303. 847.38 s [opt-env-conf-test] + functionChunk "long",
  5304. 847.38 s [opt-env-conf-test] + " ",
  5305. 847.38 s [opt-env-conf-test] + chunk $
  5306. 847.38 s [opt-env-conf-test] + T.pack $
  5307. 847.38 s [opt-env-conf-test] + show $
  5308. 847.38 s [opt-env-conf-test] + let go = \case
  5309. 847.38 s [opt-env-conf-test] + [] -> []
  5310. 847.38 s [opt-env-conf-test] + '-' : cs -> go cs
  5311. 847.38 s [opt-env-conf-test] + c : cs -> c : cs
  5312. 847.38 s [opt-env-conf-test] + in go $ NE.toList s,
  5313. 847.38 s [opt-env-conf-test] + " instead."
  5314. 847.38 s [opt-env-conf-test] + ]
  5315. 847.38 s [opt-env-conf-test] + ]
  5316. 847.38 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  5317. 847.38 s [opt-env-conf-test] + [ [ functionChunk "argument",
  5318. 847.38 s [opt-env-conf-test] + " has no ",
  5319. 847.38 s [opt-env-conf-test] + functionChunk "reader",
  5320. 847.38 s [opt-env-conf-test] + "."
  5321. 847.38 s [opt-env-conf-test] + ]
  5322. 847.38 s [opt-env-conf-test] + ]
  5323. 847.38 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  5324. 847.38 s [opt-env-conf-test] + [ [ functionChunk "argument",
  5325. 847.38 s [opt-env-conf-test] + " has no ",
  5326. 847.38 s [opt-env-conf-test] + functionChunk "metavar",
  5327. 847.38 s [opt-env-conf-test] + "."
  5328. 847.38 s [opt-env-conf-test] + ]
  5329. 847.38 s [opt-env-conf-test] + ]
  5330. 847.38 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  5331. 847.38 s [opt-env-conf-test] + [ [ functionChunk "option",
  5332. 847.38 s [opt-env-conf-test] + " or ",
  5333. 847.38 s [opt-env-conf-test] + functionChunk "name",
  5334. 847.38 s [opt-env-conf-test] + " has no ",
  5335. 847.38 s [opt-env-conf-test] + functionChunk "reader",
  5336. 847.38 s [opt-env-conf-test] + "."
  5337. 847.38 s [opt-env-conf-test] + ]
  5338. 847.38 s [opt-env-conf-test] + ]
  5339. 847.38 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  5340. 847.38 s [opt-env-conf-test] + [ [ functionChunk "option",
  5341. 847.38 s [opt-env-conf-test] + " has no ",
  5342. 847.38 s [opt-env-conf-test] + functionChunk "long",
  5343. 847.38 s [opt-env-conf-test] + " or ",
  5344. 847.38 s [opt-env-conf-test] + functionChunk "short",
  5345. 847.38 s [opt-env-conf-test] + "."
  5346. 847.38 s [opt-env-conf-test] + ]
  5347. 847.38 s [opt-env-conf-test] + ]
  5348. 847.38 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  5349. 847.38 s [opt-env-conf-test] + [ [ functionChunk "option",
  5350. 847.39 s [opt-env-conf-test] + " or ",
  5351. 847.39 s [opt-env-conf-test] + functionChunk "name",
  5352. 847.39 s [opt-env-conf-test] + " has no ",
  5353. 847.39 s [opt-env-conf-test] + functionChunk "metavar",
  5354. 847.39 s [opt-env-conf-test] + "."
  5355. 847.39 s [opt-env-conf-test] + ]
  5356. 847.39 s [opt-env-conf-test] + ]
  5357. 847.39 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  5358. 847.39 s [opt-env-conf-test] + [ [ functionChunk "switch",
  5359. 847.39 s [opt-env-conf-test] + " has no ",
  5360. 847.39 s [opt-env-conf-test] + functionChunk "long",
  5361. 847.39 s [opt-env-conf-test] + " or ",
  5362. 847.39 s [opt-env-conf-test] + functionChunk "short",
  5363. 847.39 s [opt-env-conf-test] + "."
  5364. 847.39 s [opt-env-conf-test] + ]
  5365. 847.39 s [opt-env-conf-test] + ]
  5366. 847.39 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  5367. 847.39 s [opt-env-conf-test] + [ [ functionChunk "long",
  5368. 847.39 s [opt-env-conf-test] + " or ",
  5369. 847.39 s [opt-env-conf-test] + functionChunk "short",
  5370. 847.39 s [opt-env-conf-test] + " has no ",
  5371. 847.39 s [opt-env-conf-test] + functionChunk "option",
  5372. 847.39 s [opt-env-conf-test] + " or ",
  5373. 847.39 s [opt-env-conf-test] + functionChunk "switch",
  5374. 847.39 s [opt-env-conf-test] + "."
  5375. 847.39 s [opt-env-conf-test] + ]
  5376. 847.39 s [opt-env-conf-test] + ]
  5377. 847.39 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  5378. 847.39 s [opt-env-conf-test] + [ [ functionChunk "env",
  5379. 847.39 s [opt-env-conf-test] + " or ",
  5380. 847.39 s [opt-env-conf-test] + functionChunk "name",
  5381. 847.39 s [opt-env-conf-test] + " has no ",
  5382. 847.39 s [opt-env-conf-test] + functionChunk "reader",
  5383. 847.39 s [opt-env-conf-test] + "."
  5384. 847.39 s [opt-env-conf-test] + ]
  5385. 847.39 s [opt-env-conf-test] + ]
  5386. 847.39 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  5387. 847.39 s [opt-env-conf-test] + [ [ functionChunk "env",
  5388. 847.39 s [opt-env-conf-test] + " or ",
  5389. 847.39 s [opt-env-conf-test] + functionChunk "name",
  5390. 847.39 s [opt-env-conf-test] + " has no ",
  5391. 847.39 s [opt-env-conf-test] + functionChunk "metavar",
  5392. 847.39 s [opt-env-conf-test] + "."
  5393. 847.39 s [opt-env-conf-test] + ]
  5394. 847.39 s [opt-env-conf-test] + ]
  5395. 847.39 s [opt-env-conf-test] + LintErrorNoCommands ->
  5396. 847.39 s [opt-env-conf-test] + [ [ functionChunk "commands",
  5397. 847.39 s [opt-env-conf-test] + " was called with an empty list."
  5398. 847.39 s [opt-env-conf-test] + ]
  5399. 847.39 s [opt-env-conf-test] + ]
  5400. 847.39 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  5401. 847.39 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  5402. 847.39 s [opt-env-conf-test] + " was called with an unknown command: ",
  5403. 847.39 s [opt-env-conf-test] + commandChunk c
  5404. 847.39 s [opt-env-conf-test] + ]
  5405. 847.39 s [opt-env-conf-test] + ]
  5406. 847.39 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  5407. 847.39 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5408. 847.39 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  5409. 847.39 s [opt-env-conf-test] + ]
  5410. 847.39 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  5411. 847.39 s [opt-env-conf-test] + [ [ functionChunk "conf",
  5412. 847.39 s [opt-env-conf-test] + " or ",
  5413. 847.39 s [opt-env-conf-test] + functionChunk "name",
  5414. 847.40 s [opt-env-conf-test] + " was called with no way to load configuration."
  5415. 847.40 s [opt-env-conf-test] + ],
  5416. 847.40 s [opt-env-conf-test] + [ "You can load configuration with ",
  5417. 847.40 s [opt-env-conf-test] + functionChunk "withConfig",
  5418. 847.40 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  5419. 847.40 s [opt-env-conf-test] + functionChunk "withoutConfig",
  5420. 847.40 s [opt-env-conf-test] + "."
  5421. 847.40 s [opt-env-conf-test] + ]
  5422. 847.40 s [opt-env-conf-test] + ]
  5423. 847.40 s [opt-env-conf-test] + LintErrorManyInfinite ->
  5424. 847.40 s [opt-env-conf-test] + [ [ functionChunk "many",
  5425. 847.40 s [opt-env-conf-test] + " or ",
  5426. 847.40 s [opt-env-conf-test] + functionChunk "some"
  5427. 847.40 s [opt-env-conf-test] +]
  5428. 847.40 s [opt-env-conf-test]
  5429. 847.40 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  5430. 847.40 s [opt-env-conf-test] lintParser =
  5431. 847.40 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
  5432. 847.40 s [opt-env-conf-test] @@ -227,10 +227,7 @@
  5433. 847.40 s [opt-env-conf-test] internalParser p =
  5434. 847.40 s [opt-env-conf-test] choice
  5435. 847.40 s [opt-env-conf-test] [ setting
  5436. 847.40 s [opt-env-conf-test] - [ switch ShowVersion,
  5437. 847.40 s [opt-env-conf-test] - long "version",
  5438. 847.40 s [opt-env-conf-test] - hidden
  5439. 847.40 s [opt-env-conf-test] - ],
  5440. 847.40 s [opt-env-conf-test] + [],
  5441. 847.40 s [opt-env-conf-test] setting
  5442. 847.40 s [opt-env-conf-test] [ switch RenderMan,
  5443. 847.40 s [opt-env-conf-test] long "render-man-page",
  5444. 847.40 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
  5445. 847.40 s [opt-env-conf-test] @@ -227,10 +227,10 @@
  5446. 847.40 s [opt-env-conf-test] internalParser p =
  5447. 847.40 s [opt-env-conf-test] choice
  5448. 847.40 s [opt-env-conf-test] [ setting
  5449. 847.40 s [opt-env-conf-test] - [ switch ShowVersion,
  5450. 847.40 s [opt-env-conf-test] - long "version",
  5451. 847.40 s [opt-env-conf-test] - hidden
  5452. 847.40 s [opt-env-conf-test] - ],
  5453. 847.40 s [opt-env-conf-test] + [ switch ShowVersion,
  5454. 847.40 s [opt-env-conf-test] + long "version",
  5455. 847.40 s [opt-env-conf-test] + hidden
  5456. 847.40 s [opt-env-conf-test] + ],
  5457. 847.40 s [opt-env-conf-test] setting
  5458. 847.40 s [opt-env-conf-test] [ switch RenderMan,
  5459. 847.40 s [opt-env-conf-test] long "render-man-page",
  5460. 847.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  5461. 847.40 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  5462. 847.40 s [opt-env-conf-test] renderLintError LintError {..} =
  5463. 847.40 s [opt-env-conf-test] concat
  5464. 847.40 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  5465. 847.40 s [opt-env-conf-test] - case lintErrorMessage of
  5466. 847.40 s [opt-env-conf-test] - LintErrorUndocumented ->
  5467. 847.40 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  5468. 847.40 s [opt-env-conf-test] - LintErrorEmptySetting ->
  5469. 847.40 s [opt-env-conf-test] - concat
  5470. 847.40 s [opt-env-conf-test] - [ [ [ "This ",
  5471. 847.40 s [opt-env-conf-test] - functionChunk "setting",
  5472. 847.40 s [opt-env-conf-test] - " parses nothing."
  5473. 847.40 s [opt-env-conf-test] - ]
  5474. 847.40 s [opt-env-conf-test] - ],
  5475. 847.40 s [opt-env-conf-test] - [ [ "Add an ",
  5476. 847.40 s [opt-env-conf-test] - functionChunk "argument",
  5477. 847.40 s [opt-env-conf-test] - ", ",
  5478. 847.40 s [opt-env-conf-test] - functionChunk "switch",
  5479. 847.40 s [opt-env-conf-test] - ", ",
  5480. 847.40 s [opt-env-conf-test] - functionChunk "option",
  5481. 847.41 s [opt-env-conf-test] - ", ",
  5482. 847.41 s [opt-env-conf-test] - functionChunk "env",
  5483. 847.41 s [opt-env-conf-test] - ", ",
  5484. 847.41 s [opt-env-conf-test] - functionChunk "conf",
  5485. 847.41 s [opt-env-conf-test] - ", or ",
  5486. 847.41 s [opt-env-conf-test] - functionChunk "value",
  5487. 847.41 s [opt-env-conf-test] - "."
  5488. 847.41 s [opt-env-conf-test] - ]
  5489. 847.41 s [opt-env-conf-test] - ]
  5490. 847.41 s [opt-env-conf-test] - ]
  5491. 847.41 s [opt-env-conf-test] - LintErrorDashInShort ->
  5492. 847.41 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  5493. 847.41 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  5494. 847.41 s [opt-env-conf-test] - ]
  5495. 847.41 s [opt-env-conf-test] - LintErrorDashInLong s ->
  5496. 847.41 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  5497. 847.41 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5498. 847.41 s [opt-env-conf-test] - [ "Try ",
  5499. 847.41 s [opt-env-conf-test] - functionChunk "long",
  5500. 847.41 s [opt-env-conf-test] - " ",
  5501. 847.41 s [opt-env-conf-test] - chunk $
  5502. 847.41 s [opt-env-conf-test] - T.pack $
  5503. 847.41 s [opt-env-conf-test] - show $
  5504. 847.41 s [opt-env-conf-test] - let go = \case
  5505. 847.41 s [opt-env-conf-test] - [] -> []
  5506. 847.41 s [opt-env-conf-test] - '-' : cs -> go cs
  5507. 847.41 s [opt-env-conf-test] - c : cs -> c : cs
  5508. 847.41 s [opt-env-conf-test] - in go $ NE.toList s,
  5509. 847.41 s [opt-env-conf-test] - " instead."
  5510. 847.41 s [opt-env-conf-test] - ]
  5511. 847.41 s [opt-env-conf-test] - ]
  5512. 847.41 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  5513. 847.41 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5514. 847.41 s [opt-env-conf-test] - " has no ",
  5515. 847.41 s [opt-env-conf-test] - functionChunk "reader",
  5516. 847.41 s [opt-env-conf-test] - "."
  5517. 847.41 s [opt-env-conf-test] - ]
  5518. 847.41 s [opt-env-conf-test] - ]
  5519. 847.41 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  5520. 847.41 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5521. 847.41 s [opt-env-conf-test] - " has no ",
  5522. 847.41 s [opt-env-conf-test] - functionChunk "metavar",
  5523. 847.41 s [opt-env-conf-test] - "."
  5524. 847.41 s [opt-env-conf-test] - ]
  5525. 847.41 s [opt-env-conf-test] - ]
  5526. 847.41 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  5527. 847.41 s [opt-env-conf-test] - [ [ functionChunk "option",
  5528. 847.41 s [opt-env-conf-test] - " or ",
  5529. 847.41 s [opt-env-conf-test] - functionChunk "name",
  5530. 847.41 s [opt-env-conf-test] - " has no ",
  5531. 847.41 s [opt-env-conf-test] - functionChunk "reader",
  5532. 847.41 s [opt-env-conf-test] - "."
  5533. 847.41 s [opt-env-conf-test] - ]
  5534. 847.41 s [opt-env-conf-test] - ]
  5535. 847.41 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  5536. 847.41 s [opt-env-conf-test] - [ [ functionChunk "option",
  5537. 847.41 s [opt-env-conf-test] - " has no ",
  5538. 847.41 s [opt-env-conf-test] - functionChunk "long",
  5539. 847.41 s [opt-env-conf-test] - " or ",
  5540. 847.41 s [opt-env-conf-test] - functionChunk "short",
  5541. 847.41 s [opt-env-conf-test] - "."
  5542. 847.41 s [opt-env-conf-test] - ]
  5543. 847.41 s [opt-env-conf-test] - ]
  5544. 847.41 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  5545. 847.41 s [opt-env-conf-test] - [ [ functionChunk "option",
  5546. 847.41 s [opt-env-conf-test] - " or ",
  5547. 847.41 s [opt-env-conf-test] - functionChunk "name",
  5548. 847.41 s [opt-env-conf-test] - " has no ",
  5549. 847.41 s [opt-env-conf-test] - functionChunk "metavar",
  5550. 847.41 s [opt-env-conf-test] - "."
  5551. 847.41 s [opt-env-conf-test] - ]
  5552. 847.41 s [opt-env-conf-test] - ]
  5553. 847.41 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  5554. 847.41 s [opt-env-conf-test] - [ [ functionChunk "switch",
  5555. 847.41 s [opt-env-conf-test] - " has no ",
  5556. 847.42 s [opt-env-conf-test] - functionChunk "long",
  5557. 847.42 s [opt-env-conf-test] - " or ",
  5558. 847.42 s [opt-env-conf-test] - functionChunk "short",
  5559. 847.42 s [opt-env-conf-test] - "."
  5560. 847.42 s [opt-env-conf-test] - ]
  5561. 847.42 s [opt-env-conf-test] - ]
  5562. 847.42 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  5563. 847.42 s [opt-env-conf-test] - [ [ functionChunk "long",
  5564. 847.42 s [opt-env-conf-test] - " or ",
  5565. 847.42 s [opt-env-conf-test] - functionChunk "short",
  5566. 847.42 s [opt-env-conf-test] - " has no ",
  5567. 847.42 s [opt-env-conf-test] - functionChunk "option",
  5568. 847.42 s [opt-env-conf-test] - " or ",
  5569. 847.42 s [opt-env-conf-test] - functionChunk "switch",
  5570. 847.42 s [opt-env-conf-test] - "."
  5571. 847.42 s [opt-env-conf-test] - ]
  5572. 847.42 s [opt-env-conf-test] - ]
  5573. 847.42 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  5574. 847.42 s [opt-env-conf-test] - [ [ functionChunk "env",
  5575. 847.42 s [opt-env-conf-test] - " or ",
  5576. 847.42 s [opt-env-conf-test] - functionChunk "name",
  5577. 847.42 s [opt-env-conf-test] - " has no ",
  5578. 847.42 s [opt-env-conf-test] - functionChunk "reader",
  5579. 847.42 s [opt-env-conf-test] - "."
  5580. 847.42 s [opt-env-conf-test] - ]
  5581. 847.42 s [opt-env-conf-test] - ]
  5582. 847.42 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  5583. 847.42 s [opt-env-conf-test] - [ [ functionChunk "env",
  5584. 847.42 s [opt-env-conf-test] - " or ",
  5585. 847.42 s [opt-env-conf-test] - functionChunk "name",
  5586. 847.42 s [opt-env-conf-test] - " has no ",
  5587. 847.42 s [opt-env-conf-test] - functionChunk "metavar",
  5588. 847.42 s [opt-env-conf-test] - "."
  5589. 847.42 s [opt-env-conf-test] - ]
  5590. 847.42 s [opt-env-conf-test] - ]
  5591. 847.42 s [opt-env-conf-test] - LintErrorNoCommands ->
  5592. 847.42 s [opt-env-conf-test] - [ [ functionChunk "commands",
  5593. 847.42 s [opt-env-conf-test] - " was called with an empty list."
  5594. 847.42 s [opt-env-conf-test] - ]
  5595. 847.42 s [opt-env-conf-test] - ]
  5596. 847.42 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  5597. 847.42 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  5598. 847.42 s [opt-env-conf-test] - " was called with an unknown command: ",
  5599. 847.42 s [opt-env-conf-test] - commandChunk c
  5600. 847.42 s [opt-env-conf-test] - ]
  5601. 847.42 s [opt-env-conf-test] - ]
  5602. 847.42 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  5603. 847.42 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5604. 847.42 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  5605. 847.42 s [opt-env-conf-test] - ]
  5606. 847.42 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  5607. 847.42 s [opt-env-conf-test] - [ [ functionChunk "conf",
  5608. 847.42 s [opt-env-conf-test] - " or ",
  5609. 847.42 s [opt-env-conf-test] - functionChunk "name",
  5610. 847.42 s [opt-env-conf-test] - " was called with no way to load configuration."
  5611. 847.42 s [opt-env-conf-test] - ],
  5612. 847.42 s [opt-env-conf-test] - [ "You can load configuration with ",
  5613. 847.42 s [opt-env-conf-test] - functionChunk "withConfig",
  5614. 847.42 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  5615. 847.42 s [opt-env-conf-test] - functionChunk "withoutConfig",
  5616. 847.42 s [opt-env-conf-test] - "."
  5617. 847.42 s [opt-env-conf-test] - ]
  5618. 847.42 s [opt-env-conf-test] - ]
  5619. 847.42 s [opt-env-conf-test] - LintErrorManyInfinite ->
  5620. 847.42 s [opt-env-conf-test] - [ [ functionChunk "many",
  5621. 847.42 s [opt-env-conf-test] - " or ",
  5622. 847.42 s [opt-env-conf-test] - functionChunk "some",
  5623. 847.42 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  5624. 847.42 s [opt-env-conf-test] - ],
  5625. 847.42 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  5626. 847.42 s [opt-env-conf-test] - ],
  5627. 847.42 s [opt-env-conf-test] + case lintErrorMessage of
  5628. 847.42 s [opt-env-conf-test] + LintErrorUndocumented ->
  5629. 847.42 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  5630. 847.42 s [opt-env-conf-test] + LintErrorEmptySetting ->
  5631. 847.42 s [opt-env-conf-test] + concat
  5632. 847.42 s [opt-env-conf-test] + [ [ [ "This ",
  5633. 847.42 s [opt-env-conf-test] + functionChunk "setting",
  5634. 847.42 s [opt-env-conf-test] + " parses nothing."
  5635. 847.42 s [opt-env-conf-test] + ]
  5636. 847.42 s [opt-env-conf-test] + ],
  5637. 847.42 s [opt-env-conf-test] + [ [ "Add an ",
  5638. 847.42 s [opt-env-conf-test] + functionChunk "argument",
  5639. 847.42 s [opt-env-conf-test] + ", ",
  5640. 847.42 s [opt-env-conf-test] + functionChunk "switch",
  5641. 847.42 s [opt-env-conf-test] + ", ",
  5642. 847.42 s [opt-env-conf-test] + functionChunk "option",
  5643. 847.42 s [opt-env-conf-test] + ", ",
  5644. 847.42 s [opt-env-conf-test] + functionChunk "env",
  5645. 847.42 s [opt-env-conf-test] + ", ",
  5646. 847.42 s [opt-env-conf-test] + functionChunk "conf",
  5647. 847.42 s [opt-env-conf-test] + ", or ",
  5648. 847.42 s [opt-env-conf-test] + functionChunk "value",
  5649. 847.42 s [opt-env-conf-test] + "."
  5650. 847.42 s [opt-env-conf-test] + ]
  5651. 847.42 s [opt-env-conf-test] + ]
  5652. 847.42 s [opt-env-conf-test] + ]
  5653. 847.42 s [opt-env-conf-test] + LintErrorDashInShort ->
  5654. 847.42 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  5655. 847.42 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  5656. 847.42 s [opt-env-conf-test] + ]
  5657. 847.42 s [opt-env-conf-test] + LintErrorDashInLong s ->
  5658. 847.42 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  5659. 847.43 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5660. 847.43 s [opt-env-conf-test] + [ "Try ",
  5661. 847.43 s [opt-env-conf-test] + functionChunk "long",
  5662. 847.43 s [opt-env-conf-test] + " ",
  5663. 847.43 s [opt-env-conf-test] + chunk $
  5664. 847.43 s [opt-env-conf-test] + T.pack $
  5665. 847.43 s [opt-env-conf-test] + show $
  5666. 847.43 s [opt-env-conf-test] + let go = \case
  5667. 847.43 s [opt-env-conf-test] + [] -> []
  5668. 847.43 s [opt-env-conf-test] + '-' : cs -> go cs
  5669. 847.43 s [opt-env-conf-test] + c : cs -> c : cs
  5670. 847.43 s [opt-env-conf-test] + in go $ NE.toList s,
  5671. 847.43 s [opt-env-conf-test] + " instead."
  5672. 847.43 s [opt-env-conf-test] + ]
  5673. 847.43 s [opt-env-conf-test] + ]
  5674. 847.43 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  5675. 847.43 s [opt-env-conf-test] + [ [ functionChunk "argument",
  5676. 847.43 s [opt-env-conf-test] + " has no ",
  5677. 847.43 s [opt-env-conf-test] + functionChunk "reader",
  5678. 847.43 s [opt-env-conf-test] + "."
  5679. 847.43 s [opt-env-conf-test] + ]
  5680. 847.43 s [opt-env-conf-test] + ]
  5681. 847.43 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  5682. 847.43 s [opt-env-conf-test] + [ [ functionChunk "argument",
  5683. 847.43 s [opt-env-conf-test] + " has no ",
  5684. 847.43 s [opt-env-conf-test] + functionChunk "metavar",
  5685. 847.43 s [opt-env-conf-test] + "."
  5686. 847.43 s [opt-env-conf-test] + ]
  5687. 847.43 s [opt-env-conf-test] + ]
  5688. 847.43 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  5689. 847.43 s [opt-env-conf-test] + [ [ functionChunk "option",
  5690. 847.43 s [opt-env-conf-test] + " or ",
  5691. 847.43 s [opt-env-conf-test] + functionChunk "name",
  5692. 847.43 s [opt-env-conf-test] + " has no ",
  5693. 847.43 s [opt-env-conf-test] + functionChunk "reader",
  5694. 847.43 s [opt-env-conf-test] + "."
  5695. 847.43 s [opt-env-conf-test] + ]
  5696. 847.43 s [opt-env-conf-test] + ]
  5697. 847.43 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  5698. 847.43 s [opt-env-conf-test] + [ [ functionChunk "option",
  5699. 847.43 s [opt-env-conf-test] + " has no ",
  5700. 847.43 s [opt-env-conf-test] + functionChunk "long",
  5701. 847.43 s [opt-env-conf-test] + " or ",
  5702. 847.43 s [opt-env-conf-test] + functionChunk "short",
  5703. 847.43 s [opt-env-conf-test] + "."
  5704. 847.43 s [opt-env-conf-test] + ]
  5705. 847.43 s [opt-env-conf-test] + ]
  5706. 847.43 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  5707. 847.43 s [opt-env-conf-test] + [ [ functionChunk "option",
  5708. 847.43 s [opt-env-conf-test] + " or ",
  5709. 847.43 s [opt-env-conf-test] + functionChunk "name",
  5710. 847.43 s [opt-env-conf-test] + " has no ",
  5711. 847.43 s [opt-env-conf-test] + functionChunk "metavar",
  5712. 847.43 s [opt-env-conf-test] + "."
  5713. 847.43 s [opt-env-conf-test] + ]
  5714. 847.43 s [opt-env-conf-test] + ]
  5715. 847.43 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  5716. 847.43 s [opt-env-conf-test] + [ [ functionChunk "switch",
  5717. 847.43 s [opt-env-conf-test] + " has no ",
  5718. 847.43 s [opt-env-conf-test] + functionChunk "long",
  5719. 847.43 s [opt-env-conf-test] + " or ",
  5720. 847.43 s [opt-env-conf-test] + functionChunk "short",
  5721. 847.43 s [opt-env-conf-test] + "."
  5722. 847.43 s [opt-env-conf-test] + ]
  5723. 847.43 s [opt-env-conf-test] + ]
  5724. 847.43 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  5725. 847.43 s [opt-env-conf-test] + [ [ functionChunk "long",
  5726. 847.46 s [opt-env-conf-test] + " or ",
  5727. 847.46 s [opt-env-conf-test] + functionChunk "short",
  5728. 847.47 s [opt-env-conf-test] + " has no ",
  5729. 847.47 s [opt-env-conf-test] + functionChunk "option",
  5730. 847.47 s [opt-env-conf-test] + " or ",
  5731. 847.47 s [opt-env-conf-test] + functionChunk "switch",
  5732. 847.47 s [opt-env-conf-test] + "."
  5733. 847.47 s [opt-env-conf-test] + ]
  5734. 847.47 s [opt-env-conf-test] + ]
  5735. 847.47 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  5736. 847.47 s [opt-env-conf-test] + [ [ functionChunk "env",
  5737. 847.47 s [opt-env-conf-test] + " or ",
  5738. 847.47 s [opt-env-conf-test] + functionChunk "name",
  5739. 847.47 s [opt-env-conf-test] + " has no ",
  5740. 847.47 s [opt-env-conf-test] + functionChunk "reader",
  5741. 847.47 s [opt-env-conf-test] + "."
  5742. 847.47 s [opt-env-conf-test] + ]
  5743. 847.47 s [opt-env-conf-test] + ]
  5744. 847.47 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  5745. 847.47 s [opt-env-conf-test] + [ [ functionChunk "env",
  5746. 847.47 s [opt-env-conf-test] + " or ",
  5747. 847.47 s [opt-env-conf-test] + functionChunk "name",
  5748. 847.47 s [opt-env-conf-test] + " has no ",
  5749. 847.47 s [opt-env-conf-test] + functionChunk "metavar",
  5750. 847.47 s [opt-env-conf-test] + "."
  5751. 847.47 s [opt-env-conf-test] + ]
  5752. 847.47 s [opt-env-conf-test] + ]
  5753. 847.47 s [opt-env-conf-test] + LintErrorNoCommands ->
  5754. 847.47 s [opt-env-conf-test] + [ [ functionChunk "commands",
  5755. 847.47 s [opt-env-conf-test] + " was called with an empty list."
  5756. 847.47 s [opt-env-conf-test] + ]
  5757. 847.47 s [opt-env-conf-test] + ]
  5758. 847.47 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  5759. 847.47 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  5760. 847.47 s [opt-env-conf-test] + " was called with an unknown command: ",
  5761. 847.47 s [opt-env-conf-test] + commandChunk c
  5762. 847.47 s [opt-env-conf-test] + ]
  5763. 847.47 s [opt-env-conf-test] + ]
  5764. 847.47 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  5765. 847.47 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5766. 847.47 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  5767. 847.47 s [opt-env-conf-test] + ]
  5768. 847.47 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  5769. 847.47 s [opt-env-conf-test] + [ [ functionChunk "conf",
  5770. 847.47 s [opt-env-conf-test] + " or ",
  5771. 847.47 s [opt-env-conf-test] + functionChunk "name",
  5772. 847.47 s [opt-env-conf-test] + " was called with no way to load configuration."
  5773. 847.47 s [opt-env-conf-test] + ],
  5774. 847.47 s [opt-env-conf-test] + [ "You can load configuration with ",
  5775. 847.47 s [opt-env-conf-test] + functionChunk "withConfig",
  5776. 847.47 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  5777. 847.47 s [opt-env-conf-test] + functionChunk "withoutConfig",
  5778. 847.47 s [opt-env-conf-test] + "."
  5779. 847.47 s [opt-env-conf-test] + ]
  5780. 847.47 s [opt-env-conf-test] + ]
  5781. 847.47 s [opt-env-conf-test] + LintErrorManyInfinite ->
  5782. 847.47 s [opt-env-conf-test] + [ [ functionChunk "many",
  5783. 847.47 s [opt-env-conf-test] + " or ",
  5784. 847.47 s [opt-env-conf-test] + functionChunk "some",
  5785. 847.47 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  5786. 847.47 s [opt-env-conf-test] + ],
  5787. 847.47 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  5788. 847.47 s [opt-env-conf-test] + ],
  5789. 847.47 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  5790. 847.48 s [opt-env-conf-test] ]
  5791. 847.48 s [opt-env-conf-test]
  5792. 847.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
  5793. 847.48 s [opt-env-conf-test] @@ -232,11 +232,7 @@
  5794. 847.48 s [opt-env-conf-test] hidden
  5795. 847.48 s [opt-env-conf-test] ],
  5796. 847.48 s [opt-env-conf-test] setting
  5797. 847.48 s [opt-env-conf-test] - [ switch RenderMan,
  5798. 847.48 s [opt-env-conf-test] - long "render-man-page",
  5799. 847.48 s [opt-env-conf-test] - hidden,
  5800. 847.48 s [opt-env-conf-test] - help "Render a manpage"
  5801. 847.48 s [opt-env-conf-test] - ],
  5802. 847.48 s [opt-env-conf-test] + [],
  5803. 847.48 s [opt-env-conf-test] setting
  5804. 847.48 s [opt-env-conf-test] [ switch RenderDocumentation,
  5805. 847.48 s [opt-env-conf-test] long "render-reference-documentation",
  5806. 847.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
  5807. 847.48 s [opt-env-conf-test] @@ -227,10 +227,9 @@
  5808. 847.48 s [opt-env-conf-test] internalParser p =
  5809. 847.48 s [opt-env-conf-test] choice
  5810. 847.48 s [opt-env-conf-test] [ setting
  5811. 847.48 s [opt-env-conf-test] - [ switch ShowVersion,
  5812. 847.48 s [opt-env-conf-test] - long "version",
  5813. 847.48 s [opt-env-conf-test] - hidden
  5814. 847.48 s [opt-env-conf-test] - ],
  5815. 847.48 s [opt-env-conf-test] + [ switch ShowVersion,
  5816. 847.48 s [opt-env-conf-test] + long "version"
  5817. 847.48 s [opt-env-conf-test] +],
  5818. 847.48 s [opt-env-conf-test] setting
  5819. 847.48 s [opt-env-conf-test] [ switch RenderMan,
  5820. 847.48 s [opt-env-conf-test] long "render-man-page",
  5821. 847.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
  5822. 847.48 s [opt-env-conf-test] @@ -232,11 +232,10 @@
  5823. 847.48 s [opt-env-conf-test] hidden
  5824. 847.48 s [opt-env-conf-test] ],
  5825. 847.48 s [opt-env-conf-test] setting
  5826. 847.48 s [opt-env-conf-test] - [ switch RenderMan,
  5827. 847.48 s [opt-env-conf-test] - long "render-man-page",
  5828. 847.48 s [opt-env-conf-test] - hidden,
  5829. 847.48 s [opt-env-conf-test] - help "Render a manpage"
  5830. 847.48 s [opt-env-conf-test] - ],
  5831. 847.48 s [opt-env-conf-test] + [ switch RenderMan,
  5832. 847.48 s [opt-env-conf-test] + long "render-man-page",
  5833. 847.48 s [opt-env-conf-test] + hidden
  5834. 847.48 s [opt-env-conf-test] +],
  5835. 847.48 s [opt-env-conf-test] setting
  5836. 847.48 s [opt-env-conf-test] [ switch RenderDocumentation,
  5837. 847.48 s [opt-env-conf-test] long "render-reference-documentation",
  5838. 847.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  5839. 847.48 s [opt-env-conf-test] @@ -65,171 +65,171 @@
  5840. 847.48 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  5841. 847.48 s [opt-env-conf-test] renderLintError LintError {..} =
  5842. 847.48 s [opt-env-conf-test] concat
  5843. 847.48 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  5844. 847.48 s [opt-env-conf-test] - case lintErrorMessage of
  5845. 847.48 s [opt-env-conf-test] - LintErrorUndocumented ->
  5846. 847.48 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  5847. 847.48 s [opt-env-conf-test] - LintErrorEmptySetting ->
  5848. 847.48 s [opt-env-conf-test] - concat
  5849. 847.48 s [opt-env-conf-test] - [ [ [ "This ",
  5850. 847.48 s [opt-env-conf-test] - functionChunk "setting",
  5851. 847.48 s [opt-env-conf-test] - " parses nothing."
  5852. 847.48 s [opt-env-conf-test] - ]
  5853. 847.48 s [opt-env-conf-test] - ],
  5854. 847.48 s [opt-env-conf-test] - [ [ "Add an ",
  5855. 847.48 s [opt-env-conf-test] - functionChunk "argument",
  5856. 847.48 s [opt-env-conf-test] - ", ",
  5857. 847.48 s [opt-env-conf-test] - functionChunk "switch",
  5858. 847.48 s [opt-env-conf-test] - ", ",
  5859. 847.48 s [opt-env-conf-test] - functionChunk "option",
  5860. 847.48 s [opt-env-conf-test] - ", ",
  5861. 847.48 s [opt-env-conf-test] - functionChunk "env",
  5862. 847.48 s [opt-env-conf-test] - ", ",
  5863. 847.48 s [opt-env-conf-test] - functionChunk "conf",
  5864. 847.48 s [opt-env-conf-test] - ", or ",
  5865. 847.48 s [opt-env-conf-test] - functionChunk "value",
  5866. 847.48 s [opt-env-conf-test] - "."
  5867. 847.48 s [opt-env-conf-test] - ]
  5868. 847.48 s [opt-env-conf-test] - ]
  5869. 847.48 s [opt-env-conf-test] - ]
  5870. 847.48 s [opt-env-conf-test] - LintErrorDashInShort ->
  5871. 847.48 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  5872. 847.48 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  5873. 847.48 s [opt-env-conf-test] - ]
  5874. 847.48 s [opt-env-conf-test] - LintErrorDashInLong s ->
  5875. 847.48 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  5876. 847.48 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5877. 847.48 s [opt-env-conf-test] - [ "Try ",
  5878. 847.48 s [opt-env-conf-test] - functionChunk "long",
  5879. 847.48 s [opt-env-conf-test] - " ",
  5880. 847.48 s [opt-env-conf-test] - chunk $
  5881. 847.48 s [opt-env-conf-test] - T.pack $
  5882. 847.48 s [opt-env-conf-test] - show $
  5883. 847.48 s [opt-env-conf-test] - let go = \case
  5884. 847.48 s [opt-env-conf-test] - [] -> []
  5885. 847.48 s [opt-env-conf-test] - '-' : cs -> go cs
  5886. 847.48 s [opt-env-conf-test] - c : cs -> c : cs
  5887. 847.48 s [opt-env-conf-test] - in go $ NE.toList s,
  5888. 847.48 s [opt-env-conf-test] - " instead."
  5889. 847.48 s [opt-env-conf-test] - ]
  5890. 847.48 s [opt-env-conf-test] - ]
  5891. 847.48 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  5892. 847.48 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5893. 847.48 s [opt-env-conf-test] - " has no ",
  5894. 847.48 s [opt-env-conf-test] - functionChunk "reader",
  5895. 847.48 s [opt-env-conf-test] - "."
  5896. 847.48 s [opt-env-conf-test] - ]
  5897. 847.48 s [opt-env-conf-test] - ]
  5898. 847.48 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  5899. 847.48 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5900. 847.48 s [opt-env-conf-test] - " has no ",
  5901. 847.48 s [opt-env-conf-test] - functionChunk "metavar",
  5902. 847.48 s [opt-env-conf-test] - "."
  5903. 847.48 s [opt-env-conf-test] - ]
  5904. 847.48 s [opt-env-conf-test] - ]
  5905. 847.48 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  5906. 847.48 s [opt-env-conf-test] - [ [ functionChunk "option",
  5907. 847.48 s [opt-env-conf-test] - " or ",
  5908. 847.48 s [opt-env-conf-test] - functionChunk "name",
  5909. 847.48 s [opt-env-conf-test] - " has no ",
  5910. 847.48 s [opt-env-conf-test] - functionChunk "reader",
  5911. 847.48 s [opt-env-conf-test] - "."
  5912. 847.48 s [opt-env-conf-test] - ]
  5913. 847.48 s [opt-env-conf-test] - ]
  5914. 847.48 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  5915. 847.48 s [opt-env-conf-test] - [ [ functionChunk "option",
  5916. 847.49 s [opt-env-conf-test] - " has no ",
  5917. 847.49 s [opt-env-conf-test] - functionChunk "long",
  5918. 847.49 s [opt-env-conf-test] - " or ",
  5919. 847.49 s [opt-env-conf-test] - functionChunk "short",
  5920. 847.49 s [opt-env-conf-test] - "."
  5921. 847.49 s [opt-env-conf-test] - ]
  5922. 847.49 s [opt-env-conf-test] - ]
  5923. 847.49 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  5924. 847.49 s [opt-env-conf-test] - [ [ functionChunk "option",
  5925. 847.49 s [opt-env-conf-test] - " or ",
  5926. 847.49 s [opt-env-conf-test] - functionChunk "name",
  5927. 847.49 s [opt-env-conf-test] - " has no ",
  5928. 847.49 s [opt-env-conf-test] - functionChunk "metavar",
  5929. 847.49 s [opt-env-conf-test] - "."
  5930. 847.49 s [opt-env-conf-test] - ]
  5931. 847.49 s [opt-env-conf-test] - ]
  5932. 847.49 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  5933. 847.49 s [opt-env-conf-test] - [ [ functionChunk "switch",
  5934. 847.49 s [opt-env-conf-test] - " has no ",
  5935. 847.49 s [opt-env-conf-test] - functionChunk "long",
  5936. 847.49 s [opt-env-conf-test] - " or ",
  5937. 847.49 s [opt-env-conf-test] - functionChunk "short",
  5938. 847.49 s [opt-env-conf-test] - "."
  5939. 847.49 s [opt-env-conf-test] - ]
  5940. 847.49 s [opt-env-conf-test] - ]
  5941. 847.49 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  5942. 847.49 s [opt-env-conf-test] - [ [ functionChunk "long",
  5943. 847.49 s [opt-env-conf-test] - " or ",
  5944. 847.49 s [opt-env-conf-test] - functionChunk "short",
  5945. 847.49 s [opt-env-conf-test] - " has no ",
  5946. 847.49 s [opt-env-conf-test] - functionChunk "option",
  5947. 847.49 s [opt-env-conf-test] - " or ",
  5948. 847.49 s [opt-env-conf-test] - functionChunk "switch",
  5949. 847.49 s [opt-env-conf-test] - "."
  5950. 847.49 s [opt-env-conf-test] - ]
  5951. 847.49 s [opt-env-conf-test] - ]
  5952. 847.49 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  5953. 847.49 s [opt-env-conf-test] - [ [ functionChunk "env",
  5954. 847.49 s [opt-env-conf-test] - " or ",
  5955. 847.49 s [opt-env-conf-test] - functionChunk "name",
  5956. 847.49 s [opt-env-conf-test] - " has no ",
  5957. 847.49 s [opt-env-conf-test] - functionChunk "reader",
  5958. 847.49 s [opt-env-conf-test] - "."
  5959. 847.49 s [opt-env-conf-test] - ]
  5960. 847.49 s [opt-env-conf-test] - ]
  5961. 847.49 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  5962. 847.49 s [opt-env-conf-test] - [ [ functionChunk "env",
  5963. 847.49 s [opt-env-conf-test] - " or ",
  5964. 847.49 s [opt-env-conf-test] - functionChunk "name",
  5965. 847.49 s [opt-env-conf-test] - " has no ",
  5966. 847.49 s [opt-env-conf-test] - functionChunk "metavar",
  5967. 847.49 s [opt-env-conf-test] - "."
  5968. 847.49 s [opt-env-conf-test] - ]
  5969. 847.49 s [opt-env-conf-test] - ]
  5970. 847.49 s [opt-env-conf-test] - LintErrorNoCommands ->
  5971. 847.49 s [opt-env-conf-test] - [ [ functionChunk "commands",
  5972. 847.49 s [opt-env-conf-test] - " was called with an empty list."
  5973. 847.49 s [opt-env-conf-test] - ]
  5974. 847.49 s [opt-env-conf-test] - ]
  5975. 847.49 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  5976. 847.49 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  5977. 847.49 s [opt-env-conf-test] - " was called with an unknown command: ",
  5978. 847.49 s [opt-env-conf-test] - commandChunk c
  5979. 847.49 s [opt-env-conf-test] - ]
  5980. 847.49 s [opt-env-conf-test] - ]
  5981. 847.49 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  5982. 847.49 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5983. 847.49 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  5984. 847.49 s [opt-env-conf-test] - ]
  5985. 847.49 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  5986. 847.49 s [opt-env-conf-test] - [ [ functionChunk "conf",
  5987. 847.49 s [opt-env-conf-test] - " or ",
  5988. 847.49 s [opt-env-conf-test] - functionChunk "name",
  5989. 847.49 s [opt-env-conf-test] - " was called with no way to load configuration."
  5990. 847.49 s [opt-env-conf-test] - ],
  5991. 847.58 s [opt-env-conf-test] - [ "You can load configuration with ",
  5992. 847.58 s [opt-env-conf-test] - functionChunk "withConfig",
  5993. 847.58 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  5994. 847.59 s [opt-env-conf-test] - functionChunk "withoutConfig",
  5995. 847.59 s [opt-env-conf-test] - "."
  5996. 847.59 s [opt-env-conf-test] - ]
  5997. 847.59 s [opt-env-conf-test] - ]
  5998. 847.59 s [opt-env-conf-test] - LintErrorManyInfinite ->
  5999. 847.59 s [opt-env-conf-test] - [ [ functionChunk "many",
  6000. 847.59 s [opt-env-conf-test] - " or ",
  6001. 847.59 s [opt-env-conf-test] - functionChunk "some",
  6002. 847.59 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  6003. 847.59 s [opt-env-conf-test] - ],
  6004. 847.59 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  6005. 847.59 s [opt-env-conf-test] - ],
  6006. 847.59 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  6007. 847.59 s [opt-env-conf-test] - ]
  6008. 847.59 s [opt-env-conf-test] + [ [[fore red "Invalid Setting:"]],
  6009. 847.59 s [opt-env-conf-test] + case lintErrorMessage of
  6010. 847.59 s [opt-env-conf-test] + LintErrorUndocumented ->
  6011. 847.59 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  6012. 847.59 s [opt-env-conf-test] + LintErrorEmptySetting ->
  6013. 847.59 s [opt-env-conf-test] + concat
  6014. 847.59 s [opt-env-conf-test] + [ [ [ "This ",
  6015. 847.59 s [opt-env-conf-test] + functionChunk "setting",
  6016. 847.59 s [opt-env-conf-test] + " parses nothing."
  6017. 847.59 s [opt-env-conf-test] + ]
  6018. 847.59 s [opt-env-conf-test] + ],
  6019. 847.59 s [opt-env-conf-test] + [ [ "Add an ",
  6020. 847.59 s [opt-env-conf-test] + functionChunk "argument",
  6021. 847.59 s [opt-env-conf-test] + ", ",
  6022. 847.59 s [opt-env-conf-test] + functionChunk "switch",
  6023. 847.59 s [opt-env-conf-test] + ", ",
  6024. 847.59 s [opt-env-conf-test] + functionChunk "option",
  6025. 847.59 s [opt-env-conf-test] + ", ",
  6026. 847.59 s [opt-env-conf-test] + functionChunk "env",
  6027. 847.59 s [opt-env-conf-test] + ", ",
  6028. 847.59 s [opt-env-conf-test] + functionChunk "conf",
  6029. 847.59 s [opt-env-conf-test] + ", or ",
  6030. 847.59 s [opt-env-conf-test] + functionChunk "value",
  6031. 847.59 s [opt-env-conf-test] + "."
  6032. 847.59 s [opt-env-conf-test] + ]
  6033. 847.59 s [opt-env-conf-test] + ]
  6034. 847.59 s [opt-env-conf-test] + ]
  6035. 847.59 s [opt-env-conf-test] + LintErrorDashInShort ->
  6036. 847.59 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  6037. 847.59 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  6038. 847.59 s [opt-env-conf-test] + ]
  6039. 847.59 s [opt-env-conf-test] + LintErrorDashInLong s ->
  6040. 847.59 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  6041. 847.59 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  6042. 847.59 s [opt-env-conf-test] + [ "Try ",
  6043. 847.59 s [opt-env-conf-test] + functionChunk "long",
  6044. 847.59 s [opt-env-conf-test] + " ",
  6045. 847.59 s [opt-env-conf-test] + chunk $
  6046. 847.59 s [opt-env-conf-test] + T.pack $
  6047. 847.59 s [opt-env-conf-test] + show $
  6048. 847.59 s [opt-env-conf-test] + let go = \case
  6049. 847.59 s [opt-env-conf-test] + [] -> []
  6050. 847.59 s [opt-env-conf-test] + '-' : cs -> go cs
  6051. 847.59 s [opt-env-conf-test] + c : cs -> c : cs
  6052. 847.59 s [opt-env-conf-test] + in go $ NE.toList s,
  6053. 847.59 s [opt-env-conf-test] + " instead."
  6054. 847.59 s [opt-env-conf-test] + ]
  6055. 847.59 s [opt-env-conf-test] + ]
  6056. 847.59 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  6057. 847.59 s [opt-env-conf-test] + [ [ functionChunk "argument",
  6058. 847.60 s [opt-env-conf-test] + " has no ",
  6059. 847.60 s [opt-env-conf-test] + functionChunk "reader",
  6060. 847.60 s [opt-env-conf-test] + "."
  6061. 847.60 s [opt-env-conf-test] + ]
  6062. 847.60 s [opt-env-conf-test] + ]
  6063. 847.60 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  6064. 847.60 s [opt-env-conf-test] + [ [ functionChunk "argument",
  6065. 847.60 s [opt-env-conf-test] + " has no ",
  6066. 847.60 s [opt-env-conf-test] + functionChunk "metavar",
  6067. 847.60 s [opt-env-conf-test] + "."
  6068. 847.60 s [opt-env-conf-test] + ]
  6069. 847.60 s [opt-env-conf-test] + ]
  6070. 847.60 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  6071. 847.60 s [opt-env-conf-test] + [ [ functionChunk "option",
  6072. 847.60 s [opt-env-conf-test] + " or ",
  6073. 847.60 s [opt-env-conf-test] + functionChunk "name",
  6074. 847.60 s [opt-env-conf-test] + " has no ",
  6075. 847.60 s [opt-env-conf-test] + functionChunk "reader",
  6076. 847.60 s [opt-env-conf-test] + "."
  6077. 847.61 s [opt-env-conf-test] + ]
  6078. 847.61 s [opt-env-conf-test] + ]
  6079. 847.61 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  6080. 847.61 s [opt-env-conf-test] + [ [ functionChunk "option",
  6081. 847.61 s [opt-env-conf-test] + " has no ",
  6082. 847.61 s [opt-env-conf-test] + functionChunk "long",
  6083. 847.61 s [opt-env-conf-test] + " or ",
  6084. 847.61 s [opt-env-conf-test] + functionChunk "short",
  6085. 847.61 s [opt-env-conf-test] + "."
  6086. 847.61 s [opt-env-conf-test] + ]
  6087. 847.61 s [opt-env-conf-test] + ]
  6088. 847.61 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  6089. 847.61 s [opt-env-conf-test] + [ [ functionChunk "option",
  6090. 847.61 s [opt-env-conf-test] + " or ",
  6091. 847.61 s [opt-env-conf-test] + functionChunk "name",
  6092. 847.61 s [opt-env-conf-test] + " has no ",
  6093. 847.61 s [opt-env-conf-test] + functionChunk "metavar",
  6094. 847.61 s [opt-env-conf-test] + "."
  6095. 847.62 s [opt-env-conf-test] + ]
  6096. 847.62 s [opt-env-conf-test] + ]
  6097. 847.62 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  6098. 847.62 s [opt-env-conf-test] + [ [ functionChunk "switch",
  6099. 847.62 s [opt-env-conf-test] + " has no ",
  6100. 847.62 s [opt-env-conf-test] + functionChunk "long",
  6101. 847.62 s [opt-env-conf-test] + " or ",
  6102. 847.62 s [opt-env-conf-test] + functionChunk "short",
  6103. 847.62 s [opt-env-conf-test] + "."
  6104. 847.62 s [opt-env-conf-test] + ]
  6105. 847.62 s [opt-env-conf-test] + ]
  6106. 847.62 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  6107. 847.62 s [opt-env-conf-test] + [ [ functionChunk "long",
  6108. 847.62 s [opt-env-conf-test] + " or ",
  6109. 847.62 s [opt-env-conf-test] + functionChunk "short",
  6110. 847.62 s [opt-env-conf-test] + " has no ",
  6111. 847.62 s [opt-env-conf-test] + functionChunk "option",
  6112. 847.62 s [opt-env-conf-test] + " or ",
  6113. 847.62 s [opt-env-conf-test] + functionChunk "switch",
  6114. 847.62 s [opt-env-conf-test] + "."
  6115. 847.62 s [opt-env-conf-test] + ]
  6116. 847.62 s [opt-env-conf-test] + ]
  6117. 847.62 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  6118. 847.62 s [opt-env-conf-test] + [ [ functionChunk "env",
  6119. 847.62 s [opt-env-conf-test] + " or ",
  6120. 847.62 s [opt-env-conf-test] + functionChunk "name",
  6121. 847.62 s [opt-env-conf-test] + " has no ",
  6122. 847.62 s [opt-env-conf-test] + functionChunk "reader",
  6123. 847.62 s [opt-env-conf-test] + "."
  6124. 847.62 s [opt-env-conf-test] + ]
  6125. 847.62 s [opt-env-conf-test] + ]
  6126. 847.62 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  6127. 847.62 s [opt-env-conf-test] + [ [ functionChunk "env",
  6128. 847.62 s [opt-env-conf-test] + " or ",
  6129. 847.62 s [opt-env-conf-test] + functionChunk "name",
  6130. 847.62 s [opt-env-conf-test] + " has no ",
  6131. 847.62 s [opt-env-conf-test] + functionChunk "metavar",
  6132. 847.62 s [opt-env-conf-test] + "."
  6133. 847.62 s [opt-env-conf-test] + ]
  6134. 847.62 s [opt-env-conf-test] + ]
  6135. 847.62 s [opt-env-conf-test] + LintErrorNoCommands ->
  6136. 847.62 s [opt-env-conf-test] + [ [ functionChunk "commands",
  6137. 847.62 s [opt-env-conf-test] + " was called with an empty list."
  6138. 847.62 s [opt-env-conf-test] + ]
  6139. 847.62 s [opt-env-conf-test] + ]
  6140. 847.62 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  6141. 847.62 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  6142. 847.62 s [opt-env-conf-test] + " was called with an unknown command: ",
  6143. 847.62 s [opt-env-conf-test] + commandChunk c
  6144. 847.62 s [opt-env-conf-test] + ]
  6145. 847.62 s [opt-env-conf-test] + ]
  6146. 847.62 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  6147. 847.62 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  6148. 847.62 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  6149. 847.62 s [opt-env-conf-test] + ]
  6150. 847.62 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  6151. 847.62 s [opt-env-conf-test] + [ [ functionChunk "conf",
  6152. 847.62 s [opt-env-conf-test] + " or ",
  6153. 847.62 s [opt-env-conf-test] + functionChunk "name",
  6154. 847.62 s [opt-env-conf-test] + " was called with no way to load configuration."
  6155. 847.62 s [opt-env-conf-test] + ],
  6156. 847.62 s [opt-env-conf-test] + [ "You can load configuration with ",
  6157. 847.63 s [opt-env-conf-test] + functionChunk "withConfig",
  6158. 847.63 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  6159. 847.63 s [opt-env-conf-test] + functionChunk "withoutConfig",
  6160. 847.63 s [opt-env-conf-test] + "."
  6161. 847.63 s [opt-env-conf-test] + ]
  6162. 847.63 s [opt-env-conf-test] + ]
  6163. 847.63 s [opt-env-conf-test] + LintErrorManyInfinite ->
  6164. 847.63 s [opt-env-conf-test] + [ [ functionChunk "many",
  6165. 847.63 s [opt-env-conf-test] + " or ",
  6166. 847.63 s [opt-env-conf-test] + functionChunk "some",
  6167. 847.63 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  6168. 847.63 s [opt-env-conf-test] + ],
  6169. 847.63 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  6170. 847.63 s [opt-env-conf-test] + ],
  6171. 847.63 s [opt-env-conf-test] + maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  6172. 847.63 s [opt-env-conf-test] + ]
  6173. 847.63 s [opt-env-conf-test]
  6174. 847.63 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  6175. 847.63 s [opt-env-conf-test] lintParser =
  6176. 847.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  6177. 847.63 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  6178. 847.63 s [opt-env-conf-test] renderLintError LintError {..} =
  6179. 847.63 s [opt-env-conf-test] concat
  6180. 847.63 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  6181. 847.63 s [opt-env-conf-test] - case lintErrorMessage of
  6182. 847.63 s [opt-env-conf-test] - LintErrorUndocumented ->
  6183. 847.63 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  6184. 847.63 s [opt-env-conf-test] - LintErrorEmptySetting ->
  6185. 847.63 s [opt-env-conf-test] - concat
  6186. 847.63 s [opt-env-conf-test] - [ [ [ "This ",
  6187. 847.63 s [opt-env-conf-test] - functionChunk "setting",
  6188. 847.63 s [opt-env-conf-test] - " parses nothing."
  6189. 847.63 s [opt-env-conf-test] - ]
  6190. 847.63 s [opt-env-conf-test] - ],
  6191. 847.63 s [opt-env-conf-test] - [ [ "Add an ",
  6192. 847.63 s [opt-env-conf-test] - functionChunk "argument",
  6193. 847.63 s [opt-env-conf-test] - ", ",
  6194. 847.63 s [opt-env-conf-test] - functionChunk "switch",
  6195. 847.63 s [opt-env-conf-test] - ", ",
  6196. 847.63 s [opt-env-conf-test] - functionChunk "option",
  6197. 847.63 s [opt-env-conf-test] - ", ",
  6198. 847.63 s [opt-env-conf-test] - functionChunk "env",
  6199. 847.63 s [opt-env-conf-test] - ", ",
  6200. 847.63 s [opt-env-conf-test] - functionChunk "conf",
  6201. 847.63 s [opt-env-conf-test] - ", or ",
  6202. 847.63 s [opt-env-conf-test] - functionChunk "value",
  6203. 847.63 s [opt-env-conf-test] - "."
  6204. 847.63 s [opt-env-conf-test] - ]
  6205. 847.63 s [opt-env-conf-test] - ]
  6206. 847.63 s [opt-env-conf-test] - ]
  6207. 847.63 s [opt-env-conf-test] - LintErrorDashInShort ->
  6208. 847.63 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  6209. 847.63 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  6210. 847.63 s [opt-env-conf-test] - ]
  6211. 847.63 s [opt-env-conf-test] - LintErrorDashInLong s ->
  6212. 847.63 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  6213. 847.63 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  6214. 847.63 s [opt-env-conf-test] - [ "Try ",
  6215. 847.63 s [opt-env-conf-test] - functionChunk "long",
  6216. 847.63 s [opt-env-conf-test] - " ",
  6217. 847.63 s [opt-env-conf-test] - chunk $
  6218. 847.63 s [opt-env-conf-test] - T.pack $
  6219. 847.63 s [opt-env-conf-test] - show $
  6220. 847.63 s [opt-env-conf-test] - let go = \case
  6221. 847.63 s [opt-env-conf-test] - [] -> []
  6222. 847.63 s [opt-env-conf-test] - '-' : cs -> go cs
  6223. 847.63 s [opt-env-conf-test] - c : cs -> c : cs
  6224. 847.63 s [opt-env-conf-test] - in go $ NE.toList s,
  6225. 847.63 s [opt-env-conf-test] - " instead."
  6226. 847.63 s [opt-env-conf-test] - ]
  6227. 847.63 s [opt-env-conf-test] - ]
  6228. 847.63 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  6229. 847.63 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6230. 847.63 s [opt-env-conf-test] - " has no ",
  6231. 847.63 s [opt-env-conf-test] - functionChunk "reader",
  6232. 847.63 s [opt-env-conf-test] - "."
  6233. 847.63 s [opt-env-conf-test] - ]
  6234. 847.63 s [opt-env-conf-test] - ]
  6235. 847.63 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  6236. 847.63 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6237. 847.63 s [opt-env-conf-test] - " has no ",
  6238. 847.63 s [opt-env-conf-test] - functionChunk "metavar",
  6239. 847.63 s [opt-env-conf-test] - "."
  6240. 847.63 s [opt-env-conf-test] - ]
  6241. 847.63 s [opt-env-conf-test] - ]
  6242. 847.63 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  6243. 847.63 s [opt-env-conf-test] - [ [ functionChunk "option",
  6244. 847.63 s [opt-env-conf-test] - " or ",
  6245. 847.63 s [opt-env-conf-test] - functionChunk "name",
  6246. 847.63 s [opt-env-conf-test] - " has no ",
  6247. 847.63 s [opt-env-conf-test] - functionChunk "reader",
  6248. 847.63 s [opt-env-conf-test] - "."
  6249. 847.63 s [opt-env-conf-test] - ]
  6250. 847.63 s [opt-env-conf-test] - ]
  6251. 847.63 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  6252. 847.63 s [opt-env-conf-test] - [ [ functionChunk "option",
  6253. 847.63 s [opt-env-conf-test] - " has no ",
  6254. 847.63 s [opt-env-conf-test] - functionChunk "long",
  6255. 847.63 s [opt-env-conf-test] - " or ",
  6256. 847.63 s [opt-env-conf-test] - functionChunk "short",
  6257. 847.63 s [opt-env-conf-test] - "."
  6258. 847.63 s [opt-env-conf-test] - ]
  6259. 847.63 s [opt-env-conf-test] - ]
  6260. 847.63 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  6261. 847.63 s [opt-env-conf-test] - [ [ functionChunk "option",
  6262. 847.63 s [opt-env-conf-test] - " or ",
  6263. 847.63 s [opt-env-conf-test] - functionChunk "name",
  6264. 847.63 s [opt-env-conf-test] - " has no ",
  6265. 847.63 s [opt-env-conf-test] - functionChunk "metavar",
  6266. 847.63 s [opt-env-conf-test] - "."
  6267. 847.63 s [opt-env-conf-test] - ]
  6268. 847.63 s [opt-env-conf-test] - ]
  6269. 847.63 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  6270. 847.63 s [opt-env-conf-test] - [ [ functionChunk "switch",
  6271. 847.63 s [opt-env-conf-test] - " has no ",
  6272. 847.63 s [opt-env-conf-test] - functionChunk "long",
  6273. 847.63 s [opt-env-conf-test] - " or ",
  6274. 847.63 s [opt-env-conf-test] - functionChunk "short",
  6275. 847.63 s [opt-env-conf-test] - "."
  6276. 847.63 s [opt-env-conf-test] - ]
  6277. 847.63 s [opt-env-conf-test] - ]
  6278. 847.63 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  6279. 847.63 s [opt-env-conf-test] - [ [ functionChunk "long",
  6280. 847.63 s [opt-env-conf-test] - " or ",
  6281. 847.64 s [opt-env-conf-test] - functionChunk "short",
  6282. 847.64 s [opt-env-conf-test] - " has no ",
  6283. 847.64 s [opt-env-conf-test] - functionChunk "option",
  6284. 847.64 s [opt-env-conf-test] - " or ",
  6285. 847.64 s [opt-env-conf-test] - functionChunk "switch",
  6286. 847.64 s [opt-env-conf-test] - "."
  6287. 847.64 s [opt-env-conf-test] - ]
  6288. 847.64 s [opt-env-conf-test] - ]
  6289. 847.64 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  6290. 847.64 s [opt-env-conf-test] - [ [ functionChunk "env",
  6291. 847.64 s [opt-env-conf-test] - " or ",
  6292. 847.64 s [opt-env-conf-test] - functionChunk "name",
  6293. 847.64 s [opt-env-conf-test] - " has no ",
  6294. 847.64 s [opt-env-conf-test] - functionChunk "reader",
  6295. 847.64 s [opt-env-conf-test] - "."
  6296. 847.64 s [opt-env-conf-test] - ]
  6297. 847.64 s [opt-env-conf-test] - ]
  6298. 847.64 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  6299. 847.64 s [opt-env-conf-test] - [ [ functionChunk "env",
  6300. 847.64 s [opt-env-conf-test] - " or ",
  6301. 847.64 s [opt-env-conf-test] - functionChunk "name",
  6302. 847.64 s [opt-env-conf-test] - " has no ",
  6303. 847.64 s [opt-env-conf-test] - functionChunk "metavar",
  6304. 847.64 s [opt-env-conf-test] - "."
  6305. 847.64 s [opt-env-conf-test] - ]
  6306. 847.64 s [opt-env-conf-test] - ]
  6307. 847.64 s [opt-env-conf-test] - LintErrorNoCommands ->
  6308. 847.64 s [opt-env-conf-test] - [ [ functionChunk "commands",
  6309. 847.64 s [opt-env-conf-test] - " was called with an empty list."
  6310. 847.64 s [opt-env-conf-test] - ]
  6311. 847.64 s [opt-env-conf-test] - ]
  6312. 847.64 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  6313. 847.64 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  6314. 847.64 s [opt-env-conf-test] - " was called with an unknown command: ",
  6315. 847.64 s [opt-env-conf-test] - commandChunk c
  6316. 847.64 s [opt-env-conf-test] - ]
  6317. 847.64 s [opt-env-conf-test] - ]
  6318. 847.64 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  6319. 847.64 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  6320. 847.64 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  6321. 847.64 s [opt-env-conf-test] - ]
  6322. 847.64 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  6323. 847.64 s [opt-env-conf-test] - [ [ functionChunk "conf",
  6324. 847.64 s [opt-env-conf-test] - " or ",
  6325. 847.64 s [opt-env-conf-test] - functionChunk "name",
  6326. 847.64 s [opt-env-conf-test] - " was called with no way to load configuration."
  6327. 847.64 s [opt-env-conf-test] - ],
  6328. 847.64 s [opt-env-conf-test] - [ "You can load configuration with ",
  6329. 847.64 s [opt-env-conf-test] - functionChunk "withConfig",
  6330. 847.64 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  6331. 847.64 s [opt-env-conf-test] - functionChunk "withoutConfig",
  6332. 847.64 s [opt-env-conf-test] - "."
  6333. 847.64 s [opt-env-conf-test] - ]
  6334. 847.64 s [opt-env-conf-test] - ]
  6335. 847.64 s [opt-env-conf-test] - LintErrorManyInfinite ->
  6336. 847.64 s [opt-env-conf-test] - [ [ functionChunk "many",
  6337. 847.64 s [opt-env-conf-test] - " or ",
  6338. 847.64 s [opt-env-conf-test] - functionChunk "some",
  6339. 847.64 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  6340. 847.64 s [opt-env-conf-test] - ],
  6341. 847.64 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  6342. 847.64 s [opt-env-conf-test] - ],
  6343. 847.64 s [opt-env-conf-test] + case lintErrorMessage of
  6344. 847.64 s [opt-env-conf-test] + LintErrorUndocumented ->
  6345. 847.64 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  6346. 847.64 s [opt-env-conf-test] + LintErrorEmptySetting ->
  6347. 847.64 s [opt-env-conf-test] + concat
  6348. 847.64 s [opt-env-conf-test] + [ [ [ "This ",
  6349. 847.64 s [opt-env-conf-test] + functionChunk "setting",
  6350. 847.64 s [opt-env-conf-test] + " parses nothing."
  6351. 847.64 s [opt-env-conf-test] + ]
  6352. 847.64 s [opt-env-conf-test] + ],
  6353. 847.64 s [opt-env-conf-test] + [ [ "Add an ",
  6354. 847.64 s [opt-env-conf-test] + functionChunk "argument",
  6355. 847.64 s [opt-env-conf-test] + ", ",
  6356. 847.64 s [opt-env-conf-test] + functionChunk "switch",
  6357. 847.64 s [opt-env-conf-test] + ", ",
  6358. 847.64 s [opt-env-conf-test] + functionChunk "option",
  6359. 847.64 s [opt-env-conf-test] + ", ",
  6360. 847.64 s [opt-env-conf-test] + functionChunk "env",
  6361. 847.64 s [opt-env-conf-test] + ", ",
  6362. 847.64 s [opt-env-conf-test] + functionChunk "conf",
  6363. 847.64 s [opt-env-conf-test] + ", or ",
  6364. 847.64 s [opt-env-conf-test] + functionChunk "value",
  6365. 847.64 s [opt-env-conf-test] + "."
  6366. 847.64 s [opt-env-conf-test] + ]
  6367. 847.64 s [opt-env-conf-test] + ]
  6368. 847.64 s [opt-env-conf-test] + ]
  6369. 847.64 s [opt-env-conf-test] + LintErrorDashInShort ->
  6370. 847.64 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  6371. 847.64 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  6372. 847.64 s [opt-env-conf-test] + ]
  6373. 847.64 s [opt-env-conf-test] + LintErrorDashInLong s ->
  6374. 847.64 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  6375. 847.64 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  6376. 847.64 s [opt-env-conf-test] + [ "Try ",
  6377. 847.64 s [opt-env-conf-test] + functionChunk "long",
  6378. 847.64 s [opt-env-conf-test] + " ",
  6379. 847.64 s [opt-env-conf-test] + chunk $
  6380. 847.64 s [opt-env-conf-test] + T.pack $
  6381. 847.64 s [opt-env-conf-test] + show $
  6382. 847.64 s [opt-env-conf-test] + let go = \case
  6383. 847.64 s [opt-env-conf-test] + [] -> []
  6384. 847.64 s [opt-env-conf-test] + '-' : cs -> go cs
  6385. 847.64 s [opt-env-conf-test] + c : cs -> c : cs
  6386. 847.64 s [opt-env-conf-test] + in go $ NE.toList s,
  6387. 847.64 s [opt-env-conf-test] + " instead."
  6388. 847.64 s [opt-env-conf-test] + ]
  6389. 847.64 s [opt-env-conf-test] + ]
  6390. 847.64 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  6391. 847.64 s [opt-env-conf-test] + [ [ functionChunk "argument",
  6392. 847.64 s [opt-env-conf-test] + " has no ",
  6393. 847.64 s [opt-env-conf-test] + functionChunk "reader",
  6394. 847.64 s [opt-env-conf-test] + "."
  6395. 847.64 s [opt-env-conf-test] + ]
  6396. 847.64 s [opt-env-conf-test] + ]
  6397. 847.64 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  6398. 847.65 s [opt-env-conf-test] + [ [ functionChunk "argument",
  6399. 847.65 s [opt-env-conf-test] + " has no ",
  6400. 847.65 s [opt-env-conf-test] + functionChunk "metavar",
  6401. 847.65 s [opt-env-conf-test] + "."
  6402. 847.65 s [opt-env-conf-test] + ]
  6403. 847.65 s [opt-env-conf-test] + ]
  6404. 847.65 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  6405. 847.65 s [opt-env-conf-test] + [ [ functionChunk "option",
  6406. 847.65 s [opt-env-conf-test] + " or ",
  6407. 847.65 s [opt-env-conf-test] + functionChunk "name",
  6408. 847.65 s [opt-env-conf-test] + " has no ",
  6409. 847.65 s [opt-env-conf-test] + functionChunk "reader",
  6410. 847.65 s [opt-env-conf-test] + "."
  6411. 847.65 s [opt-env-conf-test] + ]
  6412. 847.65 s [opt-env-conf-test] + ]
  6413. 847.65 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  6414. 847.65 s [opt-env-conf-test] + [ [ functionChunk "option",
  6415. 847.65 s [opt-env-conf-test] + " has no ",
  6416. 847.65 s [opt-env-conf-test] + functionChunk "long",
  6417. 847.65 s [opt-env-conf-test] + " or ",
  6418. 847.65 s [opt-env-conf-test] + functionChunk "short",
  6419. 847.65 s [opt-env-conf-test] + "."
  6420. 847.65 s [opt-env-conf-test] + ]
  6421. 847.65 s [opt-env-conf-test] + ]
  6422. 847.65 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  6423. 847.65 s [opt-env-conf-test] + [ [ functionChunk "option",
  6424. 847.65 s [opt-env-conf-test] + " or ",
  6425. 847.65 s [opt-env-conf-test] + functionChunk "name",
  6426. 847.65 s [opt-env-conf-test] + " has no ",
  6427. 847.65 s [opt-env-conf-test] + functionChunk "metavar",
  6428. 847.65 s [opt-env-conf-test] + "."
  6429. 847.65 s [opt-env-conf-test] + ]
  6430. 847.65 s [opt-env-conf-test] + ]
  6431. 847.65 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  6432. 847.65 s [opt-env-conf-test] + [ [ functionChunk "switch",
  6433. 847.65 s [opt-env-conf-test] + " has no ",
  6434. 847.65 s [opt-env-conf-test] + functionChunk "long",
  6435. 847.65 s [opt-env-conf-test] + " or ",
  6436. 847.65 s [opt-env-conf-test] + functionChunk "short",
  6437. 847.65 s [opt-env-conf-test] + "."
  6438. 847.65 s [opt-env-conf-test] + ]
  6439. 847.65 s [opt-env-conf-test] + ]
  6440. 847.65 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  6441. 847.65 s [opt-env-conf-test] + [ [ functionChunk "long",
  6442. 847.65 s [opt-env-conf-test] + " or ",
  6443. 847.65 s [opt-env-conf-test] + functionChunk "short",
  6444. 847.65 s [opt-env-conf-test] + " has no ",
  6445. 847.65 s [opt-env-conf-test] + functionChunk "option",
  6446. 847.65 s [opt-env-conf-test] + " or ",
  6447. 847.65 s [opt-env-conf-test] + functionChunk "switch",
  6448. 847.65 s [opt-env-conf-test] + "."
  6449. 847.65 s [opt-env-conf-test] + ]
  6450. 847.65 s [opt-env-conf-test] + ]
  6451. 847.65 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  6452. 847.65 s [opt-env-conf-test] + [ [ functionChunk "env",
  6453. 847.65 s [opt-env-conf-test] + " or ",
  6454. 847.65 s [opt-env-conf-test] + functionChunk "name",
  6455. 847.65 s [opt-env-conf-test] + " has no ",
  6456. 847.65 s [opt-env-conf-test] + functionChunk "reader",
  6457. 847.65 s [opt-env-conf-test] + "."
  6458. 847.65 s [opt-env-conf-test] + ]
  6459. 847.65 s [opt-env-conf-test] + ]
  6460. 847.65 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  6461. 847.65 s [opt-env-conf-test] + [ [ functionChunk "env",
  6462. 847.65 s [opt-env-conf-test] + " or ",
  6463. 847.65 s [opt-env-conf-test] + functionChunk "name",
  6464. 847.65 s [opt-env-conf-test] + " has no ",
  6465. 847.65 s [opt-env-conf-test] + functionChunk "metavar",
  6466. 847.65 s [opt-env-conf-test] + "."
  6467. 847.65 s [opt-env-conf-test] + ]
  6468. 847.65 s [opt-env-conf-test] + ]
  6469. 847.65 s [opt-env-conf-test] + LintErrorNoCommands ->
  6470. 847.65 s [opt-env-conf-test] + [ [ functionChunk "commands",
  6471. 847.65 s [opt-env-conf-test] + " was called with an empty list."
  6472. 847.65 s [opt-env-conf-test] + ]
  6473. 847.65 s [opt-env-conf-test] + ]
  6474. 847.65 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  6475. 847.65 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  6476. 847.65 s [opt-env-conf-test] + " was called with an unknown command: ",
  6477. 847.65 s [opt-env-conf-test] + commandChunk c
  6478. 847.65 s [opt-env-conf-test] + ]
  6479. 847.65 s [opt-env-conf-test] + ]
  6480. 847.65 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  6481. 847.65 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  6482. 847.65 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  6483. 847.65 s [opt-env-conf-test] + ]
  6484. 847.65 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  6485. 847.65 s [opt-env-conf-test] + [ [ functionChunk "conf",
  6486. 847.65 s [opt-env-conf-test] + " or ",
  6487. 847.65 s [opt-env-conf-test] + functionChunk "name",
  6488. 847.65 s [opt-env-conf-test] + " was called with no way to load configuration."
  6489. 847.65 s [opt-env-conf-test] + ],
  6490. 847.65 s [opt-env-conf-test] + [ "You can load configuration with ",
  6491. 847.65 s [opt-env-conf-test] + functionChunk "withConfig",
  6492. 847.65 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  6493. 847.65 s [opt-env-conf-test] + functionChunk "withoutConfig",
  6494. 847.65 s [opt-env-conf-test] + "."
  6495. 847.65 s [opt-env-conf-test] + ]
  6496. 847.65 s [opt-env-conf-test] + ]
  6497. 847.65 s [opt-env-conf-test] + LintErrorManyInfinite ->
  6498. 847.65 s [opt-env-conf-test] + [ [ functionChunk "many",
  6499. 847.65 s [opt-env-conf-test] + " or ",
  6500. 847.69 s [opt-env-conf-test] + functionChunk "some",
  6501. 847.69 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  6502. 847.69 s [opt-env-conf-test] + ],
  6503. 847.69 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  6504. 847.69 s [opt-env-conf-test] + ],
  6505. 847.69 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  6506. 847.69 s [opt-env-conf-test] ]
  6507. 847.69 s [opt-env-conf-test]
  6508. 847.69 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  6509. 847.69 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  6510. 847.69 s [opt-env-conf-test] renderLintError LintError {..} =
  6511. 847.69 s [opt-env-conf-test] concat
  6512. 847.69 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  6513. 847.69 s [opt-env-conf-test] - case lintErrorMessage of
  6514. 847.69 s [opt-env-conf-test] - LintErrorUndocumented ->
  6515. 847.69 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  6516. 847.69 s [opt-env-conf-test] - LintErrorEmptySetting ->
  6517. 847.69 s [opt-env-conf-test] - concat
  6518. 847.69 s [opt-env-conf-test] - [ [ [ "This ",
  6519. 847.69 s [opt-env-conf-test] - functionChunk "setting",
  6520. 847.69 s [opt-env-conf-test] - " parses nothing."
  6521. 847.69 s [opt-env-conf-test] - ]
  6522. 847.69 s [opt-env-conf-test] - ],
  6523. 847.69 s [opt-env-conf-test] - [ [ "Add an ",
  6524. 847.70 s [opt-env-conf-test] - functionChunk "argument",
  6525. 847.70 s [opt-env-conf-test] - ", ",
  6526. 847.70 s [opt-env-conf-test] - functionChunk "switch",
  6527. 847.70 s [opt-env-conf-test] - ", ",
  6528. 847.70 s [opt-env-conf-test] - functionChunk "option",
  6529. 847.70 s [opt-env-conf-test] - ", ",
  6530. 847.70 s [opt-env-conf-test] - functionChunk "env",
  6531. 847.70 s [opt-env-conf-test] - ", ",
  6532. 847.70 s [opt-env-conf-test] - functionChunk "conf",
  6533. 847.70 s [opt-env-conf-test] - ", or ",
  6534. 847.70 s [opt-env-conf-test] - functionChunk "value",
  6535. 847.70 s [opt-env-conf-test] - "."
  6536. 847.70 s [opt-env-conf-test] - ]
  6537. 847.70 s [opt-env-conf-test] - ]
  6538. 847.70 s [opt-env-conf-test] - ]
  6539. 847.70 s [opt-env-conf-test] - LintErrorDashInShort ->
  6540. 847.70 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  6541. 847.70 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  6542. 847.70 s [opt-env-conf-test] - ]
  6543. 847.70 s [opt-env-conf-test] - LintErrorDashInLong s ->
  6544. 847.70 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  6545. 847.70 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  6546. 847.70 s [opt-env-conf-test] - [ "Try ",
  6547. 847.70 s [opt-env-conf-test] - functionChunk "long",
  6548. 847.70 s [opt-env-conf-test] - " ",
  6549. 847.70 s [opt-env-conf-test] - chunk $
  6550. 847.70 s [opt-env-conf-test] - T.pack $
  6551. 847.70 s [opt-env-conf-test] - show $
  6552. 847.70 s [opt-env-conf-test] - let go = \case
  6553. 847.70 s [opt-env-conf-test] - [] -> []
  6554. 847.70 s [opt-env-conf-test] - '-' : cs -> go cs
  6555. 847.70 s [opt-env-conf-test] - c : cs -> c : cs
  6556. 847.70 s [opt-env-conf-test] - in go $ NE.toList s,
  6557. 847.70 s [opt-env-conf-test] - " instead."
  6558. 847.70 s [opt-env-conf-test] - ]
  6559. 847.70 s [opt-env-conf-test] - ]
  6560. 847.70 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  6561. 847.70 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6562. 847.70 s [opt-env-conf-test] - " has no ",
  6563. 847.70 s [opt-env-conf-test] - functionChunk "reader",
  6564. 847.70 s [opt-env-conf-test] - "."
  6565. 847.70 s [opt-env-conf-test] - ]
  6566. 847.70 s [opt-env-conf-test] - ]
  6567. 847.70 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  6568. 847.70 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6569. 847.70 s [opt-env-conf-test] - " has no ",
  6570. 847.70 s [opt-env-conf-test] - functionChunk "metavar",
  6571. 847.70 s [opt-env-conf-test] - "."
  6572. 847.70 s [opt-env-conf-test] - ]
  6573. 847.70 s [opt-env-conf-test] - ]
  6574. 847.70 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  6575. 847.70 s [opt-env-conf-test] - [ [ functionChunk "option",
  6576. 847.70 s [opt-env-conf-test] - " or ",
  6577. 847.70 s [opt-env-conf-test] - functionChunk "name",
  6578. 847.70 s [opt-env-conf-test] - " has no ",
  6579. 847.70 s [opt-env-conf-test] - functionChunk "reader",
  6580. 847.70 s [opt-env-conf-test] - "."
  6581. 847.70 s [opt-env-conf-test] - ]
  6582. 847.70 s [opt-env-conf-test] - ]
  6583. 847.70 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  6584. 847.70 s [opt-env-conf-test] - [ [ functionChunk "option",
  6585. 847.70 s [opt-env-conf-test] - " has no ",
  6586. 847.70 s [opt-env-conf-test] - functionChunk "long",
  6587. 847.70 s [opt-env-conf-test] - " or ",
  6588. 847.70 s [opt-env-conf-test] - functionChunk "short",
  6589. 847.70 s [opt-env-conf-test] - "."
  6590. 847.70 s [opt-env-conf-test] - ]
  6591. 847.70 s [opt-env-conf-test] - ]
  6592. 847.70 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  6593. 847.70 s [opt-env-conf-test] - [ [ functionChunk "option",
  6594. 847.70 s [opt-env-conf-test] - " or ",
  6595. 847.70 s [opt-env-conf-test] - functionChunk "name",
  6596. 847.70 s [opt-env-conf-test] - " has no ",
  6597. 847.70 s [opt-env-conf-test] - functionChunk "metavar",
  6598. 847.70 s [opt-env-conf-test] - "."
  6599. 847.70 s [opt-env-conf-test] - ]
  6600. 847.70 s [opt-env-conf-test] - ]
  6601. 847.70 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  6602. 847.70 s [opt-env-conf-test] - [ [ functionChunk "switch",
  6603. 847.70 s [opt-env-conf-test] - " has no ",
  6604. 847.70 s [opt-env-conf-test] - functionChunk "long",
  6605. 847.70 s [opt-env-conf-test] - " or ",
  6606. 847.70 s [opt-env-conf-test] - functionChunk "short",
  6607. 847.70 s [opt-env-conf-test] - "."
  6608. 847.70 s [opt-env-conf-test] - ]
  6609. 847.70 s [opt-env-conf-test] - ]
  6610. 847.70 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  6611. 847.70 s [opt-env-conf-test] - [ [ functionChunk "long",
  6612. 847.70 s [opt-env-conf-test] - " or ",
  6613. 847.70 s [opt-env-conf-test] - functionChunk "short",
  6614. 847.70 s [opt-env-conf-test] - " has no ",
  6615. 847.70 s [opt-env-conf-test] - functionChunk "option",
  6616. 847.70 s [opt-env-conf-test] - " or ",
  6617. 847.70 s [opt-env-conf-test] - functionChunk "switch",
  6618. 847.70 s [opt-env-conf-test] - "."
  6619. 847.70 s [opt-env-conf-test] - ]
  6620. 847.70 s [opt-env-conf-test] - ]
  6621. 847.70 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  6622. 847.70 s [opt-env-conf-test] - [ [ functionChunk "env",
  6623. 847.70 s [opt-env-conf-test] - " or ",
  6624. 847.70 s [opt-env-conf-test] - functionChunk "name",
  6625. 847.70 s [opt-env-conf-test] - " has no ",
  6626. 847.70 s [opt-env-conf-test] - functionChunk "reader",
  6627. 847.70 s [opt-env-conf-test] - "."
  6628. 847.70 s [opt-env-conf-test] - ]
  6629. 847.71 s [opt-env-conf-test] - ]
  6630. 847.71 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  6631. 847.71 s [opt-env-conf-test] - [ [ functionChunk "env",
  6632. 847.71 s [opt-env-conf-test] - " or ",
  6633. 847.71 s [opt-env-conf-test] - functionChunk "name",
  6634. 847.71 s [opt-env-conf-test] - " has no ",
  6635. 847.71 s [opt-env-conf-test] - functionChunk "metavar",
  6636. 847.71 s [opt-env-conf-test] - "."
  6637. 847.71 s [opt-env-conf-test] - ]
  6638. 847.71 s [opt-env-conf-test] - ]
  6639. 847.71 s [opt-env-conf-test] - LintErrorNoCommands ->
  6640. 847.71 s [opt-env-conf-test] - [ [ functionChunk "commands",
  6641. 847.71 s [opt-env-conf-test] - " was called with an empty list."
  6642. 847.71 s [opt-env-conf-test] - ]
  6643. 847.71 s [opt-env-conf-test] - ]
  6644. 847.71 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  6645. 847.71 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  6646. 847.71 s [opt-env-conf-test] - " was called with an unknown command: ",
  6647. 847.71 s [opt-env-conf-test] - commandChunk c
  6648. 847.71 s [opt-env-conf-test] - ]
  6649. 847.71 s [opt-env-conf-test] - ]
  6650. 847.71 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  6651. 847.71 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  6652. 847.71 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  6653. 847.71 s [opt-env-conf-test] - ]
  6654. 847.71 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  6655. 847.71 s [opt-env-conf-test] - [ [ functionChunk "conf",
  6656. 847.71 s [opt-env-conf-test] - " or ",
  6657. 847.71 s [opt-env-conf-test] - functionChunk "name",
  6658. 847.71 s [opt-env-conf-test] - " was called with no way to load configuration."
  6659. 847.71 s [opt-env-conf-test] - ],
  6660. 847.71 s [opt-env-conf-test] - [ "You can load configuration with ",
  6661. 847.71 s [opt-env-conf-test] - functionChunk "withConfig",
  6662. 847.71 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  6663. 847.71 s [opt-env-conf-test] - functionChunk "withoutConfig",
  6664. 847.71 s [opt-env-conf-test] - "."
  6665. 847.71 s [opt-env-conf-test] - ]
  6666. 847.71 s [opt-env-conf-test] - ]
  6667. 847.71 s [opt-env-conf-test] - LintErrorManyInfinite ->
  6668. 847.71 s [opt-env-conf-test] - [ [ functionChunk "many",
  6669. 847.71 s [opt-env-conf-test] - " or ",
  6670. 847.71 s [opt-env-conf-test] - functionChunk "some",
  6671. 847.71 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  6672. 847.71 s [opt-env-conf-test] - ],
  6673. 847.71 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  6674. 847.71 s [opt-env-conf-test] - ],
  6675. 847.71 s [opt-env-conf-test] + case lintErrorMessage of
  6676. 847.71 s [opt-env-conf-test] + LintErrorUndocumented ->
  6677. 847.71 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  6678. 847.71 s [opt-env-conf-test] + LintErrorEmptySetting ->
  6679. 847.71 s [opt-env-conf-test] + concat
  6680. 847.71 s [opt-env-conf-test] + [ [ [ "This ",
  6681. 847.71 s [opt-env-conf-test] + functionChunk "setting",
  6682. 847.71 s [opt-env-conf-test] + " parses nothing."
  6683. 847.71 s [opt-env-conf-test] + ]
  6684. 847.71 s [opt-env-conf-test] + ],
  6685. 847.71 s [opt-env-conf-test] + [ [ "Add an ",
  6686. 847.71 s [opt-env-conf-test] + functionChunk "argument",
  6687. 847.71 s [opt-env-conf-test] + ", ",
  6688. 847.71 s [opt-env-conf-test] + functionChunk "switch",
  6689. 847.71 s [opt-env-conf-test] + ", ",
  6690. 847.71 s [opt-env-conf-test] + functionChunk "option",
  6691. 847.71 s [opt-env-conf-test] + ", ",
  6692. 847.71 s [opt-env-conf-test] + functionChunk "env",
  6693. 847.71 s [opt-env-conf-test] + ", ",
  6694. 847.71 s [opt-env-conf-test] + functionChunk "conf",
  6695. 847.71 s [opt-env-conf-test] + ", or ",
  6696. 847.71 s [opt-env-conf-test] + functionChunk "value",
  6697. 847.71 s [opt-env-conf-test] + "."
  6698. 847.71 s [opt-env-conf-test] + ]
  6699. 847.71 s [opt-env-conf-test] + ]
  6700. 847.71 s [opt-env-conf-test] + ]
  6701. 847.71 s [opt-env-conf-test] + LintErrorDashInShort ->
  6702. 847.71 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  6703. 847.71 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  6704. 847.71 s [opt-env-conf-test] + ]
  6705. 847.71 s [opt-env-conf-test] + LintErrorDashInLong s ->
  6706. 847.71 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  6707. 847.71 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  6708. 847.71 s [opt-env-conf-test] + [ "Try ",
  6709. 847.71 s [opt-env-conf-test] + functionChunk "long",
  6710. 847.71 s [opt-env-conf-test] + " ",
  6711. 847.71 s [opt-env-conf-test] + chunk $
  6712. 847.71 s [opt-env-conf-test] + T.pack $
  6713. 847.71 s [opt-env-conf-test] + show $
  6714. 847.71 s [opt-env-conf-test] + let go = \case
  6715. 847.71 s [opt-env-conf-test] + [] -> []
  6716. 847.71 s [opt-env-conf-test] + '-' : cs -> go cs
  6717. 847.71 s [opt-env-conf-test] + c : cs -> c : cs
  6718. 847.71 s [opt-env-conf-test] + in go $ NE.toList s,
  6719. 847.71 s [opt-env-conf-test] + " instead."
  6720. 847.71 s [opt-env-conf-test] + ]
  6721. 847.71 s [opt-env-conf-test] + ]
  6722. 847.71 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  6723. 847.71 s [opt-env-conf-test] + [ [ functionChunk "argument",
  6724. 847.71 s [opt-env-conf-test] + " has no ",
  6725. 847.71 s [opt-env-conf-test] + functionChunk "reader",
  6726. 847.71 s [opt-env-conf-test] + "."
  6727. 847.71 s [opt-env-conf-test] + ]
  6728. 847.71 s [opt-env-conf-test] + ]
  6729. 847.71 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  6730. 847.71 s [opt-env-conf-test] + [ [ functionChunk "argument",
  6731. 847.71 s [opt-env-conf-test] + " has no ",
  6732. 847.71 s [opt-env-conf-test] + functionChunk "metavar",
  6733. 847.71 s [opt-env-conf-test] + "."
  6734. 847.71 s [opt-env-conf-test] + ]
  6735. 847.71 s [opt-env-conf-test] + ]
  6736. 847.71 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  6737. 847.71 s [opt-env-conf-test] + [ [ functionChunk "option",
  6738. 847.71 s [opt-env-conf-test] + " or ",
  6739. 847.71 s [opt-env-conf-test] + functionChunk "name",
  6740. 847.71 s [opt-env-conf-test] + " has no ",
  6741. 847.71 s [opt-env-conf-test] + functionChunk "reader",
  6742. 847.71 s [opt-env-conf-test] + "."
  6743. 847.71 s [opt-env-conf-test] + ]
  6744. 847.71 s [opt-env-conf-test] + ]
  6745. 847.71 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  6746. 847.71 s [opt-env-conf-test] + [ [ functionChunk "option",
  6747. 847.71 s [opt-env-conf-test] + " has no ",
  6748. 847.71 s [opt-env-conf-test] + functionChunk "long",
  6749. 847.71 s [opt-env-conf-test] + " or ",
  6750. 847.71 s [opt-env-conf-test] + functionChunk "short",
  6751. 847.71 s [opt-env-conf-test] + "."
  6752. 847.71 s [opt-env-conf-test] + ]
  6753. 847.71 s [opt-env-conf-test] + ]
  6754. 847.71 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  6755. 847.98 s [opt-env-conf-test] + [ [ functionChunk "option",
  6756. 847.98 s [opt-env-conf-test] + " or ",
  6757. 847.98 s [opt-env-conf-test] + functionChunk "name",
  6758. 847.98 s [opt-env-conf-test] + " has no ",
  6759. 847.98 s [opt-env-conf-test] + functionChunk "metavar",
  6760. 847.98 s [opt-env-conf-test] + "."
  6761. 847.98 s [opt-env-conf-test] + ]
  6762. 847.98 s [opt-env-conf-test] + ]
  6763. 847.98 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  6764. 847.98 s [opt-env-conf-test] + [ [ functionChunk "switch",
  6765. 847.98 s [opt-env-conf-test] + " has no ",
  6766. 847.98 s [opt-env-conf-test] + functionChunk "long",
  6767. 847.98 s [opt-env-conf-test] + " or ",
  6768. 847.98 s [opt-env-conf-test] + functionChunk "short",
  6769. 847.98 s [opt-env-conf-test] + "."
  6770. 847.98 s [opt-env-conf-test] + ]
  6771. 847.98 s [opt-env-conf-test] + ]
  6772. 847.98 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  6773. 847.98 s [opt-env-conf-test] + [ [ functionChunk "long",
  6774. 847.98 s [opt-env-conf-test] + " or ",
  6775. 847.98 s [opt-env-conf-test] + functionChunk "short",
  6776. 847.98 s [opt-env-conf-test] + " has no ",
  6777. 847.98 s [opt-env-conf-test] + functionChunk "option",
  6778. 847.98 s [opt-env-conf-test] + " or ",
  6779. 847.98 s [opt-env-conf-test] + functionChunk "switch",
  6780. 847.98 s [opt-env-conf-test] + "."
  6781. 847.98 s [opt-env-conf-test] + ]
  6782. 847.98 s [opt-env-conf-test] + ]
  6783. 847.98 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  6784. 847.98 s [opt-env-conf-test] + [ [ functionChunk "env",
  6785. 847.98 s [opt-env-conf-test] + " or ",
  6786. 847.98 s [opt-env-conf-test] + functionChunk "name",
  6787. 847.98 s [opt-env-conf-test] + " has no ",
  6788. 847.98 s [opt-env-conf-test] + functionChunk "reader",
  6789. 847.98 s [opt-env-conf-test] + "."
  6790. 847.98 s [opt-env-conf-test] + ]
  6791. 847.98 s [opt-env-conf-test] + ]
  6792. 847.98 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  6793. 847.98 s [opt-env-conf-test] + [ [ functionChunk "env",
  6794. 847.99 s [opt-env-conf-test] + " or ",
  6795. 847.99 s [opt-env-conf-test] + functionChunk "name",
  6796. 847.99 s [opt-env-conf-test] + " has no ",
  6797. 847.99 s [opt-env-conf-test] + functionChunk "metavar",
  6798. 847.99 s [opt-env-conf-test] + "."
  6799. 847.99 s [opt-env-conf-test] + ]
  6800. 847.99 s [opt-env-conf-test] + ]
  6801. 847.99 s [opt-env-conf-test] + LintErrorNoCommands ->
  6802. 847.99 s [opt-env-conf-test] + [ [ functionChunk "commands",
  6803. 847.99 s [opt-env-conf-test] + " was called with an empty list."
  6804. 847.99 s [opt-env-conf-test] + ]
  6805. 847.99 s [opt-env-conf-test] + ]
  6806. 847.99 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  6807. 847.99 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  6808. 847.99 s [opt-env-conf-test] + " was called with an unknown command: ",
  6809. 847.99 s [opt-env-conf-test] + commandChunk c
  6810. 847.99 s [opt-env-conf-test] + ]
  6811. 847.99 s [opt-env-conf-test] + ]
  6812. 847.99 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  6813. 847.99 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  6814. 847.99 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  6815. 847.99 s [opt-env-conf-test] + ]
  6816. 847.99 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  6817. 847.99 s [opt-env-conf-test] + [ [ functionChunk "conf",
  6818. 847.99 s [opt-env-conf-test] + " or ",
  6819. 847.99 s [opt-env-conf-test] + functionChunk "name",
  6820. 847.99 s [opt-env-conf-test] + " was called with no way to load configuration."
  6821. 847.99 s [opt-env-conf-test] + ],
  6822. 847.99 s [opt-env-conf-test] + [ "You can load configuration with ",
  6823. 847.99 s [opt-env-conf-test] + functionChunk "withConfig",
  6824. 847.99 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  6825. 847.99 s [opt-env-conf-test] + functionChunk "withoutConfig",
  6826. 847.99 s [opt-env-conf-test] + "."
  6827. 847.99 s [opt-env-conf-test] + ]
  6828. 847.99 s [opt-env-conf-test] + ]
  6829. 847.99 s [opt-env-conf-test] + LintErrorManyInfinite ->
  6830. 847.99 s [opt-env-conf-test] + [ [ functionChunk "many",
  6831. 847.99 s [opt-env-conf-test] + " or ",
  6832. 847.99 s [opt-env-conf-test] + functionChunk "some",
  6833. 847.99 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  6834. 847.99 s [opt-env-conf-test] + ],
  6835. 847.99 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  6836. 847.99 s [opt-env-conf-test] + ],
  6837. 847.99 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  6838. 847.99 s [opt-env-conf-test] ]
  6839. 847.99 s [opt-env-conf-test]
  6840. 847.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  6841. 847.99 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  6842. 847.99 s [opt-env-conf-test] renderLintError LintError {..} =
  6843. 847.99 s [opt-env-conf-test] concat
  6844. 847.99 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  6845. 847.99 s [opt-env-conf-test] - case lintErrorMessage of
  6846. 847.99 s [opt-env-conf-test] - LintErrorUndocumented ->
  6847. 847.99 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  6848. 847.99 s [opt-env-conf-test] - LintErrorEmptySetting ->
  6849. 847.99 s [opt-env-conf-test] - concat
  6850. 847.99 s [opt-env-conf-test] - [ [ [ "This ",
  6851. 847.99 s [opt-env-conf-test] - functionChunk "setting",
  6852. 847.99 s [opt-env-conf-test] - " parses nothing."
  6853. 847.99 s [opt-env-conf-test] - ]
  6854. 847.99 s [opt-env-conf-test] - ],
  6855. 847.99 s [opt-env-conf-test] - [ [ "Add an ",
  6856. 847.99 s [opt-env-conf-test] - functionChunk "argument",
  6857. 847.99 s [opt-env-conf-test] - ", ",
  6858. 847.99 s [opt-env-conf-test] - functionChunk "switch",
  6859. 847.99 s [opt-env-conf-test] - ", ",
  6860. 847.99 s [opt-env-conf-test] - functionChunk "option",
  6861. 847.99 s [opt-env-conf-test] - ", ",
  6862. 847.99 s [opt-env-conf-test] - functionChunk "env",
  6863. 847.99 s [opt-env-conf-test] - ", ",
  6864. 847.99 s [opt-env-conf-test] - functionChunk "conf",
  6865. 847.99 s [opt-env-conf-test] - ", or ",
  6866. 847.99 s [opt-env-conf-test] - functionChunk "value",
  6867. 847.99 s [opt-env-conf-test] - "."
  6868. 847.99 s [opt-env-conf-test] - ]
  6869. 847.99 s [opt-env-conf-test] - ]
  6870. 847.99 s [opt-env-conf-test] - ]
  6871. 847.99 s [opt-env-conf-test] - LintErrorDashInShort ->
  6872. 847.99 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  6873. 847.99 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  6874. 847.99 s [opt-env-conf-test] - ]
  6875. 847.99 s [opt-env-conf-test] - LintErrorDashInLong s ->
  6876. 847.99 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  6877. 847.99 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  6878. 847.99 s [opt-env-conf-test] - [ "Try ",
  6879. 847.99 s [opt-env-conf-test] - functionChunk "long",
  6880. 847.99 s [opt-env-conf-test] - " ",
  6881. 847.99 s [opt-env-conf-test] - chunk $
  6882. 847.99 s [opt-env-conf-test] - T.pack $
  6883. 847.99 s [opt-env-conf-test] - show $
  6884. 847.99 s [opt-env-conf-test] - let go = \case
  6885. 847.99 s [opt-env-conf-test] - [] -> []
  6886. 847.99 s [opt-env-conf-test] - '-' : cs -> go cs
  6887. 847.99 s [opt-env-conf-test] - c : cs -> c : cs
  6888. 847.99 s [opt-env-conf-test] - in go $ NE.toList s,
  6889. 847.99 s [opt-env-conf-test] - " instead."
  6890. 847.99 s [opt-env-conf-test] - ]
  6891. 848.00 s [opt-env-conf-test] - ]
  6892. 848.00 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  6893. 848.00 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6894. 848.00 s [opt-env-conf-test] - " has no ",
  6895. 848.00 s [opt-env-conf-test] - functionChunk "reader",
  6896. 848.00 s [opt-env-conf-test] - "."
  6897. 848.00 s [opt-env-conf-test] - ]
  6898. 848.00 s [opt-env-conf-test] - ]
  6899. 848.00 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  6900. 848.00 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6901. 848.00 s [opt-env-conf-test] - " has no ",
  6902. 848.00 s [opt-env-conf-test] - functionChunk "metavar",
  6903. 848.00 s [opt-env-conf-test] - "."
  6904. 848.00 s [opt-env-conf-test] - ]
  6905. 848.00 s [opt-env-conf-test] - ]
  6906. 848.00 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  6907. 848.00 s [opt-env-conf-test] - [ [ functionChunk "option",
  6908. 848.00 s [opt-env-conf-test] - " or ",
  6909. 848.00 s [opt-env-conf-test] - functionChunk "name",
  6910. 848.00 s [opt-env-conf-test] - " has no ",
  6911. 848.00 s [opt-env-conf-test] - functionChunk "reader",
  6912. 848.00 s [opt-env-conf-test] - "."
  6913. 848.00 s [opt-env-conf-test] - ]
  6914. 848.00 s [opt-env-conf-test] - ]
  6915. 848.00 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  6916. 848.00 s [opt-env-conf-test] - [ [ functionChunk "option",
  6917. 848.00 s [opt-env-conf-test] - " has no ",
  6918. 848.00 s [opt-env-conf-test] - functionChunk "long",
  6919. 848.00 s [opt-env-conf-test] - " or ",
  6920. 848.00 s [opt-env-conf-test] - functionChunk "short",
  6921. 848.00 s [opt-env-conf-test] - "."
  6922. 848.00 s [opt-env-conf-test] - ]
  6923. 848.00 s [opt-env-conf-test] - ]
  6924. 848.00 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  6925. 848.00 s [opt-env-conf-test] - [ [ functionChunk "option",
  6926. 848.00 s [opt-env-conf-test] - " or ",
  6927. 848.00 s [opt-env-conf-test] - functionChunk "name",
  6928. 848.00 s [opt-env-conf-test] - " has no ",
  6929. 848.00 s [opt-env-conf-test] - functionChunk "metavar",
  6930. 848.00 s [opt-env-conf-test] - "."
  6931. 848.00 s [opt-env-conf-test] - ]
  6932. 848.00 s [opt-env-conf-test] - ]
  6933. 848.00 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  6934. 848.00 s [opt-env-conf-test] - [ [ functionChunk "switch",
  6935. 848.00 s [opt-env-conf-test] - " has no ",
  6936. 848.00 s [opt-env-conf-test] - functionChunk "long",
  6937. 848.00 s [opt-env-conf-test] - " or ",
  6938. 848.00 s [opt-env-conf-test] - functionChunk "short",
  6939. 848.00 s [opt-env-conf-test] - "."
  6940. 848.00 s [opt-env-conf-test] - ]
  6941. 848.00 s [opt-env-conf-test] - ]
  6942. 848.00 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  6943. 848.00 s [opt-env-conf-test] - [ [ functionChunk "long",
  6944. 848.00 s [opt-env-conf-test] - " or ",
  6945. 848.00 s [opt-env-conf-test] - functionChunk "short",
  6946. 848.00 s [opt-env-conf-test] - " has no ",
  6947. 848.00 s [opt-env-conf-test] - functionChunk "option",
  6948. 848.00 s [opt-env-conf-test] - " or ",
  6949. 848.00 s [opt-env-conf-test] - functionChunk "switch",
  6950. 848.00 s [opt-env-conf-test] - "."
  6951. 848.00 s [opt-env-conf-test] - ]
  6952. 848.00 s [opt-env-conf-test] - ]
  6953. 848.00 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  6954. 848.00 s [opt-env-conf-test] - [ [ functionChunk "env",
  6955. 848.00 s [opt-env-conf-test] - " or ",
  6956. 848.00 s [opt-env-conf-test] - functionChunk "name",
  6957. 848.00 s [opt-env-conf-test] - " has no ",
  6958. 848.00 s [opt-env-conf-test] - functionChunk "reader",
  6959. 848.00 s [opt-env-conf-test] - "."
  6960. 848.00 s [opt-env-conf-test] - ]
  6961. 848.00 s [opt-env-conf-test] - ]
  6962. 848.00 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  6963. 848.00 s [opt-env-conf-test] - [ [ functionChunk "env",
  6964. 848.00 s [opt-env-conf-test] - " or ",
  6965. 848.00 s [opt-env-conf-test] - functionChunk "name",
  6966. 848.00 s [opt-env-conf-test] - " has no ",
  6967. 848.00 s [opt-env-conf-test] - functionChunk "metavar",
  6968. 848.00 s [opt-env-conf-test] - "."
  6969. 848.00 s [opt-env-conf-test] - ]
  6970. 848.00 s [opt-env-conf-test] - ]
  6971. 848.00 s [opt-env-conf-test] - LintErrorNoCommands ->
  6972. 848.00 s [opt-env-conf-test] - [ [ functionChunk "commands",
  6973. 848.00 s [opt-env-conf-test] - " was called with an empty list."
  6974. 848.00 s [opt-env-conf-test] - ]
  6975. 848.00 s [opt-env-conf-test] - ]
  6976. 848.00 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  6977. 848.00 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  6978. 848.00 s [opt-env-conf-test] - " was called with an unknown command: ",
  6979. 848.00 s [opt-env-conf-test] - commandChunk c
  6980. 848.00 s [opt-env-conf-test] - ]
  6981. 848.00 s [opt-env-conf-test] - ]
  6982. 848.00 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  6983. 848.00 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  6984. 848.00 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  6985. 848.00 s [opt-env-conf-test] - ]
  6986. 848.00 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  6987. 848.00 s [opt-env-conf-test] - [ [ functionChunk "conf",
  6988. 848.00 s [opt-env-conf-test] - " or ",
  6989. 848.00 s [opt-env-conf-test] - functionChunk "name",
  6990. 848.00 s [opt-env-conf-test] - " was called with no way to load configuration."
  6991. 848.00 s [opt-env-conf-test] - ],
  6992. 848.00 s [opt-env-conf-test] - [ "You can load configuration with ",
  6993. 848.00 s [opt-env-conf-test] - functionChunk "withConfig",
  6994. 848.00 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  6995. 848.00 s [opt-env-conf-test] - functionChunk "withoutConfig",
  6996. 848.00 s [opt-env-conf-test] - "."
  6997. 848.00 s [opt-env-conf-test] - ]
  6998. 848.01 s [opt-env-conf-test] - ]
  6999. 848.01 s [opt-env-conf-test] - LintErrorManyInfinite ->
  7000. 848.01 s [opt-env-conf-test] - [ [ functionChunk "many",
  7001. 848.01 s [opt-env-conf-test] - " or ",
  7002. 848.01 s [opt-env-conf-test] - functionChunk "some",
  7003. 848.01 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  7004. 848.01 s [opt-env-conf-test] - ],
  7005. 848.01 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  7006. 848.01 s [opt-env-conf-test] - ],
  7007. 848.01 s [opt-env-conf-test] + case lintErrorMessage of
  7008. 848.01 s [opt-env-conf-test] + LintErrorUndocumented ->
  7009. 848.29 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  7010. 848.29 s [opt-env-conf-test] + LintErrorEmptySetting ->
  7011. 848.29 s [opt-env-conf-test] + concat
  7012. 848.29 s [opt-env-conf-test] + [ [ [ "This ",
  7013. 848.29 s [opt-env-conf-test] + functionChunk "setting",
  7014. 848.29 s [opt-env-conf-test] + " parses nothing."
  7015. 848.29 s [opt-env-conf-test] + ]
  7016. 848.30 s [opt-env-conf-test] + ],
  7017. 848.30 s [opt-env-conf-test] + [ [ "Add an ",
  7018. 848.30 s [opt-env-conf-test] + functionChunk "argument",
  7019. 848.30 s [opt-env-conf-test] + ", ",
  7020. 848.30 s [opt-env-conf-test] + functionChunk "switch",
  7021. 848.30 s [opt-env-conf-test] + ", ",
  7022. 848.30 s [opt-env-conf-test] + functionChunk "option",
  7023. 848.30 s [opt-env-conf-test] + ", ",
  7024. 848.30 s [opt-env-conf-test] + functionChunk "env",
  7025. 848.30 s [opt-env-conf-test] + ", ",
  7026. 848.30 s [opt-env-conf-test] + functionChunk "conf",
  7027. 848.30 s [opt-env-conf-test] + ", or ",
  7028. 848.30 s [opt-env-conf-test] + functionChunk "value",
  7029. 848.30 s [opt-env-conf-test] + "."
  7030. 848.30 s [opt-env-conf-test] + ]
  7031. 848.30 s [opt-env-conf-test] + ]
  7032. 848.30 s [opt-env-conf-test] + ]
  7033. 848.30 s [opt-env-conf-test] + LintErrorDashInShort ->
  7034. 848.30 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  7035. 848.30 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  7036. 848.30 s [opt-env-conf-test] + ]
  7037. 848.30 s [opt-env-conf-test] + LintErrorDashInLong s ->
  7038. 848.30 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  7039. 848.30 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  7040. 848.30 s [opt-env-conf-test] + [ "Try ",
  7041. 848.30 s [opt-env-conf-test] + functionChunk "long",
  7042. 848.30 s [opt-env-conf-test] + " ",
  7043. 848.30 s [opt-env-conf-test] + chunk $
  7044. 848.30 s [opt-env-conf-test] + T.pack $
  7045. 848.30 s [opt-env-conf-test] + show $
  7046. 848.30 s [opt-env-conf-test] + let go = \case
  7047. 848.30 s [opt-env-conf-test] + [] -> []
  7048. 848.30 s [opt-env-conf-test] + '-' : cs -> go cs
  7049. 848.30 s [opt-env-conf-test] + c : cs -> c : cs
  7050. 848.30 s [opt-env-conf-test] + in go $ NE.toList s,
  7051. 848.30 s [opt-env-conf-test] + " instead."
  7052. 848.30 s [opt-env-conf-test] + ]
  7053. 848.30 s [opt-env-conf-test] + ]
  7054. 848.30 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  7055. 848.30 s [opt-env-conf-test] + [ [ functionChunk "argument",
  7056. 848.30 s [opt-env-conf-test] + " has no ",
  7057. 848.30 s [opt-env-conf-test] + functionChunk "reader",
  7058. 848.30 s [opt-env-conf-test] + "."
  7059. 848.30 s [opt-env-conf-test] + ]
  7060. 848.30 s [opt-env-conf-test] + ]
  7061. 848.30 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  7062. 848.30 s [opt-env-conf-test] + [ [ functionChunk "argument",
  7063. 848.30 s [opt-env-conf-test] + " has no ",
  7064. 848.30 s [opt-env-conf-test] + functionChunk "metavar",
  7065. 848.30 s [opt-env-conf-test] + "."
  7066. 848.30 s [opt-env-conf-test] + ]
  7067. 848.30 s [opt-env-conf-test] + ]
  7068. 848.30 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  7069. 848.30 s [opt-env-conf-test] + [ [ functionChunk "option",
  7070. 848.30 s [opt-env-conf-test] + " or ",
  7071. 848.30 s [opt-env-conf-test] + functionChunk "name",
  7072. 848.30 s [opt-env-conf-test] + " has no ",
  7073. 848.30 s [opt-env-conf-test] + functionChunk "reader",
  7074. 848.30 s [opt-env-conf-test] + "."
  7075. 848.30 s [opt-env-conf-test] + ]
  7076. 848.30 s [opt-env-conf-test] + ]
  7077. 848.30 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  7078. 848.30 s [opt-env-conf-test] + [ [ functionChunk "option",
  7079. 848.30 s [opt-env-conf-test] + " has no ",
  7080. 848.30 s [opt-env-conf-test] + functionChunk "long",
  7081. 848.30 s [opt-env-conf-test] + " or ",
  7082. 848.31 s [opt-env-conf-test] + functionChunk "short",
  7083. 848.31 s [opt-env-conf-test] + "."
  7084. 848.31 s [opt-env-conf-test] + ]
  7085. 848.31 s [opt-env-conf-test] + ]
  7086. 848.31 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  7087. 848.31 s [opt-env-conf-test] + [ [ functionChunk "option",
  7088. 848.31 s [opt-env-conf-test] + " or ",
  7089. 848.31 s [opt-env-conf-test] + functionChunk "name",
  7090. 848.31 s [opt-env-conf-test] + " has no ",
  7091. 848.31 s [opt-env-conf-test] + functionChunk "metavar",
  7092. 848.31 s [opt-env-conf-test] + "."
  7093. 848.31 s [opt-env-conf-test] + ]
  7094. 848.31 s [opt-env-conf-test] + ]
  7095. 848.31 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  7096. 848.31 s [opt-env-conf-test] + [ [ functionChunk "switch",
  7097. 848.31 s [opt-env-conf-test] + " has no ",
  7098. 848.31 s [opt-env-conf-test] + functionChunk "long",
  7099. 848.31 s [opt-env-conf-test] + " or ",
  7100. 848.31 s [opt-env-conf-test] + functionChunk "short",
  7101. 848.31 s [opt-env-conf-test] + "."
  7102. 848.31 s [opt-env-conf-test] + ]
  7103. 848.31 s [opt-env-conf-test] + ]
  7104. 848.31 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  7105. 848.31 s [opt-env-conf-test] + [ [ functionChunk "long",
  7106. 848.31 s [opt-env-conf-test] + " or ",
  7107. 848.31 s [opt-env-conf-test] + functionChunk "short",
  7108. 848.31 s [opt-env-conf-test] + " has no ",
  7109. 848.31 s [opt-env-conf-test] + functionChunk "option",
  7110. 848.31 s [opt-env-conf-test] + " or ",
  7111. 848.31 s [opt-env-conf-test] + functionChunk "switch",
  7112. 848.31 s [opt-env-conf-test] + "."
  7113. 848.31 s [opt-env-conf-test] + ]
  7114. 848.31 s [opt-env-conf-test] + ]
  7115. 848.31 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  7116. 848.31 s [opt-env-conf-test] + [ [ functionChunk "env",
  7117. 848.31 s [opt-env-conf-test] + " or ",
  7118. 848.31 s [opt-env-conf-test] + functionChunk "name",
  7119. 848.31 s [opt-env-conf-test] + " has no ",
  7120. 848.31 s [opt-env-conf-test] + functionChunk "reader",
  7121. 848.31 s [opt-env-conf-test] + "."
  7122. 848.31 s [opt-env-conf-test] + ]
  7123. 848.31 s [opt-env-conf-test] + ]
  7124. 848.31 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  7125. 848.31 s [opt-env-conf-test] + [ [ functionChunk "env",
  7126. 848.31 s [opt-env-conf-test] + " or ",
  7127. 848.31 s [opt-env-conf-test] + functionChunk "name",
  7128. 848.31 s [opt-env-conf-test] + " has no ",
  7129. 848.31 s [opt-env-conf-test] + functionChunk "metavar",
  7130. 848.31 s [opt-env-conf-test] + "."
  7131. 848.31 s [opt-env-conf-test] + ]
  7132. 848.31 s [opt-env-conf-test] + ]
  7133. 848.31 s [opt-env-conf-test] + LintErrorNoCommands ->
  7134. 848.31 s [opt-env-conf-test] + [ [ functionChunk "commands",
  7135. 848.31 s [opt-env-conf-test] + " was called with an empty list."
  7136. 848.31 s [opt-env-conf-test] + ]
  7137. 848.31 s [opt-env-conf-test] + ]
  7138. 848.31 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  7139. 848.31 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  7140. 848.31 s [opt-env-conf-test] + " was called with an unknown command: ",
  7141. 848.31 s [opt-env-conf-test] + commandChunk c
  7142. 848.31 s [opt-env-conf-test] + ]
  7143. 848.31 s [opt-env-conf-test] + ]
  7144. 848.31 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  7145. 848.31 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  7146. 848.31 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  7147. 848.31 s [opt-env-conf-test] + ]
  7148. 848.31 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  7149. 848.31 s [opt-env-conf-test] + [ [ functionChunk "conf",
  7150. 848.31 s [opt-env-conf-test] + " or ",
  7151. 848.31 s [opt-env-conf-test] + functionChunk "name",
  7152. 848.31 s [opt-env-conf-test] + " was called with no way to load configuration."
  7153. 848.31 s [opt-env-conf-test] + ],
  7154. 848.31 s [opt-env-conf-test] + [ "You can load configuration with ",
  7155. 848.31 s [opt-env-conf-test] + functionChunk "withConfig",
  7156. 848.31 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  7157. 848.31 s [opt-env-conf-test] + functionChunk "withoutConfig",
  7158. 848.31 s [opt-env-conf-test] + "."
  7159. 848.31 s [opt-env-conf-test] + ]
  7160. 848.31 s [opt-env-conf-test] + ]
  7161. 848.31 s [opt-env-conf-test] + LintErrorManyInfinite ->
  7162. 848.31 s [opt-env-conf-test] + [ [ functionChunk "many",
  7163. 848.31 s [opt-env-conf-test] + " or ",
  7164. 848.31 s [opt-env-conf-test] + functionChunk "some",
  7165. 848.31 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  7166. 848.32 s [opt-env-conf-test] + ],
  7167. 848.32 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  7168. 848.32 s [opt-env-conf-test] + ],
  7169. 848.32 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  7170. 848.32 s [opt-env-conf-test] ]
  7171. 848.32 s [opt-env-conf-test]
  7172. 848.32 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
  7173. 848.32 s [opt-env-conf-test] @@ -238,11 +238,10 @@
  7174. 848.32 s [opt-env-conf-test] help "Render a manpage"
  7175. 848.32 s [opt-env-conf-test] ],
  7176. 848.32 s [opt-env-conf-test] setting
  7177. 848.32 s [opt-env-conf-test] - [ switch RenderDocumentation,
  7178. 848.32 s [opt-env-conf-test] - long "render-reference-documentation",
  7179. 848.32 s [opt-env-conf-test] - hidden,
  7180. 848.32 s [opt-env-conf-test] - help "Render reference documentation"
  7181. 848.32 s [opt-env-conf-test] - ],
  7182. 848.32 s [opt-env-conf-test] + [ switch RenderDocumentation,
  7183. 848.32 s [opt-env-conf-test] + long "render-reference-documentation",
  7184. 848.32 s [opt-env-conf-test] + hidden
  7185. 848.32 s [opt-env-conf-test] +],
  7186. 848.32 s [opt-env-conf-test] setting
  7187. 848.32 s [opt-env-conf-test] [ switch RenderNixosOptions,
  7188. 848.32 s [opt-env-conf-test] long "render-nix-options",
  7189. 848.32 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
  7190. 848.32 s [opt-env-conf-test] @@ -232,11 +232,11 @@
  7191. 848.32 s [opt-env-conf-test] hidden
  7192. 848.32 s [opt-env-conf-test] ],
  7193. 848.32 s [opt-env-conf-test] setting
  7194. 848.32 s [opt-env-conf-test] - [ switch RenderMan,
  7195. 848.32 s [opt-env-conf-test] - long "render-man-page",
  7196. 848.32 s [opt-env-conf-test] - hidden,
  7197. 848.32 s [opt-env-conf-test] - help "Render a manpage"
  7198. 848.32 s [opt-env-conf-test] - ],
  7199. 848.32 s [opt-env-conf-test] + [ switch RenderMan,
  7200. 848.32 s [opt-env-conf-test] + long "render-man-page",
  7201. 848.32 s [opt-env-conf-test] + hidden,
  7202. 848.32 s [opt-env-conf-test] + help "Render a manpage"
  7203. 848.32 s [opt-env-conf-test] + ],
  7204. 848.32 s [opt-env-conf-test] setting
  7205. 848.32 s [opt-env-conf-test] [ switch RenderDocumentation,
  7206. 848.32 s [opt-env-conf-test] long "render-reference-documentation",
  7207. 848.32 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
  7208. 848.32 s [opt-env-conf-test] @@ -208,18 +208,7 @@
  7209. 848.32 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  7210. 848.32 s [opt-env-conf-test] ]
  7211. 848.32 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  7212. 848.32 s [opt-env-conf-test] - [ [ functionChunk "conf",
  7213. 848.32 s [opt-env-conf-test] - " or ",
  7214. 848.32 s [opt-env-conf-test] - functionChunk "name",
  7215. 848.32 s [opt-env-conf-test] - " was called with no way to load configuration."
  7216. 848.32 s [opt-env-conf-test] - ],
  7217. 848.32 s [opt-env-conf-test] - [ "You can load configuration with ",
  7218. 848.32 s [opt-env-conf-test] - functionChunk "withConfig",
  7219. 848.32 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  7220. 848.32 s [opt-env-conf-test] - functionChunk "withoutConfig",
  7221. 848.32 s [opt-env-conf-test] - "."
  7222. 848.32 s [opt-env-conf-test] - ]
  7223. 848.32 s [opt-env-conf-test] - ]
  7224. 848.32 s [opt-env-conf-test] + []
  7225. 848.32 s [opt-env-conf-test] LintErrorManyInfinite ->
  7226. 848.32 s [opt-env-conf-test] [ [ functionChunk "many",
  7227. 848.32 s [opt-env-conf-test] " or ",
  7228. 848.32 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  7229. 848.32 s [opt-env-conf-test] @@ -221,11 +221,11 @@
  7230. 848.32 s [opt-env-conf-test] ]
  7231. 848.32 s [opt-env-conf-test] ]
  7232. 848.32 s [opt-env-conf-test] LintErrorManyInfinite ->
  7233. 848.32 s [opt-env-conf-test] - [ [ functionChunk "many",
  7234. 848.32 s [opt-env-conf-test] - " or ",
  7235. 848.32 s [opt-env-conf-test] - functionChunk "some",
  7236. 848.32 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  7237. 848.32 s [opt-env-conf-test] - ],
  7238. 848.32 s [opt-env-conf-test] + [ [ functionChunk "many",
  7239. 848.32 s [opt-env-conf-test] + " or ",
  7240. 848.32 s [opt-env-conf-test] + functionChunk "some",
  7241. 848.32 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  7242. 848.32 s [opt-env-conf-test] + ],
  7243. 848.32 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  7244. 848.32 s [opt-env-conf-test] ],
  7245. 848.32 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  7246. 848.32 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  7247. 848.32 s [opt-env-conf-test] @@ -259,12 +259,7 @@
  7248. 848.32 s [opt-env-conf-test] ],
  7249. 848.32 s [opt-env-conf-test] ZshCompletionScript
  7250. 848.32 s [opt-env-conf-test] <$> setting
  7251. 848.32 s [opt-env-conf-test] - [ option,
  7252. 848.32 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7253. 848.32 s [opt-env-conf-test] - long "zsh-completion-script",
  7254. 848.32 s [opt-env-conf-test] - hidden,
  7255. 848.32 s [opt-env-conf-test] - help "Render the zsh completion script"
  7256. 848.32 s [opt-env-conf-test] - ],
  7257. 848.32 s [opt-env-conf-test] + [],
  7258. 848.32 s [opt-env-conf-test] ZshCompletionScript
  7259. 848.32 s [opt-env-conf-test] <$> setting
  7260. 848.32 s [opt-env-conf-test] [ option,
  7261. 848.32 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
  7262. 848.32 s [opt-env-conf-test] @@ -251,12 +251,11 @@
  7263. 848.32 s [opt-env-conf-test] ],
  7264. 848.32 s [opt-env-conf-test] BashCompletionScript
  7265. 848.32 s [opt-env-conf-test] <$> setting
  7266. 848.40 s [opt-env-conf-test] - [ option,
  7267. 848.40 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7268. 848.40 s [opt-env-conf-test] - long "bash-completion-script",
  7269. 848.40 s [opt-env-conf-test] - hidden,
  7270. 848.40 s [opt-env-conf-test] - help "Render the bash completion script"
  7271. 848.40 s [opt-env-conf-test] - ],
  7272. 848.40 s [opt-env-conf-test] + [ option,
  7273. 848.40 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  7274. 848.40 s [opt-env-conf-test] + long "bash-completion-script",
  7275. 848.40 s [opt-env-conf-test] + hidden
  7276. 848.40 s [opt-env-conf-test] +],
  7277. 848.40 s [opt-env-conf-test] ZshCompletionScript
  7278. 848.40 s [opt-env-conf-test] <$> setting
  7279. 848.40 s [opt-env-conf-test] [ option,
  7280. 848.41 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
  7281. 848.41 s [opt-env-conf-test] @@ -238,11 +238,7 @@
  7282. 848.41 s [opt-env-conf-test] help "Render a manpage"
  7283. 848.41 s [opt-env-conf-test] ],
  7284. 848.41 s [opt-env-conf-test] setting
  7285. 848.41 s [opt-env-conf-test] - [ switch RenderDocumentation,
  7286. 848.41 s [opt-env-conf-test] - long "render-reference-documentation",
  7287. 848.41 s [opt-env-conf-test] - hidden,
  7288. 848.41 s [opt-env-conf-test] - help "Render reference documentation"
  7289. 848.41 s [opt-env-conf-test] - ],
  7290. 848.41 s [opt-env-conf-test] + [],
  7291. 848.41 s [opt-env-conf-test] setting
  7292. 848.41 s [opt-env-conf-test] [ switch RenderNixosOptions,
  7293. 848.41 s [opt-env-conf-test] long "render-nix-options",
  7294. 848.41 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
  7295. 848.41 s [opt-env-conf-test] @@ -244,11 +244,7 @@
  7296. 848.41 s [opt-env-conf-test] help "Render reference documentation"
  7297. 848.41 s [opt-env-conf-test] ],
  7298. 848.41 s [opt-env-conf-test] setting
  7299. 848.41 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  7300. 848.41 s [opt-env-conf-test] - long "render-nix-options",
  7301. 848.41 s [opt-env-conf-test] - hidden,
  7302. 848.41 s [opt-env-conf-test] - help "Render Nix options"
  7303. 848.41 s [opt-env-conf-test] - ],
  7304. 848.41 s [opt-env-conf-test] + [],
  7305. 848.41 s [opt-env-conf-test] BashCompletionScript
  7306. 848.41 s [opt-env-conf-test] <$> setting
  7307. 848.41 s [opt-env-conf-test] [ option,
  7308. 848.41 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
  7309. 848.41 s [opt-env-conf-test] @@ -244,11 +244,10 @@
  7310. 848.41 s [opt-env-conf-test] help "Render reference documentation"
  7311. 848.41 s [opt-env-conf-test] ],
  7312. 848.41 s [opt-env-conf-test] setting
  7313. 848.41 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  7314. 848.41 s [opt-env-conf-test] - long "render-nix-options",
  7315. 848.41 s [opt-env-conf-test] - hidden,
  7316. 848.41 s [opt-env-conf-test] - help "Render Nix options"
  7317. 848.41 s [opt-env-conf-test] - ],
  7318. 848.41 s [opt-env-conf-test] + [ switch RenderNixosOptions,
  7319. 848.41 s [opt-env-conf-test] + long "render-nix-options",
  7320. 848.41 s [opt-env-conf-test] + hidden
  7321. 848.41 s [opt-env-conf-test] +],
  7322. 848.41 s [opt-env-conf-test] BashCompletionScript
  7323. 848.41 s [opt-env-conf-test] <$> setting
  7324. 848.41 s [opt-env-conf-test] [ option,
  7325. 848.41 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
  7326. 848.41 s [opt-env-conf-test] @@ -238,11 +238,11 @@
  7327. 848.41 s [opt-env-conf-test] help "Render a manpage"
  7328. 848.41 s [opt-env-conf-test] ],
  7329. 848.41 s [opt-env-conf-test] setting
  7330. 848.41 s [opt-env-conf-test] - [ switch RenderDocumentation,
  7331. 848.41 s [opt-env-conf-test] - long "render-reference-documentation",
  7332. 848.41 s [opt-env-conf-test] - hidden,
  7333. 848.41 s [opt-env-conf-test] - help "Render reference documentation"
  7334. 848.41 s [opt-env-conf-test] - ],
  7335. 848.41 s [opt-env-conf-test] + [ switch RenderDocumentation,
  7336. 848.41 s [opt-env-conf-test] + long "render-reference-documentation",
  7337. 848.41 s [opt-env-conf-test] + hidden,
  7338. 848.42 s [opt-env-conf-test] + help "Render reference documentation"
  7339. 848.42 s [opt-env-conf-test] + ],
  7340. 848.42 s [opt-env-conf-test] setting
  7341. 848.42 s [opt-env-conf-test] [ switch RenderNixosOptions,
  7342. 848.42 s [opt-env-conf-test] long "render-nix-options",
  7343. 848.42 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
  7344. 848.42 s [opt-env-conf-test] @@ -244,11 +244,11 @@
  7345. 848.42 s [opt-env-conf-test] help "Render reference documentation"
  7346. 848.42 s [opt-env-conf-test] ],
  7347. 848.42 s [opt-env-conf-test] setting
  7348. 848.42 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  7349. 848.42 s [opt-env-conf-test] - long "render-nix-options",
  7350. 848.42 s [opt-env-conf-test] - hidden,
  7351. 848.42 s [opt-env-conf-test] - help "Render Nix options"
  7352. 848.42 s [opt-env-conf-test] - ],
  7353. 848.42 s [opt-env-conf-test] + [ switch RenderNixosOptions,
  7354. 848.42 s [opt-env-conf-test] + long "render-nix-options",
  7355. 848.42 s [opt-env-conf-test] + hidden,
  7356. 848.42 s [opt-env-conf-test] + help "Render Nix options"
  7357. 848.42 s [opt-env-conf-test] + ],
  7358. 848.42 s [opt-env-conf-test] BashCompletionScript
  7359. 848.42 s [opt-env-conf-test] <$> setting
  7360. 848.42 s [opt-env-conf-test] [ option,
  7361. 848.42 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
  7362. 848.42 s [opt-env-conf-test] @@ -251,12 +251,7 @@
  7363. 848.42 s [opt-env-conf-test] ],
  7364. 848.42 s [opt-env-conf-test] BashCompletionScript
  7365. 848.42 s [opt-env-conf-test] <$> setting
  7366. 848.42 s [opt-env-conf-test] - [ option,
  7367. 848.42 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7368. 848.42 s [opt-env-conf-test] - long "bash-completion-script",
  7369. 848.42 s [opt-env-conf-test] - hidden,
  7370. 848.42 s [opt-env-conf-test] - help "Render the bash completion script"
  7371. 848.42 s [opt-env-conf-test] - ],
  7372. 848.42 s [opt-env-conf-test] + [],
  7373. 848.42 s [opt-env-conf-test] ZshCompletionScript
  7374. 848.42 s [opt-env-conf-test] <$> setting
  7375. 848.42 s [opt-env-conf-test] [ option,
  7376. 848.42 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
  7377. 848.42 s [opt-env-conf-test] @@ -251,12 +251,12 @@
  7378. 848.42 s [opt-env-conf-test] ],
  7379. 848.42 s [opt-env-conf-test] BashCompletionScript
  7380. 848.42 s [opt-env-conf-test] <$> setting
  7381. 848.42 s [opt-env-conf-test] - [ option,
  7382. 848.42 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7383. 848.42 s [opt-env-conf-test] - long "bash-completion-script",
  7384. 848.42 s [opt-env-conf-test] - hidden,
  7385. 848.42 s [opt-env-conf-test] - help "Render the bash completion script"
  7386. 848.42 s [opt-env-conf-test] - ],
  7387. 848.42 s [opt-env-conf-test] + [ option,
  7388. 848.42 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  7389. 848.42 s [opt-env-conf-test] + long "bash-completion-script",
  7390. 848.42 s [opt-env-conf-test] + hidden,
  7391. 848.42 s [opt-env-conf-test] + help "Render the bash completion script"
  7392. 848.42 s [opt-env-conf-test] + ],
  7393. 848.42 s [opt-env-conf-test] ZshCompletionScript
  7394. 848.42 s [opt-env-conf-test] <$> setting
  7395. 848.42 s [opt-env-conf-test] [ option,
  7396. 848.42 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  7397. 848.42 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  7398. 848.42 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  7399. 848.42 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  7400. 848.42 s [opt-env-conf-test] and
  7401. 848.42 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  7402. 848.42 s [opt-env-conf-test] + [ settingTryArgument || True || isJust settingSwitchValue,
  7403. 848.42 s [opt-env-conf-test] null settingEnvVars,
  7404. 848.42 s [opt-env-conf-test] null settingConfigVals
  7405. 848.42 s [opt-env-conf-test] ]
  7406. 848.42 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  7407. 848.42 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  7408. 848.42 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  7409. 848.42 s [opt-env-conf-test] c1 <- go p1
  7410. 848.42 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  7411. 848.42 s [opt-env-conf-test] - pure $ c1 || c2
  7412. 848.42 s [opt-env-conf-test] + pure $ c1 || True
  7413. 848.42 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  7414. 848.42 s [opt-env-conf-test] case settingHelp of
  7415. 848.42 s [opt-env-conf-test] Nothing ->
  7416. 848.42 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
  7417. 848.42 s [opt-env-conf-test] @@ -267,12 +267,7 @@
  7418. 848.42 s [opt-env-conf-test] ],
  7419. 848.42 s [opt-env-conf-test] ZshCompletionScript
  7420. 848.42 s [opt-env-conf-test] <$> setting
  7421. 848.42 s [opt-env-conf-test] - [ option,
  7422. 848.42 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7423. 848.42 s [opt-env-conf-test] - long "fish-completion-script",
  7424. 848.42 s [opt-env-conf-test] - hidden,
  7425. 848.42 s [opt-env-conf-test] - help "Render the fish completion script"
  7426. 848.42 s [opt-env-conf-test] - ],
  7427. 848.42 s [opt-env-conf-test] + [],
  7428. 848.42 s [opt-env-conf-test] setting
  7429. 848.42 s [opt-env-conf-test] [ help "Query completion",
  7430. 848.42 s [opt-env-conf-test] switch CompletionQuery,
  7431. 848.42 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:16-24
  7432. 848.42 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  7433. 848.42 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  7434. 848.42 s [opt-env-conf-test] c1 <- go p1
  7435. 848.42 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  7436. 848.42 s [opt-env-conf-test] - pure $ c1 || c2
  7437. 848.42 s [opt-env-conf-test] + pure $ not (c1 || c2)
  7438. 848.42 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  7439. 848.42 s [opt-env-conf-test] case settingHelp of
  7440. 848.42 s [opt-env-conf-test] Nothing ->
  7441. 848.42 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-17
  7442. 848.42 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  7443. 848.42 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  7444. 848.42 s [opt-env-conf-test] c1 <- go p1
  7445. 848.42 s [opt-env-conf-test] c2 <- go p2
  7446. 848.42 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  7447. 848.42 s [opt-env-conf-test] + pure (False || c2) -- TODO: is this right?
  7448. 848.42 s [opt-env-conf-test] ParserEmpty _ -> pure True
  7449. 848.42 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  7450. 848.42 s [opt-env-conf-test] c1 <- go p1
  7451. 848.42 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  7452. 848.42 s [opt-env-conf-test] @@ -274,12 +274,7 @@
  7453. 848.43 s [opt-env-conf-test] help "Render the fish completion script"
  7454. 848.43 s [opt-env-conf-test] ],
  7455. 848.43 s [opt-env-conf-test] setting
  7456. 848.43 s [opt-env-conf-test] - [ help "Query completion",
  7457. 848.43 s [opt-env-conf-test] - switch CompletionQuery,
  7458. 848.43 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  7459. 848.43 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  7460. 848.43 s [opt-env-conf-test] - hidden
  7461. 848.43 s [opt-env-conf-test] - ]
  7462. 848.43 s [opt-env-conf-test] + []
  7463. 848.43 s [opt-env-conf-test] <*> setting
  7464. 848.43 s [opt-env-conf-test] [ switch True,
  7465. 848.43 s [opt-env-conf-test] long "completion-enriched",
  7466. 848.43 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  7467. 848.43 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  7468. 848.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  7469. 848.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  7470. 848.43 s [opt-env-conf-test] and
  7471. 848.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  7472. 848.43 s [opt-env-conf-test] + [ False || settingTryOption || isJust settingSwitchValue,
  7473. 848.43 s [opt-env-conf-test] null settingEnvVars,
  7474. 848.43 s [opt-env-conf-test] null settingConfigVals
  7475. 848.43 s [opt-env-conf-test] ]
  7476. 848.43 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:284:20-24
  7477. 848.43 s [opt-env-conf-test] @@ -281,7 +281,7 @@
  7478. 848.43 s [opt-env-conf-test] hidden
  7479. 848.43 s [opt-env-conf-test] ]
  7480. 848.43 s [opt-env-conf-test] <*> setting
  7481. 848.43 s [opt-env-conf-test] - [ switch True,
  7482. 848.43 s [opt-env-conf-test] + [ switch False,
  7483. 848.43 s [opt-env-conf-test] long "completion-enriched",
  7484. 848.43 s [opt-env-conf-test] value False,
  7485. 848.43 s [opt-env-conf-test] hidden,
  7486. 848.43 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  7487. 848.43 s [opt-env-conf-test] @@ -274,12 +274,11 @@
  7488. 848.43 s [opt-env-conf-test] help "Render the fish completion script"
  7489. 848.43 s [opt-env-conf-test] ],
  7490. 848.43 s [opt-env-conf-test] setting
  7491. 848.43 s [opt-env-conf-test] - [ help "Query completion",
  7492. 848.43 s [opt-env-conf-test] - switch CompletionQuery,
  7493. 848.43 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  7494. 848.43 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  7495. 848.43 s [opt-env-conf-test] - hidden
  7496. 848.43 s [opt-env-conf-test] - ]
  7497. 848.43 s [opt-env-conf-test] + [ help "Query completion",
  7498. 848.43 s [opt-env-conf-test] + switch CompletionQuery,
  7499. 848.43 s [opt-env-conf-test] + -- Long string that no normal user would ever use.
  7500. 848.43 s [opt-env-conf-test] + long "query-opt-env-conf-completion"
  7501. 848.43 s [opt-env-conf-test] +]
  7502. 848.43 s [opt-env-conf-test] <*> setting
  7503. 848.43 s [opt-env-conf-test] [ switch True,
  7504. 848.43 s [opt-env-conf-test] long "completion-enriched",
  7505. 848.43 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  7506. 848.43 s [opt-env-conf-test] @@ -259,12 +259,11 @@
  7507. 848.43 s [opt-env-conf-test] ],
  7508. 848.43 s [opt-env-conf-test] ZshCompletionScript
  7509. 848.43 s [opt-env-conf-test] <$> setting
  7510. 848.43 s [opt-env-conf-test] - [ option,
  7511. 848.43 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7512. 848.43 s [opt-env-conf-test] - long "zsh-completion-script",
  7513. 848.43 s [opt-env-conf-test] - hidden,
  7514. 848.43 s [opt-env-conf-test] - help "Render the zsh completion script"
  7515. 848.43 s [opt-env-conf-test] - ],
  7516. 848.43 s [opt-env-conf-test] + [ option,
  7517. 848.43 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  7518. 848.43 s [opt-env-conf-test] + long "zsh-completion-script",
  7519. 848.43 s [opt-env-conf-test] + hidden
  7520. 848.43 s [opt-env-conf-test] +],
  7521. 848.43 s [opt-env-conf-test] ZshCompletionScript
  7522. 850.78 s [opt-env-conf-test] <$> setting
  7523. 850.78 s [opt-env-conf-test] [ option,
  7524. 850.78 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  7525. 850.78 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  7526. 850.78 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  7527. 850.78 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  7528. 850.78 s [opt-env-conf-test] and
  7529. 850.78 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  7530. 850.78 s [opt-env-conf-test] + [ True || settingTryOption || isJust settingSwitchValue,
  7531. 850.78 s [opt-env-conf-test] null settingEnvVars,
  7532. 850.78 s [opt-env-conf-test] null settingConfigVals
  7533. 850.78 s [opt-env-conf-test] ]
  7534. 850.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  7535. 850.78 s [opt-env-conf-test] @@ -274,12 +274,12 @@
  7536. 850.78 s [opt-env-conf-test] help "Render the fish completion script"
  7537. 850.78 s [opt-env-conf-test] ],
  7538. 850.78 s [opt-env-conf-test] setting
  7539. 850.79 s [opt-env-conf-test] - [ help "Query completion",
  7540. 850.79 s [opt-env-conf-test] - switch CompletionQuery,
  7541. 850.79 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  7542. 850.79 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  7543. 850.79 s [opt-env-conf-test] - hidden
  7544. 850.79 s [opt-env-conf-test] - ]
  7545. 850.79 s [opt-env-conf-test] + [ help "Query completion",
  7546. 850.79 s [opt-env-conf-test] + switch CompletionQuery,
  7547. 850.79 s [opt-env-conf-test] + -- Long string that no normal user would ever use.
  7548. 850.79 s [opt-env-conf-test] + long "query-opt-env-conf-completion",
  7549. 850.79 s [opt-env-conf-test] + hidden
  7550. 850.79 s [opt-env-conf-test] + ]
  7551. 850.79 s [opt-env-conf-test] <*> setting
  7552. 850.79 s [opt-env-conf-test] [ switch True,
  7553. 850.79 s [opt-env-conf-test] long "completion-enriched",
  7554. 850.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
  7555. 850.79 s [opt-env-conf-test] @@ -267,12 +267,12 @@
  7556. 850.79 s [opt-env-conf-test] ],
  7557. 850.79 s [opt-env-conf-test] ZshCompletionScript
  7558. 850.79 s [opt-env-conf-test] <$> setting
  7559. 850.79 s [opt-env-conf-test] - [ option,
  7560. 850.79 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7561. 850.79 s [opt-env-conf-test] - long "fish-completion-script",
  7562. 850.79 s [opt-env-conf-test] - hidden,
  7563. 850.79 s [opt-env-conf-test] - help "Render the fish completion script"
  7564. 850.79 s [opt-env-conf-test] - ],
  7565. 850.79 s [opt-env-conf-test] + [ option,
  7566. 850.79 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  7567. 850.79 s [opt-env-conf-test] + long "fish-completion-script",
  7568. 850.79 s [opt-env-conf-test] + hidden,
  7569. 850.79 s [opt-env-conf-test] + help "Render the fish completion script"
  7570. 850.79 s [opt-env-conf-test] + ],
  7571. 850.79 s [opt-env-conf-test] setting
  7572. 850.79 s [opt-env-conf-test] [ help "Query completion",
  7573. 850.79 s [opt-env-conf-test] switch CompletionQuery,
  7574. 850.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  7575. 850.79 s [opt-env-conf-test] @@ -259,12 +259,12 @@
  7576. 850.79 s [opt-env-conf-test] ],
  7577. 850.79 s [opt-env-conf-test] ZshCompletionScript
  7578. 850.79 s [opt-env-conf-test] <$> setting
  7579. 850.79 s [opt-env-conf-test] - [ option,
  7580. 850.79 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7581. 850.79 s [opt-env-conf-test] - long "zsh-completion-script",
  7582. 850.79 s [opt-env-conf-test] - hidden,
  7583. 850.79 s [opt-env-conf-test] - help "Render the zsh completion script"
  7584. 850.79 s [opt-env-conf-test] - ],
  7585. 850.79 s [opt-env-conf-test] + [ option,
  7586. 850.79 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  7587. 850.79 s [opt-env-conf-test] + long "zsh-completion-script",
  7588. 850.79 s [opt-env-conf-test] + hidden,
  7589. 850.79 s [opt-env-conf-test] + help "Render the zsh completion script"
  7590. 850.79 s [opt-env-conf-test] + ],
  7591. 850.79 s [opt-env-conf-test] ZshCompletionScript
  7592. 850.79 s [opt-env-conf-test] <$> setting
  7593. 850.79 s [opt-env-conf-test] [ option,
  7594. 850.79 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:22-24
  7595. 850.79 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  7596. 850.79 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  7597. 850.79 s [opt-env-conf-test] c1 <- go p1
  7598. 850.79 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  7599. 850.79 s [opt-env-conf-test] - pure $ c1 || c2
  7600. 850.79 s [opt-env-conf-test] + pure $ c1 || not (c2)
  7601. 850.79 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  7602. 850.79 s [opt-env-conf-test] case settingHelp of
  7603. 850.79 s [opt-env-conf-test] Nothing ->
  7604. 850.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
  7605. 850.79 s [opt-env-conf-test] @@ -267,12 +267,11 @@
  7606. 850.79 s [opt-env-conf-test] ],
  7607. 850.79 s [opt-env-conf-test] ZshCompletionScript
  7608. 850.79 s [opt-env-conf-test] <$> setting
  7609. 850.79 s [opt-env-conf-test] - [ option,
  7610. 850.79 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7611. 850.79 s [opt-env-conf-test] - long "fish-completion-script",
  7612. 850.79 s [opt-env-conf-test] - hidden,
  7613. 850.79 s [opt-env-conf-test] - help "Render the fish completion script"
  7614. 850.79 s [opt-env-conf-test] - ],
  7615. 850.79 s [opt-env-conf-test] + [ option,
  7616. 850.79 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  7617. 850.79 s [opt-env-conf-test] + long "fish-completion-script",
  7618. 850.79 s [opt-env-conf-test] + hidden
  7619. 850.79 s [opt-env-conf-test] +],
  7620. 850.79 s [opt-env-conf-test] setting
  7621. 850.79 s [opt-env-conf-test] [ help "Query completion",
  7622. 850.79 s [opt-env-conf-test] switch CompletionQuery,
  7623. 850.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  7624. 850.79 s [opt-env-conf-test] @@ -281,12 +281,7 @@
  7625. 850.79 s [opt-env-conf-test] hidden
  7626. 850.79 s [opt-env-conf-test] ]
  7627. 850.79 s [opt-env-conf-test] <*> setting
  7628. 850.79 s [opt-env-conf-test] - [ switch True,
  7629. 850.79 s [opt-env-conf-test] - long "completion-enriched",
  7630. 850.79 s [opt-env-conf-test] - value False,
  7631. 850.79 s [opt-env-conf-test] - hidden,
  7632. 850.79 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  7633. 850.79 s [opt-env-conf-test] - ]
  7634. 850.79 s [opt-env-conf-test] + []
  7635. 850.79 s [opt-env-conf-test] <*> setting
  7636. 850.79 s [opt-env-conf-test] [ option,
  7637. 850.79 s [opt-env-conf-test] reader auto,
  7638. 850.79 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:286:19-24
  7639. 850.79 s [opt-env-conf-test] @@ -283,7 +283,7 @@
  7640. 850.79 s [opt-env-conf-test] <*> setting
  7641. 850.79 s [opt-env-conf-test] [ switch True,
  7642. 850.79 s [opt-env-conf-test] long "completion-enriched",
  7643. 850.79 s [opt-env-conf-test] - value False,
  7644. 850.79 s [opt-env-conf-test] + value True,
  7645. 850.79 s [opt-env-conf-test] hidden,
  7646. 850.79 s [opt-env-conf-test] help "Whether to enable enriched completion"
  7647. 850.79 s [opt-env-conf-test] ]
  7648. 850.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
  7649. 850.79 s [opt-env-conf-test] @@ -288,12 +288,7 @@
  7650. 850.79 s [opt-env-conf-test] help "Whether to enable enriched completion"
  7651. 850.79 s [opt-env-conf-test] ]
  7652. 850.79 s [opt-env-conf-test] <*> setting
  7653. 850.80 s [opt-env-conf-test] - [ option,
  7654. 850.80 s [opt-env-conf-test] - reader auto,
  7655. 850.80 s [opt-env-conf-test] - long "completion-index",
  7656. 850.80 s [opt-env-conf-test] - hidden,
  7657. 850.80 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  7658. 850.80 s [opt-env-conf-test] - ]
  7659. 850.80 s [opt-env-conf-test] + []
  7660. 850.80 s [opt-env-conf-test] <*> many
  7661. 850.80 s [opt-env-conf-test] ( setting
  7662. 850.80 s [opt-env-conf-test] [ option,
  7663. 850.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  7664. 850.80 s [opt-env-conf-test] @@ -281,12 +281,11 @@
  7665. 850.80 s [opt-env-conf-test] hidden
  7666. 850.80 s [opt-env-conf-test] ]
  7667. 850.80 s [opt-env-conf-test] <*> setting
  7668. 850.80 s [opt-env-conf-test] - [ switch True,
  7669. 850.80 s [opt-env-conf-test] - long "completion-enriched",
  7670. 850.80 s [opt-env-conf-test] - value False,
  7671. 850.80 s [opt-env-conf-test] - hidden,
  7672. 850.80 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  7673. 850.80 s [opt-env-conf-test] - ]
  7674. 850.80 s [opt-env-conf-test] + [ switch True,
  7675. 850.80 s [opt-env-conf-test] + long "completion-enriched",
  7676. 850.80 s [opt-env-conf-test] + value False,
  7677. 850.80 s [opt-env-conf-test] + hidden
  7678. 850.80 s [opt-env-conf-test] +]
  7679. 850.80 s [opt-env-conf-test] <*> setting
  7680. 850.80 s [opt-env-conf-test] [ option,
  7681. 850.80 s [opt-env-conf-test] reader auto,
  7682. 850.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
  7683. 850.80 s [opt-env-conf-test] @@ -226,82 +226,4 @@
  7684. 850.80 s [opt-env-conf-test] internalParser :: Parser a -> Parser (Internal a)
  7685. 850.80 s [opt-env-conf-test] internalParser p =
  7686. 850.80 s [opt-env-conf-test] choice
  7687. 850.80 s [opt-env-conf-test] - [ setting
  7688. 850.80 s [opt-env-conf-test] - [ switch ShowVersion,
  7689. 850.80 s [opt-env-conf-test] - long "version",
  7690. 850.80 s [opt-env-conf-test] - hidden
  7691. 850.80 s [opt-env-conf-test] - ],
  7692. 850.80 s [opt-env-conf-test] - setting
  7693. 850.80 s [opt-env-conf-test] - [ switch RenderMan,
  7694. 850.80 s [opt-env-conf-test] - long "render-man-page",
  7695. 850.80 s [opt-env-conf-test] - hidden,
  7696. 850.80 s [opt-env-conf-test] - help "Render a manpage"
  7697. 850.80 s [opt-env-conf-test] - ],
  7698. 850.80 s [opt-env-conf-test] - setting
  7699. 850.80 s [opt-env-conf-test] - [ switch RenderDocumentation,
  7700. 850.80 s [opt-env-conf-test] - long "render-reference-documentation",
  7701. 850.80 s [opt-env-conf-test] - hidden,
  7702. 850.80 s [opt-env-conf-test] - help "Render reference documentation"
  7703. 850.80 s [opt-env-conf-test] - ],
  7704. 850.80 s [opt-env-conf-test] - setting
  7705. 850.80 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  7706. 850.80 s [opt-env-conf-test] - long "render-nix-options",
  7707. 850.80 s [opt-env-conf-test] - hidden,
  7708. 850.80 s [opt-env-conf-test] - help "Render Nix options"
  7709. 850.80 s [opt-env-conf-test] - ],
  7710. 850.80 s [opt-env-conf-test] - BashCompletionScript
  7711. 850.80 s [opt-env-conf-test] - <$> setting
  7712. 850.80 s [opt-env-conf-test] - [ option,
  7713. 850.80 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7714. 850.80 s [opt-env-conf-test] - long "bash-completion-script",
  7715. 850.80 s [opt-env-conf-test] - hidden,
  7716. 850.80 s [opt-env-conf-test] - help "Render the bash completion script"
  7717. 850.80 s [opt-env-conf-test] - ],
  7718. 850.80 s [opt-env-conf-test] - ZshCompletionScript
  7719. 850.80 s [opt-env-conf-test] - <$> setting
  7720. 850.80 s [opt-env-conf-test] - [ option,
  7721. 850.80 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7722. 850.80 s [opt-env-conf-test] - long "zsh-completion-script",
  7723. 850.80 s [opt-env-conf-test] - hidden,
  7724. 850.80 s [opt-env-conf-test] - help "Render the zsh completion script"
  7725. 850.80 s [opt-env-conf-test] - ],
  7726. 850.80 s [opt-env-conf-test] - ZshCompletionScript
  7727. 850.80 s [opt-env-conf-test] - <$> setting
  7728. 850.80 s [opt-env-conf-test] - [ option,
  7729. 850.80 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7730. 850.80 s [opt-env-conf-test] - long "fish-completion-script",
  7731. 850.80 s [opt-env-conf-test] - hidden,
  7732. 850.80 s [opt-env-conf-test] - help "Render the fish completion script"
  7733. 850.80 s [opt-env-conf-test] - ],
  7734. 850.80 s [opt-env-conf-test] - setting
  7735. 850.80 s [opt-env-conf-test] - [ help "Query completion",
  7736. 850.80 s [opt-env-conf-test] - switch CompletionQuery,
  7737. 850.80 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  7738. 850.80 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  7739. 850.80 s [opt-env-conf-test] - hidden
  7740. 850.80 s [opt-env-conf-test] - ]
  7741. 850.80 s [opt-env-conf-test] - <*> setting
  7742. 850.80 s [opt-env-conf-test] - [ switch True,
  7743. 850.80 s [opt-env-conf-test] - long "completion-enriched",
  7744. 850.80 s [opt-env-conf-test] - value False,
  7745. 850.80 s [opt-env-conf-test] - hidden,
  7746. 850.80 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  7747. 850.80 s [opt-env-conf-test] - ]
  7748. 850.80 s [opt-env-conf-test] - <*> setting
  7749. 850.80 s [opt-env-conf-test] - [ option,
  7750. 850.80 s [opt-env-conf-test] - reader auto,
  7751. 850.80 s [opt-env-conf-test] - long "completion-index",
  7752. 850.80 s [opt-env-conf-test] - hidden,
  7753. 850.80 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  7754. 850.80 s [opt-env-conf-test] - ]
  7755. 850.80 s [opt-env-conf-test] - <*> many
  7756. 850.80 s [opt-env-conf-test] - ( setting
  7757. 850.80 s [opt-env-conf-test] - [ option,
  7758. 850.80 s [opt-env-conf-test] - reader str,
  7759. 850.80 s [opt-env-conf-test] - long "completion-word",
  7760. 850.80 s [opt-env-conf-test] - hidden,
  7761. 850.80 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  7762. 850.80 s [opt-env-conf-test] - ]
  7763. 850.80 s [opt-env-conf-test] - ),
  7764. 850.80 s [opt-env-conf-test] - ParsedNormally <$> p
  7765. 850.80 s [opt-env-conf-test] - ]
  7766. 850.80 s [opt-env-conf-test] + []
  7767. 850.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  7768. 850.80 s [opt-env-conf-test] @@ -296,12 +296,12 @@
  7769. 850.80 s [opt-env-conf-test] ]
  7770. 850.80 s [opt-env-conf-test] <*> many
  7771. 850.80 s [opt-env-conf-test] ( setting
  7772. 850.80 s [opt-env-conf-test] - [ option,
  7773. 850.80 s [opt-env-conf-test] - reader str,
  7774. 850.80 s [opt-env-conf-test] - long "completion-word",
  7775. 850.80 s [opt-env-conf-test] - hidden,
  7776. 850.80 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  7777. 850.80 s [opt-env-conf-test] - ]
  7778. 850.80 s [opt-env-conf-test] + [ option,
  7779. 850.80 s [opt-env-conf-test] + reader str,
  7780. 850.80 s [opt-env-conf-test] + long "completion-word",
  7781. 850.81 s [opt-env-conf-test] + hidden,
  7782. 850.81 s [opt-env-conf-test] + help "The words (arguments) that have already been typed"
  7783. 850.81 s [opt-env-conf-test] + ]
  7784. 850.81 s [opt-env-conf-test] ),
  7785. 850.81 s [opt-env-conf-test] ParsedNormally <$> p
  7786. 850.81 s [opt-env-conf-test] ]
  7787. 850.81 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  7788. 853.03 s [opt-env-conf-test] @@ -198,11 +198,11 @@
  7789. 853.03 s [opt-env-conf-test] let t = T.pack x
  7790. 853.45 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  7791. 853.45 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  7792. 853.45 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  7793. 853.45 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  7794. 853.45 s [opt-env-conf-test] - Nothing ->
  7795. 853.45 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  7796. 853.45 s [opt-env-conf-test] - in (finalCaps, x : rest)
  7797. 853.45 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  7798. 853.45 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  7799. 853.45 s [opt-env-conf-test] + Nothing ->
  7800. 853.45 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  7801. 853.45 s [opt-env-conf-test] + in (finalCaps, x : rest)
  7802. 853.45 s [opt-env-conf-test]
  7803. 853.45 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  7804. 853.45 s [opt-env-conf-test] -- is supposed to.
  7805. 853.45 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
  7806. 853.45 s [opt-env-conf-test] @@ -226,82 +226,81 @@
  7807. 853.45 s [opt-env-conf-test] internalParser :: Parser a -> Parser (Internal a)
  7808. 853.45 s [opt-env-conf-test] internalParser p =
  7809. 853.45 s [opt-env-conf-test] choice
  7810. 853.45 s [opt-env-conf-test] - [ setting
  7811. 853.45 s [opt-env-conf-test] - [ switch ShowVersion,
  7812. 853.45 s [opt-env-conf-test] - long "version",
  7813. 853.45 s [opt-env-conf-test] - hidden
  7814. 853.45 s [opt-env-conf-test] - ],
  7815. 853.45 s [opt-env-conf-test] - setting
  7816. 853.45 s [opt-env-conf-test] - [ switch RenderMan,
  7817. 853.45 s [opt-env-conf-test] - long "render-man-page",
  7818. 853.45 s [opt-env-conf-test] - hidden,
  7819. 853.45 s [opt-env-conf-test] - help "Render a manpage"
  7820. 853.45 s [opt-env-conf-test] - ],
  7821. 853.45 s [opt-env-conf-test] - setting
  7822. 853.45 s [opt-env-conf-test] - [ switch RenderDocumentation,
  7823. 853.45 s [opt-env-conf-test] - long "render-reference-documentation",
  7824. 853.45 s [opt-env-conf-test] - hidden,
  7825. 853.45 s [opt-env-conf-test] - help "Render reference documentation"
  7826. 853.45 s [opt-env-conf-test] - ],
  7827. 853.45 s [opt-env-conf-test] - setting
  7828. 853.45 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  7829. 853.45 s [opt-env-conf-test] - long "render-nix-options",
  7830. 853.46 s [opt-env-conf-test] - hidden,
  7831. 853.46 s [opt-env-conf-test] - help "Render Nix options"
  7832. 853.46 s [opt-env-conf-test] - ],
  7833. 853.46 s [opt-env-conf-test] - BashCompletionScript
  7834. 853.46 s [opt-env-conf-test] - <$> setting
  7835. 853.46 s [opt-env-conf-test] - [ option,
  7836. 853.46 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7837. 853.46 s [opt-env-conf-test] - long "bash-completion-script",
  7838. 853.46 s [opt-env-conf-test] - hidden,
  7839. 853.46 s [opt-env-conf-test] - help "Render the bash completion script"
  7840. 853.46 s [opt-env-conf-test] - ],
  7841. 853.46 s [opt-env-conf-test] - ZshCompletionScript
  7842. 853.46 s [opt-env-conf-test] - <$> setting
  7843. 853.46 s [opt-env-conf-test] - [ option,
  7844. 853.46 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7845. 853.46 s [opt-env-conf-test] - long "zsh-completion-script",
  7846. 853.46 s [opt-env-conf-test] - hidden,
  7847. 853.46 s [opt-env-conf-test] - help "Render the zsh completion script"
  7848. 853.46 s [opt-env-conf-test] - ],
  7849. 853.46 s [opt-env-conf-test] - ZshCompletionScript
  7850. 853.46 s [opt-env-conf-test] - <$> setting
  7851. 853.46 s [opt-env-conf-test] - [ option,
  7852. 853.46 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  7853. 853.46 s [opt-env-conf-test] - long "fish-completion-script",
  7854. 853.46 s [opt-env-conf-test] - hidden,
  7855. 853.46 s [opt-env-conf-test] - help "Render the fish completion script"
  7856. 853.46 s [opt-env-conf-test] - ],
  7857. 853.46 s [opt-env-conf-test] - setting
  7858. 853.46 s [opt-env-conf-test] - [ help "Query completion",
  7859. 853.46 s [opt-env-conf-test] - switch CompletionQuery,
  7860. 853.46 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  7861. 853.46 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  7862. 853.46 s [opt-env-conf-test] - hidden
  7863. 853.46 s [opt-env-conf-test] - ]
  7864. 853.46 s [opt-env-conf-test] - <*> setting
  7865. 853.46 s [opt-env-conf-test] - [ switch True,
  7866. 853.46 s [opt-env-conf-test] - long "completion-enriched",
  7867. 853.46 s [opt-env-conf-test] - value False,
  7868. 853.46 s [opt-env-conf-test] - hidden,
  7869. 853.46 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  7870. 853.46 s [opt-env-conf-test] - ]
  7871. 853.46 s [opt-env-conf-test] - <*> setting
  7872. 853.46 s [opt-env-conf-test] - [ option,
  7873. 853.46 s [opt-env-conf-test] - reader auto,
  7874. 853.46 s [opt-env-conf-test] - long "completion-index",
  7875. 853.46 s [opt-env-conf-test] - hidden,
  7876. 853.46 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  7877. 853.46 s [opt-env-conf-test] - ]
  7878. 853.46 s [opt-env-conf-test] - <*> many
  7879. 853.46 s [opt-env-conf-test] - ( setting
  7880. 853.46 s [opt-env-conf-test] - [ option,
  7881. 853.46 s [opt-env-conf-test] - reader str,
  7882. 853.46 s [opt-env-conf-test] - long "completion-word",
  7883. 853.46 s [opt-env-conf-test] - hidden,
  7884. 853.46 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  7885. 853.46 s [opt-env-conf-test] - ]
  7886. 853.46 s [opt-env-conf-test] - ),
  7887. 853.46 s [opt-env-conf-test] - ParsedNormally <$> p
  7888. 853.46 s [opt-env-conf-test] - ]
  7889. 853.46 s [opt-env-conf-test] + [ setting
  7890. 853.46 s [opt-env-conf-test] + [ switch ShowVersion,
  7891. 853.46 s [opt-env-conf-test] + long "version",
  7892. 853.46 s [opt-env-conf-test] + hidden
  7893. 853.46 s [opt-env-conf-test] + ],
  7894. 853.46 s [opt-env-conf-test] + setting
  7895. 853.46 s [opt-env-conf-test] + [ switch RenderMan,
  7896. 853.46 s [opt-env-conf-test] + long "render-man-page",
  7897. 853.46 s [opt-env-conf-test] + hidden,
  7898. 853.46 s [opt-env-conf-test] + help "Render a manpage"
  7899. 853.46 s [opt-env-conf-test] + ],
  7900. 853.46 s [opt-env-conf-test] + setting
  7901. 853.46 s [opt-env-conf-test] + [ switch RenderDocumentation,
  7902. 853.46 s [opt-env-conf-test] + long "render-reference-documentation",
  7903. 853.46 s [opt-env-conf-test] + hidden,
  7904. 853.46 s [opt-env-conf-test] + help "Render reference documentation"
  7905. 853.46 s [opt-env-conf-test] + ],
  7906. 853.46 s [opt-env-conf-test] + setting
  7907. 853.46 s [opt-env-conf-test] + [ switch RenderNixosOptions,
  7908. 853.46 s [opt-env-conf-test] + long "render-nix-options",
  7909. 853.46 s [opt-env-conf-test] + hidden,
  7910. 853.46 s [opt-env-conf-test] + help "Render Nix options"
  7911. 853.46 s [opt-env-conf-test] + ],
  7912. 853.46 s [opt-env-conf-test] + BashCompletionScript
  7913. 853.46 s [opt-env-conf-test] + <$> setting
  7914. 853.46 s [opt-env-conf-test] + [ option,
  7915. 853.46 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  7916. 853.46 s [opt-env-conf-test] + long "bash-completion-script",
  7917. 853.46 s [opt-env-conf-test] + hidden,
  7918. 853.46 s [opt-env-conf-test] + help "Render the bash completion script"
  7919. 853.46 s [opt-env-conf-test] + ],
  7920. 853.47 s [opt-env-conf-test] + ZshCompletionScript
  7921. 853.47 s [opt-env-conf-test] + <$> setting
  7922. 853.47 s [opt-env-conf-test] + [ option,
  7923. 853.47 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  7924. 853.47 s [opt-env-conf-test] + long "zsh-completion-script",
  7925. 853.47 s [opt-env-conf-test] + hidden,
  7926. 853.47 s [opt-env-conf-test] + help "Render the zsh completion script"
  7927. 853.47 s [opt-env-conf-test] + ],
  7928. 853.47 s [opt-env-conf-test] + ZshCompletionScript
  7929. 853.47 s [opt-env-conf-test] + <$> setting
  7930. 853.47 s [opt-env-conf-test] + [ option,
  7931. 853.47 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  7932. 853.47 s [opt-env-conf-test] + long "fish-completion-script",
  7933. 853.47 s [opt-env-conf-test] + hidden,
  7934. 853.47 s [opt-env-conf-test] + help "Render the fish completion script"
  7935. 853.47 s [opt-env-conf-test] + ],
  7936. 853.47 s [opt-env-conf-test] + setting
  7937. 853.47 s [opt-env-conf-test] + [ help "Query completion",
  7938. 853.47 s [opt-env-conf-test] + switch CompletionQuery,
  7939. 853.47 s [opt-env-conf-test] + -- Long string that no normal user would ever use.
  7940. 853.47 s [opt-env-conf-test] + long "query-opt-env-conf-completion",
  7941. 853.47 s [opt-env-conf-test] + hidden
  7942. 853.47 s [opt-env-conf-test] + ]
  7943. 853.47 s [opt-env-conf-test] + <*> setting
  7944. 853.47 s [opt-env-conf-test] + [ switch True,
  7945. 853.47 s [opt-env-conf-test] + long "completion-enriched",
  7946. 853.47 s [opt-env-conf-test] + value False,
  7947. 853.47 s [opt-env-conf-test] + hidden,
  7948. 853.47 s [opt-env-conf-test] + help "Whether to enable enriched completion"
  7949. 853.47 s [opt-env-conf-test] + ]
  7950. 853.47 s [opt-env-conf-test] + <*> setting
  7951. 853.47 s [opt-env-conf-test] + [ option,
  7952. 853.47 s [opt-env-conf-test] + reader auto,
  7953. 853.47 s [opt-env-conf-test] + long "completion-index",
  7954. 853.47 s [opt-env-conf-test] + hidden,
  7955. 853.47 s [opt-env-conf-test] + help "The index between the arguments where completion was invoked."
  7956. 853.47 s [opt-env-conf-test] + ]
  7957. 853.47 s [opt-env-conf-test] + <*> many
  7958. 853.47 s [opt-env-conf-test] + ( setting
  7959. 853.47 s [opt-env-conf-test] + [ option,
  7960. 853.47 s [opt-env-conf-test] + reader str,
  7961. 853.47 s [opt-env-conf-test] + long "completion-word",
  7962. 853.47 s [opt-env-conf-test] + hidden,
  7963. 853.47 s [opt-env-conf-test] + help "The words (arguments) that have already been typed"
  7964. 853.47 s [opt-env-conf-test] + ]
  7965. 853.47 s [opt-env-conf-test] + )
  7966. 853.47 s [opt-env-conf-test] +]
  7967. 853.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  7968. 853.47 s [opt-env-conf-test] @@ -198,11 +198,11 @@
  7969. 853.47 s [opt-env-conf-test] let t = T.pack x
  7970. 853.47 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  7971. 853.47 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  7972. 853.47 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  7973. 853.47 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  7974. 853.47 s [opt-env-conf-test] - Nothing ->
  7975. 853.47 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  7976. 853.47 s [opt-env-conf-test] - in (finalCaps, x : rest)
  7977. 853.47 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  7978. 853.47 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  7979. 853.47 s [opt-env-conf-test] + Nothing ->
  7980. 853.47 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  7981. 853.47 s [opt-env-conf-test] + in (finalCaps, x : rest)
  7982. 853.47 s [opt-env-conf-test]
  7983. 853.47 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  7984. 853.47 s [opt-env-conf-test] -- is supposed to.
  7985. 853.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  7986. 853.47 s [opt-env-conf-test] @@ -196,13 +196,13 @@
  7987. 853.47 s [opt-env-conf-test] [] -> (caps, [])
  7988. 853.47 s [opt-env-conf-test] (x : xs) ->
  7989. 853.47 s [opt-env-conf-test] let t = T.pack x
  7990. 853.47 s [opt-env-conf-test] - in case T.stripPrefix "--settings-capabilities-disable-" t of
  7991. 853.47 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  7992. 853.47 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  7993. 853.47 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  7994. 853.47 s [opt-env-conf-test] - Nothing ->
  7995. 853.47 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  7996. 853.47 s [opt-env-conf-test] - in (finalCaps, x : rest)
  7997. 853.47 s [opt-env-conf-test] + in case T.stripPrefix "--settings-capabilities-disable-" t of
  7998. 853.47 s [opt-env-conf-test] + Just capName -> go (disableCapability (Capability capName) caps) xs
  7999. 853.47 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  8000. 853.47 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  8001. 853.47 s [opt-env-conf-test] + Nothing ->
  8002. 853.47 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  8003. 853.47 s [opt-env-conf-test] + in (finalCaps, x : rest)
  8004. 853.47 s [opt-env-conf-test]
  8005. 853.47 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  8006. 853.47 s [opt-env-conf-test] -- is supposed to.
  8007. 853.47 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:172:24-28
  8008. 853.47 s [opt-env-conf-test] @@ -169,7 +169,7 @@
  8009. 853.47 s [opt-env-conf-test] go = \case
  8010. 853.47 s [opt-env-conf-test] [] -> (False, [])
  8011. 853.47 s [opt-env-conf-test] (x : xs)
  8012. 853.47 s [opt-env-conf-test] - | x == arg -> (True, xs)
  8013. 853.47 s [opt-env-conf-test] + | x == arg -> (False, xs)
  8014. 853.47 s [opt-env-conf-test] | otherwise ->
  8015. 853.47 s [opt-env-conf-test] let (found, rest) = go xs
  8016. 853.47 s [opt-env-conf-test] in (found, x : rest)
  8017. 853.47 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:175:18-23
  8018. 853.47 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  8019. 853.47 s [opt-env-conf-test] | x == arg -> (True, xs)
  8020. 853.47 s [opt-env-conf-test] | otherwise ->
  8021. 853.47 s [opt-env-conf-test] let (found, rest) = go xs
  8022. 853.47 s [opt-env-conf-test] - in (found, x : rest)
  8023. 855.33 s [opt-env-conf-test] + in (not (found), x : rest)
  8024. 855.33 s [opt-env-conf-test]
  8025. 855.33 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  8026. 855.33 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  8027. 855.33 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:184:10-15
  8028. 855.33 s [opt-env-conf-test] @@ -181,7 +181,7 @@
  8029. 855.33 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  8030. 855.33 s [opt-env-conf-test] consumeHelpMode as =
  8031. 855.33 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  8032. 855.33 s [opt-env-conf-test] - in if found
  8033. 855.33 s [opt-env-conf-test] + in if not (found)
  8034. 855.33 s [opt-env-conf-test] then (True, as')
  8035. 855.33 s [opt-env-conf-test] else consumeExactArg "-h" as'
  8036. 855.33 s [opt-env-conf-test]
  8037. 855.33 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:185:15-19
  8038. 855.33 s [opt-env-conf-test] @@ -182,7 +182,7 @@
  8039. 855.33 s [opt-env-conf-test] consumeHelpMode as =
  8040. 855.33 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  8041. 855.33 s [opt-env-conf-test] in if found
  8042. 855.33 s [opt-env-conf-test] - then (True, as')
  8043. 855.33 s [opt-env-conf-test] + then (False, as')
  8044. 855.33 s [opt-env-conf-test] else consumeExactArg "-h" as'
  8045. 855.33 s [opt-env-conf-test]
  8046. 855.33 s [opt-env-conf-test] consumeCheckMode :: [String] -> (Bool, [String])
  8047. 855.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
  8048. 855.33 s [opt-env-conf-test] @@ -181,7 +181,7 @@
  8049. 855.33 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  8050. 855.33 s [opt-env-conf-test] consumeHelpMode as =
  8051. 855.33 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  8052. 855.33 s [opt-env-conf-test] - in if found
  8053. 855.33 s [opt-env-conf-test] + in if True
  8054. 855.33 s [opt-env-conf-test] then (True, as')
  8055. 855.33 s [opt-env-conf-test] else consumeExactArg "-h" as'
  8056. 855.33 s [opt-env-conf-test]
  8057. 855.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
  8058. 855.33 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  8059. 855.33 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  8060. 855.33 s [opt-env-conf-test]
  8061. 855.33 s [opt-env-conf-test] mDebugMode <-
  8062. 855.33 s [opt-env-conf-test] - if debugMode
  8063. 855.33 s [opt-env-conf-test] + if True
  8064. 855.34 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  8065. 855.34 s [opt-env-conf-test] else pure Nothing
  8066. 855.34 s [opt-env-conf-test]
  8067. 855.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
  8068. 855.34 s [opt-env-conf-test] @@ -181,7 +181,7 @@
  8069. 855.34 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  8070. 855.34 s [opt-env-conf-test] consumeHelpMode as =
  8071. 855.34 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  8072. 855.34 s [opt-env-conf-test] - in if found
  8073. 855.34 s [opt-env-conf-test] + in if False
  8074. 855.34 s [opt-env-conf-test] then (True, as')
  8075. 855.34 s [opt-env-conf-test] else consumeExactArg "-h" as'
  8076. 855.34 s [opt-env-conf-test]
  8077. 855.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
  8078. 855.34 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  8079. 855.34 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  8080. 855.34 s [opt-env-conf-test]
  8081. 855.34 s [opt-env-conf-test] mDebugMode <-
  8082. 855.34 s [opt-env-conf-test] - if debugMode
  8083. 855.34 s [opt-env-conf-test] + if False
  8084. 855.34 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  8085. 855.34 s [opt-env-conf-test] else pure Nothing
  8086. 855.34 s [opt-env-conf-test]
  8087. 855.34 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:83:12-21
  8088. 855.34 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  8089. 855.34 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  8090. 855.34 s [opt-env-conf-test]
  8091. 855.34 s [opt-env-conf-test] mDebugMode <-
  8092. 855.34 s [opt-env-conf-test] - if debugMode
  8093. 855.34 s [opt-env-conf-test] + if not (debugMode)
  8094. 855.34 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  8095. 855.34 s [opt-env-conf-test] else pure Nothing
  8096. 855.34 s [opt-env-conf-test]
  8097. 855.34 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  8098. 855.34 s [opt-env-conf-test] @@ -281,12 +281,12 @@
  8099. 855.34 s [opt-env-conf-test] hidden
  8100. 855.34 s [opt-env-conf-test] ]
  8101. 855.34 s [opt-env-conf-test] <*> setting
  8102. 855.34 s [opt-env-conf-test] - [ switch True,
  8103. 855.34 s [opt-env-conf-test] - long "completion-enriched",
  8104. 855.34 s [opt-env-conf-test] - value False,
  8105. 855.34 s [opt-env-conf-test] - hidden,
  8106. 855.34 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  8107. 855.34 s [opt-env-conf-test] - ]
  8108. 855.34 s [opt-env-conf-test] + [ switch True,
  8109. 855.34 s [opt-env-conf-test] + long "completion-enriched",
  8110. 855.34 s [opt-env-conf-test] + value False,
  8111. 855.34 s [opt-env-conf-test] + hidden,
  8112. 855.34 s [opt-env-conf-test] + help "Whether to enable enriched completion"
  8113. 855.34 s [opt-env-conf-test] + ]
  8114. 855.34 s [opt-env-conf-test] <*> setting
  8115. 855.34 s [opt-env-conf-test] [ option,
  8116. 855.34 s [opt-env-conf-test] reader auto,
  8117. 855.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
  8118. 855.34 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  8119. 855.34 s [opt-env-conf-test]
  8120. 855.34 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  8121. 855.34 s [opt-env-conf-test]
  8122. 855.34 s [opt-env-conf-test] - if helpMode
  8123. 855.34 s [opt-env-conf-test] + if True
  8124. 855.34 s [opt-env-conf-test] then do
  8125. 855.34 s [opt-env-conf-test] progname <- getProgName
  8126. 855.34 s [opt-env-conf-test] errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
  8127. 855.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
  8128. 855.34 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  8129. 855.34 s [opt-env-conf-test]
  8130. 855.34 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  8131. 855.34 s [opt-env-conf-test]
  8132. 855.34 s [opt-env-conf-test] - if helpMode
  8133. 855.34 s [opt-env-conf-test] + if False
  8134. 855.34 s [opt-env-conf-test] then do
  8135. 855.34 s [opt-env-conf-test] progname <- getProgName
  8136. 855.34 s [opt-env-conf-test] errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
  8137. 855.34 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:89:10-18
  8138. 855.34 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  8139. 855.34 s [opt-env-conf-test]
  8140. 855.34 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  8141. 855.34 s [opt-env-conf-test]
  8142. 855.34 s [opt-env-conf-test] - if helpMode
  8143. 855.34 s [opt-env-conf-test] + if not (helpMode)
  8144. 855.34 s [opt-env-conf-test] then do
  8145. 855.34 s [opt-env-conf-test] progname <- getProgName
  8146. 855.34 s [opt-env-conf-test] errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
  8147. 855.34 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Main.hs:83:9-28
  8148. 855.34 s [opt-env-conf-test] @@ -80,9 +80,9 @@
  8149. 855.34 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  8150. 855.34 s [opt-env-conf-test]
  8151. 855.35 s [opt-env-conf-test] mDebugMode <-
  8152. 855.35 s [opt-env-conf-test] - if debugMode
  8153. 855.35 s [opt-env-conf-test] - then Just <$> getTerminalCapabilitiesFromHandle stderr
  8154. 855.35 s [opt-env-conf-test] - else pure Nothing
  8155. 855.35 s [opt-env-conf-test] + if debugMode
  8156. 855.35 s [opt-env-conf-test] + then Just <$> getTerminalCapabilitiesFromHandle stderr
  8157. 855.35 s [opt-env-conf-test] + else pure Nothing
  8158. 855.35 s [opt-env-conf-test]
  8159. 855.35 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  8160. 855.35 s [opt-env-conf-test]
  8161. 855.35 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  8162. 855.35 s [opt-env-conf-test] @@ -97,9 +97,9 @@
  8163. 855.35 s [opt-env-conf-test] exitFailure
  8164. 855.35 s [opt-env-conf-test] Right mCommandDoc -> do
  8165. 855.35 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  8166. 855.35 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  8167. 855.35 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  8168. 855.35 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  8169. 855.35 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  8170. 855.35 s [opt-env-conf-test] + Nothing -> renderHelpPage progname version progDesc docs
  8171. 855.35 s [opt-env-conf-test] + Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  8172. 855.35 s [opt-env-conf-test] exitSuccess
  8173. 855.35 s [opt-env-conf-test] else do
  8174. 855.35 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  8175. 855.35 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
  8176. 855.35 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  8177. 855.35 s [opt-env-conf-test] | x == arg -> (True, xs)
  8178. 855.35 s [opt-env-conf-test] | otherwise ->
  8179. 855.35 s [opt-env-conf-test] let (found, rest) = go xs
  8180. 855.35 s [opt-env-conf-test] - in (found, x : rest)
  8181. 855.35 s [opt-env-conf-test] + in (False, x : rest)
  8182. 855.35 s [opt-env-conf-test]
  8183. 855.35 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  8184. 855.35 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  8185. 855.35 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
  8186. 855.35 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  8187. 855.35 s [opt-env-conf-test] | x == arg -> (True, xs)
  8188. 855.35 s [opt-env-conf-test] | otherwise ->
  8189. 855.35 s [opt-env-conf-test] let (found, rest) = go xs
  8190. 855.35 s [opt-env-conf-test] - in (found, x : rest)
  8191. 855.35 s [opt-env-conf-test] + in (True, x : rest)
  8192. 855.35 s [opt-env-conf-test]
  8193. 855.35 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  8194. 855.35 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  8195. 855.35 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:172:11-19
  8196. 855.35 s [opt-env-conf-test] @@ -169,7 +169,7 @@
  8197. 855.35 s [opt-env-conf-test] go = \case
  8198. 855.35 s [opt-env-conf-test] [] -> (False, [])
  8199. 855.35 s [opt-env-conf-test] (x : xs)
  8200. 855.35 s [opt-env-conf-test] - | x == arg -> (True, xs)
  8201. 855.35 s [opt-env-conf-test] + | True -> (True, xs)
  8202. 855.35 s [opt-env-conf-test] | otherwise ->
  8203. 855.35 s [opt-env-conf-test] let (found, rest) = go xs
  8204. 855.35 s [opt-env-conf-test] in (found, x : rest)
  8205. 855.35 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:170:14-19
  8206. 855.35 s [opt-env-conf-test] @@ -167,7 +167,7 @@
  8207. 855.35 s [opt-env-conf-test] consumeExactArg arg = go
  8208. 855.35 s [opt-env-conf-test] where
  8209. 855.35 s [opt-env-conf-test] go = \case
  8210. 855.35 s [opt-env-conf-test] - [] -> (False, [])
  8211. 855.35 s [opt-env-conf-test] + [] -> (True, [])
  8212. 855.35 s [opt-env-conf-test] (x : xs)
  8213. 855.35 s [opt-env-conf-test] | x == arg -> (True, xs)
  8214. 855.35 s [opt-env-conf-test] | otherwise ->
  8215. 855.35 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:172:11-19
  8216. 855.35 s [opt-env-conf-test] @@ -169,7 +169,7 @@
  8217. 855.35 s [opt-env-conf-test] go = \case
  8218. 855.35 s [opt-env-conf-test] [] -> (False, [])
  8219. 855.35 s [opt-env-conf-test] (x : xs)
  8220. 855.35 s [opt-env-conf-test] - | x == arg -> (True, xs)
  8221. 855.35 s [opt-env-conf-test] + | not (x == arg) -> (True, xs)
  8222. 855.35 s [opt-env-conf-test] | otherwise ->
  8223. 855.35 s [opt-env-conf-test] let (found, rest) = go xs
  8224. 855.35 s [opt-env-conf-test] in (found, x : rest)
  8225. 855.35 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  8226. 855.35 s [opt-env-conf-test] @@ -196,13 +196,13 @@
  8227. 855.35 s [opt-env-conf-test] [] -> (caps, [])
  8228. 855.35 s [opt-env-conf-test] (x : xs) ->
  8229. 855.35 s [opt-env-conf-test] let t = T.pack x
  8230. 855.35 s [opt-env-conf-test] - in case T.stripPrefix "--settings-capabilities-disable-" t of
  8231. 855.35 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  8232. 855.35 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  8233. 855.35 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  8234. 855.35 s [opt-env-conf-test] - Nothing ->
  8235. 855.35 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  8236. 855.35 s [opt-env-conf-test] - in (finalCaps, x : rest)
  8237. 855.35 s [opt-env-conf-test] + in case T.stripPrefix "--settings-capabilities-disable-" t of
  8238. 855.35 s [opt-env-conf-test] + Just capName -> go (disableCapability (Capability capName) caps) xs
  8239. 855.35 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  8240. 855.35 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  8241. 855.35 s [opt-env-conf-test] + Nothing ->
  8242. 855.35 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  8243. 855.35 s [opt-env-conf-test] + in (finalCaps, x : rest)
  8244. 855.35 s [opt-env-conf-test]
  8245. 855.35 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  8246. 855.35 s [opt-env-conf-test] -- is supposed to.
  8247. 855.35 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Main.hs:184:7-38
  8248. 855.35 s [opt-env-conf-test] @@ -181,9 +181,9 @@
  8249. 855.35 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  8250. 855.35 s [opt-env-conf-test] consumeHelpMode as =
  8251. 855.35 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  8252. 855.35 s [opt-env-conf-test] - in if found
  8253. 855.35 s [opt-env-conf-test] - then (True, as')
  8254. 855.35 s [opt-env-conf-test] - else consumeExactArg "-h" as'
  8255. 855.35 s [opt-env-conf-test] + in if found
  8256. 855.35 s [opt-env-conf-test] + then (True, as')
  8257. 855.35 s [opt-env-conf-test] + else consumeExactArg "-h" as'
  8258. 855.35 s [opt-env-conf-test]
  8259. 855.35 s [opt-env-conf-test] consumeCheckMode :: [String] -> (Bool, [String])
  8260. 855.35 s [opt-env-conf-test] consumeCheckMode = consumeExactArg "--run-settings-check"
  8261. 855.35 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
  8262. 855.35 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  8263. 855.35 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  8264. 855.35 s [opt-env-conf-test] exitSuccess
  8265. 855.35 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  8266. 855.35 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8267. 855.35 s [opt-env-conf-test] + runCompletionQuery p' False index ws
  8268. 855.35 s [opt-env-conf-test] exitSuccess
  8269. 855.35 s [opt-env-conf-test] ParsedNormally a -> pure a
  8270. 855.35 s [opt-env-conf-test]
  8271. 855.35 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:161:43-51
  8272. 855.35 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  8273. 855.35 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  8274. 855.35 s [opt-env-conf-test] exitSuccess
  8275. 855.35 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  8276. 855.35 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8277. 855.35 s [opt-env-conf-test] + runCompletionQuery p' not (enriched) index ws
  8278. 855.35 s [opt-env-conf-test] exitSuccess
  8279. 855.35 s [opt-env-conf-test] ParsedNormally a -> pure a
  8280. 855.35 s [opt-env-conf-test]
  8281. 855.35 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  8282. 855.35 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  8283. 855.35 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  8284. 855.35 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  8285. 855.35 s [opt-env-conf-test] exitFailure
  8286. 855.35 s [opt-env-conf-test] - Right i -> case i of
  8287. 855.35 s [opt-env-conf-test] - ShowVersion -> do
  8288. 855.35 s [opt-env-conf-test] - progname <- getProgName
  8289. 855.35 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8290. 855.35 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8291. 855.36 s [opt-env-conf-test] - exitSuccess
  8292. 855.36 s [opt-env-conf-test] - RenderMan -> do
  8293. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8294. 855.36 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8295. 855.36 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8296. 855.36 s [opt-env-conf-test] - exitSuccess
  8297. 855.36 s [opt-env-conf-test] - RenderDocumentation -> do
  8298. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8299. 855.36 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8300. 855.36 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8301. 855.36 s [opt-env-conf-test] - exitSuccess
  8302. 855.36 s [opt-env-conf-test] - RenderNixosOptions -> do
  8303. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8304. 855.36 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8305. 855.36 s [opt-env-conf-test] - exitSuccess
  8306. 855.36 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  8307. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8308. 855.36 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  8309. 855.36 s [opt-env-conf-test] - exitSuccess
  8310. 855.36 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  8311. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8312. 855.36 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  8313. 855.36 s [opt-env-conf-test] - exitSuccess
  8314. 855.36 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  8315. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8316. 855.36 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  8317. 855.36 s [opt-env-conf-test] - exitSuccess
  8318. 855.36 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  8319. 855.36 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8320. 855.36 s [opt-env-conf-test] - exitSuccess
  8321. 855.36 s [opt-env-conf-test] - ParsedNormally a -> pure a
  8322. 855.36 s [opt-env-conf-test] + Right i -> case i of
  8323. 855.36 s [opt-env-conf-test] + ShowVersion -> do
  8324. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8325. 855.36 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8326. 855.36 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8327. 855.36 s [opt-env-conf-test] + exitSuccess
  8328. 855.36 s [opt-env-conf-test] + RenderMan -> do
  8329. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8330. 855.36 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8331. 855.36 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8332. 855.36 s [opt-env-conf-test] + exitSuccess
  8333. 855.36 s [opt-env-conf-test] + RenderDocumentation -> do
  8334. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8335. 855.36 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8336. 855.36 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8337. 855.36 s [opt-env-conf-test] + exitSuccess
  8338. 855.36 s [opt-env-conf-test] + RenderNixosOptions -> do
  8339. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8340. 855.36 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8341. 855.36 s [opt-env-conf-test] + exitSuccess
  8342. 855.36 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  8343. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8344. 855.36 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  8345. 855.36 s [opt-env-conf-test] + exitSuccess
  8346. 855.36 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  8347. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8348. 855.36 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  8349. 855.36 s [opt-env-conf-test] + exitSuccess
  8350. 855.36 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  8351. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8352. 855.36 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  8353. 855.36 s [opt-env-conf-test] + exitSuccess
  8354. 855.36 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  8355. 855.36 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  8356. 855.36 s [opt-env-conf-test] + exitSuccess
  8357. 855.36 s [opt-env-conf-test] + ParsedNormally a -> pure a
  8358. 855.36 s [opt-env-conf-test]
  8359. 855.36 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.
  8360. 855.36 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  8361. 855.36 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  8362. 855.36 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  8363. 855.36 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  8364. 855.36 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  8365. 855.36 s [opt-env-conf-test] exitFailure
  8366. 855.36 s [opt-env-conf-test] - Right i -> case i of
  8367. 855.36 s [opt-env-conf-test] - ShowVersion -> do
  8368. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8369. 855.36 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8370. 855.36 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8371. 855.36 s [opt-env-conf-test] - exitSuccess
  8372. 855.36 s [opt-env-conf-test] - RenderMan -> do
  8373. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8374. 855.36 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8375. 855.36 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8376. 855.36 s [opt-env-conf-test] - exitSuccess
  8377. 855.36 s [opt-env-conf-test] - RenderDocumentation -> do
  8378. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8379. 855.36 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8380. 855.36 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8381. 855.36 s [opt-env-conf-test] - exitSuccess
  8382. 855.36 s [opt-env-conf-test] - RenderNixosOptions -> do
  8383. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8384. 855.36 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8385. 855.36 s [opt-env-conf-test] - exitSuccess
  8386. 855.36 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  8387. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8388. 855.36 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  8389. 855.36 s [opt-env-conf-test] - exitSuccess
  8390. 855.36 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  8391. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8392. 855.36 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  8393. 855.36 s [opt-env-conf-test] - exitSuccess
  8394. 855.36 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  8395. 855.36 s [opt-env-conf-test] - progname <- getProgName
  8396. 855.36 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  8397. 855.36 s [opt-env-conf-test] - exitSuccess
  8398. 855.36 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  8399. 855.36 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8400. 855.36 s [opt-env-conf-test] - exitSuccess
  8401. 855.36 s [opt-env-conf-test] - ParsedNormally a -> pure a
  8402. 855.36 s [opt-env-conf-test] + Right i -> case i of
  8403. 855.36 s [opt-env-conf-test] + ShowVersion -> do
  8404. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8405. 855.36 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8406. 855.36 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8407. 855.36 s [opt-env-conf-test] + exitSuccess
  8408. 855.36 s [opt-env-conf-test] + RenderMan -> do
  8409. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8410. 855.36 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8411. 855.36 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8412. 855.36 s [opt-env-conf-test] + exitSuccess
  8413. 855.36 s [opt-env-conf-test] + RenderDocumentation -> do
  8414. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8415. 855.36 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8416. 855.36 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8417. 855.36 s [opt-env-conf-test] + exitSuccess
  8418. 855.36 s [opt-env-conf-test] + RenderNixosOptions -> do
  8419. 855.36 s [opt-env-conf-test] + progname <- getProgName
  8420. 856.88 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8421. 856.88 s [opt-env-conf-test] + exitSuccess
  8422. 856.88 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  8423. 856.88 s [opt-env-conf-test] + progname <- getProgName
  8424. 856.88 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  8425. 856.88 s [opt-env-conf-test] + exitSuccess
  8426. 856.88 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  8427. 856.88 s [opt-env-conf-test] + progname <- getProgName
  8428. 856.88 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  8429. 856.88 s [opt-env-conf-test] + exitSuccess
  8430. 856.88 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  8431. 856.88 s [opt-env-conf-test] + progname <- getProgName
  8432. 856.88 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  8433. 856.88 s [opt-env-conf-test] + exitSuccess
  8434. 856.88 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  8435. 856.88 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  8436. 856.88 s [opt-env-conf-test] + exitSuccess
  8437. 856.89 s [opt-env-conf-test] + ParsedNormally a -> pure a
  8438. 856.89 s [opt-env-conf-test]
  8439. 856.89 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.
  8440. 856.89 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  8441. 856.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  8442. 856.89 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  8443. 856.89 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  8444. 856.89 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  8445. 856.89 s [opt-env-conf-test] exitFailure
  8446. 856.89 s [opt-env-conf-test] - Right i -> case i of
  8447. 856.89 s [opt-env-conf-test] - ShowVersion -> do
  8448. 856.89 s [opt-env-conf-test] - progname <- getProgName
  8449. 856.89 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8450. 856.89 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8451. 856.89 s [opt-env-conf-test] - exitSuccess
  8452. 856.89 s [opt-env-conf-test] - RenderMan -> do
  8453. 856.89 s [opt-env-conf-test] - progname <- getProgName
  8454. 856.89 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8455. 856.89 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8456. 856.89 s [opt-env-conf-test] - exitSuccess
  8457. 856.89 s [opt-env-conf-test] - RenderDocumentation -> do
  8458. 856.89 s [opt-env-conf-test] - progname <- getProgName
  8459. 856.89 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8460. 856.89 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8461. 856.89 s [opt-env-conf-test] - exitSuccess
  8462. 856.89 s [opt-env-conf-test] - RenderNixosOptions -> do
  8463. 856.89 s [opt-env-conf-test] - progname <- getProgName
  8464. 856.89 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8465. 856.89 s [opt-env-conf-test] - exitSuccess
  8466. 856.89 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  8467. 856.89 s [opt-env-conf-test] - progname <- getProgName
  8468. 856.89 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  8469. 856.89 s [opt-env-conf-test] - exitSuccess
  8470. 856.89 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  8471. 856.89 s [opt-env-conf-test] - progname <- getProgName
  8472. 856.89 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  8473. 856.89 s [opt-env-conf-test] - exitSuccess
  8474. 856.89 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  8475. 856.89 s [opt-env-conf-test] - progname <- getProgName
  8476. 856.89 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  8477. 856.89 s [opt-env-conf-test] - exitSuccess
  8478. 856.89 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  8479. 856.89 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8480. 856.89 s [opt-env-conf-test] - exitSuccess
  8481. 856.89 s [opt-env-conf-test] - ParsedNormally a -> pure a
  8482. 856.89 s [opt-env-conf-test] + Right i -> case i of
  8483. 856.89 s [opt-env-conf-test] + ShowVersion -> do
  8484. 856.89 s [opt-env-conf-test] + progname <- getProgName
  8485. 856.89 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8486. 856.89 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8487. 856.89 s [opt-env-conf-test] + exitSuccess
  8488. 856.89 s [opt-env-conf-test] + RenderMan -> do
  8489. 856.89 s [opt-env-conf-test] + progname <- getProgName
  8490. 856.89 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8491. 856.89 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8492. 856.89 s [opt-env-conf-test] + exitSuccess
  8493. 856.89 s [opt-env-conf-test] + RenderDocumentation -> do
  8494. 856.89 s [opt-env-conf-test] + progname <- getProgName
  8495. 856.89 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8496. 856.89 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8497. 856.89 s [opt-env-conf-test] + exitSuccess
  8498. 856.89 s [opt-env-conf-test] + RenderNixosOptions -> do
  8499. 856.89 s [opt-env-conf-test] + progname <- getProgName
  8500. 856.89 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8501. 856.89 s [opt-env-conf-test] + exitSuccess
  8502. 856.89 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  8503. 856.89 s [opt-env-conf-test] + progname <- getProgName
  8504. 856.89 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  8505. 856.89 s [opt-env-conf-test] + exitSuccess
  8506. 856.89 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  8507. 856.89 s [opt-env-conf-test] + progname <- getProgName
  8508. 856.89 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  8509. 856.89 s [opt-env-conf-test] + exitSuccess
  8510. 856.89 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  8511. 856.89 s [opt-env-conf-test] + progname <- getProgName
  8512. 856.89 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  8513. 856.89 s [opt-env-conf-test] + exitSuccess
  8514. 856.89 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  8515. 856.89 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  8516. 856.89 s [opt-env-conf-test] + exitSuccess
  8517. 856.89 s [opt-env-conf-test] + ParsedNormally a -> pure a
  8518. 856.89 s [opt-env-conf-test]
  8519. 856.89 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.
  8520. 856.89 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  8521. 856.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  8522. 856.89 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  8523. 856.89 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  8524. 856.89 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  8525. 856.89 s [opt-env-conf-test] exitFailure
  8526. 856.89 s [opt-env-conf-test] - Right i -> case i of
  8527. 856.89 s [opt-env-conf-test] - ShowVersion -> do
  8528. 856.89 s [opt-env-conf-test] - progname <- getProgName
  8529. 856.89 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8530. 856.89 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8531. 856.89 s [opt-env-conf-test] - exitSuccess
  8532. 856.89 s [opt-env-conf-test] - RenderMan -> do
  8533. 856.89 s [opt-env-conf-test] - progname <- getProgName
  8534. 856.89 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8535. 856.89 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8536. 856.89 s [opt-env-conf-test] - exitSuccess
  8537. 856.90 s [opt-env-conf-test] - RenderDocumentation -> do
  8538. 856.90 s [opt-env-conf-test] - progname <- getProgName
  8539. 856.90 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8540. 856.90 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8541. 856.90 s [opt-env-conf-test] - exitSuccess
  8542. 856.90 s [opt-env-conf-test] - RenderNixosOptions -> do
  8543. 856.90 s [opt-env-conf-test] - progname <- getProgName
  8544. 856.90 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8545. 856.90 s [opt-env-conf-test] - exitSuccess
  8546. 856.90 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  8547. 856.90 s [opt-env-conf-test] - progname <- getProgName
  8548. 856.90 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  8549. 856.90 s [opt-env-conf-test] - exitSuccess
  8550. 856.90 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  8551. 856.90 s [opt-env-conf-test] - progname <- getProgName
  8552. 856.90 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  8553. 856.90 s [opt-env-conf-test] - exitSuccess
  8554. 856.90 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  8555. 856.90 s [opt-env-conf-test] - progname <- getProgName
  8556. 856.90 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  8557. 856.90 s [opt-env-conf-test] - exitSuccess
  8558. 856.90 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  8559. 856.90 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8560. 856.90 s [opt-env-conf-test] - exitSuccess
  8561. 856.90 s [opt-env-conf-test] - ParsedNormally a -> pure a
  8562. 856.90 s [opt-env-conf-test] + Right i -> case i of
  8563. 856.90 s [opt-env-conf-test] + ShowVersion -> do
  8564. 856.90 s [opt-env-conf-test] + progname <- getProgName
  8565. 856.90 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8566. 856.90 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8567. 856.90 s [opt-env-conf-test] + exitSuccess
  8568. 856.90 s [opt-env-conf-test] + RenderMan -> do
  8569. 856.90 s [opt-env-conf-test] + progname <- getProgName
  8570. 856.90 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8571. 856.90 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8572. 856.90 s [opt-env-conf-test] + exitSuccess
  8573. 856.90 s [opt-env-conf-test] + RenderDocumentation -> do
  8574. 856.90 s [opt-env-conf-test] + progname <- getProgName
  8575. 858.14 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8576. 858.23 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8577. 858.23 s [opt-env-conf-test] + exitSuccess
  8578. 858.23 s [opt-env-conf-test] + RenderNixosOptions -> do
  8579. 858.23 s [opt-env-conf-test] + progname <- getProgName
  8580. 858.23 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8581. 858.23 s [opt-env-conf-test] + exitSuccess
  8582. 858.23 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  8583. 858.23 s [opt-env-conf-test] + progname <- getProgName
  8584. 858.23 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  8585. 858.23 s [opt-env-conf-test] + exitSuccess
  8586. 858.23 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  8587. 858.23 s [opt-env-conf-test] + progname <- getProgName
  8588. 858.23 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  8589. 858.23 s [opt-env-conf-test] + exitSuccess
  8590. 858.23 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  8591. 858.23 s [opt-env-conf-test] + progname <- getProgName
  8592. 858.23 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  8593. 858.23 s [opt-env-conf-test] + exitSuccess
  8594. 858.23 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  8595. 858.23 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  8596. 858.23 s [opt-env-conf-test] + exitSuccess
  8597. 858.23 s [opt-env-conf-test] + ParsedNormally a -> pure a
  8598. 858.23 s [opt-env-conf-test]
  8599. 858.23 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.
  8600. 858.23 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  8601. 858.23 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
  8602. 858.23 s [opt-env-conf-test] @@ -108,7 +108,7 @@
  8603. 858.24 s [opt-env-conf-test] let readyArgs = Args.parseArgs args'''
  8604. 858.24 s [opt-env-conf-test]
  8605. 858.24 s [opt-env-conf-test] let mConfig = Nothing -- We start with no config loaded.
  8606. 858.24 s [opt-env-conf-test] - if checkMode
  8607. 858.24 s [opt-env-conf-test] + if True
  8608. 858.24 s [opt-env-conf-test] then runSettingsCheck capabilities p readyArgs envVars mConfig
  8609. 858.24 s [opt-env-conf-test] else do
  8610. 858.24 s [opt-env-conf-test] let p' = internalParser p
  8611. 858.24 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:111:14-23
  8612. 858.24 s [opt-env-conf-test] @@ -108,7 +108,7 @@
  8613. 858.24 s [opt-env-conf-test] let readyArgs = Args.parseArgs args'''
  8614. 858.24 s [opt-env-conf-test]
  8615. 858.24 s [opt-env-conf-test] let mConfig = Nothing -- We start with no config loaded.
  8616. 858.24 s [opt-env-conf-test] - if checkMode
  8617. 858.24 s [opt-env-conf-test] + if not (checkMode)
  8618. 858.24 s [opt-env-conf-test] then runSettingsCheck capabilities p readyArgs envVars mConfig
  8619. 858.24 s [opt-env-conf-test] else do
  8620. 858.24 s [opt-env-conf-test] let p' = internalParser p
  8621. 858.24 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
  8622. 858.24 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  8623. 858.24 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  8624. 858.24 s [opt-env-conf-test] exitSuccess
  8625. 858.24 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  8626. 858.24 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8627. 858.24 s [opt-env-conf-test] + runCompletionQuery p' True index ws
  8628. 858.24 s [opt-env-conf-test] exitSuccess
  8629. 858.24 s [opt-env-conf-test] ParsedNormally a -> pure a
  8630. 858.24 s [opt-env-conf-test]
  8631. 858.24 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  8632. 858.24 s [opt-env-conf-test] @@ -97,9 +97,9 @@
  8633. 858.24 s [opt-env-conf-test] exitFailure
  8634. 858.24 s [opt-env-conf-test] Right mCommandDoc -> do
  8635. 858.24 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  8636. 858.24 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  8637. 858.24 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  8638. 858.24 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  8639. 858.24 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  8640. 858.24 s [opt-env-conf-test] + Nothing -> renderHelpPage progname version progDesc docs
  8641. 858.24 s [opt-env-conf-test] + Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  8642. 858.24 s [opt-env-conf-test] exitSuccess
  8643. 858.24 s [opt-env-conf-test] else do
  8644. 858.24 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  8645. 858.24 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  8646. 858.24 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  8647. 858.24 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  8648. 858.24 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  8649. 858.24 s [opt-env-conf-test] exitFailure
  8650. 858.24 s [opt-env-conf-test] - Right i -> case i of
  8651. 858.24 s [opt-env-conf-test] - ShowVersion -> do
  8652. 858.24 s [opt-env-conf-test] - progname <- getProgName
  8653. 858.24 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8654. 858.24 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8655. 858.24 s [opt-env-conf-test] - exitSuccess
  8656. 858.24 s [opt-env-conf-test] - RenderMan -> do
  8657. 858.24 s [opt-env-conf-test] - progname <- getProgName
  8658. 858.24 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8659. 858.24 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8660. 858.24 s [opt-env-conf-test] - exitSuccess
  8661. 858.24 s [opt-env-conf-test] - RenderDocumentation -> do
  8662. 858.24 s [opt-env-conf-test] - progname <- getProgName
  8663. 858.24 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8664. 858.24 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8665. 858.24 s [opt-env-conf-test] - exitSuccess
  8666. 858.24 s [opt-env-conf-test] - RenderNixosOptions -> do
  8667. 858.24 s [opt-env-conf-test] - progname <- getProgName
  8668. 858.24 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8669. 858.24 s [opt-env-conf-test] - exitSuccess
  8670. 858.24 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  8671. 858.24 s [opt-env-conf-test] - progname <- getProgName
  8672. 858.24 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  8673. 858.24 s [opt-env-conf-test] - exitSuccess
  8674. 858.24 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  8675. 858.24 s [opt-env-conf-test] - progname <- getProgName
  8676. 858.24 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  8677. 858.24 s [opt-env-conf-test] - exitSuccess
  8678. 858.24 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  8679. 858.24 s [opt-env-conf-test] - progname <- getProgName
  8680. 858.24 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  8681. 858.24 s [opt-env-conf-test] - exitSuccess
  8682. 858.24 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  8683. 858.24 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8684. 858.24 s [opt-env-conf-test] - exitSuccess
  8685. 858.24 s [opt-env-conf-test] - ParsedNormally a -> pure a
  8686. 858.24 s [opt-env-conf-test] + Right i -> case i of
  8687. 858.24 s [opt-env-conf-test] + ShowVersion -> do
  8688. 858.24 s [opt-env-conf-test] + progname <- getProgName
  8689. 858.24 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8690. 858.24 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8691. 858.24 s [opt-env-conf-test] + exitSuccess
  8692. 858.24 s [opt-env-conf-test] + RenderMan -> do
  8693. 858.24 s [opt-env-conf-test] + progname <- getProgName
  8694. 858.24 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8695. 858.24 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8696. 858.24 s [opt-env-conf-test] + exitSuccess
  8697. 858.24 s [opt-env-conf-test] + RenderDocumentation -> do
  8698. 858.24 s [opt-env-conf-test] + progname <- getProgName
  8699. 858.24 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8700. 858.25 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8701. 858.25 s [opt-env-conf-test] + exitSuccess
  8702. 858.25 s [opt-env-conf-test] + RenderNixosOptions -> do
  8703. 858.25 s [opt-env-conf-test] + progname <- getProgName
  8704. 858.25 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8705. 858.25 s [opt-env-conf-test] + exitSuccess
  8706. 858.25 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  8707. 858.25 s [opt-env-conf-test] + progname <- getProgName
  8708. 858.25 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  8709. 858.25 s [opt-env-conf-test] + exitSuccess
  8710. 858.25 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  8711. 858.25 s [opt-env-conf-test] + progname <- getProgName
  8712. 858.25 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  8713. 858.25 s [opt-env-conf-test] + exitSuccess
  8714. 858.25 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  8715. 858.25 s [opt-env-conf-test] + progname <- getProgName
  8716. 858.25 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  8717. 858.25 s [opt-env-conf-test] + exitSuccess
  8718. 858.25 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  8719. 858.25 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  8720. 858.25 s [opt-env-conf-test] + exitSuccess
  8721. 858.25 s [opt-env-conf-test] + ParsedNormally a -> pure a
  8722. 858.25 s [opt-env-conf-test]
  8723. 858.25 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.
  8724. 858.25 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  8725. 858.25 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  8726. 858.25 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  8727. 858.25 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  8728. 858.25 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  8729. 858.25 s [opt-env-conf-test] exitFailure
  8730. 858.25 s [opt-env-conf-test] - Right i -> case i of
  8731. 858.25 s [opt-env-conf-test] - ShowVersion -> do
  8732. 858.25 s [opt-env-conf-test] - progname <- getProgName
  8733. 858.25 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8734. 858.25 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8735. 858.25 s [opt-env-conf-test] - exitSuccess
  8736. 858.25 s [opt-env-conf-test] - RenderMan -> do
  8737. 860.51 s [opt-env-conf-test] - progname <- getProgName
  8738. 860.51 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8739. 860.51 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8740. 860.51 s [opt-env-conf-test] - exitSuccess
  8741. 860.51 s [opt-env-conf-test] - RenderDocumentation -> do
  8742. 860.51 s [opt-env-conf-test] - progname <- getProgName
  8743. 860.51 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8744. 860.51 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8745. 860.51 s [opt-env-conf-test] - exitSuccess
  8746. 860.51 s [opt-env-conf-test] - RenderNixosOptions -> do
  8747. 860.51 s [opt-env-conf-test] - progname <- getProgName
  8748. 860.51 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8749. 860.51 s [opt-env-conf-test] - exitSuccess
  8750. 860.51 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  8751. 860.51 s [opt-env-conf-test] - progname <- getProgName
  8752. 860.51 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  8753. 860.51 s [opt-env-conf-test] - exitSuccess
  8754. 860.51 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  8755. 860.51 s [opt-env-conf-test] - progname <- getProgName
  8756. 860.51 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  8757. 860.51 s [opt-env-conf-test] - exitSuccess
  8758. 860.51 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  8759. 860.51 s [opt-env-conf-test] - progname <- getProgName
  8760. 860.51 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  8761. 860.51 s [opt-env-conf-test] - exitSuccess
  8762. 860.51 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  8763. 860.51 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8764. 860.51 s [opt-env-conf-test] - exitSuccess
  8765. 860.51 s [opt-env-conf-test] - ParsedNormally a -> pure a
  8766. 860.51 s [opt-env-conf-test] + Right i -> case i of
  8767. 860.51 s [opt-env-conf-test] + ShowVersion -> do
  8768. 860.51 s [opt-env-conf-test] + progname <- getProgName
  8769. 860.51 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8770. 860.51 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8771. 860.51 s [opt-env-conf-test] + exitSuccess
  8772. 860.51 s [opt-env-conf-test] + RenderMan -> do
  8773. 860.51 s [opt-env-conf-test] + progname <- getProgName
  8774. 860.51 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8775. 860.51 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8776. 860.51 s [opt-env-conf-test] + exitSuccess
  8777. 860.51 s [opt-env-conf-test] + RenderDocumentation -> do
  8778. 860.51 s [opt-env-conf-test] + progname <- getProgName
  8779. 860.51 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  8780. 860.51 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8781. 860.51 s [opt-env-conf-test] + exitSuccess
  8782. 860.51 s [opt-env-conf-test] + RenderNixosOptions -> do
  8783. 860.51 s [opt-env-conf-test] + progname <- getProgName
  8784. 860.51 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8785. 860.51 s [opt-env-conf-test] + exitSuccess
  8786. 860.51 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  8787. 860.51 s [opt-env-conf-test] + progname <- getProgName
  8788. 860.51 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  8789. 860.51 s [opt-env-conf-test] + exitSuccess
  8790. 860.51 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  8791. 860.51 s [opt-env-conf-test] + progname <- getProgName
  8792. 860.51 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  8793. 860.51 s [opt-env-conf-test] + exitSuccess
  8794. 860.51 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  8795. 860.51 s [opt-env-conf-test] + progname <- getProgName
  8796. 860.52 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  8797. 860.52 s [opt-env-conf-test] + exitSuccess
  8798. 860.52 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  8799. 860.52 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  8800. 860.52 s [opt-env-conf-test] + exitSuccess
  8801. 860.52 s [opt-env-conf-test] + ParsedNormally a -> pure a
  8802. 860.52 s [opt-env-conf-test]
  8803. 860.52 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.
  8804. 860.52 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  8805. 860.52 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
  8806. 860.52 s [opt-env-conf-test] @@ -93,6 +93,6 @@
  8807. 860.52 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  8808. 860.52 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  8809. 860.52 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  8810. 860.52 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  8811. 860.52 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  8812. 860.52 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  8813. 860.52 s [opt-env-conf-test] goCommand = go . commandParser
  8814. 860.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  8815. 860.52 s [opt-env-conf-test] @@ -91,8 +91,8 @@
  8816. 860.52 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  8817. 860.52 s [opt-env-conf-test]
  8818. 860.52 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  8819. 860.52 s [opt-env-conf-test] - combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  8820. 860.52 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  8821. 860.52 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  8822. 860.52 s [opt-env-conf-test] + combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  8823. 860.52 s [opt-env-conf-test] + (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  8824. 860.52 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  8825. 860.52 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  8826. 860.52 s [opt-env-conf-test] goCommand = go . commandParser
  8827. 860.52 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
  8828. 860.52 s [opt-env-conf-test] @@ -35,7 +35,7 @@
  8829. 860.52 s [opt-env-conf-test] ("# " <>)
  8830. 860.52 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  8831. 860.52 s [opt-env-conf-test] "This file was generated by running",
  8832. 860.52 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  8833. 860.52 s [opt-env-conf-test] + unwords [],
  8834. 860.52 s [opt-env-conf-test] T.unpack content
  8835. 860.52 s [opt-env-conf-test] ]
  8836. 860.52 s [opt-env-conf-test]
  8837. 860.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  8838. 860.52 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  8839. 860.52 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  8840. 860.52 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  8841. 860.52 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  8842. 860.52 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  8843. 860.52 s [opt-env-conf-test] - (Nothing, _) -> o2
  8844. 860.52 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  8845. 860.52 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  8846. 860.52 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  8847. 860.52 s [opt-env-conf-test] + (Nothing, _) -> o2
  8848. 860.52 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  8849. 860.52 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  8850. 860.52 s [opt-env-conf-test]
  8851. 860.52 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  8852. 860.52 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  8853. 860.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
  8854. 860.52 s [opt-env-conf-test] @@ -72,17 +72,17 @@
  8855. 860.52 s [opt-env-conf-test] let codecTups = maybe [] NE.toList (settingConfigVals s)
  8856. 860.52 s [opt-env-conf-test] in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
  8857. 860.52 s [opt-env-conf-test] let go' :: NonEmpty Text -> Map Text Option
  8858. 860.52 s [opt-env-conf-test] - go' (p :| ps) = case NE.nonEmpty ps of
  8859. 860.52 s [opt-env-conf-test] - Nothing ->
  8860. 860.52 s [opt-env-conf-test] - let oc =
  8861. 860.52 s [opt-env-conf-test] - maybe
  8862. 860.52 s [opt-env-conf-test] - (optionalFieldWith' p configValSettingCodec)
  8863. 860.52 s [opt-env-conf-test] - (optionalFieldWith p configValSettingCodec)
  8864. 860.52 s [opt-env-conf-test] - (T.pack <$> settingHelp s)
  8865. 860.52 s [opt-env-conf-test] - in objectCodecNixOptions oc
  8866. 860.52 s [opt-env-conf-test] - Just rest ->
  8867. 860.52 s [opt-env-conf-test] - let m = go' rest
  8868. 860.52 s [opt-env-conf-test] - in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  8869. 860.52 s [opt-env-conf-test] + go' (p :| ps) = case NE.nonEmpty ps of
  8870. 860.52 s [opt-env-conf-test] + Nothing ->
  8871. 860.52 s [opt-env-conf-test] + let oc =
  8872. 860.52 s [opt-env-conf-test] + maybe
  8873. 860.52 s [opt-env-conf-test] + (optionalFieldWith' p configValSettingCodec)
  8874. 860.52 s [opt-env-conf-test] + (optionalFieldWith p configValSettingCodec)
  8875. 860.52 s [opt-env-conf-test] + (T.pack <$> settingHelp s)
  8876. 860.52 s [opt-env-conf-test] + in objectCodecNixOptions oc
  8877. 860.52 s [opt-env-conf-test] + Just rest ->
  8878. 860.52 s [opt-env-conf-test] + let m = go' rest
  8879. 860.52 s [opt-env-conf-test] + in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  8880. 860.52 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  8881. 860.52 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  8882. 860.52 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  8883. 860.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
  8884. 860.52 s [opt-env-conf-test] @@ -72,17 +72,17 @@
  8885. 860.52 s [opt-env-conf-test] let codecTups = maybe [] NE.toList (settingConfigVals s)
  8886. 860.52 s [opt-env-conf-test] in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
  8887. 860.52 s [opt-env-conf-test] let go' :: NonEmpty Text -> Map Text Option
  8888. 860.52 s [opt-env-conf-test] - go' (p :| ps) = case NE.nonEmpty ps of
  8889. 860.52 s [opt-env-conf-test] - Nothing ->
  8890. 860.52 s [opt-env-conf-test] - let oc =
  8891. 860.52 s [opt-env-conf-test] - maybe
  8892. 860.98 s [opt-env-conf-test] - (optionalFieldWith' p configValSettingCodec)
  8893. 860.98 s [opt-env-conf-test] - (optionalFieldWith p configValSettingCodec)
  8894. 860.98 s [opt-env-conf-test] - (T.pack <$> settingHelp s)
  8895. 860.98 s [opt-env-conf-test] - in objectCodecNixOptions oc
  8896. 860.98 s [opt-env-conf-test] - Just rest ->
  8897. 860.98 s [opt-env-conf-test] - let m = go' rest
  8898. 860.98 s [opt-env-conf-test] - in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  8899. 860.98 s [opt-env-conf-test] + go' (p :| ps) = case NE.nonEmpty ps of
  8900. 860.98 s [opt-env-conf-test] + Nothing ->
  8901. 860.98 s [opt-env-conf-test] + let oc =
  8902. 860.98 s [opt-env-conf-test] + maybe
  8903. 860.98 s [opt-env-conf-test] + (optionalFieldWith' p configValSettingCodec)
  8904. 860.98 s [opt-env-conf-test] + (optionalFieldWith p configValSettingCodec)
  8905. 860.98 s [opt-env-conf-test] + (T.pack <$> settingHelp s)
  8906. 860.98 s [opt-env-conf-test] + in objectCodecNixOptions oc
  8907. 860.98 s [opt-env-conf-test] + Just rest ->
  8908. 860.98 s [opt-env-conf-test] + let m = go' rest
  8909. 860.98 s [opt-env-conf-test] + in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  8910. 860.98 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  8911. 860.98 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  8912. 860.98 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  8913. 860.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  8914. 860.98 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  8915. 860.98 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  8916. 860.98 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  8917. 860.98 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  8918. 860.98 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  8919. 860.98 s [opt-env-conf-test] - (Nothing, _) -> o2
  8920. 860.98 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  8921. 860.98 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  8922. 860.98 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  8923. 860.98 s [opt-env-conf-test] + (Nothing, _) -> o2
  8924. 860.98 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  8925. 860.98 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  8926. 860.98 s [opt-env-conf-test]
  8927. 860.98 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  8928. 860.98 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  8929. 860.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  8930. 860.98 s [opt-env-conf-test] @@ -91,8 +91,8 @@
  8931. 860.98 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  8932. 860.98 s [opt-env-conf-test]
  8933. 860.98 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  8934. 860.98 s [opt-env-conf-test] - combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  8935. 860.98 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  8936. 860.98 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  8937. 860.98 s [opt-env-conf-test] + combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  8938. 860.98 s [opt-env-conf-test] + (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  8939. 860.98 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  8940. 860.98 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  8941. 860.98 s [opt-env-conf-test] goCommand = go . commandParser
  8942. 860.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  8943. 860.99 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  8944. 860.99 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  8945. 860.99 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  8946. 860.99 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  8947. 860.99 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  8948. 860.99 s [opt-env-conf-test] - (Nothing, _) -> o2
  8949. 860.99 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  8950. 860.99 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  8951. 860.99 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  8952. 860.99 s [opt-env-conf-test] + (Nothing, _) -> o2
  8953. 860.99 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  8954. 860.99 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  8955. 860.99 s [opt-env-conf-test]
  8956. 860.99 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  8957. 860.99 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  8958. 860.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  8959. 860.99 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  8960. 860.99 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  8961. 860.99 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  8962. 860.99 s [opt-env-conf-test] exitFailure
  8963. 860.99 s [opt-env-conf-test] - Right i -> case i of
  8964. 860.99 s [opt-env-conf-test] - ShowVersion -> do
  8965. 860.99 s [opt-env-conf-test] - progname <- getProgName
  8966. 860.99 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8967. 860.99 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  8968. 860.99 s [opt-env-conf-test] - exitSuccess
  8969. 860.99 s [opt-env-conf-test] - RenderMan -> do
  8970. 860.99 s [opt-env-conf-test] - progname <- getProgName
  8971. 860.99 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8972. 860.99 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  8973. 860.99 s [opt-env-conf-test] - exitSuccess
  8974. 860.99 s [opt-env-conf-test] - RenderDocumentation -> do
  8975. 860.99 s [opt-env-conf-test] - progname <- getProgName
  8976. 860.99 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  8977. 860.99 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  8978. 860.99 s [opt-env-conf-test] - exitSuccess
  8979. 860.99 s [opt-env-conf-test] - RenderNixosOptions -> do
  8980. 860.99 s [opt-env-conf-test] - progname <- getProgName
  8981. 860.99 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  8982. 860.99 s [opt-env-conf-test] - exitSuccess
  8983. 860.99 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  8984. 860.99 s [opt-env-conf-test] - progname <- getProgName
  8985. 860.99 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  8986. 860.99 s [opt-env-conf-test] - exitSuccess
  8987. 860.99 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  8988. 860.99 s [opt-env-conf-test] - progname <- getProgName
  8989. 860.99 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  8990. 860.99 s [opt-env-conf-test] - exitSuccess
  8991. 860.99 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  8992. 860.99 s [opt-env-conf-test] - progname <- getProgName
  8993. 860.99 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  8994. 860.99 s [opt-env-conf-test] - exitSuccess
  8995. 860.99 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  8996. 860.99 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  8997. 860.99 s [opt-env-conf-test] - exitSuccess
  8998. 860.99 s [opt-env-conf-test] - ParsedNormally a -> pure a
  8999. 860.99 s [opt-env-conf-test] + Right i -> case i of
  9000. 860.99 s [opt-env-conf-test] + ShowVersion -> do
  9001. 860.99 s [opt-env-conf-test] + progname <- getProgName
  9002. 860.99 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  9003. 860.99 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  9004. 860.99 s [opt-env-conf-test] + exitSuccess
  9005. 860.99 s [opt-env-conf-test] + RenderMan -> do
  9006. 860.99 s [opt-env-conf-test] + progname <- getProgName
  9007. 860.99 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  9008. 860.99 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  9009. 860.99 s [opt-env-conf-test] + exitSuccess
  9010. 860.99 s [opt-env-conf-test] + RenderDocumentation -> do
  9011. 860.99 s [opt-env-conf-test] + progname <- getProgName
  9012. 860.99 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  9013. 860.99 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  9014. 860.99 s [opt-env-conf-test] + exitSuccess
  9015. 860.99 s [opt-env-conf-test] + RenderNixosOptions -> do
  9016. 860.99 s [opt-env-conf-test] + progname <- getProgName
  9017. 860.99 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  9018. 860.99 s [opt-env-conf-test] + exitSuccess
  9019. 860.99 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  9020. 860.99 s [opt-env-conf-test] + progname <- getProgName
  9021. 860.99 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  9022. 860.99 s [opt-env-conf-test] + exitSuccess
  9023. 860.99 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  9024. 860.99 s [opt-env-conf-test] + progname <- getProgName
  9025. 860.99 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  9026. 860.99 s [opt-env-conf-test] + exitSuccess
  9027. 860.99 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  9028. 860.99 s [opt-env-conf-test] + progname <- getProgName
  9029. 860.99 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  9030. 860.99 s [opt-env-conf-test] + exitSuccess
  9031. 860.99 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  9032. 860.99 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  9033. 860.99 s [opt-env-conf-test] + exitSuccess
  9034. 860.99 s [opt-env-conf-test] + ParsedNormally a -> pure a
  9035. 860.99 s [opt-env-conf-test]
  9036. 860.99 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.
  9037. 860.99 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  9038. 860.99 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
  9039. 860.99 s [opt-env-conf-test] @@ -93,6 +93,6 @@
  9040. 860.99 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  9041. 861.07 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  9042. 861.07 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  9043. 861.07 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  9044. 861.07 s [opt-env-conf-test] + _ -> OptionTypeOneOf []
  9045. 861.07 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  9046. 861.07 s [opt-env-conf-test] goCommand = go . commandParser
  9047. 861.07 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  9048. 861.07 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  9049. 861.07 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  9050. 861.07 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  9051. 861.07 s [opt-env-conf-test] exitFailure
  9052. 861.07 s [opt-env-conf-test] - Right i -> case i of
  9053. 861.07 s [opt-env-conf-test] - ShowVersion -> do
  9054. 861.07 s [opt-env-conf-test] - progname <- getProgName
  9055. 861.07 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  9056. 861.07 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  9057. 861.07 s [opt-env-conf-test] - exitSuccess
  9058. 861.07 s [opt-env-conf-test] - RenderMan -> do
  9059. 861.07 s [opt-env-conf-test] - progname <- getProgName
  9060. 861.07 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  9061. 861.07 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  9062. 861.08 s [opt-env-conf-test] - exitSuccess
  9063. 861.08 s [opt-env-conf-test] - RenderDocumentation -> do
  9064. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9065. 861.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  9066. 861.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  9067. 861.08 s [opt-env-conf-test] - exitSuccess
  9068. 861.08 s [opt-env-conf-test] - RenderNixosOptions -> do
  9069. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9070. 861.08 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  9071. 861.08 s [opt-env-conf-test] - exitSuccess
  9072. 861.08 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  9073. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9074. 861.08 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  9075. 861.08 s [opt-env-conf-test] - exitSuccess
  9076. 861.08 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  9077. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9078. 861.08 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  9079. 861.08 s [opt-env-conf-test] - exitSuccess
  9080. 861.08 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  9081. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9082. 861.08 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  9083. 861.08 s [opt-env-conf-test] - exitSuccess
  9084. 861.08 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  9085. 861.08 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  9086. 861.08 s [opt-env-conf-test] - exitSuccess
  9087. 861.08 s [opt-env-conf-test] - ParsedNormally a -> pure a
  9088. 861.08 s [opt-env-conf-test] + Right i -> case i of
  9089. 861.08 s [opt-env-conf-test] + ShowVersion -> do
  9090. 861.08 s [opt-env-conf-test] + progname <- getProgName
  9091. 861.08 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  9092. 861.08 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  9093. 861.08 s [opt-env-conf-test] + exitSuccess
  9094. 861.08 s [opt-env-conf-test] + RenderMan -> do
  9095. 861.08 s [opt-env-conf-test] + progname <- getProgName
  9096. 861.08 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  9097. 861.08 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  9098. 861.08 s [opt-env-conf-test] + exitSuccess
  9099. 861.08 s [opt-env-conf-test] + RenderDocumentation -> do
  9100. 861.08 s [opt-env-conf-test] + progname <- getProgName
  9101. 861.08 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  9102. 861.08 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  9103. 861.08 s [opt-env-conf-test] + exitSuccess
  9104. 861.08 s [opt-env-conf-test] + RenderNixosOptions -> do
  9105. 861.08 s [opt-env-conf-test] + progname <- getProgName
  9106. 861.08 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  9107. 861.08 s [opt-env-conf-test] + exitSuccess
  9108. 861.08 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  9109. 861.08 s [opt-env-conf-test] + progname <- getProgName
  9110. 861.08 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  9111. 861.08 s [opt-env-conf-test] + exitSuccess
  9112. 861.08 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  9113. 861.08 s [opt-env-conf-test] + progname <- getProgName
  9114. 861.08 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  9115. 861.08 s [opt-env-conf-test] + exitSuccess
  9116. 861.08 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  9117. 861.08 s [opt-env-conf-test] + progname <- getProgName
  9118. 861.08 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  9119. 861.08 s [opt-env-conf-test] + exitSuccess
  9120. 861.08 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  9121. 861.08 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  9122. 861.08 s [opt-env-conf-test] + exitSuccess
  9123. 861.08 s [opt-env-conf-test] + ParsedNormally a -> pure a
  9124. 861.08 s [opt-env-conf-test]
  9125. 861.08 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.
  9126. 861.08 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  9127. 861.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  9128. 861.08 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  9129. 861.08 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  9130. 861.08 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  9131. 861.08 s [opt-env-conf-test] exitFailure
  9132. 861.08 s [opt-env-conf-test] - Right i -> case i of
  9133. 861.08 s [opt-env-conf-test] - ShowVersion -> do
  9134. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9135. 861.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  9136. 861.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  9137. 861.08 s [opt-env-conf-test] - exitSuccess
  9138. 861.08 s [opt-env-conf-test] - RenderMan -> do
  9139. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9140. 861.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  9141. 861.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  9142. 861.08 s [opt-env-conf-test] - exitSuccess
  9143. 861.08 s [opt-env-conf-test] - RenderDocumentation -> do
  9144. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9145. 861.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  9146. 861.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  9147. 861.08 s [opt-env-conf-test] - exitSuccess
  9148. 861.08 s [opt-env-conf-test] - RenderNixosOptions -> do
  9149. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9150. 861.08 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  9151. 861.08 s [opt-env-conf-test] - exitSuccess
  9152. 861.08 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  9153. 861.08 s [opt-env-conf-test] - progname <- getProgName
  9154. 861.09 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  9155. 861.09 s [opt-env-conf-test] - exitSuccess
  9156. 861.09 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  9157. 861.09 s [opt-env-conf-test] - progname <- getProgName
  9158. 861.09 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  9159. 861.09 s [opt-env-conf-test] - exitSuccess
  9160. 861.09 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  9161. 861.09 s [opt-env-conf-test] - progname <- getProgName
  9162. 861.09 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  9163. 861.09 s [opt-env-conf-test] - exitSuccess
  9164. 861.09 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  9165. 861.09 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  9166. 861.09 s [opt-env-conf-test] - exitSuccess
  9167. 861.09 s [opt-env-conf-test] - ParsedNormally a -> pure a
  9168. 861.09 s [opt-env-conf-test] + Right i -> case i of
  9169. 861.09 s [opt-env-conf-test] + ShowVersion -> do
  9170. 861.09 s [opt-env-conf-test] + progname <- getProgName
  9171. 861.09 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  9172. 861.09 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  9173. 861.09 s [opt-env-conf-test] + exitSuccess
  9174. 861.09 s [opt-env-conf-test] + RenderMan -> do
  9175. 861.09 s [opt-env-conf-test] + progname <- getProgName
  9176. 861.09 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  9177. 861.09 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  9178. 861.09 s [opt-env-conf-test] + exitSuccess
  9179. 861.09 s [opt-env-conf-test] + RenderDocumentation -> do
  9180. 861.09 s [opt-env-conf-test] + progname <- getProgName
  9181. 861.09 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  9182. 861.09 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  9183. 861.09 s [opt-env-conf-test] + exitSuccess
  9184. 861.09 s [opt-env-conf-test] + RenderNixosOptions -> do
  9185. 861.09 s [opt-env-conf-test] + progname <- getProgName
  9186. 861.09 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  9187. 861.09 s [opt-env-conf-test] + exitSuccess
  9188. 861.09 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  9189. 861.09 s [opt-env-conf-test] + progname <- getProgName
  9190. 861.09 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  9191. 861.09 s [opt-env-conf-test] + exitSuccess
  9192. 861.09 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  9193. 861.09 s [opt-env-conf-test] + progname <- getProgName
  9194. 861.09 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  9195. 861.09 s [opt-env-conf-test] + exitSuccess
  9196. 861.95 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  9197. 861.95 s [opt-env-conf-test] + progname <- getProgName
  9198. 861.95 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  9199. 861.95 s [opt-env-conf-test] + exitSuccess
  9200. 861.95 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  9201. 861.95 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  9202. 861.96 s [opt-env-conf-test] + exitSuccess
  9203. 861.96 s [opt-env-conf-test] + ParsedNormally a -> pure a
  9204. 861.96 s [opt-env-conf-test]
  9205. 861.96 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.
  9206. 861.96 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  9207. 861.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
  9208. 861.96 s [opt-env-conf-test] @@ -700,11 +700,11 @@
  9209. 861.96 s [opt-env-conf-test] ppOpt :: [Dashed] -> PP (Maybe String)
  9210. 861.96 s [opt-env-conf-test] ppOpt ds = do
  9211. 861.96 s [opt-env-conf-test] args <- gets ppStateArgs
  9212. 861.96 s [opt-env-conf-test] - case Args.consumeOption ds args of
  9213. 861.96 s [opt-env-conf-test] - Nothing -> pure Nothing
  9214. 861.96 s [opt-env-conf-test] - Just (a, args') -> do
  9215. 861.96 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  9216. 861.96 s [opt-env-conf-test] - pure (Just a)
  9217. 861.96 s [opt-env-conf-test] + case Args.consumeOption ds args of
  9218. 861.96 s [opt-env-conf-test] + Nothing -> pure Nothing
  9219. 861.96 s [opt-env-conf-test] + Just (a, args') -> do
  9220. 861.96 s [opt-env-conf-test] + modify' (\s -> s {ppStateArgs = args'})
  9221. 861.96 s [opt-env-conf-test] + pure (Just a)
  9222. 861.96 s [opt-env-conf-test]
  9223. 861.96 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  9224. 861.96 s [opt-env-conf-test] ppSwitch ds = do
  9225. 861.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  9226. 861.96 s [opt-env-conf-test] @@ -33,11 +33,7 @@
  9227. 861.96 s [opt-env-conf-test] unlines $
  9228. 861.96 s [opt-env-conf-test] map
  9229. 861.96 s [opt-env-conf-test] ("# " <>)
  9230. 861.96 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  9231. 861.96 s [opt-env-conf-test] - "This file was generated by running",
  9232. 861.96 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  9233. 861.96 s [opt-env-conf-test] - T.unpack content
  9234. 861.96 s [opt-env-conf-test] - ]
  9235. 861.96 s [opt-env-conf-test] + []
  9236. 861.96 s [opt-env-conf-test]
  9237. 861.96 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  9238. 861.96 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  9239. 861.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
  9240. 861.96 s [opt-env-conf-test] @@ -709,11 +709,11 @@
  9241. 861.96 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  9242. 861.96 s [opt-env-conf-test] ppSwitch ds = do
  9243. 861.96 s [opt-env-conf-test] args <- gets ppStateArgs
  9244. 861.96 s [opt-env-conf-test] - case Args.consumeSwitch ds args of
  9245. 861.96 s [opt-env-conf-test] - Nothing -> pure Nothing
  9246. 861.96 s [opt-env-conf-test] - Just args' -> do
  9247. 861.96 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  9248. 861.96 s [opt-env-conf-test] - pure (Just ())
  9249. 861.96 s [opt-env-conf-test] + case Args.consumeSwitch ds args of
  9250. 861.96 s [opt-env-conf-test] + Nothing -> pure Nothing
  9251. 861.96 s [opt-env-conf-test] + Just args' -> do
  9252. 861.96 s [opt-env-conf-test] + modify' (\s -> s {ppStateArgs = args'})
  9253. 861.96 s [opt-env-conf-test] + pure (Just ())
  9254. 861.96 s [opt-env-conf-test]
  9255. 861.96 s [opt-env-conf-test] ppErrors' :: NonEmpty ParseError -> PP a
  9256. 861.96 s [opt-env-conf-test] ppErrors' = PP . lift . ValidationT . lift . pure . Failure
  9257. 861.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
  9258. 861.96 s [opt-env-conf-test] @@ -709,11 +709,11 @@
  9259. 861.96 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  9260. 861.96 s [opt-env-conf-test] ppSwitch ds = do
  9261. 861.96 s [opt-env-conf-test] args <- gets ppStateArgs
  9262. 861.96 s [opt-env-conf-test] - case Args.consumeSwitch ds args of
  9263. 861.96 s [opt-env-conf-test] - Nothing -> pure Nothing
  9264. 861.96 s [opt-env-conf-test] - Just args' -> do
  9265. 861.96 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  9266. 861.96 s [opt-env-conf-test] - pure (Just ())
  9267. 861.96 s [opt-env-conf-test] + case Args.consumeSwitch ds args of
  9268. 861.96 s [opt-env-conf-test] + Nothing -> pure Nothing
  9269. 861.96 s [opt-env-conf-test] + Just args' -> do
  9270. 861.96 s [opt-env-conf-test] + modify' (\s -> s {ppStateArgs = args'})
  9271. 861.96 s [opt-env-conf-test] + pure (Just ())
  9272. 861.96 s [opt-env-conf-test]
  9273. 861.96 s [opt-env-conf-test] ppErrors' :: NonEmpty ParseError -> PP a
  9274. 861.96 s [opt-env-conf-test] ppErrors' = PP . lift . ValidationT . lift . pure . Failure
  9275. 861.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  9276. 861.96 s [opt-env-conf-test] @@ -33,11 +33,10 @@
  9277. 861.96 s [opt-env-conf-test] unlines $
  9278. 861.96 s [opt-env-conf-test] map
  9279. 861.96 s [opt-env-conf-test] ("# " <>)
  9280. 861.96 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  9281. 861.96 s [opt-env-conf-test] - "This file was generated by running",
  9282. 861.96 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  9283. 861.96 s [opt-env-conf-test] - T.unpack content
  9284. 861.96 s [opt-env-conf-test] - ]
  9285. 861.96 s [opt-env-conf-test] + [ "DO NOT EDIT THIS FILE DIRECTLY",
  9286. 861.96 s [opt-env-conf-test] + "This file was generated by running",
  9287. 861.96 s [opt-env-conf-test] + unwords [progname, "--render-nix-options"]
  9288. 861.96 s [opt-env-conf-test] +]
  9289. 861.96 s [opt-env-conf-test]
  9290. 861.96 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  9291. 861.96 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  9292. 861.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  9293. 861.96 s [opt-env-conf-test] @@ -33,11 +33,11 @@
  9294. 861.96 s [opt-env-conf-test] unlines $
  9295. 861.96 s [opt-env-conf-test] map
  9296. 861.96 s [opt-env-conf-test] ("# " <>)
  9297. 861.96 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  9298. 861.96 s [opt-env-conf-test] - "This file was generated by running",
  9299. 861.96 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  9300. 861.96 s [opt-env-conf-test] - T.unpack content
  9301. 861.96 s [opt-env-conf-test] - ]
  9302. 861.96 s [opt-env-conf-test] + [ "DO NOT EDIT THIS FILE DIRECTLY",
  9303. 861.96 s [opt-env-conf-test] + "This file was generated by running",
  9304. 861.96 s [opt-env-conf-test] + unwords [progname, "--render-nix-options"],
  9305. 861.96 s [opt-env-conf-test] + T.unpack content
  9306. 861.96 s [opt-env-conf-test] + ]
  9307. 861.96 s [opt-env-conf-test]
  9308. 861.96 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  9309. 861.96 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  9310. 861.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
  9311. 861.96 s [opt-env-conf-test] @@ -35,7 +35,7 @@
  9312. 861.96 s [opt-env-conf-test] ("# " <>)
  9313. 861.96 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  9314. 861.96 s [opt-env-conf-test] "This file was generated by running",
  9315. 861.96 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  9316. 861.96 s [opt-env-conf-test] + unwords [progname, "--render-nix-options"],
  9317. 861.96 s [opt-env-conf-test] T.unpack content
  9318. 861.96 s [opt-env-conf-test] ]
  9319. 861.96 s [opt-env-conf-test]
  9320. 861.96 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:638:10-36
  9321. 861.96 s [opt-env-conf-test] @@ -635,7 +635,7 @@
  9322. 861.96 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  9323. 861.96 s [opt-env-conf-test] case errOrRes of
  9324. 861.96 s [opt-env-conf-test] Failure errs ->
  9325. 861.96 s [opt-env-conf-test] - if all errorIsForgivable errs
  9326. 861.96 s [opt-env-conf-test] + if not (all errorIsForgivable errs)
  9327. 861.97 s [opt-env-conf-test] then do
  9328. 861.97 s [opt-env-conf-test] pure Nothing
  9329. 861.97 s [opt-env-conf-test] else ppErrors' errs
  9330. 861.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  9331. 861.97 s [opt-env-conf-test] @@ -513,9 +513,9 @@
  9332. 861.97 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  9333. 861.97 s [opt-env-conf-test] case mResOrNext of
  9334. 861.97 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  9335. 861.97 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  9336. 861.97 s [opt-env-conf-test] - Failure errs -> Left errs
  9337. 861.97 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  9338. 861.97 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  9339. 861.97 s [opt-env-conf-test] + Failure errs -> Left errs
  9340. 861.97 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  9341. 861.97 s [opt-env-conf-test] where
  9342. 861.97 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  9343. 861.97 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  9344. 861.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  9345. 861.97 s [opt-env-conf-test] @@ -511,11 +511,11 @@
  9346. 861.97 s [opt-env-conf-test] ppEnvIndent = 0
  9347. 861.97 s [opt-env-conf-test] }
  9348. 861.97 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  9349. 861.97 s [opt-env-conf-test] - case mResOrNext of
  9350. 861.97 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  9351. 861.97 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  9352. 861.97 s [opt-env-conf-test] - Failure errs -> Left errs
  9353. 861.97 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  9354. 861.97 s [opt-env-conf-test] + case mResOrNext of
  9355. 861.97 s [opt-env-conf-test] + Nothing -> pure $ Right Nothing
  9356. 861.97 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  9357. 861.97 s [opt-env-conf-test] + Failure errs -> Left errs
  9358. 861.97 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  9359. 861.97 s [opt-env-conf-test] where
  9360. 861.97 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  9361. 861.97 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  9362. 861.97 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:553:30-37
  9363. 861.97 s [opt-env-conf-test] @@ -550,9 +550,9 @@
  9364. 861.97 s [opt-env-conf-test] Just a -> do
  9365. 861.97 s [opt-env-conf-test] debug ["Left side succeeded."]
  9366. 861.97 s [opt-env-conf-test] pure a
  9367. 861.97 s [opt-env-conf-test] - Nothing -> do
  9368. 861.97 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  9369. 861.97 s [opt-env-conf-test] - ppIndent $ go p2
  9370. 861.97 s [opt-env-conf-test] + Nothing -> do
  9371. 861.97 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  9372. 861.97 s [opt-env-conf-test] + ppIndent $ go p2
  9373. 861.97 s [opt-env-conf-test] ParserMany mLoc p' -> do
  9374. 861.97 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9375. 861.97 s [opt-env-conf-test] ppIndent $ go p'
  9376. 861.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
  9377. 861.97 s [opt-env-conf-test] @@ -700,11 +700,11 @@
  9378. 861.97 s [opt-env-conf-test] ppOpt :: [Dashed] -> PP (Maybe String)
  9379. 861.97 s [opt-env-conf-test] ppOpt ds = do
  9380. 861.97 s [opt-env-conf-test] args <- gets ppStateArgs
  9381. 861.97 s [opt-env-conf-test] - case Args.consumeOption ds args of
  9382. 861.97 s [opt-env-conf-test] - Nothing -> pure Nothing
  9383. 861.97 s [opt-env-conf-test] - Just (a, args') -> do
  9384. 861.97 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  9385. 861.97 s [opt-env-conf-test] - pure (Just a)
  9386. 861.97 s [opt-env-conf-test] + case Args.consumeOption ds args of
  9387. 861.97 s [opt-env-conf-test] + Nothing -> pure Nothing
  9388. 861.97 s [opt-env-conf-test] + Just (a, args') -> do
  9389. 861.97 s [opt-env-conf-test] + modify' (\s -> s {ppStateArgs = args'})
  9390. 861.97 s [opt-env-conf-test] + pure (Just a)
  9391. 861.97 s [opt-env-conf-test]
  9392. 861.97 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  9393. 861.97 s [opt-env-conf-test] ppSwitch ds = do
  9394. 861.97 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:535:35-33
  9395. 861.97 s [opt-env-conf-test] @@ -532,12 +532,12 @@
  9396. 861.97 s [opt-env-conf-test] mf <- go ff
  9397. 861.97 s [opt-env-conf-test] ma <- go fa
  9398. 861.97 s [opt-env-conf-test] pure $ ma <|> mf -- Reverse order
  9399. 861.97 s [opt-env-conf-test] - ParserSelect fe ff -> do
  9400. 861.97 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  9401. 861.97 s [opt-env-conf-test] - ppIndent $ do
  9402. 861.97 s [opt-env-conf-test] - me <- go fe
  9403. 861.97 s [opt-env-conf-test] - mf <- go ff
  9404. 861.97 s [opt-env-conf-test] - pure $ mf <|> me -- Reverse order
  9405. 861.97 s [opt-env-conf-test] + ParserSelect fe ff -> do
  9406. 861.97 s [opt-env-conf-test] + debug [syntaxChunk "Select"]
  9407. 861.97 s [opt-env-conf-test] + ppIndent $ do
  9408. 861.97 s [opt-env-conf-test] + me <- go fe
  9409. 861.97 s [opt-env-conf-test] + mf <- go ff
  9410. 861.97 s [opt-env-conf-test] + pure $ mf <|> me -- Reverse order
  9411. 861.97 s [opt-env-conf-test] ParserEmpty mLoc -> do
  9412. 861.97 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  9413. 861.97 s [opt-env-conf-test] pure Nothing
  9414. 861.97 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:544:32-37
  9415. 861.97 s [opt-env-conf-test] @@ -541,18 +541,18 @@
  9416. 861.97 s [opt-env-conf-test] ParserEmpty mLoc -> do
  9417. 861.97 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  9418. 861.97 s [opt-env-conf-test] pure Nothing
  9419. 861.97 s [opt-env-conf-test] - ParserAlt p1 p2 -> do
  9420. 863.78 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  9421. 863.88 s [opt-env-conf-test] - ppIndent $ do
  9422. 863.88 s [opt-env-conf-test] - debug ["Trying left side."]
  9423. 863.88 s [opt-env-conf-test] - eor <- ppIndent $ tryPP (go p1)
  9424. 863.88 s [opt-env-conf-test] - case eor of
  9425. 863.88 s [opt-env-conf-test] - Just a -> do
  9426. 863.88 s [opt-env-conf-test] - debug ["Left side succeeded."]
  9427. 863.88 s [opt-env-conf-test] - pure a
  9428. 863.88 s [opt-env-conf-test] - Nothing -> do
  9429. 863.88 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  9430. 863.88 s [opt-env-conf-test] - ppIndent $ go p2
  9431. 863.88 s [opt-env-conf-test] + ParserAlt p1 p2 -> do
  9432. 863.88 s [opt-env-conf-test] + debug [syntaxChunk "Alt"]
  9433. 863.88 s [opt-env-conf-test] + ppIndent $ do
  9434. 863.88 s [opt-env-conf-test] + debug ["Trying left side."]
  9435. 863.88 s [opt-env-conf-test] + eor <- ppIndent $ tryPP (go p1)
  9436. 863.88 s [opt-env-conf-test] + case eor of
  9437. 863.88 s [opt-env-conf-test] + Just a -> do
  9438. 863.88 s [opt-env-conf-test] + debug ["Left side succeeded."]
  9439. 863.88 s [opt-env-conf-test] + pure a
  9440. 863.88 s [opt-env-conf-test] + Nothing -> do
  9441. 863.88 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  9442. 863.88 s [opt-env-conf-test] + ppIndent $ go p2
  9443. 863.88 s [opt-env-conf-test] ParserMany mLoc p' -> do
  9444. 863.88 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9445. 863.88 s [opt-env-conf-test] ppIndent $ go p'
  9446. 863.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  9447. 863.88 s [opt-env-conf-test] @@ -554,7 +554,7 @@
  9448. 863.88 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  9449. 863.88 s [opt-env-conf-test] ppIndent $ go p2
  9450. 863.89 s [opt-env-conf-test] ParserMany mLoc p' -> do
  9451. 863.89 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9452. 863.89 s [opt-env-conf-test] + debug []
  9453. 863.89 s [opt-env-conf-test] ppIndent $ go p'
  9454. 863.89 s [opt-env-conf-test] ParserSome mLoc p' -> do
  9455. 863.89 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9456. 863.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
  9457. 863.89 s [opt-env-conf-test] @@ -108,7 +108,7 @@
  9458. 863.89 s [opt-env-conf-test] let readyArgs = Args.parseArgs args'''
  9459. 863.89 s [opt-env-conf-test]
  9460. 863.89 s [opt-env-conf-test] let mConfig = Nothing -- We start with no config loaded.
  9461. 863.89 s [opt-env-conf-test] - if checkMode
  9462. 863.89 s [opt-env-conf-test] + if False
  9463. 863.89 s [opt-env-conf-test] then runSettingsCheck capabilities p readyArgs envVars mConfig
  9464. 863.89 s [opt-env-conf-test] else do
  9465. 863.89 s [opt-env-conf-test] let p' = internalParser p
  9466. 863.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  9467. 863.89 s [opt-env-conf-test] @@ -554,7 +554,8 @@
  9468. 863.89 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  9469. 863.89 s [opt-env-conf-test] ppIndent $ go p2
  9470. 863.89 s [opt-env-conf-test] ParserMany mLoc p' -> do
  9471. 863.89 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9472. 863.89 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": "
  9473. 863.89 s [opt-env-conf-test] +]
  9474. 863.89 s [opt-env-conf-test] ppIndent $ go p'
  9475. 863.89 s [opt-env-conf-test] ParserSome mLoc p' -> do
  9476. 863.89 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9477. 863.89 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:556:35-31
  9478. 863.89 s [opt-env-conf-test] @@ -553,9 +553,9 @@
  9479. 863.89 s [opt-env-conf-test] Nothing -> do
  9480. 863.89 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  9481. 863.89 s [opt-env-conf-test] ppIndent $ go p2
  9482. 863.89 s [opt-env-conf-test] - ParserMany mLoc p' -> do
  9483. 863.89 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9484. 863.89 s [opt-env-conf-test] - ppIndent $ go p'
  9485. 863.89 s [opt-env-conf-test] + ParserMany mLoc p' -> do
  9486. 863.89 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9487. 863.89 s [opt-env-conf-test] + ppIndent $ go p'
  9488. 863.89 s [opt-env-conf-test] ParserSome mLoc p' -> do
  9489. 863.89 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9490. 863.89 s [opt-env-conf-test] ppIndent $ go p'
  9491. 863.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
  9492. 863.89 s [opt-env-conf-test] @@ -557,7 +557,7 @@
  9493. 863.89 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9494. 863.89 s [opt-env-conf-test] ppIndent $ go p'
  9495. 863.89 s [opt-env-conf-test] ParserSome mLoc p' -> do
  9496. 863.89 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9497. 863.89 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9498. 863.89 s [opt-env-conf-test] ppIndent $ go p'
  9499. 863.89 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  9500. 863.89 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  9501. 863.89 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:529:31-33
  9502. 863.89 s [opt-env-conf-test] @@ -526,12 +526,12 @@
  9503. 863.89 s [opt-env-conf-test] ParserPure _ -> do
  9504. 863.89 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  9505. 863.89 s [opt-env-conf-test] pure Nothing
  9506. 863.89 s [opt-env-conf-test] - ParserAp ff fa -> do
  9507. 863.89 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  9508. 863.89 s [opt-env-conf-test] - ppIndent $ do
  9509. 863.89 s [opt-env-conf-test] - mf <- go ff
  9510. 863.89 s [opt-env-conf-test] - ma <- go fa
  9511. 863.89 s [opt-env-conf-test] - pure $ ma <|> mf -- Reverse order
  9512. 863.89 s [opt-env-conf-test] + ParserAp ff fa -> do
  9513. 863.89 s [opt-env-conf-test] + debug [syntaxChunk "Ap"]
  9514. 863.89 s [opt-env-conf-test] + ppIndent $ do
  9515. 863.89 s [opt-env-conf-test] + mf <- go ff
  9516. 863.89 s [opt-env-conf-test] + ma <- go fa
  9517. 863.89 s [opt-env-conf-test] + pure $ ma <|> mf -- Reverse order
  9518. 863.89 s [opt-env-conf-test] ParserSelect fe ff -> do
  9519. 863.89 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  9520. 863.89 s [opt-env-conf-test] ppIndent $ do
  9521. 863.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
  9522. 863.89 s [opt-env-conf-test] @@ -288,12 +288,11 @@
  9523. 863.89 s [opt-env-conf-test] help "Whether to enable enriched completion"
  9524. 863.89 s [opt-env-conf-test] ]
  9525. 863.89 s [opt-env-conf-test] <*> setting
  9526. 863.89 s [opt-env-conf-test] - [ option,
  9527. 863.89 s [opt-env-conf-test] - reader auto,
  9528. 863.89 s [opt-env-conf-test] - long "completion-index",
  9529. 863.89 s [opt-env-conf-test] - hidden,
  9530. 863.89 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  9531. 863.89 s [opt-env-conf-test] - ]
  9532. 863.89 s [opt-env-conf-test] + [ option,
  9533. 863.89 s [opt-env-conf-test] + reader auto,
  9534. 863.89 s [opt-env-conf-test] + long "completion-index",
  9535. 863.89 s [opt-env-conf-test] + hidden
  9536. 863.89 s [opt-env-conf-test] +]
  9537. 863.89 s [opt-env-conf-test] <*> many
  9538. 863.89 s [opt-env-conf-test] ( setting
  9539. 863.89 s [opt-env-conf-test] [ option,
  9540. 863.90 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Run.hs:511:27-28
  9541. 863.90 s [opt-env-conf-test] @@ -508,7 +508,7 @@
  9542. 863.90 s [opt-env-conf-test] { ppEnvEnv = EnvMap.empty,
  9543. 863.90 s [opt-env-conf-test] ppEnvConf = Nothing,
  9544. 863.90 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  9545. 863.90 s [opt-env-conf-test] - ppEnvIndent = 0
  9546. 863.90 s [opt-env-conf-test] + ppEnvIndent = 1
  9547. 863.90 s [opt-env-conf-test] }
  9548. 863.90 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  9549. 863.90 s [opt-env-conf-test] case mResOrNext of
  9550. 863.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
  9551. 863.90 s [opt-env-conf-test] @@ -226,82 +226,82 @@
  9552. 863.90 s [opt-env-conf-test] internalParser :: Parser a -> Parser (Internal a)
  9553. 863.90 s [opt-env-conf-test] internalParser p =
  9554. 863.90 s [opt-env-conf-test] choice
  9555. 863.90 s [opt-env-conf-test] - [ setting
  9556. 863.90 s [opt-env-conf-test] - [ switch ShowVersion,
  9557. 863.90 s [opt-env-conf-test] - long "version",
  9558. 863.90 s [opt-env-conf-test] - hidden
  9559. 863.90 s [opt-env-conf-test] - ],
  9560. 863.90 s [opt-env-conf-test] - setting
  9561. 863.90 s [opt-env-conf-test] - [ switch RenderMan,
  9562. 863.90 s [opt-env-conf-test] - long "render-man-page",
  9563. 863.90 s [opt-env-conf-test] - hidden,
  9564. 863.90 s [opt-env-conf-test] - help "Render a manpage"
  9565. 863.90 s [opt-env-conf-test] - ],
  9566. 863.90 s [opt-env-conf-test] - setting
  9567. 863.90 s [opt-env-conf-test] - [ switch RenderDocumentation,
  9568. 863.90 s [opt-env-conf-test] - long "render-reference-documentation",
  9569. 863.90 s [opt-env-conf-test] - hidden,
  9570. 863.90 s [opt-env-conf-test] - help "Render reference documentation"
  9571. 863.90 s [opt-env-conf-test] - ],
  9572. 863.90 s [opt-env-conf-test] - setting
  9573. 863.90 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  9574. 863.90 s [opt-env-conf-test] - long "render-nix-options",
  9575. 863.90 s [opt-env-conf-test] - hidden,
  9576. 863.90 s [opt-env-conf-test] - help "Render Nix options"
  9577. 863.90 s [opt-env-conf-test] - ],
  9578. 863.90 s [opt-env-conf-test] - BashCompletionScript
  9579. 863.90 s [opt-env-conf-test] - <$> setting
  9580. 863.90 s [opt-env-conf-test] - [ option,
  9581. 863.90 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  9582. 863.90 s [opt-env-conf-test] - long "bash-completion-script",
  9583. 863.90 s [opt-env-conf-test] - hidden,
  9584. 863.90 s [opt-env-conf-test] - help "Render the bash completion script"
  9585. 863.90 s [opt-env-conf-test] - ],
  9586. 863.90 s [opt-env-conf-test] - ZshCompletionScript
  9587. 863.90 s [opt-env-conf-test] - <$> setting
  9588. 863.90 s [opt-env-conf-test] - [ option,
  9589. 863.90 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  9590. 863.90 s [opt-env-conf-test] - long "zsh-completion-script",
  9591. 863.90 s [opt-env-conf-test] - hidden,
  9592. 863.90 s [opt-env-conf-test] - help "Render the zsh completion script"
  9593. 863.90 s [opt-env-conf-test] - ],
  9594. 863.90 s [opt-env-conf-test] - ZshCompletionScript
  9595. 863.90 s [opt-env-conf-test] - <$> setting
  9596. 863.90 s [opt-env-conf-test] - [ option,
  9597. 863.90 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  9598. 863.90 s [opt-env-conf-test] - long "fish-completion-script",
  9599. 863.90 s [opt-env-conf-test] - hidden,
  9600. 863.90 s [opt-env-conf-test] - help "Render the fish completion script"
  9601. 863.90 s [opt-env-conf-test] - ],
  9602. 863.90 s [opt-env-conf-test] - setting
  9603. 863.90 s [opt-env-conf-test] - [ help "Query completion",
  9604. 863.90 s [opt-env-conf-test] - switch CompletionQuery,
  9605. 863.90 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  9606. 863.90 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  9607. 863.90 s [opt-env-conf-test] - hidden
  9608. 863.90 s [opt-env-conf-test] - ]
  9609. 863.90 s [opt-env-conf-test] - <*> setting
  9610. 863.90 s [opt-env-conf-test] - [ switch True,
  9611. 863.90 s [opt-env-conf-test] - long "completion-enriched",
  9612. 863.90 s [opt-env-conf-test] - value False,
  9613. 863.90 s [opt-env-conf-test] - hidden,
  9614. 863.90 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  9615. 863.90 s [opt-env-conf-test] - ]
  9616. 863.90 s [opt-env-conf-test] - <*> setting
  9617. 863.90 s [opt-env-conf-test] - [ option,
  9618. 863.90 s [opt-env-conf-test] - reader auto,
  9619. 863.90 s [opt-env-conf-test] - long "completion-index",
  9620. 863.90 s [opt-env-conf-test] - hidden,
  9621. 863.90 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  9622. 863.90 s [opt-env-conf-test] - ]
  9623. 863.90 s [opt-env-conf-test] - <*> many
  9624. 863.90 s [opt-env-conf-test] - ( setting
  9625. 863.90 s [opt-env-conf-test] - [ option,
  9626. 863.90 s [opt-env-conf-test] - reader str,
  9627. 863.90 s [opt-env-conf-test] - long "completion-word",
  9628. 863.90 s [opt-env-conf-test] - hidden,
  9629. 863.90 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  9630. 863.90 s [opt-env-conf-test] - ]
  9631. 863.90 s [opt-env-conf-test] - ),
  9632. 863.90 s [opt-env-conf-test] - ParsedNormally <$> p
  9633. 863.90 s [opt-env-conf-test] - ]
  9634. 863.90 s [opt-env-conf-test] + [ setting
  9635. 863.90 s [opt-env-conf-test] + [ switch ShowVersion,
  9636. 863.90 s [opt-env-conf-test] + long "version",
  9637. 863.90 s [opt-env-conf-test] + hidden
  9638. 863.90 s [opt-env-conf-test] + ],
  9639. 863.90 s [opt-env-conf-test] + setting
  9640. 863.90 s [opt-env-conf-test] + [ switch RenderMan,
  9641. 863.90 s [opt-env-conf-test] + long "render-man-page",
  9642. 863.90 s [opt-env-conf-test] + hidden,
  9643. 863.90 s [opt-env-conf-test] + help "Render a manpage"
  9644. 863.90 s [opt-env-conf-test] + ],
  9645. 863.90 s [opt-env-conf-test] + setting
  9646. 863.90 s [opt-env-conf-test] + [ switch RenderDocumentation,
  9647. 863.90 s [opt-env-conf-test] + long "render-reference-documentation",
  9648. 863.90 s [opt-env-conf-test] + hidden,
  9649. 863.90 s [opt-env-conf-test] + help "Render reference documentation"
  9650. 863.90 s [opt-env-conf-test] + ],
  9651. 863.90 s [opt-env-conf-test] + setting
  9652. 863.90 s [opt-env-conf-test] + [ switch RenderNixosOptions,
  9653. 863.90 s [opt-env-conf-test] + long "render-nix-options",
  9654. 863.90 s [opt-env-conf-test] + hidden,
  9655. 863.90 s [opt-env-conf-test] + help "Render Nix options"
  9656. 863.90 s [opt-env-conf-test] + ],
  9657. 866.19 s [opt-env-conf-test] + BashCompletionScript
  9658. 866.19 s [opt-env-conf-test] + <$> setting
  9659. 866.19 s [opt-env-conf-test] + [ option,
  9660. 866.19 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  9661. 866.19 s [opt-env-conf-test] + long "bash-completion-script",
  9662. 866.19 s [opt-env-conf-test] + hidden,
  9663. 866.19 s [opt-env-conf-test] + help "Render the bash completion script"
  9664. 866.19 s [opt-env-conf-test] + ],
  9665. 866.19 s [opt-env-conf-test] + ZshCompletionScript
  9666. 866.19 s [opt-env-conf-test] + <$> setting
  9667. 866.19 s [opt-env-conf-test] + [ option,
  9668. 866.19 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  9669. 866.19 s [opt-env-conf-test] + long "zsh-completion-script",
  9670. 866.19 s [opt-env-conf-test] + hidden,
  9671. 866.19 s [opt-env-conf-test] + help "Render the zsh completion script"
  9672. 866.19 s [opt-env-conf-test] + ],
  9673. 866.19 s [opt-env-conf-test] + ZshCompletionScript
  9674. 866.19 s [opt-env-conf-test] + <$> setting
  9675. 866.19 s [opt-env-conf-test] + [ option,
  9676. 866.19 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  9677. 866.19 s [opt-env-conf-test] + long "fish-completion-script",
  9678. 866.19 s [opt-env-conf-test] + hidden,
  9679. 866.19 s [opt-env-conf-test] + help "Render the fish completion script"
  9680. 866.19 s [opt-env-conf-test] + ],
  9681. 866.19 s [opt-env-conf-test] + setting
  9682. 866.19 s [opt-env-conf-test] + [ help "Query completion",
  9683. 866.19 s [opt-env-conf-test] + switch CompletionQuery,
  9684. 866.19 s [opt-env-conf-test] + -- Long string that no normal user would ever use.
  9685. 866.19 s [opt-env-conf-test] + long "query-opt-env-conf-completion",
  9686. 866.19 s [opt-env-conf-test] + hidden
  9687. 866.19 s [opt-env-conf-test] + ]
  9688. 866.19 s [opt-env-conf-test] + <*> setting
  9689. 866.19 s [opt-env-conf-test] + [ switch True,
  9690. 866.19 s [opt-env-conf-test] + long "completion-enriched",
  9691. 866.19 s [opt-env-conf-test] + value False,
  9692. 866.19 s [opt-env-conf-test] + hidden,
  9693. 866.19 s [opt-env-conf-test] + help "Whether to enable enriched completion"
  9694. 866.19 s [opt-env-conf-test] + ]
  9695. 866.19 s [opt-env-conf-test] + <*> setting
  9696. 866.19 s [opt-env-conf-test] + [ option,
  9697. 866.19 s [opt-env-conf-test] + reader auto,
  9698. 866.19 s [opt-env-conf-test] + long "completion-index",
  9699. 866.19 s [opt-env-conf-test] + hidden,
  9700. 866.19 s [opt-env-conf-test] + help "The index between the arguments where completion was invoked."
  9701. 866.19 s [opt-env-conf-test] + ]
  9702. 866.19 s [opt-env-conf-test] + <*> many
  9703. 866.19 s [opt-env-conf-test] + ( setting
  9704. 866.19 s [opt-env-conf-test] + [ option,
  9705. 866.19 s [opt-env-conf-test] + reader str,
  9706. 866.19 s [opt-env-conf-test] + long "completion-word",
  9707. 866.19 s [opt-env-conf-test] + hidden,
  9708. 866.19 s [opt-env-conf-test] + help "The words (arguments) that have already been typed"
  9709. 866.19 s [opt-env-conf-test] + ]
  9710. 866.19 s [opt-env-conf-test] + ),
  9711. 866.19 s [opt-env-conf-test] + ParsedNormally <$> p
  9712. 866.19 s [opt-env-conf-test] + ]
  9713. 866.19 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  9714. 866.19 s [opt-env-conf-test] @@ -511,11 +511,11 @@
  9715. 866.19 s [opt-env-conf-test] ppEnvIndent = 0
  9716. 866.19 s [opt-env-conf-test] }
  9717. 866.19 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  9718. 866.19 s [opt-env-conf-test] - case mResOrNext of
  9719. 866.19 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  9720. 866.19 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  9721. 866.19 s [opt-env-conf-test] - Failure errs -> Left errs
  9722. 866.19 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  9723. 866.19 s [opt-env-conf-test] + case mResOrNext of
  9724. 866.19 s [opt-env-conf-test] + Nothing -> pure $ Right Nothing
  9725. 866.19 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  9726. 866.19 s [opt-env-conf-test] + Failure errs -> Left errs
  9727. 866.19 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  9728. 866.19 s [opt-env-conf-test] where
  9729. 866.20 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  9730. 866.20 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  9731. 866.20 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  9732. 866.20 s [opt-env-conf-test] @@ -546,13 +546,13 @@
  9733. 866.20 s [opt-env-conf-test] ppIndent $ do
  9734. 866.20 s [opt-env-conf-test] debug ["Trying left side."]
  9735. 866.20 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  9736. 866.20 s [opt-env-conf-test] - case eor of
  9737. 866.20 s [opt-env-conf-test] - Just a -> do
  9738. 866.20 s [opt-env-conf-test] - debug ["Left side succeeded."]
  9739. 866.20 s [opt-env-conf-test] - pure a
  9740. 866.20 s [opt-env-conf-test] - Nothing -> do
  9741. 866.20 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  9742. 866.20 s [opt-env-conf-test] - ppIndent $ go p2
  9743. 866.20 s [opt-env-conf-test] + case eor of
  9744. 866.20 s [opt-env-conf-test] + Just a -> do
  9745. 866.20 s [opt-env-conf-test] + debug ["Left side succeeded."]
  9746. 866.20 s [opt-env-conf-test] + pure a
  9747. 866.20 s [opt-env-conf-test] + Nothing -> do
  9748. 866.20 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  9749. 866.20 s [opt-env-conf-test] + ppIndent $ go p2
  9750. 866.20 s [opt-env-conf-test] ParserMany mLoc p' -> do
  9751. 866.20 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9752. 866.20 s [opt-env-conf-test] ppIndent $ go p'
  9753. 866.20 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  9754. 866.20 s [opt-env-conf-test] @@ -554,7 +554,7 @@
  9755. 866.20 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  9756. 866.20 s [opt-env-conf-test] ppIndent $ go p2
  9757. 866.20 s [opt-env-conf-test] ParserMany mLoc p' -> do
  9758. 866.20 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9759. 866.20 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9760. 866.20 s [opt-env-conf-test] ppIndent $ go p'
  9761. 866.20 s [opt-env-conf-test] ParserSome mLoc p' -> do
  9762. 866.20 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9763. 866.20 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  9764. 866.20 s [opt-env-conf-test] @@ -513,9 +513,9 @@
  9765. 866.20 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  9766. 866.20 s [opt-env-conf-test] case mResOrNext of
  9767. 866.20 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  9768. 866.20 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  9769. 866.20 s [opt-env-conf-test] - Failure errs -> Left errs
  9770. 866.20 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  9771. 866.20 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  9772. 866.20 s [opt-env-conf-test] + Failure errs -> Left errs
  9773. 866.20 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  9774. 866.20 s [opt-env-conf-test] where
  9775. 866.20 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  9776. 866.20 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  9777. 866.20 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  9778. 866.20 s [opt-env-conf-test] @@ -296,12 +296,7 @@
  9779. 866.20 s [opt-env-conf-test] ]
  9780. 866.20 s [opt-env-conf-test] <*> many
  9781. 866.20 s [opt-env-conf-test] ( setting
  9782. 866.20 s [opt-env-conf-test] - [ option,
  9783. 866.20 s [opt-env-conf-test] - reader str,
  9784. 866.20 s [opt-env-conf-test] - long "completion-word",
  9785. 866.20 s [opt-env-conf-test] - hidden,
  9786. 866.20 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  9787. 866.20 s [opt-env-conf-test] - ]
  9788. 866.20 s [opt-env-conf-test] + []
  9789. 866.20 s [opt-env-conf-test] ),
  9790. 866.20 s [opt-env-conf-test] ParsedNormally <$> p
  9791. 866.20 s [opt-env-conf-test] ]
  9792. 866.20 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
  9793. 866.20 s [opt-env-conf-test] @@ -557,7 +557,7 @@
  9794. 866.20 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9795. 866.20 s [opt-env-conf-test] ppIndent $ go p'
  9796. 866.20 s [opt-env-conf-test] ParserSome mLoc p' -> do
  9797. 866.20 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9798. 866.20 s [opt-env-conf-test] + debug []
  9799. 866.20 s [opt-env-conf-test] ppIndent $ go p'
  9800. 866.20 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  9801. 866.20 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  9802. 866.20 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  9803. 866.20 s [opt-env-conf-test] @@ -296,12 +296,12 @@
  9804. 866.20 s [opt-env-conf-test] ]
  9805. 866.20 s [opt-env-conf-test] <*> many
  9806. 866.20 s [opt-env-conf-test] ( setting
  9807. 866.20 s [opt-env-conf-test] - [ option,
  9808. 866.20 s [opt-env-conf-test] - reader str,
  9809. 866.20 s [opt-env-conf-test] - long "completion-word",
  9810. 866.20 s [opt-env-conf-test] - hidden,
  9811. 866.20 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  9812. 866.20 s [opt-env-conf-test] - ]
  9813. 866.20 s [opt-env-conf-test] + [ option,
  9814. 866.20 s [opt-env-conf-test] + reader str,
  9815. 866.20 s [opt-env-conf-test] + long "completion-word",
  9816. 866.20 s [opt-env-conf-test] + hidden,
  9817. 866.20 s [opt-env-conf-test] + help "The words (arguments) that have already been typed"
  9818. 866.20 s [opt-env-conf-test] + ]
  9819. 866.20 s [opt-env-conf-test] ),
  9820. 866.20 s [opt-env-conf-test] ParsedNormally <$> p
  9821. 866.20 s [opt-env-conf-test] ]
  9822. 866.20 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
  9823. 866.20 s [opt-env-conf-test] @@ -633,15 +633,15 @@
  9824. 866.20 s [opt-env-conf-test] e <- ask
  9825. 866.20 s [opt-env-conf-test] results <- liftIO $ runPP pp s e
  9826. 866.20 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  9827. 866.20 s [opt-env-conf-test] - case errOrRes of
  9828. 866.20 s [opt-env-conf-test] - Failure errs ->
  9829. 866.20 s [opt-env-conf-test] - if all errorIsForgivable errs
  9830. 866.20 s [opt-env-conf-test] - then do
  9831. 866.20 s [opt-env-conf-test] - pure Nothing
  9832. 866.20 s [opt-env-conf-test] - else ppErrors' errs
  9833. 866.20 s [opt-env-conf-test] - Success a -> do
  9834. 866.20 s [opt-env-conf-test] - put s' -- Only set state if parsing succeeded.
  9835. 866.20 s [opt-env-conf-test] - pure $ Just a
  9836. 866.20 s [opt-env-conf-test] + case errOrRes of
  9837. 866.20 s [opt-env-conf-test] + Failure errs ->
  9838. 866.20 s [opt-env-conf-test] + if all errorIsForgivable errs
  9839. 866.20 s [opt-env-conf-test] + then do
  9840. 866.20 s [opt-env-conf-test] + pure Nothing
  9841. 866.20 s [opt-env-conf-test] + else ppErrors' errs
  9842. 866.20 s [opt-env-conf-test] + Success a -> do
  9843. 866.20 s [opt-env-conf-test] + put s' -- Only set state if parsing succeeded.
  9844. 866.20 s [opt-env-conf-test] + pure $ Just a
  9845. 866.20 s [opt-env-conf-test]
  9846. 866.20 s [opt-env-conf-test] ppNonDet :: NonDetT IO a -> PP a
  9847. 866.20 s [opt-env-conf-test] ppNonDet = PP . lift . lift . lift
  9848. 866.20 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  9849. 866.20 s [opt-env-conf-test] @@ -546,13 +546,13 @@
  9850. 866.20 s [opt-env-conf-test] ppIndent $ do
  9851. 866.20 s [opt-env-conf-test] debug ["Trying left side."]
  9852. 866.20 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  9853. 866.20 s [opt-env-conf-test] - case eor of
  9854. 866.20 s [opt-env-conf-test] - Just a -> do
  9855. 866.20 s [opt-env-conf-test] - debug ["Left side succeeded."]
  9856. 866.20 s [opt-env-conf-test] - pure a
  9857. 866.20 s [opt-env-conf-test] - Nothing -> do
  9858. 866.20 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  9859. 866.20 s [opt-env-conf-test] - ppIndent $ go p2
  9860. 866.20 s [opt-env-conf-test] + case eor of
  9861. 866.20 s [opt-env-conf-test] + Just a -> do
  9862. 866.20 s [opt-env-conf-test] + debug ["Left side succeeded."]
  9863. 866.20 s [opt-env-conf-test] + pure a
  9864. 866.20 s [opt-env-conf-test] + Nothing -> do
  9865. 866.20 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  9866. 866.20 s [opt-env-conf-test] + ppIndent $ go p2
  9867. 866.20 s [opt-env-conf-test] ParserMany mLoc p' -> do
  9868. 866.20 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9869. 866.20 s [opt-env-conf-test] ppIndent $ go p'
  9870. 866.20 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
  9871. 866.20 s [opt-env-conf-test] @@ -288,12 +288,12 @@
  9872. 866.20 s [opt-env-conf-test] help "Whether to enable enriched completion"
  9873. 866.20 s [opt-env-conf-test] ]
  9874. 866.20 s [opt-env-conf-test] <*> setting
  9875. 866.20 s [opt-env-conf-test] - [ option,
  9876. 866.20 s [opt-env-conf-test] - reader auto,
  9877. 866.20 s [opt-env-conf-test] - long "completion-index",
  9878. 866.20 s [opt-env-conf-test] - hidden,
  9879. 866.20 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  9880. 866.20 s [opt-env-conf-test] - ]
  9881. 866.20 s [opt-env-conf-test] + [ option,
  9882. 866.20 s [opt-env-conf-test] + reader auto,
  9883. 866.20 s [opt-env-conf-test] + long "completion-index",
  9884. 866.20 s [opt-env-conf-test] + hidden,
  9885. 866.20 s [opt-env-conf-test] + help "The index between the arguments where completion was invoked."
  9886. 866.20 s [opt-env-conf-test] + ]
  9887. 866.20 s [opt-env-conf-test] <*> many
  9888. 866.20 s [opt-env-conf-test] ( setting
  9889. 866.20 s [opt-env-conf-test] [ option,
  9890. 867.55 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
  9891. 867.55 s [opt-env-conf-test] @@ -633,15 +633,15 @@
  9892. 867.55 s [opt-env-conf-test] e <- ask
  9893. 867.55 s [opt-env-conf-test] results <- liftIO $ runPP pp s e
  9894. 867.56 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  9895. 867.56 s [opt-env-conf-test] - case errOrRes of
  9896. 867.56 s [opt-env-conf-test] - Failure errs ->
  9897. 867.56 s [opt-env-conf-test] - if all errorIsForgivable errs
  9898. 867.56 s [opt-env-conf-test] - then do
  9899. 867.56 s [opt-env-conf-test] - pure Nothing
  9900. 867.56 s [opt-env-conf-test] - else ppErrors' errs
  9901. 867.56 s [opt-env-conf-test] - Success a -> do
  9902. 867.56 s [opt-env-conf-test] - put s' -- Only set state if parsing succeeded.
  9903. 867.56 s [opt-env-conf-test] - pure $ Just a
  9904. 867.56 s [opt-env-conf-test] + case errOrRes of
  9905. 867.56 s [opt-env-conf-test] + Failure errs ->
  9906. 867.56 s [opt-env-conf-test] + if all errorIsForgivable errs
  9907. 867.56 s [opt-env-conf-test] + then do
  9908. 867.56 s [opt-env-conf-test] + pure Nothing
  9909. 867.56 s [opt-env-conf-test] + else ppErrors' errs
  9910. 867.56 s [opt-env-conf-test] + Success a -> do
  9911. 867.56 s [opt-env-conf-test] + put s' -- Only set state if parsing succeeded.
  9912. 867.56 s [opt-env-conf-test] + pure $ Just a
  9913. 867.56 s [opt-env-conf-test]
  9914. 867.56 s [opt-env-conf-test] ppNonDet :: NonDetT IO a -> PP a
  9915. 867.56 s [opt-env-conf-test] ppNonDet = PP . lift . lift . lift
  9916. 867.56 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
  9917. 867.56 s [opt-env-conf-test] @@ -635,7 +635,7 @@
  9918. 867.56 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  9919. 867.56 s [opt-env-conf-test] case errOrRes of
  9920. 867.56 s [opt-env-conf-test] Failure errs ->
  9921. 867.56 s [opt-env-conf-test] - if all errorIsForgivable errs
  9922. 867.56 s [opt-env-conf-test] + if False
  9923. 867.56 s [opt-env-conf-test] then do
  9924. 867.56 s [opt-env-conf-test] pure Nothing
  9925. 867.56 s [opt-env-conf-test] else ppErrors' errs
  9926. 867.56 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:638:7-28
  9927. 867.56 s [opt-env-conf-test] @@ -635,10 +635,10 @@
  9928. 867.56 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  9929. 867.56 s [opt-env-conf-test] case errOrRes of
  9930. 867.56 s [opt-env-conf-test] Failure errs ->
  9931. 867.56 s [opt-env-conf-test] - if all errorIsForgivable errs
  9932. 867.56 s [opt-env-conf-test] - then do
  9933. 867.56 s [opt-env-conf-test] - pure Nothing
  9934. 867.56 s [opt-env-conf-test] - else ppErrors' errs
  9935. 867.56 s [opt-env-conf-test] + if all errorIsForgivable errs
  9936. 867.56 s [opt-env-conf-test] + then do
  9937. 867.56 s [opt-env-conf-test] + pure Nothing
  9938. 867.56 s [opt-env-conf-test] + else ppErrors' errs
  9939. 867.56 s [opt-env-conf-test] Success a -> do
  9940. 867.56 s [opt-env-conf-test] put s' -- Only set state if parsing succeeded.
  9941. 867.56 s [opt-env-conf-test] pure $ Just a
  9942. 867.56 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
  9943. 867.56 s [opt-env-conf-test] @@ -635,7 +635,7 @@
  9944. 867.56 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  9945. 867.56 s [opt-env-conf-test] case errOrRes of
  9946. 867.56 s [opt-env-conf-test] Failure errs ->
  9947. 867.56 s [opt-env-conf-test] - if all errorIsForgivable errs
  9948. 867.56 s [opt-env-conf-test] + if True
  9949. 867.56 s [opt-env-conf-test] then do
  9950. 867.56 s [opt-env-conf-test] pure Nothing
  9951. 867.56 s [opt-env-conf-test] else ppErrors' errs
  9952. 867.56 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:559:35-31
  9953. 867.56 s [opt-env-conf-test] @@ -556,9 +556,9 @@
  9954. 867.56 s [opt-env-conf-test] ParserMany mLoc p' -> do
  9955. 867.56 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9956. 867.56 s [opt-env-conf-test] ppIndent $ go p'
  9957. 867.56 s [opt-env-conf-test] - ParserSome mLoc p' -> do
  9958. 867.56 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9959. 867.56 s [opt-env-conf-test] - ppIndent $ go p'
  9960. 867.56 s [opt-env-conf-test] + ParserSome mLoc p' -> do
  9961. 867.56 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9962. 867.56 s [opt-env-conf-test] + ppIndent $ go p'
  9963. 867.56 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  9964. 867.56 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  9965. 867.56 s [opt-env-conf-test] ppIndent $ go p'
  9966. 867.56 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
  9967. 867.56 s [opt-env-conf-test] @@ -557,7 +557,8 @@
  9968. 867.56 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  9969. 867.56 s [opt-env-conf-test] ppIndent $ go p'
  9970. 867.56 s [opt-env-conf-test] ParserSome mLoc p' -> do
  9971. 867.56 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  9972. 867.56 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": "
  9973. 867.56 s [opt-env-conf-test] +]
  9974. 867.56 s [opt-env-conf-test] ppIndent $ go p'
  9975. 867.56 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  9976. 867.56 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  9977. 867.56 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
  9978. 867.57 s [opt-env-conf-test] @@ -591,9 +591,9 @@
  9979. 867.57 s [opt-env-conf-test] Just c -> do
  9980. 867.57 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  9981. 867.57 s [opt-env-conf-test] mRes <- go' (commandArg c : path) $ commandParser c
  9982. 867.57 s [opt-env-conf-test] - pure $ case mRes of
  9983. 867.57 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  9984. 867.57 s [opt-env-conf-test] - Just res -> pure res
  9985. 867.57 s [opt-env-conf-test] + pure $ case mRes of
  9986. 867.57 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  9987. 867.57 s [opt-env-conf-test] + Just res -> pure res
  9988. 867.57 s [opt-env-conf-test]
  9989. 867.57 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  9990. 867.57 s [opt-env-conf-test] deriving
  9991. 867.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
  9992. 867.57 s [opt-env-conf-test] @@ -584,16 +584,16 @@
  9993. 867.57 s [opt-env-conf-test] debug ["No argument found for choosing a command."]
  9994. 867.57 s [opt-env-conf-test] pure Nothing
  9995. 867.57 s [opt-env-conf-test] Just s -> do
  9996. 867.57 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  9997. 867.57 s [opt-env-conf-test] - Nothing -> do
  9998. 867.57 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  9999. 867.57 s [opt-env-conf-test] - pure Nothing
  10000. 867.57 s [opt-env-conf-test] - Just c -> do
  10001. 867.57 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  10002. 867.57 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  10003. 867.57 s [opt-env-conf-test] - pure $ case mRes of
  10004. 867.57 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  10005. 867.57 s [opt-env-conf-test] - Just res -> pure res
  10006. 867.57 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  10007. 867.57 s [opt-env-conf-test] + Nothing -> do
  10008. 867.57 s [opt-env-conf-test] + debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10009. 867.57 s [opt-env-conf-test] + pure Nothing
  10010. 867.57 s [opt-env-conf-test] + Just c -> do
  10011. 867.57 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  10012. 867.57 s [opt-env-conf-test] + mRes <- go' (commandArg c : path) $ commandParser c
  10013. 867.57 s [opt-env-conf-test] + pure $ case mRes of
  10014. 867.57 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  10015. 867.57 s [opt-env-conf-test] + Just res -> pure res
  10016. 867.57 s [opt-env-conf-test]
  10017. 867.57 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  10018. 867.57 s [opt-env-conf-test] deriving
  10019. 867.57 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Run.hs:75:27-28
  10020. 867.57 s [opt-env-conf-test] @@ -72,7 +72,7 @@
  10021. 867.57 s [opt-env-conf-test] { ppEnvEnv = envVars,
  10022. 867.57 s [opt-env-conf-test] ppEnvConf = mConfig,
  10023. 867.57 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  10024. 867.57 s [opt-env-conf-test] - ppEnvIndent = 0
  10025. 867.57 s [opt-env-conf-test] + ppEnvIndent = 1
  10026. 867.57 s [opt-env-conf-test] }
  10027. 867.57 s [opt-env-conf-test] let go' = do
  10028. 867.57 s [opt-env-conf-test] result <- go parser
  10029. 867.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
  10030. 867.57 s [opt-env-conf-test] @@ -77,9 +77,9 @@
  10031. 867.57 s [opt-env-conf-test] let go' = do
  10032. 867.57 s [opt-env-conf-test] result <- go parser
  10033. 867.57 s [opt-env-conf-test] leftoverArgs <- gets ppStateArgs
  10034. 867.57 s [opt-env-conf-test] - case recogniseLeftovers leftoverArgs of
  10035. 867.57 s [opt-env-conf-test] - Nothing -> pure result
  10036. 867.57 s [opt-env-conf-test] - Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10037. 867.57 s [opt-env-conf-test] + case recogniseLeftovers leftoverArgs of
  10038. 867.57 s [opt-env-conf-test] + Nothing -> pure result
  10039. 867.57 s [opt-env-conf-test] + Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10040. 867.57 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10041. 867.57 s [opt-env-conf-test] case mTup of
  10042. 867.57 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  10043. 867.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
  10044. 867.57 s [opt-env-conf-test] @@ -460,13 +460,13 @@
  10045. 867.57 s [opt-env-conf-test] PP a ->
  10046. 867.57 s [opt-env-conf-test] PP a
  10047. 867.57 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  10048. 867.57 s [opt-env-conf-test] - case missingCapabilities capabilities requiredCapabilities of
  10049. 867.57 s [opt-env-conf-test] - Just missings -> do
  10050. 867.57 s [opt-env-conf-test] - debug $
  10051. 867.57 s [opt-env-conf-test] - "Missing capabilities: "
  10052. 867.57 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  10053. 867.57 s [opt-env-conf-test] - ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10054. 867.57 s [opt-env-conf-test] - Nothing -> func
  10055. 867.57 s [opt-env-conf-test] + case missingCapabilities capabilities requiredCapabilities of
  10056. 867.57 s [opt-env-conf-test] + Just missings -> do
  10057. 867.57 s [opt-env-conf-test] + debug $
  10058. 867.57 s [opt-env-conf-test] + "Missing capabilities: "
  10059. 867.57 s [opt-env-conf-test] + : capabilitiesChunks (Set.fromList (NE.toList missings))
  10060. 867.57 s [opt-env-conf-test] + ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10061. 867.57 s [opt-env-conf-test] + Nothing -> func
  10062. 867.57 s [opt-env-conf-test]
  10063. 867.57 s [opt-env-conf-test] data ParseResult a
  10064. 867.57 s [opt-env-conf-test] = NotRun
  10065. 867.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
  10066. 867.57 s [opt-env-conf-test] @@ -77,9 +77,9 @@
  10067. 867.57 s [opt-env-conf-test] let go' = do
  10068. 867.57 s [opt-env-conf-test] result <- go parser
  10069. 867.57 s [opt-env-conf-test] leftoverArgs <- gets ppStateArgs
  10070. 867.57 s [opt-env-conf-test] - case recogniseLeftovers leftoverArgs of
  10071. 867.57 s [opt-env-conf-test] - Nothing -> pure result
  10072. 867.57 s [opt-env-conf-test] - Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10073. 867.57 s [opt-env-conf-test] + case recogniseLeftovers leftoverArgs of
  10074. 867.57 s [opt-env-conf-test] + Nothing -> pure result
  10075. 867.57 s [opt-env-conf-test] + Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10076. 867.57 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10077. 867.57 s [opt-env-conf-test] case mTup of
  10078. 867.57 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  10079. 867.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
  10080. 867.57 s [opt-env-conf-test] @@ -94,9 +94,9 @@
  10081. 867.57 s [opt-env-conf-test] pure $
  10082. 867.57 s [opt-env-conf-test] Left $
  10083. 867.57 s [opt-env-conf-test] -- Only show source locations in debug mode.
  10084. 867.57 s [opt-env-conf-test] - let f = case mDebugMode of
  10085. 867.57 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10086. 867.57 s [opt-env-conf-test] - Just _ -> id
  10087. 867.57 s [opt-env-conf-test] + let f = case mDebugMode of
  10088. 867.57 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10089. 867.57 s [opt-env-conf-test] + Just _ -> id
  10090. 867.57 s [opt-env-conf-test] in f firstErrors
  10091. 867.57 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  10092. 867.57 s [opt-env-conf-test] Success a -> pure (Right a)
  10093. 867.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
  10094. 867.95 s [opt-env-conf-test] @@ -98,9 +98,9 @@
  10095. 867.95 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  10096. 867.95 s [opt-env-conf-test] Just _ -> id
  10097. 867.95 s [opt-env-conf-test] in f firstErrors
  10098. 867.95 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10099. 867.95 s [opt-env-conf-test] - Success a -> pure (Right a)
  10100. 867.95 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10101. 867.95 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10102. 867.95 s [opt-env-conf-test] + Success a -> pure (Right a)
  10103. 867.95 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10104. 867.95 s [opt-env-conf-test] in goNexts nexts
  10105. 867.95 s [opt-env-conf-test] where
  10106. 867.95 s [opt-env-conf-test] go ::
  10107. 867.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
  10108. 867.95 s [opt-env-conf-test] @@ -98,9 +98,9 @@
  10109. 867.95 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  10110. 867.95 s [opt-env-conf-test] Just _ -> id
  10111. 867.95 s [opt-env-conf-test] in f firstErrors
  10112. 867.95 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10113. 867.95 s [opt-env-conf-test] - Success a -> pure (Right a)
  10114. 867.95 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10115. 867.95 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10116. 867.95 s [opt-env-conf-test] + Success a -> pure (Right a)
  10117. 867.95 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10118. 867.95 s [opt-env-conf-test] in goNexts nexts
  10119. 867.95 s [opt-env-conf-test] where
  10120. 867.95 s [opt-env-conf-test] go ::
  10121. 867.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
  10122. 867.95 s [opt-env-conf-test] @@ -89,18 +89,18 @@
  10123. 867.95 s [opt-env-conf-test] let goNexts ns = do
  10124. 867.95 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  10125. 867.95 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  10126. 867.95 s [opt-env-conf-test] - case mNext of
  10127. 867.95 s [opt-env-conf-test] - Nothing ->
  10128. 867.95 s [opt-env-conf-test] - pure $
  10129. 867.95 s [opt-env-conf-test] - Left $
  10130. 867.95 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10131. 867.95 s [opt-env-conf-test] - let f = case mDebugMode of
  10132. 867.95 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10133. 867.95 s [opt-env-conf-test] - Just _ -> id
  10134. 867.95 s [opt-env-conf-test] - in f firstErrors
  10135. 867.95 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10136. 867.95 s [opt-env-conf-test] - Success a -> pure (Right a)
  10137. 867.95 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10138. 867.95 s [opt-env-conf-test] + case mNext of
  10139. 867.96 s [opt-env-conf-test] + Nothing ->
  10140. 867.96 s [opt-env-conf-test] + pure $
  10141. 867.96 s [opt-env-conf-test] + Left $
  10142. 867.96 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10143. 867.96 s [opt-env-conf-test] + let f = case mDebugMode of
  10144. 867.96 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10145. 867.96 s [opt-env-conf-test] + Just _ -> id
  10146. 867.96 s [opt-env-conf-test] + in f firstErrors
  10147. 867.96 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10148. 867.96 s [opt-env-conf-test] + Success a -> pure (Right a)
  10149. 867.96 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10150. 867.96 s [opt-env-conf-test] in goNexts nexts
  10151. 867.96 s [opt-env-conf-test] where
  10152. 867.96 s [opt-env-conf-test] go ::
  10153. 867.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
  10154. 867.96 s [opt-env-conf-test] @@ -89,18 +89,18 @@
  10155. 867.96 s [opt-env-conf-test] let goNexts ns = do
  10156. 867.96 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  10157. 867.96 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  10158. 867.96 s [opt-env-conf-test] - case mNext of
  10159. 867.96 s [opt-env-conf-test] - Nothing ->
  10160. 867.96 s [opt-env-conf-test] - pure $
  10161. 867.96 s [opt-env-conf-test] - Left $
  10162. 867.96 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10163. 867.96 s [opt-env-conf-test] - let f = case mDebugMode of
  10164. 867.96 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10165. 867.96 s [opt-env-conf-test] - Just _ -> id
  10166. 867.96 s [opt-env-conf-test] - in f firstErrors
  10167. 867.96 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10168. 867.96 s [opt-env-conf-test] - Success a -> pure (Right a)
  10169. 867.96 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10170. 867.96 s [opt-env-conf-test] + case mNext of
  10171. 867.96 s [opt-env-conf-test] + Nothing ->
  10172. 867.96 s [opt-env-conf-test] + pure $
  10173. 867.96 s [opt-env-conf-test] + Left $
  10174. 867.96 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10175. 867.96 s [opt-env-conf-test] + let f = case mDebugMode of
  10176. 867.96 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10177. 867.96 s [opt-env-conf-test] + Just _ -> id
  10178. 867.96 s [opt-env-conf-test] + in f firstErrors
  10179. 867.96 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10180. 867.96 s [opt-env-conf-test] + Success a -> pure (Right a)
  10181. 867.96 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10182. 867.96 s [opt-env-conf-test] in goNexts nexts
  10183. 867.96 s [opt-env-conf-test] where
  10184. 867.96 s [opt-env-conf-test] go ::
  10185. 867.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
  10186. 867.96 s [opt-env-conf-test] @@ -83,25 +83,25 @@
  10187. 867.96 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10188. 867.96 s [opt-env-conf-test] case mTup of
  10189. 867.96 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  10190. 867.96 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  10191. 867.96 s [opt-env-conf-test] - Success a -> pure (Right a)
  10192. 867.96 s [opt-env-conf-test] - Failure firstErrors ->
  10193. 867.96 s [opt-env-conf-test] - let goNexts ns = do
  10194. 867.96 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  10195. 867.96 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  10196. 867.96 s [opt-env-conf-test] - case mNext of
  10197. 867.96 s [opt-env-conf-test] - Nothing ->
  10198. 867.96 s [opt-env-conf-test] - pure $
  10199. 867.96 s [opt-env-conf-test] - Left $
  10200. 867.96 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10201. 867.96 s [opt-env-conf-test] - let f = case mDebugMode of
  10202. 867.96 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10203. 867.96 s [opt-env-conf-test] - Just _ -> id
  10204. 867.96 s [opt-env-conf-test] - in f firstErrors
  10205. 867.96 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10206. 867.96 s [opt-env-conf-test] - Success a -> pure (Right a)
  10207. 867.96 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10208. 867.96 s [opt-env-conf-test] - in goNexts nexts
  10209. 867.96 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  10210. 867.96 s [opt-env-conf-test] + Success a -> pure (Right a)
  10211. 867.96 s [opt-env-conf-test] + Failure firstErrors ->
  10212. 867.96 s [opt-env-conf-test] + let goNexts ns = do
  10213. 867.96 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  10214. 867.96 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  10215. 867.96 s [opt-env-conf-test] + case mNext of
  10216. 867.96 s [opt-env-conf-test] + Nothing ->
  10217. 867.96 s [opt-env-conf-test] + pure $
  10218. 867.96 s [opt-env-conf-test] + Left $
  10219. 867.96 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10220. 867.96 s [opt-env-conf-test] + let f = case mDebugMode of
  10221. 867.96 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10222. 867.96 s [opt-env-conf-test] + Just _ -> id
  10223. 867.96 s [opt-env-conf-test] + in f firstErrors
  10224. 867.96 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10225. 867.96 s [opt-env-conf-test] + Success a -> pure (Right a)
  10226. 867.96 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10227. 867.96 s [opt-env-conf-test] + in goNexts nexts
  10228. 867.96 s [opt-env-conf-test] where
  10229. 867.96 s [opt-env-conf-test] go ::
  10230. 867.96 s [opt-env-conf-test] Parser a ->
  10231. 867.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
  10232. 867.96 s [opt-env-conf-test] @@ -83,25 +83,25 @@
  10233. 867.96 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10234. 867.96 s [opt-env-conf-test] case mTup of
  10235. 867.96 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  10236. 867.96 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  10237. 867.97 s [opt-env-conf-test] - Success a -> pure (Right a)
  10238. 867.97 s [opt-env-conf-test] - Failure firstErrors ->
  10239. 867.97 s [opt-env-conf-test] - let goNexts ns = do
  10240. 867.97 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  10241. 867.97 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  10242. 867.97 s [opt-env-conf-test] - case mNext of
  10243. 867.97 s [opt-env-conf-test] - Nothing ->
  10244. 867.97 s [opt-env-conf-test] - pure $
  10245. 867.97 s [opt-env-conf-test] - Left $
  10246. 867.97 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10247. 867.97 s [opt-env-conf-test] - let f = case mDebugMode of
  10248. 867.97 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10249. 867.97 s [opt-env-conf-test] - Just _ -> id
  10250. 867.97 s [opt-env-conf-test] - in f firstErrors
  10251. 867.97 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10252. 867.97 s [opt-env-conf-test] - Success a -> pure (Right a)
  10253. 867.97 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10254. 867.97 s [opt-env-conf-test] - in goNexts nexts
  10255. 867.97 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  10256. 867.97 s [opt-env-conf-test] + Success a -> pure (Right a)
  10257. 867.97 s [opt-env-conf-test] + Failure firstErrors ->
  10258. 867.97 s [opt-env-conf-test] + let goNexts ns = do
  10259. 867.97 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  10260. 867.97 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  10261. 867.97 s [opt-env-conf-test] + case mNext of
  10262. 867.97 s [opt-env-conf-test] + Nothing ->
  10263. 867.97 s [opt-env-conf-test] + pure $
  10264. 867.97 s [opt-env-conf-test] + Left $
  10265. 867.97 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10266. 867.97 s [opt-env-conf-test] + let f = case mDebugMode of
  10267. 867.97 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10268. 867.97 s [opt-env-conf-test] + Just _ -> id
  10269. 867.97 s [opt-env-conf-test] + in f firstErrors
  10270. 867.97 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10271. 867.97 s [opt-env-conf-test] + Success a -> pure (Right a)
  10272. 867.97 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10273. 867.97 s [opt-env-conf-test] + in goNexts nexts
  10274. 867.97 s [opt-env-conf-test] where
  10275. 867.97 s [opt-env-conf-test] go ::
  10276. 867.97 s [opt-env-conf-test] Parser a ->
  10277. 867.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  10278. 867.97 s [opt-env-conf-test] @@ -81,27 +81,27 @@
  10279. 867.97 s [opt-env-conf-test] Nothing -> pure result
  10280. 867.97 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10281. 867.97 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10282. 867.97 s [opt-env-conf-test] - case mTup of
  10283. 867.97 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  10284. 867.97 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  10285. 867.97 s [opt-env-conf-test] - Success a -> pure (Right a)
  10286. 867.97 s [opt-env-conf-test] - Failure firstErrors ->
  10287. 867.97 s [opt-env-conf-test] - let goNexts ns = do
  10288. 867.97 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  10289. 867.97 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  10290. 867.97 s [opt-env-conf-test] - case mNext of
  10291. 867.97 s [opt-env-conf-test] - Nothing ->
  10292. 867.97 s [opt-env-conf-test] - pure $
  10293. 867.97 s [opt-env-conf-test] - Left $
  10294. 867.97 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10295. 867.97 s [opt-env-conf-test] - let f = case mDebugMode of
  10296. 867.97 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10297. 867.97 s [opt-env-conf-test] - Just _ -> id
  10298. 870.42 s [opt-env-conf-test] - in f firstErrors
  10299. 870.42 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10300. 870.52 s [opt-env-conf-test] - Success a -> pure (Right a)
  10301. 870.52 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10302. 870.52 s [opt-env-conf-test] - in goNexts nexts
  10303. 870.52 s [opt-env-conf-test] + case mTup of
  10304. 870.52 s [opt-env-conf-test] + Nothing -> error "TODO figure out when this list can be empty"
  10305. 870.52 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  10306. 870.52 s [opt-env-conf-test] + Success a -> pure (Right a)
  10307. 870.52 s [opt-env-conf-test] + Failure firstErrors ->
  10308. 870.52 s [opt-env-conf-test] + let goNexts ns = do
  10309. 870.52 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  10310. 870.52 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  10311. 870.52 s [opt-env-conf-test] + case mNext of
  10312. 870.52 s [opt-env-conf-test] + Nothing ->
  10313. 870.52 s [opt-env-conf-test] + pure $
  10314. 870.52 s [opt-env-conf-test] + Left $
  10315. 870.52 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10316. 870.52 s [opt-env-conf-test] + let f = case mDebugMode of
  10317. 870.52 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10318. 870.52 s [opt-env-conf-test] + Just _ -> id
  10319. 870.52 s [opt-env-conf-test] + in f firstErrors
  10320. 870.52 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10321. 870.52 s [opt-env-conf-test] + Success a -> pure (Right a)
  10322. 870.52 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10323. 870.52 s [opt-env-conf-test] + in goNexts nexts
  10324. 870.52 s [opt-env-conf-test] where
  10325. 870.52 s [opt-env-conf-test] go ::
  10326. 870.52 s [opt-env-conf-test] Parser a ->
  10327. 870.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  10328. 870.52 s [opt-env-conf-test] @@ -81,27 +81,27 @@
  10329. 870.52 s [opt-env-conf-test] Nothing -> pure result
  10330. 870.52 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10331. 870.52 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10332. 870.52 s [opt-env-conf-test] - case mTup of
  10333. 870.52 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  10334. 870.53 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  10335. 870.53 s [opt-env-conf-test] - Success a -> pure (Right a)
  10336. 870.53 s [opt-env-conf-test] - Failure firstErrors ->
  10337. 870.53 s [opt-env-conf-test] - let goNexts ns = do
  10338. 870.53 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  10339. 870.53 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  10340. 870.53 s [opt-env-conf-test] - case mNext of
  10341. 870.53 s [opt-env-conf-test] - Nothing ->
  10342. 870.53 s [opt-env-conf-test] - pure $
  10343. 870.53 s [opt-env-conf-test] - Left $
  10344. 870.53 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10345. 870.53 s [opt-env-conf-test] - let f = case mDebugMode of
  10346. 870.53 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10347. 870.53 s [opt-env-conf-test] - Just _ -> id
  10348. 870.53 s [opt-env-conf-test] - in f firstErrors
  10349. 870.53 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10350. 870.53 s [opt-env-conf-test] - Success a -> pure (Right a)
  10351. 870.53 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10352. 870.53 s [opt-env-conf-test] - in goNexts nexts
  10353. 870.53 s [opt-env-conf-test] + case mTup of
  10354. 870.53 s [opt-env-conf-test] + Nothing -> error "TODO figure out when this list can be empty"
  10355. 870.53 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  10356. 870.53 s [opt-env-conf-test] + Success a -> pure (Right a)
  10357. 870.53 s [opt-env-conf-test] + Failure firstErrors ->
  10358. 870.53 s [opt-env-conf-test] + let goNexts ns = do
  10359. 870.53 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  10360. 870.53 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  10361. 870.53 s [opt-env-conf-test] + case mNext of
  10362. 870.53 s [opt-env-conf-test] + Nothing ->
  10363. 870.53 s [opt-env-conf-test] + pure $
  10364. 870.53 s [opt-env-conf-test] + Left $
  10365. 870.53 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10366. 870.53 s [opt-env-conf-test] + let f = case mDebugMode of
  10367. 870.53 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10368. 870.53 s [opt-env-conf-test] + Just _ -> id
  10369. 870.53 s [opt-env-conf-test] + in f firstErrors
  10370. 870.53 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10371. 870.53 s [opt-env-conf-test] + Success a -> pure (Right a)
  10372. 870.53 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10373. 870.53 s [opt-env-conf-test] + in goNexts nexts
  10374. 870.53 s [opt-env-conf-test] where
  10375. 870.53 s [opt-env-conf-test] go ::
  10376. 870.53 s [opt-env-conf-test] Parser a ->
  10377. 870.53 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:113:25-35
  10378. 870.53 s [opt-env-conf-test] @@ -110,9 +110,9 @@
  10379. 870.53 s [opt-env-conf-test] ParserPure a -> do
  10380. 870.53 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  10381. 870.53 s [opt-env-conf-test] pure a
  10382. 870.53 s [opt-env-conf-test] - ParserAp ff fa -> do
  10383. 870.53 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  10384. 870.53 s [opt-env-conf-test] - ppIndent $ go ff <*> go fa
  10385. 870.53 s [opt-env-conf-test] + ParserAp ff fa -> do
  10386. 870.53 s [opt-env-conf-test] + debug [syntaxChunk "Ap"]
  10387. 870.53 s [opt-env-conf-test] + ppIndent $ go ff <*> go fa
  10388. 870.53 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10389. 870.53 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10390. 870.53 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10391. 870.53 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  10392. 870.53 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  10393. 870.53 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  10394. 870.53 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  10395. 870.53 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10396. 870.53 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10397. 870.53 s [opt-env-conf-test] + debug []
  10398. 870.53 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10399. 870.53 s [opt-env-conf-test] ParserSelect fe ff -> do
  10400. 870.53 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10401. 870.53 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  10402. 870.53 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  10403. 870.53 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  10404. 870.53 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  10405. 870.53 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10406. 870.53 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10407. 870.53 s [opt-env-conf-test] + debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10408. 870.53 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10409. 870.53 s [opt-env-conf-test] ParserSelect fe ff -> do
  10410. 870.53 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10411. 870.53 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  10412. 870.53 s [opt-env-conf-test] @@ -474,9 +474,9 @@
  10413. 870.53 s [opt-env-conf-test] | Found a
  10414. 870.53 s [opt-env-conf-test]
  10415. 870.53 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  10416. 870.53 s [opt-env-conf-test] -requireReaders rs = case NE.nonEmpty rs of
  10417. 870.53 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  10418. 870.53 s [opt-env-conf-test] - Just ne -> pure ne
  10419. 870.53 s [opt-env-conf-test] +requireReaders rs = case NE.nonEmpty rs of
  10420. 870.53 s [opt-env-conf-test] + Nothing -> ppError Nothing ParseErrorNoReaders
  10421. 870.53 s [opt-env-conf-test] + Just ne -> pure ne
  10422. 870.53 s [opt-env-conf-test]
  10423. 870.53 s [opt-env-conf-test] -- Try the readers in order
  10424. 870.53 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  10425. 870.53 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  10426. 870.53 s [opt-env-conf-test] @@ -114,7 +114,8 @@
  10427. 870.53 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  10428. 870.53 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  10429. 870.53 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10430. 870.53 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10431. 870.53 s [opt-env-conf-test] + debug [syntaxChunk "Empty", ": "
  10432. 870.53 s [opt-env-conf-test] +]
  10433. 870.53 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10434. 870.53 s [opt-env-conf-test] ParserSelect fe ff -> do
  10435. 870.53 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10436. 870.53 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:464:22-66
  10437. 870.53 s [opt-env-conf-test] @@ -461,11 +461,11 @@
  10438. 870.53 s [opt-env-conf-test] PP a
  10439. 870.53 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  10440. 870.53 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  10441. 870.53 s [opt-env-conf-test] - Just missings -> do
  10442. 870.53 s [opt-env-conf-test] - debug $
  10443. 870.53 s [opt-env-conf-test] - "Missing capabilities: "
  10444. 870.53 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  10445. 870.53 s [opt-env-conf-test] - ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10446. 870.53 s [opt-env-conf-test] + Just missings -> do
  10447. 870.53 s [opt-env-conf-test] + debug $
  10448. 870.53 s [opt-env-conf-test] + "Missing capabilities: "
  10449. 870.53 s [opt-env-conf-test] + : capabilitiesChunks (Set.fromList (NE.toList missings))
  10450. 870.53 s [opt-env-conf-test] + ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10451. 870.53 s [opt-env-conf-test] Nothing -> func
  10452. 870.53 s [opt-env-conf-test]
  10453. 870.53 s [opt-env-conf-test] data ParseResult a
  10454. 870.53 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
  10455. 870.53 s [opt-env-conf-test] @@ -94,9 +94,9 @@
  10456. 870.53 s [opt-env-conf-test] pure $
  10457. 870.53 s [opt-env-conf-test] Left $
  10458. 870.53 s [opt-env-conf-test] -- Only show source locations in debug mode.
  10459. 870.53 s [opt-env-conf-test] - let f = case mDebugMode of
  10460. 870.53 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10461. 870.53 s [opt-env-conf-test] - Just _ -> id
  10462. 870.53 s [opt-env-conf-test] + let f = case mDebugMode of
  10463. 870.53 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10464. 870.53 s [opt-env-conf-test] + Just _ -> id
  10465. 870.53 s [opt-env-conf-test] in f firstErrors
  10466. 870.53 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  10467. 870.53 s [opt-env-conf-test] Success a -> pure (Right a)
  10468. 870.53 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:116:27-37
  10469. 870.53 s [opt-env-conf-test] @@ -113,9 +113,9 @@
  10470. 870.53 s [opt-env-conf-test] ParserAp ff fa -> do
  10471. 870.53 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  10472. 870.54 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  10473. 870.54 s [opt-env-conf-test] - ParserEmpty mLoc -> do
  10474. 870.54 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10475. 870.54 s [opt-env-conf-test] - ppError mLoc ParseErrorEmpty
  10476. 870.54 s [opt-env-conf-test] + ParserEmpty mLoc -> do
  10477. 870.54 s [opt-env-conf-test] + debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10478. 870.54 s [opt-env-conf-test] + ppError mLoc ParseErrorEmpty
  10479. 870.54 s [opt-env-conf-test] ParserSelect fe ff -> do
  10480. 870.54 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10481. 870.54 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  10482. 870.54 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:119:29-42
  10483. 870.54 s [opt-env-conf-test] @@ -116,9 +116,9 @@
  10484. 870.54 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10485. 870.54 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10486. 870.54 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10487. 870.54 s [opt-env-conf-test] - ParserSelect fe ff -> do
  10488. 870.54 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  10489. 870.54 s [opt-env-conf-test] - ppIndent $ select (go fe) (go ff)
  10490. 870.54 s [opt-env-conf-test] + ParserSelect fe ff -> do
  10491. 870.54 s [opt-env-conf-test] + debug [syntaxChunk "Select"]
  10492. 870.54 s [opt-env-conf-test] + ppIndent $ select (go fe) (go ff)
  10493. 870.54 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  10494. 870.54 s [opt-env-conf-test] debug [syntaxChunk "Alt"]
  10495. 870.54 s [opt-env-conf-test] ppIndent $ do
  10496. 870.54 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:131:24-31
  10497. 870.54 s [opt-env-conf-test] @@ -128,9 +128,9 @@
  10498. 870.54 s [opt-env-conf-test] Just a -> do
  10499. 870.54 s [opt-env-conf-test] debug ["Left side succeeded."]
  10500. 870.54 s [opt-env-conf-test] pure a
  10501. 870.54 s [opt-env-conf-test] - Nothing -> do
  10502. 870.54 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  10503. 870.54 s [opt-env-conf-test] - ppIndent $ go p2
  10504. 870.54 s [opt-env-conf-test] + Nothing -> do
  10505. 870.54 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  10506. 870.54 s [opt-env-conf-test] + ppIndent $ go p2
  10507. 870.54 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10508. 873.86 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10509. 873.87 s [opt-env-conf-test] ppIndent $ do
  10510. 873.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
  10511. 873.87 s [opt-env-conf-test] @@ -124,13 +124,13 @@
  10512. 873.87 s [opt-env-conf-test] ppIndent $ do
  10513. 873.87 s [opt-env-conf-test] debug ["Trying left side."]
  10514. 873.87 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  10515. 873.87 s [opt-env-conf-test] - case eor of
  10516. 873.87 s [opt-env-conf-test] - Just a -> do
  10517. 873.87 s [opt-env-conf-test] - debug ["Left side succeeded."]
  10518. 873.87 s [opt-env-conf-test] - pure a
  10519. 873.87 s [opt-env-conf-test] - Nothing -> do
  10520. 873.87 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  10521. 873.87 s [opt-env-conf-test] - ppIndent $ go p2
  10522. 873.87 s [opt-env-conf-test] + case eor of
  10523. 873.87 s [opt-env-conf-test] + Just a -> do
  10524. 873.87 s [opt-env-conf-test] + debug ["Left side succeeded."]
  10525. 873.87 s [opt-env-conf-test] + pure a
  10526. 873.87 s [opt-env-conf-test] + Nothing -> do
  10527. 873.87 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  10528. 873.87 s [opt-env-conf-test] + ppIndent $ go p2
  10529. 873.87 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10530. 873.87 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10531. 873.87 s [opt-env-conf-test] ppIndent $ do
  10532. 873.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
  10533. 873.87 s [opt-env-conf-test] @@ -124,13 +124,13 @@
  10534. 873.87 s [opt-env-conf-test] ppIndent $ do
  10535. 873.87 s [opt-env-conf-test] debug ["Trying left side."]
  10536. 873.87 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  10537. 873.87 s [opt-env-conf-test] - case eor of
  10538. 873.87 s [opt-env-conf-test] - Just a -> do
  10539. 873.87 s [opt-env-conf-test] - debug ["Left side succeeded."]
  10540. 873.87 s [opt-env-conf-test] - pure a
  10541. 873.87 s [opt-env-conf-test] - Nothing -> do
  10542. 873.87 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  10543. 873.87 s [opt-env-conf-test] - ppIndent $ go p2
  10544. 873.87 s [opt-env-conf-test] + case eor of
  10545. 873.87 s [opt-env-conf-test] + Just a -> do
  10546. 873.87 s [opt-env-conf-test] + debug ["Left side succeeded."]
  10547. 873.87 s [opt-env-conf-test] + pure a
  10548. 873.87 s [opt-env-conf-test] + Nothing -> do
  10549. 873.87 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  10550. 873.87 s [opt-env-conf-test] + ppIndent $ go p2
  10551. 873.87 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10552. 873.87 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10553. 873.87 s [opt-env-conf-test] ppIndent $ do
  10554. 873.87 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:122:26-31
  10555. 873.87 s [opt-env-conf-test] @@ -119,18 +119,18 @@
  10556. 873.87 s [opt-env-conf-test] ParserSelect fe ff -> do
  10557. 873.87 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10558. 873.87 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  10559. 873.87 s [opt-env-conf-test] - ParserAlt p1 p2 -> do
  10560. 873.87 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  10561. 873.87 s [opt-env-conf-test] - ppIndent $ do
  10562. 873.87 s [opt-env-conf-test] - debug ["Trying left side."]
  10563. 873.87 s [opt-env-conf-test] - eor <- ppIndent $ tryPP (go p1)
  10564. 873.87 s [opt-env-conf-test] - case eor of
  10565. 873.87 s [opt-env-conf-test] - Just a -> do
  10566. 873.87 s [opt-env-conf-test] - debug ["Left side succeeded."]
  10567. 873.87 s [opt-env-conf-test] - pure a
  10568. 873.87 s [opt-env-conf-test] - Nothing -> do
  10569. 873.87 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  10570. 873.87 s [opt-env-conf-test] - ppIndent $ go p2
  10571. 873.87 s [opt-env-conf-test] + ParserAlt p1 p2 -> do
  10572. 873.87 s [opt-env-conf-test] + debug [syntaxChunk "Alt"]
  10573. 873.87 s [opt-env-conf-test] + ppIndent $ do
  10574. 873.87 s [opt-env-conf-test] + debug ["Trying left side."]
  10575. 873.87 s [opt-env-conf-test] + eor <- ppIndent $ tryPP (go p1)
  10576. 873.87 s [opt-env-conf-test] + case eor of
  10577. 873.87 s [opt-env-conf-test] + Just a -> do
  10578. 873.87 s [opt-env-conf-test] + debug ["Left side succeeded."]
  10579. 873.87 s [opt-env-conf-test] + pure a
  10580. 873.87 s [opt-env-conf-test] + Nothing -> do
  10581. 873.87 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  10582. 873.87 s [opt-env-conf-test] + ppIndent $ go p2
  10583. 873.87 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10584. 873.87 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10585. 873.88 s [opt-env-conf-test] ppIndent $ do
  10586. 873.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
  10587. 873.88 s [opt-env-conf-test] @@ -132,7 +132,7 @@
  10588. 873.88 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10589. 873.88 s [opt-env-conf-test] ppIndent $ go p2
  10590. 873.88 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10591. 873.88 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10592. 873.88 s [opt-env-conf-test] + debug []
  10593. 873.88 s [opt-env-conf-test] ppIndent $ do
  10594. 873.88 s [opt-env-conf-test] eor <- tryPP $ go p'
  10595. 873.88 s [opt-env-conf-test] case eor of
  10596. 873.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
  10597. 873.88 s [opt-env-conf-test] @@ -132,7 +132,7 @@
  10598. 873.88 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10599. 873.88 s [opt-env-conf-test] ppIndent $ go p2
  10600. 873.88 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10601. 873.88 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10602. 873.88 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10603. 873.88 s [opt-env-conf-test] ppIndent $ do
  10604. 873.88 s [opt-env-conf-test] eor <- tryPP $ go p'
  10605. 873.88 s [opt-env-conf-test] case eor of
  10606. 873.88 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  10607. 873.88 s [opt-env-conf-test] @@ -474,9 +474,9 @@
  10608. 873.88 s [opt-env-conf-test] | Found a
  10609. 873.88 s [opt-env-conf-test]
  10610. 873.88 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  10611. 873.88 s [opt-env-conf-test] -requireReaders rs = case NE.nonEmpty rs of
  10612. 873.88 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  10613. 873.88 s [opt-env-conf-test] - Just ne -> pure ne
  10614. 873.88 s [opt-env-conf-test] +requireReaders rs = case NE.nonEmpty rs of
  10615. 873.88 s [opt-env-conf-test] + Nothing -> ppError Nothing ParseErrorNoReaders
  10616. 873.88 s [opt-env-conf-test] + Just ne -> pure ne
  10617. 873.88 s [opt-env-conf-test]
  10618. 873.88 s [opt-env-conf-test] -- Try the readers in order
  10619. 873.88 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  10620. 873.88 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
  10621. 873.88 s [opt-env-conf-test] @@ -135,11 +135,11 @@
  10622. 873.88 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10623. 873.88 s [opt-env-conf-test] ppIndent $ do
  10624. 873.88 s [opt-env-conf-test] eor <- tryPP $ go p'
  10625. 873.88 s [opt-env-conf-test] - case eor of
  10626. 873.88 s [opt-env-conf-test] - Nothing -> pure []
  10627. 873.88 s [opt-env-conf-test] - Just a -> do
  10628. 873.88 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  10629. 873.88 s [opt-env-conf-test] - pure (a : as)
  10630. 873.88 s [opt-env-conf-test] + case eor of
  10631. 873.88 s [opt-env-conf-test] + Nothing -> pure []
  10632. 873.88 s [opt-env-conf-test] + Just a -> do
  10633. 873.88 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  10634. 873.88 s [opt-env-conf-test] + pure (a : as)
  10635. 873.88 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10636. 873.88 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10637. 873.88 s [opt-env-conf-test] ppIndent $ do
  10638. 873.88 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
  10639. 873.88 s [opt-env-conf-test] @@ -135,11 +135,11 @@
  10640. 873.88 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10641. 873.88 s [opt-env-conf-test] ppIndent $ do
  10642. 873.88 s [opt-env-conf-test] eor <- tryPP $ go p'
  10643. 873.88 s [opt-env-conf-test] - case eor of
  10644. 873.88 s [opt-env-conf-test] - Nothing -> pure []
  10645. 873.88 s [opt-env-conf-test] - Just a -> do
  10646. 873.88 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  10647. 873.88 s [opt-env-conf-test] - pure (a : as)
  10648. 873.88 s [opt-env-conf-test] + case eor of
  10649. 873.88 s [opt-env-conf-test] + Nothing -> pure []
  10650. 873.88 s [opt-env-conf-test] + Just a -> do
  10651. 873.88 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  10652. 873.88 s [opt-env-conf-test] + pure (a : as)
  10653. 873.88 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10654. 873.88 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10655. 873.88 s [opt-env-conf-test] ppIndent $ do
  10656. 873.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
  10657. 873.88 s [opt-env-conf-test] @@ -132,7 +132,8 @@
  10658. 873.88 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10659. 873.88 s [opt-env-conf-test] ppIndent $ go p2
  10660. 873.88 s [opt-env-conf-test] ParserMany mLoc p' -> do
  10661. 873.88 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10662. 873.88 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": "
  10663. 873.88 s [opt-env-conf-test] +]
  10664. 873.88 s [opt-env-conf-test] ppIndent $ do
  10665. 873.88 s [opt-env-conf-test] eor <- tryPP $ go p'
  10666. 873.88 s [opt-env-conf-test] case eor of
  10667. 873.88 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:134:29-28
  10668. 873.88 s [opt-env-conf-test] @@ -131,15 +131,15 @@
  10669. 873.88 s [opt-env-conf-test] Nothing -> do
  10670. 873.88 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  10671. 873.88 s [opt-env-conf-test] ppIndent $ go p2
  10672. 873.88 s [opt-env-conf-test] - ParserMany mLoc p' -> do
  10673. 873.88 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10674. 873.88 s [opt-env-conf-test] - ppIndent $ do
  10675. 873.88 s [opt-env-conf-test] - eor <- tryPP $ go p'
  10676. 873.88 s [opt-env-conf-test] - case eor of
  10677. 873.88 s [opt-env-conf-test] - Nothing -> pure []
  10678. 873.88 s [opt-env-conf-test] - Just a -> do
  10679. 873.88 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  10680. 873.88 s [opt-env-conf-test] - pure (a : as)
  10681. 873.88 s [opt-env-conf-test] + ParserMany mLoc p' -> do
  10682. 873.88 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  10683. 873.88 s [opt-env-conf-test] + ppIndent $ do
  10684. 873.88 s [opt-env-conf-test] + eor <- tryPP $ go p'
  10685. 873.88 s [opt-env-conf-test] + case eor of
  10686. 873.88 s [opt-env-conf-test] + Nothing -> pure []
  10687. 873.88 s [opt-env-conf-test] + Just a -> do
  10688. 873.88 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  10689. 873.88 s [opt-env-conf-test] + pure (a : as)
  10690. 873.88 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10691. 873.88 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10692. 873.88 s [opt-env-conf-test] ppIndent $ do
  10693. 873.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  10694. 873.88 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  10695. 873.88 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  10696. 873.88 s [opt-env-conf-test] pure (a : as)
  10697. 873.88 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10698. 873.88 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10699. 873.88 s [opt-env-conf-test] + debug []
  10700. 873.88 s [opt-env-conf-test] ppIndent $ do
  10701. 873.88 s [opt-env-conf-test] a <- go p'
  10702. 873.88 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  10703. 873.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  10704. 873.88 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  10705. 873.88 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  10706. 873.88 s [opt-env-conf-test] pure (a : as)
  10707. 873.88 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10708. 873.88 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10709. 873.88 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10710. 873.88 s [opt-env-conf-test] ppIndent $ do
  10711. 873.88 s [opt-env-conf-test] a <- go p'
  10712. 873.88 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  10713. 873.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  10714. 873.88 s [opt-env-conf-test] @@ -141,7 +141,8 @@
  10715. 873.88 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  10716. 873.88 s [opt-env-conf-test] pure (a : as)
  10717. 873.88 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10718. 873.88 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10719. 873.88 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": "
  10720. 873.88 s [opt-env-conf-test] +]
  10721. 873.88 s [opt-env-conf-test] ppIndent $ do
  10722. 873.89 s [opt-env-conf-test] a <- go p'
  10723. 873.89 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  10724. 873.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
  10725. 873.89 s [opt-env-conf-test] @@ -566,7 +566,7 @@
  10726. 873.89 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10727. 873.89 s [opt-env-conf-test] ppIndent $ go p'
  10728. 873.89 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10729. 873.89 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10730. 873.89 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10731. 874.80 s [opt-env-conf-test] ppIndent $ do
  10732. 874.80 s [opt-env-conf-test] mNewConfig <- go pc
  10733. 874.80 s [opt-env-conf-test] mRes <- go pa
  10734. 874.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
  10735. 874.80 s [opt-env-conf-test] @@ -566,7 +566,7 @@
  10736. 874.80 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10737. 874.80 s [opt-env-conf-test] ppIndent $ go p'
  10738. 874.80 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10739. 874.80 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10740. 874.80 s [opt-env-conf-test] + debug []
  10741. 874.80 s [opt-env-conf-test] ppIndent $ do
  10742. 874.80 s [opt-env-conf-test] mNewConfig <- go pc
  10743. 874.80 s [opt-env-conf-test] mRes <- go pa
  10744. 874.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
  10745. 874.80 s [opt-env-conf-test] @@ -563,7 +563,8 @@
  10746. 874.80 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10747. 874.80 s [opt-env-conf-test] ppIndent $ go p'
  10748. 874.80 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10749. 874.80 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10750. 874.80 s [opt-env-conf-test] + debug [syntaxChunk "Parser with check", ": "
  10751. 874.80 s [opt-env-conf-test] +]
  10752. 874.80 s [opt-env-conf-test] ppIndent $ go p'
  10753. 874.80 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10754. 874.80 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10755. 874.80 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
  10756. 874.80 s [opt-env-conf-test] @@ -487,9 +487,9 @@
  10757. 874.80 s [opt-env-conf-test] Right a -> Right a
  10758. 874.80 s [opt-env-conf-test] go' errs = \case
  10759. 874.80 s [opt-env-conf-test] [] -> Left errs
  10760. 874.80 s [opt-env-conf-test] - (r : rl) -> case runReader r s of
  10761. 874.80 s [opt-env-conf-test] - Left err -> go' (err <| errs) rl
  10762. 874.81 s [opt-env-conf-test] - Right a -> Right a
  10763. 874.81 s [opt-env-conf-test] + (r : rl) -> case runReader r s of
  10764. 874.81 s [opt-env-conf-test] + Left err -> go' (err <| errs) rl
  10765. 874.81 s [opt-env-conf-test] + Right a -> Right a
  10766. 874.81 s [opt-env-conf-test]
  10767. 874.81 s [opt-env-conf-test] runHelpParser ::
  10768. 874.81 s [opt-env-conf-test] -- DebugMode
  10769. 874.81 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:565:42-31
  10770. 874.81 s [opt-env-conf-test] @@ -562,9 +562,9 @@
  10771. 874.81 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10772. 874.81 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10773. 874.81 s [opt-env-conf-test] ppIndent $ go p'
  10774. 874.81 s [opt-env-conf-test] - ParserCheck mLoc _ _ _ p' -> do
  10775. 874.81 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10776. 874.81 s [opt-env-conf-test] - ppIndent $ go p'
  10777. 874.81 s [opt-env-conf-test] + ParserCheck mLoc _ _ _ p' -> do
  10778. 874.81 s [opt-env-conf-test] + debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10779. 874.81 s [opt-env-conf-test] + ppIndent $ go p'
  10780. 874.81 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10781. 874.81 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10782. 874.81 s [opt-env-conf-test] ppIndent $ do
  10783. 874.81 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
  10784. 874.81 s [opt-env-conf-test] @@ -579,21 +579,21 @@
  10785. 874.81 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  10786. 874.81 s [opt-env-conf-test] ppIndent $ do
  10787. 874.81 s [opt-env-conf-test] mS <- ppArg
  10788. 874.81 s [opt-env-conf-test] - case mS of
  10789. 874.81 s [opt-env-conf-test] - Nothing -> do
  10790. 874.81 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  10791. 874.81 s [opt-env-conf-test] - pure Nothing
  10792. 874.81 s [opt-env-conf-test] - Just s -> do
  10793. 874.81 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  10794. 874.81 s [opt-env-conf-test] - Nothing -> do
  10795. 874.81 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10796. 874.81 s [opt-env-conf-test] - pure Nothing
  10797. 874.81 s [opt-env-conf-test] - Just c -> do
  10798. 874.81 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  10799. 874.81 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  10800. 874.81 s [opt-env-conf-test] - pure $ case mRes of
  10801. 874.81 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  10802. 874.81 s [opt-env-conf-test] - Just res -> pure res
  10803. 874.81 s [opt-env-conf-test] + case mS of
  10804. 874.81 s [opt-env-conf-test] + Nothing -> do
  10805. 874.81 s [opt-env-conf-test] + debug ["No argument found for choosing a command."]
  10806. 874.81 s [opt-env-conf-test] + pure Nothing
  10807. 874.81 s [opt-env-conf-test] + Just s -> do
  10808. 874.81 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  10809. 874.81 s [opt-env-conf-test] + Nothing -> do
  10810. 874.81 s [opt-env-conf-test] + debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10811. 874.81 s [opt-env-conf-test] + pure Nothing
  10812. 874.81 s [opt-env-conf-test] + Just c -> do
  10813. 874.81 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  10814. 874.81 s [opt-env-conf-test] + mRes <- go' (commandArg c : path) $ commandParser c
  10815. 874.81 s [opt-env-conf-test] + pure $ case mRes of
  10816. 874.81 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  10817. 874.81 s [opt-env-conf-test] + Just res -> pure res
  10818. 874.81 s [opt-env-conf-test]
  10819. 874.81 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  10820. 874.81 s [opt-env-conf-test] deriving
  10821. 874.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
  10822. 874.81 s [opt-env-conf-test] @@ -148,7 +148,8 @@
  10823. 874.81 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  10824. 874.81 s [opt-env-conf-test] pure (a :| as)
  10825. 874.81 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10826. 874.81 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10827. 874.81 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": "
  10828. 874.81 s [opt-env-conf-test] +]
  10829. 874.81 s [opt-env-conf-test] ppIndent $ do
  10830. 874.81 s [opt-env-conf-test] e <- ask
  10831. 874.81 s [opt-env-conf-test] s <- get
  10832. 874.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
  10833. 874.81 s [opt-env-conf-test] @@ -566,7 +566,8 @@
  10834. 874.81 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10835. 874.81 s [opt-env-conf-test] ppIndent $ go p'
  10836. 874.81 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10837. 874.81 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10838. 874.81 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": "
  10839. 874.82 s [opt-env-conf-test] +]
  10840. 874.82 s [opt-env-conf-test] ppIndent $ do
  10841. 874.82 s [opt-env-conf-test] mNewConfig <- go pc
  10842. 874.82 s [opt-env-conf-test] mRes <- go pa
  10843. 874.82 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
  10844. 874.82 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  10845. 874.82 s [opt-env-conf-test] case result of
  10846. 874.82 s [opt-env-conf-test] Success a -> pure a
  10847. 874.82 s [opt-env-conf-test] Failure errs -> do
  10848. 874.82 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  10849. 874.82 s [opt-env-conf-test] + if not $ True
  10850. 874.82 s [opt-env-conf-test] then ppErrors' errs
  10851. 874.82 s [opt-env-conf-test] else do
  10852. 874.82 s [opt-env-conf-test] -- Settings available below
  10853. 874.82 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:161:24-50
  10854. 874.82 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  10855. 874.82 s [opt-env-conf-test] case result of
  10856. 874.82 s [opt-env-conf-test] Success a -> pure a
  10857. 874.82 s [opt-env-conf-test] Failure errs -> do
  10858. 874.82 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  10859. 874.82 s [opt-env-conf-test] + if not $ not (all errorIsForgivable errs)
  10860. 874.82 s [opt-env-conf-test] then ppErrors' errs
  10861. 874.82 s [opt-env-conf-test] else do
  10862. 874.82 s [opt-env-conf-test] -- Settings available below
  10863. 874.82 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
  10864. 874.82 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  10865. 874.82 s [opt-env-conf-test] case result of
  10866. 874.82 s [opt-env-conf-test] Success a -> pure a
  10867. 874.82 s [opt-env-conf-test] Failure errs -> do
  10868. 874.82 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  10869. 874.82 s [opt-env-conf-test] + if True
  10870. 874.82 s [opt-env-conf-test] then ppErrors' errs
  10871. 874.82 s [opt-env-conf-test] else do
  10872. 874.82 s [opt-env-conf-test] -- Settings available below
  10873. 874.82 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
  10874. 874.82 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  10875. 874.82 s [opt-env-conf-test] case result of
  10876. 874.82 s [opt-env-conf-test] Success a -> pure a
  10877. 874.82 s [opt-env-conf-test] Failure errs -> do
  10878. 874.82 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  10879. 874.82 s [opt-env-conf-test] + if not $ False
  10880. 874.82 s [opt-env-conf-test] then ppErrors' errs
  10881. 874.82 s [opt-env-conf-test] else do
  10882. 874.82 s [opt-env-conf-test] -- Settings available below
  10883. 874.82 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
  10884. 874.82 s [opt-env-conf-test] @@ -148,7 +148,7 @@
  10885. 874.82 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  10886. 874.82 s [opt-env-conf-test] pure (a :| as)
  10887. 874.82 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10888. 874.82 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10889. 874.82 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10890. 874.82 s [opt-env-conf-test] ppIndent $ do
  10891. 874.82 s [opt-env-conf-test] e <- ask
  10892. 874.82 s [opt-env-conf-test] s <- get
  10893. 874.82 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
  10894. 874.82 s [opt-env-conf-test] @@ -148,7 +148,7 @@
  10895. 874.82 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  10896. 874.82 s [opt-env-conf-test] pure (a :| as)
  10897. 874.82 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10898. 874.82 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10899. 874.82 s [opt-env-conf-test] + debug []
  10900. 874.82 s [opt-env-conf-test] ppIndent $ do
  10901. 874.82 s [opt-env-conf-test] e <- ask
  10902. 874.82 s [opt-env-conf-test] s <- get
  10903. 874.82 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  10904. 874.82 s [opt-env-conf-test] @@ -213,12 +213,12 @@
  10905. 874.82 s [opt-env-conf-test] functionChunk "name",
  10906. 874.82 s [opt-env-conf-test] " was called with no way to load configuration."
  10907. 874.82 s [opt-env-conf-test] ],
  10908. 874.82 s [opt-env-conf-test] - [ "You can load configuration with ",
  10909. 874.82 s [opt-env-conf-test] - functionChunk "withConfig",
  10910. 874.82 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  10911. 874.82 s [opt-env-conf-test] - functionChunk "withoutConfig",
  10912. 874.82 s [opt-env-conf-test] - "."
  10913. 874.82 s [opt-env-conf-test] - ]
  10914. 874.82 s [opt-env-conf-test] + [ "You can load configuration with ",
  10915. 874.82 s [opt-env-conf-test] + functionChunk "withConfig",
  10916. 874.82 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  10917. 874.82 s [opt-env-conf-test] + functionChunk "withoutConfig",
  10918. 874.82 s [opt-env-conf-test] + "."
  10919. 874.82 s [opt-env-conf-test] + ]
  10920. 874.82 s [opt-env-conf-test] ]
  10921. 874.82 s [opt-env-conf-test] LintErrorManyInfinite ->
  10922. 874.82 s [opt-env-conf-test] [ [ functionChunk "many",
  10923. 874.82 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:161:18-50
  10924. 874.82 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  10925. 874.82 s [opt-env-conf-test] case result of
  10926. 874.82 s [opt-env-conf-test] Success a -> pure a
  10927. 874.82 s [opt-env-conf-test] Failure errs -> do
  10928. 874.82 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  10929. 874.82 s [opt-env-conf-test] + if not (not $ all errorIsForgivable errs)
  10930. 876.93 s [opt-env-conf-test] then ppErrors' errs
  10931. 876.93 s [opt-env-conf-test] else do
  10932. 876.93 s [opt-env-conf-test] -- Settings available below
  10933. 877.02 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
  10934. 877.02 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  10935. 877.02 s [opt-env-conf-test] -- with only forgivable errors
  10936. 877.02 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  10937. 877.02 s [opt-env-conf-test] -- then this should be an unforgivable error.
  10938. 877.02 s [opt-env-conf-test] - if null parsedSettingsMap
  10939. 877.02 s [opt-env-conf-test] + if False
  10940. 877.02 s [opt-env-conf-test] then ppErrors' errs
  10941. 877.02 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  10942. 877.02 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  10943. 877.02 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
  10944. 877.02 s [opt-env-conf-test] @@ -591,9 +591,9 @@
  10945. 877.02 s [opt-env-conf-test] Just c -> do
  10946. 877.02 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  10947. 877.02 s [opt-env-conf-test] mRes <- go' (commandArg c : path) $ commandParser c
  10948. 877.02 s [opt-env-conf-test] - pure $ case mRes of
  10949. 877.02 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  10950. 877.02 s [opt-env-conf-test] - Just res -> pure res
  10951. 877.02 s [opt-env-conf-test] + pure $ case mRes of
  10952. 877.02 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  10953. 877.02 s [opt-env-conf-test] + Just res -> pure res
  10954. 877.02 s [opt-env-conf-test]
  10955. 877.02 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  10956. 877.02 s [opt-env-conf-test] deriving
  10957. 877.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
  10958. 877.02 s [opt-env-conf-test] @@ -560,7 +560,8 @@
  10959. 877.02 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10960. 877.02 s [opt-env-conf-test] ppIndent $ go p'
  10961. 877.02 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10962. 877.02 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10963. 877.02 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": "
  10964. 877.02 s [opt-env-conf-test] +]
  10965. 877.02 s [opt-env-conf-test] ppIndent $ go p'
  10966. 877.02 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10967. 877.02 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10968. 877.02 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:568:44-43
  10969. 877.02 s [opt-env-conf-test] @@ -565,12 +565,12 @@
  10970. 877.02 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10971. 877.02 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10972. 877.02 s [opt-env-conf-test] ppIndent $ go p'
  10973. 877.02 s [opt-env-conf-test] - ParserWithConfig mLoc pc pa -> do
  10974. 877.02 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10975. 877.02 s [opt-env-conf-test] - ppIndent $ do
  10976. 877.02 s [opt-env-conf-test] - mNewConfig <- go pc
  10977. 877.02 s [opt-env-conf-test] - mRes <- go pa
  10978. 877.02 s [opt-env-conf-test] - pure $ mRes <|> mNewConfig -- Reverse order
  10979. 877.02 s [opt-env-conf-test] + ParserWithConfig mLoc pc pa -> do
  10980. 877.02 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10981. 877.02 s [opt-env-conf-test] + ppIndent $ do
  10982. 877.02 s [opt-env-conf-test] + mNewConfig <- go pc
  10983. 877.02 s [opt-env-conf-test] + mRes <- go pa
  10984. 877.02 s [opt-env-conf-test] + pure $ mRes <|> mNewConfig -- Reverse order
  10985. 877.02 s [opt-env-conf-test] ParserSetting mLoc _ -> do
  10986. 877.02 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  10987. 877.02 s [opt-env-conf-test] pure Nothing
  10988. 877.02 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
  10989. 877.02 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  10990. 877.02 s [opt-env-conf-test] case result of
  10991. 877.02 s [opt-env-conf-test] Success a -> pure a
  10992. 877.02 s [opt-env-conf-test] Failure errs -> do
  10993. 877.02 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  10994. 877.03 s [opt-env-conf-test] + if False
  10995. 877.03 s [opt-env-conf-test] then ppErrors' errs
  10996. 877.03 s [opt-env-conf-test] else do
  10997. 877.03 s [opt-env-conf-test] -- Settings available below
  10998. 877.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
  10999. 877.03 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  11000. 877.03 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11001. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11002. 877.03 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  11003. 877.03 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11004. 877.03 s [opt-env-conf-test] + debug []
  11005. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11006. 877.03 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11007. 877.03 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11008. 877.03 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
  11009. 877.03 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  11010. 877.03 s [opt-env-conf-test] -- with only forgivable errors
  11011. 877.03 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  11012. 877.03 s [opt-env-conf-test] -- then this should be an unforgivable error.
  11013. 877.03 s [opt-env-conf-test] - if null parsedSettingsMap
  11014. 877.03 s [opt-env-conf-test] + if True
  11015. 877.03 s [opt-env-conf-test] then ppErrors' errs
  11016. 877.03 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11017. 877.03 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11018. 877.03 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:562:43-31
  11019. 877.03 s [opt-env-conf-test] @@ -559,9 +559,9 @@
  11020. 877.03 s [opt-env-conf-test] ParserSome mLoc p' -> do
  11021. 877.03 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11022. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11023. 877.03 s [opt-env-conf-test] - ParserAllOrNothing mLoc p' -> do
  11024. 877.03 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11025. 877.03 s [opt-env-conf-test] - ppIndent $ go p'
  11026. 877.03 s [opt-env-conf-test] + ParserAllOrNothing mLoc p' -> do
  11027. 877.03 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11028. 877.03 s [opt-env-conf-test] + ppIndent $ go p'
  11029. 877.03 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  11030. 877.03 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11031. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11032. 877.03 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:143:29-25
  11033. 877.03 s [opt-env-conf-test] @@ -140,13 +140,13 @@
  11034. 877.03 s [opt-env-conf-test] Just a -> do
  11035. 877.03 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11036. 877.03 s [opt-env-conf-test] pure (a : as)
  11037. 877.03 s [opt-env-conf-test] - ParserSome mLoc p' -> do
  11038. 877.03 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11039. 877.03 s [opt-env-conf-test] - ppIndent $ do
  11040. 877.03 s [opt-env-conf-test] - a <- go p'
  11041. 877.03 s [opt-env-conf-test] - debug ["First element of some succeeded, continuing with Many"]
  11042. 877.03 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  11043. 877.03 s [opt-env-conf-test] - pure (a :| as)
  11044. 877.03 s [opt-env-conf-test] + ParserSome mLoc p' -> do
  11045. 877.03 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11046. 877.03 s [opt-env-conf-test] + ppIndent $ do
  11047. 877.03 s [opt-env-conf-test] + a <- go p'
  11048. 877.03 s [opt-env-conf-test] + debug ["First element of some succeeded, continuing with Many"]
  11049. 877.03 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  11050. 877.03 s [opt-env-conf-test] + pure (a :| as)
  11051. 877.03 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11052. 877.03 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11053. 877.03 s [opt-env-conf-test] ppIndent $ do
  11054. 877.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
  11055. 877.03 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  11056. 877.03 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11057. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11058. 877.03 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  11059. 877.03 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11060. 877.03 s [opt-env-conf-test] + debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11061. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11062. 877.03 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11063. 877.03 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11064. 877.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
  11065. 877.03 s [opt-env-conf-test] @@ -560,7 +560,7 @@
  11066. 877.03 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11067. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11068. 877.03 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11069. 877.03 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11070. 877.03 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11071. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11072. 877.03 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  11073. 877.03 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11074. 877.03 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
  11075. 877.03 s [opt-env-conf-test] @@ -460,13 +460,13 @@
  11076. 877.03 s [opt-env-conf-test] PP a ->
  11077. 877.03 s [opt-env-conf-test] PP a
  11078. 877.03 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  11079. 877.03 s [opt-env-conf-test] - case missingCapabilities capabilities requiredCapabilities of
  11080. 877.03 s [opt-env-conf-test] - Just missings -> do
  11081. 877.03 s [opt-env-conf-test] - debug $
  11082. 877.03 s [opt-env-conf-test] - "Missing capabilities: "
  11083. 877.03 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  11084. 877.03 s [opt-env-conf-test] - ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  11085. 877.03 s [opt-env-conf-test] - Nothing -> func
  11086. 877.03 s [opt-env-conf-test] + case missingCapabilities capabilities requiredCapabilities of
  11087. 877.03 s [opt-env-conf-test] + Just missings -> do
  11088. 877.03 s [opt-env-conf-test] + debug $
  11089. 877.03 s [opt-env-conf-test] + "Missing capabilities: "
  11090. 877.03 s [opt-env-conf-test] + : capabilitiesChunks (Set.fromList (NE.toList missings))
  11091. 877.03 s [opt-env-conf-test] + ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  11092. 877.03 s [opt-env-conf-test] + Nothing -> func
  11093. 877.03 s [opt-env-conf-test]
  11094. 877.03 s [opt-env-conf-test] data ParseResult a
  11095. 877.03 s [opt-env-conf-test] = NotRun
  11096. 877.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
  11097. 877.03 s [opt-env-conf-test] @@ -560,7 +560,7 @@
  11098. 877.03 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11099. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11100. 877.03 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11101. 877.03 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11102. 877.03 s [opt-env-conf-test] + debug []
  11103. 877.03 s [opt-env-conf-test] ppIndent $ go p'
  11104. 877.03 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  11105. 877.03 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11106. 878.72 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:175:19-112
  11107. 878.73 s [opt-env-conf-test] @@ -172,9 +172,9 @@
  11108. 878.73 s [opt-env-conf-test] -- with only forgivable errors
  11109. 878.73 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  11110. 878.73 s [opt-env-conf-test] -- then this should be an unforgivable error.
  11111. 878.73 s [opt-env-conf-test] - if null parsedSettingsMap
  11112. 878.73 s [opt-env-conf-test] - then ppErrors' errs
  11113. 878.73 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11114. 878.73 s [opt-env-conf-test] + if null parsedSettingsMap
  11115. 878.73 s [opt-env-conf-test] + then ppErrors' errs
  11116. 878.73 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11117. 878.73 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11118. 878.73 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11119. 878.73 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11120. 878.73 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
  11121. 878.73 s [opt-env-conf-test] @@ -155,26 +155,26 @@
  11122. 878.73 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  11123. 878.73 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  11124. 878.73 s [opt-env-conf-test] put s'
  11125. 878.73 s [opt-env-conf-test] - case result of
  11126. 878.73 s [opt-env-conf-test] - Success a -> pure a
  11127. 878.73 s [opt-env-conf-test] - Failure errs -> do
  11128. 878.73 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11129. 878.73 s [opt-env-conf-test] - then ppErrors' errs
  11130. 878.73 s [opt-env-conf-test] - else do
  11131. 878.73 s [opt-env-conf-test] - -- Settings available below
  11132. 878.73 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  11133. 878.73 s [opt-env-conf-test] - -- Settings that have been parsed
  11134. 878.73 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  11135. 878.73 s [opt-env-conf-test] - -- Settings that have been parsed below
  11136. 878.73 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11137. 878.73 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  11138. 878.73 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  11139. 878.73 s [opt-env-conf-test] - -- with only forgivable errors
  11140. 878.73 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  11141. 878.73 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  11142. 878.73 s [opt-env-conf-test] - if null parsedSettingsMap
  11143. 878.73 s [opt-env-conf-test] - then ppErrors' errs
  11144. 878.73 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11145. 878.73 s [opt-env-conf-test] + case result of
  11146. 878.73 s [opt-env-conf-test] + Success a -> pure a
  11147. 878.73 s [opt-env-conf-test] + Failure errs -> do
  11148. 878.73 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  11149. 878.73 s [opt-env-conf-test] + then ppErrors' errs
  11150. 878.73 s [opt-env-conf-test] + else do
  11151. 878.73 s [opt-env-conf-test] + -- Settings available below
  11152. 878.73 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  11153. 878.73 s [opt-env-conf-test] + -- Settings that have been parsed
  11154. 878.73 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  11155. 878.73 s [opt-env-conf-test] + -- Settings that have been parsed below
  11156. 878.73 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11157. 878.73 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  11158. 878.73 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  11159. 878.73 s [opt-env-conf-test] + -- with only forgivable errors
  11160. 878.73 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  11161. 878.73 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  11162. 878.73 s [opt-env-conf-test] + if null parsedSettingsMap
  11163. 878.73 s [opt-env-conf-test] + then ppErrors' errs
  11164. 878.73 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11165. 878.73 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11166. 878.73 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11167. 878.73 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11168. 878.73 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:152:20-112
  11169. 878.73 s [opt-env-conf-test] @@ -149,32 +149,32 @@
  11170. 878.73 s [opt-env-conf-test] pure (a :| as)
  11171. 878.73 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11172. 878.73 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11173. 878.73 s [opt-env-conf-test] - ppIndent $ do
  11174. 878.73 s [opt-env-conf-test] - e <- ask
  11175. 878.73 s [opt-env-conf-test] - s <- get
  11176. 878.73 s [opt-env-conf-test] - results <- liftIO $ runPP (go p') s e
  11177. 878.73 s [opt-env-conf-test] - (result, s') <- ppNonDetList results
  11178. 878.73 s [opt-env-conf-test] - put s'
  11179. 878.73 s [opt-env-conf-test] - case result of
  11180. 878.73 s [opt-env-conf-test] - Success a -> pure a
  11181. 878.73 s [opt-env-conf-test] - Failure errs -> do
  11182. 878.73 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11183. 878.73 s [opt-env-conf-test] - then ppErrors' errs
  11184. 878.73 s [opt-env-conf-test] - else do
  11185. 878.73 s [opt-env-conf-test] - -- Settings available below
  11186. 878.73 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  11187. 878.73 s [opt-env-conf-test] - -- Settings that have been parsed
  11188. 878.73 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  11189. 878.73 s [opt-env-conf-test] - -- Settings that have been parsed below
  11190. 878.73 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11191. 878.73 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  11192. 878.73 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  11193. 878.73 s [opt-env-conf-test] - -- with only forgivable errors
  11194. 878.73 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  11195. 878.73 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  11196. 878.73 s [opt-env-conf-test] - if null parsedSettingsMap
  11197. 878.73 s [opt-env-conf-test] - then ppErrors' errs
  11198. 878.73 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11199. 878.73 s [opt-env-conf-test] + ppIndent $ do
  11200. 878.73 s [opt-env-conf-test] + e <- ask
  11201. 878.73 s [opt-env-conf-test] + s <- get
  11202. 878.73 s [opt-env-conf-test] + results <- liftIO $ runPP (go p') s e
  11203. 878.73 s [opt-env-conf-test] + (result, s') <- ppNonDetList results
  11204. 878.73 s [opt-env-conf-test] + put s'
  11205. 878.73 s [opt-env-conf-test] + case result of
  11206. 878.74 s [opt-env-conf-test] + Success a -> pure a
  11207. 878.74 s [opt-env-conf-test] + Failure errs -> do
  11208. 878.74 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  11209. 878.74 s [opt-env-conf-test] + then ppErrors' errs
  11210. 878.74 s [opt-env-conf-test] + else do
  11211. 878.74 s [opt-env-conf-test] + -- Settings available below
  11212. 878.74 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  11213. 878.74 s [opt-env-conf-test] + -- Settings that have been parsed
  11214. 878.74 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  11215. 878.74 s [opt-env-conf-test] + -- Settings that have been parsed below
  11216. 878.74 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11217. 878.74 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  11218. 878.74 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  11219. 878.74 s [opt-env-conf-test] + -- with only forgivable errors
  11220. 878.74 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  11221. 878.74 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  11222. 878.74 s [opt-env-conf-test] + if null parsedSettingsMap
  11223. 878.74 s [opt-env-conf-test] + then ppErrors' errs
  11224. 878.74 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11225. 878.74 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11226. 878.74 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11227. 878.74 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11228. 878.74 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:150:37-112
  11229. 878.74 s [opt-env-conf-test] @@ -147,34 +147,34 @@
  11230. 878.74 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  11231. 878.74 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11232. 878.74 s [opt-env-conf-test] pure (a :| as)
  11233. 878.74 s [opt-env-conf-test] - ParserAllOrNothing mLoc p' -> do
  11234. 878.74 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11235. 878.74 s [opt-env-conf-test] - ppIndent $ do
  11236. 878.74 s [opt-env-conf-test] - e <- ask
  11237. 878.74 s [opt-env-conf-test] - s <- get
  11238. 878.74 s [opt-env-conf-test] - results <- liftIO $ runPP (go p') s e
  11239. 878.74 s [opt-env-conf-test] - (result, s') <- ppNonDetList results
  11240. 878.74 s [opt-env-conf-test] - put s'
  11241. 878.74 s [opt-env-conf-test] - case result of
  11242. 878.74 s [opt-env-conf-test] - Success a -> pure a
  11243. 878.74 s [opt-env-conf-test] - Failure errs -> do
  11244. 878.74 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11245. 878.74 s [opt-env-conf-test] - then ppErrors' errs
  11246. 878.74 s [opt-env-conf-test] - else do
  11247. 878.74 s [opt-env-conf-test] - -- Settings available below
  11248. 878.74 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  11249. 878.74 s [opt-env-conf-test] - -- Settings that have been parsed
  11250. 878.74 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  11251. 878.74 s [opt-env-conf-test] - -- Settings that have been parsed below
  11252. 878.74 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11253. 878.74 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  11254. 878.74 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  11255. 878.74 s [opt-env-conf-test] - -- with only forgivable errors
  11256. 878.74 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  11257. 878.74 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  11258. 878.74 s [opt-env-conf-test] - if null parsedSettingsMap
  11259. 878.74 s [opt-env-conf-test] - then ppErrors' errs
  11260. 880.16 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11261. 880.16 s [opt-env-conf-test] + ParserAllOrNothing mLoc p' -> do
  11262. 880.16 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11263. 880.16 s [opt-env-conf-test] + ppIndent $ do
  11264. 880.16 s [opt-env-conf-test] + e <- ask
  11265. 880.16 s [opt-env-conf-test] + s <- get
  11266. 880.16 s [opt-env-conf-test] + results <- liftIO $ runPP (go p') s e
  11267. 880.16 s [opt-env-conf-test] + (result, s') <- ppNonDetList results
  11268. 880.16 s [opt-env-conf-test] + put s'
  11269. 880.16 s [opt-env-conf-test] + case result of
  11270. 880.16 s [opt-env-conf-test] + Success a -> pure a
  11271. 880.16 s [opt-env-conf-test] + Failure errs -> do
  11272. 880.16 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  11273. 880.16 s [opt-env-conf-test] + then ppErrors' errs
  11274. 880.16 s [opt-env-conf-test] + else do
  11275. 880.16 s [opt-env-conf-test] + -- Settings available below
  11276. 880.16 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  11277. 880.16 s [opt-env-conf-test] + -- Settings that have been parsed
  11278. 880.16 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  11279. 880.16 s [opt-env-conf-test] + -- Settings that have been parsed below
  11280. 880.16 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11281. 880.16 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  11282. 880.16 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  11283. 880.16 s [opt-env-conf-test] + -- with only forgivable errors
  11284. 880.16 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  11285. 880.16 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  11286. 880.16 s [opt-env-conf-test] + if null parsedSettingsMap
  11287. 880.16 s [opt-env-conf-test] + then ppErrors' errs
  11288. 880.16 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11289. 880.16 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11290. 880.16 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11291. 880.16 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11292. 880.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:196:72-82
  11293. 880.16 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11294. 880.16 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11295. 880.16 s [opt-env-conf-test] case errOrB of
  11296. 880.16 s [opt-env-conf-test] Left err -> do
  11297. 880.16 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11298. 880.16 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show True]
  11299. 880.16 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11300. 880.16 s [opt-env-conf-test] Right b -> do
  11301. 880.16 s [opt-env-conf-test] debug ["succeeded"]
  11302. 880.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
  11303. 880.16 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11304. 880.16 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11305. 880.16 s [opt-env-conf-test] case errOrB of
  11306. 880.16 s [opt-env-conf-test] Left err -> do
  11307. 880.16 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11308. 880.16 s [opt-env-conf-test] + debug []
  11309. 880.16 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11310. 880.16 s [opt-env-conf-test] Right b -> do
  11311. 880.16 s [opt-env-conf-test] debug ["succeeded"]
  11312. 880.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
  11313. 880.16 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11314. 880.16 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11315. 880.16 s [opt-env-conf-test] case errOrB of
  11316. 880.17 s [opt-env-conf-test] Left err -> do
  11317. 880.17 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11318. 880.17 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11319. 880.17 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11320. 880.17 s [opt-env-conf-test] Right b -> do
  11321. 880.17 s [opt-env-conf-test] debug ["succeeded"]
  11322. 880.17 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
  11323. 880.17 s [opt-env-conf-test] @@ -213,7 +213,7 @@
  11324. 880.17 s [opt-env-conf-test] case mDefaultCommand of
  11325. 880.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11326. 880.17 s [opt-env-conf-test] Just dc -> do
  11327. 880.17 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11328. 880.17 s [opt-env-conf-test] + debug []
  11329. 880.17 s [opt-env-conf-test] go $ commandParser dc
  11330. 880.17 s [opt-env-conf-test] Just s -> do
  11331. 880.17 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11332. 880.17 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:215:28-40
  11333. 880.17 s [opt-env-conf-test] @@ -212,9 +212,9 @@
  11334. 880.17 s [opt-env-conf-test] find ((== d) . commandArg) cs
  11335. 880.17 s [opt-env-conf-test] case mDefaultCommand of
  11336. 880.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11337. 880.17 s [opt-env-conf-test] - Just dc -> do
  11338. 880.17 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11339. 880.17 s [opt-env-conf-test] - go $ commandParser dc
  11340. 880.17 s [opt-env-conf-test] + Just dc -> do
  11341. 880.17 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11342. 880.17 s [opt-env-conf-test] + go $ commandParser dc
  11343. 880.17 s [opt-env-conf-test] Just s -> do
  11344. 880.17 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11345. 880.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11346. 880.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
  11347. 880.17 s [opt-env-conf-test] @@ -210,11 +210,11 @@
  11348. 880.17 s [opt-env-conf-test] let mDefaultCommand = do
  11349. 880.17 s [opt-env-conf-test] d <- mDefault
  11350. 880.17 s [opt-env-conf-test] find ((== d) . commandArg) cs
  11351. 880.17 s [opt-env-conf-test] - case mDefaultCommand of
  11352. 880.17 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11353. 880.17 s [opt-env-conf-test] - Just dc -> do
  11354. 880.17 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11355. 880.17 s [opt-env-conf-test] - go $ commandParser dc
  11356. 880.17 s [opt-env-conf-test] + case mDefaultCommand of
  11357. 880.17 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11358. 880.17 s [opt-env-conf-test] + Just dc -> do
  11359. 880.17 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11360. 880.17 s [opt-env-conf-test] + go $ commandParser dc
  11361. 880.17 s [opt-env-conf-test] Just s -> do
  11362. 880.17 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11363. 880.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11364. 880.17 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
  11365. 880.17 s [opt-env-conf-test] @@ -219,7 +219,7 @@
  11366. 880.17 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11367. 880.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11368. 880.17 s [opt-env-conf-test] Just c -> do
  11369. 880.17 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11370. 880.17 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  11371. 880.17 s [opt-env-conf-test] go $ commandParser c
  11372. 880.17 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11373. 880.17 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11374. 880.17 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
  11375. 880.17 s [opt-env-conf-test] @@ -219,7 +219,7 @@
  11376. 880.17 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11377. 880.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11378. 880.17 s [opt-env-conf-test] Just c -> do
  11379. 880.17 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11380. 880.17 s [opt-env-conf-test] + debug []
  11381. 880.17 s [opt-env-conf-test] go $ commandParser c
  11382. 880.17 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11383. 880.17 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11384. 880.17 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:221:27-39
  11385. 880.17 s [opt-env-conf-test] @@ -218,9 +218,9 @@
  11386. 880.17 s [opt-env-conf-test] Just s -> do
  11387. 880.17 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11388. 880.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11389. 880.17 s [opt-env-conf-test] - Just c -> do
  11390. 880.17 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11391. 880.17 s [opt-env-conf-test] - go $ commandParser c
  11392. 880.17 s [opt-env-conf-test] + Just c -> do
  11393. 880.17 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  11394. 880.17 s [opt-env-conf-test] + go $ commandParser c
  11395. 880.17 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11396. 880.17 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11397. 880.17 s [opt-env-conf-test] ppIndent $ do
  11398. 880.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
  11399. 880.17 s [opt-env-conf-test] @@ -191,13 +191,13 @@
  11400. 880.17 s [opt-env-conf-test] ppIndent $
  11401. 880.17 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  11402. 880.17 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11403. 880.17 s [opt-env-conf-test] - case errOrB of
  11404. 880.17 s [opt-env-conf-test] - Left err -> do
  11405. 880.17 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11406. 880.17 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11407. 880.17 s [opt-env-conf-test] - Right b -> do
  11408. 880.17 s [opt-env-conf-test] - debug ["succeeded"]
  11409. 880.17 s [opt-env-conf-test] - pure b
  11410. 880.17 s [opt-env-conf-test] + case errOrB of
  11411. 880.17 s [opt-env-conf-test] + Left err -> do
  11412. 880.17 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11413. 880.17 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed forgivable err
  11414. 880.17 s [opt-env-conf-test] + Right b -> do
  11415. 880.17 s [opt-env-conf-test] + debug ["succeeded"]
  11416. 880.17 s [opt-env-conf-test] + pure b
  11417. 880.17 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  11418. 880.17 s [opt-env-conf-test] debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
  11419. 880.17 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  11420. 880.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
  11421. 880.17 s [opt-env-conf-test] @@ -210,11 +210,11 @@
  11422. 880.17 s [opt-env-conf-test] let mDefaultCommand = do
  11423. 880.17 s [opt-env-conf-test] d <- mDefault
  11424. 880.17 s [opt-env-conf-test] find ((== d) . commandArg) cs
  11425. 881.21 s [opt-env-conf-test] - case mDefaultCommand of
  11426. 881.21 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11427. 881.21 s [opt-env-conf-test] - Just dc -> do
  11428. 881.21 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11429. 881.21 s [opt-env-conf-test] - go $ commandParser dc
  11430. 881.21 s [opt-env-conf-test] + case mDefaultCommand of
  11431. 881.21 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11432. 881.21 s [opt-env-conf-test] + Just dc -> do
  11433. 881.21 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11434. 881.21 s [opt-env-conf-test] + go $ commandParser dc
  11435. 881.21 s [opt-env-conf-test] Just s -> do
  11436. 881.21 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11437. 881.21 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11438. 881.21 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
  11439. 881.21 s [opt-env-conf-test] @@ -191,13 +191,13 @@
  11440. 881.21 s [opt-env-conf-test] ppIndent $
  11441. 881.21 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  11442. 881.21 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11443. 881.21 s [opt-env-conf-test] - case errOrB of
  11444. 881.21 s [opt-env-conf-test] - Left err -> do
  11445. 881.21 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11446. 881.22 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11447. 881.22 s [opt-env-conf-test] - Right b -> do
  11448. 881.22 s [opt-env-conf-test] - debug ["succeeded"]
  11449. 881.22 s [opt-env-conf-test] - pure b
  11450. 881.22 s [opt-env-conf-test] + case errOrB of
  11451. 881.22 s [opt-env-conf-test] + Left err -> do
  11452. 881.22 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11453. 881.22 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed forgivable err
  11454. 881.22 s [opt-env-conf-test] + Right b -> do
  11455. 881.22 s [opt-env-conf-test] + debug ["succeeded"]
  11456. 881.22 s [opt-env-conf-test] + pure b
  11457. 881.22 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  11458. 881.22 s [opt-env-conf-test] debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
  11459. 881.22 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  11460. 881.22 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:197:56-66
  11461. 881.22 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  11462. 881.22 s [opt-env-conf-test] case errOrB of
  11463. 881.22 s [opt-env-conf-test] Left err -> do
  11464. 881.22 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11465. 881.22 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11466. 881.22 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed not (forgivable) err
  11467. 881.22 s [opt-env-conf-test] Right b -> do
  11468. 881.22 s [opt-env-conf-test] debug ["succeeded"]
  11469. 881.22 s [opt-env-conf-test] pure b
  11470. 881.22 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:195:29-70
  11471. 881.22 s [opt-env-conf-test] @@ -192,9 +192,9 @@
  11472. 881.22 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  11473. 881.22 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11474. 881.22 s [opt-env-conf-test] case errOrB of
  11475. 881.22 s [opt-env-conf-test] - Left err -> do
  11476. 881.22 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11477. 881.22 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11478. 881.22 s [opt-env-conf-test] + Left err -> do
  11479. 881.22 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11480. 881.22 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed forgivable err
  11481. 881.22 s [opt-env-conf-test] Right b -> do
  11482. 881.22 s [opt-env-conf-test] debug ["succeeded"]
  11483. 881.22 s [opt-env-conf-test] pure b
  11484. 881.22 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
  11485. 881.22 s [opt-env-conf-test] @@ -213,7 +213,7 @@
  11486. 881.22 s [opt-env-conf-test] case mDefaultCommand of
  11487. 881.22 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11488. 881.22 s [opt-env-conf-test] Just dc -> do
  11489. 881.22 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11490. 881.22 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11491. 881.22 s [opt-env-conf-test] go $ commandParser dc
  11492. 881.22 s [opt-env-conf-test] Just s -> do
  11493. 881.22 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11494. 881.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
  11495. 881.22 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  11496. 881.22 s [opt-env-conf-test] case errOrB of
  11497. 881.22 s [opt-env-conf-test] Left err -> do
  11498. 881.22 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11499. 881.22 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11500. 881.22 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed False err
  11501. 881.22 s [opt-env-conf-test] Right b -> do
  11502. 881.22 s [opt-env-conf-test] debug ["succeeded"]
  11503. 881.22 s [opt-env-conf-test] pure b
  11504. 881.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
  11505. 881.22 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  11506. 881.22 s [opt-env-conf-test] case errOrB of
  11507. 881.22 s [opt-env-conf-test] Left err -> do
  11508. 881.22 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11509. 881.22 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11510. 881.22 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed True err
  11511. 881.22 s [opt-env-conf-test] Right b -> do
  11512. 881.22 s [opt-env-conf-test] debug ["succeeded"]
  11513. 881.22 s [opt-env-conf-test] pure b
  11514. 881.22 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:196:72-82
  11515. 881.22 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11516. 881.22 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11517. 881.22 s [opt-env-conf-test] case errOrB of
  11518. 881.22 s [opt-env-conf-test] Left err -> do
  11519. 881.22 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11520. 881.22 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
  11521. 881.22 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11522. 881.22 s [opt-env-conf-test] Right b -> do
  11523. 881.22 s [opt-env-conf-test] debug ["succeeded"]
  11524. 881.22 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:161:15-112
  11525. 881.22 s [opt-env-conf-test] @@ -158,23 +158,23 @@
  11526. 881.22 s [opt-env-conf-test] case result of
  11527. 881.22 s [opt-env-conf-test] Success a -> pure a
  11528. 881.22 s [opt-env-conf-test] Failure errs -> do
  11529. 881.22 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11530. 881.22 s [opt-env-conf-test] - then ppErrors' errs
  11531. 881.22 s [opt-env-conf-test] - else do
  11532. 881.22 s [opt-env-conf-test] - -- Settings available below
  11533. 881.22 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  11534. 881.22 s [opt-env-conf-test] - -- Settings that have been parsed
  11535. 881.22 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  11536. 881.22 s [opt-env-conf-test] - -- Settings that have been parsed below
  11537. 881.22 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11538. 881.22 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  11539. 881.22 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  11540. 881.22 s [opt-env-conf-test] - -- with only forgivable errors
  11541. 881.22 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  11542. 881.22 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  11543. 881.22 s [opt-env-conf-test] - if null parsedSettingsMap
  11544. 881.22 s [opt-env-conf-test] - then ppErrors' errs
  11545. 881.22 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11546. 881.22 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  11547. 881.22 s [opt-env-conf-test] + then ppErrors' errs
  11548. 881.22 s [opt-env-conf-test] + else do
  11549. 881.22 s [opt-env-conf-test] + -- Settings available below
  11550. 881.22 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  11551. 881.22 s [opt-env-conf-test] + -- Settings that have been parsed
  11552. 881.22 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  11553. 881.22 s [opt-env-conf-test] + -- Settings that have been parsed below
  11554. 881.22 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11555. 881.22 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  11556. 881.22 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  11557. 881.22 s [opt-env-conf-test] + -- with only forgivable errors
  11558. 881.22 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  11559. 881.22 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  11560. 881.22 s [opt-env-conf-test] + if null parsedSettingsMap
  11561. 881.22 s [opt-env-conf-test] + then ppErrors' errs
  11562. 881.22 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11563. 881.22 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11564. 881.22 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11565. 881.22 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11566. 881.22 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
  11567. 881.22 s [opt-env-conf-test] @@ -222,7 +222,7 @@
  11568. 881.22 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11569. 881.22 s [opt-env-conf-test] go $ commandParser c
  11570. 881.22 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11571. 881.22 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11572. 881.22 s [opt-env-conf-test] + debug []
  11573. 881.22 s [opt-env-conf-test] ppIndent $ do
  11574. 881.22 s [opt-env-conf-test] debug ["loading config"]
  11575. 881.22 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  11576. 881.22 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
  11577. 881.22 s [opt-env-conf-test] @@ -155,26 +155,26 @@
  11578. 881.22 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  11579. 881.22 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  11580. 881.23 s [opt-env-conf-test] put s'
  11581. 881.23 s [opt-env-conf-test] - case result of
  11582. 881.23 s [opt-env-conf-test] - Success a -> pure a
  11583. 881.23 s [opt-env-conf-test] - Failure errs -> do
  11584. 881.23 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11585. 881.23 s [opt-env-conf-test] - then ppErrors' errs
  11586. 881.23 s [opt-env-conf-test] - else do
  11587. 881.23 s [opt-env-conf-test] - -- Settings available below
  11588. 883.00 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  11589. 883.10 s [opt-env-conf-test] - -- Settings that have been parsed
  11590. 883.10 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  11591. 883.10 s [opt-env-conf-test] - -- Settings that have been parsed below
  11592. 883.10 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11593. 883.10 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  11594. 883.10 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  11595. 883.10 s [opt-env-conf-test] - -- with only forgivable errors
  11596. 883.10 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  11597. 883.10 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  11598. 883.10 s [opt-env-conf-test] - if null parsedSettingsMap
  11599. 883.10 s [opt-env-conf-test] - then ppErrors' errs
  11600. 883.10 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11601. 883.10 s [opt-env-conf-test] + case result of
  11602. 883.10 s [opt-env-conf-test] + Success a -> pure a
  11603. 883.10 s [opt-env-conf-test] + Failure errs -> do
  11604. 883.10 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  11605. 883.10 s [opt-env-conf-test] + then ppErrors' errs
  11606. 883.10 s [opt-env-conf-test] + else do
  11607. 883.10 s [opt-env-conf-test] + -- Settings available below
  11608. 883.10 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  11609. 883.10 s [opt-env-conf-test] + -- Settings that have been parsed
  11610. 883.10 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  11611. 883.10 s [opt-env-conf-test] + -- Settings that have been parsed below
  11612. 883.10 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11613. 883.10 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  11614. 883.10 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  11615. 883.10 s [opt-env-conf-test] + -- with only forgivable errors
  11616. 883.10 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  11617. 883.11 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  11618. 883.11 s [opt-env-conf-test] + if null parsedSettingsMap
  11619. 883.11 s [opt-env-conf-test] + then ppErrors' errs
  11620. 883.11 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11621. 883.11 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11622. 883.11 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11623. 883.11 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11624. 883.11 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
  11625. 883.11 s [opt-env-conf-test] @@ -222,7 +222,7 @@
  11626. 883.11 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11627. 883.11 s [opt-env-conf-test] go $ commandParser c
  11628. 883.11 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11629. 883.11 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11630. 883.11 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11631. 883.11 s [opt-env-conf-test] ppIndent $ do
  11632. 883.11 s [opt-env-conf-test] debug ["loading config"]
  11633. 883.11 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  11634. 883.11 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
  11635. 883.11 s [opt-env-conf-test] @@ -216,11 +216,11 @@
  11636. 883.11 s [opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11637. 883.11 s [opt-env-conf-test] go $ commandParser dc
  11638. 883.11 s [opt-env-conf-test] Just s -> do
  11639. 883.11 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  11640. 883.11 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11641. 883.11 s [opt-env-conf-test] - Just c -> do
  11642. 883.11 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11643. 883.11 s [opt-env-conf-test] - go $ commandParser c
  11644. 883.11 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  11645. 883.11 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11646. 883.11 s [opt-env-conf-test] + Just c -> do
  11647. 883.11 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  11648. 883.11 s [opt-env-conf-test] + go $ commandParser c
  11649. 883.11 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11650. 883.11 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11651. 883.11 s [opt-env-conf-test] ppIndent $ do
  11652. 883.11 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
  11653. 883.11 s [opt-env-conf-test] @@ -270,14 +270,14 @@
  11654. 883.11 s [opt-env-conf-test] debug ["could not set based on argument: no argument"]
  11655. 883.11 s [opt-env-conf-test] pure NotFound
  11656. 883.11 s [opt-env-conf-test] Just argStr -> cap $
  11657. 883.11 s [opt-env-conf-test] - case tryReaders rs argStr of
  11658. 883.11 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  11659. 883.11 s [opt-env-conf-test] - Right a -> do
  11660. 883.11 s [opt-env-conf-test] - debug
  11661. 883.11 s [opt-env-conf-test] - [ "set based on argument: ",
  11662. 883.11 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  11663. 883.11 s [opt-env-conf-test] - ]
  11664. 883.11 s [opt-env-conf-test] - pure $ Found a
  11665. 883.11 s [opt-env-conf-test] + case tryReaders rs argStr of
  11666. 883.11 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  11667. 883.11 s [opt-env-conf-test] + Right a -> do
  11668. 883.11 s [opt-env-conf-test] + debug
  11669. 883.11 s [opt-env-conf-test] + [ "set based on argument: ",
  11670. 883.11 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  11671. 883.11 s [opt-env-conf-test] + ]
  11672. 883.11 s [opt-env-conf-test] + pure $ Found a
  11673. 883.11 s [opt-env-conf-test] else pure NotRun
  11674. 883.11 s [opt-env-conf-test]
  11675. 883.11 s [opt-env-conf-test] case mArg of
  11676. 883.11 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
  11677. 883.11 s [opt-env-conf-test] @@ -584,16 +584,16 @@
  11678. 883.11 s [opt-env-conf-test] debug ["No argument found for choosing a command."]
  11679. 883.11 s [opt-env-conf-test] pure Nothing
  11680. 883.11 s [opt-env-conf-test] Just s -> do
  11681. 883.11 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  11682. 883.11 s [opt-env-conf-test] - Nothing -> do
  11683. 883.11 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  11684. 883.11 s [opt-env-conf-test] - pure Nothing
  11685. 883.11 s [opt-env-conf-test] - Just c -> do
  11686. 883.11 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11687. 883.11 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  11688. 883.11 s [opt-env-conf-test] - pure $ case mRes of
  11689. 883.11 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  11690. 883.11 s [opt-env-conf-test] - Just res -> pure res
  11691. 883.11 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  11692. 883.11 s [opt-env-conf-test] + Nothing -> do
  11693. 883.11 s [opt-env-conf-test] + debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  11694. 883.11 s [opt-env-conf-test] + pure Nothing
  11695. 883.11 s [opt-env-conf-test] + Just c -> do
  11696. 883.11 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  11697. 883.11 s [opt-env-conf-test] + mRes <- go' (commandArg c : path) $ commandParser c
  11698. 883.11 s [opt-env-conf-test] + pure $ case mRes of
  11699. 883.11 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  11700. 883.11 s [opt-env-conf-test] + Just res -> pure res
  11701. 883.11 s [opt-env-conf-test]
  11702. 883.11 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  11703. 883.11 s [opt-env-conf-test] deriving
  11704. 883.11 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
  11705. 883.11 s [opt-env-conf-test] @@ -265,19 +265,19 @@
  11706. 883.11 s [opt-env-conf-test] -- always fails if it's missing a reader.
  11707. 883.11 s [opt-env-conf-test] rs <- requireReaders settingReaders
  11708. 883.11 s [opt-env-conf-test] mS <- ppArg
  11709. 883.11 s [opt-env-conf-test] - case mS of
  11710. 883.11 s [opt-env-conf-test] - Nothing -> do
  11711. 883.11 s [opt-env-conf-test] - debug ["could not set based on argument: no argument"]
  11712. 883.11 s [opt-env-conf-test] - pure NotFound
  11713. 883.11 s [opt-env-conf-test] - Just argStr -> cap $
  11714. 883.11 s [opt-env-conf-test] - case tryReaders rs argStr of
  11715. 883.11 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  11716. 883.11 s [opt-env-conf-test] - Right a -> do
  11717. 883.11 s [opt-env-conf-test] - debug
  11718. 883.11 s [opt-env-conf-test] - [ "set based on argument: ",
  11719. 883.11 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  11720. 883.11 s [opt-env-conf-test] - ]
  11721. 883.11 s [opt-env-conf-test] - pure $ Found a
  11722. 883.11 s [opt-env-conf-test] + case mS of
  11723. 883.11 s [opt-env-conf-test] + Nothing -> do
  11724. 883.11 s [opt-env-conf-test] + debug ["could not set based on argument: no argument"]
  11725. 883.11 s [opt-env-conf-test] + pure NotFound
  11726. 883.11 s [opt-env-conf-test] + Just argStr -> cap $
  11727. 883.11 s [opt-env-conf-test] + case tryReaders rs argStr of
  11728. 883.11 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  11729. 883.11 s [opt-env-conf-test] + Right a -> do
  11730. 883.11 s [opt-env-conf-test] + debug
  11731. 883.11 s [opt-env-conf-test] + [ "set based on argument: ",
  11732. 883.11 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  11733. 883.11 s [opt-env-conf-test] + ]
  11734. 883.11 s [opt-env-conf-test] + pure $ Found a
  11735. 883.11 s [opt-env-conf-test] else pure NotRun
  11736. 883.11 s [opt-env-conf-test]
  11737. 883.11 s [opt-env-conf-test] case mArg of
  11738. 883.11 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:262:13-31
  11739. 883.11 s [opt-env-conf-test] @@ -259,26 +259,26 @@
  11740. 883.11 s [opt-env-conf-test] mLoc
  11741. 883.11 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  11742. 883.11 s [opt-env-conf-test] mArg <-
  11743. 883.11 s [opt-env-conf-test] - if settingTryArgument
  11744. 883.11 s [opt-env-conf-test] - then do
  11745. 883.11 s [opt-env-conf-test] - -- Require readers before finding the argument so the parser
  11746. 883.11 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  11747. 883.11 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  11748. 883.11 s [opt-env-conf-test] - mS <- ppArg
  11749. 883.11 s [opt-env-conf-test] - case mS of
  11750. 884.93 s [opt-env-conf-test] - Nothing -> do
  11751. 884.94 s [opt-env-conf-test] - debug ["could not set based on argument: no argument"]
  11752. 884.94 s [opt-env-conf-test] - pure NotFound
  11753. 884.94 s [opt-env-conf-test] - Just argStr -> cap $
  11754. 884.94 s [opt-env-conf-test] - case tryReaders rs argStr of
  11755. 884.94 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  11756. 884.94 s [opt-env-conf-test] - Right a -> do
  11757. 884.94 s [opt-env-conf-test] - debug
  11758. 884.94 s [opt-env-conf-test] - [ "set based on argument: ",
  11759. 884.94 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  11760. 884.94 s [opt-env-conf-test] - ]
  11761. 884.94 s [opt-env-conf-test] - pure $ Found a
  11762. 884.94 s [opt-env-conf-test] - else pure NotRun
  11763. 884.94 s [opt-env-conf-test] + if settingTryArgument
  11764. 884.94 s [opt-env-conf-test] + then do
  11765. 884.94 s [opt-env-conf-test] + -- Require readers before finding the argument so the parser
  11766. 884.94 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  11767. 884.94 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  11768. 884.94 s [opt-env-conf-test] + mS <- ppArg
  11769. 884.94 s [opt-env-conf-test] + case mS of
  11770. 884.94 s [opt-env-conf-test] + Nothing -> do
  11771. 884.94 s [opt-env-conf-test] + debug ["could not set based on argument: no argument"]
  11772. 884.94 s [opt-env-conf-test] + pure NotFound
  11773. 884.94 s [opt-env-conf-test] + Just argStr -> cap $
  11774. 884.94 s [opt-env-conf-test] + case tryReaders rs argStr of
  11775. 884.94 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  11776. 884.94 s [opt-env-conf-test] + Right a -> do
  11777. 884.94 s [opt-env-conf-test] + debug
  11778. 884.94 s [opt-env-conf-test] + [ "set based on argument: ",
  11779. 884.94 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  11780. 884.94 s [opt-env-conf-test] + ]
  11781. 884.94 s [opt-env-conf-test] + pure $ Found a
  11782. 884.94 s [opt-env-conf-test] + else pure NotRun
  11783. 884.94 s [opt-env-conf-test]
  11784. 884.94 s [opt-env-conf-test] case mArg of
  11785. 884.94 s [opt-env-conf-test] Found a -> do
  11786. 884.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
  11787. 884.94 s [opt-env-conf-test] @@ -285,20 +285,20 @@
  11788. 884.94 s [opt-env-conf-test] markParsed
  11789. 884.94 s [opt-env-conf-test] pure a
  11790. 884.94 s [opt-env-conf-test] _ -> do
  11791. 884.94 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  11792. 884.94 s [opt-env-conf-test] - Nothing -> pure NotRun
  11793. 884.94 s [opt-env-conf-test] - Just a -> do
  11794. 884.94 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  11795. 884.94 s [opt-env-conf-test] - case mS of
  11796. 884.94 s [opt-env-conf-test] - Nothing -> do
  11797. 884.94 s [opt-env-conf-test] - debug
  11798. 884.94 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  11799. 884.94 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  11800. 884.94 s [opt-env-conf-test] - ]
  11801. 884.94 s [opt-env-conf-test] - pure NotFound
  11802. 884.94 s [opt-env-conf-test] - Just () -> cap $ do
  11803. 884.94 s [opt-env-conf-test] - debug ["set based on switch."]
  11804. 884.95 s [opt-env-conf-test] - pure $ Found a
  11805. 884.95 s [opt-env-conf-test] + mSwitch <- case settingSwitchValue of
  11806. 884.95 s [opt-env-conf-test] + Nothing -> pure NotRun
  11807. 884.95 s [opt-env-conf-test] + Just a -> do
  11808. 884.95 s [opt-env-conf-test] + mS <- ppSwitch settingDasheds
  11809. 884.95 s [opt-env-conf-test] + case mS of
  11810. 884.95 s [opt-env-conf-test] + Nothing -> do
  11811. 884.95 s [opt-env-conf-test] + debug
  11812. 884.95 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  11813. 884.95 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  11814. 884.95 s [opt-env-conf-test] + ]
  11815. 884.95 s [opt-env-conf-test] + pure NotFound
  11816. 884.95 s [opt-env-conf-test] + Just () -> cap $ do
  11817. 884.95 s [opt-env-conf-test] + debug ["set based on switch."]
  11818. 884.95 s [opt-env-conf-test] + pure $ Found a
  11819. 884.95 s [opt-env-conf-test]
  11820. 884.95 s [opt-env-conf-test] case mSwitch of
  11821. 884.95 s [opt-env-conf-test] Found a -> do
  11822. 884.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
  11823. 884.95 s [opt-env-conf-test] @@ -306,7 +306,7 @@
  11824. 884.95 s [opt-env-conf-test] pure a
  11825. 884.95 s [opt-env-conf-test] _ -> do
  11826. 884.95 s [opt-env-conf-test] mOpt <-
  11827. 884.95 s [opt-env-conf-test] - if settingTryOption
  11828. 884.95 s [opt-env-conf-test] + if False
  11829. 884.95 s [opt-env-conf-test] then do
  11830. 884.95 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  11831. 884.95 s [opt-env-conf-test] -- always fails if it's missing a reader.
  11832. 884.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
  11833. 884.95 s [opt-env-conf-test] @@ -289,16 +289,16 @@
  11834. 884.95 s [opt-env-conf-test] Nothing -> pure NotRun
  11835. 884.95 s [opt-env-conf-test] Just a -> do
  11836. 884.95 s [opt-env-conf-test] mS <- ppSwitch settingDasheds
  11837. 884.95 s [opt-env-conf-test] - case mS of
  11838. 884.95 s [opt-env-conf-test] - Nothing -> do
  11839. 884.95 s [opt-env-conf-test] - debug
  11840. 884.95 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  11841. 884.95 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  11842. 884.95 s [opt-env-conf-test] - ]
  11843. 884.95 s [opt-env-conf-test] - pure NotFound
  11844. 884.95 s [opt-env-conf-test] - Just () -> cap $ do
  11845. 884.95 s [opt-env-conf-test] - debug ["set based on switch."]
  11846. 884.95 s [opt-env-conf-test] - pure $ Found a
  11847. 884.95 s [opt-env-conf-test] + case mS of
  11848. 884.95 s [opt-env-conf-test] + Nothing -> do
  11849. 884.95 s [opt-env-conf-test] + debug
  11850. 884.95 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  11851. 884.95 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  11852. 884.95 s [opt-env-conf-test] + ]
  11853. 884.95 s [opt-env-conf-test] + pure NotFound
  11854. 884.95 s [opt-env-conf-test] + Just () -> cap $ do
  11855. 884.95 s [opt-env-conf-test] + debug ["set based on switch."]
  11856. 884.95 s [opt-env-conf-test] + pure $ Found a
  11857. 884.95 s [opt-env-conf-test]
  11858. 884.95 s [opt-env-conf-test] case mSwitch of
  11859. 884.95 s [opt-env-conf-test] Found a -> do
  11860. 884.95 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:309:24-40
  11861. 884.95 s [opt-env-conf-test] @@ -306,7 +306,7 @@
  11862. 884.95 s [opt-env-conf-test] pure a
  11863. 884.95 s [opt-env-conf-test] _ -> do
  11864. 884.95 s [opt-env-conf-test] mOpt <-
  11865. 884.95 s [opt-env-conf-test] - if settingTryOption
  11866. 884.95 s [opt-env-conf-test] + if not (settingTryOption)
  11867. 884.95 s [opt-env-conf-test] then do
  11868. 884.95 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  11869. 884.95 s [opt-env-conf-test] -- always fails if it's missing a reader.
  11870. 884.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
  11871. 884.95 s [opt-env-conf-test] @@ -320,14 +320,14 @@
  11872. 884.95 s [opt-env-conf-test] ]
  11873. 884.95 s [opt-env-conf-test] pure NotFound
  11874. 884.95 s [opt-env-conf-test] Just optionStr -> cap $
  11875. 884.95 s [opt-env-conf-test] - case tryReaders rs optionStr of
  11876. 884.95 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11877. 884.95 s [opt-env-conf-test] - Right a -> do
  11878. 884.95 s [opt-env-conf-test] - debug
  11879. 884.95 s [opt-env-conf-test] - [ "set based on option: ",
  11880. 884.95 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  11881. 884.95 s [opt-env-conf-test] - ]
  11882. 884.95 s [opt-env-conf-test] - pure $ Found a
  11883. 884.95 s [opt-env-conf-test] + case tryReaders rs optionStr of
  11884. 884.95 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11885. 884.95 s [opt-env-conf-test] + Right a -> do
  11886. 884.95 s [opt-env-conf-test] + debug
  11887. 884.95 s [opt-env-conf-test] + [ "set based on option: ",
  11888. 884.95 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  11889. 884.95 s [opt-env-conf-test] + ]
  11890. 884.95 s [opt-env-conf-test] + pure $ Found a
  11891. 884.95 s [opt-env-conf-test] else pure NotRun
  11892. 884.95 s [opt-env-conf-test]
  11893. 884.95 s [opt-env-conf-test] case mOpt of
  11894. 884.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
  11895. 884.95 s [opt-env-conf-test] @@ -320,14 +320,14 @@
  11896. 884.95 s [opt-env-conf-test] ]
  11897. 884.95 s [opt-env-conf-test] pure NotFound
  11898. 884.95 s [opt-env-conf-test] Just optionStr -> cap $
  11899. 884.95 s [opt-env-conf-test] - case tryReaders rs optionStr of
  11900. 884.95 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11901. 884.95 s [opt-env-conf-test] - Right a -> do
  11902. 884.95 s [opt-env-conf-test] - debug
  11903. 884.95 s [opt-env-conf-test] - [ "set based on option: ",
  11904. 884.95 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  11905. 884.95 s [opt-env-conf-test] - ]
  11906. 884.95 s [opt-env-conf-test] - pure $ Found a
  11907. 884.95 s [opt-env-conf-test] + case tryReaders rs optionStr of
  11908. 884.95 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11909. 884.95 s [opt-env-conf-test] + Right a -> do
  11910. 884.95 s [opt-env-conf-test] + debug
  11911. 884.95 s [opt-env-conf-test] + [ "set based on option: ",
  11912. 884.95 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  11913. 884.95 s [opt-env-conf-test] + ]
  11914. 884.95 s [opt-env-conf-test] + pure $ Found a
  11915. 884.95 s [opt-env-conf-test] else pure NotRun
  11916. 884.95 s [opt-env-conf-test]
  11917. 884.96 s [opt-env-conf-test] case mOpt of
  11918. 884.96 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:309:21-39
  11919. 884.96 s [opt-env-conf-test] @@ -306,29 +306,29 @@
  11920. 884.96 s [opt-env-conf-test] pure a
  11921. 884.96 s [opt-env-conf-test] _ -> do
  11922. 884.96 s [opt-env-conf-test] mOpt <-
  11923. 884.96 s [opt-env-conf-test] - if settingTryOption
  11924. 884.96 s [opt-env-conf-test] - then do
  11925. 884.96 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  11926. 884.96 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  11927. 884.96 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  11928. 884.96 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  11929. 884.96 s [opt-env-conf-test] - case mS of
  11930. 884.96 s [opt-env-conf-test] - Nothing -> do
  11931. 884.96 s [opt-env-conf-test] - debug
  11932. 884.96 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  11933. 884.96 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  11934. 886.63 s [opt-env-conf-test] - ]
  11935. 886.63 s [opt-env-conf-test] - pure NotFound
  11936. 886.63 s [opt-env-conf-test] - Just optionStr -> cap $
  11937. 886.63 s [opt-env-conf-test] - case tryReaders rs optionStr of
  11938. 886.63 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11939. 886.63 s [opt-env-conf-test] - Right a -> do
  11940. 886.63 s [opt-env-conf-test] - debug
  11941. 886.63 s [opt-env-conf-test] - [ "set based on option: ",
  11942. 886.63 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  11943. 886.63 s [opt-env-conf-test] - ]
  11944. 886.63 s [opt-env-conf-test] - pure $ Found a
  11945. 886.63 s [opt-env-conf-test] - else pure NotRun
  11946. 886.63 s [opt-env-conf-test] + if settingTryOption
  11947. 886.63 s [opt-env-conf-test] + then do
  11948. 886.63 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  11949. 886.63 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  11950. 886.64 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  11951. 886.64 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  11952. 886.64 s [opt-env-conf-test] + case mS of
  11953. 886.64 s [opt-env-conf-test] + Nothing -> do
  11954. 886.64 s [opt-env-conf-test] + debug
  11955. 886.64 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  11956. 886.64 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  11957. 886.64 s [opt-env-conf-test] + ]
  11958. 886.64 s [opt-env-conf-test] + pure NotFound
  11959. 886.64 s [opt-env-conf-test] + Just optionStr -> cap $
  11960. 886.64 s [opt-env-conf-test] + case tryReaders rs optionStr of
  11961. 886.64 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11962. 886.64 s [opt-env-conf-test] + Right a -> do
  11963. 886.64 s [opt-env-conf-test] + debug
  11964. 886.64 s [opt-env-conf-test] + [ "set based on option: ",
  11965. 886.64 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  11966. 886.64 s [opt-env-conf-test] + ]
  11967. 886.64 s [opt-env-conf-test] + pure $ Found a
  11968. 886.64 s [opt-env-conf-test] + else pure NotRun
  11969. 886.64 s [opt-env-conf-test]
  11970. 886.64 s [opt-env-conf-test] case mOpt of
  11971. 886.64 s [opt-env-conf-test] Found a -> do
  11972. 886.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
  11973. 886.64 s [opt-env-conf-test] @@ -312,22 +312,22 @@
  11974. 886.64 s [opt-env-conf-test] -- always fails if it's missing a reader.
  11975. 886.64 s [opt-env-conf-test] rs <- requireReaders settingReaders
  11976. 886.64 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  11977. 886.64 s [opt-env-conf-test] - case mS of
  11978. 886.64 s [opt-env-conf-test] - Nothing -> do
  11979. 886.64 s [opt-env-conf-test] - debug
  11980. 886.64 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  11981. 886.64 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  11982. 886.64 s [opt-env-conf-test] - ]
  11983. 886.64 s [opt-env-conf-test] - pure NotFound
  11984. 886.64 s [opt-env-conf-test] - Just optionStr -> cap $
  11985. 886.64 s [opt-env-conf-test] - case tryReaders rs optionStr of
  11986. 886.64 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11987. 886.64 s [opt-env-conf-test] - Right a -> do
  11988. 886.64 s [opt-env-conf-test] - debug
  11989. 886.64 s [opt-env-conf-test] - [ "set based on option: ",
  11990. 886.64 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  11991. 886.64 s [opt-env-conf-test] - ]
  11992. 886.64 s [opt-env-conf-test] - pure $ Found a
  11993. 886.64 s [opt-env-conf-test] + case mS of
  11994. 886.64 s [opt-env-conf-test] + Nothing -> do
  11995. 886.64 s [opt-env-conf-test] + debug
  11996. 886.64 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  11997. 886.64 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  11998. 886.64 s [opt-env-conf-test] + ]
  11999. 886.64 s [opt-env-conf-test] + pure NotFound
  12000. 886.64 s [opt-env-conf-test] + Just optionStr -> cap $
  12001. 886.64 s [opt-env-conf-test] + case tryReaders rs optionStr of
  12002. 886.64 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  12003. 886.64 s [opt-env-conf-test] + Right a -> do
  12004. 886.64 s [opt-env-conf-test] + debug
  12005. 886.64 s [opt-env-conf-test] + [ "set based on option: ",
  12006. 886.64 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  12007. 886.64 s [opt-env-conf-test] + ]
  12008. 886.64 s [opt-env-conf-test] + pure $ Found a
  12009. 886.64 s [opt-env-conf-test] else pure NotRun
  12010. 886.64 s [opt-env-conf-test]
  12011. 886.64 s [opt-env-conf-test] case mOpt of
  12012. 886.64 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
  12013. 886.64 s [opt-env-conf-test] @@ -306,7 +306,7 @@
  12014. 886.64 s [opt-env-conf-test] pure a
  12015. 886.64 s [opt-env-conf-test] _ -> do
  12016. 886.64 s [opt-env-conf-test] mOpt <-
  12017. 886.64 s [opt-env-conf-test] - if settingTryOption
  12018. 886.64 s [opt-env-conf-test] + if True
  12019. 886.64 s [opt-env-conf-test] then do
  12020. 886.64 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  12021. 886.64 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12022. 886.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
  12023. 886.64 s [opt-env-conf-test] @@ -349,14 +349,14 @@
  12024. 886.64 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  12025. 886.64 s [opt-env-conf-test] -- result.
  12026. 886.64 s [opt-env-conf-test] results <- for founds $ \varStr ->
  12027. 886.64 s [opt-env-conf-test] - case tryReaders rs varStr of
  12028. 886.64 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12029. 886.65 s [opt-env-conf-test] - Right a -> do
  12030. 886.65 s [opt-env-conf-test] - debug
  12031. 886.65 s [opt-env-conf-test] - [ "set based on env: ",
  12032. 886.65 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  12033. 886.65 s [opt-env-conf-test] - ]
  12034. 886.65 s [opt-env-conf-test] - pure a
  12035. 886.65 s [opt-env-conf-test] + case tryReaders rs varStr of
  12036. 886.65 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12037. 886.65 s [opt-env-conf-test] + Right a -> do
  12038. 886.65 s [opt-env-conf-test] + debug
  12039. 886.65 s [opt-env-conf-test] + [ "set based on env: ",
  12040. 886.65 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  12041. 886.65 s [opt-env-conf-test] + ]
  12042. 886.65 s [opt-env-conf-test] + pure a
  12043. 886.65 s [opt-env-conf-test] case listToMaybe results of
  12044. 886.65 s [opt-env-conf-test] Nothing -> do
  12045. 886.65 s [opt-env-conf-test] debug
  12046. 886.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
  12047. 886.65 s [opt-env-conf-test] @@ -265,19 +265,19 @@
  12048. 886.65 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12049. 886.65 s [opt-env-conf-test] rs <- requireReaders settingReaders
  12050. 886.65 s [opt-env-conf-test] mS <- ppArg
  12051. 886.65 s [opt-env-conf-test] - case mS of
  12052. 886.65 s [opt-env-conf-test] - Nothing -> do
  12053. 886.65 s [opt-env-conf-test] - debug ["could not set based on argument: no argument"]
  12054. 886.65 s [opt-env-conf-test] - pure NotFound
  12055. 886.65 s [opt-env-conf-test] - Just argStr -> cap $
  12056. 886.65 s [opt-env-conf-test] - case tryReaders rs argStr of
  12057. 886.65 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12058. 886.65 s [opt-env-conf-test] - Right a -> do
  12059. 886.65 s [opt-env-conf-test] - debug
  12060. 886.65 s [opt-env-conf-test] - [ "set based on argument: ",
  12061. 886.65 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  12062. 886.65 s [opt-env-conf-test] - ]
  12063. 886.65 s [opt-env-conf-test] - pure $ Found a
  12064. 886.65 s [opt-env-conf-test] + case mS of
  12065. 886.65 s [opt-env-conf-test] + Nothing -> do
  12066. 886.65 s [opt-env-conf-test] + debug ["could not set based on argument: no argument"]
  12067. 886.65 s [opt-env-conf-test] + pure NotFound
  12068. 886.65 s [opt-env-conf-test] + Just argStr -> cap $
  12069. 886.65 s [opt-env-conf-test] + case tryReaders rs argStr of
  12070. 886.65 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12071. 886.65 s [opt-env-conf-test] + Right a -> do
  12072. 886.65 s [opt-env-conf-test] + debug
  12073. 886.65 s [opt-env-conf-test] + [ "set based on argument: ",
  12074. 886.65 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  12075. 886.65 s [opt-env-conf-test] + ]
  12076. 886.65 s [opt-env-conf-test] + pure $ Found a
  12077. 886.65 s [opt-env-conf-test] else pure NotRun
  12078. 886.65 s [opt-env-conf-test]
  12079. 886.65 s [opt-env-conf-test] case mArg of
  12080. 886.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
  12081. 886.65 s [opt-env-conf-test] @@ -285,20 +285,20 @@
  12082. 886.65 s [opt-env-conf-test] markParsed
  12083. 886.65 s [opt-env-conf-test] pure a
  12084. 886.65 s [opt-env-conf-test] _ -> do
  12085. 886.65 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  12086. 886.65 s [opt-env-conf-test] - Nothing -> pure NotRun
  12087. 886.65 s [opt-env-conf-test] - Just a -> do
  12088. 886.65 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  12089. 886.65 s [opt-env-conf-test] - case mS of
  12090. 886.65 s [opt-env-conf-test] - Nothing -> do
  12091. 886.65 s [opt-env-conf-test] - debug
  12092. 886.65 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  12093. 886.65 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  12094. 886.65 s [opt-env-conf-test] - ]
  12095. 886.65 s [opt-env-conf-test] - pure NotFound
  12096. 886.65 s [opt-env-conf-test] - Just () -> cap $ do
  12097. 886.65 s [opt-env-conf-test] - debug ["set based on switch."]
  12098. 886.65 s [opt-env-conf-test] - pure $ Found a
  12099. 886.65 s [opt-env-conf-test] + mSwitch <- case settingSwitchValue of
  12100. 886.65 s [opt-env-conf-test] + Nothing -> pure NotRun
  12101. 886.65 s [opt-env-conf-test] + Just a -> do
  12102. 886.65 s [opt-env-conf-test] + mS <- ppSwitch settingDasheds
  12103. 886.65 s [opt-env-conf-test] + case mS of
  12104. 886.65 s [opt-env-conf-test] + Nothing -> do
  12105. 886.65 s [opt-env-conf-test] + debug
  12106. 887.89 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  12107. 887.89 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  12108. 887.89 s [opt-env-conf-test] + ]
  12109. 887.89 s [opt-env-conf-test] + pure NotFound
  12110. 887.89 s [opt-env-conf-test] + Just () -> cap $ do
  12111. 887.89 s [opt-env-conf-test] + debug ["set based on switch."]
  12112. 887.89 s [opt-env-conf-test] + pure $ Found a
  12113. 887.89 s [opt-env-conf-test]
  12114. 887.89 s [opt-env-conf-test] case mSwitch of
  12115. 887.89 s [opt-env-conf-test] Found a -> do
  12116. 887.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
  12117. 887.89 s [opt-env-conf-test] @@ -482,9 +482,9 @@
  12118. 887.89 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  12119. 887.89 s [opt-env-conf-test] tryReaders rs s = left NE.reverse $ go rs
  12120. 887.89 s [opt-env-conf-test] where
  12121. 887.89 s [opt-env-conf-test] - go (r :| rl) = case runReader r s of
  12122. 887.89 s [opt-env-conf-test] - Left err -> go' (err :| []) rl
  12123. 887.89 s [opt-env-conf-test] - Right a -> Right a
  12124. 887.89 s [opt-env-conf-test] + go (r :| rl) = case runReader r s of
  12125. 887.89 s [opt-env-conf-test] + Left err -> go' (err :| []) rl
  12126. 887.89 s [opt-env-conf-test] + Right a -> Right a
  12127. 887.89 s [opt-env-conf-test] go' errs = \case
  12128. 887.89 s [opt-env-conf-test] [] -> Left errs
  12129. 887.89 s [opt-env-conf-test] (r : rl) -> case runReader r s of
  12130. 887.89 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:224:38-20
  12131. 887.89 s [opt-env-conf-test] @@ -221,15 +221,15 @@
  12132. 887.89 s [opt-env-conf-test] Just c -> do
  12133. 887.89 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  12134. 887.89 s [opt-env-conf-test] go $ commandParser c
  12135. 887.89 s [opt-env-conf-test] - ParserWithConfig mLoc pc pa -> do
  12136. 887.89 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  12137. 887.89 s [opt-env-conf-test] - ppIndent $ do
  12138. 887.89 s [opt-env-conf-test] - debug ["loading config"]
  12139. 887.89 s [opt-env-conf-test] - mNewConfig <- ppIndent $ go pc
  12140. 887.89 s [opt-env-conf-test] - debug ["with loaded config"]
  12141. 887.89 s [opt-env-conf-test] - ppIndent $
  12142. 887.89 s [opt-env-conf-test] - local (\e -> e {ppEnvConf = mNewConfig}) $
  12143. 887.90 s [opt-env-conf-test] - go pa
  12144. 887.90 s [opt-env-conf-test] + ParserWithConfig mLoc pc pa -> do
  12145. 887.90 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  12146. 887.90 s [opt-env-conf-test] + ppIndent $ do
  12147. 887.90 s [opt-env-conf-test] + debug ["loading config"]
  12148. 887.90 s [opt-env-conf-test] + mNewConfig <- ppIndent $ go pc
  12149. 887.90 s [opt-env-conf-test] + debug ["with loaded config"]
  12150. 887.90 s [opt-env-conf-test] + ppIndent $
  12151. 887.90 s [opt-env-conf-test] + local (\e -> e {ppEnvConf = mNewConfig}) $
  12152. 887.90 s [opt-env-conf-test] + go pa
  12153. 887.90 s [opt-env-conf-test] ParserSetting mLoc set@Setting {..} -> do
  12154. 887.90 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  12155. 887.90 s [opt-env-conf-test] when (not (Set.null settingRequiredCapabilities)) $
  12156. 887.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
  12157. 887.90 s [opt-env-conf-test] @@ -482,9 +482,9 @@
  12158. 887.90 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  12159. 887.90 s [opt-env-conf-test] tryReaders rs s = left NE.reverse $ go rs
  12160. 887.90 s [opt-env-conf-test] where
  12161. 887.90 s [opt-env-conf-test] - go (r :| rl) = case runReader r s of
  12162. 887.90 s [opt-env-conf-test] - Left err -> go' (err :| []) rl
  12163. 887.90 s [opt-env-conf-test] - Right a -> Right a
  12164. 887.90 s [opt-env-conf-test] + go (r :| rl) = case runReader r s of
  12165. 887.90 s [opt-env-conf-test] + Left err -> go' (err :| []) rl
  12166. 887.90 s [opt-env-conf-test] + Right a -> Right a
  12167. 887.90 s [opt-env-conf-test] go' errs = \case
  12168. 887.90 s [opt-env-conf-test] [] -> Left errs
  12169. 887.90 s [opt-env-conf-test] (r : rl) -> case runReader r s of
  12170. 887.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
  12171. 887.90 s [opt-env-conf-test] @@ -289,16 +289,16 @@
  12172. 887.90 s [opt-env-conf-test] Nothing -> pure NotRun
  12173. 887.90 s [opt-env-conf-test] Just a -> do
  12174. 887.90 s [opt-env-conf-test] mS <- ppSwitch settingDasheds
  12175. 887.90 s [opt-env-conf-test] - case mS of
  12176. 887.90 s [opt-env-conf-test] - Nothing -> do
  12177. 887.90 s [opt-env-conf-test] - debug
  12178. 887.90 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  12179. 887.90 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  12180. 887.90 s [opt-env-conf-test] - ]
  12181. 887.90 s [opt-env-conf-test] - pure NotFound
  12182. 887.90 s [opt-env-conf-test] - Just () -> cap $ do
  12183. 887.90 s [opt-env-conf-test] - debug ["set based on switch."]
  12184. 887.90 s [opt-env-conf-test] - pure $ Found a
  12185. 887.90 s [opt-env-conf-test] + case mS of
  12186. 887.90 s [opt-env-conf-test] + Nothing -> do
  12187. 887.90 s [opt-env-conf-test] + debug
  12188. 887.90 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  12189. 887.90 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  12190. 887.90 s [opt-env-conf-test] + ]
  12191. 887.90 s [opt-env-conf-test] + pure NotFound
  12192. 887.90 s [opt-env-conf-test] + Just () -> cap $ do
  12193. 887.90 s [opt-env-conf-test] + debug ["set based on switch."]
  12194. 887.90 s [opt-env-conf-test] + pure $ Found a
  12195. 887.90 s [opt-env-conf-test]
  12196. 887.90 s [opt-env-conf-test] case mSwitch of
  12197. 887.90 s [opt-env-conf-test] Found a -> do
  12198. 887.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
  12199. 887.90 s [opt-env-conf-test] @@ -487,9 +487,9 @@
  12200. 887.90 s [opt-env-conf-test] Right a -> Right a
  12201. 887.90 s [opt-env-conf-test] go' errs = \case
  12202. 887.90 s [opt-env-conf-test] [] -> Left errs
  12203. 887.90 s [opt-env-conf-test] - (r : rl) -> case runReader r s of
  12204. 887.90 s [opt-env-conf-test] - Left err -> go' (err <| errs) rl
  12205. 887.90 s [opt-env-conf-test] - Right a -> Right a
  12206. 887.90 s [opt-env-conf-test] + (r : rl) -> case runReader r s of
  12207. 887.90 s [opt-env-conf-test] + Left err -> go' (err <| errs) rl
  12208. 887.90 s [opt-env-conf-test] + Right a -> Right a
  12209. 887.90 s [opt-env-conf-test]
  12210. 887.90 s [opt-env-conf-test] runHelpParser ::
  12211. 887.90 s [opt-env-conf-test] -- DebugMode
  12212. 887.90 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
  12213. 887.90 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  12214. 887.90 s [opt-env-conf-test] mLoc
  12215. 887.90 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  12216. 887.90 s [opt-env-conf-test] mArg <-
  12217. 887.90 s [opt-env-conf-test] - if settingTryArgument
  12218. 887.90 s [opt-env-conf-test] + if True
  12219. 887.90 s [opt-env-conf-test] then do
  12220. 887.90 s [opt-env-conf-test] -- Require readers before finding the argument so the parser
  12221. 887.90 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12222. 887.90 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
  12223. 887.90 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  12224. 887.90 s [opt-env-conf-test] mLoc
  12225. 887.90 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  12226. 887.90 s [opt-env-conf-test] mArg <-
  12227. 887.90 s [opt-env-conf-test] - if settingTryArgument
  12228. 887.90 s [opt-env-conf-test] + if False
  12229. 887.90 s [opt-env-conf-test] then do
  12230. 887.90 s [opt-env-conf-test] -- Require readers before finding the argument so the parser
  12231. 887.90 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12232. 887.90 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:262:16-34
  12233. 887.90 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  12234. 887.90 s [opt-env-conf-test] mLoc
  12235. 887.90 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  12236. 887.90 s [opt-env-conf-test] mArg <-
  12237. 887.90 s [opt-env-conf-test] - if settingTryArgument
  12238. 887.90 s [opt-env-conf-test] + if not (settingTryArgument)
  12239. 887.90 s [opt-env-conf-test] then do
  12240. 887.90 s [opt-env-conf-test] -- Require readers before finding the argument so the parser
  12241. 887.90 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12242. 887.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
  12243. 887.91 s [opt-env-conf-test] @@ -222,7 +222,8 @@
  12244. 887.91 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  12245. 887.91 s [opt-env-conf-test] go $ commandParser c
  12246. 887.91 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  12247. 887.91 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  12248. 887.91 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": "
  12249. 887.91 s [opt-env-conf-test] +]
  12250. 887.91 s [opt-env-conf-test] ppIndent $ do
  12251. 887.91 s [opt-env-conf-test] debug ["loading config"]
  12252. 887.91 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  12253. 887.91 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
  12254. 887.91 s [opt-env-conf-test] @@ -270,14 +270,14 @@
  12255. 887.91 s [opt-env-conf-test] debug ["could not set based on argument: no argument"]
  12256. 887.91 s [opt-env-conf-test] pure NotFound
  12257. 887.91 s [opt-env-conf-test] Just argStr -> cap $
  12258. 887.91 s [opt-env-conf-test] - case tryReaders rs argStr of
  12259. 887.91 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12260. 887.91 s [opt-env-conf-test] - Right a -> do
  12261. 887.91 s [opt-env-conf-test] - debug
  12262. 887.91 s [opt-env-conf-test] - [ "set based on argument: ",
  12263. 887.91 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  12264. 887.91 s [opt-env-conf-test] - ]
  12265. 887.91 s [opt-env-conf-test] - pure $ Found a
  12266. 887.91 s [opt-env-conf-test] + case tryReaders rs argStr of
  12267. 887.91 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12268. 887.91 s [opt-env-conf-test] + Right a -> do
  12269. 887.91 s [opt-env-conf-test] + debug
  12270. 887.91 s [opt-env-conf-test] + [ "set based on argument: ",
  12271. 887.91 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  12272. 887.91 s [opt-env-conf-test] + ]
  12273. 887.91 s [opt-env-conf-test] + pure $ Found a
  12274. 887.91 s [opt-env-conf-test] else pure NotRun
  12275. 887.91 s [opt-env-conf-test]
  12276. 887.91 s [opt-env-conf-test] case mArg of
  12277. 887.91 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
  12278. 887.91 s [opt-env-conf-test] @@ -383,16 +383,16 @@
  12279. 887.91 s [opt-env-conf-test] Just obj -> do
  12280. 887.91 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  12281. 887.91 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12282. 887.91 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12283. 887.91 s [opt-env-conf-test] - Nothing -> do
  12284. 887.91 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12285. 887.91 s [opt-env-conf-test] - Nothing -> pure Nothing
  12286. 887.91 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12287. 887.91 s [opt-env-conf-test] - Just neRest -> do
  12288. 887.91 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  12289. 887.91 s [opt-env-conf-test] - case mO' of
  12290. 887.91 s [opt-env-conf-test] - Nothing -> pure Nothing
  12291. 887.91 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12292. 887.91 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12293. 887.91 s [opt-env-conf-test] + Nothing -> do
  12294. 887.91 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  12295. 889.52 s [opt-env-conf-test] + Nothing -> pure Nothing
  12296. 889.62 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  12297. 889.62 s [opt-env-conf-test] + Just neRest -> do
  12298. 889.62 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  12299. 889.62 s [opt-env-conf-test] + case mO' of
  12300. 889.62 s [opt-env-conf-test] + Nothing -> pure Nothing
  12301. 889.62 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  12302. 889.62 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12303. 889.62 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12304. 889.62 s [opt-env-conf-test] Right mV -> case mV of
  12305. 889.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
  12306. 889.62 s [opt-env-conf-test] @@ -385,9 +385,9 @@
  12307. 889.62 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12308. 889.62 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12309. 889.62 s [opt-env-conf-test] Nothing -> do
  12310. 889.62 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12311. 889.62 s [opt-env-conf-test] - Nothing -> pure Nothing
  12312. 889.62 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12313. 889.62 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  12314. 889.62 s [opt-env-conf-test] + Nothing -> pure Nothing
  12315. 889.62 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  12316. 889.62 s [opt-env-conf-test] Just neRest -> do
  12317. 889.62 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12318. 889.62 s [opt-env-conf-test] case mO' of
  12319. 889.62 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:175:22-44
  12320. 889.62 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  12321. 889.62 s [opt-env-conf-test] -- with only forgivable errors
  12322. 889.62 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  12323. 889.62 s [opt-env-conf-test] -- then this should be an unforgivable error.
  12324. 889.62 s [opt-env-conf-test] - if null parsedSettingsMap
  12325. 889.62 s [opt-env-conf-test] + if not (null parsedSettingsMap)
  12326. 889.62 s [opt-env-conf-test] then ppErrors' errs
  12327. 889.62 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  12328. 889.62 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  12329. 889.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
  12330. 889.62 s [opt-env-conf-test] @@ -336,35 +336,35 @@
  12331. 889.62 s [opt-env-conf-test] pure a
  12332. 889.62 s [opt-env-conf-test] _ -> do
  12333. 889.62 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  12334. 889.62 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  12335. 889.63 s [opt-env-conf-test] - Nothing -> pure NotRun
  12336. 889.63 s [opt-env-conf-test] - Just ne -> do
  12337. 889.63 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  12338. 889.63 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  12339. 889.63 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  12340. 889.63 s [opt-env-conf-test] - es <- asks ppEnvEnv
  12341. 889.63 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  12342. 889.63 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  12343. 889.63 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  12344. 889.63 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  12345. 889.63 s [opt-env-conf-test] - -- result.
  12346. 889.63 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  12347. 889.63 s [opt-env-conf-test] - case tryReaders rs varStr of
  12348. 889.63 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12349. 889.63 s [opt-env-conf-test] - Right a -> do
  12350. 889.63 s [opt-env-conf-test] - debug
  12351. 889.63 s [opt-env-conf-test] - [ "set based on env: ",
  12352. 889.63 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  12353. 889.63 s [opt-env-conf-test] - ]
  12354. 889.63 s [opt-env-conf-test] - pure a
  12355. 889.63 s [opt-env-conf-test] - case listToMaybe results of
  12356. 889.63 s [opt-env-conf-test] - Nothing -> do
  12357. 889.63 s [opt-env-conf-test] - debug
  12358. 889.63 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  12359. 889.63 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12360. 889.63 s [opt-env-conf-test] - ]
  12361. 889.63 s [opt-env-conf-test] - pure NotFound
  12362. 889.63 s [opt-env-conf-test] - Just a -> pure $ Found a
  12363. 889.63 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  12364. 889.63 s [opt-env-conf-test] + Nothing -> pure NotRun
  12365. 889.63 s [opt-env-conf-test] + Just ne -> do
  12366. 889.63 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  12367. 889.63 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  12368. 889.63 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  12369. 889.63 s [opt-env-conf-test] + es <- asks ppEnvEnv
  12370. 889.63 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  12371. 889.63 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  12372. 889.63 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  12373. 889.63 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  12374. 889.63 s [opt-env-conf-test] + -- result.
  12375. 889.63 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  12376. 889.63 s [opt-env-conf-test] + case tryReaders rs varStr of
  12377. 889.63 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12378. 889.63 s [opt-env-conf-test] + Right a -> do
  12379. 889.63 s [opt-env-conf-test] + debug
  12380. 889.63 s [opt-env-conf-test] + [ "set based on env: ",
  12381. 889.63 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  12382. 889.63 s [opt-env-conf-test] + ]
  12383. 889.63 s [opt-env-conf-test] + pure a
  12384. 889.63 s [opt-env-conf-test] + case listToMaybe results of
  12385. 889.63 s [opt-env-conf-test] + Nothing -> do
  12386. 889.63 s [opt-env-conf-test] + debug
  12387. 889.63 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  12388. 889.63 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12389. 889.63 s [opt-env-conf-test] + ]
  12390. 889.63 s [opt-env-conf-test] + pure NotFound
  12391. 889.63 s [opt-env-conf-test] + Just a -> pure $ Found a
  12392. 889.63 s [opt-env-conf-test]
  12393. 889.63 s [opt-env-conf-test] case mEnv of
  12394. 889.63 s [opt-env-conf-test] Found a -> do
  12395. 889.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
  12396. 889.63 s [opt-env-conf-test] @@ -357,14 +357,14 @@
  12397. 889.63 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  12398. 889.63 s [opt-env-conf-test] ]
  12399. 889.63 s [opt-env-conf-test] pure a
  12400. 889.63 s [opt-env-conf-test] - case listToMaybe results of
  12401. 889.63 s [opt-env-conf-test] - Nothing -> do
  12402. 889.63 s [opt-env-conf-test] - debug
  12403. 889.63 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  12404. 889.63 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12405. 889.63 s [opt-env-conf-test] - ]
  12406. 889.63 s [opt-env-conf-test] - pure NotFound
  12407. 889.63 s [opt-env-conf-test] - Just a -> pure $ Found a
  12408. 889.63 s [opt-env-conf-test] + case listToMaybe results of
  12409. 889.63 s [opt-env-conf-test] + Nothing -> do
  12410. 889.63 s [opt-env-conf-test] + debug
  12411. 889.63 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  12412. 889.64 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12413. 889.64 s [opt-env-conf-test] + ]
  12414. 889.64 s [opt-env-conf-test] + pure NotFound
  12415. 889.64 s [opt-env-conf-test] + Just a -> pure $ Found a
  12416. 889.64 s [opt-env-conf-test]
  12417. 889.64 s [opt-env-conf-test] case mEnv of
  12418. 889.64 s [opt-env-conf-test] Found a -> do
  12419. 889.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
  12420. 889.64 s [opt-env-conf-test] @@ -357,14 +357,14 @@
  12421. 889.64 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  12422. 889.64 s [opt-env-conf-test] ]
  12423. 889.64 s [opt-env-conf-test] pure a
  12424. 889.64 s [opt-env-conf-test] - case listToMaybe results of
  12425. 889.64 s [opt-env-conf-test] - Nothing -> do
  12426. 889.64 s [opt-env-conf-test] - debug
  12427. 889.64 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  12428. 889.64 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12429. 889.64 s [opt-env-conf-test] - ]
  12430. 889.64 s [opt-env-conf-test] - pure NotFound
  12431. 889.64 s [opt-env-conf-test] - Just a -> pure $ Found a
  12432. 889.64 s [opt-env-conf-test] + case listToMaybe results of
  12433. 889.64 s [opt-env-conf-test] + Nothing -> do
  12434. 889.64 s [opt-env-conf-test] + debug
  12435. 890.37 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  12436. 890.37 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12437. 890.37 s [opt-env-conf-test] + ]
  12438. 890.37 s [opt-env-conf-test] + pure NotFound
  12439. 890.37 s [opt-env-conf-test] + Just a -> pure $ Found a
  12440. 890.37 s [opt-env-conf-test]
  12441. 890.37 s [opt-env-conf-test] case mEnv of
  12442. 890.37 s [opt-env-conf-test] Found a -> do
  12443. 890.37 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  12444. 890.37 s [opt-env-conf-test] @@ -402,21 +402,21 @@
  12445. 890.37 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12446. 890.37 s [opt-env-conf-test] ]
  12447. 890.37 s [opt-env-conf-test] pure Nothing
  12448. 890.37 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12449. 890.37 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12450. 890.37 s [opt-env-conf-test] - Right mA -> case mA of
  12451. 890.37 s [opt-env-conf-test] - Nothing -> do
  12452. 890.37 s [opt-env-conf-test] - debug
  12453. 890.37 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12454. 890.37 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12455. 890.37 s [opt-env-conf-test] - ]
  12456. 890.37 s [opt-env-conf-test] - pure Nothing
  12457. 890.37 s [opt-env-conf-test] - Just a -> do
  12458. 890.37 s [opt-env-conf-test] - debug
  12459. 890.37 s [opt-env-conf-test] - [ "set based on config value: ",
  12460. 890.37 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12461. 890.37 s [opt-env-conf-test] - ]
  12462. 890.37 s [opt-env-conf-test] - pure $ Just a
  12463. 890.37 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12464. 890.38 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12465. 890.38 s [opt-env-conf-test] + Right mA -> case mA of
  12466. 890.38 s [opt-env-conf-test] + Nothing -> do
  12467. 890.38 s [opt-env-conf-test] + debug
  12468. 890.38 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12469. 890.38 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12470. 890.38 s [opt-env-conf-test] + ]
  12471. 890.38 s [opt-env-conf-test] + pure Nothing
  12472. 890.38 s [opt-env-conf-test] + Just a -> do
  12473. 890.38 s [opt-env-conf-test] + debug
  12474. 890.38 s [opt-env-conf-test] + [ "set based on config value: ",
  12475. 890.38 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12476. 890.38 s [opt-env-conf-test] + ]
  12477. 890.38 s [opt-env-conf-test] + pure $ Just a
  12478. 890.38 s [opt-env-conf-test] let toRes = \case
  12479. 890.38 s [opt-env-conf-test] Nothing -> NotFound
  12480. 890.38 s [opt-env-conf-test] Just a -> Found a
  12481. 890.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
  12482. 890.38 s [opt-env-conf-test] @@ -385,9 +385,9 @@
  12483. 890.38 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12484. 890.38 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12485. 890.38 s [opt-env-conf-test] Nothing -> do
  12486. 890.38 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12487. 890.38 s [opt-env-conf-test] - Nothing -> pure Nothing
  12488. 890.38 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12489. 890.38 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  12490. 890.38 s [opt-env-conf-test] + Nothing -> pure Nothing
  12491. 890.38 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  12492. 890.38 s [opt-env-conf-test] Just neRest -> do
  12493. 890.38 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12494. 890.38 s [opt-env-conf-test] case mO' of
  12495. 890.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
  12496. 890.38 s [opt-env-conf-test] @@ -349,14 +349,14 @@
  12497. 890.38 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  12498. 890.38 s [opt-env-conf-test] -- result.
  12499. 890.38 s [opt-env-conf-test] results <- for founds $ \varStr ->
  12500. 890.38 s [opt-env-conf-test] - case tryReaders rs varStr of
  12501. 890.38 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12502. 890.38 s [opt-env-conf-test] - Right a -> do
  12503. 890.38 s [opt-env-conf-test] - debug
  12504. 890.38 s [opt-env-conf-test] - [ "set based on env: ",
  12505. 890.38 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  12506. 890.38 s [opt-env-conf-test] - ]
  12507. 890.38 s [opt-env-conf-test] - pure a
  12508. 890.38 s [opt-env-conf-test] + case tryReaders rs varStr of
  12509. 890.38 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12510. 890.38 s [opt-env-conf-test] + Right a -> do
  12511. 890.38 s [opt-env-conf-test] + debug
  12512. 890.38 s [opt-env-conf-test] + [ "set based on env: ",
  12513. 890.38 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  12514. 890.38 s [opt-env-conf-test] + ]
  12515. 890.38 s [opt-env-conf-test] + pure a
  12516. 890.38 s [opt-env-conf-test] case listToMaybe results of
  12517. 890.38 s [opt-env-conf-test] Nothing -> do
  12518. 890.38 s [opt-env-conf-test] debug
  12519. 890.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  12520. 890.38 s [opt-env-conf-test] @@ -402,21 +402,21 @@
  12521. 890.38 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12522. 890.38 s [opt-env-conf-test] ]
  12523. 890.38 s [opt-env-conf-test] pure Nothing
  12524. 890.38 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12525. 890.38 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12526. 890.38 s [opt-env-conf-test] - Right mA -> case mA of
  12527. 890.38 s [opt-env-conf-test] - Nothing -> do
  12528. 890.38 s [opt-env-conf-test] - debug
  12529. 890.38 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12530. 890.38 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12531. 890.38 s [opt-env-conf-test] - ]
  12532. 890.38 s [opt-env-conf-test] - pure Nothing
  12533. 890.38 s [opt-env-conf-test] - Just a -> do
  12534. 890.38 s [opt-env-conf-test] - debug
  12535. 890.38 s [opt-env-conf-test] - [ "set based on config value: ",
  12536. 890.38 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12537. 890.38 s [opt-env-conf-test] - ]
  12538. 890.38 s [opt-env-conf-test] - pure $ Just a
  12539. 890.38 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12540. 890.38 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12541. 890.38 s [opt-env-conf-test] + Right mA -> case mA of
  12542. 890.38 s [opt-env-conf-test] + Nothing -> do
  12543. 890.38 s [opt-env-conf-test] + debug
  12544. 890.38 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12545. 890.39 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12546. 890.39 s [opt-env-conf-test] + ]
  12547. 890.39 s [opt-env-conf-test] + pure Nothing
  12548. 890.39 s [opt-env-conf-test] + Just a -> do
  12549. 890.39 s [opt-env-conf-test] + debug
  12550. 890.39 s [opt-env-conf-test] + [ "set based on config value: ",
  12551. 890.39 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12552. 890.39 s [opt-env-conf-test] + ]
  12553. 890.39 s [opt-env-conf-test] + pure $ Just a
  12554. 890.39 s [opt-env-conf-test] let toRes = \case
  12555. 891.25 s [opt-env-conf-test] Nothing -> NotFound
  12556. 891.25 s [opt-env-conf-test] Just a -> Found a
  12557. 891.25 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  12558. 891.25 s [opt-env-conf-test] @@ -393,30 +393,30 @@
  12559. 891.25 s [opt-env-conf-test] case mO' of
  12560. 891.25 s [opt-env-conf-test] Nothing -> pure Nothing
  12561. 891.25 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12562. 891.25 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  12563. 891.25 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12564. 891.25 s [opt-env-conf-test] - Right mV -> case mV of
  12565. 891.25 s [opt-env-conf-test] - Nothing -> do
  12566. 891.25 s [opt-env-conf-test] - debug
  12567. 891.25 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  12568. 891.25 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12569. 891.25 s [opt-env-conf-test] - ]
  12570. 891.25 s [opt-env-conf-test] - pure Nothing
  12571. 891.25 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12572. 891.25 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12573. 891.25 s [opt-env-conf-test] - Right mA -> case mA of
  12574. 891.25 s [opt-env-conf-test] - Nothing -> do
  12575. 891.25 s [opt-env-conf-test] - debug
  12576. 891.25 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12577. 891.25 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12578. 891.25 s [opt-env-conf-test] - ]
  12579. 891.25 s [opt-env-conf-test] - pure Nothing
  12580. 891.25 s [opt-env-conf-test] - Just a -> do
  12581. 891.25 s [opt-env-conf-test] - debug
  12582. 891.25 s [opt-env-conf-test] - [ "set based on config value: ",
  12583. 891.25 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12584. 891.25 s [opt-env-conf-test] - ]
  12585. 891.25 s [opt-env-conf-test] - pure $ Just a
  12586. 891.25 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  12587. 891.25 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12588. 891.25 s [opt-env-conf-test] + Right mV -> case mV of
  12589. 891.25 s [opt-env-conf-test] + Nothing -> do
  12590. 891.25 s [opt-env-conf-test] + debug
  12591. 891.25 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  12592. 891.25 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12593. 891.25 s [opt-env-conf-test] + ]
  12594. 891.26 s [opt-env-conf-test] + pure Nothing
  12595. 891.26 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12596. 891.26 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12597. 891.26 s [opt-env-conf-test] + Right mA -> case mA of
  12598. 891.26 s [opt-env-conf-test] + Nothing -> do
  12599. 891.26 s [opt-env-conf-test] + debug
  12600. 891.26 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12601. 891.26 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12602. 891.26 s [opt-env-conf-test] + ]
  12603. 891.26 s [opt-env-conf-test] + pure Nothing
  12604. 891.26 s [opt-env-conf-test] + Just a -> do
  12605. 891.26 s [opt-env-conf-test] + debug
  12606. 891.26 s [opt-env-conf-test] + [ "set based on config value: ",
  12607. 891.26 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12608. 891.26 s [opt-env-conf-test] + ]
  12609. 891.26 s [opt-env-conf-test] + pure $ Just a
  12610. 891.26 s [opt-env-conf-test] let toRes = \case
  12611. 891.26 s [opt-env-conf-test] Nothing -> NotFound
  12612. 891.26 s [opt-env-conf-test] Just a -> Found a
  12613. 891.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
  12614. 891.26 s [opt-env-conf-test] @@ -312,22 +312,22 @@
  12615. 891.26 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12616. 891.26 s [opt-env-conf-test] rs <- requireReaders settingReaders
  12617. 891.26 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  12618. 891.26 s [opt-env-conf-test] - case mS of
  12619. 891.26 s [opt-env-conf-test] - Nothing -> do
  12620. 891.26 s [opt-env-conf-test] - debug
  12621. 891.26 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  12622. 891.26 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  12623. 891.26 s [opt-env-conf-test] - ]
  12624. 891.26 s [opt-env-conf-test] - pure NotFound
  12625. 891.26 s [opt-env-conf-test] - Just optionStr -> cap $
  12626. 891.26 s [opt-env-conf-test] - case tryReaders rs optionStr of
  12627. 891.26 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  12628. 891.26 s [opt-env-conf-test] - Right a -> do
  12629. 891.26 s [opt-env-conf-test] - debug
  12630. 891.26 s [opt-env-conf-test] - [ "set based on option: ",
  12631. 891.26 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  12632. 891.26 s [opt-env-conf-test] - ]
  12633. 891.26 s [opt-env-conf-test] - pure $ Found a
  12634. 891.26 s [opt-env-conf-test] + case mS of
  12635. 891.26 s [opt-env-conf-test] + Nothing -> do
  12636. 891.26 s [opt-env-conf-test] + debug
  12637. 891.26 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  12638. 891.26 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  12639. 891.26 s [opt-env-conf-test] + ]
  12640. 891.26 s [opt-env-conf-test] + pure NotFound
  12641. 891.26 s [opt-env-conf-test] + Just optionStr -> cap $
  12642. 891.26 s [opt-env-conf-test] + case tryReaders rs optionStr of
  12643. 891.26 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  12644. 891.26 s [opt-env-conf-test] + Right a -> do
  12645. 891.26 s [opt-env-conf-test] + debug
  12646. 891.26 s [opt-env-conf-test] + [ "set based on option: ",
  12647. 891.26 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  12648. 891.26 s [opt-env-conf-test] + ]
  12649. 891.26 s [opt-env-conf-test] + pure $ Found a
  12650. 891.26 s [opt-env-conf-test] else pure NotRun
  12651. 891.26 s [opt-env-conf-test]
  12652. 891.26 s [opt-env-conf-test] case mOpt of
  12653. 891.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
  12654. 891.26 s [opt-env-conf-test] @@ -395,28 +395,28 @@
  12655. 891.26 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12656. 891.26 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12657. 891.26 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12658. 891.26 s [opt-env-conf-test] - Right mV -> case mV of
  12659. 891.26 s [opt-env-conf-test] - Nothing -> do
  12660. 891.26 s [opt-env-conf-test] - debug
  12661. 891.26 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  12662. 891.26 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12663. 891.26 s [opt-env-conf-test] - ]
  12664. 891.26 s [opt-env-conf-test] - pure Nothing
  12665. 891.26 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12666. 891.26 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12667. 891.26 s [opt-env-conf-test] - Right mA -> case mA of
  12668. 891.26 s [opt-env-conf-test] - Nothing -> do
  12669. 891.26 s [opt-env-conf-test] - debug
  12670. 891.26 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12671. 891.26 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12672. 891.26 s [opt-env-conf-test] - ]
  12673. 891.26 s [opt-env-conf-test] - pure Nothing
  12674. 891.26 s [opt-env-conf-test] - Just a -> do
  12675. 891.26 s [opt-env-conf-test] - debug
  12676. 891.95 s [opt-env-conf-test] - [ "set based on config value: ",
  12677. 891.95 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12678. 891.95 s [opt-env-conf-test] - ]
  12679. 891.95 s [opt-env-conf-test] - pure $ Just a
  12680. 891.95 s [opt-env-conf-test] + Right mV -> case mV of
  12681. 891.95 s [opt-env-conf-test] + Nothing -> do
  12682. 891.95 s [opt-env-conf-test] + debug
  12683. 891.95 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  12684. 891.95 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12685. 891.95 s [opt-env-conf-test] + ]
  12686. 891.95 s [opt-env-conf-test] + pure Nothing
  12687. 891.95 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12688. 891.95 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12689. 891.95 s [opt-env-conf-test] + Right mA -> case mA of
  12690. 891.95 s [opt-env-conf-test] + Nothing -> do
  12691. 891.95 s [opt-env-conf-test] + debug
  12692. 891.95 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12693. 891.95 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12694. 891.95 s [opt-env-conf-test] + ]
  12695. 891.95 s [opt-env-conf-test] + pure Nothing
  12696. 891.95 s [opt-env-conf-test] + Just a -> do
  12697. 891.95 s [opt-env-conf-test] + debug
  12698. 891.95 s [opt-env-conf-test] + [ "set based on config value: ",
  12699. 891.95 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12700. 891.95 s [opt-env-conf-test] + ]
  12701. 891.95 s [opt-env-conf-test] + pure $ Just a
  12702. 891.95 s [opt-env-conf-test] let toRes = \case
  12703. 891.95 s [opt-env-conf-test] Nothing -> NotFound
  12704. 891.95 s [opt-env-conf-test] Just a -> Found a
  12705. 891.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
  12706. 891.95 s [opt-env-conf-test] @@ -395,28 +395,28 @@
  12707. 891.95 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12708. 891.95 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12709. 891.95 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12710. 891.95 s [opt-env-conf-test] - Right mV -> case mV of
  12711. 891.95 s [opt-env-conf-test] - Nothing -> do
  12712. 891.95 s [opt-env-conf-test] - debug
  12713. 891.95 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  12714. 891.95 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12715. 891.95 s [opt-env-conf-test] - ]
  12716. 891.95 s [opt-env-conf-test] - pure Nothing
  12717. 891.95 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12718. 891.95 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12719. 891.95 s [opt-env-conf-test] - Right mA -> case mA of
  12720. 891.95 s [opt-env-conf-test] - Nothing -> do
  12721. 891.95 s [opt-env-conf-test] - debug
  12722. 891.95 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12723. 891.95 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12724. 891.95 s [opt-env-conf-test] - ]
  12725. 891.95 s [opt-env-conf-test] - pure Nothing
  12726. 891.95 s [opt-env-conf-test] - Just a -> do
  12727. 891.95 s [opt-env-conf-test] - debug
  12728. 891.95 s [opt-env-conf-test] - [ "set based on config value: ",
  12729. 891.95 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12730. 891.95 s [opt-env-conf-test] - ]
  12731. 891.95 s [opt-env-conf-test] - pure $ Just a
  12732. 891.95 s [opt-env-conf-test] + Right mV -> case mV of
  12733. 891.95 s [opt-env-conf-test] + Nothing -> do
  12734. 891.95 s [opt-env-conf-test] + debug
  12735. 891.95 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  12736. 891.95 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12737. 891.95 s [opt-env-conf-test] + ]
  12738. 891.95 s [opt-env-conf-test] + pure Nothing
  12739. 891.95 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12740. 891.95 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12741. 891.95 s [opt-env-conf-test] + Right mA -> case mA of
  12742. 891.95 s [opt-env-conf-test] + Nothing -> do
  12743. 891.95 s [opt-env-conf-test] + debug
  12744. 891.95 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12745. 891.95 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12746. 891.95 s [opt-env-conf-test] + ]
  12747. 891.95 s [opt-env-conf-test] + pure Nothing
  12748. 891.95 s [opt-env-conf-test] + Just a -> do
  12749. 891.95 s [opt-env-conf-test] + debug
  12750. 891.95 s [opt-env-conf-test] + [ "set based on config value: ",
  12751. 891.95 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12752. 891.95 s [opt-env-conf-test] + ]
  12753. 891.95 s [opt-env-conf-test] + pure $ Just a
  12754. 891.95 s [opt-env-conf-test] let toRes = \case
  12755. 891.96 s [opt-env-conf-test] Nothing -> NotFound
  12756. 891.96 s [opt-env-conf-test] Just a -> Found a
  12757. 891.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  12758. 891.96 s [opt-env-conf-test] @@ -390,9 +390,9 @@
  12759. 891.96 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  12760. 891.96 s [opt-env-conf-test] Just neRest -> do
  12761. 891.96 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12762. 891.96 s [opt-env-conf-test] - case mO' of
  12763. 891.96 s [opt-env-conf-test] - Nothing -> pure Nothing
  12764. 891.96 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12765. 891.96 s [opt-env-conf-test] + case mO' of
  12766. 891.96 s [opt-env-conf-test] + Nothing -> pure Nothing
  12767. 891.96 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  12768. 891.96 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12769. 891.96 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12770. 891.96 s [opt-env-conf-test] Right mV -> case mV of
  12771. 891.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
  12772. 891.96 s [opt-env-conf-test] @@ -404,19 +404,19 @@
  12773. 891.96 s [opt-env-conf-test] pure Nothing
  12774. 891.96 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12775. 891.96 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12776. 891.96 s [opt-env-conf-test] - Right mA -> case mA of
  12777. 891.96 s [opt-env-conf-test] - Nothing -> do
  12778. 891.96 s [opt-env-conf-test] - debug
  12779. 891.96 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12780. 891.96 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12781. 891.96 s [opt-env-conf-test] - ]
  12782. 891.96 s [opt-env-conf-test] - pure Nothing
  12783. 891.96 s [opt-env-conf-test] - Just a -> do
  12784. 891.96 s [opt-env-conf-test] - debug
  12785. 891.96 s [opt-env-conf-test] - [ "set based on config value: ",
  12786. 893.09 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12787. 893.09 s [opt-env-conf-test] - ]
  12788. 893.09 s [opt-env-conf-test] - pure $ Just a
  12789. 893.10 s [opt-env-conf-test] + Right mA -> case mA of
  12790. 893.10 s [opt-env-conf-test] + Nothing -> do
  12791. 893.10 s [opt-env-conf-test] + debug
  12792. 893.10 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12793. 893.10 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12794. 893.10 s [opt-env-conf-test] + ]
  12795. 893.10 s [opt-env-conf-test] + pure Nothing
  12796. 893.10 s [opt-env-conf-test] + Just a -> do
  12797. 893.10 s [opt-env-conf-test] + debug
  12798. 893.10 s [opt-env-conf-test] + [ "set based on config value: ",
  12799. 893.10 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12800. 893.10 s [opt-env-conf-test] + ]
  12801. 893.10 s [opt-env-conf-test] + pure $ Just a
  12802. 893.10 s [opt-env-conf-test] let toRes = \case
  12803. 893.10 s [opt-env-conf-test] Nothing -> NotFound
  12804. 893.10 s [opt-env-conf-test] Just a -> Found a
  12805. 893.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  12806. 893.10 s [opt-env-conf-test] @@ -390,9 +390,9 @@
  12807. 893.10 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  12808. 893.10 s [opt-env-conf-test] Just neRest -> do
  12809. 893.10 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12810. 893.10 s [opt-env-conf-test] - case mO' of
  12811. 893.10 s [opt-env-conf-test] - Nothing -> pure Nothing
  12812. 893.10 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12813. 893.10 s [opt-env-conf-test] + case mO' of
  12814. 893.10 s [opt-env-conf-test] + Nothing -> pure Nothing
  12815. 893.10 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  12816. 893.10 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12817. 893.10 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12818. 893.10 s [opt-env-conf-test] Right mV -> case mV of
  12819. 893.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
  12820. 893.10 s [opt-env-conf-test] @@ -216,11 +216,11 @@
  12821. 893.10 s [opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
  12822. 893.10 s [opt-env-conf-test] go $ commandParser dc
  12823. 893.10 s [opt-env-conf-test] Just s -> do
  12824. 893.10 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  12825. 893.10 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  12826. 893.10 s [opt-env-conf-test] - Just c -> do
  12827. 893.10 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  12828. 893.10 s [opt-env-conf-test] - go $ commandParser c
  12829. 893.10 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  12830. 893.10 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  12831. 893.10 s [opt-env-conf-test] + Just c -> do
  12832. 893.10 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  12833. 893.10 s [opt-env-conf-test] + go $ commandParser c
  12834. 893.10 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  12835. 893.10 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  12836. 893.10 s [opt-env-conf-test] ppIndent $ do
  12837. 893.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
  12838. 893.10 s [opt-env-conf-test] @@ -383,16 +383,16 @@
  12839. 893.10 s [opt-env-conf-test] Just obj -> do
  12840. 893.11 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  12841. 893.11 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12842. 893.11 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12843. 893.11 s [opt-env-conf-test] - Nothing -> do
  12844. 893.11 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12845. 893.11 s [opt-env-conf-test] - Nothing -> pure Nothing
  12846. 893.11 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12847. 893.11 s [opt-env-conf-test] - Just neRest -> do
  12848. 893.11 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  12849. 893.11 s [opt-env-conf-test] - case mO' of
  12850. 893.11 s [opt-env-conf-test] - Nothing -> pure Nothing
  12851. 893.11 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12852. 893.11 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12853. 893.11 s [opt-env-conf-test] + Nothing -> do
  12854. 893.11 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  12855. 893.11 s [opt-env-conf-test] + Nothing -> pure Nothing
  12856. 893.11 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  12857. 893.11 s [opt-env-conf-test] + Just neRest -> do
  12858. 893.11 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  12859. 893.11 s [opt-env-conf-test] + case mO' of
  12860. 893.11 s [opt-env-conf-test] + Nothing -> pure Nothing
  12861. 893.11 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  12862. 893.11 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12863. 893.11 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12864. 893.11 s [opt-env-conf-test] Right mV -> case mV of
  12865. 893.11 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  12866. 893.11 s [opt-env-conf-test] @@ -393,30 +393,30 @@
  12867. 893.11 s [opt-env-conf-test] case mO' of
  12868. 893.11 s [opt-env-conf-test] Nothing -> pure Nothing
  12869. 893.11 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12870. 893.11 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  12871. 893.11 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12872. 893.11 s [opt-env-conf-test] - Right mV -> case mV of
  12873. 893.11 s [opt-env-conf-test] - Nothing -> do
  12874. 893.11 s [opt-env-conf-test] - debug
  12875. 893.11 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  12876. 893.11 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12877. 893.11 s [opt-env-conf-test] - ]
  12878. 893.11 s [opt-env-conf-test] - pure Nothing
  12879. 893.11 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12880. 893.11 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12881. 893.11 s [opt-env-conf-test] - Right mA -> case mA of
  12882. 893.11 s [opt-env-conf-test] - Nothing -> do
  12883. 893.11 s [opt-env-conf-test] - debug
  12884. 893.11 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12885. 893.11 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12886. 893.11 s [opt-env-conf-test] - ]
  12887. 893.11 s [opt-env-conf-test] - pure Nothing
  12888. 893.11 s [opt-env-conf-test] - Just a -> do
  12889. 893.11 s [opt-env-conf-test] - debug
  12890. 893.11 s [opt-env-conf-test] - [ "set based on config value: ",
  12891. 893.11 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12892. 893.11 s [opt-env-conf-test] - ]
  12893. 893.11 s [opt-env-conf-test] - pure $ Just a
  12894. 893.11 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  12895. 893.11 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12896. 893.11 s [opt-env-conf-test] + Right mV -> case mV of
  12897. 893.11 s [opt-env-conf-test] + Nothing -> do
  12898. 893.11 s [opt-env-conf-test] + debug
  12899. 893.11 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  12900. 893.11 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12901. 893.45 s [opt-env-conf-test] + ]
  12902. 893.45 s [opt-env-conf-test] + pure Nothing
  12903. 893.45 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12904. 893.46 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12905. 893.46 s [opt-env-conf-test] + Right mA -> case mA of
  12906. 893.46 s [opt-env-conf-test] + Nothing -> do
  12907. 893.46 s [opt-env-conf-test] + debug
  12908. 893.46 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12909. 893.46 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12910. 893.46 s [opt-env-conf-test] + ]
  12911. 893.46 s [opt-env-conf-test] + pure Nothing
  12912. 893.46 s [opt-env-conf-test] + Just a -> do
  12913. 893.46 s [opt-env-conf-test] + debug
  12914. 893.46 s [opt-env-conf-test] + [ "set based on config value: ",
  12915. 893.46 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12916. 893.46 s [opt-env-conf-test] + ]
  12917. 893.46 s [opt-env-conf-test] + pure $ Just a
  12918. 893.46 s [opt-env-conf-test] let toRes = \case
  12919. 893.46 s [opt-env-conf-test] Nothing -> NotFound
  12920. 893.46 s [opt-env-conf-test] Just a -> Found a
  12921. 893.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
  12922. 893.46 s [opt-env-conf-test] @@ -404,19 +404,19 @@
  12923. 893.46 s [opt-env-conf-test] pure Nothing
  12924. 893.46 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12925. 893.46 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12926. 893.46 s [opt-env-conf-test] - Right mA -> case mA of
  12927. 893.46 s [opt-env-conf-test] - Nothing -> do
  12928. 893.46 s [opt-env-conf-test] - debug
  12929. 893.46 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12930. 893.46 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12931. 893.46 s [opt-env-conf-test] - ]
  12932. 893.46 s [opt-env-conf-test] - pure Nothing
  12933. 893.46 s [opt-env-conf-test] - Just a -> do
  12934. 893.46 s [opt-env-conf-test] - debug
  12935. 893.46 s [opt-env-conf-test] - [ "set based on config value: ",
  12936. 893.46 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12937. 893.46 s [opt-env-conf-test] - ]
  12938. 893.46 s [opt-env-conf-test] - pure $ Just a
  12939. 893.46 s [opt-env-conf-test] + Right mA -> case mA of
  12940. 893.46 s [opt-env-conf-test] + Nothing -> do
  12941. 893.46 s [opt-env-conf-test] + debug
  12942. 893.46 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12943. 893.46 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12944. 893.46 s [opt-env-conf-test] + ]
  12945. 893.46 s [opt-env-conf-test] + pure Nothing
  12946. 893.46 s [opt-env-conf-test] + Just a -> do
  12947. 893.46 s [opt-env-conf-test] + debug
  12948. 893.46 s [opt-env-conf-test] + [ "set based on config value: ",
  12949. 893.46 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12950. 893.46 s [opt-env-conf-test] + ]
  12951. 893.47 s [opt-env-conf-test] + pure $ Just a
  12952. 893.47 s [opt-env-conf-test] let toRes = \case
  12953. 893.47 s [opt-env-conf-test] Nothing -> NotFound
  12954. 893.47 s [opt-env-conf-test] Just a -> Found a
  12955. 893.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
  12956. 893.47 s [opt-env-conf-test] @@ -420,13 +420,13 @@
  12957. 893.47 s [opt-env-conf-test] let toRes = \case
  12958. 893.47 s [opt-env-conf-test] Nothing -> NotFound
  12959. 893.47 s [opt-env-conf-test] Just a -> Found a
  12960. 893.47 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  12961. 893.47 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  12962. 893.47 s [opt-env-conf-test] - Just ne -> do
  12963. 893.47 s [opt-env-conf-test] - res <- goConfSet confSet
  12964. 893.47 s [opt-env-conf-test] - case res of
  12965. 893.47 s [opt-env-conf-test] - Just a -> pure $ Found a
  12966. 893.47 s [opt-env-conf-test] - Nothing -> goConfSets ne
  12967. 893.47 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  12968. 893.47 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  12969. 893.47 s [opt-env-conf-test] + Just ne -> do
  12970. 893.47 s [opt-env-conf-test] + res <- goConfSet confSet
  12971. 893.47 s [opt-env-conf-test] + case res of
  12972. 893.47 s [opt-env-conf-test] + Just a -> pure $ Found a
  12973. 893.47 s [opt-env-conf-test] + Nothing -> goConfSets ne
  12974. 893.47 s [opt-env-conf-test] goConfSets confSets
  12975. 893.47 s [opt-env-conf-test] case mConf of
  12976. 893.47 s [opt-env-conf-test] Found a -> do
  12977. 893.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
  12978. 893.47 s [opt-env-conf-test] @@ -336,35 +336,35 @@
  12979. 893.47 s [opt-env-conf-test] pure a
  12980. 893.47 s [opt-env-conf-test] _ -> do
  12981. 893.47 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  12982. 893.47 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  12983. 893.47 s [opt-env-conf-test] - Nothing -> pure NotRun
  12984. 893.47 s [opt-env-conf-test] - Just ne -> do
  12985. 893.47 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  12986. 893.47 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  12987. 893.47 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  12988. 893.47 s [opt-env-conf-test] - es <- asks ppEnvEnv
  12989. 893.47 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  12990. 893.47 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  12991. 893.47 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  12992. 893.47 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  12993. 893.47 s [opt-env-conf-test] - -- result.
  12994. 893.47 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  12995. 893.47 s [opt-env-conf-test] - case tryReaders rs varStr of
  12996. 893.47 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12997. 893.47 s [opt-env-conf-test] - Right a -> do
  12998. 893.47 s [opt-env-conf-test] - debug
  12999. 893.47 s [opt-env-conf-test] - [ "set based on env: ",
  13000. 893.47 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  13001. 893.47 s [opt-env-conf-test] - ]
  13002. 893.47 s [opt-env-conf-test] - pure a
  13003. 893.47 s [opt-env-conf-test] - case listToMaybe results of
  13004. 893.47 s [opt-env-conf-test] - Nothing -> do
  13005. 893.47 s [opt-env-conf-test] - debug
  13006. 893.47 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  13007. 893.47 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13008. 893.47 s [opt-env-conf-test] - ]
  13009. 893.47 s [opt-env-conf-test] - pure NotFound
  13010. 893.47 s [opt-env-conf-test] - Just a -> pure $ Found a
  13011. 893.47 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  13012. 893.47 s [opt-env-conf-test] + Nothing -> pure NotRun
  13013. 893.47 s [opt-env-conf-test] + Just ne -> do
  13014. 893.47 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  13015. 893.47 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  13016. 893.47 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  13017. 893.47 s [opt-env-conf-test] + es <- asks ppEnvEnv
  13018. 893.47 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  13019. 893.47 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  13020. 893.47 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  13021. 893.47 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  13022. 893.47 s [opt-env-conf-test] + -- result.
  13023. 893.47 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  13024. 893.47 s [opt-env-conf-test] + case tryReaders rs varStr of
  13025. 893.47 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  13026. 894.02 s [opt-env-conf-test] + Right a -> do
  13027. 894.02 s [opt-env-conf-test] + debug
  13028. 894.02 s [opt-env-conf-test] + [ "set based on env: ",
  13029. 894.02 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  13030. 894.02 s [opt-env-conf-test] + ]
  13031. 894.02 s [opt-env-conf-test] + pure a
  13032. 894.02 s [opt-env-conf-test] + case listToMaybe results of
  13033. 894.02 s [opt-env-conf-test] + Nothing -> do
  13034. 894.02 s [opt-env-conf-test] + debug
  13035. 894.02 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  13036. 894.02 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13037. 894.02 s [opt-env-conf-test] + ]
  13038. 894.02 s [opt-env-conf-test] + pure NotFound
  13039. 894.02 s [opt-env-conf-test] + Just a -> pure $ Found a
  13040. 894.02 s [opt-env-conf-test]
  13041. 894.02 s [opt-env-conf-test] case mEnv of
  13042. 894.02 s [opt-env-conf-test] Found a -> do
  13043. 894.02 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
  13044. 894.02 s [opt-env-conf-test] @@ -204,23 +204,23 @@
  13045. 894.02 s [opt-env-conf-test] ppIndent $ do
  13046. 894.02 s [opt-env-conf-test] mS <- ppArg
  13047. 894.02 s [opt-env-conf-test] let docsForErrors = map (void . commandParserDocs) cs
  13048. 894.02 s [opt-env-conf-test] - case mS of
  13049. 894.02 s [opt-env-conf-test] - Nothing -> do
  13050. 894.02 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  13051. 894.02 s [opt-env-conf-test] - let mDefaultCommand = do
  13052. 894.02 s [opt-env-conf-test] - d <- mDefault
  13053. 894.02 s [opt-env-conf-test] - find ((== d) . commandArg) cs
  13054. 894.02 s [opt-env-conf-test] - case mDefaultCommand of
  13055. 894.02 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  13056. 894.02 s [opt-env-conf-test] - Just dc -> do
  13057. 894.02 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  13058. 894.02 s [opt-env-conf-test] - go $ commandParser dc
  13059. 894.02 s [opt-env-conf-test] - Just s -> do
  13060. 894.02 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  13061. 894.02 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  13062. 894.02 s [opt-env-conf-test] - Just c -> do
  13063. 894.02 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  13064. 894.02 s [opt-env-conf-test] - go $ commandParser c
  13065. 894.02 s [opt-env-conf-test] + case mS of
  13066. 894.02 s [opt-env-conf-test] + Nothing -> do
  13067. 894.02 s [opt-env-conf-test] + debug ["No argument found for choosing a command."]
  13068. 894.02 s [opt-env-conf-test] + let mDefaultCommand = do
  13069. 894.02 s [opt-env-conf-test] + d <- mDefault
  13070. 894.02 s [opt-env-conf-test] + find ((== d) . commandArg) cs
  13071. 894.02 s [opt-env-conf-test] + case mDefaultCommand of
  13072. 894.02 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  13073. 894.02 s [opt-env-conf-test] + Just dc -> do
  13074. 894.02 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  13075. 894.02 s [opt-env-conf-test] + go $ commandParser dc
  13076. 894.02 s [opt-env-conf-test] + Just s -> do
  13077. 894.02 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  13078. 894.02 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  13079. 894.02 s [opt-env-conf-test] + Just c -> do
  13080. 894.02 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  13081. 894.02 s [opt-env-conf-test] + go $ commandParser c
  13082. 894.02 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  13083. 894.02 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  13084. 894.02 s [opt-env-conf-test] ppIndent $ do
  13085. 894.02 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
  13086. 894.02 s [opt-env-conf-test] @@ -376,58 +376,58 @@
  13087. 894.02 s [opt-env-conf-test] Nothing -> pure NotRun
  13088. 894.02 s [opt-env-conf-test] Just confSets -> do
  13089. 894.02 s [opt-env-conf-test] mObj <- asks ppEnvConf
  13090. 894.02 s [opt-env-conf-test] - case mObj of
  13091. 894.02 s [opt-env-conf-test] - Nothing -> do
  13092. 894.02 s [opt-env-conf-test] - debug ["no config object to set from"]
  13093. 894.02 s [opt-env-conf-test] - pure NotFound
  13094. 894.03 s [opt-env-conf-test] - Just obj -> do
  13095. 894.03 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13096. 894.03 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13097. 894.03 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13098. 894.03 s [opt-env-conf-test] - Nothing -> do
  13099. 894.03 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13100. 894.03 s [opt-env-conf-test] - Nothing -> pure Nothing
  13101. 894.03 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13102. 894.03 s [opt-env-conf-test] - Just neRest -> do
  13103. 894.03 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13104. 894.03 s [opt-env-conf-test] - case mO' of
  13105. 894.03 s [opt-env-conf-test] - Nothing -> pure Nothing
  13106. 894.03 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13107. 894.03 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13108. 894.03 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13109. 894.03 s [opt-env-conf-test] - Right mV -> case mV of
  13110. 894.03 s [opt-env-conf-test] - Nothing -> do
  13111. 894.03 s [opt-env-conf-test] - debug
  13112. 894.03 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13113. 894.03 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13114. 894.03 s [opt-env-conf-test] - ]
  13115. 894.03 s [opt-env-conf-test] - pure Nothing
  13116. 894.03 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13117. 894.03 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13118. 894.03 s [opt-env-conf-test] - Right mA -> case mA of
  13119. 894.03 s [opt-env-conf-test] - Nothing -> do
  13120. 894.03 s [opt-env-conf-test] - debug
  13121. 894.03 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13122. 894.03 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13123. 894.03 s [opt-env-conf-test] - ]
  13124. 894.03 s [opt-env-conf-test] - pure Nothing
  13125. 894.03 s [opt-env-conf-test] - Just a -> do
  13126. 894.03 s [opt-env-conf-test] - debug
  13127. 894.03 s [opt-env-conf-test] - [ "set based on config value: ",
  13128. 894.03 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13129. 894.03 s [opt-env-conf-test] - ]
  13130. 894.03 s [opt-env-conf-test] - pure $ Just a
  13131. 894.03 s [opt-env-conf-test] - let toRes = \case
  13132. 894.03 s [opt-env-conf-test] - Nothing -> NotFound
  13133. 894.03 s [opt-env-conf-test] - Just a -> Found a
  13134. 894.03 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13135. 894.03 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13136. 894.03 s [opt-env-conf-test] - Just ne -> do
  13137. 894.03 s [opt-env-conf-test] - res <- goConfSet confSet
  13138. 894.03 s [opt-env-conf-test] - case res of
  13139. 894.03 s [opt-env-conf-test] - Just a -> pure $ Found a
  13140. 894.03 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13141. 894.03 s [opt-env-conf-test] - goConfSets confSets
  13142. 894.03 s [opt-env-conf-test] + case mObj of
  13143. 894.03 s [opt-env-conf-test] + Nothing -> do
  13144. 894.03 s [opt-env-conf-test] + debug ["no config object to set from"]
  13145. 894.03 s [opt-env-conf-test] + pure NotFound
  13146. 894.03 s [opt-env-conf-test] + Just obj -> do
  13147. 894.03 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  13148. 894.03 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13149. 894.03 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13150. 894.03 s [opt-env-conf-test] + Nothing -> do
  13151. 894.03 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  13152. 894.03 s [opt-env-conf-test] + Nothing -> pure Nothing
  13153. 894.03 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  13154. 894.03 s [opt-env-conf-test] + Just neRest -> do
  13155. 894.03 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  13156. 894.03 s [opt-env-conf-test] + case mO' of
  13157. 894.03 s [opt-env-conf-test] + Nothing -> pure Nothing
  13158. 894.03 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  13159. 894.03 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  13160. 894.11 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13161. 894.11 s [opt-env-conf-test] + Right mV -> case mV of
  13162. 894.11 s [opt-env-conf-test] + Nothing -> do
  13163. 894.11 s [opt-env-conf-test] + debug
  13164. 894.11 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  13165. 894.11 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13166. 894.11 s [opt-env-conf-test] + ]
  13167. 894.11 s [opt-env-conf-test] + pure Nothing
  13168. 894.11 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13169. 894.11 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13170. 894.11 s [opt-env-conf-test] + Right mA -> case mA of
  13171. 894.11 s [opt-env-conf-test] + Nothing -> do
  13172. 894.11 s [opt-env-conf-test] + debug
  13173. 894.11 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  13174. 894.11 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13175. 894.11 s [opt-env-conf-test] + ]
  13176. 894.11 s [opt-env-conf-test] + pure Nothing
  13177. 894.11 s [opt-env-conf-test] + Just a -> do
  13178. 894.11 s [opt-env-conf-test] + debug
  13179. 894.11 s [opt-env-conf-test] + [ "set based on config value: ",
  13180. 894.11 s [opt-env-conf-test] + chunk $ T.pack $ show v
  13181. 894.11 s [opt-env-conf-test] + ]
  13182. 894.12 s [opt-env-conf-test] + pure $ Just a
  13183. 894.12 s [opt-env-conf-test] + let toRes = \case
  13184. 894.12 s [opt-env-conf-test] + Nothing -> NotFound
  13185. 894.12 s [opt-env-conf-test] + Just a -> Found a
  13186. 894.12 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13187. 894.12 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  13188. 894.12 s [opt-env-conf-test] + Just ne -> do
  13189. 894.12 s [opt-env-conf-test] + res <- goConfSet confSet
  13190. 894.12 s [opt-env-conf-test] + case res of
  13191. 894.12 s [opt-env-conf-test] + Just a -> pure $ Found a
  13192. 894.12 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13193. 894.12 s [opt-env-conf-test] + goConfSets confSets
  13194. 894.12 s [opt-env-conf-test] case mConf of
  13195. 894.12 s [opt-env-conf-test] Found a -> do
  13196. 894.12 s [opt-env-conf-test] markParsed
  13197. 894.12 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
  13198. 894.12 s [opt-env-conf-test] @@ -372,62 +372,62 @@
  13199. 894.12 s [opt-env-conf-test] pure a
  13200. 894.12 s [opt-env-conf-test] _ -> do
  13201. 894.12 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  13202. 894.12 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  13203. 894.12 s [opt-env-conf-test] - Nothing -> pure NotRun
  13204. 894.12 s [opt-env-conf-test] - Just confSets -> do
  13205. 894.12 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13206. 894.12 s [opt-env-conf-test] - case mObj of
  13207. 894.12 s [opt-env-conf-test] - Nothing -> do
  13208. 894.12 s [opt-env-conf-test] - debug ["no config object to set from"]
  13209. 894.12 s [opt-env-conf-test] - pure NotFound
  13210. 894.12 s [opt-env-conf-test] - Just obj -> do
  13211. 894.12 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13212. 894.12 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13213. 894.12 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13214. 894.12 s [opt-env-conf-test] - Nothing -> do
  13215. 894.12 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13216. 894.12 s [opt-env-conf-test] - Nothing -> pure Nothing
  13217. 894.12 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13218. 894.12 s [opt-env-conf-test] - Just neRest -> do
  13219. 894.12 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13220. 894.12 s [opt-env-conf-test] - case mO' of
  13221. 894.12 s [opt-env-conf-test] - Nothing -> pure Nothing
  13222. 894.12 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13223. 894.12 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13224. 894.12 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13225. 894.12 s [opt-env-conf-test] - Right mV -> case mV of
  13226. 894.12 s [opt-env-conf-test] - Nothing -> do
  13227. 894.12 s [opt-env-conf-test] - debug
  13228. 894.12 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13229. 894.12 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13230. 894.12 s [opt-env-conf-test] - ]
  13231. 894.12 s [opt-env-conf-test] - pure Nothing
  13232. 894.12 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13233. 894.12 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13234. 894.12 s [opt-env-conf-test] - Right mA -> case mA of
  13235. 894.12 s [opt-env-conf-test] - Nothing -> do
  13236. 894.12 s [opt-env-conf-test] - debug
  13237. 894.12 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13238. 894.12 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13239. 894.12 s [opt-env-conf-test] - ]
  13240. 894.12 s [opt-env-conf-test] - pure Nothing
  13241. 894.12 s [opt-env-conf-test] - Just a -> do
  13242. 894.12 s [opt-env-conf-test] - debug
  13243. 894.13 s [opt-env-conf-test] - [ "set based on config value: ",
  13244. 894.13 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13245. 894.13 s [opt-env-conf-test] - ]
  13246. 894.13 s [opt-env-conf-test] - pure $ Just a
  13247. 894.13 s [opt-env-conf-test] - let toRes = \case
  13248. 894.13 s [opt-env-conf-test] - Nothing -> NotFound
  13249. 894.13 s [opt-env-conf-test] - Just a -> Found a
  13250. 894.13 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13251. 894.13 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13252. 894.13 s [opt-env-conf-test] - Just ne -> do
  13253. 894.13 s [opt-env-conf-test] - res <- goConfSet confSet
  13254. 894.13 s [opt-env-conf-test] - case res of
  13255. 894.13 s [opt-env-conf-test] - Just a -> pure $ Found a
  13256. 894.13 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13257. 894.13 s [opt-env-conf-test] - goConfSets confSets
  13258. 894.13 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  13259. 894.13 s [opt-env-conf-test] + Nothing -> pure NotRun
  13260. 894.13 s [opt-env-conf-test] + Just confSets -> do
  13261. 894.13 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  13262. 894.13 s [opt-env-conf-test] + case mObj of
  13263. 894.13 s [opt-env-conf-test] + Nothing -> do
  13264. 894.13 s [opt-env-conf-test] + debug ["no config object to set from"]
  13265. 894.13 s [opt-env-conf-test] + pure NotFound
  13266. 894.13 s [opt-env-conf-test] + Just obj -> do
  13267. 894.13 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  13268. 894.13 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13269. 894.13 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13270. 894.13 s [opt-env-conf-test] + Nothing -> do
  13271. 894.13 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  13272. 894.13 s [opt-env-conf-test] + Nothing -> pure Nothing
  13273. 894.13 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  13274. 894.13 s [opt-env-conf-test] + Just neRest -> do
  13275. 894.13 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  13276. 894.13 s [opt-env-conf-test] + case mO' of
  13277. 894.43 s [opt-env-conf-test] + Nothing -> pure Nothing
  13278. 894.43 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  13279. 894.43 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  13280. 894.43 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13281. 894.43 s [opt-env-conf-test] + Right mV -> case mV of
  13282. 894.43 s [opt-env-conf-test] + Nothing -> do
  13283. 894.43 s [opt-env-conf-test] + debug
  13284. 894.43 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  13285. 894.43 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13286. 894.43 s [opt-env-conf-test] + ]
  13287. 894.43 s [opt-env-conf-test] + pure Nothing
  13288. 894.43 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13289. 894.43 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13290. 894.43 s [opt-env-conf-test] + Right mA -> case mA of
  13291. 894.43 s [opt-env-conf-test] + Nothing -> do
  13292. 894.43 s [opt-env-conf-test] + debug
  13293. 894.43 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  13294. 894.43 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13295. 894.43 s [opt-env-conf-test] + ]
  13296. 894.43 s [opt-env-conf-test] + pure Nothing
  13297. 894.43 s [opt-env-conf-test] + Just a -> do
  13298. 894.43 s [opt-env-conf-test] + debug
  13299. 894.43 s [opt-env-conf-test] + [ "set based on config value: ",
  13300. 894.43 s [opt-env-conf-test] + chunk $ T.pack $ show v
  13301. 894.43 s [opt-env-conf-test] + ]
  13302. 894.43 s [opt-env-conf-test] + pure $ Just a
  13303. 894.43 s [opt-env-conf-test] + let toRes = \case
  13304. 894.43 s [opt-env-conf-test] + Nothing -> NotFound
  13305. 894.43 s [opt-env-conf-test] + Just a -> Found a
  13306. 894.43 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13307. 894.43 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  13308. 894.43 s [opt-env-conf-test] + Just ne -> do
  13309. 894.43 s [opt-env-conf-test] + res <- goConfSet confSet
  13310. 894.44 s [opt-env-conf-test] + case res of
  13311. 894.44 s [opt-env-conf-test] + Just a -> pure $ Found a
  13312. 894.44 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13313. 894.44 s [opt-env-conf-test] + goConfSets confSets
  13314. 894.44 s [opt-env-conf-test] case mConf of
  13315. 894.44 s [opt-env-conf-test] Found a -> do
  13316. 894.44 s [opt-env-conf-test] markParsed
  13317. 894.44 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
  13318. 894.44 s [opt-env-conf-test] @@ -420,13 +420,13 @@
  13319. 894.44 s [opt-env-conf-test] let toRes = \case
  13320. 894.44 s [opt-env-conf-test] Nothing -> NotFound
  13321. 894.44 s [opt-env-conf-test] Just a -> Found a
  13322. 894.44 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13323. 894.44 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13324. 894.44 s [opt-env-conf-test] - Just ne -> do
  13325. 894.44 s [opt-env-conf-test] - res <- goConfSet confSet
  13326. 894.44 s [opt-env-conf-test] - case res of
  13327. 894.44 s [opt-env-conf-test] - Just a -> pure $ Found a
  13328. 894.44 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13329. 894.44 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13330. 894.44 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  13331. 894.44 s [opt-env-conf-test] + Just ne -> do
  13332. 894.44 s [opt-env-conf-test] + res <- goConfSet confSet
  13333. 894.44 s [opt-env-conf-test] + case res of
  13334. 894.44 s [opt-env-conf-test] + Just a -> pure $ Found a
  13335. 894.44 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13336. 894.44 s [opt-env-conf-test] goConfSets confSets
  13337. 894.44 s [opt-env-conf-test] case mConf of
  13338. 894.44 s [opt-env-conf-test] Found a -> do
  13339. 894.44 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
  13340. 894.44 s [opt-env-conf-test] @@ -372,62 +372,62 @@
  13341. 894.44 s [opt-env-conf-test] pure a
  13342. 894.44 s [opt-env-conf-test] _ -> do
  13343. 894.44 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  13344. 894.44 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  13345. 894.44 s [opt-env-conf-test] - Nothing -> pure NotRun
  13346. 894.44 s [opt-env-conf-test] - Just confSets -> do
  13347. 894.44 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13348. 894.44 s [opt-env-conf-test] - case mObj of
  13349. 894.44 s [opt-env-conf-test] - Nothing -> do
  13350. 894.44 s [opt-env-conf-test] - debug ["no config object to set from"]
  13351. 894.44 s [opt-env-conf-test] - pure NotFound
  13352. 894.44 s [opt-env-conf-test] - Just obj -> do
  13353. 894.44 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13354. 894.44 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13355. 894.44 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13356. 894.44 s [opt-env-conf-test] - Nothing -> do
  13357. 894.44 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13358. 894.44 s [opt-env-conf-test] - Nothing -> pure Nothing
  13359. 894.44 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13360. 894.44 s [opt-env-conf-test] - Just neRest -> do
  13361. 894.44 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13362. 894.44 s [opt-env-conf-test] - case mO' of
  13363. 894.44 s [opt-env-conf-test] - Nothing -> pure Nothing
  13364. 894.44 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13365. 894.44 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13366. 894.44 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13367. 894.44 s [opt-env-conf-test] - Right mV -> case mV of
  13368. 894.44 s [opt-env-conf-test] - Nothing -> do
  13369. 894.44 s [opt-env-conf-test] - debug
  13370. 894.44 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13371. 894.44 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13372. 894.44 s [opt-env-conf-test] - ]
  13373. 894.44 s [opt-env-conf-test] - pure Nothing
  13374. 894.44 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13375. 894.44 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13376. 894.44 s [opt-env-conf-test] - Right mA -> case mA of
  13377. 894.44 s [opt-env-conf-test] - Nothing -> do
  13378. 894.44 s [opt-env-conf-test] - debug
  13379. 894.44 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13380. 894.44 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13381. 894.44 s [opt-env-conf-test] - ]
  13382. 894.44 s [opt-env-conf-test] - pure Nothing
  13383. 894.44 s [opt-env-conf-test] - Just a -> do
  13384. 894.44 s [opt-env-conf-test] - debug
  13385. 894.44 s [opt-env-conf-test] - [ "set based on config value: ",
  13386. 894.44 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13387. 894.44 s [opt-env-conf-test] - ]
  13388. 894.44 s [opt-env-conf-test] - pure $ Just a
  13389. 894.44 s [opt-env-conf-test] - let toRes = \case
  13390. 894.44 s [opt-env-conf-test] - Nothing -> NotFound
  13391. 894.44 s [opt-env-conf-test] - Just a -> Found a
  13392. 894.44 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13393. 894.44 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13394. 894.44 s [opt-env-conf-test] - Just ne -> do
  13395. 895.87 s [opt-env-conf-test] - res <- goConfSet confSet
  13396. 896.01 s [opt-env-conf-test] - case res of
  13397. 896.01 s [opt-env-conf-test] - Just a -> pure $ Found a
  13398. 896.01 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13399. 896.01 s [opt-env-conf-test] - goConfSets confSets
  13400. 896.01 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  13401. 896.01 s [opt-env-conf-test] + Nothing -> pure NotRun
  13402. 896.01 s [opt-env-conf-test] + Just confSets -> do
  13403. 896.01 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  13404. 896.01 s [opt-env-conf-test] + case mObj of
  13405. 896.01 s [opt-env-conf-test] + Nothing -> do
  13406. 896.01 s [opt-env-conf-test] + debug ["no config object to set from"]
  13407. 896.01 s [opt-env-conf-test] + pure NotFound
  13408. 896.01 s [opt-env-conf-test] + Just obj -> do
  13409. 896.01 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  13410. 896.01 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13411. 896.01 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13412. 896.01 s [opt-env-conf-test] + Nothing -> do
  13413. 896.01 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  13414. 896.01 s [opt-env-conf-test] + Nothing -> pure Nothing
  13415. 896.01 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  13416. 896.01 s [opt-env-conf-test] + Just neRest -> do
  13417. 896.01 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  13418. 896.01 s [opt-env-conf-test] + case mO' of
  13419. 896.01 s [opt-env-conf-test] + Nothing -> pure Nothing
  13420. 896.01 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  13421. 896.01 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  13422. 896.01 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13423. 896.01 s [opt-env-conf-test] + Right mV -> case mV of
  13424. 896.01 s [opt-env-conf-test] + Nothing -> do
  13425. 896.01 s [opt-env-conf-test] + debug
  13426. 896.01 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  13427. 896.01 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13428. 896.01 s [opt-env-conf-test] + ]
  13429. 896.01 s [opt-env-conf-test] + pure Nothing
  13430. 896.01 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13431. 896.01 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13432. 896.01 s [opt-env-conf-test] + Right mA -> case mA of
  13433. 896.01 s [opt-env-conf-test] + Nothing -> do
  13434. 896.01 s [opt-env-conf-test] + debug
  13435. 896.01 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  13436. 896.01 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13437. 896.01 s [opt-env-conf-test] + ]
  13438. 896.01 s [opt-env-conf-test] + pure Nothing
  13439. 896.01 s [opt-env-conf-test] + Just a -> do
  13440. 896.01 s [opt-env-conf-test] + debug
  13441. 896.01 s [opt-env-conf-test] + [ "set based on config value: ",
  13442. 896.01 s [opt-env-conf-test] + chunk $ T.pack $ show v
  13443. 896.01 s [opt-env-conf-test] + ]
  13444. 896.01 s [opt-env-conf-test] + pure $ Just a
  13445. 896.01 s [opt-env-conf-test] + let toRes = \case
  13446. 896.01 s [opt-env-conf-test] + Nothing -> NotFound
  13447. 896.01 s [opt-env-conf-test] + Just a -> Found a
  13448. 896.01 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13449. 896.02 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  13450. 896.02 s [opt-env-conf-test] + Just ne -> do
  13451. 896.02 s [opt-env-conf-test] + res <- goConfSet confSet
  13452. 896.02 s [opt-env-conf-test] + case res of
  13453. 896.02 s [opt-env-conf-test] + Just a -> pure $ Found a
  13454. 896.02 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13455. 896.02 s [opt-env-conf-test] + goConfSets confSets
  13456. 896.02 s [opt-env-conf-test] case mConf of
  13457. 896.02 s [opt-env-conf-test] Found a -> do
  13458. 896.02 s [opt-env-conf-test] markParsed
  13459. 896.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  13460. 896.02 s [opt-env-conf-test] @@ -446,12 +446,7 @@
  13461. 896.02 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13462. 896.02 s [opt-env-conf-test] NE.nonEmpty $
  13463. 896.02 s [opt-env-conf-test] catMaybes
  13464. 896.02 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13465. 896.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13466. 896.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13467. 896.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13468. 896.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13469. 896.02 s [opt-env-conf-test] - ]
  13470. 896.02 s [opt-env-conf-test] + []
  13471. 896.02 s [opt-env-conf-test]
  13472. 896.02 s [opt-env-conf-test] withCapabilities ::
  13473. 896.02 s [opt-env-conf-test] Maybe SrcLoc ->
  13474. 896.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  13475. 896.02 s [opt-env-conf-test] @@ -446,12 +446,12 @@
  13476. 896.02 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13477. 896.02 s [opt-env-conf-test] NE.nonEmpty $
  13478. 896.02 s [opt-env-conf-test] catMaybes
  13479. 896.02 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13480. 896.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13481. 896.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13482. 896.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13483. 896.02 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13484. 896.02 s [opt-env-conf-test] - ]
  13485. 896.02 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13486. 896.02 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13487. 896.02 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13488. 896.02 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13489. 896.02 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13490. 896.02 s [opt-env-conf-test] + ]
  13491. 896.02 s [opt-env-conf-test]
  13492. 896.02 s [opt-env-conf-test] withCapabilities ::
  13493. 896.02 s [opt-env-conf-test] Maybe SrcLoc ->
  13494. 896.02 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  13495. 896.02 s [opt-env-conf-test] @@ -438,10 +438,10 @@
  13496. 896.02 s [opt-env-conf-test] debug ["set to default value"]
  13497. 896.02 s [opt-env-conf-test] pure a -- Don't mark as parsed
  13498. 896.02 s [opt-env-conf-test] Nothing -> do
  13499. 896.02 s [opt-env-conf-test] - let parseResultError e res = case res of
  13500. 896.02 s [opt-env-conf-test] - NotRun -> Nothing
  13501. 896.02 s [opt-env-conf-test] - NotFound -> Just e
  13502. 896.02 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13503. 896.02 s [opt-env-conf-test] + let parseResultError e res = case res of
  13504. 896.02 s [opt-env-conf-test] + NotRun -> Nothing
  13505. 896.02 s [opt-env-conf-test] + NotFound -> Just e
  13506. 896.02 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13507. 896.02 s [opt-env-conf-test] debug ["not found"]
  13508. 896.02 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13509. 896.02 s [opt-env-conf-test] NE.nonEmpty $
  13510. 896.02 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
  13511. 896.02 s [opt-env-conf-test] @@ -376,58 +376,58 @@
  13512. 896.02 s [opt-env-conf-test] Nothing -> pure NotRun
  13513. 896.02 s [opt-env-conf-test] Just confSets -> do
  13514. 896.02 s [opt-env-conf-test] mObj <- asks ppEnvConf
  13515. 896.02 s [opt-env-conf-test] - case mObj of
  13516. 896.02 s [opt-env-conf-test] - Nothing -> do
  13517. 896.15 s [opt-env-conf-test] - debug ["no config object to set from"]
  13518. 896.15 s [opt-env-conf-test] - pure NotFound
  13519. 896.15 s [opt-env-conf-test] - Just obj -> do
  13520. 896.15 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13521. 896.15 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13522. 896.15 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13523. 896.15 s [opt-env-conf-test] - Nothing -> do
  13524. 896.15 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13525. 896.15 s [opt-env-conf-test] - Nothing -> pure Nothing
  13526. 896.15 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13527. 896.15 s [opt-env-conf-test] - Just neRest -> do
  13528. 896.15 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13529. 896.15 s [opt-env-conf-test] - case mO' of
  13530. 896.15 s [opt-env-conf-test] - Nothing -> pure Nothing
  13531. 896.15 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13532. 896.15 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13533. 896.15 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13534. 896.15 s [opt-env-conf-test] - Right mV -> case mV of
  13535. 896.15 s [opt-env-conf-test] - Nothing -> do
  13536. 896.15 s [opt-env-conf-test] - debug
  13537. 896.15 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13538. 896.15 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13539. 896.15 s [opt-env-conf-test] - ]
  13540. 896.15 s [opt-env-conf-test] - pure Nothing
  13541. 896.15 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13542. 896.15 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13543. 896.15 s [opt-env-conf-test] - Right mA -> case mA of
  13544. 896.15 s [opt-env-conf-test] - Nothing -> do
  13545. 896.15 s [opt-env-conf-test] - debug
  13546. 896.15 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13547. 896.15 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13548. 896.15 s [opt-env-conf-test] - ]
  13549. 896.15 s [opt-env-conf-test] - pure Nothing
  13550. 896.15 s [opt-env-conf-test] - Just a -> do
  13551. 896.15 s [opt-env-conf-test] - debug
  13552. 896.15 s [opt-env-conf-test] - [ "set based on config value: ",
  13553. 896.16 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13554. 896.16 s [opt-env-conf-test] - ]
  13555. 896.16 s [opt-env-conf-test] - pure $ Just a
  13556. 896.16 s [opt-env-conf-test] - let toRes = \case
  13557. 896.16 s [opt-env-conf-test] - Nothing -> NotFound
  13558. 896.16 s [opt-env-conf-test] - Just a -> Found a
  13559. 896.16 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13560. 896.16 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13561. 896.16 s [opt-env-conf-test] - Just ne -> do
  13562. 896.16 s [opt-env-conf-test] - res <- goConfSet confSet
  13563. 896.16 s [opt-env-conf-test] - case res of
  13564. 896.16 s [opt-env-conf-test] - Just a -> pure $ Found a
  13565. 896.16 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13566. 896.16 s [opt-env-conf-test] - goConfSets confSets
  13567. 896.16 s [opt-env-conf-test] + case mObj of
  13568. 896.16 s [opt-env-conf-test] + Nothing -> do
  13569. 896.16 s [opt-env-conf-test] + debug ["no config object to set from"]
  13570. 896.16 s [opt-env-conf-test] + pure NotFound
  13571. 896.16 s [opt-env-conf-test] + Just obj -> do
  13572. 896.16 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  13573. 896.16 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13574. 896.16 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13575. 896.16 s [opt-env-conf-test] + Nothing -> do
  13576. 896.16 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  13577. 896.16 s [opt-env-conf-test] + Nothing -> pure Nothing
  13578. 896.16 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  13579. 896.16 s [opt-env-conf-test] + Just neRest -> do
  13580. 896.16 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  13581. 896.16 s [opt-env-conf-test] + case mO' of
  13582. 896.16 s [opt-env-conf-test] + Nothing -> pure Nothing
  13583. 896.16 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  13584. 896.16 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  13585. 896.16 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13586. 896.16 s [opt-env-conf-test] + Right mV -> case mV of
  13587. 896.16 s [opt-env-conf-test] + Nothing -> do
  13588. 896.16 s [opt-env-conf-test] + debug
  13589. 896.16 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  13590. 896.16 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13591. 896.16 s [opt-env-conf-test] + ]
  13592. 896.16 s [opt-env-conf-test] + pure Nothing
  13593. 896.16 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13594. 896.16 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13595. 896.16 s [opt-env-conf-test] + Right mA -> case mA of
  13596. 896.16 s [opt-env-conf-test] + Nothing -> do
  13597. 896.16 s [opt-env-conf-test] + debug
  13598. 896.16 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  13599. 896.16 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13600. 896.16 s [opt-env-conf-test] + ]
  13601. 896.16 s [opt-env-conf-test] + pure Nothing
  13602. 896.16 s [opt-env-conf-test] + Just a -> do
  13603. 896.16 s [opt-env-conf-test] + debug
  13604. 896.16 s [opt-env-conf-test] + [ "set based on config value: ",
  13605. 896.16 s [opt-env-conf-test] + chunk $ T.pack $ show v
  13606. 896.16 s [opt-env-conf-test] + ]
  13607. 896.16 s [opt-env-conf-test] + pure $ Just a
  13608. 896.16 s [opt-env-conf-test] + let toRes = \case
  13609. 896.16 s [opt-env-conf-test] + Nothing -> NotFound
  13610. 896.16 s [opt-env-conf-test] + Just a -> Found a
  13611. 896.16 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13612. 896.16 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  13613. 896.16 s [opt-env-conf-test] + Just ne -> do
  13614. 896.16 s [opt-env-conf-test] + res <- goConfSet confSet
  13615. 896.16 s [opt-env-conf-test] + case res of
  13616. 896.16 s [opt-env-conf-test] + Just a -> pure $ Found a
  13617. 896.16 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13618. 896.16 s [opt-env-conf-test] + goConfSets confSets
  13619. 896.16 s [opt-env-conf-test] case mConf of
  13620. 896.16 s [opt-env-conf-test] Found a -> do
  13621. 896.16 s [opt-env-conf-test] markParsed
  13622. 896.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
  13623. 896.16 s [opt-env-conf-test] @@ -424,9 +424,9 @@
  13624. 896.16 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  13625. 896.16 s [opt-env-conf-test] Just ne -> do
  13626. 896.16 s [opt-env-conf-test] res <- goConfSet confSet
  13627. 896.16 s [opt-env-conf-test] - case res of
  13628. 896.16 s [opt-env-conf-test] - Just a -> pure $ Found a
  13629. 896.16 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13630. 896.44 s [opt-env-conf-test] + case res of
  13631. 896.44 s [opt-env-conf-test] + Just a -> pure $ Found a
  13632. 896.44 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13633. 896.44 s [opt-env-conf-test] goConfSets confSets
  13634. 896.44 s [opt-env-conf-test] case mConf of
  13635. 896.44 s [opt-env-conf-test] Found a -> do
  13636. 896.44 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
  13637. 896.44 s [opt-env-conf-test] @@ -424,9 +424,9 @@
  13638. 896.44 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  13639. 896.44 s [opt-env-conf-test] Just ne -> do
  13640. 896.44 s [opt-env-conf-test] res <- goConfSet confSet
  13641. 896.44 s [opt-env-conf-test] - case res of
  13642. 896.44 s [opt-env-conf-test] - Just a -> pure $ Found a
  13643. 896.44 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13644. 896.44 s [opt-env-conf-test] + case res of
  13645. 896.44 s [opt-env-conf-test] + Just a -> pure $ Found a
  13646. 896.44 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13647. 896.44 s [opt-env-conf-test] goConfSets confSets
  13648. 896.44 s [opt-env-conf-test] case mConf of
  13649. 896.44 s [opt-env-conf-test] Found a -> do
  13650. 896.44 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
  13651. 896.44 s [opt-env-conf-test] @@ -433,25 +433,25 @@
  13652. 896.44 s [opt-env-conf-test] markParsed
  13653. 896.44 s [opt-env-conf-test] pure a
  13654. 896.44 s [opt-env-conf-test] _ ->
  13655. 896.44 s [opt-env-conf-test] - case settingDefaultValue of
  13656. 896.44 s [opt-env-conf-test] - Just (a, _) -> do
  13657. 896.44 s [opt-env-conf-test] - debug ["set to default value"]
  13658. 896.44 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13659. 896.44 s [opt-env-conf-test] - Nothing -> do
  13660. 896.44 s [opt-env-conf-test] - let parseResultError e res = case res of
  13661. 896.44 s [opt-env-conf-test] - NotRun -> Nothing
  13662. 896.44 s [opt-env-conf-test] - NotFound -> Just e
  13663. 896.44 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13664. 896.45 s [opt-env-conf-test] - debug ["not found"]
  13665. 896.45 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13666. 896.45 s [opt-env-conf-test] - NE.nonEmpty $
  13667. 896.45 s [opt-env-conf-test] - catMaybes
  13668. 896.45 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13669. 896.45 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13670. 896.45 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13671. 896.45 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13672. 896.45 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13673. 896.45 s [opt-env-conf-test] - ]
  13674. 896.45 s [opt-env-conf-test] + case settingDefaultValue of
  13675. 896.45 s [opt-env-conf-test] + Just (a, _) -> do
  13676. 896.45 s [opt-env-conf-test] + debug ["set to default value"]
  13677. 896.45 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13678. 896.45 s [opt-env-conf-test] + Nothing -> do
  13679. 896.45 s [opt-env-conf-test] + let parseResultError e res = case res of
  13680. 896.45 s [opt-env-conf-test] + NotRun -> Nothing
  13681. 896.45 s [opt-env-conf-test] + NotFound -> Just e
  13682. 896.45 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13683. 896.45 s [opt-env-conf-test] + debug ["not found"]
  13684. 896.45 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13685. 896.45 s [opt-env-conf-test] + NE.nonEmpty $
  13686. 896.45 s [opt-env-conf-test] + catMaybes
  13687. 896.45 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13688. 896.45 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13689. 896.45 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13690. 896.45 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13691. 896.45 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13692. 896.45 s [opt-env-conf-test] + ]
  13693. 896.45 s [opt-env-conf-test]
  13694. 896.45 s [opt-env-conf-test] withCapabilities ::
  13695. 896.45 s [opt-env-conf-test] Maybe SrcLoc ->
  13696. 896.45 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
  13697. 896.45 s [opt-env-conf-test] @@ -428,30 +428,30 @@
  13698. 896.45 s [opt-env-conf-test] Just a -> pure $ Found a
  13699. 896.45 s [opt-env-conf-test] Nothing -> goConfSets ne
  13700. 896.45 s [opt-env-conf-test] goConfSets confSets
  13701. 896.45 s [opt-env-conf-test] - case mConf of
  13702. 896.45 s [opt-env-conf-test] - Found a -> do
  13703. 896.45 s [opt-env-conf-test] - markParsed
  13704. 896.45 s [opt-env-conf-test] - pure a
  13705. 896.45 s [opt-env-conf-test] - _ ->
  13706. 896.45 s [opt-env-conf-test] - case settingDefaultValue of
  13707. 896.45 s [opt-env-conf-test] - Just (a, _) -> do
  13708. 896.45 s [opt-env-conf-test] - debug ["set to default value"]
  13709. 896.45 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13710. 896.45 s [opt-env-conf-test] - Nothing -> do
  13711. 896.45 s [opt-env-conf-test] - let parseResultError e res = case res of
  13712. 896.45 s [opt-env-conf-test] - NotRun -> Nothing
  13713. 896.45 s [opt-env-conf-test] - NotFound -> Just e
  13714. 896.45 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13715. 896.45 s [opt-env-conf-test] - debug ["not found"]
  13716. 896.45 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13717. 896.45 s [opt-env-conf-test] - NE.nonEmpty $
  13718. 896.45 s [opt-env-conf-test] - catMaybes
  13719. 896.45 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13720. 896.45 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13721. 896.45 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13722. 896.45 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13723. 896.45 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13724. 896.45 s [opt-env-conf-test] - ]
  13725. 896.45 s [opt-env-conf-test] + case mConf of
  13726. 896.45 s [opt-env-conf-test] + Found a -> do
  13727. 896.45 s [opt-env-conf-test] + markParsed
  13728. 896.45 s [opt-env-conf-test] + pure a
  13729. 896.45 s [opt-env-conf-test] + _ ->
  13730. 896.45 s [opt-env-conf-test] + case settingDefaultValue of
  13731. 896.45 s [opt-env-conf-test] + Just (a, _) -> do
  13732. 896.45 s [opt-env-conf-test] + debug ["set to default value"]
  13733. 896.45 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13734. 896.45 s [opt-env-conf-test] + Nothing -> do
  13735. 896.45 s [opt-env-conf-test] + let parseResultError e res = case res of
  13736. 896.45 s [opt-env-conf-test] + NotRun -> Nothing
  13737. 896.45 s [opt-env-conf-test] + NotFound -> Just e
  13738. 896.45 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13739. 896.45 s [opt-env-conf-test] + debug ["not found"]
  13740. 896.45 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13741. 896.45 s [opt-env-conf-test] + NE.nonEmpty $
  13742. 896.45 s [opt-env-conf-test] + catMaybes
  13743. 896.45 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13744. 896.45 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13745. 896.45 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13746. 896.45 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13747. 896.45 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13748. 896.46 s [opt-env-conf-test] + ]
  13749. 896.46 s [opt-env-conf-test]
  13750. 896.46 s [opt-env-conf-test] withCapabilities ::
  13751. 896.46 s [opt-env-conf-test] Maybe SrcLoc ->
  13752. 896.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
  13753. 896.46 s [opt-env-conf-test] @@ -428,30 +428,30 @@
  13754. 896.46 s [opt-env-conf-test] Just a -> pure $ Found a
  13755. 896.46 s [opt-env-conf-test] Nothing -> goConfSets ne
  13756. 896.46 s [opt-env-conf-test] goConfSets confSets
  13757. 896.46 s [opt-env-conf-test] - case mConf of
  13758. 896.46 s [opt-env-conf-test] - Found a -> do
  13759. 896.46 s [opt-env-conf-test] - markParsed
  13760. 896.46 s [opt-env-conf-test] - pure a
  13761. 896.46 s [opt-env-conf-test] - _ ->
  13762. 896.46 s [opt-env-conf-test] - case settingDefaultValue of
  13763. 896.46 s [opt-env-conf-test] - Just (a, _) -> do
  13764. 897.04 s [opt-env-conf-test] - debug ["set to default value"]
  13765. 897.04 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13766. 897.04 s [opt-env-conf-test] - Nothing -> do
  13767. 897.04 s [opt-env-conf-test] - let parseResultError e res = case res of
  13768. 897.04 s [opt-env-conf-test] - NotRun -> Nothing
  13769. 897.04 s [opt-env-conf-test] - NotFound -> Just e
  13770. 897.04 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13771. 897.04 s [opt-env-conf-test] - debug ["not found"]
  13772. 897.04 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13773. 897.04 s [opt-env-conf-test] - NE.nonEmpty $
  13774. 897.04 s [opt-env-conf-test] - catMaybes
  13775. 897.04 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13776. 897.04 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13777. 897.04 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13778. 897.04 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13779. 897.04 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13780. 897.04 s [opt-env-conf-test] - ]
  13781. 897.04 s [opt-env-conf-test] + case mConf of
  13782. 897.04 s [opt-env-conf-test] + Found a -> do
  13783. 897.04 s [opt-env-conf-test] + markParsed
  13784. 897.04 s [opt-env-conf-test] + pure a
  13785. 897.04 s [opt-env-conf-test] + _ ->
  13786. 897.04 s [opt-env-conf-test] + case settingDefaultValue of
  13787. 897.04 s [opt-env-conf-test] + Just (a, _) -> do
  13788. 897.04 s [opt-env-conf-test] + debug ["set to default value"]
  13789. 897.04 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13790. 897.04 s [opt-env-conf-test] + Nothing -> do
  13791. 897.04 s [opt-env-conf-test] + let parseResultError e res = case res of
  13792. 897.04 s [opt-env-conf-test] + NotRun -> Nothing
  13793. 897.04 s [opt-env-conf-test] + NotFound -> Just e
  13794. 897.04 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13795. 897.04 s [opt-env-conf-test] + debug ["not found"]
  13796. 897.04 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13797. 897.05 s [opt-env-conf-test] + NE.nonEmpty $
  13798. 897.05 s [opt-env-conf-test] + catMaybes
  13799. 897.05 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13800. 897.05 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13801. 897.05 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13802. 897.05 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13803. 897.05 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13804. 897.05 s [opt-env-conf-test] + ]
  13805. 897.05 s [opt-env-conf-test]
  13806. 897.05 s [opt-env-conf-test] withCapabilities ::
  13807. 897.05 s [opt-env-conf-test] Maybe SrcLoc ->
  13808. 897.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
  13809. 897.05 s [opt-env-conf-test] @@ -366,92 +366,92 @@
  13810. 897.05 s [opt-env-conf-test] pure NotFound
  13811. 897.05 s [opt-env-conf-test] Just a -> pure $ Found a
  13812. 897.05 s [opt-env-conf-test]
  13813. 897.05 s [opt-env-conf-test] - case mEnv of
  13814. 897.05 s [opt-env-conf-test] - Found a -> do
  13815. 897.05 s [opt-env-conf-test] - markParsed
  13816. 897.05 s [opt-env-conf-test] - pure a
  13817. 897.05 s [opt-env-conf-test] - _ -> do
  13818. 897.05 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  13819. 897.05 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  13820. 897.05 s [opt-env-conf-test] - Nothing -> pure NotRun
  13821. 897.05 s [opt-env-conf-test] - Just confSets -> do
  13822. 897.05 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13823. 897.05 s [opt-env-conf-test] - case mObj of
  13824. 897.05 s [opt-env-conf-test] - Nothing -> do
  13825. 897.05 s [opt-env-conf-test] - debug ["no config object to set from"]
  13826. 897.05 s [opt-env-conf-test] - pure NotFound
  13827. 897.05 s [opt-env-conf-test] - Just obj -> do
  13828. 897.05 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13829. 897.05 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13830. 897.05 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13831. 897.05 s [opt-env-conf-test] - Nothing -> do
  13832. 897.05 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13833. 897.05 s [opt-env-conf-test] - Nothing -> pure Nothing
  13834. 897.05 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13835. 897.05 s [opt-env-conf-test] - Just neRest -> do
  13836. 897.05 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13837. 897.05 s [opt-env-conf-test] - case mO' of
  13838. 897.05 s [opt-env-conf-test] - Nothing -> pure Nothing
  13839. 897.05 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13840. 897.05 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13841. 897.05 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13842. 897.05 s [opt-env-conf-test] - Right mV -> case mV of
  13843. 897.05 s [opt-env-conf-test] - Nothing -> do
  13844. 897.05 s [opt-env-conf-test] - debug
  13845. 897.05 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13846. 897.05 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13847. 897.05 s [opt-env-conf-test] - ]
  13848. 897.05 s [opt-env-conf-test] - pure Nothing
  13849. 897.05 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13850. 897.05 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13851. 897.05 s [opt-env-conf-test] - Right mA -> case mA of
  13852. 897.05 s [opt-env-conf-test] - Nothing -> do
  13853. 897.05 s [opt-env-conf-test] - debug
  13854. 897.05 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13855. 897.05 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13856. 897.05 s [opt-env-conf-test] - ]
  13857. 897.05 s [opt-env-conf-test] - pure Nothing
  13858. 897.05 s [opt-env-conf-test] - Just a -> do
  13859. 897.05 s [opt-env-conf-test] - debug
  13860. 897.05 s [opt-env-conf-test] - [ "set based on config value: ",
  13861. 897.06 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13862. 897.06 s [opt-env-conf-test] - ]
  13863. 897.06 s [opt-env-conf-test] - pure $ Just a
  13864. 897.06 s [opt-env-conf-test] - let toRes = \case
  13865. 897.06 s [opt-env-conf-test] - Nothing -> NotFound
  13866. 897.06 s [opt-env-conf-test] - Just a -> Found a
  13867. 897.06 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13868. 897.06 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13869. 897.06 s [opt-env-conf-test] - Just ne -> do
  13870. 897.06 s [opt-env-conf-test] - res <- goConfSet confSet
  13871. 897.06 s [opt-env-conf-test] - case res of
  13872. 897.06 s [opt-env-conf-test] - Just a -> pure $ Found a
  13873. 897.06 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13874. 897.06 s [opt-env-conf-test] - goConfSets confSets
  13875. 897.06 s [opt-env-conf-test] - case mConf of
  13876. 897.06 s [opt-env-conf-test] - Found a -> do
  13877. 897.06 s [opt-env-conf-test] - markParsed
  13878. 897.06 s [opt-env-conf-test] - pure a
  13879. 897.06 s [opt-env-conf-test] - _ ->
  13880. 897.06 s [opt-env-conf-test] - case settingDefaultValue of
  13881. 897.06 s [opt-env-conf-test] - Just (a, _) -> do
  13882. 897.06 s [opt-env-conf-test] - debug ["set to default value"]
  13883. 897.06 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13884. 897.06 s [opt-env-conf-test] - Nothing -> do
  13885. 897.06 s [opt-env-conf-test] - let parseResultError e res = case res of
  13886. 897.06 s [opt-env-conf-test] - NotRun -> Nothing
  13887. 897.06 s [opt-env-conf-test] - NotFound -> Just e
  13888. 897.06 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13889. 897.06 s [opt-env-conf-test] - debug ["not found"]
  13890. 897.10 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13891. 897.10 s [opt-env-conf-test] - NE.nonEmpty $
  13892. 897.10 s [opt-env-conf-test] - catMaybes
  13893. 897.10 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13894. 897.10 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13895. 897.10 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13896. 897.10 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13897. 897.10 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13898. 897.10 s [opt-env-conf-test] - ]
  13899. 897.10 s [opt-env-conf-test] + case mEnv of
  13900. 897.10 s [opt-env-conf-test] + Found a -> do
  13901. 897.10 s [opt-env-conf-test] + markParsed
  13902. 897.10 s [opt-env-conf-test] + pure a
  13903. 897.10 s [opt-env-conf-test] + _ -> do
  13904. 897.10 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  13905. 897.10 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  13906. 897.10 s [opt-env-conf-test] + Nothing -> pure NotRun
  13907. 897.10 s [opt-env-conf-test] + Just confSets -> do
  13908. 897.10 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  13909. 897.10 s [opt-env-conf-test] + case mObj of
  13910. 897.10 s [opt-env-conf-test] + Nothing -> do
  13911. 897.10 s [opt-env-conf-test] + debug ["no config object to set from"]
  13912. 897.10 s [opt-env-conf-test] + pure NotFound
  13913. 897.10 s [opt-env-conf-test] + Just obj -> do
  13914. 897.10 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  13915. 897.10 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13916. 897.10 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13917. 897.10 s [opt-env-conf-test] + Nothing -> do
  13918. 897.10 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  13919. 897.10 s [opt-env-conf-test] + Nothing -> pure Nothing
  13920. 897.10 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  13921. 897.10 s [opt-env-conf-test] + Just neRest -> do
  13922. 897.10 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  13923. 897.10 s [opt-env-conf-test] + case mO' of
  13924. 897.10 s [opt-env-conf-test] + Nothing -> pure Nothing
  13925. 897.10 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  13926. 897.10 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  13927. 897.10 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13928. 897.10 s [opt-env-conf-test] + Right mV -> case mV of
  13929. 897.10 s [opt-env-conf-test] + Nothing -> do
  13930. 897.10 s [opt-env-conf-test] + debug
  13931. 897.10 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  13932. 897.10 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13933. 897.10 s [opt-env-conf-test] + ]
  13934. 897.10 s [opt-env-conf-test] + pure Nothing
  13935. 897.10 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13936. 897.11 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13937. 897.11 s [opt-env-conf-test] + Right mA -> case mA of
  13938. 897.11 s [opt-env-conf-test] + Nothing -> do
  13939. 897.11 s [opt-env-conf-test] + debug
  13940. 897.11 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  13941. 897.11 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13942. 897.11 s [opt-env-conf-test] + ]
  13943. 897.11 s [opt-env-conf-test] + pure Nothing
  13944. 897.11 s [opt-env-conf-test] + Just a -> do
  13945. 897.11 s [opt-env-conf-test] + debug
  13946. 897.11 s [opt-env-conf-test] + [ "set based on config value: ",
  13947. 897.11 s [opt-env-conf-test] + chunk $ T.pack $ show v
  13948. 897.11 s [opt-env-conf-test] + ]
  13949. 897.11 s [opt-env-conf-test] + pure $ Just a
  13950. 897.11 s [opt-env-conf-test] + let toRes = \case
  13951. 897.11 s [opt-env-conf-test] + Nothing -> NotFound
  13952. 897.11 s [opt-env-conf-test] + Just a -> Found a
  13953. 897.11 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13954. 897.11 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  13955. 897.11 s [opt-env-conf-test] + Just ne -> do
  13956. 897.11 s [opt-env-conf-test] + res <- goConfSet confSet
  13957. 897.11 s [opt-env-conf-test] + case res of
  13958. 897.11 s [opt-env-conf-test] + Just a -> pure $ Found a
  13959. 897.11 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13960. 897.11 s [opt-env-conf-test] + goConfSets confSets
  13961. 897.11 s [opt-env-conf-test] + case mConf of
  13962. 897.11 s [opt-env-conf-test] + Found a -> do
  13963. 897.11 s [opt-env-conf-test] + markParsed
  13964. 897.11 s [opt-env-conf-test] + pure a
  13965. 897.11 s [opt-env-conf-test] + _ ->
  13966. 897.11 s [opt-env-conf-test] + case settingDefaultValue of
  13967. 897.11 s [opt-env-conf-test] + Just (a, _) -> do
  13968. 897.11 s [opt-env-conf-test] + debug ["set to default value"]
  13969. 897.11 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13970. 897.11 s [opt-env-conf-test] + Nothing -> do
  13971. 897.11 s [opt-env-conf-test] + let parseResultError e res = case res of
  13972. 897.11 s [opt-env-conf-test] + NotRun -> Nothing
  13973. 897.11 s [opt-env-conf-test] + NotFound -> Just e
  13974. 897.11 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13975. 897.11 s [opt-env-conf-test] + debug ["not found"]
  13976. 897.11 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13977. 897.11 s [opt-env-conf-test] + NE.nonEmpty $
  13978. 897.11 s [opt-env-conf-test] + catMaybes
  13979. 897.11 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13980. 897.11 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13981. 897.11 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13982. 897.11 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13983. 897.11 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13984. 897.11 s [opt-env-conf-test] + ]
  13985. 897.11 s [opt-env-conf-test]
  13986. 897.11 s [opt-env-conf-test] withCapabilities ::
  13987. 897.11 s [opt-env-conf-test] Maybe SrcLoc ->
  13988. 897.11 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
  13989. 897.11 s [opt-env-conf-test] @@ -366,92 +366,92 @@
  13990. 897.11 s [opt-env-conf-test] pure NotFound
  13991. 897.11 s [opt-env-conf-test] Just a -> pure $ Found a
  13992. 897.11 s [opt-env-conf-test]
  13993. 897.11 s [opt-env-conf-test] - case mEnv of
  13994. 897.11 s [opt-env-conf-test] - Found a -> do
  13995. 897.11 s [opt-env-conf-test] - markParsed
  13996. 897.11 s [opt-env-conf-test] - pure a
  13997. 897.11 s [opt-env-conf-test] - _ -> do
  13998. 897.11 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  13999. 897.11 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  14000. 897.11 s [opt-env-conf-test] - Nothing -> pure NotRun
  14001. 897.11 s [opt-env-conf-test] - Just confSets -> do
  14002. 897.11 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  14003. 897.11 s [opt-env-conf-test] - case mObj of
  14004. 897.11 s [opt-env-conf-test] - Nothing -> do
  14005. 897.11 s [opt-env-conf-test] - debug ["no config object to set from"]
  14006. 897.11 s [opt-env-conf-test] - pure NotFound
  14007. 897.11 s [opt-env-conf-test] - Just obj -> do
  14008. 897.11 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  14009. 897.11 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14010. 897.11 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14011. 897.11 s [opt-env-conf-test] - Nothing -> do
  14012. 897.11 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  14013. 897.11 s [opt-env-conf-test] - Nothing -> pure Nothing
  14014. 897.11 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  14015. 897.11 s [opt-env-conf-test] - Just neRest -> do
  14016. 897.11 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  14017. 897.11 s [opt-env-conf-test] - case mO' of
  14018. 897.11 s [opt-env-conf-test] - Nothing -> pure Nothing
  14019. 897.11 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  14020. 897.12 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  14021. 897.12 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14022. 897.12 s [opt-env-conf-test] - Right mV -> case mV of
  14023. 897.12 s [opt-env-conf-test] - Nothing -> do
  14024. 897.12 s [opt-env-conf-test] - debug
  14025. 897.12 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  14026. 897.12 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14027. 897.12 s [opt-env-conf-test] - ]
  14028. 897.12 s [opt-env-conf-test] - pure Nothing
  14029. 897.12 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14030. 897.12 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14031. 897.12 s [opt-env-conf-test] - Right mA -> case mA of
  14032. 897.12 s [opt-env-conf-test] - Nothing -> do
  14033. 897.12 s [opt-env-conf-test] - debug
  14034. 897.12 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  14035. 897.12 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14036. 897.12 s [opt-env-conf-test] - ]
  14037. 897.12 s [opt-env-conf-test] - pure Nothing
  14038. 897.12 s [opt-env-conf-test] - Just a -> do
  14039. 897.12 s [opt-env-conf-test] - debug
  14040. 897.12 s [opt-env-conf-test] - [ "set based on config value: ",
  14041. 897.12 s [opt-env-conf-test] - chunk $ T.pack $ show v
  14042. 897.12 s [opt-env-conf-test] - ]
  14043. 897.12 s [opt-env-conf-test] - pure $ Just a
  14044. 897.12 s [opt-env-conf-test] - let toRes = \case
  14045. 897.12 s [opt-env-conf-test] - Nothing -> NotFound
  14046. 897.12 s [opt-env-conf-test] - Just a -> Found a
  14047. 897.12 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14048. 897.12 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  14049. 897.12 s [opt-env-conf-test] - Just ne -> do
  14050. 897.12 s [opt-env-conf-test] - res <- goConfSet confSet
  14051. 897.12 s [opt-env-conf-test] - case res of
  14052. 897.12 s [opt-env-conf-test] - Just a -> pure $ Found a
  14053. 897.12 s [opt-env-conf-test] - Nothing -> goConfSets ne
  14054. 897.12 s [opt-env-conf-test] - goConfSets confSets
  14055. 897.12 s [opt-env-conf-test] - case mConf of
  14056. 897.12 s [opt-env-conf-test] - Found a -> do
  14057. 897.12 s [opt-env-conf-test] - markParsed
  14058. 897.12 s [opt-env-conf-test] - pure a
  14059. 897.12 s [opt-env-conf-test] - _ ->
  14060. 897.12 s [opt-env-conf-test] - case settingDefaultValue of
  14061. 897.12 s [opt-env-conf-test] - Just (a, _) -> do
  14062. 897.12 s [opt-env-conf-test] - debug ["set to default value"]
  14063. 897.12 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  14064. 897.12 s [opt-env-conf-test] - Nothing -> do
  14065. 897.12 s [opt-env-conf-test] - let parseResultError e res = case res of
  14066. 897.12 s [opt-env-conf-test] - NotRun -> Nothing
  14067. 897.12 s [opt-env-conf-test] - NotFound -> Just e
  14068. 897.12 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14069. 897.12 s [opt-env-conf-test] - debug ["not found"]
  14070. 897.12 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14071. 897.12 s [opt-env-conf-test] - NE.nonEmpty $
  14072. 897.12 s [opt-env-conf-test] - catMaybes
  14073. 897.12 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14074. 897.12 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14075. 897.12 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14076. 897.12 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14077. 897.12 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14078. 897.12 s [opt-env-conf-test] - ]
  14079. 897.12 s [opt-env-conf-test] + case mEnv of
  14080. 897.12 s [opt-env-conf-test] + Found a -> do
  14081. 897.12 s [opt-env-conf-test] + markParsed
  14082. 897.12 s [opt-env-conf-test] + pure a
  14083. 897.12 s [opt-env-conf-test] + _ -> do
  14084. 897.12 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  14085. 897.12 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  14086. 897.12 s [opt-env-conf-test] + Nothing -> pure NotRun
  14087. 897.12 s [opt-env-conf-test] + Just confSets -> do
  14088. 897.12 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  14089. 897.12 s [opt-env-conf-test] + case mObj of
  14090. 897.12 s [opt-env-conf-test] + Nothing -> do
  14091. 897.12 s [opt-env-conf-test] + debug ["no config object to set from"]
  14092. 897.12 s [opt-env-conf-test] + pure NotFound
  14093. 897.12 s [opt-env-conf-test] + Just obj -> do
  14094. 897.12 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  14095. 897.12 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14096. 897.12 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14097. 897.12 s [opt-env-conf-test] + Nothing -> do
  14098. 897.12 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  14099. 897.12 s [opt-env-conf-test] + Nothing -> pure Nothing
  14100. 897.12 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  14101. 897.12 s [opt-env-conf-test] + Just neRest -> do
  14102. 897.12 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  14103. 897.12 s [opt-env-conf-test] + case mO' of
  14104. 897.12 s [opt-env-conf-test] + Nothing -> pure Nothing
  14105. 897.12 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  14106. 897.12 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  14107. 897.12 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14108. 897.12 s [opt-env-conf-test] + Right mV -> case mV of
  14109. 897.12 s [opt-env-conf-test] + Nothing -> do
  14110. 897.12 s [opt-env-conf-test] + debug
  14111. 897.12 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  14112. 897.12 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14113. 897.12 s [opt-env-conf-test] + ]
  14114. 897.12 s [opt-env-conf-test] + pure Nothing
  14115. 897.12 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14116. 897.12 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14117. 897.12 s [opt-env-conf-test] + Right mA -> case mA of
  14118. 897.12 s [opt-env-conf-test] + Nothing -> do
  14119. 897.12 s [opt-env-conf-test] + debug
  14120. 897.12 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  14121. 897.12 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14122. 897.12 s [opt-env-conf-test] + ]
  14123. 897.12 s [opt-env-conf-test] + pure Nothing
  14124. 897.12 s [opt-env-conf-test] + Just a -> do
  14125. 897.12 s [opt-env-conf-test] + debug
  14126. 897.12 s [opt-env-conf-test] + [ "set based on config value: ",
  14127. 897.12 s [opt-env-conf-test] + chunk $ T.pack $ show v
  14128. 897.12 s [opt-env-conf-test] + ]
  14129. 897.12 s [opt-env-conf-test] + pure $ Just a
  14130. 897.12 s [opt-env-conf-test] + let toRes = \case
  14131. 897.12 s [opt-env-conf-test] + Nothing -> NotFound
  14132. 897.12 s [opt-env-conf-test] + Just a -> Found a
  14133. 897.56 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14134. 897.56 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  14135. 897.56 s [opt-env-conf-test] + Just ne -> do
  14136. 897.56 s [opt-env-conf-test] + res <- goConfSet confSet
  14137. 897.56 s [opt-env-conf-test] + case res of
  14138. 897.56 s [opt-env-conf-test] + Just a -> pure $ Found a
  14139. 897.56 s [opt-env-conf-test] + Nothing -> goConfSets ne
  14140. 897.56 s [opt-env-conf-test] + goConfSets confSets
  14141. 897.56 s [opt-env-conf-test] + case mConf of
  14142. 897.56 s [opt-env-conf-test] + Found a -> do
  14143. 897.56 s [opt-env-conf-test] + markParsed
  14144. 897.56 s [opt-env-conf-test] + pure a
  14145. 897.56 s [opt-env-conf-test] + _ ->
  14146. 897.56 s [opt-env-conf-test] + case settingDefaultValue of
  14147. 897.56 s [opt-env-conf-test] + Just (a, _) -> do
  14148. 897.56 s [opt-env-conf-test] + debug ["set to default value"]
  14149. 897.56 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  14150. 897.56 s [opt-env-conf-test] + Nothing -> do
  14151. 897.56 s [opt-env-conf-test] + let parseResultError e res = case res of
  14152. 897.56 s [opt-env-conf-test] + NotRun -> Nothing
  14153. 897.56 s [opt-env-conf-test] + NotFound -> Just e
  14154. 897.56 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14155. 897.56 s [opt-env-conf-test] + debug ["not found"]
  14156. 897.56 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14157. 897.56 s [opt-env-conf-test] + NE.nonEmpty $
  14158. 897.56 s [opt-env-conf-test] + catMaybes
  14159. 897.56 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14160. 897.56 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14161. 897.56 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14162. 897.56 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14163. 897.56 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14164. 897.56 s [opt-env-conf-test] + ]
  14165. 897.56 s [opt-env-conf-test]
  14166. 897.56 s [opt-env-conf-test] withCapabilities ::
  14167. 897.56 s [opt-env-conf-test] Maybe SrcLoc ->
  14168. 897.56 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
  14169. 897.56 s [opt-env-conf-test] @@ -330,128 +330,128 @@
  14170. 897.57 s [opt-env-conf-test] pure $ Found a
  14171. 897.57 s [opt-env-conf-test] else pure NotRun
  14172. 897.57 s [opt-env-conf-test]
  14173. 897.57 s [opt-env-conf-test] - case mOpt of
  14174. 897.57 s [opt-env-conf-test] - Found a -> do
  14175. 897.57 s [opt-env-conf-test] - markParsed
  14176. 897.57 s [opt-env-conf-test] - pure a
  14177. 897.57 s [opt-env-conf-test] - _ -> do
  14178. 897.57 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  14179. 897.57 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  14180. 897.57 s [opt-env-conf-test] - Nothing -> pure NotRun
  14181. 897.57 s [opt-env-conf-test] - Just ne -> do
  14182. 897.57 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  14183. 897.57 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14184. 897.57 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14185. 897.57 s [opt-env-conf-test] - es <- asks ppEnvEnv
  14186. 897.57 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14187. 897.57 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  14188. 897.57 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  14189. 897.57 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  14190. 897.57 s [opt-env-conf-test] - -- result.
  14191. 897.57 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  14192. 897.57 s [opt-env-conf-test] - case tryReaders rs varStr of
  14193. 897.57 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14194. 897.57 s [opt-env-conf-test] - Right a -> do
  14195. 897.57 s [opt-env-conf-test] - debug
  14196. 897.57 s [opt-env-conf-test] - [ "set based on env: ",
  14197. 897.57 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  14198. 897.57 s [opt-env-conf-test] - ]
  14199. 897.57 s [opt-env-conf-test] - pure a
  14200. 897.57 s [opt-env-conf-test] - case listToMaybe results of
  14201. 897.57 s [opt-env-conf-test] - Nothing -> do
  14202. 897.57 s [opt-env-conf-test] - debug
  14203. 897.57 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  14204. 897.57 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14205. 897.57 s [opt-env-conf-test] - ]
  14206. 897.57 s [opt-env-conf-test] - pure NotFound
  14207. 897.57 s [opt-env-conf-test] - Just a -> pure $ Found a
  14208. 897.57 s [opt-env-conf-test] -
  14209. 897.57 s [opt-env-conf-test] - case mEnv of
  14210. 897.57 s [opt-env-conf-test] - Found a -> do
  14211. 897.57 s [opt-env-conf-test] - markParsed
  14212. 897.57 s [opt-env-conf-test] - pure a
  14213. 897.57 s [opt-env-conf-test] - _ -> do
  14214. 897.57 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  14215. 897.57 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  14216. 897.57 s [opt-env-conf-test] - Nothing -> pure NotRun
  14217. 897.57 s [opt-env-conf-test] - Just confSets -> do
  14218. 897.57 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  14219. 897.57 s [opt-env-conf-test] - case mObj of
  14220. 897.57 s [opt-env-conf-test] - Nothing -> do
  14221. 897.57 s [opt-env-conf-test] - debug ["no config object to set from"]
  14222. 897.57 s [opt-env-conf-test] - pure NotFound
  14223. 897.57 s [opt-env-conf-test] - Just obj -> do
  14224. 897.57 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  14225. 897.57 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14226. 897.57 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14227. 897.57 s [opt-env-conf-test] - Nothing -> do
  14228. 897.57 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  14229. 897.57 s [opt-env-conf-test] - Nothing -> pure Nothing
  14230. 897.57 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  14231. 897.57 s [opt-env-conf-test] - Just neRest -> do
  14232. 897.57 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  14233. 897.57 s [opt-env-conf-test] - case mO' of
  14234. 897.57 s [opt-env-conf-test] - Nothing -> pure Nothing
  14235. 897.57 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  14236. 897.57 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  14237. 897.57 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14238. 897.57 s [opt-env-conf-test] - Right mV -> case mV of
  14239. 897.57 s [opt-env-conf-test] - Nothing -> do
  14240. 897.57 s [opt-env-conf-test] - debug
  14241. 897.57 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  14242. 897.57 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14243. 897.57 s [opt-env-conf-test] - ]
  14244. 897.57 s [opt-env-conf-test] - pure Nothing
  14245. 897.57 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14246. 897.57 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14247. 897.57 s [opt-env-conf-test] - Right mA -> case mA of
  14248. 897.57 s [opt-env-conf-test] - Nothing -> do
  14249. 897.57 s [opt-env-conf-test] - debug
  14250. 897.57 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  14251. 897.57 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14252. 897.57 s [opt-env-conf-test] - ]
  14253. 897.58 s [opt-env-conf-test] - pure Nothing
  14254. 897.58 s [opt-env-conf-test] - Just a -> do
  14255. 897.58 s [opt-env-conf-test] - debug
  14256. 897.58 s [opt-env-conf-test] - [ "set based on config value: ",
  14257. 897.58 s [opt-env-conf-test] - chunk $ T.pack $ show v
  14258. 897.58 s [opt-env-conf-test] - ]
  14259. 897.58 s [opt-env-conf-test] - pure $ Just a
  14260. 897.58 s [opt-env-conf-test] - let toRes = \case
  14261. 897.58 s [opt-env-conf-test] - Nothing -> NotFound
  14262. 897.58 s [opt-env-conf-test] - Just a -> Found a
  14263. 897.58 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14264. 897.58 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  14265. 897.58 s [opt-env-conf-test] - Just ne -> do
  14266. 897.58 s [opt-env-conf-test] - res <- goConfSet confSet
  14267. 897.58 s [opt-env-conf-test] - case res of
  14268. 897.58 s [opt-env-conf-test] - Just a -> pure $ Found a
  14269. 897.58 s [opt-env-conf-test] - Nothing -> goConfSets ne
  14270. 897.58 s [opt-env-conf-test] - goConfSets confSets
  14271. 897.58 s [opt-env-conf-test] - case mConf of
  14272. 897.58 s [opt-env-conf-test] - Found a -> do
  14273. 897.58 s [opt-env-conf-test] - markParsed
  14274. 897.58 s [opt-env-conf-test] - pure a
  14275. 897.58 s [opt-env-conf-test] - _ ->
  14276. 897.58 s [opt-env-conf-test] - case settingDefaultValue of
  14277. 897.58 s [opt-env-conf-test] - Just (a, _) -> do
  14278. 897.58 s [opt-env-conf-test] - debug ["set to default value"]
  14279. 897.58 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  14280. 897.58 s [opt-env-conf-test] - Nothing -> do
  14281. 897.58 s [opt-env-conf-test] - let parseResultError e res = case res of
  14282. 897.58 s [opt-env-conf-test] - NotRun -> Nothing
  14283. 897.58 s [opt-env-conf-test] - NotFound -> Just e
  14284. 897.58 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14285. 897.58 s [opt-env-conf-test] - debug ["not found"]
  14286. 897.58 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14287. 897.58 s [opt-env-conf-test] - NE.nonEmpty $
  14288. 897.58 s [opt-env-conf-test] - catMaybes
  14289. 897.58 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14290. 897.58 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14291. 897.58 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14292. 897.58 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14293. 897.58 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14294. 897.58 s [opt-env-conf-test] - ]
  14295. 897.58 s [opt-env-conf-test] + case mOpt of
  14296. 897.58 s [opt-env-conf-test] + Found a -> do
  14297. 897.58 s [opt-env-conf-test] + markParsed
  14298. 897.58 s [opt-env-conf-test] + pure a
  14299. 897.58 s [opt-env-conf-test] + _ -> do
  14300. 897.58 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  14301. 897.58 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  14302. 897.58 s [opt-env-conf-test] + Nothing -> pure NotRun
  14303. 897.58 s [opt-env-conf-test] + Just ne -> do
  14304. 897.58 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  14305. 897.58 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  14306. 897.58 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  14307. 897.58 s [opt-env-conf-test] + es <- asks ppEnvEnv
  14308. 897.58 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14309. 897.58 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  14310. 897.58 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  14311. 897.58 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  14312. 897.58 s [opt-env-conf-test] + -- result.
  14313. 897.58 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  14314. 897.58 s [opt-env-conf-test] + case tryReaders rs varStr of
  14315. 897.58 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14316. 897.58 s [opt-env-conf-test] + Right a -> do
  14317. 897.58 s [opt-env-conf-test] + debug
  14318. 897.58 s [opt-env-conf-test] + [ "set based on env: ",
  14319. 897.58 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  14320. 897.58 s [opt-env-conf-test] + ]
  14321. 897.58 s [opt-env-conf-test] + pure a
  14322. 897.58 s [opt-env-conf-test] + case listToMaybe results of
  14323. 897.58 s [opt-env-conf-test] + Nothing -> do
  14324. 897.58 s [opt-env-conf-test] + debug
  14325. 897.58 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  14326. 897.58 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14327. 897.58 s [opt-env-conf-test] + ]
  14328. 897.58 s [opt-env-conf-test] + pure NotFound
  14329. 897.58 s [opt-env-conf-test] + Just a -> pure $ Found a
  14330. 897.58 s [opt-env-conf-test] +
  14331. 897.58 s [opt-env-conf-test] + case mEnv of
  14332. 897.58 s [opt-env-conf-test] + Found a -> do
  14333. 897.58 s [opt-env-conf-test] + markParsed
  14334. 897.58 s [opt-env-conf-test] + pure a
  14335. 897.58 s [opt-env-conf-test] + _ -> do
  14336. 897.58 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  14337. 897.58 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  14338. 897.58 s [opt-env-conf-test] + Nothing -> pure NotRun
  14339. 897.58 s [opt-env-conf-test] + Just confSets -> do
  14340. 897.58 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  14341. 897.58 s [opt-env-conf-test] + case mObj of
  14342. 897.58 s [opt-env-conf-test] + Nothing -> do
  14343. 897.58 s [opt-env-conf-test] + debug ["no config object to set from"]
  14344. 897.58 s [opt-env-conf-test] + pure NotFound
  14345. 897.58 s [opt-env-conf-test] + Just obj -> do
  14346. 897.58 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  14347. 897.58 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14348. 897.58 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14349. 897.58 s [opt-env-conf-test] + Nothing -> do
  14350. 897.58 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  14351. 897.58 s [opt-env-conf-test] + Nothing -> pure Nothing
  14352. 897.58 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  14353. 897.58 s [opt-env-conf-test] + Just neRest -> do
  14354. 897.58 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  14355. 897.58 s [opt-env-conf-test] + case mO' of
  14356. 897.58 s [opt-env-conf-test] + Nothing -> pure Nothing
  14357. 897.58 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  14358. 897.58 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  14359. 897.58 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14360. 897.58 s [opt-env-conf-test] + Right mV -> case mV of
  14361. 897.58 s [opt-env-conf-test] + Nothing -> do
  14362. 897.58 s [opt-env-conf-test] + debug
  14363. 897.58 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  14364. 897.58 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14365. 897.58 s [opt-env-conf-test] + ]
  14366. 897.58 s [opt-env-conf-test] + pure Nothing
  14367. 897.58 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14368. 897.58 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14369. 897.58 s [opt-env-conf-test] + Right mA -> case mA of
  14370. 897.58 s [opt-env-conf-test] + Nothing -> do
  14371. 897.59 s [opt-env-conf-test] + debug
  14372. 897.59 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  14373. 897.59 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14374. 897.59 s [opt-env-conf-test] + ]
  14375. 897.59 s [opt-env-conf-test] + pure Nothing
  14376. 897.59 s [opt-env-conf-test] + Just a -> do
  14377. 897.59 s [opt-env-conf-test] + debug
  14378. 897.59 s [opt-env-conf-test] + [ "set based on config value: ",
  14379. 897.59 s [opt-env-conf-test] + chunk $ T.pack $ show v
  14380. 897.59 s [opt-env-conf-test] + ]
  14381. 897.59 s [opt-env-conf-test] + pure $ Just a
  14382. 897.59 s [opt-env-conf-test] + let toRes = \case
  14383. 897.59 s [opt-env-conf-test] + Nothing -> NotFound
  14384. 897.59 s [opt-env-conf-test] + Just a -> Found a
  14385. 897.59 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14386. 897.59 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  14387. 897.59 s [opt-env-conf-test] + Just ne -> do
  14388. 897.59 s [opt-env-conf-test] + res <- goConfSet confSet
  14389. 897.59 s [opt-env-conf-test] + case res of
  14390. 897.59 s [opt-env-conf-test] + Just a -> pure $ Found a
  14391. 897.59 s [opt-env-conf-test] + Nothing -> goConfSets ne
  14392. 897.59 s [opt-env-conf-test] + goConfSets confSets
  14393. 897.59 s [opt-env-conf-test] + case mConf of
  14394. 898.14 s [opt-env-conf-test] + Found a -> do
  14395. 898.14 s [opt-env-conf-test] + markParsed
  14396. 898.14 s [opt-env-conf-test] + pure a
  14397. 898.14 s [opt-env-conf-test] + _ ->
  14398. 898.14 s [opt-env-conf-test] + case settingDefaultValue of
  14399. 898.14 s [opt-env-conf-test] + Just (a, _) -> do
  14400. 898.14 s [opt-env-conf-test] + debug ["set to default value"]
  14401. 898.14 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  14402. 898.14 s [opt-env-conf-test] + Nothing -> do
  14403. 898.14 s [opt-env-conf-test] + let parseResultError e res = case res of
  14404. 898.14 s [opt-env-conf-test] + NotRun -> Nothing
  14405. 898.14 s [opt-env-conf-test] + NotFound -> Just e
  14406. 898.14 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14407. 898.14 s [opt-env-conf-test] + debug ["not found"]
  14408. 898.14 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14409. 898.14 s [opt-env-conf-test] + NE.nonEmpty $
  14410. 898.14 s [opt-env-conf-test] + catMaybes
  14411. 898.14 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14412. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14413. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14414. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14415. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14416. 898.15 s [opt-env-conf-test] + ]
  14417. 898.15 s [opt-env-conf-test]
  14418. 898.15 s [opt-env-conf-test] withCapabilities ::
  14419. 898.15 s [opt-env-conf-test] Maybe SrcLoc ->
  14420. 898.15 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:440:44-42
  14421. 898.15 s [opt-env-conf-test] @@ -437,21 +437,21 @@
  14422. 898.15 s [opt-env-conf-test] Just (a, _) -> do
  14423. 898.15 s [opt-env-conf-test] debug ["set to default value"]
  14424. 898.15 s [opt-env-conf-test] pure a -- Don't mark as parsed
  14425. 898.15 s [opt-env-conf-test] - Nothing -> do
  14426. 898.15 s [opt-env-conf-test] - let parseResultError e res = case res of
  14427. 898.15 s [opt-env-conf-test] - NotRun -> Nothing
  14428. 898.15 s [opt-env-conf-test] - NotFound -> Just e
  14429. 898.15 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14430. 898.15 s [opt-env-conf-test] - debug ["not found"]
  14431. 898.15 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14432. 898.15 s [opt-env-conf-test] - NE.nonEmpty $
  14433. 898.15 s [opt-env-conf-test] - catMaybes
  14434. 898.15 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14435. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14436. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14437. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14438. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14439. 898.15 s [opt-env-conf-test] - ]
  14440. 898.15 s [opt-env-conf-test] + Nothing -> do
  14441. 898.15 s [opt-env-conf-test] + let parseResultError e res = case res of
  14442. 898.15 s [opt-env-conf-test] + NotRun -> Nothing
  14443. 898.15 s [opt-env-conf-test] + NotFound -> Just e
  14444. 898.15 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14445. 898.15 s [opt-env-conf-test] + debug ["not found"]
  14446. 898.15 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14447. 898.15 s [opt-env-conf-test] + NE.nonEmpty $
  14448. 898.15 s [opt-env-conf-test] + catMaybes
  14449. 898.15 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14450. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14451. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14452. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14453. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14454. 898.15 s [opt-env-conf-test] + ]
  14455. 898.15 s [opt-env-conf-test]
  14456. 898.15 s [opt-env-conf-test] withCapabilities ::
  14457. 898.15 s [opt-env-conf-test] Maybe SrcLoc ->
  14458. 898.15 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
  14459. 898.15 s [opt-env-conf-test] @@ -433,25 +433,25 @@
  14460. 898.15 s [opt-env-conf-test] markParsed
  14461. 898.15 s [opt-env-conf-test] pure a
  14462. 898.15 s [opt-env-conf-test] _ ->
  14463. 898.15 s [opt-env-conf-test] - case settingDefaultValue of
  14464. 898.15 s [opt-env-conf-test] - Just (a, _) -> do
  14465. 898.15 s [opt-env-conf-test] - debug ["set to default value"]
  14466. 898.15 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  14467. 898.15 s [opt-env-conf-test] - Nothing -> do
  14468. 898.15 s [opt-env-conf-test] - let parseResultError e res = case res of
  14469. 898.15 s [opt-env-conf-test] - NotRun -> Nothing
  14470. 898.15 s [opt-env-conf-test] - NotFound -> Just e
  14471. 898.15 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14472. 898.15 s [opt-env-conf-test] - debug ["not found"]
  14473. 898.15 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14474. 898.15 s [opt-env-conf-test] - NE.nonEmpty $
  14475. 898.15 s [opt-env-conf-test] - catMaybes
  14476. 898.15 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14477. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14478. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14479. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14480. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14481. 898.15 s [opt-env-conf-test] - ]
  14482. 898.15 s [opt-env-conf-test] + case settingDefaultValue of
  14483. 898.15 s [opt-env-conf-test] + Just (a, _) -> do
  14484. 898.15 s [opt-env-conf-test] + debug ["set to default value"]
  14485. 898.15 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  14486. 898.15 s [opt-env-conf-test] + Nothing -> do
  14487. 898.15 s [opt-env-conf-test] + let parseResultError e res = case res of
  14488. 898.15 s [opt-env-conf-test] + NotRun -> Nothing
  14489. 898.15 s [opt-env-conf-test] + NotFound -> Just e
  14490. 898.15 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14491. 898.15 s [opt-env-conf-test] + debug ["not found"]
  14492. 898.15 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14493. 898.15 s [opt-env-conf-test] + NE.nonEmpty $
  14494. 898.15 s [opt-env-conf-test] + catMaybes
  14495. 898.15 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14496. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14497. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14498. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14499. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14500. 898.15 s [opt-env-conf-test] + ]
  14501. 898.15 s [opt-env-conf-test]
  14502. 898.15 s [opt-env-conf-test] withCapabilities ::
  14503. 898.15 s [opt-env-conf-test] Maybe SrcLoc ->
  14504. 898.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  14505. 898.15 s [opt-env-conf-test] @@ -446,12 +446,12 @@
  14506. 898.15 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14507. 898.15 s [opt-env-conf-test] NE.nonEmpty $
  14508. 898.15 s [opt-env-conf-test] catMaybes
  14509. 898.15 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14510. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14511. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14512. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14513. 898.15 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14514. 898.15 s [opt-env-conf-test] - ]
  14515. 898.15 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14516. 898.15 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14517. 898.97 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14518. 898.97 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14519. 898.97 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14520. 898.97 s [opt-env-conf-test] + ]
  14521. 898.97 s [opt-env-conf-test]
  14522. 898.97 s [opt-env-conf-test] withCapabilities ::
  14523. 898.97 s [opt-env-conf-test] Maybe SrcLoc ->
  14524. 898.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  14525. 898.97 s [opt-env-conf-test] @@ -438,10 +438,10 @@
  14526. 898.97 s [opt-env-conf-test] debug ["set to default value"]
  14527. 898.97 s [opt-env-conf-test] pure a -- Don't mark as parsed
  14528. 898.97 s [opt-env-conf-test] Nothing -> do
  14529. 898.97 s [opt-env-conf-test] - let parseResultError e res = case res of
  14530. 898.97 s [opt-env-conf-test] - NotRun -> Nothing
  14531. 898.97 s [opt-env-conf-test] - NotFound -> Just e
  14532. 898.97 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14533. 898.97 s [opt-env-conf-test] + let parseResultError e res = case res of
  14534. 898.97 s [opt-env-conf-test] + NotRun -> Nothing
  14535. 898.97 s [opt-env-conf-test] + NotFound -> Just e
  14536. 898.97 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14537. 898.97 s [opt-env-conf-test] debug ["not found"]
  14538. 898.97 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14539. 898.97 s [opt-env-conf-test] NE.nonEmpty $
  14540. 898.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
  14541. 898.97 s [opt-env-conf-test] @@ -579,21 +579,21 @@
  14542. 898.97 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  14543. 898.97 s [opt-env-conf-test] ppIndent $ do
  14544. 898.97 s [opt-env-conf-test] mS <- ppArg
  14545. 898.97 s [opt-env-conf-test] - case mS of
  14546. 898.98 s [opt-env-conf-test] - Nothing -> do
  14547. 898.98 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  14548. 898.98 s [opt-env-conf-test] - pure Nothing
  14549. 898.98 s [opt-env-conf-test] - Just s -> do
  14550. 898.98 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  14551. 898.98 s [opt-env-conf-test] - Nothing -> do
  14552. 898.98 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  14553. 898.98 s [opt-env-conf-test] - pure Nothing
  14554. 898.98 s [opt-env-conf-test] - Just c -> do
  14555. 898.98 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  14556. 898.98 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  14557. 898.98 s [opt-env-conf-test] - pure $ case mRes of
  14558. 898.98 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  14559. 898.98 s [opt-env-conf-test] - Just res -> pure res
  14560. 898.98 s [opt-env-conf-test] + case mS of
  14561. 898.98 s [opt-env-conf-test] + Nothing -> do
  14562. 898.98 s [opt-env-conf-test] + debug ["No argument found for choosing a command."]
  14563. 898.98 s [opt-env-conf-test] + pure Nothing
  14564. 898.98 s [opt-env-conf-test] + Just s -> do
  14565. 898.98 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  14566. 898.98 s [opt-env-conf-test] + Nothing -> do
  14567. 898.98 s [opt-env-conf-test] + debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  14568. 898.98 s [opt-env-conf-test] + pure Nothing
  14569. 898.98 s [opt-env-conf-test] + Just c -> do
  14570. 898.98 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  14571. 898.98 s [opt-env-conf-test] + mRes <- go' (commandArg c : path) $ commandParser c
  14572. 898.98 s [opt-env-conf-test] + pure $ case mRes of
  14573. 898.98 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  14574. 898.98 s [opt-env-conf-test] + Just res -> pure res
  14575. 898.98 s [opt-env-conf-test]
  14576. 898.98 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  14577. 898.98 s [opt-env-conf-test] deriving
  14578. 898.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
  14579. 898.98 s [opt-env-conf-test] @@ -204,23 +204,23 @@
  14580. 898.98 s [opt-env-conf-test] ppIndent $ do
  14581. 898.98 s [opt-env-conf-test] mS <- ppArg
  14582. 898.98 s [opt-env-conf-test] let docsForErrors = map (void . commandParserDocs) cs
  14583. 898.98 s [opt-env-conf-test] - case mS of
  14584. 898.98 s [opt-env-conf-test] - Nothing -> do
  14585. 898.98 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  14586. 898.98 s [opt-env-conf-test] - let mDefaultCommand = do
  14587. 898.98 s [opt-env-conf-test] - d <- mDefault
  14588. 898.98 s [opt-env-conf-test] - find ((== d) . commandArg) cs
  14589. 898.98 s [opt-env-conf-test] - case mDefaultCommand of
  14590. 898.98 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  14591. 898.98 s [opt-env-conf-test] - Just dc -> do
  14592. 898.98 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  14593. 898.98 s [opt-env-conf-test] - go $ commandParser dc
  14594. 898.98 s [opt-env-conf-test] - Just s -> do
  14595. 898.98 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  14596. 898.98 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  14597. 898.98 s [opt-env-conf-test] - Just c -> do
  14598. 898.98 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  14599. 898.98 s [opt-env-conf-test] - go $ commandParser c
  14600. 898.98 s [opt-env-conf-test] + case mS of
  14601. 898.98 s [opt-env-conf-test] + Nothing -> do
  14602. 898.98 s [opt-env-conf-test] + debug ["No argument found for choosing a command."]
  14603. 898.98 s [opt-env-conf-test] + let mDefaultCommand = do
  14604. 898.98 s [opt-env-conf-test] + d <- mDefault
  14605. 898.98 s [opt-env-conf-test] + find ((== d) . commandArg) cs
  14606. 898.98 s [opt-env-conf-test] + case mDefaultCommand of
  14607. 898.98 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  14608. 898.98 s [opt-env-conf-test] + Just dc -> do
  14609. 898.98 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  14610. 898.98 s [opt-env-conf-test] + go $ commandParser dc
  14611. 898.98 s [opt-env-conf-test] + Just s -> do
  14612. 898.98 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  14613. 898.98 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  14614. 898.98 s [opt-env-conf-test] + Just c -> do
  14615. 898.99 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  14616. 898.99 s [opt-env-conf-test] + go $ commandParser c
  14617. 898.99 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  14618. 898.99 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  14619. 898.99 s [opt-env-conf-test] ppIndent $ do
  14620. 898.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  14621. 898.99 s [opt-env-conf-test] @@ -438,10 +438,10 @@
  14622. 898.99 s [opt-env-conf-test] debug ["set to default value"]
  14623. 898.99 s [opt-env-conf-test] pure a -- Don't mark as parsed
  14624. 898.99 s [opt-env-conf-test] Nothing -> do
  14625. 898.99 s [opt-env-conf-test] - let parseResultError e res = case res of
  14626. 898.99 s [opt-env-conf-test] - NotRun -> Nothing
  14627. 898.99 s [opt-env-conf-test] - NotFound -> Just e
  14628. 898.99 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14629. 898.99 s [opt-env-conf-test] + let parseResultError e res = case res of
  14630. 898.99 s [opt-env-conf-test] + NotRun -> Nothing
  14631. 898.99 s [opt-env-conf-test] + NotFound -> Just e
  14632. 898.99 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14633. 898.99 s [opt-env-conf-test] debug ["not found"]
  14634. 898.99 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14635. 898.99 s [opt-env-conf-test] NE.nonEmpty $
  14636. 898.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
  14637. 898.99 s [opt-env-conf-test] @@ -330,128 +330,128 @@
  14638. 898.99 s [opt-env-conf-test] pure $ Found a
  14639. 898.99 s [opt-env-conf-test] else pure NotRun
  14640. 898.99 s [opt-env-conf-test]
  14641. 898.99 s [opt-env-conf-test] - case mOpt of
  14642. 898.99 s [opt-env-conf-test] - Found a -> do
  14643. 898.99 s [opt-env-conf-test] - markParsed
  14644. 898.99 s [opt-env-conf-test] - pure a
  14645. 898.99 s [opt-env-conf-test] - _ -> do
  14646. 898.99 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  14647. 898.99 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  14648. 898.99 s [opt-env-conf-test] - Nothing -> pure NotRun
  14649. 898.99 s [opt-env-conf-test] - Just ne -> do
  14650. 898.99 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  14651. 898.99 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14652. 898.99 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14653. 898.99 s [opt-env-conf-test] - es <- asks ppEnvEnv
  14654. 898.99 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14655. 898.99 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  14656. 898.99 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  14657. 898.99 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  14658. 898.99 s [opt-env-conf-test] - -- result.
  14659. 898.99 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  14660. 898.99 s [opt-env-conf-test] - case tryReaders rs varStr of
  14661. 898.99 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14662. 898.99 s [opt-env-conf-test] - Right a -> do
  14663. 898.99 s [opt-env-conf-test] - debug
  14664. 898.99 s [opt-env-conf-test] - [ "set based on env: ",
  14665. 898.99 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  14666. 898.99 s [opt-env-conf-test] - ]
  14667. 898.99 s [opt-env-conf-test] - pure a
  14668. 898.99 s [opt-env-conf-test] - case listToMaybe results of
  14669. 898.99 s [opt-env-conf-test] - Nothing -> do
  14670. 898.99 s [opt-env-conf-test] - debug
  14671. 898.99 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  14672. 898.99 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14673. 898.99 s [opt-env-conf-test] - ]
  14674. 898.99 s [opt-env-conf-test] - pure NotFound
  14675. 898.99 s [opt-env-conf-test] - Just a -> pure $ Found a
  14676. 898.99 s [opt-env-conf-test] -
  14677. 898.99 s [opt-env-conf-test] - case mEnv of
  14678. 898.99 s [opt-env-conf-test] - Found a -> do
  14679. 898.99 s [opt-env-conf-test] - markParsed
  14680. 898.99 s [opt-env-conf-test] - pure a
  14681. 898.99 s [opt-env-conf-test] - _ -> do
  14682. 898.99 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  14683. 898.99 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  14684. 898.99 s [opt-env-conf-test] - Nothing -> pure NotRun
  14685. 898.99 s [opt-env-conf-test] - Just confSets -> do
  14686. 898.99 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  14687. 898.99 s [opt-env-conf-test] - case mObj of
  14688. 898.99 s [opt-env-conf-test] - Nothing -> do
  14689. 898.99 s [opt-env-conf-test] - debug ["no config object to set from"]
  14690. 898.99 s [opt-env-conf-test] - pure NotFound
  14691. 898.99 s [opt-env-conf-test] - Just obj -> do
  14692. 898.99 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  14693. 898.99 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14694. 898.99 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14695. 898.99 s [opt-env-conf-test] - Nothing -> do
  14696. 898.99 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  14697. 898.99 s [opt-env-conf-test] - Nothing -> pure Nothing
  14698. 898.99 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  14699. 898.99 s [opt-env-conf-test] - Just neRest -> do
  14700. 898.99 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  14701. 898.99 s [opt-env-conf-test] - case mO' of
  14702. 898.99 s [opt-env-conf-test] - Nothing -> pure Nothing
  14703. 898.99 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  14704. 898.99 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  14705. 898.99 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14706. 898.99 s [opt-env-conf-test] - Right mV -> case mV of
  14707. 898.99 s [opt-env-conf-test] - Nothing -> do
  14708. 898.99 s [opt-env-conf-test] - debug
  14709. 898.99 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  14710. 898.99 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14711. 898.99 s [opt-env-conf-test] - ]
  14712. 898.99 s [opt-env-conf-test] - pure Nothing
  14713. 898.99 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14714. 898.99 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14715. 898.99 s [opt-env-conf-test] - Right mA -> case mA of
  14716. 898.99 s [opt-env-conf-test] - Nothing -> do
  14717. 898.99 s [opt-env-conf-test] - debug
  14718. 898.99 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  14719. 898.99 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14720. 898.99 s [opt-env-conf-test] - ]
  14721. 898.99 s [opt-env-conf-test] - pure Nothing
  14722. 898.99 s [opt-env-conf-test] - Just a -> do
  14723. 898.99 s [opt-env-conf-test] - debug
  14724. 898.99 s [opt-env-conf-test] - [ "set based on config value: ",
  14725. 898.99 s [opt-env-conf-test] - chunk $ T.pack $ show v
  14726. 898.99 s [opt-env-conf-test] - ]
  14727. 898.99 s [opt-env-conf-test] - pure $ Just a
  14728. 898.99 s [opt-env-conf-test] - let toRes = \case
  14729. 898.99 s [opt-env-conf-test] - Nothing -> NotFound
  14730. 898.99 s [opt-env-conf-test] - Just a -> Found a
  14731. 898.99 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14732. 898.99 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  14733. 898.99 s [opt-env-conf-test] - Just ne -> do
  14734. 898.99 s [opt-env-conf-test] - res <- goConfSet confSet
  14735. 898.99 s [opt-env-conf-test] - case res of
  14736. 898.99 s [opt-env-conf-test] - Just a -> pure $ Found a
  14737. 898.99 s [opt-env-conf-test] - Nothing -> goConfSets ne
  14738. 898.99 s [opt-env-conf-test] - goConfSets confSets
  14739. 898.99 s [opt-env-conf-test] - case mConf of
  14740. 899.00 s [opt-env-conf-test] - Found a -> do
  14741. 899.00 s [opt-env-conf-test] - markParsed
  14742. 899.00 s [opt-env-conf-test] - pure a
  14743. 899.00 s [opt-env-conf-test] - _ ->
  14744. 899.00 s [opt-env-conf-test] - case settingDefaultValue of
  14745. 899.00 s [opt-env-conf-test] - Just (a, _) -> do
  14746. 899.00 s [opt-env-conf-test] - debug ["set to default value"]
  14747. 899.00 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  14748. 899.00 s [opt-env-conf-test] - Nothing -> do
  14749. 899.00 s [opt-env-conf-test] - let parseResultError e res = case res of
  14750. 899.00 s [opt-env-conf-test] - NotRun -> Nothing
  14751. 899.00 s [opt-env-conf-test] - NotFound -> Just e
  14752. 899.00 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14753. 899.00 s [opt-env-conf-test] - debug ["not found"]
  14754. 899.00 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14755. 899.00 s [opt-env-conf-test] - NE.nonEmpty $
  14756. 899.00 s [opt-env-conf-test] - catMaybes
  14757. 899.00 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14758. 899.00 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14759. 899.00 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14760. 899.00 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14761. 899.00 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14762. 899.00 s [opt-env-conf-test] - ]
  14763. 899.00 s [opt-env-conf-test] + case mOpt of
  14764. 899.00 s [opt-env-conf-test] + Found a -> do
  14765. 899.00 s [opt-env-conf-test] + markParsed
  14766. 899.00 s [opt-env-conf-test] + pure a
  14767. 899.00 s [opt-env-conf-test] + _ -> do
  14768. 899.00 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  14769. 899.00 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  14770. 899.00 s [opt-env-conf-test] + Nothing -> pure NotRun
  14771. 899.00 s [opt-env-conf-test] + Just ne -> do
  14772. 899.00 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  14773. 899.00 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  14774. 899.00 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  14775. 899.00 s [opt-env-conf-test] + es <- asks ppEnvEnv
  14776. 899.00 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14777. 899.00 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  14778. 899.00 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  14779. 899.00 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  14780. 899.00 s [opt-env-conf-test] + -- result.
  14781. 899.00 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  14782. 899.00 s [opt-env-conf-test] + case tryReaders rs varStr of
  14783. 899.00 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14784. 899.00 s [opt-env-conf-test] + Right a -> do
  14785. 899.00 s [opt-env-conf-test] + debug
  14786. 899.00 s [opt-env-conf-test] + [ "set based on env: ",
  14787. 899.00 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  14788. 899.00 s [opt-env-conf-test] + ]
  14789. 899.00 s [opt-env-conf-test] + pure a
  14790. 899.00 s [opt-env-conf-test] + case listToMaybe results of
  14791. 899.00 s [opt-env-conf-test] + Nothing -> do
  14792. 899.00 s [opt-env-conf-test] + debug
  14793. 899.00 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  14794. 899.00 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14795. 899.00 s [opt-env-conf-test] + ]
  14796. 899.00 s [opt-env-conf-test] + pure NotFound
  14797. 899.00 s [opt-env-conf-test] + Just a -> pure $ Found a
  14798. 899.00 s [opt-env-conf-test] +
  14799. 899.00 s [opt-env-conf-test] + case mEnv of
  14800. 899.00 s [opt-env-conf-test] + Found a -> do
  14801. 899.00 s [opt-env-conf-test] + markParsed
  14802. 899.00 s [opt-env-conf-test] + pure a
  14803. 899.49 s [opt-env-conf-test] + _ -> do
  14804. 899.49 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  14805. 899.49 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  14806. 899.49 s [opt-env-conf-test] + Nothing -> pure NotRun
  14807. 899.49 s [opt-env-conf-test] + Just confSets -> do
  14808. 899.49 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  14809. 899.49 s [opt-env-conf-test] + case mObj of
  14810. 899.50 s [opt-env-conf-test] + Nothing -> do
  14811. 899.50 s [opt-env-conf-test] + debug ["no config object to set from"]
  14812. 899.50 s [opt-env-conf-test] + pure NotFound
  14813. 899.50 s [opt-env-conf-test] + Just obj -> do
  14814. 899.50 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  14815. 899.50 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14816. 899.50 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14817. 899.50 s [opt-env-conf-test] + Nothing -> do
  14818. 899.50 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  14819. 899.50 s [opt-env-conf-test] + Nothing -> pure Nothing
  14820. 899.50 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  14821. 899.50 s [opt-env-conf-test] + Just neRest -> do
  14822. 899.50 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  14823. 899.50 s [opt-env-conf-test] + case mO' of
  14824. 899.50 s [opt-env-conf-test] + Nothing -> pure Nothing
  14825. 899.50 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  14826. 899.50 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  14827. 899.50 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14828. 899.50 s [opt-env-conf-test] + Right mV -> case mV of
  14829. 899.50 s [opt-env-conf-test] + Nothing -> do
  14830. 899.50 s [opt-env-conf-test] + debug
  14831. 899.50 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  14832. 899.50 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14833. 899.50 s [opt-env-conf-test] + ]
  14834. 899.50 s [opt-env-conf-test] + pure Nothing
  14835. 899.50 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14836. 899.50 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14837. 899.50 s [opt-env-conf-test] + Right mA -> case mA of
  14838. 899.50 s [opt-env-conf-test] + Nothing -> do
  14839. 899.50 s [opt-env-conf-test] + debug
  14840. 899.50 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  14841. 899.50 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14842. 899.50 s [opt-env-conf-test] + ]
  14843. 899.50 s [opt-env-conf-test] + pure Nothing
  14844. 899.50 s [opt-env-conf-test] + Just a -> do
  14845. 899.50 s [opt-env-conf-test] + debug
  14846. 899.50 s [opt-env-conf-test] + [ "set based on config value: ",
  14847. 899.50 s [opt-env-conf-test] + chunk $ T.pack $ show v
  14848. 899.50 s [opt-env-conf-test] + ]
  14849. 899.50 s [opt-env-conf-test] + pure $ Just a
  14850. 899.50 s [opt-env-conf-test] + let toRes = \case
  14851. 899.50 s [opt-env-conf-test] + Nothing -> NotFound
  14852. 899.50 s [opt-env-conf-test] + Just a -> Found a
  14853. 899.50 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14854. 899.50 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  14855. 899.50 s [opt-env-conf-test] + Just ne -> do
  14856. 899.50 s [opt-env-conf-test] + res <- goConfSet confSet
  14857. 899.50 s [opt-env-conf-test] + case res of
  14858. 899.50 s [opt-env-conf-test] + Just a -> pure $ Found a
  14859. 899.50 s [opt-env-conf-test] + Nothing -> goConfSets ne
  14860. 899.50 s [opt-env-conf-test] + goConfSets confSets
  14861. 899.50 s [opt-env-conf-test] + case mConf of
  14862. 899.50 s [opt-env-conf-test] + Found a -> do
  14863. 899.50 s [opt-env-conf-test] + markParsed
  14864. 899.50 s [opt-env-conf-test] + pure a
  14865. 899.50 s [opt-env-conf-test] + _ ->
  14866. 899.50 s [opt-env-conf-test] + case settingDefaultValue of
  14867. 899.50 s [opt-env-conf-test] + Just (a, _) -> do
  14868. 899.50 s [opt-env-conf-test] + debug ["set to default value"]
  14869. 899.50 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  14870. 899.50 s [opt-env-conf-test] + Nothing -> do
  14871. 899.50 s [opt-env-conf-test] + let parseResultError e res = case res of
  14872. 899.50 s [opt-env-conf-test] + NotRun -> Nothing
  14873. 899.50 s [opt-env-conf-test] + NotFound -> Just e
  14874. 899.50 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14875. 899.50 s [opt-env-conf-test] + debug ["not found"]
  14876. 899.50 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14877. 899.51 s [opt-env-conf-test] + NE.nonEmpty $
  14878. 899.51 s [opt-env-conf-test] + catMaybes
  14879. 899.51 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14880. 899.51 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14881. 899.51 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14882. 899.51 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14883. 899.51 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14884. 899.51 s [opt-env-conf-test] + ]
  14885. 899.51 s [opt-env-conf-test]
  14886. 899.51 s [opt-env-conf-test] withCapabilities ::
  14887. 899.51 s [opt-env-conf-test] Maybe SrcLoc ->
  14888. 899.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
  14889. 899.51 s [opt-env-conf-test] @@ -280,178 +280,178 @@
  14890. 899.51 s [opt-env-conf-test] pure $ Found a
  14891. 899.51 s [opt-env-conf-test] else pure NotRun
  14892. 899.51 s [opt-env-conf-test]
  14893. 899.51 s [opt-env-conf-test] - case mArg of
  14894. 899.51 s [opt-env-conf-test] - Found a -> do
  14895. 899.51 s [opt-env-conf-test] - markParsed
  14896. 899.51 s [opt-env-conf-test] - pure a
  14897. 899.51 s [opt-env-conf-test] - _ -> do
  14898. 899.51 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  14899. 899.51 s [opt-env-conf-test] - Nothing -> pure NotRun
  14900. 899.51 s [opt-env-conf-test] - Just a -> do
  14901. 899.51 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  14902. 899.51 s [opt-env-conf-test] - case mS of
  14903. 899.51 s [opt-env-conf-test] - Nothing -> do
  14904. 899.51 s [opt-env-conf-test] - debug
  14905. 899.51 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  14906. 899.51 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14907. 899.51 s [opt-env-conf-test] - ]
  14908. 899.51 s [opt-env-conf-test] - pure NotFound
  14909. 899.51 s [opt-env-conf-test] - Just () -> cap $ do
  14910. 899.51 s [opt-env-conf-test] - debug ["set based on switch."]
  14911. 899.51 s [opt-env-conf-test] - pure $ Found a
  14912. 899.51 s [opt-env-conf-test] -
  14913. 899.51 s [opt-env-conf-test] - case mSwitch of
  14914. 899.51 s [opt-env-conf-test] - Found a -> do
  14915. 899.51 s [opt-env-conf-test] - markParsed
  14916. 899.51 s [opt-env-conf-test] - pure a
  14917. 899.51 s [opt-env-conf-test] - _ -> do
  14918. 899.51 s [opt-env-conf-test] - mOpt <-
  14919. 899.51 s [opt-env-conf-test] - if settingTryOption
  14920. 899.51 s [opt-env-conf-test] - then do
  14921. 899.51 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  14922. 899.51 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14923. 899.51 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14924. 899.51 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  14925. 899.51 s [opt-env-conf-test] - case mS of
  14926. 899.51 s [opt-env-conf-test] - Nothing -> do
  14927. 899.51 s [opt-env-conf-test] - debug
  14928. 899.51 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  14929. 899.51 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14930. 899.51 s [opt-env-conf-test] - ]
  14931. 899.51 s [opt-env-conf-test] - pure NotFound
  14932. 899.51 s [opt-env-conf-test] - Just optionStr -> cap $
  14933. 899.51 s [opt-env-conf-test] - case tryReaders rs optionStr of
  14934. 899.51 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14935. 899.51 s [opt-env-conf-test] - Right a -> do
  14936. 899.51 s [opt-env-conf-test] - debug
  14937. 899.51 s [opt-env-conf-test] - [ "set based on option: ",
  14938. 899.51 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  14939. 899.51 s [opt-env-conf-test] - ]
  14940. 899.51 s [opt-env-conf-test] - pure $ Found a
  14941. 899.51 s [opt-env-conf-test] - else pure NotRun
  14942. 899.51 s [opt-env-conf-test] -
  14943. 899.51 s [opt-env-conf-test] - case mOpt of
  14944. 899.51 s [opt-env-conf-test] - Found a -> do
  14945. 899.51 s [opt-env-conf-test] - markParsed
  14946. 899.51 s [opt-env-conf-test] - pure a
  14947. 899.51 s [opt-env-conf-test] - _ -> do
  14948. 899.51 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  14949. 899.51 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  14950. 899.51 s [opt-env-conf-test] - Nothing -> pure NotRun
  14951. 899.51 s [opt-env-conf-test] - Just ne -> do
  14952. 899.51 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  14953. 899.51 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14954. 899.51 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14955. 899.51 s [opt-env-conf-test] - es <- asks ppEnvEnv
  14956. 899.51 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14957. 899.51 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  14958. 899.51 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  14959. 899.51 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  14960. 899.51 s [opt-env-conf-test] - -- result.
  14961. 899.52 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  14962. 899.52 s [opt-env-conf-test] - case tryReaders rs varStr of
  14963. 899.52 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14964. 899.52 s [opt-env-conf-test] - Right a -> do
  14965. 899.52 s [opt-env-conf-test] - debug
  14966. 899.52 s [opt-env-conf-test] - [ "set based on env: ",
  14967. 899.52 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  14968. 899.52 s [opt-env-conf-test] - ]
  14969. 899.52 s [opt-env-conf-test] - pure a
  14970. 899.52 s [opt-env-conf-test] - case listToMaybe results of
  14971. 899.52 s [opt-env-conf-test] - Nothing -> do
  14972. 899.52 s [opt-env-conf-test] - debug
  14973. 899.52 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  14974. 899.52 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14975. 899.52 s [opt-env-conf-test] - ]
  14976. 899.52 s [opt-env-conf-test] - pure NotFound
  14977. 899.52 s [opt-env-conf-test] - Just a -> pure $ Found a
  14978. 899.52 s [opt-env-conf-test] -
  14979. 899.52 s [opt-env-conf-test] - case mEnv of
  14980. 899.52 s [opt-env-conf-test] - Found a -> do
  14981. 899.52 s [opt-env-conf-test] - markParsed
  14982. 899.52 s [opt-env-conf-test] - pure a
  14983. 899.52 s [opt-env-conf-test] - _ -> do
  14984. 899.52 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  14985. 899.52 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  14986. 899.52 s [opt-env-conf-test] - Nothing -> pure NotRun
  14987. 899.52 s [opt-env-conf-test] - Just confSets -> do
  14988. 899.52 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  14989. 899.52 s [opt-env-conf-test] - case mObj of
  14990. 899.52 s [opt-env-conf-test] - Nothing -> do
  14991. 899.52 s [opt-env-conf-test] - debug ["no config object to set from"]
  14992. 899.52 s [opt-env-conf-test] - pure NotFound
  14993. 899.52 s [opt-env-conf-test] - Just obj -> do
  14994. 899.52 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  14995. 899.52 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14996. 899.52 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14997. 899.52 s [opt-env-conf-test] - Nothing -> do
  14998. 899.52 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  14999. 899.52 s [opt-env-conf-test] - Nothing -> pure Nothing
  15000. 899.52 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  15001. 899.52 s [opt-env-conf-test] - Just neRest -> do
  15002. 899.52 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  15003. 899.52 s [opt-env-conf-test] - case mO' of
  15004. 899.52 s [opt-env-conf-test] - Nothing -> pure Nothing
  15005. 899.52 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  15006. 899.52 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  15007. 899.52 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15008. 899.52 s [opt-env-conf-test] - Right mV -> case mV of
  15009. 899.52 s [opt-env-conf-test] - Nothing -> do
  15010. 899.52 s [opt-env-conf-test] - debug
  15011. 899.52 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  15012. 899.52 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15013. 899.52 s [opt-env-conf-test] - ]
  15014. 899.52 s [opt-env-conf-test] - pure Nothing
  15015. 899.52 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15016. 899.52 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15017. 899.52 s [opt-env-conf-test] - Right mA -> case mA of
  15018. 899.52 s [opt-env-conf-test] - Nothing -> do
  15019. 899.52 s [opt-env-conf-test] - debug
  15020. 899.52 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  15021. 899.52 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15022. 899.52 s [opt-env-conf-test] - ]
  15023. 899.52 s [opt-env-conf-test] - pure Nothing
  15024. 899.52 s [opt-env-conf-test] - Just a -> do
  15025. 899.52 s [opt-env-conf-test] - debug
  15026. 899.52 s [opt-env-conf-test] - [ "set based on config value: ",
  15027. 899.52 s [opt-env-conf-test] - chunk $ T.pack $ show v
  15028. 899.52 s [opt-env-conf-test] - ]
  15029. 899.52 s [opt-env-conf-test] - pure $ Just a
  15030. 899.52 s [opt-env-conf-test] - let toRes = \case
  15031. 899.52 s [opt-env-conf-test] - Nothing -> NotFound
  15032. 899.52 s [opt-env-conf-test] - Just a -> Found a
  15033. 899.52 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15034. 899.52 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  15035. 899.52 s [opt-env-conf-test] - Just ne -> do
  15036. 899.52 s [opt-env-conf-test] - res <- goConfSet confSet
  15037. 899.52 s [opt-env-conf-test] - case res of
  15038. 899.52 s [opt-env-conf-test] - Just a -> pure $ Found a
  15039. 899.52 s [opt-env-conf-test] - Nothing -> goConfSets ne
  15040. 899.52 s [opt-env-conf-test] - goConfSets confSets
  15041. 899.52 s [opt-env-conf-test] - case mConf of
  15042. 899.52 s [opt-env-conf-test] - Found a -> do
  15043. 899.52 s [opt-env-conf-test] - markParsed
  15044. 899.52 s [opt-env-conf-test] - pure a
  15045. 899.52 s [opt-env-conf-test] - _ ->
  15046. 899.52 s [opt-env-conf-test] - case settingDefaultValue of
  15047. 899.52 s [opt-env-conf-test] - Just (a, _) -> do
  15048. 899.52 s [opt-env-conf-test] - debug ["set to default value"]
  15049. 899.52 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  15050. 899.52 s [opt-env-conf-test] - Nothing -> do
  15051. 899.52 s [opt-env-conf-test] - let parseResultError e res = case res of
  15052. 899.52 s [opt-env-conf-test] - NotRun -> Nothing
  15053. 899.52 s [opt-env-conf-test] - NotFound -> Just e
  15054. 899.52 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  15055. 899.52 s [opt-env-conf-test] - debug ["not found"]
  15056. 899.52 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15057. 899.52 s [opt-env-conf-test] - NE.nonEmpty $
  15058. 899.52 s [opt-env-conf-test] - catMaybes
  15059. 899.52 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  15060. 899.52 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  15061. 899.52 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  15062. 899.52 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  15063. 899.52 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  15064. 899.52 s [opt-env-conf-test] - ]
  15065. 899.52 s [opt-env-conf-test] + case mArg of
  15066. 899.52 s [opt-env-conf-test] + Found a -> do
  15067. 899.52 s [opt-env-conf-test] + markParsed
  15068. 899.52 s [opt-env-conf-test] + pure a
  15069. 899.52 s [opt-env-conf-test] + _ -> do
  15070. 899.52 s [opt-env-conf-test] + mSwitch <- case settingSwitchValue of
  15071. 899.53 s [opt-env-conf-test] + Nothing -> pure NotRun
  15072. 899.53 s [opt-env-conf-test] + Just a -> do
  15073. 899.53 s [opt-env-conf-test] + mS <- ppSwitch settingDasheds
  15074. 899.53 s [opt-env-conf-test] + case mS of
  15075. 899.53 s [opt-env-conf-test] + Nothing -> do
  15076. 899.53 s [opt-env-conf-test] + debug
  15077. 899.53 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  15078. 899.53 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  15079. 899.53 s [opt-env-conf-test] + ]
  15080. 899.53 s [opt-env-conf-test] + pure NotFound
  15081. 899.53 s [opt-env-conf-test] + Just () -> cap $ do
  15082. 899.53 s [opt-env-conf-test] + debug ["set based on switch."]
  15083. 899.53 s [opt-env-conf-test] + pure $ Found a
  15084. 899.53 s [opt-env-conf-test] +
  15085. 899.53 s [opt-env-conf-test] + case mSwitch of
  15086. 899.53 s [opt-env-conf-test] + Found a -> do
  15087. 899.53 s [opt-env-conf-test] + markParsed
  15088. 899.53 s [opt-env-conf-test] + pure a
  15089. 899.53 s [opt-env-conf-test] + _ -> do
  15090. 899.53 s [opt-env-conf-test] + mOpt <-
  15091. 899.53 s [opt-env-conf-test] + if settingTryOption
  15092. 899.53 s [opt-env-conf-test] + then do
  15093. 899.53 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  15094. 899.53 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  15095. 899.53 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  15096. 899.53 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  15097. 899.53 s [opt-env-conf-test] + case mS of
  15098. 899.53 s [opt-env-conf-test] + Nothing -> do
  15099. 899.53 s [opt-env-conf-test] + debug
  15100. 899.53 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  15101. 899.53 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  15102. 899.53 s [opt-env-conf-test] + ]
  15103. 899.53 s [opt-env-conf-test] + pure NotFound
  15104. 899.53 s [opt-env-conf-test] + Just optionStr -> cap $
  15105. 899.53 s [opt-env-conf-test] + case tryReaders rs optionStr of
  15106. 899.53 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  15107. 899.53 s [opt-env-conf-test] + Right a -> do
  15108. 899.53 s [opt-env-conf-test] + debug
  15109. 899.53 s [opt-env-conf-test] + [ "set based on option: ",
  15110. 899.53 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  15111. 899.53 s [opt-env-conf-test] + ]
  15112. 899.53 s [opt-env-conf-test] + pure $ Found a
  15113. 899.53 s [opt-env-conf-test] + else pure NotRun
  15114. 899.53 s [opt-env-conf-test] +
  15115. 899.53 s [opt-env-conf-test] + case mOpt of
  15116. 899.53 s [opt-env-conf-test] + Found a -> do
  15117. 899.53 s [opt-env-conf-test] + markParsed
  15118. 899.53 s [opt-env-conf-test] + pure a
  15119. 899.53 s [opt-env-conf-test] + _ -> do
  15120. 899.53 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  15121. 899.53 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  15122. 899.53 s [opt-env-conf-test] + Nothing -> pure NotRun
  15123. 899.53 s [opt-env-conf-test] + Just ne -> do
  15124. 899.53 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  15125. 899.53 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  15126. 899.53 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  15127. 899.53 s [opt-env-conf-test] + es <- asks ppEnvEnv
  15128. 899.53 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  15129. 899.53 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  15130. 899.53 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  15131. 899.53 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  15132. 899.53 s [opt-env-conf-test] + -- result.
  15133. 899.53 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  15134. 899.53 s [opt-env-conf-test] + case tryReaders rs varStr of
  15135. 899.53 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  15136. 899.53 s [opt-env-conf-test] + Right a -> do
  15137. 899.53 s [opt-env-conf-test] + debug
  15138. 899.53 s [opt-env-conf-test] + [ "set based on env: ",
  15139. 899.53 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  15140. 899.53 s [opt-env-conf-test] + ]
  15141. 899.53 s [opt-env-conf-test] + pure a
  15142. 899.53 s [opt-env-conf-test] + case listToMaybe results of
  15143. 899.53 s [opt-env-conf-test] + Nothing -> do
  15144. 899.53 s [opt-env-conf-test] + debug
  15145. 899.53 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  15146. 899.53 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  15147. 899.53 s [opt-env-conf-test] + ]
  15148. 899.53 s [opt-env-conf-test] + pure NotFound
  15149. 899.53 s [opt-env-conf-test] + Just a -> pure $ Found a
  15150. 899.53 s [opt-env-conf-test] +
  15151. 899.53 s [opt-env-conf-test] + case mEnv of
  15152. 899.53 s [opt-env-conf-test] + Found a -> do
  15153. 899.53 s [opt-env-conf-test] + markParsed
  15154. 899.53 s [opt-env-conf-test] + pure a
  15155. 899.53 s [opt-env-conf-test] + _ -> do
  15156. 899.53 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  15157. 899.53 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  15158. 899.53 s [opt-env-conf-test] + Nothing -> pure NotRun
  15159. 899.53 s [opt-env-conf-test] + Just confSets -> do
  15160. 899.53 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  15161. 899.53 s [opt-env-conf-test] + case mObj of
  15162. 899.53 s [opt-env-conf-test] + Nothing -> do
  15163. 899.53 s [opt-env-conf-test] + debug ["no config object to set from"]
  15164. 899.53 s [opt-env-conf-test] + pure NotFound
  15165. 899.53 s [opt-env-conf-test] + Just obj -> do
  15166. 899.53 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  15167. 899.53 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  15168. 899.53 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  15169. 899.53 s [opt-env-conf-test] + Nothing -> do
  15170. 899.53 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  15171. 899.53 s [opt-env-conf-test] + Nothing -> pure Nothing
  15172. 899.53 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  15173. 899.53 s [opt-env-conf-test] + Just neRest -> do
  15174. 899.53 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  15175. 899.53 s [opt-env-conf-test] + case mO' of
  15176. 899.53 s [opt-env-conf-test] + Nothing -> pure Nothing
  15177. 899.53 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  15178. 899.53 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  15179. 899.53 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15180. 899.53 s [opt-env-conf-test] + Right mV -> case mV of
  15181. 899.53 s [opt-env-conf-test] + Nothing -> do
  15182. 899.53 s [opt-env-conf-test] + debug
  15183. 899.53 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  15184. 899.53 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15185. 899.53 s [opt-env-conf-test] + ]
  15186. 899.53 s [opt-env-conf-test] + pure Nothing
  15187. 899.53 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15188. 899.53 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15189. 899.53 s [opt-env-conf-test] + Right mA -> case mA of
  15190. 899.53 s [opt-env-conf-test] + Nothing -> do
  15191. 899.53 s [opt-env-conf-test] + debug
  15192. 899.53 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  15193. 899.53 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15194. 899.53 s [opt-env-conf-test] + ]
  15195. 899.53 s [opt-env-conf-test] + pure Nothing
  15196. 899.53 s [opt-env-conf-test] + Just a -> do
  15197. 899.53 s [opt-env-conf-test] + debug
  15198. 899.53 s [opt-env-conf-test] + [ "set based on config value: ",
  15199. 899.54 s [opt-env-conf-test] + chunk $ T.pack $ show v
  15200. 899.54 s [opt-env-conf-test] + ]
  15201. 899.54 s [opt-env-conf-test] + pure $ Just a
  15202. 899.54 s [opt-env-conf-test] + let toRes = \case
  15203. 899.54 s [opt-env-conf-test] + Nothing -> NotFound
  15204. 899.54 s [opt-env-conf-test] + Just a -> Found a
  15205. 899.54 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15206. 899.54 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  15207. 899.54 s [opt-env-conf-test] + Just ne -> do
  15208. 899.54 s [opt-env-conf-test] + res <- goConfSet confSet
  15209. 899.54 s [opt-env-conf-test] + case res of
  15210. 899.54 s [opt-env-conf-test] + Just a -> pure $ Found a
  15211. 899.54 s [opt-env-conf-test] + Nothing -> goConfSets ne
  15212. 899.54 s [opt-env-conf-test] + goConfSets confSets
  15213. 899.54 s [opt-env-conf-test] + case mConf of
  15214. 899.54 s [opt-env-conf-test] + Found a -> do
  15215. 899.54 s [opt-env-conf-test] + markParsed
  15216. 899.54 s [opt-env-conf-test] + pure a
  15217. 899.54 s [opt-env-conf-test] + _ ->
  15218. 899.54 s [opt-env-conf-test] + case settingDefaultValue of
  15219. 899.54 s [opt-env-conf-test] + Just (a, _) -> do
  15220. 900.15 s [opt-env-conf-test] + debug ["set to default value"]
  15221. 900.15 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  15222. 900.15 s [opt-env-conf-test] + Nothing -> do
  15223. 900.15 s [opt-env-conf-test] + let parseResultError e res = case res of
  15224. 900.15 s [opt-env-conf-test] + NotRun -> Nothing
  15225. 900.15 s [opt-env-conf-test] + NotFound -> Just e
  15226. 900.15 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  15227. 900.15 s [opt-env-conf-test] + debug ["not found"]
  15228. 900.16 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15229. 900.16 s [opt-env-conf-test] + NE.nonEmpty $
  15230. 900.16 s [opt-env-conf-test] + catMaybes
  15231. 900.16 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  15232. 900.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  15233. 900.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  15234. 900.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  15235. 900.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  15236. 900.16 s [opt-env-conf-test] + ]
  15237. 900.16 s [opt-env-conf-test]
  15238. 900.16 s [opt-env-conf-test] withCapabilities ::
  15239. 900.16 s [opt-env-conf-test] Maybe SrcLoc ->
  15240. 900.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
  15241. 900.16 s [opt-env-conf-test] @@ -403,7 +403,7 @@
  15242. 900.16 s [opt-env-conf-test]
  15243. 900.16 s [opt-env-conf-test] renderDashed :: Dashed -> String
  15244. 900.16 s [opt-env-conf-test] renderDashed = \case
  15245. 900.16 s [opt-env-conf-test] - DashedShort c -> ['-', c]
  15246. 900.16 s [opt-env-conf-test] + DashedShort c -> []
  15247. 900.16 s [opt-env-conf-test] DashedLong cs -> '-' : '-' : NE.toList cs
  15248. 900.16 s [opt-env-conf-test]
  15249. 900.16 s [opt-env-conf-test] prefixDashed :: String -> Dashed -> Dashed
  15250. 900.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
  15251. 900.16 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  15252. 900.16 s [opt-env-conf-test] where
  15253. 900.16 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15254. 900.16 s [opt-env-conf-test] go (c :| rest) =
  15255. 900.16 s [opt-env-conf-test] - if c `elem` cs
  15256. 900.16 s [opt-env-conf-test] + if True
  15257. 900.16 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15258. 900.16 s [opt-env-conf-test] else do
  15259. 900.16 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  15260. 900.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
  15261. 900.16 s [opt-env-conf-test] @@ -280,178 +280,178 @@
  15262. 900.16 s [opt-env-conf-test] pure $ Found a
  15263. 900.16 s [opt-env-conf-test] else pure NotRun
  15264. 900.16 s [opt-env-conf-test]
  15265. 900.16 s [opt-env-conf-test] - case mArg of
  15266. 900.16 s [opt-env-conf-test] - Found a -> do
  15267. 900.16 s [opt-env-conf-test] - markParsed
  15268. 900.16 s [opt-env-conf-test] - pure a
  15269. 900.16 s [opt-env-conf-test] - _ -> do
  15270. 900.16 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  15271. 900.16 s [opt-env-conf-test] - Nothing -> pure NotRun
  15272. 900.16 s [opt-env-conf-test] - Just a -> do
  15273. 900.16 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  15274. 900.16 s [opt-env-conf-test] - case mS of
  15275. 900.16 s [opt-env-conf-test] - Nothing -> do
  15276. 900.16 s [opt-env-conf-test] - debug
  15277. 900.16 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  15278. 900.16 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  15279. 900.16 s [opt-env-conf-test] - ]
  15280. 900.16 s [opt-env-conf-test] - pure NotFound
  15281. 900.16 s [opt-env-conf-test] - Just () -> cap $ do
  15282. 900.16 s [opt-env-conf-test] - debug ["set based on switch."]
  15283. 900.16 s [opt-env-conf-test] - pure $ Found a
  15284. 900.16 s [opt-env-conf-test] -
  15285. 900.16 s [opt-env-conf-test] - case mSwitch of
  15286. 900.16 s [opt-env-conf-test] - Found a -> do
  15287. 900.16 s [opt-env-conf-test] - markParsed
  15288. 900.16 s [opt-env-conf-test] - pure a
  15289. 900.16 s [opt-env-conf-test] - _ -> do
  15290. 900.16 s [opt-env-conf-test] - mOpt <-
  15291. 900.16 s [opt-env-conf-test] - if settingTryOption
  15292. 900.16 s [opt-env-conf-test] - then do
  15293. 900.16 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  15294. 900.16 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  15295. 900.16 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  15296. 900.16 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  15297. 900.16 s [opt-env-conf-test] - case mS of
  15298. 900.16 s [opt-env-conf-test] - Nothing -> do
  15299. 900.16 s [opt-env-conf-test] - debug
  15300. 900.16 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  15301. 900.16 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  15302. 900.16 s [opt-env-conf-test] - ]
  15303. 900.16 s [opt-env-conf-test] - pure NotFound
  15304. 900.16 s [opt-env-conf-test] - Just optionStr -> cap $
  15305. 900.16 s [opt-env-conf-test] - case tryReaders rs optionStr of
  15306. 900.16 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  15307. 900.17 s [opt-env-conf-test] - Right a -> do
  15308. 900.17 s [opt-env-conf-test] - debug
  15309. 900.17 s [opt-env-conf-test] - [ "set based on option: ",
  15310. 900.17 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  15311. 900.17 s [opt-env-conf-test] - ]
  15312. 900.17 s [opt-env-conf-test] - pure $ Found a
  15313. 900.17 s [opt-env-conf-test] - else pure NotRun
  15314. 900.17 s [opt-env-conf-test] -
  15315. 900.17 s [opt-env-conf-test] - case mOpt of
  15316. 900.17 s [opt-env-conf-test] - Found a -> do
  15317. 900.17 s [opt-env-conf-test] - markParsed
  15318. 900.17 s [opt-env-conf-test] - pure a
  15319. 900.17 s [opt-env-conf-test] - _ -> do
  15320. 900.17 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  15321. 900.17 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  15322. 900.17 s [opt-env-conf-test] - Nothing -> pure NotRun
  15323. 900.17 s [opt-env-conf-test] - Just ne -> do
  15324. 900.17 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  15325. 900.17 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  15326. 900.17 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  15327. 900.17 s [opt-env-conf-test] - es <- asks ppEnvEnv
  15328. 900.17 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  15329. 900.17 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  15330. 900.17 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  15331. 900.17 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  15332. 900.17 s [opt-env-conf-test] - -- result.
  15333. 900.17 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  15334. 900.17 s [opt-env-conf-test] - case tryReaders rs varStr of
  15335. 900.17 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  15336. 900.17 s [opt-env-conf-test] - Right a -> do
  15337. 900.17 s [opt-env-conf-test] - debug
  15338. 900.17 s [opt-env-conf-test] - [ "set based on env: ",
  15339. 900.17 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  15340. 900.17 s [opt-env-conf-test] - ]
  15341. 900.17 s [opt-env-conf-test] - pure a
  15342. 900.17 s [opt-env-conf-test] - case listToMaybe results of
  15343. 900.17 s [opt-env-conf-test] - Nothing -> do
  15344. 900.17 s [opt-env-conf-test] - debug
  15345. 900.17 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  15346. 900.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  15347. 900.17 s [opt-env-conf-test] - ]
  15348. 900.17 s [opt-env-conf-test] - pure NotFound
  15349. 900.17 s [opt-env-conf-test] - Just a -> pure $ Found a
  15350. 900.17 s [opt-env-conf-test] -
  15351. 900.17 s [opt-env-conf-test] - case mEnv of
  15352. 900.17 s [opt-env-conf-test] - Found a -> do
  15353. 900.17 s [opt-env-conf-test] - markParsed
  15354. 900.17 s [opt-env-conf-test] - pure a
  15355. 900.17 s [opt-env-conf-test] - _ -> do
  15356. 900.17 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  15357. 900.17 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  15358. 900.17 s [opt-env-conf-test] - Nothing -> pure NotRun
  15359. 900.17 s [opt-env-conf-test] - Just confSets -> do
  15360. 900.17 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  15361. 900.17 s [opt-env-conf-test] - case mObj of
  15362. 900.17 s [opt-env-conf-test] - Nothing -> do
  15363. 900.17 s [opt-env-conf-test] - debug ["no config object to set from"]
  15364. 900.17 s [opt-env-conf-test] - pure NotFound
  15365. 900.17 s [opt-env-conf-test] - Just obj -> do
  15366. 900.17 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  15367. 900.17 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  15368. 900.17 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  15369. 900.17 s [opt-env-conf-test] - Nothing -> do
  15370. 900.17 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  15371. 900.17 s [opt-env-conf-test] - Nothing -> pure Nothing
  15372. 900.17 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  15373. 900.17 s [opt-env-conf-test] - Just neRest -> do
  15374. 900.17 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  15375. 900.17 s [opt-env-conf-test] - case mO' of
  15376. 900.17 s [opt-env-conf-test] - Nothing -> pure Nothing
  15377. 900.17 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  15378. 900.17 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  15379. 900.17 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15380. 900.17 s [opt-env-conf-test] - Right mV -> case mV of
  15381. 900.17 s [opt-env-conf-test] - Nothing -> do
  15382. 900.17 s [opt-env-conf-test] - debug
  15383. 900.17 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  15384. 900.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15385. 900.17 s [opt-env-conf-test] - ]
  15386. 900.17 s [opt-env-conf-test] - pure Nothing
  15387. 900.17 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15388. 900.17 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15389. 900.17 s [opt-env-conf-test] - Right mA -> case mA of
  15390. 900.17 s [opt-env-conf-test] - Nothing -> do
  15391. 900.17 s [opt-env-conf-test] - debug
  15392. 900.17 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  15393. 900.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15394. 900.17 s [opt-env-conf-test] - ]
  15395. 900.17 s [opt-env-conf-test] - pure Nothing
  15396. 900.17 s [opt-env-conf-test] - Just a -> do
  15397. 900.17 s [opt-env-conf-test] - debug
  15398. 900.17 s [opt-env-conf-test] - [ "set based on config value: ",
  15399. 900.17 s [opt-env-conf-test] - chunk $ T.pack $ show v
  15400. 900.17 s [opt-env-conf-test] - ]
  15401. 900.17 s [opt-env-conf-test] - pure $ Just a
  15402. 900.17 s [opt-env-conf-test] - let toRes = \case
  15403. 900.17 s [opt-env-conf-test] - Nothing -> NotFound
  15404. 900.17 s [opt-env-conf-test] - Just a -> Found a
  15405. 900.17 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15406. 900.17 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  15407. 900.17 s [opt-env-conf-test] - Just ne -> do
  15408. 900.17 s [opt-env-conf-test] - res <- goConfSet confSet
  15409. 900.17 s [opt-env-conf-test] - case res of
  15410. 900.17 s [opt-env-conf-test] - Just a -> pure $ Found a
  15411. 900.17 s [opt-env-conf-test] - Nothing -> goConfSets ne
  15412. 900.17 s [opt-env-conf-test] - goConfSets confSets
  15413. 900.17 s [opt-env-conf-test] - case mConf of
  15414. 900.17 s [opt-env-conf-test] - Found a -> do
  15415. 900.17 s [opt-env-conf-test] - markParsed
  15416. 900.17 s [opt-env-conf-test] - pure a
  15417. 900.17 s [opt-env-conf-test] - _ ->
  15418. 900.17 s [opt-env-conf-test] - case settingDefaultValue of
  15419. 900.17 s [opt-env-conf-test] - Just (a, _) -> do
  15420. 900.17 s [opt-env-conf-test] - debug ["set to default value"]
  15421. 900.17 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  15422. 900.17 s [opt-env-conf-test] - Nothing -> do
  15423. 900.17 s [opt-env-conf-test] - let parseResultError e res = case res of
  15424. 900.17 s [opt-env-conf-test] - NotRun -> Nothing
  15425. 900.17 s [opt-env-conf-test] - NotFound -> Just e
  15426. 900.17 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  15427. 900.17 s [opt-env-conf-test] - debug ["not found"]
  15428. 900.17 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15429. 900.17 s [opt-env-conf-test] - NE.nonEmpty $
  15430. 900.18 s [opt-env-conf-test] - catMaybes
  15431. 900.18 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  15432. 900.18 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  15433. 900.18 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  15434. 900.18 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  15435. 900.18 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  15436. 900.18 s [opt-env-conf-test] - ]
  15437. 900.18 s [opt-env-conf-test] + case mArg of
  15438. 900.18 s [opt-env-conf-test] + Found a -> do
  15439. 900.18 s [opt-env-conf-test] + markParsed
  15440. 900.18 s [opt-env-conf-test] + pure a
  15441. 900.18 s [opt-env-conf-test] + _ -> do
  15442. 900.18 s [opt-env-conf-test] + mSwitch <- case settingSwitchValue of
  15443. 900.18 s [opt-env-conf-test] + Nothing -> pure NotRun
  15444. 900.18 s [opt-env-conf-test] + Just a -> do
  15445. 900.18 s [opt-env-conf-test] + mS <- ppSwitch settingDasheds
  15446. 900.18 s [opt-env-conf-test] + case mS of
  15447. 900.18 s [opt-env-conf-test] + Nothing -> do
  15448. 900.18 s [opt-env-conf-test] + debug
  15449. 900.18 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  15450. 900.18 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  15451. 900.18 s [opt-env-conf-test] + ]
  15452. 900.18 s [opt-env-conf-test] + pure NotFound
  15453. 900.18 s [opt-env-conf-test] + Just () -> cap $ do
  15454. 900.18 s [opt-env-conf-test] + debug ["set based on switch."]
  15455. 900.18 s [opt-env-conf-test] + pure $ Found a
  15456. 900.18 s [opt-env-conf-test] +
  15457. 900.18 s [opt-env-conf-test] + case mSwitch of
  15458. 900.18 s [opt-env-conf-test] + Found a -> do
  15459. 900.18 s [opt-env-conf-test] + markParsed
  15460. 900.18 s [opt-env-conf-test] + pure a
  15461. 900.18 s [opt-env-conf-test] + _ -> do
  15462. 900.18 s [opt-env-conf-test] + mOpt <-
  15463. 900.18 s [opt-env-conf-test] + if settingTryOption
  15464. 900.18 s [opt-env-conf-test] + then do
  15465. 900.18 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  15466. 900.18 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  15467. 900.18 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  15468. 900.18 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  15469. 900.18 s [opt-env-conf-test] + case mS of
  15470. 900.18 s [opt-env-conf-test] + Nothing -> do
  15471. 900.18 s [opt-env-conf-test] + debug
  15472. 900.18 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  15473. 900.18 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  15474. 900.18 s [opt-env-conf-test] + ]
  15475. 900.18 s [opt-env-conf-test] + pure NotFound
  15476. 900.18 s [opt-env-conf-test] + Just optionStr -> cap $
  15477. 900.18 s [opt-env-conf-test] + case tryReaders rs optionStr of
  15478. 900.18 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  15479. 900.18 s [opt-env-conf-test] + Right a -> do
  15480. 900.18 s [opt-env-conf-test] + debug
  15481. 900.18 s [opt-env-conf-test] + [ "set based on option: ",
  15482. 900.18 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  15483. 900.18 s [opt-env-conf-test] + ]
  15484. 900.18 s [opt-env-conf-test] + pure $ Found a
  15485. 900.18 s [opt-env-conf-test] + else pure NotRun
  15486. 900.18 s [opt-env-conf-test] +
  15487. 900.18 s [opt-env-conf-test] + case mOpt of
  15488. 900.18 s [opt-env-conf-test] + Found a -> do
  15489. 900.18 s [opt-env-conf-test] + markParsed
  15490. 900.18 s [opt-env-conf-test] + pure a
  15491. 900.18 s [opt-env-conf-test] + _ -> do
  15492. 900.18 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  15493. 900.18 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  15494. 900.18 s [opt-env-conf-test] + Nothing -> pure NotRun
  15495. 900.18 s [opt-env-conf-test] + Just ne -> do
  15496. 900.18 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  15497. 900.18 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  15498. 900.18 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  15499. 900.18 s [opt-env-conf-test] + es <- asks ppEnvEnv
  15500. 900.18 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  15501. 900.18 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  15502. 900.18 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  15503. 900.18 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  15504. 900.18 s [opt-env-conf-test] + -- result.
  15505. 900.18 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  15506. 900.18 s [opt-env-conf-test] + case tryReaders rs varStr of
  15507. 900.18 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  15508. 900.18 s [opt-env-conf-test] + Right a -> do
  15509. 900.18 s [opt-env-conf-test] + debug
  15510. 900.18 s [opt-env-conf-test] + [ "set based on env: ",
  15511. 900.18 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  15512. 900.18 s [opt-env-conf-test] + ]
  15513. 900.18 s [opt-env-conf-test] + pure a
  15514. 900.18 s [opt-env-conf-test] + case listToMaybe results of
  15515. 900.18 s [opt-env-conf-test] + Nothing -> do
  15516. 900.18 s [opt-env-conf-test] + debug
  15517. 900.18 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  15518. 900.18 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  15519. 900.18 s [opt-env-conf-test] + ]
  15520. 900.18 s [opt-env-conf-test] + pure NotFound
  15521. 900.18 s [opt-env-conf-test] + Just a -> pure $ Found a
  15522. 900.18 s [opt-env-conf-test] +
  15523. 900.18 s [opt-env-conf-test] + case mEnv of
  15524. 900.18 s [opt-env-conf-test] + Found a -> do
  15525. 900.18 s [opt-env-conf-test] + markParsed
  15526. 900.18 s [opt-env-conf-test] + pure a
  15527. 900.18 s [opt-env-conf-test] + _ -> do
  15528. 900.18 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  15529. 901.59 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  15530. 901.82 s [opt-env-conf-test] + Nothing -> pure NotRun
  15531. 901.82 s [opt-env-conf-test] + Just confSets -> do
  15532. 901.82 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  15533. 901.82 s [opt-env-conf-test] + case mObj of
  15534. 901.82 s [opt-env-conf-test] + Nothing -> do
  15535. 901.82 s [opt-env-conf-test] + debug ["no config object to set from"]
  15536. 901.82 s [opt-env-conf-test] + pure NotFound
  15537. 901.82 s [opt-env-conf-test] + Just obj -> do
  15538. 901.82 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  15539. 901.82 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  15540. 901.82 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  15541. 901.82 s [opt-env-conf-test] + Nothing -> do
  15542. 901.82 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  15543. 901.82 s [opt-env-conf-test] + Nothing -> pure Nothing
  15544. 901.82 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  15545. 901.82 s [opt-env-conf-test] + Just neRest -> do
  15546. 901.82 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  15547. 901.82 s [opt-env-conf-test] + case mO' of
  15548. 901.82 s [opt-env-conf-test] + Nothing -> pure Nothing
  15549. 901.82 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  15550. 901.82 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  15551. 901.83 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15552. 901.83 s [opt-env-conf-test] + Right mV -> case mV of
  15553. 901.83 s [opt-env-conf-test] + Nothing -> do
  15554. 901.83 s [opt-env-conf-test] + debug
  15555. 901.83 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  15556. 901.83 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15557. 901.83 s [opt-env-conf-test] + ]
  15558. 901.83 s [opt-env-conf-test] + pure Nothing
  15559. 901.83 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15560. 901.83 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15561. 901.83 s [opt-env-conf-test] + Right mA -> case mA of
  15562. 901.83 s [opt-env-conf-test] + Nothing -> do
  15563. 901.83 s [opt-env-conf-test] + debug
  15564. 901.83 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  15565. 901.83 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15566. 901.83 s [opt-env-conf-test] + ]
  15567. 901.83 s [opt-env-conf-test] + pure Nothing
  15568. 901.83 s [opt-env-conf-test] + Just a -> do
  15569. 901.83 s [opt-env-conf-test] + debug
  15570. 901.83 s [opt-env-conf-test] + [ "set based on config value: ",
  15571. 901.83 s [opt-env-conf-test] + chunk $ T.pack $ show v
  15572. 901.83 s [opt-env-conf-test] + ]
  15573. 901.83 s [opt-env-conf-test] + pure $ Just a
  15574. 901.83 s [opt-env-conf-test] + let toRes = \case
  15575. 901.83 s [opt-env-conf-test] + Nothing -> NotFound
  15576. 901.83 s [opt-env-conf-test] + Just a -> Found a
  15577. 901.83 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15578. 901.83 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  15579. 901.83 s [opt-env-conf-test] + Just ne -> do
  15580. 901.83 s [opt-env-conf-test] + res <- goConfSet confSet
  15581. 901.83 s [opt-env-conf-test] + case res of
  15582. 901.83 s [opt-env-conf-test] + Just a -> pure $ Found a
  15583. 901.83 s [opt-env-conf-test] + Nothing -> goConfSets ne
  15584. 901.83 s [opt-env-conf-test] + goConfSets confSets
  15585. 901.83 s [opt-env-conf-test] + case mConf of
  15586. 901.83 s [opt-env-conf-test] + Found a -> do
  15587. 901.83 s [opt-env-conf-test] + markParsed
  15588. 901.83 s [opt-env-conf-test] + pure a
  15589. 901.83 s [opt-env-conf-test] + _ ->
  15590. 901.83 s [opt-env-conf-test] + case settingDefaultValue of
  15591. 901.84 s [opt-env-conf-test] + Just (a, _) -> do
  15592. 901.84 s [opt-env-conf-test] + debug ["set to default value"]
  15593. 901.84 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  15594. 901.84 s [opt-env-conf-test] + Nothing -> do
  15595. 901.84 s [opt-env-conf-test] + let parseResultError e res = case res of
  15596. 901.84 s [opt-env-conf-test] + NotRun -> Nothing
  15597. 901.84 s [opt-env-conf-test] + NotFound -> Just e
  15598. 901.84 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  15599. 901.84 s [opt-env-conf-test] + debug ["not found"]
  15600. 901.84 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15601. 901.84 s [opt-env-conf-test] + NE.nonEmpty $
  15602. 901.84 s [opt-env-conf-test] + catMaybes
  15603. 901.84 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  15604. 901.84 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  15605. 901.84 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  15606. 901.84 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  15607. 901.84 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  15608. 901.84 s [opt-env-conf-test] + ]
  15609. 901.84 s [opt-env-conf-test]
  15610. 901.84 s [opt-env-conf-test] withCapabilities ::
  15611. 901.84 s [opt-env-conf-test] Maybe SrcLoc ->
  15612. 901.84 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:364:10-21
  15613. 901.84 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  15614. 901.84 s [opt-env-conf-test] where
  15615. 901.84 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15616. 901.84 s [opt-env-conf-test] go (c :| rest) =
  15617. 901.84 s [opt-env-conf-test] - if c `elem` cs
  15618. 901.84 s [opt-env-conf-test] + if not (c `elem` cs)
  15619. 901.84 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15620. 901.84 s [opt-env-conf-test] else do
  15621. 901.84 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  15622. 901.84 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:364:7-20
  15623. 901.84 s [opt-env-conf-test] @@ -361,17 +361,17 @@
  15624. 901.84 s [opt-env-conf-test] where
  15625. 901.84 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15626. 901.84 s [opt-env-conf-test] go (c :| rest) =
  15627. 901.84 s [opt-env-conf-test] - if c `elem` cs
  15628. 901.84 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15629. 901.84 s [opt-env-conf-test] - else do
  15630. 901.84 s [opt-env-conf-test] - rest' <- NE.nonEmpty rest
  15631. 901.84 s [opt-env-conf-test] - new <- go rest'
  15632. 901.84 s [opt-env-conf-test] - pure $
  15633. 901.84 s [opt-env-conf-test] - Just $
  15634. 901.84 s [opt-env-conf-test] - maybe
  15635. 901.84 s [opt-env-conf-test] - (c :| [], True)
  15636. 901.84 s [opt-env-conf-test] - (first (c NE.<|))
  15637. 901.84 s [opt-env-conf-test] - new
  15638. 901.84 s [opt-env-conf-test] + if c `elem` cs
  15639. 901.84 s [opt-env-conf-test] + then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15640. 901.84 s [opt-env-conf-test] + else do
  15641. 901.84 s [opt-env-conf-test] + rest' <- NE.nonEmpty rest
  15642. 901.84 s [opt-env-conf-test] + new <- go rest'
  15643. 901.84 s [opt-env-conf-test] + pure $
  15644. 901.84 s [opt-env-conf-test] + Just $
  15645. 901.84 s [opt-env-conf-test] + maybe
  15646. 901.84 s [opt-env-conf-test] + (c :| [], True)
  15647. 901.84 s [opt-env-conf-test] + (first (c NE.<|))
  15648. 901.84 s [opt-env-conf-test] + new
  15649. 901.84 s [opt-env-conf-test]
  15650. 901.84 s [opt-env-conf-test] recogniseLeftovers :: Args -> Maybe (NonEmpty String)
  15651. 901.84 s [opt-env-conf-test] recogniseLeftovers Args {..} = NE.nonEmpty $ live argsBefore ++ live (modDoubleDash argsAfter)
  15652. 901.84 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:372:27-31
  15653. 901.84 s [opt-env-conf-test] @@ -369,7 +369,7 @@
  15654. 901.84 s [opt-env-conf-test] pure $
  15655. 901.84 s [opt-env-conf-test] Just $
  15656. 901.84 s [opt-env-conf-test] maybe
  15657. 901.84 s [opt-env-conf-test] - (c :| [], True)
  15658. 901.84 s [opt-env-conf-test] + (c :| [], False)
  15659. 901.84 s [opt-env-conf-test] (first (c NE.<|))
  15660. 901.84 s [opt-env-conf-test] new
  15661. 901.84 s [opt-env-conf-test]
  15662. 901.84 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
  15663. 901.84 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  15664. 901.84 s [opt-env-conf-test] NonEmpty Char ->
  15665. 901.84 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  15666. 901.84 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15667. 901.84 s [opt-env-conf-test] - if isLong
  15668. 901.84 s [opt-env-conf-test] + if False
  15669. 901.84 s [opt-env-conf-test] then
  15670. 901.84 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  15671. 901.84 s [opt-env-conf-test] then Just Nothing
  15672. 901.84 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:352:6-12
  15673. 901.84 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  15674. 901.84 s [opt-env-conf-test] NonEmpty Char ->
  15675. 901.84 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  15676. 901.84 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15677. 901.84 s [opt-env-conf-test] - if isLong
  15678. 901.84 s [opt-env-conf-test] + if not (isLong)
  15679. 901.84 s [opt-env-conf-test] then
  15680. 901.84 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  15681. 901.84 s [opt-env-conf-test] then Just Nothing
  15682. 901.84 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:354:10-38
  15683. 901.84 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  15684. 901.84 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15685. 901.84 s [opt-env-conf-test] if isLong
  15686. 901.84 s [opt-env-conf-test] then
  15687. 901.84 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  15688. 901.84 s [opt-env-conf-test] + if not (DashedLong cs `elem` dasheds)
  15689. 901.84 s [opt-env-conf-test] then Just Nothing
  15690. 901.84 s [opt-env-conf-test] else Nothing
  15691. 901.84 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  15692. 901.84 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
  15693. 902.83 s [opt-env-conf-test] @@ -321,9 +321,9 @@
  15694. 902.83 s [opt-env-conf-test] consumeSwitch dasheds as = do
  15695. 902.83 s [opt-env-conf-test] case go (argsBefore as) of
  15696. 902.83 s [opt-env-conf-test] Just newBefores -> Just $ as {argsBefore = newBefores}
  15697. 902.83 s [opt-env-conf-test] - Nothing -> case go (argsAfter as) of
  15698. 902.84 s [opt-env-conf-test] - Just newAfters -> Just $ as {argsAfter = newAfters}
  15699. 902.84 s [opt-env-conf-test] - Nothing -> Nothing
  15700. 902.84 s [opt-env-conf-test] + Nothing -> case go (argsAfter as) of
  15701. 902.84 s [opt-env-conf-test] + Just newAfters -> Just $ as {argsAfter = newAfters}
  15702. 902.84 s [opt-env-conf-test] + Nothing -> Nothing
  15703. 902.84 s [opt-env-conf-test] where
  15704. 902.84 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe [Tomb Arg]
  15705. 902.84 s [opt-env-conf-test] go = \case
  15706. 902.84 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
  15707. 902.84 s [opt-env-conf-test] @@ -403,7 +403,7 @@
  15708. 902.84 s [opt-env-conf-test]
  15709. 902.84 s [opt-env-conf-test] renderDashed :: Dashed -> String
  15710. 902.84 s [opt-env-conf-test] renderDashed = \case
  15711. 902.84 s [opt-env-conf-test] - DashedShort c -> ['-', c]
  15712. 902.84 s [opt-env-conf-test] + DashedShort c -> ['-', c]
  15713. 902.84 s [opt-env-conf-test] DashedLong cs -> '-' : '-' : NE.toList cs
  15714. 902.84 s [opt-env-conf-test]
  15715. 902.84 s [opt-env-conf-test] prefixDashed :: String -> Dashed -> Dashed
  15716. 902.84 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
  15717. 902.84 s [opt-env-conf-test] @@ -300,158 +300,158 @@
  15718. 902.84 s [opt-env-conf-test] debug ["set based on switch."]
  15719. 902.84 s [opt-env-conf-test] pure $ Found a
  15720. 902.84 s [opt-env-conf-test]
  15721. 902.84 s [opt-env-conf-test] - case mSwitch of
  15722. 902.84 s [opt-env-conf-test] - Found a -> do
  15723. 902.84 s [opt-env-conf-test] - markParsed
  15724. 902.84 s [opt-env-conf-test] - pure a
  15725. 902.84 s [opt-env-conf-test] - _ -> do
  15726. 902.84 s [opt-env-conf-test] - mOpt <-
  15727. 902.84 s [opt-env-conf-test] - if settingTryOption
  15728. 902.84 s [opt-env-conf-test] - then do
  15729. 902.84 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  15730. 902.84 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  15731. 902.84 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  15732. 902.84 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  15733. 902.84 s [opt-env-conf-test] - case mS of
  15734. 902.84 s [opt-env-conf-test] - Nothing -> do
  15735. 902.84 s [opt-env-conf-test] - debug
  15736. 902.84 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  15737. 902.84 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  15738. 902.84 s [opt-env-conf-test] - ]
  15739. 902.84 s [opt-env-conf-test] - pure NotFound
  15740. 902.84 s [opt-env-conf-test] - Just optionStr -> cap $
  15741. 902.84 s [opt-env-conf-test] - case tryReaders rs optionStr of
  15742. 902.84 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  15743. 902.84 s [opt-env-conf-test] - Right a -> do
  15744. 902.84 s [opt-env-conf-test] - debug
  15745. 902.84 s [opt-env-conf-test] - [ "set based on option: ",
  15746. 902.84 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  15747. 902.84 s [opt-env-conf-test] - ]
  15748. 902.84 s [opt-env-conf-test] - pure $ Found a
  15749. 902.84 s [opt-env-conf-test] - else pure NotRun
  15750. 902.84 s [opt-env-conf-test] -
  15751. 902.84 s [opt-env-conf-test] - case mOpt of
  15752. 902.84 s [opt-env-conf-test] - Found a -> do
  15753. 902.84 s [opt-env-conf-test] - markParsed
  15754. 902.84 s [opt-env-conf-test] - pure a
  15755. 902.84 s [opt-env-conf-test] - _ -> do
  15756. 902.84 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  15757. 902.84 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  15758. 902.84 s [opt-env-conf-test] - Nothing -> pure NotRun
  15759. 902.84 s [opt-env-conf-test] - Just ne -> do
  15760. 902.84 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  15761. 902.84 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  15762. 902.84 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  15763. 902.84 s [opt-env-conf-test] - es <- asks ppEnvEnv
  15764. 902.84 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  15765. 902.84 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  15766. 902.84 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  15767. 902.84 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  15768. 902.84 s [opt-env-conf-test] - -- result.
  15769. 902.84 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  15770. 902.84 s [opt-env-conf-test] - case tryReaders rs varStr of
  15771. 902.84 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  15772. 902.84 s [opt-env-conf-test] - Right a -> do
  15773. 902.84 s [opt-env-conf-test] - debug
  15774. 902.84 s [opt-env-conf-test] - [ "set based on env: ",
  15775. 902.85 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  15776. 902.85 s [opt-env-conf-test] - ]
  15777. 902.85 s [opt-env-conf-test] - pure a
  15778. 902.85 s [opt-env-conf-test] - case listToMaybe results of
  15779. 902.85 s [opt-env-conf-test] - Nothing -> do
  15780. 902.85 s [opt-env-conf-test] - debug
  15781. 902.85 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  15782. 902.85 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  15783. 902.85 s [opt-env-conf-test] - ]
  15784. 902.85 s [opt-env-conf-test] - pure NotFound
  15785. 902.85 s [opt-env-conf-test] - Just a -> pure $ Found a
  15786. 902.85 s [opt-env-conf-test] -
  15787. 902.85 s [opt-env-conf-test] - case mEnv of
  15788. 902.85 s [opt-env-conf-test] - Found a -> do
  15789. 902.85 s [opt-env-conf-test] - markParsed
  15790. 902.85 s [opt-env-conf-test] - pure a
  15791. 902.85 s [opt-env-conf-test] - _ -> do
  15792. 902.85 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  15793. 902.85 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  15794. 902.85 s [opt-env-conf-test] - Nothing -> pure NotRun
  15795. 902.85 s [opt-env-conf-test] - Just confSets -> do
  15796. 902.85 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  15797. 902.85 s [opt-env-conf-test] - case mObj of
  15798. 902.85 s [opt-env-conf-test] - Nothing -> do
  15799. 902.85 s [opt-env-conf-test] - debug ["no config object to set from"]
  15800. 902.85 s [opt-env-conf-test] - pure NotFound
  15801. 902.85 s [opt-env-conf-test] - Just obj -> do
  15802. 902.85 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  15803. 902.85 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  15804. 902.85 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  15805. 902.85 s [opt-env-conf-test] - Nothing -> do
  15806. 902.85 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  15807. 902.85 s [opt-env-conf-test] - Nothing -> pure Nothing
  15808. 902.85 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  15809. 902.85 s [opt-env-conf-test] - Just neRest -> do
  15810. 902.85 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  15811. 902.85 s [opt-env-conf-test] - case mO' of
  15812. 902.85 s [opt-env-conf-test] - Nothing -> pure Nothing
  15813. 902.85 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  15814. 902.85 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  15815. 902.85 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15816. 902.85 s [opt-env-conf-test] - Right mV -> case mV of
  15817. 902.85 s [opt-env-conf-test] - Nothing -> do
  15818. 902.85 s [opt-env-conf-test] - debug
  15819. 902.85 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  15820. 902.85 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15821. 902.85 s [opt-env-conf-test] - ]
  15822. 902.85 s [opt-env-conf-test] - pure Nothing
  15823. 902.85 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15824. 902.85 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15825. 902.85 s [opt-env-conf-test] - Right mA -> case mA of
  15826. 902.85 s [opt-env-conf-test] - Nothing -> do
  15827. 902.85 s [opt-env-conf-test] - debug
  15828. 902.85 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  15829. 902.85 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15830. 902.85 s [opt-env-conf-test] - ]
  15831. 902.85 s [opt-env-conf-test] - pure Nothing
  15832. 902.85 s [opt-env-conf-test] - Just a -> do
  15833. 902.85 s [opt-env-conf-test] - debug
  15834. 902.85 s [opt-env-conf-test] - [ "set based on config value: ",
  15835. 902.85 s [opt-env-conf-test] - chunk $ T.pack $ show v
  15836. 902.85 s [opt-env-conf-test] - ]
  15837. 902.85 s [opt-env-conf-test] - pure $ Just a
  15838. 902.85 s [opt-env-conf-test] - let toRes = \case
  15839. 902.85 s [opt-env-conf-test] - Nothing -> NotFound
  15840. 902.85 s [opt-env-conf-test] - Just a -> Found a
  15841. 902.85 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15842. 902.85 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  15843. 902.85 s [opt-env-conf-test] - Just ne -> do
  15844. 902.85 s [opt-env-conf-test] - res <- goConfSet confSet
  15845. 902.85 s [opt-env-conf-test] - case res of
  15846. 902.85 s [opt-env-conf-test] - Just a -> pure $ Found a
  15847. 902.85 s [opt-env-conf-test] - Nothing -> goConfSets ne
  15848. 902.85 s [opt-env-conf-test] - goConfSets confSets
  15849. 902.85 s [opt-env-conf-test] - case mConf of
  15850. 902.85 s [opt-env-conf-test] - Found a -> do
  15851. 902.85 s [opt-env-conf-test] - markParsed
  15852. 902.85 s [opt-env-conf-test] - pure a
  15853. 902.85 s [opt-env-conf-test] - _ ->
  15854. 902.85 s [opt-env-conf-test] - case settingDefaultValue of
  15855. 902.85 s [opt-env-conf-test] - Just (a, _) -> do
  15856. 902.85 s [opt-env-conf-test] - debug ["set to default value"]
  15857. 902.85 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  15858. 902.85 s [opt-env-conf-test] - Nothing -> do
  15859. 902.85 s [opt-env-conf-test] - let parseResultError e res = case res of
  15860. 902.85 s [opt-env-conf-test] - NotRun -> Nothing
  15861. 902.85 s [opt-env-conf-test] - NotFound -> Just e
  15862. 902.85 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  15863. 902.85 s [opt-env-conf-test] - debug ["not found"]
  15864. 902.85 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15865. 902.85 s [opt-env-conf-test] - NE.nonEmpty $
  15866. 902.85 s [opt-env-conf-test] - catMaybes
  15867. 902.85 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  15868. 902.85 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  15869. 902.85 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  15870. 902.85 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  15871. 902.85 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  15872. 902.85 s [opt-env-conf-test] - ]
  15873. 902.85 s [opt-env-conf-test] + case mSwitch of
  15874. 902.85 s [opt-env-conf-test] + Found a -> do
  15875. 902.85 s [opt-env-conf-test] + markParsed
  15876. 902.85 s [opt-env-conf-test] + pure a
  15877. 902.85 s [opt-env-conf-test] + _ -> do
  15878. 902.85 s [opt-env-conf-test] + mOpt <-
  15879. 902.85 s [opt-env-conf-test] + if settingTryOption
  15880. 902.85 s [opt-env-conf-test] + then do
  15881. 902.85 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  15882. 902.85 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  15883. 902.85 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  15884. 902.85 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  15885. 902.85 s [opt-env-conf-test] + case mS of
  15886. 902.85 s [opt-env-conf-test] + Nothing -> do
  15887. 902.85 s [opt-env-conf-test] + debug
  15888. 902.85 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  15889. 902.85 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  15890. 902.85 s [opt-env-conf-test] + ]
  15891. 902.85 s [opt-env-conf-test] + pure NotFound
  15892. 902.85 s [opt-env-conf-test] + Just optionStr -> cap $
  15893. 902.85 s [opt-env-conf-test] + case tryReaders rs optionStr of
  15894. 902.85 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  15895. 902.86 s [opt-env-conf-test] + Right a -> do
  15896. 902.86 s [opt-env-conf-test] + debug
  15897. 902.86 s [opt-env-conf-test] + [ "set based on option: ",
  15898. 902.86 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  15899. 902.86 s [opt-env-conf-test] + ]
  15900. 902.86 s [opt-env-conf-test] + pure $ Found a
  15901. 902.86 s [opt-env-conf-test] + else pure NotRun
  15902. 902.86 s [opt-env-conf-test] +
  15903. 902.86 s [opt-env-conf-test] + case mOpt of
  15904. 902.86 s [opt-env-conf-test] + Found a -> do
  15905. 902.86 s [opt-env-conf-test] + markParsed
  15906. 902.86 s [opt-env-conf-test] + pure a
  15907. 902.86 s [opt-env-conf-test] + _ -> do
  15908. 902.86 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  15909. 902.86 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  15910. 902.86 s [opt-env-conf-test] + Nothing -> pure NotRun
  15911. 902.86 s [opt-env-conf-test] + Just ne -> do
  15912. 902.86 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  15913. 902.86 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  15914. 902.86 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  15915. 902.86 s [opt-env-conf-test] + es <- asks ppEnvEnv
  15916. 902.86 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  15917. 902.86 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  15918. 902.86 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  15919. 902.86 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  15920. 902.86 s [opt-env-conf-test] + -- result.
  15921. 902.86 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  15922. 902.86 s [opt-env-conf-test] + case tryReaders rs varStr of
  15923. 902.86 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  15924. 902.86 s [opt-env-conf-test] + Right a -> do
  15925. 902.86 s [opt-env-conf-test] + debug
  15926. 902.86 s [opt-env-conf-test] + [ "set based on env: ",
  15927. 902.86 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  15928. 902.86 s [opt-env-conf-test] + ]
  15929. 902.86 s [opt-env-conf-test] + pure a
  15930. 902.86 s [opt-env-conf-test] + case listToMaybe results of
  15931. 902.86 s [opt-env-conf-test] + Nothing -> do
  15932. 902.86 s [opt-env-conf-test] + debug
  15933. 902.86 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  15934. 902.86 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  15935. 902.86 s [opt-env-conf-test] + ]
  15936. 902.86 s [opt-env-conf-test] + pure NotFound
  15937. 902.86 s [opt-env-conf-test] + Just a -> pure $ Found a
  15938. 902.86 s [opt-env-conf-test] +
  15939. 902.86 s [opt-env-conf-test] + case mEnv of
  15940. 902.86 s [opt-env-conf-test] + Found a -> do
  15941. 902.86 s [opt-env-conf-test] + markParsed
  15942. 902.86 s [opt-env-conf-test] + pure a
  15943. 902.86 s [opt-env-conf-test] + _ -> do
  15944. 902.86 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  15945. 902.86 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  15946. 902.86 s [opt-env-conf-test] + Nothing -> pure NotRun
  15947. 902.86 s [opt-env-conf-test] + Just confSets -> do
  15948. 902.86 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  15949. 902.86 s [opt-env-conf-test] + case mObj of
  15950. 902.86 s [opt-env-conf-test] + Nothing -> do
  15951. 902.86 s [opt-env-conf-test] + debug ["no config object to set from"]
  15952. 902.86 s [opt-env-conf-test] + pure NotFound
  15953. 902.86 s [opt-env-conf-test] + Just obj -> do
  15954. 902.86 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  15955. 902.86 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  15956. 902.86 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  15957. 902.86 s [opt-env-conf-test] + Nothing -> do
  15958. 902.86 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  15959. 902.86 s [opt-env-conf-test] + Nothing -> pure Nothing
  15960. 902.86 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  15961. 902.86 s [opt-env-conf-test] + Just neRest -> do
  15962. 902.86 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  15963. 902.86 s [opt-env-conf-test] + case mO' of
  15964. 902.86 s [opt-env-conf-test] + Nothing -> pure Nothing
  15965. 902.86 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  15966. 902.86 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  15967. 902.86 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15968. 902.86 s [opt-env-conf-test] + Right mV -> case mV of
  15969. 902.86 s [opt-env-conf-test] + Nothing -> do
  15970. 902.86 s [opt-env-conf-test] + debug
  15971. 902.86 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  15972. 902.86 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15973. 902.86 s [opt-env-conf-test] + ]
  15974. 902.86 s [opt-env-conf-test] + pure Nothing
  15975. 902.86 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15976. 902.86 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15977. 902.86 s [opt-env-conf-test] + Right mA -> case mA of
  15978. 902.86 s [opt-env-conf-test] + Nothing -> do
  15979. 902.86 s [opt-env-conf-test] + debug
  15980. 905.62 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  15981. 905.62 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15982. 905.62 s [opt-env-conf-test] + ]
  15983. 905.62 s [opt-env-conf-test] + pure Nothing
  15984. 905.62 s [opt-env-conf-test] + Just a -> do
  15985. 905.62 s [opt-env-conf-test] + debug
  15986. 905.62 s [opt-env-conf-test] + [ "set based on config value: ",
  15987. 905.62 s [opt-env-conf-test] + chunk $ T.pack $ show v
  15988. 905.62 s [opt-env-conf-test] + ]
  15989. 905.62 s [opt-env-conf-test] + pure $ Just a
  15990. 905.62 s [opt-env-conf-test] + let toRes = \case
  15991. 905.62 s [opt-env-conf-test] + Nothing -> NotFound
  15992. 905.62 s [opt-env-conf-test] + Just a -> Found a
  15993. 905.62 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15994. 905.62 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  15995. 905.62 s [opt-env-conf-test] + Just ne -> do
  15996. 905.62 s [opt-env-conf-test] + res <- goConfSet confSet
  15997. 905.62 s [opt-env-conf-test] + case res of
  15998. 905.62 s [opt-env-conf-test] + Just a -> pure $ Found a
  15999. 905.62 s [opt-env-conf-test] + Nothing -> goConfSets ne
  16000. 905.62 s [opt-env-conf-test] + goConfSets confSets
  16001. 905.62 s [opt-env-conf-test] + case mConf of
  16002. 905.62 s [opt-env-conf-test] + Found a -> do
  16003. 905.62 s [opt-env-conf-test] + markParsed
  16004. 905.62 s [opt-env-conf-test] + pure a
  16005. 905.62 s [opt-env-conf-test] + _ ->
  16006. 905.62 s [opt-env-conf-test] + case settingDefaultValue of
  16007. 905.62 s [opt-env-conf-test] + Just (a, _) -> do
  16008. 905.62 s [opt-env-conf-test] + debug ["set to default value"]
  16009. 905.62 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  16010. 905.62 s [opt-env-conf-test] + Nothing -> do
  16011. 905.62 s [opt-env-conf-test] + let parseResultError e res = case res of
  16012. 905.62 s [opt-env-conf-test] + NotRun -> Nothing
  16013. 905.62 s [opt-env-conf-test] + NotFound -> Just e
  16014. 905.62 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  16015. 905.63 s [opt-env-conf-test] + debug ["not found"]
  16016. 905.63 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  16017. 905.63 s [opt-env-conf-test] + NE.nonEmpty $
  16018. 905.63 s [opt-env-conf-test] + catMaybes
  16019. 905.63 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  16020. 905.63 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  16021. 905.63 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  16022. 905.63 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  16023. 905.63 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  16024. 905.63 s [opt-env-conf-test] + ]
  16025. 905.63 s [opt-env-conf-test]
  16026. 905.63 s [opt-env-conf-test] withCapabilities ::
  16027. 905.63 s [opt-env-conf-test] Maybe SrcLoc ->
  16028. 905.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
  16029. 905.63 s [opt-env-conf-test] @@ -321,9 +321,9 @@
  16030. 905.63 s [opt-env-conf-test] consumeSwitch dasheds as = do
  16031. 905.63 s [opt-env-conf-test] case go (argsBefore as) of
  16032. 905.63 s [opt-env-conf-test] Just newBefores -> Just $ as {argsBefore = newBefores}
  16033. 905.63 s [opt-env-conf-test] - Nothing -> case go (argsAfter as) of
  16034. 905.63 s [opt-env-conf-test] - Just newAfters -> Just $ as {argsAfter = newAfters}
  16035. 905.63 s [opt-env-conf-test] - Nothing -> Nothing
  16036. 905.63 s [opt-env-conf-test] + Nothing -> case go (argsAfter as) of
  16037. 905.63 s [opt-env-conf-test] + Just newAfters -> Just $ as {argsAfter = newAfters}
  16038. 905.63 s [opt-env-conf-test] + Nothing -> Nothing
  16039. 905.63 s [opt-env-conf-test] where
  16040. 905.63 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe [Tomb Arg]
  16041. 905.63 s [opt-env-conf-test] go = \case
  16042. 905.63 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
  16043. 905.63 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  16044. 905.63 s [opt-env-conf-test] NonEmpty Char ->
  16045. 905.63 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  16046. 905.63 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  16047. 905.63 s [opt-env-conf-test] - if isLong
  16048. 905.63 s [opt-env-conf-test] + if True
  16049. 905.63 s [opt-env-conf-test] then
  16050. 905.63 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  16051. 905.63 s [opt-env-conf-test] then Just Nothing
  16052. 905.63 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:365:34-43
  16053. 905.63 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  16054. 905.63 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  16055. 905.63 s [opt-env-conf-test] go (c :| rest) =
  16056. 905.63 s [opt-env-conf-test] if c `elem` cs
  16057. 905.63 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  16058. 905.63 s [opt-env-conf-test] + then Just $ (\ne -> (ne, not (null rest))) <$> NE.nonEmpty rest
  16059. 905.63 s [opt-env-conf-test] else do
  16060. 905.63 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  16061. 905.63 s [opt-env-conf-test] new <- go rest'
  16062. 905.63 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:338:28-41
  16063. 905.63 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  16064. 905.63 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16065. 905.63 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16066. 905.63 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16067. 905.63 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16068. 905.63 s [opt-env-conf-test] + let rest' = if not (needTombstone) then Dead : rest else rest
  16069. 905.63 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16070. 905.63 s [opt-env-conf-test] _ -> do
  16071. 905.63 s [opt-env-conf-test] os <- go rest
  16072. 905.63 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
  16073. 905.63 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  16074. 905.63 s [opt-env-conf-test] where
  16075. 905.63 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  16076. 905.63 s [opt-env-conf-test] go (c :| rest) =
  16077. 905.63 s [opt-env-conf-test] - if c `elem` cs
  16078. 905.63 s [opt-env-conf-test] + if False
  16079. 905.63 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  16080. 905.63 s [opt-env-conf-test] else do
  16081. 905.63 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  16082. 905.63 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
  16083. 905.63 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  16084. 905.63 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16085. 905.63 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16086. 905.63 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16087. 905.63 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16088. 905.63 s [opt-env-conf-test] + let rest' = if False then Dead : rest else rest
  16089. 905.63 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16090. 905.63 s [opt-env-conf-test] _ -> do
  16091. 905.63 s [opt-env-conf-test] os <- go rest
  16092. 905.63 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
  16093. 905.63 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  16094. 905.63 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16095. 905.63 s [opt-env-conf-test] (Live o : rest) -> case o of
  16096. 905.63 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16097. 905.63 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16098. 905.63 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds False cs of
  16099. 905.63 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16100. 905.63 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16101. 905.63 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16102. 905.63 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:338:25-68
  16103. 905.63 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  16104. 905.63 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16105. 905.63 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16106. 905.63 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16107. 905.63 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16108. 905.63 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  16109. 905.63 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16110. 905.63 s [opt-env-conf-test] _ -> do
  16111. 905.63 s [opt-env-conf-test] os <- go rest
  16112. 905.63 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:334:65-71
  16113. 905.63 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  16114. 905.63 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16115. 905.63 s [opt-env-conf-test] (Live o : rest) -> case o of
  16116. 905.63 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16117. 905.63 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16118. 905.63 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds not (isLong) cs of
  16119. 905.63 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16120. 905.63 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16121. 905.63 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16122. 905.63 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
  16123. 905.63 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  16124. 905.63 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16125. 905.63 s [opt-env-conf-test] (Live o : rest) -> case o of
  16126. 905.63 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16127. 905.63 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16128. 905.63 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds True cs of
  16129. 905.63 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16130. 905.63 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16131. 905.63 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16132. 905.63 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
  16133. 905.63 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  16134. 905.63 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16135. 905.63 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16136. 905.63 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16137. 905.63 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16138. 905.63 s [opt-env-conf-test] + let rest' = if True then Dead : rest else rest
  16139. 905.63 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16140. 905.63 s [opt-env-conf-test] _ -> do
  16141. 905.63 s [opt-env-conf-test] os <- go rest
  16142. 905.63 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:352:3-47
  16143. 905.63 s [opt-env-conf-test] @@ -349,12 +349,12 @@
  16144. 905.63 s [opt-env-conf-test] NonEmpty Char ->
  16145. 905.63 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  16146. 905.63 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  16147. 905.63 s [opt-env-conf-test] - if isLong
  16148. 905.63 s [opt-env-conf-test] - then
  16149. 905.63 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16150. 905.63 s [opt-env-conf-test] - then Just Nothing
  16151. 905.63 s [opt-env-conf-test] - else Nothing
  16152. 907.19 s [opt-env-conf-test] - else consumeChar (shortDasheds dasheds) cs
  16153. 907.19 s [opt-env-conf-test] + if isLong
  16154. 907.29 s [opt-env-conf-test] + then
  16155. 907.29 s [opt-env-conf-test] + if DashedLong cs `elem` dasheds
  16156. 907.29 s [opt-env-conf-test] + then Just Nothing
  16157. 907.29 s [opt-env-conf-test] + else Nothing
  16158. 907.29 s [opt-env-conf-test] + else consumeChar (shortDasheds dasheds) cs
  16159. 907.29 s [opt-env-conf-test]
  16160. 907.29 s [opt-env-conf-test] consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  16161. 907.29 s [opt-env-conf-test] consumeChar cs = go
  16162. 907.29 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
  16163. 907.29 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  16164. 907.29 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  16165. 907.29 s [opt-env-conf-test] if isLong
  16166. 907.29 s [opt-env-conf-test] then
  16167. 907.29 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16168. 907.29 s [opt-env-conf-test] + if True
  16169. 907.29 s [opt-env-conf-test] then Just Nothing
  16170. 907.29 s [opt-env-conf-test] else Nothing
  16171. 907.29 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  16172. 907.29 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
  16173. 907.29 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  16174. 907.29 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  16175. 907.29 s [opt-env-conf-test] if isLong
  16176. 907.29 s [opt-env-conf-test] then
  16177. 907.29 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16178. 907.29 s [opt-env-conf-test] + if False
  16179. 907.29 s [opt-env-conf-test] then Just Nothing
  16180. 907.29 s [opt-env-conf-test] else Nothing
  16181. 907.29 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  16182. 907.29 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:354:7-21
  16183. 907.29 s [opt-env-conf-test] @@ -351,9 +351,9 @@
  16184. 907.29 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  16185. 907.29 s [opt-env-conf-test] if isLong
  16186. 907.29 s [opt-env-conf-test] then
  16187. 907.29 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16188. 907.29 s [opt-env-conf-test] - then Just Nothing
  16189. 907.29 s [opt-env-conf-test] - else Nothing
  16190. 907.29 s [opt-env-conf-test] + if DashedLong cs `elem` dasheds
  16191. 907.29 s [opt-env-conf-test] + then Just Nothing
  16192. 907.29 s [opt-env-conf-test] + else Nothing
  16193. 907.29 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  16194. 907.29 s [opt-env-conf-test]
  16195. 907.29 s [opt-env-conf-test] consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  16196. 907.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  16197. 907.29 s [opt-env-conf-test] @@ -331,12 +331,12 @@
  16198. 907.29 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16199. 907.29 s [opt-env-conf-test] (Live o : rest) -> case o of
  16200. 907.29 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16201. 907.29 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16202. 907.29 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  16203. 907.29 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  16204. 907.29 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  16205. 907.29 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16206. 907.29 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16207. 907.29 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16208. 907.29 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  16209. 907.29 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  16210. 907.29 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  16211. 907.29 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  16212. 907.29 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  16213. 907.29 s [opt-env-conf-test] _ -> do
  16214. 907.29 s [opt-env-conf-test] os <- go rest
  16215. 907.29 s [opt-env-conf-test] pure $ Live o : os
  16216. 907.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  16217. 907.29 s [opt-env-conf-test] @@ -331,12 +331,12 @@
  16218. 907.29 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16219. 907.29 s [opt-env-conf-test] (Live o : rest) -> case o of
  16220. 907.29 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16221. 907.29 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16222. 907.29 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  16223. 907.29 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  16224. 907.29 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  16225. 907.29 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16226. 907.29 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16227. 907.29 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16228. 907.29 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  16229. 907.29 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  16230. 907.29 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  16231. 907.29 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  16232. 907.29 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  16233. 907.29 s [opt-env-conf-test] _ -> do
  16234. 907.29 s [opt-env-conf-test] os <- go rest
  16235. 907.29 s [opt-env-conf-test] pure $ Live o : os
  16236. 907.29 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
  16237. 907.29 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  16238. 907.29 s [opt-env-conf-test] NonEmpty Char ->
  16239. 907.29 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  16240. 907.30 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16241. 907.30 s [opt-env-conf-test] - if isLong
  16242. 907.30 s [opt-env-conf-test] + if True
  16243. 907.30 s [opt-env-conf-test] then
  16244. 907.30 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  16245. 907.30 s [opt-env-conf-test] then Just Nothing
  16246. 907.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
  16247. 907.30 s [opt-env-conf-test] @@ -306,9 +306,9 @@
  16248. 907.30 s [opt-env-conf-test] where
  16249. 907.30 s [opt-env-conf-test] go acc ne =
  16250. 907.30 s [opt-env-conf-test] let (a, mRest) = NE.uncons ne
  16251. 907.30 s [opt-env-conf-test] - in case mRest of
  16252. 907.30 s [opt-env-conf-test] - Nothing -> (NE.nonEmpty $ reverse acc, a)
  16253. 907.30 s [opt-env-conf-test] - Just rest -> go (a : acc) rest
  16254. 907.30 s [opt-env-conf-test] + in case mRest of
  16255. 907.30 s [opt-env-conf-test] + Nothing -> (NE.nonEmpty $ reverse acc, a)
  16256. 907.30 s [opt-env-conf-test] + Just rest -> go (a : acc) rest
  16257. 907.30 s [opt-env-conf-test]
  16258. 907.30 s [opt-env-conf-test] -- | Consume a switch.
  16259. 907.30 s [opt-env-conf-test] --
  16260. 907.30 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:293:6-12
  16261. 907.30 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  16262. 907.30 s [opt-env-conf-test] NonEmpty Char ->
  16263. 907.30 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  16264. 907.30 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16265. 907.30 s [opt-env-conf-test] - if isLong
  16266. 907.30 s [opt-env-conf-test] + if not (isLong)
  16267. 907.30 s [opt-env-conf-test] then
  16268. 907.30 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  16269. 907.30 s [opt-env-conf-test] then Just Nothing
  16270. 907.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
  16271. 907.30 s [opt-env-conf-test] @@ -300,158 +300,158 @@
  16272. 907.30 s [opt-env-conf-test] debug ["set based on switch."]
  16273. 907.30 s [opt-env-conf-test] pure $ Found a
  16274. 907.30 s [opt-env-conf-test]
  16275. 907.30 s [opt-env-conf-test] - case mSwitch of
  16276. 907.30 s [opt-env-conf-test] - Found a -> do
  16277. 907.30 s [opt-env-conf-test] - markParsed
  16278. 907.30 s [opt-env-conf-test] - pure a
  16279. 907.30 s [opt-env-conf-test] - _ -> do
  16280. 907.30 s [opt-env-conf-test] - mOpt <-
  16281. 907.30 s [opt-env-conf-test] - if settingTryOption
  16282. 907.30 s [opt-env-conf-test] - then do
  16283. 907.30 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  16284. 907.30 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  16285. 907.30 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  16286. 907.30 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  16287. 907.30 s [opt-env-conf-test] - case mS of
  16288. 907.30 s [opt-env-conf-test] - Nothing -> do
  16289. 907.30 s [opt-env-conf-test] - debug
  16290. 907.30 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  16291. 907.30 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  16292. 907.30 s [opt-env-conf-test] - ]
  16293. 907.30 s [opt-env-conf-test] - pure NotFound
  16294. 907.30 s [opt-env-conf-test] - Just optionStr -> cap $
  16295. 907.30 s [opt-env-conf-test] - case tryReaders rs optionStr of
  16296. 907.30 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  16297. 907.30 s [opt-env-conf-test] - Right a -> do
  16298. 907.30 s [opt-env-conf-test] - debug
  16299. 907.30 s [opt-env-conf-test] - [ "set based on option: ",
  16300. 907.30 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  16301. 907.30 s [opt-env-conf-test] - ]
  16302. 907.30 s [opt-env-conf-test] - pure $ Found a
  16303. 907.30 s [opt-env-conf-test] - else pure NotRun
  16304. 907.30 s [opt-env-conf-test] -
  16305. 907.30 s [opt-env-conf-test] - case mOpt of
  16306. 907.30 s [opt-env-conf-test] - Found a -> do
  16307. 907.30 s [opt-env-conf-test] - markParsed
  16308. 907.30 s [opt-env-conf-test] - pure a
  16309. 907.30 s [opt-env-conf-test] - _ -> do
  16310. 907.30 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  16311. 907.30 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  16312. 907.30 s [opt-env-conf-test] - Nothing -> pure NotRun
  16313. 907.30 s [opt-env-conf-test] - Just ne -> do
  16314. 907.30 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  16315. 907.30 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  16316. 907.30 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  16317. 907.30 s [opt-env-conf-test] - es <- asks ppEnvEnv
  16318. 907.30 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  16319. 907.30 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  16320. 907.30 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  16321. 907.30 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  16322. 907.30 s [opt-env-conf-test] - -- result.
  16323. 907.30 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  16324. 907.30 s [opt-env-conf-test] - case tryReaders rs varStr of
  16325. 907.30 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  16326. 907.30 s [opt-env-conf-test] - Right a -> do
  16327. 907.30 s [opt-env-conf-test] - debug
  16328. 907.30 s [opt-env-conf-test] - [ "set based on env: ",
  16329. 907.30 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  16330. 907.30 s [opt-env-conf-test] - ]
  16331. 907.30 s [opt-env-conf-test] - pure a
  16332. 907.30 s [opt-env-conf-test] - case listToMaybe results of
  16333. 907.30 s [opt-env-conf-test] - Nothing -> do
  16334. 907.30 s [opt-env-conf-test] - debug
  16335. 907.30 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  16336. 907.30 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  16337. 907.30 s [opt-env-conf-test] - ]
  16338. 907.30 s [opt-env-conf-test] - pure NotFound
  16339. 907.30 s [opt-env-conf-test] - Just a -> pure $ Found a
  16340. 907.30 s [opt-env-conf-test] -
  16341. 907.30 s [opt-env-conf-test] - case mEnv of
  16342. 907.30 s [opt-env-conf-test] - Found a -> do
  16343. 907.30 s [opt-env-conf-test] - markParsed
  16344. 907.30 s [opt-env-conf-test] - pure a
  16345. 907.30 s [opt-env-conf-test] - _ -> do
  16346. 907.30 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  16347. 907.30 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  16348. 907.30 s [opt-env-conf-test] - Nothing -> pure NotRun
  16349. 907.30 s [opt-env-conf-test] - Just confSets -> do
  16350. 907.30 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  16351. 907.30 s [opt-env-conf-test] - case mObj of
  16352. 907.30 s [opt-env-conf-test] - Nothing -> do
  16353. 907.30 s [opt-env-conf-test] - debug ["no config object to set from"]
  16354. 907.30 s [opt-env-conf-test] - pure NotFound
  16355. 907.30 s [opt-env-conf-test] - Just obj -> do
  16356. 907.30 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  16357. 907.30 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  16358. 907.30 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  16359. 907.30 s [opt-env-conf-test] - Nothing -> do
  16360. 907.30 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  16361. 907.30 s [opt-env-conf-test] - Nothing -> pure Nothing
  16362. 907.30 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  16363. 907.30 s [opt-env-conf-test] - Just neRest -> do
  16364. 907.30 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  16365. 907.30 s [opt-env-conf-test] - case mO' of
  16366. 907.30 s [opt-env-conf-test] - Nothing -> pure Nothing
  16367. 907.30 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  16368. 907.30 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  16369. 907.30 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16370. 907.30 s [opt-env-conf-test] - Right mV -> case mV of
  16371. 907.30 s [opt-env-conf-test] - Nothing -> do
  16372. 907.30 s [opt-env-conf-test] - debug
  16373. 907.30 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  16374. 907.30 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  16375. 907.30 s [opt-env-conf-test] - ]
  16376. 907.30 s [opt-env-conf-test] - pure Nothing
  16377. 907.30 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  16378. 907.30 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16379. 907.30 s [opt-env-conf-test] - Right mA -> case mA of
  16380. 907.30 s [opt-env-conf-test] - Nothing -> do
  16381. 907.30 s [opt-env-conf-test] - debug
  16382. 907.30 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  16383. 907.30 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  16384. 907.30 s [opt-env-conf-test] - ]
  16385. 907.30 s [opt-env-conf-test] - pure Nothing
  16386. 907.30 s [opt-env-conf-test] - Just a -> do
  16387. 907.30 s [opt-env-conf-test] - debug
  16388. 907.30 s [opt-env-conf-test] - [ "set based on config value: ",
  16389. 907.30 s [opt-env-conf-test] - chunk $ T.pack $ show v
  16390. 907.30 s [opt-env-conf-test] - ]
  16391. 907.30 s [opt-env-conf-test] - pure $ Just a
  16392. 907.30 s [opt-env-conf-test] - let toRes = \case
  16393. 907.30 s [opt-env-conf-test] - Nothing -> NotFound
  16394. 907.30 s [opt-env-conf-test] - Just a -> Found a
  16395. 907.30 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  16396. 907.30 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  16397. 907.30 s [opt-env-conf-test] - Just ne -> do
  16398. 907.30 s [opt-env-conf-test] - res <- goConfSet confSet
  16399. 907.30 s [opt-env-conf-test] - case res of
  16400. 907.30 s [opt-env-conf-test] - Just a -> pure $ Found a
  16401. 907.30 s [opt-env-conf-test] - Nothing -> goConfSets ne
  16402. 907.30 s [opt-env-conf-test] - goConfSets confSets
  16403. 907.30 s [opt-env-conf-test] - case mConf of
  16404. 907.30 s [opt-env-conf-test] - Found a -> do
  16405. 907.30 s [opt-env-conf-test] - markParsed
  16406. 907.30 s [opt-env-conf-test] - pure a
  16407. 907.30 s [opt-env-conf-test] - _ ->
  16408. 907.30 s [opt-env-conf-test] - case settingDefaultValue of
  16409. 907.30 s [opt-env-conf-test] - Just (a, _) -> do
  16410. 907.30 s [opt-env-conf-test] - debug ["set to default value"]
  16411. 907.30 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  16412. 907.30 s [opt-env-conf-test] - Nothing -> do
  16413. 907.30 s [opt-env-conf-test] - let parseResultError e res = case res of
  16414. 907.30 s [opt-env-conf-test] - NotRun -> Nothing
  16415. 907.30 s [opt-env-conf-test] - NotFound -> Just e
  16416. 907.30 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  16417. 907.30 s [opt-env-conf-test] - debug ["not found"]
  16418. 907.30 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  16419. 907.30 s [opt-env-conf-test] - NE.nonEmpty $
  16420. 907.30 s [opt-env-conf-test] - catMaybes
  16421. 907.30 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  16422. 907.30 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  16423. 907.30 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  16424. 907.30 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  16425. 907.31 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  16426. 907.31 s [opt-env-conf-test] - ]
  16427. 907.31 s [opt-env-conf-test] + case mSwitch of
  16428. 907.31 s [opt-env-conf-test] + Found a -> do
  16429. 907.31 s [opt-env-conf-test] + markParsed
  16430. 907.31 s [opt-env-conf-test] + pure a
  16431. 907.31 s [opt-env-conf-test] + _ -> do
  16432. 907.31 s [opt-env-conf-test] + mOpt <-
  16433. 907.31 s [opt-env-conf-test] + if settingTryOption
  16434. 907.31 s [opt-env-conf-test] + then do
  16435. 907.31 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  16436. 907.31 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  16437. 907.31 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  16438. 907.31 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  16439. 907.31 s [opt-env-conf-test] + case mS of
  16440. 907.31 s [opt-env-conf-test] + Nothing -> do
  16441. 907.31 s [opt-env-conf-test] + debug
  16442. 907.31 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  16443. 907.31 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  16444. 907.31 s [opt-env-conf-test] + ]
  16445. 907.31 s [opt-env-conf-test] + pure NotFound
  16446. 907.31 s [opt-env-conf-test] + Just optionStr -> cap $
  16447. 907.31 s [opt-env-conf-test] + case tryReaders rs optionStr of
  16448. 907.31 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  16449. 907.31 s [opt-env-conf-test] + Right a -> do
  16450. 907.31 s [opt-env-conf-test] + debug
  16451. 907.31 s [opt-env-conf-test] + [ "set based on option: ",
  16452. 907.31 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  16453. 907.31 s [opt-env-conf-test] + ]
  16454. 907.31 s [opt-env-conf-test] + pure $ Found a
  16455. 907.31 s [opt-env-conf-test] + else pure NotRun
  16456. 907.31 s [opt-env-conf-test] +
  16457. 907.31 s [opt-env-conf-test] + case mOpt of
  16458. 907.31 s [opt-env-conf-test] + Found a -> do
  16459. 907.31 s [opt-env-conf-test] + markParsed
  16460. 907.31 s [opt-env-conf-test] + pure a
  16461. 907.31 s [opt-env-conf-test] + _ -> do
  16462. 907.31 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  16463. 907.31 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  16464. 907.31 s [opt-env-conf-test] + Nothing -> pure NotRun
  16465. 907.31 s [opt-env-conf-test] + Just ne -> do
  16466. 907.31 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  16467. 907.31 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  16468. 907.31 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  16469. 907.31 s [opt-env-conf-test] + es <- asks ppEnvEnv
  16470. 907.31 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  16471. 907.31 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  16472. 907.31 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  16473. 907.31 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  16474. 907.31 s [opt-env-conf-test] + -- result.
  16475. 907.31 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  16476. 907.31 s [opt-env-conf-test] + case tryReaders rs varStr of
  16477. 907.31 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  16478. 907.31 s [opt-env-conf-test] + Right a -> do
  16479. 907.31 s [opt-env-conf-test] + debug
  16480. 908.90 s [opt-env-conf-test] + [ "set based on env: ",
  16481. 908.90 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  16482. 908.90 s [opt-env-conf-test] + ]
  16483. 908.90 s [opt-env-conf-test] + pure a
  16484. 908.90 s [opt-env-conf-test] + case listToMaybe results of
  16485. 908.90 s [opt-env-conf-test] + Nothing -> do
  16486. 908.90 s [opt-env-conf-test] + debug
  16487. 908.90 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  16488. 908.90 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  16489. 908.90 s [opt-env-conf-test] + ]
  16490. 908.90 s [opt-env-conf-test] + pure NotFound
  16491. 908.90 s [opt-env-conf-test] + Just a -> pure $ Found a
  16492. 908.90 s [opt-env-conf-test] +
  16493. 908.90 s [opt-env-conf-test] + case mEnv of
  16494. 908.90 s [opt-env-conf-test] + Found a -> do
  16495. 908.90 s [opt-env-conf-test] + markParsed
  16496. 908.90 s [opt-env-conf-test] + pure a
  16497. 908.90 s [opt-env-conf-test] + _ -> do
  16498. 908.90 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  16499. 908.90 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  16500. 908.90 s [opt-env-conf-test] + Nothing -> pure NotRun
  16501. 908.90 s [opt-env-conf-test] + Just confSets -> do
  16502. 908.90 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  16503. 908.90 s [opt-env-conf-test] + case mObj of
  16504. 908.90 s [opt-env-conf-test] + Nothing -> do
  16505. 908.90 s [opt-env-conf-test] + debug ["no config object to set from"]
  16506. 908.90 s [opt-env-conf-test] + pure NotFound
  16507. 908.90 s [opt-env-conf-test] + Just obj -> do
  16508. 908.90 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  16509. 908.90 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  16510. 908.90 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  16511. 908.90 s [opt-env-conf-test] + Nothing -> do
  16512. 908.90 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  16513. 908.90 s [opt-env-conf-test] + Nothing -> pure Nothing
  16514. 908.90 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  16515. 908.90 s [opt-env-conf-test] + Just neRest -> do
  16516. 908.90 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  16517. 908.90 s [opt-env-conf-test] + case mO' of
  16518. 908.90 s [opt-env-conf-test] + Nothing -> pure Nothing
  16519. 908.90 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  16520. 908.90 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  16521. 908.90 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16522. 908.90 s [opt-env-conf-test] + Right mV -> case mV of
  16523. 908.90 s [opt-env-conf-test] + Nothing -> do
  16524. 908.90 s [opt-env-conf-test] + debug
  16525. 908.90 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  16526. 908.90 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  16527. 908.90 s [opt-env-conf-test] + ]
  16528. 908.90 s [opt-env-conf-test] + pure Nothing
  16529. 908.90 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  16530. 908.90 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16531. 908.90 s [opt-env-conf-test] + Right mA -> case mA of
  16532. 908.90 s [opt-env-conf-test] + Nothing -> do
  16533. 908.90 s [opt-env-conf-test] + debug
  16534. 908.90 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  16535. 908.90 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  16536. 908.90 s [opt-env-conf-test] + ]
  16537. 908.90 s [opt-env-conf-test] + pure Nothing
  16538. 908.90 s [opt-env-conf-test] + Just a -> do
  16539. 908.90 s [opt-env-conf-test] + debug
  16540. 908.90 s [opt-env-conf-test] + [ "set based on config value: ",
  16541. 908.90 s [opt-env-conf-test] + chunk $ T.pack $ show v
  16542. 908.90 s [opt-env-conf-test] + ]
  16543. 908.90 s [opt-env-conf-test] + pure $ Just a
  16544. 908.90 s [opt-env-conf-test] + let toRes = \case
  16545. 908.90 s [opt-env-conf-test] + Nothing -> NotFound
  16546. 908.90 s [opt-env-conf-test] + Just a -> Found a
  16547. 908.90 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  16548. 908.90 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  16549. 908.90 s [opt-env-conf-test] + Just ne -> do
  16550. 908.90 s [opt-env-conf-test] + res <- goConfSet confSet
  16551. 908.90 s [opt-env-conf-test] + case res of
  16552. 908.91 s [opt-env-conf-test] + Just a -> pure $ Found a
  16553. 908.91 s [opt-env-conf-test] + Nothing -> goConfSets ne
  16554. 908.91 s [opt-env-conf-test] + goConfSets confSets
  16555. 908.91 s [opt-env-conf-test] + case mConf of
  16556. 908.91 s [opt-env-conf-test] + Found a -> do
  16557. 908.91 s [opt-env-conf-test] + markParsed
  16558. 908.91 s [opt-env-conf-test] + pure a
  16559. 908.91 s [opt-env-conf-test] + _ ->
  16560. 908.91 s [opt-env-conf-test] + case settingDefaultValue of
  16561. 908.91 s [opt-env-conf-test] + Just (a, _) -> do
  16562. 908.91 s [opt-env-conf-test] + debug ["set to default value"]
  16563. 908.91 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  16564. 908.91 s [opt-env-conf-test] + Nothing -> do
  16565. 908.91 s [opt-env-conf-test] + let parseResultError e res = case res of
  16566. 908.91 s [opt-env-conf-test] + NotRun -> Nothing
  16567. 908.91 s [opt-env-conf-test] + NotFound -> Just e
  16568. 908.91 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  16569. 908.91 s [opt-env-conf-test] + debug ["not found"]
  16570. 908.91 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  16571. 908.91 s [opt-env-conf-test] + NE.nonEmpty $
  16572. 908.91 s [opt-env-conf-test] + catMaybes
  16573. 908.91 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  16574. 908.91 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  16575. 908.91 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  16576. 908.91 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  16577. 908.91 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  16578. 908.91 s [opt-env-conf-test] + ]
  16579. 908.91 s [opt-env-conf-test]
  16580. 908.91 s [opt-env-conf-test] withCapabilities ::
  16581. 908.91 s [opt-env-conf-test] Maybe SrcLoc ->
  16582. 908.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
  16583. 908.91 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  16584. 908.91 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16585. 908.91 s [opt-env-conf-test] if isLong
  16586. 908.91 s [opt-env-conf-test] then
  16587. 908.91 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16588. 908.91 s [opt-env-conf-test] + if False
  16589. 908.91 s [opt-env-conf-test] then Just Nothing
  16590. 908.91 s [opt-env-conf-test] else Nothing
  16591. 908.91 s [opt-env-conf-test] else
  16592. 908.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
  16593. 908.91 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  16594. 908.91 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16595. 908.91 s [opt-env-conf-test] if isLong
  16596. 908.91 s [opt-env-conf-test] then
  16597. 908.91 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16598. 908.91 s [opt-env-conf-test] + if True
  16599. 908.91 s [opt-env-conf-test] then Just Nothing
  16600. 908.91 s [opt-env-conf-test] else Nothing
  16601. 908.91 s [opt-env-conf-test] else
  16602. 908.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
  16603. 908.91 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  16604. 908.91 s [opt-env-conf-test] NonEmpty Char ->
  16605. 908.91 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  16606. 908.91 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16607. 908.91 s [opt-env-conf-test] - if isLong
  16608. 908.91 s [opt-env-conf-test] + if False
  16609. 908.91 s [opt-env-conf-test] then
  16610. 908.91 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  16611. 908.91 s [opt-env-conf-test] then Just Nothing
  16612. 908.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
  16613. 908.91 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  16614. 908.91 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16615. 908.91 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16616. 908.91 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16617. 908.91 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16618. 908.91 s [opt-env-conf-test] + in Just $ Live (ArgDashed False cs') : rest'
  16619. 908.91 s [opt-env-conf-test] _ -> do
  16620. 908.91 s [opt-env-conf-test] os <- go rest
  16621. 908.91 s [opt-env-conf-test] pure $ Live o : os
  16622. 908.91 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  16623. 908.91 s [opt-env-conf-test] @@ -329,17 +329,17 @@
  16624. 908.91 s [opt-env-conf-test] go = \case
  16625. 908.91 s [opt-env-conf-test] [] -> Nothing
  16626. 908.91 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16627. 908.91 s [opt-env-conf-test] - (Live o : rest) -> case o of
  16628. 908.91 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  16629. 908.91 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16630. 908.91 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  16631. 908.91 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  16632. 911.93 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  16633. 911.93 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16634. 911.93 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16635. 911.93 s [opt-env-conf-test] - _ -> do
  16636. 911.93 s [opt-env-conf-test] - os <- go rest
  16637. 911.93 s [opt-env-conf-test] - pure $ Live o : os
  16638. 911.93 s [opt-env-conf-test] + (Live o : rest) -> case o of
  16639. 911.93 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  16640. 911.93 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16641. 911.93 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  16642. 911.93 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  16643. 911.93 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  16644. 911.93 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  16645. 911.93 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  16646. 911.93 s [opt-env-conf-test] + _ -> do
  16647. 911.93 s [opt-env-conf-test] + os <- go rest
  16648. 911.93 s [opt-env-conf-test] + pure $ Live o : os
  16649. 911.93 s [opt-env-conf-test]
  16650. 911.93 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  16651. 911.93 s [opt-env-conf-test] -- character because then we need a tombstone.
  16652. 911.93 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
  16653. 911.93 s [opt-env-conf-test] @@ -306,9 +306,9 @@
  16654. 911.93 s [opt-env-conf-test] where
  16655. 911.93 s [opt-env-conf-test] go acc ne =
  16656. 911.93 s [opt-env-conf-test] let (a, mRest) = NE.uncons ne
  16657. 911.93 s [opt-env-conf-test] - in case mRest of
  16658. 911.93 s [opt-env-conf-test] - Nothing -> (NE.nonEmpty $ reverse acc, a)
  16659. 911.93 s [opt-env-conf-test] - Just rest -> go (a : acc) rest
  16660. 911.93 s [opt-env-conf-test] + in case mRest of
  16661. 911.93 s [opt-env-conf-test] + Nothing -> (NE.nonEmpty $ reverse acc, a)
  16662. 911.93 s [opt-env-conf-test] + Just rest -> go (a : acc) rest
  16663. 911.93 s [opt-env-conf-test]
  16664. 911.93 s [opt-env-conf-test] -- | Consume a switch.
  16665. 911.93 s [opt-env-conf-test] --
  16666. 911.93 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
  16667. 911.93 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  16668. 911.93 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16669. 911.93 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16670. 911.93 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16671. 911.93 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16672. 911.93 s [opt-env-conf-test] + in Just $ Live (ArgDashed True cs') : rest'
  16673. 911.93 s [opt-env-conf-test] _ -> do
  16674. 911.93 s [opt-env-conf-test] os <- go rest
  16675. 911.93 s [opt-env-conf-test] pure $ Live o : os
  16676. 911.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  16677. 911.94 s [opt-env-conf-test] @@ -329,17 +329,17 @@
  16678. 911.94 s [opt-env-conf-test] go = \case
  16679. 911.94 s [opt-env-conf-test] [] -> Nothing
  16680. 911.94 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16681. 911.94 s [opt-env-conf-test] - (Live o : rest) -> case o of
  16682. 911.94 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  16683. 911.94 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16684. 911.94 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  16685. 911.94 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  16686. 911.94 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  16687. 911.94 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16688. 911.94 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16689. 911.94 s [opt-env-conf-test] - _ -> do
  16690. 911.94 s [opt-env-conf-test] - os <- go rest
  16691. 911.94 s [opt-env-conf-test] - pure $ Live o : os
  16692. 911.94 s [opt-env-conf-test] + (Live o : rest) -> case o of
  16693. 911.94 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  16694. 911.94 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16695. 911.94 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  16696. 911.94 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  16697. 911.94 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  16698. 911.94 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  16699. 911.94 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  16700. 911.94 s [opt-env-conf-test] + _ -> do
  16701. 911.94 s [opt-env-conf-test] + os <- go rest
  16702. 911.94 s [opt-env-conf-test] + pure $ Live o : os
  16703. 911.94 s [opt-env-conf-test]
  16704. 911.94 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  16705. 911.94 s [opt-env-conf-test] -- character because then we need a tombstone.
  16706. 911.94 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:339:40-46
  16707. 911.94 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  16708. 911.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16709. 911.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16710. 911.94 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16711. 911.94 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16712. 911.94 s [opt-env-conf-test] + in Just $ Live (ArgDashed not (isLong) cs') : rest'
  16713. 911.94 s [opt-env-conf-test] _ -> do
  16714. 911.94 s [opt-env-conf-test] os <- go rest
  16715. 911.94 s [opt-env-conf-test] pure $ Live o : os
  16716. 911.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
  16717. 911.94 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  16718. 911.94 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  16719. 911.94 s [opt-env-conf-test] go (c :| rest) =
  16720. 911.94 s [opt-env-conf-test] if c `elem` cs
  16721. 911.94 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  16722. 911.94 s [opt-env-conf-test] + then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
  16723. 911.94 s [opt-env-conf-test] else do
  16724. 911.94 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  16725. 911.94 s [opt-env-conf-test] new <- go rest'
  16726. 911.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  16727. 911.94 s [opt-env-conf-test] @@ -329,17 +329,17 @@
  16728. 911.94 s [opt-env-conf-test] go = \case
  16729. 911.94 s [opt-env-conf-test] [] -> Nothing
  16730. 911.94 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16731. 911.94 s [opt-env-conf-test] - (Live o : rest) -> case o of
  16732. 911.94 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  16733. 911.94 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16734. 911.94 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  16735. 911.94 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  16736. 911.94 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  16737. 911.94 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16738. 911.94 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16739. 911.94 s [opt-env-conf-test] - _ -> do
  16740. 911.94 s [opt-env-conf-test] - os <- go rest
  16741. 911.94 s [opt-env-conf-test] - pure $ Live o : os
  16742. 911.94 s [opt-env-conf-test] + (Live o : rest) -> case o of
  16743. 911.94 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  16744. 911.94 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16745. 911.94 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  16746. 911.94 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  16747. 911.94 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  16748. 911.94 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  16749. 911.94 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  16750. 911.94 s [opt-env-conf-test] + _ -> do
  16751. 911.94 s [opt-env-conf-test] + os <- go rest
  16752. 911.94 s [opt-env-conf-test] + pure $ Live o : os
  16753. 911.94 s [opt-env-conf-test]
  16754. 911.94 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  16755. 911.94 s [opt-env-conf-test] -- character because then we need a tombstone.
  16756. 911.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
  16757. 911.94 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  16758. 911.94 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  16759. 911.94 s [opt-env-conf-test] go (c :| rest) =
  16760. 911.94 s [opt-env-conf-test] if c `elem` cs
  16761. 911.94 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  16762. 911.94 s [opt-env-conf-test] + then Just $ (\ne -> (ne, True)) <$> NE.nonEmpty rest
  16763. 911.94 s [opt-env-conf-test] else do
  16764. 911.94 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  16765. 911.94 s [opt-env-conf-test] new <- go rest'
  16766. 911.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  16767. 911.94 s [opt-env-conf-test] @@ -331,12 +331,12 @@
  16768. 911.94 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16769. 911.94 s [opt-env-conf-test] (Live o : rest) -> case o of
  16770. 911.94 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16771. 911.94 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16772. 911.94 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  16773. 911.94 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  16774. 911.94 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  16775. 911.94 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16776. 911.94 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16777. 911.94 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16778. 911.95 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  16779. 911.95 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  16780. 911.95 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  16781. 911.95 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  16782. 911.95 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  16783. 911.95 s [opt-env-conf-test] _ -> do
  16784. 911.95 s [opt-env-conf-test] os <- go rest
  16785. 911.95 s [opt-env-conf-test] pure $ Live o : os
  16786. 911.95 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:295:10-38
  16787. 911.95 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  16788. 911.95 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16789. 911.95 s [opt-env-conf-test] if isLong
  16790. 911.95 s [opt-env-conf-test] then
  16791. 911.95 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16792. 911.95 s [opt-env-conf-test] + if not (DashedLong cs `elem` dasheds)
  16793. 911.95 s [opt-env-conf-test] then Just Nothing
  16794. 911.95 s [opt-env-conf-test] else Nothing
  16795. 911.95 s [opt-env-conf-test] else
  16796. 911.95 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:300:14-42
  16797. 911.95 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  16798. 911.95 s [opt-env-conf-test] else Nothing
  16799. 911.95 s [opt-env-conf-test] else
  16800. 911.95 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16801. 911.95 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16802. 911.95 s [opt-env-conf-test] + in if not (DashedShort c `elem` dasheds)
  16803. 911.96 s [opt-env-conf-test] then Just mRest
  16804. 911.96 s [opt-env-conf-test] else Nothing
  16805. 911.96 s [opt-env-conf-test]
  16806. 911.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
  16807. 911.96 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  16808. 911.96 s [opt-env-conf-test] else Nothing
  16809. 911.96 s [opt-env-conf-test] else
  16810. 911.96 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16811. 911.96 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16812. 911.96 s [opt-env-conf-test] + in if True
  16813. 911.96 s [opt-env-conf-test] then Just mRest
  16814. 911.96 s [opt-env-conf-test] else Nothing
  16815. 911.96 s [opt-env-conf-test]
  16816. 911.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
  16817. 911.96 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  16818. 911.96 s [opt-env-conf-test] else Nothing
  16819. 911.96 s [opt-env-conf-test] else
  16820. 911.96 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16821. 911.96 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16822. 911.96 s [opt-env-conf-test] + in if False
  16823. 911.96 s [opt-env-conf-test] then Just mRest
  16824. 911.96 s [opt-env-conf-test] else Nothing
  16825. 911.96 s [opt-env-conf-test]
  16826. 911.96 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:293:3-25
  16827. 911.96 s [opt-env-conf-test] @@ -290,16 +290,16 @@
  16828. 911.96 s [opt-env-conf-test] NonEmpty Char ->
  16829. 911.96 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  16830. 911.96 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16831. 911.96 s [opt-env-conf-test] - if isLong
  16832. 911.96 s [opt-env-conf-test] - then
  16833. 911.96 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16834. 911.96 s [opt-env-conf-test] - then Just Nothing
  16835. 911.96 s [opt-env-conf-test] - else Nothing
  16836. 911.96 s [opt-env-conf-test] - else
  16837. 911.96 s [opt-env-conf-test] - let (mRest, c) = unsnocNE cs
  16838. 911.96 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16839. 911.96 s [opt-env-conf-test] - then Just mRest
  16840. 911.96 s [opt-env-conf-test] - else Nothing
  16841. 911.96 s [opt-env-conf-test] + if isLong
  16842. 911.96 s [opt-env-conf-test] + then
  16843. 911.96 s [opt-env-conf-test] + if DashedLong cs `elem` dasheds
  16844. 911.96 s [opt-env-conf-test] + then Just Nothing
  16845. 911.96 s [opt-env-conf-test] + else Nothing
  16846. 911.96 s [opt-env-conf-test] + else
  16847. 911.96 s [opt-env-conf-test] + let (mRest, c) = unsnocNE cs
  16848. 915.45 s [opt-env-conf-test] + in if DashedShort c `elem` dasheds
  16849. 915.45 s [opt-env-conf-test] + then Just mRest
  16850. 915.45 s [opt-env-conf-test] + else Nothing
  16851. 915.53 s [opt-env-conf-test]
  16852. 915.53 s [opt-env-conf-test] unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
  16853. 915.53 s [opt-env-conf-test] unsnocNE = go []
  16854. 915.53 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-23
  16855. 915.53 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16856. 915.53 s [opt-env-conf-test] Maybe String
  16857. 915.53 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16858. 915.53 s [opt-env-conf-test] (c :| rest)
  16859. 915.53 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16860. 915.53 s [opt-env-conf-test] + | True && not (null rest) ->
  16861. 915.53 s [opt-env-conf-test] Just rest
  16862. 915.53 s [opt-env-conf-test] _ -> Nothing
  16863. 915.53 s [opt-env-conf-test]
  16864. 915.53 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-23
  16865. 915.53 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16866. 915.53 s [opt-env-conf-test] Maybe String
  16867. 915.53 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16868. 915.53 s [opt-env-conf-test] (c :| rest)
  16869. 915.53 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16870. 915.53 s [opt-env-conf-test] + | not (c `elem` dasheds) && not (null rest) ->
  16871. 915.53 s [opt-env-conf-test] Just rest
  16872. 915.53 s [opt-env-conf-test] _ -> Nothing
  16873. 915.53 s [opt-env-conf-test]
  16874. 915.53 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:31-42
  16875. 915.53 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16876. 915.53 s [opt-env-conf-test] Maybe String
  16877. 915.53 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16878. 915.53 s [opt-env-conf-test] (c :| rest)
  16879. 915.53 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16880. 915.53 s [opt-env-conf-test] + | c `elem` dasheds && not True ->
  16881. 915.54 s [opt-env-conf-test] Just rest
  16882. 915.54 s [opt-env-conf-test] _ -> Nothing
  16883. 915.54 s [opt-env-conf-test]
  16884. 915.54 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:32-41
  16885. 915.54 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16886. 915.54 s [opt-env-conf-test] Maybe String
  16887. 915.54 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16888. 915.54 s [opt-env-conf-test] (c :| rest)
  16889. 915.54 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16890. 915.54 s [opt-env-conf-test] + | c `elem` dasheds && not (not (null rest)) ->
  16891. 915.54 s [opt-env-conf-test] Just rest
  16892. 915.54 s [opt-env-conf-test] _ -> Nothing
  16893. 915.54 s [opt-env-conf-test]
  16894. 915.54 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:32-41
  16895. 915.54 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16896. 915.54 s [opt-env-conf-test] Maybe String
  16897. 915.54 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16898. 915.54 s [opt-env-conf-test] (c :| rest)
  16899. 915.54 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16900. 915.54 s [opt-env-conf-test] + | c `elem` dasheds && not (True) ->
  16901. 915.54 s [opt-env-conf-test] Just rest
  16902. 915.54 s [opt-env-conf-test] _ -> Nothing
  16903. 915.54 s [opt-env-conf-test]
  16904. 915.54 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:31-42
  16905. 915.54 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16906. 915.54 s [opt-env-conf-test] Maybe String
  16907. 915.54 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16908. 915.54 s [opt-env-conf-test] (c :| rest)
  16909. 915.54 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16910. 915.54 s [opt-env-conf-test] + | c `elem` dasheds && not not ((null rest)) ->
  16911. 915.54 s [opt-env-conf-test] Just rest
  16912. 915.54 s [opt-env-conf-test] _ -> Nothing
  16913. 915.54 s [opt-env-conf-test]
  16914. 915.54 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-42
  16915. 915.54 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16916. 915.54 s [opt-env-conf-test] Maybe String
  16917. 915.54 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16918. 915.54 s [opt-env-conf-test] (c :| rest)
  16919. 915.54 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16920. 915.54 s [opt-env-conf-test] + | True ->
  16921. 915.54 s [opt-env-conf-test] Just rest
  16922. 915.54 s [opt-env-conf-test] _ -> Nothing
  16923. 915.54 s [opt-env-conf-test]
  16924. 915.54 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:27-42
  16925. 915.54 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16926. 915.54 s [opt-env-conf-test] Maybe String
  16927. 915.54 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16928. 915.54 s [opt-env-conf-test] (c :| rest)
  16929. 915.54 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16930. 915.54 s [opt-env-conf-test] + | c `elem` dasheds && True ->
  16931. 915.54 s [opt-env-conf-test] Just rest
  16932. 915.54 s [opt-env-conf-test] _ -> Nothing
  16933. 915.54 s [opt-env-conf-test]
  16934. 915.54 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
  16935. 915.54 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16936. 915.54 s [opt-env-conf-test] renderArg = \case
  16937. 915.54 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16938. 915.54 s [opt-env-conf-test] ArgBareDash -> "-"
  16939. 915.54 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16940. 915.54 s [opt-env-conf-test] + ArgDashed l cs -> (if True then "--" else "-") <> NE.toList cs
  16941. 915.54 s [opt-env-conf-test] ArgPlain a -> a
  16942. 915.54 s [opt-env-conf-test]
  16943. 915.54 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16944. 915.54 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:89:25-26
  16945. 915.54 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16946. 915.54 s [opt-env-conf-test] renderArg = \case
  16947. 915.54 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16948. 915.54 s [opt-env-conf-test] ArgBareDash -> "-"
  16949. 915.54 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16950. 915.54 s [opt-env-conf-test] + ArgDashed l cs -> (if not (l) then "--" else "-") <> NE.toList cs
  16951. 915.54 s [opt-env-conf-test] ArgPlain a -> a
  16952. 915.54 s [opt-env-conf-test]
  16953. 915.54 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16954. 915.54 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
  16955. 915.54 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16956. 915.54 s [opt-env-conf-test] renderArg = \case
  16957. 915.54 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16958. 915.54 s [opt-env-conf-test] ArgBareDash -> "-"
  16959. 915.54 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16960. 915.54 s [opt-env-conf-test] + ArgDashed l cs -> (if False then "--" else "-") <> NE.toList cs
  16961. 915.54 s [opt-env-conf-test] ArgPlain a -> a
  16962. 915.54 s [opt-env-conf-test]
  16963. 915.54 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16964. 915.54 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
  16965. 915.54 s [opt-env-conf-test] @@ -130,10 +130,10 @@
  16966. 915.54 s [opt-env-conf-test] -- things like a default command.
  16967. 915.54 s [opt-env-conf-test] let addConsumeNothing = \case
  16968. 915.54 s [opt-env-conf-test] [] -> [(Nothing, as)]
  16969. 915.54 s [opt-env-conf-test] - r@(t@(mA, _) : rest) -> case mA of
  16970. 915.54 s [opt-env-conf-test] - -- If not consuming anything is already an option, don't add it to the end.
  16971. 915.54 s [opt-env-conf-test] - Nothing -> r
  16972. 915.54 s [opt-env-conf-test] - Just _ -> t : addConsumeNothing rest
  16973. 915.54 s [opt-env-conf-test] + r@(t@(mA, _) : rest) -> case mA of
  16974. 915.54 s [opt-env-conf-test] + -- If not consuming anything is already an option, don't add it to the end.
  16975. 915.54 s [opt-env-conf-test] + Nothing -> r
  16976. 915.54 s [opt-env-conf-test] + Just _ -> t : addConsumeNothing rest
  16977. 915.54 s [opt-env-conf-test]
  16978. 915.54 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  16979. 915.54 s [opt-env-conf-test] [] -> []
  16980. 915.54 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
  16981. 915.54 s [opt-env-conf-test] @@ -130,10 +130,10 @@
  16982. 915.54 s [opt-env-conf-test] -- things like a default command.
  16983. 915.54 s [opt-env-conf-test] let addConsumeNothing = \case
  16984. 915.54 s [opt-env-conf-test] [] -> [(Nothing, as)]
  16985. 915.54 s [opt-env-conf-test] - r@(t@(mA, _) : rest) -> case mA of
  16986. 915.54 s [opt-env-conf-test] - -- If not consuming anything is already an option, don't add it to the end.
  16987. 915.54 s [opt-env-conf-test] - Nothing -> r
  16988. 915.54 s [opt-env-conf-test] - Just _ -> t : addConsumeNothing rest
  16989. 915.54 s [opt-env-conf-test] + r@(t@(mA, _) : rest) -> case mA of
  16990. 915.54 s [opt-env-conf-test] + -- If not consuming anything is already an option, don't add it to the end.
  16991. 915.54 s [opt-env-conf-test] + Nothing -> r
  16992. 915.54 s [opt-env-conf-test] + Just _ -> t : addConsumeNothing rest
  16993. 915.54 s [opt-env-conf-test]
  16994. 915.54 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  16995. 915.54 s [opt-env-conf-test] [] -> []
  16996. 915.54 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  16997. 915.54 s [opt-env-conf-test] @@ -166,17 +166,17 @@
  16998. 915.54 s [opt-env-conf-test] [] -> Nothing
  16999. 915.54 s [opt-env-conf-test] (Dead : rest) -> go rest
  17000. 915.54 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  17001. 915.54 s [opt-env-conf-test] - in case go afters of
  17002. 915.54 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17003. 915.54 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17004. 915.54 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17005. 915.54 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17006. 915.54 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17007. 915.54 s [opt-env-conf-test] - -- arguments.
  17008. 915.54 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17009. 915.54 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17010. 915.54 s [opt-env-conf-test] - )
  17011. 915.54 s [opt-env-conf-test] - ]
  17012. 915.54 s [opt-env-conf-test] + in case go afters of
  17013. 915.54 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17014. 915.54 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17015. 915.54 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17016. 915.54 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17017. 915.54 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17018. 915.54 s [opt-env-conf-test] + -- arguments.
  17019. 915.54 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17020. 915.54 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17021. 915.54 s [opt-env-conf-test] + )
  17022. 915.54 s [opt-env-conf-test] + ]
  17023. 915.54 s [opt-env-conf-test] ArgDashed {} ->
  17024. 915.54 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17025. 915.54 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17026. 915.54 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  17027. 915.54 s [opt-env-conf-test] @@ -166,17 +166,17 @@
  17028. 915.54 s [opt-env-conf-test] [] -> Nothing
  17029. 915.54 s [opt-env-conf-test] (Dead : rest) -> go rest
  17030. 915.54 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  17031. 915.54 s [opt-env-conf-test] - in case go afters of
  17032. 915.54 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17033. 915.54 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17034. 915.54 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17035. 915.54 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17036. 915.54 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17037. 915.54 s [opt-env-conf-test] - -- arguments.
  17038. 915.55 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17039. 915.55 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17040. 915.55 s [opt-env-conf-test] - )
  17041. 915.55 s [opt-env-conf-test] - ]
  17042. 915.55 s [opt-env-conf-test] + in case go afters of
  17043. 915.55 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17044. 915.55 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17045. 915.55 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17046. 915.55 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17047. 915.55 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17048. 915.55 s [opt-env-conf-test] + -- arguments.
  17049. 915.55 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17050. 915.55 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17051. 915.55 s [opt-env-conf-test] + )
  17052. 915.55 s [opt-env-conf-test] + ]
  17053. 915.55 s [opt-env-conf-test] ArgDashed {} ->
  17054. 915.55 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17055. 915.80 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17056. 915.80 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  17057. 915.80 s [opt-env-conf-test] @@ -149,34 +149,34 @@
  17058. 915.80 s [opt-env-conf-test] -- A single dash is always an argument
  17059. 915.80 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  17060. 915.80 s [opt-env-conf-test] -- Bare double-dash
  17061. 915.80 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17062. 915.80 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17063. 915.80 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17064. 915.80 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17065. 915.80 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17066. 915.80 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17067. 915.80 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17068. 915.80 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17069. 915.80 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17070. 915.80 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17071. 915.80 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17072. 915.80 s [opt-env-conf-test] - -- pop the args as they come.
  17073. 915.80 s [opt-env-conf-test] - _ ->
  17074. 915.80 s [opt-env-conf-test] - let go = \case
  17075. 915.80 s [opt-env-conf-test] - [] -> Nothing
  17076. 915.80 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17077. 915.80 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17078. 915.80 s [opt-env-conf-test] - in case go afters of
  17079. 915.80 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17080. 915.80 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17081. 915.80 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17082. 915.80 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17083. 915.80 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17084. 915.80 s [opt-env-conf-test] - -- arguments.
  17085. 915.80 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17086. 915.80 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17087. 915.80 s [opt-env-conf-test] - )
  17088. 915.80 s [opt-env-conf-test] - ]
  17089. 915.80 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17090. 915.80 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17091. 915.80 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17092. 915.80 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17093. 915.80 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17094. 915.80 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17095. 915.80 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17096. 915.80 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17097. 915.80 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17098. 915.80 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17099. 915.80 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17100. 915.80 s [opt-env-conf-test] + -- pop the args as they come.
  17101. 915.80 s [opt-env-conf-test] + _ ->
  17102. 915.80 s [opt-env-conf-test] + let go = \case
  17103. 915.80 s [opt-env-conf-test] + [] -> Nothing
  17104. 915.80 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17105. 915.80 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17106. 915.80 s [opt-env-conf-test] + in case go afters of
  17107. 915.80 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17108. 915.80 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17109. 915.80 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17110. 915.80 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17111. 915.80 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17112. 915.80 s [opt-env-conf-test] + -- arguments.
  17113. 915.80 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17114. 915.80 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17115. 915.80 s [opt-env-conf-test] + )
  17116. 915.80 s [opt-env-conf-test] + ]
  17117. 915.80 s [opt-env-conf-test] ArgDashed {} ->
  17118. 915.80 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17119. 915.80 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17120. 915.80 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  17121. 915.80 s [opt-env-conf-test] @@ -149,34 +149,34 @@
  17122. 915.80 s [opt-env-conf-test] -- A single dash is always an argument
  17123. 915.80 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  17124. 915.80 s [opt-env-conf-test] -- Bare double-dash
  17125. 915.80 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17126. 915.80 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17127. 915.80 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17128. 915.80 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17129. 915.80 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17130. 915.80 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17131. 915.80 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17132. 915.80 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17133. 915.80 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17134. 915.80 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17135. 915.80 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17136. 915.80 s [opt-env-conf-test] - -- pop the args as they come.
  17137. 915.80 s [opt-env-conf-test] - _ ->
  17138. 915.80 s [opt-env-conf-test] - let go = \case
  17139. 915.80 s [opt-env-conf-test] - [] -> Nothing
  17140. 915.80 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17141. 915.80 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17142. 915.80 s [opt-env-conf-test] - in case go afters of
  17143. 915.80 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17144. 915.80 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17145. 915.80 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17146. 915.80 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17147. 915.80 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17148. 915.81 s [opt-env-conf-test] - -- arguments.
  17149. 915.81 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17150. 915.81 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17151. 915.81 s [opt-env-conf-test] - )
  17152. 915.81 s [opt-env-conf-test] - ]
  17153. 915.81 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17154. 915.81 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17155. 915.81 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17156. 915.81 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17157. 915.81 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17158. 915.81 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17159. 915.81 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17160. 915.81 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17161. 915.81 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17162. 915.81 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17163. 915.81 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17164. 915.81 s [opt-env-conf-test] + -- pop the args as they come.
  17165. 915.81 s [opt-env-conf-test] + _ ->
  17166. 915.81 s [opt-env-conf-test] + let go = \case
  17167. 915.81 s [opt-env-conf-test] + [] -> Nothing
  17168. 915.81 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17169. 915.81 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17170. 915.81 s [opt-env-conf-test] + in case go afters of
  17171. 915.81 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17172. 915.81 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17173. 915.81 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17174. 915.81 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17175. 915.81 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17176. 915.81 s [opt-env-conf-test] + -- arguments.
  17177. 915.81 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17178. 915.81 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17179. 915.81 s [opt-env-conf-test] + )
  17180. 915.81 s [opt-env-conf-test] + ]
  17181. 915.81 s [opt-env-conf-test] ArgDashed {} ->
  17182. 915.81 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17183. 915.81 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17184. 915.81 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-42
  17185. 915.81 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  17186. 915.81 s [opt-env-conf-test] Maybe String
  17187. 915.81 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  17188. 915.81 s [opt-env-conf-test] (c :| rest)
  17189. 915.81 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  17190. 915.81 s [opt-env-conf-test] + | not (c `elem` dasheds && not (null rest)) ->
  17191. 915.81 s [opt-env-conf-test] Just rest
  17192. 915.81 s [opt-env-conf-test] _ -> Nothing
  17193. 915.81 s [opt-env-conf-test]
  17194. 915.81 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
  17195. 915.81 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  17196. 915.81 s [opt-env-conf-test] NonEmpty Char ->
  17197. 915.81 s [opt-env-conf-test] Maybe String
  17198. 915.81 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  17199. 915.81 s [opt-env-conf-test] - if isLong
  17200. 915.81 s [opt-env-conf-test] + if True
  17201. 915.81 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  17202. 918.10 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  17203. 918.10 s [opt-env-conf-test]
  17204. 918.10 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:27-42
  17205. 918.10 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  17206. 918.10 s [opt-env-conf-test] Maybe String
  17207. 918.10 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  17208. 918.10 s [opt-env-conf-test] (c :| rest)
  17209. 918.10 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  17210. 918.10 s [opt-env-conf-test] + | c `elem` dasheds && not (not (null rest)) ->
  17211. 918.10 s [opt-env-conf-test] Just rest
  17212. 918.10 s [opt-env-conf-test] _ -> Nothing
  17213. 918.10 s [opt-env-conf-test]
  17214. 918.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
  17215. 918.10 s [opt-env-conf-test] @@ -195,16 +195,16 @@
  17216. 918.10 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  17217. 918.10 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  17218. 918.10 s [opt-env-conf-test] -- * The dashed is an argument
  17219. 918.10 s [opt-env-conf-test] - ( case a' of
  17220. 918.10 s [opt-env-conf-test] - ArgDashed {} ->
  17221. 918.10 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17222. 918.10 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17223. 918.10 s [opt-env-conf-test] - ]
  17224. 918.10 s [opt-env-conf-test] - _ ->
  17225. 918.10 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17226. 918.10 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17227. 918.10 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17228. 918.10 s [opt-env-conf-test] - ]
  17229. 918.10 s [opt-env-conf-test] + ( case a' of
  17230. 918.10 s [opt-env-conf-test] + ArgDashed {} ->
  17231. 918.11 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17232. 918.11 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17233. 918.11 s [opt-env-conf-test] + ]
  17234. 918.11 s [opt-env-conf-test] + _ ->
  17235. 918.11 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17236. 918.11 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17237. 918.11 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17238. 918.11 s [opt-env-conf-test] + ]
  17239. 918.11 s [opt-env-conf-test] )
  17240. 918.11 s [opt-env-conf-test]
  17241. 918.11 s [opt-env-conf-test] -- | Consume an option.
  17242. 918.11 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  17243. 918.11 s [opt-env-conf-test] @@ -149,34 +149,34 @@
  17244. 918.11 s [opt-env-conf-test] -- A single dash is always an argument
  17245. 918.11 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  17246. 918.11 s [opt-env-conf-test] -- Bare double-dash
  17247. 918.11 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17248. 918.11 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17249. 918.11 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17250. 918.11 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17251. 918.11 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17252. 918.11 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17253. 918.11 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17254. 918.11 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17255. 918.11 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17256. 918.11 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17257. 918.11 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17258. 918.11 s [opt-env-conf-test] - -- pop the args as they come.
  17259. 918.11 s [opt-env-conf-test] - _ ->
  17260. 918.11 s [opt-env-conf-test] - let go = \case
  17261. 918.11 s [opt-env-conf-test] - [] -> Nothing
  17262. 918.11 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17263. 918.11 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17264. 918.11 s [opt-env-conf-test] - in case go afters of
  17265. 918.11 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17266. 918.11 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17267. 918.11 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17268. 918.11 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17269. 918.11 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17270. 918.11 s [opt-env-conf-test] - -- arguments.
  17271. 918.11 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17272. 918.11 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17273. 918.11 s [opt-env-conf-test] - )
  17274. 918.11 s [opt-env-conf-test] - ]
  17275. 918.11 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17276. 918.11 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17277. 918.11 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17278. 918.11 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17279. 918.11 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17280. 918.11 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17281. 918.11 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17282. 918.11 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17283. 918.11 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17284. 918.11 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17285. 918.11 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17286. 918.11 s [opt-env-conf-test] + -- pop the args as they come.
  17287. 918.11 s [opt-env-conf-test] + _ ->
  17288. 918.11 s [opt-env-conf-test] + let go = \case
  17289. 918.11 s [opt-env-conf-test] + [] -> Nothing
  17290. 918.11 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17291. 918.11 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17292. 918.11 s [opt-env-conf-test] + in case go afters of
  17293. 918.11 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17294. 918.11 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17295. 918.11 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17296. 918.11 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17297. 918.11 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17298. 918.11 s [opt-env-conf-test] + -- arguments.
  17299. 918.11 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17300. 918.11 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17301. 918.11 s [opt-env-conf-test] + )
  17302. 918.11 s [opt-env-conf-test] + ]
  17303. 918.11 s [opt-env-conf-test] ArgDashed {} ->
  17304. 918.11 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17305. 918.11 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17306. 918.11 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
  17307. 918.11 s [opt-env-conf-test] @@ -202,9 +202,9 @@
  17308. 918.11 s [opt-env-conf-test] ]
  17309. 918.11 s [opt-env-conf-test] _ ->
  17310. 918.11 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17311. 918.11 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17312. 918.11 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17313. 918.11 s [opt-env-conf-test] - ]
  17314. 918.11 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17315. 918.11 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17316. 918.11 s [opt-env-conf-test] + ]
  17317. 918.11 s [opt-env-conf-test] )
  17318. 918.11 s [opt-env-conf-test]
  17319. 918.11 s [opt-env-conf-test] -- | Consume an option.
  17320. 918.11 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
  17321. 918.11 s [opt-env-conf-test] @@ -202,9 +202,7 @@
  17322. 918.11 s [opt-env-conf-test] ]
  17323. 918.11 s [opt-env-conf-test] _ ->
  17324. 918.11 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17325. 918.11 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17326. 918.11 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17327. 918.11 s [opt-env-conf-test] - ]
  17328. 918.11 s [opt-env-conf-test] + ++ []
  17329. 918.11 s [opt-env-conf-test] )
  17330. 918.11 s [opt-env-conf-test]
  17331. 918.11 s [opt-env-conf-test] -- | Consume an option.
  17332. 918.11 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
  17333. 918.11 s [opt-env-conf-test] @@ -202,7 +202,7 @@
  17334. 918.11 s [opt-env-conf-test] ]
  17335. 918.11 s [opt-env-conf-test] _ ->
  17336. 918.11 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17337. 918.11 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17338. 918.11 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17339. 918.12 s [opt-env-conf-test] (Just (renderArg a), consumed)
  17340. 918.12 s [opt-env-conf-test] ]
  17341. 918.12 s [opt-env-conf-test] )
  17342. 918.12 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
  17343. 918.12 s [opt-env-conf-test] @@ -195,16 +195,16 @@
  17344. 918.12 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  17345. 918.12 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  17346. 918.12 s [opt-env-conf-test] -- * The dashed is an argument
  17347. 918.12 s [opt-env-conf-test] - ( case a' of
  17348. 918.12 s [opt-env-conf-test] - ArgDashed {} ->
  17349. 918.12 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17350. 918.12 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17351. 918.12 s [opt-env-conf-test] - ]
  17352. 918.12 s [opt-env-conf-test] - _ ->
  17353. 918.56 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17354. 918.56 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17355. 918.56 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17356. 918.56 s [opt-env-conf-test] - ]
  17357. 918.56 s [opt-env-conf-test] + ( case a' of
  17358. 918.56 s [opt-env-conf-test] + ArgDashed {} ->
  17359. 918.56 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17360. 918.56 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17361. 918.56 s [opt-env-conf-test] + ]
  17362. 918.56 s [opt-env-conf-test] + _ ->
  17363. 918.56 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17364. 918.56 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17365. 918.56 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17366. 918.56 s [opt-env-conf-test] + ]
  17367. 918.56 s [opt-env-conf-test] )
  17368. 918.56 s [opt-env-conf-test]
  17369. 918.56 s [opt-env-conf-test] -- | Consume an option.
  17370. 918.56 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  17371. 918.56 s [opt-env-conf-test] @@ -186,26 +186,26 @@
  17372. 918.56 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  17373. 918.56 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  17374. 918.56 s [opt-env-conf-test] ]
  17375. 918.56 s [opt-env-conf-test] - in case afters of
  17376. 918.56 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17377. 918.56 s [opt-env-conf-test] - [] -> switchCase
  17378. 918.56 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17379. 918.56 s [opt-env-conf-test] - (Live a' : rest) ->
  17380. 918.56 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17381. 918.56 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17382. 918.56 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17383. 918.56 s [opt-env-conf-test] - -- * The dashed is an argument
  17384. 918.56 s [opt-env-conf-test] - ( case a' of
  17385. 918.56 s [opt-env-conf-test] - ArgDashed {} ->
  17386. 918.56 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17387. 918.56 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17388. 918.56 s [opt-env-conf-test] - ]
  17389. 918.56 s [opt-env-conf-test] - _ ->
  17390. 918.56 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17391. 918.56 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17392. 918.56 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17393. 918.56 s [opt-env-conf-test] - ]
  17394. 918.56 s [opt-env-conf-test] - )
  17395. 918.56 s [opt-env-conf-test] + in case afters of
  17396. 918.57 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17397. 918.57 s [opt-env-conf-test] + [] -> switchCase
  17398. 918.57 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17399. 918.57 s [opt-env-conf-test] + (Live a' : rest) ->
  17400. 918.57 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17401. 918.57 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17402. 918.57 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17403. 918.57 s [opt-env-conf-test] + -- * The dashed is an argument
  17404. 918.57 s [opt-env-conf-test] + ( case a' of
  17405. 918.57 s [opt-env-conf-test] + ArgDashed {} ->
  17406. 918.57 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17407. 918.57 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17408. 918.57 s [opt-env-conf-test] + ]
  17409. 918.57 s [opt-env-conf-test] + _ ->
  17410. 918.57 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17411. 918.57 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17412. 918.57 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17413. 918.57 s [opt-env-conf-test] + ]
  17414. 918.57 s [opt-env-conf-test] + )
  17415. 918.57 s [opt-env-conf-test]
  17416. 918.57 s [opt-env-conf-test] -- | Consume an option.
  17417. 918.57 s [opt-env-conf-test] --
  17418. 918.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  17419. 918.57 s [opt-env-conf-test] @@ -186,26 +186,26 @@
  17420. 918.57 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  17421. 918.57 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  17422. 918.57 s [opt-env-conf-test] ]
  17423. 918.57 s [opt-env-conf-test] - in case afters of
  17424. 918.57 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17425. 918.57 s [opt-env-conf-test] - [] -> switchCase
  17426. 918.57 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17427. 918.57 s [opt-env-conf-test] - (Live a' : rest) ->
  17428. 918.57 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17429. 918.57 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17430. 918.57 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17431. 918.57 s [opt-env-conf-test] - -- * The dashed is an argument
  17432. 918.57 s [opt-env-conf-test] - ( case a' of
  17433. 918.57 s [opt-env-conf-test] - ArgDashed {} ->
  17434. 918.57 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17435. 918.57 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17436. 918.57 s [opt-env-conf-test] - ]
  17437. 918.57 s [opt-env-conf-test] - _ ->
  17438. 918.57 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17439. 918.57 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17440. 918.57 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17441. 918.57 s [opt-env-conf-test] - ]
  17442. 918.57 s [opt-env-conf-test] - )
  17443. 918.57 s [opt-env-conf-test] + in case afters of
  17444. 918.57 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17445. 918.57 s [opt-env-conf-test] + [] -> switchCase
  17446. 918.57 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17447. 918.57 s [opt-env-conf-test] + (Live a' : rest) ->
  17448. 918.57 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17449. 918.57 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17450. 918.57 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17451. 918.57 s [opt-env-conf-test] + -- * The dashed is an argument
  17452. 918.57 s [opt-env-conf-test] + ( case a' of
  17453. 918.57 s [opt-env-conf-test] + ArgDashed {} ->
  17454. 918.57 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17455. 918.57 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17456. 918.57 s [opt-env-conf-test] + ]
  17457. 918.57 s [opt-env-conf-test] + _ ->
  17458. 918.57 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17459. 918.57 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17460. 918.57 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17461. 918.57 s [opt-env-conf-test] + ]
  17462. 918.57 s [opt-env-conf-test] + )
  17463. 918.57 s [opt-env-conf-test]
  17464. 918.57 s [opt-env-conf-test] -- | Consume an option.
  17465. 918.57 s [opt-env-conf-test] --
  17466. 918.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  17467. 918.57 s [opt-env-conf-test] @@ -186,26 +186,26 @@
  17468. 918.57 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  17469. 918.57 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  17470. 918.57 s [opt-env-conf-test] ]
  17471. 918.57 s [opt-env-conf-test] - in case afters of
  17472. 918.57 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17473. 918.57 s [opt-env-conf-test] - [] -> switchCase
  17474. 918.57 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17475. 918.57 s [opt-env-conf-test] - (Live a' : rest) ->
  17476. 918.57 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17477. 918.57 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17478. 918.57 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17479. 918.58 s [opt-env-conf-test] - -- * The dashed is an argument
  17480. 918.58 s [opt-env-conf-test] - ( case a' of
  17481. 918.58 s [opt-env-conf-test] - ArgDashed {} ->
  17482. 918.58 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17483. 918.58 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17484. 918.58 s [opt-env-conf-test] - ]
  17485. 918.58 s [opt-env-conf-test] - _ ->
  17486. 918.58 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17487. 918.58 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17488. 918.58 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17489. 918.58 s [opt-env-conf-test] - ]
  17490. 918.58 s [opt-env-conf-test] - )
  17491. 918.58 s [opt-env-conf-test] + in case afters of
  17492. 918.58 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17493. 918.58 s [opt-env-conf-test] + [] -> switchCase
  17494. 918.58 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17495. 918.58 s [opt-env-conf-test] + (Live a' : rest) ->
  17496. 918.58 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17497. 918.58 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17498. 918.58 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17499. 918.58 s [opt-env-conf-test] + -- * The dashed is an argument
  17500. 918.58 s [opt-env-conf-test] + ( case a' of
  17501. 918.58 s [opt-env-conf-test] + ArgDashed {} ->
  17502. 918.58 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17503. 918.58 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17504. 918.58 s [opt-env-conf-test] + ]
  17505. 918.58 s [opt-env-conf-test] + _ ->
  17506. 918.58 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17507. 918.58 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17508. 918.58 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17509. 918.58 s [opt-env-conf-test] + ]
  17510. 918.58 s [opt-env-conf-test] + )
  17511. 918.58 s [opt-env-conf-test]
  17512. 918.58 s [opt-env-conf-test] -- | Consume an option.
  17513. 918.58 s [opt-env-conf-test] --
  17514. 918.58 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17515. 918.58 s [opt-env-conf-test] @@ -143,69 +143,69 @@
  17516. 918.58 s [opt-env-conf-test] in case firstArg of
  17517. 918.58 s [opt-env-conf-test] -- Skip any dead argument
  17518. 918.58 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17519. 918.58 s [opt-env-conf-test] - Live a -> case a of
  17520. 918.58 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17521. 918.58 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17522. 918.58 s [opt-env-conf-test] - -- A single dash is always an argument
  17523. 918.58 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17524. 918.58 s [opt-env-conf-test] - -- Bare double-dash
  17525. 918.58 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17526. 918.58 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17527. 918.58 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17528. 918.58 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17529. 918.58 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17530. 918.58 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17531. 918.58 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17532. 918.58 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17533. 918.58 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17534. 918.58 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17535. 918.58 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17536. 918.58 s [opt-env-conf-test] - -- pop the args as they come.
  17537. 918.58 s [opt-env-conf-test] - _ ->
  17538. 918.58 s [opt-env-conf-test] - let go = \case
  17539. 918.58 s [opt-env-conf-test] - [] -> Nothing
  17540. 918.58 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17541. 918.58 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17542. 918.58 s [opt-env-conf-test] - in case go afters of
  17543. 918.58 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17544. 918.58 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17545. 918.58 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17546. 918.58 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17547. 918.58 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17548. 918.58 s [opt-env-conf-test] - -- arguments.
  17549. 918.58 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17550. 918.58 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17551. 918.58 s [opt-env-conf-test] - )
  17552. 918.58 s [opt-env-conf-test] - ]
  17553. 918.58 s [opt-env-conf-test] - ArgDashed {} ->
  17554. 918.58 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17555. 918.58 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17556. 918.58 s [opt-env-conf-test] - -- * The dashed is an argument
  17557. 918.58 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17558. 918.58 s [opt-env-conf-test] - let switchCase =
  17559. 918.58 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17560. 918.58 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17561. 918.58 s [opt-env-conf-test] - ]
  17562. 918.58 s [opt-env-conf-test] - in case afters of
  17563. 918.58 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17564. 918.58 s [opt-env-conf-test] - [] -> switchCase
  17565. 918.58 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17566. 918.58 s [opt-env-conf-test] - (Live a' : rest) ->
  17567. 918.58 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17568. 918.58 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17569. 918.58 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17570. 918.58 s [opt-env-conf-test] - -- * The dashed is an argument
  17571. 918.58 s [opt-env-conf-test] - ( case a' of
  17572. 918.58 s [opt-env-conf-test] - ArgDashed {} ->
  17573. 918.58 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17574. 918.58 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17575. 918.58 s [opt-env-conf-test] - ]
  17576. 918.58 s [opt-env-conf-test] - _ ->
  17577. 918.58 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17578. 918.58 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17579. 918.58 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17580. 918.58 s [opt-env-conf-test] - ]
  17581. 918.58 s [opt-env-conf-test] - )
  17582. 918.58 s [opt-env-conf-test] + Live a -> case a of
  17583. 918.58 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17584. 918.58 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17585. 918.58 s [opt-env-conf-test] + -- A single dash is always an argument
  17586. 918.58 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17587. 918.58 s [opt-env-conf-test] + -- Bare double-dash
  17588. 918.58 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17589. 918.58 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17590. 918.58 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17591. 918.58 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17592. 918.58 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17593. 918.58 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17594. 918.58 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17595. 918.58 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17596. 918.58 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17597. 918.58 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17598. 918.59 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17599. 918.59 s [opt-env-conf-test] + -- pop the args as they come.
  17600. 918.59 s [opt-env-conf-test] + _ ->
  17601. 918.59 s [opt-env-conf-test] + let go = \case
  17602. 918.59 s [opt-env-conf-test] + [] -> Nothing
  17603. 918.59 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17604. 918.59 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17605. 918.59 s [opt-env-conf-test] + in case go afters of
  17606. 918.59 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17607. 918.59 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17608. 918.59 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17609. 918.59 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17610. 918.59 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17611. 918.59 s [opt-env-conf-test] + -- arguments.
  17612. 918.59 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17613. 918.59 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17614. 918.59 s [opt-env-conf-test] + )
  17615. 918.59 s [opt-env-conf-test] + ]
  17616. 918.59 s [opt-env-conf-test] + ArgDashed {} ->
  17617. 918.59 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  17618. 918.59 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  17619. 918.59 s [opt-env-conf-test] + -- * The dashed is an argument
  17620. 918.59 s [opt-env-conf-test] + -- TODO we need to continue looking too
  17621. 918.59 s [opt-env-conf-test] + let switchCase =
  17622. 918.59 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  17623. 918.59 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17624. 918.59 s [opt-env-conf-test] + ]
  17625. 918.59 s [opt-env-conf-test] + in case afters of
  17626. 918.59 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17627. 918.59 s [opt-env-conf-test] + [] -> switchCase
  17628. 918.59 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17629. 918.59 s [opt-env-conf-test] + (Live a' : rest) ->
  17630. 918.59 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17631. 918.59 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17632. 918.59 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17633. 918.59 s [opt-env-conf-test] + -- * The dashed is an argument
  17634. 918.59 s [opt-env-conf-test] + ( case a' of
  17635. 918.59 s [opt-env-conf-test] + ArgDashed {} ->
  17636. 918.59 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17637. 918.68 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17638. 918.68 s [opt-env-conf-test] + ]
  17639. 918.68 s [opt-env-conf-test] + _ ->
  17640. 918.68 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17641. 918.68 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17642. 918.68 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17643. 918.68 s [opt-env-conf-test] + ]
  17644. 918.68 s [opt-env-conf-test] + )
  17645. 918.68 s [opt-env-conf-test]
  17646. 918.68 s [opt-env-conf-test] -- | Consume an option.
  17647. 918.68 s [opt-env-conf-test] --
  17648. 918.68 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17649. 918.68 s [opt-env-conf-test] @@ -143,69 +143,69 @@
  17650. 918.68 s [opt-env-conf-test] in case firstArg of
  17651. 918.68 s [opt-env-conf-test] -- Skip any dead argument
  17652. 918.68 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17653. 918.68 s [opt-env-conf-test] - Live a -> case a of
  17654. 918.68 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17655. 918.68 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17656. 918.68 s [opt-env-conf-test] - -- A single dash is always an argument
  17657. 918.69 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17658. 918.69 s [opt-env-conf-test] - -- Bare double-dash
  17659. 918.69 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17660. 918.69 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17661. 918.69 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17662. 918.69 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17663. 918.69 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17664. 918.69 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17665. 918.69 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17666. 918.69 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17667. 918.69 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17668. 918.69 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17669. 918.69 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17670. 918.69 s [opt-env-conf-test] - -- pop the args as they come.
  17671. 918.69 s [opt-env-conf-test] - _ ->
  17672. 918.69 s [opt-env-conf-test] - let go = \case
  17673. 918.69 s [opt-env-conf-test] - [] -> Nothing
  17674. 918.69 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17675. 918.69 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17676. 918.69 s [opt-env-conf-test] - in case go afters of
  17677. 918.69 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17678. 918.69 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17679. 918.69 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17680. 918.69 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17681. 918.69 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17682. 918.69 s [opt-env-conf-test] - -- arguments.
  17683. 918.69 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17684. 918.69 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17685. 918.69 s [opt-env-conf-test] - )
  17686. 918.69 s [opt-env-conf-test] - ]
  17687. 918.69 s [opt-env-conf-test] - ArgDashed {} ->
  17688. 918.69 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17689. 918.69 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17690. 918.69 s [opt-env-conf-test] - -- * The dashed is an argument
  17691. 918.69 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17692. 918.69 s [opt-env-conf-test] - let switchCase =
  17693. 918.69 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17694. 918.69 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17695. 918.69 s [opt-env-conf-test] - ]
  17696. 918.69 s [opt-env-conf-test] - in case afters of
  17697. 918.69 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17698. 918.69 s [opt-env-conf-test] - [] -> switchCase
  17699. 918.69 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17700. 918.69 s [opt-env-conf-test] - (Live a' : rest) ->
  17701. 918.69 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17702. 918.69 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17703. 918.69 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17704. 918.69 s [opt-env-conf-test] - -- * The dashed is an argument
  17705. 918.69 s [opt-env-conf-test] - ( case a' of
  17706. 918.69 s [opt-env-conf-test] - ArgDashed {} ->
  17707. 918.69 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17708. 918.69 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17709. 918.69 s [opt-env-conf-test] - ]
  17710. 918.69 s [opt-env-conf-test] - _ ->
  17711. 918.69 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17712. 918.69 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17713. 918.69 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17714. 918.69 s [opt-env-conf-test] - ]
  17715. 918.69 s [opt-env-conf-test] - )
  17716. 918.69 s [opt-env-conf-test] + Live a -> case a of
  17717. 918.69 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17718. 918.69 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17719. 918.69 s [opt-env-conf-test] + -- A single dash is always an argument
  17720. 918.69 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17721. 918.69 s [opt-env-conf-test] + -- Bare double-dash
  17722. 918.69 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17723. 918.69 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17724. 918.69 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17725. 918.69 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17726. 918.69 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17727. 918.69 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17728. 918.69 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17729. 918.69 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17730. 918.69 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17731. 918.69 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17732. 918.69 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17733. 918.69 s [opt-env-conf-test] + -- pop the args as they come.
  17734. 918.69 s [opt-env-conf-test] + _ ->
  17735. 918.69 s [opt-env-conf-test] + let go = \case
  17736. 918.69 s [opt-env-conf-test] + [] -> Nothing
  17737. 918.69 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17738. 918.69 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17739. 918.69 s [opt-env-conf-test] + in case go afters of
  17740. 918.69 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17741. 918.69 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17742. 918.69 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17743. 918.69 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17744. 918.69 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17745. 918.69 s [opt-env-conf-test] + -- arguments.
  17746. 918.69 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17747. 918.69 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17748. 918.69 s [opt-env-conf-test] + )
  17749. 918.69 s [opt-env-conf-test] + ]
  17750. 918.69 s [opt-env-conf-test] + ArgDashed {} ->
  17751. 918.69 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  17752. 918.69 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  17753. 918.69 s [opt-env-conf-test] + -- * The dashed is an argument
  17754. 918.69 s [opt-env-conf-test] + -- TODO we need to continue looking too
  17755. 918.69 s [opt-env-conf-test] + let switchCase =
  17756. 918.69 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  17757. 918.69 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17758. 918.69 s [opt-env-conf-test] + ]
  17759. 918.69 s [opt-env-conf-test] + in case afters of
  17760. 918.69 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17761. 918.69 s [opt-env-conf-test] + [] -> switchCase
  17762. 918.69 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17763. 918.69 s [opt-env-conf-test] + (Live a' : rest) ->
  17764. 918.69 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17765. 918.69 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17766. 918.69 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17767. 918.70 s [opt-env-conf-test] + -- * The dashed is an argument
  17768. 918.70 s [opt-env-conf-test] + ( case a' of
  17769. 918.70 s [opt-env-conf-test] + ArgDashed {} ->
  17770. 918.70 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17771. 918.70 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17772. 918.70 s [opt-env-conf-test] + ]
  17773. 918.70 s [opt-env-conf-test] + _ ->
  17774. 918.70 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17775. 918.70 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17776. 918.70 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17777. 918.70 s [opt-env-conf-test] + ]
  17778. 918.70 s [opt-env-conf-test] + )
  17779. 918.70 s [opt-env-conf-test]
  17780. 918.70 s [opt-env-conf-test] -- | Consume an option.
  17781. 918.70 s [opt-env-conf-test] --
  17782. 918.81 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17783. 918.81 s [opt-env-conf-test] @@ -143,69 +143,69 @@
  17784. 918.81 s [opt-env-conf-test] in case firstArg of
  17785. 918.81 s [opt-env-conf-test] -- Skip any dead argument
  17786. 918.81 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17787. 918.81 s [opt-env-conf-test] - Live a -> case a of
  17788. 918.81 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17789. 918.81 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17790. 918.81 s [opt-env-conf-test] - -- A single dash is always an argument
  17791. 918.81 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17792. 918.81 s [opt-env-conf-test] - -- Bare double-dash
  17793. 918.81 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17794. 918.81 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17795. 918.81 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17796. 918.81 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17797. 918.81 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17798. 918.81 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17799. 918.81 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17800. 918.81 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17801. 918.81 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17802. 918.81 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17803. 918.81 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17804. 918.81 s [opt-env-conf-test] - -- pop the args as they come.
  17805. 918.81 s [opt-env-conf-test] - _ ->
  17806. 918.81 s [opt-env-conf-test] - let go = \case
  17807. 918.81 s [opt-env-conf-test] - [] -> Nothing
  17808. 918.81 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17809. 918.81 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17810. 918.81 s [opt-env-conf-test] - in case go afters of
  17811. 918.81 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17812. 918.81 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17813. 918.81 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17814. 918.81 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17815. 918.81 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17816. 918.81 s [opt-env-conf-test] - -- arguments.
  17817. 918.81 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17818. 918.81 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17819. 918.81 s [opt-env-conf-test] - )
  17820. 918.81 s [opt-env-conf-test] - ]
  17821. 918.81 s [opt-env-conf-test] - ArgDashed {} ->
  17822. 918.81 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17823. 918.81 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17824. 918.81 s [opt-env-conf-test] - -- * The dashed is an argument
  17825. 918.81 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17826. 918.81 s [opt-env-conf-test] - let switchCase =
  17827. 918.81 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17828. 918.81 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17829. 918.81 s [opt-env-conf-test] - ]
  17830. 918.81 s [opt-env-conf-test] - in case afters of
  17831. 918.81 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17832. 918.81 s [opt-env-conf-test] - [] -> switchCase
  17833. 918.81 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17834. 918.81 s [opt-env-conf-test] - (Live a' : rest) ->
  17835. 918.81 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17836. 918.81 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17837. 918.81 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17838. 918.81 s [opt-env-conf-test] - -- * The dashed is an argument
  17839. 918.82 s [opt-env-conf-test] - ( case a' of
  17840. 918.82 s [opt-env-conf-test] - ArgDashed {} ->
  17841. 918.82 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17842. 918.82 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17843. 918.82 s [opt-env-conf-test] - ]
  17844. 918.82 s [opt-env-conf-test] - _ ->
  17845. 918.82 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17846. 918.82 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17847. 918.82 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17848. 918.82 s [opt-env-conf-test] - ]
  17849. 918.82 s [opt-env-conf-test] - )
  17850. 918.82 s [opt-env-conf-test] + Live a -> case a of
  17851. 918.82 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17852. 918.82 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17853. 918.82 s [opt-env-conf-test] + -- A single dash is always an argument
  17854. 918.82 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17855. 918.82 s [opt-env-conf-test] + -- Bare double-dash
  17856. 918.82 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17857. 918.82 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17858. 918.82 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17859. 918.82 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17860. 918.82 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17861. 918.82 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17862. 918.82 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17863. 918.82 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17864. 918.82 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17865. 918.82 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17866. 918.82 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17867. 918.82 s [opt-env-conf-test] + -- pop the args as they come.
  17868. 918.82 s [opt-env-conf-test] + _ ->
  17869. 918.82 s [opt-env-conf-test] + let go = \case
  17870. 918.82 s [opt-env-conf-test] + [] -> Nothing
  17871. 918.82 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17872. 918.82 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17873. 918.82 s [opt-env-conf-test] + in case go afters of
  17874. 918.82 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17875. 918.82 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17876. 918.82 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17877. 918.82 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17878. 918.82 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17879. 918.82 s [opt-env-conf-test] + -- arguments.
  17880. 918.82 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17881. 918.82 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17882. 918.82 s [opt-env-conf-test] + )
  17883. 918.82 s [opt-env-conf-test] + ]
  17884. 918.82 s [opt-env-conf-test] + ArgDashed {} ->
  17885. 918.82 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  17886. 918.82 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  17887. 918.82 s [opt-env-conf-test] + -- * The dashed is an argument
  17888. 918.82 s [opt-env-conf-test] + -- TODO we need to continue looking too
  17889. 918.82 s [opt-env-conf-test] + let switchCase =
  17890. 918.82 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  17891. 918.82 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17892. 918.82 s [opt-env-conf-test] + ]
  17893. 918.82 s [opt-env-conf-test] + in case afters of
  17894. 918.82 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17895. 918.82 s [opt-env-conf-test] + [] -> switchCase
  17896. 918.82 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17897. 918.82 s [opt-env-conf-test] + (Live a' : rest) ->
  17898. 918.82 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17899. 918.82 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17900. 918.82 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17901. 918.82 s [opt-env-conf-test] + -- * The dashed is an argument
  17902. 918.82 s [opt-env-conf-test] + ( case a' of
  17903. 918.82 s [opt-env-conf-test] + ArgDashed {} ->
  17904. 918.82 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17905. 918.82 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17906. 918.82 s [opt-env-conf-test] + ]
  17907. 918.82 s [opt-env-conf-test] + _ ->
  17908. 918.82 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17909. 918.82 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17910. 918.82 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17911. 918.82 s [opt-env-conf-test] + ]
  17912. 918.82 s [opt-env-conf-test] + )
  17913. 918.82 s [opt-env-conf-test]
  17914. 918.82 s [opt-env-conf-test] -- | Consume an option.
  17915. 918.82 s [opt-env-conf-test] --
  17916. 918.82 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17917. 918.82 s [opt-env-conf-test] @@ -143,69 +143,69 @@
  17918. 918.82 s [opt-env-conf-test] in case firstArg of
  17919. 918.82 s [opt-env-conf-test] -- Skip any dead argument
  17920. 918.82 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17921. 918.82 s [opt-env-conf-test] - Live a -> case a of
  17922. 918.82 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17923. 918.82 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17924. 918.82 s [opt-env-conf-test] - -- A single dash is always an argument
  17925. 918.82 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17926. 918.82 s [opt-env-conf-test] - -- Bare double-dash
  17927. 918.82 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17928. 919.10 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17929. 919.10 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17930. 919.10 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17931. 919.10 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17932. 919.11 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17933. 919.11 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17934. 919.11 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17935. 919.11 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17936. 919.11 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17937. 919.11 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17938. 919.11 s [opt-env-conf-test] - -- pop the args as they come.
  17939. 919.11 s [opt-env-conf-test] - _ ->
  17940. 919.11 s [opt-env-conf-test] - let go = \case
  17941. 919.11 s [opt-env-conf-test] - [] -> Nothing
  17942. 919.11 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17943. 919.11 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17944. 919.11 s [opt-env-conf-test] - in case go afters of
  17945. 919.11 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17946. 919.11 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17947. 919.11 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17948. 919.11 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17949. 919.11 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17950. 919.11 s [opt-env-conf-test] - -- arguments.
  17951. 919.11 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17952. 919.11 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17953. 919.11 s [opt-env-conf-test] - )
  17954. 919.11 s [opt-env-conf-test] - ]
  17955. 919.11 s [opt-env-conf-test] - ArgDashed {} ->
  17956. 919.11 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17957. 919.11 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17958. 919.11 s [opt-env-conf-test] - -- * The dashed is an argument
  17959. 919.11 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17960. 919.11 s [opt-env-conf-test] - let switchCase =
  17961. 919.11 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17962. 919.11 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17963. 919.11 s [opt-env-conf-test] - ]
  17964. 919.11 s [opt-env-conf-test] - in case afters of
  17965. 919.11 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17966. 919.11 s [opt-env-conf-test] - [] -> switchCase
  17967. 919.11 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17968. 919.11 s [opt-env-conf-test] - (Live a' : rest) ->
  17969. 919.11 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17970. 919.11 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17971. 919.11 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17972. 919.11 s [opt-env-conf-test] - -- * The dashed is an argument
  17973. 919.11 s [opt-env-conf-test] - ( case a' of
  17974. 919.11 s [opt-env-conf-test] - ArgDashed {} ->
  17975. 919.11 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17976. 919.11 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17977. 919.11 s [opt-env-conf-test] - ]
  17978. 919.11 s [opt-env-conf-test] - _ ->
  17979. 919.11 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17980. 919.11 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17981. 919.11 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17982. 919.11 s [opt-env-conf-test] - ]
  17983. 919.11 s [opt-env-conf-test] - )
  17984. 919.11 s [opt-env-conf-test] + Live a -> case a of
  17985. 919.11 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17986. 919.11 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17987. 919.11 s [opt-env-conf-test] + -- A single dash is always an argument
  17988. 919.11 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17989. 919.12 s [opt-env-conf-test] + -- Bare double-dash
  17990. 919.12 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17991. 919.12 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17992. 919.12 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17993. 919.12 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17994. 919.12 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17995. 919.12 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17996. 919.12 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17997. 919.12 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17998. 919.12 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17999. 919.12 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  18000. 919.12 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  18001. 919.12 s [opt-env-conf-test] + -- pop the args as they come.
  18002. 919.12 s [opt-env-conf-test] + _ ->
  18003. 919.12 s [opt-env-conf-test] + let go = \case
  18004. 919.12 s [opt-env-conf-test] + [] -> Nothing
  18005. 919.12 s [opt-env-conf-test] + (Dead : rest) -> go rest
  18006. 919.12 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  18007. 919.12 s [opt-env-conf-test] + in case go afters of
  18008. 919.12 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  18009. 919.12 s [opt-env-conf-test] + Just (firstLive, rest) ->
  18010. 919.12 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  18011. 919.12 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  18012. 919.12 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  18013. 919.12 s [opt-env-conf-test] + -- arguments.
  18014. 919.12 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  18015. 919.12 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  18016. 919.12 s [opt-env-conf-test] + )
  18017. 919.12 s [opt-env-conf-test] + ]
  18018. 919.12 s [opt-env-conf-test] + ArgDashed {} ->
  18019. 919.12 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  18020. 919.12 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  18021. 919.12 s [opt-env-conf-test] + -- * The dashed is an argument
  18022. 919.12 s [opt-env-conf-test] + -- TODO we need to continue looking too
  18023. 919.12 s [opt-env-conf-test] + let switchCase =
  18024. 919.12 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  18025. 919.12 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18026. 919.12 s [opt-env-conf-test] + ]
  18027. 919.12 s [opt-env-conf-test] + in case afters of
  18028. 919.12 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  18029. 919.12 s [opt-env-conf-test] + [] -> switchCase
  18030. 919.12 s [opt-env-conf-test] + (Dead : _) -> switchCase
  18031. 919.12 s [opt-env-conf-test] + (Live a' : rest) ->
  18032. 919.12 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  18033. 919.12 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  18034. 919.12 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  18035. 919.12 s [opt-env-conf-test] + -- * The dashed is an argument
  18036. 919.12 s [opt-env-conf-test] + ( case a' of
  18037. 919.12 s [opt-env-conf-test] + ArgDashed {} ->
  18038. 919.12 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  18039. 919.12 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18040. 919.12 s [opt-env-conf-test] + ]
  18041. 919.12 s [opt-env-conf-test] + _ ->
  18042. 919.12 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18043. 919.12 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18044. 919.12 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  18045. 919.12 s [opt-env-conf-test] + ]
  18046. 919.12 s [opt-env-conf-test] + )
  18047. 919.12 s [opt-env-conf-test]
  18048. 919.12 s [opt-env-conf-test] -- | Consume an option.
  18049. 919.12 s [opt-env-conf-test] --
  18050. 919.12 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
  18051. 919.12 s [opt-env-conf-test] @@ -140,72 +140,72 @@
  18052. 919.12 s [opt-env-conf-test] (firstArg : afters) ->
  18053. 919.12 s [opt-env-conf-test] let befores = argsBefore as
  18054. 919.12 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  18055. 919.12 s [opt-env-conf-test] - in case firstArg of
  18056. 919.12 s [opt-env-conf-test] - -- Skip any dead argument
  18057. 919.12 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  18058. 919.12 s [opt-env-conf-test] - Live a -> case a of
  18059. 919.12 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  18060. 919.12 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  18061. 919.12 s [opt-env-conf-test] - -- A single dash is always an argument
  18062. 919.12 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  18063. 919.12 s [opt-env-conf-test] - -- Bare double-dash
  18064. 919.12 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  18065. 919.12 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  18066. 919.12 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  18067. 919.12 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  18068. 919.12 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  18069. 919.12 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  18070. 919.40 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18071. 919.41 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  18072. 919.41 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  18073. 919.41 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  18074. 919.41 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  18075. 919.41 s [opt-env-conf-test] - -- pop the args as they come.
  18076. 919.41 s [opt-env-conf-test] - _ ->
  18077. 919.41 s [opt-env-conf-test] - let go = \case
  18078. 919.41 s [opt-env-conf-test] - [] -> Nothing
  18079. 919.41 s [opt-env-conf-test] - (Dead : rest) -> go rest
  18080. 919.41 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  18081. 919.41 s [opt-env-conf-test] - in case go afters of
  18082. 919.41 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  18083. 919.41 s [opt-env-conf-test] - Just (firstLive, rest) ->
  18084. 919.41 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  18085. 919.41 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  18086. 919.41 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  18087. 919.41 s [opt-env-conf-test] - -- arguments.
  18088. 919.41 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  18089. 919.41 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  18090. 919.41 s [opt-env-conf-test] - )
  18091. 919.41 s [opt-env-conf-test] - ]
  18092. 919.41 s [opt-env-conf-test] - ArgDashed {} ->
  18093. 919.41 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  18094. 919.41 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  18095. 919.41 s [opt-env-conf-test] - -- * The dashed is an argument
  18096. 919.41 s [opt-env-conf-test] - -- TODO we need to continue looking too
  18097. 919.41 s [opt-env-conf-test] - let switchCase =
  18098. 919.41 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  18099. 919.41 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18100. 919.41 s [opt-env-conf-test] - ]
  18101. 919.41 s [opt-env-conf-test] - in case afters of
  18102. 919.41 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  18103. 919.41 s [opt-env-conf-test] - [] -> switchCase
  18104. 919.41 s [opt-env-conf-test] - (Dead : _) -> switchCase
  18105. 919.41 s [opt-env-conf-test] - (Live a' : rest) ->
  18106. 919.41 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  18107. 919.41 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  18108. 919.41 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  18109. 919.41 s [opt-env-conf-test] - -- * The dashed is an argument
  18110. 919.41 s [opt-env-conf-test] - ( case a' of
  18111. 919.41 s [opt-env-conf-test] - ArgDashed {} ->
  18112. 919.41 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  18113. 919.41 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18114. 919.41 s [opt-env-conf-test] - ]
  18115. 919.41 s [opt-env-conf-test] - _ ->
  18116. 919.41 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18117. 919.41 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18118. 919.41 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  18119. 919.42 s [opt-env-conf-test] - ]
  18120. 919.42 s [opt-env-conf-test] - )
  18121. 919.42 s [opt-env-conf-test] + in case firstArg of
  18122. 919.42 s [opt-env-conf-test] + -- Skip any dead argument
  18123. 919.42 s [opt-env-conf-test] + Dead -> consumeArgument consumed
  18124. 919.42 s [opt-env-conf-test] + Live a -> case a of
  18125. 919.42 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  18126. 919.42 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  18127. 919.42 s [opt-env-conf-test] + -- A single dash is always an argument
  18128. 919.42 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  18129. 919.42 s [opt-env-conf-test] + -- Bare double-dash
  18130. 919.42 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  18131. 919.42 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  18132. 919.42 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  18133. 919.42 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  18134. 919.42 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  18135. 919.42 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  18136. 919.42 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18137. 919.42 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  18138. 919.42 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  18139. 919.42 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  18140. 919.42 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  18141. 919.42 s [opt-env-conf-test] + -- pop the args as they come.
  18142. 919.42 s [opt-env-conf-test] + _ ->
  18143. 919.42 s [opt-env-conf-test] + let go = \case
  18144. 919.42 s [opt-env-conf-test] + [] -> Nothing
  18145. 919.42 s [opt-env-conf-test] + (Dead : rest) -> go rest
  18146. 919.42 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  18147. 919.42 s [opt-env-conf-test] + in case go afters of
  18148. 919.42 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  18149. 919.42 s [opt-env-conf-test] + Just (firstLive, rest) ->
  18150. 919.42 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  18151. 919.42 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  18152. 919.42 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  18153. 919.42 s [opt-env-conf-test] + -- arguments.
  18154. 919.42 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  18155. 919.42 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  18156. 919.42 s [opt-env-conf-test] + )
  18157. 919.42 s [opt-env-conf-test] + ]
  18158. 919.42 s [opt-env-conf-test] + ArgDashed {} ->
  18159. 919.42 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  18160. 919.42 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  18161. 919.42 s [opt-env-conf-test] + -- * The dashed is an argument
  18162. 919.42 s [opt-env-conf-test] + -- TODO we need to continue looking too
  18163. 919.42 s [opt-env-conf-test] + let switchCase =
  18164. 919.42 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  18165. 919.42 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18166. 919.42 s [opt-env-conf-test] + ]
  18167. 919.42 s [opt-env-conf-test] + in case afters of
  18168. 919.42 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  18169. 919.42 s [opt-env-conf-test] + [] -> switchCase
  18170. 919.42 s [opt-env-conf-test] + (Dead : _) -> switchCase
  18171. 919.42 s [opt-env-conf-test] + (Live a' : rest) ->
  18172. 919.42 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  18173. 919.42 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  18174. 919.42 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  18175. 919.42 s [opt-env-conf-test] + -- * The dashed is an argument
  18176. 919.42 s [opt-env-conf-test] + ( case a' of
  18177. 919.42 s [opt-env-conf-test] + ArgDashed {} ->
  18178. 919.42 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  18179. 919.42 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18180. 919.42 s [opt-env-conf-test] + ]
  18181. 919.42 s [opt-env-conf-test] + _ ->
  18182. 919.42 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18183. 919.42 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18184. 919.42 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  18185. 919.42 s [opt-env-conf-test] + ]
  18186. 919.42 s [opt-env-conf-test] + )
  18187. 919.42 s [opt-env-conf-test]
  18188. 919.42 s [opt-env-conf-test] -- | Consume an option.
  18189. 919.42 s [opt-env-conf-test] --
  18190. 919.42 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
  18191. 919.42 s [opt-env-conf-test] @@ -140,72 +140,72 @@
  18192. 919.42 s [opt-env-conf-test] (firstArg : afters) ->
  18193. 919.42 s [opt-env-conf-test] let befores = argsBefore as
  18194. 919.42 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  18195. 919.42 s [opt-env-conf-test] - in case firstArg of
  18196. 919.42 s [opt-env-conf-test] - -- Skip any dead argument
  18197. 919.42 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  18198. 919.42 s [opt-env-conf-test] - Live a -> case a of
  18199. 919.42 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  18200. 919.42 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  18201. 919.42 s [opt-env-conf-test] - -- A single dash is always an argument
  18202. 919.42 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  18203. 919.42 s [opt-env-conf-test] - -- Bare double-dash
  18204. 919.42 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  18205. 919.42 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  18206. 919.42 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  18207. 919.42 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  18208. 919.42 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  18209. 919.42 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  18210. 919.42 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18211. 919.42 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  18212. 919.42 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  18213. 919.42 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  18214. 919.61 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  18215. 919.61 s [opt-env-conf-test] - -- pop the args as they come.
  18216. 919.61 s [opt-env-conf-test] - _ ->
  18217. 919.61 s [opt-env-conf-test] - let go = \case
  18218. 919.61 s [opt-env-conf-test] - [] -> Nothing
  18219. 919.61 s [opt-env-conf-test] - (Dead : rest) -> go rest
  18220. 919.61 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  18221. 919.61 s [opt-env-conf-test] - in case go afters of
  18222. 919.61 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  18223. 919.61 s [opt-env-conf-test] - Just (firstLive, rest) ->
  18224. 919.61 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  18225. 919.61 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  18226. 919.61 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  18227. 919.61 s [opt-env-conf-test] - -- arguments.
  18228. 919.61 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  18229. 919.61 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  18230. 919.61 s [opt-env-conf-test] - )
  18231. 919.61 s [opt-env-conf-test] - ]
  18232. 919.61 s [opt-env-conf-test] - ArgDashed {} ->
  18233. 919.61 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  18234. 919.61 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  18235. 919.61 s [opt-env-conf-test] - -- * The dashed is an argument
  18236. 919.61 s [opt-env-conf-test] - -- TODO we need to continue looking too
  18237. 919.61 s [opt-env-conf-test] - let switchCase =
  18238. 919.61 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  18239. 919.61 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18240. 919.62 s [opt-env-conf-test] - ]
  18241. 919.62 s [opt-env-conf-test] - in case afters of
  18242. 919.62 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  18243. 919.62 s [opt-env-conf-test] - [] -> switchCase
  18244. 919.62 s [opt-env-conf-test] - (Dead : _) -> switchCase
  18245. 919.62 s [opt-env-conf-test] - (Live a' : rest) ->
  18246. 919.62 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  18247. 919.62 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  18248. 919.62 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  18249. 919.62 s [opt-env-conf-test] - -- * The dashed is an argument
  18250. 919.62 s [opt-env-conf-test] - ( case a' of
  18251. 919.62 s [opt-env-conf-test] - ArgDashed {} ->
  18252. 919.62 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  18253. 919.62 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18254. 919.62 s [opt-env-conf-test] - ]
  18255. 919.62 s [opt-env-conf-test] - _ ->
  18256. 919.62 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18257. 919.62 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18258. 919.62 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  18259. 919.62 s [opt-env-conf-test] - ]
  18260. 919.62 s [opt-env-conf-test] - )
  18261. 919.62 s [opt-env-conf-test] + in case firstArg of
  18262. 919.62 s [opt-env-conf-test] + -- Skip any dead argument
  18263. 919.62 s [opt-env-conf-test] + Dead -> consumeArgument consumed
  18264. 919.62 s [opt-env-conf-test] + Live a -> case a of
  18265. 919.62 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  18266. 919.62 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  18267. 919.62 s [opt-env-conf-test] + -- A single dash is always an argument
  18268. 919.62 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  18269. 919.62 s [opt-env-conf-test] + -- Bare double-dash
  18270. 919.62 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  18271. 919.62 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  18272. 919.62 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  18273. 919.62 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  18274. 919.62 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  18275. 919.62 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  18276. 919.62 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18277. 919.62 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  18278. 919.62 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  18279. 919.62 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  18280. 919.62 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  18281. 919.62 s [opt-env-conf-test] + -- pop the args as they come.
  18282. 919.62 s [opt-env-conf-test] + _ ->
  18283. 919.62 s [opt-env-conf-test] + let go = \case
  18284. 919.62 s [opt-env-conf-test] + [] -> Nothing
  18285. 919.62 s [opt-env-conf-test] + (Dead : rest) -> go rest
  18286. 919.62 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  18287. 919.62 s [opt-env-conf-test] + in case go afters of
  18288. 919.62 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  18289. 919.62 s [opt-env-conf-test] + Just (firstLive, rest) ->
  18290. 919.62 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  18291. 919.62 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  18292. 919.62 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  18293. 919.62 s [opt-env-conf-test] + -- arguments.
  18294. 919.62 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  18295. 919.62 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  18296. 919.62 s [opt-env-conf-test] + )
  18297. 919.62 s [opt-env-conf-test] + ]
  18298. 919.62 s [opt-env-conf-test] + ArgDashed {} ->
  18299. 919.62 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  18300. 919.62 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  18301. 919.62 s [opt-env-conf-test] + -- * The dashed is an argument
  18302. 919.63 s [opt-env-conf-test] + -- TODO we need to continue looking too
  18303. 919.63 s [opt-env-conf-test] + let switchCase =
  18304. 919.63 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  18305. 919.63 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18306. 919.63 s [opt-env-conf-test] + ]
  18307. 919.63 s [opt-env-conf-test] + in case afters of
  18308. 919.63 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  18309. 919.63 s [opt-env-conf-test] + [] -> switchCase
  18310. 919.63 s [opt-env-conf-test] + (Dead : _) -> switchCase
  18311. 919.63 s [opt-env-conf-test] + (Live a' : rest) ->
  18312. 919.63 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  18313. 919.63 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  18314. 919.63 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  18315. 919.63 s [opt-env-conf-test] + -- * The dashed is an argument
  18316. 919.63 s [opt-env-conf-test] + ( case a' of
  18317. 919.63 s [opt-env-conf-test] + ArgDashed {} ->
  18318. 919.63 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  18319. 919.63 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18320. 919.63 s [opt-env-conf-test] + ]
  18321. 919.63 s [opt-env-conf-test] + _ ->
  18322. 919.63 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18323. 919.63 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18324. 919.63 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  18325. 919.63 s [opt-env-conf-test] + ]
  18326. 919.63 s [opt-env-conf-test] + )
  18327. 919.63 s [opt-env-conf-test]
  18328. 919.63 s [opt-env-conf-test] -- | Consume an option.
  18329. 919.63 s [opt-env-conf-test] --
  18330. 919.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
  18331. 919.63 s [opt-env-conf-test] @@ -135,77 +135,77 @@
  18332. 919.63 s [opt-env-conf-test] Nothing -> r
  18333. 919.63 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  18334. 919.63 s [opt-env-conf-test]
  18335. 919.63 s [opt-env-conf-test] - addConsumeNothing $ case argsAfter as of
  18336. 919.63 s [opt-env-conf-test] - [] -> []
  18337. 919.63 s [opt-env-conf-test] - (firstArg : afters) ->
  18338. 919.63 s [opt-env-conf-test] - let befores = argsBefore as
  18339. 919.63 s [opt-env-conf-test] - consumed = Args (befores ++ [Dead]) afters
  18340. 919.63 s [opt-env-conf-test] - in case firstArg of
  18341. 919.63 s [opt-env-conf-test] - -- Skip any dead argument
  18342. 919.63 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  18343. 919.63 s [opt-env-conf-test] - Live a -> case a of
  18344. 919.63 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  18345. 919.63 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  18346. 919.63 s [opt-env-conf-test] - -- A single dash is always an argument
  18347. 919.63 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  18348. 919.63 s [opt-env-conf-test] - -- Bare double-dash
  18349. 919.63 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  18350. 919.63 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  18351. 919.63 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  18352. 919.63 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  18353. 919.63 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  18354. 919.63 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  18355. 919.63 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18356. 919.63 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  18357. 919.63 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  18358. 919.63 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  18359. 919.63 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  18360. 919.63 s [opt-env-conf-test] - -- pop the args as they come.
  18361. 919.63 s [opt-env-conf-test] - _ ->
  18362. 919.63 s [opt-env-conf-test] - let go = \case
  18363. 919.77 s [opt-env-conf-test] - [] -> Nothing
  18364. 919.77 s [opt-env-conf-test] - (Dead : rest) -> go rest
  18365. 919.77 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  18366. 919.77 s [opt-env-conf-test] - in case go afters of
  18367. 919.77 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  18368. 919.77 s [opt-env-conf-test] - Just (firstLive, rest) ->
  18369. 919.77 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  18370. 919.77 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  18371. 919.77 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  18372. 919.77 s [opt-env-conf-test] - -- arguments.
  18373. 919.77 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  18374. 919.77 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  18375. 919.77 s [opt-env-conf-test] - )
  18376. 919.77 s [opt-env-conf-test] - ]
  18377. 919.77 s [opt-env-conf-test] - ArgDashed {} ->
  18378. 919.77 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  18379. 919.77 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  18380. 919.77 s [opt-env-conf-test] - -- * The dashed is an argument
  18381. 919.77 s [opt-env-conf-test] - -- TODO we need to continue looking too
  18382. 919.77 s [opt-env-conf-test] - let switchCase =
  18383. 919.77 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  18384. 919.77 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18385. 919.77 s [opt-env-conf-test] - ]
  18386. 919.77 s [opt-env-conf-test] - in case afters of
  18387. 919.77 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  18388. 919.77 s [opt-env-conf-test] - [] -> switchCase
  18389. 919.77 s [opt-env-conf-test] - (Dead : _) -> switchCase
  18390. 919.77 s [opt-env-conf-test] - (Live a' : rest) ->
  18391. 919.77 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  18392. 919.77 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  18393. 919.77 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  18394. 919.77 s [opt-env-conf-test] - -- * The dashed is an argument
  18395. 919.77 s [opt-env-conf-test] - ( case a' of
  18396. 919.78 s [opt-env-conf-test] - ArgDashed {} ->
  18397. 919.78 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  18398. 919.78 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18399. 919.78 s [opt-env-conf-test] - ]
  18400. 919.78 s [opt-env-conf-test] - _ ->
  18401. 919.78 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18402. 919.78 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18403. 919.78 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  18404. 919.78 s [opt-env-conf-test] - ]
  18405. 919.78 s [opt-env-conf-test] - )
  18406. 919.78 s [opt-env-conf-test] + addConsumeNothing $ case argsAfter as of
  18407. 919.78 s [opt-env-conf-test] + [] -> []
  18408. 919.78 s [opt-env-conf-test] + (firstArg : afters) ->
  18409. 919.78 s [opt-env-conf-test] + let befores = argsBefore as
  18410. 919.78 s [opt-env-conf-test] + consumed = Args (befores ++ [Dead]) afters
  18411. 919.78 s [opt-env-conf-test] + in case firstArg of
  18412. 919.78 s [opt-env-conf-test] + -- Skip any dead argument
  18413. 919.78 s [opt-env-conf-test] + Dead -> consumeArgument consumed
  18414. 919.78 s [opt-env-conf-test] + Live a -> case a of
  18415. 919.78 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  18416. 919.78 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  18417. 919.78 s [opt-env-conf-test] + -- A single dash is always an argument
  18418. 919.78 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  18419. 919.78 s [opt-env-conf-test] + -- Bare double-dash
  18420. 919.78 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  18421. 919.78 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  18422. 919.78 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  18423. 919.78 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  18424. 919.78 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  18425. 919.78 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  18426. 919.78 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18427. 919.78 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  18428. 919.78 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  18429. 919.78 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  18430. 919.78 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  18431. 919.78 s [opt-env-conf-test] + -- pop the args as they come.
  18432. 919.78 s [opt-env-conf-test] + _ ->
  18433. 919.78 s [opt-env-conf-test] + let go = \case
  18434. 919.78 s [opt-env-conf-test] + [] -> Nothing
  18435. 919.78 s [opt-env-conf-test] + (Dead : rest) -> go rest
  18436. 919.78 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  18437. 919.78 s [opt-env-conf-test] + in case go afters of
  18438. 919.78 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  18439. 919.78 s [opt-env-conf-test] + Just (firstLive, rest) ->
  18440. 919.78 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  18441. 919.78 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  18442. 919.78 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  18443. 919.78 s [opt-env-conf-test] + -- arguments.
  18444. 919.78 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  18445. 919.78 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  18446. 919.78 s [opt-env-conf-test] + )
  18447. 919.78 s [opt-env-conf-test] + ]
  18448. 919.78 s [opt-env-conf-test] + ArgDashed {} ->
  18449. 919.78 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  18450. 919.78 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  18451. 919.78 s [opt-env-conf-test] + -- * The dashed is an argument
  18452. 919.78 s [opt-env-conf-test] + -- TODO we need to continue looking too
  18453. 919.78 s [opt-env-conf-test] + let switchCase =
  18454. 919.78 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  18455. 919.78 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18456. 919.78 s [opt-env-conf-test] + ]
  18457. 919.78 s [opt-env-conf-test] + in case afters of
  18458. 919.78 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  18459. 919.78 s [opt-env-conf-test] + [] -> switchCase
  18460. 919.78 s [opt-env-conf-test] + (Dead : _) -> switchCase
  18461. 919.78 s [opt-env-conf-test] + (Live a' : rest) ->
  18462. 919.78 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  18463. 919.78 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  18464. 919.78 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  18465. 919.78 s [opt-env-conf-test] + -- * The dashed is an argument
  18466. 919.78 s [opt-env-conf-test] + ( case a' of
  18467. 919.78 s [opt-env-conf-test] + ArgDashed {} ->
  18468. 919.78 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  18469. 919.78 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18470. 919.78 s [opt-env-conf-test] + ]
  18471. 919.78 s [opt-env-conf-test] + _ ->
  18472. 919.78 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18473. 919.78 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18474. 919.78 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  18475. 919.78 s [opt-env-conf-test] + ]
  18476. 919.78 s [opt-env-conf-test] + )
  18477. 919.78 s [opt-env-conf-test]
  18478. 919.78 s [opt-env-conf-test] -- | Consume an option.
  18479. 919.78 s [opt-env-conf-test] --
  18480. 919.78 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
  18481. 919.78 s [opt-env-conf-test] @@ -135,77 +135,77 @@
  18482. 919.78 s [opt-env-conf-test] Nothing -> r
  18483. 919.78 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  18484. 919.78 s [opt-env-conf-test]
  18485. 919.78 s [opt-env-conf-test] - addConsumeNothing $ case argsAfter as of
  18486. 919.78 s [opt-env-conf-test] - [] -> []
  18487. 919.78 s [opt-env-conf-test] - (firstArg : afters) ->
  18488. 919.79 s [opt-env-conf-test] - let befores = argsBefore as
  18489. 919.79 s [opt-env-conf-test] - consumed = Args (befores ++ [Dead]) afters
  18490. 919.79 s [opt-env-conf-test] - in case firstArg of
  18491. 919.79 s [opt-env-conf-test] - -- Skip any dead argument
  18492. 919.79 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  18493. 919.79 s [opt-env-conf-test] - Live a -> case a of
  18494. 919.79 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  18495. 919.79 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  18496. 919.79 s [opt-env-conf-test] - -- A single dash is always an argument
  18497. 919.79 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  18498. 919.79 s [opt-env-conf-test] - -- Bare double-dash
  18499. 919.79 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  18500. 919.79 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  18501. 919.79 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  18502. 919.79 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  18503. 919.79 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  18504. 919.79 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  18505. 919.79 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18506. 919.79 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  18507. 919.79 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  18508. 919.79 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  18509. 919.79 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  18510. 919.79 s [opt-env-conf-test] - -- pop the args as they come.
  18511. 919.79 s [opt-env-conf-test] - _ ->
  18512. 920.89 s [opt-env-conf-test] - let go = \case
  18513. 920.89 s [opt-env-conf-test] - [] -> Nothing
  18514. 921.08 s [opt-env-conf-test] - (Dead : rest) -> go rest
  18515. 921.08 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  18516. 921.08 s [opt-env-conf-test] - in case go afters of
  18517. 921.08 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  18518. 921.08 s [opt-env-conf-test] - Just (firstLive, rest) ->
  18519. 921.08 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  18520. 921.08 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  18521. 921.08 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  18522. 921.08 s [opt-env-conf-test] - -- arguments.
  18523. 921.08 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  18524. 921.08 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  18525. 921.08 s [opt-env-conf-test] - )
  18526. 921.09 s [opt-env-conf-test] - ]
  18527. 921.09 s [opt-env-conf-test] - ArgDashed {} ->
  18528. 921.09 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  18529. 921.09 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  18530. 921.09 s [opt-env-conf-test] - -- * The dashed is an argument
  18531. 921.09 s [opt-env-conf-test] - -- TODO we need to continue looking too
  18532. 921.09 s [opt-env-conf-test] - let switchCase =
  18533. 921.09 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  18534. 921.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18535. 921.09 s [opt-env-conf-test] - ]
  18536. 921.09 s [opt-env-conf-test] - in case afters of
  18537. 921.09 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  18538. 921.09 s [opt-env-conf-test] - [] -> switchCase
  18539. 921.09 s [opt-env-conf-test] - (Dead : _) -> switchCase
  18540. 921.09 s [opt-env-conf-test] - (Live a' : rest) ->
  18541. 921.09 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  18542. 921.09 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  18543. 921.09 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  18544. 921.09 s [opt-env-conf-test] - -- * The dashed is an argument
  18545. 921.09 s [opt-env-conf-test] - ( case a' of
  18546. 921.09 s [opt-env-conf-test] - ArgDashed {} ->
  18547. 921.09 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  18548. 921.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18549. 921.09 s [opt-env-conf-test] - ]
  18550. 921.09 s [opt-env-conf-test] - _ ->
  18551. 921.09 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18552. 921.09 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18553. 921.09 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  18554. 921.09 s [opt-env-conf-test] - ]
  18555. 921.09 s [opt-env-conf-test] - )
  18556. 921.09 s [opt-env-conf-test] + addConsumeNothing $ case argsAfter as of
  18557. 921.09 s [opt-env-conf-test] + [] -> []
  18558. 921.09 s [opt-env-conf-test] + (firstArg : afters) ->
  18559. 921.09 s [opt-env-conf-test] + let befores = argsBefore as
  18560. 921.09 s [opt-env-conf-test] + consumed = Args (befores ++ [Dead]) afters
  18561. 921.09 s [opt-env-conf-test] + in case firstArg of
  18562. 921.09 s [opt-env-conf-test] + -- Skip any dead argument
  18563. 921.09 s [opt-env-conf-test] + Dead -> consumeArgument consumed
  18564. 921.09 s [opt-env-conf-test] + Live a -> case a of
  18565. 921.09 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  18566. 921.09 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  18567. 921.09 s [opt-env-conf-test] + -- A single dash is always an argument
  18568. 921.09 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  18569. 921.09 s [opt-env-conf-test] + -- Bare double-dash
  18570. 921.09 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  18571. 921.09 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  18572. 921.09 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  18573. 921.09 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  18574. 921.09 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  18575. 921.09 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  18576. 921.09 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18577. 921.09 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  18578. 921.10 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  18579. 921.10 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  18580. 921.10 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  18581. 921.10 s [opt-env-conf-test] + -- pop the args as they come.
  18582. 921.10 s [opt-env-conf-test] + _ ->
  18583. 921.10 s [opt-env-conf-test] + let go = \case
  18584. 921.10 s [opt-env-conf-test] + [] -> Nothing
  18585. 921.10 s [opt-env-conf-test] + (Dead : rest) -> go rest
  18586. 921.10 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  18587. 921.10 s [opt-env-conf-test] + in case go afters of
  18588. 921.10 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  18589. 921.10 s [opt-env-conf-test] + Just (firstLive, rest) ->
  18590. 921.10 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  18591. 921.10 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  18592. 921.10 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  18593. 921.10 s [opt-env-conf-test] + -- arguments.
  18594. 921.10 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  18595. 921.10 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  18596. 921.10 s [opt-env-conf-test] + )
  18597. 921.10 s [opt-env-conf-test] + ]
  18598. 921.10 s [opt-env-conf-test] + ArgDashed {} ->
  18599. 921.10 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  18600. 921.10 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  18601. 921.10 s [opt-env-conf-test] + -- * The dashed is an argument
  18602. 921.10 s [opt-env-conf-test] + -- TODO we need to continue looking too
  18603. 921.10 s [opt-env-conf-test] + let switchCase =
  18604. 921.10 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  18605. 921.10 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18606. 921.10 s [opt-env-conf-test] + ]
  18607. 921.10 s [opt-env-conf-test] + in case afters of
  18608. 921.10 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  18609. 921.10 s [opt-env-conf-test] + [] -> switchCase
  18610. 921.10 s [opt-env-conf-test] + (Dead : _) -> switchCase
  18611. 921.10 s [opt-env-conf-test] + (Live a' : rest) ->
  18612. 921.10 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  18613. 921.10 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  18614. 921.10 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  18615. 921.10 s [opt-env-conf-test] + -- * The dashed is an argument
  18616. 921.10 s [opt-env-conf-test] + ( case a' of
  18617. 921.10 s [opt-env-conf-test] + ArgDashed {} ->
  18618. 921.10 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  18619. 921.10 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18620. 921.10 s [opt-env-conf-test] + ]
  18621. 921.10 s [opt-env-conf-test] + _ ->
  18622. 921.10 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18623. 921.10 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18624. 921.10 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  18625. 921.10 s [opt-env-conf-test] + ]
  18626. 921.10 s [opt-env-conf-test] + )
  18627. 921.10 s [opt-env-conf-test]
  18628. 921.10 s [opt-env-conf-test] -- | Consume an option.
  18629. 921.10 s [opt-env-conf-test] --
  18630. 921.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  18631. 921.10 s [opt-env-conf-test] @@ -222,9 +222,9 @@
  18632. 921.10 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  18633. 921.10 s [opt-env-conf-test] Nothing ->
  18634. 921.10 s [opt-env-conf-test] -- TODO option value on the border
  18635. 921.10 s [opt-env-conf-test] - case go (argsAfter as) of
  18636. 921.10 s [opt-env-conf-test] - Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  18637. 921.10 s [opt-env-conf-test] - Nothing -> Nothing
  18638. 921.10 s [opt-env-conf-test] + case go (argsAfter as) of
  18639. 921.10 s [opt-env-conf-test] + Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  18640. 921.10 s [opt-env-conf-test] + Nothing -> Nothing
  18641. 921.10 s [opt-env-conf-test] where
  18642. 921.10 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  18643. 921.10 s [opt-env-conf-test] go = \case
  18644. 921.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
  18645. 921.10 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  18646. 921.10 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18647. 921.10 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18648. 921.10 s [opt-env-conf-test] ArgDashed isLong cs ->
  18649. 921.10 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18650. 921.10 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds True cs of
  18651. 921.10 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18652. 921.10 s [opt-env-conf-test] Nothing ->
  18653. 921.10 s [opt-env-conf-test] case rest of
  18654. 921.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
  18655. 921.10 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  18656. 921.10 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18657. 921.10 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18658. 921.10 s [opt-env-conf-test] ArgDashed isLong cs ->
  18659. 921.10 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18660. 921.10 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds False cs of
  18661. 921.10 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18662. 921.10 s [opt-env-conf-test] Nothing ->
  18663. 921.10 s [opt-env-conf-test] case rest of
  18664. 921.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
  18665. 921.10 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  18666. 921.10 s [opt-env-conf-test] Nothing ->
  18667. 921.10 s [opt-env-conf-test] case rest of
  18668. 923.00 s [opt-env-conf-test] (Live v : rest') ->
  18669. 923.00 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18670. 923.00 s [opt-env-conf-test] + case consumeDashedOption dasheds True cs of
  18671. 923.00 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18672. 923.00 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18673. 923.00 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18674. 923.00 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
  18675. 923.00 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  18676. 923.00 s [opt-env-conf-test] Nothing ->
  18677. 923.01 s [opt-env-conf-test] case rest of
  18678. 923.01 s [opt-env-conf-test] (Live v : rest') ->
  18679. 923.01 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18680. 923.01 s [opt-env-conf-test] + case consumeDashedOption dasheds False cs of
  18681. 923.01 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18682. 923.01 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18683. 923.01 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18684. 923.01 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:245:54-60
  18685. 923.01 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  18686. 923.01 s [opt-env-conf-test] Nothing ->
  18687. 923.01 s [opt-env-conf-test] case rest of
  18688. 923.01 s [opt-env-conf-test] (Live v : rest') ->
  18689. 923.01 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18690. 923.01 s [opt-env-conf-test] + case consumeDashedOption dasheds not (isLong) cs of
  18691. 923.01 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18692. 923.01 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18693. 923.01 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18694. 923.01 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:248:77-83
  18695. 923.01 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  18696. 923.01 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  18697. 923.01 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18698. 923.01 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18699. 923.01 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18700. 923.01 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed not (isLong) cs') : Dead : rest')
  18701. 923.01 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18702. 923.01 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18703. 923.01 s [opt-env-conf-test]
  18704. 923.01 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
  18705. 923.01 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  18706. 923.01 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  18707. 923.01 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18708. 923.01 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18709. 923.01 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18710. 923.01 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
  18711. 923.01 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18712. 923.01 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18713. 923.01 s [opt-env-conf-test]
  18714. 923.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  18715. 923.01 s [opt-env-conf-test] @@ -242,10 +242,10 @@
  18716. 923.01 s [opt-env-conf-test] Nothing ->
  18717. 923.01 s [opt-env-conf-test] case rest of
  18718. 923.01 s [opt-env-conf-test] (Live v : rest') ->
  18719. 923.01 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18720. 923.01 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18721. 923.01 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18722. 923.01 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18723. 923.01 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18724. 923.01 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18725. 923.01 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18726. 923.01 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18727. 923.01 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18728. 923.01 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18729. 923.01 s [opt-env-conf-test]
  18730. 923.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  18731. 923.01 s [opt-env-conf-test] @@ -242,10 +242,10 @@
  18732. 923.01 s [opt-env-conf-test] Nothing ->
  18733. 923.01 s [opt-env-conf-test] case rest of
  18734. 923.01 s [opt-env-conf-test] (Live v : rest') ->
  18735. 923.01 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18736. 923.01 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18737. 923.01 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18738. 923.01 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18739. 923.01 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18740. 923.01 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18741. 923.01 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18742. 923.01 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18743. 923.01 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18744. 923.01 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18745. 923.01 s [opt-env-conf-test]
  18746. 923.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
  18747. 923.01 s [opt-env-conf-test] @@ -240,13 +240,13 @@
  18748. 923.01 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  18749. 923.01 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18750. 923.01 s [opt-env-conf-test] Nothing ->
  18751. 923.01 s [opt-env-conf-test] - case rest of
  18752. 923.01 s [opt-env-conf-test] - (Live v : rest') ->
  18753. 923.01 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18754. 923.01 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18755. 923.01 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18756. 923.01 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18757. 923.01 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18758. 923.01 s [opt-env-conf-test] + case rest of
  18759. 923.01 s [opt-env-conf-test] + (Live v : rest') ->
  18760. 923.01 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18761. 923.01 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18762. 923.01 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18763. 923.01 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18764. 923.01 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18765. 923.01 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18766. 923.01 s [opt-env-conf-test]
  18767. 923.01 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18768. 923.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
  18769. 923.01 s [opt-env-conf-test] @@ -237,16 +237,16 @@
  18770. 923.01 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18771. 923.02 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18772. 923.02 s [opt-env-conf-test] ArgDashed isLong cs ->
  18773. 923.02 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18774. 923.02 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  18775. 923.02 s [opt-env-conf-test] - Nothing ->
  18776. 923.02 s [opt-env-conf-test] - case rest of
  18777. 923.02 s [opt-env-conf-test] - (Live v : rest') ->
  18778. 923.02 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18779. 923.02 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18780. 923.02 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18781. 923.02 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18782. 923.02 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18783. 923.02 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  18784. 923.02 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  18785. 923.02 s [opt-env-conf-test] + Nothing ->
  18786. 923.02 s [opt-env-conf-test] + case rest of
  18787. 923.02 s [opt-env-conf-test] + (Live v : rest') ->
  18788. 923.02 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18789. 923.02 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18790. 923.02 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18791. 923.02 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18792. 923.02 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18793. 923.02 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18794. 923.02 s [opt-env-conf-test]
  18795. 923.02 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18796. 923.02 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
  18797. 923.02 s [opt-env-conf-test] @@ -240,13 +240,13 @@
  18798. 923.02 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  18799. 923.02 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18800. 923.02 s [opt-env-conf-test] Nothing ->
  18801. 923.02 s [opt-env-conf-test] - case rest of
  18802. 923.02 s [opt-env-conf-test] - (Live v : rest') ->
  18803. 923.02 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18804. 923.02 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18805. 923.02 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18806. 923.02 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18807. 923.02 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18808. 923.02 s [opt-env-conf-test] + case rest of
  18809. 923.02 s [opt-env-conf-test] + (Live v : rest') ->
  18810. 923.02 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18811. 923.02 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18812. 923.02 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18813. 923.02 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18814. 925.39 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18815. 925.39 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18816. 925.39 s [opt-env-conf-test]
  18817. 925.39 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18818. 925.39 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
  18819. 925.39 s [opt-env-conf-test] @@ -237,16 +237,16 @@
  18820. 925.39 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18821. 925.39 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18822. 925.39 s [opt-env-conf-test] ArgDashed isLong cs ->
  18823. 925.39 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18824. 925.39 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  18825. 925.39 s [opt-env-conf-test] - Nothing ->
  18826. 925.39 s [opt-env-conf-test] - case rest of
  18827. 925.40 s [opt-env-conf-test] - (Live v : rest') ->
  18828. 925.40 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18829. 925.40 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18830. 925.40 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18831. 925.40 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18832. 925.40 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18833. 925.40 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  18834. 925.40 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  18835. 925.40 s [opt-env-conf-test] + Nothing ->
  18836. 925.40 s [opt-env-conf-test] + case rest of
  18837. 925.40 s [opt-env-conf-test] + (Live v : rest') ->
  18838. 925.40 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18839. 925.40 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18840. 925.40 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18841. 925.40 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18842. 925.40 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18843. 925.40 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18844. 925.40 s [opt-env-conf-test]
  18845. 925.40 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18846. 925.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  18847. 925.40 s [opt-env-conf-test] @@ -233,21 +233,21 @@
  18848. 925.40 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  18849. 925.40 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  18850. 925.40 s [opt-env-conf-test] (Live k : rest) ->
  18851. 925.40 s [opt-env-conf-test] - case k of
  18852. 925.40 s [opt-env-conf-test] - -- We can either consume it as-is, or as a shorthand option.
  18853. 925.40 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  18854. 925.40 s [opt-env-conf-test] - ArgDashed isLong cs ->
  18855. 925.40 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18856. 925.40 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  18857. 925.40 s [opt-env-conf-test] - Nothing ->
  18858. 925.40 s [opt-env-conf-test] - case rest of
  18859. 925.40 s [opt-env-conf-test] - (Live v : rest') ->
  18860. 925.40 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18861. 925.40 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18862. 925.40 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18863. 925.40 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18864. 925.40 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18865. 925.40 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18866. 925.40 s [opt-env-conf-test] + case k of
  18867. 925.40 s [opt-env-conf-test] + -- We can either consume it as-is, or as a shorthand option.
  18868. 925.40 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  18869. 925.40 s [opt-env-conf-test] + ArgDashed isLong cs ->
  18870. 925.40 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  18871. 925.40 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  18872. 925.40 s [opt-env-conf-test] + Nothing ->
  18873. 925.40 s [opt-env-conf-test] + case rest of
  18874. 925.40 s [opt-env-conf-test] + (Live v : rest') ->
  18875. 925.40 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18876. 925.40 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18877. 925.40 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18878. 925.40 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18879. 925.40 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18880. 925.40 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18881. 925.40 s [opt-env-conf-test]
  18882. 925.40 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18883. 925.40 s [opt-env-conf-test] [Dashed] ->
  18884. 925.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  18885. 925.40 s [opt-env-conf-test] @@ -233,21 +233,21 @@
  18886. 925.40 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  18887. 925.40 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  18888. 925.40 s [opt-env-conf-test] (Live k : rest) ->
  18889. 925.40 s [opt-env-conf-test] - case k of
  18890. 925.40 s [opt-env-conf-test] - -- We can either consume it as-is, or as a shorthand option.
  18891. 925.40 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  18892. 925.40 s [opt-env-conf-test] - ArgDashed isLong cs ->
  18893. 925.40 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18894. 925.40 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  18895. 925.41 s [opt-env-conf-test] - Nothing ->
  18896. 925.41 s [opt-env-conf-test] - case rest of
  18897. 925.41 s [opt-env-conf-test] - (Live v : rest') ->
  18898. 925.41 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18899. 925.41 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18900. 925.41 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18901. 925.41 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18902. 925.41 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18903. 925.41 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18904. 925.41 s [opt-env-conf-test] + case k of
  18905. 925.41 s [opt-env-conf-test] + -- We can either consume it as-is, or as a shorthand option.
  18906. 925.41 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  18907. 925.41 s [opt-env-conf-test] + ArgDashed isLong cs ->
  18908. 925.41 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  18909. 925.41 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  18910. 925.41 s [opt-env-conf-test] + Nothing ->
  18911. 925.41 s [opt-env-conf-test] + case rest of
  18912. 925.41 s [opt-env-conf-test] + (Live v : rest') ->
  18913. 925.41 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18914. 925.41 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18915. 925.41 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18916. 925.41 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18917. 925.41 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18918. 925.41 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18919. 925.41 s [opt-env-conf-test]
  18920. 925.41 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18921. 925.41 s [opt-env-conf-test] [Dashed] ->
  18922. 925.41 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:79:26-30
  18923. 925.41 s [opt-env-conf-test] @@ -76,7 +76,7 @@
  18924. 925.41 s [opt-env-conf-test] parseArg = \case
  18925. 925.41 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  18926. 925.41 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  18927. 925.41 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  18928. 925.41 s [opt-env-conf-test] + Just ne -> ArgDashed False ne
  18929. 925.41 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  18930. 925.41 s [opt-env-conf-test] Nothing -> ArgBareDash
  18931. 925.41 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  18932. 925.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  18933. 925.41 s [opt-env-conf-test] @@ -222,9 +222,9 @@
  18934. 925.41 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  18935. 925.41 s [opt-env-conf-test] Nothing ->
  18936. 925.41 s [opt-env-conf-test] -- TODO option value on the border
  18937. 925.41 s [opt-env-conf-test] - case go (argsAfter as) of
  18938. 925.41 s [opt-env-conf-test] - Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  18939. 925.41 s [opt-env-conf-test] - Nothing -> Nothing
  18940. 925.41 s [opt-env-conf-test] + case go (argsAfter as) of
  18941. 925.41 s [opt-env-conf-test] + Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  18942. 925.41 s [opt-env-conf-test] + Nothing -> Nothing
  18943. 925.41 s [opt-env-conf-test] where
  18944. 925.41 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  18945. 925.41 s [opt-env-conf-test] go = \case
  18946. 925.41 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
  18947. 925.41 s [opt-env-conf-test] @@ -202,7 +202,7 @@
  18948. 925.41 s [opt-env-conf-test] ]
  18949. 925.41 s [opt-env-conf-test] _ ->
  18950. 925.41 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18951. 925.41 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18952. 925.41 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ []) rest),
  18953. 925.41 s [opt-env-conf-test] (Just (renderArg a), consumed)
  18954. 925.41 s [opt-env-conf-test] ]
  18955. 925.41 s [opt-env-conf-test] )
  18956. 925.41 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:89:22-45
  18957. 925.41 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  18958. 925.41 s [opt-env-conf-test] renderArg = \case
  18959. 925.41 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  18960. 925.41 s [opt-env-conf-test] ArgBareDash -> "-"
  18961. 925.41 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  18962. 925.41 s [opt-env-conf-test] + ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  18963. 925.41 s [opt-env-conf-test] ArgPlain a -> a
  18964. 925.41 s [opt-env-conf-test]
  18965. 925.41 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  18966. 925.41 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
  18967. 925.41 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  18968. 925.41 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  18969. 925.41 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18970. 925.41 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18971. 925.41 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18972. 925.41 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed True cs') : Dead : rest')
  18973. 925.41 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18974. 925.41 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18975. 925.41 s [opt-env-conf-test]
  18976. 925.41 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:258:3-69
  18977. 925.41 s [opt-env-conf-test] @@ -255,9 +255,9 @@
  18978. 925.41 s [opt-env-conf-test] NonEmpty Char ->
  18979. 925.41 s [opt-env-conf-test] Maybe String
  18980. 925.41 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  18981. 925.41 s [opt-env-conf-test] - if isLong
  18982. 925.41 s [opt-env-conf-test] - then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  18983. 925.41 s [opt-env-conf-test] - else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  18984. 925.41 s [opt-env-conf-test] + if isLong
  18985. 925.41 s [opt-env-conf-test] + then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  18986. 925.41 s [opt-env-conf-test] + else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  18987. 925.41 s [opt-env-conf-test]
  18988. 925.41 s [opt-env-conf-test] consumeLongDashedShorthandOption ::
  18989. 928.54 s [opt-env-conf-test] [NonEmpty Char] ->
  18990. 928.54 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:240:55-61
  18991. 928.61 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  18992. 928.61 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18993. 928.61 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18994. 928.61 s [opt-env-conf-test] ArgDashed isLong cs ->
  18995. 928.61 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18996. 928.61 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds not (isLong) cs of
  18997. 928.61 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18998. 928.61 s [opt-env-conf-test] Nothing ->
  18999. 928.61 s [opt-env-conf-test] case rest of
  19000. 928.61 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  19001. 928.61 s [opt-env-conf-test] @@ -242,10 +242,10 @@
  19002. 928.61 s [opt-env-conf-test] Nothing ->
  19003. 928.61 s [opt-env-conf-test] case rest of
  19004. 928.61 s [opt-env-conf-test] (Live v : rest') ->
  19005. 928.61 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  19006. 928.61 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  19007. 928.61 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  19008. 928.62 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  19009. 928.62 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  19010. 928.62 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  19011. 928.62 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  19012. 928.62 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  19013. 928.62 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  19014. 928.62 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  19015. 928.62 s [opt-env-conf-test]
  19016. 928.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  19017. 928.62 s [opt-env-conf-test] @@ -233,21 +233,21 @@
  19018. 928.62 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  19019. 928.62 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  19020. 928.62 s [opt-env-conf-test] (Live k : rest) ->
  19021. 928.62 s [opt-env-conf-test] - case k of
  19022. 928.62 s [opt-env-conf-test] - -- We can either consume it as-is, or as a shorthand option.
  19023. 928.62 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  19024. 928.62 s [opt-env-conf-test] - ArgDashed isLong cs ->
  19025. 928.62 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  19026. 928.62 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  19027. 928.62 s [opt-env-conf-test] - Nothing ->
  19028. 928.62 s [opt-env-conf-test] - case rest of
  19029. 928.62 s [opt-env-conf-test] - (Live v : rest') ->
  19030. 928.62 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  19031. 928.62 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  19032. 928.62 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  19033. 928.62 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  19034. 928.62 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  19035. 928.62 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  19036. 928.62 s [opt-env-conf-test] + case k of
  19037. 928.62 s [opt-env-conf-test] + -- We can either consume it as-is, or as a shorthand option.
  19038. 928.62 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  19039. 928.62 s [opt-env-conf-test] + ArgDashed isLong cs ->
  19040. 928.62 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  19041. 928.62 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  19042. 928.62 s [opt-env-conf-test] + Nothing ->
  19043. 928.62 s [opt-env-conf-test] + case rest of
  19044. 928.62 s [opt-env-conf-test] + (Live v : rest') ->
  19045. 928.62 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  19046. 928.62 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  19047. 928.62 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  19048. 928.62 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  19049. 928.62 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  19050. 928.62 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  19051. 928.62 s [opt-env-conf-test]
  19052. 928.62 s [opt-env-conf-test] consumeDashedShorthandOption ::
  19053. 928.62 s [opt-env-conf-test] [Dashed] ->
  19054. 928.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
  19055. 928.62 s [opt-env-conf-test] @@ -74,9 +74,9 @@
  19056. 928.62 s [opt-env-conf-test]
  19057. 928.62 s [opt-env-conf-test] parseArg :: String -> Arg
  19058. 928.62 s [opt-env-conf-test] parseArg = \case
  19059. 928.62 s [opt-env-conf-test] - '-' : '-' : rest -> case NE.nonEmpty rest of
  19060. 928.62 s [opt-env-conf-test] - Nothing -> ArgBareDoubleDash
  19061. 928.62 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  19062. 928.62 s [opt-env-conf-test] + '-' : '-' : rest -> case NE.nonEmpty rest of
  19063. 928.62 s [opt-env-conf-test] + Nothing -> ArgBareDoubleDash
  19064. 928.62 s [opt-env-conf-test] + Just ne -> ArgDashed True ne
  19065. 928.62 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  19066. 928.62 s [opt-env-conf-test] Nothing -> ArgBareDash
  19067. 928.62 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  19068. 928.62 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:82:26-31
  19069. 928.62 s [opt-env-conf-test] @@ -79,7 +79,7 @@
  19070. 928.62 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  19071. 928.62 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  19072. 928.62 s [opt-env-conf-test] Nothing -> ArgBareDash
  19073. 928.62 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  19074. 928.62 s [opt-env-conf-test] + Just ne -> ArgDashed True ne
  19075. 928.62 s [opt-env-conf-test] s -> ArgPlain s
  19076. 928.62 s [opt-env-conf-test]
  19077. 928.62 s [opt-env-conf-test] renderArg :: Arg -> String
  19078. 928.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  19079. 928.62 s [opt-env-conf-test] @@ -396,10 +396,10 @@
  19080. 928.62 s [opt-env-conf-test] instance Validity Dashed
  19081. 928.62 s [opt-env-conf-test]
  19082. 928.62 s [opt-env-conf-test] instance IsString Dashed where
  19083. 928.63 s [opt-env-conf-test] - fromString s = case fromString s of
  19084. 928.63 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  19085. 928.63 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  19086. 928.63 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  19087. 928.63 s [opt-env-conf-test] + fromString s = case fromString s of
  19088. 928.63 s [opt-env-conf-test] + ArgDashed True cs -> DashedLong cs
  19089. 928.63 s [opt-env-conf-test] + ArgDashed False (c :| []) -> DashedShort c
  19090. 928.63 s [opt-env-conf-test] + _ -> error "Invalid dashed"
  19091. 928.63 s [opt-env-conf-test]
  19092. 928.63 s [opt-env-conf-test] renderDashed :: Dashed -> String
  19093. 928.63 s [opt-env-conf-test] renderDashed = \case
  19094. 928.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  19095. 928.63 s [opt-env-conf-test] @@ -396,10 +396,10 @@
  19096. 928.63 s [opt-env-conf-test] instance Validity Dashed
  19097. 928.63 s [opt-env-conf-test]
  19098. 928.63 s [opt-env-conf-test] instance IsString Dashed where
  19099. 928.63 s [opt-env-conf-test] - fromString s = case fromString s of
  19100. 928.63 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  19101. 928.63 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  19102. 928.63 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  19103. 928.63 s [opt-env-conf-test] + fromString s = case fromString s of
  19104. 928.63 s [opt-env-conf-test] + ArgDashed True cs -> DashedLong cs
  19105. 928.63 s [opt-env-conf-test] + ArgDashed False (c :| []) -> DashedShort c
  19106. 928.63 s [opt-env-conf-test] + _ -> error "Invalid dashed"
  19107. 928.63 s [opt-env-conf-test]
  19108. 928.63 s [opt-env-conf-test] renderDashed :: Dashed -> String
  19109. 928.63 s [opt-env-conf-test] renderDashed = \case
  19110. 928.63 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
  19111. 928.63 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  19112. 928.63 s [opt-env-conf-test] mconcat
  19113. 928.63 s [opt-env-conf-test] [ genericValidate arg,
  19114. 928.63 s [opt-env-conf-test] case arg of
  19115. 928.63 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19116. 928.63 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
  19117. 928.63 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  19118. 928.63 s [opt-env-conf-test] ('-' : _) -> False
  19119. 928.63 s [opt-env-conf-test] _ -> True
  19120. 928.63 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
  19121. 928.63 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  19122. 928.63 s [opt-env-conf-test] mconcat
  19123. 928.63 s [opt-env-conf-test] [ genericValidate arg,
  19124. 928.63 s [opt-env-conf-test] case arg of
  19125. 928.63 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19126. 928.63 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ False
  19127. 928.63 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  19128. 928.63 s [opt-env-conf-test] ('-' : _) -> False
  19129. 928.63 s [opt-env-conf-test] _ -> True
  19130. 928.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  19131. 928.63 s [opt-env-conf-test] @@ -396,10 +396,10 @@
  19132. 928.63 s [opt-env-conf-test] instance Validity Dashed
  19133. 928.63 s [opt-env-conf-test]
  19134. 928.63 s [opt-env-conf-test] instance IsString Dashed where
  19135. 928.63 s [opt-env-conf-test] - fromString s = case fromString s of
  19136. 928.63 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  19137. 928.63 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  19138. 928.63 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  19139. 928.63 s [opt-env-conf-test] + fromString s = case fromString s of
  19140. 928.63 s [opt-env-conf-test] + ArgDashed True cs -> DashedLong cs
  19141. 928.63 s [opt-env-conf-test] + ArgDashed False (c :| []) -> DashedShort c
  19142. 928.63 s [opt-env-conf-test] + _ -> error "Invalid dashed"
  19143. 928.63 s [opt-env-conf-test]
  19144. 928.63 s [opt-env-conf-test] renderDashed :: Dashed -> String
  19145. 928.63 s [opt-env-conf-test] renderDashed = \case
  19146. 928.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
  19147. 928.63 s [opt-env-conf-test] @@ -77,9 +77,9 @@
  19148. 928.63 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  19149. 928.63 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  19150. 928.63 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  19151. 928.63 s [opt-env-conf-test] - '-' : rest -> case NE.nonEmpty rest of
  19152. 928.63 s [opt-env-conf-test] - Nothing -> ArgBareDash
  19153. 928.63 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  19154. 928.63 s [opt-env-conf-test] + '-' : rest -> case NE.nonEmpty rest of
  19155. 928.63 s [opt-env-conf-test] + Nothing -> ArgBareDash
  19156. 928.63 s [opt-env-conf-test] + Just ne -> ArgDashed False ne
  19157. 928.63 s [opt-env-conf-test] s -> ArgPlain s
  19158. 928.63 s [opt-env-conf-test]
  19159. 928.63 s [opt-env-conf-test] renderArg :: Arg -> String
  19160. 928.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
  19161. 928.63 s [opt-env-conf-test] @@ -77,9 +77,9 @@
  19162. 928.63 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  19163. 928.63 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  19164. 928.63 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  19165. 928.63 s [opt-env-conf-test] - '-' : rest -> case NE.nonEmpty rest of
  19166. 928.63 s [opt-env-conf-test] - Nothing -> ArgBareDash
  19167. 928.63 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  19168. 928.63 s [opt-env-conf-test] + '-' : rest -> case NE.nonEmpty rest of
  19169. 928.63 s [opt-env-conf-test] + Nothing -> ArgBareDash
  19170. 928.63 s [opt-env-conf-test] + Just ne -> ArgDashed False ne
  19171. 928.63 s [opt-env-conf-test] s -> ArgPlain s
  19172. 928.63 s [opt-env-conf-test]
  19173. 928.63 s [opt-env-conf-test] renderArg :: Arg -> String
  19174. 928.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
  19175. 928.63 s [opt-env-conf-test] @@ -74,9 +74,9 @@
  19176. 928.63 s [opt-env-conf-test]
  19177. 928.63 s [opt-env-conf-test] parseArg :: String -> Arg
  19178. 928.63 s [opt-env-conf-test] parseArg = \case
  19179. 928.63 s [opt-env-conf-test] - '-' : '-' : rest -> case NE.nonEmpty rest of
  19180. 928.63 s [opt-env-conf-test] - Nothing -> ArgBareDoubleDash
  19181. 928.63 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  19182. 928.63 s [opt-env-conf-test] + '-' : '-' : rest -> case NE.nonEmpty rest of
  19183. 928.63 s [opt-env-conf-test] + Nothing -> ArgBareDoubleDash
  19184. 928.63 s [opt-env-conf-test] + Just ne -> ArgDashed True ne
  19185. 928.64 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  19186. 928.64 s [opt-env-conf-test] Nothing -> ArgBareDash
  19187. 928.64 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  19188. 928.64 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
  19189. 928.64 s [opt-env-conf-test] @@ -63,9 +63,7 @@
  19190. 928.64 s [opt-env-conf-test] [ genericValidate arg,
  19191. 928.64 s [opt-env-conf-test] case arg of
  19192. 928.64 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19193. 931.51 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19194. 931.51 s [opt-env-conf-test] - ('-' : _) -> False
  19195. 931.51 s [opt-env-conf-test] - _ -> True
  19196. 931.51 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ True
  19197. 931.51 s [opt-env-conf-test] _ -> valid
  19198. 931.51 s [opt-env-conf-test] ]
  19199. 931.51 s [opt-env-conf-test]
  19200. 931.51 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:66:64-22
  19201. 931.51 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  19202. 931.51 s [opt-env-conf-test] [ genericValidate arg,
  19203. 931.51 s [opt-env-conf-test] case arg of
  19204. 931.51 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19205. 931.51 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19206. 931.51 s [opt-env-conf-test] - ('-' : _) -> False
  19207. 931.51 s [opt-env-conf-test] - _ -> True
  19208. 931.51 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ not (case s of
  19209. 931.51 s [opt-env-conf-test] + ('-' : _) -> False
  19210. 931.51 s [opt-env-conf-test] + _ -> True)
  19211. 931.51 s [opt-env-conf-test] _ -> valid
  19212. 931.51 s [opt-env-conf-test] ]
  19213. 931.51 s [opt-env-conf-test]
  19214. 931.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  19215. 931.51 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  19216. 931.51 s [opt-env-conf-test] [ genericValidate arg,
  19217. 931.51 s [opt-env-conf-test] case arg of
  19218. 931.51 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19219. 931.51 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19220. 931.51 s [opt-env-conf-test] - ('-' : _) -> False
  19221. 931.51 s [opt-env-conf-test] - _ -> True
  19222. 931.51 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19223. 931.51 s [opt-env-conf-test] + ('-' : _) -> False
  19224. 931.51 s [opt-env-conf-test] + _ -> True
  19225. 931.51 s [opt-env-conf-test] _ -> valid
  19226. 931.51 s [opt-env-conf-test] ]
  19227. 931.51 s [opt-env-conf-test]
  19228. 931.51 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
  19229. 931.51 s [opt-env-conf-test] @@ -63,9 +63,7 @@
  19230. 931.51 s [opt-env-conf-test] [ genericValidate arg,
  19231. 931.51 s [opt-env-conf-test] case arg of
  19232. 931.52 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19233. 931.52 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19234. 931.52 s [opt-env-conf-test] - ('-' : _) -> False
  19235. 931.52 s [opt-env-conf-test] - _ -> True
  19236. 931.52 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ False
  19237. 931.52 s [opt-env-conf-test] _ -> valid
  19238. 931.52 s [opt-env-conf-test] ]
  19239. 931.52 s [opt-env-conf-test]
  19240. 931.52 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:68:18-22
  19241. 931.52 s [opt-env-conf-test] @@ -65,7 +65,7 @@
  19242. 931.52 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19243. 931.52 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  19244. 931.52 s [opt-env-conf-test] ('-' : _) -> False
  19245. 931.52 s [opt-env-conf-test] - _ -> True
  19246. 931.52 s [opt-env-conf-test] + _ -> False
  19247. 931.52 s [opt-env-conf-test] _ -> valid
  19248. 931.52 s [opt-env-conf-test] ]
  19249. 931.52 s [opt-env-conf-test]
  19250. 931.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19251. 931.52 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19252. 931.52 s [opt-env-conf-test] validate arg =
  19253. 931.52 s [opt-env-conf-test] mconcat
  19254. 931.52 s [opt-env-conf-test] [ genericValidate arg,
  19255. 931.52 s [opt-env-conf-test] - case arg of
  19256. 931.52 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19257. 931.52 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19258. 931.52 s [opt-env-conf-test] - ('-' : _) -> False
  19259. 931.52 s [opt-env-conf-test] - _ -> True
  19260. 931.52 s [opt-env-conf-test] - _ -> valid
  19261. 931.52 s [opt-env-conf-test] + case arg of
  19262. 931.52 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19263. 931.52 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19264. 931.52 s [opt-env-conf-test] + ('-' : _) -> False
  19265. 931.52 s [opt-env-conf-test] + _ -> True
  19266. 931.52 s [opt-env-conf-test] + _ -> valid
  19267. 931.52 s [opt-env-conf-test] ]
  19268. 931.52 s [opt-env-conf-test]
  19269. 931.52 s [opt-env-conf-test] instance IsString Arg where
  19270. 931.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19271. 931.52 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19272. 931.52 s [opt-env-conf-test] validate arg =
  19273. 931.52 s [opt-env-conf-test] mconcat
  19274. 931.52 s [opt-env-conf-test] [ genericValidate arg,
  19275. 931.52 s [opt-env-conf-test] - case arg of
  19276. 931.52 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19277. 931.52 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19278. 931.52 s [opt-env-conf-test] - ('-' : _) -> False
  19279. 931.52 s [opt-env-conf-test] - _ -> True
  19280. 931.52 s [opt-env-conf-test] - _ -> valid
  19281. 931.52 s [opt-env-conf-test] + case arg of
  19282. 931.52 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19283. 931.52 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19284. 931.52 s [opt-env-conf-test] + ('-' : _) -> False
  19285. 931.52 s [opt-env-conf-test] + _ -> True
  19286. 931.52 s [opt-env-conf-test] + _ -> valid
  19287. 931.52 s [opt-env-conf-test] ]
  19288. 931.52 s [opt-env-conf-test]
  19289. 931.52 s [opt-env-conf-test] instance IsString Arg where
  19290. 931.52 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:67:26-31
  19291. 931.52 s [opt-env-conf-test] @@ -64,7 +64,7 @@
  19292. 931.52 s [opt-env-conf-test] case arg of
  19293. 931.52 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19294. 931.52 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  19295. 931.52 s [opt-env-conf-test] - ('-' : _) -> False
  19296. 931.52 s [opt-env-conf-test] + ('-' : _) -> True
  19297. 931.52 s [opt-env-conf-test] _ -> True
  19298. 931.52 s [opt-env-conf-test] _ -> valid
  19299. 931.52 s [opt-env-conf-test] ]
  19300. 931.52 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:65:103-111
  19301. 931.52 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  19302. 931.52 s [opt-env-conf-test] mconcat
  19303. 931.52 s [opt-env-conf-test] [ genericValidate arg,
  19304. 931.52 s [opt-env-conf-test] case arg of
  19305. 931.52 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19306. 931.52 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ not (c /= '-')
  19307. 931.52 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  19308. 931.52 s [opt-env-conf-test] ('-' : _) -> False
  19309. 931.53 s [opt-env-conf-test] _ -> True
  19310. 931.53 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19311. 931.53 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19312. 931.53 s [opt-env-conf-test] validate arg =
  19313. 931.53 s [opt-env-conf-test] mconcat
  19314. 931.53 s [opt-env-conf-test] [ genericValidate arg,
  19315. 931.53 s [opt-env-conf-test] - case arg of
  19316. 931.53 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19317. 931.53 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19318. 931.53 s [opt-env-conf-test] - ('-' : _) -> False
  19319. 931.53 s [opt-env-conf-test] - _ -> True
  19320. 931.53 s [opt-env-conf-test] - _ -> valid
  19321. 931.53 s [opt-env-conf-test] + case arg of
  19322. 931.53 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19323. 931.53 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19324. 931.53 s [opt-env-conf-test] + ('-' : _) -> False
  19325. 931.53 s [opt-env-conf-test] + _ -> True
  19326. 931.53 s [opt-env-conf-test] + _ -> valid
  19327. 931.53 s [opt-env-conf-test] ]
  19328. 931.53 s [opt-env-conf-test]
  19329. 931.53 s [opt-env-conf-test] instance IsString Arg where
  19330. 931.53 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
  19331. 931.53 s [opt-env-conf-test] @@ -60,14 +60,14 @@
  19332. 931.53 s [opt-env-conf-test] instance Validity Arg where
  19333. 931.53 s [opt-env-conf-test] validate arg =
  19334. 931.53 s [opt-env-conf-test] mconcat
  19335. 931.53 s [opt-env-conf-test] - [ genericValidate arg,
  19336. 931.53 s [opt-env-conf-test] - case arg of
  19337. 931.53 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19338. 931.53 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19339. 931.53 s [opt-env-conf-test] - ('-' : _) -> False
  19340. 931.53 s [opt-env-conf-test] - _ -> True
  19341. 931.53 s [opt-env-conf-test] - _ -> valid
  19342. 931.53 s [opt-env-conf-test] - ]
  19343. 931.53 s [opt-env-conf-test] + [ genericValidate arg,
  19344. 931.53 s [opt-env-conf-test] + case arg of
  19345. 931.53 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19346. 931.53 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19347. 931.53 s [opt-env-conf-test] + ('-' : _) -> False
  19348. 931.53 s [opt-env-conf-test] + _ -> True
  19349. 931.53 s [opt-env-conf-test] + _ -> valid
  19350. 931.53 s [opt-env-conf-test] + ]
  19351. 931.53 s [opt-env-conf-test]
  19352. 931.53 s [opt-env-conf-test] instance IsString Arg where
  19353. 931.53 s [opt-env-conf-test] fromString = parseArg
  19354. 931.53 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  19355. 931.53 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  19356. 931.53 s [opt-env-conf-test] [ genericValidate arg,
  19357. 931.53 s [opt-env-conf-test] case arg of
  19358. 931.53 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19359. 931.53 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19360. 931.53 s [opt-env-conf-test] - ('-' : _) -> False
  19361. 931.53 s [opt-env-conf-test] - _ -> True
  19362. 931.53 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19363. 931.53 s [opt-env-conf-test] + ('-' : _) -> False
  19364. 931.53 s [opt-env-conf-test] + _ -> True
  19365. 931.53 s [opt-env-conf-test] _ -> valid
  19366. 931.53 s [opt-env-conf-test] ]
  19367. 931.53 s [opt-env-conf-test]
  19368. 931.53 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
  19369. 931.53 s [opt-env-conf-test] @@ -60,14 +60,7 @@
  19370. 931.53 s [opt-env-conf-test] instance Validity Arg where
  19371. 931.53 s [opt-env-conf-test] validate arg =
  19372. 931.53 s [opt-env-conf-test] mconcat
  19373. 931.53 s [opt-env-conf-test] - [ genericValidate arg,
  19374. 931.53 s [opt-env-conf-test] - case arg of
  19375. 931.53 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19376. 931.53 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19377. 931.53 s [opt-env-conf-test] - ('-' : _) -> False
  19378. 931.53 s [opt-env-conf-test] - _ -> True
  19379. 931.53 s [opt-env-conf-test] - _ -> valid
  19380. 931.53 s [opt-env-conf-test] - ]
  19381. 931.53 s [opt-env-conf-test] + []
  19382. 931.53 s [opt-env-conf-test]
  19383. 931.53 s [opt-env-conf-test] instance IsString Arg where
  19384. 931.53 s [opt-env-conf-test] fromString = parseArg
  19385. 931.53 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:295:7-21
  19386. 931.53 s [opt-env-conf-test] @@ -292,9 +292,9 @@
  19387. 931.53 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  19388. 931.53 s [opt-env-conf-test] if isLong
  19389. 931.53 s [opt-env-conf-test] then
  19390. 931.53 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  19391. 931.53 s [opt-env-conf-test] - then Just Nothing
  19392. 931.53 s [opt-env-conf-test] - else Nothing
  19393. 931.53 s [opt-env-conf-test] + if DashedLong cs `elem` dasheds
  19394. 931.53 s [opt-env-conf-test] + then Just Nothing
  19395. 931.53 s [opt-env-conf-test] + else Nothing
  19396. 931.53 s [opt-env-conf-test] else
  19397. 931.53 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  19398. 931.53 s [opt-env-conf-test] in if DashedShort c `elem` dasheds
  19399. 931.53 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:258:6-12
  19400. 931.53 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  19401. 931.53 s [opt-env-conf-test] NonEmpty Char ->
  19402. 931.53 s [opt-env-conf-test] Maybe String
  19403. 931.53 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  19404. 931.53 s [opt-env-conf-test] - if isLong
  19405. 931.53 s [opt-env-conf-test] + if not (isLong)
  19406. 931.53 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  19407. 931.53 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  19408. 931.53 s [opt-env-conf-test]
  19409. 931.53 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
  19410. 931.53 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  19411. 931.53 s [opt-env-conf-test] NonEmpty Char ->
  19412. 931.53 s [opt-env-conf-test] Maybe String
  19413. 931.53 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  19414. 931.53 s [opt-env-conf-test] - if isLong
  19415. 931.53 s [opt-env-conf-test] + if False
  19416. 931.53 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  19417. 936.09 s [opt-env-conf-test] Killed: 1163
  19418. 936.09 s [opt-env-conf-test] Survived: 271
  19419. 936.09 s [opt-env-conf-test] Uncovered: 353
  19420. 936.09 s [opt-env-conf-test]
  19421. 936.15 s [opt-env-conf-test] Surviving mutations:
  19422. 936.15 s [opt-env-conf-test]
  19423. 936.15 s [opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
  19424. 936.15 s [opt-env-conf-test] @@ -60,14 +60,14 @@
  19425. 936.15 s [opt-env-conf-test] instance Validity Arg where
  19426. 936.15 s [opt-env-conf-test] validate arg =
  19427. 936.15 s [opt-env-conf-test] mconcat
  19428. 936.15 s [opt-env-conf-test] - [ genericValidate arg,
  19429. 936.15 s [opt-env-conf-test] - case arg of
  19430. 936.15 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19431. 936.15 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19432. 936.15 s [opt-env-conf-test] - ('-' : _) -> False
  19433. 936.15 s [opt-env-conf-test] - _ -> True
  19434. 936.15 s [opt-env-conf-test] - _ -> valid
  19435. 936.15 s [opt-env-conf-test] - ]
  19436. 936.15 s [opt-env-conf-test] + [ genericValidate arg,
  19437. 936.15 s [opt-env-conf-test] + case arg of
  19438. 936.15 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19439. 936.15 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19440. 936.15 s [opt-env-conf-test] + ('-' : _) -> False
  19441. 936.15 s [opt-env-conf-test] + _ -> True
  19442. 936.15 s [opt-env-conf-test] + _ -> valid
  19443. 936.15 s [opt-env-conf-test] + ]
  19444. 936.15 s [opt-env-conf-test]
  19445. 936.15 s [opt-env-conf-test] instance IsString Arg where
  19446. 936.15 s [opt-env-conf-test] fromString = parseArg
  19447. 936.15 s [opt-env-conf-test]
  19448. 936.15 s [opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
  19449. 936.15 s [opt-env-conf-test] @@ -60,14 +60,7 @@
  19450. 936.15 s [opt-env-conf-test] instance Validity Arg where
  19451. 936.15 s [opt-env-conf-test] validate arg =
  19452. 936.15 s [opt-env-conf-test] mconcat
  19453. 936.15 s [opt-env-conf-test] - [ genericValidate arg,
  19454. 936.15 s [opt-env-conf-test] - case arg of
  19455. 936.15 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19456. 936.15 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19457. 936.15 s [opt-env-conf-test] - ('-' : _) -> False
  19458. 936.15 s [opt-env-conf-test] - _ -> True
  19459. 936.15 s [opt-env-conf-test] - _ -> valid
  19460. 936.15 s [opt-env-conf-test] - ]
  19461. 936.15 s [opt-env-conf-test] + []
  19462. 936.15 s [opt-env-conf-test]
  19463. 936.15 s [opt-env-conf-test] instance IsString Arg where
  19464. 936.15 s [opt-env-conf-test] fromString = parseArg
  19465. 936.15 s [opt-env-conf-test]
  19466. 936.15 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19467. 936.15 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19468. 936.15 s [opt-env-conf-test] validate arg =
  19469. 936.15 s [opt-env-conf-test] mconcat
  19470. 936.15 s [opt-env-conf-test] [ genericValidate arg,
  19471. 936.15 s [opt-env-conf-test] - case arg of
  19472. 936.15 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19473. 936.15 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19474. 936.15 s [opt-env-conf-test] - ('-' : _) -> False
  19475. 936.15 s [opt-env-conf-test] - _ -> True
  19476. 936.15 s [opt-env-conf-test] - _ -> valid
  19477. 936.15 s [opt-env-conf-test] + case arg of
  19478. 936.15 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19479. 936.15 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19480. 936.15 s [opt-env-conf-test] + ('-' : _) -> False
  19481. 936.15 s [opt-env-conf-test] + _ -> True
  19482. 936.15 s [opt-env-conf-test] + _ -> valid
  19483. 936.15 s [opt-env-conf-test] ]
  19484. 936.15 s [opt-env-conf-test]
  19485. 936.15 s [opt-env-conf-test] instance IsString Arg where
  19486. 936.15 s [opt-env-conf-test]
  19487. 936.15 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19488. 936.15 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19489. 936.15 s [opt-env-conf-test] validate arg =
  19490. 936.15 s [opt-env-conf-test] mconcat
  19491. 936.15 s [opt-env-conf-test] [ genericValidate arg,
  19492. 936.15 s [opt-env-conf-test] - case arg of
  19493. 936.15 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19494. 936.15 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19495. 936.15 s [opt-env-conf-test] - ('-' : _) -> False
  19496. 936.15 s [opt-env-conf-test] - _ -> True
  19497. 936.15 s [opt-env-conf-test] - _ -> valid
  19498. 936.15 s [opt-env-conf-test] + case arg of
  19499. 936.15 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19500. 936.15 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19501. 936.15 s [opt-env-conf-test] + ('-' : _) -> False
  19502. 936.15 s [opt-env-conf-test] + _ -> True
  19503. 936.15 s [opt-env-conf-test] + _ -> valid
  19504. 936.15 s [opt-env-conf-test] ]
  19505. 936.15 s [opt-env-conf-test]
  19506. 936.15 s [opt-env-conf-test] instance IsString Arg where
  19507. 936.15 s [opt-env-conf-test]
  19508. 936.15 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  19509. 936.15 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  19510. 936.15 s [opt-env-conf-test] [ genericValidate arg,
  19511. 936.15 s [opt-env-conf-test] case arg of
  19512. 936.16 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19513. 936.16 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19514. 936.16 s [opt-env-conf-test] - ('-' : _) -> False
  19515. 936.16 s [opt-env-conf-test] - _ -> True
  19516. 936.16 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19517. 936.16 s [opt-env-conf-test] + ('-' : _) -> False
  19518. 936.16 s [opt-env-conf-test] + _ -> True
  19519. 936.16 s [opt-env-conf-test] _ -> valid
  19520. 936.16 s [opt-env-conf-test] ]
  19521. 936.16 s [opt-env-conf-test]
  19522. 936.16 s [opt-env-conf-test]
  19523. 936.16 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:66:64-22
  19524. 936.16 s [opt-env-conf-test] @@ -63,9 +63,7 @@
  19525. 936.16 s [opt-env-conf-test] [ genericValidate arg,
  19526. 936.16 s [opt-env-conf-test] case arg of
  19527. 936.16 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19528. 936.16 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19529. 936.16 s [opt-env-conf-test] - ('-' : _) -> False
  19530. 936.16 s [opt-env-conf-test] - _ -> True
  19531. 936.16 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ True
  19532. 936.16 s [opt-env-conf-test] _ -> valid
  19533. 936.16 s [opt-env-conf-test] ]
  19534. 936.16 s [opt-env-conf-test]
  19535. 936.16 s [opt-env-conf-test]
  19536. 936.16 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:65:103-111
  19537. 936.16 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  19538. 936.16 s [opt-env-conf-test] mconcat
  19539. 936.16 s [opt-env-conf-test] [ genericValidate arg,
  19540. 936.16 s [opt-env-conf-test] case arg of
  19541. 936.16 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19542. 936.16 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
  19543. 936.16 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  19544. 936.16 s [opt-env-conf-test] ('-' : _) -> False
  19545. 936.16 s [opt-env-conf-test] _ -> True
  19546. 936.16 s [opt-env-conf-test]
  19547. 936.16 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  19548. 936.16 s [opt-env-conf-test] @@ -396,10 +396,10 @@
  19549. 936.16 s [opt-env-conf-test] instance Validity Dashed
  19550. 936.16 s [opt-env-conf-test]
  19551. 936.16 s [opt-env-conf-test] instance IsString Dashed where
  19552. 936.16 s [opt-env-conf-test] - fromString s = case fromString s of
  19553. 936.16 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  19554. 936.16 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  19555. 936.16 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  19556. 936.16 s [opt-env-conf-test] + fromString s = case fromString s of
  19557. 936.16 s [opt-env-conf-test] + ArgDashed True cs -> DashedLong cs
  19558. 936.16 s [opt-env-conf-test] + ArgDashed False (c :| []) -> DashedShort c
  19559. 936.16 s [opt-env-conf-test] + _ -> error "Invalid dashed"
  19560. 936.16 s [opt-env-conf-test]
  19561. 936.16 s [opt-env-conf-test] renderDashed :: Dashed -> String
  19562. 936.16 s [opt-env-conf-test] renderDashed = \case
  19563. 936.16 s [opt-env-conf-test]
  19564. 936.16 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:248:77-83
  19565. 936.16 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  19566. 936.16 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  19567. 936.16 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  19568. 936.16 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  19569. 936.16 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  19570. 936.16 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
  19571. 936.16 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  19572. 936.16 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  19573. 936.16 s [opt-env-conf-test]
  19574. 936.16 s [opt-env-conf-test]
  19575. 936.16 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  19576. 936.16 s [opt-env-conf-test] @@ -149,34 +149,34 @@
  19577. 936.16 s [opt-env-conf-test] -- A single dash is always an argument
  19578. 936.16 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  19579. 936.16 s [opt-env-conf-test] -- Bare double-dash
  19580. 936.16 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  19581. 936.16 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  19582. 936.16 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  19583. 936.16 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  19584. 936.16 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  19585. 936.16 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  19586. 936.16 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  19587. 936.16 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  19588. 936.16 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  19589. 936.16 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  19590. 936.16 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  19591. 936.16 s [opt-env-conf-test] - -- pop the args as they come.
  19592. 936.16 s [opt-env-conf-test] - _ ->
  19593. 936.16 s [opt-env-conf-test] - let go = \case
  19594. 936.16 s [opt-env-conf-test] - [] -> Nothing
  19595. 936.16 s [opt-env-conf-test] - (Dead : rest) -> go rest
  19596. 936.16 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  19597. 936.16 s [opt-env-conf-test] - in case go afters of
  19598. 936.16 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  19599. 936.16 s [opt-env-conf-test] - Just (firstLive, rest) ->
  19600. 936.16 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  19601. 936.16 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  19602. 936.16 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  19603. 936.16 s [opt-env-conf-test] - -- arguments.
  19604. 936.16 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  19605. 936.16 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  19606. 936.16 s [opt-env-conf-test] - )
  19607. 936.16 s [opt-env-conf-test] - ]
  19608. 936.16 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  19609. 936.16 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  19610. 936.16 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  19611. 936.16 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  19612. 936.16 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  19613. 936.16 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  19614. 936.16 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  19615. 936.16 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  19616. 936.16 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  19617. 936.16 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  19618. 936.16 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  19619. 936.16 s [opt-env-conf-test] + -- pop the args as they come.
  19620. 936.16 s [opt-env-conf-test] + _ ->
  19621. 936.16 s [opt-env-conf-test] + let go = \case
  19622. 936.16 s [opt-env-conf-test] + [] -> Nothing
  19623. 936.16 s [opt-env-conf-test] + (Dead : rest) -> go rest
  19624. 936.16 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  19625. 936.16 s [opt-env-conf-test] + in case go afters of
  19626. 936.16 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  19627. 936.16 s [opt-env-conf-test] + Just (firstLive, rest) ->
  19628. 936.16 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  19629. 936.16 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  19630. 936.16 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  19631. 936.16 s [opt-env-conf-test] + -- arguments.
  19632. 936.16 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  19633. 936.16 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  19634. 936.16 s [opt-env-conf-test] + )
  19635. 936.16 s [opt-env-conf-test] + ]
  19636. 936.16 s [opt-env-conf-test] ArgDashed {} ->
  19637. 936.16 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  19638. 936.16 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  19639. 936.16 s [opt-env-conf-test]
  19640. 936.16 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  19641. 936.16 s [opt-env-conf-test] @@ -166,17 +166,17 @@
  19642. 936.16 s [opt-env-conf-test] [] -> Nothing
  19643. 936.16 s [opt-env-conf-test] (Dead : rest) -> go rest
  19644. 936.16 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  19645. 936.16 s [opt-env-conf-test] - in case go afters of
  19646. 936.16 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  19647. 936.16 s [opt-env-conf-test] - Just (firstLive, rest) ->
  19648. 936.16 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  19649. 936.16 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  19650. 936.16 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  19651. 936.16 s [opt-env-conf-test] - -- arguments.
  19652. 936.16 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  19653. 936.16 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  19654. 936.16 s [opt-env-conf-test] - )
  19655. 936.16 s [opt-env-conf-test] - ]
  19656. 936.16 s [opt-env-conf-test] + in case go afters of
  19657. 936.16 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  19658. 936.16 s [opt-env-conf-test] + Just (firstLive, rest) ->
  19659. 936.16 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  19660. 936.16 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  19661. 936.16 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  19662. 936.16 s [opt-env-conf-test] + -- arguments.
  19663. 936.16 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  19664. 936.16 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  19665. 936.16 s [opt-env-conf-test] + )
  19666. 936.16 s [opt-env-conf-test] + ]
  19667. 936.16 s [opt-env-conf-test] ArgDashed {} ->
  19668. 936.16 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  19669. 936.16 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  19670. 936.16 s [opt-env-conf-test]
  19671. 936.16 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:339:40-46
  19672. 936.16 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  19673. 936.16 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  19674. 936.16 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  19675. 936.16 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  19676. 936.16 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  19677. 936.16 s [opt-env-conf-test] + in Just $ Live (ArgDashed False cs') : rest'
  19678. 936.16 s [opt-env-conf-test] _ -> do
  19679. 936.16 s [opt-env-conf-test] os <- go rest
  19680. 936.16 s [opt-env-conf-test] pure $ Live o : os
  19681. 936.16 s [opt-env-conf-test]
  19682. 936.16 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:365:34-43
  19683. 936.16 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  19684. 936.16 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  19685. 936.16 s [opt-env-conf-test] go (c :| rest) =
  19686. 936.16 s [opt-env-conf-test] if c `elem` cs
  19687. 936.16 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  19688. 936.16 s [opt-env-conf-test] + then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
  19689. 936.16 s [opt-env-conf-test] else do
  19690. 936.16 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  19691. 936.16 s [opt-env-conf-test] new <- go rest'
  19692. 936.16 s [opt-env-conf-test]
  19693. 936.16 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:440:44-42
  19694. 936.16 s [opt-env-conf-test] @@ -437,21 +437,21 @@
  19695. 936.16 s [opt-env-conf-test] Just (a, _) -> do
  19696. 936.16 s [opt-env-conf-test] debug ["set to default value"]
  19697. 936.16 s [opt-env-conf-test] pure a -- Don't mark as parsed
  19698. 936.16 s [opt-env-conf-test] - Nothing -> do
  19699. 936.16 s [opt-env-conf-test] - let parseResultError e res = case res of
  19700. 936.16 s [opt-env-conf-test] - NotRun -> Nothing
  19701. 936.16 s [opt-env-conf-test] - NotFound -> Just e
  19702. 936.16 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  19703. 936.16 s [opt-env-conf-test] - debug ["not found"]
  19704. 936.16 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  19705. 936.16 s [opt-env-conf-test] - NE.nonEmpty $
  19706. 936.16 s [opt-env-conf-test] - catMaybes
  19707. 936.16 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  19708. 936.16 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  19709. 936.16 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  19710. 936.16 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  19711. 936.16 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  19712. 936.16 s [opt-env-conf-test] - ]
  19713. 936.16 s [opt-env-conf-test] + Nothing -> do
  19714. 936.16 s [opt-env-conf-test] + let parseResultError e res = case res of
  19715. 936.16 s [opt-env-conf-test] + NotRun -> Nothing
  19716. 936.16 s [opt-env-conf-test] + NotFound -> Just e
  19717. 936.16 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  19718. 936.16 s [opt-env-conf-test] + debug ["not found"]
  19719. 936.16 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  19720. 936.16 s [opt-env-conf-test] + NE.nonEmpty $
  19721. 936.16 s [opt-env-conf-test] + catMaybes
  19722. 936.16 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  19723. 936.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  19724. 936.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  19725. 936.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  19726. 936.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  19727. 936.16 s [opt-env-conf-test] + ]
  19728. 936.16 s [opt-env-conf-test]
  19729. 936.16 s [opt-env-conf-test] withCapabilities ::
  19730. 936.16 s [opt-env-conf-test] Maybe SrcLoc ->
  19731. 936.16 s [opt-env-conf-test]
  19732. 936.17 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  19733. 936.17 s [opt-env-conf-test] @@ -438,10 +438,10 @@
  19734. 936.17 s [opt-env-conf-test] debug ["set to default value"]
  19735. 936.17 s [opt-env-conf-test] pure a -- Don't mark as parsed
  19736. 936.17 s [opt-env-conf-test] Nothing -> do
  19737. 936.17 s [opt-env-conf-test] - let parseResultError e res = case res of
  19738. 936.17 s [opt-env-conf-test] - NotRun -> Nothing
  19739. 936.17 s [opt-env-conf-test] - NotFound -> Just e
  19740. 936.17 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  19741. 936.17 s [opt-env-conf-test] + let parseResultError e res = case res of
  19742. 936.17 s [opt-env-conf-test] + NotRun -> Nothing
  19743. 936.17 s [opt-env-conf-test] + NotFound -> Just e
  19744. 936.17 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  19745. 936.17 s [opt-env-conf-test] debug ["not found"]
  19746. 936.17 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  19747. 936.17 s [opt-env-conf-test] NE.nonEmpty $
  19748. 936.17 s [opt-env-conf-test]
  19749. 936.17 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  19750. 936.17 s [opt-env-conf-test] @@ -393,30 +393,30 @@
  19751. 936.17 s [opt-env-conf-test] case mO' of
  19752. 936.17 s [opt-env-conf-test] Nothing -> pure Nothing
  19753. 936.17 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  19754. 936.17 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  19755. 936.17 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19756. 936.17 s [opt-env-conf-test] - Right mV -> case mV of
  19757. 936.17 s [opt-env-conf-test] - Nothing -> do
  19758. 936.17 s [opt-env-conf-test] - debug
  19759. 936.17 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  19760. 936.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  19761. 936.17 s [opt-env-conf-test] - ]
  19762. 936.17 s [opt-env-conf-test] - pure Nothing
  19763. 936.17 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  19764. 936.17 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19765. 936.17 s [opt-env-conf-test] - Right mA -> case mA of
  19766. 936.17 s [opt-env-conf-test] - Nothing -> do
  19767. 936.17 s [opt-env-conf-test] - debug
  19768. 936.17 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  19769. 936.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  19770. 936.17 s [opt-env-conf-test] - ]
  19771. 936.17 s [opt-env-conf-test] - pure Nothing
  19772. 936.17 s [opt-env-conf-test] - Just a -> do
  19773. 936.17 s [opt-env-conf-test] - debug
  19774. 936.17 s [opt-env-conf-test] - [ "set based on config value: ",
  19775. 936.17 s [opt-env-conf-test] - chunk $ T.pack $ show v
  19776. 936.17 s [opt-env-conf-test] - ]
  19777. 936.17 s [opt-env-conf-test] - pure $ Just a
  19778. 936.17 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  19779. 936.17 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19780. 936.17 s [opt-env-conf-test] + Right mV -> case mV of
  19781. 936.17 s [opt-env-conf-test] + Nothing -> do
  19782. 936.17 s [opt-env-conf-test] + debug
  19783. 936.17 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  19784. 936.17 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  19785. 936.17 s [opt-env-conf-test] + ]
  19786. 936.17 s [opt-env-conf-test] + pure Nothing
  19787. 936.17 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  19788. 936.17 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19789. 936.17 s [opt-env-conf-test] + Right mA -> case mA of
  19790. 936.17 s [opt-env-conf-test] + Nothing -> do
  19791. 936.17 s [opt-env-conf-test] + debug
  19792. 936.17 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  19793. 936.17 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  19794. 936.17 s [opt-env-conf-test] + ]
  19795. 936.17 s [opt-env-conf-test] + pure Nothing
  19796. 936.17 s [opt-env-conf-test] + Just a -> do
  19797. 936.17 s [opt-env-conf-test] + debug
  19798. 936.17 s [opt-env-conf-test] + [ "set based on config value: ",
  19799. 936.17 s [opt-env-conf-test] + chunk $ T.pack $ show v
  19800. 936.17 s [opt-env-conf-test] + ]
  19801. 936.17 s [opt-env-conf-test] + pure $ Just a
  19802. 936.17 s [opt-env-conf-test] let toRes = \case
  19803. 936.17 s [opt-env-conf-test] Nothing -> NotFound
  19804. 936.17 s [opt-env-conf-test] Just a -> Found a
  19805. 936.17 s [opt-env-conf-test]
  19806. 936.17 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  19807. 936.17 s [opt-env-conf-test] @@ -402,21 +402,21 @@
  19808. 936.17 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  19809. 936.17 s [opt-env-conf-test] ]
  19810. 936.17 s [opt-env-conf-test] pure Nothing
  19811. 936.17 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  19812. 936.17 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19813. 936.17 s [opt-env-conf-test] - Right mA -> case mA of
  19814. 936.17 s [opt-env-conf-test] - Nothing -> do
  19815. 936.17 s [opt-env-conf-test] - debug
  19816. 936.17 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  19817. 936.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  19818. 936.17 s [opt-env-conf-test] - ]
  19819. 936.17 s [opt-env-conf-test] - pure Nothing
  19820. 936.17 s [opt-env-conf-test] - Just a -> do
  19821. 936.17 s [opt-env-conf-test] - debug
  19822. 936.17 s [opt-env-conf-test] - [ "set based on config value: ",
  19823. 936.17 s [opt-env-conf-test] - chunk $ T.pack $ show v
  19824. 936.17 s [opt-env-conf-test] - ]
  19825. 936.17 s [opt-env-conf-test] - pure $ Just a
  19826. 936.17 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  19827. 936.17 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19828. 936.17 s [opt-env-conf-test] + Right mA -> case mA of
  19829. 936.17 s [opt-env-conf-test] + Nothing -> do
  19830. 936.17 s [opt-env-conf-test] + debug
  19831. 936.17 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  19832. 936.17 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  19833. 936.17 s [opt-env-conf-test] + ]
  19834. 936.17 s [opt-env-conf-test] + pure Nothing
  19835. 936.17 s [opt-env-conf-test] + Just a -> do
  19836. 936.17 s [opt-env-conf-test] + debug
  19837. 936.17 s [opt-env-conf-test] + [ "set based on config value: ",
  19838. 936.17 s [opt-env-conf-test] + chunk $ T.pack $ show v
  19839. 936.17 s [opt-env-conf-test] + ]
  19840. 936.17 s [opt-env-conf-test] + pure $ Just a
  19841. 936.17 s [opt-env-conf-test] let toRes = \case
  19842. 936.17 s [opt-env-conf-test] Nothing -> NotFound
  19843. 936.17 s [opt-env-conf-test] Just a -> Found a
  19844. 936.17 s [opt-env-conf-test]
  19845. 936.17 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  19846. 936.17 s [opt-env-conf-test] @@ -390,9 +390,9 @@
  19847. 936.17 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  19848. 936.17 s [opt-env-conf-test] Just neRest -> do
  19849. 936.17 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  19850. 936.17 s [opt-env-conf-test] - case mO' of
  19851. 936.17 s [opt-env-conf-test] - Nothing -> pure Nothing
  19852. 936.17 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  19853. 936.17 s [opt-env-conf-test] + case mO' of
  19854. 936.17 s [opt-env-conf-test] + Nothing -> pure Nothing
  19855. 936.17 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  19856. 936.17 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  19857. 936.17 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19858. 936.17 s [opt-env-conf-test] Right mV -> case mV of
  19859. 936.17 s [opt-env-conf-test]
  19860. 936.17 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:224:38-20
  19861. 936.17 s [opt-env-conf-test] @@ -221,15 +221,15 @@
  19862. 936.17 s [opt-env-conf-test] Just c -> do
  19863. 936.17 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  19864. 936.17 s [opt-env-conf-test] go $ commandParser c
  19865. 936.17 s [opt-env-conf-test] - ParserWithConfig mLoc pc pa -> do
  19866. 936.17 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  19867. 936.17 s [opt-env-conf-test] - ppIndent $ do
  19868. 936.17 s [opt-env-conf-test] - debug ["loading config"]
  19869. 936.17 s [opt-env-conf-test] - mNewConfig <- ppIndent $ go pc
  19870. 936.17 s [opt-env-conf-test] - debug ["with loaded config"]
  19871. 936.17 s [opt-env-conf-test] - ppIndent $
  19872. 936.17 s [opt-env-conf-test] - local (\e -> e {ppEnvConf = mNewConfig}) $
  19873. 936.17 s [opt-env-conf-test] - go pa
  19874. 936.17 s [opt-env-conf-test] + ParserWithConfig mLoc pc pa -> do
  19875. 936.17 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  19876. 936.17 s [opt-env-conf-test] + ppIndent $ do
  19877. 936.17 s [opt-env-conf-test] + debug ["loading config"]
  19878. 936.17 s [opt-env-conf-test] + mNewConfig <- ppIndent $ go pc
  19879. 936.17 s [opt-env-conf-test] + debug ["with loaded config"]
  19880. 936.17 s [opt-env-conf-test] + ppIndent $
  19881. 936.17 s [opt-env-conf-test] + local (\e -> e {ppEnvConf = mNewConfig}) $
  19882. 936.17 s [opt-env-conf-test] + go pa
  19883. 936.17 s [opt-env-conf-test] ParserSetting mLoc set@Setting {..} -> do
  19884. 936.17 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  19885. 936.17 s [opt-env-conf-test] when (not (Set.null settingRequiredCapabilities)) $
  19886. 936.17 s [opt-env-conf-test]
  19887. 936.17 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:221:27-39
  19888. 936.17 s [opt-env-conf-test] @@ -218,9 +218,9 @@
  19889. 936.17 s [opt-env-conf-test] Just s -> do
  19890. 936.17 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  19891. 936.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  19892. 936.17 s [opt-env-conf-test] - Just c -> do
  19893. 936.17 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  19894. 936.17 s [opt-env-conf-test] - go $ commandParser c
  19895. 936.17 s [opt-env-conf-test] + Just c -> do
  19896. 936.17 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  19897. 936.17 s [opt-env-conf-test] + go $ commandParser c
  19898. 936.17 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  19899. 936.17 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  19900. 936.17 s [opt-env-conf-test] ppIndent $ do
  19901. 936.17 s [opt-env-conf-test]
  19902. 936.17 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:215:28-40
  19903. 936.17 s [opt-env-conf-test] @@ -212,9 +212,9 @@
  19904. 936.17 s [opt-env-conf-test] find ((== d) . commandArg) cs
  19905. 936.17 s [opt-env-conf-test] case mDefaultCommand of
  19906. 936.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  19907. 936.17 s [opt-env-conf-test] - Just dc -> do
  19908. 936.17 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  19909. 936.17 s [opt-env-conf-test] - go $ commandParser dc
  19910. 936.17 s [opt-env-conf-test] + Just dc -> do
  19911. 936.17 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  19912. 936.17 s [opt-env-conf-test] + go $ commandParser dc
  19913. 936.17 s [opt-env-conf-test] Just s -> do
  19914. 936.17 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  19915. 936.17 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  19916. 936.17 s [opt-env-conf-test]
  19917. 936.17 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:195:29-70
  19918. 936.17 s [opt-env-conf-test] @@ -192,9 +192,9 @@
  19919. 936.17 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  19920. 936.17 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19921. 936.17 s [opt-env-conf-test] case errOrB of
  19922. 936.17 s [opt-env-conf-test] - Left err -> do
  19923. 936.17 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19924. 936.17 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  19925. 936.17 s [opt-env-conf-test] + Left err -> do
  19926. 936.17 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19927. 936.17 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed forgivable err
  19928. 936.17 s [opt-env-conf-test] Right b -> do
  19929. 936.17 s [opt-env-conf-test] debug ["succeeded"]
  19930. 936.17 s [opt-env-conf-test] pure b
  19931. 936.17 s [opt-env-conf-test]
  19932. 936.17 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:197:56-66
  19933. 936.17 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  19934. 936.17 s [opt-env-conf-test] case errOrB of
  19935. 936.17 s [opt-env-conf-test] Left err -> do
  19936. 936.17 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19937. 936.17 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  19938. 936.17 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed False err
  19939. 936.18 s [opt-env-conf-test] Right b -> do
  19940. 936.18 s [opt-env-conf-test] debug ["succeeded"]
  19941. 936.18 s [opt-env-conf-test] pure b
  19942. 936.18 s [opt-env-conf-test]
  19943. 936.18 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  19944. 936.18 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  19945. 936.18 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19946. 936.18 s [opt-env-conf-test] case errOrB of
  19947. 936.18 s [opt-env-conf-test] Left err -> do
  19948. 936.18 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19949. 936.18 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19950. 936.18 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  19951. 936.18 s [opt-env-conf-test] Right b -> do
  19952. 936.18 s [opt-env-conf-test] debug ["succeeded"]
  19953. 936.18 s [opt-env-conf-test]
  19954. 936.18 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  19955. 936.18 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  19956. 936.18 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19957. 936.18 s [opt-env-conf-test] case errOrB of
  19958. 936.18 s [opt-env-conf-test] Left err -> do
  19959. 936.18 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19960. 936.18 s [opt-env-conf-test] + debug []
  19961. 936.18 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  19962. 936.18 s [opt-env-conf-test] Right b -> do
  19963. 936.18 s [opt-env-conf-test] debug ["succeeded"]
  19964. 936.18 s [opt-env-conf-test]
  19965. 936.18 s [opt-env-conf-test] Negate at src/OptEnvConf/Run.hs:196:72-82
  19966. 936.18 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  19967. 936.18 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19968. 936.18 s [opt-env-conf-test] case errOrB of
  19969. 936.18 s [opt-env-conf-test] Left err -> do
  19970. 936.18 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19971. 936.18 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
  19972. 936.18 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  19973. 936.18 s [opt-env-conf-test] Right b -> do
  19974. 936.18 s [opt-env-conf-test] debug ["succeeded"]
  19975. 936.18 s [opt-env-conf-test]
  19976. 936.18 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:196:72-82
  19977. 936.18 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  19978. 936.18 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19979. 936.18 s [opt-env-conf-test] case errOrB of
  19980. 936.18 s [opt-env-conf-test] Left err -> do
  19981. 936.18 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19982. 936.18 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show True]
  19983. 936.18 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  19984. 936.18 s [opt-env-conf-test] Right b -> do
  19985. 936.18 s [opt-env-conf-test] debug ["succeeded"]
  19986. 936.18 s [opt-env-conf-test]
  19987. 936.18 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:150:37-112
  19988. 936.18 s [opt-env-conf-test] @@ -147,34 +147,34 @@
  19989. 936.18 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  19990. 936.18 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  19991. 936.18 s [opt-env-conf-test] pure (a :| as)
  19992. 936.18 s [opt-env-conf-test] - ParserAllOrNothing mLoc p' -> do
  19993. 936.18 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  19994. 936.18 s [opt-env-conf-test] - ppIndent $ do
  19995. 936.18 s [opt-env-conf-test] - e <- ask
  19996. 936.18 s [opt-env-conf-test] - s <- get
  19997. 936.18 s [opt-env-conf-test] - results <- liftIO $ runPP (go p') s e
  19998. 936.18 s [opt-env-conf-test] - (result, s') <- ppNonDetList results
  19999. 936.18 s [opt-env-conf-test] - put s'
  20000. 936.18 s [opt-env-conf-test] - case result of
  20001. 936.18 s [opt-env-conf-test] - Success a -> pure a
  20002. 936.18 s [opt-env-conf-test] - Failure errs -> do
  20003. 936.18 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  20004. 936.18 s [opt-env-conf-test] - then ppErrors' errs
  20005. 936.18 s [opt-env-conf-test] - else do
  20006. 936.18 s [opt-env-conf-test] - -- Settings available below
  20007. 936.18 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  20008. 936.18 s [opt-env-conf-test] - -- Settings that have been parsed
  20009. 936.18 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  20010. 936.18 s [opt-env-conf-test] - -- Settings that have been parsed below
  20011. 936.18 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  20012. 936.18 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  20013. 936.18 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  20014. 936.18 s [opt-env-conf-test] - -- with only forgivable errors
  20015. 936.18 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  20016. 936.18 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  20017. 936.18 s [opt-env-conf-test] - if null parsedSettingsMap
  20018. 936.18 s [opt-env-conf-test] - then ppErrors' errs
  20019. 936.18 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  20020. 936.18 s [opt-env-conf-test] + ParserAllOrNothing mLoc p' -> do
  20021. 936.18 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  20022. 936.18 s [opt-env-conf-test] + ppIndent $ do
  20023. 936.18 s [opt-env-conf-test] + e <- ask
  20024. 936.18 s [opt-env-conf-test] + s <- get
  20025. 936.18 s [opt-env-conf-test] + results <- liftIO $ runPP (go p') s e
  20026. 936.18 s [opt-env-conf-test] + (result, s') <- ppNonDetList results
  20027. 936.18 s [opt-env-conf-test] + put s'
  20028. 936.18 s [opt-env-conf-test] + case result of
  20029. 936.18 s [opt-env-conf-test] + Success a -> pure a
  20030. 936.18 s [opt-env-conf-test] + Failure errs -> do
  20031. 936.18 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  20032. 936.18 s [opt-env-conf-test] + then ppErrors' errs
  20033. 936.18 s [opt-env-conf-test] + else do
  20034. 936.18 s [opt-env-conf-test] + -- Settings available below
  20035. 936.18 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  20036. 936.18 s [opt-env-conf-test] + -- Settings that have been parsed
  20037. 936.18 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  20038. 936.18 s [opt-env-conf-test] + -- Settings that have been parsed below
  20039. 936.18 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  20040. 936.18 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  20041. 936.18 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  20042. 936.18 s [opt-env-conf-test] + -- with only forgivable errors
  20043. 936.18 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  20044. 936.18 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  20045. 936.18 s [opt-env-conf-test] + if null parsedSettingsMap
  20046. 936.18 s [opt-env-conf-test] + then ppErrors' errs
  20047. 936.18 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  20048. 936.18 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  20049. 936.18 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20050. 936.18 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  20051. 936.18 s [opt-env-conf-test]
  20052. 936.18 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:18-50
  20053. 936.18 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  20054. 936.18 s [opt-env-conf-test] case result of
  20055. 936.18 s [opt-env-conf-test] Success a -> pure a
  20056. 936.18 s [opt-env-conf-test] Failure errs -> do
  20057. 936.18 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  20058. 936.18 s [opt-env-conf-test] + if False
  20059. 936.18 s [opt-env-conf-test] then ppErrors' errs
  20060. 936.18 s [opt-env-conf-test] else do
  20061. 936.18 s [opt-env-conf-test] -- Settings available below
  20062. 936.18 s [opt-env-conf-test]
  20063. 936.18 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:24-50
  20064. 936.18 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  20065. 936.18 s [opt-env-conf-test] case result of
  20066. 936.18 s [opt-env-conf-test] Success a -> pure a
  20067. 936.18 s [opt-env-conf-test] Failure errs -> do
  20068. 936.18 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  20069. 936.18 s [opt-env-conf-test] + if not $ True
  20070. 936.18 s [opt-env-conf-test] then ppErrors' errs
  20071. 936.18 s [opt-env-conf-test] else do
  20072. 936.18 s [opt-env-conf-test] -- Settings available below
  20073. 936.18 s [opt-env-conf-test]
  20074. 936.18 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:143:29-25
  20075. 936.18 s [opt-env-conf-test] @@ -140,13 +140,13 @@
  20076. 936.18 s [opt-env-conf-test] Just a -> do
  20077. 936.18 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  20078. 936.18 s [opt-env-conf-test] pure (a : as)
  20079. 936.18 s [opt-env-conf-test] - ParserSome mLoc p' -> do
  20080. 936.18 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20081. 936.18 s [opt-env-conf-test] - ppIndent $ do
  20082. 936.18 s [opt-env-conf-test] - a <- go p'
  20083. 936.18 s [opt-env-conf-test] - debug ["First element of some succeeded, continuing with Many"]
  20084. 936.18 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  20085. 936.18 s [opt-env-conf-test] - pure (a :| as)
  20086. 936.18 s [opt-env-conf-test] + ParserSome mLoc p' -> do
  20087. 936.18 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20088. 936.18 s [opt-env-conf-test] + ppIndent $ do
  20089. 936.18 s [opt-env-conf-test] + a <- go p'
  20090. 936.18 s [opt-env-conf-test] + debug ["First element of some succeeded, continuing with Many"]
  20091. 936.18 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  20092. 936.18 s [opt-env-conf-test] + pure (a :| as)
  20093. 936.18 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  20094. 936.18 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  20095. 936.18 s [opt-env-conf-test] ppIndent $ do
  20096. 936.18 s [opt-env-conf-test]
  20097. 936.18 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:134:29-28
  20098. 936.18 s [opt-env-conf-test] @@ -131,15 +131,15 @@
  20099. 936.18 s [opt-env-conf-test] Nothing -> do
  20100. 936.18 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  20101. 936.18 s [opt-env-conf-test] ppIndent $ go p2
  20102. 936.18 s [opt-env-conf-test] - ParserMany mLoc p' -> do
  20103. 936.18 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20104. 936.18 s [opt-env-conf-test] - ppIndent $ do
  20105. 936.18 s [opt-env-conf-test] - eor <- tryPP $ go p'
  20106. 936.18 s [opt-env-conf-test] - case eor of
  20107. 936.18 s [opt-env-conf-test] - Nothing -> pure []
  20108. 936.18 s [opt-env-conf-test] - Just a -> do
  20109. 936.18 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  20110. 936.18 s [opt-env-conf-test] - pure (a : as)
  20111. 936.18 s [opt-env-conf-test] + ParserMany mLoc p' -> do
  20112. 936.18 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20113. 936.18 s [opt-env-conf-test] + ppIndent $ do
  20114. 936.18 s [opt-env-conf-test] + eor <- tryPP $ go p'
  20115. 936.18 s [opt-env-conf-test] + case eor of
  20116. 936.18 s [opt-env-conf-test] + Nothing -> pure []
  20117. 936.18 s [opt-env-conf-test] + Just a -> do
  20118. 936.18 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  20119. 936.18 s [opt-env-conf-test] + pure (a : as)
  20120. 936.18 s [opt-env-conf-test] ParserSome mLoc p' -> do
  20121. 936.18 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20122. 936.18 s [opt-env-conf-test] ppIndent $ do
  20123. 936.18 s [opt-env-conf-test]
  20124. 936.18 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  20125. 936.18 s [opt-env-conf-test] @@ -132,7 +132,8 @@
  20126. 936.18 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  20127. 936.18 s [opt-env-conf-test] ppIndent $ go p2
  20128. 936.18 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20129. 936.18 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20130. 936.18 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": "
  20131. 936.18 s [opt-env-conf-test] +]
  20132. 936.18 s [opt-env-conf-test] ppIndent $ do
  20133. 936.18 s [opt-env-conf-test] eor <- tryPP $ go p'
  20134. 936.18 s [opt-env-conf-test] case eor of
  20135. 936.18 s [opt-env-conf-test]
  20136. 936.18 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  20137. 936.18 s [opt-env-conf-test] @@ -132,7 +132,7 @@
  20138. 936.18 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  20139. 936.18 s [opt-env-conf-test] ppIndent $ go p2
  20140. 936.18 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20141. 936.18 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20142. 936.18 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20143. 936.18 s [opt-env-conf-test] ppIndent $ do
  20144. 936.18 s [opt-env-conf-test] eor <- tryPP $ go p'
  20145. 936.18 s [opt-env-conf-test] case eor of
  20146. 936.18 s [opt-env-conf-test]
  20147. 936.18 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  20148. 936.18 s [opt-env-conf-test] @@ -132,7 +132,7 @@
  20149. 936.18 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  20150. 936.18 s [opt-env-conf-test] ppIndent $ go p2
  20151. 936.18 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20152. 936.18 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20153. 936.18 s [opt-env-conf-test] + debug []
  20154. 936.18 s [opt-env-conf-test] ppIndent $ do
  20155. 936.18 s [opt-env-conf-test] eor <- tryPP $ go p'
  20156. 936.18 s [opt-env-conf-test] case eor of
  20157. 936.18 s [opt-env-conf-test]
  20158. 936.18 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:122:26-31
  20159. 936.18 s [opt-env-conf-test] @@ -119,18 +119,18 @@
  20160. 936.18 s [opt-env-conf-test] ParserSelect fe ff -> do
  20161. 936.18 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  20162. 936.18 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  20163. 936.18 s [opt-env-conf-test] - ParserAlt p1 p2 -> do
  20164. 936.19 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  20165. 936.19 s [opt-env-conf-test] - ppIndent $ do
  20166. 936.19 s [opt-env-conf-test] - debug ["Trying left side."]
  20167. 936.19 s [opt-env-conf-test] - eor <- ppIndent $ tryPP (go p1)
  20168. 936.19 s [opt-env-conf-test] - case eor of
  20169. 936.19 s [opt-env-conf-test] - Just a -> do
  20170. 936.19 s [opt-env-conf-test] - debug ["Left side succeeded."]
  20171. 936.19 s [opt-env-conf-test] - pure a
  20172. 936.19 s [opt-env-conf-test] - Nothing -> do
  20173. 936.19 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  20174. 936.19 s [opt-env-conf-test] - ppIndent $ go p2
  20175. 936.19 s [opt-env-conf-test] + ParserAlt p1 p2 -> do
  20176. 936.19 s [opt-env-conf-test] + debug [syntaxChunk "Alt"]
  20177. 936.19 s [opt-env-conf-test] + ppIndent $ do
  20178. 936.19 s [opt-env-conf-test] + debug ["Trying left side."]
  20179. 936.19 s [opt-env-conf-test] + eor <- ppIndent $ tryPP (go p1)
  20180. 936.19 s [opt-env-conf-test] + case eor of
  20181. 936.19 s [opt-env-conf-test] + Just a -> do
  20182. 936.19 s [opt-env-conf-test] + debug ["Left side succeeded."]
  20183. 936.19 s [opt-env-conf-test] + pure a
  20184. 936.19 s [opt-env-conf-test] + Nothing -> do
  20185. 936.19 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  20186. 936.19 s [opt-env-conf-test] + ppIndent $ go p2
  20187. 936.19 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20188. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20189. 936.19 s [opt-env-conf-test] ppIndent $ do
  20190. 936.19 s [opt-env-conf-test]
  20191. 936.19 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:131:24-31
  20192. 936.19 s [opt-env-conf-test] @@ -128,9 +128,9 @@
  20193. 936.19 s [opt-env-conf-test] Just a -> do
  20194. 936.19 s [opt-env-conf-test] debug ["Left side succeeded."]
  20195. 936.19 s [opt-env-conf-test] pure a
  20196. 936.19 s [opt-env-conf-test] - Nothing -> do
  20197. 936.19 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  20198. 936.19 s [opt-env-conf-test] - ppIndent $ go p2
  20199. 936.19 s [opt-env-conf-test] + Nothing -> do
  20200. 936.19 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  20201. 936.19 s [opt-env-conf-test] + ppIndent $ go p2
  20202. 936.19 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20203. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20204. 936.19 s [opt-env-conf-test] ppIndent $ do
  20205. 936.19 s [opt-env-conf-test]
  20206. 936.19 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:119:29-42
  20207. 936.19 s [opt-env-conf-test] @@ -116,9 +116,9 @@
  20208. 936.19 s [opt-env-conf-test] ParserEmpty mLoc -> do
  20209. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20210. 936.19 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  20211. 936.19 s [opt-env-conf-test] - ParserSelect fe ff -> do
  20212. 936.19 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  20213. 936.19 s [opt-env-conf-test] - ppIndent $ select (go fe) (go ff)
  20214. 936.19 s [opt-env-conf-test] + ParserSelect fe ff -> do
  20215. 936.19 s [opt-env-conf-test] + debug [syntaxChunk "Select"]
  20216. 936.19 s [opt-env-conf-test] + ppIndent $ select (go fe) (go ff)
  20217. 936.19 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  20218. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Alt"]
  20219. 936.19 s [opt-env-conf-test] ppIndent $ do
  20220. 936.19 s [opt-env-conf-test]
  20221. 936.19 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:116:27-37
  20222. 936.19 s [opt-env-conf-test] @@ -113,9 +113,9 @@
  20223. 936.19 s [opt-env-conf-test] ParserAp ff fa -> do
  20224. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  20225. 936.19 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  20226. 936.19 s [opt-env-conf-test] - ParserEmpty mLoc -> do
  20227. 936.19 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20228. 936.19 s [opt-env-conf-test] - ppError mLoc ParseErrorEmpty
  20229. 936.19 s [opt-env-conf-test] + ParserEmpty mLoc -> do
  20230. 936.19 s [opt-env-conf-test] + debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20231. 936.19 s [opt-env-conf-test] + ppError mLoc ParseErrorEmpty
  20232. 936.19 s [opt-env-conf-test] ParserSelect fe ff -> do
  20233. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  20234. 936.19 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  20235. 936.19 s [opt-env-conf-test]
  20236. 936.19 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:113:25-35
  20237. 936.19 s [opt-env-conf-test] @@ -110,9 +110,9 @@
  20238. 936.19 s [opt-env-conf-test] ParserPure a -> do
  20239. 936.19 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  20240. 936.19 s [opt-env-conf-test] pure a
  20241. 936.19 s [opt-env-conf-test] - ParserAp ff fa -> do
  20242. 936.19 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  20243. 936.19 s [opt-env-conf-test] - ppIndent $ go ff <*> go fa
  20244. 936.19 s [opt-env-conf-test] + ParserAp ff fa -> do
  20245. 936.19 s [opt-env-conf-test] + debug [syntaxChunk "Ap"]
  20246. 936.19 s [opt-env-conf-test] + ppIndent $ go ff <*> go fa
  20247. 936.19 s [opt-env-conf-test] ParserEmpty mLoc -> do
  20248. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20249. 936.19 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  20250. 936.19 s [opt-env-conf-test]
  20251. 936.19 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  20252. 936.19 s [opt-env-conf-test] @@ -81,27 +81,27 @@
  20253. 936.19 s [opt-env-conf-test] Nothing -> pure result
  20254. 936.19 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  20255. 936.19 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  20256. 936.19 s [opt-env-conf-test] - case mTup of
  20257. 936.19 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  20258. 936.19 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  20259. 936.19 s [opt-env-conf-test] - Success a -> pure (Right a)
  20260. 936.19 s [opt-env-conf-test] - Failure firstErrors ->
  20261. 936.19 s [opt-env-conf-test] - let goNexts ns = do
  20262. 936.19 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  20263. 936.19 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  20264. 936.19 s [opt-env-conf-test] - case mNext of
  20265. 936.19 s [opt-env-conf-test] - Nothing ->
  20266. 936.19 s [opt-env-conf-test] - pure $
  20267. 936.19 s [opt-env-conf-test] - Left $
  20268. 936.19 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  20269. 936.19 s [opt-env-conf-test] - let f = case mDebugMode of
  20270. 936.19 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  20271. 936.19 s [opt-env-conf-test] - Just _ -> id
  20272. 936.19 s [opt-env-conf-test] - in f firstErrors
  20273. 936.19 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  20274. 936.19 s [opt-env-conf-test] - Success a -> pure (Right a)
  20275. 936.19 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  20276. 936.19 s [opt-env-conf-test] - in goNexts nexts
  20277. 936.19 s [opt-env-conf-test] + case mTup of
  20278. 936.19 s [opt-env-conf-test] + Nothing -> error "TODO figure out when this list can be empty"
  20279. 936.19 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  20280. 936.19 s [opt-env-conf-test] + Success a -> pure (Right a)
  20281. 936.19 s [opt-env-conf-test] + Failure firstErrors ->
  20282. 936.19 s [opt-env-conf-test] + let goNexts ns = do
  20283. 936.19 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  20284. 936.19 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  20285. 936.19 s [opt-env-conf-test] + case mNext of
  20286. 936.19 s [opt-env-conf-test] + Nothing ->
  20287. 936.19 s [opt-env-conf-test] + pure $
  20288. 936.19 s [opt-env-conf-test] + Left $
  20289. 936.19 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  20290. 936.19 s [opt-env-conf-test] + let f = case mDebugMode of
  20291. 936.19 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  20292. 936.19 s [opt-env-conf-test] + Just _ -> id
  20293. 936.19 s [opt-env-conf-test] + in f firstErrors
  20294. 936.19 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  20295. 936.19 s [opt-env-conf-test] + Success a -> pure (Right a)
  20296. 936.19 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  20297. 936.19 s [opt-env-conf-test] + in goNexts nexts
  20298. 936.19 s [opt-env-conf-test] where
  20299. 936.19 s [opt-env-conf-test] go ::
  20300. 936.19 s [opt-env-conf-test] Parser a ->
  20301. 936.19 s [opt-env-conf-test]
  20302. 936.19 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:464:22-66
  20303. 936.19 s [opt-env-conf-test] @@ -461,11 +461,11 @@
  20304. 936.19 s [opt-env-conf-test] PP a
  20305. 936.19 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  20306. 936.19 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  20307. 936.19 s [opt-env-conf-test] - Just missings -> do
  20308. 936.19 s [opt-env-conf-test] - debug $
  20309. 936.19 s [opt-env-conf-test] - "Missing capabilities: "
  20310. 936.19 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  20311. 936.19 s [opt-env-conf-test] - ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  20312. 936.19 s [opt-env-conf-test] + Just missings -> do
  20313. 936.19 s [opt-env-conf-test] + debug $
  20314. 936.19 s [opt-env-conf-test] + "Missing capabilities: "
  20315. 936.19 s [opt-env-conf-test] + : capabilitiesChunks (Set.fromList (NE.toList missings))
  20316. 936.19 s [opt-env-conf-test] + ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  20317. 936.19 s [opt-env-conf-test] Nothing -> func
  20318. 936.19 s [opt-env-conf-test]
  20319. 936.19 s [opt-env-conf-test] data ParseResult a
  20320. 936.19 s [opt-env-conf-test]
  20321. 936.19 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  20322. 936.19 s [opt-env-conf-test] @@ -474,9 +474,9 @@
  20323. 936.19 s [opt-env-conf-test] | Found a
  20324. 936.19 s [opt-env-conf-test]
  20325. 936.19 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  20326. 936.19 s [opt-env-conf-test] -requireReaders rs = case NE.nonEmpty rs of
  20327. 936.19 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  20328. 936.19 s [opt-env-conf-test] - Just ne -> pure ne
  20329. 936.19 s [opt-env-conf-test] +requireReaders rs = case NE.nonEmpty rs of
  20330. 936.19 s [opt-env-conf-test] + Nothing -> ppError Nothing ParseErrorNoReaders
  20331. 936.19 s [opt-env-conf-test] + Just ne -> pure ne
  20332. 936.19 s [opt-env-conf-test]
  20333. 936.19 s [opt-env-conf-test] -- Try the readers in order
  20334. 936.19 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  20335. 936.19 s [opt-env-conf-test]
  20336. 936.19 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:568:44-43
  20337. 936.19 s [opt-env-conf-test] @@ -565,12 +565,12 @@
  20338. 936.19 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  20339. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20340. 936.19 s [opt-env-conf-test] ppIndent $ go p'
  20341. 936.19 s [opt-env-conf-test] - ParserWithConfig mLoc pc pa -> do
  20342. 936.19 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  20343. 936.19 s [opt-env-conf-test] - ppIndent $ do
  20344. 936.19 s [opt-env-conf-test] - mNewConfig <- go pc
  20345. 936.19 s [opt-env-conf-test] - mRes <- go pa
  20346. 936.19 s [opt-env-conf-test] - pure $ mRes <|> mNewConfig -- Reverse order
  20347. 936.19 s [opt-env-conf-test] + ParserWithConfig mLoc pc pa -> do
  20348. 936.19 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  20349. 936.19 s [opt-env-conf-test] + ppIndent $ do
  20350. 936.19 s [opt-env-conf-test] + mNewConfig <- go pc
  20351. 936.19 s [opt-env-conf-test] + mRes <- go pa
  20352. 936.19 s [opt-env-conf-test] + pure $ mRes <|> mNewConfig -- Reverse order
  20353. 936.19 s [opt-env-conf-test] ParserSetting mLoc _ -> do
  20354. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  20355. 936.19 s [opt-env-conf-test] pure Nothing
  20356. 936.19 s [opt-env-conf-test]
  20357. 936.19 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:565:42-31
  20358. 936.19 s [opt-env-conf-test] @@ -562,9 +562,9 @@
  20359. 936.19 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  20360. 936.19 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  20361. 936.19 s [opt-env-conf-test] ppIndent $ go p'
  20362. 936.19 s [opt-env-conf-test] - ParserCheck mLoc _ _ _ p' -> do
  20363. 936.19 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20364. 936.19 s [opt-env-conf-test] - ppIndent $ go p'
  20365. 936.19 s [opt-env-conf-test] + ParserCheck mLoc _ _ _ p' -> do
  20366. 936.19 s [opt-env-conf-test] + debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20367. 936.19 s [opt-env-conf-test] + ppIndent $ go p'
  20368. 936.19 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  20369. 936.19 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  20370. 936.19 s [opt-env-conf-test] ppIndent $ do
  20371. 936.19 s [opt-env-conf-test]
  20372. 936.19 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:562:43-31
  20373. 936.19 s [opt-env-conf-test] @@ -559,9 +559,9 @@
  20374. 936.19 s [opt-env-conf-test] ParserSome mLoc p' -> do
  20375. 936.19 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20376. 936.19 s [opt-env-conf-test] ppIndent $ go p'
  20377. 936.19 s [opt-env-conf-test] - ParserAllOrNothing mLoc p' -> do
  20378. 936.19 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  20379. 936.20 s [opt-env-conf-test] - ppIndent $ go p'
  20380. 936.20 s [opt-env-conf-test] + ParserAllOrNothing mLoc p' -> do
  20381. 936.20 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  20382. 936.20 s [opt-env-conf-test] + ppIndent $ go p'
  20383. 936.20 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  20384. 936.20 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20385. 936.20 s [opt-env-conf-test] ppIndent $ go p'
  20386. 936.20 s [opt-env-conf-test]
  20387. 936.20 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:544:32-37
  20388. 936.20 s [opt-env-conf-test] @@ -541,18 +541,18 @@
  20389. 936.20 s [opt-env-conf-test] ParserEmpty mLoc -> do
  20390. 936.20 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20391. 936.20 s [opt-env-conf-test] pure Nothing
  20392. 936.20 s [opt-env-conf-test] - ParserAlt p1 p2 -> do
  20393. 936.20 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  20394. 936.20 s [opt-env-conf-test] - ppIndent $ do
  20395. 936.20 s [opt-env-conf-test] - debug ["Trying left side."]
  20396. 936.20 s [opt-env-conf-test] - eor <- ppIndent $ tryPP (go p1)
  20397. 936.20 s [opt-env-conf-test] - case eor of
  20398. 936.20 s [opt-env-conf-test] - Just a -> do
  20399. 936.20 s [opt-env-conf-test] - debug ["Left side succeeded."]
  20400. 936.20 s [opt-env-conf-test] - pure a
  20401. 936.20 s [opt-env-conf-test] - Nothing -> do
  20402. 936.20 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  20403. 936.20 s [opt-env-conf-test] - ppIndent $ go p2
  20404. 936.20 s [opt-env-conf-test] + ParserAlt p1 p2 -> do
  20405. 936.20 s [opt-env-conf-test] + debug [syntaxChunk "Alt"]
  20406. 936.20 s [opt-env-conf-test] + ppIndent $ do
  20407. 936.20 s [opt-env-conf-test] + debug ["Trying left side."]
  20408. 936.20 s [opt-env-conf-test] + eor <- ppIndent $ tryPP (go p1)
  20409. 936.20 s [opt-env-conf-test] + case eor of
  20410. 936.20 s [opt-env-conf-test] + Just a -> do
  20411. 936.20 s [opt-env-conf-test] + debug ["Left side succeeded."]
  20412. 936.20 s [opt-env-conf-test] + pure a
  20413. 936.20 s [opt-env-conf-test] + Nothing -> do
  20414. 936.20 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  20415. 936.20 s [opt-env-conf-test] + ppIndent $ go p2
  20416. 936.20 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20417. 936.20 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20418. 936.20 s [opt-env-conf-test] ppIndent $ go p'
  20419. 936.20 s [opt-env-conf-test]
  20420. 936.20 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  20421. 936.20 s [opt-env-conf-test] @@ -546,13 +546,13 @@
  20422. 936.20 s [opt-env-conf-test] ppIndent $ do
  20423. 936.20 s [opt-env-conf-test] debug ["Trying left side."]
  20424. 936.20 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  20425. 936.20 s [opt-env-conf-test] - case eor of
  20426. 936.20 s [opt-env-conf-test] - Just a -> do
  20427. 936.20 s [opt-env-conf-test] - debug ["Left side succeeded."]
  20428. 936.20 s [opt-env-conf-test] - pure a
  20429. 936.20 s [opt-env-conf-test] - Nothing -> do
  20430. 936.20 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  20431. 936.20 s [opt-env-conf-test] - ppIndent $ go p2
  20432. 936.20 s [opt-env-conf-test] + case eor of
  20433. 936.20 s [opt-env-conf-test] + Just a -> do
  20434. 936.20 s [opt-env-conf-test] + debug ["Left side succeeded."]
  20435. 936.20 s [opt-env-conf-test] + pure a
  20436. 936.20 s [opt-env-conf-test] + Nothing -> do
  20437. 936.20 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  20438. 936.20 s [opt-env-conf-test] + ppIndent $ go p2
  20439. 936.20 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20440. 936.20 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20441. 936.20 s [opt-env-conf-test] ppIndent $ go p'
  20442. 936.20 s [opt-env-conf-test]
  20443. 936.20 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:529:31-33
  20444. 936.20 s [opt-env-conf-test] @@ -526,12 +526,12 @@
  20445. 936.20 s [opt-env-conf-test] ParserPure _ -> do
  20446. 936.20 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  20447. 936.20 s [opt-env-conf-test] pure Nothing
  20448. 936.20 s [opt-env-conf-test] - ParserAp ff fa -> do
  20449. 936.20 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  20450. 936.20 s [opt-env-conf-test] - ppIndent $ do
  20451. 936.20 s [opt-env-conf-test] - mf <- go ff
  20452. 936.20 s [opt-env-conf-test] - ma <- go fa
  20453. 936.20 s [opt-env-conf-test] - pure $ ma <|> mf -- Reverse order
  20454. 936.20 s [opt-env-conf-test] + ParserAp ff fa -> do
  20455. 936.20 s [opt-env-conf-test] + debug [syntaxChunk "Ap"]
  20456. 936.20 s [opt-env-conf-test] + ppIndent $ do
  20457. 936.20 s [opt-env-conf-test] + mf <- go ff
  20458. 936.20 s [opt-env-conf-test] + ma <- go fa
  20459. 936.20 s [opt-env-conf-test] + pure $ ma <|> mf -- Reverse order
  20460. 936.20 s [opt-env-conf-test] ParserSelect fe ff -> do
  20461. 936.20 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  20462. 936.20 s [opt-env-conf-test] ppIndent $ do
  20463. 936.20 s [opt-env-conf-test]
  20464. 936.20 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  20465. 936.20 s [opt-env-conf-test] @@ -511,11 +511,11 @@
  20466. 936.20 s [opt-env-conf-test] ppEnvIndent = 0
  20467. 936.20 s [opt-env-conf-test] }
  20468. 936.20 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  20469. 936.20 s [opt-env-conf-test] - case mResOrNext of
  20470. 936.20 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  20471. 936.20 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  20472. 936.20 s [opt-env-conf-test] - Failure errs -> Left errs
  20473. 936.20 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  20474. 936.20 s [opt-env-conf-test] + case mResOrNext of
  20475. 936.20 s [opt-env-conf-test] + Nothing -> pure $ Right Nothing
  20476. 936.20 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  20477. 936.20 s [opt-env-conf-test] + Failure errs -> Left errs
  20478. 936.20 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  20479. 936.20 s [opt-env-conf-test] where
  20480. 936.20 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  20481. 936.20 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  20482. 936.20 s [opt-env-conf-test]
  20483. 936.20 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  20484. 936.20 s [opt-env-conf-test] @@ -513,9 +513,9 @@
  20485. 936.20 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  20486. 936.20 s [opt-env-conf-test] case mResOrNext of
  20487. 936.20 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  20488. 936.20 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  20489. 936.20 s [opt-env-conf-test] - Failure errs -> Left errs
  20490. 936.20 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  20491. 936.20 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  20492. 936.20 s [opt-env-conf-test] + Failure errs -> Left errs
  20493. 936.20 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  20494. 936.20 s [opt-env-conf-test] where
  20495. 936.20 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  20496. 936.20 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  20497. 936.20 s [opt-env-conf-test]
  20498. 936.20 s [opt-env-conf-test] IntLit at src/OptEnvConf/Run.hs:511:27-28
  20499. 936.20 s [opt-env-conf-test] @@ -508,7 +508,7 @@
  20500. 936.20 s [opt-env-conf-test] { ppEnvEnv = EnvMap.empty,
  20501. 936.20 s [opt-env-conf-test] ppEnvConf = Nothing,
  20502. 936.20 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  20503. 936.20 s [opt-env-conf-test] - ppEnvIndent = 0
  20504. 936.20 s [opt-env-conf-test] + ppEnvIndent = 1
  20505. 936.20 s [opt-env-conf-test] }
  20506. 936.20 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  20507. 936.20 s [opt-env-conf-test] case mResOrNext of
  20508. 936.20 s [opt-env-conf-test]
  20509. 936.20 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  20510. 936.20 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  20511. 936.20 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  20512. 936.20 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  20513. 936.20 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  20514. 936.20 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  20515. 936.20 s [opt-env-conf-test] - (Nothing, _) -> o2
  20516. 936.20 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  20517. 936.20 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20518. 936.20 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  20519. 936.20 s [opt-env-conf-test] + (Nothing, _) -> o2
  20520. 936.20 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  20521. 936.20 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20522. 936.20 s [opt-env-conf-test]
  20523. 936.20 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  20524. 936.20 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20525. 936.20 s [opt-env-conf-test]
  20526. 936.20 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  20527. 936.20 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  20528. 936.20 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  20529. 936.20 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  20530. 936.20 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  20531. 936.20 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  20532. 936.20 s [opt-env-conf-test] - (Nothing, _) -> o2
  20533. 936.20 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  20534. 936.20 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20535. 936.20 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  20536. 936.20 s [opt-env-conf-test] + (Nothing, _) -> o2
  20537. 936.20 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  20538. 936.20 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20539. 936.20 s [opt-env-conf-test]
  20540. 936.20 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  20541. 936.20 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20542. 936.20 s [opt-env-conf-test]
  20543. 936.20 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  20544. 936.20 s [opt-env-conf-test] @@ -91,8 +91,8 @@
  20545. 936.20 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20546. 936.20 s [opt-env-conf-test]
  20547. 936.20 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  20548. 936.20 s [opt-env-conf-test] - combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20549. 936.20 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  20550. 936.20 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  20551. 936.20 s [opt-env-conf-test] + combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20552. 936.20 s [opt-env-conf-test] + (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  20553. 936.20 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  20554. 936.20 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  20555. 936.20 s [opt-env-conf-test] goCommand = go . commandParser
  20556. 936.20 s [opt-env-conf-test]
  20557. 936.20 s [opt-env-conf-test] ListLit at src/OptEnvConf/Nix.hs:96:28-38
  20558. 936.20 s [opt-env-conf-test] @@ -93,6 +93,6 @@
  20559. 936.20 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  20560. 936.20 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20561. 936.20 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  20562. 936.20 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  20563. 936.20 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  20564. 936.20 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  20565. 936.20 s [opt-env-conf-test] goCommand = go . commandParser
  20566. 936.20 s [opt-env-conf-test]
  20567. 936.20 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20568. 936.20 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20569. 936.20 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20570. 936.20 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20571. 936.20 s [opt-env-conf-test] exitFailure
  20572. 936.20 s [opt-env-conf-test] - Right i -> case i of
  20573. 936.20 s [opt-env-conf-test] - ShowVersion -> do
  20574. 936.20 s [opt-env-conf-test] - progname <- getProgName
  20575. 936.20 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20576. 936.20 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20577. 936.20 s [opt-env-conf-test] - exitSuccess
  20578. 936.20 s [opt-env-conf-test] - RenderMan -> do
  20579. 936.20 s [opt-env-conf-test] - progname <- getProgName
  20580. 936.20 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20581. 936.20 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20582. 936.20 s [opt-env-conf-test] - exitSuccess
  20583. 936.20 s [opt-env-conf-test] - RenderDocumentation -> do
  20584. 936.20 s [opt-env-conf-test] - progname <- getProgName
  20585. 936.20 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20586. 936.20 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20587. 936.20 s [opt-env-conf-test] - exitSuccess
  20588. 936.20 s [opt-env-conf-test] - RenderNixosOptions -> do
  20589. 936.20 s [opt-env-conf-test] - progname <- getProgName
  20590. 936.20 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20591. 936.20 s [opt-env-conf-test] - exitSuccess
  20592. 936.20 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20593. 936.20 s [opt-env-conf-test] - progname <- getProgName
  20594. 936.20 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20595. 936.20 s [opt-env-conf-test] - exitSuccess
  20596. 936.20 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20597. 936.20 s [opt-env-conf-test] - progname <- getProgName
  20598. 936.20 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20599. 936.20 s [opt-env-conf-test] - exitSuccess
  20600. 936.20 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20601. 936.20 s [opt-env-conf-test] - progname <- getProgName
  20602. 936.20 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20603. 936.20 s [opt-env-conf-test] - exitSuccess
  20604. 936.21 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20605. 936.21 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20606. 936.21 s [opt-env-conf-test] - exitSuccess
  20607. 936.21 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20608. 936.21 s [opt-env-conf-test] + Right i -> case i of
  20609. 936.21 s [opt-env-conf-test] + ShowVersion -> do
  20610. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20611. 936.21 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20612. 936.21 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20613. 936.21 s [opt-env-conf-test] + exitSuccess
  20614. 936.21 s [opt-env-conf-test] + RenderMan -> do
  20615. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20616. 936.21 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20617. 936.21 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20618. 936.21 s [opt-env-conf-test] + exitSuccess
  20619. 936.21 s [opt-env-conf-test] + RenderDocumentation -> do
  20620. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20621. 936.21 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20622. 936.21 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20623. 936.21 s [opt-env-conf-test] + exitSuccess
  20624. 936.21 s [opt-env-conf-test] + RenderNixosOptions -> do
  20625. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20626. 936.21 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20627. 936.21 s [opt-env-conf-test] + exitSuccess
  20628. 936.21 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20629. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20630. 936.21 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20631. 936.21 s [opt-env-conf-test] + exitSuccess
  20632. 936.21 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20633. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20634. 936.21 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20635. 936.21 s [opt-env-conf-test] + exitSuccess
  20636. 936.21 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20637. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20638. 936.21 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20639. 936.21 s [opt-env-conf-test] + exitSuccess
  20640. 936.21 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20641. 936.21 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20642. 936.21 s [opt-env-conf-test] + exitSuccess
  20643. 936.21 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20644. 936.21 s [opt-env-conf-test]
  20645. 936.21 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.
  20646. 936.21 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20647. 936.21 s [opt-env-conf-test]
  20648. 936.21 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20649. 936.21 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20650. 936.21 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20651. 936.21 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20652. 936.21 s [opt-env-conf-test] exitFailure
  20653. 936.21 s [opt-env-conf-test] - Right i -> case i of
  20654. 936.21 s [opt-env-conf-test] - ShowVersion -> do
  20655. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20656. 936.21 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20657. 936.21 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20658. 936.21 s [opt-env-conf-test] - exitSuccess
  20659. 936.21 s [opt-env-conf-test] - RenderMan -> do
  20660. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20661. 936.21 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20662. 936.21 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20663. 936.21 s [opt-env-conf-test] - exitSuccess
  20664. 936.21 s [opt-env-conf-test] - RenderDocumentation -> do
  20665. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20666. 936.21 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20667. 936.21 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20668. 936.21 s [opt-env-conf-test] - exitSuccess
  20669. 936.21 s [opt-env-conf-test] - RenderNixosOptions -> do
  20670. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20671. 936.21 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20672. 936.21 s [opt-env-conf-test] - exitSuccess
  20673. 936.21 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20674. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20675. 936.21 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20676. 936.21 s [opt-env-conf-test] - exitSuccess
  20677. 936.21 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20678. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20679. 936.21 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20680. 936.21 s [opt-env-conf-test] - exitSuccess
  20681. 936.21 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20682. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20683. 936.21 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20684. 936.21 s [opt-env-conf-test] - exitSuccess
  20685. 936.21 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20686. 936.21 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20687. 936.21 s [opt-env-conf-test] - exitSuccess
  20688. 936.21 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20689. 936.21 s [opt-env-conf-test] + Right i -> case i of
  20690. 936.21 s [opt-env-conf-test] + ShowVersion -> do
  20691. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20692. 936.21 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20693. 936.21 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20694. 936.21 s [opt-env-conf-test] + exitSuccess
  20695. 936.21 s [opt-env-conf-test] + RenderMan -> do
  20696. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20697. 936.21 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20698. 936.21 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20699. 936.21 s [opt-env-conf-test] + exitSuccess
  20700. 936.21 s [opt-env-conf-test] + RenderDocumentation -> do
  20701. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20702. 936.21 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20703. 936.21 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20704. 936.21 s [opt-env-conf-test] + exitSuccess
  20705. 936.21 s [opt-env-conf-test] + RenderNixosOptions -> do
  20706. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20707. 936.21 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20708. 936.21 s [opt-env-conf-test] + exitSuccess
  20709. 936.21 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20710. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20711. 936.21 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20712. 936.21 s [opt-env-conf-test] + exitSuccess
  20713. 936.21 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20714. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20715. 936.21 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20716. 936.21 s [opt-env-conf-test] + exitSuccess
  20717. 936.21 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20718. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20719. 936.21 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20720. 936.21 s [opt-env-conf-test] + exitSuccess
  20721. 936.21 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20722. 936.21 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20723. 936.21 s [opt-env-conf-test] + exitSuccess
  20724. 936.21 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20725. 936.21 s [opt-env-conf-test]
  20726. 936.21 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.
  20727. 936.21 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20728. 936.21 s [opt-env-conf-test]
  20729. 936.21 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20730. 936.21 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20731. 936.21 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20732. 936.21 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20733. 936.21 s [opt-env-conf-test] exitFailure
  20734. 936.21 s [opt-env-conf-test] - Right i -> case i of
  20735. 936.21 s [opt-env-conf-test] - ShowVersion -> do
  20736. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20737. 936.21 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20738. 936.21 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20739. 936.21 s [opt-env-conf-test] - exitSuccess
  20740. 936.21 s [opt-env-conf-test] - RenderMan -> do
  20741. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20742. 936.21 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20743. 936.21 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20744. 936.21 s [opt-env-conf-test] - exitSuccess
  20745. 936.21 s [opt-env-conf-test] - RenderDocumentation -> do
  20746. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20747. 936.21 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20748. 936.21 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20749. 936.21 s [opt-env-conf-test] - exitSuccess
  20750. 936.21 s [opt-env-conf-test] - RenderNixosOptions -> do
  20751. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20752. 936.21 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20753. 936.21 s [opt-env-conf-test] - exitSuccess
  20754. 936.21 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20755. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20756. 936.21 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20757. 936.21 s [opt-env-conf-test] - exitSuccess
  20758. 936.21 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20759. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20760. 936.21 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20761. 936.21 s [opt-env-conf-test] - exitSuccess
  20762. 936.21 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20763. 936.21 s [opt-env-conf-test] - progname <- getProgName
  20764. 936.21 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20765. 936.21 s [opt-env-conf-test] - exitSuccess
  20766. 936.21 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20767. 936.21 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20768. 936.21 s [opt-env-conf-test] - exitSuccess
  20769. 936.21 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20770. 936.21 s [opt-env-conf-test] + Right i -> case i of
  20771. 936.21 s [opt-env-conf-test] + ShowVersion -> do
  20772. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20773. 936.21 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20774. 936.21 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20775. 936.21 s [opt-env-conf-test] + exitSuccess
  20776. 936.21 s [opt-env-conf-test] + RenderMan -> do
  20777. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20778. 936.21 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20779. 936.21 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20780. 936.21 s [opt-env-conf-test] + exitSuccess
  20781. 936.21 s [opt-env-conf-test] + RenderDocumentation -> do
  20782. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20783. 936.21 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20784. 936.21 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20785. 936.21 s [opt-env-conf-test] + exitSuccess
  20786. 936.21 s [opt-env-conf-test] + RenderNixosOptions -> do
  20787. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20788. 936.21 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20789. 936.21 s [opt-env-conf-test] + exitSuccess
  20790. 936.21 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20791. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20792. 936.21 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20793. 936.21 s [opt-env-conf-test] + exitSuccess
  20794. 936.21 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20795. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20796. 936.21 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20797. 936.21 s [opt-env-conf-test] + exitSuccess
  20798. 936.21 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20799. 936.21 s [opt-env-conf-test] + progname <- getProgName
  20800. 936.21 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20801. 936.21 s [opt-env-conf-test] + exitSuccess
  20802. 936.21 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20803. 936.21 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20804. 936.21 s [opt-env-conf-test] + exitSuccess
  20805. 936.21 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20806. 936.21 s [opt-env-conf-test]
  20807. 936.21 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.
  20808. 936.21 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20809. 936.21 s [opt-env-conf-test]
  20810. 936.21 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20811. 936.21 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20812. 936.21 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20813. 936.21 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20814. 936.21 s [opt-env-conf-test] exitFailure
  20815. 936.21 s [opt-env-conf-test] - Right i -> case i of
  20816. 936.21 s [opt-env-conf-test] - ShowVersion -> do
  20817. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20818. 936.22 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20819. 936.22 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20820. 936.22 s [opt-env-conf-test] - exitSuccess
  20821. 936.22 s [opt-env-conf-test] - RenderMan -> do
  20822. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20823. 936.22 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20824. 936.22 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20825. 936.22 s [opt-env-conf-test] - exitSuccess
  20826. 936.22 s [opt-env-conf-test] - RenderDocumentation -> do
  20827. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20828. 936.22 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20829. 936.22 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20830. 936.22 s [opt-env-conf-test] - exitSuccess
  20831. 936.22 s [opt-env-conf-test] - RenderNixosOptions -> do
  20832. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20833. 936.22 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20834. 936.22 s [opt-env-conf-test] - exitSuccess
  20835. 936.22 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20836. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20837. 936.22 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20838. 936.22 s [opt-env-conf-test] - exitSuccess
  20839. 936.22 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20840. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20841. 936.22 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20842. 936.22 s [opt-env-conf-test] - exitSuccess
  20843. 936.22 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20844. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20845. 936.22 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20846. 936.22 s [opt-env-conf-test] - exitSuccess
  20847. 936.22 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20848. 936.22 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20849. 936.22 s [opt-env-conf-test] - exitSuccess
  20850. 936.22 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20851. 936.22 s [opt-env-conf-test] + Right i -> case i of
  20852. 936.22 s [opt-env-conf-test] + ShowVersion -> do
  20853. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20854. 936.22 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20855. 936.22 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20856. 936.22 s [opt-env-conf-test] + exitSuccess
  20857. 936.22 s [opt-env-conf-test] + RenderMan -> do
  20858. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20859. 936.22 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20860. 936.22 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20861. 936.22 s [opt-env-conf-test] + exitSuccess
  20862. 936.22 s [opt-env-conf-test] + RenderDocumentation -> do
  20863. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20864. 936.22 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20865. 936.22 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20866. 936.22 s [opt-env-conf-test] + exitSuccess
  20867. 936.22 s [opt-env-conf-test] + RenderNixosOptions -> do
  20868. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20869. 936.22 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20870. 936.22 s [opt-env-conf-test] + exitSuccess
  20871. 936.22 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20872. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20873. 936.22 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20874. 936.22 s [opt-env-conf-test] + exitSuccess
  20875. 936.22 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20876. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20877. 936.22 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20878. 936.22 s [opt-env-conf-test] + exitSuccess
  20879. 936.22 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20880. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20881. 936.22 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20882. 936.22 s [opt-env-conf-test] + exitSuccess
  20883. 936.22 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20884. 936.22 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20885. 936.22 s [opt-env-conf-test] + exitSuccess
  20886. 936.22 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20887. 936.22 s [opt-env-conf-test]
  20888. 936.22 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.
  20889. 936.22 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20890. 936.22 s [opt-env-conf-test]
  20891. 936.22 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20892. 936.22 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20893. 936.22 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20894. 936.22 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20895. 936.22 s [opt-env-conf-test] exitFailure
  20896. 936.22 s [opt-env-conf-test] - Right i -> case i of
  20897. 936.22 s [opt-env-conf-test] - ShowVersion -> do
  20898. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20899. 936.22 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20900. 936.22 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20901. 936.22 s [opt-env-conf-test] - exitSuccess
  20902. 936.22 s [opt-env-conf-test] - RenderMan -> do
  20903. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20904. 936.22 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20905. 936.22 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20906. 936.22 s [opt-env-conf-test] - exitSuccess
  20907. 936.22 s [opt-env-conf-test] - RenderDocumentation -> do
  20908. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20909. 936.22 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20910. 936.22 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20911. 936.22 s [opt-env-conf-test] - exitSuccess
  20912. 936.22 s [opt-env-conf-test] - RenderNixosOptions -> do
  20913. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20914. 936.22 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20915. 936.22 s [opt-env-conf-test] - exitSuccess
  20916. 936.22 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20917. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20918. 936.22 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20919. 936.22 s [opt-env-conf-test] - exitSuccess
  20920. 936.22 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20921. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20922. 936.22 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20923. 936.22 s [opt-env-conf-test] - exitSuccess
  20924. 936.22 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20925. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20926. 936.22 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20927. 936.22 s [opt-env-conf-test] - exitSuccess
  20928. 936.22 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20929. 936.22 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20930. 936.22 s [opt-env-conf-test] - exitSuccess
  20931. 936.22 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20932. 936.22 s [opt-env-conf-test] + Right i -> case i of
  20933. 936.22 s [opt-env-conf-test] + ShowVersion -> do
  20934. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20935. 936.22 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20936. 936.22 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20937. 936.22 s [opt-env-conf-test] + exitSuccess
  20938. 936.22 s [opt-env-conf-test] + RenderMan -> do
  20939. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20940. 936.22 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20941. 936.22 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20942. 936.22 s [opt-env-conf-test] + exitSuccess
  20943. 936.22 s [opt-env-conf-test] + RenderDocumentation -> do
  20944. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20945. 936.22 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20946. 936.22 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20947. 936.22 s [opt-env-conf-test] + exitSuccess
  20948. 936.22 s [opt-env-conf-test] + RenderNixosOptions -> do
  20949. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20950. 936.22 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20951. 936.22 s [opt-env-conf-test] + exitSuccess
  20952. 936.22 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20953. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20954. 936.22 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20955. 936.22 s [opt-env-conf-test] + exitSuccess
  20956. 936.22 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20957. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20958. 936.22 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20959. 936.22 s [opt-env-conf-test] + exitSuccess
  20960. 936.22 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20961. 936.22 s [opt-env-conf-test] + progname <- getProgName
  20962. 936.22 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20963. 936.22 s [opt-env-conf-test] + exitSuccess
  20964. 936.22 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20965. 936.22 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20966. 936.22 s [opt-env-conf-test] + exitSuccess
  20967. 936.22 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20968. 936.22 s [opt-env-conf-test]
  20969. 936.22 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.
  20970. 936.22 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20971. 936.22 s [opt-env-conf-test]
  20972. 936.22 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20973. 936.22 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20974. 936.22 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20975. 936.22 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20976. 936.22 s [opt-env-conf-test] exitFailure
  20977. 936.22 s [opt-env-conf-test] - Right i -> case i of
  20978. 936.22 s [opt-env-conf-test] - ShowVersion -> do
  20979. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20980. 936.22 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20981. 936.22 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20982. 936.22 s [opt-env-conf-test] - exitSuccess
  20983. 936.22 s [opt-env-conf-test] - RenderMan -> do
  20984. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20985. 936.22 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20986. 936.22 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20987. 936.22 s [opt-env-conf-test] - exitSuccess
  20988. 936.22 s [opt-env-conf-test] - RenderDocumentation -> do
  20989. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20990. 936.22 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20991. 936.22 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20992. 936.22 s [opt-env-conf-test] - exitSuccess
  20993. 936.22 s [opt-env-conf-test] - RenderNixosOptions -> do
  20994. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20995. 936.22 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20996. 936.22 s [opt-env-conf-test] - exitSuccess
  20997. 936.22 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20998. 936.22 s [opt-env-conf-test] - progname <- getProgName
  20999. 936.22 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  21000. 936.22 s [opt-env-conf-test] - exitSuccess
  21001. 936.22 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  21002. 936.22 s [opt-env-conf-test] - progname <- getProgName
  21003. 936.22 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  21004. 936.22 s [opt-env-conf-test] - exitSuccess
  21005. 936.22 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  21006. 936.22 s [opt-env-conf-test] - progname <- getProgName
  21007. 936.22 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  21008. 936.22 s [opt-env-conf-test] - exitSuccess
  21009. 936.22 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  21010. 936.22 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  21011. 936.22 s [opt-env-conf-test] - exitSuccess
  21012. 936.22 s [opt-env-conf-test] - ParsedNormally a -> pure a
  21013. 936.22 s [opt-env-conf-test] + Right i -> case i of
  21014. 936.22 s [opt-env-conf-test] + ShowVersion -> do
  21015. 936.22 s [opt-env-conf-test] + progname <- getProgName
  21016. 936.22 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21017. 936.22 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  21018. 936.22 s [opt-env-conf-test] + exitSuccess
  21019. 936.22 s [opt-env-conf-test] + RenderMan -> do
  21020. 936.22 s [opt-env-conf-test] + progname <- getProgName
  21021. 936.22 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21022. 936.22 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  21023. 936.22 s [opt-env-conf-test] + exitSuccess
  21024. 936.22 s [opt-env-conf-test] + RenderDocumentation -> do
  21025. 936.22 s [opt-env-conf-test] + progname <- getProgName
  21026. 936.22 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21027. 936.22 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  21028. 936.22 s [opt-env-conf-test] + exitSuccess
  21029. 936.22 s [opt-env-conf-test] + RenderNixosOptions -> do
  21030. 936.22 s [opt-env-conf-test] + progname <- getProgName
  21031. 936.22 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21032. 936.22 s [opt-env-conf-test] + exitSuccess
  21033. 936.22 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  21034. 936.22 s [opt-env-conf-test] + progname <- getProgName
  21035. 936.22 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  21036. 936.22 s [opt-env-conf-test] + exitSuccess
  21037. 936.22 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  21038. 936.22 s [opt-env-conf-test] + progname <- getProgName
  21039. 936.22 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  21040. 936.23 s [opt-env-conf-test] + exitSuccess
  21041. 936.23 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  21042. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21043. 936.23 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  21044. 936.23 s [opt-env-conf-test] + exitSuccess
  21045. 936.23 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  21046. 936.23 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  21047. 936.23 s [opt-env-conf-test] + exitSuccess
  21048. 936.23 s [opt-env-conf-test] + ParsedNormally a -> pure a
  21049. 936.23 s [opt-env-conf-test]
  21050. 936.23 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.
  21051. 936.23 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  21052. 936.23 s [opt-env-conf-test]
  21053. 936.23 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  21054. 936.23 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  21055. 936.23 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  21056. 936.23 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  21057. 936.23 s [opt-env-conf-test] exitFailure
  21058. 936.23 s [opt-env-conf-test] - Right i -> case i of
  21059. 936.23 s [opt-env-conf-test] - ShowVersion -> do
  21060. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21061. 936.23 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21062. 936.23 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  21063. 936.23 s [opt-env-conf-test] - exitSuccess
  21064. 936.23 s [opt-env-conf-test] - RenderMan -> do
  21065. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21066. 936.23 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21067. 936.23 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  21068. 936.23 s [opt-env-conf-test] - exitSuccess
  21069. 936.23 s [opt-env-conf-test] - RenderDocumentation -> do
  21070. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21071. 936.23 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21072. 936.23 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  21073. 936.23 s [opt-env-conf-test] - exitSuccess
  21074. 936.23 s [opt-env-conf-test] - RenderNixosOptions -> do
  21075. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21076. 936.23 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21077. 936.23 s [opt-env-conf-test] - exitSuccess
  21078. 936.23 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  21079. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21080. 936.23 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  21081. 936.23 s [opt-env-conf-test] - exitSuccess
  21082. 936.23 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  21083. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21084. 936.23 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  21085. 936.23 s [opt-env-conf-test] - exitSuccess
  21086. 936.23 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  21087. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21088. 936.23 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  21089. 936.23 s [opt-env-conf-test] - exitSuccess
  21090. 936.23 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  21091. 936.23 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  21092. 936.23 s [opt-env-conf-test] - exitSuccess
  21093. 936.23 s [opt-env-conf-test] - ParsedNormally a -> pure a
  21094. 936.23 s [opt-env-conf-test] + Right i -> case i of
  21095. 936.23 s [opt-env-conf-test] + ShowVersion -> do
  21096. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21097. 936.23 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21098. 936.23 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  21099. 936.23 s [opt-env-conf-test] + exitSuccess
  21100. 936.23 s [opt-env-conf-test] + RenderMan -> do
  21101. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21102. 936.23 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21103. 936.23 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  21104. 936.23 s [opt-env-conf-test] + exitSuccess
  21105. 936.23 s [opt-env-conf-test] + RenderDocumentation -> do
  21106. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21107. 936.23 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21108. 936.23 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  21109. 936.23 s [opt-env-conf-test] + exitSuccess
  21110. 936.23 s [opt-env-conf-test] + RenderNixosOptions -> do
  21111. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21112. 936.23 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21113. 936.23 s [opt-env-conf-test] + exitSuccess
  21114. 936.23 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  21115. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21116. 936.23 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  21117. 936.23 s [opt-env-conf-test] + exitSuccess
  21118. 936.23 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  21119. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21120. 936.23 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  21121. 936.23 s [opt-env-conf-test] + exitSuccess
  21122. 936.23 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  21123. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21124. 936.23 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  21125. 936.23 s [opt-env-conf-test] + exitSuccess
  21126. 936.23 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  21127. 936.23 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  21128. 936.23 s [opt-env-conf-test] + exitSuccess
  21129. 936.23 s [opt-env-conf-test] + ParsedNormally a -> pure a
  21130. 936.23 s [opt-env-conf-test]
  21131. 936.23 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.
  21132. 936.23 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  21133. 936.23 s [opt-env-conf-test]
  21134. 936.23 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  21135. 936.23 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  21136. 936.23 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  21137. 936.23 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  21138. 936.23 s [opt-env-conf-test] exitFailure
  21139. 936.23 s [opt-env-conf-test] - Right i -> case i of
  21140. 936.23 s [opt-env-conf-test] - ShowVersion -> do
  21141. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21142. 936.23 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21143. 936.23 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  21144. 936.23 s [opt-env-conf-test] - exitSuccess
  21145. 936.23 s [opt-env-conf-test] - RenderMan -> do
  21146. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21147. 936.23 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21148. 936.23 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  21149. 936.23 s [opt-env-conf-test] - exitSuccess
  21150. 936.23 s [opt-env-conf-test] - RenderDocumentation -> do
  21151. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21152. 936.23 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21153. 936.23 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  21154. 936.23 s [opt-env-conf-test] - exitSuccess
  21155. 936.23 s [opt-env-conf-test] - RenderNixosOptions -> do
  21156. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21157. 936.23 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21158. 936.23 s [opt-env-conf-test] - exitSuccess
  21159. 936.23 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  21160. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21161. 936.23 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  21162. 936.23 s [opt-env-conf-test] - exitSuccess
  21163. 936.23 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  21164. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21165. 936.23 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  21166. 936.23 s [opt-env-conf-test] - exitSuccess
  21167. 936.23 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  21168. 936.23 s [opt-env-conf-test] - progname <- getProgName
  21169. 936.23 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  21170. 936.23 s [opt-env-conf-test] - exitSuccess
  21171. 936.23 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  21172. 936.23 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  21173. 936.23 s [opt-env-conf-test] - exitSuccess
  21174. 936.23 s [opt-env-conf-test] - ParsedNormally a -> pure a
  21175. 936.23 s [opt-env-conf-test] + Right i -> case i of
  21176. 936.23 s [opt-env-conf-test] + ShowVersion -> do
  21177. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21178. 936.23 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21179. 936.23 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  21180. 936.23 s [opt-env-conf-test] + exitSuccess
  21181. 936.23 s [opt-env-conf-test] + RenderMan -> do
  21182. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21183. 936.23 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21184. 936.23 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  21185. 936.23 s [opt-env-conf-test] + exitSuccess
  21186. 936.23 s [opt-env-conf-test] + RenderDocumentation -> do
  21187. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21188. 936.23 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21189. 936.23 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  21190. 936.23 s [opt-env-conf-test] + exitSuccess
  21191. 936.23 s [opt-env-conf-test] + RenderNixosOptions -> do
  21192. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21193. 936.23 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21194. 936.23 s [opt-env-conf-test] + exitSuccess
  21195. 936.23 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  21196. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21197. 936.23 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  21198. 936.23 s [opt-env-conf-test] + exitSuccess
  21199. 936.23 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  21200. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21201. 936.23 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  21202. 936.23 s [opt-env-conf-test] + exitSuccess
  21203. 936.23 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  21204. 936.23 s [opt-env-conf-test] + progname <- getProgName
  21205. 936.23 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  21206. 936.23 s [opt-env-conf-test] + exitSuccess
  21207. 936.23 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  21208. 936.23 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  21209. 936.23 s [opt-env-conf-test] + exitSuccess
  21210. 936.23 s [opt-env-conf-test] + ParsedNormally a -> pure a
  21211. 936.23 s [opt-env-conf-test]
  21212. 936.23 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.
  21213. 936.23 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  21214. 936.23 s [opt-env-conf-test]
  21215. 936.23 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  21216. 936.23 s [opt-env-conf-test] @@ -97,9 +97,9 @@
  21217. 936.23 s [opt-env-conf-test] exitFailure
  21218. 936.23 s [opt-env-conf-test] Right mCommandDoc -> do
  21219. 936.23 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  21220. 936.23 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  21221. 936.23 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  21222. 936.23 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  21223. 936.23 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  21224. 936.23 s [opt-env-conf-test] + Nothing -> renderHelpPage progname version progDesc docs
  21225. 936.23 s [opt-env-conf-test] + Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  21226. 936.23 s [opt-env-conf-test] exitSuccess
  21227. 936.23 s [opt-env-conf-test] else do
  21228. 936.23 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  21229. 936.23 s [opt-env-conf-test]
  21230. 936.23 s [opt-env-conf-test] CondFlip at src/OptEnvConf/Main.hs:83:9-28
  21231. 936.23 s [opt-env-conf-test] @@ -80,9 +80,9 @@
  21232. 936.23 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  21233. 936.23 s [opt-env-conf-test]
  21234. 936.23 s [opt-env-conf-test] mDebugMode <-
  21235. 936.23 s [opt-env-conf-test] - if debugMode
  21236. 936.23 s [opt-env-conf-test] - then Just <$> getTerminalCapabilitiesFromHandle stderr
  21237. 936.23 s [opt-env-conf-test] - else pure Nothing
  21238. 936.23 s [opt-env-conf-test] + if debugMode
  21239. 936.23 s [opt-env-conf-test] + then Just <$> getTerminalCapabilitiesFromHandle stderr
  21240. 936.23 s [opt-env-conf-test] + else pure Nothing
  21241. 936.23 s [opt-env-conf-test]
  21242. 936.23 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  21243. 936.23 s [opt-env-conf-test]
  21244. 936.23 s [opt-env-conf-test]
  21245. 936.23 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:83:12-21
  21246. 936.23 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  21247. 936.23 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  21248. 936.23 s [opt-env-conf-test]
  21249. 936.23 s [opt-env-conf-test] mDebugMode <-
  21250. 936.23 s [opt-env-conf-test] - if debugMode
  21251. 936.23 s [opt-env-conf-test] + if not (debugMode)
  21252. 936.23 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  21253. 936.23 s [opt-env-conf-test] else pure Nothing
  21254. 936.23 s [opt-env-conf-test]
  21255. 936.23 s [opt-env-conf-test]
  21256. 936.23 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  21257. 936.23 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  21258. 936.23 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  21259. 936.23 s [opt-env-conf-test]
  21260. 936.23 s [opt-env-conf-test] mDebugMode <-
  21261. 936.23 s [opt-env-conf-test] - if debugMode
  21262. 936.23 s [opt-env-conf-test] + if False
  21263. 936.23 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  21264. 936.24 s [opt-env-conf-test] else pure Nothing
  21265. 936.24 s [opt-env-conf-test]
  21266. 936.24 s [opt-env-conf-test]
  21267. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  21268. 936.24 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  21269. 936.24 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  21270. 936.24 s [opt-env-conf-test]
  21271. 936.24 s [opt-env-conf-test] mDebugMode <-
  21272. 936.24 s [opt-env-conf-test] - if debugMode
  21273. 936.24 s [opt-env-conf-test] + if True
  21274. 936.24 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  21275. 936.24 s [opt-env-conf-test] else pure Nothing
  21276. 936.24 s [opt-env-conf-test]
  21277. 936.24 s [opt-env-conf-test]
  21278. 936.24 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:175:18-23
  21279. 936.24 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  21280. 936.24 s [opt-env-conf-test] | x == arg -> (True, xs)
  21281. 936.24 s [opt-env-conf-test] | otherwise ->
  21282. 936.24 s [opt-env-conf-test] let (found, rest) = go xs
  21283. 936.24 s [opt-env-conf-test] - in (found, x : rest)
  21284. 936.24 s [opt-env-conf-test] + in (not (found), x : rest)
  21285. 936.24 s [opt-env-conf-test]
  21286. 936.24 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  21287. 936.24 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  21288. 936.24 s [opt-env-conf-test]
  21289. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:175:18-23
  21290. 936.24 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  21291. 936.24 s [opt-env-conf-test] | x == arg -> (True, xs)
  21292. 936.24 s [opt-env-conf-test] | otherwise ->
  21293. 936.24 s [opt-env-conf-test] let (found, rest) = go xs
  21294. 936.24 s [opt-env-conf-test] - in (found, x : rest)
  21295. 936.24 s [opt-env-conf-test] + in (False, x : rest)
  21296. 936.24 s [opt-env-conf-test]
  21297. 936.24 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  21298. 936.24 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  21299. 936.24 s [opt-env-conf-test]
  21300. 936.24 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  21301. 936.24 s [opt-env-conf-test] @@ -196,13 +196,13 @@
  21302. 936.24 s [opt-env-conf-test] [] -> (caps, [])
  21303. 936.24 s [opt-env-conf-test] (x : xs) ->
  21304. 936.24 s [opt-env-conf-test] let t = T.pack x
  21305. 936.24 s [opt-env-conf-test] - in case T.stripPrefix "--settings-capabilities-disable-" t of
  21306. 936.24 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  21307. 936.24 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  21308. 936.24 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  21309. 936.24 s [opt-env-conf-test] - Nothing ->
  21310. 936.24 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  21311. 936.24 s [opt-env-conf-test] - in (finalCaps, x : rest)
  21312. 936.24 s [opt-env-conf-test] + in case T.stripPrefix "--settings-capabilities-disable-" t of
  21313. 936.24 s [opt-env-conf-test] + Just capName -> go (disableCapability (Capability capName) caps) xs
  21314. 936.24 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  21315. 936.24 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  21316. 936.24 s [opt-env-conf-test] + Nothing ->
  21317. 936.24 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  21318. 936.24 s [opt-env-conf-test] + in (finalCaps, x : rest)
  21319. 936.24 s [opt-env-conf-test]
  21320. 936.24 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  21321. 936.24 s [opt-env-conf-test] -- is supposed to.
  21322. 936.24 s [opt-env-conf-test]
  21323. 936.24 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  21324. 936.24 s [opt-env-conf-test] @@ -198,11 +198,11 @@
  21325. 936.24 s [opt-env-conf-test] let t = T.pack x
  21326. 936.24 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  21327. 936.24 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  21328. 936.24 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  21329. 936.24 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  21330. 936.24 s [opt-env-conf-test] - Nothing ->
  21331. 936.24 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  21332. 936.24 s [opt-env-conf-test] - in (finalCaps, x : rest)
  21333. 936.24 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  21334. 936.24 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  21335. 936.24 s [opt-env-conf-test] + Nothing ->
  21336. 936.24 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  21337. 936.24 s [opt-env-conf-test] + in (finalCaps, x : rest)
  21338. 936.24 s [opt-env-conf-test]
  21339. 936.24 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  21340. 936.24 s [opt-env-conf-test] -- is supposed to.
  21341. 936.24 s [opt-env-conf-test]
  21342. 936.24 s [opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
  21343. 936.24 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  21344. 936.24 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21345. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21346. 936.24 s [opt-env-conf-test] and
  21347. 936.24 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21348. 936.24 s [opt-env-conf-test] - null settingEnvVars,
  21349. 936.24 s [opt-env-conf-test] - null settingConfigVals
  21350. 936.24 s [opt-env-conf-test] - ]
  21351. 936.24 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21352. 936.24 s [opt-env-conf-test] + null settingEnvVars
  21353. 936.24 s [opt-env-conf-test] +]
  21354. 936.24 s [opt-env-conf-test]
  21355. 936.24 s [opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
  21356. 936.24 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21357. 936.24 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21358. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21359. 936.24 s [opt-env-conf-test] and
  21360. 936.24 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21361. 936.24 s [opt-env-conf-test] - null settingEnvVars,
  21362. 936.24 s [opt-env-conf-test] - null settingConfigVals
  21363. 936.24 s [opt-env-conf-test] - ]
  21364. 936.24 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21365. 936.24 s [opt-env-conf-test] + null settingEnvVars,
  21366. 936.24 s [opt-env-conf-test] + null settingConfigVals
  21367. 936.24 s [opt-env-conf-test] + ]
  21368. 936.24 s [opt-env-conf-test]
  21369. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:342:15-37
  21370. 936.24 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  21371. 936.24 s [opt-env-conf-test] and
  21372. 936.24 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21373. 936.24 s [opt-env-conf-test] null settingEnvVars,
  21374. 936.24 s [opt-env-conf-test] - null settingConfigVals
  21375. 936.24 s [opt-env-conf-test] + True
  21376. 936.24 s [opt-env-conf-test] ]
  21377. 936.24 s [opt-env-conf-test]
  21378. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:341:15-34
  21379. 936.24 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  21380. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21381. 936.24 s [opt-env-conf-test] and
  21382. 936.24 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21383. 936.24 s [opt-env-conf-test] - null settingEnvVars,
  21384. 936.24 s [opt-env-conf-test] + True,
  21385. 936.24 s [opt-env-conf-test] null settingConfigVals
  21386. 936.24 s [opt-env-conf-test] ]
  21387. 936.24 s [opt-env-conf-test]
  21388. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-82
  21389. 936.24 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21390. 936.24 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21391. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21392. 936.24 s [opt-env-conf-test] and
  21393. 936.24 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21394. 936.24 s [opt-env-conf-test] + [ True,
  21395. 936.24 s [opt-env-conf-test] null settingEnvVars,
  21396. 936.24 s [opt-env-conf-test] null settingConfigVals
  21397. 936.24 s [opt-env-conf-test] ]
  21398. 936.24 s [opt-env-conf-test]
  21399. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-82
  21400. 936.24 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21401. 936.24 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21402. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21403. 936.24 s [opt-env-conf-test] and
  21404. 936.24 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21405. 936.24 s [opt-env-conf-test] + [ settingTryArgument || True,
  21406. 936.24 s [opt-env-conf-test] null settingEnvVars,
  21407. 936.24 s [opt-env-conf-test] null settingConfigVals
  21408. 936.24 s [opt-env-conf-test] ]
  21409. 936.24 s [opt-env-conf-test]
  21410. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:57-82
  21411. 936.24 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21412. 936.24 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21413. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21414. 936.24 s [opt-env-conf-test] and
  21415. 936.24 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21416. 936.24 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || True,
  21417. 936.24 s [opt-env-conf-test] null settingEnvVars,
  21418. 936.24 s [opt-env-conf-test] null settingConfigVals
  21419. 936.24 s [opt-env-conf-test] ]
  21420. 936.24 s [opt-env-conf-test]
  21421. 936.24 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:340:37-53
  21422. 936.24 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21423. 936.24 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21424. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21425. 936.24 s [opt-env-conf-test] and
  21426. 936.24 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21427. 936.24 s [opt-env-conf-test] + [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
  21428. 936.24 s [opt-env-conf-test] null settingEnvVars,
  21429. 936.24 s [opt-env-conf-test] null settingConfigVals
  21430. 936.24 s [opt-env-conf-test] ]
  21431. 936.24 s [opt-env-conf-test]
  21432. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  21433. 936.24 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21434. 936.24 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21435. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21436. 936.24 s [opt-env-conf-test] and
  21437. 936.24 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21438. 936.24 s [opt-env-conf-test] + [ settingTryArgument || False || isJust settingSwitchValue,
  21439. 936.24 s [opt-env-conf-test] null settingEnvVars,
  21440. 936.24 s [opt-env-conf-test] null settingConfigVals
  21441. 936.24 s [opt-env-conf-test] ]
  21442. 936.24 s [opt-env-conf-test]
  21443. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  21444. 936.24 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21445. 936.24 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21446. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21447. 936.24 s [opt-env-conf-test] and
  21448. 936.24 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21449. 936.24 s [opt-env-conf-test] + [ settingTryArgument || True || isJust settingSwitchValue,
  21450. 936.24 s [opt-env-conf-test] null settingEnvVars,
  21451. 936.24 s [opt-env-conf-test] null settingConfigVals
  21452. 936.24 s [opt-env-conf-test] ]
  21453. 936.24 s [opt-env-conf-test]
  21454. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  21455. 936.24 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21456. 936.24 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21457. 936.24 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21458. 936.24 s [opt-env-conf-test] and
  21459. 936.24 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21460. 936.24 s [opt-env-conf-test] + [ True || settingTryOption || isJust settingSwitchValue,
  21461. 936.24 s [opt-env-conf-test] null settingEnvVars,
  21462. 936.24 s [opt-env-conf-test] null settingConfigVals
  21463. 936.24 s [opt-env-conf-test] ]
  21464. 936.24 s [opt-env-conf-test]
  21465. 936.24 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-24
  21466. 936.24 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21467. 936.24 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21468. 936.24 s [opt-env-conf-test] c1 <- go p1
  21469. 936.24 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21470. 936.24 s [opt-env-conf-test] - pure $ c1 || c2
  21471. 936.24 s [opt-env-conf-test] + pure $ not (c1 || c2)
  21472. 936.24 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21473. 936.24 s [opt-env-conf-test] case settingHelp of
  21474. 936.24 s [opt-env-conf-test] Nothing ->
  21475. 936.24 s [opt-env-conf-test]
  21476. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  21477. 936.24 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21478. 936.24 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21479. 936.24 s [opt-env-conf-test] c1 <- go p1
  21480. 936.24 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21481. 936.24 s [opt-env-conf-test] - pure $ c1 || c2
  21482. 936.24 s [opt-env-conf-test] + pure $ False
  21483. 936.24 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21484. 936.24 s [opt-env-conf-test] case settingHelp of
  21485. 936.24 s [opt-env-conf-test] Nothing ->
  21486. 936.24 s [opt-env-conf-test]
  21487. 936.24 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  21488. 936.24 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21489. 936.24 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21490. 936.24 s [opt-env-conf-test] c1 <- go p1
  21491. 936.24 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21492. 936.24 s [opt-env-conf-test] - pure $ c1 || c2
  21493. 936.24 s [opt-env-conf-test] + pure $ True
  21494. 936.24 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21495. 936.24 s [opt-env-conf-test] case settingHelp of
  21496. 936.24 s [opt-env-conf-test] Nothing ->
  21497. 936.24 s [opt-env-conf-test]
  21498. 936.24 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:22-24
  21499. 936.25 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21500. 936.25 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21501. 936.25 s [opt-env-conf-test] c1 <- go p1
  21502. 936.25 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21503. 936.25 s [opt-env-conf-test] - pure $ c1 || c2
  21504. 936.25 s [opt-env-conf-test] + pure $ c1 || not (c2)
  21505. 936.25 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21506. 936.25 s [opt-env-conf-test] case settingHelp of
  21507. 936.25 s [opt-env-conf-test] Nothing ->
  21508. 936.25 s [opt-env-conf-test]
  21509. 936.25 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  21510. 936.25 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21511. 936.25 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21512. 936.25 s [opt-env-conf-test] c1 <- go p1
  21513. 936.25 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21514. 936.25 s [opt-env-conf-test] - pure $ c1 || c2
  21515. 936.25 s [opt-env-conf-test] + pure $ c1 || False
  21516. 936.25 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21517. 936.25 s [opt-env-conf-test] case settingHelp of
  21518. 936.25 s [opt-env-conf-test] Nothing ->
  21519. 936.25 s [opt-env-conf-test]
  21520. 936.25 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  21521. 936.25 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21522. 936.25 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21523. 936.25 s [opt-env-conf-test] c1 <- go p1
  21524. 936.25 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21525. 936.25 s [opt-env-conf-test] - pure $ c1 || c2
  21526. 936.25 s [opt-env-conf-test] + pure $ c1 || True
  21527. 936.25 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21528. 936.25 s [opt-env-conf-test] case settingHelp of
  21529. 936.25 s [opt-env-conf-test] Nothing ->
  21530. 936.25 s [opt-env-conf-test]
  21531. 936.25 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-18
  21532. 936.25 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21533. 936.25 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21534. 936.25 s [opt-env-conf-test] c1 <- go p1
  21535. 936.25 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21536. 936.25 s [opt-env-conf-test] - pure $ c1 || c2
  21537. 936.25 s [opt-env-conf-test] + pure $ not (c1) || c2
  21538. 936.25 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21539. 936.25 s [opt-env-conf-test] case settingHelp of
  21540. 936.25 s [opt-env-conf-test] Nothing ->
  21541. 936.25 s [opt-env-conf-test]
  21542. 936.25 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  21543. 936.25 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21544. 936.25 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21545. 936.25 s [opt-env-conf-test] c1 <- go p1
  21546. 936.25 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21547. 936.25 s [opt-env-conf-test] - pure $ c1 || c2
  21548. 936.25 s [opt-env-conf-test] + pure $ False || c2
  21549. 936.25 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21550. 936.25 s [opt-env-conf-test] case settingHelp of
  21551. 936.25 s [opt-env-conf-test] Nothing ->
  21552. 936.25 s [opt-env-conf-test]
  21553. 936.25 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  21554. 936.25 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21555. 936.25 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21556. 936.25 s [opt-env-conf-test] c1 <- go p1
  21557. 936.25 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21558. 936.25 s [opt-env-conf-test] - pure $ c1 || c2
  21559. 936.25 s [opt-env-conf-test] + pure $ True || c2
  21560. 936.25 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21561. 936.25 s [opt-env-conf-test] case settingHelp of
  21562. 936.25 s [opt-env-conf-test] Nothing ->
  21563. 936.25 s [opt-env-conf-test]
  21564. 936.25 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:14-24
  21565. 936.25 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21566. 936.25 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21567. 936.25 s [opt-env-conf-test] c1 <- go p1
  21568. 936.25 s [opt-env-conf-test] c2 <- go p2
  21569. 936.25 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21570. 936.25 s [opt-env-conf-test] + pure not ((c1 && c2)) -- TODO: is this right?
  21571. 936.25 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21572. 936.25 s [opt-env-conf-test] ParserMany mLoc p -> do
  21573. 936.25 s [opt-env-conf-test] c <- go p
  21574. 936.25 s [opt-env-conf-test]
  21575. 936.25 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  21576. 936.25 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21577. 936.25 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21578. 936.25 s [opt-env-conf-test] c1 <- go p1
  21579. 936.25 s [opt-env-conf-test] c2 <- go p2
  21580. 936.25 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21581. 936.25 s [opt-env-conf-test] + pure False -- TODO: is this right?
  21582. 936.25 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21583. 936.25 s [opt-env-conf-test] ParserMany mLoc p -> do
  21584. 936.25 s [opt-env-conf-test] c <- go p
  21585. 936.25 s [opt-env-conf-test]
  21586. 936.25 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  21587. 936.25 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21588. 936.25 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21589. 936.25 s [opt-env-conf-test] c1 <- go p1
  21590. 936.25 s [opt-env-conf-test] c2 <- go p2
  21591. 936.25 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21592. 936.25 s [opt-env-conf-test] + pure True -- TODO: is this right?
  21593. 936.25 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21594. 936.25 s [opt-env-conf-test] ParserMany mLoc p -> do
  21595. 936.25 s [opt-env-conf-test] c <- go p
  21596. 936.25 s [opt-env-conf-test]
  21597. 936.25 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-23
  21598. 936.25 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21599. 936.25 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21600. 936.25 s [opt-env-conf-test] c1 <- go p1
  21601. 936.25 s [opt-env-conf-test] c2 <- go p2
  21602. 936.25 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21603. 936.25 s [opt-env-conf-test] + pure (not (c1 && c2)) -- TODO: is this right?
  21604. 936.25 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21605. 936.25 s [opt-env-conf-test] ParserMany mLoc p -> do
  21606. 936.25 s [opt-env-conf-test] c <- go p
  21607. 936.25 s [opt-env-conf-test]
  21608. 936.25 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  21609. 936.25 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21610. 936.25 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21611. 936.25 s [opt-env-conf-test] c1 <- go p1
  21612. 936.25 s [opt-env-conf-test] c2 <- go p2
  21613. 936.25 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21614. 936.25 s [opt-env-conf-test] + pure (False) -- TODO: is this right?
  21615. 936.25 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21616. 936.25 s [opt-env-conf-test] ParserMany mLoc p -> do
  21617. 936.25 s [opt-env-conf-test] c <- go p
  21618. 936.25 s [opt-env-conf-test]
  21619. 936.25 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  21620. 936.25 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21621. 936.25 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21622. 936.25 s [opt-env-conf-test] c1 <- go p1
  21623. 936.25 s [opt-env-conf-test] c2 <- go p2
  21624. 936.25 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21625. 936.25 s [opt-env-conf-test] + pure (True) -- TODO: is this right?
  21626. 936.25 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21627. 936.25 s [opt-env-conf-test] ParserMany mLoc p -> do
  21628. 936.25 s [opt-env-conf-test] c <- go p
  21629. 936.25 s [opt-env-conf-test]
  21630. 936.25 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:21-23
  21631. 936.25 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21632. 936.25 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21633. 936.25 s [opt-env-conf-test] c1 <- go p1
  21634. 936.25 s [opt-env-conf-test] c2 <- go p2
  21635. 936.25 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21636. 936.25 s [opt-env-conf-test] + pure (c1 && not (c2)) -- TODO: is this right?
  21637. 936.25 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21638. 936.25 s [opt-env-conf-test] ParserMany mLoc p -> do
  21639. 936.25 s [opt-env-conf-test] c <- go p
  21640. 936.25 s [opt-env-conf-test]
  21641. 936.25 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  21642. 936.25 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21643. 936.25 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21644. 936.25 s [opt-env-conf-test] c1 <- go p1
  21645. 936.25 s [opt-env-conf-test] c2 <- go p2
  21646. 936.25 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21647. 936.26 s [opt-env-conf-test] + pure (c1 && False) -- TODO: is this right?
  21648. 936.26 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21649. 936.26 s [opt-env-conf-test] ParserMany mLoc p -> do
  21650. 936.26 s [opt-env-conf-test] c <- go p
  21651. 936.26 s [opt-env-conf-test]
  21652. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  21653. 936.26 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21654. 936.26 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21655. 936.26 s [opt-env-conf-test] c1 <- go p1
  21656. 936.26 s [opt-env-conf-test] c2 <- go p2
  21657. 936.26 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21658. 936.26 s [opt-env-conf-test] + pure (c1 && True) -- TODO: is this right?
  21659. 936.26 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21660. 936.26 s [opt-env-conf-test] ParserMany mLoc p -> do
  21661. 936.26 s [opt-env-conf-test] c <- go p
  21662. 936.26 s [opt-env-conf-test]
  21663. 936.26 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-17
  21664. 936.26 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21665. 936.26 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21666. 936.26 s [opt-env-conf-test] c1 <- go p1
  21667. 936.26 s [opt-env-conf-test] c2 <- go p2
  21668. 936.26 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21669. 936.26 s [opt-env-conf-test] + pure (not (c1) && c2) -- TODO: is this right?
  21670. 936.26 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21671. 936.26 s [opt-env-conf-test] ParserMany mLoc p -> do
  21672. 936.26 s [opt-env-conf-test] c <- go p
  21673. 936.26 s [opt-env-conf-test]
  21674. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  21675. 936.26 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21676. 936.26 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21677. 936.26 s [opt-env-conf-test] c1 <- go p1
  21678. 936.26 s [opt-env-conf-test] c2 <- go p2
  21679. 936.26 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21680. 936.26 s [opt-env-conf-test] + pure (False && c2) -- TODO: is this right?
  21681. 936.26 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21682. 936.26 s [opt-env-conf-test] ParserMany mLoc p -> do
  21683. 936.26 s [opt-env-conf-test] c <- go p
  21684. 936.26 s [opt-env-conf-test]
  21685. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  21686. 936.26 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21687. 936.26 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21688. 936.26 s [opt-env-conf-test] c1 <- go p1
  21689. 936.26 s [opt-env-conf-test] c2 <- go p2
  21690. 936.26 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21691. 936.26 s [opt-env-conf-test] + pure (True && c2) -- TODO: is this right?
  21692. 936.26 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21693. 936.26 s [opt-env-conf-test] ParserMany mLoc p -> do
  21694. 936.26 s [opt-env-conf-test] c <- go p
  21695. 936.26 s [opt-env-conf-test]
  21696. 936.26 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:14-24
  21697. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21698. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21699. 936.26 s [opt-env-conf-test] c1 <- go p1
  21700. 936.26 s [opt-env-conf-test] c2 <- go p2
  21701. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21702. 936.26 s [opt-env-conf-test] + pure not ((c1 || c2))
  21703. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21704. 936.26 s [opt-env-conf-test] c1 <- go p1
  21705. 936.26 s [opt-env-conf-test] c2 <- go p2
  21706. 936.26 s [opt-env-conf-test]
  21707. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  21708. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21709. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21710. 936.26 s [opt-env-conf-test] c1 <- go p1
  21711. 936.26 s [opt-env-conf-test] c2 <- go p2
  21712. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21713. 936.26 s [opt-env-conf-test] + pure False
  21714. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21715. 936.26 s [opt-env-conf-test] c1 <- go p1
  21716. 936.26 s [opt-env-conf-test] c2 <- go p2
  21717. 936.26 s [opt-env-conf-test]
  21718. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  21719. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21720. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21721. 936.26 s [opt-env-conf-test] c1 <- go p1
  21722. 936.26 s [opt-env-conf-test] c2 <- go p2
  21723. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21724. 936.26 s [opt-env-conf-test] + pure True
  21725. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21726. 936.26 s [opt-env-conf-test] c1 <- go p1
  21727. 936.26 s [opt-env-conf-test] c2 <- go p2
  21728. 936.26 s [opt-env-conf-test]
  21729. 936.26 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-23
  21730. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21731. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21732. 936.26 s [opt-env-conf-test] c1 <- go p1
  21733. 936.26 s [opt-env-conf-test] c2 <- go p2
  21734. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21735. 936.26 s [opt-env-conf-test] + pure (not (c1 || c2))
  21736. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21737. 936.26 s [opt-env-conf-test] c1 <- go p1
  21738. 936.26 s [opt-env-conf-test] c2 <- go p2
  21739. 936.26 s [opt-env-conf-test]
  21740. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  21741. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21742. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21743. 936.26 s [opt-env-conf-test] c1 <- go p1
  21744. 936.26 s [opt-env-conf-test] c2 <- go p2
  21745. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21746. 936.26 s [opt-env-conf-test] + pure (False)
  21747. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21748. 936.26 s [opt-env-conf-test] c1 <- go p1
  21749. 936.26 s [opt-env-conf-test] c2 <- go p2
  21750. 936.26 s [opt-env-conf-test]
  21751. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  21752. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21753. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21754. 936.26 s [opt-env-conf-test] c1 <- go p1
  21755. 936.26 s [opt-env-conf-test] c2 <- go p2
  21756. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21757. 936.26 s [opt-env-conf-test] + pure (True)
  21758. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21759. 936.26 s [opt-env-conf-test] c1 <- go p1
  21760. 936.26 s [opt-env-conf-test] c2 <- go p2
  21761. 936.26 s [opt-env-conf-test]
  21762. 936.26 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:21-23
  21763. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21764. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21765. 936.26 s [opt-env-conf-test] c1 <- go p1
  21766. 936.26 s [opt-env-conf-test] c2 <- go p2
  21767. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21768. 936.26 s [opt-env-conf-test] + pure (c1 || not (c2))
  21769. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21770. 936.26 s [opt-env-conf-test] c1 <- go p1
  21771. 936.26 s [opt-env-conf-test] c2 <- go p2
  21772. 936.26 s [opt-env-conf-test]
  21773. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  21774. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21775. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21776. 936.26 s [opt-env-conf-test] c1 <- go p1
  21777. 936.26 s [opt-env-conf-test] c2 <- go p2
  21778. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21779. 936.26 s [opt-env-conf-test] + pure (c1 || False)
  21780. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21781. 936.26 s [opt-env-conf-test] c1 <- go p1
  21782. 936.26 s [opt-env-conf-test] c2 <- go p2
  21783. 936.26 s [opt-env-conf-test]
  21784. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  21785. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21786. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21787. 936.26 s [opt-env-conf-test] c1 <- go p1
  21788. 936.26 s [opt-env-conf-test] c2 <- go p2
  21789. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21790. 936.26 s [opt-env-conf-test] + pure (c1 || True)
  21791. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21792. 936.26 s [opt-env-conf-test] c1 <- go p1
  21793. 936.26 s [opt-env-conf-test] c2 <- go p2
  21794. 936.26 s [opt-env-conf-test]
  21795. 936.26 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-17
  21796. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21797. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21798. 936.26 s [opt-env-conf-test] c1 <- go p1
  21799. 936.26 s [opt-env-conf-test] c2 <- go p2
  21800. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21801. 936.26 s [opt-env-conf-test] + pure (not (c1) || c2)
  21802. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21803. 936.26 s [opt-env-conf-test] c1 <- go p1
  21804. 936.26 s [opt-env-conf-test] c2 <- go p2
  21805. 936.26 s [opt-env-conf-test]
  21806. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  21807. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21808. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21809. 936.26 s [opt-env-conf-test] c1 <- go p1
  21810. 936.26 s [opt-env-conf-test] c2 <- go p2
  21811. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21812. 936.26 s [opt-env-conf-test] + pure (False || c2)
  21813. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21814. 936.26 s [opt-env-conf-test] c1 <- go p1
  21815. 936.26 s [opt-env-conf-test] c2 <- go p2
  21816. 936.26 s [opt-env-conf-test]
  21817. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  21818. 936.26 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21819. 936.26 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21820. 936.26 s [opt-env-conf-test] c1 <- go p1
  21821. 936.26 s [opt-env-conf-test] c2 <- go p2
  21822. 936.26 s [opt-env-conf-test] - pure (c1 || c2)
  21823. 936.26 s [opt-env-conf-test] + pure (True || c2)
  21824. 936.26 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21825. 936.26 s [opt-env-conf-test] c1 <- go p1
  21826. 936.26 s [opt-env-conf-test] c2 <- go p2
  21827. 936.26 s [opt-env-conf-test]
  21828. 936.26 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:144:22-46
  21829. 936.26 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  21830. 936.26 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  21831. 936.26 s [opt-env-conf-test] salt
  21832. 936.26 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  21833. 936.26 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  21834. 936.26 s [opt-env-conf-test] + `hashWithSalt` not (envVarSettingAllowPrefix)
  21835. 936.26 s [opt-env-conf-test]
  21836. 936.26 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  21837. 936.26 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  21838. 936.26 s [opt-env-conf-test]
  21839. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  21840. 936.26 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  21841. 936.26 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  21842. 936.26 s [opt-env-conf-test] salt
  21843. 936.26 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  21844. 936.26 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  21845. 936.26 s [opt-env-conf-test] + `hashWithSalt` False
  21846. 936.26 s [opt-env-conf-test]
  21847. 936.26 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  21848. 936.26 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  21849. 936.26 s [opt-env-conf-test]
  21850. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  21851. 936.26 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  21852. 936.26 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  21853. 936.26 s [opt-env-conf-test] salt
  21854. 936.26 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  21855. 936.26 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  21856. 936.26 s [opt-env-conf-test] + `hashWithSalt` True
  21857. 936.26 s [opt-env-conf-test]
  21858. 936.26 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  21859. 936.26 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  21860. 936.26 s [opt-env-conf-test]
  21861. 936.26 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:136:5-29
  21862. 936.26 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  21863. 936.26 s [opt-env-conf-test]
  21864. 936.26 s [opt-env-conf-test] data EnvVarSetting = EnvVarSetting
  21865. 936.27 s [opt-env-conf-test] { envVarSettingVar :: !String,
  21866. 936.27 s [opt-env-conf-test] - envVarSettingAllowPrefix :: !Bool
  21867. 936.27 s [opt-env-conf-test] + True :: !Bool
  21868. 936.27 s [opt-env-conf-test] }
  21869. 936.27 s [opt-env-conf-test] deriving (Show, Eq)
  21870. 936.27 s [opt-env-conf-test]
  21871. 936.27 s [opt-env-conf-test]
  21872. 936.27 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:159:5-32
  21873. 936.27 s [opt-env-conf-test] @@ -156,7 +156,7 @@
  21874. 936.27 s [opt-env-conf-test] = forall void.
  21875. 936.27 s [opt-env-conf-test] ConfigValSetting
  21876. 936.27 s [opt-env-conf-test] { configValSettingPath :: !(NonEmpty String),
  21877. 936.27 s [opt-env-conf-test] - configValSettingAllowPrefix :: !Bool,
  21878. 936.27 s [opt-env-conf-test] + True :: !Bool,
  21879. 936.27 s [opt-env-conf-test] configValSettingCodec :: !(ValueCodec void (Maybe a))
  21880. 936.27 s [opt-env-conf-test] }
  21881. 936.27 s [opt-env-conf-test]
  21882. 936.27 s [opt-env-conf-test]
  21883. 936.27 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:128:24-40
  21884. 936.27 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  21885. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21886. 936.27 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21887. 936.27 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21888. 936.27 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  21889. 936.27 s [opt-env-conf-test] + `hashWithSalt` not (settingTryOption)
  21890. 936.27 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21891. 936.27 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21892. 936.27 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  21893. 936.27 s [opt-env-conf-test]
  21894. 936.27 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  21895. 936.27 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  21896. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21897. 936.27 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21898. 936.27 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21899. 936.27 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  21900. 936.27 s [opt-env-conf-test] + `hashWithSalt` False
  21901. 936.27 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21902. 936.27 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21903. 936.27 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  21904. 936.27 s [opt-env-conf-test]
  21905. 936.27 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  21906. 936.27 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  21907. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21908. 936.27 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21909. 936.27 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21910. 936.27 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  21911. 936.27 s [opt-env-conf-test] + `hashWithSalt` True
  21912. 936.27 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21913. 936.27 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21914. 936.27 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  21915. 936.27 s [opt-env-conf-test]
  21916. 936.27 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:127:24-49
  21917. 936.27 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  21918. 936.27 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21919. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21920. 936.27 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21921. 936.27 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  21922. 936.27 s [opt-env-conf-test] + `hashWithSalt` not (isJust settingSwitchValue)
  21923. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21924. 936.27 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21925. 936.27 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21926. 936.27 s [opt-env-conf-test]
  21927. 936.27 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  21928. 936.27 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  21929. 936.27 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21930. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21931. 936.27 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21932. 936.27 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  21933. 936.27 s [opt-env-conf-test] + `hashWithSalt` False
  21934. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21935. 936.27 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21936. 936.27 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21937. 936.27 s [opt-env-conf-test]
  21938. 936.27 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  21939. 936.27 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  21940. 936.27 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21941. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21942. 936.27 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21943. 936.27 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  21944. 936.27 s [opt-env-conf-test] + `hashWithSalt` True
  21945. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21946. 936.27 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21947. 936.27 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21948. 936.27 s [opt-env-conf-test]
  21949. 936.27 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:125:24-42
  21950. 936.27 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  21951. 936.27 s [opt-env-conf-test] SettingHash
  21952. 936.27 s [opt-env-conf-test] ( 42
  21953. 936.27 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21954. 936.27 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  21955. 936.27 s [opt-env-conf-test] + `hashWithSalt` not (settingTryArgument)
  21956. 936.27 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21957. 936.27 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21958. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21959. 936.27 s [opt-env-conf-test]
  21960. 936.27 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  21961. 936.27 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  21962. 936.27 s [opt-env-conf-test] SettingHash
  21963. 936.27 s [opt-env-conf-test] ( 42
  21964. 936.27 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21965. 936.27 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  21966. 936.27 s [opt-env-conf-test] + `hashWithSalt` False
  21967. 936.27 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21968. 936.27 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21969. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21970. 936.27 s [opt-env-conf-test]
  21971. 936.27 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  21972. 936.27 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  21973. 936.27 s [opt-env-conf-test] SettingHash
  21974. 936.27 s [opt-env-conf-test] ( 42
  21975. 936.27 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21976. 936.27 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  21977. 936.27 s [opt-env-conf-test] + `hashWithSalt` True
  21978. 936.27 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21979. 936.27 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21980. 936.27 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21981. 936.27 s [opt-env-conf-test]
  21982. 936.27 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:148:6-32
  21983. 936.27 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  21984. 936.27 s [opt-env-conf-test]
  21985. 936.27 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  21986. 936.27 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  21987. 936.27 s [opt-env-conf-test] - if envVarSettingAllowPrefix e
  21988. 936.27 s [opt-env-conf-test] + if True
  21989. 936.27 s [opt-env-conf-test] then e {envVarSettingVar = prefix <> envVarSettingVar e}
  21990. 936.27 s [opt-env-conf-test] else e
  21991. 936.27 s [opt-env-conf-test]
  21992. 936.27 s [opt-env-conf-test]
  21993. 936.27 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:165:6-35
  21994. 936.27 s [opt-env-conf-test] @@ -162,7 +162,7 @@
  21995. 936.27 s [opt-env-conf-test]
  21996. 936.27 s [opt-env-conf-test] prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
  21997. 936.27 s [opt-env-conf-test] prefixConfigValSetting prefix c =
  21998. 936.27 s [opt-env-conf-test] - if configValSettingAllowPrefix c
  21999. 936.27 s [opt-env-conf-test] + if True
  22000. 936.27 s [opt-env-conf-test] then c {configValSettingPath = prefix NE.<| configValSettingPath c}
  22001. 936.27 s [opt-env-conf-test] else c
  22002. 936.27 s [opt-env-conf-test]
  22003. 936.27 s [opt-env-conf-test]
  22004. 936.27 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
  22005. 936.27 s [opt-env-conf-test] @@ -170,9 +170,9 @@
  22006. 936.27 s [opt-env-conf-test] suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
  22007. 936.27 s [opt-env-conf-test] where
  22008. 936.27 s [opt-env-conf-test] suffixPath :: NonEmpty String -> NonEmpty String
  22009. 936.27 s [opt-env-conf-test] - suffixPath (f :| rest) = case NE.nonEmpty rest of
  22010. 936.27 s [opt-env-conf-test] - Nothing -> (f <> suffix) :| []
  22011. 936.27 s [opt-env-conf-test] - Just ne -> f NE.<| suffixPath ne
  22012. 936.27 s [opt-env-conf-test] + suffixPath (f :| rest) = case NE.nonEmpty rest of
  22013. 936.27 s [opt-env-conf-test] + Nothing -> (f <> suffix) :| []
  22014. 936.27 s [opt-env-conf-test] + Just ne -> f NE.<| suffixPath ne
  22015. 936.27 s [opt-env-conf-test]
  22016. 936.27 s [opt-env-conf-test] -- | A 'mempty' 'Setting' to build up a setting from.
  22017. 936.27 s [opt-env-conf-test] emptySetting :: Setting a
  22018. 936.27 s [opt-env-conf-test]
  22019. 936.27 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  22020. 936.27 s [opt-env-conf-test] @@ -66,10 +66,10 @@
  22021. 936.27 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  22022. 936.27 s [opt-env-conf-test]
  22023. 936.27 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  22024. 936.27 s [opt-env-conf-test] -exampleValuesChunks vals = case vals of
  22025. 936.27 s [opt-env-conf-test] - [] -> []
  22026. 936.27 s [opt-env-conf-test] - [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  22027. 936.27 s [opt-env-conf-test] - _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  22028. 936.27 s [opt-env-conf-test] +exampleValuesChunks vals = case vals of
  22029. 936.27 s [opt-env-conf-test] + [] -> []
  22030. 936.27 s [opt-env-conf-test] + [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  22031. 936.27 s [opt-env-conf-test] + _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  22032. 936.27 s [opt-env-conf-test]
  22033. 936.27 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  22034. 936.27 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  22035. 936.27 s [opt-env-conf-test]
  22036. 936.27 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  22037. 936.27 s [opt-env-conf-test] @@ -66,10 +66,10 @@
  22038. 936.27 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  22039. 936.27 s [opt-env-conf-test]
  22040. 936.27 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  22041. 936.27 s [opt-env-conf-test] -exampleValuesChunks vals = case vals of
  22042. 936.27 s [opt-env-conf-test] - [] -> []
  22043. 936.27 s [opt-env-conf-test] - [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  22044. 936.27 s [opt-env-conf-test] - _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  22045. 936.27 s [opt-env-conf-test] +exampleValuesChunks vals = case vals of
  22046. 936.27 s [opt-env-conf-test] + [] -> []
  22047. 936.27 s [opt-env-conf-test] + [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  22048. 936.27 s [opt-env-conf-test] + _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  22049. 936.27 s [opt-env-conf-test]
  22050. 936.27 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  22051. 936.27 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  22052. 936.27 s [opt-env-conf-test]
  22053. 936.27 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:87:27-50
  22054. 936.27 s [opt-env-conf-test] @@ -84,9 +84,9 @@
  22055. 936.27 s [opt-env-conf-test] syntaxChunk = fore blue . chunk . T.pack
  22056. 936.27 s [opt-env-conf-test]
  22057. 936.27 s [opt-env-conf-test] capabilitiesChunks :: Set Capability -> [Chunk]
  22058. 936.27 s [opt-env-conf-test] -capabilitiesChunks caps = case Set.toList caps of
  22059. 936.27 s [opt-env-conf-test] - [] -> []
  22060. 936.27 s [opt-env-conf-test] - cs -> intersperse ", " (map capabilityChunk cs)
  22061. 936.27 s [opt-env-conf-test] +capabilitiesChunks caps = case Set.toList caps of
  22062. 936.27 s [opt-env-conf-test] + [] -> []
  22063. 936.27 s [opt-env-conf-test] + cs -> intersperse ", " (map capabilityChunk cs)
  22064. 936.27 s [opt-env-conf-test]
  22065. 936.27 s [opt-env-conf-test] capabilityChunk :: Capability -> Chunk
  22066. 936.27 s [opt-env-conf-test] capabilityChunk = fore green . chunk . unCapability
  22067. 936.27 s [opt-env-conf-test]
  22068. 936.27 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
  22069. 936.27 s [opt-env-conf-test] @@ -239,10 +239,10 @@
  22070. 936.27 s [opt-env-conf-test]
  22071. 936.27 s [opt-env-conf-test] instance Applicative Parser where
  22072. 936.27 s [opt-env-conf-test] pure = ParserPure
  22073. 936.27 s [opt-env-conf-test] - (<*>) p1 p2 = case (p1, p2) of
  22074. 936.27 s [opt-env-conf-test] - -- Homomorphism law for applicative
  22075. 936.27 s [opt-env-conf-test] - (ParserPure f, ParserPure a) -> ParserPure (f a)
  22076. 936.27 s [opt-env-conf-test] - _ -> ParserAp p1 p2
  22077. 936.27 s [opt-env-conf-test] + (<*>) p1 p2 = case (p1, p2) of
  22078. 936.27 s [opt-env-conf-test] + -- Homomorphism law for applicative
  22079. 936.27 s [opt-env-conf-test] + (ParserPure f, ParserPure a) -> ParserPure (f a)
  22080. 936.27 s [opt-env-conf-test] + _ -> ParserAp p1 p2
  22081. 936.27 s [opt-env-conf-test]
  22082. 936.27 s [opt-env-conf-test] instance Selective Parser where
  22083. 936.27 s [opt-env-conf-test] select = ParserSelect
  22084. 936.27 s [opt-env-conf-test]
  22085. 936.27 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  22086. 936.27 s [opt-env-conf-test] @@ -264,32 +264,32 @@
  22087. 936.27 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22088. 936.27 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22089. 936.27 s [opt-env-conf-test] ParserSetting _ _ -> False
  22090. 936.27 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22091. 936.27 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  22092. 936.27 s [opt-env-conf-test] - (True, False) -> p2
  22093. 936.27 s [opt-env-conf-test] - (False, True) -> p1
  22094. 936.27 s [opt-env-conf-test] - (False, False) ->
  22095. 936.27 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22096. 936.27 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22097. 936.27 s [opt-env-conf-test] - -- alts to always be right-leaning
  22098. 936.27 s [opt-env-conf-test] - --
  22099. 936.27 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22100. 936.28 s [opt-env-conf-test] - -- p
  22101. 936.28 s [opt-env-conf-test] - -- / \
  22102. 936.28 s [opt-env-conf-test] - -- p1 p2
  22103. 936.28 s [opt-env-conf-test] - -- / \
  22104. 936.28 s [opt-env-conf-test] - -- p3 p4
  22105. 936.28 s [opt-env-conf-test] - --
  22106. 936.28 s [opt-env-conf-test] - -- We need to rearrange it to
  22107. 936.28 s [opt-env-conf-test] - -- p
  22108. 936.28 s [opt-env-conf-test] - -- / \
  22109. 936.28 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22110. 936.28 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22111. 936.28 s [opt-env-conf-test] - go (go p1' p3') p4'
  22112. 936.28 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22113. 936.28 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22114. 936.28 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22115. 936.28 s [opt-env-conf-test] - in go p1 p2
  22116. 936.28 s [opt-env-conf-test] + in case (isEmpty p1, isEmpty p2) of
  22117. 936.28 s [opt-env-conf-test] + (True, True) -> ParserEmpty Nothing
  22118. 936.28 s [opt-env-conf-test] + (True, False) -> p2
  22119. 936.28 s [opt-env-conf-test] + (False, True) -> p1
  22120. 936.28 s [opt-env-conf-test] + (False, False) ->
  22121. 936.28 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22122. 936.28 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22123. 936.28 s [opt-env-conf-test] + -- alts to always be right-leaning
  22124. 936.28 s [opt-env-conf-test] + --
  22125. 936.28 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22126. 936.28 s [opt-env-conf-test] + -- p
  22127. 936.28 s [opt-env-conf-test] + -- / \
  22128. 936.28 s [opt-env-conf-test] + -- p1 p2
  22129. 936.28 s [opt-env-conf-test] + -- / \
  22130. 936.28 s [opt-env-conf-test] + -- p3 p4
  22131. 936.28 s [opt-env-conf-test] + --
  22132. 936.28 s [opt-env-conf-test] + -- We need to rearrange it to
  22133. 936.28 s [opt-env-conf-test] + -- p
  22134. 936.28 s [opt-env-conf-test] + -- / \
  22135. 936.28 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22136. 936.28 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22137. 936.28 s [opt-env-conf-test] + go (go p1' p3') p4'
  22138. 936.28 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22139. 936.28 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22140. 936.28 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22141. 936.28 s [opt-env-conf-test] + in go p1 p2
  22142. 936.28 s [opt-env-conf-test] many = ParserMany Nothing
  22143. 936.28 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22144. 936.28 s [opt-env-conf-test]
  22145. 936.28 s [opt-env-conf-test]
  22146. 936.28 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  22147. 936.28 s [opt-env-conf-test] @@ -264,32 +264,32 @@
  22148. 936.28 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22149. 936.28 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22150. 936.28 s [opt-env-conf-test] ParserSetting _ _ -> False
  22151. 936.28 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22152. 936.28 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  22153. 936.28 s [opt-env-conf-test] - (True, False) -> p2
  22154. 936.28 s [opt-env-conf-test] - (False, True) -> p1
  22155. 936.28 s [opt-env-conf-test] - (False, False) ->
  22156. 936.28 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22157. 936.28 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22158. 936.28 s [opt-env-conf-test] - -- alts to always be right-leaning
  22159. 936.28 s [opt-env-conf-test] - --
  22160. 936.28 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22161. 936.28 s [opt-env-conf-test] - -- p
  22162. 936.28 s [opt-env-conf-test] - -- / \
  22163. 936.28 s [opt-env-conf-test] - -- p1 p2
  22164. 936.28 s [opt-env-conf-test] - -- / \
  22165. 936.28 s [opt-env-conf-test] - -- p3 p4
  22166. 936.28 s [opt-env-conf-test] - --
  22167. 936.28 s [opt-env-conf-test] - -- We need to rearrange it to
  22168. 936.28 s [opt-env-conf-test] - -- p
  22169. 936.28 s [opt-env-conf-test] - -- / \
  22170. 936.28 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22171. 936.28 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22172. 936.28 s [opt-env-conf-test] - go (go p1' p3') p4'
  22173. 936.28 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22174. 936.28 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22175. 936.28 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22176. 936.28 s [opt-env-conf-test] - in go p1 p2
  22177. 936.28 s [opt-env-conf-test] + in case (isEmpty p1, isEmpty p2) of
  22178. 936.28 s [opt-env-conf-test] + (True, True) -> ParserEmpty Nothing
  22179. 936.28 s [opt-env-conf-test] + (True, False) -> p2
  22180. 936.28 s [opt-env-conf-test] + (False, True) -> p1
  22181. 936.28 s [opt-env-conf-test] + (False, False) ->
  22182. 936.28 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22183. 936.28 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22184. 936.28 s [opt-env-conf-test] + -- alts to always be right-leaning
  22185. 936.28 s [opt-env-conf-test] + --
  22186. 936.28 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22187. 936.28 s [opt-env-conf-test] + -- p
  22188. 936.28 s [opt-env-conf-test] + -- / \
  22189. 936.28 s [opt-env-conf-test] + -- p1 p2
  22190. 936.28 s [opt-env-conf-test] + -- / \
  22191. 936.28 s [opt-env-conf-test] + -- p3 p4
  22192. 936.28 s [opt-env-conf-test] + --
  22193. 936.28 s [opt-env-conf-test] + -- We need to rearrange it to
  22194. 936.28 s [opt-env-conf-test] + -- p
  22195. 936.28 s [opt-env-conf-test] + -- / \
  22196. 936.28 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22197. 936.28 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22198. 936.28 s [opt-env-conf-test] + go (go p1' p3') p4'
  22199. 936.28 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22200. 936.28 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22201. 936.28 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22202. 936.28 s [opt-env-conf-test] + in go p1 p2
  22203. 936.28 s [opt-env-conf-test] many = ParserMany Nothing
  22204. 936.28 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22205. 936.28 s [opt-env-conf-test]
  22206. 936.28 s [opt-env-conf-test]
  22207. 936.28 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  22208. 936.28 s [opt-env-conf-test] @@ -264,32 +264,32 @@
  22209. 936.28 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22210. 936.28 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22211. 936.28 s [opt-env-conf-test] ParserSetting _ _ -> False
  22212. 936.28 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22213. 936.28 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  22214. 936.28 s [opt-env-conf-test] - (True, False) -> p2
  22215. 936.28 s [opt-env-conf-test] - (False, True) -> p1
  22216. 936.28 s [opt-env-conf-test] - (False, False) ->
  22217. 936.28 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22218. 936.28 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22219. 936.28 s [opt-env-conf-test] - -- alts to always be right-leaning
  22220. 936.28 s [opt-env-conf-test] - --
  22221. 936.28 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22222. 936.28 s [opt-env-conf-test] - -- p
  22223. 936.28 s [opt-env-conf-test] - -- / \
  22224. 936.28 s [opt-env-conf-test] - -- p1 p2
  22225. 936.28 s [opt-env-conf-test] - -- / \
  22226. 936.28 s [opt-env-conf-test] - -- p3 p4
  22227. 936.28 s [opt-env-conf-test] - --
  22228. 936.28 s [opt-env-conf-test] - -- We need to rearrange it to
  22229. 936.28 s [opt-env-conf-test] - -- p
  22230. 936.28 s [opt-env-conf-test] - -- / \
  22231. 936.28 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22232. 936.28 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22233. 936.28 s [opt-env-conf-test] - go (go p1' p3') p4'
  22234. 936.28 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22235. 936.28 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22236. 936.28 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22237. 936.28 s [opt-env-conf-test] - in go p1 p2
  22238. 936.28 s [opt-env-conf-test] + in case (isEmpty p1, isEmpty p2) of
  22239. 936.28 s [opt-env-conf-test] + (True, True) -> ParserEmpty Nothing
  22240. 936.28 s [opt-env-conf-test] + (True, False) -> p2
  22241. 936.28 s [opt-env-conf-test] + (False, True) -> p1
  22242. 936.28 s [opt-env-conf-test] + (False, False) ->
  22243. 936.28 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22244. 936.28 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22245. 936.28 s [opt-env-conf-test] + -- alts to always be right-leaning
  22246. 936.28 s [opt-env-conf-test] + --
  22247. 936.28 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22248. 936.28 s [opt-env-conf-test] + -- p
  22249. 936.28 s [opt-env-conf-test] + -- / \
  22250. 936.28 s [opt-env-conf-test] + -- p1 p2
  22251. 936.28 s [opt-env-conf-test] + -- / \
  22252. 936.28 s [opt-env-conf-test] + -- p3 p4
  22253. 936.28 s [opt-env-conf-test] + --
  22254. 936.28 s [opt-env-conf-test] + -- We need to rearrange it to
  22255. 936.28 s [opt-env-conf-test] + -- p
  22256. 936.28 s [opt-env-conf-test] + -- / \
  22257. 936.28 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22258. 936.28 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22259. 936.28 s [opt-env-conf-test] + go (go p1' p3') p4'
  22260. 936.28 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22261. 936.28 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22262. 936.28 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22263. 936.28 s [opt-env-conf-test] + in go p1 p2
  22264. 936.28 s [opt-env-conf-test] many = ParserMany Nothing
  22265. 936.28 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22266. 936.28 s [opt-env-conf-test]
  22267. 936.28 s [opt-env-conf-test]
  22268. 936.28 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  22269. 936.28 s [opt-env-conf-test] @@ -269,26 +269,26 @@
  22270. 936.28 s [opt-env-conf-test] (True, False) -> p2
  22271. 936.28 s [opt-env-conf-test] (False, True) -> p1
  22272. 936.28 s [opt-env-conf-test] (False, False) ->
  22273. 936.28 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22274. 936.28 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22275. 936.28 s [opt-env-conf-test] - -- alts to always be right-leaning
  22276. 936.28 s [opt-env-conf-test] - --
  22277. 936.28 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22278. 936.28 s [opt-env-conf-test] - -- p
  22279. 936.28 s [opt-env-conf-test] - -- / \
  22280. 936.28 s [opt-env-conf-test] - -- p1 p2
  22281. 936.28 s [opt-env-conf-test] - -- / \
  22282. 936.28 s [opt-env-conf-test] - -- p3 p4
  22283. 936.28 s [opt-env-conf-test] - --
  22284. 936.28 s [opt-env-conf-test] - -- We need to rearrange it to
  22285. 936.28 s [opt-env-conf-test] - -- p
  22286. 936.28 s [opt-env-conf-test] - -- / \
  22287. 936.28 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22288. 936.28 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22289. 936.28 s [opt-env-conf-test] - go (go p1' p3') p4'
  22290. 936.28 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22291. 936.28 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22292. 936.28 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22293. 936.28 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22294. 936.28 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22295. 936.28 s [opt-env-conf-test] + -- alts to always be right-leaning
  22296. 936.28 s [opt-env-conf-test] + --
  22297. 936.28 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22298. 936.28 s [opt-env-conf-test] + -- p
  22299. 936.28 s [opt-env-conf-test] + -- / \
  22300. 936.28 s [opt-env-conf-test] + -- p1 p2
  22301. 936.28 s [opt-env-conf-test] + -- / \
  22302. 936.28 s [opt-env-conf-test] + -- p3 p4
  22303. 936.28 s [opt-env-conf-test] + --
  22304. 936.28 s [opt-env-conf-test] + -- We need to rearrange it to
  22305. 936.28 s [opt-env-conf-test] + -- p
  22306. 936.28 s [opt-env-conf-test] + -- / \
  22307. 936.28 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22308. 936.28 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22309. 936.28 s [opt-env-conf-test] + go (go p1' p3') p4'
  22310. 936.28 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22311. 936.28 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22312. 936.28 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22313. 936.28 s [opt-env-conf-test] in go p1 p2
  22314. 936.28 s [opt-env-conf-test] many = ParserMany Nothing
  22315. 936.28 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22316. 936.28 s [opt-env-conf-test]
  22317. 936.28 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  22318. 936.28 s [opt-env-conf-test] @@ -269,26 +269,26 @@
  22319. 936.28 s [opt-env-conf-test] (True, False) -> p2
  22320. 936.28 s [opt-env-conf-test] (False, True) -> p1
  22321. 936.28 s [opt-env-conf-test] (False, False) ->
  22322. 936.28 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22323. 936.28 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22324. 936.28 s [opt-env-conf-test] - -- alts to always be right-leaning
  22325. 936.28 s [opt-env-conf-test] - --
  22326. 936.28 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22327. 936.28 s [opt-env-conf-test] - -- p
  22328. 936.28 s [opt-env-conf-test] - -- / \
  22329. 936.28 s [opt-env-conf-test] - -- p1 p2
  22330. 936.28 s [opt-env-conf-test] - -- / \
  22331. 936.28 s [opt-env-conf-test] - -- p3 p4
  22332. 936.28 s [opt-env-conf-test] - --
  22333. 936.28 s [opt-env-conf-test] - -- We need to rearrange it to
  22334. 936.29 s [opt-env-conf-test] - -- p
  22335. 936.29 s [opt-env-conf-test] - -- / \
  22336. 936.29 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22337. 936.29 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22338. 936.29 s [opt-env-conf-test] - go (go p1' p3') p4'
  22339. 936.29 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22340. 936.29 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22341. 936.29 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22342. 936.29 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22343. 936.29 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22344. 936.29 s [opt-env-conf-test] + -- alts to always be right-leaning
  22345. 936.29 s [opt-env-conf-test] + --
  22346. 936.29 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22347. 936.29 s [opt-env-conf-test] + -- p
  22348. 936.29 s [opt-env-conf-test] + -- / \
  22349. 936.29 s [opt-env-conf-test] + -- p1 p2
  22350. 936.29 s [opt-env-conf-test] + -- / \
  22351. 936.29 s [opt-env-conf-test] + -- p3 p4
  22352. 936.29 s [opt-env-conf-test] + --
  22353. 936.29 s [opt-env-conf-test] + -- We need to rearrange it to
  22354. 936.29 s [opt-env-conf-test] + -- p
  22355. 936.29 s [opt-env-conf-test] + -- / \
  22356. 936.29 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22357. 936.29 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22358. 936.29 s [opt-env-conf-test] + go (go p1' p3') p4'
  22359. 936.29 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22360. 936.29 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22361. 936.29 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22362. 936.29 s [opt-env-conf-test] in go p1 p2
  22363. 936.29 s [opt-env-conf-test] many = ParserMany Nothing
  22364. 936.29 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22365. 936.29 s [opt-env-conf-test]
  22366. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:27-37
  22367. 936.29 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  22368. 936.29 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22369. 936.29 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22370. 936.29 s [opt-env-conf-test] ParserSetting _ _ -> False
  22371. 936.29 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22372. 936.29 s [opt-env-conf-test] + in case (isEmpty p1, False) of
  22373. 936.29 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  22374. 936.29 s [opt-env-conf-test] (True, False) -> p2
  22375. 936.29 s [opt-env-conf-test] (False, True) -> p1
  22376. 936.29 s [opt-env-conf-test]
  22377. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:15-25
  22378. 936.29 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  22379. 936.29 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22380. 936.29 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22381. 936.29 s [opt-env-conf-test] ParserSetting _ _ -> False
  22382. 936.29 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22383. 936.29 s [opt-env-conf-test] + in case (False, isEmpty p2) of
  22384. 936.29 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  22385. 936.29 s [opt-env-conf-test] (True, False) -> p2
  22386. 936.29 s [opt-env-conf-test] (False, True) -> p1
  22387. 936.29 s [opt-env-conf-test]
  22388. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:264:36-43
  22389. 936.29 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  22390. 936.29 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22391. 936.29 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  22392. 936.29 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  22393. 936.29 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  22394. 936.29 s [opt-env-conf-test] + ParserCommands _ _ cs -> False
  22395. 936.29 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22396. 936.29 s [opt-env-conf-test] ParserSetting _ _ -> False
  22397. 936.29 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  22398. 936.29 s [opt-env-conf-test]
  22399. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:263:36-45
  22400. 936.29 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  22401. 936.29 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  22402. 936.29 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22403. 936.29 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  22404. 936.29 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  22405. 936.29 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> False
  22406. 936.29 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22407. 936.29 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22408. 936.29 s [opt-env-conf-test] ParserSetting _ _ -> False
  22409. 936.29 s [opt-env-conf-test]
  22410. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:262:37-46
  22411. 936.29 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  22412. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22413. 936.29 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  22414. 936.29 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22415. 936.29 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  22416. 936.29 s [opt-env-conf-test] + ParserAllOrNothing _ p -> False
  22417. 936.29 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  22418. 936.29 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22419. 936.29 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22420. 936.29 s [opt-env-conf-test]
  22421. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:260:29-38
  22422. 936.29 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  22423. 936.29 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22424. 936.29 s [opt-env-conf-test] ParserEmpty _ -> True
  22425. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22426. 936.29 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  22427. 936.29 s [opt-env-conf-test] + ParserMany _ p -> False
  22428. 936.29 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22429. 936.29 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  22430. 936.29 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  22431. 936.29 s [opt-env-conf-test]
  22432. 936.29 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Parser.hs:258:28-32
  22433. 936.29 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  22434. 936.29 s [opt-env-conf-test] ParserPure _ -> False
  22435. 936.29 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  22436. 936.29 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22437. 936.29 s [opt-env-conf-test] - ParserEmpty _ -> True
  22438. 936.29 s [opt-env-conf-test] + ParserEmpty _ -> False
  22439. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22440. 936.29 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  22441. 936.29 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22442. 936.29 s [opt-env-conf-test]
  22443. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-53
  22444. 936.29 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22445. 936.29 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22446. 936.29 s [opt-env-conf-test] isEmpty = \case
  22447. 936.29 s [opt-env-conf-test] ParserPure _ -> False
  22448. 936.29 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22449. 936.29 s [opt-env-conf-test] + ParserAp pf pa -> False
  22450. 936.29 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22451. 936.29 s [opt-env-conf-test] ParserEmpty _ -> True
  22452. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22453. 936.29 s [opt-env-conf-test]
  22454. 936.29 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:43-53
  22455. 936.29 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22456. 936.29 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22457. 936.29 s [opt-env-conf-test] isEmpty = \case
  22458. 936.29 s [opt-env-conf-test] ParserPure _ -> False
  22459. 936.29 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22460. 936.29 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
  22461. 936.29 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22462. 936.29 s [opt-env-conf-test] ParserEmpty _ -> True
  22463. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22464. 936.29 s [opt-env-conf-test]
  22465. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  22466. 936.29 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22467. 936.29 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22468. 936.29 s [opt-env-conf-test] isEmpty = \case
  22469. 936.29 s [opt-env-conf-test] ParserPure _ -> False
  22470. 936.29 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22471. 936.29 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && False
  22472. 936.29 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22473. 936.29 s [opt-env-conf-test] ParserEmpty _ -> True
  22474. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22475. 936.29 s [opt-env-conf-test]
  22476. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  22477. 936.29 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22478. 936.29 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22479. 936.29 s [opt-env-conf-test] isEmpty = \case
  22480. 936.29 s [opt-env-conf-test] ParserPure _ -> False
  22481. 936.29 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22482. 936.29 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && True
  22483. 936.29 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22484. 936.29 s [opt-env-conf-test] ParserEmpty _ -> True
  22485. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22486. 936.29 s [opt-env-conf-test]
  22487. 936.29 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:29-39
  22488. 936.29 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22489. 936.29 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22490. 936.29 s [opt-env-conf-test] isEmpty = \case
  22491. 936.29 s [opt-env-conf-test] ParserPure _ -> False
  22492. 936.29 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22493. 936.29 s [opt-env-conf-test] + ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
  22494. 936.29 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22495. 936.29 s [opt-env-conf-test] ParserEmpty _ -> True
  22496. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22497. 936.29 s [opt-env-conf-test]
  22498. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  22499. 936.29 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22500. 936.29 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22501. 936.29 s [opt-env-conf-test] isEmpty = \case
  22502. 936.29 s [opt-env-conf-test] ParserPure _ -> False
  22503. 936.29 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22504. 936.29 s [opt-env-conf-test] + ParserAp pf pa -> False && isEmpty pa
  22505. 936.29 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22506. 936.29 s [opt-env-conf-test] ParserEmpty _ -> True
  22507. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22508. 936.29 s [opt-env-conf-test]
  22509. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  22510. 936.29 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22511. 936.29 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22512. 936.29 s [opt-env-conf-test] isEmpty = \case
  22513. 936.29 s [opt-env-conf-test] ParserPure _ -> False
  22514. 936.29 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22515. 936.29 s [opt-env-conf-test] + ParserAp pf pa -> True && isEmpty pa
  22516. 936.29 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22517. 936.29 s [opt-env-conf-test] ParserEmpty _ -> True
  22518. 936.29 s [opt-env-conf-test] ParserAlt _ _ -> False
  22519. 936.29 s [opt-env-conf-test]
  22520. 936.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:297:39-40
  22521. 936.29 s [opt-env-conf-test] @@ -294,7 +294,7 @@
  22522. 936.29 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22523. 936.29 s [opt-env-conf-test]
  22524. 936.29 s [opt-env-conf-test] showParserABit :: Parser a -> String
  22525. 936.29 s [opt-env-conf-test] -showParserABit = flip (showParserPrec 0) ""
  22526. 936.29 s [opt-env-conf-test] +showParserABit = flip (showParserPrec 1) ""
  22527. 936.29 s [opt-env-conf-test]
  22528. 936.29 s [opt-env-conf-test] showParserPrec :: Int -> Parser a -> ShowS
  22529. 936.29 s [opt-env-conf-test] showParserPrec = go
  22530. 936.29 s [opt-env-conf-test]
  22531. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:19-27
  22532. 936.29 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22533. 936.29 s [opt-env-conf-test] . showString " "
  22534. 936.29 s [opt-env-conf-test] . go 11 p2
  22535. 936.29 s [opt-env-conf-test] ParserSetting mLoc p ->
  22536. 936.29 s [opt-env-conf-test] - showParen (d > 10) $
  22537. 936.29 s [opt-env-conf-test] + showParen True $
  22538. 936.29 s [opt-env-conf-test] showString "Setting "
  22539. 936.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  22540. 936.29 s [opt-env-conf-test] . showString " "
  22541. 936.29 s [opt-env-conf-test]
  22542. 936.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:20-26
  22543. 936.29 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22544. 936.29 s [opt-env-conf-test] . showString " "
  22545. 936.29 s [opt-env-conf-test] . go 11 p2
  22546. 936.29 s [opt-env-conf-test] ParserSetting mLoc p ->
  22547. 936.29 s [opt-env-conf-test] - showParen (d > 10) $
  22548. 936.29 s [opt-env-conf-test] + showParen (True) $
  22549. 936.29 s [opt-env-conf-test] showString "Setting "
  22550. 936.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  22551. 936.29 s [opt-env-conf-test] . showString " "
  22552. 936.29 s [opt-env-conf-test]
  22553. 936.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  22554. 936.29 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22555. 936.29 s [opt-env-conf-test] . showString " "
  22556. 936.29 s [opt-env-conf-test] . go 11 p2
  22557. 936.29 s [opt-env-conf-test] ParserSetting mLoc p ->
  22558. 936.29 s [opt-env-conf-test] - showParen (d > 10) $
  22559. 936.29 s [opt-env-conf-test] + showParen (d > -10) $
  22560. 936.29 s [opt-env-conf-test] showString "Setting "
  22561. 936.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  22562. 936.29 s [opt-env-conf-test] . showString " "
  22563. 936.29 s [opt-env-conf-test]
  22564. 936.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  22565. 936.29 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22566. 936.29 s [opt-env-conf-test] . showString " "
  22567. 936.29 s [opt-env-conf-test] . go 11 p2
  22568. 936.29 s [opt-env-conf-test] ParserSetting mLoc p ->
  22569. 936.29 s [opt-env-conf-test] - showParen (d > 10) $
  22570. 936.29 s [opt-env-conf-test] + showParen (d > 1) $
  22571. 936.29 s [opt-env-conf-test] showString "Setting "
  22572. 936.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  22573. 936.29 s [opt-env-conf-test] . showString " "
  22574. 936.29 s [opt-env-conf-test]
  22575. 936.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  22576. 936.29 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22577. 936.29 s [opt-env-conf-test] . showString " "
  22578. 936.29 s [opt-env-conf-test] . go 11 p2
  22579. 936.29 s [opt-env-conf-test] ParserSetting mLoc p ->
  22580. 936.29 s [opt-env-conf-test] - showParen (d > 10) $
  22581. 936.29 s [opt-env-conf-test] + showParen (d > 0) $
  22582. 936.29 s [opt-env-conf-test] showString "Setting "
  22583. 936.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  22584. 936.29 s [opt-env-conf-test] . showString " "
  22585. 936.29 s [opt-env-conf-test]
  22586. 936.29 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:19-27
  22587. 936.30 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22588. 936.30 s [opt-env-conf-test] showCommandABit
  22589. 936.30 s [opt-env-conf-test] cs
  22590. 936.30 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22591. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22592. 936.30 s [opt-env-conf-test] + showParen not ((d > 10)) $
  22593. 936.30 s [opt-env-conf-test] showString "WithConfig _ "
  22594. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22595. 936.30 s [opt-env-conf-test] . showString " "
  22596. 936.30 s [opt-env-conf-test]
  22597. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  22598. 936.30 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22599. 936.30 s [opt-env-conf-test] showCommandABit
  22600. 936.30 s [opt-env-conf-test] cs
  22601. 936.30 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22602. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22603. 936.30 s [opt-env-conf-test] + showParen False $
  22604. 936.30 s [opt-env-conf-test] showString "WithConfig _ "
  22605. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22606. 936.30 s [opt-env-conf-test] . showString " "
  22607. 936.30 s [opt-env-conf-test]
  22608. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  22609. 936.30 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22610. 936.30 s [opt-env-conf-test] showCommandABit
  22611. 936.30 s [opt-env-conf-test] cs
  22612. 936.30 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22613. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22614. 936.30 s [opt-env-conf-test] + showParen True $
  22615. 936.30 s [opt-env-conf-test] showString "WithConfig _ "
  22616. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22617. 936.30 s [opt-env-conf-test] . showString " "
  22618. 936.30 s [opt-env-conf-test]
  22619. 936.30 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:20-26
  22620. 936.30 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22621. 936.30 s [opt-env-conf-test] showCommandABit
  22622. 936.30 s [opt-env-conf-test] cs
  22623. 936.30 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22624. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22625. 936.30 s [opt-env-conf-test] + showParen (not (d > 10)) $
  22626. 936.30 s [opt-env-conf-test] showString "WithConfig _ "
  22627. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22628. 936.30 s [opt-env-conf-test] . showString " "
  22629. 936.30 s [opt-env-conf-test]
  22630. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  22631. 936.30 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22632. 936.30 s [opt-env-conf-test] showCommandABit
  22633. 936.30 s [opt-env-conf-test] cs
  22634. 936.30 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22635. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22636. 936.30 s [opt-env-conf-test] + showParen (False) $
  22637. 936.30 s [opt-env-conf-test] showString "WithConfig _ "
  22638. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22639. 936.30 s [opt-env-conf-test] . showString " "
  22640. 936.30 s [opt-env-conf-test]
  22641. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  22642. 936.30 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22643. 936.30 s [opt-env-conf-test] showCommandABit
  22644. 936.30 s [opt-env-conf-test] cs
  22645. 936.30 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22646. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22647. 936.30 s [opt-env-conf-test] + showParen (True) $
  22648. 936.30 s [opt-env-conf-test] showString "WithConfig _ "
  22649. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22650. 936.30 s [opt-env-conf-test] . showString " "
  22651. 936.30 s [opt-env-conf-test]
  22652. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  22653. 936.30 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22654. 936.30 s [opt-env-conf-test] showCommandABit
  22655. 936.30 s [opt-env-conf-test] cs
  22656. 936.30 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22657. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22658. 936.30 s [opt-env-conf-test] + showParen (d > -10) $
  22659. 936.30 s [opt-env-conf-test] showString "WithConfig _ "
  22660. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22661. 936.30 s [opt-env-conf-test] . showString " "
  22662. 936.30 s [opt-env-conf-test]
  22663. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  22664. 936.30 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22665. 936.30 s [opt-env-conf-test] showCommandABit
  22666. 936.30 s [opt-env-conf-test] cs
  22667. 936.30 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22668. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22669. 936.30 s [opt-env-conf-test] + showParen (d > 1) $
  22670. 936.30 s [opt-env-conf-test] showString "WithConfig _ "
  22671. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22672. 936.30 s [opt-env-conf-test] . showString " "
  22673. 936.30 s [opt-env-conf-test]
  22674. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  22675. 936.30 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22676. 936.30 s [opt-env-conf-test] showCommandABit
  22677. 936.30 s [opt-env-conf-test] cs
  22678. 936.30 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22679. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22680. 936.30 s [opt-env-conf-test] + showParen (d > 0) $
  22681. 936.30 s [opt-env-conf-test] showString "WithConfig _ "
  22682. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22683. 936.30 s [opt-env-conf-test] . showString " "
  22684. 936.30 s [opt-env-conf-test]
  22685. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:19-27
  22686. 936.30 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22687. 936.30 s [opt-env-conf-test] . showString " _ "
  22688. 936.30 s [opt-env-conf-test] . go 11 p
  22689. 936.30 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22690. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22691. 936.30 s [opt-env-conf-test] + showParen True $
  22692. 936.30 s [opt-env-conf-test] showString "Commands "
  22693. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22694. 936.30 s [opt-env-conf-test] . showString " "
  22695. 936.30 s [opt-env-conf-test]
  22696. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:20-26
  22697. 936.30 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22698. 936.30 s [opt-env-conf-test] . showString " _ "
  22699. 936.30 s [opt-env-conf-test] . go 11 p
  22700. 936.30 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22701. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22702. 936.30 s [opt-env-conf-test] + showParen (True) $
  22703. 936.30 s [opt-env-conf-test] showString "Commands "
  22704. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22705. 936.30 s [opt-env-conf-test] . showString " "
  22706. 936.30 s [opt-env-conf-test]
  22707. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  22708. 936.30 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22709. 936.30 s [opt-env-conf-test] . showString " _ "
  22710. 936.30 s [opt-env-conf-test] . go 11 p
  22711. 936.30 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22712. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22713. 936.30 s [opt-env-conf-test] + showParen (d > -10) $
  22714. 936.30 s [opt-env-conf-test] showString "Commands "
  22715. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22716. 936.30 s [opt-env-conf-test] . showString " "
  22717. 936.30 s [opt-env-conf-test]
  22718. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  22719. 936.30 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22720. 936.30 s [opt-env-conf-test] . showString " _ "
  22721. 936.30 s [opt-env-conf-test] . go 11 p
  22722. 936.30 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22723. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22724. 936.30 s [opt-env-conf-test] + showParen (d > 1) $
  22725. 936.30 s [opt-env-conf-test] showString "Commands "
  22726. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22727. 936.30 s [opt-env-conf-test] . showString " "
  22728. 936.30 s [opt-env-conf-test]
  22729. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  22730. 936.30 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22731. 936.30 s [opt-env-conf-test] . showString " _ "
  22732. 936.30 s [opt-env-conf-test] . go 11 p
  22733. 936.30 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22734. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22735. 936.30 s [opt-env-conf-test] + showParen (d > 0) $
  22736. 936.30 s [opt-env-conf-test] showString "Commands "
  22737. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22738. 936.30 s [opt-env-conf-test] . showString " "
  22739. 936.30 s [opt-env-conf-test]
  22740. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:19-27
  22741. 936.30 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22742. 936.30 s [opt-env-conf-test] . showString " "
  22743. 936.30 s [opt-env-conf-test] . go 11 p
  22744. 936.30 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22745. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22746. 936.30 s [opt-env-conf-test] + showParen True $
  22747. 936.30 s [opt-env-conf-test] showString "Check "
  22748. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22749. 936.30 s [opt-env-conf-test] . showString " "
  22750. 936.30 s [opt-env-conf-test]
  22751. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:20-26
  22752. 936.30 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22753. 936.30 s [opt-env-conf-test] . showString " "
  22754. 936.30 s [opt-env-conf-test] . go 11 p
  22755. 936.30 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22756. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22757. 936.30 s [opt-env-conf-test] + showParen (True) $
  22758. 936.30 s [opt-env-conf-test] showString "Check "
  22759. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22760. 936.30 s [opt-env-conf-test] . showString " "
  22761. 936.30 s [opt-env-conf-test]
  22762. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  22763. 936.30 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22764. 936.30 s [opt-env-conf-test] . showString " "
  22765. 936.30 s [opt-env-conf-test] . go 11 p
  22766. 936.30 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22767. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22768. 936.30 s [opt-env-conf-test] + showParen (d > -10) $
  22769. 936.30 s [opt-env-conf-test] showString "Check "
  22770. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22771. 936.30 s [opt-env-conf-test] . showString " "
  22772. 936.30 s [opt-env-conf-test]
  22773. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  22774. 936.30 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22775. 936.30 s [opt-env-conf-test] . showString " "
  22776. 936.30 s [opt-env-conf-test] . go 11 p
  22777. 936.30 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22778. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22779. 936.30 s [opt-env-conf-test] + showParen (d > 1) $
  22780. 936.30 s [opt-env-conf-test] showString "Check "
  22781. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22782. 936.30 s [opt-env-conf-test] . showString " "
  22783. 936.30 s [opt-env-conf-test]
  22784. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  22785. 936.30 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22786. 936.30 s [opt-env-conf-test] . showString " "
  22787. 936.30 s [opt-env-conf-test] . go 11 p
  22788. 936.30 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22789. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22790. 936.30 s [opt-env-conf-test] + showParen (d > 0) $
  22791. 936.30 s [opt-env-conf-test] showString "Check "
  22792. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22793. 936.30 s [opt-env-conf-test] . showString " "
  22794. 936.30 s [opt-env-conf-test]
  22795. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:19-27
  22796. 936.30 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22797. 936.30 s [opt-env-conf-test] . showString " "
  22798. 936.30 s [opt-env-conf-test] . go 11 p
  22799. 936.30 s [opt-env-conf-test] ParserSome mLoc p ->
  22800. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22801. 936.30 s [opt-env-conf-test] + showParen True $
  22802. 936.30 s [opt-env-conf-test] showString "Some "
  22803. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22804. 936.30 s [opt-env-conf-test] . showString " "
  22805. 936.30 s [opt-env-conf-test]
  22806. 936.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:20-26
  22807. 936.30 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22808. 936.30 s [opt-env-conf-test] . showString " "
  22809. 936.30 s [opt-env-conf-test] . go 11 p
  22810. 936.30 s [opt-env-conf-test] ParserSome mLoc p ->
  22811. 936.30 s [opt-env-conf-test] - showParen (d > 10) $
  22812. 936.30 s [opt-env-conf-test] + showParen (True) $
  22813. 936.30 s [opt-env-conf-test] showString "Some "
  22814. 936.30 s [opt-env-conf-test] . showsPrec 11 mLoc
  22815. 936.30 s [opt-env-conf-test] . showString " "
  22816. 936.30 s [opt-env-conf-test]
  22817. 936.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  22818. 936.30 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22819. 936.30 s [opt-env-conf-test] . showString " "
  22820. 936.31 s [opt-env-conf-test] . go 11 p
  22821. 936.31 s [opt-env-conf-test] ParserSome mLoc p ->
  22822. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22823. 936.31 s [opt-env-conf-test] + showParen (d > -10) $
  22824. 936.31 s [opt-env-conf-test] showString "Some "
  22825. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22826. 936.31 s [opt-env-conf-test] . showString " "
  22827. 936.31 s [opt-env-conf-test]
  22828. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  22829. 936.31 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22830. 936.31 s [opt-env-conf-test] . showString " "
  22831. 936.31 s [opt-env-conf-test] . go 11 p
  22832. 936.31 s [opt-env-conf-test] ParserSome mLoc p ->
  22833. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22834. 936.31 s [opt-env-conf-test] + showParen (d > 1) $
  22835. 936.31 s [opt-env-conf-test] showString "Some "
  22836. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22837. 936.31 s [opt-env-conf-test] . showString " "
  22838. 936.31 s [opt-env-conf-test]
  22839. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  22840. 936.31 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22841. 936.31 s [opt-env-conf-test] . showString " "
  22842. 936.31 s [opt-env-conf-test] . go 11 p
  22843. 936.31 s [opt-env-conf-test] ParserSome mLoc p ->
  22844. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22845. 936.31 s [opt-env-conf-test] + showParen (d > 0) $
  22846. 936.31 s [opt-env-conf-test] showString "Some "
  22847. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22848. 936.31 s [opt-env-conf-test] . showString " "
  22849. 936.31 s [opt-env-conf-test]
  22850. 936.31 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:19-27
  22851. 936.31 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22852. 936.31 s [opt-env-conf-test] . showString " "
  22853. 936.31 s [opt-env-conf-test] . go 11 p2
  22854. 936.31 s [opt-env-conf-test] ParserMany mLoc p ->
  22855. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22856. 936.31 s [opt-env-conf-test] + showParen True $
  22857. 936.31 s [opt-env-conf-test] showString "Many "
  22858. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22859. 936.31 s [opt-env-conf-test] . showString " "
  22860. 936.31 s [opt-env-conf-test]
  22861. 936.31 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:20-26
  22862. 936.31 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22863. 936.31 s [opt-env-conf-test] . showString " "
  22864. 936.31 s [opt-env-conf-test] . go 11 p2
  22865. 936.31 s [opt-env-conf-test] ParserMany mLoc p ->
  22866. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22867. 936.31 s [opt-env-conf-test] + showParen (True) $
  22868. 936.31 s [opt-env-conf-test] showString "Many "
  22869. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22870. 936.31 s [opt-env-conf-test] . showString " "
  22871. 936.31 s [opt-env-conf-test]
  22872. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  22873. 936.31 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22874. 936.31 s [opt-env-conf-test] . showString " "
  22875. 936.31 s [opt-env-conf-test] . go 11 p2
  22876. 936.31 s [opt-env-conf-test] ParserMany mLoc p ->
  22877. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22878. 936.31 s [opt-env-conf-test] + showParen (d > -10) $
  22879. 936.31 s [opt-env-conf-test] showString "Many "
  22880. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22881. 936.31 s [opt-env-conf-test] . showString " "
  22882. 936.31 s [opt-env-conf-test]
  22883. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  22884. 936.31 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22885. 936.31 s [opt-env-conf-test] . showString " "
  22886. 936.31 s [opt-env-conf-test] . go 11 p2
  22887. 936.31 s [opt-env-conf-test] ParserMany mLoc p ->
  22888. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22889. 936.31 s [opt-env-conf-test] + showParen (d > 1) $
  22890. 936.31 s [opt-env-conf-test] showString "Many "
  22891. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22892. 936.31 s [opt-env-conf-test] . showString " "
  22893. 936.31 s [opt-env-conf-test]
  22894. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  22895. 936.31 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22896. 936.31 s [opt-env-conf-test] . showString " "
  22897. 936.31 s [opt-env-conf-test] . go 11 p2
  22898. 936.31 s [opt-env-conf-test] ParserMany mLoc p ->
  22899. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22900. 936.31 s [opt-env-conf-test] + showParen (d > 0) $
  22901. 936.31 s [opt-env-conf-test] showString "Many "
  22902. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22903. 936.31 s [opt-env-conf-test] . showString " "
  22904. 936.31 s [opt-env-conf-test]
  22905. 936.31 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:19-27
  22906. 936.31 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22907. 936.31 s [opt-env-conf-test] showString "Empty "
  22908. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22909. 936.31 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22910. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22911. 936.31 s [opt-env-conf-test] + showParen True $
  22912. 936.31 s [opt-env-conf-test] showString "Alt "
  22913. 936.31 s [opt-env-conf-test] . go 11 p1
  22914. 936.31 s [opt-env-conf-test] . showString " "
  22915. 936.31 s [opt-env-conf-test]
  22916. 936.31 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:20-26
  22917. 936.31 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22918. 936.31 s [opt-env-conf-test] showString "Empty "
  22919. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22920. 936.31 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22921. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22922. 936.31 s [opt-env-conf-test] + showParen (True) $
  22923. 936.31 s [opt-env-conf-test] showString "Alt "
  22924. 936.31 s [opt-env-conf-test] . go 11 p1
  22925. 936.31 s [opt-env-conf-test] . showString " "
  22926. 936.31 s [opt-env-conf-test]
  22927. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  22928. 936.31 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22929. 936.31 s [opt-env-conf-test] showString "Empty "
  22930. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22931. 936.31 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22932. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22933. 936.31 s [opt-env-conf-test] + showParen (d > -10) $
  22934. 936.31 s [opt-env-conf-test] showString "Alt "
  22935. 936.31 s [opt-env-conf-test] . go 11 p1
  22936. 936.31 s [opt-env-conf-test] . showString " "
  22937. 936.31 s [opt-env-conf-test]
  22938. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  22939. 936.31 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22940. 936.31 s [opt-env-conf-test] showString "Empty "
  22941. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22942. 936.31 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22943. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22944. 936.31 s [opt-env-conf-test] + showParen (d > 1) $
  22945. 936.31 s [opt-env-conf-test] showString "Alt "
  22946. 936.31 s [opt-env-conf-test] . go 11 p1
  22947. 936.31 s [opt-env-conf-test] . showString " "
  22948. 936.31 s [opt-env-conf-test]
  22949. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  22950. 936.31 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22951. 936.31 s [opt-env-conf-test] showString "Empty "
  22952. 936.31 s [opt-env-conf-test] . showsPrec 11 mLoc
  22953. 936.31 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22954. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22955. 936.31 s [opt-env-conf-test] + showParen (d > 0) $
  22956. 936.31 s [opt-env-conf-test] showString "Alt "
  22957. 936.31 s [opt-env-conf-test] . go 11 p1
  22958. 936.31 s [opt-env-conf-test] . showString " "
  22959. 936.31 s [opt-env-conf-test]
  22960. 936.31 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:19-27
  22961. 936.31 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22962. 936.31 s [opt-env-conf-test] go d = \case
  22963. 936.31 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22964. 936.31 s [opt-env-conf-test] ParserAp pf pa ->
  22965. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22966. 936.31 s [opt-env-conf-test] + showParen True $
  22967. 936.31 s [opt-env-conf-test] showString "Ap "
  22968. 936.31 s [opt-env-conf-test] . go 11 pf
  22969. 936.31 s [opt-env-conf-test] . showString " "
  22970. 936.31 s [opt-env-conf-test]
  22971. 936.31 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:20-26
  22972. 936.31 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22973. 936.31 s [opt-env-conf-test] go d = \case
  22974. 936.31 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22975. 936.31 s [opt-env-conf-test] ParserAp pf pa ->
  22976. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22977. 936.31 s [opt-env-conf-test] + showParen (True) $
  22978. 936.31 s [opt-env-conf-test] showString "Ap "
  22979. 936.31 s [opt-env-conf-test] . go 11 pf
  22980. 936.31 s [opt-env-conf-test] . showString " "
  22981. 936.31 s [opt-env-conf-test]
  22982. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  22983. 936.31 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22984. 936.31 s [opt-env-conf-test] go d = \case
  22985. 936.31 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22986. 936.31 s [opt-env-conf-test] ParserAp pf pa ->
  22987. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22988. 936.31 s [opt-env-conf-test] + showParen (d > -10) $
  22989. 936.31 s [opt-env-conf-test] showString "Ap "
  22990. 936.31 s [opt-env-conf-test] . go 11 pf
  22991. 936.31 s [opt-env-conf-test] . showString " "
  22992. 936.31 s [opt-env-conf-test]
  22993. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  22994. 936.31 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22995. 936.31 s [opt-env-conf-test] go d = \case
  22996. 936.31 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22997. 936.31 s [opt-env-conf-test] ParserAp pf pa ->
  22998. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  22999. 936.31 s [opt-env-conf-test] + showParen (d > 1) $
  23000. 936.31 s [opt-env-conf-test] showString "Ap "
  23001. 936.31 s [opt-env-conf-test] . go 11 pf
  23002. 936.31 s [opt-env-conf-test] . showString " "
  23003. 936.31 s [opt-env-conf-test]
  23004. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  23005. 936.31 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  23006. 936.31 s [opt-env-conf-test] go d = \case
  23007. 936.31 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23008. 936.31 s [opt-env-conf-test] ParserAp pf pa ->
  23009. 936.31 s [opt-env-conf-test] - showParen (d > 10) $
  23010. 936.31 s [opt-env-conf-test] + showParen (d > 0) $
  23011. 936.31 s [opt-env-conf-test] showString "Ap "
  23012. 936.31 s [opt-env-conf-test] . go 11 pf
  23013. 936.31 s [opt-env-conf-test] . showString " "
  23014. 936.31 s [opt-env-conf-test]
  23015. 936.31 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:33-41
  23016. 936.31 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  23017. 936.31 s [opt-env-conf-test] where
  23018. 936.31 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  23019. 936.31 s [opt-env-conf-test] go d = \case
  23020. 936.31 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23021. 936.31 s [opt-env-conf-test] + ParserPure _ -> showParen True $ showString "Pure _"
  23022. 936.31 s [opt-env-conf-test] ParserAp pf pa ->
  23023. 936.31 s [opt-env-conf-test] showParen (d > 10) $
  23024. 936.31 s [opt-env-conf-test] showString "Ap "
  23025. 936.31 s [opt-env-conf-test]
  23026. 936.31 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:34-40
  23027. 936.31 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  23028. 936.31 s [opt-env-conf-test] where
  23029. 936.31 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  23030. 936.31 s [opt-env-conf-test] go d = \case
  23031. 936.31 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23032. 936.31 s [opt-env-conf-test] + ParserPure _ -> showParen (True) $ showString "Pure _"
  23033. 936.31 s [opt-env-conf-test] ParserAp pf pa ->
  23034. 936.31 s [opt-env-conf-test] showParen (d > 10) $
  23035. 936.31 s [opt-env-conf-test] showString "Ap "
  23036. 936.31 s [opt-env-conf-test]
  23037. 936.31 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  23038. 936.31 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  23039. 936.31 s [opt-env-conf-test] where
  23040. 936.31 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  23041. 936.31 s [opt-env-conf-test] go d = \case
  23042. 936.32 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23043. 936.32 s [opt-env-conf-test] + ParserPure _ -> showParen (d > -10) $ showString "Pure _"
  23044. 936.32 s [opt-env-conf-test] ParserAp pf pa ->
  23045. 936.32 s [opt-env-conf-test] showParen (d > 10) $
  23046. 936.32 s [opt-env-conf-test] showString "Ap "
  23047. 936.32 s [opt-env-conf-test]
  23048. 936.32 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  23049. 936.32 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  23050. 936.32 s [opt-env-conf-test] where
  23051. 936.32 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  23052. 936.32 s [opt-env-conf-test] go d = \case
  23053. 936.32 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23054. 936.32 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 1) $ showString "Pure _"
  23055. 936.32 s [opt-env-conf-test] ParserAp pf pa ->
  23056. 936.32 s [opt-env-conf-test] showParen (d > 10) $
  23057. 936.32 s [opt-env-conf-test] showString "Ap "
  23058. 936.32 s [opt-env-conf-test]
  23059. 936.32 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  23060. 936.32 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  23061. 936.32 s [opt-env-conf-test] where
  23062. 936.32 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  23063. 936.32 s [opt-env-conf-test] go d = \case
  23064. 936.32 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23065. 936.32 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 0) $ showString "Pure _"
  23066. 936.32 s [opt-env-conf-test] ParserAp pf pa ->
  23067. 936.32 s [opt-env-conf-test] showParen (d > 10) $
  23068. 936.32 s [opt-env-conf-test] showString "Ap "
  23069. 936.32 s [opt-env-conf-test]
  23070. 936.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23071. 936.32 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23072. 936.32 s [opt-env-conf-test] where
  23073. 936.32 s [opt-env-conf-test] go p =
  23074. 936.32 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23075. 936.32 s [opt-env-conf-test] - in case p of
  23076. 936.32 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23077. 936.32 s [opt-env-conf-test] - ParserAp {} -> p'
  23078. 936.32 s [opt-env-conf-test] - ParserSelect {} -> p'
  23079. 936.32 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23080. 936.32 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23081. 936.32 s [opt-env-conf-test] - ParserMany {} -> p'
  23082. 936.32 s [opt-env-conf-test] - ParserSome {} -> p'
  23083. 936.32 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23084. 936.32 s [opt-env-conf-test] - ParserCheck {} -> p'
  23085. 936.32 s [opt-env-conf-test] - ParserCommands {} -> p'
  23086. 936.32 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23087. 936.32 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23088. 936.32 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23089. 936.32 s [opt-env-conf-test] - Just _ -> p
  23090. 936.32 s [opt-env-conf-test] + in case p of
  23091. 936.32 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23092. 936.32 s [opt-env-conf-test] + ParserAp {} -> p'
  23093. 936.32 s [opt-env-conf-test] + ParserSelect {} -> p'
  23094. 936.32 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23095. 936.32 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23096. 936.32 s [opt-env-conf-test] + ParserMany {} -> p'
  23097. 936.32 s [opt-env-conf-test] + ParserSome {} -> p'
  23098. 936.32 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23099. 936.32 s [opt-env-conf-test] + ParserCheck {} -> p'
  23100. 936.32 s [opt-env-conf-test] + ParserCommands {} -> p'
  23101. 936.32 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23102. 936.32 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23103. 936.32 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23104. 936.32 s [opt-env-conf-test] + Just _ -> p
  23105. 936.32 s [opt-env-conf-test]
  23106. 936.32 s [opt-env-conf-test] -- | Try a list of parsers in order
  23107. 936.32 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23108. 936.32 s [opt-env-conf-test]
  23109. 936.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23110. 936.32 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23111. 936.32 s [opt-env-conf-test] where
  23112. 936.32 s [opt-env-conf-test] go p =
  23113. 936.32 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23114. 936.32 s [opt-env-conf-test] - in case p of
  23115. 936.32 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23116. 936.32 s [opt-env-conf-test] - ParserAp {} -> p'
  23117. 936.32 s [opt-env-conf-test] - ParserSelect {} -> p'
  23118. 936.32 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23119. 936.32 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23120. 936.32 s [opt-env-conf-test] - ParserMany {} -> p'
  23121. 936.32 s [opt-env-conf-test] - ParserSome {} -> p'
  23122. 936.32 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23123. 936.32 s [opt-env-conf-test] - ParserCheck {} -> p'
  23124. 936.32 s [opt-env-conf-test] - ParserCommands {} -> p'
  23125. 936.32 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23126. 936.32 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23127. 936.32 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23128. 936.32 s [opt-env-conf-test] - Just _ -> p
  23129. 936.32 s [opt-env-conf-test] + in case p of
  23130. 936.32 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23131. 936.32 s [opt-env-conf-test] + ParserAp {} -> p'
  23132. 936.32 s [opt-env-conf-test] + ParserSelect {} -> p'
  23133. 936.32 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23134. 936.32 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23135. 936.32 s [opt-env-conf-test] + ParserMany {} -> p'
  23136. 936.32 s [opt-env-conf-test] + ParserSome {} -> p'
  23137. 936.32 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23138. 936.32 s [opt-env-conf-test] + ParserCheck {} -> p'
  23139. 936.32 s [opt-env-conf-test] + ParserCommands {} -> p'
  23140. 936.32 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23141. 936.32 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23142. 936.32 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23143. 936.32 s [opt-env-conf-test] + Just _ -> p
  23144. 936.32 s [opt-env-conf-test]
  23145. 936.32 s [opt-env-conf-test] -- | Try a list of parsers in order
  23146. 936.32 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23147. 936.32 s [opt-env-conf-test]
  23148. 936.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23149. 936.32 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23150. 936.32 s [opt-env-conf-test] where
  23151. 936.32 s [opt-env-conf-test] go p =
  23152. 936.32 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23153. 936.32 s [opt-env-conf-test] - in case p of
  23154. 936.32 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23155. 936.32 s [opt-env-conf-test] - ParserAp {} -> p'
  23156. 936.32 s [opt-env-conf-test] - ParserSelect {} -> p'
  23157. 936.32 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23158. 936.32 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23159. 936.32 s [opt-env-conf-test] - ParserMany {} -> p'
  23160. 936.32 s [opt-env-conf-test] - ParserSome {} -> p'
  23161. 936.32 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23162. 936.32 s [opt-env-conf-test] - ParserCheck {} -> p'
  23163. 936.32 s [opt-env-conf-test] - ParserCommands {} -> p'
  23164. 936.32 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23165. 936.32 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23166. 936.32 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23167. 936.32 s [opt-env-conf-test] - Just _ -> p
  23168. 936.32 s [opt-env-conf-test] + in case p of
  23169. 936.32 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23170. 936.32 s [opt-env-conf-test] + ParserAp {} -> p'
  23171. 936.32 s [opt-env-conf-test] + ParserSelect {} -> p'
  23172. 936.32 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23173. 936.32 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23174. 936.32 s [opt-env-conf-test] + ParserMany {} -> p'
  23175. 936.32 s [opt-env-conf-test] + ParserSome {} -> p'
  23176. 936.32 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23177. 936.32 s [opt-env-conf-test] + ParserCheck {} -> p'
  23178. 936.32 s [opt-env-conf-test] + ParserCommands {} -> p'
  23179. 936.32 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23180. 936.32 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23181. 936.32 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23182. 936.32 s [opt-env-conf-test] + Just _ -> p
  23183. 936.32 s [opt-env-conf-test]
  23184. 936.32 s [opt-env-conf-test] -- | Try a list of parsers in order
  23185. 936.32 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23186. 936.32 s [opt-env-conf-test]
  23187. 936.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23188. 936.32 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23189. 936.32 s [opt-env-conf-test] where
  23190. 936.32 s [opt-env-conf-test] go p =
  23191. 936.32 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23192. 936.32 s [opt-env-conf-test] - in case p of
  23193. 936.32 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23194. 936.32 s [opt-env-conf-test] - ParserAp {} -> p'
  23195. 936.32 s [opt-env-conf-test] - ParserSelect {} -> p'
  23196. 936.32 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23197. 936.32 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23198. 936.32 s [opt-env-conf-test] - ParserMany {} -> p'
  23199. 936.32 s [opt-env-conf-test] - ParserSome {} -> p'
  23200. 936.32 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23201. 936.32 s [opt-env-conf-test] - ParserCheck {} -> p'
  23202. 936.32 s [opt-env-conf-test] - ParserCommands {} -> p'
  23203. 936.32 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23204. 936.32 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23205. 936.32 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23206. 936.32 s [opt-env-conf-test] - Just _ -> p
  23207. 936.32 s [opt-env-conf-test] + in case p of
  23208. 936.32 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23209. 936.32 s [opt-env-conf-test] + ParserAp {} -> p'
  23210. 936.32 s [opt-env-conf-test] + ParserSelect {} -> p'
  23211. 936.32 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23212. 936.32 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23213. 936.32 s [opt-env-conf-test] + ParserMany {} -> p'
  23214. 936.32 s [opt-env-conf-test] + ParserSome {} -> p'
  23215. 936.32 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23216. 936.32 s [opt-env-conf-test] + ParserCheck {} -> p'
  23217. 936.32 s [opt-env-conf-test] + ParserCommands {} -> p'
  23218. 936.32 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23219. 936.32 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23220. 936.32 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23221. 936.32 s [opt-env-conf-test] + Just _ -> p
  23222. 936.32 s [opt-env-conf-test]
  23223. 936.32 s [opt-env-conf-test] -- | Try a list of parsers in order
  23224. 936.32 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23225. 936.32 s [opt-env-conf-test]
  23226. 936.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23227. 936.32 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23228. 936.32 s [opt-env-conf-test] where
  23229. 936.32 s [opt-env-conf-test] go p =
  23230. 936.32 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23231. 936.32 s [opt-env-conf-test] - in case p of
  23232. 936.32 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23233. 936.32 s [opt-env-conf-test] - ParserAp {} -> p'
  23234. 936.32 s [opt-env-conf-test] - ParserSelect {} -> p'
  23235. 936.32 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23236. 936.32 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23237. 936.32 s [opt-env-conf-test] - ParserMany {} -> p'
  23238. 936.32 s [opt-env-conf-test] - ParserSome {} -> p'
  23239. 936.32 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23240. 936.32 s [opt-env-conf-test] - ParserCheck {} -> p'
  23241. 936.32 s [opt-env-conf-test] - ParserCommands {} -> p'
  23242. 936.32 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23243. 936.32 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23244. 936.32 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23245. 936.32 s [opt-env-conf-test] - Just _ -> p
  23246. 936.32 s [opt-env-conf-test] + in case p of
  23247. 936.32 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23248. 936.32 s [opt-env-conf-test] + ParserAp {} -> p'
  23249. 936.32 s [opt-env-conf-test] + ParserSelect {} -> p'
  23250. 936.32 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23251. 936.32 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23252. 936.32 s [opt-env-conf-test] + ParserMany {} -> p'
  23253. 936.32 s [opt-env-conf-test] + ParserSome {} -> p'
  23254. 936.32 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23255. 936.32 s [opt-env-conf-test] + ParserCheck {} -> p'
  23256. 936.32 s [opt-env-conf-test] + ParserCommands {} -> p'
  23257. 936.32 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23258. 936.33 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23259. 936.33 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23260. 936.33 s [opt-env-conf-test] + Just _ -> p
  23261. 936.33 s [opt-env-conf-test]
  23262. 936.33 s [opt-env-conf-test] -- | Try a list of parsers in order
  23263. 936.33 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23264. 936.33 s [opt-env-conf-test]
  23265. 936.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23266. 936.33 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23267. 936.33 s [opt-env-conf-test] where
  23268. 936.33 s [opt-env-conf-test] go p =
  23269. 936.33 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23270. 936.33 s [opt-env-conf-test] - in case p of
  23271. 936.33 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23272. 936.33 s [opt-env-conf-test] - ParserAp {} -> p'
  23273. 936.33 s [opt-env-conf-test] - ParserSelect {} -> p'
  23274. 936.33 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23275. 936.33 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23276. 936.33 s [opt-env-conf-test] - ParserMany {} -> p'
  23277. 936.33 s [opt-env-conf-test] - ParserSome {} -> p'
  23278. 936.33 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23279. 936.33 s [opt-env-conf-test] - ParserCheck {} -> p'
  23280. 936.33 s [opt-env-conf-test] - ParserCommands {} -> p'
  23281. 936.33 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23282. 936.33 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23283. 936.33 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23284. 936.33 s [opt-env-conf-test] - Just _ -> p
  23285. 936.33 s [opt-env-conf-test] + in case p of
  23286. 936.33 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23287. 936.33 s [opt-env-conf-test] + ParserAp {} -> p'
  23288. 936.33 s [opt-env-conf-test] + ParserSelect {} -> p'
  23289. 936.33 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23290. 936.33 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23291. 936.33 s [opt-env-conf-test] + ParserMany {} -> p'
  23292. 936.33 s [opt-env-conf-test] + ParserSome {} -> p'
  23293. 936.33 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23294. 936.33 s [opt-env-conf-test] + ParserCheck {} -> p'
  23295. 936.33 s [opt-env-conf-test] + ParserCommands {} -> p'
  23296. 936.33 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23297. 936.33 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23298. 936.33 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23299. 936.33 s [opt-env-conf-test] + Just _ -> p
  23300. 936.33 s [opt-env-conf-test]
  23301. 936.33 s [opt-env-conf-test] -- | Try a list of parsers in order
  23302. 936.33 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23303. 936.33 s [opt-env-conf-test]
  23304. 936.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23305. 936.33 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23306. 936.33 s [opt-env-conf-test] where
  23307. 936.33 s [opt-env-conf-test] go p =
  23308. 936.33 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23309. 936.33 s [opt-env-conf-test] - in case p of
  23310. 936.33 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23311. 936.33 s [opt-env-conf-test] - ParserAp {} -> p'
  23312. 936.33 s [opt-env-conf-test] - ParserSelect {} -> p'
  23313. 936.33 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23314. 936.33 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23315. 936.33 s [opt-env-conf-test] - ParserMany {} -> p'
  23316. 936.33 s [opt-env-conf-test] - ParserSome {} -> p'
  23317. 936.33 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23318. 936.33 s [opt-env-conf-test] - ParserCheck {} -> p'
  23319. 936.33 s [opt-env-conf-test] - ParserCommands {} -> p'
  23320. 936.33 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23321. 936.33 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23322. 936.33 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23323. 936.33 s [opt-env-conf-test] - Just _ -> p
  23324. 936.33 s [opt-env-conf-test] + in case p of
  23325. 936.33 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23326. 936.33 s [opt-env-conf-test] + ParserAp {} -> p'
  23327. 936.33 s [opt-env-conf-test] + ParserSelect {} -> p'
  23328. 936.33 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23329. 936.33 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23330. 936.33 s [opt-env-conf-test] + ParserMany {} -> p'
  23331. 936.33 s [opt-env-conf-test] + ParserSome {} -> p'
  23332. 936.33 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23333. 936.33 s [opt-env-conf-test] + ParserCheck {} -> p'
  23334. 936.33 s [opt-env-conf-test] + ParserCommands {} -> p'
  23335. 936.33 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23336. 936.33 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23337. 936.33 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23338. 936.33 s [opt-env-conf-test] + Just _ -> p
  23339. 936.33 s [opt-env-conf-test]
  23340. 936.33 s [opt-env-conf-test] -- | Try a list of parsers in order
  23341. 936.33 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23342. 936.33 s [opt-env-conf-test]
  23343. 936.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23344. 936.33 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23345. 936.33 s [opt-env-conf-test] where
  23346. 936.33 s [opt-env-conf-test] go p =
  23347. 936.33 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23348. 936.33 s [opt-env-conf-test] - in case p of
  23349. 936.33 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23350. 936.33 s [opt-env-conf-test] - ParserAp {} -> p'
  23351. 936.33 s [opt-env-conf-test] - ParserSelect {} -> p'
  23352. 936.33 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23353. 936.33 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23354. 936.33 s [opt-env-conf-test] - ParserMany {} -> p'
  23355. 936.33 s [opt-env-conf-test] - ParserSome {} -> p'
  23356. 936.33 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23357. 936.33 s [opt-env-conf-test] - ParserCheck {} -> p'
  23358. 936.33 s [opt-env-conf-test] - ParserCommands {} -> p'
  23359. 936.33 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23360. 936.33 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23361. 936.33 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23362. 936.33 s [opt-env-conf-test] - Just _ -> p
  23363. 936.33 s [opt-env-conf-test] + in case p of
  23364. 936.33 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23365. 936.33 s [opt-env-conf-test] + ParserAp {} -> p'
  23366. 936.33 s [opt-env-conf-test] + ParserSelect {} -> p'
  23367. 936.33 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23368. 936.33 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23369. 936.33 s [opt-env-conf-test] + ParserMany {} -> p'
  23370. 936.33 s [opt-env-conf-test] + ParserSome {} -> p'
  23371. 936.33 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23372. 936.33 s [opt-env-conf-test] + ParserCheck {} -> p'
  23373. 936.33 s [opt-env-conf-test] + ParserCommands {} -> p'
  23374. 936.33 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23375. 936.33 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23376. 936.33 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23377. 936.33 s [opt-env-conf-test] + Just _ -> p
  23378. 936.33 s [opt-env-conf-test]
  23379. 936.33 s [opt-env-conf-test] -- | Try a list of parsers in order
  23380. 936.33 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23381. 936.33 s [opt-env-conf-test]
  23382. 936.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23383. 936.33 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23384. 936.33 s [opt-env-conf-test] where
  23385. 936.33 s [opt-env-conf-test] go p =
  23386. 936.33 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23387. 936.33 s [opt-env-conf-test] - in case p of
  23388. 936.33 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23389. 936.33 s [opt-env-conf-test] - ParserAp {} -> p'
  23390. 936.33 s [opt-env-conf-test] - ParserSelect {} -> p'
  23391. 936.33 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23392. 936.33 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23393. 936.33 s [opt-env-conf-test] - ParserMany {} -> p'
  23394. 936.33 s [opt-env-conf-test] - ParserSome {} -> p'
  23395. 936.33 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23396. 936.33 s [opt-env-conf-test] - ParserCheck {} -> p'
  23397. 936.33 s [opt-env-conf-test] - ParserCommands {} -> p'
  23398. 936.33 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23399. 936.33 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23400. 936.33 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23401. 936.33 s [opt-env-conf-test] - Just _ -> p
  23402. 936.33 s [opt-env-conf-test] + in case p of
  23403. 936.33 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23404. 936.33 s [opt-env-conf-test] + ParserAp {} -> p'
  23405. 936.33 s [opt-env-conf-test] + ParserSelect {} -> p'
  23406. 936.33 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23407. 936.33 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23408. 936.33 s [opt-env-conf-test] + ParserMany {} -> p'
  23409. 936.33 s [opt-env-conf-test] + ParserSome {} -> p'
  23410. 936.33 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23411. 936.33 s [opt-env-conf-test] + ParserCheck {} -> p'
  23412. 936.33 s [opt-env-conf-test] + ParserCommands {} -> p'
  23413. 936.33 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23414. 936.33 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23415. 936.33 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23416. 936.33 s [opt-env-conf-test] + Just _ -> p
  23417. 936.33 s [opt-env-conf-test]
  23418. 936.33 s [opt-env-conf-test] -- | Try a list of parsers in order
  23419. 936.33 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23420. 936.33 s [opt-env-conf-test]
  23421. 936.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23422. 936.33 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23423. 936.33 s [opt-env-conf-test] where
  23424. 936.33 s [opt-env-conf-test] go p =
  23425. 936.33 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23426. 936.33 s [opt-env-conf-test] - in case p of
  23427. 936.33 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23428. 936.33 s [opt-env-conf-test] - ParserAp {} -> p'
  23429. 936.33 s [opt-env-conf-test] - ParserSelect {} -> p'
  23430. 936.33 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23431. 936.33 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23432. 936.33 s [opt-env-conf-test] - ParserMany {} -> p'
  23433. 936.33 s [opt-env-conf-test] - ParserSome {} -> p'
  23434. 936.33 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23435. 936.33 s [opt-env-conf-test] - ParserCheck {} -> p'
  23436. 936.33 s [opt-env-conf-test] - ParserCommands {} -> p'
  23437. 936.33 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23438. 936.33 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23439. 936.33 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23440. 936.33 s [opt-env-conf-test] - Just _ -> p
  23441. 936.33 s [opt-env-conf-test] + in case p of
  23442. 936.33 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23443. 936.33 s [opt-env-conf-test] + ParserAp {} -> p'
  23444. 936.33 s [opt-env-conf-test] + ParserSelect {} -> p'
  23445. 936.33 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23446. 936.33 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23447. 936.33 s [opt-env-conf-test] + ParserMany {} -> p'
  23448. 936.33 s [opt-env-conf-test] + ParserSome {} -> p'
  23449. 936.33 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23450. 936.33 s [opt-env-conf-test] + ParserCheck {} -> p'
  23451. 936.33 s [opt-env-conf-test] + ParserCommands {} -> p'
  23452. 936.33 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23453. 936.33 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23454. 936.33 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23455. 936.33 s [opt-env-conf-test] + Just _ -> p
  23456. 936.33 s [opt-env-conf-test]
  23457. 936.33 s [opt-env-conf-test] -- | Try a list of parsers in order
  23458. 936.33 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23459. 936.33 s [opt-env-conf-test]
  23460. 936.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
  23461. 936.33 s [opt-env-conf-test] @@ -559,9 +559,9 @@
  23462. 936.33 s [opt-env-conf-test] ParserCheck {} -> p'
  23463. 936.33 s [opt-env-conf-test] ParserCommands {} -> p'
  23464. 936.33 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23465. 936.33 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23466. 936.34 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23467. 936.34 s [opt-env-conf-test] - Just _ -> p
  23468. 936.34 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23469. 936.34 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23470. 936.34 s [opt-env-conf-test] + Just _ -> p
  23471. 936.34 s [opt-env-conf-test]
  23472. 936.34 s [opt-env-conf-test] -- | Try a list of parsers in order
  23473. 936.34 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23474. 936.34 s [opt-env-conf-test]
  23475. 936.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
  23476. 936.34 s [opt-env-conf-test] @@ -599,9 +599,9 @@
  23477. 936.34 s [opt-env-conf-test] checkMapMaybe func p =
  23478. 936.34 s [opt-env-conf-test] withFrozenCallStack $
  23479. 936.34 s [opt-env-conf-test] checkMapEither
  23480. 936.34 s [opt-env-conf-test] - ( \a -> case func a of
  23481. 936.34 s [opt-env-conf-test] - Nothing -> Left "checkMapMaybe failed without a helpful error message"
  23482. 936.34 s [opt-env-conf-test] - Just b -> Right b
  23483. 936.34 s [opt-env-conf-test] + ( \a -> case func a of
  23484. 936.34 s [opt-env-conf-test] + Nothing -> Left "checkMapMaybe failed without a helpful error message"
  23485. 936.34 s [opt-env-conf-test] + Just b -> Right b
  23486. 936.34 s [opt-env-conf-test] )
  23487. 936.34 s [opt-env-conf-test] p
  23488. 936.34 s [opt-env-conf-test]
  23489. 936.34 s [opt-env-conf-test]
  23490. 936.34 s [opt-env-conf-test] CondFlip at src/OptEnvConf/Completer.hs:117:28-81
  23491. 936.34 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  23492. 936.34 s [opt-env-conf-test] Just (Rel rf) -> do
  23493. 936.34 s [opt-env-conf-test] let dir = parent rf
  23494. 936.34 s [opt-env-conf-test] let ad = baseDir </> dir
  23495. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23496. 936.34 s [opt-env-conf-test] + let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23497. 936.34 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  23498. 936.34 s [opt-env-conf-test] pure
  23499. 936.34 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  23500. 936.34 s [opt-env-conf-test]
  23501. 936.34 s [opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:117:31-43
  23502. 936.34 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  23503. 936.34 s [opt-env-conf-test] Just (Rel rf) -> do
  23504. 936.34 s [opt-env-conf-test] let dir = parent rf
  23505. 936.34 s [opt-env-conf-test] let ad = baseDir </> dir
  23506. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23507. 936.34 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  23508. 936.34 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  23509. 936.34 s [opt-env-conf-test] pure
  23510. 936.34 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  23511. 936.34 s [opt-env-conf-test]
  23512. 936.34 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  23513. 936.34 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  23514. 936.34 s [opt-env-conf-test] Just (Rel rf) -> do
  23515. 936.34 s [opt-env-conf-test] let dir = parent rf
  23516. 936.34 s [opt-env-conf-test] let ad = baseDir </> dir
  23517. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23518. 936.34 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  23519. 936.34 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  23520. 936.34 s [opt-env-conf-test] pure
  23521. 936.34 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  23522. 936.34 s [opt-env-conf-test]
  23523. 936.34 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  23524. 936.34 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  23525. 936.34 s [opt-env-conf-test] Just (Rel rf) -> do
  23526. 936.34 s [opt-env-conf-test] let dir = parent rf
  23527. 936.34 s [opt-env-conf-test] let ad = baseDir </> dir
  23528. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23529. 936.34 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  23530. 936.34 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  23531. 936.34 s [opt-env-conf-test] pure
  23532. 936.34 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  23533. 936.34 s [opt-env-conf-test]
  23534. 936.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
  23535. 936.34 s [opt-env-conf-test] @@ -168,24 +168,24 @@
  23536. 936.34 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23537. 936.34 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  23538. 936.34 s [opt-env-conf-test]
  23539. 936.34 s [opt-env-conf-test] - dirsFromPartialListing <- case parseSomeDir fp of
  23540. 936.34 s [opt-env-conf-test] - Nothing -> pure []
  23541. 936.34 s [opt-env-conf-test] - Just (Abs af) -> do
  23542. 936.34 s [opt-env-conf-test] - let dir = parent af
  23543. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  23544. 936.34 s [opt-env-conf-test] - (ds, _) <- listDirForgiving dir
  23545. 936.34 s [opt-env-conf-test] - pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  23546. 936.34 s [opt-env-conf-test] - Just (Rel rf) ->
  23547. 936.34 s [opt-env-conf-test] - if fp == "."
  23548. 936.34 s [opt-env-conf-test] - then do
  23549. 936.34 s [opt-env-conf-test] - (ds, _) <- listDirRel baseDir
  23550. 936.34 s [opt-env-conf-test] - pure (map fromRelDir ds)
  23551. 936.34 s [opt-env-conf-test] - else do
  23552. 936.34 s [opt-env-conf-test] - let dir = parent rf
  23553. 936.34 s [opt-env-conf-test] - let ad = baseDir </> dir
  23554. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23555. 936.34 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  23556. 936.34 s [opt-env-conf-test] - pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23557. 936.34 s [opt-env-conf-test] + dirsFromPartialListing <- case parseSomeDir fp of
  23558. 936.34 s [opt-env-conf-test] + Nothing -> pure []
  23559. 936.34 s [opt-env-conf-test] + Just (Abs af) -> do
  23560. 936.34 s [opt-env-conf-test] + let dir = parent af
  23561. 936.34 s [opt-env-conf-test] + let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  23562. 936.34 s [opt-env-conf-test] + (ds, _) <- listDirForgiving dir
  23563. 936.34 s [opt-env-conf-test] + pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  23564. 936.34 s [opt-env-conf-test] + Just (Rel rf) ->
  23565. 936.34 s [opt-env-conf-test] + if fp == "."
  23566. 936.34 s [opt-env-conf-test] + then do
  23567. 936.34 s [opt-env-conf-test] + (ds, _) <- listDirRel baseDir
  23568. 936.34 s [opt-env-conf-test] + pure (map fromRelDir ds)
  23569. 936.34 s [opt-env-conf-test] + else do
  23570. 936.34 s [opt-env-conf-test] + let dir = parent rf
  23571. 936.34 s [opt-env-conf-test] + let ad = baseDir </> dir
  23572. 936.34 s [opt-env-conf-test] + let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23573. 936.34 s [opt-env-conf-test] + (ds, _) <- listDirForgiving ad
  23574. 936.34 s [opt-env-conf-test] + pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23575. 936.34 s [opt-env-conf-test]
  23576. 936.34 s [opt-env-conf-test] pure $
  23577. 936.34 s [opt-env-conf-test] concat
  23578. 936.34 s [opt-env-conf-test]
  23579. 936.34 s [opt-env-conf-test] CondFlip at src/OptEnvConf/Completer.hs:186:32-85
  23580. 936.34 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  23581. 936.34 s [opt-env-conf-test] else do
  23582. 936.34 s [opt-env-conf-test] let dir = parent rf
  23583. 936.34 s [opt-env-conf-test] let ad = baseDir </> dir
  23584. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23585. 936.34 s [opt-env-conf-test] + let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23586. 936.34 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23587. 936.34 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23588. 936.34 s [opt-env-conf-test]
  23589. 936.34 s [opt-env-conf-test]
  23590. 936.34 s [opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:186:35-47
  23591. 936.34 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  23592. 936.34 s [opt-env-conf-test] else do
  23593. 936.34 s [opt-env-conf-test] let dir = parent rf
  23594. 936.34 s [opt-env-conf-test] let ad = baseDir </> dir
  23595. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23596. 936.34 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  23597. 936.34 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23598. 936.34 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23599. 936.34 s [opt-env-conf-test]
  23600. 936.34 s [opt-env-conf-test]
  23601. 936.34 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  23602. 936.34 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  23603. 936.34 s [opt-env-conf-test] else do
  23604. 936.34 s [opt-env-conf-test] let dir = parent rf
  23605. 936.34 s [opt-env-conf-test] let ad = baseDir </> dir
  23606. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23607. 936.34 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  23608. 936.34 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23609. 936.34 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23610. 936.34 s [opt-env-conf-test]
  23611. 936.34 s [opt-env-conf-test]
  23612. 936.34 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  23613. 936.34 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  23614. 936.34 s [opt-env-conf-test] else do
  23615. 936.34 s [opt-env-conf-test] let dir = parent rf
  23616. 936.34 s [opt-env-conf-test] let ad = baseDir </> dir
  23617. 936.34 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23618. 936.34 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  23619. 936.34 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23620. 936.34 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23621. 936.34 s [opt-env-conf-test]
  23622. 936.34 s [opt-env-conf-test]
  23623. 936.34 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:179:12-21
  23624. 936.34 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  23625. 936.34 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  23626. 936.34 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  23627. 936.34 s [opt-env-conf-test] Just (Rel rf) ->
  23628. 936.34 s [opt-env-conf-test] - if fp == "."
  23629. 936.34 s [opt-env-conf-test] + if False
  23630. 936.34 s [opt-env-conf-test] then do
  23631. 936.34 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  23632. 936.34 s [opt-env-conf-test] pure (map fromRelDir ds)
  23633. 936.34 s [opt-env-conf-test]
  23634. 936.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
  23635. 936.34 s [opt-env-conf-test] @@ -154,19 +154,19 @@
  23636. 936.34 s [opt-env-conf-test] directoryPathFromDir baseDir prefix fp fp' = do
  23637. 936.34 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  23638. 936.34 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  23639. 936.34 s [opt-env-conf-test] - dirsFromParentListing <- case parseSomeDir fp of
  23640. 936.34 s [opt-env-conf-test] - Nothing -> case fp of
  23641. 936.34 s [opt-env-conf-test] - [] -> do
  23642. 936.34 s [opt-env-conf-test] - (ds, _) <- listDirRel baseDir
  23643. 936.34 s [opt-env-conf-test] - pure (map fromRelDir $ filter (not . hiddenRel) ds)
  23644. 936.34 s [opt-env-conf-test] - _ -> pure []
  23645. 936.34 s [opt-env-conf-test] - Just (Abs ad) -> do
  23646. 936.34 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  23647. 936.34 s [opt-env-conf-test] - pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  23648. 936.34 s [opt-env-conf-test] - Just (Rel rd) -> do
  23649. 936.34 s [opt-env-conf-test] - let ad = baseDir </> rd
  23650. 936.34 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  23651. 936.34 s [opt-env-conf-test] - pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  23652. 936.34 s [opt-env-conf-test] + dirsFromParentListing <- case parseSomeDir fp of
  23653. 936.34 s [opt-env-conf-test] + Nothing -> case fp of
  23654. 936.34 s [opt-env-conf-test] + [] -> do
  23655. 936.34 s [opt-env-conf-test] + (ds, _) <- listDirRel baseDir
  23656. 936.34 s [opt-env-conf-test] + pure (map fromRelDir $ filter (not . hiddenRel) ds)
  23657. 936.34 s [opt-env-conf-test] + _ -> pure []
  23658. 936.34 s [opt-env-conf-test] + Just (Abs ad) -> do
  23659. 936.34 s [opt-env-conf-test] + (ds, _) <- listDirForgiving ad
  23660. 936.34 s [opt-env-conf-test] + pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  23661. 936.34 s [opt-env-conf-test] + Just (Rel rd) -> do
  23662. 936.34 s [opt-env-conf-test] + let ad = baseDir </> rd
  23663. 936.34 s [opt-env-conf-test] + (ds, _) <- listDirForgiving ad
  23664. 936.34 s [opt-env-conf-test] + pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  23665. 936.34 s [opt-env-conf-test]
  23666. 936.34 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  23667. 936.34 s [opt-env-conf-test] Nothing -> pure []
  23668. 936.34 s [opt-env-conf-test]
  23669. 936.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
  23670. 936.34 s [opt-env-conf-test] @@ -155,11 +155,11 @@
  23671. 936.34 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  23672. 936.34 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  23673. 936.34 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  23674. 936.34 s [opt-env-conf-test] - Nothing -> case fp of
  23675. 936.34 s [opt-env-conf-test] - [] -> do
  23676. 936.34 s [opt-env-conf-test] - (ds, _) <- listDirRel baseDir
  23677. 936.34 s [opt-env-conf-test] - pure (map fromRelDir $ filter (not . hiddenRel) ds)
  23678. 936.34 s [opt-env-conf-test] - _ -> pure []
  23679. 936.34 s [opt-env-conf-test] + Nothing -> case fp of
  23680. 936.35 s [opt-env-conf-test] + [] -> do
  23681. 936.35 s [opt-env-conf-test] + (ds, _) <- listDirRel baseDir
  23682. 936.35 s [opt-env-conf-test] + pure (map fromRelDir $ filter (not . hiddenRel) ds)
  23683. 936.35 s [opt-env-conf-test] + _ -> pure []
  23684. 936.35 s [opt-env-conf-test] Just (Abs ad) -> do
  23685. 936.35 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23686. 936.35 s [opt-env-conf-test] pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  23687. 936.35 s [opt-env-conf-test]
  23688. 936.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completion.hs:453:24-40
  23689. 936.35 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  23690. 936.35 s [opt-env-conf-test] put as'
  23691. 936.35 s [opt-env-conf-test] pure $ Just []
  23692. 936.35 s [opt-env-conf-test] else do
  23693. 936.35 s [opt-env-conf-test] - if settingTryOption
  23694. 936.35 s [opt-env-conf-test] + if True
  23695. 936.35 s [opt-env-conf-test] then do
  23696. 936.35 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  23697. 936.35 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  23698. 936.35 s [opt-env-conf-test]
  23699. 936.35 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
  23700. 936.35 s [opt-env-conf-test] @@ -432,11 +432,11 @@
  23701. 936.35 s [opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
  23702. 936.35 s [opt-env-conf-test] -- fallback matched. In both cases, offer the
  23703. 936.35 s [opt-env-conf-test] -- completer if we are at the end.
  23704. 936.35 s [opt-env-conf-test] - case possibilities of
  23705. 936.35 s [opt-env-conf-test] - [] -> completeWithCompleterAtEnd
  23706. 936.35 s [opt-env-conf-test] - (_, as') : _ -> do
  23707. 936.35 s [opt-env-conf-test] - put as'
  23708. 936.35 s [opt-env-conf-test] - completeWithCompleterAtEnd
  23709. 936.35 s [opt-env-conf-test] + case possibilities of
  23710. 936.35 s [opt-env-conf-test] + [] -> completeWithCompleterAtEnd
  23711. 936.35 s [opt-env-conf-test] + (_, as') : _ -> do
  23712. 936.35 s [opt-env-conf-test] + put as'
  23713. 936.35 s [opt-env-conf-test] + completeWithCompleterAtEnd
  23714. 936.35 s [opt-env-conf-test] else
  23715. 936.35 s [opt-env-conf-test] if isJust settingSwitchValue
  23716. 936.35 s [opt-env-conf-test] then do
  23717. 936.35 s [opt-env-conf-test]
  23718. 936.35 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
  23719. 936.35 s [opt-env-conf-test] @@ -367,11 +367,11 @@
  23720. 936.35 s [opt-env-conf-test] | not (null commandDocs)
  23721. 936.35 s [opt-env-conf-test] ],
  23722. 936.35 s [opt-env-conf-test] concat
  23723. 936.35 s [opt-env-conf-test] - [ [ headerChunks "Options",
  23724. 936.35 s [opt-env-conf-test] - renderLongOptDocs optDocs
  23725. 936.35 s [opt-env-conf-test] - ]
  23726. 936.35 s [opt-env-conf-test] - | not (nullDocs optDocs)
  23727. 936.35 s [opt-env-conf-test] - ],
  23728. 936.35 s [opt-env-conf-test] + [ [ headerChunks "Options",
  23729. 936.35 s [opt-env-conf-test] + renderLongOptDocs optDocs
  23730. 936.35 s [opt-env-conf-test] + ]
  23731. 936.35 s [opt-env-conf-test] + | not (nullDocs optDocs)
  23732. 936.35 s [opt-env-conf-test] + ],
  23733. 936.35 s [opt-env-conf-test] concat
  23734. 936.35 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  23735. 936.35 s [opt-env-conf-test] renderEnvDocs envDocs
  23736. 936.35 s [opt-env-conf-test]
  23737. 936.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:373:17-39
  23738. 936.35 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  23739. 936.35 s [opt-env-conf-test] [ [ headerChunks "Options",
  23740. 936.35 s [opt-env-conf-test] renderLongOptDocs optDocs
  23741. 936.35 s [opt-env-conf-test] ]
  23742. 936.35 s [opt-env-conf-test] - | not (nullDocs optDocs)
  23743. 936.35 s [opt-env-conf-test] + | True
  23744. 936.35 s [opt-env-conf-test] ],
  23745. 936.35 s [opt-env-conf-test] concat
  23746. 936.35 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  23747. 936.35 s [opt-env-conf-test]
  23748. 936.35 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
  23749. 936.35 s [opt-env-conf-test] @@ -326,11 +326,11 @@
  23750. 936.35 s [opt-env-conf-test] | not (null commandDocs)
  23751. 936.35 s [opt-env-conf-test] ],
  23752. 936.35 s [opt-env-conf-test] concat
  23753. 936.35 s [opt-env-conf-test] - [ [ [".Sh ", "OPTIONS"],
  23754. 936.35 s [opt-env-conf-test] - renderLongOptDocs optDocs
  23755. 936.35 s [opt-env-conf-test] - ]
  23756. 936.35 s [opt-env-conf-test] - | not (nullDocs optDocs)
  23757. 936.35 s [opt-env-conf-test] - ],
  23758. 936.35 s [opt-env-conf-test] + [ [ [".Sh ", "OPTIONS"],
  23759. 936.35 s [opt-env-conf-test] + renderLongOptDocs optDocs
  23760. 936.35 s [opt-env-conf-test] + ]
  23761. 936.35 s [opt-env-conf-test] + | not (nullDocs optDocs)
  23762. 936.35 s [opt-env-conf-test] + ],
  23763. 936.35 s [opt-env-conf-test] concat
  23764. 936.35 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  23765. 936.35 s [opt-env-conf-test] renderEnvDocs envDocs
  23766. 936.35 s [opt-env-conf-test]
  23767. 936.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:332:17-39
  23768. 936.35 s [opt-env-conf-test] @@ -329,7 +329,7 @@
  23769. 936.35 s [opt-env-conf-test] [ [ [".Sh ", "OPTIONS"],
  23770. 936.35 s [opt-env-conf-test] renderLongOptDocs optDocs
  23771. 936.35 s [opt-env-conf-test] ]
  23772. 936.35 s [opt-env-conf-test] - | not (nullDocs optDocs)
  23773. 936.35 s [opt-env-conf-test] + | True
  23774. 936.35 s [opt-env-conf-test] ],
  23775. 936.35 s [opt-env-conf-test] concat
  23776. 936.35 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  23777. 936.35 s [opt-env-conf-test]
  23778. 936.35 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
  23779. 936.35 s [opt-env-conf-test] @@ -565,21 +565,21 @@
  23780. 936.35 s [opt-env-conf-test] [] -> []
  23781. 936.35 s [opt-env-conf-test] [d] -> go isTopLevel d
  23782. 936.35 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23783. 936.35 s [opt-env-conf-test] - case setDocHelp d of
  23784. 936.35 s [opt-env-conf-test] - Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  23785. 936.35 s [opt-env-conf-test] - Just h ->
  23786. 936.35 s [opt-env-conf-test] - let (sds, rest) = goSameHelp h ds
  23787. 936.35 s [opt-env-conf-test] - in concat
  23788. 936.35 s [opt-env-conf-test] - [ concat
  23789. 936.35 s [opt-env-conf-test] - [ concat
  23790. 936.35 s [opt-env-conf-test] - [ indent $ renderSetDocHeader (Just h),
  23791. 936.35 s [opt-env-conf-test] - indent $ concatMap renderSetDocWithoutHeader $ d : sds,
  23792. 936.35 s [opt-env-conf-test] - [[]]
  23793. 936.35 s [opt-env-conf-test] - ]
  23794. 936.35 s [opt-env-conf-test] - | not isTopLevel
  23795. 936.35 s [opt-env-conf-test] - ],
  23796. 936.35 s [opt-env-conf-test] - goOr isTopLevel rest
  23797. 936.35 s [opt-env-conf-test] - ]
  23798. 936.35 s [opt-env-conf-test] + case setDocHelp d of
  23799. 936.35 s [opt-env-conf-test] + Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  23800. 936.35 s [opt-env-conf-test] + Just h ->
  23801. 936.35 s [opt-env-conf-test] + let (sds, rest) = goSameHelp h ds
  23802. 936.35 s [opt-env-conf-test] + in concat
  23803. 936.35 s [opt-env-conf-test] + [ concat
  23804. 936.35 s [opt-env-conf-test] + [ concat
  23805. 936.35 s [opt-env-conf-test] + [ indent $ renderSetDocHeader (Just h),
  23806. 936.35 s [opt-env-conf-test] + indent $ concatMap renderSetDocWithoutHeader $ d : sds,
  23807. 936.35 s [opt-env-conf-test] + [[]]
  23808. 936.35 s [opt-env-conf-test] + ]
  23809. 936.35 s [opt-env-conf-test] + | not isTopLevel
  23810. 936.35 s [opt-env-conf-test] + ],
  23811. 936.35 s [opt-env-conf-test] + goOr isTopLevel rest
  23812. 936.35 s [opt-env-conf-test] + ]
  23813. 936.35 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  23814. 936.35 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  23815. 936.35 s [opt-env-conf-test] goSameHelp h = \case
  23816. 936.35 s [opt-env-conf-test]
  23817. 936.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:581:26-36
  23818. 936.35 s [opt-env-conf-test] @@ -578,7 +578,7 @@
  23819. 936.35 s [opt-env-conf-test] ]
  23820. 936.35 s [opt-env-conf-test] | not isTopLevel
  23821. 936.35 s [opt-env-conf-test] ],
  23822. 936.35 s [opt-env-conf-test] - goOr isTopLevel rest
  23823. 936.35 s [opt-env-conf-test] + goOr True rest
  23824. 936.35 s [opt-env-conf-test] ]
  23825. 936.35 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  23826. 936.35 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  23827. 936.35 s [opt-env-conf-test]
  23828. 936.35 s [opt-env-conf-test] Negate at src/OptEnvConf/Doc.hs:566:17-27
  23829. 936.35 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  23830. 936.35 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  23831. 936.35 s [opt-env-conf-test] goOr isTopLevel = \case
  23832. 936.35 s [opt-env-conf-test] [] -> []
  23833. 936.35 s [opt-env-conf-test] - [d] -> go isTopLevel d
  23834. 936.35 s [opt-env-conf-test] + [d] -> go not (isTopLevel) d
  23835. 936.35 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23836. 936.35 s [opt-env-conf-test] case setDocHelp d of
  23837. 936.35 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  23838. 936.35 s [opt-env-conf-test]
  23839. 936.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:566:17-27
  23840. 936.35 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  23841. 936.35 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  23842. 936.35 s [opt-env-conf-test] goOr isTopLevel = \case
  23843. 936.35 s [opt-env-conf-test] [] -> []
  23844. 936.35 s [opt-env-conf-test] - [d] -> go isTopLevel d
  23845. 936.35 s [opt-env-conf-test] + [d] -> go True d
  23846. 936.35 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23847. 936.35 s [opt-env-conf-test] case setDocHelp d of
  23848. 936.35 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  23849. 936.35 s [opt-env-conf-test]
  23850. 936.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:588:12-34
  23851. 936.35 s [opt-env-conf-test] @@ -585,7 +585,7 @@
  23852. 936.35 s [opt-env-conf-test] goSameHelp h = \case
  23853. 936.35 s [opt-env-conf-test] [] -> ([], [])
  23854. 936.35 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23855. 936.35 s [opt-env-conf-test] - if setDocHelp d == Just h
  23856. 936.35 s [opt-env-conf-test] + if True
  23857. 936.35 s [opt-env-conf-test] then
  23858. 936.35 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  23859. 936.35 s [opt-env-conf-test] in (d : sds, rest)
  23860. 936.35 s [opt-env-conf-test]
  23861. 936.35 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
  23862. 936.35 s [opt-env-conf-test] @@ -529,12 +529,12 @@
  23863. 936.35 s [opt-env-conf-test] [] -> []
  23864. 936.35 s [opt-env-conf-test] [d] -> [go' d]
  23865. 936.35 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23866. 936.35 s [opt-env-conf-test] - case setDocHelp d of
  23867. 936.35 s [opt-env-conf-test] - Nothing -> go' (AnyDocsSingle d) : goOr' ds
  23868. 936.35 s [opt-env-conf-test] - Just h ->
  23869. 936.35 s [opt-env-conf-test] - let (sds, rest) = goSameHelp h ds
  23870. 936.35 s [opt-env-conf-test] - ne = d :| sds
  23871. 936.35 s [opt-env-conf-test] - in AnyDocsSingle ne : goOr' rest
  23872. 936.35 s [opt-env-conf-test] + case setDocHelp d of
  23873. 936.35 s [opt-env-conf-test] + Nothing -> go' (AnyDocsSingle d) : goOr' ds
  23874. 936.35 s [opt-env-conf-test] + Just h ->
  23875. 936.35 s [opt-env-conf-test] + let (sds, rest) = goSameHelp h ds
  23876. 936.35 s [opt-env-conf-test] + ne = d :| sds
  23877. 936.35 s [opt-env-conf-test] + in AnyDocsSingle ne : goOr' rest
  23878. 936.35 s [opt-env-conf-test] (d : ds) -> go' d : goOr' ds
  23879. 936.35 s [opt-env-conf-test]
  23880. 936.36 s [opt-env-conf-test] renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
  23881. 936.36 s [opt-env-conf-test]
  23882. 936.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
  23883. 936.36 s [opt-env-conf-test] @@ -256,18 +256,18 @@
  23884. 936.36 s [opt-env-conf-test] concat
  23885. 936.36 s [opt-env-conf-test] [ concatMap
  23886. 936.36 s [opt-env-conf-test] ( \(key, schema) ->
  23887. 936.36 s [opt-env-conf-test] - case jsonSchemaChunkLines schema of
  23888. 936.36 s [opt-env-conf-test] - [line] ->
  23889. 936.36 s [opt-env-conf-test] - [["config: ", confValChunk key, ": "] ++ line]
  23890. 936.36 s [opt-env-conf-test] - ls ->
  23891. 936.36 s [opt-env-conf-test] - ["config:"]
  23892. 936.36 s [opt-env-conf-test] - : indent
  23893. 936.36 s [opt-env-conf-test] - ( case ls of
  23894. 936.36 s [opt-env-conf-test] - [] -> [["TODO"]]
  23895. 936.36 s [opt-env-conf-test] - (l : ll) ->
  23896. 936.36 s [opt-env-conf-test] - ([confValChunk key, ": "] ++ l)
  23897. 936.36 s [opt-env-conf-test] - : indent ll
  23898. 936.36 s [opt-env-conf-test] - )
  23899. 936.36 s [opt-env-conf-test] + case jsonSchemaChunkLines schema of
  23900. 936.36 s [opt-env-conf-test] + [line] ->
  23901. 936.36 s [opt-env-conf-test] + [["config: ", confValChunk key, ": "] ++ line]
  23902. 936.36 s [opt-env-conf-test] + ls ->
  23903. 936.36 s [opt-env-conf-test] + ["config:"]
  23904. 936.36 s [opt-env-conf-test] + : indent
  23905. 936.36 s [opt-env-conf-test] + ( case ls of
  23906. 936.36 s [opt-env-conf-test] + [] -> [["TODO"]]
  23907. 936.36 s [opt-env-conf-test] + (l : ll) ->
  23908. 936.36 s [opt-env-conf-test] + ([confValChunk key, ": "] ++ l)
  23909. 936.36 s [opt-env-conf-test] + : indent ll
  23910. 936.36 s [opt-env-conf-test] + )
  23911. 936.36 s [opt-env-conf-test] )
  23912. 936.36 s [opt-env-conf-test] (NE.toList confs)
  23913. 936.36 s [opt-env-conf-test] | confs <- maybeToList setDocConfKeys
  23914. 936.36 s [opt-env-conf-test]
  23915. 936.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
  23916. 936.36 s [opt-env-conf-test] @@ -262,11 +262,11 @@
  23917. 936.36 s [opt-env-conf-test] ls ->
  23918. 936.36 s [opt-env-conf-test] ["config:"]
  23919. 936.36 s [opt-env-conf-test] : indent
  23920. 936.36 s [opt-env-conf-test] - ( case ls of
  23921. 936.36 s [opt-env-conf-test] - [] -> [["TODO"]]
  23922. 936.36 s [opt-env-conf-test] - (l : ll) ->
  23923. 936.36 s [opt-env-conf-test] - ([confValChunk key, ": "] ++ l)
  23924. 936.36 s [opt-env-conf-test] - : indent ll
  23925. 936.36 s [opt-env-conf-test] + ( case ls of
  23926. 936.36 s [opt-env-conf-test] + [] -> [["TODO"]]
  23927. 936.36 s [opt-env-conf-test] + (l : ll) ->
  23928. 936.36 s [opt-env-conf-test] + ([confValChunk key, ": "] ++ l)
  23929. 936.36 s [opt-env-conf-test] + : indent ll
  23930. 936.36 s [opt-env-conf-test] )
  23931. 936.36 s [opt-env-conf-test] )
  23932. 936.36 s [opt-env-conf-test] (NE.toList confs)
  23933. 936.36 s [opt-env-conf-test]
  23934. 936.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
  23935. 936.36 s [opt-env-conf-test] @@ -658,29 +658,29 @@
  23936. 936.36 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  23937. 936.36 s [opt-env-conf-test] [] -> Nothing
  23938. 936.36 s [opt-env-conf-test] cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
  23939. 936.36 s [opt-env-conf-test] - AnyDocsSingle mOd -> case mOd of
  23940. 936.36 s [opt-env-conf-test] - Nothing -> Nothing
  23941. 936.36 s [opt-env-conf-test] - Just OptDoc {..} ->
  23942. 936.36 s [opt-env-conf-test] - Just
  23943. 936.36 s [opt-env-conf-test] - $ ( if isJust optDocDefault
  23944. 936.36 s [opt-env-conf-test] - then bracketise
  23945. 936.36 s [opt-env-conf-test] - else id
  23946. 936.36 s [opt-env-conf-test] - )
  23947. 936.36 s [opt-env-conf-test] - $ unwordsChunks
  23948. 936.36 s [opt-env-conf-test] - $ concat
  23949. 936.36 s [opt-env-conf-test] - [ [ [mMetavarChunk optDocMetavar]
  23950. 936.36 s [opt-env-conf-test] - | optDocTryArgument
  23951. 936.36 s [opt-env-conf-test] - ],
  23952. 936.36 s [opt-env-conf-test] - [ concat $ maybeToList $ dashedChunks optDocDasheds
  23953. 936.36 s [opt-env-conf-test] - | optDocTrySwitch
  23954. 936.36 s [opt-env-conf-test] - ],
  23955. 936.36 s [opt-env-conf-test] - [ concat
  23956. 936.36 s [opt-env-conf-test] - [ concat $ maybeToList $ dashedChunks optDocDasheds,
  23957. 936.36 s [opt-env-conf-test] - [" ", mMetavarChunk optDocMetavar]
  23958. 936.36 s [opt-env-conf-test] - ]
  23959. 936.36 s [opt-env-conf-test] - | optDocTryOption
  23960. 936.36 s [opt-env-conf-test] - ]
  23961. 936.36 s [opt-env-conf-test] - ]
  23962. 936.36 s [opt-env-conf-test] + AnyDocsSingle mOd -> case mOd of
  23963. 936.36 s [opt-env-conf-test] + Nothing -> Nothing
  23964. 936.36 s [opt-env-conf-test] + Just OptDoc {..} ->
  23965. 936.36 s [opt-env-conf-test] + Just
  23966. 936.36 s [opt-env-conf-test] + $ ( if isJust optDocDefault
  23967. 936.36 s [opt-env-conf-test] + then bracketise
  23968. 936.36 s [opt-env-conf-test] + else id
  23969. 936.36 s [opt-env-conf-test] + )
  23970. 936.36 s [opt-env-conf-test] + $ unwordsChunks
  23971. 936.36 s [opt-env-conf-test] + $ concat
  23972. 936.36 s [opt-env-conf-test] + [ [ [mMetavarChunk optDocMetavar]
  23973. 936.36 s [opt-env-conf-test] + | optDocTryArgument
  23974. 936.36 s [opt-env-conf-test] + ],
  23975. 936.36 s [opt-env-conf-test] + [ concat $ maybeToList $ dashedChunks optDocDasheds
  23976. 936.36 s [opt-env-conf-test] + | optDocTrySwitch
  23977. 936.36 s [opt-env-conf-test] + ],
  23978. 936.36 s [opt-env-conf-test] + [ concat
  23979. 936.36 s [opt-env-conf-test] + [ concat $ maybeToList $ dashedChunks optDocDasheds,
  23980. 936.36 s [opt-env-conf-test] + [" ", mMetavarChunk optDocMetavar]
  23981. 936.36 s [opt-env-conf-test] + ]
  23982. 936.36 s [opt-env-conf-test] + | optDocTryOption
  23983. 936.36 s [opt-env-conf-test] + ]
  23984. 936.36 s [opt-env-conf-test] + ]
  23985. 936.36 s [opt-env-conf-test]
  23986. 936.36 s [opt-env-conf-test] orChunk :: Chunk
  23987. 936.36 s [opt-env-conf-test] orChunk = fore cyan "|"
  23988. 936.36 s [opt-env-conf-test]
  23989. 936.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  23990. 936.36 s [opt-env-conf-test] @@ -650,10 +650,10 @@
  23991. 936.36 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  23992. 936.36 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  23993. 936.36 s [opt-env-conf-test] AnyDocsAnd ds ->
  23994. 936.36 s [opt-env-conf-test] - case mapMaybe (go False) (withoutNothings ds) of
  23995. 936.36 s [opt-env-conf-test] - [] -> Nothing
  23996. 936.36 s [opt-env-conf-test] - [c] -> Just c
  23997. 936.36 s [opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  23998. 936.36 s [opt-env-conf-test] + case mapMaybe (go False) (withoutNothings ds) of
  23999. 936.36 s [opt-env-conf-test] + [] -> Nothing
  24000. 936.36 s [opt-env-conf-test] + [c] -> Just c
  24001. 936.36 s [opt-env-conf-test] + cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24002. 936.36 s [opt-env-conf-test] AnyDocsOr ds ->
  24003. 936.36 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24004. 936.36 s [opt-env-conf-test] [] -> Nothing
  24005. 936.36 s [opt-env-conf-test]
  24006. 936.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  24007. 936.36 s [opt-env-conf-test] @@ -650,10 +650,10 @@
  24008. 936.36 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  24009. 936.36 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  24010. 936.36 s [opt-env-conf-test] AnyDocsAnd ds ->
  24011. 936.36 s [opt-env-conf-test] - case mapMaybe (go False) (withoutNothings ds) of
  24012. 936.36 s [opt-env-conf-test] - [] -> Nothing
  24013. 936.36 s [opt-env-conf-test] - [c] -> Just c
  24014. 936.36 s [opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24015. 936.36 s [opt-env-conf-test] + case mapMaybe (go False) (withoutNothings ds) of
  24016. 936.36 s [opt-env-conf-test] + [] -> Nothing
  24017. 936.36 s [opt-env-conf-test] + [c] -> Just c
  24018. 936.36 s [opt-env-conf-test] + cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24019. 936.36 s [opt-env-conf-test] AnyDocsOr ds ->
  24020. 936.36 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24021. 936.36 s [opt-env-conf-test] [] -> Nothing
  24022. 936.36 s [opt-env-conf-test]
  24023. 936.36 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:656:30-31
  24024. 936.36 s [opt-env-conf-test] @@ -653,7 +653,7 @@
  24025. 936.36 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24026. 936.36 s [opt-env-conf-test] [] -> Nothing
  24027. 936.36 s [opt-env-conf-test] [c] -> Just c
  24028. 936.36 s [opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24029. 936.36 s [opt-env-conf-test] + cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
  24030. 936.36 s [opt-env-conf-test] AnyDocsOr ds ->
  24031. 936.36 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24032. 936.36 s [opt-env-conf-test] [] -> Nothing
  24033. 936.36 s [opt-env-conf-test]
  24034. 936.36 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Doc.hs:637:38-43
  24035. 936.36 s [opt-env-conf-test] @@ -634,7 +634,7 @@
  24036. 936.36 s [opt-env-conf-test] withoutNothings =
  24037. 936.36 s [opt-env-conf-test] filter
  24038. 936.36 s [opt-env-conf-test] ( \case
  24039. 936.36 s [opt-env-conf-test] - AnyDocsSingle Nothing -> False
  24040. 936.36 s [opt-env-conf-test] + AnyDocsSingle Nothing -> True
  24041. 936.36 s [opt-env-conf-test] AnyDocsAnd [] -> False
  24042. 936.36 s [opt-env-conf-test] AnyDocsOr [] -> False
  24043. 936.36 s [opt-env-conf-test] _ -> True
  24044. 936.36 s [opt-env-conf-test]
  24045. 936.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
  24046. 936.36 s [opt-env-conf-test] @@ -819,11 +819,11 @@
  24047. 936.36 s [opt-env-conf-test] [exampleValuesChunks confDocExamples | not (null confDocExamples)],
  24048. 936.36 s [opt-env-conf-test] concatMap
  24049. 936.36 s [opt-env-conf-test] ( \(key, schema) ->
  24050. 936.36 s [opt-env-conf-test] - case jsonSchemaChunkLines schema of
  24051. 936.36 s [opt-env-conf-test] - [line] ->
  24052. 936.36 s [opt-env-conf-test] - [[confValChunk key, ": "] ++ line]
  24053. 936.36 s [opt-env-conf-test] - ls ->
  24054. 936.36 s [opt-env-conf-test] - [confValChunk key, ":"] : indent ls
  24055. 936.36 s [opt-env-conf-test] + case jsonSchemaChunkLines schema of
  24056. 936.36 s [opt-env-conf-test] + [line] ->
  24057. 936.36 s [opt-env-conf-test] + [[confValChunk key, ": "] ++ line]
  24058. 936.36 s [opt-env-conf-test] + ls ->
  24059. 936.36 s [opt-env-conf-test] + [confValChunk key, ":"] : indent ls
  24060. 936.36 s [opt-env-conf-test] )
  24061. 936.36 s [opt-env-conf-test] (NE.toList confDocKeys)
  24062. 936.36 s [opt-env-conf-test] ]
  24063. 936.36 s [opt-env-conf-test]
  24064. 936.36 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Error.hs:66:40-45
  24065. 936.36 s [opt-env-conf-test] @@ -63,7 +63,7 @@
  24066. 936.36 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  24067. 936.36 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  24068. 936.36 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  24069. 936.36 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand _ _ -> False
  24070. 936.36 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand _ _ -> True
  24071. 936.36 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  24072. 936.36 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  24073. 936.36 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  24074. 936.36 s [opt-env-conf-test]
  24075. 936.36 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:34-47
  24076. 936.36 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  24077. 936.36 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  24078. 936.36 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  24079. 936.36 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  24080. 936.36 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  24081. 936.36 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> True
  24082. 936.36 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  24083. 936.36 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  24084. 936.36 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  24085. 936.36 s [opt-env-conf-test]
  24086. 936.36 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:40-47
  24087. 936.36 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  24088. 936.36 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  24089. 936.36 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  24090. 936.36 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  24091. 936.36 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  24092. 936.36 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ False
  24093. 936.36 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  24094. 936.36 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  24095. 936.36 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  24096. 936.36 s [opt-env-conf-test]
  24097. 936.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24098. 936.36 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24099. 936.36 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24100. 936.36 s [opt-env-conf-test] renderError ParseError {..} =
  24101. 936.36 s [opt-env-conf-test] concat
  24102. 936.36 s [opt-env-conf-test] - [ case parseErrorMessage of
  24103. 936.36 s [opt-env-conf-test] - ParseErrorEmpty ->
  24104. 936.36 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24105. 936.36 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24106. 936.36 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24107. 936.36 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24108. 936.36 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24109. 936.36 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24110. 936.36 s [opt-env-conf-test] - ]
  24111. 936.36 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24112. 936.36 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24113. 936.36 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24114. 936.36 s [opt-env-conf-test] - [ "Missing argument: "
  24115. 936.36 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24116. 936.36 s [opt-env-conf-test] - ]
  24117. 936.36 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24118. 936.36 s [opt-env-conf-test] - ["Failed to read argument: "]
  24119. 936.36 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24120. 936.36 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24121. 936.36 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24122. 936.36 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24123. 936.36 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24124. 936.36 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24125. 936.36 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24126. 936.36 s [opt-env-conf-test] - ["Failed to read option: "]
  24127. 936.36 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24128. 936.37 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24129. 936.37 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24130. 936.37 s [opt-env-conf-test] - ["Missing env var: "]
  24131. 936.37 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24132. 936.37 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24133. 936.37 s [opt-env-conf-test] - ["Failed to read env var: "]
  24134. 936.37 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24135. 936.37 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24136. 936.37 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24137. 936.37 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24138. 936.37 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24139. 936.37 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24140. 936.37 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24141. 936.37 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24142. 936.37 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24143. 936.37 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24144. 936.37 s [opt-env-conf-test] - : availableCommandsLines cs
  24145. 936.37 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24146. 936.37 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24147. 936.37 s [opt-env-conf-test] - [fore blue "available commands:"]
  24148. 936.37 s [opt-env-conf-test] - ]
  24149. 936.37 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24150. 936.37 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24151. 936.37 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."],
  24152. 936.37 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24153. 936.37 s [opt-env-conf-test] - ]
  24154. 936.37 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24155. 936.37 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24156. 936.37 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24157. 936.37 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24158. 936.37 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24159. 936.37 s [opt-env-conf-test] + [ case parseErrorMessage of
  24160. 936.37 s [opt-env-conf-test] + ParseErrorEmpty ->
  24161. 936.37 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24162. 936.37 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24163. 936.37 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24164. 936.37 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24165. 936.37 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24166. 936.37 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24167. 936.37 s [opt-env-conf-test] + ]
  24168. 936.37 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24169. 936.37 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24170. 936.37 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24171. 936.37 s [opt-env-conf-test] + [ "Missing argument: "
  24172. 936.37 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24173. 936.37 s [opt-env-conf-test] + ]
  24174. 936.37 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24175. 936.37 s [opt-env-conf-test] + ["Failed to read argument: "]
  24176. 936.37 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24177. 936.37 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24178. 936.37 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24179. 936.37 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24180. 936.37 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24181. 936.37 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24182. 936.37 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24183. 936.37 s [opt-env-conf-test] + ["Failed to read option: "]
  24184. 936.37 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24185. 936.37 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24186. 936.37 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24187. 936.37 s [opt-env-conf-test] + ["Missing env var: "]
  24188. 936.37 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24189. 936.37 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24190. 936.37 s [opt-env-conf-test] + ["Failed to read env var: "]
  24191. 936.37 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24192. 936.37 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24193. 936.37 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24194. 936.37 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24195. 936.37 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24196. 936.37 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24197. 936.37 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24198. 936.37 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24199. 936.37 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24200. 936.37 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24201. 936.37 s [opt-env-conf-test] + : availableCommandsLines cs
  24202. 936.37 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24203. 936.37 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24204. 936.37 s [opt-env-conf-test] + [fore blue "available commands:"]
  24205. 936.37 s [opt-env-conf-test] + ]
  24206. 936.37 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24207. 936.37 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24208. 936.37 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."],
  24209. 936.37 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24210. 936.37 s [opt-env-conf-test] + ]
  24211. 936.37 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24212. 936.37 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24213. 936.37 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24214. 936.37 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24215. 936.37 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24216. 936.37 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24217. 936.37 s [opt-env-conf-test] ]
  24218. 936.37 s [opt-env-conf-test]
  24219. 936.37 s [opt-env-conf-test]
  24220. 936.37 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24221. 936.37 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24222. 936.37 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24223. 936.37 s [opt-env-conf-test] renderError ParseError {..} =
  24224. 936.37 s [opt-env-conf-test] concat
  24225. 936.37 s [opt-env-conf-test] - [ case parseErrorMessage of
  24226. 936.37 s [opt-env-conf-test] - ParseErrorEmpty ->
  24227. 936.37 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24228. 936.37 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24229. 936.37 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24230. 936.37 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24231. 936.37 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24232. 936.37 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24233. 936.37 s [opt-env-conf-test] - ]
  24234. 936.37 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24235. 936.37 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24236. 936.37 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24237. 936.37 s [opt-env-conf-test] - [ "Missing argument: "
  24238. 936.37 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24239. 936.37 s [opt-env-conf-test] - ]
  24240. 936.37 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24241. 936.37 s [opt-env-conf-test] - ["Failed to read argument: "]
  24242. 936.37 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24243. 936.37 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24244. 936.37 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24245. 936.37 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24246. 936.37 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24247. 936.37 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24248. 936.37 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24249. 936.37 s [opt-env-conf-test] - ["Failed to read option: "]
  24250. 936.37 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24251. 936.37 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24252. 936.37 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24253. 936.37 s [opt-env-conf-test] - ["Missing env var: "]
  24254. 936.37 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24255. 936.37 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24256. 936.37 s [opt-env-conf-test] - ["Failed to read env var: "]
  24257. 936.37 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24258. 936.37 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24259. 936.37 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24260. 936.37 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24261. 936.37 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24262. 936.37 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24263. 936.37 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24264. 936.37 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24265. 936.37 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24266. 936.37 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24267. 936.37 s [opt-env-conf-test] - : availableCommandsLines cs
  24268. 936.37 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24269. 936.37 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24270. 936.37 s [opt-env-conf-test] - [fore blue "available commands:"]
  24271. 936.37 s [opt-env-conf-test] - ]
  24272. 936.37 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24273. 936.37 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24274. 936.37 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."],
  24275. 936.37 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24276. 936.37 s [opt-env-conf-test] - ]
  24277. 936.37 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24278. 936.37 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24279. 936.37 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24280. 936.37 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24281. 936.37 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24282. 936.37 s [opt-env-conf-test] + [ case parseErrorMessage of
  24283. 936.37 s [opt-env-conf-test] + ParseErrorEmpty ->
  24284. 936.37 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24285. 936.37 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24286. 936.37 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24287. 936.37 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24288. 936.37 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24289. 936.37 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24290. 936.37 s [opt-env-conf-test] + ]
  24291. 936.37 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24292. 936.37 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24293. 936.37 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24294. 936.37 s [opt-env-conf-test] + [ "Missing argument: "
  24295. 936.37 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24296. 936.37 s [opt-env-conf-test] + ]
  24297. 936.37 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24298. 936.37 s [opt-env-conf-test] + ["Failed to read argument: "]
  24299. 936.37 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24300. 936.37 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24301. 936.37 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24302. 936.37 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24303. 936.37 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24304. 936.37 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24305. 936.37 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24306. 936.37 s [opt-env-conf-test] + ["Failed to read option: "]
  24307. 936.37 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24308. 936.37 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24309. 936.37 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24310. 936.37 s [opt-env-conf-test] + ["Missing env var: "]
  24311. 936.37 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24312. 936.37 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24313. 936.37 s [opt-env-conf-test] + ["Failed to read env var: "]
  24314. 936.37 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24315. 936.37 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24316. 936.37 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24317. 936.37 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24318. 936.37 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24319. 936.37 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24320. 936.37 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24321. 936.37 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24322. 936.37 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24323. 936.37 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24324. 936.37 s [opt-env-conf-test] + : availableCommandsLines cs
  24325. 936.37 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24326. 936.37 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24327. 936.37 s [opt-env-conf-test] + [fore blue "available commands:"]
  24328. 936.37 s [opt-env-conf-test] + ]
  24329. 936.37 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24330. 936.37 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24331. 936.37 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."],
  24332. 936.37 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24333. 936.37 s [opt-env-conf-test] + ]
  24334. 936.37 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24335. 936.37 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24336. 936.37 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24337. 936.37 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24338. 936.37 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24339. 936.37 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24340. 936.37 s [opt-env-conf-test] ]
  24341. 936.37 s [opt-env-conf-test]
  24342. 936.37 s [opt-env-conf-test]
  24343. 936.37 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24344. 936.37 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24345. 936.37 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24346. 936.37 s [opt-env-conf-test] renderError ParseError {..} =
  24347. 936.37 s [opt-env-conf-test] concat
  24348. 936.37 s [opt-env-conf-test] - [ case parseErrorMessage of
  24349. 936.37 s [opt-env-conf-test] - ParseErrorEmpty ->
  24350. 936.37 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24351. 936.37 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24352. 936.37 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24353. 936.37 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24354. 936.37 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24355. 936.37 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24356. 936.37 s [opt-env-conf-test] - ]
  24357. 936.37 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24358. 936.37 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24359. 936.37 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24360. 936.37 s [opt-env-conf-test] - [ "Missing argument: "
  24361. 936.37 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24362. 936.37 s [opt-env-conf-test] - ]
  24363. 936.37 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24364. 936.37 s [opt-env-conf-test] - ["Failed to read argument: "]
  24365. 936.37 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24366. 936.37 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24367. 936.37 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24368. 936.37 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24369. 936.37 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24370. 936.37 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24371. 936.37 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24372. 936.37 s [opt-env-conf-test] - ["Failed to read option: "]
  24373. 936.37 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24374. 936.37 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24375. 936.37 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24376. 936.37 s [opt-env-conf-test] - ["Missing env var: "]
  24377. 936.37 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24378. 936.37 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24379. 936.37 s [opt-env-conf-test] - ["Failed to read env var: "]
  24380. 936.37 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24381. 936.37 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24382. 936.37 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24383. 936.37 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24384. 936.37 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24385. 936.37 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24386. 936.37 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24387. 936.37 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24388. 936.37 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24389. 936.37 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24390. 936.37 s [opt-env-conf-test] - : availableCommandsLines cs
  24391. 936.37 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24392. 936.37 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24393. 936.37 s [opt-env-conf-test] - [fore blue "available commands:"]
  24394. 936.37 s [opt-env-conf-test] - ]
  24395. 936.37 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24396. 936.37 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24397. 936.37 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."],
  24398. 936.37 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24399. 936.37 s [opt-env-conf-test] - ]
  24400. 936.37 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24401. 936.37 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24402. 936.37 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24403. 936.37 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24404. 936.37 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24405. 936.38 s [opt-env-conf-test] + [ case parseErrorMessage of
  24406. 936.38 s [opt-env-conf-test] + ParseErrorEmpty ->
  24407. 936.38 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24408. 936.38 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24409. 936.38 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24410. 936.38 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24411. 936.38 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24412. 936.38 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24413. 936.38 s [opt-env-conf-test] + ]
  24414. 936.38 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24415. 936.38 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24416. 936.38 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24417. 936.38 s [opt-env-conf-test] + [ "Missing argument: "
  24418. 936.38 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24419. 936.38 s [opt-env-conf-test] + ]
  24420. 936.38 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24421. 936.38 s [opt-env-conf-test] + ["Failed to read argument: "]
  24422. 936.38 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24423. 936.38 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24424. 936.38 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24425. 936.38 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24426. 936.38 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24427. 936.38 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24428. 936.38 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24429. 936.38 s [opt-env-conf-test] + ["Failed to read option: "]
  24430. 936.38 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24431. 936.38 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24432. 936.38 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24433. 936.38 s [opt-env-conf-test] + ["Missing env var: "]
  24434. 936.38 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24435. 936.38 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24436. 936.38 s [opt-env-conf-test] + ["Failed to read env var: "]
  24437. 936.38 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24438. 936.38 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24439. 936.38 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24440. 936.38 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24441. 936.38 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24442. 936.38 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24443. 936.38 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24444. 936.38 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24445. 936.38 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24446. 936.38 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24447. 936.38 s [opt-env-conf-test] + : availableCommandsLines cs
  24448. 936.38 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24449. 936.38 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24450. 936.38 s [opt-env-conf-test] + [fore blue "available commands:"]
  24451. 936.38 s [opt-env-conf-test] + ]
  24452. 936.38 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24453. 936.38 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24454. 936.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."],
  24455. 936.38 s [opt-env-conf-test] + ["The foll else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  24456. 936.38 s [opt-env-conf-test]
  24457. 936.38 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:300:11-25
  24458. 936.38 s [opt-env-conf-test] @@ -297,9 +297,9 @@
  24459. 936.38 s [opt-env-conf-test] else Nothing
  24460. 936.38 s [opt-env-conf-test] else
  24461. 936.38 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  24462. 936.38 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  24463. 936.38 s [opt-env-conf-test] - then Just mRest
  24464. 936.38 s [opt-env-conf-test] - else Nothing
  24465. 936.38 s [opt-env-conf-test] + in if DashedShort c `elem` dasheds
  24466. 936.38 s [opt-env-conf-test] + then Just mRest
  24467. 936.38 s [opt-env-conf-test] + else Nothing
  24468. 936.38 s [opt-env-conf-test]
  24469. 936.38 s [opt-env-conf-test] unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
  24470. 936.38 s [opt-env-conf-test] unsnocNE = go []
  24471. 936.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
  24472. 936.38 s [opt-env-conf-test] @@ -201,7 +201,7 @@
  24473. 936.38 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  24474. 936.38 s [opt-env-conf-test] ]
  24475. 936.38 s [opt-env-conf-test] _ ->
  24476. 936.38 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  24477. 936.38 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  24478. 936.38 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  24479. 936.38 s [opt-env-conf-test] (Just (renderArg a), consumed)
  24480. 936.38 s [opt-env-conf-test] ]
  24481. 936.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
  24482. 936.38 s [opt-env-conf-test] @@ -201,7 +201,7 @@
  24483. 936.38 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  24484. 936.38 s [opt-env-conf-test] ]
  24485. 936.38 s [opt-env-conf-test] _ ->
  24486. 936.38 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  24487. 936.38 s [opt-env-conf-test] + consumeArgument (Args (befores ++ []) rest)
  24488. 936.38 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  24489. 936.38 s [opt-env-conf-test] (Just (renderArg a), consumed)
  24490. 936.38 s [opt-env-conf-test] ]
  24491. 936.38 s [opt-env-conf-test] owing settings have been parsed:"]
  24492. 936.38 s [opt-env-conf-test] + ]
  24493. 936.38 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24494. 936.38 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24495. 936.38 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24496. 936.38 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24497. 936.38 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24498. 936.38 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24499. 936.38 s [opt-env-conf-test] ]
  24500. 936.38 s [opt-env-conf-test]
  24501. 936.38 s [opt-env-conf-test]
  24502. 936.38 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24503. 936.38 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24504. 936.38 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24505. 936.38 s [opt-env-conf-test] renderError ParseError {..} =
  24506. 936.38 s [opt-env-conf-test] concat
  24507. 936.38 s [opt-env-conf-test] - [ case parseErrorMessage of
  24508. 936.38 s [opt-env-conf-test] - ParseErrorEmpty ->
  24509. 936.38 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24510. 936.38 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24511. 936.38 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24512. 936.38 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24513. 936.38 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24514. 936.38 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24515. 936.38 s [opt-env-conf-test] - ]
  24516. 936.38 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24517. 936.38 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24518. 936.38 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24519. 936.38 s [opt-env-conf-test] - [ "Missing argument: "
  24520. 936.38 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24521. 936.38 s [opt-env-conf-test] - ]
  24522. 936.38 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24523. 936.38 s [opt-env-conf-test] - ["Failed to read argument: "]
  24524. 936.38 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24525. 936.38 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24526. 936.38 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24527. 936.38 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24528. 936.38 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24529. 936.38 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24530. 936.38 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24531. 936.38 s [opt-env-conf-test] - ["Failed to read option: "]
  24532. 936.38 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24533. 936.38 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24534. 936.38 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24535. 936.38 s [opt-env-conf-test] - ["Missing env var: "]
  24536. 936.38 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24537. 936.38 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24538. 936.38 s [opt-env-conf-test] - ["Failed to read env var: "]
  24539. 936.38 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24540. 936.38 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24541. 936.38 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24542. 936.38 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24543. 936.38 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24544. 936.38 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24545. 936.38 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24546. 936.38 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24547. 936.38 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24548. 936.38 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24549. 936.38 s [opt-env-conf-test] - : availableCommandsLines cs
  24550. 936.38 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24551. 936.38 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24552. 936.38 s [opt-env-conf-test] - [fore blue "available commands:"]
  24553. 936.38 s [opt-env-conf-test] - ]
  24554. 936.38 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24555. 936.38 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24556. 936.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."],
  24557. 936.38 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24558. 936.38 s [opt-env-conf-test] - ]
  24559. 936.38 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24560. 936.38 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24561. 936.38 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24562. 936.38 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24563. 936.38 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24564. 936.38 s [opt-env-conf-test] + [ case parseErrorMessage of
  24565. 936.38 s [opt-env-conf-test] + ParseErrorEmpty ->
  24566. 936.38 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24567. 936.38 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24568. 936.38 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24569. 936.38 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24570. 936.38 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24571. 936.38 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24572. 936.38 s [opt-env-conf-test] + ]
  24573. 936.38 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24574. 936.38 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24575. 936.38 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24576. 936.38 s [opt-env-conf-test] + [ "Missing argument: "
  24577. 936.38 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24578. 936.38 s [opt-env-conf-test] + ]
  24579. 936.38 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24580. 936.38 s [opt-env-conf-test] + ["Failed to read argument: "]
  24581. 936.38 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24582. 936.38 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24583. 936.38 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24584. 936.38 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24585. 936.38 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24586. 936.38 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24587. 936.38 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24588. 936.38 s [opt-env-conf-test] + ["Failed to read option: "]
  24589. 936.38 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24590. 936.38 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24591. 936.38 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24592. 936.38 s [opt-env-conf-test] + ["Missing env var: "]
  24593. 936.38 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24594. 936.38 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24595. 936.38 s [opt-env-conf-test] + ["Failed to read env var: "]
  24596. 936.38 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24597. 936.38 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24598. 936.38 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24599. 936.38 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24600. 936.38 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24601. 936.38 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24602. 936.38 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24603. 936.38 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24604. 936.38 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24605. 936.38 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24606. 936.38 s [opt-env-conf-test] + : availableCommandsLines cs
  24607. 936.38 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24608. 936.38 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24609. 936.38 s [opt-env-conf-test] + [fore blue "available commands:"]
  24610. 936.38 s [opt-env-conf-test] + ]
  24611. 936.38 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24612. 936.38 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24613. 936.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."],
  24614. 936.38 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24615. 936.38 s [opt-env-conf-test] + ]
  24616. 936.38 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24617. 936.38 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24618. 936.38 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24619. 936.38 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24620. 936.38 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24621. 936.38 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24622. 936.38 s [opt-env-conf-test] ]
  24623. 936.38 s [opt-env-conf-test]
  24624. 936.38 s [opt-env-conf-test]
  24625. 936.38 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24626. 936.38 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24627. 936.38 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24628. 936.38 s [opt-env-conf-test] renderError ParseError {..} =
  24629. 936.38 s [opt-env-conf-test] concat
  24630. 936.38 s [opt-env-conf-test] - [ case parseErrorMessage of
  24631. 936.38 s [opt-env-conf-test] - ParseErrorEmpty ->
  24632. 936.38 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24633. 936.38 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24634. 936.38 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24635. 936.38 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24636. 936.38 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24637. 936.38 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24638. 936.38 s [opt-env-conf-test] - ]
  24639. 936.38 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24640. 936.38 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24641. 936.38 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24642. 936.38 s [opt-env-conf-test] - [ "Missing argument: "
  24643. 936.38 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24644. 936.38 s [opt-env-conf-test] - ]
  24645. 936.38 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24646. 936.38 s [opt-env-conf-test] - ["Failed to read argument: "]
  24647. 936.38 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24648. 936.38 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24649. 936.38 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24650. 936.38 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24651. 936.38 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24652. 936.38 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24653. 936.38 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24654. 936.38 s [opt-env-conf-test] - ["Failed to read option: "]
  24655. 936.38 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24656. 936.38 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24657. 936.38 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24658. 936.38 s [opt-env-conf-test] - ["Missing env var: "]
  24659. 936.38 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24660. 936.38 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24661. 936.38 s [opt-env-conf-test] - ["Failed to read env var: "]
  24662. 936.38 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24663. 936.38 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24664. 936.38 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24665. 936.38 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24666. 936.38 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24667. 936.38 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24668. 936.38 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24669. 936.38 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24670. 936.38 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24671. 936.38 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24672. 936.38 s [opt-env-conf-test] - : availableCommandsLines cs
  24673. 936.38 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24674. 936.38 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24675. 936.38 s [opt-env-conf-test] - [fore blue "available commands:"]
  24676. 936.38 s [opt-env-conf-test] - ]
  24677. 936.38 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24678. 936.38 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24679. 936.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."],
  24680. 936.38 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24681. 936.38 s [opt-env-conf-test] - ]
  24682. 936.38 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24683. 936.38 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24684. 936.38 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24685. 936.39 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24686. 936.39 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24687. 936.39 s [opt-env-conf-test] + [ case parseErrorMessage of
  24688. 936.39 s [opt-env-conf-test] + ParseErrorEmpty ->
  24689. 936.39 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24690. 936.39 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24691. 936.39 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24692. 936.39 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24693. 936.39 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24694. 936.39 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24695. 936.39 s [opt-env-conf-test] + ]
  24696. 936.39 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24697. 936.39 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24698. 936.39 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24699. 936.39 s [opt-env-conf-test] + [ "Missing argument: "
  24700. 936.39 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24701. 936.39 s [opt-env-conf-test] + ]
  24702. 936.39 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24703. 936.39 s [opt-env-conf-test] + ["Failed to read argument: "]
  24704. 936.39 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24705. 936.39 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24706. 936.39 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24707. 936.39 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24708. 936.39 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24709. 936.39 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24710. 936.39 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24711. 936.39 s [opt-env-conf-test] + ["Failed to read option: "]
  24712. 936.39 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24713. 936.39 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24714. 936.39 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24715. 936.39 s [opt-env-conf-test] + ["Missing env var: "]
  24716. 936.39 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24717. 936.39 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24718. 936.39 s [opt-env-conf-test] + ["Failed to read env var: "]
  24719. 936.39 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24720. 936.39 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24721. 936.39 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24722. 936.39 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24723. 936.39 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24724. 936.39 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24725. 936.39 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24726. 936.39 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24727. 936.39 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24728. 936.39 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24729. 936.39 s [opt-env-conf-test] + : availableCommandsLines cs
  24730. 936.39 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24731. 936.39 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24732. 936.39 s [opt-env-conf-test] + [fore blue "available commands:"]
  24733. 936.39 s [opt-env-conf-test] + ]
  24734. 936.39 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24735. 936.39 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24736. 936.39 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."],
  24737. 936.39 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24738. 936.39 s [opt-env-conf-test] + ]
  24739. 936.39 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24740. 936.39 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24741. 936.39 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24742. 936.39 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24743. 936.39 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24744. 936.39 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24745. 936.39 s [opt-env-conf-test] ]
  24746. 936.39 s [opt-env-conf-test]
  24747. 936.39 s [opt-env-conf-test]
  24748. 936.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24749. 936.39 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24750. 936.39 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24751. 936.39 s [opt-env-conf-test] renderError ParseError {..} =
  24752. 936.39 s [opt-env-conf-test] concat
  24753. 936.39 s [opt-env-conf-test] - [ case parseErrorMessage of
  24754. 936.39 s [opt-env-conf-test] - ParseErrorEmpty ->
  24755. 936.39 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24756. 936.39 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24757. 936.39 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24758. 936.39 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24759. 936.39 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24760. 936.39 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24761. 936.39 s [opt-env-conf-test] - ]
  24762. 936.39 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24763. 936.39 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24764. 936.39 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24765. 936.39 s [opt-env-conf-test] - [ "Missing argument: "
  24766. 936.39 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24767. 936.39 s [opt-env-conf-test] - ]
  24768. 936.39 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24769. 936.39 s [opt-env-conf-test] - ["Failed to read argument: "]
  24770. 936.39 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24771. 936.39 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24772. 936.39 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24773. 936.39 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24774. 936.39 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24775. 936.39 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24776. 936.39 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24777. 936.39 s [opt-env-conf-test] - ["Failed to read option: "]
  24778. 936.39 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24779. 936.39 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24780. 936.39 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24781. 936.39 s [opt-env-conf-test] - ["Missing env var: "]
  24782. 936.39 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24783. 936.39 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24784. 936.39 s [opt-env-conf-test] - ["Failed to read env var: "]
  24785. 936.39 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24786. 936.39 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24787. 936.39 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24788. 936.39 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24789. 936.39 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24790. 936.39 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24791. 936.39 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24792. 936.39 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24793. 936.39 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24794. 936.39 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24795. 936.39 s [opt-env-conf-test] - : availableCommandsLines cs
  24796. 936.39 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24797. 936.39 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24798. 936.39 s [opt-env-conf-test] - [fore blue "available commands:"]
  24799. 936.39 s [opt-env-conf-test] - ]
  24800. 936.39 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24801. 936.39 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24802. 936.39 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."],
  24803. 936.39 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24804. 936.39 s [opt-env-conf-test] - ]
  24805. 936.39 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24806. 936.39 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24807. 936.39 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24808. 936.39 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24809. 936.39 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24810. 936.39 s [opt-env-conf-test] + [ case parseErrorMessage of
  24811. 936.39 s [opt-env-conf-test] + ParseErrorEmpty ->
  24812. 936.39 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24813. 936.39 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24814. 936.39 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24815. 936.39 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24816. 936.39 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24817. 936.39 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24818. 936.39 s [opt-env-conf-test] + ]
  24819. 936.39 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24820. 936.39 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24821. 936.39 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24822. 936.39 s [opt-env-conf-test] + [ "Missing argument: "
  24823. 936.39 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24824. 936.39 s [opt-env-conf-test] + ]
  24825. 936.39 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24826. 936.39 s [opt-env-conf-test] + ["Failed to read argument: "]
  24827. 936.39 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24828. 936.39 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24829. 936.39 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24830. 936.39 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24831. 936.39 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24832. 936.39 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24833. 936.39 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24834. 936.39 s [opt-env-conf-test] + ["Failed to read option: "]
  24835. 936.39 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24836. 936.39 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24837. 936.39 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24838. 936.39 s [opt-env-conf-test] + ["Missing env var: "]
  24839. 936.39 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24840. 936.39 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24841. 936.39 s [opt-env-conf-test] + ["Failed to read env var: "]
  24842. 936.39 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24843. 936.39 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24844. 936.39 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24845. 936.39 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24846. 936.39 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24847. 936.39 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24848. 936.39 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24849. 936.39 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24850. 936.39 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24851. 936.39 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24852. 936.39 s [opt-env-conf-test] + : availableCommandsLines cs
  24853. 936.39 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24854. 936.39 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24855. 936.39 s [opt-env-conf-test] + [fore blue "available commands:"]
  24856. 936.39 s [opt-env-conf-test] + ]
  24857. 936.39 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24858. 936.39 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24859. 936.39 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."],
  24860. 936.39 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24861. 936.39 s [opt-env-conf-test] + ]
  24862. 936.39 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24863. 936.39 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24864. 936.39 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24865. 936.39 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24866. 936.39 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24867. 936.39 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24868. 936.39 s [opt-env-conf-test] ]
  24869. 936.39 s [opt-env-conf-test]
  24870. 936.39 s [opt-env-conf-test]
  24871. 936.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:67:3-96
  24872. 936.39 s [opt-env-conf-test] @@ -64,10 +64,10 @@
  24873. 936.39 s [opt-env-conf-test]
  24874. 936.39 s [opt-env-conf-test] parserLintTest :: Parser a -> IO ()
  24875. 936.39 s [opt-env-conf-test] parserLintTest parser =
  24876. 936.39 s [opt-env-conf-test] - case lintParser parser of
  24877. 936.39 s [opt-env-conf-test] - Nothing -> pure ()
  24878. 936.39 s [opt-env-conf-test] - Just errs ->
  24879. 936.39 s [opt-env-conf-test] - expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
  24880. 936.39 s [opt-env-conf-test] + case lintParser parser of
  24881. 936.39 s [opt-env-conf-test] + Nothing -> pure ()
  24882. 936.39 s [opt-env-conf-test] + Just errs ->
  24883. 936.39 s [opt-env-conf-test] + expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
  24884. 936.39 s [opt-env-conf-test]
  24885. 936.39 s [opt-env-conf-test] settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
  24886. 936.39 s [opt-env-conf-test] settingsParserArgsTest = parserArgsTest settingsParser
  24887. 936.39 s [opt-env-conf-test]
  24888. 936.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:149:13-24
  24889. 936.39 s [opt-env-conf-test] @@ -146,14 +146,14 @@
  24890. 936.39 s [opt-env-conf-test]
  24891. 936.39 s [opt-env-conf-test] generatedFileComment :: CallStack -> T.Text
  24892. 936.39 s [opt-env-conf-test] generatedFileComment cs =
  24893. 936.39 s [opt-env-conf-test] - let loc = case getCallStack cs of
  24894. 936.39 s [opt-env-conf-test] - (_, srcLoc) : _ ->
  24895. 936.39 s [opt-env-conf-test] - packageName (Stack.srcLocPackage srcLoc)
  24896. 936.39 s [opt-env-conf-test] - <> ":"
  24897. 936.39 s [opt-env-conf-test] - <> Stack.srcLocFile srcLoc
  24898. 936.39 s [opt-env-conf-test] - <> ":"
  24899. 936.39 s [opt-env-conf-test] - <> show (Stack.srcLocStartLine srcLoc)
  24900. 936.39 s [opt-env-conf-test] - [] -> "unknown"
  24901. 936.39 s [opt-env-conf-test] + let loc = case getCallStack cs of
  24902. 936.39 s [opt-env-conf-test] + (_, srcLoc) : _ ->
  24903. 936.39 s [opt-env-conf-test] + packageName (Stack.srcLocPackage srcLoc)
  24904. 936.39 s [opt-env-conf-test] + <> ":"
  24905. 936.39 s [opt-env-conf-test] + <> Stack.srcLocFile srcLoc
  24906. 936.39 s [opt-env-conf-test] + <> ":"
  24907. 936.39 s [opt-env-conf-test] + <> show (Stack.srcLocStartLine srcLoc)
  24908. 936.39 s [opt-env-conf-test] + [] -> "unknown"
  24909. 936.39 s [opt-env-conf-test] in T.pack $
  24910. 936.39 s [opt-env-conf-test] unlines $
  24911. 936.39 s [opt-env-conf-test] map
  24912. 936.39 s [opt-env-conf-test]
  24913. 936.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-84
  24914. 936.39 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24915. 936.39 s [opt-env-conf-test] where
  24916. 936.39 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24917. 936.39 s [opt-env-conf-test] go (c : rest) = c : go rest
  24918. 936.39 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24919. 936.39 s [opt-env-conf-test] + isVersion v = not (null v) && True
  24920. 936.39 s [opt-env-conf-test]
  24921. 936.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:49-84
  24922. 936.39 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24923. 936.39 s [opt-env-conf-test] where
  24924. 936.39 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24925. 936.39 s [opt-env-conf-test] go (c : rest) = c : go rest
  24926. 936.39 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24927. 936.39 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && True
  24928. 936.39 s [opt-env-conf-test]
  24929. 936.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-81
  24930. 936.39 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24931. 936.39 s [opt-env-conf-test] where
  24932. 936.39 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24933. 936.39 s [opt-env-conf-test] go (c : rest) = c : go rest
  24934. 936.39 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24935. 936.39 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True) v
  24936. 936.39 s [opt-env-conf-test]
  24937. 936.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:73-81
  24938. 936.39 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24939. 936.39 s [opt-env-conf-test] where
  24940. 936.39 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24941. 936.39 s [opt-env-conf-test] go (c : rest) = c : go rest
  24942. 936.39 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24943. 936.39 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
  24944. 936.39 s [opt-env-conf-test]
  24945. 936.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-69
  24946. 936.39 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24947. 936.39 s [opt-env-conf-test] where
  24948. 936.39 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24949. 936.39 s [opt-env-conf-test] go (c : rest) = c : go rest
  24950. 936.39 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24951. 936.39 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
  24952. 936.39 s [opt-env-conf-test]
  24953. 936.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-45
  24954. 936.39 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24955. 936.39 s [opt-env-conf-test] where
  24956. 936.39 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24957. 936.39 s [opt-env-conf-test] go (c : rest) = c : go rest
  24958. 936.39 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24959. 936.39 s [opt-env-conf-test] + isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
  24960. 936.39 s [opt-env-conf-test]
  24961. 936.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:19-31
  24962. 936.39 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24963. 936.40 s [opt-env-conf-test] where
  24964. 936.40 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24965. 936.40 s [opt-env-conf-test] go (c : rest) = c : go rest
  24966. 936.40 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24967. 936.40 s [opt-env-conf-test] + isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
  24968. 936.40 s [opt-env-conf-test]
  24969. 936.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:23-31
  24970. 936.40 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24971. 936.40 s [opt-env-conf-test] where
  24972. 936.40 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24973. 936.40 s [opt-env-conf-test] go (c : rest) = c : go rest
  24974. 936.40 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24975. 936.40 s [opt-env-conf-test] + isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
  24976. 936.40 s [opt-env-conf-test]
  24977. 936.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:24-30
  24978. 936.40 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24979. 936.40 s [opt-env-conf-test] where
  24980. 936.40 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24981. 936.40 s [opt-env-conf-test] go (c : rest) = c : go rest
  24982. 936.40 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24983. 936.40 s [opt-env-conf-test] + isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24984. 936.40 s [opt-env-conf-test] checkPhase completed in 8 minutes 24 seconds
  24985. 936.40 s [opt-env-conf-test] Phase: haddockPhase
  24986. 936.40 s [opt-env-conf-test] Phase: installPhase
  24987. 936.40 s [opt-env-conf-test] Installing library in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
  24988. 936.55 s [opt-env-conf-test] Phase: fixupPhase
  24989. 936.57 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4
  24990. 936.57 s [opt-env-conf-test] shrinking /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSopt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT-ghc9.10.3.so
  24991. 936.60 s [opt-env-conf-test] checking for references to /build/ in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4...
  24992. 936.61 s [opt-env-conf-test] patching script interpreter paths in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4
  24993. 936.62 s [opt-env-conf-test] stripping (with command strip and flags -S -p) in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib
  24994. 936.66 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest
  24995. 936.66 s [opt-env-conf-test] checking for references to /build/ in /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest...
  24996. 936.68 s [opt-env-conf-test] patching script interpreter paths in /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest
  24997. 936.68 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/51n9qks2xsqb9ik9nq29rcrnj3p5llin-opt-env-conf-test-0.0.0.4-report
  24998. 936.73 s [opt-env-conf-test] checking for references to /build/ in /nix/store/51n9qks2xsqb9ik9nq29rcrnj3p5llin-opt-env-conf-test-0.0.0.4-report...
  24999. 936.79 s [opt-env-conf-test] patching script interpreter paths in /nix/store/51n9qks2xsqb9ik9nq29rcrnj3p5llin-opt-env-conf-test-0.0.0.4-report
  25000. 936.89 s Progress: 10 of 11 built
Tail Raw Logs