1. 1007.73 s [opt-env-conf-test] + functionChunk "setting",
  2. 1007.73 s [opt-env-conf-test] + " parses nothing."
  3. 1007.73 s [opt-env-conf-test] + ]
  4. 1007.73 s [opt-env-conf-test] + ],
  5. 1007.73 s [opt-env-conf-test] + [ [ "Add an ",
  6. 1007.73 s [opt-env-conf-test] + functionChunk "argument",
  7. 1007.73 s [opt-env-conf-test] + ", ",
  8. 1007.73 s [opt-env-conf-test] + functionChunk "switch",
  9. 1007.73 s [opt-env-conf-test] + ", ",
  10. 1007.73 s [opt-env-conf-test] + functionChunk "option",
  11. 1007.73 s [opt-env-conf-test] + ", ",
  12. 1007.73 s [opt-env-conf-test] + functionChunk "env",
  13. 1007.73 s [opt-env-conf-test] + ", ",
  14. 1007.73 s [opt-env-conf-test] + functionChunk "conf",
  15. 1007.73 s [opt-env-conf-test] + ", or ",
  16. 1007.73 s [opt-env-conf-test] + functionChunk "value",
  17. 1007.73 s [opt-env-conf-test] + "."
  18. 1007.73 s [opt-env-conf-test] + ]
  19. 1007.73 s [opt-env-conf-test] + ]
  20. 1007.73 s [opt-env-conf-test] + ]
  21. 1007.73 s [opt-env-conf-test] LintErrorDashInShort ->
  22. 1007.73 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  23. 1007.73 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  24. 1007.73 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
  25. 1007.73 s [opt-env-conf-test] @@ -164,15 +164,7 @@
  26. 1007.73 s [opt-env-conf-test] ]
  27. 1007.73 s [opt-env-conf-test] ]
  28. 1007.73 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  29. 1007.73 s [opt-env-conf-test] - [ [ functionChunk "long",
  30. 1007.73 s [opt-env-conf-test] - " or ",
  31. 1007.73 s [opt-env-conf-test] - functionChunk "short",
  32. 1007.73 s [opt-env-conf-test] - " has no ",
  33. 1007.73 s [opt-env-conf-test] - functionChunk "option",
  34. 1007.73 s [opt-env-conf-test] - " or ",
  35. 1007.73 s [opt-env-conf-test] - functionChunk "switch",
  36. 1007.73 s [opt-env-conf-test] - "."
  37. 1007.73 s [opt-env-conf-test] - ]
  38. 1007.73 s [opt-env-conf-test] + [ []
  39. 1007.73 s [opt-env-conf-test] ]
  40. 1007.73 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  41. 1007.73 s [opt-env-conf-test] [ [ functionChunk "env",
  42. 1007.73 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
  43. 1007.73 s [opt-env-conf-test] @@ -155,13 +155,13 @@
  44. 1007.73 s [opt-env-conf-test] ]
  45. 1007.73 s [opt-env-conf-test] ]
  46. 1007.73 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  47. 1007.73 s [opt-env-conf-test] - [ [ functionChunk "switch",
  48. 1007.73 s [opt-env-conf-test] - " has no ",
  49. 1007.73 s [opt-env-conf-test] - functionChunk "long",
  50. 1007.73 s [opt-env-conf-test] - " or ",
  51. 1007.73 s [opt-env-conf-test] - functionChunk "short",
  52. 1007.73 s [opt-env-conf-test] - "."
  53. 1007.73 s [opt-env-conf-test] - ]
  54. 1007.73 s [opt-env-conf-test] + [ [ functionChunk "switch",
  55. 1007.73 s [opt-env-conf-test] + " has no ",
  56. 1007.73 s [opt-env-conf-test] + functionChunk "long",
  57. 1007.73 s [opt-env-conf-test] + " or ",
  58. 1007.73 s [opt-env-conf-test] + functionChunk "short",
  59. 1007.73 s [opt-env-conf-test] + "."
  60. 1007.73 s [opt-env-conf-test] + ]
  61. 1007.73 s [opt-env-conf-test] ]
  62. 1007.73 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  63. 1007.73 s [opt-env-conf-test] [ [ functionChunk "long",
  64. 1007.73 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
  65. 1007.73 s [opt-env-conf-test] @@ -155,13 +155,7 @@
  66. 1007.73 s [opt-env-conf-test] ]
  67. 1007.73 s [opt-env-conf-test] ]
  68. 1007.73 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  69. 1007.73 s [opt-env-conf-test] - [ [ functionChunk "switch",
  70. 1007.73 s [opt-env-conf-test] - " has no ",
  71. 1007.73 s [opt-env-conf-test] - functionChunk "long",
  72. 1007.73 s [opt-env-conf-test] - " or ",
  73. 1007.73 s [opt-env-conf-test] - functionChunk "short",
  74. 1007.73 s [opt-env-conf-test] - "."
  75. 1007.73 s [opt-env-conf-test] - ]
  76. 1007.73 s [opt-env-conf-test] + [ []
  77. 1007.73 s [opt-env-conf-test] ]
  78. 1007.73 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  79. 1009.04 s [opt-env-conf-test] [ [ functionChunk "long",
  80. 1009.04 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
  81. 1009.04 s [opt-env-conf-test] @@ -155,13 +155,12 @@
  82. 1009.04 s [opt-env-conf-test] ]
  83. 1009.04 s [opt-env-conf-test] ]
  84. 1009.04 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  85. 1009.04 s [opt-env-conf-test] - [ [ functionChunk "switch",
  86. 1009.04 s [opt-env-conf-test] - " has no ",
  87. 1009.04 s [opt-env-conf-test] - functionChunk "long",
  88. 1009.04 s [opt-env-conf-test] - " or ",
  89. 1009.04 s [opt-env-conf-test] - functionChunk "short",
  90. 1009.04 s [opt-env-conf-test] - "."
  91. 1009.04 s [opt-env-conf-test] - ]
  92. 1009.04 s [opt-env-conf-test] + [ [ functionChunk "switch",
  93. 1009.05 s [opt-env-conf-test] + " has no ",
  94. 1009.05 s [opt-env-conf-test] + functionChunk "long",
  95. 1009.05 s [opt-env-conf-test] + " or ",
  96. 1009.05 s [opt-env-conf-test] + functionChunk "short"
  97. 1009.05 s [opt-env-conf-test] +]
  98. 1009.05 s [opt-env-conf-test] ]
  99. 1009.05 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  100. 1009.05 s [opt-env-conf-test] [ [ functionChunk "long",
  101. 1009.05 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  102. 1009.05 s [opt-env-conf-test] @@ -213,12 +213,12 @@
  103. 1009.05 s [opt-env-conf-test] functionChunk "name",
  104. 1009.05 s [opt-env-conf-test] " was called with no way to load configuration."
  105. 1009.05 s [opt-env-conf-test] ],
  106. 1009.05 s [opt-env-conf-test] - [ "You can load configuration with ",
  107. 1009.05 s [opt-env-conf-test] - functionChunk "withConfig",
  108. 1009.05 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  109. 1009.05 s [opt-env-conf-test] - functionChunk "withoutConfig",
  110. 1009.05 s [opt-env-conf-test] - "."
  111. 1009.05 s [opt-env-conf-test] - ]
  112. 1009.05 s [opt-env-conf-test] + [ "You can load configuration with ",
  113. 1009.05 s [opt-env-conf-test] + functionChunk "withConfig",
  114. 1009.05 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  115. 1009.05 s [opt-env-conf-test] + functionChunk "withoutConfig",
  116. 1009.05 s [opt-env-conf-test] + "."
  117. 1009.05 s [opt-env-conf-test] + ]
  118. 1009.05 s [opt-env-conf-test] ]
  119. 1009.05 s [opt-env-conf-test] LintErrorManyInfinite ->
  120. 1009.05 s [opt-env-conf-test] [ [ functionChunk "many",
  121. 1009.05 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  122. 1009.05 s [opt-env-conf-test] @@ -208,11 +208,10 @@
  123. 1009.05 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  124. 1009.05 s [opt-env-conf-test] ]
  125. 1009.05 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  126. 1009.05 s [opt-env-conf-test] - [ [ functionChunk "conf",
  127. 1009.05 s [opt-env-conf-test] - " or ",
  128. 1009.05 s [opt-env-conf-test] - functionChunk "name",
  129. 1009.05 s [opt-env-conf-test] - " was called with no way to load configuration."
  130. 1009.05 s [opt-env-conf-test] - ],
  131. 1009.05 s [opt-env-conf-test] + [ [ functionChunk "conf",
  132. 1009.05 s [opt-env-conf-test] + " or ",
  133. 1009.05 s [opt-env-conf-test] + functionChunk "name"
  134. 1009.05 s [opt-env-conf-test] +],
  135. 1009.05 s [opt-env-conf-test] [ "You can load configuration with ",
  136. 1009.05 s [opt-env-conf-test] functionChunk "withConfig",
  137. 1009.05 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  138. 1009.05 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  139. 1009.05 s [opt-env-conf-test] @@ -208,11 +208,11 @@
  140. 1009.05 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  141. 1009.05 s [opt-env-conf-test] ]
  142. 1009.05 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  143. 1009.05 s [opt-env-conf-test] - [ [ functionChunk "conf",
  144. 1009.05 s [opt-env-conf-test] - " or ",
  145. 1009.05 s [opt-env-conf-test] - functionChunk "name",
  146. 1009.05 s [opt-env-conf-test] - " was called with no way to load configuration."
  147. 1009.05 s [opt-env-conf-test] - ],
  148. 1009.05 s [opt-env-conf-test] + [ [ functionChunk "conf",
  149. 1009.05 s [opt-env-conf-test] + " or ",
  150. 1009.05 s [opt-env-conf-test] + functionChunk "name",
  151. 1009.06 s [opt-env-conf-test] + " was called with no way to load configuration."
  152. 1009.06 s [opt-env-conf-test] + ],
  153. 1009.06 s [opt-env-conf-test] [ "You can load configuration with ",
  154. 1009.06 s [opt-env-conf-test] functionChunk "withConfig",
  155. 1009.06 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  156. 1009.06 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  157. 1009.06 s [opt-env-conf-test] @@ -213,12 +213,7 @@
  158. 1009.06 s [opt-env-conf-test] functionChunk "name",
  159. 1009.06 s [opt-env-conf-test] " was called with no way to load configuration."
  160. 1009.06 s [opt-env-conf-test] ],
  161. 1009.06 s [opt-env-conf-test] - [ "You can load configuration with ",
  162. 1009.06 s [opt-env-conf-test] - functionChunk "withConfig",
  163. 1009.06 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  164. 1009.06 s [opt-env-conf-test] - functionChunk "withoutConfig",
  165. 1009.06 s [opt-env-conf-test] - "."
  166. 1009.06 s [opt-env-conf-test] - ]
  167. 1009.06 s [opt-env-conf-test] + []
  168. 1009.06 s [opt-env-conf-test] ]
  169. 1009.06 s [opt-env-conf-test] LintErrorManyInfinite ->
  170. 1009.06 s [opt-env-conf-test] [ [ functionChunk "many",
  171. 1009.06 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
  172. 1009.06 s [opt-env-conf-test] @@ -98,7 +98,7 @@
  173. 1009.06 s [opt-env-conf-test] ]
  174. 1009.06 s [opt-env-conf-test] LintErrorDashInLong s ->
  175. 1009.06 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  176. 1009.06 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  177. 1009.06 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  178. 1009.06 s [opt-env-conf-test] [ "Try ",
  179. 1009.06 s [opt-env-conf-test] functionChunk "long",
  180. 1009.06 s [opt-env-conf-test] " ",
  181. 1009.06 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  182. 1009.06 s [opt-env-conf-test] @@ -213,12 +213,11 @@
  183. 1009.06 s [opt-env-conf-test] functionChunk "name",
  184. 1009.06 s [opt-env-conf-test] " was called with no way to load configuration."
  185. 1009.06 s [opt-env-conf-test] ],
  186. 1009.06 s [opt-env-conf-test] - [ "You can load configuration with ",
  187. 1009.06 s [opt-env-conf-test] - functionChunk "withConfig",
  188. 1009.06 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  189. 1009.06 s [opt-env-conf-test] - functionChunk "withoutConfig",
  190. 1009.06 s [opt-env-conf-test] - "."
  191. 1009.06 s [opt-env-conf-test] - ]
  192. 1009.06 s [opt-env-conf-test] + [ "You can load configuration with ",
  193. 1009.06 s [opt-env-conf-test] + functionChunk "withConfig",
  194. 1009.06 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  195. 1009.06 s [opt-env-conf-test] + functionChunk "withoutConfig"
  196. 1009.06 s [opt-env-conf-test] +]
  197. 1009.06 s [opt-env-conf-test] ]
  198. 1009.06 s [opt-env-conf-test] LintErrorManyInfinite ->
  199. 1009.06 s [opt-env-conf-test] [ [ functionChunk "many",
  200. 1009.06 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  201. 1009.06 s [opt-env-conf-test] @@ -221,11 +221,11 @@
  202. 1009.06 s [opt-env-conf-test] ]
  203. 1009.06 s [opt-env-conf-test] ]
  204. 1009.06 s [opt-env-conf-test] LintErrorManyInfinite ->
  205. 1009.06 s [opt-env-conf-test] - [ [ functionChunk "many",
  206. 1009.06 s [opt-env-conf-test] - " or ",
  207. 1009.06 s [opt-env-conf-test] - functionChunk "some",
  208. 1009.06 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  209. 1009.06 s [opt-env-conf-test] - ],
  210. 1009.06 s [opt-env-conf-test] + [ [ functionChunk "many",
  211. 1009.06 s [opt-env-conf-test] + " or ",
  212. 1009.06 s [opt-env-conf-test] + functionChunk "some",
  213. 1009.06 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  214. 1009.06 s [opt-env-conf-test] + ],
  215. 1009.06 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  216. 1009.06 s [opt-env-conf-test] ],
  217. 1009.06 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  218. 1009.06 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  219. 1009.06 s [opt-env-conf-test] @@ -221,11 +221,7 @@
  220. 1009.06 s [opt-env-conf-test] ]
  221. 1009.06 s [opt-env-conf-test] ]
  222. 1009.06 s [opt-env-conf-test] LintErrorManyInfinite ->
  223. 1009.06 s [opt-env-conf-test] - [ [ functionChunk "many",
  224. 1009.06 s [opt-env-conf-test] - " or ",
  225. 1009.06 s [opt-env-conf-test] - functionChunk "some",
  226. 1009.06 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  227. 1009.06 s [opt-env-conf-test] - ],
  228. 1009.06 s [opt-env-conf-test] + [ [],
  229. 1009.06 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  230. 1009.06 s [opt-env-conf-test] ],
  231. 1009.06 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  232. 1009.06 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  233. 1009.06 s [opt-env-conf-test] @@ -221,11 +221,10 @@
  234. 1009.06 s [opt-env-conf-test] ]
  235. 1009.06 s [opt-env-conf-test] ]
  236. 1009.06 s [opt-env-conf-test] LintErrorManyInfinite ->
  237. 1009.06 s [opt-env-conf-test] - [ [ functionChunk "many",
  238. 1009.06 s [opt-env-conf-test] - " or ",
  239. 1009.06 s [opt-env-conf-test] - functionChunk "some",
  240. 1009.06 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  241. 1009.06 s [opt-env-conf-test] - ],
  242. 1009.06 s [opt-env-conf-test] + [ [ functionChunk "many",
  243. 1009.06 s [opt-env-conf-test] + " or ",
  244. 1009.06 s [opt-env-conf-test] + functionChunk "some"
  245. 1009.06 s [opt-env-conf-test] +],
  246. 1009.06 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  247. 1009.06 s [opt-env-conf-test] ],
  248. 1009.06 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  249. 1009.06 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
  250. 1009.06 s [opt-env-conf-test] @@ -208,18 +208,18 @@
  251. 1009.06 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  252. 1009.06 s [opt-env-conf-test] ]
  253. 1009.06 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  254. 1009.06 s [opt-env-conf-test] - [ [ functionChunk "conf",
  255. 1009.06 s [opt-env-conf-test] - " or ",
  256. 1009.06 s [opt-env-conf-test] - functionChunk "name",
  257. 1009.06 s [opt-env-conf-test] - " was called with no way to load configuration."
  258. 1009.06 s [opt-env-conf-test] - ],
  259. 1009.06 s [opt-env-conf-test] - [ "You can load configuration with ",
  260. 1009.06 s [opt-env-conf-test] - functionChunk "withConfig",
  261. 1009.06 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  262. 1009.06 s [opt-env-conf-test] - functionChunk "withoutConfig",
  263. 1009.06 s [opt-env-conf-test] - "."
  264. 1009.06 s [opt-env-conf-test] - ]
  265. 1009.06 s [opt-env-conf-test] - ]
  266. 1009.06 s [opt-env-conf-test] + [ [ functionChunk "conf",
  267. 1009.06 s [opt-env-conf-test] + " or ",
  268. 1009.06 s [opt-env-conf-test] + functionChunk "name",
  269. 1009.06 s [opt-env-conf-test] + " was called with no way to load configuration."
  270. 1009.06 s [opt-env-conf-test] + ],
  271. 1009.06 s [opt-env-conf-test] + [ "You can load configuration with ",
  272. 1009.06 s [opt-env-conf-test] + functionChunk "withConfig",
  273. 1009.06 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  274. 1009.06 s [opt-env-conf-test] + functionChunk "withoutConfig",
  275. 1009.06 s [opt-env-conf-test] + "."
  276. 1009.06 s [opt-env-conf-test] + ]
  277. 1009.06 s [opt-env-conf-test] + ]
  278. 1009.06 s [opt-env-conf-test] LintErrorManyInfinite ->
  279. 1009.06 s [opt-env-conf-test] [ [ functionChunk "many",
  280. 1009.06 s [opt-env-conf-test] " or ",
  281. 1009.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  282. 1009.06 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  283. 1009.06 s [opt-env-conf-test] renderLintError LintError {..} =
  284. 1009.06 s [opt-env-conf-test] concat
  285. 1009.07 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  286. 1009.07 s [opt-env-conf-test] - case lintErrorMessage of
  287. 1009.07 s [opt-env-conf-test] - LintErrorUndocumented ->
  288. 1009.07 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  289. 1009.07 s [opt-env-conf-test] - LintErrorEmptySetting ->
  290. 1009.07 s [opt-env-conf-test] - concat
  291. 1009.07 s [opt-env-conf-test] - [ [ [ "This ",
  292. 1009.07 s [opt-env-conf-test] - functionChunk "setting",
  293. 1009.07 s [opt-env-conf-test] - " parses nothing."
  294. 1009.07 s [opt-env-conf-test] - ]
  295. 1009.07 s [opt-env-conf-test] - ],
  296. 1009.07 s [opt-env-conf-test] - [ [ "Add an ",
  297. 1009.07 s [opt-env-conf-test] - functionChunk "argument",
  298. 1009.07 s [opt-env-conf-test] - ", ",
  299. 1009.07 s [opt-env-conf-test] - functionChunk "switch",
  300. 1009.07 s [opt-env-conf-test] - ", ",
  301. 1009.07 s [opt-env-conf-test] - functionChunk "option",
  302. 1009.07 s [opt-env-conf-test] - ", ",
  303. 1009.07 s [opt-env-conf-test] - functionChunk "env",
  304. 1009.07 s [opt-env-conf-test] - ", ",
  305. 1009.07 s [opt-env-conf-test] - functionChunk "conf",
  306. 1009.07 s [opt-env-conf-test] - ", or ",
  307. 1009.07 s [opt-env-conf-test] - functionChunk "value",
  308. 1009.07 s [opt-env-conf-test] - "."
  309. 1009.07 s [opt-env-conf-test] - ]
  310. 1009.07 s [opt-env-conf-test] - ]
  311. 1009.07 s [opt-env-conf-test] - ]
  312. 1009.07 s [opt-env-conf-test] - LintErrorDashInShort ->
  313. 1009.07 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  314. 1009.07 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  315. 1009.07 s [opt-env-conf-test] - ]
  316. 1009.07 s [opt-env-conf-test] - LintErrorDashInLong s ->
  317. 1009.07 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  318. 1009.07 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  319. 1009.07 s [opt-env-conf-test] - [ "Try ",
  320. 1009.07 s [opt-env-conf-test] - functionChunk "long",
  321. 1009.07 s [opt-env-conf-test] - " ",
  322. 1009.07 s [opt-env-conf-test] - chunk $
  323. 1009.07 s [opt-env-conf-test] - T.pack $
  324. 1009.07 s [opt-env-conf-test] - show $
  325. 1009.07 s [opt-env-conf-test] - let go = \case
  326. 1009.07 s [opt-env-conf-test] - [] -> []
  327. 1009.07 s [opt-env-conf-test] - '-' : cs -> go cs
  328. 1009.07 s [opt-env-conf-test] - c : cs -> c : cs
  329. 1009.07 s [opt-env-conf-test] - in go $ NE.toList s,
  330. 1009.07 s [opt-env-conf-test] - " instead."
  331. 1009.07 s [opt-env-conf-test] - ]
  332. 1009.07 s [opt-env-conf-test] - ]
  333. 1009.07 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  334. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "argument",
  335. 1009.07 s [opt-env-conf-test] - " has no ",
  336. 1009.07 s [opt-env-conf-test] - functionChunk "reader",
  337. 1009.07 s [opt-env-conf-test] - "."
  338. 1009.07 s [opt-env-conf-test] - ]
  339. 1009.07 s [opt-env-conf-test] - ]
  340. 1009.07 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  341. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "argument",
  342. 1009.07 s [opt-env-conf-test] - " has no ",
  343. 1009.07 s [opt-env-conf-test] - functionChunk "metavar",
  344. 1009.07 s [opt-env-conf-test] - "."
  345. 1009.07 s [opt-env-conf-test] - ]
  346. 1009.07 s [opt-env-conf-test] - ]
  347. 1009.07 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  348. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "option",
  349. 1009.07 s [opt-env-conf-test] - " or ",
  350. 1009.07 s [opt-env-conf-test] - functionChunk "name",
  351. 1009.07 s [opt-env-conf-test] - " has no ",
  352. 1009.07 s [opt-env-conf-test] - functionChunk "reader",
  353. 1009.07 s [opt-env-conf-test] - "."
  354. 1009.07 s [opt-env-conf-test] - ]
  355. 1009.07 s [opt-env-conf-test] - ]
  356. 1009.07 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  357. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "option",
  358. 1009.07 s [opt-env-conf-test] - " has no ",
  359. 1009.07 s [opt-env-conf-test] - functionChunk "long",
  360. 1009.07 s [opt-env-conf-test] - " or ",
  361. 1009.07 s [opt-env-conf-test] - functionChunk "short",
  362. 1009.07 s [opt-env-conf-test] - "."
  363. 1009.07 s [opt-env-conf-test] - ]
  364. 1009.07 s [opt-env-conf-test] - ]
  365. 1009.07 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  366. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "option",
  367. 1009.07 s [opt-env-conf-test] - " or ",
  368. 1009.07 s [opt-env-conf-test] - functionChunk "name",
  369. 1009.07 s [opt-env-conf-test] - " has no ",
  370. 1009.07 s [opt-env-conf-test] - functionChunk "metavar",
  371. 1009.07 s [opt-env-conf-test] - "."
  372. 1009.07 s [opt-env-conf-test] - ]
  373. 1009.07 s [opt-env-conf-test] - ]
  374. 1009.07 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  375. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "switch",
  376. 1009.07 s [opt-env-conf-test] - " has no ",
  377. 1009.07 s [opt-env-conf-test] - functionChunk "long",
  378. 1009.07 s [opt-env-conf-test] - " or ",
  379. 1009.07 s [opt-env-conf-test] - functionChunk "short",
  380. 1009.07 s [opt-env-conf-test] - "."
  381. 1009.07 s [opt-env-conf-test] - ]
  382. 1009.07 s [opt-env-conf-test] - ]
  383. 1009.07 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  384. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "long",
  385. 1009.07 s [opt-env-conf-test] - " or ",
  386. 1009.07 s [opt-env-conf-test] - functionChunk "short",
  387. 1009.07 s [opt-env-conf-test] - " has no ",
  388. 1009.07 s [opt-env-conf-test] - functionChunk "option",
  389. 1009.07 s [opt-env-conf-test] - " or ",
  390. 1009.07 s [opt-env-conf-test] - functionChunk "switch",
  391. 1009.07 s [opt-env-conf-test] - "."
  392. 1009.07 s [opt-env-conf-test] - ]
  393. 1009.07 s [opt-env-conf-test] - ]
  394. 1009.07 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  395. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "env",
  396. 1009.07 s [opt-env-conf-test] - " or ",
  397. 1009.07 s [opt-env-conf-test] - functionChunk "name",
  398. 1009.07 s [opt-env-conf-test] - " has no ",
  399. 1009.07 s [opt-env-conf-test] - functionChunk "reader",
  400. 1009.07 s [opt-env-conf-test] - "."
  401. 1009.07 s [opt-env-conf-test] - ]
  402. 1009.07 s [opt-env-conf-test] - ]
  403. 1009.07 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  404. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "env",
  405. 1009.07 s [opt-env-conf-test] - " or ",
  406. 1009.07 s [opt-env-conf-test] - functionChunk "name",
  407. 1009.07 s [opt-env-conf-test] - " has no ",
  408. 1009.07 s [opt-env-conf-test] - functionChunk "metavar",
  409. 1009.07 s [opt-env-conf-test] - "."
  410. 1009.07 s [opt-env-conf-test] - ]
  411. 1009.07 s [opt-env-conf-test] - ]
  412. 1009.07 s [opt-env-conf-test] - LintErrorNoCommands ->
  413. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "commands",
  414. 1009.07 s [opt-env-conf-test] - " was called with an empty list."
  415. 1009.07 s [opt-env-conf-test] - ]
  416. 1009.07 s [opt-env-conf-test] - ]
  417. 1009.07 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  418. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  419. 1009.07 s [opt-env-conf-test] - " was called with an unknown command: ",
  420. 1009.07 s [opt-env-conf-test] - commandChunk c
  421. 1009.07 s [opt-env-conf-test] - ]
  422. 1009.07 s [opt-env-conf-test] - ]
  423. 1009.07 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  424. 1009.07 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  425. 1009.07 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  426. 1009.07 s [opt-env-conf-test] - ]
  427. 1009.07 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  428. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "conf",
  429. 1009.07 s [opt-env-conf-test] - " or ",
  430. 1009.07 s [opt-env-conf-test] - functionChunk "name",
  431. 1009.07 s [opt-env-conf-test] - " was called with no way to load configuration."
  432. 1009.07 s [opt-env-conf-test] - ],
  433. 1009.07 s [opt-env-conf-test] - [ "You can load configuration with ",
  434. 1009.07 s [opt-env-conf-test] - functionChunk "withConfig",
  435. 1009.07 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  436. 1009.07 s [opt-env-conf-test] - functionChunk "withoutConfig",
  437. 1009.07 s [opt-env-conf-test] - "."
  438. 1009.07 s [opt-env-conf-test] - ]
  439. 1009.07 s [opt-env-conf-test] - ]
  440. 1009.07 s [opt-env-conf-test] - LintErrorManyInfinite ->
  441. 1009.07 s [opt-env-conf-test] - [ [ functionChunk "many",
  442. 1009.07 s [opt-env-conf-test] - " or ",
  443. 1009.08 s [opt-env-conf-test] - functionChunk "some",
  444. 1009.08 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  445. 1009.08 s [opt-env-conf-test] - ],
  446. 1009.08 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  447. 1009.08 s [opt-env-conf-test] - ],
  448. 1009.08 s [opt-env-conf-test] + case lintErrorMessage of
  449. 1009.08 s [opt-env-conf-test] + LintErrorUndocumented ->
  450. 1009.08 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  451. 1009.08 s [opt-env-conf-test] + LintErrorEmptySetting ->
  452. 1009.08 s [opt-env-conf-test] + concat
  453. 1009.08 s [opt-env-conf-test] + [ [ [ "This ",
  454. 1009.08 s [opt-env-conf-test] + functionChunk "setting",
  455. 1009.08 s [opt-env-conf-test] + " parses nothing."
  456. 1009.08 s [opt-env-conf-test] + ]
  457. 1009.08 s [opt-env-conf-test] + ],
  458. 1009.08 s [opt-env-conf-test] + [ [ "Add an ",
  459. 1009.08 s [opt-env-conf-test] + functionChunk "argument",
  460. 1009.08 s [opt-env-conf-test] + ", ",
  461. 1009.08 s [opt-env-conf-test] + functionChunk "switch",
  462. 1009.08 s [opt-env-conf-test] + ", ",
  463. 1009.08 s [opt-env-conf-test] + functionChunk "option",
  464. 1009.08 s [opt-env-conf-test] + ", ",
  465. 1009.08 s [opt-env-conf-test] + functionChunk "env",
  466. 1009.08 s [opt-env-conf-test] + ", ",
  467. 1009.08 s [opt-env-conf-test] + functionChunk "conf",
  468. 1009.08 s [opt-env-conf-test] + ", or ",
  469. 1009.08 s [opt-env-conf-test] + functionChunk "value",
  470. 1009.08 s [opt-env-conf-test] + "."
  471. 1009.08 s [opt-env-conf-test] + ]
  472. 1009.08 s [opt-env-conf-test] + ]
  473. 1009.08 s [opt-env-conf-test] + ]
  474. 1009.08 s [opt-env-conf-test] + LintErrorDashInShort ->
  475. 1009.08 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  476. 1009.08 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  477. 1009.08 s [opt-env-conf-test] + ]
  478. 1009.08 s [opt-env-conf-test] + LintErrorDashInLong s ->
  479. 1009.08 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  480. 1009.08 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  481. 1009.08 s [opt-env-conf-test] + [ "Try ",
  482. 1009.08 s [opt-env-conf-test] + functionChunk "long",
  483. 1009.08 s [opt-env-conf-test] + " ",
  484. 1009.08 s [opt-env-conf-test] + chunk $
  485. 1009.08 s [opt-env-conf-test] + T.pack $
  486. 1009.08 s [opt-env-conf-test] + show $
  487. 1009.08 s [opt-env-conf-test] + let go = \case
  488. 1009.08 s [opt-env-conf-test] + [] -> []
  489. 1009.08 s [opt-env-conf-test] + '-' : cs -> go cs
  490. 1009.08 s [opt-env-conf-test] + c : cs -> c : cs
  491. 1009.08 s [opt-env-conf-test] + in go $ NE.toList s,
  492. 1009.08 s [opt-env-conf-test] + " instead."
  493. 1009.08 s [opt-env-conf-test] + ]
  494. 1009.08 s [opt-env-conf-test] + ]
  495. 1009.08 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  496. 1009.08 s [opt-env-conf-test] + [ [ functionChunk "argument",
  497. 1009.08 s [opt-env-conf-test] + " has no ",
  498. 1009.08 s [opt-env-conf-test] + functionChunk "reader",
  499. 1009.08 s [opt-env-conf-test] + "."
  500. 1009.08 s [opt-env-conf-test] + ]
  501. 1009.08 s [opt-env-conf-test] + ]
  502. 1009.08 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  503. 1009.08 s [opt-env-conf-test] + [ [ functionChunk "argument",
  504. 1009.08 s [opt-env-conf-test] + " has no ",
  505. 1009.08 s [opt-env-conf-test] + functionChunk "metavar",
  506. 1009.08 s [opt-env-conf-test] + "."
  507. 1009.08 s [opt-env-conf-test] + ]
  508. 1009.08 s [opt-env-conf-test] + ]
  509. 1009.08 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  510. 1009.08 s [opt-env-conf-test] + [ [ functionChunk "option",
  511. 1009.08 s [opt-env-conf-test] + " or ",
  512. 1009.08 s [opt-env-conf-test] + functionChunk "name",
  513. 1009.08 s [opt-env-conf-test] + " has no ",
  514. 1009.08 s [opt-env-conf-test] + functionChunk "reader",
  515. 1009.08 s [opt-env-conf-test] + "."
  516. 1009.08 s [opt-env-conf-test] + ]
  517. 1009.08 s [opt-env-conf-test] + ]
  518. 1009.08 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  519. 1009.08 s [opt-env-conf-test] + [ [ functionChunk "option",
  520. 1009.08 s [opt-env-conf-test] + " has no ",
  521. 1009.08 s [opt-env-conf-test] + functionChunk "long",
  522. 1009.08 s [opt-env-conf-test] + " or ",
  523. 1009.08 s [opt-env-conf-test] + functionChunk "short",
  524. 1009.08 s [opt-env-conf-test] + "."
  525. 1009.08 s [opt-env-conf-test] + ]
  526. 1009.08 s [opt-env-conf-test] + ]
  527. 1009.08 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  528. 1009.08 s [opt-env-conf-test] + [ [ functionChunk "option",
  529. 1009.08 s [opt-env-conf-test] + " or ",
  530. 1009.08 s [opt-env-conf-test] + functionChunk "name",
  531. 1009.08 s [opt-env-conf-test] + " has no ",
  532. 1009.08 s [opt-env-conf-test] + functionChunk "metavar",
  533. 1009.08 s [opt-env-conf-test] + "."
  534. 1009.08 s [opt-env-conf-test] + ]
  535. 1009.08 s [opt-env-conf-test] + ]
  536. 1009.08 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  537. 1009.08 s [opt-env-conf-test] + [ [ functionChunk "switch",
  538. 1009.08 s [opt-env-conf-test] + " has no ",
  539. 1009.08 s [opt-env-conf-test] + functionChunk "long",
  540. 1009.08 s [opt-env-conf-test] + " or ",
  541. 1009.08 s [opt-env-conf-test] + functionChunk "short",
  542. 1009.08 s [opt-env-conf-test] + "."
  543. 1009.08 s [opt-env-conf-test] + ]
  544. 1009.08 s [opt-env-conf-test] + ]
  545. 1009.08 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  546. 1009.08 s [opt-env-conf-test] + [ [ functionChunk "long",
  547. 1009.08 s [opt-env-conf-test] + " or ",
  548. 1009.08 s [opt-env-conf-test] + functionChunk "short",
  549. 1009.08 s [opt-env-conf-test] + " has no ",
  550. 1009.08 s [opt-env-conf-test] + functionChunk "option",
  551. 1009.08 s [opt-env-conf-test] + " or ",
  552. 1009.08 s [opt-env-conf-test] + functionChunk "switch",
  553. 1009.08 s [opt-env-conf-test] + "."
  554. 1009.08 s [opt-env-conf-test] + ]
  555. 1009.08 s [opt-env-conf-test] + ]
  556. 1009.08 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  557. 1009.08 s [opt-env-conf-test] + [ [ functionChunk "env",
  558. 1009.08 s [opt-env-conf-test] + " or ",
  559. 1009.08 s [opt-env-conf-test] + functionChunk "name",
  560. 1009.08 s [opt-env-conf-test] + " has no ",
  561. 1009.08 s [opt-env-conf-test] + functionChunk "reader",
  562. 1009.08 s [opt-env-conf-test] + "."
  563. 1009.08 s [opt-env-conf-test] + ]
  564. 1009.08 s [opt-env-conf-test] + ]
  565. 1009.08 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  566. 1009.08 s [opt-env-conf-test] + [ [ functionChunk "env",
  567. 1009.08 s [opt-env-conf-test] + " or ",
  568. 1009.09 s [opt-env-conf-test] + functionChunk "name",
  569. 1009.09 s [opt-env-conf-test] + " has no ",
  570. 1009.09 s [opt-env-conf-test] + functionChunk "metavar",
  571. 1009.09 s [opt-env-conf-test] + "."
  572. 1009.09 s [opt-env-conf-test] + ]
  573. 1009.09 s [opt-env-conf-test] + ]
  574. 1009.09 s [opt-env-conf-test] + LintErrorNoCommands ->
  575. 1009.09 s [opt-env-conf-test] + [ [ functionChunk "commands",
  576. 1009.09 s [opt-env-conf-test] + " was called with an empty list."
  577. 1009.09 s [opt-env-conf-test] + ]
  578. 1009.09 s [opt-env-conf-test] + ]
  579. 1009.09 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  580. 1009.09 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  581. 1009.09 s [opt-env-conf-test] + " was called with an unknown command: ",
  582. 1009.09 s [opt-env-conf-test] + commandChunk c
  583. 1009.09 s [opt-env-conf-test] + ]
  584. 1009.09 s [opt-env-conf-test] + ]
  585. 1009.09 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  586. 1009.09 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  587. 1009.09 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  588. 1009.09 s [opt-env-conf-test] + ]
  589. 1009.09 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  590. 1009.09 s [opt-env-conf-test] + [ [ functionChunk "conf",
  591. 1009.09 s [opt-env-conf-test] + " or ",
  592. 1009.09 s [opt-env-conf-test] + functionChunk "name",
  593. 1009.09 s [opt-env-conf-test] + " was called with no way to load configuration."
  594. 1009.09 s [opt-env-conf-test] + ],
  595. 1009.09 s [opt-env-conf-test] + [ "You can load configuration with ",
  596. 1009.09 s [opt-env-conf-test] + functionChunk "withConfig",
  597. 1009.09 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  598. 1009.09 s [opt-env-conf-test] + functionChunk "withoutConfig",
  599. 1009.09 s [opt-env-conf-test] + "."
  600. 1009.09 s [opt-env-conf-test] + ]
  601. 1009.09 s [opt-env-conf-test] + ]
  602. 1009.09 s [opt-env-conf-test] + LintErrorManyInfinite ->
  603. 1009.09 s [opt-env-conf-test] + [ [ functionChunk "many",
  604. 1009.09 s [opt-env-conf-test] + " or ",
  605. 1009.09 s [opt-env-conf-test] + functionChunk "some",
  606. 1009.09 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  607. 1009.09 s [opt-env-conf-test] + ],
  608. 1009.09 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  609. 1009.09 s [opt-env-conf-test] + ],
  610. 1009.09 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  611. 1009.09 s [opt-env-conf-test] ]
  612. 1009.09 s [opt-env-conf-test]
  613. 1009.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  614. 1009.09 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  615. 1009.09 s [opt-env-conf-test] renderLintError LintError {..} =
  616. 1009.09 s [opt-env-conf-test] concat
  617. 1009.09 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  618. 1009.09 s [opt-env-conf-test] - case lintErrorMessage of
  619. 1009.09 s [opt-env-conf-test] - LintErrorUndocumented ->
  620. 1009.09 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  621. 1009.09 s [opt-env-conf-test] - LintErrorEmptySetting ->
  622. 1009.09 s [opt-env-conf-test] - concat
  623. 1009.09 s [opt-env-conf-test] - [ [ [ "This ",
  624. 1009.09 s [opt-env-conf-test] - functionChunk "setting",
  625. 1009.09 s [opt-env-conf-test] - " parses nothing."
  626. 1009.09 s [opt-env-conf-test] - ]
  627. 1009.09 s [opt-env-conf-test] - ],
  628. 1009.09 s [opt-env-conf-test] - [ [ "Add an ",
  629. 1009.09 s [opt-env-conf-test] - functionChunk "argument",
  630. 1009.09 s [opt-env-conf-test] - ", ",
  631. 1009.09 s [opt-env-conf-test] - functionChunk "switch",
  632. 1009.09 s [opt-env-conf-test] - ", ",
  633. 1009.09 s [opt-env-conf-test] - functionChunk "option",
  634. 1009.09 s [opt-env-conf-test] - ", ",
  635. 1009.09 s [opt-env-conf-test] - functionChunk "env",
  636. 1009.09 s [opt-env-conf-test] - ", ",
  637. 1009.09 s [opt-env-conf-test] - functionChunk "conf",
  638. 1009.09 s [opt-env-conf-test] - ", or ",
  639. 1009.09 s [opt-env-conf-test] - functionChunk "value",
  640. 1009.09 s [opt-env-conf-test] - "."
  641. 1009.09 s [opt-env-conf-test] - ]
  642. 1009.09 s [opt-env-conf-test] - ]
  643. 1009.09 s [opt-env-conf-test] - ]
  644. 1009.09 s [opt-env-conf-test] - LintErrorDashInShort ->
  645. 1009.09 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  646. 1009.09 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  647. 1009.09 s [opt-env-conf-test] - ]
  648. 1009.09 s [opt-env-conf-test] - LintErrorDashInLong s ->
  649. 1009.09 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  650. 1009.09 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  651. 1009.09 s [opt-env-conf-test] - [ "Try ",
  652. 1009.09 s [opt-env-conf-test] - functionChunk "long",
  653. 1009.09 s [opt-env-conf-test] - " ",
  654. 1009.09 s [opt-env-conf-test] - chunk $
  655. 1009.09 s [opt-env-conf-test] - T.pack $
  656. 1009.09 s [opt-env-conf-test] - show $
  657. 1009.09 s [opt-env-conf-test] - let go = \case
  658. 1009.09 s [opt-env-conf-test] - [] -> []
  659. 1009.09 s [opt-env-conf-test] - '-' : cs -> go cs
  660. 1009.09 s [opt-env-conf-test] - c : cs -> c : cs
  661. 1009.09 s [opt-env-conf-test] - in go $ NE.toList s,
  662. 1009.09 s [opt-env-conf-test] - " instead."
  663. 1009.09 s [opt-env-conf-test] - ]
  664. 1009.09 s [opt-env-conf-test] - ]
  665. 1009.09 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  666. 1009.09 s [opt-env-conf-test] - [ [ functionChunk "argument",
  667. 1009.09 s [opt-env-conf-test] - " has no ",
  668. 1009.09 s [opt-env-conf-test] - functionChunk "reader",
  669. 1009.09 s [opt-env-conf-test] - "."
  670. 1009.09 s [opt-env-conf-test] - ]
  671. 1009.09 s [opt-env-conf-test] - ]
  672. 1009.09 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  673. 1009.09 s [opt-env-conf-test] - [ [ functionChunk "argument",
  674. 1009.09 s [opt-env-conf-test] - " has no ",
  675. 1009.09 s [opt-env-conf-test] - functionChunk "metavar",
  676. 1009.09 s [opt-env-conf-test] - "."
  677. 1009.09 s [opt-env-conf-test] - ]
  678. 1009.09 s [opt-env-conf-test] - ]
  679. 1009.09 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  680. 1009.09 s [opt-env-conf-test] - [ [ functionChunk "option",
  681. 1009.09 s [opt-env-conf-test] - " or ",
  682. 1009.09 s [opt-env-conf-test] - functionChunk "name",
  683. 1009.09 s [opt-env-conf-test] - " has no ",
  684. 1009.09 s [opt-env-conf-test] - functionChunk "reader",
  685. 1009.09 s [opt-env-conf-test] - "."
  686. 1009.09 s [opt-env-conf-test] - ]
  687. 1009.09 s [opt-env-conf-test] - ]
  688. 1009.09 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  689. 1009.09 s [opt-env-conf-test] - [ [ functionChunk "option",
  690. 1009.09 s [opt-env-conf-test] - " has no ",
  691. 1009.09 s [opt-env-conf-test] - functionChunk "long",
  692. 1009.09 s [opt-env-conf-test] - " or ",
  693. 1009.09 s [opt-env-conf-test] - functionChunk "short",
  694. 1009.09 s [opt-env-conf-test] - "."
  695. 1009.09 s [opt-env-conf-test] - ]
  696. 1009.09 s [opt-env-conf-test] - ]
  697. 1009.09 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  698. 1009.09 s [opt-env-conf-test] - [ [ functionChunk "option",
  699. 1009.09 s [opt-env-conf-test] - " or ",
  700. 1009.09 s [opt-env-conf-test] - functionChunk "name",
  701. 1009.09 s [opt-env-conf-test] - " has no ",
  702. 1009.09 s [opt-env-conf-test] - functionChunk "metavar",
  703. 1009.09 s [opt-env-conf-test] - "."
  704. 1009.09 s [opt-env-conf-test] - ]
  705. 1009.09 s [opt-env-conf-test] - ]
  706. 1009.09 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  707. 1009.09 s [opt-env-conf-test] - [ [ functionChunk "switch",
  708. 1009.09 s [opt-env-conf-test] - " has no ",
  709. 1009.09 s [opt-env-conf-test] - functionChunk "long",
  710. 1009.09 s [opt-env-conf-test] - " or ",
  711. 1009.09 s [opt-env-conf-test] - functionChunk "short",
  712. 1009.09 s [opt-env-conf-test] - "."
  713. 1009.10 s [opt-env-conf-test] - ]
  714. 1009.10 s [opt-env-conf-test] - ]
  715. 1009.10 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  716. 1009.10 s [opt-env-conf-test] - [ [ functionChunk "long",
  717. 1009.10 s [opt-env-conf-test] - " or ",
  718. 1009.10 s [opt-env-conf-test] - functionChunk "short",
  719. 1009.10 s [opt-env-conf-test] - " has no ",
  720. 1009.10 s [opt-env-conf-test] - functionChunk "option",
  721. 1009.10 s [opt-env-conf-test] - " or ",
  722. 1009.10 s [opt-env-conf-test] - functionChunk "switch",
  723. 1009.10 s [opt-env-conf-test] - "."
  724. 1009.10 s [opt-env-conf-test] - ]
  725. 1009.10 s [opt-env-conf-test] - ]
  726. 1009.10 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  727. 1009.10 s [opt-env-conf-test] - [ [ functionChunk "env",
  728. 1009.10 s [opt-env-conf-test] - " or ",
  729. 1009.10 s [opt-env-conf-test] - functionChunk "name",
  730. 1009.10 s [opt-env-conf-test] - " has no ",
  731. 1009.10 s [opt-env-conf-test] - functionChunk "reader",
  732. 1009.10 s [opt-env-conf-test] - "."
  733. 1009.10 s [opt-env-conf-test] - ]
  734. 1009.10 s [opt-env-conf-test] - ]
  735. 1009.10 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  736. 1009.10 s [opt-env-conf-test] - [ [ functionChunk "env",
  737. 1009.10 s [opt-env-conf-test] - " or ",
  738. 1009.10 s [opt-env-conf-test] - functionChunk "name",
  739. 1009.10 s [opt-env-conf-test] - " has no ",
  740. 1009.10 s [opt-env-conf-test] - functionChunk "metavar",
  741. 1009.10 s [opt-env-conf-test] - "."
  742. 1009.10 s [opt-env-conf-test] - ]
  743. 1009.10 s [opt-env-conf-test] - ]
  744. 1009.10 s [opt-env-conf-test] - LintErrorNoCommands ->
  745. 1009.10 s [opt-env-conf-test] - [ [ functionChunk "commands",
  746. 1009.10 s [opt-env-conf-test] - " was called with an empty list."
  747. 1009.10 s [opt-env-conf-test] - ]
  748. 1009.10 s [opt-env-conf-test] - ]
  749. 1009.10 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  750. 1009.10 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  751. 1009.10 s [opt-env-conf-test] - " was called with an unknown command: ",
  752. 1009.10 s [opt-env-conf-test] - commandChunk c
  753. 1009.10 s [opt-env-conf-test] - ]
  754. 1009.10 s [opt-env-conf-test] - ]
  755. 1009.10 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  756. 1009.10 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  757. 1009.10 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  758. 1009.10 s [opt-env-conf-test] - ]
  759. 1009.10 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  760. 1009.10 s [opt-env-conf-test] - [ [ functionChunk "conf",
  761. 1009.10 s [opt-env-conf-test] - " or ",
  762. 1009.10 s [opt-env-conf-test] - functionChunk "name",
  763. 1009.10 s [opt-env-conf-test] - " was called with no way to load configuration."
  764. 1009.10 s [opt-env-conf-test] - ],
  765. 1009.10 s [opt-env-conf-test] - [ "You can load configuration with ",
  766. 1009.10 s [opt-env-conf-test] - functionChunk "withConfig",
  767. 1009.10 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  768. 1009.10 s [opt-env-conf-test] - functionChunk "withoutConfig",
  769. 1009.10 s [opt-env-conf-test] - "."
  770. 1009.10 s [opt-env-conf-test] - ]
  771. 1009.10 s [opt-env-conf-test] - ]
  772. 1009.10 s [opt-env-conf-test] - LintErrorManyInfinite ->
  773. 1009.10 s [opt-env-conf-test] - [ [ functionChunk "many",
  774. 1009.10 s [opt-env-conf-test] - " or ",
  775. 1009.10 s [opt-env-conf-test] - functionChunk "some",
  776. 1009.10 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  777. 1009.10 s [opt-env-conf-test] - ],
  778. 1009.10 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  779. 1009.10 s [opt-env-conf-test] - ],
  780. 1009.10 s [opt-env-conf-test] + case lintErrorMessage of
  781. 1009.10 s [opt-env-conf-test] + LintErrorUndocumented ->
  782. 1009.10 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  783. 1009.10 s [opt-env-conf-test] + LintErrorEmptySetting ->
  784. 1009.10 s [opt-env-conf-test] + concat
  785. 1009.10 s [opt-env-conf-test] + [ [ [ "This ",
  786. 1009.10 s [opt-env-conf-test] + functionChunk "setting",
  787. 1009.10 s [opt-env-conf-test] + " parses nothing."
  788. 1009.10 s [opt-env-conf-test] + ]
  789. 1009.10 s [opt-env-conf-test] + ],
  790. 1009.10 s [opt-env-conf-test] + [ [ "Add an ",
  791. 1009.10 s [opt-env-conf-test] + functionChunk "argument",
  792. 1009.10 s [opt-env-conf-test] + ", ",
  793. 1009.10 s [opt-env-conf-test] + functionChunk "switch",
  794. 1009.10 s [opt-env-conf-test] + ", ",
  795. 1009.10 s [opt-env-conf-test] + functionChunk "option",
  796. 1009.10 s [opt-env-conf-test] + ", ",
  797. 1009.10 s [opt-env-conf-test] + functionChunk "env",
  798. 1009.10 s [opt-env-conf-test] + ", ",
  799. 1009.10 s [opt-env-conf-test] + functionChunk "conf",
  800. 1009.10 s [opt-env-conf-test] + ", or ",
  801. 1009.10 s [opt-env-conf-test] + functionChunk "value",
  802. 1009.10 s [opt-env-conf-test] + "."
  803. 1009.10 s [opt-env-conf-test] + ]
  804. 1009.10 s [opt-env-conf-test] + ]
  805. 1009.10 s [opt-env-conf-test] + ]
  806. 1009.10 s [opt-env-conf-test] + LintErrorDashInShort ->
  807. 1009.10 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  808. 1009.10 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  809. 1009.10 s [opt-env-conf-test] + ]
  810. 1009.10 s [opt-env-conf-test] + LintErrorDashInLong s ->
  811. 1009.10 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  812. 1009.11 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  813. 1009.11 s [opt-env-conf-test] + [ "Try ",
  814. 1009.11 s [opt-env-conf-test] + functionChunk "long",
  815. 1009.11 s [opt-env-conf-test] + " ",
  816. 1009.11 s [opt-env-conf-test] + chunk $
  817. 1009.11 s [opt-env-conf-test] + T.pack $
  818. 1009.11 s [opt-env-conf-test] + show $
  819. 1009.11 s [opt-env-conf-test] + let go = \case
  820. 1009.11 s [opt-env-conf-test] + [] -> []
  821. 1009.11 s [opt-env-conf-test] + '-' : cs -> go cs
  822. 1009.11 s [opt-env-conf-test] + c : cs -> c : cs
  823. 1009.11 s [opt-env-conf-test] + in go $ NE.toList s,
  824. 1009.12 s [opt-env-conf-test] + " instead."
  825. 1009.12 s [opt-env-conf-test] + ]
  826. 1009.12 s [opt-env-conf-test] + ]
  827. 1009.12 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  828. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "argument",
  829. 1009.12 s [opt-env-conf-test] + " has no ",
  830. 1009.12 s [opt-env-conf-test] + functionChunk "reader",
  831. 1009.12 s [opt-env-conf-test] + "."
  832. 1009.12 s [opt-env-conf-test] + ]
  833. 1009.12 s [opt-env-conf-test] + ]
  834. 1009.12 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  835. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "argument",
  836. 1009.12 s [opt-env-conf-test] + " has no ",
  837. 1009.12 s [opt-env-conf-test] + functionChunk "metavar",
  838. 1009.12 s [opt-env-conf-test] + "."
  839. 1009.12 s [opt-env-conf-test] + ]
  840. 1009.12 s [opt-env-conf-test] + ]
  841. 1009.12 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  842. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "option",
  843. 1009.12 s [opt-env-conf-test] + " or ",
  844. 1009.12 s [opt-env-conf-test] + functionChunk "name",
  845. 1009.12 s [opt-env-conf-test] + " has no ",
  846. 1009.12 s [opt-env-conf-test] + functionChunk "reader",
  847. 1009.12 s [opt-env-conf-test] + "."
  848. 1009.12 s [opt-env-conf-test] + ]
  849. 1009.12 s [opt-env-conf-test] + ]
  850. 1009.12 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  851. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "option",
  852. 1009.12 s [opt-env-conf-test] + " has no ",
  853. 1009.12 s [opt-env-conf-test] + functionChunk "long",
  854. 1009.12 s [opt-env-conf-test] + " or ",
  855. 1009.12 s [opt-env-conf-test] + functionChunk "short",
  856. 1009.12 s [opt-env-conf-test] + "."
  857. 1009.12 s [opt-env-conf-test] + ]
  858. 1009.12 s [opt-env-conf-test] + ]
  859. 1009.12 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  860. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "option",
  861. 1009.12 s [opt-env-conf-test] + " or ",
  862. 1009.12 s [opt-env-conf-test] + functionChunk "name",
  863. 1009.12 s [opt-env-conf-test] + " has no ",
  864. 1009.12 s [opt-env-conf-test] + functionChunk "metavar",
  865. 1009.12 s [opt-env-conf-test] + "."
  866. 1009.12 s [opt-env-conf-test] + ]
  867. 1009.12 s [opt-env-conf-test] + ]
  868. 1009.12 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  869. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "switch",
  870. 1009.12 s [opt-env-conf-test] + " has no ",
  871. 1009.12 s [opt-env-conf-test] + functionChunk "long",
  872. 1009.12 s [opt-env-conf-test] + " or ",
  873. 1009.12 s [opt-env-conf-test] + functionChunk "short",
  874. 1009.12 s [opt-env-conf-test] + "."
  875. 1009.12 s [opt-env-conf-test] + ]
  876. 1009.12 s [opt-env-conf-test] + ]
  877. 1009.12 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  878. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "long",
  879. 1009.12 s [opt-env-conf-test] + " or ",
  880. 1009.12 s [opt-env-conf-test] + functionChunk "short",
  881. 1009.12 s [opt-env-conf-test] + " has no ",
  882. 1009.12 s [opt-env-conf-test] + functionChunk "option",
  883. 1009.12 s [opt-env-conf-test] + " or ",
  884. 1009.12 s [opt-env-conf-test] + functionChunk "switch",
  885. 1009.12 s [opt-env-conf-test] + "."
  886. 1009.12 s [opt-env-conf-test] + ]
  887. 1009.12 s [opt-env-conf-test] + ]
  888. 1009.12 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  889. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "env",
  890. 1009.12 s [opt-env-conf-test] + " or ",
  891. 1009.12 s [opt-env-conf-test] + functionChunk "name",
  892. 1009.12 s [opt-env-conf-test] + " has no ",
  893. 1009.12 s [opt-env-conf-test] + functionChunk "reader",
  894. 1009.12 s [opt-env-conf-test] + "."
  895. 1009.12 s [opt-env-conf-test] + ]
  896. 1009.12 s [opt-env-conf-test] + ]
  897. 1009.12 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  898. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "env",
  899. 1009.12 s [opt-env-conf-test] + " or ",
  900. 1009.12 s [opt-env-conf-test] + functionChunk "name",
  901. 1009.12 s [opt-env-conf-test] + " has no ",
  902. 1009.12 s [opt-env-conf-test] + functionChunk "metavar",
  903. 1009.12 s [opt-env-conf-test] + "."
  904. 1009.12 s [opt-env-conf-test] + ]
  905. 1009.12 s [opt-env-conf-test] + ]
  906. 1009.12 s [opt-env-conf-test] + LintErrorNoCommands ->
  907. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "commands",
  908. 1009.12 s [opt-env-conf-test] + " was called with an empty list."
  909. 1009.12 s [opt-env-conf-test] + ]
  910. 1009.12 s [opt-env-conf-test] + ]
  911. 1009.12 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  912. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  913. 1009.12 s [opt-env-conf-test] + " was called with an unknown command: ",
  914. 1009.12 s [opt-env-conf-test] + commandChunk c
  915. 1009.12 s [opt-env-conf-test] + ]
  916. 1009.12 s [opt-env-conf-test] + ]
  917. 1009.12 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  918. 1009.12 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  919. 1009.12 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  920. 1009.12 s [opt-env-conf-test] + ]
  921. 1009.12 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  922. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "conf",
  923. 1009.12 s [opt-env-conf-test] + " or ",
  924. 1009.12 s [opt-env-conf-test] + functionChunk "name",
  925. 1009.12 s [opt-env-conf-test] + " was called with no way to load configuration."
  926. 1009.12 s [opt-env-conf-test] + ],
  927. 1009.12 s [opt-env-conf-test] + [ "You can load configuration with ",
  928. 1009.12 s [opt-env-conf-test] + functionChunk "withConfig",
  929. 1009.12 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  930. 1009.12 s [opt-env-conf-test] + functionChunk "withoutConfig",
  931. 1009.12 s [opt-env-conf-test] + "."
  932. 1009.12 s [opt-env-conf-test] + ]
  933. 1009.12 s [opt-env-conf-test] + ]
  934. 1009.12 s [opt-env-conf-test] + LintErrorManyInfinite ->
  935. 1009.12 s [opt-env-conf-test] + [ [ functionChunk "many",
  936. 1009.12 s [opt-env-conf-test] + " or ",
  937. 1009.12 s [opt-env-conf-test] + functionChunk "some",
  938. 1009.12 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  939. 1009.12 s [opt-env-conf-test] + ],
  940. 1009.12 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  941. 1009.12 s [opt-env-conf-test] + ],
  942. 1009.12 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  943. 1009.12 s [opt-env-conf-test] ]
  944. 1009.12 s [opt-env-conf-test]
  945. 1009.12 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  946. 1009.12 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  947. 1009.12 s [opt-env-conf-test] renderLintError LintError {..} =
  948. 1009.12 s [opt-env-conf-test] concat
  949. 1009.12 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  950. 1009.13 s [opt-env-conf-test] - case lintErrorMessage of
  951. 1009.13 s [opt-env-conf-test] - LintErrorUndocumented ->
  952. 1009.13 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  953. 1009.13 s [opt-env-conf-test] - LintErrorEmptySetting ->
  954. 1009.13 s [opt-env-conf-test] - concat
  955. 1009.13 s [opt-env-conf-test] - [ [ [ "This ",
  956. 1009.13 s [opt-env-conf-test] - functionChunk "setting",
  957. 1009.13 s [opt-env-conf-test] - " parses nothing."
  958. 1009.13 s [opt-env-conf-test] - ]
  959. 1009.13 s [opt-env-conf-test] - ],
  960. 1009.13 s [opt-env-conf-test] - [ [ "Add an ",
  961. 1009.13 s [opt-env-conf-test] - functionChunk "argument",
  962. 1009.13 s [opt-env-conf-test] - ", ",
  963. 1009.13 s [opt-env-conf-test] - functionChunk "switch",
  964. 1009.13 s [opt-env-conf-test] - ", ",
  965. 1009.13 s [opt-env-conf-test] - functionChunk "option",
  966. 1009.13 s [opt-env-conf-test] - ", ",
  967. 1009.13 s [opt-env-conf-test] - functionChunk "env",
  968. 1009.13 s [opt-env-conf-test] - ", ",
  969. 1009.13 s [opt-env-conf-test] - functionChunk "conf",
  970. 1009.13 s [opt-env-conf-test] - ", or ",
  971. 1009.13 s [opt-env-conf-test] - functionChunk "value",
  972. 1009.13 s [opt-env-conf-test] - "."
  973. 1009.13 s [opt-env-conf-test] - ]
  974. 1009.13 s [opt-env-conf-test] - ]
  975. 1009.13 s [opt-env-conf-test] - ]
  976. 1009.13 s [opt-env-conf-test] - LintErrorDashInShort ->
  977. 1009.13 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  978. 1009.13 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  979. 1009.13 s [opt-env-conf-test] - ]
  980. 1009.13 s [opt-env-conf-test] - LintErrorDashInLong s ->
  981. 1009.13 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  982. 1009.13 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  983. 1009.13 s [opt-env-conf-test] - [ "Try ",
  984. 1009.13 s [opt-env-conf-test] - functionChunk "long",
  985. 1009.13 s [opt-env-conf-test] - " ",
  986. 1009.13 s [opt-env-conf-test] - chunk $
  987. 1009.13 s [opt-env-conf-test] - T.pack $
  988. 1009.13 s [opt-env-conf-test] - show $
  989. 1009.13 s [opt-env-conf-test] - let go = \case
  990. 1009.13 s [opt-env-conf-test] - [] -> []
  991. 1009.13 s [opt-env-conf-test] - '-' : cs -> go cs
  992. 1009.13 s [opt-env-conf-test] - c : cs -> c : cs
  993. 1009.13 s [opt-env-conf-test] - in go $ NE.toList s,
  994. 1009.13 s [opt-env-conf-test] - " instead."
  995. 1009.13 s [opt-env-conf-test] - ]
  996. 1009.13 s [opt-env-conf-test] - ]
  997. 1009.13 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  998. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "argument",
  999. 1009.13 s [opt-env-conf-test] - " has no ",
  1000. 1009.13 s [opt-env-conf-test] - functionChunk "reader",
  1001. 1009.13 s [opt-env-conf-test] - "."
  1002. 1009.13 s [opt-env-conf-test] - ]
  1003. 1009.13 s [opt-env-conf-test] - ]
  1004. 1009.13 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  1005. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1006. 1009.13 s [opt-env-conf-test] - " has no ",
  1007. 1009.13 s [opt-env-conf-test] - functionChunk "metavar",
  1008. 1009.13 s [opt-env-conf-test] - "."
  1009. 1009.13 s [opt-env-conf-test] - ]
  1010. 1009.13 s [opt-env-conf-test] - ]
  1011. 1009.13 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  1012. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "option",
  1013. 1009.13 s [opt-env-conf-test] - " or ",
  1014. 1009.13 s [opt-env-conf-test] - functionChunk "name",
  1015. 1009.13 s [opt-env-conf-test] - " has no ",
  1016. 1009.13 s [opt-env-conf-test] - functionChunk "reader",
  1017. 1009.13 s [opt-env-conf-test] - "."
  1018. 1009.13 s [opt-env-conf-test] - ]
  1019. 1009.13 s [opt-env-conf-test] - ]
  1020. 1009.13 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  1021. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "option",
  1022. 1009.13 s [opt-env-conf-test] - " has no ",
  1023. 1009.13 s [opt-env-conf-test] - functionChunk "long",
  1024. 1009.13 s [opt-env-conf-test] - " or ",
  1025. 1009.13 s [opt-env-conf-test] - functionChunk "short",
  1026. 1009.13 s [opt-env-conf-test] - "."
  1027. 1009.13 s [opt-env-conf-test] - ]
  1028. 1009.13 s [opt-env-conf-test] - ]
  1029. 1009.13 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  1030. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "option",
  1031. 1009.13 s [opt-env-conf-test] - " or ",
  1032. 1009.13 s [opt-env-conf-test] - functionChunk "name",
  1033. 1009.13 s [opt-env-conf-test] - " has no ",
  1034. 1009.13 s [opt-env-conf-test] - functionChunk "metavar",
  1035. 1009.13 s [opt-env-conf-test] - "."
  1036. 1009.13 s [opt-env-conf-test] - ]
  1037. 1009.13 s [opt-env-conf-test] - ]
  1038. 1009.13 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  1039. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "switch",
  1040. 1009.13 s [opt-env-conf-test] - " has no ",
  1041. 1009.13 s [opt-env-conf-test] - functionChunk "long",
  1042. 1009.13 s [opt-env-conf-test] - " or ",
  1043. 1009.13 s [opt-env-conf-test] - functionChunk "short",
  1044. 1009.13 s [opt-env-conf-test] - "."
  1045. 1009.13 s [opt-env-conf-test] - ]
  1046. 1009.13 s [opt-env-conf-test] - ]
  1047. 1009.13 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  1048. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "long",
  1049. 1009.13 s [opt-env-conf-test] - " or ",
  1050. 1009.13 s [opt-env-conf-test] - functionChunk "short",
  1051. 1009.13 s [opt-env-conf-test] - " has no ",
  1052. 1009.13 s [opt-env-conf-test] - functionChunk "option",
  1053. 1009.13 s [opt-env-conf-test] - " or ",
  1054. 1009.13 s [opt-env-conf-test] - functionChunk "switch",
  1055. 1009.13 s [opt-env-conf-test] - "."
  1056. 1009.13 s [opt-env-conf-test] - ]
  1057. 1009.13 s [opt-env-conf-test] - ]
  1058. 1009.13 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  1059. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "env",
  1060. 1009.13 s [opt-env-conf-test] - " or ",
  1061. 1009.13 s [opt-env-conf-test] - functionChunk "name",
  1062. 1009.13 s [opt-env-conf-test] - " has no ",
  1063. 1009.13 s [opt-env-conf-test] - functionChunk "reader",
  1064. 1009.13 s [opt-env-conf-test] - "."
  1065. 1009.13 s [opt-env-conf-test] - ]
  1066. 1009.13 s [opt-env-conf-test] - ]
  1067. 1009.13 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  1068. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "env",
  1069. 1009.13 s [opt-env-conf-test] - " or ",
  1070. 1009.13 s [opt-env-conf-test] - functionChunk "name",
  1071. 1009.13 s [opt-env-conf-test] - " has no ",
  1072. 1009.13 s [opt-env-conf-test] - functionChunk "metavar",
  1073. 1009.13 s [opt-env-conf-test] - "."
  1074. 1009.13 s [opt-env-conf-test] - ]
  1075. 1009.13 s [opt-env-conf-test] - ]
  1076. 1009.13 s [opt-env-conf-test] - LintErrorNoCommands ->
  1077. 1009.13 s [opt-env-conf-test] - [ [ functionChunk "commands",
  1078. 1009.53 s [opt-env-conf-test] - " was called with an empty list."
  1079. 1009.53 s [opt-env-conf-test] - ]
  1080. 1009.53 s [opt-env-conf-test] - ]
  1081. 1009.53 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  1082. 1009.53 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  1083. 1009.54 s [opt-env-conf-test] - " was called with an unknown command: ",
  1084. 1009.54 s [opt-env-conf-test] - commandChunk c
  1085. 1009.54 s [opt-env-conf-test] - ]
  1086. 1009.54 s [opt-env-conf-test] - ]
  1087. 1009.54 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  1088. 1009.54 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1089. 1009.54 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1090. 1009.54 s [opt-env-conf-test] - ]
  1091. 1009.54 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  1092. 1009.54 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1093. 1009.54 s [opt-env-conf-test] - " or ",
  1094. 1009.54 s [opt-env-conf-test] - functionChunk "name",
  1095. 1009.54 s [opt-env-conf-test] - " was called with no way to load configuration."
  1096. 1009.54 s [opt-env-conf-test] - ],
  1097. 1009.54 s [opt-env-conf-test] - [ "You can load configuration with ",
  1098. 1009.54 s [opt-env-conf-test] - functionChunk "withConfig",
  1099. 1009.54 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1100. 1009.54 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1101. 1009.54 s [opt-env-conf-test] - "."
  1102. 1009.54 s [opt-env-conf-test] - ]
  1103. 1009.54 s [opt-env-conf-test] - ]
  1104. 1009.54 s [opt-env-conf-test] - LintErrorManyInfinite ->
  1105. 1009.54 s [opt-env-conf-test] - [ [ functionChunk "many",
  1106. 1009.54 s [opt-env-conf-test] - " or ",
  1107. 1009.54 s [opt-env-conf-test] - functionChunk "some",
  1108. 1009.54 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1109. 1009.54 s [opt-env-conf-test] - ],
  1110. 1009.54 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  1111. 1009.54 s [opt-env-conf-test] - ],
  1112. 1009.54 s [opt-env-conf-test] + case lintErrorMessage of
  1113. 1009.54 s [opt-env-conf-test] + LintErrorUndocumented ->
  1114. 1009.54 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  1115. 1009.54 s [opt-env-conf-test] + LintErrorEmptySetting ->
  1116. 1009.54 s [opt-env-conf-test] + concat
  1117. 1009.54 s [opt-env-conf-test] + [ [ [ "This ",
  1118. 1009.54 s [opt-env-conf-test] + functionChunk "setting",
  1119. 1009.54 s [opt-env-conf-test] + " parses nothing."
  1120. 1009.54 s [opt-env-conf-test] + ]
  1121. 1009.54 s [opt-env-conf-test] + ],
  1122. 1009.54 s [opt-env-conf-test] + [ [ "Add an ",
  1123. 1009.54 s [opt-env-conf-test] + functionChunk "argument",
  1124. 1009.54 s [opt-env-conf-test] + ", ",
  1125. 1009.54 s [opt-env-conf-test] + functionChunk "switch",
  1126. 1009.54 s [opt-env-conf-test] + ", ",
  1127. 1009.54 s [opt-env-conf-test] + functionChunk "option",
  1128. 1009.54 s [opt-env-conf-test] + ", ",
  1129. 1009.54 s [opt-env-conf-test] + functionChunk "env",
  1130. 1009.54 s [opt-env-conf-test] + ", ",
  1131. 1009.54 s [opt-env-conf-test] + functionChunk "conf",
  1132. 1009.54 s [opt-env-conf-test] + ", or ",
  1133. 1009.54 s [opt-env-conf-test] + functionChunk "value",
  1134. 1009.54 s [opt-env-conf-test] + "."
  1135. 1009.54 s [opt-env-conf-test] + ]
  1136. 1009.54 s [opt-env-conf-test] + ]
  1137. 1009.55 s [opt-env-conf-test] + ]
  1138. 1009.55 s [opt-env-conf-test] + LintErrorDashInShort ->
  1139. 1009.55 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  1140. 1009.55 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  1141. 1009.55 s [opt-env-conf-test] + ]
  1142. 1009.55 s [opt-env-conf-test] + LintErrorDashInLong s ->
  1143. 1009.55 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  1144. 1009.55 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1145. 1009.55 s [opt-env-conf-test] + [ "Try ",
  1146. 1009.55 s [opt-env-conf-test] + functionChunk "long",
  1147. 1009.55 s [opt-env-conf-test] + " ",
  1148. 1009.55 s [opt-env-conf-test] + chunk $
  1149. 1009.55 s [opt-env-conf-test] + T.pack $
  1150. 1009.55 s [opt-env-conf-test] + show $
  1151. 1009.55 s [opt-env-conf-test] + let go = \case
  1152. 1009.55 s [opt-env-conf-test] + [] -> []
  1153. 1009.55 s [opt-env-conf-test] + '-' : cs -> go cs
  1154. 1009.55 s [opt-env-conf-test] + c : cs -> c : cs
  1155. 1009.55 s [opt-env-conf-test] + in go $ NE.toList s,
  1156. 1009.55 s [opt-env-conf-test] + " instead."
  1157. 1009.55 s [opt-env-conf-test] + ]
  1158. 1009.55 s [opt-env-conf-test] + ]
  1159. 1009.55 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  1160. 1009.55 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1161. 1009.55 s [opt-env-conf-test] + " has no ",
  1162. 1009.55 s [opt-env-conf-test] + functionChunk "reader",
  1163. 1009.55 s [opt-env-conf-test] + "."
  1164. 1009.55 s [opt-env-conf-test] + ]
  1165. 1009.55 s [opt-env-conf-test] + ]
  1166. 1009.55 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  1167. 1009.55 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1168. 1009.55 s [opt-env-conf-test] + " has no ",
  1169. 1009.55 s [opt-env-conf-test] + functionChunk "metavar",
  1170. 1009.55 s [opt-env-conf-test] + "."
  1171. 1009.55 s [opt-env-conf-test] + ]
  1172. 1009.55 s [opt-env-conf-test] + ]
  1173. 1009.55 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  1174. 1009.55 s [opt-env-conf-test] + [ [ functionChunk "option",
  1175. 1009.55 s [opt-env-conf-test] + " or ",
  1176. 1009.55 s [opt-env-conf-test] + functionChunk "name",
  1177. 1009.55 s [opt-env-conf-test] + " has no ",
  1178. 1009.55 s [opt-env-conf-test] + functionChunk "reader",
  1179. 1009.55 s [opt-env-conf-test] + "."
  1180. 1009.55 s [opt-env-conf-test] + ]
  1181. 1009.55 s [opt-env-conf-test] + ]
  1182. 1009.55 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  1183. 1009.55 s [opt-env-conf-test] + [ [ functionChunk "option",
  1184. 1009.55 s [opt-env-conf-test] + " has no ",
  1185. 1009.55 s [opt-env-conf-test] + functionChunk "long",
  1186. 1009.55 s [opt-env-conf-test] + " or ",
  1187. 1009.55 s [opt-env-conf-test] + functionChunk "short",
  1188. 1009.55 s [opt-env-conf-test] + "."
  1189. 1009.55 s [opt-env-conf-test] + ]
  1190. 1009.55 s [opt-env-conf-test] + ]
  1191. 1009.55 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  1192. 1009.55 s [opt-env-conf-test] + [ [ functionChunk "option",
  1193. 1009.55 s [opt-env-conf-test] + " or ",
  1194. 1009.55 s [opt-env-conf-test] + functionChunk "name",
  1195. 1009.55 s [opt-env-conf-test] + " has no ",
  1196. 1009.55 s [opt-env-conf-test] + functionChunk "metavar",
  1197. 1009.55 s [opt-env-conf-test] + "."
  1198. 1009.55 s [opt-env-conf-test] + ]
  1199. 1009.55 s [opt-env-conf-test] + ]
  1200. 1009.55 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  1201. 1009.55 s [opt-env-conf-test] + [ [ functionChunk "switch",
  1202. 1009.55 s [opt-env-conf-test] + " has no ",
  1203. 1009.55 s [opt-env-conf-test] + functionChunk "long",
  1204. 1009.55 s [opt-env-conf-test] + " or ",
  1205. 1009.55 s [opt-env-conf-test] + functionChunk "short",
  1206. 1009.55 s [opt-env-conf-test] + "."
  1207. 1009.55 s [opt-env-conf-test] + ]
  1208. 1009.55 s [opt-env-conf-test] + ]
  1209. 1009.55 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  1210. 1009.56 s [opt-env-conf-test] + [ [ functionChunk "long",
  1211. 1009.56 s [opt-env-conf-test] + " or ",
  1212. 1009.56 s [opt-env-conf-test] + functionChunk "short",
  1213. 1009.56 s [opt-env-conf-test] + " has no ",
  1214. 1009.56 s [opt-env-conf-test] + functionChunk "option",
  1215. 1009.56 s [opt-env-conf-test] + " or ",
  1216. 1009.56 s [opt-env-conf-test] + functionChunk "switch",
  1217. 1009.56 s [opt-env-conf-test] + "."
  1218. 1009.56 s [opt-env-conf-test] + ]
  1219. 1009.56 s [opt-env-conf-test] + ]
  1220. 1009.56 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  1221. 1009.56 s [opt-env-conf-test] + [ [ functionChunk "env",
  1222. 1009.56 s [opt-env-conf-test] + " or ",
  1223. 1009.56 s [opt-env-conf-test] + functionChunk "name",
  1224. 1009.56 s [opt-env-conf-test] + " has no ",
  1225. 1009.56 s [opt-env-conf-test] + functionChunk "reader",
  1226. 1009.56 s [opt-env-conf-test] + "."
  1227. 1009.56 s [opt-env-conf-test] + ]
  1228. 1009.56 s [opt-env-conf-test] + ]
  1229. 1009.56 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  1230. 1009.56 s [opt-env-conf-test] + [ [ functionChunk "env",
  1231. 1009.56 s [opt-env-conf-test] + " or ",
  1232. 1009.56 s [opt-env-conf-test] + functionChunk "name",
  1233. 1009.56 s [opt-env-conf-test] + " has no ",
  1234. 1009.56 s [opt-env-conf-test] + functionChunk "metavar",
  1235. 1009.56 s [opt-env-conf-test] + "."
  1236. 1009.56 s [opt-env-conf-test] + ]
  1237. 1009.56 s [opt-env-conf-test] + ]
  1238. 1009.56 s [opt-env-conf-test] + LintErrorNoCommands ->
  1239. 1009.56 s [opt-env-conf-test] + [ [ functionChunk "commands",
  1240. 1009.56 s [opt-env-conf-test] + " was called with an empty list."
  1241. 1009.56 s [opt-env-conf-test] + ]
  1242. 1009.56 s [opt-env-conf-test] + ]
  1243. 1009.56 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  1244. 1009.56 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  1245. 1009.56 s [opt-env-conf-test] + " was called with an unknown command: ",
  1246. 1009.56 s [opt-env-conf-test] + commandChunk c
  1247. 1009.56 s [opt-env-conf-test] + ]
  1248. 1009.56 s [opt-env-conf-test] + ]
  1249. 1009.56 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  1250. 1009.56 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1251. 1009.56 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  1252. 1009.56 s [opt-env-conf-test] + ]
  1253. 1009.56 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  1254. 1009.56 s [opt-env-conf-test] + [ [ functionChunk "conf",
  1255. 1009.56 s [opt-env-conf-test] + " or ",
  1256. 1009.56 s [opt-env-conf-test] + functionChunk "name",
  1257. 1009.56 s [opt-env-conf-test] + " was called with no way to load configuration."
  1258. 1009.56 s [opt-env-conf-test] + ],
  1259. 1009.56 s [opt-env-conf-test] + [ "You can load configuration with ",
  1260. 1009.56 s [opt-env-conf-test] + functionChunk "withConfig",
  1261. 1009.56 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  1262. 1009.56 s [opt-env-conf-test] + functionChunk "withoutConfig",
  1263. 1009.56 s [opt-env-conf-test] + "."
  1264. 1009.56 s [opt-env-conf-test] + ]
  1265. 1009.56 s [opt-env-conf-test] + ]
  1266. 1009.56 s [opt-env-conf-test] + LintErrorManyInfinite ->
  1267. 1009.56 s [opt-env-conf-test] + [ [ functionChunk "many",
  1268. 1009.56 s [opt-env-conf-test] + " or ",
  1269. 1009.56 s [opt-env-conf-test] + functionChunk "some",
  1270. 1009.56 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  1271. 1009.56 s [opt-env-conf-test] + ],
  1272. 1009.56 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  1273. 1009.56 s [opt-env-conf-test] + ],
  1274. 1009.56 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1275. 1009.56 s [opt-env-conf-test] ]
  1276. 1009.56 s [opt-env-conf-test]
  1277. 1009.56 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
  1278. 1009.56 s [opt-env-conf-test] @@ -98,7 +98,7 @@
  1279. 1009.56 s [opt-env-conf-test] ]
  1280. 1009.56 s [opt-env-conf-test] LintErrorDashInLong s ->
  1281. 1009.56 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  1282. 1009.56 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1283. 1009.56 s [opt-env-conf-test] + [],
  1284. 1009.56 s [opt-env-conf-test] [ "Try ",
  1285. 1009.56 s [opt-env-conf-test] functionChunk "long",
  1286. 1009.56 s [opt-env-conf-test] " ",
  1287. 1009.56 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
  1288. 1009.56 s [opt-env-conf-test] @@ -221,13 +221,13 @@
  1289. 1009.56 s [opt-env-conf-test] ]
  1290. 1009.56 s [opt-env-conf-test] ]
  1291. 1009.56 s [opt-env-conf-test] LintErrorManyInfinite ->
  1292. 1009.56 s [opt-env-conf-test] - [ [ functionChunk "many",
  1293. 1009.56 s [opt-env-conf-test] - " or ",
  1294. 1009.56 s [opt-env-conf-test] - functionChunk "some",
  1295. 1009.56 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1296. 1009.56 s [opt-env-conf-test] - ],
  1297. 1009.56 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  1298. 1009.56 s [opt-env-conf-test] - ],
  1299. 1009.56 s [opt-env-conf-test] + [ [ functionChunk "many",
  1300. 1009.56 s [opt-env-conf-test] + " or ",
  1301. 1009.56 s [opt-env-conf-test] + functionChunk "some",
  1302. 1009.56 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  1303. 1009.56 s [opt-env-conf-test] + ],
  1304. 1009.56 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  1305. 1009.56 s [opt-env-conf-test] + ],
  1306. 1009.56 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1307. 1009.56 s [opt-env-conf-test] ]
  1308. 1009.56 s [opt-env-conf-test]
  1309. 1009.56 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  1310. 1009.56 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  1311. 1009.56 s [opt-env-conf-test] renderLintError LintError {..} =
  1312. 1009.56 s [opt-env-conf-test] concat
  1313. 1009.56 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  1314. 1009.56 s [opt-env-conf-test] - case lintErrorMessage of
  1315. 1009.56 s [opt-env-conf-test] - LintErrorUndocumented ->
  1316. 1009.56 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  1317. 1009.56 s [opt-env-conf-test] - LintErrorEmptySetting ->
  1318. 1009.56 s [opt-env-conf-test] - concat
  1319. 1009.56 s [opt-env-conf-test] - [ [ [ "This ",
  1320. 1009.56 s [opt-env-conf-test] - functionChunk "setting",
  1321. 1009.56 s [opt-env-conf-test] - " parses nothing."
  1322. 1009.57 s [opt-env-conf-test] - ]
  1323. 1009.57 s [opt-env-conf-test] - ],
  1324. 1009.57 s [opt-env-conf-test] - [ [ "Add an ",
  1325. 1009.57 s [opt-env-conf-test] - functionChunk "argument",
  1326. 1009.57 s [opt-env-conf-test] - ", ",
  1327. 1009.57 s [opt-env-conf-test] - functionChunk "switch",
  1328. 1009.57 s [opt-env-conf-test] - ", ",
  1329. 1009.57 s [opt-env-conf-test] - functionChunk "option",
  1330. 1009.57 s [opt-env-conf-test] - ", ",
  1331. 1009.57 s [opt-env-conf-test] - functionChunk "env",
  1332. 1009.57 s [opt-env-conf-test] - ", ",
  1333. 1009.57 s [opt-env-conf-test] - functionChunk "conf",
  1334. 1009.57 s [opt-env-conf-test] - ", or ",
  1335. 1009.57 s [opt-env-conf-test] - functionChunk "value",
  1336. 1009.57 s [opt-env-conf-test] - "."
  1337. 1009.57 s [opt-env-conf-test] - ]
  1338. 1009.57 s [opt-env-conf-test] - ]
  1339. 1009.57 s [opt-env-conf-test] - ]
  1340. 1009.57 s [opt-env-conf-test] - LintErrorDashInShort ->
  1341. 1009.57 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  1342. 1009.57 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  1343. 1009.57 s [opt-env-conf-test] - ]
  1344. 1009.57 s [opt-env-conf-test] - LintErrorDashInLong s ->
  1345. 1009.57 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  1346. 1009.57 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1347. 1009.57 s [opt-env-conf-test] - [ "Try ",
  1348. 1009.57 s [opt-env-conf-test] - functionChunk "long",
  1349. 1009.57 s [opt-env-conf-test] - " ",
  1350. 1009.57 s [opt-env-conf-test] - chunk $
  1351. 1009.57 s [opt-env-conf-test] - T.pack $
  1352. 1009.57 s [opt-env-conf-test] - show $
  1353. 1009.57 s [opt-env-conf-test] - let go = \case
  1354. 1009.57 s [opt-env-conf-test] - [] -> []
  1355. 1009.57 s [opt-env-conf-test] - '-' : cs -> go cs
  1356. 1009.57 s [opt-env-conf-test] - c : cs -> c : cs
  1357. 1009.57 s [opt-env-conf-test] - in go $ NE.toList s,
  1358. 1009.57 s [opt-env-conf-test] - " instead."
  1359. 1009.57 s [opt-env-conf-test] - ]
  1360. 1009.57 s [opt-env-conf-test] - ]
  1361. 1009.57 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  1362. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1363. 1009.57 s [opt-env-conf-test] - " has no ",
  1364. 1009.57 s [opt-env-conf-test] - functionChunk "reader",
  1365. 1009.57 s [opt-env-conf-test] - "."
  1366. 1009.57 s [opt-env-conf-test] - ]
  1367. 1009.57 s [opt-env-conf-test] - ]
  1368. 1009.57 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  1369. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1370. 1009.57 s [opt-env-conf-test] - " has no ",
  1371. 1009.57 s [opt-env-conf-test] - functionChunk "metavar",
  1372. 1009.57 s [opt-env-conf-test] - "."
  1373. 1009.57 s [opt-env-conf-test] - ]
  1374. 1009.57 s [opt-env-conf-test] - ]
  1375. 1009.57 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  1376. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "option",
  1377. 1009.57 s [opt-env-conf-test] - " or ",
  1378. 1009.57 s [opt-env-conf-test] - functionChunk "name",
  1379. 1009.57 s [opt-env-conf-test] - " has no ",
  1380. 1009.57 s [opt-env-conf-test] - functionChunk "reader",
  1381. 1009.57 s [opt-env-conf-test] - "."
  1382. 1009.57 s [opt-env-conf-test] - ]
  1383. 1009.57 s [opt-env-conf-test] - ]
  1384. 1009.57 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  1385. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "option",
  1386. 1009.57 s [opt-env-conf-test] - " has no ",
  1387. 1009.57 s [opt-env-conf-test] - functionChunk "long",
  1388. 1009.57 s [opt-env-conf-test] - " or ",
  1389. 1009.57 s [opt-env-conf-test] - functionChunk "short",
  1390. 1009.57 s [opt-env-conf-test] - "."
  1391. 1009.57 s [opt-env-conf-test] - ]
  1392. 1009.57 s [opt-env-conf-test] - ]
  1393. 1009.57 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  1394. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "option",
  1395. 1009.57 s [opt-env-conf-test] - " or ",
  1396. 1009.57 s [opt-env-conf-test] - functionChunk "name",
  1397. 1009.57 s [opt-env-conf-test] - " has no ",
  1398. 1009.57 s [opt-env-conf-test] - functionChunk "metavar",
  1399. 1009.57 s [opt-env-conf-test] - "."
  1400. 1009.57 s [opt-env-conf-test] - ]
  1401. 1009.57 s [opt-env-conf-test] - ]
  1402. 1009.57 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  1403. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "switch",
  1404. 1009.57 s [opt-env-conf-test] - " has no ",
  1405. 1009.57 s [opt-env-conf-test] - functionChunk "long",
  1406. 1009.57 s [opt-env-conf-test] - " or ",
  1407. 1009.57 s [opt-env-conf-test] - functionChunk "short",
  1408. 1009.57 s [opt-env-conf-test] - "."
  1409. 1009.57 s [opt-env-conf-test] - ]
  1410. 1009.57 s [opt-env-conf-test] - ]
  1411. 1009.57 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  1412. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "long",
  1413. 1009.57 s [opt-env-conf-test] - " or ",
  1414. 1009.57 s [opt-env-conf-test] - functionChunk "short",
  1415. 1009.57 s [opt-env-conf-test] - " has no ",
  1416. 1009.57 s [opt-env-conf-test] - functionChunk "option",
  1417. 1009.57 s [opt-env-conf-test] - " or ",
  1418. 1009.57 s [opt-env-conf-test] - functionChunk "switch",
  1419. 1009.57 s [opt-env-conf-test] - "."
  1420. 1009.57 s [opt-env-conf-test] - ]
  1421. 1009.57 s [opt-env-conf-test] - ]
  1422. 1009.57 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  1423. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "env",
  1424. 1009.57 s [opt-env-conf-test] - " or ",
  1425. 1009.57 s [opt-env-conf-test] - functionChunk "name",
  1426. 1009.57 s [opt-env-conf-test] - " has no ",
  1427. 1009.57 s [opt-env-conf-test] - functionChunk "reader",
  1428. 1009.57 s [opt-env-conf-test] - "."
  1429. 1009.57 s [opt-env-conf-test] - ]
  1430. 1009.57 s [opt-env-conf-test] - ]
  1431. 1009.57 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  1432. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "env",
  1433. 1009.57 s [opt-env-conf-test] - " or ",
  1434. 1009.57 s [opt-env-conf-test] - functionChunk "name",
  1435. 1009.57 s [opt-env-conf-test] - " has no ",
  1436. 1009.57 s [opt-env-conf-test] - functionChunk "metavar",
  1437. 1009.57 s [opt-env-conf-test] - "."
  1438. 1009.57 s [opt-env-conf-test] - ]
  1439. 1009.57 s [opt-env-conf-test] - ]
  1440. 1009.57 s [opt-env-conf-test] - LintErrorNoCommands ->
  1441. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "commands",
  1442. 1009.57 s [opt-env-conf-test] - " was called with an empty list."
  1443. 1009.57 s [opt-env-conf-test] - ]
  1444. 1009.57 s [opt-env-conf-test] - ]
  1445. 1009.57 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  1446. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  1447. 1009.57 s [opt-env-conf-test] - " was called with an unknown command: ",
  1448. 1009.57 s [opt-env-conf-test] - commandChunk c
  1449. 1009.57 s [opt-env-conf-test] - ]
  1450. 1009.57 s [opt-env-conf-test] - ]
  1451. 1009.57 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  1452. 1009.57 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1453. 1009.57 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1454. 1009.57 s [opt-env-conf-test] - ]
  1455. 1009.57 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  1456. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1457. 1009.57 s [opt-env-conf-test] - " or ",
  1458. 1009.57 s [opt-env-conf-test] - functionChunk "name",
  1459. 1009.57 s [opt-env-conf-test] - " was called with no way to load configuration."
  1460. 1009.57 s [opt-env-conf-test] - ],
  1461. 1009.57 s [opt-env-conf-test] - [ "You can load configuration with ",
  1462. 1009.57 s [opt-env-conf-test] - functionChunk "withConfig",
  1463. 1009.57 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1464. 1009.57 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1465. 1009.57 s [opt-env-conf-test] - "."
  1466. 1009.57 s [opt-env-conf-test] - ]
  1467. 1009.57 s [opt-env-conf-test] - ]
  1468. 1009.57 s [opt-env-conf-test] - LintErrorManyInfinite ->
  1469. 1009.57 s [opt-env-conf-test] - [ [ functionChunk "many",
  1470. 1009.57 s [opt-env-conf-test] - " or ",
  1471. 1009.57 s [opt-env-conf-test] - functionChunk "some",
  1472. 1009.57 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1473. 1009.57 s [opt-env-conf-test] - ],
  1474. 1009.57 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  1475. 1009.57 s [opt-env-conf-test] - ],
  1476. 1009.57 s [opt-env-conf-test] + case lintErrorMessage of
  1477. 1009.57 s [opt-env-conf-test] + LintErrorUndocumented ->
  1478. 1009.57 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  1479. 1009.57 s [opt-env-conf-test] + LintErrorEmptySetting ->
  1480. 1009.57 s [opt-env-conf-test] + concat
  1481. 1009.57 s [opt-env-conf-test] + [ [ [ "This ",
  1482. 1009.58 s [opt-env-conf-test] + functionChunk "setting",
  1483. 1009.58 s [opt-env-conf-test] + " parses nothing."
  1484. 1009.58 s [opt-env-conf-test] + ]
  1485. 1009.58 s [opt-env-conf-test] + ],
  1486. 1009.58 s [opt-env-conf-test] + [ [ "Add an ",
  1487. 1009.58 s [opt-env-conf-test] + functionChunk "argument",
  1488. 1009.58 s [opt-env-conf-test] + ", ",
  1489. 1009.58 s [opt-env-conf-test] + functionChunk "switch",
  1490. 1009.58 s [opt-env-conf-test] + ", ",
  1491. 1009.58 s [opt-env-conf-test] + functionChunk "option",
  1492. 1009.58 s [opt-env-conf-test] + ", ",
  1493. 1009.58 s [opt-env-conf-test] + functionChunk "env",
  1494. 1009.58 s [opt-env-conf-test] + ", ",
  1495. 1009.58 s [opt-env-conf-test] + functionChunk "conf",
  1496. 1009.58 s [opt-env-conf-test] + ", or ",
  1497. 1009.58 s [opt-env-conf-test] + functionChunk "value",
  1498. 1009.58 s [opt-env-conf-test] + "."
  1499. 1009.58 s [opt-env-conf-test] + ]
  1500. 1009.58 s [opt-env-conf-test] + ]
  1501. 1009.58 s [opt-env-conf-test] + ]
  1502. 1009.58 s [opt-env-conf-test] + LintErrorDashInShort ->
  1503. 1009.58 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  1504. 1009.58 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  1505. 1009.58 s [opt-env-conf-test] + ]
  1506. 1009.58 s [opt-env-conf-test] + LintErrorDashInLong s ->
  1507. 1009.58 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  1508. 1009.58 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1509. 1009.58 s [opt-env-conf-test] + [ "Try ",
  1510. 1009.58 s [opt-env-conf-test] + functionChunk "long",
  1511. 1009.58 s [opt-env-conf-test] + " ",
  1512. 1009.58 s [opt-env-conf-test] + chunk $
  1513. 1009.58 s [opt-env-conf-test] + T.pack $
  1514. 1009.58 s [opt-env-conf-test] + show $
  1515. 1009.58 s [opt-env-conf-test] + let go = \case
  1516. 1009.58 s [opt-env-conf-test] + [] -> []
  1517. 1009.58 s [opt-env-conf-test] + '-' : cs -> go cs
  1518. 1009.58 s [opt-env-conf-test] + c : cs -> c : cs
  1519. 1009.58 s [opt-env-conf-test] + in go $ NE.toList s,
  1520. 1009.58 s [opt-env-conf-test] + " instead."
  1521. 1009.58 s [opt-env-conf-test] + ]
  1522. 1009.58 s [opt-env-conf-test] + ]
  1523. 1009.58 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  1524. 1009.58 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1525. 1009.58 s [opt-env-conf-test] + " has no ",
  1526. 1009.58 s [opt-env-conf-test] + functionChunk "reader",
  1527. 1009.58 s [opt-env-conf-test] + "."
  1528. 1009.58 s [opt-env-conf-test] + ]
  1529. 1009.58 s [opt-env-conf-test] + ]
  1530. 1009.58 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  1531. 1009.58 s [opt-env-conf-test] + [ [ functionChunk "argument",
  1532. 1009.58 s [opt-env-conf-test] + " has no ",
  1533. 1009.58 s [opt-env-conf-test] + functionChunk "metavar",
  1534. 1009.58 s [opt-env-conf-test] + "."
  1535. 1009.58 s [opt-env-conf-test] + ]
  1536. 1009.58 s [opt-env-conf-test] + ]
  1537. 1009.58 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  1538. 1009.58 s [opt-env-conf-test] + [ [ functionChunk "option",
  1539. 1009.58 s [opt-env-conf-test] + " or ",
  1540. 1009.58 s [opt-env-conf-test] + functionChunk "name",
  1541. 1009.58 s [opt-env-conf-test] + " has no ",
  1542. 1009.58 s [opt-env-conf-test] + functionChunk "reader",
  1543. 1009.58 s [opt-env-conf-test] + "."
  1544. 1009.58 s [opt-env-conf-test] + ]
  1545. 1009.58 s [opt-env-conf-test] + ]
  1546. 1009.58 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  1547. 1009.58 s [opt-env-conf-test] + [ [ functionChunk "option",
  1548. 1009.58 s [opt-env-conf-test] + " has no ",
  1549. 1009.58 s [opt-env-conf-test] + functionChunk "long",
  1550. 1009.58 s [opt-env-conf-test] + " or ",
  1551. 1009.58 s [opt-env-conf-test] + functionChunk "short",
  1552. 1009.58 s [opt-env-conf-test] + "."
  1553. 1009.58 s [opt-env-conf-test] + ]
  1554. 1009.58 s [opt-env-conf-test] + ]
  1555. 1009.58 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  1556. 1009.58 s [opt-env-conf-test] + [ [ functionChunk "option",
  1557. 1009.58 s [opt-env-conf-test] + " or ",
  1558. 1009.58 s [opt-env-conf-test] + functionChunk "name",
  1559. 1009.58 s [opt-env-conf-test] + " has no ",
  1560. 1009.58 s [opt-env-conf-test] + functionChunk "metavar",
  1561. 1009.58 s [opt-env-conf-test] + "."
  1562. 1009.58 s [opt-env-conf-test] + ]
  1563. 1009.58 s [opt-env-conf-test] + ]
  1564. 1009.58 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  1565. 1009.58 s [opt-env-conf-test] + [ [ functionChunk "switch",
  1566. 1009.58 s [opt-env-conf-test] + " has no ",
  1567. 1009.58 s [opt-env-conf-test] + functionChunk "long",
  1568. 1009.58 s [opt-env-conf-test] + " or ",
  1569. 1009.58 s [opt-env-conf-test] + functionChunk "short",
  1570. 1009.58 s [opt-env-conf-test] + "."
  1571. 1009.58 s [opt-env-conf-test] + ]
  1572. 1009.58 s [opt-env-conf-test] + ]
  1573. 1009.58 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  1574. 1009.58 s [opt-env-conf-test] + [ [ functionChunk "long",
  1575. 1009.58 s [opt-env-conf-test] + " or ",
  1576. 1009.58 s [opt-env-conf-test] + functionChunk "short",
  1577. 1009.58 s [opt-env-conf-test] + " has no ",
  1578. 1009.58 s [opt-env-conf-test] + functionChunk "option",
  1579. 1009.58 s [opt-env-conf-test] + " or ",
  1580. 1009.58 s [opt-env-conf-test] + functionChunk "switch",
  1581. 1009.58 s [opt-env-conf-test] + "."
  1582. 1009.70 s [opt-env-conf-test] + ]
  1583. 1009.71 s [opt-env-conf-test] + ]
  1584. 1009.71 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  1585. 1009.71 s [opt-env-conf-test] + [ [ functionChunk "env",
  1586. 1009.71 s [opt-env-conf-test] + " or ",
  1587. 1009.71 s [opt-env-conf-test] + functionChunk "name",
  1588. 1009.71 s [opt-env-conf-test] + " has no ",
  1589. 1009.71 s [opt-env-conf-test] + functionChunk "reader",
  1590. 1009.71 s [opt-env-conf-test] + "."
  1591. 1009.71 s [opt-env-conf-test] + ]
  1592. 1009.71 s [opt-env-conf-test] + ]
  1593. 1009.71 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  1594. 1009.71 s [opt-env-conf-test] + [ [ functionChunk "env",
  1595. 1009.71 s [opt-env-conf-test] + " or ",
  1596. 1009.71 s [opt-env-conf-test] + functionChunk "name",
  1597. 1009.71 s [opt-env-conf-test] + " has no ",
  1598. 1009.71 s [opt-env-conf-test] + functionChunk "metavar",
  1599. 1009.71 s [opt-env-conf-test] + "."
  1600. 1009.71 s [opt-env-conf-test] + ]
  1601. 1009.71 s [opt-env-conf-test] + ]
  1602. 1009.71 s [opt-env-conf-test] + LintErrorNoCommands ->
  1603. 1009.71 s [opt-env-conf-test] + [ [ functionChunk "commands",
  1604. 1009.71 s [opt-env-conf-test] + " was called with an empty list."
  1605. 1009.71 s [opt-env-conf-test] + ]
  1606. 1009.71 s [opt-env-conf-test] + ]
  1607. 1009.71 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  1608. 1009.71 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  1609. 1009.71 s [opt-env-conf-test] + " was called with an unknown command: ",
  1610. 1009.71 s [opt-env-conf-test] + commandChunk c
  1611. 1009.71 s [opt-env-conf-test] + ]
  1612. 1009.71 s [opt-env-conf-test] + ]
  1613. 1009.71 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  1614. 1009.71 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1615. 1009.71 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  1616. 1009.71 s [opt-env-conf-test] + ]
  1617. 1009.71 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  1618. 1009.71 s [opt-env-conf-test] + [ [ functionChunk "conf",
  1619. 1009.71 s [opt-env-conf-test] + " or ",
  1620. 1009.71 s [opt-env-conf-test] + functionChunk "name",
  1621. 1009.71 s [opt-env-conf-test] + " was called with no way to load configuration."
  1622. 1009.71 s [opt-env-conf-test] + ],
  1623. 1009.71 s [opt-env-conf-test] + [ "You can load configuration with ",
  1624. 1009.71 s [opt-env-conf-test] + functionChunk "withConfig",
  1625. 1009.71 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  1626. 1009.71 s [opt-env-conf-test] + functionChunk "withoutConfig",
  1627. 1009.71 s [opt-env-conf-test] + "."
  1628. 1009.71 s [opt-env-conf-test] + ]
  1629. 1009.71 s [opt-env-conf-test] + ]
  1630. 1009.71 s [opt-env-conf-test] + LintErrorManyInfinite ->
  1631. 1009.71 s [opt-env-conf-test] + [ [ functionChunk "many",
  1632. 1009.71 s [opt-env-conf-test] + " or ",
  1633. 1009.71 s [opt-env-conf-test] + functionChunk "some",
  1634. 1009.71 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  1635. 1009.71 s [opt-env-conf-test] + ],
  1636. 1009.71 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  1637. 1009.71 s [opt-env-conf-test] + ],
  1638. 1009.71 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1639. 1009.71 s [opt-env-conf-test] ]
  1640. 1009.71 s [opt-env-conf-test]
  1641. 1009.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
  1642. 1009.72 s [opt-env-conf-test] @@ -97,22 +97,20 @@
  1643. 1009.72 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  1644. 1009.72 s [opt-env-conf-test] ]
  1645. 1009.72 s [opt-env-conf-test] LintErrorDashInLong s ->
  1646. 1009.72 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  1647. 1009.72 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1648. 1009.72 s [opt-env-conf-test] - [ "Try ",
  1649. 1009.72 s [opt-env-conf-test] - functionChunk "long",
  1650. 1009.72 s [opt-env-conf-test] - " ",
  1651. 1009.72 s [opt-env-conf-test] - chunk $
  1652. 1009.72 s [opt-env-conf-test] - T.pack $
  1653. 1009.72 s [opt-env-conf-test] - show $
  1654. 1009.72 s [opt-env-conf-test] - let go = \case
  1655. 1009.72 s [opt-env-conf-test] - [] -> []
  1656. 1009.72 s [opt-env-conf-test] - '-' : cs -> go cs
  1657. 1009.72 s [opt-env-conf-test] - c : cs -> c : cs
  1658. 1009.72 s [opt-env-conf-test] - in go $ NE.toList s,
  1659. 1009.72 s [opt-env-conf-test] - " instead."
  1660. 1009.72 s [opt-env-conf-test] - ]
  1661. 1009.72 s [opt-env-conf-test] - ]
  1662. 1009.72 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  1663. 1009.72 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1664. 1009.72 s [opt-env-conf-test] + [ "Try ",
  1665. 1009.72 s [opt-env-conf-test] + functionChunk "long",
  1666. 1009.72 s [opt-env-conf-test] + " ",
  1667. 1009.72 s [opt-env-conf-test] + chunk $
  1668. 1009.72 s [opt-env-conf-test] + T.pack $
  1669. 1009.72 s [opt-env-conf-test] + show $
  1670. 1009.72 s [opt-env-conf-test] + let go = \case
  1671. 1009.72 s [opt-env-conf-test] + [] -> []
  1672. 1009.72 s [opt-env-conf-test] + '-' : cs -> go cs
  1673. 1009.72 s [opt-env-conf-test] + c : cs -> c : cs
  1674. 1009.72 s [opt-env-conf-test] + in go $ NE.toList s
  1675. 1009.72 s [opt-env-conf-test] +]
  1676. 1009.72 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  1677. 1009.72 s [opt-env-conf-test] [ [ functionChunk "argument",
  1678. 1009.72 s [opt-env-conf-test] " has no ",
  1679. 1009.72 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
  1680. 1009.72 s [opt-env-conf-test] @@ -208,18 +208,7 @@
  1681. 1009.72 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  1682. 1009.72 s [opt-env-conf-test] ]
  1683. 1009.72 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  1684. 1009.72 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1685. 1009.72 s [opt-env-conf-test] - " or ",
  1686. 1009.72 s [opt-env-conf-test] - functionChunk "name",
  1687. 1009.72 s [opt-env-conf-test] - " was called with no way to load configuration."
  1688. 1009.72 s [opt-env-conf-test] - ],
  1689. 1009.72 s [opt-env-conf-test] - [ "You can load configuration with ",
  1690. 1009.72 s [opt-env-conf-test] - functionChunk "withConfig",
  1691. 1009.72 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1692. 1009.72 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1693. 1009.72 s [opt-env-conf-test] - "."
  1694. 1009.72 s [opt-env-conf-test] - ]
  1695. 1009.72 s [opt-env-conf-test] - ]
  1696. 1009.72 s [opt-env-conf-test] + []
  1697. 1009.72 s [opt-env-conf-test] LintErrorManyInfinite ->
  1698. 1009.72 s [opt-env-conf-test] [ [ functionChunk "many",
  1699. 1009.72 s [opt-env-conf-test] " or ",
  1700. 1009.72 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
  1701. 1009.72 s [opt-env-conf-test] @@ -232,11 +232,11 @@
  1702. 1009.72 s [opt-env-conf-test] hidden
  1703. 1009.72 s [opt-env-conf-test] ],
  1704. 1009.72 s [opt-env-conf-test] setting
  1705. 1009.72 s [opt-env-conf-test] - [ switch RenderMan,
  1706. 1009.72 s [opt-env-conf-test] - long "render-man-page",
  1707. 1009.72 s [opt-env-conf-test] - hidden,
  1708. 1009.72 s [opt-env-conf-test] - help "Render a manpage"
  1709. 1009.72 s [opt-env-conf-test] - ],
  1710. 1009.72 s [opt-env-conf-test] + [ switch RenderMan,
  1711. 1009.72 s [opt-env-conf-test] + long "render-man-page",
  1712. 1009.72 s [opt-env-conf-test] + hidden,
  1713. 1009.72 s [opt-env-conf-test] + help "Render a manpage"
  1714. 1009.72 s [opt-env-conf-test] + ],
  1715. 1009.72 s [opt-env-conf-test] setting
  1716. 1009.72 s [opt-env-conf-test] [ switch RenderDocumentation,
  1717. 1009.72 s [opt-env-conf-test] long "render-reference-documentation",
  1718. 1009.72 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
  1719. 1009.72 s [opt-env-conf-test] @@ -232,11 +232,10 @@
  1720. 1009.72 s [opt-env-conf-test] hidden
  1721. 1009.72 s [opt-env-conf-test] ],
  1722. 1009.72 s [opt-env-conf-test] setting
  1723. 1009.72 s [opt-env-conf-test] - [ switch RenderMan,
  1724. 1009.72 s [opt-env-conf-test] - long "render-man-page",
  1725. 1009.72 s [opt-env-conf-test] - hidden,
  1726. 1009.72 s [opt-env-conf-test] - help "Render a manpage"
  1727. 1009.72 s [opt-env-conf-test] - ],
  1728. 1009.72 s [opt-env-conf-test] + [ switch RenderMan,
  1729. 1009.72 s [opt-env-conf-test] + long "render-man-page",
  1730. 1009.72 s [opt-env-conf-test] + hidden
  1731. 1009.72 s [opt-env-conf-test] +],
  1732. 1009.72 s [opt-env-conf-test] setting
  1733. 1009.72 s [opt-env-conf-test] [ switch RenderDocumentation,
  1734. 1009.72 s [opt-env-conf-test] long "render-reference-documentation",
  1735. 1009.72 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
  1736. 1009.72 s [opt-env-conf-test] @@ -238,11 +238,7 @@
  1737. 1009.72 s [opt-env-conf-test] help "Render a manpage"
  1738. 1009.72 s [opt-env-conf-test] ],
  1739. 1009.72 s [opt-env-conf-test] setting
  1740. 1009.72 s [opt-env-conf-test] - [ switch RenderDocumentation,
  1741. 1009.72 s [opt-env-conf-test] - long "render-reference-documentation",
  1742. 1009.72 s [opt-env-conf-test] - hidden,
  1743. 1009.72 s [opt-env-conf-test] - help "Render reference documentation"
  1744. 1009.72 s [opt-env-conf-test] - ],
  1745. 1009.72 s [opt-env-conf-test] + [],
  1746. 1009.72 s [opt-env-conf-test] setting
  1747. 1009.72 s [opt-env-conf-test] [ switch RenderNixosOptions,
  1748. 1009.72 s [opt-env-conf-test] long "render-nix-options",
  1749. 1009.72 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
  1750. 1009.72 s [opt-env-conf-test] @@ -232,11 +232,7 @@
  1751. 1009.72 s [opt-env-conf-test] hidden
  1752. 1009.72 s [opt-env-conf-test] ],
  1753. 1009.72 s [opt-env-conf-test] setting
  1754. 1009.72 s [opt-env-conf-test] - [ switch RenderMan,
  1755. 1009.72 s [opt-env-conf-test] - long "render-man-page",
  1756. 1009.72 s [opt-env-conf-test] - hidden,
  1757. 1009.72 s [opt-env-conf-test] - help "Render a manpage"
  1758. 1009.72 s [opt-env-conf-test] - ],
  1759. 1009.72 s [opt-env-conf-test] + [],
  1760. 1009.72 s [opt-env-conf-test] setting
  1761. 1009.72 s [opt-env-conf-test] [ switch RenderDocumentation,
  1762. 1009.72 s [opt-env-conf-test] long "render-reference-documentation",
  1763. 1009.72 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
  1764. 1009.72 s [opt-env-conf-test] @@ -227,10 +227,10 @@
  1765. 1009.72 s [opt-env-conf-test] internalParser p =
  1766. 1009.72 s [opt-env-conf-test] choice
  1767. 1009.72 s [opt-env-conf-test] [ setting
  1768. 1009.72 s [opt-env-conf-test] - [ switch ShowVersion,
  1769. 1009.73 s [opt-env-conf-test] - long "version",
  1770. 1009.73 s [opt-env-conf-test] - hidden
  1771. 1009.73 s [opt-env-conf-test] - ],
  1772. 1009.73 s [opt-env-conf-test] + [ switch ShowVersion,
  1773. 1009.73 s [opt-env-conf-test] + long "version",
  1774. 1009.73 s [opt-env-conf-test] + hidden
  1775. 1009.73 s [opt-env-conf-test] + ],
  1776. 1009.73 s [opt-env-conf-test] setting
  1777. 1009.73 s [opt-env-conf-test] [ switch RenderMan,
  1778. 1009.73 s [opt-env-conf-test] long "render-man-page",
  1779. 1009.73 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
  1780. 1009.73 s [opt-env-conf-test] @@ -238,11 +238,11 @@
  1781. 1009.73 s [opt-env-conf-test] help "Render a manpage"
  1782. 1009.73 s [opt-env-conf-test] ],
  1783. 1009.73 s [opt-env-conf-test] setting
  1784. 1009.73 s [opt-env-conf-test] - [ switch RenderDocumentation,
  1785. 1009.73 s [opt-env-conf-test] - long "render-reference-documentation",
  1786. 1009.73 s [opt-env-conf-test] - hidden,
  1787. 1009.73 s [opt-env-conf-test] - help "Render reference documentation"
  1788. 1009.73 s [opt-env-conf-test] - ],
  1789. 1009.73 s [opt-env-conf-test] + [ switch RenderDocumentation,
  1790. 1009.73 s [opt-env-conf-test] + long "render-reference-documentation",
  1791. 1009.73 s [opt-env-conf-test] + hidden,
  1792. 1009.73 s [opt-env-conf-test] + help "Render reference documentation"
  1793. 1009.73 s [opt-env-conf-test] + ],
  1794. 1009.73 s [opt-env-conf-test] setting
  1795. 1009.73 s [opt-env-conf-test] [ switch RenderNixosOptions,
  1796. 1009.73 s [opt-env-conf-test] long "render-nix-options",
  1797. 1009.73 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  1798. 1009.73 s [opt-env-conf-test] @@ -65,171 +65,171 @@
  1799. 1009.73 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  1800. 1009.73 s [opt-env-conf-test] renderLintError LintError {..} =
  1801. 1009.73 s [opt-env-conf-test] concat
  1802. 1009.73 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  1803. 1009.73 s [opt-env-conf-test] - case lintErrorMessage of
  1804. 1009.73 s [opt-env-conf-test] - LintErrorUndocumented ->
  1805. 1009.73 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  1806. 1009.73 s [opt-env-conf-test] - LintErrorEmptySetting ->
  1807. 1009.73 s [opt-env-conf-test] - concat
  1808. 1009.73 s [opt-env-conf-test] - [ [ [ "This ",
  1809. 1009.73 s [opt-env-conf-test] - functionChunk "setting",
  1810. 1009.73 s [opt-env-conf-test] - " parses nothing."
  1811. 1009.73 s [opt-env-conf-test] - ]
  1812. 1009.73 s [opt-env-conf-test] - ],
  1813. 1009.73 s [opt-env-conf-test] - [ [ "Add an ",
  1814. 1009.73 s [opt-env-conf-test] - functionChunk "argument",
  1815. 1009.73 s [opt-env-conf-test] - ", ",
  1816. 1009.73 s [opt-env-conf-test] - functionChunk "switch",
  1817. 1009.73 s [opt-env-conf-test] - ", ",
  1818. 1009.73 s [opt-env-conf-test] - functionChunk "option",
  1819. 1009.73 s [opt-env-conf-test] - ", ",
  1820. 1009.73 s [opt-env-conf-test] - functionChunk "env",
  1821. 1009.73 s [opt-env-conf-test] - ", ",
  1822. 1009.73 s [opt-env-conf-test] - functionChunk "conf",
  1823. 1009.73 s [opt-env-conf-test] - ", or ",
  1824. 1009.73 s [opt-env-conf-test] - functionChunk "value",
  1825. 1009.73 s [opt-env-conf-test] - "."
  1826. 1009.73 s [opt-env-conf-test] - ]
  1827. 1009.73 s [opt-env-conf-test] - ]
  1828. 1009.73 s [opt-env-conf-test] - ]
  1829. 1009.73 s [opt-env-conf-test] - LintErrorDashInShort ->
  1830. 1009.73 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  1831. 1009.73 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  1832. 1009.73 s [opt-env-conf-test] - ]
  1833. 1009.73 s [opt-env-conf-test] - LintErrorDashInLong s ->
  1834. 1009.73 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  1835. 1009.73 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  1836. 1009.73 s [opt-env-conf-test] - [ "Try ",
  1837. 1009.73 s [opt-env-conf-test] - functionChunk "long",
  1838. 1009.73 s [opt-env-conf-test] - " ",
  1839. 1009.73 s [opt-env-conf-test] - chunk $
  1840. 1009.73 s [opt-env-conf-test] - T.pack $
  1841. 1009.73 s [opt-env-conf-test] - show $
  1842. 1009.73 s [opt-env-conf-test] - let go = \case
  1843. 1009.73 s [opt-env-conf-test] - [] -> []
  1844. 1009.73 s [opt-env-conf-test] - '-' : cs -> go cs
  1845. 1009.73 s [opt-env-conf-test] - c : cs -> c : cs
  1846. 1009.73 s [opt-env-conf-test] - in go $ NE.toList s,
  1847. 1009.73 s [opt-env-conf-test] - " instead."
  1848. 1009.73 s [opt-env-conf-test] - ]
  1849. 1009.73 s [opt-env-conf-test] - ]
  1850. 1009.73 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  1851. 1009.73 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1852. 1009.73 s [opt-env-conf-test] - " has no ",
  1853. 1009.73 s [opt-env-conf-test] - functionChunk "reader",
  1854. 1009.73 s [opt-env-conf-test] - "."
  1855. 1009.73 s [opt-env-conf-test] - ]
  1856. 1009.73 s [opt-env-conf-test] - ]
  1857. 1009.73 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  1858. 1009.73 s [opt-env-conf-test] - [ [ functionChunk "argument",
  1859. 1009.73 s [opt-env-conf-test] - " has no ",
  1860. 1009.73 s [opt-env-conf-test] - functionChunk "metavar",
  1861. 1009.73 s [opt-env-conf-test] - "."
  1862. 1009.73 s [opt-env-conf-test] - ]
  1863. 1009.73 s [opt-env-conf-test] - ]
  1864. 1009.73 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  1865. 1009.73 s [opt-env-conf-test] - [ [ functionChunk "option",
  1866. 1009.73 s [opt-env-conf-test] - " or ",
  1867. 1009.73 s [opt-env-conf-test] - functionChunk "name",
  1868. 1009.73 s [opt-env-conf-test] - " has no ",
  1869. 1009.73 s [opt-env-conf-test] - functionChunk "reader",
  1870. 1009.73 s [opt-env-conf-test] - "."
  1871. 1009.73 s [opt-env-conf-test] - ]
  1872. 1009.73 s [opt-env-conf-test] - ]
  1873. 1009.73 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  1874. 1009.73 s [opt-env-conf-test] - [ [ functionChunk "option",
  1875. 1009.73 s [opt-env-conf-test] - " has no ",
  1876. 1009.73 s [opt-env-conf-test] - functionChunk "long",
  1877. 1009.73 s [opt-env-conf-test] - " or ",
  1878. 1009.73 s [opt-env-conf-test] - functionChunk "short",
  1879. 1009.73 s [opt-env-conf-test] - "."
  1880. 1009.73 s [opt-env-conf-test] - ]
  1881. 1009.73 s [opt-env-conf-test] - ]
  1882. 1009.73 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  1883. 1009.73 s [opt-env-conf-test] - [ [ functionChunk "option",
  1884. 1009.73 s [opt-env-conf-test] - " or ",
  1885. 1009.73 s [opt-env-conf-test] - functionChunk "name",
  1886. 1009.73 s [opt-env-conf-test] - " has no ",
  1887. 1009.73 s [opt-env-conf-test] - functionChunk "metavar",
  1888. 1009.73 s [opt-env-conf-test] - "."
  1889. 1009.73 s [opt-env-conf-test] - ]
  1890. 1009.73 s [opt-env-conf-test] - ]
  1891. 1009.73 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  1892. 1009.73 s [opt-env-conf-test] - [ [ functionChunk "switch",
  1893. 1009.73 s [opt-env-conf-test] - " has no ",
  1894. 1009.73 s [opt-env-conf-test] - functionChunk "long",
  1895. 1009.73 s [opt-env-conf-test] - " or ",
  1896. 1009.73 s [opt-env-conf-test] - functionChunk "short",
  1897. 1009.73 s [opt-env-conf-test] - "."
  1898. 1009.73 s [opt-env-conf-test] - ]
  1899. 1009.73 s [opt-env-conf-test] - ]
  1900. 1009.73 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  1901. 1009.73 s [opt-env-conf-test] - [ [ functionChunk "long",
  1902. 1009.73 s [opt-env-conf-test] - " or ",
  1903. 1009.73 s [opt-env-conf-test] - functionChunk "short",
  1904. 1009.73 s [opt-env-conf-test] - " has no ",
  1905. 1009.73 s [opt-env-conf-test] - functionChunk "option",
  1906. 1009.73 s [opt-env-conf-test] - " or ",
  1907. 1009.73 s [opt-env-conf-test] - functionChunk "switch",
  1908. 1009.73 s [opt-env-conf-test] - "."
  1909. 1009.73 s [opt-env-conf-test] - ]
  1910. 1009.73 s [opt-env-conf-test] - ]
  1911. 1009.73 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  1912. 1009.73 s [opt-env-conf-test] - [ [ functionChunk "env",
  1913. 1009.73 s [opt-env-conf-test] - " or ",
  1914. 1009.73 s [opt-env-conf-test] - functionChunk "name",
  1915. 1009.73 s [opt-env-conf-test] - " has no ",
  1916. 1009.73 s [opt-env-conf-test] - functionChunk "reader",
  1917. 1009.73 s [opt-env-conf-test] - "."
  1918. 1009.73 s [opt-env-conf-test] - ]
  1919. 1009.73 s [opt-env-conf-test] - ]
  1920. 1009.73 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  1921. 1009.73 s [opt-env-conf-test] - [ [ functionChunk "env",
  1922. 1009.73 s [opt-env-conf-test] - " or ",
  1923. 1009.74 s [opt-env-conf-test] - functionChunk "name",
  1924. 1009.74 s [opt-env-conf-test] - " has no ",
  1925. 1009.74 s [opt-env-conf-test] - functionChunk "metavar",
  1926. 1009.74 s [opt-env-conf-test] - "."
  1927. 1009.74 s [opt-env-conf-test] - ]
  1928. 1009.74 s [opt-env-conf-test] - ]
  1929. 1009.74 s [opt-env-conf-test] - LintErrorNoCommands ->
  1930. 1009.74 s [opt-env-conf-test] - [ [ functionChunk "commands",
  1931. 1009.74 s [opt-env-conf-test] - " was called with an empty list."
  1932. 1009.74 s [opt-env-conf-test] - ]
  1933. 1009.74 s [opt-env-conf-test] - ]
  1934. 1009.74 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  1935. 1009.74 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  1936. 1009.74 s [opt-env-conf-test] - " was called with an unknown command: ",
  1937. 1009.74 s [opt-env-conf-test] - commandChunk c
  1938. 1009.74 s [opt-env-conf-test] - ]
  1939. 1009.74 s [opt-env-conf-test] - ]
  1940. 1009.74 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  1941. 1009.74 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  1942. 1009.74 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  1943. 1009.74 s [opt-env-conf-test] - ]
  1944. 1009.74 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  1945. 1009.74 s [opt-env-conf-test] - [ [ functionChunk "conf",
  1946. 1009.74 s [opt-env-conf-test] - " or ",
  1947. 1009.74 s [opt-env-conf-test] - functionChunk "name",
  1948. 1009.74 s [opt-env-conf-test] - " was called with no way to load configuration."
  1949. 1009.74 s [opt-env-conf-test] - ],
  1950. 1009.74 s [opt-env-conf-test] - [ "You can load configuration with ",
  1951. 1009.74 s [opt-env-conf-test] - functionChunk "withConfig",
  1952. 1009.74 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  1953. 1009.74 s [opt-env-conf-test] - functionChunk "withoutConfig",
  1954. 1009.74 s [opt-env-conf-test] - "."
  1955. 1009.74 s [opt-env-conf-test] - ]
  1956. 1009.74 s [opt-env-conf-test] - ]
  1957. 1009.74 s [opt-env-conf-test] - LintErrorManyInfinite ->
  1958. 1009.74 s [opt-env-conf-test] - [ [ functionChunk "many",
  1959. 1009.74 s [opt-env-conf-test] - " or ",
  1960. 1009.74 s [opt-env-conf-test] - functionChunk "some",
  1961. 1009.74 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  1962. 1009.74 s [opt-env-conf-test] - ],
  1963. 1009.74 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  1964. 1009.74 s [opt-env-conf-test] - ],
  1965. 1009.74 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  1966. 1009.74 s [opt-env-conf-test] - ]
  1967. 1009.74 s [opt-env-conf-test] + [ [[fore red "Invalid Setting:"]],
  1968. 1009.74 s [opt-env-conf-test] + case lintErrorMessage of
  1969. 1009.74 s [opt-env-conf-test] + LintErrorUndocumented ->
  1970. 1009.74 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  1971. 1009.74 s [opt-env-conf-test] + LintErrorEmptySetting ->
  1972. 1009.74 s [opt-env-conf-test] + concat
  1973. 1009.74 s [opt-env-conf-test] + [ [ [ "This ",
  1974. 1009.74 s [opt-env-conf-test] + functionChunk "setting",
  1975. 1009.74 s [opt-env-conf-test] + " parses nothing."
  1976. 1009.74 s [opt-env-conf-test] + ]
  1977. 1009.74 s [opt-env-conf-test] + ],
  1978. 1009.74 s [opt-env-conf-test] + [ [ "Add an ",
  1979. 1009.74 s [opt-env-conf-test] + functionChunk "argument",
  1980. 1009.74 s [opt-env-conf-test] + ", ",
  1981. 1009.74 s [opt-env-conf-test] + functionChunk "switch",
  1982. 1009.74 s [opt-env-conf-test] + ", ",
  1983. 1009.74 s [opt-env-conf-test] + functionChunk "option",
  1984. 1009.74 s [opt-env-conf-test] + ", ",
  1985. 1009.74 s [opt-env-conf-test] + functionChunk "env",
  1986. 1009.74 s [opt-env-conf-test] + ", ",
  1987. 1009.74 s [opt-env-conf-test] + functionChunk "conf",
  1988. 1009.74 s [opt-env-conf-test] + ", or ",
  1989. 1009.74 s [opt-env-conf-test] + functionChunk "value",
  1990. 1009.74 s [opt-env-conf-test] + "."
  1991. 1009.74 s [opt-env-conf-test] + ]
  1992. 1009.74 s [opt-env-conf-test] + ]
  1993. 1009.74 s [opt-env-conf-test] + ]
  1994. 1009.74 s [opt-env-conf-test] + LintErrorDashInShort ->
  1995. 1009.74 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  1996. 1009.74 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  1997. 1009.74 s [opt-env-conf-test] + ]
  1998. 1009.74 s [opt-env-conf-test] + LintErrorDashInLong s ->
  1999. 1009.74 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  2000. 1009.74 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2001. 1009.74 s [opt-env-conf-test] + [ "Try ",
  2002. 1009.74 s [opt-env-conf-test] + functionChunk "long",
  2003. 1009.74 s [opt-env-conf-test] + " ",
  2004. 1009.74 s [opt-env-conf-test] + chunk $
  2005. 1009.74 s [opt-env-conf-test] + T.pack $
  2006. 1009.74 s [opt-env-conf-test] + show $
  2007. 1009.74 s [opt-env-conf-test] + let go = \case
  2008. 1009.74 s [opt-env-conf-test] + [] -> []
  2009. 1009.74 s [opt-env-conf-test] + '-' : cs -> go cs
  2010. 1009.74 s [opt-env-conf-test] + c : cs -> c : cs
  2011. 1009.74 s [opt-env-conf-test] + in go $ NE.toList s,
  2012. 1009.74 s [opt-env-conf-test] + " instead."
  2013. 1009.74 s [opt-env-conf-test] + ]
  2014. 1009.74 s [opt-env-conf-test] + ]
  2015. 1009.74 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  2016. 1009.74 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2017. 1009.74 s [opt-env-conf-test] + " has no ",
  2018. 1009.74 s [opt-env-conf-test] + functionChunk "reader",
  2019. 1009.74 s [opt-env-conf-test] + "."
  2020. 1009.74 s [opt-env-conf-test] + ]
  2021. 1009.74 s [opt-env-conf-test] + ]
  2022. 1009.74 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  2023. 1009.74 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2024. 1009.74 s [opt-env-conf-test] + " has no ",
  2025. 1009.74 s [opt-env-conf-test] + functionChunk "metavar",
  2026. 1009.74 s [opt-env-conf-test] + "."
  2027. 1009.74 s [opt-env-conf-test] + ]
  2028. 1009.74 s [opt-env-conf-test] + ]
  2029. 1009.74 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  2030. 1009.74 s [opt-env-conf-test] + [ [ functionChunk "option",
  2031. 1009.74 s [opt-env-conf-test] + " or ",
  2032. 1009.74 s [opt-env-conf-test] + functionChunk "name",
  2033. 1009.74 s [opt-env-conf-test] + " has no ",
  2034. 1009.74 s [opt-env-conf-test] + functionChunk "reader",
  2035. 1009.74 s [opt-env-conf-test] + "."
  2036. 1009.74 s [opt-env-conf-test] + ]
  2037. 1009.74 s [opt-env-conf-test] + ]
  2038. 1009.74 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  2039. 1009.74 s [opt-env-conf-test] + [ [ functionChunk "option",
  2040. 1009.74 s [opt-env-conf-test] + " has no ",
  2041. 1009.74 s [opt-env-conf-test] + functionChunk "long",
  2042. 1009.74 s [opt-env-conf-test] + " or ",
  2043. 1009.74 s [opt-env-conf-test] + functionChunk "short",
  2044. 1009.74 s [opt-env-conf-test] + "."
  2045. 1009.74 s [opt-env-conf-test] + ]
  2046. 1009.74 s [opt-env-conf-test] + ]
  2047. 1009.74 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  2048. 1009.74 s [opt-env-conf-test] + [ [ functionChunk "option",
  2049. 1009.74 s [opt-env-conf-test] + " or ",
  2050. 1009.74 s [opt-env-conf-test] + functionChunk "name",
  2051. 1009.74 s [opt-env-conf-test] + " has no ",
  2052. 1009.74 s [opt-env-conf-test] + functionChunk "metavar",
  2053. 1009.74 s [opt-env-conf-test] + "."
  2054. 1009.74 s [opt-env-conf-test] + ]
  2055. 1009.74 s [opt-env-conf-test] + ]
  2056. 1009.74 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  2057. 1009.74 s [opt-env-conf-test] + [ [ functionChunk "switch",
  2058. 1009.74 s [opt-env-conf-test] + " has no ",
  2059. 1009.74 s [opt-env-conf-test] + functionChunk "long",
  2060. 1009.74 s [opt-env-conf-test] + " or ",
  2061. 1009.75 s [opt-env-conf-test] + functionChunk "short",
  2062. 1009.75 s [opt-env-conf-test] + "."
  2063. 1009.75 s [opt-env-conf-test] + ]
  2064. 1009.75 s [opt-env-conf-test] + ]
  2065. 1009.75 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  2066. 1009.75 s [opt-env-conf-test] + [ [ functionChunk "long",
  2067. 1009.75 s [opt-env-conf-test] + " or ",
  2068. 1009.75 s [opt-env-conf-test] + functionChunk "short",
  2069. 1009.75 s [opt-env-conf-test] + " has no ",
  2070. 1009.75 s [opt-env-conf-test] + functionChunk "option",
  2071. 1009.75 s [opt-env-conf-test] + " or ",
  2072. 1009.75 s [opt-env-conf-test] + functionChunk "switch",
  2073. 1009.75 s [opt-env-conf-test] + "."
  2074. 1009.75 s [opt-env-conf-test] + ]
  2075. 1009.75 s [opt-env-conf-test] + ]
  2076. 1009.75 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  2077. 1009.75 s [opt-env-conf-test] + [ [ functionChunk "env",
  2078. 1009.75 s [opt-env-conf-test] + " or ",
  2079. 1009.75 s [opt-env-conf-test] + functionChunk "name",
  2080. 1009.75 s [opt-env-conf-test] + " has no ",
  2081. 1009.75 s [opt-env-conf-test] + functionChunk "reader",
  2082. 1009.75 s [opt-env-conf-test] + "."
  2083. 1009.75 s [opt-env-conf-test] + ]
  2084. 1009.75 s [opt-env-conf-test] + ]
  2085. 1009.75 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  2086. 1009.75 s [opt-env-conf-test] + [ [ functionChunk "env",
  2087. 1009.75 s [opt-env-conf-test] + " or ",
  2088. 1009.75 s [opt-env-conf-test] + functionChunk "name",
  2089. 1009.75 s [opt-env-conf-test] + " has no ",
  2090. 1009.75 s [opt-env-conf-test] + functionChunk "metavar",
  2091. 1009.75 s [opt-env-conf-test] + "."
  2092. 1009.75 s [opt-env-conf-test] + ]
  2093. 1009.75 s [opt-env-conf-test] + ]
  2094. 1009.75 s [opt-env-conf-test] + LintErrorNoCommands ->
  2095. 1009.75 s [opt-env-conf-test] + [ [ functionChunk "commands",
  2096. 1009.75 s [opt-env-conf-test] + " was called with an empty list."
  2097. 1009.75 s [opt-env-conf-test] + ]
  2098. 1009.75 s [opt-env-conf-test] + ]
  2099. 1009.75 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  2100. 1009.75 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  2101. 1011.76 s [opt-env-conf-test] + " was called with an unknown command: ",
  2102. 1011.76 s [opt-env-conf-test] + commandChunk c
  2103. 1011.76 s [opt-env-conf-test] + ]
  2104. 1011.76 s [opt-env-conf-test] + ]
  2105. 1011.76 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  2106. 1011.76 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2107. 1011.76 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  2108. 1011.76 s [opt-env-conf-test] + ]
  2109. 1011.76 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  2110. 1011.76 s [opt-env-conf-test] + [ [ functionChunk "conf",
  2111. 1011.76 s [opt-env-conf-test] + " or ",
  2112. 1011.76 s [opt-env-conf-test] + functionChunk "name",
  2113. 1011.77 s [opt-env-conf-test] + " was called with no way to load configuration."
  2114. 1011.77 s [opt-env-conf-test] + ],
  2115. 1011.77 s [opt-env-conf-test] + [ "You can load configuration with ",
  2116. 1011.77 s [opt-env-conf-test] + functionChunk "withConfig",
  2117. 1011.77 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  2118. 1011.77 s [opt-env-conf-test] + functionChunk "withoutConfig",
  2119. 1011.77 s [opt-env-conf-test] + "."
  2120. 1011.77 s [opt-env-conf-test] + ]
  2121. 1011.77 s [opt-env-conf-test] + ]
  2122. 1011.77 s [opt-env-conf-test] + LintErrorManyInfinite ->
  2123. 1011.77 s [opt-env-conf-test] + [ [ functionChunk "many",
  2124. 1011.77 s [opt-env-conf-test] + " or ",
  2125. 1011.77 s [opt-env-conf-test] + functionChunk "some",
  2126. 1011.77 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  2127. 1011.77 s [opt-env-conf-test] + ],
  2128. 1011.77 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  2129. 1011.77 s [opt-env-conf-test] + ],
  2130. 1011.77 s [opt-env-conf-test] + maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2131. 1011.77 s [opt-env-conf-test] + ]
  2132. 1011.77 s [opt-env-conf-test]
  2133. 1011.77 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  2134. 1011.77 s [opt-env-conf-test] lintParser =
  2135. 1011.77 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
  2136. 1011.77 s [opt-env-conf-test] @@ -238,11 +238,10 @@
  2137. 1011.77 s [opt-env-conf-test] help "Render a manpage"
  2138. 1011.77 s [opt-env-conf-test] ],
  2139. 1011.77 s [opt-env-conf-test] setting
  2140. 1011.77 s [opt-env-conf-test] - [ switch RenderDocumentation,
  2141. 1011.77 s [opt-env-conf-test] - long "render-reference-documentation",
  2142. 1011.77 s [opt-env-conf-test] - hidden,
  2143. 1011.77 s [opt-env-conf-test] - help "Render reference documentation"
  2144. 1011.77 s [opt-env-conf-test] - ],
  2145. 1011.77 s [opt-env-conf-test] + [ switch RenderDocumentation,
  2146. 1011.77 s [opt-env-conf-test] + long "render-reference-documentation",
  2147. 1011.77 s [opt-env-conf-test] + hidden
  2148. 1011.77 s [opt-env-conf-test] +],
  2149. 1011.77 s [opt-env-conf-test] setting
  2150. 1011.77 s [opt-env-conf-test] [ switch RenderNixosOptions,
  2151. 1011.77 s [opt-env-conf-test] long "render-nix-options",
  2152. 1011.77 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
  2153. 1011.77 s [opt-env-conf-test] @@ -221,13 +221,7 @@
  2154. 1011.77 s [opt-env-conf-test] ]
  2155. 1011.77 s [opt-env-conf-test] ]
  2156. 1011.77 s [opt-env-conf-test] LintErrorManyInfinite ->
  2157. 1011.77 s [opt-env-conf-test] - [ [ functionChunk "many",
  2158. 1011.77 s [opt-env-conf-test] - " or ",
  2159. 1011.77 s [opt-env-conf-test] - functionChunk "some",
  2160. 1011.77 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  2161. 1011.77 s [opt-env-conf-test] - ],
  2162. 1011.77 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  2163. 1011.77 s [opt-env-conf-test] - ],
  2164. 1011.77 s [opt-env-conf-test] + [],
  2165. 1011.77 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2166. 1011.77 s [opt-env-conf-test] ]
  2167. 1011.77 s [opt-env-conf-test]
  2168. 1011.77 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2169. 1011.77 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  2170. 1011.77 s [opt-env-conf-test] renderLintError LintError {..} =
  2171. 1011.77 s [opt-env-conf-test] concat
  2172. 1011.77 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2173. 1011.77 s [opt-env-conf-test] - case lintErrorMessage of
  2174. 1011.77 s [opt-env-conf-test] - LintErrorUndocumented ->
  2175. 1011.77 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  2176. 1011.77 s [opt-env-conf-test] - LintErrorEmptySetting ->
  2177. 1011.77 s [opt-env-conf-test] - concat
  2178. 1011.77 s [opt-env-conf-test] - [ [ [ "This ",
  2179. 1011.77 s [opt-env-conf-test] - functionChunk "setting",
  2180. 1011.77 s [opt-env-conf-test] - " parses nothing."
  2181. 1011.77 s [opt-env-conf-test] - ]
  2182. 1011.77 s [opt-env-conf-test] - ],
  2183. 1011.77 s [opt-env-conf-test] - [ [ "Add an ",
  2184. 1011.77 s [opt-env-conf-test] - functionChunk "argument",
  2185. 1011.77 s [opt-env-conf-test] - ", ",
  2186. 1011.77 s [opt-env-conf-test] - functionChunk "switch",
  2187. 1011.77 s [opt-env-conf-test] - ", ",
  2188. 1011.77 s [opt-env-conf-test] - functionChunk "option",
  2189. 1011.77 s [opt-env-conf-test] - ", ",
  2190. 1011.77 s [opt-env-conf-test] - functionChunk "env",
  2191. 1011.77 s [opt-env-conf-test] - ", ",
  2192. 1011.77 s [opt-env-conf-test] - functionChunk "conf",
  2193. 1011.77 s [opt-env-conf-test] - ", or ",
  2194. 1011.77 s [opt-env-conf-test] - functionChunk "value",
  2195. 1011.77 s [opt-env-conf-test] - "."
  2196. 1011.77 s [opt-env-conf-test] - ]
  2197. 1011.77 s [opt-env-conf-test] - ]
  2198. 1011.77 s [opt-env-conf-test] - ]
  2199. 1011.77 s [opt-env-conf-test] - LintErrorDashInShort ->
  2200. 1011.77 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  2201. 1011.77 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  2202. 1011.77 s [opt-env-conf-test] - ]
  2203. 1011.77 s [opt-env-conf-test] - LintErrorDashInLong s ->
  2204. 1011.77 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  2205. 1011.77 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2206. 1011.77 s [opt-env-conf-test] - [ "Try ",
  2207. 1011.77 s [opt-env-conf-test] - functionChunk "long",
  2208. 1011.77 s [opt-env-conf-test] - " ",
  2209. 1011.77 s [opt-env-conf-test] - chunk $
  2210. 1011.77 s [opt-env-conf-test] - T.pack $
  2211. 1011.77 s [opt-env-conf-test] - show $
  2212. 1011.77 s [opt-env-conf-test] - let go = \case
  2213. 1011.77 s [opt-env-conf-test] - [] -> []
  2214. 1011.77 s [opt-env-conf-test] - '-' : cs -> go cs
  2215. 1011.77 s [opt-env-conf-test] - c : cs -> c : cs
  2216. 1011.78 s [opt-env-conf-test] - in go $ NE.toList s,
  2217. 1011.78 s [opt-env-conf-test] - " instead."
  2218. 1011.78 s [opt-env-conf-test] - ]
  2219. 1011.78 s [opt-env-conf-test] - ]
  2220. 1011.78 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  2221. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2222. 1011.78 s [opt-env-conf-test] - " has no ",
  2223. 1011.78 s [opt-env-conf-test] - functionChunk "reader",
  2224. 1011.78 s [opt-env-conf-test] - "."
  2225. 1011.78 s [opt-env-conf-test] - ]
  2226. 1011.78 s [opt-env-conf-test] - ]
  2227. 1011.78 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  2228. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2229. 1011.78 s [opt-env-conf-test] - " has no ",
  2230. 1011.78 s [opt-env-conf-test] - functionChunk "metavar",
  2231. 1011.78 s [opt-env-conf-test] - "."
  2232. 1011.78 s [opt-env-conf-test] - ]
  2233. 1011.78 s [opt-env-conf-test] - ]
  2234. 1011.78 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  2235. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "option",
  2236. 1011.78 s [opt-env-conf-test] - " or ",
  2237. 1011.78 s [opt-env-conf-test] - functionChunk "name",
  2238. 1011.78 s [opt-env-conf-test] - " has no ",
  2239. 1011.78 s [opt-env-conf-test] - functionChunk "reader",
  2240. 1011.78 s [opt-env-conf-test] - "."
  2241. 1011.78 s [opt-env-conf-test] - ]
  2242. 1011.78 s [opt-env-conf-test] - ]
  2243. 1011.78 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  2244. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "option",
  2245. 1011.78 s [opt-env-conf-test] - " has no ",
  2246. 1011.78 s [opt-env-conf-test] - functionChunk "long",
  2247. 1011.78 s [opt-env-conf-test] - " or ",
  2248. 1011.78 s [opt-env-conf-test] - functionChunk "short",
  2249. 1011.78 s [opt-env-conf-test] - "."
  2250. 1011.78 s [opt-env-conf-test] - ]
  2251. 1011.78 s [opt-env-conf-test] - ]
  2252. 1011.78 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  2253. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "option",
  2254. 1011.78 s [opt-env-conf-test] - " or ",
  2255. 1011.78 s [opt-env-conf-test] - functionChunk "name",
  2256. 1011.78 s [opt-env-conf-test] - " has no ",
  2257. 1011.78 s [opt-env-conf-test] - functionChunk "metavar",
  2258. 1011.78 s [opt-env-conf-test] - "."
  2259. 1011.78 s [opt-env-conf-test] - ]
  2260. 1011.78 s [opt-env-conf-test] - ]
  2261. 1011.78 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  2262. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "switch",
  2263. 1011.78 s [opt-env-conf-test] - " has no ",
  2264. 1011.78 s [opt-env-conf-test] - functionChunk "long",
  2265. 1011.78 s [opt-env-conf-test] - " or ",
  2266. 1011.78 s [opt-env-conf-test] - functionChunk "short",
  2267. 1011.78 s [opt-env-conf-test] - "."
  2268. 1011.78 s [opt-env-conf-test] - ]
  2269. 1011.78 s [opt-env-conf-test] - ]
  2270. 1011.78 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  2271. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "long",
  2272. 1011.78 s [opt-env-conf-test] - " or ",
  2273. 1011.78 s [opt-env-conf-test] - functionChunk "short",
  2274. 1011.78 s [opt-env-conf-test] - " has no ",
  2275. 1011.78 s [opt-env-conf-test] - functionChunk "option",
  2276. 1011.78 s [opt-env-conf-test] - " or ",
  2277. 1011.78 s [opt-env-conf-test] - functionChunk "switch",
  2278. 1011.78 s [opt-env-conf-test] - "."
  2279. 1011.78 s [opt-env-conf-test] - ]
  2280. 1011.78 s [opt-env-conf-test] - ]
  2281. 1011.78 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  2282. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "env",
  2283. 1011.78 s [opt-env-conf-test] - " or ",
  2284. 1011.78 s [opt-env-conf-test] - functionChunk "name",
  2285. 1011.78 s [opt-env-conf-test] - " has no ",
  2286. 1011.78 s [opt-env-conf-test] - functionChunk "reader",
  2287. 1011.78 s [opt-env-conf-test] - "."
  2288. 1011.78 s [opt-env-conf-test] - ]
  2289. 1011.78 s [opt-env-conf-test] - ]
  2290. 1011.78 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  2291. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "env",
  2292. 1011.78 s [opt-env-conf-test] - " or ",
  2293. 1011.78 s [opt-env-conf-test] - functionChunk "name",
  2294. 1011.78 s [opt-env-conf-test] - " has no ",
  2295. 1011.78 s [opt-env-conf-test] - functionChunk "metavar",
  2296. 1011.78 s [opt-env-conf-test] - "."
  2297. 1011.78 s [opt-env-conf-test] - ]
  2298. 1011.78 s [opt-env-conf-test] - ]
  2299. 1011.78 s [opt-env-conf-test] - LintErrorNoCommands ->
  2300. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "commands",
  2301. 1011.78 s [opt-env-conf-test] - " was called with an empty list."
  2302. 1011.78 s [opt-env-conf-test] - ]
  2303. 1011.78 s [opt-env-conf-test] - ]
  2304. 1011.78 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  2305. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  2306. 1011.78 s [opt-env-conf-test] - " was called with an unknown command: ",
  2307. 1011.78 s [opt-env-conf-test] - commandChunk c
  2308. 1011.78 s [opt-env-conf-test] - ]
  2309. 1011.78 s [opt-env-conf-test] - ]
  2310. 1011.78 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  2311. 1011.78 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2312. 1011.78 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  2313. 1011.78 s [opt-env-conf-test] - ]
  2314. 1011.78 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  2315. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "conf",
  2316. 1011.78 s [opt-env-conf-test] - " or ",
  2317. 1011.78 s [opt-env-conf-test] - functionChunk "name",
  2318. 1011.78 s [opt-env-conf-test] - " was called with no way to load configuration."
  2319. 1011.78 s [opt-env-conf-test] - ],
  2320. 1011.78 s [opt-env-conf-test] - [ "You can load configuration with ",
  2321. 1011.78 s [opt-env-conf-test] - functionChunk "withConfig",
  2322. 1011.78 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  2323. 1011.78 s [opt-env-conf-test] - functionChunk "withoutConfig",
  2324. 1011.78 s [opt-env-conf-test] - "."
  2325. 1011.78 s [opt-env-conf-test] - ]
  2326. 1011.78 s [opt-env-conf-test] - ]
  2327. 1011.78 s [opt-env-conf-test] - LintErrorManyInfinite ->
  2328. 1011.78 s [opt-env-conf-test] - [ [ functionChunk "many",
  2329. 1011.78 s [opt-env-conf-test] - " or ",
  2330. 1011.78 s [opt-env-conf-test] - functionChunk "some",
  2331. 1011.78 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  2332. 1011.78 s [opt-env-conf-test] - ],
  2333. 1011.78 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  2334. 1011.78 s [opt-env-conf-test] - ],
  2335. 1011.78 s [opt-env-conf-test] + case lintErrorMessage of
  2336. 1011.78 s [opt-env-conf-test] + LintErrorUndocumented ->
  2337. 1011.78 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  2338. 1011.78 s [opt-env-conf-test] + LintErrorEmptySetting ->
  2339. 1011.78 s [opt-env-conf-test] + concat
  2340. 1011.78 s [opt-env-conf-test] + [ [ [ "This ",
  2341. 1011.78 s [opt-env-conf-test] + functionChunk "setting",
  2342. 1011.78 s [opt-env-conf-test] + " parses nothing."
  2343. 1011.78 s [opt-env-conf-test] + ]
  2344. 1011.78 s [opt-env-conf-test] + ],
  2345. 1011.78 s [opt-env-conf-test] + [ [ "Add an ",
  2346. 1011.78 s [opt-env-conf-test] + functionChunk "argument",
  2347. 1011.78 s [opt-env-conf-test] + ", ",
  2348. 1011.78 s [opt-env-conf-test] + functionChunk "switch",
  2349. 1011.78 s [opt-env-conf-test] + ", ",
  2350. 1012.24 s [opt-env-conf-test] + functionChunk "option",
  2351. 1012.24 s [opt-env-conf-test] + ", ",
  2352. 1012.24 s [opt-env-conf-test] + functionChunk "env",
  2353. 1012.24 s [opt-env-conf-test] + ", ",
  2354. 1012.24 s [opt-env-conf-test] + functionChunk "conf",
  2355. 1012.24 s [opt-env-conf-test] + ", or ",
  2356. 1012.24 s [opt-env-conf-test] + functionChunk "value",
  2357. 1012.24 s [opt-env-conf-test] + "."
  2358. 1012.24 s [opt-env-conf-test] + ]
  2359. 1012.24 s [opt-env-conf-test] + ]
  2360. 1012.24 s [opt-env-conf-test] + ]
  2361. 1012.24 s [opt-env-conf-test] + LintErrorDashInShort ->
  2362. 1012.24 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  2363. 1012.24 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  2364. 1012.24 s [opt-env-conf-test] + ]
  2365. 1012.24 s [opt-env-conf-test] + LintErrorDashInLong s ->
  2366. 1012.24 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  2367. 1012.24 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2368. 1012.24 s [opt-env-conf-test] + [ "Try ",
  2369. 1012.24 s [opt-env-conf-test] + functionChunk "long",
  2370. 1012.24 s [opt-env-conf-test] + " ",
  2371. 1012.24 s [opt-env-conf-test] + chunk $
  2372. 1012.24 s [opt-env-conf-test] + T.pack $
  2373. 1012.24 s [opt-env-conf-test] + show $
  2374. 1012.24 s [opt-env-conf-test] + let go = \case
  2375. 1012.24 s [opt-env-conf-test] + [] -> []
  2376. 1012.24 s [opt-env-conf-test] + '-' : cs -> go cs
  2377. 1012.24 s [opt-env-conf-test] + c : cs -> c : cs
  2378. 1012.24 s [opt-env-conf-test] + in go $ NE.toList s,
  2379. 1012.24 s [opt-env-conf-test] + " instead."
  2380. 1012.24 s [opt-env-conf-test] + ]
  2381. 1012.24 s [opt-env-conf-test] + ]
  2382. 1012.24 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  2383. 1012.24 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2384. 1012.24 s [opt-env-conf-test] + " has no ",
  2385. 1012.24 s [opt-env-conf-test] + functionChunk "reader",
  2386. 1012.24 s [opt-env-conf-test] + "."
  2387. 1012.25 s [opt-env-conf-test] + ]
  2388. 1012.25 s [opt-env-conf-test] + ]
  2389. 1012.25 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  2390. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2391. 1012.25 s [opt-env-conf-test] + " has no ",
  2392. 1012.25 s [opt-env-conf-test] + functionChunk "metavar",
  2393. 1012.25 s [opt-env-conf-test] + "."
  2394. 1012.25 s [opt-env-conf-test] + ]
  2395. 1012.25 s [opt-env-conf-test] + ]
  2396. 1012.25 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  2397. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "option",
  2398. 1012.25 s [opt-env-conf-test] + " or ",
  2399. 1012.25 s [opt-env-conf-test] + functionChunk "name",
  2400. 1012.25 s [opt-env-conf-test] + " has no ",
  2401. 1012.25 s [opt-env-conf-test] + functionChunk "reader",
  2402. 1012.25 s [opt-env-conf-test] + "."
  2403. 1012.25 s [opt-env-conf-test] + ]
  2404. 1012.25 s [opt-env-conf-test] + ]
  2405. 1012.25 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  2406. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "option",
  2407. 1012.25 s [opt-env-conf-test] + " has no ",
  2408. 1012.25 s [opt-env-conf-test] + functionChunk "long",
  2409. 1012.25 s [opt-env-conf-test] + " or ",
  2410. 1012.25 s [opt-env-conf-test] + functionChunk "short",
  2411. 1012.25 s [opt-env-conf-test] + "."
  2412. 1012.25 s [opt-env-conf-test] + ]
  2413. 1012.25 s [opt-env-conf-test] + ]
  2414. 1012.25 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  2415. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "option",
  2416. 1012.25 s [opt-env-conf-test] + " or ",
  2417. 1012.25 s [opt-env-conf-test] + functionChunk "name",
  2418. 1012.25 s [opt-env-conf-test] + " has no ",
  2419. 1012.25 s [opt-env-conf-test] + functionChunk "metavar",
  2420. 1012.25 s [opt-env-conf-test] + "."
  2421. 1012.25 s [opt-env-conf-test] + ]
  2422. 1012.25 s [opt-env-conf-test] + ]
  2423. 1012.25 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  2424. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "switch",
  2425. 1012.25 s [opt-env-conf-test] + " has no ",
  2426. 1012.25 s [opt-env-conf-test] + functionChunk "long",
  2427. 1012.25 s [opt-env-conf-test] + " or ",
  2428. 1012.25 s [opt-env-conf-test] + functionChunk "short",
  2429. 1012.25 s [opt-env-conf-test] + "."
  2430. 1012.25 s [opt-env-conf-test] + ]
  2431. 1012.25 s [opt-env-conf-test] + ]
  2432. 1012.25 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  2433. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "long",
  2434. 1012.25 s [opt-env-conf-test] + " or ",
  2435. 1012.25 s [opt-env-conf-test] + functionChunk "short",
  2436. 1012.25 s [opt-env-conf-test] + " has no ",
  2437. 1012.25 s [opt-env-conf-test] + functionChunk "option",
  2438. 1012.25 s [opt-env-conf-test] + " or ",
  2439. 1012.25 s [opt-env-conf-test] + functionChunk "switch",
  2440. 1012.25 s [opt-env-conf-test] + "."
  2441. 1012.25 s [opt-env-conf-test] + ]
  2442. 1012.25 s [opt-env-conf-test] + ]
  2443. 1012.25 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  2444. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "env",
  2445. 1012.25 s [opt-env-conf-test] + " or ",
  2446. 1012.25 s [opt-env-conf-test] + functionChunk "name",
  2447. 1012.25 s [opt-env-conf-test] + " has no ",
  2448. 1012.25 s [opt-env-conf-test] + functionChunk "reader",
  2449. 1012.25 s [opt-env-conf-test] + "."
  2450. 1012.25 s [opt-env-conf-test] + ]
  2451. 1012.25 s [opt-env-conf-test] + ]
  2452. 1012.25 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  2453. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "env",
  2454. 1012.25 s [opt-env-conf-test] + " or ",
  2455. 1012.25 s [opt-env-conf-test] + functionChunk "name",
  2456. 1012.25 s [opt-env-conf-test] + " has no ",
  2457. 1012.25 s [opt-env-conf-test] + functionChunk "metavar",
  2458. 1012.25 s [opt-env-conf-test] + "."
  2459. 1012.25 s [opt-env-conf-test] + ]
  2460. 1012.25 s [opt-env-conf-test] + ]
  2461. 1012.25 s [opt-env-conf-test] + LintErrorNoCommands ->
  2462. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "commands",
  2463. 1012.25 s [opt-env-conf-test] + " was called with an empty list."
  2464. 1012.25 s [opt-env-conf-test] + ]
  2465. 1012.25 s [opt-env-conf-test] + ]
  2466. 1012.25 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  2467. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  2468. 1012.25 s [opt-env-conf-test] + " was called with an unknown command: ",
  2469. 1012.25 s [opt-env-conf-test] + commandChunk c
  2470. 1012.25 s [opt-env-conf-test] + ]
  2471. 1012.25 s [opt-env-conf-test] + ]
  2472. 1012.25 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  2473. 1012.25 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2474. 1012.25 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  2475. 1012.25 s [opt-env-conf-test] + ]
  2476. 1012.25 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  2477. 1012.25 s [opt-env-conf-test] + [ [ functionChunk "conf",
  2478. 1012.25 s [opt-env-conf-test] + " or ",
  2479. 1012.25 s [opt-env-conf-test] + functionChunk "name",
  2480. 1012.25 s [opt-env-conf-test] + " was called with no way to load configuration."
  2481. 1012.25 s [opt-env-conf-test] + ],
  2482. 1012.25 s [opt-env-conf-test] + [ "You can load configuration with ",
  2483. 1012.25 s [opt-env-conf-test] + functionChunk "withConfig",
  2484. 1012.25 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  2485. 1012.25 s [opt-env-conf-test] + functionChunk "withoutConfig",
  2486. 1012.25 s [opt-env-conf-test] + "."
  2487. 1012.25 s [opt-env-conf-test] + ]
  2488. 1012.25 s [opt-env-conf-test] + ]
  2489. 1012.25 s [opt-env-conf-test] + LintErrorManyInfinite ->
  2490. 1012.26 s [opt-env-conf-test] + [ [ functionChunk "many",
  2491. 1012.26 s [opt-env-conf-test] + " or ",
  2492. 1012.26 s [opt-env-conf-test] + functionChunk "some",
  2493. 1012.26 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  2494. 1012.26 s [opt-env-conf-test] + ],
  2495. 1012.26 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  2496. 1012.26 s [opt-env-conf-test] + ],
  2497. 1012.26 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2498. 1012.26 s [opt-env-conf-test] ]
  2499. 1012.26 s [opt-env-conf-test]
  2500. 1012.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2501. 1012.26 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  2502. 1012.26 s [opt-env-conf-test] renderLintError LintError {..} =
  2503. 1012.26 s [opt-env-conf-test] concat
  2504. 1012.26 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2505. 1012.26 s [opt-env-conf-test] - case lintErrorMessage of
  2506. 1012.26 s [opt-env-conf-test] - LintErrorUndocumented ->
  2507. 1012.26 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  2508. 1012.26 s [opt-env-conf-test] - LintErrorEmptySetting ->
  2509. 1012.26 s [opt-env-conf-test] - concat
  2510. 1012.26 s [opt-env-conf-test] - [ [ [ "This ",
  2511. 1012.26 s [opt-env-conf-test] - functionChunk "setting",
  2512. 1012.26 s [opt-env-conf-test] - " parses nothing."
  2513. 1012.26 s [opt-env-conf-test] - ]
  2514. 1012.26 s [opt-env-conf-test] - ],
  2515. 1012.26 s [opt-env-conf-test] - [ [ "Add an ",
  2516. 1012.26 s [opt-env-conf-test] - functionChunk "argument",
  2517. 1012.26 s [opt-env-conf-test] - ", ",
  2518. 1012.26 s [opt-env-conf-test] - functionChunk "switch",
  2519. 1012.26 s [opt-env-conf-test] - ", ",
  2520. 1012.26 s [opt-env-conf-test] - functionChunk "option",
  2521. 1012.26 s [opt-env-conf-test] - ", ",
  2522. 1012.26 s [opt-env-conf-test] - functionChunk "env",
  2523. 1012.26 s [opt-env-conf-test] - ", ",
  2524. 1012.26 s [opt-env-conf-test] - functionChunk "conf",
  2525. 1012.26 s [opt-env-conf-test] - ", or ",
  2526. 1012.26 s [opt-env-conf-test] - functionChunk "value",
  2527. 1012.26 s [opt-env-conf-test] - "."
  2528. 1012.26 s [opt-env-conf-test] - ]
  2529. 1012.26 s [opt-env-conf-test] - ]
  2530. 1012.26 s [opt-env-conf-test] - ]
  2531. 1012.26 s [opt-env-conf-test] - LintErrorDashInShort ->
  2532. 1012.26 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  2533. 1012.26 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  2534. 1012.26 s [opt-env-conf-test] - ]
  2535. 1012.26 s [opt-env-conf-test] - LintErrorDashInLong s ->
  2536. 1012.26 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  2537. 1012.26 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2538. 1012.26 s [opt-env-conf-test] - [ "Try ",
  2539. 1012.26 s [opt-env-conf-test] - functionChunk "long",
  2540. 1012.26 s [opt-env-conf-test] - " ",
  2541. 1012.26 s [opt-env-conf-test] - chunk $
  2542. 1012.26 s [opt-env-conf-test] - T.pack $
  2543. 1012.26 s [opt-env-conf-test] - show $
  2544. 1012.26 s [opt-env-conf-test] - let go = \case
  2545. 1012.26 s [opt-env-conf-test] - [] -> []
  2546. 1012.26 s [opt-env-conf-test] - '-' : cs -> go cs
  2547. 1012.26 s [opt-env-conf-test] - c : cs -> c : cs
  2548. 1012.26 s [opt-env-conf-test] - in go $ NE.toList s,
  2549. 1012.26 s [opt-env-conf-test] - " instead."
  2550. 1012.26 s [opt-env-conf-test] - ]
  2551. 1012.26 s [opt-env-conf-test] - ]
  2552. 1012.26 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  2553. 1012.26 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2554. 1012.26 s [opt-env-conf-test] - " has no ",
  2555. 1012.26 s [opt-env-conf-test] - functionChunk "reader",
  2556. 1012.26 s [opt-env-conf-test] - "."
  2557. 1012.26 s [opt-env-conf-test] - ]
  2558. 1012.26 s [opt-env-conf-test] - ]
  2559. 1012.26 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  2560. 1012.26 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2561. 1012.26 s [opt-env-conf-test] - " has no ",
  2562. 1012.26 s [opt-env-conf-test] - functionChunk "metavar",
  2563. 1012.26 s [opt-env-conf-test] - "."
  2564. 1012.26 s [opt-env-conf-test] - ]
  2565. 1012.26 s [opt-env-conf-test] - ]
  2566. 1012.26 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  2567. 1012.26 s [opt-env-conf-test] - [ [ functionChunk "option",
  2568. 1012.26 s [opt-env-conf-test] - " or ",
  2569. 1012.26 s [opt-env-conf-test] - functionChunk "name",
  2570. 1012.26 s [opt-env-conf-test] - " has no ",
  2571. 1012.26 s [opt-env-conf-test] - functionChunk "reader",
  2572. 1012.26 s [opt-env-conf-test] - "."
  2573. 1012.26 s [opt-env-conf-test] - ]
  2574. 1012.26 s [opt-env-conf-test] - ]
  2575. 1012.26 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  2576. 1012.26 s [opt-env-conf-test] - [ [ functionChunk "option",
  2577. 1012.26 s [opt-env-conf-test] - " has no ",
  2578. 1012.26 s [opt-env-conf-test] - functionChunk "long",
  2579. 1012.26 s [opt-env-conf-test] - " or ",
  2580. 1012.26 s [opt-env-conf-test] - functionChunk "short",
  2581. 1012.26 s [opt-env-conf-test] - "."
  2582. 1012.26 s [opt-env-conf-test] - ]
  2583. 1012.26 s [opt-env-conf-test] - ]
  2584. 1012.26 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  2585. 1012.26 s [opt-env-conf-test] - [ [ functionChunk "option",
  2586. 1012.26 s [opt-env-conf-test] - " or ",
  2587. 1012.26 s [opt-env-conf-test] - functionChunk "name",
  2588. 1012.26 s [opt-env-conf-test] - " has no ",
  2589. 1012.26 s [opt-env-conf-test] - functionChunk "metavar",
  2590. 1012.26 s [opt-env-conf-test] - "."
  2591. 1012.26 s [opt-env-conf-test] - ]
  2592. 1012.26 s [opt-env-conf-test] - ]
  2593. 1012.26 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  2594. 1012.26 s [opt-env-conf-test] - [ [ functionChunk "switch",
  2595. 1012.26 s [opt-env-conf-test] - " has no ",
  2596. 1012.26 s [opt-env-conf-test] - functionChunk "long",
  2597. 1012.26 s [opt-env-conf-test] - " or ",
  2598. 1012.26 s [opt-env-conf-test] - functionChunk "short",
  2599. 1012.26 s [opt-env-conf-test] - "."
  2600. 1012.26 s [opt-env-conf-test] - ]
  2601. 1012.26 s [opt-env-conf-test] - ]
  2602. 1012.26 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  2603. 1012.27 s [opt-env-conf-test] - [ [ functionChunk "long",
  2604. 1012.27 s [opt-env-conf-test] - " or ",
  2605. 1012.27 s [opt-env-conf-test] - functionChunk "short",
  2606. 1012.27 s [opt-env-conf-test] - " has no ",
  2607. 1012.27 s [opt-env-conf-test] - functionChunk "option",
  2608. 1012.27 s [opt-env-conf-test] - " or ",
  2609. 1012.27 s [opt-env-conf-test] - functionChunk "switch",
  2610. 1013.58 s [opt-env-conf-test] - "."
  2611. 1013.58 s [opt-env-conf-test] - ]
  2612. 1013.83 s [opt-env-conf-test] - ]
  2613. 1013.83 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  2614. 1013.83 s [opt-env-conf-test] - [ [ functionChunk "env",
  2615. 1013.83 s [opt-env-conf-test] - " or ",
  2616. 1013.83 s [opt-env-conf-test] - functionChunk "name",
  2617. 1013.83 s [opt-env-conf-test] - " has no ",
  2618. 1013.83 s [opt-env-conf-test] - functionChunk "reader",
  2619. 1013.83 s [opt-env-conf-test] - "."
  2620. 1013.83 s [opt-env-conf-test] - ]
  2621. 1013.84 s [opt-env-conf-test] - ]
  2622. 1013.84 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  2623. 1013.84 s [opt-env-conf-test] - [ [ functionChunk "env",
  2624. 1013.84 s [opt-env-conf-test] - " or ",
  2625. 1013.84 s [opt-env-conf-test] - functionChunk "name",
  2626. 1013.84 s [opt-env-conf-test] - " has no ",
  2627. 1013.84 s [opt-env-conf-test] - functionChunk "metavar",
  2628. 1013.84 s [opt-env-conf-test] - "."
  2629. 1013.84 s [opt-env-conf-test] - ]
  2630. 1013.84 s [opt-env-conf-test] - ]
  2631. 1013.84 s [opt-env-conf-test] - LintErrorNoCommands ->
  2632. 1013.84 s [opt-env-conf-test] - [ [ functionChunk "commands",
  2633. 1013.84 s [opt-env-conf-test] - " was called with an empty list."
  2634. 1013.84 s [opt-env-conf-test] - ]
  2635. 1013.84 s [opt-env-conf-test] - ]
  2636. 1013.84 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  2637. 1013.84 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  2638. 1013.84 s [opt-env-conf-test] - " was called with an unknown command: ",
  2639. 1013.84 s [opt-env-conf-test] - commandChunk c
  2640. 1013.84 s [opt-env-conf-test] - ]
  2641. 1013.84 s [opt-env-conf-test] - ]
  2642. 1013.84 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  2643. 1013.84 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2644. 1013.84 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  2645. 1013.84 s [opt-env-conf-test] - ]
  2646. 1013.84 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  2647. 1013.84 s [opt-env-conf-test] - [ [ functionChunk "conf",
  2648. 1013.84 s [opt-env-conf-test] - " or ",
  2649. 1013.84 s [opt-env-conf-test] - functionChunk "name",
  2650. 1013.84 s [opt-env-conf-test] - " was called with no way to load configuration."
  2651. 1013.84 s [opt-env-conf-test] - ],
  2652. 1013.84 s [opt-env-conf-test] - [ "You can load configuration with ",
  2653. 1013.84 s [opt-env-conf-test] - functionChunk "withConfig",
  2654. 1013.84 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  2655. 1013.84 s [opt-env-conf-test] - functionChunk "withoutConfig",
  2656. 1013.84 s [opt-env-conf-test] - "."
  2657. 1013.84 s [opt-env-conf-test] - ]
  2658. 1013.84 s [opt-env-conf-test] - ]
  2659. 1013.84 s [opt-env-conf-test] - LintErrorManyInfinite ->
  2660. 1013.84 s [opt-env-conf-test] - [ [ functionChunk "many",
  2661. 1013.84 s [opt-env-conf-test] - " or ",
  2662. 1013.84 s [opt-env-conf-test] - functionChunk "some",
  2663. 1013.84 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  2664. 1013.84 s [opt-env-conf-test] - ],
  2665. 1013.84 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  2666. 1013.84 s [opt-env-conf-test] - ],
  2667. 1013.84 s [opt-env-conf-test] + case lintErrorMessage of
  2668. 1013.84 s [opt-env-conf-test] + LintErrorUndocumented ->
  2669. 1013.84 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  2670. 1013.84 s [opt-env-conf-test] + LintErrorEmptySetting ->
  2671. 1013.84 s [opt-env-conf-test] + concat
  2672. 1013.84 s [opt-env-conf-test] + [ [ [ "This ",
  2673. 1013.85 s [opt-env-conf-test] + functionChunk "setting",
  2674. 1013.85 s [opt-env-conf-test] + " parses nothing."
  2675. 1013.85 s [opt-env-conf-test] + ]
  2676. 1013.85 s [opt-env-conf-test] + ],
  2677. 1013.85 s [opt-env-conf-test] + [ [ "Add an ",
  2678. 1013.85 s [opt-env-conf-test] + functionChunk "argument",
  2679. 1013.85 s [opt-env-conf-test] + ", ",
  2680. 1013.85 s [opt-env-conf-test] + functionChunk "switch",
  2681. 1013.85 s [opt-env-conf-test] + ", ",
  2682. 1013.85 s [opt-env-conf-test] + functionChunk "option",
  2683. 1013.85 s [opt-env-conf-test] + ", ",
  2684. 1013.85 s [opt-env-conf-test] + functionChunk "env",
  2685. 1013.85 s [opt-env-conf-test] + ", ",
  2686. 1013.85 s [opt-env-conf-test] + functionChunk "conf",
  2687. 1013.85 s [opt-env-conf-test] + ", or ",
  2688. 1013.85 s [opt-env-conf-test] + functionChunk "value",
  2689. 1013.85 s [opt-env-conf-test] + "."
  2690. 1013.85 s [opt-env-conf-test] + ]
  2691. 1013.85 s [opt-env-conf-test] + ]
  2692. 1013.85 s [opt-env-conf-test] + ]
  2693. 1013.85 s [opt-env-conf-test] + LintErrorDashInShort ->
  2694. 1013.85 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  2695. 1013.85 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  2696. 1013.85 s [opt-env-conf-test] + ]
  2697. 1013.85 s [opt-env-conf-test] + LintErrorDashInLong s ->
  2698. 1013.85 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  2699. 1013.85 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2700. 1013.85 s [opt-env-conf-test] + [ "Try ",
  2701. 1013.85 s [opt-env-conf-test] + functionChunk "long",
  2702. 1013.85 s [opt-env-conf-test] + " ",
  2703. 1013.85 s [opt-env-conf-test] + chunk $
  2704. 1013.85 s [opt-env-conf-test] + T.pack $
  2705. 1013.85 s [opt-env-conf-test] + show $
  2706. 1013.85 s [opt-env-conf-test] + let go = \case
  2707. 1013.85 s [opt-env-conf-test] + [] -> []
  2708. 1013.85 s [opt-env-conf-test] + '-' : cs -> go cs
  2709. 1013.85 s [opt-env-conf-test] + c : cs -> c : cs
  2710. 1013.85 s [opt-env-conf-test] + in go $ NE.toList s,
  2711. 1013.85 s [opt-env-conf-test] + " instead."
  2712. 1013.85 s [opt-env-conf-test] + ]
  2713. 1013.85 s [opt-env-conf-test] + ]
  2714. 1013.85 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  2715. 1013.85 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2716. 1013.85 s [opt-env-conf-test] + " has no ",
  2717. 1013.85 s [opt-env-conf-test] + functionChunk "reader",
  2718. 1013.85 s [opt-env-conf-test] + "."
  2719. 1013.85 s [opt-env-conf-test] + ]
  2720. 1013.85 s [opt-env-conf-test] + ]
  2721. 1013.85 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  2722. 1013.85 s [opt-env-conf-test] + [ [ functionChunk "argument",
  2723. 1013.85 s [opt-env-conf-test] + " has no ",
  2724. 1013.85 s [opt-env-conf-test] + functionChunk "metavar",
  2725. 1013.85 s [opt-env-conf-test] + "."
  2726. 1013.85 s [opt-env-conf-test] + ]
  2727. 1013.85 s [opt-env-conf-test] + ]
  2728. 1013.85 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  2729. 1013.85 s [opt-env-conf-test] + [ [ functionChunk "option",
  2730. 1013.85 s [opt-env-conf-test] + " or ",
  2731. 1013.85 s [opt-env-conf-test] + functionChunk "name",
  2732. 1013.85 s [opt-env-conf-test] + " has no ",
  2733. 1013.85 s [opt-env-conf-test] + functionChunk "reader",
  2734. 1013.85 s [opt-env-conf-test] + "."
  2735. 1013.85 s [opt-env-conf-test] + ]
  2736. 1013.85 s [opt-env-conf-test] + ]
  2737. 1013.85 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  2738. 1013.85 s [opt-env-conf-test] + [ [ functionChunk "option",
  2739. 1013.85 s [opt-env-conf-test] + " has no ",
  2740. 1013.85 s [opt-env-conf-test] + functionChunk "long",
  2741. 1013.85 s [opt-env-conf-test] + " or ",
  2742. 1013.85 s [opt-env-conf-test] + functionChunk "short",
  2743. 1013.85 s [opt-env-conf-test] + "."
  2744. 1013.85 s [opt-env-conf-test] + ]
  2745. 1013.85 s [opt-env-conf-test] + ]
  2746. 1013.85 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  2747. 1013.85 s [opt-env-conf-test] + [ [ functionChunk "option",
  2748. 1013.85 s [opt-env-conf-test] + " or ",
  2749. 1013.85 s [opt-env-conf-test] + functionChunk "name",
  2750. 1013.85 s [opt-env-conf-test] + " has no ",
  2751. 1013.85 s [opt-env-conf-test] + functionChunk "metavar",
  2752. 1013.85 s [opt-env-conf-test] + "."
  2753. 1013.85 s [opt-env-conf-test] + ]
  2754. 1013.85 s [opt-env-conf-test] + ]
  2755. 1013.85 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  2756. 1013.85 s [opt-env-conf-test] + [ [ functionChunk "switch",
  2757. 1013.85 s [opt-env-conf-test] + " has no ",
  2758. 1013.85 s [opt-env-conf-test] + functionChunk "long",
  2759. 1013.85 s [opt-env-conf-test] + " or ",
  2760. 1013.85 s [opt-env-conf-test] + functionChunk "short",
  2761. 1013.85 s [opt-env-conf-test] + "."
  2762. 1013.85 s [opt-env-conf-test] + ]
  2763. 1013.85 s [opt-env-conf-test] + ]
  2764. 1013.85 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  2765. 1013.85 s [opt-env-conf-test] + [ [ functionChunk "long",
  2766. 1013.85 s [opt-env-conf-test] + " or ",
  2767. 1013.85 s [opt-env-conf-test] + functionChunk "short",
  2768. 1013.85 s [opt-env-conf-test] + " has no ",
  2769. 1013.85 s [opt-env-conf-test] + functionChunk "option",
  2770. 1013.85 s [opt-env-conf-test] + " or ",
  2771. 1013.85 s [opt-env-conf-test] + functionChunk "switch",
  2772. 1013.85 s [opt-env-conf-test] + "."
  2773. 1013.85 s [opt-env-conf-test] + ]
  2774. 1013.85 s [opt-env-conf-test] + ]
  2775. 1013.85 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  2776. 1013.85 s [opt-env-conf-test] + [ [ functionChunk "env",
  2777. 1013.85 s [opt-env-conf-test] + " or ",
  2778. 1013.85 s [opt-env-conf-test] + functionChunk "name",
  2779. 1013.85 s [opt-env-conf-test] + " has no ",
  2780. 1013.85 s [opt-env-conf-test] + functionChunk "reader",
  2781. 1013.85 s [opt-env-conf-test] + "."
  2782. 1013.85 s [opt-env-conf-test] + ]
  2783. 1013.85 s [opt-env-conf-test] + ]
  2784. 1013.85 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  2785. 1013.85 s [opt-env-conf-test] + [ [ functionChunk "env",
  2786. 1013.85 s [opt-env-conf-test] + " or ",
  2787. 1013.85 s [opt-env-conf-test] + functionChunk "name",
  2788. 1013.85 s [opt-env-conf-test] + " has no ",
  2789. 1013.85 s [opt-env-conf-test] + functionChunk "metavar",
  2790. 1013.85 s [opt-env-conf-test] + "."
  2791. 1013.85 s [opt-env-conf-test] + ]
  2792. 1013.85 s [opt-env-conf-test] + ]
  2793. 1013.86 s [opt-env-conf-test] + LintErrorNoCommands ->
  2794. 1013.86 s [opt-env-conf-test] + [ [ functionChunk "commands",
  2795. 1013.86 s [opt-env-conf-test] + " was called with an empty list."
  2796. 1013.86 s [opt-env-conf-test] + ]
  2797. 1013.86 s [opt-env-conf-test] + ]
  2798. 1013.86 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  2799. 1013.86 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  2800. 1013.86 s [opt-env-conf-test] + " was called with an unknown command: ",
  2801. 1013.86 s [opt-env-conf-test] + commandChunk c
  2802. 1013.86 s [opt-env-conf-test] + ]
  2803. 1013.86 s [opt-env-conf-test] + ]
  2804. 1013.86 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  2805. 1013.86 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2806. 1013.86 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  2807. 1013.86 s [opt-env-conf-test] + ]
  2808. 1013.86 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  2809. 1013.86 s [opt-env-conf-test] + [ [ functionChunk "conf",
  2810. 1013.86 s [opt-env-conf-test] + " or ",
  2811. 1013.86 s [opt-env-conf-test] + functionChunk "name",
  2812. 1013.86 s [opt-env-conf-test] + " was called with no way to load configuration."
  2813. 1013.86 s [opt-env-conf-test] + ],
  2814. 1013.86 s [opt-env-conf-test] + [ "You can load configuration with ",
  2815. 1013.86 s [opt-env-conf-test] + functionChunk "withConfig",
  2816. 1013.86 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  2817. 1013.86 s [opt-env-conf-test] + functionChunk "withoutConfig",
  2818. 1013.86 s [opt-env-conf-test] + "."
  2819. 1013.86 s [opt-env-conf-test] + ]
  2820. 1013.86 s [opt-env-conf-test] + ]
  2821. 1013.86 s [opt-env-conf-test] + LintErrorManyInfinite ->
  2822. 1013.86 s [opt-env-conf-test] + [ [ functionChunk "many",
  2823. 1013.86 s [opt-env-conf-test] + " or ",
  2824. 1013.86 s [opt-env-conf-test] + functionChunk "some",
  2825. 1013.86 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  2826. 1013.86 s [opt-env-conf-test] + ],
  2827. 1013.86 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  2828. 1013.86 s [opt-env-conf-test] + ],
  2829. 1013.86 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  2830. 1013.86 s [opt-env-conf-test] ]
  2831. 1013.86 s [opt-env-conf-test]
  2832. 1013.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  2833. 1013.86 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  2834. 1013.86 s [opt-env-conf-test] renderLintError LintError {..} =
  2835. 1013.86 s [opt-env-conf-test] concat
  2836. 1013.86 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  2837. 1013.86 s [opt-env-conf-test] - case lintErrorMessage of
  2838. 1013.86 s [opt-env-conf-test] - LintErrorUndocumented ->
  2839. 1013.86 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  2840. 1013.86 s [opt-env-conf-test] - LintErrorEmptySetting ->
  2841. 1013.86 s [opt-env-conf-test] - concat
  2842. 1013.86 s [opt-env-conf-test] - [ [ [ "This ",
  2843. 1013.86 s [opt-env-conf-test] - functionChunk "setting",
  2844. 1013.86 s [opt-env-conf-test] - " parses nothing."
  2845. 1013.86 s [opt-env-conf-test] - ]
  2846. 1013.86 s [opt-env-conf-test] - ],
  2847. 1013.86 s [opt-env-conf-test] - [ [ "Add an ",
  2848. 1013.86 s [opt-env-conf-test] - functionChunk "argument",
  2849. 1013.86 s [opt-env-conf-test] - ", ",
  2850. 1013.86 s [opt-env-conf-test] - functionChunk "switch",
  2851. 1013.86 s [opt-env-conf-test] - ", ",
  2852. 1013.86 s [opt-env-conf-test] - functionChunk "option",
  2853. 1013.86 s [opt-env-conf-test] - ", ",
  2854. 1013.86 s [opt-env-conf-test] - functionChunk "env",
  2855. 1013.86 s [opt-env-conf-test] - ", ",
  2856. 1013.86 s [opt-env-conf-test] - functionChunk "conf",
  2857. 1013.86 s [opt-env-conf-test] - ", or ",
  2858. 1013.86 s [opt-env-conf-test] - functionChunk "value",
  2859. 1013.86 s [opt-env-conf-test] - "."
  2860. 1013.86 s [opt-env-conf-test] - ]
  2861. 1013.86 s [opt-env-conf-test] - ]
  2862. 1013.86 s [opt-env-conf-test] - ]
  2863. 1013.86 s [opt-env-conf-test] - LintErrorDashInShort ->
  2864. 1013.86 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  2865. 1013.86 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  2866. 1013.86 s [opt-env-conf-test] - ]
  2867. 1013.86 s [opt-env-conf-test] - LintErrorDashInLong s ->
  2868. 1013.86 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  2869. 1013.86 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  2870. 1013.86 s [opt-env-conf-test] - [ "Try ",
  2871. 1013.86 s [opt-env-conf-test] - functionChunk "long",
  2872. 1013.86 s [opt-env-conf-test] - " ",
  2873. 1013.86 s [opt-env-conf-test] - chunk $
  2874. 1013.86 s [opt-env-conf-test] - T.pack $
  2875. 1013.86 s [opt-env-conf-test] - show $
  2876. 1013.86 s [opt-env-conf-test] - let go = \case
  2877. 1013.86 s [opt-env-conf-test] - [] -> []
  2878. 1013.86 s [opt-env-conf-test] - '-' : cs -> go cs
  2879. 1013.86 s [opt-env-conf-test] - c : cs -> c : cs
  2880. 1013.86 s [opt-env-conf-test] - in go $ NE.toList s,
  2881. 1013.86 s [opt-env-conf-test] - " instead."
  2882. 1013.86 s [opt-env-conf-test] - ]
  2883. 1013.86 s [opt-env-conf-test] - ]
  2884. 1013.86 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  2885. 1013.86 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2886. 1013.86 s [opt-env-conf-test] - " has no ",
  2887. 1013.86 s [opt-env-conf-test] - functionChunk "reader",
  2888. 1013.86 s [opt-env-conf-test] - "."
  2889. 1013.86 s [opt-env-conf-test] - ]
  2890. 1013.86 s [opt-env-conf-test] - ]
  2891. 1013.86 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  2892. 1013.86 s [opt-env-conf-test] - [ [ functionChunk "argument",
  2893. 1013.86 s [opt-env-conf-test] - " has no ",
  2894. 1013.86 s [opt-env-conf-test] - functionChunk "metavar",
  2895. 1013.86 s [opt-env-conf-test] - "."
  2896. 1013.86 s [opt-env-conf-test] - ]
  2897. 1013.86 s [opt-env-conf-test] - ]
  2898. 1013.86 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  2899. 1013.86 s [opt-env-conf-test] - [ [ functionChunk "option",
  2900. 1013.86 s [opt-env-conf-test] - " or ",
  2901. 1013.86 s [opt-env-conf-test] - functionChunk "name",
  2902. 1013.86 s [opt-env-conf-test] - " has no ",
  2903. 1013.86 s [opt-env-conf-test] - functionChunk "reader",
  2904. 1013.86 s [opt-env-conf-test] - "."
  2905. 1013.86 s [opt-env-conf-test] - ]
  2906. 1013.86 s [opt-env-conf-test] - ]
  2907. 1013.86 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  2908. 1013.86 s [opt-env-conf-test] - [ [ functionChunk "option",
  2909. 1013.86 s [opt-env-conf-test] - " has no ",
  2910. 1013.86 s [opt-env-conf-test] - functionChunk "long",
  2911. 1013.86 s [opt-env-conf-test] - " or ",
  2912. 1013.86 s [opt-env-conf-test] - functionChunk "short",
  2913. 1013.86 s [opt-env-conf-test] - "."
  2914. 1013.86 s [opt-env-conf-test] - ]
  2915. 1013.86 s [opt-env-conf-test] - ]
  2916. 1013.86 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  2917. 1013.86 s [opt-env-conf-test] - [ [ functionChunk "option",
  2918. 1013.86 s [opt-env-conf-test] - " or ",
  2919. 1013.86 s [opt-env-conf-test] - functionChunk "name",
  2920. 1013.86 s [opt-env-conf-test] - " has no ",
  2921. 1013.86 s [opt-env-conf-test] - functionChunk "metavar",
  2922. 1013.86 s [opt-env-conf-test] - "."
  2923. 1013.86 s [opt-env-conf-test] - ]
  2924. 1013.86 s [opt-env-conf-test] - ]
  2925. 1013.86 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  2926. 1013.86 s [opt-env-conf-test] - [ [ functionChunk "switch",
  2927. 1013.86 s [opt-env-conf-test] - " has no ",
  2928. 1013.86 s [opt-env-conf-test] - functionChunk "long",
  2929. 1013.86 s [opt-env-conf-test] - " or ",
  2930. 1013.86 s [opt-env-conf-test] - functionChunk "short",
  2931. 1013.86 s [opt-env-conf-test] - "."
  2932. 1013.86 s [opt-env-conf-test] - ]
  2933. 1013.86 s [opt-env-conf-test] - ]
  2934. 1013.86 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  2935. 1013.86 s [opt-env-conf-test] - [ [ functionChunk "long",
  2936. 1013.86 s [opt-env-conf-test] - " or ",
  2937. 1013.86 s [opt-env-conf-test] - functionChunk "short",
  2938. 1013.87 s [opt-env-conf-test] - " has no ",
  2939. 1013.87 s [opt-env-conf-test] - functionChunk "option",
  2940. 1013.87 s [opt-env-conf-test] - " or ",
  2941. 1013.87 s [opt-env-conf-test] - functionChunk "switch",
  2942. 1013.87 s [opt-env-conf-test] - "."
  2943. 1013.87 s [opt-env-conf-test] - ]
  2944. 1013.87 s [opt-env-conf-test] - ]
  2945. 1013.87 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  2946. 1013.87 s [opt-env-conf-test] - [ [ functionChunk "env",
  2947. 1013.87 s [opt-env-conf-test] - " or ",
  2948. 1013.87 s [opt-env-conf-test] - functionChunk "name",
  2949. 1013.87 s [opt-env-conf-test] - " has no ",
  2950. 1013.87 s [opt-env-conf-test] - functionChunk "reader",
  2951. 1013.87 s [opt-env-conf-test] - "."
  2952. 1013.87 s [opt-env-conf-test] - ]
  2953. 1013.87 s [opt-env-conf-test] - ]
  2954. 1013.87 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  2955. 1013.87 s [opt-env-conf-test] - [ [ functionChunk "env",
  2956. 1013.87 s [opt-env-conf-test] - " or ",
  2957. 1013.87 s [opt-env-conf-test] - functionChunk "name",
  2958. 1013.87 s [opt-env-conf-test] - " has no ",
  2959. 1013.87 s [opt-env-conf-test] - functionChunk "metavar",
  2960. 1013.87 s [opt-env-conf-test] - "."
  2961. 1013.87 s [opt-env-conf-test] - ]
  2962. 1013.87 s [opt-env-conf-test] - ]
  2963. 1013.87 s [opt-env-conf-test] - LintErrorNoCommands ->
  2964. 1013.87 s [opt-env-conf-test] - [ [ functionChunk "commands",
  2965. 1013.87 s [opt-env-conf-test] - " was called with an empty list."
  2966. 1013.87 s [opt-env-conf-test] - ]
  2967. 1013.87 s [opt-env-conf-test] - ]
  2968. 1013.87 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  2969. 1013.87 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  2970. 1013.87 s [opt-env-conf-test] - " was called with an unknown command: ",
  2971. 1013.87 s [opt-env-conf-test] - commandChunk c
  2972. 1013.87 s [opt-env-conf-test] - ]
  2973. 1013.87 s [opt-env-conf-test] - ]
  2974. 1013.87 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  2975. 1013.87 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  2976. 1013.87 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  2977. 1013.87 s [opt-env-conf-test] - ]
  2978. 1013.87 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  2979. 1013.87 s [opt-env-conf-test] - [ [ functionChunk "conf",
  2980. 1013.87 s [opt-env-conf-test] - " or ",
  2981. 1013.87 s [opt-env-conf-test] - functionChunk "name",
  2982. 1013.87 s [opt-env-conf-test] - " was called with no way to load configuration."
  2983. 1013.87 s [opt-env-conf-test] - ],
  2984. 1013.87 s [opt-env-conf-test] - [ "You can load configuration with ",
  2985. 1013.87 s [opt-env-conf-test] - functionChunk "withConfig",
  2986. 1013.87 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  2987. 1013.87 s [opt-env-conf-test] - functionChunk "withoutConfig",
  2988. 1013.87 s [opt-env-conf-test] - "."
  2989. 1013.87 s [opt-env-conf-test] - ]
  2990. 1013.87 s [opt-env-conf-test] - ]
  2991. 1013.87 s [opt-env-conf-test] - LintErrorManyInfinite ->
  2992. 1013.87 s [opt-env-conf-test] - [ [ functionChunk "many",
  2993. 1013.87 s [opt-env-conf-test] - " or ",
  2994. 1013.87 s [opt-env-conf-test] - functionChunk "some",
  2995. 1013.87 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  2996. 1013.87 s [opt-env-conf-test] - ],
  2997. 1013.87 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  2998. 1013.87 s [opt-env-conf-test] - ],
  2999. 1013.87 s [opt-env-conf-test] + case lintErrorMessage of
  3000. 1013.87 s [opt-env-conf-test] + LintErrorUndocumented ->
  3001. 1013.87 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  3002. 1013.87 s [opt-env-conf-test] + LintErrorEmptySetting ->
  3003. 1013.87 s [opt-env-conf-test] + concat
  3004. 1013.87 s [opt-env-conf-test] + [ [ [ "This ",
  3005. 1013.87 s [opt-env-conf-test] + functionChunk "setting",
  3006. 1013.87 s [opt-env-conf-test] + " parses nothing."
  3007. 1013.87 s [opt-env-conf-test] + ]
  3008. 1013.87 s [opt-env-conf-test] + ],
  3009. 1013.87 s [opt-env-conf-test] + [ [ "Add an ",
  3010. 1013.87 s [opt-env-conf-test] + functionChunk "argument",
  3011. 1013.87 s [opt-env-conf-test] + ", ",
  3012. 1013.87 s [opt-env-conf-test] + functionChunk "switch",
  3013. 1013.87 s [opt-env-conf-test] + ", ",
  3014. 1013.87 s [opt-env-conf-test] + functionChunk "option",
  3015. 1013.87 s [opt-env-conf-test] + ", ",
  3016. 1013.87 s [opt-env-conf-test] + functionChunk "env",
  3017. 1013.87 s [opt-env-conf-test] + ", ",
  3018. 1013.87 s [opt-env-conf-test] + functionChunk "conf",
  3019. 1013.87 s [opt-env-conf-test] + ", or ",
  3020. 1013.87 s [opt-env-conf-test] + functionChunk "value",
  3021. 1013.87 s [opt-env-conf-test] + "."
  3022. 1013.87 s [opt-env-conf-test] + ]
  3023. 1013.87 s [opt-env-conf-test] + ]
  3024. 1013.87 s [opt-env-conf-test] + ]
  3025. 1013.87 s [opt-env-conf-test] + LintErrorDashInShort ->
  3026. 1013.87 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  3027. 1013.87 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  3028. 1013.87 s [opt-env-conf-test] + ]
  3029. 1013.87 s [opt-env-conf-test] + LintErrorDashInLong s ->
  3030. 1013.87 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  3031. 1013.87 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  3032. 1013.87 s [opt-env-conf-test] + [ "Try ",
  3033. 1013.87 s [opt-env-conf-test] + functionChunk "long",
  3034. 1013.87 s [opt-env-conf-test] + " ",
  3035. 1013.87 s [opt-env-conf-test] + chunk $
  3036. 1013.87 s [opt-env-conf-test] + T.pack $
  3037. 1013.87 s [opt-env-conf-test] + show $
  3038. 1013.87 s [opt-env-conf-test] + let go = \case
  3039. 1013.87 s [opt-env-conf-test] + [] -> []
  3040. 1013.87 s [opt-env-conf-test] + '-' : cs -> go cs
  3041. 1013.87 s [opt-env-conf-test] + c : cs -> c : cs
  3042. 1013.87 s [opt-env-conf-test] + in go $ NE.toList s,
  3043. 1013.87 s [opt-env-conf-test] + " instead."
  3044. 1013.87 s [opt-env-conf-test] + ]
  3045. 1013.87 s [opt-env-conf-test] + ]
  3046. 1013.87 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  3047. 1013.87 s [opt-env-conf-test] + [ [ functionChunk "argument",
  3048. 1013.87 s [opt-env-conf-test] + " has no ",
  3049. 1013.87 s [opt-env-conf-test] + functionChunk "reader",
  3050. 1013.87 s [opt-env-conf-test] + "."
  3051. 1013.87 s [opt-env-conf-test] + ]
  3052. 1013.87 s [opt-env-conf-test] + ]
  3053. 1013.87 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  3054. 1013.87 s [opt-env-conf-test] + [ [ functionChunk "argument",
  3055. 1013.87 s [opt-env-conf-test] + " has no ",
  3056. 1013.87 s [opt-env-conf-test] + functionChunk "metavar",
  3057. 1013.87 s [opt-env-conf-test] + "."
  3058. 1013.87 s [opt-env-conf-test] + ]
  3059. 1013.87 s [opt-env-conf-test] + ]
  3060. 1013.87 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  3061. 1013.87 s [opt-env-conf-test] + [ [ functionChunk "option",
  3062. 1013.87 s [opt-env-conf-test] + " or ",
  3063. 1013.87 s [opt-env-conf-test] + functionChunk "name",
  3064. 1013.87 s [opt-env-conf-test] + " has no ",
  3065. 1013.88 s [opt-env-conf-test] + functionChunk "reader",
  3066. 1013.88 s [opt-env-conf-test] + "."
  3067. 1013.88 s [opt-env-conf-test] + ]
  3068. 1013.88 s [opt-env-conf-test] + ]
  3069. 1013.88 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  3070. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "option",
  3071. 1013.88 s [opt-env-conf-test] + " has no ",
  3072. 1013.88 s [opt-env-conf-test] + functionChunk "long",
  3073. 1013.88 s [opt-env-conf-test] + " or ",
  3074. 1013.88 s [opt-env-conf-test] + functionChunk "short",
  3075. 1013.88 s [opt-env-conf-test] + "."
  3076. 1013.88 s [opt-env-conf-test] + ]
  3077. 1013.88 s [opt-env-conf-test] + ]
  3078. 1013.88 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  3079. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "option",
  3080. 1013.88 s [opt-env-conf-test] + " or ",
  3081. 1013.88 s [opt-env-conf-test] + functionChunk "name",
  3082. 1013.88 s [opt-env-conf-test] + " has no ",
  3083. 1013.88 s [opt-env-conf-test] + functionChunk "metavar",
  3084. 1013.88 s [opt-env-conf-test] + "."
  3085. 1013.88 s [opt-env-conf-test] + ]
  3086. 1013.88 s [opt-env-conf-test] + ]
  3087. 1013.88 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  3088. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "switch",
  3089. 1013.88 s [opt-env-conf-test] + " has no ",
  3090. 1013.88 s [opt-env-conf-test] + functionChunk "long",
  3091. 1013.88 s [opt-env-conf-test] + " or ",
  3092. 1013.88 s [opt-env-conf-test] + functionChunk "short",
  3093. 1013.88 s [opt-env-conf-test] + "."
  3094. 1013.88 s [opt-env-conf-test] + ]
  3095. 1013.88 s [opt-env-conf-test] + ]
  3096. 1013.88 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  3097. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "long",
  3098. 1013.88 s [opt-env-conf-test] + " or ",
  3099. 1013.88 s [opt-env-conf-test] + functionChunk "short",
  3100. 1013.88 s [opt-env-conf-test] + " has no ",
  3101. 1013.88 s [opt-env-conf-test] + functionChunk "option",
  3102. 1013.88 s [opt-env-conf-test] + " or ",
  3103. 1013.88 s [opt-env-conf-test] + functionChunk "switch",
  3104. 1013.88 s [opt-env-conf-test] + "."
  3105. 1013.88 s [opt-env-conf-test] + ]
  3106. 1013.88 s [opt-env-conf-test] + ]
  3107. 1013.88 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  3108. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "env",
  3109. 1013.88 s [opt-env-conf-test] + " or ",
  3110. 1013.88 s [opt-env-conf-test] + functionChunk "name",
  3111. 1013.88 s [opt-env-conf-test] + " has no ",
  3112. 1013.88 s [opt-env-conf-test] + functionChunk "reader",
  3113. 1013.88 s [opt-env-conf-test] + "."
  3114. 1013.88 s [opt-env-conf-test] + ]
  3115. 1013.88 s [opt-env-conf-test] + ]
  3116. 1013.88 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  3117. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "env",
  3118. 1013.88 s [opt-env-conf-test] + " or ",
  3119. 1013.88 s [opt-env-conf-test] + functionChunk "name",
  3120. 1013.88 s [opt-env-conf-test] + " has no ",
  3121. 1013.88 s [opt-env-conf-test] + functionChunk "metavar",
  3122. 1013.88 s [opt-env-conf-test] + "."
  3123. 1013.88 s [opt-env-conf-test] + ]
  3124. 1013.88 s [opt-env-conf-test] + ]
  3125. 1013.88 s [opt-env-conf-test] + LintErrorNoCommands ->
  3126. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "commands",
  3127. 1013.88 s [opt-env-conf-test] + " was called with an empty list."
  3128. 1013.88 s [opt-env-conf-test] + ]
  3129. 1013.88 s [opt-env-conf-test] + ]
  3130. 1013.88 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  3131. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  3132. 1013.88 s [opt-env-conf-test] + " was called with an unknown command: ",
  3133. 1013.88 s [opt-env-conf-test] + commandChunk c
  3134. 1013.88 s [opt-env-conf-test] + ]
  3135. 1013.88 s [opt-env-conf-test] + ]
  3136. 1013.88 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  3137. 1013.88 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  3138. 1013.88 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  3139. 1013.88 s [opt-env-conf-test] + ]
  3140. 1013.88 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  3141. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "conf",
  3142. 1013.88 s [opt-env-conf-test] + " or ",
  3143. 1013.88 s [opt-env-conf-test] + functionChunk "name",
  3144. 1013.88 s [opt-env-conf-test] + " was called with no way to load configuration."
  3145. 1013.88 s [opt-env-conf-test] + ],
  3146. 1013.88 s [opt-env-conf-test] + [ "You can load configuration with ",
  3147. 1013.88 s [opt-env-conf-test] + functionChunk "withConfig",
  3148. 1013.88 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  3149. 1013.88 s [opt-env-conf-test] + functionChunk "withoutConfig",
  3150. 1013.88 s [opt-env-conf-test] + "."
  3151. 1013.88 s [opt-env-conf-test] + ]
  3152. 1013.88 s [opt-env-conf-test] + ]
  3153. 1013.88 s [opt-env-conf-test] + LintErrorManyInfinite ->
  3154. 1013.88 s [opt-env-conf-test] + [ [ functionChunk "many",
  3155. 1013.88 s [opt-env-conf-test] + " or ",
  3156. 1013.88 s [opt-env-conf-test] + functionChunk "some",
  3157. 1013.88 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  3158. 1013.88 s [opt-env-conf-test] + ],
  3159. 1013.88 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  3160. 1013.88 s [opt-env-conf-test] + ],
  3161. 1013.88 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  3162. 1013.88 s [opt-env-conf-test] ]
  3163. 1013.88 s [opt-env-conf-test]
  3164. 1013.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  3165. 1013.88 s [opt-env-conf-test] @@ -259,12 +259,7 @@
  3166. 1013.88 s [opt-env-conf-test] ],
  3167. 1013.88 s [opt-env-conf-test] ZshCompletionScript
  3168. 1013.88 s [opt-env-conf-test] <$> setting
  3169. 1013.88 s [opt-env-conf-test] - [ option,
  3170. 1013.88 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3171. 1013.88 s [opt-env-conf-test] - long "zsh-completion-script",
  3172. 1013.88 s [opt-env-conf-test] - hidden,
  3173. 1013.88 s [opt-env-conf-test] - help "Render the zsh completion script"
  3174. 1013.88 s [opt-env-conf-test] - ],
  3175. 1013.88 s [opt-env-conf-test] + [],
  3176. 1013.88 s [opt-env-conf-test] ZshCompletionScript
  3177. 1013.88 s [opt-env-conf-test] <$> setting
  3178. 1013.88 s [opt-env-conf-test] [ option,
  3179. 1013.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
  3180. 1013.88 s [opt-env-conf-test] @@ -251,12 +251,11 @@
  3181. 1013.88 s [opt-env-conf-test] ],
  3182. 1013.88 s [opt-env-conf-test] BashCompletionScript
  3183. 1013.88 s [opt-env-conf-test] <$> setting
  3184. 1013.88 s [opt-env-conf-test] - [ option,
  3185. 1013.88 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3186. 1013.89 s [opt-env-conf-test] - long "bash-completion-script",
  3187. 1013.89 s [opt-env-conf-test] - hidden,
  3188. 1013.89 s [opt-env-conf-test] - help "Render the bash completion script"
  3189. 1013.89 s [opt-env-conf-test] - ],
  3190. 1013.89 s [opt-env-conf-test] + [ option,
  3191. 1013.89 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  3192. 1013.89 s [opt-env-conf-test] + long "bash-completion-script",
  3193. 1013.89 s [opt-env-conf-test] + hidden
  3194. 1013.89 s [opt-env-conf-test] +],
  3195. 1013.89 s [opt-env-conf-test] ZshCompletionScript
  3196. 1013.89 s [opt-env-conf-test] <$> setting
  3197. 1013.89 s [opt-env-conf-test] [ option,
  3198. 1013.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
  3199. 1013.89 s [opt-env-conf-test] @@ -251,12 +251,12 @@
  3200. 1013.89 s [opt-env-conf-test] ],
  3201. 1013.89 s [opt-env-conf-test] BashCompletionScript
  3202. 1013.89 s [opt-env-conf-test] <$> setting
  3203. 1013.89 s [opt-env-conf-test] - [ option,
  3204. 1013.89 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3205. 1013.89 s [opt-env-conf-test] - long "bash-completion-script",
  3206. 1013.89 s [opt-env-conf-test] - hidden,
  3207. 1013.89 s [opt-env-conf-test] - help "Render the bash completion script"
  3208. 1013.89 s [opt-env-conf-test] - ],
  3209. 1013.89 s [opt-env-conf-test] + [ option,
  3210. 1013.89 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  3211. 1013.89 s [opt-env-conf-test] + long "bash-completion-script",
  3212. 1013.89 s [opt-env-conf-test] + hidden,
  3213. 1013.89 s [opt-env-conf-test] + help "Render the bash completion script"
  3214. 1013.89 s [opt-env-conf-test] + ],
  3215. 1013.89 s [opt-env-conf-test] ZshCompletionScript
  3216. 1013.89 s [opt-env-conf-test] <$> setting
  3217. 1013.89 s [opt-env-conf-test] [ option,
  3218. 1013.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
  3219. 1013.89 s [opt-env-conf-test] @@ -251,12 +251,7 @@
  3220. 1013.89 s [opt-env-conf-test] ],
  3221. 1013.89 s [opt-env-conf-test] BashCompletionScript
  3222. 1013.89 s [opt-env-conf-test] <$> setting
  3223. 1013.89 s [opt-env-conf-test] - [ option,
  3224. 1013.89 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3225. 1013.89 s [opt-env-conf-test] - long "bash-completion-script",
  3226. 1013.89 s [opt-env-conf-test] - hidden,
  3227. 1013.89 s [opt-env-conf-test] - help "Render the bash completion script"
  3228. 1013.89 s [opt-env-conf-test] - ],
  3229. 1013.89 s [opt-env-conf-test] + [],
  3230. 1013.89 s [opt-env-conf-test] ZshCompletionScript
  3231. 1013.89 s [opt-env-conf-test] <$> setting
  3232. 1013.89 s [opt-env-conf-test] [ option,
  3233. 1013.89 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:284:20-24
  3234. 1013.89 s [opt-env-conf-test] @@ -281,7 +281,7 @@
  3235. 1013.89 s [opt-env-conf-test] hidden
  3236. 1013.89 s [opt-env-conf-test] ]
  3237. 1013.89 s [opt-env-conf-test] <*> setting
  3238. 1013.89 s [opt-env-conf-test] - [ switch True,
  3239. 1013.89 s [opt-env-conf-test] + [ switch False,
  3240. 1013.89 s [opt-env-conf-test] long "completion-enriched",
  3241. 1013.89 s [opt-env-conf-test] value False,
  3242. 1013.89 s [opt-env-conf-test] hidden,
  3243. 1013.89 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:286:19-24
  3244. 1013.89 s [opt-env-conf-test] @@ -283,7 +283,7 @@
  3245. 1013.89 s [opt-env-conf-test] <*> setting
  3246. 1013.89 s [opt-env-conf-test] [ switch True,
  3247. 1013.89 s [opt-env-conf-test] long "completion-enriched",
  3248. 1013.89 s [opt-env-conf-test] - value False,
  3249. 1013.89 s [opt-env-conf-test] + value True,
  3250. 1013.89 s [opt-env-conf-test] hidden,
  3251. 1013.89 s [opt-env-conf-test] help "Whether to enable enriched completion"
  3252. 1013.89 s [opt-env-conf-test] ]
  3253. 1013.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  3254. 1013.89 s [opt-env-conf-test] @@ -281,12 +281,7 @@
  3255. 1013.89 s [opt-env-conf-test] hidden
  3256. 1013.89 s [opt-env-conf-test] ]
  3257. 1013.89 s [opt-env-conf-test] <*> setting
  3258. 1013.89 s [opt-env-conf-test] - [ switch True,
  3259. 1013.89 s [opt-env-conf-test] - long "completion-enriched",
  3260. 1013.89 s [opt-env-conf-test] - value False,
  3261. 1013.89 s [opt-env-conf-test] - hidden,
  3262. 1013.89 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  3263. 1013.89 s [opt-env-conf-test] - ]
  3264. 1013.89 s [opt-env-conf-test] + []
  3265. 1013.89 s [opt-env-conf-test] <*> setting
  3266. 1013.89 s [opt-env-conf-test] [ option,
  3267. 1013.89 s [opt-env-conf-test] reader auto,
  3268. 1013.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  3269. 1013.89 s [opt-env-conf-test] @@ -281,12 +281,12 @@
  3270. 1013.89 s [opt-env-conf-test] hidden
  3271. 1013.89 s [opt-env-conf-test] ]
  3272. 1013.89 s [opt-env-conf-test] <*> setting
  3273. 1013.89 s [opt-env-conf-test] - [ switch True,
  3274. 1013.89 s [opt-env-conf-test] - long "completion-enriched",
  3275. 1013.89 s [opt-env-conf-test] - value False,
  3276. 1013.89 s [opt-env-conf-test] - hidden,
  3277. 1013.89 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  3278. 1013.90 s [opt-env-conf-test] - ]
  3279. 1013.90 s [opt-env-conf-test] + [ switch True,
  3280. 1013.90 s [opt-env-conf-test] + long "completion-enriched",
  3281. 1013.90 s [opt-env-conf-test] + value False,
  3282. 1013.90 s [opt-env-conf-test] + hidden,
  3283. 1013.90 s [opt-env-conf-test] + help "Whether to enable enriched completion"
  3284. 1013.90 s [opt-env-conf-test] + ]
  3285. 1013.90 s [opt-env-conf-test] <*> setting
  3286. 1013.90 s [opt-env-conf-test] [ option,
  3287. 1013.90 s [opt-env-conf-test] reader auto,
  3288. 1013.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  3289. 1013.90 s [opt-env-conf-test] @@ -281,12 +281,11 @@
  3290. 1013.90 s [opt-env-conf-test] hidden
  3291. 1013.90 s [opt-env-conf-test] ]
  3292. 1013.90 s [opt-env-conf-test] <*> setting
  3293. 1013.90 s [opt-env-conf-test] - [ switch True,
  3294. 1013.90 s [opt-env-conf-test] - long "completion-enriched",
  3295. 1013.90 s [opt-env-conf-test] - value False,
  3296. 1013.90 s [opt-env-conf-test] - hidden,
  3297. 1013.90 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  3298. 1013.90 s [opt-env-conf-test] - ]
  3299. 1013.90 s [opt-env-conf-test] + [ switch True,
  3300. 1013.90 s [opt-env-conf-test] + long "completion-enriched",
  3301. 1013.90 s [opt-env-conf-test] + value False,
  3302. 1013.90 s [opt-env-conf-test] + hidden
  3303. 1013.90 s [opt-env-conf-test] +]
  3304. 1013.90 s [opt-env-conf-test] <*> setting
  3305. 1013.90 s [opt-env-conf-test] [ option,
  3306. 1013.90 s [opt-env-conf-test] reader auto,
  3307. 1013.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
  3308. 1013.90 s [opt-env-conf-test] @@ -288,12 +288,7 @@
  3309. 1013.90 s [opt-env-conf-test] help "Whether to enable enriched completion"
  3310. 1013.90 s [opt-env-conf-test] ]
  3311. 1013.90 s [opt-env-conf-test] <*> setting
  3312. 1013.90 s [opt-env-conf-test] - [ option,
  3313. 1013.90 s [opt-env-conf-test] - reader auto,
  3314. 1013.90 s [opt-env-conf-test] - long "completion-index",
  3315. 1013.90 s [opt-env-conf-test] - hidden,
  3316. 1013.90 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  3317. 1013.90 s [opt-env-conf-test] - ]
  3318. 1013.90 s [opt-env-conf-test] + []
  3319. 1013.90 s [opt-env-conf-test] <*> many
  3320. 1013.90 s [opt-env-conf-test] ( setting
  3321. 1013.90 s [opt-env-conf-test] [ option,
  3322. 1013.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
  3323. 1013.90 s [opt-env-conf-test] @@ -288,12 +288,12 @@
  3324. 1013.90 s [opt-env-conf-test] help "Whether to enable enriched completion"
  3325. 1013.90 s [opt-env-conf-test] ]
  3326. 1013.90 s [opt-env-conf-test] <*> setting
  3327. 1013.90 s [opt-env-conf-test] - [ option,
  3328. 1013.90 s [opt-env-conf-test] - reader auto,
  3329. 1013.90 s [opt-env-conf-test] - long "completion-index",
  3330. 1013.90 s [opt-env-conf-test] - hidden,
  3331. 1013.90 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  3332. 1013.90 s [opt-env-conf-test] - ]
  3333. 1013.90 s [opt-env-conf-test] + [ option,
  3334. 1013.90 s [opt-env-conf-test] + reader auto,
  3335. 1013.90 s [opt-env-conf-test] + long "completion-index",
  3336. 1013.90 s [opt-env-conf-test] + hidden,
  3337. 1013.90 s [opt-env-conf-test] + help "The index between the arguments where completion was invoked."
  3338. 1013.90 s [opt-env-conf-test] + ]
  3339. 1013.90 s [opt-env-conf-test] <*> many
  3340. 1013.90 s [opt-env-conf-test] ( setting
  3341. 1013.90 s [opt-env-conf-test] [ option,
  3342. 1013.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
  3343. 1013.90 s [opt-env-conf-test] @@ -288,12 +288,11 @@
  3344. 1013.90 s [opt-env-conf-test] help "Whether to enable enriched completion"
  3345. 1013.90 s [opt-env-conf-test] ]
  3346. 1013.90 s [opt-env-conf-test] <*> setting
  3347. 1013.90 s [opt-env-conf-test] - [ option,
  3348. 1013.90 s [opt-env-conf-test] - reader auto,
  3349. 1013.90 s [opt-env-conf-test] - long "completion-index",
  3350. 1013.90 s [opt-env-conf-test] - hidden,
  3351. 1013.90 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  3352. 1013.90 s [opt-env-conf-test] - ]
  3353. 1013.90 s [opt-env-conf-test] + [ option,
  3354. 1013.90 s [opt-env-conf-test] + reader auto,
  3355. 1013.90 s [opt-env-conf-test] + long "completion-index",
  3356. 1013.90 s [opt-env-conf-test] + hidden
  3357. 1013.90 s [opt-env-conf-test] +]
  3358. 1013.90 s [opt-env-conf-test] <*> many
  3359. 1013.90 s [opt-env-conf-test] ( setting
  3360. 1013.90 s [opt-env-conf-test] [ option,
  3361. 1013.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  3362. 1013.90 s [opt-env-conf-test] @@ -296,12 +296,7 @@
  3363. 1013.90 s [opt-env-conf-test] ]
  3364. 1013.90 s [opt-env-conf-test] <*> many
  3365. 1013.90 s [opt-env-conf-test] ( setting
  3366. 1013.90 s [opt-env-conf-test] - [ option,
  3367. 1013.90 s [opt-env-conf-test] - reader str,
  3368. 1013.90 s [opt-env-conf-test] - long "completion-word",
  3369. 1013.90 s [opt-env-conf-test] - hidden,
  3370. 1013.90 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  3371. 1013.90 s [opt-env-conf-test] - ]
  3372. 1013.90 s [opt-env-conf-test] + []
  3373. 1013.90 s [opt-env-conf-test] ),
  3374. 1013.90 s [opt-env-conf-test] ParsedNormally <$> p
  3375. 1013.90 s [opt-env-conf-test] ]
  3376. 1013.90 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  3377. 1013.90 s [opt-env-conf-test] @@ -296,12 +296,12 @@
  3378. 1013.90 s [opt-env-conf-test] ]
  3379. 1013.91 s [opt-env-conf-test] <*> many
  3380. 1013.91 s [opt-env-conf-test] ( setting
  3381. 1013.91 s [opt-env-conf-test] - [ option,
  3382. 1013.91 s [opt-env-conf-test] - reader str,
  3383. 1013.91 s [opt-env-conf-test] - long "completion-word",
  3384. 1013.91 s [opt-env-conf-test] - hidden,
  3385. 1013.91 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  3386. 1013.91 s [opt-env-conf-test] - ]
  3387. 1013.91 s [opt-env-conf-test] + [ option,
  3388. 1013.91 s [opt-env-conf-test] + reader str,
  3389. 1013.91 s [opt-env-conf-test] + long "completion-word",
  3390. 1013.91 s [opt-env-conf-test] + hidden,
  3391. 1013.91 s [opt-env-conf-test] + help "The words (arguments) that have already been typed"
  3392. 1013.91 s [opt-env-conf-test] + ]
  3393. 1013.91 s [opt-env-conf-test] ),
  3394. 1013.91 s [opt-env-conf-test] ParsedNormally <$> p
  3395. 1013.91 s [opt-env-conf-test] ]
  3396. 1013.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  3397. 1013.91 s [opt-env-conf-test] @@ -296,12 +296,12 @@
  3398. 1013.91 s [opt-env-conf-test] ]
  3399. 1013.91 s [opt-env-conf-test] <*> many
  3400. 1013.91 s [opt-env-conf-test] ( setting
  3401. 1013.91 s [opt-env-conf-test] - [ option,
  3402. 1013.91 s [opt-env-conf-test] - reader str,
  3403. 1013.91 s [opt-env-conf-test] - long "completion-word",
  3404. 1013.91 s [opt-env-conf-test] - hidden,
  3405. 1013.91 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  3406. 1013.91 s [opt-env-conf-test] - ]
  3407. 1013.91 s [opt-env-conf-test] + [ option,
  3408. 1013.91 s [opt-env-conf-test] + reader str,
  3409. 1013.91 s [opt-env-conf-test] + long "completion-word",
  3410. 1013.91 s [opt-env-conf-test] + hidden,
  3411. 1013.91 s [opt-env-conf-test] + help "The words (arguments) that have already been typed"
  3412. 1013.91 s [opt-env-conf-test] + ]
  3413. 1013.91 s [opt-env-conf-test] ),
  3414. 1013.91 s [opt-env-conf-test] ParsedNormally <$> p
  3415. 1013.91 s [opt-env-conf-test] ]
  3416. 1013.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
  3417. 1013.91 s [opt-env-conf-test] @@ -226,82 +226,4 @@
  3418. 1013.91 s [opt-env-conf-test] internalParser :: Parser a -> Parser (Internal a)
  3419. 1013.91 s [opt-env-conf-test] internalParser p =
  3420. 1013.91 s [opt-env-conf-test] choice
  3421. 1013.91 s [opt-env-conf-test] - [ setting
  3422. 1013.91 s [opt-env-conf-test] - [ switch ShowVersion,
  3423. 1013.91 s [opt-env-conf-test] - long "version",
  3424. 1013.91 s [opt-env-conf-test] - hidden
  3425. 1013.91 s [opt-env-conf-test] - ],
  3426. 1013.91 s [opt-env-conf-test] - setting
  3427. 1013.91 s [opt-env-conf-test] - [ switch RenderMan,
  3428. 1013.91 s [opt-env-conf-test] - long "render-man-page",
  3429. 1013.91 s [opt-env-conf-test] - hidden,
  3430. 1013.91 s [opt-env-conf-test] - help "Render a manpage"
  3431. 1013.91 s [opt-env-conf-test] - ],
  3432. 1013.91 s [opt-env-conf-test] - setting
  3433. 1013.91 s [opt-env-conf-test] - [ switch RenderDocumentation,
  3434. 1013.91 s [opt-env-conf-test] - long "render-reference-documentation",
  3435. 1013.91 s [opt-env-conf-test] - hidden,
  3436. 1013.91 s [opt-env-conf-test] - help "Render reference documentation"
  3437. 1013.91 s [opt-env-conf-test] - ],
  3438. 1013.91 s [opt-env-conf-test] - setting
  3439. 1013.91 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  3440. 1013.91 s [opt-env-conf-test] - long "render-nix-options",
  3441. 1013.91 s [opt-env-conf-test] - hidden,
  3442. 1013.91 s [opt-env-conf-test] - help "Render Nix options"
  3443. 1013.91 s [opt-env-conf-test] - ],
  3444. 1013.91 s [opt-env-conf-test] - BashCompletionScript
  3445. 1013.91 s [opt-env-conf-test] - <$> setting
  3446. 1013.91 s [opt-env-conf-test] - [ option,
  3447. 1013.91 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3448. 1013.91 s [opt-env-conf-test] - long "bash-completion-script",
  3449. 1013.91 s [opt-env-conf-test] - hidden,
  3450. 1013.91 s [opt-env-conf-test] - help "Render the bash completion script"
  3451. 1013.91 s [opt-env-conf-test] - ],
  3452. 1013.91 s [opt-env-conf-test] - ZshCompletionScript
  3453. 1013.91 s [opt-env-conf-test] - <$> setting
  3454. 1013.91 s [opt-env-conf-test] - [ option,
  3455. 1013.91 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3456. 1013.91 s [opt-env-conf-test] - long "zsh-completion-script",
  3457. 1013.91 s [opt-env-conf-test] - hidden,
  3458. 1013.91 s [opt-env-conf-test] - help "Render the zsh completion script"
  3459. 1013.91 s [opt-env-conf-test] - ],
  3460. 1013.91 s [opt-env-conf-test] - ZshCompletionScript
  3461. 1013.91 s [opt-env-conf-test] - <$> setting
  3462. 1013.91 s [opt-env-conf-test] - [ option,
  3463. 1013.91 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3464. 1013.91 s [opt-env-conf-test] - long "fish-completion-script",
  3465. 1013.91 s [opt-env-conf-test] - hidden,
  3466. 1013.91 s [opt-env-conf-test] - help "Render the fish completion script"
  3467. 1013.91 s [opt-env-conf-test] - ],
  3468. 1013.91 s [opt-env-conf-test] - setting
  3469. 1013.91 s [opt-env-conf-test] - [ help "Query completion",
  3470. 1013.91 s [opt-env-conf-test] - switch CompletionQuery,
  3471. 1013.91 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  3472. 1013.91 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  3473. 1013.91 s [opt-env-conf-test] - hidden
  3474. 1013.91 s [opt-env-conf-test] - ]
  3475. 1013.91 s [opt-env-conf-test] - <*> setting
  3476. 1013.91 s [opt-env-conf-test] - [ switch True,
  3477. 1013.91 s [opt-env-conf-test] - long "completion-enriched",
  3478. 1013.91 s [opt-env-conf-test] - value False,
  3479. 1013.91 s [opt-env-conf-test] - hidden,
  3480. 1013.91 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  3481. 1013.91 s [opt-env-conf-test] - ]
  3482. 1013.91 s [opt-env-conf-test] - <*> setting
  3483. 1013.91 s [opt-env-conf-test] - [ option,
  3484. 1013.91 s [opt-env-conf-test] - reader auto,
  3485. 1013.91 s [opt-env-conf-test] - long "completion-index",
  3486. 1013.91 s [opt-env-conf-test] - hidden,
  3487. 1013.91 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  3488. 1013.91 s [opt-env-conf-test] - ]
  3489. 1013.91 s [opt-env-conf-test] - <*> many
  3490. 1013.91 s [opt-env-conf-test] - ( setting
  3491. 1013.91 s [opt-env-conf-test] - [ option,
  3492. 1013.91 s [opt-env-conf-test] - reader str,
  3493. 1013.91 s [opt-env-conf-test] - long "completion-word",
  3494. 1013.91 s [opt-env-conf-test] - hidden,
  3495. 1013.91 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  3496. 1013.91 s [opt-env-conf-test] - ]
  3497. 1013.91 s [opt-env-conf-test] - ),
  3498. 1013.91 s [opt-env-conf-test] - ParsedNormally <$> p
  3499. 1013.91 s [opt-env-conf-test] - ]
  3500. 1013.91 s [opt-env-conf-test] + []
  3501. 1013.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
  3502. 1013.91 s [opt-env-conf-test] @@ -226,82 +226,82 @@
  3503. 1013.91 s [opt-env-conf-test] internalParser :: Parser a -> Parser (Internal a)
  3504. 1013.91 s [opt-env-conf-test] internalParser p =
  3505. 1013.91 s [opt-env-conf-test] choice
  3506. 1013.91 s [opt-env-conf-test] - [ setting
  3507. 1013.91 s [opt-env-conf-test] - [ switch ShowVersion,
  3508. 1013.91 s [opt-env-conf-test] - long "version",
  3509. 1013.91 s [opt-env-conf-test] - hidden
  3510. 1013.91 s [opt-env-conf-test] - ],
  3511. 1013.91 s [opt-env-conf-test] - setting
  3512. 1013.91 s [opt-env-conf-test] - [ switch RenderMan,
  3513. 1013.91 s [opt-env-conf-test] - long "render-man-page",
  3514. 1013.91 s [opt-env-conf-test] - hidden,
  3515. 1013.91 s [opt-env-conf-test] - help "Render a manpage"
  3516. 1013.91 s [opt-env-conf-test] - ],
  3517. 1013.91 s [opt-env-conf-test] - setting
  3518. 1013.91 s [opt-env-conf-test] - [ switch RenderDocumentation,
  3519. 1013.91 s [opt-env-conf-test] - long "render-reference-documentation",
  3520. 1013.91 s [opt-env-conf-test] - hidden,
  3521. 1013.91 s [opt-env-conf-test] - help "Render reference documentation"
  3522. 1013.91 s [opt-env-conf-test] - ],
  3523. 1013.91 s [opt-env-conf-test] - setting
  3524. 1013.91 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  3525. 1013.91 s [opt-env-conf-test] - long "render-nix-options",
  3526. 1013.91 s [opt-env-conf-test] - hidden,
  3527. 1013.91 s [opt-env-conf-test] - help "Render Nix options"
  3528. 1013.91 s [opt-env-conf-test] - ],
  3529. 1013.91 s [opt-env-conf-test] - BashCompletionScript
  3530. 1013.91 s [opt-env-conf-test] - <$> setting
  3531. 1013.91 s [opt-env-conf-test] - [ option,
  3532. 1013.91 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3533. 1013.91 s [opt-env-conf-test] - long "bash-completion-script",
  3534. 1013.92 s [opt-env-conf-test] - hidden,
  3535. 1013.92 s [opt-env-conf-test] - help "Render the bash completion script"
  3536. 1013.92 s [opt-env-conf-test] - ],
  3537. 1013.92 s [opt-env-conf-test] - ZshCompletionScript
  3538. 1013.92 s [opt-env-conf-test] - <$> setting
  3539. 1013.92 s [opt-env-conf-test] - [ option,
  3540. 1013.92 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3541. 1013.92 s [opt-env-conf-test] - long "zsh-completion-script",
  3542. 1013.92 s [opt-env-conf-test] - hidden,
  3543. 1013.92 s [opt-env-conf-test] - help "Render the zsh completion script"
  3544. 1013.92 s [opt-env-conf-test] - ],
  3545. 1013.92 s [opt-env-conf-test] - ZshCompletionScript
  3546. 1013.92 s [opt-env-conf-test] - <$> setting
  3547. 1013.92 s [opt-env-conf-test] - [ option,
  3548. 1013.92 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3549. 1013.92 s [opt-env-conf-test] - long "fish-completion-script",
  3550. 1013.92 s [opt-env-conf-test] - hidden,
  3551. 1013.92 s [opt-env-conf-test] - help "Render the fish completion script"
  3552. 1013.92 s [opt-env-conf-test] - ],
  3553. 1013.92 s [opt-env-conf-test] - setting
  3554. 1013.92 s [opt-env-conf-test] - [ help "Query completion",
  3555. 1013.92 s [opt-env-conf-test] - switch CompletionQuery,
  3556. 1013.92 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  3557. 1013.92 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  3558. 1013.92 s [opt-env-conf-test] - hidden
  3559. 1013.92 s [opt-env-conf-test] - ]
  3560. 1013.92 s [opt-env-conf-test] - <*> setting
  3561. 1013.92 s [opt-env-conf-test] - [ switch True,
  3562. 1013.92 s [opt-env-conf-test] - long "completion-enriched",
  3563. 1013.92 s [opt-env-conf-test] - value False,
  3564. 1013.92 s [opt-env-conf-test] - hidden,
  3565. 1013.92 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  3566. 1013.92 s [opt-env-conf-test] - ]
  3567. 1013.92 s [opt-env-conf-test] - <*> setting
  3568. 1013.92 s [opt-env-conf-test] - [ option,
  3569. 1013.92 s [opt-env-conf-test] - reader auto,
  3570. 1013.92 s [opt-env-conf-test] - long "completion-index",
  3571. 1013.92 s [opt-env-conf-test] - hidden,
  3572. 1013.92 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  3573. 1013.92 s [opt-env-conf-test] - ]
  3574. 1013.92 s [opt-env-conf-test] - <*> many
  3575. 1013.92 s [opt-env-conf-test] - ( setting
  3576. 1013.92 s [opt-env-conf-test] - [ option,
  3577. 1013.92 s [opt-env-conf-test] - reader str,
  3578. 1013.92 s [opt-env-conf-test] - long "completion-word",
  3579. 1013.92 s [opt-env-conf-test] - hidden,
  3580. 1013.92 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  3581. 1013.92 s [opt-env-conf-test] - ]
  3582. 1013.92 s [opt-env-conf-test] - ),
  3583. 1013.92 s [opt-env-conf-test] - ParsedNormally <$> p
  3584. 1013.92 s [opt-env-conf-test] - ]
  3585. 1013.92 s [opt-env-conf-test] + [ setting
  3586. 1013.92 s [opt-env-conf-test] + [ switch ShowVersion,
  3587. 1013.92 s [opt-env-conf-test] + long "version",
  3588. 1013.92 s [opt-env-conf-test] + hidden
  3589. 1013.92 s [opt-env-conf-test] + ],
  3590. 1013.92 s [opt-env-conf-test] + setting
  3591. 1013.92 s [opt-env-conf-test] + [ switch RenderMan,
  3592. 1013.92 s [opt-env-conf-test] + long "render-man-page",
  3593. 1013.92 s [opt-env-conf-test] + hidden,
  3594. 1013.92 s [opt-env-conf-test] + help "Render a manpage"
  3595. 1013.92 s [opt-env-conf-test] + ],
  3596. 1013.92 s [opt-env-conf-test] + setting
  3597. 1013.92 s [opt-env-conf-test] + [ switch RenderDocumentation,
  3598. 1013.92 s [opt-env-conf-test] + long "render-reference-documentation",
  3599. 1013.92 s [opt-env-conf-test] + hidden,
  3600. 1013.92 s [opt-env-conf-test] + help "Render reference documentation"
  3601. 1013.92 s [opt-env-conf-test] + ],
  3602. 1013.92 s [opt-env-conf-test] + setting
  3603. 1013.92 s [opt-env-conf-test] + [ switch RenderNixosOptions,
  3604. 1013.92 s [opt-env-conf-test] + long "render-nix-options",
  3605. 1013.92 s [opt-env-conf-test] + hidden,
  3606. 1013.92 s [opt-env-conf-test] + help "Render Nix options"
  3607. 1013.92 s [opt-env-conf-test] + ],
  3608. 1013.92 s [opt-env-conf-test] + BashCompletionScript
  3609. 1013.92 s [opt-env-conf-test] + <$> setting
  3610. 1013.92 s [opt-env-conf-test] + [ option,
  3611. 1013.92 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  3612. 1013.92 s [opt-env-conf-test] + long "bash-completion-script",
  3613. 1013.92 s [opt-env-conf-test] + hidden,
  3614. 1013.92 s [opt-env-conf-test] + help "Render the bash completion script"
  3615. 1013.92 s [opt-env-conf-test] + ],
  3616. 1013.92 s [opt-env-conf-test] + ZshCompletionScript
  3617. 1013.92 s [opt-env-conf-test] + <$> setting
  3618. 1013.92 s [opt-env-conf-test] + [ option,
  3619. 1013.92 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  3620. 1013.92 s [opt-env-conf-test] + long "zsh-completion-script",
  3621. 1013.92 s [opt-env-conf-test] + hidden,
  3622. 1013.92 s [opt-env-conf-test] + help "Render the zsh completion script"
  3623. 1013.92 s [opt-env-conf-test] + ],
  3624. 1013.92 s [opt-env-conf-test] + ZshCompletionScript
  3625. 1013.92 s [opt-env-conf-test] + <$> setting
  3626. 1013.92 s [opt-env-conf-test] + [ option,
  3627. 1013.92 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  3628. 1013.92 s [opt-env-conf-test] + long "fish-completion-script",
  3629. 1013.92 s [opt-env-conf-test] + hidden,
  3630. 1013.92 s [opt-env-conf-test] + help "Render the fish completion script"
  3631. 1013.92 s [opt-env-conf-test] + ],
  3632. 1013.92 s [opt-env-conf-test] + setting
  3633. 1013.92 s [opt-env-conf-test] + [ help "Query completion",
  3634. 1013.92 s [opt-env-conf-test] + switch CompletionQuery,
  3635. 1013.92 s [opt-env-conf-test] + -- Long string that no normal user would ever use.
  3636. 1013.92 s [opt-env-conf-test] + long "query-opt-env-conf-completion",
  3637. 1013.92 s [opt-env-conf-test] + hidden
  3638. 1013.92 s [opt-env-conf-test] + ]
  3639. 1013.92 s [opt-env-conf-test] + <*> setting
  3640. 1013.92 s [opt-env-conf-test] + [ switch True,
  3641. 1013.92 s [opt-env-conf-test] + long "completion-enriched",
  3642. 1013.92 s [opt-env-conf-test] + value False,
  3643. 1013.92 s [opt-env-conf-test] + hidden,
  3644. 1013.92 s [opt-env-conf-test] + help "Whether to enable enriched completion"
  3645. 1013.92 s [opt-env-conf-test] + ]
  3646. 1013.92 s [opt-env-conf-test] + <*> setting
  3647. 1013.92 s [opt-env-conf-test] + [ option,
  3648. 1013.92 s [opt-env-conf-test] + reader auto,
  3649. 1013.92 s [opt-env-conf-test] + long "completion-index",
  3650. 1013.92 s [opt-env-conf-test] + hidden,
  3651. 1013.92 s [opt-env-conf-test] + help "The index between the arguments where completion was invoked."
  3652. 1013.92 s [opt-env-conf-test] + ]
  3653. 1013.92 s [opt-env-conf-test] + <*> many
  3654. 1013.92 s [opt-env-conf-test] + ( setting
  3655. 1013.92 s [opt-env-conf-test] + [ option,
  3656. 1013.92 s [opt-env-conf-test] + reader str,
  3657. 1013.92 s [opt-env-conf-test] + long "completion-word",
  3658. 1013.92 s [opt-env-conf-test] + hidden,
  3659. 1013.92 s [opt-env-conf-test] + help "The words (arguments) that have already been typed"
  3660. 1013.92 s [opt-env-conf-test] + ]
  3661. 1013.92 s [opt-env-conf-test] + ),
  3662. 1013.92 s [opt-env-conf-test] + ParsedNormally <$> p
  3663. 1013.92 s [opt-env-conf-test] + ]
  3664. 1013.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
  3665. 1013.92 s [opt-env-conf-test] @@ -226,82 +226,81 @@
  3666. 1013.92 s [opt-env-conf-test] internalParser :: Parser a -> Parser (Internal a)
  3667. 1013.92 s [opt-env-conf-test] internalParser p =
  3668. 1013.92 s [opt-env-conf-test] choice
  3669. 1013.92 s [opt-env-conf-test] - [ setting
  3670. 1013.92 s [opt-env-conf-test] - [ switch ShowVersion,
  3671. 1013.92 s [opt-env-conf-test] - long "version",
  3672. 1013.92 s [opt-env-conf-test] - hidden
  3673. 1013.92 s [opt-env-conf-test] - ],
  3674. 1013.92 s [opt-env-conf-test] - setting
  3675. 1013.92 s [opt-env-conf-test] - [ switch RenderMan,
  3676. 1013.92 s [opt-env-conf-test] - long "render-man-page",
  3677. 1013.92 s [opt-env-conf-test] - hidden,
  3678. 1014.32 s [opt-env-conf-test] - help "Render a manpage"
  3679. 1014.32 s [opt-env-conf-test] - ],
  3680. 1014.32 s [opt-env-conf-test] - setting
  3681. 1014.32 s [opt-env-conf-test] - [ switch RenderDocumentation,
  3682. 1014.32 s [opt-env-conf-test] - long "render-reference-documentation",
  3683. 1014.32 s [opt-env-conf-test] - hidden,
  3684. 1014.32 s [opt-env-conf-test] - help "Render reference documentation"
  3685. 1014.32 s [opt-env-conf-test] - ],
  3686. 1014.32 s [opt-env-conf-test] - setting
  3687. 1014.32 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  3688. 1014.32 s [opt-env-conf-test] - long "render-nix-options",
  3689. 1014.32 s [opt-env-conf-test] - hidden,
  3690. 1014.32 s [opt-env-conf-test] - help "Render Nix options"
  3691. 1014.32 s [opt-env-conf-test] - ],
  3692. 1014.32 s [opt-env-conf-test] - BashCompletionScript
  3693. 1014.32 s [opt-env-conf-test] - <$> setting
  3694. 1014.32 s [opt-env-conf-test] - [ option,
  3695. 1014.32 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3696. 1014.32 s [opt-env-conf-test] - long "bash-completion-script",
  3697. 1014.32 s [opt-env-conf-test] - hidden,
  3698. 1014.32 s [opt-env-conf-test] - help "Render the bash completion script"
  3699. 1014.32 s [opt-env-conf-test] - ],
  3700. 1014.32 s [opt-env-conf-test] - ZshCompletionScript
  3701. 1014.33 s [opt-env-conf-test] - <$> setting
  3702. 1014.33 s [opt-env-conf-test] - [ option,
  3703. 1014.33 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3704. 1014.33 s [opt-env-conf-test] - long "zsh-completion-script",
  3705. 1014.33 s [opt-env-conf-test] - hidden,
  3706. 1014.33 s [opt-env-conf-test] - help "Render the zsh completion script"
  3707. 1014.33 s [opt-env-conf-test] - ],
  3708. 1014.33 s [opt-env-conf-test] - ZshCompletionScript
  3709. 1014.33 s [opt-env-conf-test] - <$> setting
  3710. 1014.33 s [opt-env-conf-test] - [ option,
  3711. 1014.33 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  3712. 1014.33 s [opt-env-conf-test] - long "fish-completion-script",
  3713. 1014.33 s [opt-env-conf-test] - hidden,
  3714. 1014.33 s [opt-env-conf-test] - help "Render the fish completion script"
  3715. 1014.33 s [opt-env-conf-test] - ],
  3716. 1014.33 s [opt-env-conf-test] - setting
  3717. 1014.33 s [opt-env-conf-test] - [ help "Query completion",
  3718. 1014.33 s [opt-env-conf-test] - switch CompletionQuery,
  3719. 1014.33 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  3720. 1014.33 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  3721. 1014.33 s [opt-env-conf-test] - hidden
  3722. 1014.33 s [opt-env-conf-test] - ]
  3723. 1014.33 s [opt-env-conf-test] - <*> setting
  3724. 1014.33 s [opt-env-conf-test] - [ switch True,
  3725. 1014.33 s [opt-env-conf-test] - long "completion-enriched",
  3726. 1014.33 s [opt-env-conf-test] - value False,
  3727. 1014.33 s [opt-env-conf-test] - hidden,
  3728. 1014.33 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  3729. 1014.33 s [opt-env-conf-test] - ]
  3730. 1014.33 s [opt-env-conf-test] - <*> setting
  3731. 1014.33 s [opt-env-conf-test] - [ option,
  3732. 1014.33 s [opt-env-conf-test] - reader auto,
  3733. 1014.33 s [opt-env-conf-test] - long "completion-index",
  3734. 1014.33 s [opt-env-conf-test] - hidden,
  3735. 1014.33 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  3736. 1014.33 s [opt-env-conf-test] - ]
  3737. 1014.33 s [opt-env-conf-test] - <*> many
  3738. 1014.33 s [opt-env-conf-test] - ( setting
  3739. 1014.33 s [opt-env-conf-test] - [ option,
  3740. 1014.33 s [opt-env-conf-test] - reader str,
  3741. 1014.33 s [opt-env-conf-test] - long "completion-word",
  3742. 1014.33 s [opt-env-conf-test] - hidden,
  3743. 1014.33 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  3744. 1014.33 s [opt-env-conf-test] - ]
  3745. 1014.33 s [opt-env-conf-test] - ),
  3746. 1014.33 s [opt-env-conf-test] - ParsedNormally <$> p
  3747. 1014.33 s [opt-env-conf-test] - ]
  3748. 1014.33 s [opt-env-conf-test] + [ setting
  3749. 1014.33 s [opt-env-conf-test] + [ switch ShowVersion,
  3750. 1014.33 s [opt-env-conf-test] + long "version",
  3751. 1014.33 s [opt-env-conf-test] + hidden
  3752. 1014.33 s [opt-env-conf-test] + ],
  3753. 1014.33 s [opt-env-conf-test] + setting
  3754. 1014.33 s [opt-env-conf-test] + [ switch RenderMan,
  3755. 1014.33 s [opt-env-conf-test] + long "render-man-page",
  3756. 1014.33 s [opt-env-conf-test] + hidden,
  3757. 1014.33 s [opt-env-conf-test] + help "Render a manpage"
  3758. 1014.33 s [opt-env-conf-test] + ],
  3759. 1014.33 s [opt-env-conf-test] + setting
  3760. 1014.33 s [opt-env-conf-test] + [ switch RenderDocumentation,
  3761. 1014.33 s [opt-env-conf-test] + long "render-reference-documentation",
  3762. 1014.33 s [opt-env-conf-test] + hidden,
  3763. 1014.33 s [opt-env-conf-test] + help "Render reference documentation"
  3764. 1014.33 s [opt-env-conf-test] + ],
  3765. 1014.33 s [opt-env-conf-test] + setting
  3766. 1014.33 s [opt-env-conf-test] + [ switch RenderNixosOptions,
  3767. 1014.33 s [opt-env-conf-test] + long "render-nix-options",
  3768. 1014.33 s [opt-env-conf-test] + hidden,
  3769. 1014.33 s [opt-env-conf-test] + help "Render Nix options"
  3770. 1014.33 s [opt-env-conf-test] + ],
  3771. 1014.33 s [opt-env-conf-test] + BashCompletionScript
  3772. 1014.33 s [opt-env-conf-test] + <$> setting
  3773. 1014.33 s [opt-env-conf-test] + [ option,
  3774. 1014.33 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  3775. 1014.33 s [opt-env-conf-test] + long "bash-completion-script",
  3776. 1014.34 s [opt-env-conf-test] + hidden,
  3777. 1014.34 s [opt-env-conf-test] + help "Render the bash completion script"
  3778. 1014.34 s [opt-env-conf-test] + ],
  3779. 1014.34 s [opt-env-conf-test] + ZshCompletionScript
  3780. 1014.34 s [opt-env-conf-test] + <$> setting
  3781. 1014.34 s [opt-env-conf-test] + [ option,
  3782. 1014.34 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  3783. 1014.34 s [opt-env-conf-test] + long "zsh-completion-script",
  3784. 1014.34 s [opt-env-conf-test] + hidden,
  3785. 1014.34 s [opt-env-conf-test] + help "Render the zsh completion script"
  3786. 1014.34 s [opt-env-conf-test] + ],
  3787. 1014.34 s [opt-env-conf-test] + ZshCompletionScript
  3788. 1014.34 s [opt-env-conf-test] + <$> setting
  3789. 1014.34 s [opt-env-conf-test] + [ option,
  3790. 1014.34 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  3791. 1014.34 s [opt-env-conf-test] + long "fish-completion-script",
  3792. 1014.34 s [opt-env-conf-test] + hidden,
  3793. 1014.34 s [opt-env-conf-test] + help "Render the fish completion script"
  3794. 1014.34 s [opt-env-conf-test] + ],
  3795. 1014.34 s [opt-env-conf-test] + setting
  3796. 1014.34 s [opt-env-conf-test] + [ help "Query completion",
  3797. 1014.34 s [opt-env-conf-test] + switch CompletionQuery,
  3798. 1014.34 s [opt-env-conf-test] + -- Long string that no normal user would ever use.
  3799. 1014.34 s [opt-env-conf-test] + long "query-opt-env-conf-completion",
  3800. 1014.34 s [opt-env-conf-test] + hidden
  3801. 1014.34 s [opt-env-conf-test] + ]
  3802. 1014.34 s [opt-env-conf-test] + <*> setting
  3803. 1014.34 s [opt-env-conf-test] + [ switch True,
  3804. 1014.34 s [opt-env-conf-test] + long "completion-enriched",
  3805. 1014.34 s [opt-env-conf-test] + value False,
  3806. 1014.34 s [opt-env-conf-test] + hidden,
  3807. 1014.34 s [opt-env-conf-test] + help "Whether to enable enriched completion"
  3808. 1014.34 s [opt-env-conf-test] + ]
  3809. 1014.34 s [opt-env-conf-test] + <*> setting
  3810. 1014.34 s [opt-env-conf-test] + [ option,
  3811. 1014.34 s [opt-env-conf-test] + reader auto,
  3812. 1014.34 s [opt-env-conf-test] + long "completion-index",
  3813. 1014.34 s [opt-env-conf-test] + hidden,
  3814. 1014.34 s [opt-env-conf-test] + help "The index between the arguments where completion was invoked."
  3815. 1014.34 s [opt-env-conf-test] + ]
  3816. 1014.34 s [opt-env-conf-test] + <*> many
  3817. 1014.34 s [opt-env-conf-test] + ( setting
  3818. 1014.34 s [opt-env-conf-test] + [ option,
  3819. 1014.34 s [opt-env-conf-test] + reader str,
  3820. 1014.34 s [opt-env-conf-test] + long "completion-word",
  3821. 1014.34 s [opt-env-conf-test] + hidden,
  3822. 1014.34 s [opt-env-conf-test] + help "The words (arguments) that have already been typed"
  3823. 1014.34 s [opt-env-conf-test] + ]
  3824. 1014.34 s [opt-env-conf-test] + )
  3825. 1014.34 s [opt-env-conf-test] +]
  3826. 1014.34 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  3827. 1014.34 s [opt-env-conf-test] @@ -198,11 +198,11 @@
  3828. 1014.34 s [opt-env-conf-test] let t = T.pack x
  3829. 1014.34 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  3830. 1014.34 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  3831. 1014.34 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  3832. 1014.34 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  3833. 1014.34 s [opt-env-conf-test] - Nothing ->
  3834. 1014.34 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  3835. 1014.34 s [opt-env-conf-test] - in (finalCaps, x : rest)
  3836. 1014.34 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  3837. 1014.34 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  3838. 1014.34 s [opt-env-conf-test] + Nothing ->
  3839. 1014.34 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  3840. 1014.34 s [opt-env-conf-test] + in (finalCaps, x : rest)
  3841. 1014.34 s [opt-env-conf-test]
  3842. 1014.34 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  3843. 1014.34 s [opt-env-conf-test] -- is supposed to.
  3844. 1014.34 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  3845. 1014.34 s [opt-env-conf-test] @@ -198,11 +198,11 @@
  3846. 1014.34 s [opt-env-conf-test] let t = T.pack x
  3847. 1014.34 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  3848. 1014.34 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  3849. 1014.34 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  3850. 1014.34 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  3851. 1014.34 s [opt-env-conf-test] - Nothing ->
  3852. 1014.34 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  3853. 1014.34 s [opt-env-conf-test] - in (finalCaps, x : rest)
  3854. 1014.34 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  3855. 1014.34 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  3856. 1014.34 s [opt-env-conf-test] + Nothing ->
  3857. 1014.34 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  3858. 1014.34 s [opt-env-conf-test] + in (finalCaps, x : rest)
  3859. 1014.34 s [opt-env-conf-test]
  3860. 1014.34 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  3861. 1014.34 s [opt-env-conf-test] -- is supposed to.
  3862. 1014.34 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  3863. 1014.34 s [opt-env-conf-test] @@ -196,13 +196,13 @@
  3864. 1014.34 s [opt-env-conf-test] [] -> (caps, [])
  3865. 1014.34 s [opt-env-conf-test] (x : xs) ->
  3866. 1014.34 s [opt-env-conf-test] let t = T.pack x
  3867. 1014.34 s [opt-env-conf-test] - in case T.stripPrefix "--settings-capabilities-disable-" t of
  3868. 1014.34 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  3869. 1014.34 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  3870. 1014.34 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  3871. 1014.34 s [opt-env-conf-test] - Nothing ->
  3872. 1014.34 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  3873. 1014.34 s [opt-env-conf-test] - in (finalCaps, x : rest)
  3874. 1014.34 s [opt-env-conf-test] + in case T.stripPrefix "--settings-capabilities-disable-" t of
  3875. 1014.34 s [opt-env-conf-test] + Just capName -> go (disableCapability (Capability capName) caps) xs
  3876. 1014.34 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  3877. 1014.34 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  3878. 1014.34 s [opt-env-conf-test] + Nothing ->
  3879. 1014.34 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  3880. 1014.34 s [opt-env-conf-test] + in (finalCaps, x : rest)
  3881. 1014.34 s [opt-env-conf-test]
  3882. 1014.34 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  3883. 1014.34 s [opt-env-conf-test] -- is supposed to.
  3884. 1014.34 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  3885. 1014.34 s [opt-env-conf-test] @@ -196,13 +196,13 @@
  3886. 1014.34 s [opt-env-conf-test] [] -> (caps, [])
  3887. 1014.34 s [opt-env-conf-test] (x : xs) ->
  3888. 1014.34 s [opt-env-conf-test] let t = T.pack x
  3889. 1014.34 s [opt-env-conf-test] - in case T.stripPrefix "--settings-capabilities-disable-" t of
  3890. 1014.34 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  3891. 1014.34 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  3892. 1014.34 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  3893. 1014.34 s [opt-env-conf-test] - Nothing ->
  3894. 1014.34 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  3895. 1014.34 s [opt-env-conf-test] - in (finalCaps, x : rest)
  3896. 1014.34 s [opt-env-conf-test] + in case T.stripPrefix "--settings-capabilities-disable-" t of
  3897. 1014.34 s [opt-env-conf-test] + Just capName -> go (disableCapability (Capability capName) caps) xs
  3898. 1014.34 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  3899. 1019.55 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  3900. 1019.57 s [opt-env-conf-test] + Nothing ->
  3901. 1019.57 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  3902. 1019.57 s [opt-env-conf-test] + in (finalCaps, x : rest)
  3903. 1019.57 s [opt-env-conf-test]
  3904. 1019.57 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  3905. 1019.57 s [opt-env-conf-test] -- is supposed to.
  3906. 1019.57 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:170:14-19
  3907. 1019.57 s [opt-env-conf-test] @@ -167,7 +167,7 @@
  3908. 1019.57 s [opt-env-conf-test] consumeExactArg arg = go
  3909. 1019.57 s [opt-env-conf-test] where
  3910. 1019.57 s [opt-env-conf-test] go = \case
  3911. 1019.57 s [opt-env-conf-test] - [] -> (False, [])
  3912. 1019.57 s [opt-env-conf-test] + [] -> (True, [])
  3913. 1019.57 s [opt-env-conf-test] (x : xs)
  3914. 1019.57 s [opt-env-conf-test] | x == arg -> (True, xs)
  3915. 1019.58 s [opt-env-conf-test] | otherwise ->
  3916. 1019.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:172:11-19
  3917. 1019.58 s [opt-env-conf-test] @@ -169,7 +169,7 @@
  3918. 1019.58 s [opt-env-conf-test] go = \case
  3919. 1019.58 s [opt-env-conf-test] [] -> (False, [])
  3920. 1019.58 s [opt-env-conf-test] (x : xs)
  3921. 1019.58 s [opt-env-conf-test] - | x == arg -> (True, xs)
  3922. 1019.58 s [opt-env-conf-test] + | True -> (True, xs)
  3923. 1019.58 s [opt-env-conf-test] | otherwise ->
  3924. 1019.58 s [opt-env-conf-test] let (found, rest) = go xs
  3925. 1019.58 s [opt-env-conf-test] in (found, x : rest)
  3926. 1019.58 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:172:11-19
  3927. 1019.58 s [opt-env-conf-test] @@ -169,7 +169,7 @@
  3928. 1019.58 s [opt-env-conf-test] go = \case
  3929. 1019.58 s [opt-env-conf-test] [] -> (False, [])
  3930. 1019.58 s [opt-env-conf-test] (x : xs)
  3931. 1019.58 s [opt-env-conf-test] - | x == arg -> (True, xs)
  3932. 1019.58 s [opt-env-conf-test] + | not (x == arg) -> (True, xs)
  3933. 1019.58 s [opt-env-conf-test] | otherwise ->
  3934. 1019.58 s [opt-env-conf-test] let (found, rest) = go xs
  3935. 1019.58 s [opt-env-conf-test] in (found, x : rest)
  3936. 1019.58 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:172:24-28
  3937. 1019.58 s [opt-env-conf-test] @@ -169,7 +169,7 @@
  3938. 1019.58 s [opt-env-conf-test] go = \case
  3939. 1019.58 s [opt-env-conf-test] [] -> (False, [])
  3940. 1019.58 s [opt-env-conf-test] (x : xs)
  3941. 1019.58 s [opt-env-conf-test] - | x == arg -> (True, xs)
  3942. 1019.58 s [opt-env-conf-test] + | x == arg -> (False, xs)
  3943. 1019.58 s [opt-env-conf-test] | otherwise ->
  3944. 1019.58 s [opt-env-conf-test] let (found, rest) = go xs
  3945. 1019.58 s [opt-env-conf-test] in (found, x : rest)
  3946. 1019.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
  3947. 1019.58 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  3948. 1019.58 s [opt-env-conf-test] | x == arg -> (True, xs)
  3949. 1019.58 s [opt-env-conf-test] | otherwise ->
  3950. 1019.58 s [opt-env-conf-test] let (found, rest) = go xs
  3951. 1019.58 s [opt-env-conf-test] - in (found, x : rest)
  3952. 1019.58 s [opt-env-conf-test] + in (True, x : rest)
  3953. 1019.58 s [opt-env-conf-test]
  3954. 1019.58 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  3955. 1019.58 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  3956. 1019.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
  3957. 1019.58 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  3958. 1019.58 s [opt-env-conf-test] | x == arg -> (True, xs)
  3959. 1019.58 s [opt-env-conf-test] | otherwise ->
  3960. 1019.58 s [opt-env-conf-test] let (found, rest) = go xs
  3961. 1019.58 s [opt-env-conf-test] - in (found, x : rest)
  3962. 1019.58 s [opt-env-conf-test] + in (False, x : rest)
  3963. 1019.58 s [opt-env-conf-test]
  3964. 1019.58 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  3965. 1019.58 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  3966. 1019.58 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:175:18-23
  3967. 1019.58 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  3968. 1019.58 s [opt-env-conf-test] | x == arg -> (True, xs)
  3969. 1019.58 s [opt-env-conf-test] | otherwise ->
  3970. 1019.58 s [opt-env-conf-test] let (found, rest) = go xs
  3971. 1019.58 s [opt-env-conf-test] - in (found, x : rest)
  3972. 1019.58 s [opt-env-conf-test] + in (not (found), x : rest)
  3973. 1019.58 s [opt-env-conf-test]
  3974. 1019.58 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  3975. 1019.58 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  3976. 1019.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
  3977. 1019.58 s [opt-env-conf-test] @@ -181,7 +181,7 @@
  3978. 1019.58 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  3979. 1019.58 s [opt-env-conf-test] consumeHelpMode as =
  3980. 1019.58 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  3981. 1019.58 s [opt-env-conf-test] - in if found
  3982. 1019.58 s [opt-env-conf-test] + in if True
  3983. 1019.58 s [opt-env-conf-test] then (True, as')
  3984. 1019.58 s [opt-env-conf-test] else consumeExactArg "-h" as'
  3985. 1019.58 s [opt-env-conf-test]
  3986. 1019.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
  3987. 1019.58 s [opt-env-conf-test] @@ -181,7 +181,7 @@
  3988. 1019.58 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  3989. 1019.58 s [opt-env-conf-test] consumeHelpMode as =
  3990. 1019.58 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  3991. 1019.58 s [opt-env-conf-test] - in if found
  3992. 1019.58 s [opt-env-conf-test] + in if False
  3993. 1019.58 s [opt-env-conf-test] then (True, as')
  3994. 1019.58 s [opt-env-conf-test] else consumeExactArg "-h" as'
  3995. 1019.58 s [opt-env-conf-test]
  3996. 1019.58 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:184:10-15
  3997. 1019.58 s [opt-env-conf-test] @@ -181,7 +181,7 @@
  3998. 1019.58 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  3999. 1019.58 s [opt-env-conf-test] consumeHelpMode as =
  4000. 1019.58 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  4001. 1019.58 s [opt-env-conf-test] - in if found
  4002. 1019.58 s [opt-env-conf-test] + in if not (found)
  4003. 1019.58 s [opt-env-conf-test] then (True, as')
  4004. 1019.58 s [opt-env-conf-test] else consumeExactArg "-h" as'
  4005. 1019.58 s [opt-env-conf-test]
  4006. 1019.58 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:185:15-19
  4007. 1019.58 s [opt-env-conf-test] @@ -182,7 +182,7 @@
  4008. 1019.58 s [opt-env-conf-test] consumeHelpMode as =
  4009. 1019.58 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  4010. 1019.58 s [opt-env-conf-test] in if found
  4011. 1019.58 s [opt-env-conf-test] - then (True, as')
  4012. 1019.58 s [opt-env-conf-test] + then (False, as')
  4013. 1019.58 s [opt-env-conf-test] else consumeExactArg "-h" as'
  4014. 1019.58 s [opt-env-conf-test]
  4015. 1019.58 s [opt-env-conf-test] consumeCheckMode :: [String] -> (Bool, [String])
  4016. 1019.58 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Main.hs:184:7-38
  4017. 1019.58 s [opt-env-conf-test] @@ -181,9 +181,9 @@
  4018. 1019.58 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  4019. 1019.58 s [opt-env-conf-test] consumeHelpMode as =
  4020. 1019.58 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  4021. 1019.58 s [opt-env-conf-test] - in if found
  4022. 1019.58 s [opt-env-conf-test] - then (True, as')
  4023. 1019.58 s [opt-env-conf-test] - else consumeExactArg "-h" as'
  4024. 1019.58 s [opt-env-conf-test] + in if found
  4025. 1019.58 s [opt-env-conf-test] + then (True, as')
  4026. 1019.58 s [opt-env-conf-test] + else consumeExactArg "-h" as'
  4027. 1019.58 s [opt-env-conf-test]
  4028. 1019.58 s [opt-env-conf-test] consumeCheckMode :: [String] -> (Bool, [String])
  4029. 1019.58 s [opt-env-conf-test] consumeCheckMode = consumeExactArg "--run-settings-check"
  4030. 1019.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
  4031. 1019.58 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  4032. 1019.58 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  4033. 1019.58 s [opt-env-conf-test]
  4034. 1019.58 s [opt-env-conf-test] mDebugMode <-
  4035. 1019.58 s [opt-env-conf-test] - if debugMode
  4036. 1019.58 s [opt-env-conf-test] + if True
  4037. 1019.58 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  4038. 1019.58 s [opt-env-conf-test] else pure Nothing
  4039. 1019.58 s [opt-env-conf-test]
  4040. 1019.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
  4041. 1019.58 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  4042. 1019.58 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  4043. 1019.58 s [opt-env-conf-test]
  4044. 1019.58 s [opt-env-conf-test] mDebugMode <-
  4045. 1019.58 s [opt-env-conf-test] - if debugMode
  4046. 1019.58 s [opt-env-conf-test] + if False
  4047. 1019.58 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  4048. 1019.58 s [opt-env-conf-test] else pure Nothing
  4049. 1019.58 s [opt-env-conf-test]
  4050. 1019.58 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:83:12-21
  4051. 1019.58 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  4052. 1019.58 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  4053. 1019.58 s [opt-env-conf-test]
  4054. 1019.58 s [opt-env-conf-test] mDebugMode <-
  4055. 1019.58 s [opt-env-conf-test] - if debugMode
  4056. 1019.58 s [opt-env-conf-test] + if not (debugMode)
  4057. 1019.58 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  4058. 1019.58 s [opt-env-conf-test] else pure Nothing
  4059. 1019.58 s [opt-env-conf-test]
  4060. 1019.58 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Main.hs:83:9-28
  4061. 1019.58 s [opt-env-conf-test] @@ -80,9 +80,9 @@
  4062. 1019.58 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  4063. 1019.58 s [opt-env-conf-test]
  4064. 1019.58 s [opt-env-conf-test] mDebugMode <-
  4065. 1019.58 s [opt-env-conf-test] - if debugMode
  4066. 1019.58 s [opt-env-conf-test] - then Just <$> getTerminalCapabilitiesFromHandle stderr
  4067. 1019.58 s [opt-env-conf-test] - else pure Nothing
  4068. 1019.58 s [opt-env-conf-test] + if debugMode
  4069. 1019.58 s [opt-env-conf-test] + then Just <$> getTerminalCapabilitiesFromHandle stderr
  4070. 1019.58 s [opt-env-conf-test] + else pure Nothing
  4071. 1019.58 s [opt-env-conf-test]
  4072. 1019.58 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  4073. 1019.58 s [opt-env-conf-test]
  4074. 1019.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
  4075. 1019.58 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  4076. 1019.58 s [opt-env-conf-test]
  4077. 1019.58 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  4078. 1019.58 s [opt-env-conf-test]
  4079. 1019.58 s [opt-env-conf-test] - if helpMode
  4080. 1019.58 s [opt-env-conf-test] + if True
  4081. 1019.58 s [opt-env-conf-test] then do
  4082. 1019.58 s [opt-env-conf-test] progname <- getProgName
  4083. 1019.58 s [opt-env-conf-test] errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
  4084. 1019.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
  4085. 1019.59 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  4086. 1019.59 s [opt-env-conf-test]
  4087. 1019.59 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  4088. 1019.59 s [opt-env-conf-test]
  4089. 1019.59 s [opt-env-conf-test] - if helpMode
  4090. 1019.59 s [opt-env-conf-test] + if False
  4091. 1019.59 s [opt-env-conf-test] then do
  4092. 1019.59 s [opt-env-conf-test] progname <- getProgName
  4093. 1019.59 s [opt-env-conf-test] errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
  4094. 1019.59 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:89:10-18
  4095. 1019.59 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  4096. 1019.59 s [opt-env-conf-test]
  4097. 1019.59 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  4098. 1019.59 s [opt-env-conf-test]
  4099. 1019.59 s [opt-env-conf-test] - if helpMode
  4100. 1019.59 s [opt-env-conf-test] + if not (helpMode)
  4101. 1019.59 s [opt-env-conf-test] then do
  4102. 1019.59 s [opt-env-conf-test] progname <- getProgName
  4103. 1019.59 s [opt-env-conf-test] errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
  4104. 1019.59 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  4105. 1019.59 s [opt-env-conf-test] @@ -97,9 +97,9 @@
  4106. 1019.59 s [opt-env-conf-test] exitFailure
  4107. 1019.59 s [opt-env-conf-test] Right mCommandDoc -> do
  4108. 1019.59 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  4109. 1019.59 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  4110. 1019.59 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  4111. 1019.59 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  4112. 1019.59 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  4113. 1019.59 s [opt-env-conf-test] + Nothing -> renderHelpPage progname version progDesc docs
  4114. 1019.59 s [opt-env-conf-test] + Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  4115. 1019.59 s [opt-env-conf-test] exitSuccess
  4116. 1019.59 s [opt-env-conf-test] else do
  4117. 1019.59 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  4118. 1019.59 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  4119. 1019.59 s [opt-env-conf-test] @@ -97,9 +97,9 @@
  4120. 1019.59 s [opt-env-conf-test] exitFailure
  4121. 1019.59 s [opt-env-conf-test] Right mCommandDoc -> do
  4122. 1019.59 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  4123. 1019.59 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  4124. 1019.59 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  4125. 1019.59 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  4126. 1019.59 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  4127. 1019.59 s [opt-env-conf-test] + Nothing -> renderHelpPage progname version progDesc docs
  4128. 1019.59 s [opt-env-conf-test] + Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  4129. 1019.59 s [opt-env-conf-test] exitSuccess
  4130. 1019.59 s [opt-env-conf-test] else do
  4131. 1019.59 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  4132. 1019.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
  4133. 1019.59 s [opt-env-conf-test] @@ -108,7 +108,7 @@
  4134. 1019.59 s [opt-env-conf-test] let readyArgs = Args.parseArgs args'''
  4135. 1019.59 s [opt-env-conf-test]
  4136. 1019.59 s [opt-env-conf-test] let mConfig = Nothing -- We start with no config loaded.
  4137. 1020.07 s [opt-env-conf-test] - if checkMode
  4138. 1020.07 s [opt-env-conf-test] + if True
  4139. 1020.07 s [opt-env-conf-test] then runSettingsCheck capabilities p readyArgs envVars mConfig
  4140. 1020.07 s [opt-env-conf-test] else do
  4141. 1020.07 s [opt-env-conf-test] let p' = internalParser p
  4142. 1020.07 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
  4143. 1020.07 s [opt-env-conf-test] @@ -108,7 +108,7 @@
  4144. 1020.07 s [opt-env-conf-test] let readyArgs = Args.parseArgs args'''
  4145. 1020.07 s [opt-env-conf-test]
  4146. 1020.07 s [opt-env-conf-test] let mConfig = Nothing -- We start with no config loaded.
  4147. 1020.07 s [opt-env-conf-test] - if checkMode
  4148. 1020.07 s [opt-env-conf-test] + if False
  4149. 1020.07 s [opt-env-conf-test] then runSettingsCheck capabilities p readyArgs envVars mConfig
  4150. 1020.07 s [opt-env-conf-test] else do
  4151. 1020.07 s [opt-env-conf-test] let p' = internalParser p
  4152. 1020.07 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
  4153. 1020.07 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  4154. 1020.07 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  4155. 1020.07 s [opt-env-conf-test] exitSuccess
  4156. 1020.07 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  4157. 1020.07 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  4158. 1020.07 s [opt-env-conf-test] + runCompletionQuery p' True index ws
  4159. 1020.07 s [opt-env-conf-test] exitSuccess
  4160. 1020.07 s [opt-env-conf-test] ParsedNormally a -> pure a
  4161. 1020.07 s [opt-env-conf-test]
  4162. 1020.07 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
  4163. 1020.07 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  4164. 1020.07 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  4165. 1020.07 s [opt-env-conf-test] exitSuccess
  4166. 1020.07 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  4167. 1020.07 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  4168. 1020.07 s [opt-env-conf-test] + runCompletionQuery p' False index ws
  4169. 1020.07 s [opt-env-conf-test] exitSuccess
  4170. 1020.07 s [opt-env-conf-test] ParsedNormally a -> pure a
  4171. 1020.07 s [opt-env-conf-test]
  4172. 1020.07 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:111:14-23
  4173. 1020.07 s [opt-env-conf-test] @@ -108,7 +108,7 @@
  4174. 1020.07 s [opt-env-conf-test] let readyArgs = Args.parseArgs args'''
  4175. 1020.07 s [opt-env-conf-test]
  4176. 1020.07 s [opt-env-conf-test] let mConfig = Nothing -- We start with no config loaded.
  4177. 1020.07 s [opt-env-conf-test] - if checkMode
  4178. 1020.07 s [opt-env-conf-test] + if not (checkMode)
  4179. 1020.07 s [opt-env-conf-test] then runSettingsCheck capabilities p readyArgs envVars mConfig
  4180. 1020.07 s [opt-env-conf-test] else do
  4181. 1020.07 s [opt-env-conf-test] let p' = internalParser p
  4182. 1020.07 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:161:43-51
  4183. 1020.07 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  4184. 1020.07 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  4185. 1020.07 s [opt-env-conf-test] exitSuccess
  4186. 1020.07 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  4187. 1020.07 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  4188. 1020.08 s [opt-env-conf-test] + runCompletionQuery p' not (enriched) index ws
  4189. 1020.08 s [opt-env-conf-test] exitSuccess
  4190. 1020.08 s [opt-env-conf-test] ParsedNormally a -> pure a
  4191. 1020.08 s [opt-env-conf-test]
  4192. 1020.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  4193. 1020.08 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  4194. 1020.08 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  4195. 1020.08 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  4196. 1020.08 s [opt-env-conf-test] exitFailure
  4197. 1020.08 s [opt-env-conf-test] - Right i -> case i of
  4198. 1020.08 s [opt-env-conf-test] - ShowVersion -> do
  4199. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4200. 1020.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4201. 1020.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4202. 1020.08 s [opt-env-conf-test] - exitSuccess
  4203. 1020.08 s [opt-env-conf-test] - RenderMan -> do
  4204. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4205. 1020.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4206. 1020.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4207. 1020.08 s [opt-env-conf-test] - exitSuccess
  4208. 1020.08 s [opt-env-conf-test] - RenderDocumentation -> do
  4209. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4210. 1020.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4211. 1020.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4212. 1020.08 s [opt-env-conf-test] - exitSuccess
  4213. 1020.08 s [opt-env-conf-test] - RenderNixosOptions -> do
  4214. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4215. 1020.08 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4216. 1020.08 s [opt-env-conf-test] - exitSuccess
  4217. 1020.08 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  4218. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4219. 1020.08 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  4220. 1020.08 s [opt-env-conf-test] - exitSuccess
  4221. 1020.08 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  4222. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4223. 1020.08 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  4224. 1020.08 s [opt-env-conf-test] - exitSuccess
  4225. 1020.08 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  4226. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4227. 1020.08 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  4228. 1020.08 s [opt-env-conf-test] - exitSuccess
  4229. 1020.08 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  4230. 1020.08 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  4231. 1020.08 s [opt-env-conf-test] - exitSuccess
  4232. 1020.08 s [opt-env-conf-test] - ParsedNormally a -> pure a
  4233. 1020.08 s [opt-env-conf-test] + Right i -> case i of
  4234. 1020.08 s [opt-env-conf-test] + ShowVersion -> do
  4235. 1020.08 s [opt-env-conf-test] + progname <- getProgName
  4236. 1020.08 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4237. 1020.08 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4238. 1020.08 s [opt-env-conf-test] + exitSuccess
  4239. 1020.08 s [opt-env-conf-test] + RenderMan -> do
  4240. 1020.08 s [opt-env-conf-test] + progname <- getProgName
  4241. 1020.08 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4242. 1020.08 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4243. 1020.08 s [opt-env-conf-test] + exitSuccess
  4244. 1020.08 s [opt-env-conf-test] + RenderDocumentation -> do
  4245. 1020.08 s [opt-env-conf-test] + progname <- getProgName
  4246. 1020.08 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4247. 1020.08 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4248. 1020.08 s [opt-env-conf-test] + exitSuccess
  4249. 1020.08 s [opt-env-conf-test] + RenderNixosOptions -> do
  4250. 1020.08 s [opt-env-conf-test] + progname <- getProgName
  4251. 1020.08 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4252. 1020.08 s [opt-env-conf-test] + exitSuccess
  4253. 1020.08 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  4254. 1020.08 s [opt-env-conf-test] + progname <- getProgName
  4255. 1020.08 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  4256. 1020.08 s [opt-env-conf-test] + exitSuccess
  4257. 1020.08 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  4258. 1020.08 s [opt-env-conf-test] + progname <- getProgName
  4259. 1020.08 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  4260. 1020.08 s [opt-env-conf-test] + exitSuccess
  4261. 1020.08 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  4262. 1020.08 s [opt-env-conf-test] + progname <- getProgName
  4263. 1020.08 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  4264. 1020.08 s [opt-env-conf-test] + exitSuccess
  4265. 1020.08 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  4266. 1020.08 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  4267. 1020.08 s [opt-env-conf-test] + exitSuccess
  4268. 1020.08 s [opt-env-conf-test] + ParsedNormally a -> pure a
  4269. 1020.08 s [opt-env-conf-test]
  4270. 1020.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.
  4271. 1020.08 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  4272. 1020.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  4273. 1020.08 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  4274. 1020.08 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  4275. 1020.08 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  4276. 1020.08 s [opt-env-conf-test] exitFailure
  4277. 1020.08 s [opt-env-conf-test] - Right i -> case i of
  4278. 1020.08 s [opt-env-conf-test] - ShowVersion -> do
  4279. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4280. 1020.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4281. 1020.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4282. 1020.08 s [opt-env-conf-test] - exitSuccess
  4283. 1020.08 s [opt-env-conf-test] - RenderMan -> do
  4284. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4285. 1020.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4286. 1020.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4287. 1020.08 s [opt-env-conf-test] - exitSuccess
  4288. 1020.08 s [opt-env-conf-test] - RenderDocumentation -> do
  4289. 1020.08 s [opt-env-conf-test] - progname <- getProgName
  4290. 1020.08 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4291. 1020.08 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4292. 1020.08 s [opt-env-conf-test] - exitSuccess
  4293. 1020.08 s [opt-env-conf-test] - RenderNixosOptions -> do
  4294. 1020.09 s [opt-env-conf-test] - progname <- getProgName
  4295. 1020.09 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4296. 1020.09 s [opt-env-conf-test] - exitSuccess
  4297. 1020.09 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  4298. 1020.09 s [opt-env-conf-test] - progname <- getProgName
  4299. 1020.09 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  4300. 1020.09 s [opt-env-conf-test] - exitSuccess
  4301. 1020.09 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  4302. 1020.09 s [opt-env-conf-test] - progname <- getProgName
  4303. 1020.38 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  4304. 1020.39 s [opt-env-conf-test] - exitSuccess
  4305. 1020.39 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  4306. 1020.39 s [opt-env-conf-test] - progname <- getProgName
  4307. 1020.39 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  4308. 1020.39 s [opt-env-conf-test] - exitSuccess
  4309. 1020.39 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  4310. 1020.39 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  4311. 1020.39 s [opt-env-conf-test] - exitSuccess
  4312. 1020.39 s [opt-env-conf-test] - ParsedNormally a -> pure a
  4313. 1020.39 s [opt-env-conf-test] + Right i -> case i of
  4314. 1020.39 s [opt-env-conf-test] + ShowVersion -> do
  4315. 1020.39 s [opt-env-conf-test] + progname <- getProgName
  4316. 1020.39 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4317. 1020.39 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4318. 1020.39 s [opt-env-conf-test] + exitSuccess
  4319. 1020.39 s [opt-env-conf-test] + RenderMan -> do
  4320. 1020.39 s [opt-env-conf-test] + progname <- getProgName
  4321. 1020.39 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4322. 1020.39 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4323. 1020.39 s [opt-env-conf-test] + exitSuccess
  4324. 1020.39 s [opt-env-conf-test] + RenderDocumentation -> do
  4325. 1020.39 s [opt-env-conf-test] + progname <- getProgName
  4326. 1020.39 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4327. 1020.39 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4328. 1020.39 s [opt-env-conf-test] + exitSuccess
  4329. 1020.39 s [opt-env-conf-test] + RenderNixosOptions -> do
  4330. 1020.39 s [opt-env-conf-test] + progname <- getProgName
  4331. 1020.39 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4332. 1020.39 s [opt-env-conf-test] + exitSuccess
  4333. 1020.39 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  4334. 1020.39 s [opt-env-conf-test] + progname <- getProgName
  4335. 1020.39 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  4336. 1020.39 s [opt-env-conf-test] + exitSuccess
  4337. 1020.39 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  4338. 1020.39 s [opt-env-conf-test] + progname <- getProgName
  4339. 1020.39 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  4340. 1020.39 s [opt-env-conf-test] + exitSuccess
  4341. 1020.39 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  4342. 1020.39 s [opt-env-conf-test] + progname <- getProgName
  4343. 1020.39 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  4344. 1020.39 s [opt-env-conf-test] + exitSuccess
  4345. 1020.40 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  4346. 1020.40 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  4347. 1020.40 s [opt-env-conf-test] + exitSuccess
  4348. 1020.40 s [opt-env-conf-test] + ParsedNormally a -> pure a
  4349. 1020.40 s [opt-env-conf-test]
  4350. 1020.40 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.
  4351. 1020.40 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  4352. 1020.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  4353. 1020.40 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  4354. 1020.40 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  4355. 1020.40 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  4356. 1020.40 s [opt-env-conf-test] exitFailure
  4357. 1020.40 s [opt-env-conf-test] - Right i -> case i of
  4358. 1020.40 s [opt-env-conf-test] - ShowVersion -> do
  4359. 1020.40 s [opt-env-conf-test] - progname <- getProgName
  4360. 1020.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4361. 1020.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4362. 1020.40 s [opt-env-conf-test] - exitSuccess
  4363. 1020.40 s [opt-env-conf-test] - RenderMan -> do
  4364. 1020.40 s [opt-env-conf-test] - progname <- getProgName
  4365. 1020.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4366. 1020.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4367. 1020.40 s [opt-env-conf-test] - exitSuccess
  4368. 1020.40 s [opt-env-conf-test] - RenderDocumentation -> do
  4369. 1020.40 s [opt-env-conf-test] - progname <- getProgName
  4370. 1020.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4371. 1020.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4372. 1020.40 s [opt-env-conf-test] - exitSuccess
  4373. 1020.40 s [opt-env-conf-test] - RenderNixosOptions -> do
  4374. 1020.40 s [opt-env-conf-test] - progname <- getProgName
  4375. 1020.40 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4376. 1020.40 s [opt-env-conf-test] - exitSuccess
  4377. 1020.40 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  4378. 1020.40 s [opt-env-conf-test] - progname <- getProgName
  4379. 1020.40 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  4380. 1020.40 s [opt-env-conf-test] - exitSuccess
  4381. 1020.40 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  4382. 1020.40 s [opt-env-conf-test] - progname <- getProgName
  4383. 1020.40 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  4384. 1020.40 s [opt-env-conf-test] - exitSuccess
  4385. 1020.40 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  4386. 1020.40 s [opt-env-conf-test] - progname <- getProgName
  4387. 1020.40 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  4388. 1020.40 s [opt-env-conf-test] - exitSuccess
  4389. 1020.40 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  4390. 1020.40 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  4391. 1020.40 s [opt-env-conf-test] - exitSuccess
  4392. 1020.40 s [opt-env-conf-test] - ParsedNormally a -> pure a
  4393. 1020.40 s [opt-env-conf-test] + Right i -> case i of
  4394. 1020.40 s [opt-env-conf-test] + ShowVersion -> do
  4395. 1020.40 s [opt-env-conf-test] + progname <- getProgName
  4396. 1020.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4397. 1020.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4398. 1020.40 s [opt-env-conf-test] + exitSuccess
  4399. 1020.40 s [opt-env-conf-test] + RenderMan -> do
  4400. 1020.40 s [opt-env-conf-test] + progname <- getProgName
  4401. 1020.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4402. 1020.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4403. 1020.40 s [opt-env-conf-test] + exitSuccess
  4404. 1020.40 s [opt-env-conf-test] + RenderDocumentation -> do
  4405. 1020.40 s [opt-env-conf-test] + progname <- getProgName
  4406. 1020.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4407. 1020.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4408. 1020.41 s [opt-env-conf-test] + exitSuccess
  4409. 1020.41 s [opt-env-conf-test] + RenderNixosOptions -> do
  4410. 1020.41 s [opt-env-conf-test] + progname <- getProgName
  4411. 1020.41 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4412. 1020.41 s [opt-env-conf-test] + exitSuccess
  4413. 1020.41 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  4414. 1020.41 s [opt-env-conf-test] + progname <- getProgName
  4415. 1020.41 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  4416. 1020.41 s [opt-env-conf-test] + exitSuccess
  4417. 1020.41 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  4418. 1020.41 s [opt-env-conf-test] + progname <- getProgName
  4419. 1020.41 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  4420. 1020.41 s [opt-env-conf-test] + exitSuccess
  4421. 1020.41 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  4422. 1020.41 s [opt-env-conf-test] + progname <- getProgName
  4423. 1020.41 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  4424. 1020.41 s [opt-env-conf-test] + exitSuccess
  4425. 1020.41 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  4426. 1020.41 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  4427. 1020.41 s [opt-env-conf-test] + exitSuccess
  4428. 1020.41 s [opt-env-conf-test] + ParsedNormally a -> pure a
  4429. 1020.41 s [opt-env-conf-test]
  4430. 1020.41 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.
  4431. 1020.41 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  4432. 1020.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  4433. 1020.41 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  4434. 1020.41 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  4435. 1020.41 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  4436. 1020.41 s [opt-env-conf-test] exitFailure
  4437. 1020.41 s [opt-env-conf-test] - Right i -> case i of
  4438. 1020.41 s [opt-env-conf-test] - ShowVersion -> do
  4439. 1020.41 s [opt-env-conf-test] - progname <- getProgName
  4440. 1020.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4441. 1020.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4442. 1020.41 s [opt-env-conf-test] - exitSuccess
  4443. 1020.41 s [opt-env-conf-test] - RenderMan -> do
  4444. 1020.41 s [opt-env-conf-test] - progname <- getProgName
  4445. 1020.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4446. 1020.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4447. 1020.41 s [opt-env-conf-test] - exitSuccess
  4448. 1020.41 s [opt-env-conf-test] - RenderDocumentation -> do
  4449. 1020.41 s [opt-env-conf-test] - progname <- getProgName
  4450. 1020.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4451. 1020.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4452. 1020.41 s [opt-env-conf-test] - exitSuccess
  4453. 1020.41 s [opt-env-conf-test] - RenderNixosOptions -> do
  4454. 1020.41 s [opt-env-conf-test] - progname <- getProgName
  4455. 1020.41 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4456. 1020.41 s [opt-env-conf-test] - exitSuccess
  4457. 1020.77 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  4458. 1020.77 s [opt-env-conf-test] - progname <- getProgName
  4459. 1020.77 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  4460. 1020.77 s [opt-env-conf-test] - exitSuccess
  4461. 1020.77 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  4462. 1020.77 s [opt-env-conf-test] - progname <- getProgName
  4463. 1020.77 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  4464. 1020.77 s [opt-env-conf-test] - exitSuccess
  4465. 1020.77 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  4466. 1020.77 s [opt-env-conf-test] - progname <- getProgName
  4467. 1020.77 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  4468. 1020.77 s [opt-env-conf-test] - exitSuccess
  4469. 1020.77 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  4470. 1020.77 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  4471. 1020.77 s [opt-env-conf-test] - exitSuccess
  4472. 1020.77 s [opt-env-conf-test] - ParsedNormally a -> pure a
  4473. 1020.77 s [opt-env-conf-test] + Right i -> case i of
  4474. 1020.77 s [opt-env-conf-test] + ShowVersion -> do
  4475. 1020.77 s [opt-env-conf-test] + progname <- getProgName
  4476. 1020.77 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4477. 1020.77 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4478. 1020.77 s [opt-env-conf-test] + exitSuccess
  4479. 1020.78 s [opt-env-conf-test] + RenderMan -> do
  4480. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4481. 1020.78 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4482. 1020.78 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4483. 1020.78 s [opt-env-conf-test] + exitSuccess
  4484. 1020.78 s [opt-env-conf-test] + RenderDocumentation -> do
  4485. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4486. 1020.78 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4487. 1020.78 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4488. 1020.78 s [opt-env-conf-test] + exitSuccess
  4489. 1020.78 s [opt-env-conf-test] + RenderNixosOptions -> do
  4490. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4491. 1020.78 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4492. 1020.78 s [opt-env-conf-test] + exitSuccess
  4493. 1020.78 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  4494. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4495. 1020.78 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  4496. 1020.78 s [opt-env-conf-test] + exitSuccess
  4497. 1020.78 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  4498. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4499. 1020.78 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  4500. 1020.78 s [opt-env-conf-test] + exitSuccess
  4501. 1020.78 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  4502. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4503. 1020.78 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  4504. 1020.78 s [opt-env-conf-test] + exitSuccess
  4505. 1020.78 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  4506. 1020.78 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  4507. 1020.78 s [opt-env-conf-test] + exitSuccess
  4508. 1020.78 s [opt-env-conf-test] + ParsedNormally a -> pure a
  4509. 1020.78 s [opt-env-conf-test]
  4510. 1020.78 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.
  4511. 1020.78 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  4512. 1020.78 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  4513. 1020.78 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  4514. 1020.78 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  4515. 1020.78 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  4516. 1020.78 s [opt-env-conf-test] exitFailure
  4517. 1020.78 s [opt-env-conf-test] - Right i -> case i of
  4518. 1020.78 s [opt-env-conf-test] - ShowVersion -> do
  4519. 1020.78 s [opt-env-conf-test] - progname <- getProgName
  4520. 1020.78 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4521. 1020.78 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4522. 1020.78 s [opt-env-conf-test] - exitSuccess
  4523. 1020.78 s [opt-env-conf-test] - RenderMan -> do
  4524. 1020.78 s [opt-env-conf-test] - progname <- getProgName
  4525. 1020.78 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4526. 1020.78 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4527. 1020.78 s [opt-env-conf-test] - exitSuccess
  4528. 1020.78 s [opt-env-conf-test] - RenderDocumentation -> do
  4529. 1020.78 s [opt-env-conf-test] - progname <- getProgName
  4530. 1020.78 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4531. 1020.78 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4532. 1020.78 s [opt-env-conf-test] - exitSuccess
  4533. 1020.78 s [opt-env-conf-test] - RenderNixosOptions -> do
  4534. 1020.78 s [opt-env-conf-test] - progname <- getProgName
  4535. 1020.78 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4536. 1020.78 s [opt-env-conf-test] - exitSuccess
  4537. 1020.78 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  4538. 1020.78 s [opt-env-conf-test] - progname <- getProgName
  4539. 1020.78 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  4540. 1020.78 s [opt-env-conf-test] - exitSuccess
  4541. 1020.78 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  4542. 1020.78 s [opt-env-conf-test] - progname <- getProgName
  4543. 1020.78 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  4544. 1020.78 s [opt-env-conf-test] - exitSuccess
  4545. 1020.78 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  4546. 1020.78 s [opt-env-conf-test] - progname <- getProgName
  4547. 1020.78 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  4548. 1020.78 s [opt-env-conf-test] - exitSuccess
  4549. 1020.78 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  4550. 1020.78 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  4551. 1020.78 s [opt-env-conf-test] - exitSuccess
  4552. 1020.78 s [opt-env-conf-test] - ParsedNormally a -> pure a
  4553. 1020.78 s [opt-env-conf-test] + Right i -> case i of
  4554. 1020.78 s [opt-env-conf-test] + ShowVersion -> do
  4555. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4556. 1020.78 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4557. 1020.78 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4558. 1020.78 s [opt-env-conf-test] + exitSuccess
  4559. 1020.78 s [opt-env-conf-test] + RenderMan -> do
  4560. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4561. 1020.78 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4562. 1020.78 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4563. 1020.78 s [opt-env-conf-test] + exitSuccess
  4564. 1020.78 s [opt-env-conf-test] + RenderDocumentation -> do
  4565. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4566. 1020.78 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4567. 1020.78 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4568. 1020.78 s [opt-env-conf-test] + exitSuccess
  4569. 1020.78 s [opt-env-conf-test] + RenderNixosOptions -> do
  4570. 1020.78 s [opt-env-conf-test] + progname <- getProgName
  4571. 1020.79 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4572. 1020.79 s [opt-env-conf-test] + exitSuccess
  4573. 1020.79 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  4574. 1020.79 s [opt-env-conf-test] + progname <- getProgName
  4575. 1020.79 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  4576. 1020.79 s [opt-env-conf-test] + exitSuccess
  4577. 1020.79 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  4578. 1020.79 s [opt-env-conf-test] + progname <- getProgName
  4579. 1020.79 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  4580. 1020.79 s [opt-env-conf-test] + exitSuccess
  4581. 1020.79 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  4582. 1020.79 s [opt-env-conf-test] + progname <- getProgName
  4583. 1020.79 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  4584. 1020.79 s [opt-env-conf-test] + exitSuccess
  4585. 1020.79 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  4586. 1020.79 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  4587. 1020.79 s [opt-env-conf-test] + exitSuccess
  4588. 1020.79 s [opt-env-conf-test] + ParsedNormally a -> pure a
  4589. 1020.79 s [opt-env-conf-test]
  4590. 1020.79 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.
  4591. 1020.79 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  4592. 1020.79 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  4593. 1020.79 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  4594. 1020.79 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  4595. 1020.79 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  4596. 1020.79 s [opt-env-conf-test] exitFailure
  4597. 1020.79 s [opt-env-conf-test] - Right i -> case i of
  4598. 1020.79 s [opt-env-conf-test] - ShowVersion -> do
  4599. 1020.79 s [opt-env-conf-test] - progname <- getProgName
  4600. 1020.79 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4601. 1020.79 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4602. 1020.79 s [opt-env-conf-test] - exitSuccess
  4603. 1020.79 s [opt-env-conf-test] - RenderMan -> do
  4604. 1020.79 s [opt-env-conf-test] - progname <- getProgName
  4605. 1020.79 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4606. 1020.79 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4607. 1020.79 s [opt-env-conf-test] - exitSuccess
  4608. 1020.79 s [opt-env-conf-test] - RenderDocumentation -> do
  4609. 1020.79 s [opt-env-conf-test] - progname <- getProgName
  4610. 1020.79 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  4611. 1020.95 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4612. 1020.95 s [opt-env-conf-test] - exitSuccess
  4613. 1020.95 s [opt-env-conf-test] - RenderNixosOptions -> do
  4614. 1020.95 s [opt-env-conf-test] - progname <- getProgName
  4615. 1020.95 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4616. 1020.95 s [opt-env-conf-test] - exitSuccess
  4617. 1020.95 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  4618. 1020.95 s [opt-env-conf-test] - progname <- getProgName
  4619. 1020.95 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  4620. 1020.95 s [opt-env-conf-test] - exitSuccess
  4621. 1020.95 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  4622. 1020.95 s [opt-env-conf-test] - progname <- getProgName
  4623. 1020.95 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  4624. 1020.95 s [opt-env-conf-test] - exitSuccess
  4625. 1020.95 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  4626. 1020.95 s [opt-env-conf-test] - progname <- getProgName
  4627. 1020.95 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  4628. 1020.95 s [opt-env-conf-test] - exitSuccess
  4629. 1020.95 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  4630. 1020.95 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  4631. 1020.95 s [opt-env-conf-test] - exitSuccess
  4632. 1020.96 s [opt-env-conf-test] - ParsedNormally a -> pure a
  4633. 1020.96 s [opt-env-conf-test] + Right i -> case i of
  4634. 1020.96 s [opt-env-conf-test] + ShowVersion -> do
  4635. 1020.96 s [opt-env-conf-test] + progname <- getProgName
  4636. 1020.96 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4637. 1020.96 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  4638. 1020.96 s [opt-env-conf-test] + exitSuccess
  4639. 1020.96 s [opt-env-conf-test] + RenderMan -> do
  4640. 1020.96 s [opt-env-conf-test] + progname <- getProgName
  4641. 1020.96 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4642. 1020.96 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  4643. 1020.96 s [opt-env-conf-test] + exitSuccess
  4644. 1020.96 s [opt-env-conf-test] + RenderDocumentation -> do
  4645. 1020.96 s [opt-env-conf-test] + progname <- getProgName
  4646. 1020.96 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  4647. 1020.96 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  4648. 1020.96 s [opt-env-conf-test] + exitSuccess
  4649. 1020.96 s [opt-env-conf-test] + RenderNixosOptions -> do
  4650. 1020.96 s [opt-env-conf-test] + progname <- getProgName
  4651. 1020.96 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  4652. 1020.96 s [opt-env-conf-test] + exitSuccess
  4653. 1020.96 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  4654. 1020.96 s [opt-env-conf-test] + progname <- getProgName
  4655. 1020.96 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  4656. 1020.96 s [opt-env-conf-test] + exitSuccess
  4657. 1020.96 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  4658. 1020.96 s [opt-env-conf-test] + progname <- getProgName
  4659. 1020.96 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  4660. 1020.96 s [opt-env-conf-test] + exitSuccess
  4661. 1020.96 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  4662. 1020.96 s [opt-env-conf-test] + progname <- getProgName
  4663. 1020.96 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  4664. 1020.96 s [opt-env-conf-test] + exitSuccess
  4665. 1020.96 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  4666. 1020.96 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  4667. 1020.96 s [opt-env-conf-test] + exitSuccess
  4668. 1020.96 s [opt-env-conf-test] + ParsedNormally a -> pure a
  4669. 1020.96 s [opt-env-conf-test]
  4670. 1020.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.
  4671. 1020.96 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  4672. 1020.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  4673. 1020.96 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  4674. 1020.96 s [opt-env-conf-test] renderLintError LintError {..} =
  4675. 1020.96 s [opt-env-conf-test] concat
  4676. 1020.96 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  4677. 1020.96 s [opt-env-conf-test] - case lintErrorMessage of
  4678. 1020.96 s [opt-env-conf-test] - LintErrorUndocumented ->
  4679. 1020.96 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  4680. 1020.96 s [opt-env-conf-test] - LintErrorEmptySetting ->
  4681. 1020.96 s [opt-env-conf-test] - concat
  4682. 1020.96 s [opt-env-conf-test] - [ [ [ "This ",
  4683. 1020.96 s [opt-env-conf-test] - functionChunk "setting",
  4684. 1020.96 s [opt-env-conf-test] - " parses nothing."
  4685. 1020.96 s [opt-env-conf-test] - ]
  4686. 1020.96 s [opt-env-conf-test] - ],
  4687. 1020.96 s [opt-env-conf-test] - [ [ "Add an ",
  4688. 1020.96 s [opt-env-conf-test] - functionChunk "argument",
  4689. 1020.97 s [opt-env-conf-test] - ", ",
  4690. 1020.97 s [opt-env-conf-test] - functionChunk "switch",
  4691. 1020.97 s [opt-env-conf-test] - ", ",
  4692. 1020.97 s [opt-env-conf-test] - functionChunk "option",
  4693. 1020.97 s [opt-env-conf-test] - ", ",
  4694. 1020.97 s [opt-env-conf-test] - functionChunk "env",
  4695. 1020.97 s [opt-env-conf-test] - ", ",
  4696. 1020.97 s [opt-env-conf-test] - functionChunk "conf",
  4697. 1020.97 s [opt-env-conf-test] - ", or ",
  4698. 1020.97 s [opt-env-conf-test] - functionChunk "value",
  4699. 1020.97 s [opt-env-conf-test] - "."
  4700. 1020.97 s [opt-env-conf-test] - ]
  4701. 1020.97 s [opt-env-conf-test] - ]
  4702. 1020.97 s [opt-env-conf-test] - ]
  4703. 1020.97 s [opt-env-conf-test] - LintErrorDashInShort ->
  4704. 1020.97 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  4705. 1020.97 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  4706. 1020.97 s [opt-env-conf-test] - ]
  4707. 1020.97 s [opt-env-conf-test] - LintErrorDashInLong s ->
  4708. 1020.97 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  4709. 1020.97 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4710. 1020.97 s [opt-env-conf-test] - [ "Try ",
  4711. 1020.97 s [opt-env-conf-test] - functionChunk "long",
  4712. 1020.97 s [opt-env-conf-test] - " ",
  4713. 1020.97 s [opt-env-conf-test] - chunk $
  4714. 1020.97 s [opt-env-conf-test] - T.pack $
  4715. 1020.97 s [opt-env-conf-test] - show $
  4716. 1020.97 s [opt-env-conf-test] - let go = \case
  4717. 1020.97 s [opt-env-conf-test] - [] -> []
  4718. 1020.97 s [opt-env-conf-test] - '-' : cs -> go cs
  4719. 1020.97 s [opt-env-conf-test] - c : cs -> c : cs
  4720. 1020.97 s [opt-env-conf-test] - in go $ NE.toList s,
  4721. 1020.97 s [opt-env-conf-test] - " instead."
  4722. 1020.97 s [opt-env-conf-test] - ]
  4723. 1020.97 s [opt-env-conf-test] - ]
  4724. 1020.97 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  4725. 1020.97 s [opt-env-conf-test] - [ [ functionChunk "argument",
  4726. 1020.97 s [opt-env-conf-test] - " has no ",
  4727. 1020.97 s [opt-env-conf-test] - functionChunk "reader",
  4728. 1020.97 s [opt-env-conf-test] - "."
  4729. 1020.97 s [opt-env-conf-test] - ]
  4730. 1020.97 s [opt-env-conf-test] - ]
  4731. 1020.97 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  4732. 1020.97 s [opt-env-conf-test] - [ [ functionChunk "argument",
  4733. 1020.97 s [opt-env-conf-test] - " has no ",
  4734. 1020.97 s [opt-env-conf-test] - functionChunk "metavar",
  4735. 1020.97 s [opt-env-conf-test] - "."
  4736. 1020.97 s [opt-env-conf-test] - ]
  4737. 1020.97 s [opt-env-conf-test] - ]
  4738. 1020.97 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  4739. 1020.97 s [opt-env-conf-test] - [ [ functionChunk "option",
  4740. 1020.97 s [opt-env-conf-test] - " or ",
  4741. 1020.97 s [opt-env-conf-test] - functionChunk "name",
  4742. 1020.97 s [opt-env-conf-test] - " has no ",
  4743. 1020.97 s [opt-env-conf-test] - functionChunk "reader",
  4744. 1020.97 s [opt-env-conf-test] - "."
  4745. 1020.97 s [opt-env-conf-test] - ]
  4746. 1020.97 s [opt-env-conf-test] - ]
  4747. 1020.97 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  4748. 1020.97 s [opt-env-conf-test] - [ [ functionChunk "option",
  4749. 1020.97 s [opt-env-conf-test] - " has no ",
  4750. 1020.97 s [opt-env-conf-test] - functionChunk "long",
  4751. 1020.97 s [opt-env-conf-test] - " or ",
  4752. 1020.97 s [opt-env-conf-test] - functionChunk "short",
  4753. 1020.97 s [opt-env-conf-test] - "."
  4754. 1020.97 s [opt-env-conf-test] - ]
  4755. 1020.97 s [opt-env-conf-test] - ]
  4756. 1020.97 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  4757. 1020.97 s [opt-env-conf-test] - [ [ functionChunk "option",
  4758. 1020.97 s [opt-env-conf-test] - " or ",
  4759. 1020.97 s [opt-env-conf-test] - functionChunk "name",
  4760. 1020.97 s [opt-env-conf-test] - " has no ",
  4761. 1020.97 s [opt-env-conf-test] - functionChunk "metavar",
  4762. 1020.97 s [opt-env-conf-test] - "."
  4763. 1020.97 s [opt-env-conf-test] - ]
  4764. 1020.97 s [opt-env-conf-test] - ]
  4765. 1020.97 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  4766. 1020.97 s [opt-env-conf-test] - [ [ functionChunk "switch",
  4767. 1020.97 s [opt-env-conf-test] - " has no ",
  4768. 1020.97 s [opt-env-conf-test] - functionChunk "long",
  4769. 1020.97 s [opt-env-conf-test] - " or ",
  4770. 1020.97 s [opt-env-conf-test] - functionChunk "short",
  4771. 1020.97 s [opt-env-conf-test] - "."
  4772. 1020.97 s [opt-env-conf-test] - ]
  4773. 1020.97 s [opt-env-conf-test] - ]
  4774. 1020.97 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  4775. 1020.97 s [opt-env-conf-test] - [ [ functionChunk "long",
  4776. 1020.97 s [opt-env-conf-test] - " or ",
  4777. 1020.97 s [opt-env-conf-test] - functionChunk "short",
  4778. 1020.97 s [opt-env-conf-test] - " has no ",
  4779. 1020.97 s [opt-env-conf-test] - functionChunk "option",
  4780. 1020.97 s [opt-env-conf-test] - " or ",
  4781. 1020.97 s [opt-env-conf-test] - functionChunk "switch",
  4782. 1020.97 s [opt-env-conf-test] - "."
  4783. 1020.97 s [opt-env-conf-test] - ]
  4784. 1020.97 s [opt-env-conf-test] - ]
  4785. 1020.97 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  4786. 1020.97 s [opt-env-conf-test] - [ [ functionChunk "env",
  4787. 1020.97 s [opt-env-conf-test] - " or ",
  4788. 1020.97 s [opt-env-conf-test] - functionChunk "name",
  4789. 1020.97 s [opt-env-conf-test] - " has no ",
  4790. 1020.97 s [opt-env-conf-test] - functionChunk "reader",
  4791. 1020.97 s [opt-env-conf-test] - "."
  4792. 1020.97 s [opt-env-conf-test] - ]
  4793. 1020.97 s [opt-env-conf-test] - ]
  4794. 1020.97 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  4795. 1020.97 s [opt-env-conf-test] - [ [ functionChunk "env",
  4796. 1020.97 s [opt-env-conf-test] - " or ",
  4797. 1020.97 s [opt-env-conf-test] - functionChunk "name",
  4798. 1020.97 s [opt-env-conf-test] - " has no ",
  4799. 1020.97 s [opt-env-conf-test] - functionChunk "metavar",
  4800. 1020.97 s [opt-env-conf-test] - "."
  4801. 1020.97 s [opt-env-conf-test] - ]
  4802. 1020.98 s [opt-env-conf-test] - ]
  4803. 1020.98 s [opt-env-conf-test] - LintErrorNoCommands ->
  4804. 1020.98 s [opt-env-conf-test] - [ [ functionChunk "commands",
  4805. 1020.98 s [opt-env-conf-test] - " was called with an empty list."
  4806. 1020.98 s [opt-env-conf-test] - ]
  4807. 1020.98 s [opt-env-conf-test] - ]
  4808. 1020.98 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  4809. 1020.98 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  4810. 1020.98 s [opt-env-conf-test] - " was called with an unknown command: ",
  4811. 1020.98 s [opt-env-conf-test] - commandChunk c
  4812. 1020.98 s [opt-env-conf-test] - ]
  4813. 1020.98 s [opt-env-conf-test] - ]
  4814. 1020.98 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  4815. 1020.98 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4816. 1020.98 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  4817. 1020.98 s [opt-env-conf-test] - ]
  4818. 1020.98 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  4819. 1020.98 s [opt-env-conf-test] - [ [ functionChunk "conf",
  4820. 1020.98 s [opt-env-conf-test] - " or ",
  4821. 1020.98 s [opt-env-conf-test] - functionChunk "name",
  4822. 1020.98 s [opt-env-conf-test] - " was called with no way to load configuration."
  4823. 1020.98 s [opt-env-conf-test] - ],
  4824. 1020.98 s [opt-env-conf-test] - [ "You can load configuration with ",
  4825. 1020.98 s [opt-env-conf-test] - functionChunk "withConfig",
  4826. 1020.98 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  4827. 1020.98 s [opt-env-conf-test] - functionChunk "withoutConfig",
  4828. 1020.98 s [opt-env-conf-test] - "."
  4829. 1020.98 s [opt-env-conf-test] - ]
  4830. 1020.98 s [opt-env-conf-test] - ]
  4831. 1021.12 s [opt-env-conf-test] - LintErrorManyInfinite ->
  4832. 1021.12 s [opt-env-conf-test] - [ [ functionChunk "many",
  4833. 1021.12 s [opt-env-conf-test] - " or ",
  4834. 1021.12 s [opt-env-conf-test] - functionChunk "some",
  4835. 1021.12 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  4836. 1021.12 s [opt-env-conf-test] - ],
  4837. 1021.12 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  4838. 1021.12 s [opt-env-conf-test] - ],
  4839. 1021.12 s [opt-env-conf-test] + case lintErrorMessage of
  4840. 1021.12 s [opt-env-conf-test] + LintErrorUndocumented ->
  4841. 1021.12 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  4842. 1021.12 s [opt-env-conf-test] + LintErrorEmptySetting ->
  4843. 1021.12 s [opt-env-conf-test] + concat
  4844. 1021.12 s [opt-env-conf-test] + [ [ [ "This ",
  4845. 1021.12 s [opt-env-conf-test] + functionChunk "setting",
  4846. 1021.12 s [opt-env-conf-test] + " parses nothing."
  4847. 1021.12 s [opt-env-conf-test] + ]
  4848. 1021.12 s [opt-env-conf-test] + ],
  4849. 1021.12 s [opt-env-conf-test] + [ [ "Add an ",
  4850. 1021.12 s [opt-env-conf-test] + functionChunk "argument",
  4851. 1021.12 s [opt-env-conf-test] + ", ",
  4852. 1021.12 s [opt-env-conf-test] + functionChunk "switch",
  4853. 1021.12 s [opt-env-conf-test] + ", ",
  4854. 1021.12 s [opt-env-conf-test] + functionChunk "option",
  4855. 1021.12 s [opt-env-conf-test] + ", ",
  4856. 1021.12 s [opt-env-conf-test] + functionChunk "env",
  4857. 1021.12 s [opt-env-conf-test] + ", ",
  4858. 1021.12 s [opt-env-conf-test] + functionChunk "conf",
  4859. 1021.12 s [opt-env-conf-test] + ", or ",
  4860. 1021.12 s [opt-env-conf-test] + functionChunk "value",
  4861. 1021.12 s [opt-env-conf-test] + "."
  4862. 1021.12 s [opt-env-conf-test] + ]
  4863. 1021.12 s [opt-env-conf-test] + ]
  4864. 1021.12 s [opt-env-conf-test] + ]
  4865. 1021.12 s [opt-env-conf-test] + LintErrorDashInShort ->
  4866. 1021.12 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  4867. 1021.12 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  4868. 1021.12 s [opt-env-conf-test] + ]
  4869. 1021.12 s [opt-env-conf-test] + LintErrorDashInLong s ->
  4870. 1021.12 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  4871. 1021.13 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  4872. 1021.13 s [opt-env-conf-test] + [ "Try ",
  4873. 1021.13 s [opt-env-conf-test] + functionChunk "long",
  4874. 1021.13 s [opt-env-conf-test] + " ",
  4875. 1021.13 s [opt-env-conf-test] + chunk $
  4876. 1021.13 s [opt-env-conf-test] + T.pack $
  4877. 1021.13 s [opt-env-conf-test] + show $
  4878. 1021.13 s [opt-env-conf-test] + let go = \case
  4879. 1021.13 s [opt-env-conf-test] + [] -> []
  4880. 1021.13 s [opt-env-conf-test] + '-' : cs -> go cs
  4881. 1021.13 s [opt-env-conf-test] + c : cs -> c : cs
  4882. 1021.13 s [opt-env-conf-test] + in go $ NE.toList s,
  4883. 1021.13 s [opt-env-conf-test] + " instead."
  4884. 1021.13 s [opt-env-conf-test] + ]
  4885. 1021.13 s [opt-env-conf-test] + ]
  4886. 1021.13 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  4887. 1021.13 s [opt-env-conf-test] + [ [ functionChunk "argument",
  4888. 1021.13 s [opt-env-conf-test] + " has no ",
  4889. 1021.13 s [opt-env-conf-test] + functionChunk "reader",
  4890. 1021.13 s [opt-env-conf-test] + "."
  4891. 1021.13 s [opt-env-conf-test] + ]
  4892. 1021.13 s [opt-env-conf-test] + ]
  4893. 1021.13 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  4894. 1021.13 s [opt-env-conf-test] + [ [ functionChunk "argument",
  4895. 1021.13 s [opt-env-conf-test] + " has no ",
  4896. 1021.13 s [opt-env-conf-test] + functionChunk "metavar",
  4897. 1021.13 s [opt-env-conf-test] + "."
  4898. 1021.13 s [opt-env-conf-test] + ]
  4899. 1021.13 s [opt-env-conf-test] + ]
  4900. 1021.13 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  4901. 1021.13 s [opt-env-conf-test] + [ [ functionChunk "option",
  4902. 1021.13 s [opt-env-conf-test] + " or ",
  4903. 1021.13 s [opt-env-conf-test] + functionChunk "name",
  4904. 1021.13 s [opt-env-conf-test] + " has no ",
  4905. 1021.13 s [opt-env-conf-test] + functionChunk "reader",
  4906. 1021.13 s [opt-env-conf-test] + "."
  4907. 1021.13 s [opt-env-conf-test] + ]
  4908. 1021.13 s [opt-env-conf-test] + ]
  4909. 1021.13 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  4910. 1021.13 s [opt-env-conf-test] + [ [ functionChunk "option",
  4911. 1021.13 s [opt-env-conf-test] + " has no ",
  4912. 1021.13 s [opt-env-conf-test] + functionChunk "long",
  4913. 1021.13 s [opt-env-conf-test] + " or ",
  4914. 1021.13 s [opt-env-conf-test] + functionChunk "short",
  4915. 1021.13 s [opt-env-conf-test] + "."
  4916. 1021.13 s [opt-env-conf-test] + ]
  4917. 1021.13 s [opt-env-conf-test] + ]
  4918. 1021.13 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  4919. 1021.13 s [opt-env-conf-test] + [ [ functionChunk "option",
  4920. 1021.13 s [opt-env-conf-test] + " or ",
  4921. 1021.13 s [opt-env-conf-test] + functionChunk "name",
  4922. 1021.13 s [opt-env-conf-test] + " has no ",
  4923. 1021.13 s [opt-env-conf-test] + functionChunk "metavar",
  4924. 1021.13 s [opt-env-conf-test] + "."
  4925. 1021.13 s [opt-env-conf-test] + ]
  4926. 1021.13 s [opt-env-conf-test] + ]
  4927. 1021.13 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  4928. 1021.13 s [opt-env-conf-test] + [ [ functionChunk "switch",
  4929. 1021.13 s [opt-env-conf-test] + " has no ",
  4930. 1021.13 s [opt-env-conf-test] + functionChunk "long",
  4931. 1021.13 s [opt-env-conf-test] + " or ",
  4932. 1021.13 s [opt-env-conf-test] + functionChunk "short",
  4933. 1021.13 s [opt-env-conf-test] + "."
  4934. 1021.13 s [opt-env-conf-test] + ]
  4935. 1021.13 s [opt-env-conf-test] + ]
  4936. 1021.13 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  4937. 1021.13 s [opt-env-conf-test] + [ [ functionChunk "long",
  4938. 1021.13 s [opt-env-conf-test] + " or ",
  4939. 1021.13 s [opt-env-conf-test] + functionChunk "short",
  4940. 1021.13 s [opt-env-conf-test] + " has no ",
  4941. 1021.13 s [opt-env-conf-test] + functionChunk "option",
  4942. 1021.13 s [opt-env-conf-test] + " or ",
  4943. 1021.13 s [opt-env-conf-test] + functionChunk "switch",
  4944. 1021.13 s [opt-env-conf-test] + "."
  4945. 1021.13 s [opt-env-conf-test] + ]
  4946. 1021.13 s [opt-env-conf-test] + ]
  4947. 1021.13 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  4948. 1021.13 s [opt-env-conf-test] + [ [ functionChunk "env",
  4949. 1021.13 s [opt-env-conf-test] + " or ",
  4950. 1021.14 s [opt-env-conf-test] + functionChunk "name",
  4951. 1021.14 s [opt-env-conf-test] + " has no ",
  4952. 1021.14 s [opt-env-conf-test] + functionChunk "reader",
  4953. 1021.14 s [opt-env-conf-test] + "."
  4954. 1021.14 s [opt-env-conf-test] + ]
  4955. 1021.14 s [opt-env-conf-test] + ]
  4956. 1021.14 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  4957. 1021.14 s [opt-env-conf-test] + [ [ functionChunk "env",
  4958. 1021.14 s [opt-env-conf-test] + " or ",
  4959. 1021.14 s [opt-env-conf-test] + functionChunk "name",
  4960. 1021.14 s [opt-env-conf-test] + " has no ",
  4961. 1021.14 s [opt-env-conf-test] + functionChunk "metavar",
  4962. 1021.14 s [opt-env-conf-test] + "."
  4963. 1021.14 s [opt-env-conf-test] + ]
  4964. 1021.14 s [opt-env-conf-test] + ]
  4965. 1021.14 s [opt-env-conf-test] + LintErrorNoCommands ->
  4966. 1021.14 s [opt-env-conf-test] + [ [ functionChunk "commands",
  4967. 1021.14 s [opt-env-conf-test] + " was called with an empty list."
  4968. 1021.14 s [opt-env-conf-test] + ]
  4969. 1021.14 s [opt-env-conf-test] + ]
  4970. 1021.14 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  4971. 1021.14 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  4972. 1021.14 s [opt-env-conf-test] + " was called with an unknown command: ",
  4973. 1021.14 s [opt-env-conf-test] + commandChunk c
  4974. 1021.14 s [opt-env-conf-test] + ]
  4975. 1021.14 s [opt-env-conf-test] + ]
  4976. 1021.14 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  4977. 1021.14 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  4978. 1021.14 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  4979. 1021.14 s [opt-env-conf-test] + ]
  4980. 1021.14 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  4981. 1021.14 s [opt-env-conf-test] + [ [ functionChunk "conf",
  4982. 1021.14 s [opt-env-conf-test] + " or ",
  4983. 1021.14 s [opt-env-conf-test] + functionChunk "name",
  4984. 1021.14 s [opt-env-conf-test] + " was called with no way to load configuration."
  4985. 1021.14 s [opt-env-conf-test] + ],
  4986. 1021.14 s [opt-env-conf-test] + [ "You can load configuration with ",
  4987. 1021.14 s [opt-env-conf-test] + functionChunk "withConfig",
  4988. 1021.14 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  4989. 1021.14 s [opt-env-conf-test] + functionChunk "withoutConfig",
  4990. 1021.14 s [opt-env-conf-test] + "."
  4991. 1021.14 s [opt-env-conf-test] + ]
  4992. 1021.14 s [opt-env-conf-test] + ]
  4993. 1021.14 s [opt-env-conf-test] + LintErrorManyInfinite ->
  4994. 1021.14 s [opt-env-conf-test] + [ [ functionChunk "many",
  4995. 1021.14 s [opt-env-conf-test] + " or ",
  4996. 1021.14 s [opt-env-conf-test] + functionChunk "some",
  4997. 1021.14 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  4998. 1021.14 s [opt-env-conf-test] + ],
  4999. 1021.14 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  5000. 1021.14 s [opt-env-conf-test] + ],
  5001. 1021.14 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  5002. 1021.14 s [opt-env-conf-test] ]
  5003. 1021.14 s [opt-env-conf-test]
  5004. 1021.14 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  5005. 1021.14 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  5006. 1021.14 s [opt-env-conf-test] renderLintError LintError {..} =
  5007. 1021.14 s [opt-env-conf-test] concat
  5008. 1021.14 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  5009. 1021.14 s [opt-env-conf-test] - case lintErrorMessage of
  5010. 1021.14 s [opt-env-conf-test] - LintErrorUndocumented ->
  5011. 1021.14 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  5012. 1021.14 s [opt-env-conf-test] - LintErrorEmptySetting ->
  5013. 1021.14 s [opt-env-conf-test] - concat
  5014. 1021.14 s [opt-env-conf-test] - [ [ [ "This ",
  5015. 1021.14 s [opt-env-conf-test] - functionChunk "setting",
  5016. 1021.14 s [opt-env-conf-test] - " parses nothing."
  5017. 1021.14 s [opt-env-conf-test] - ]
  5018. 1021.14 s [opt-env-conf-test] - ],
  5019. 1021.14 s [opt-env-conf-test] - [ [ "Add an ",
  5020. 1021.14 s [opt-env-conf-test] - functionChunk "argument",
  5021. 1021.14 s [opt-env-conf-test] - ", ",
  5022. 1021.14 s [opt-env-conf-test] - functionChunk "switch",
  5023. 1021.14 s [opt-env-conf-test] - ", ",
  5024. 1021.14 s [opt-env-conf-test] - functionChunk "option",
  5025. 1021.14 s [opt-env-conf-test] - ", ",
  5026. 1021.14 s [opt-env-conf-test] - functionChunk "env",
  5027. 1021.14 s [opt-env-conf-test] - ", ",
  5028. 1021.14 s [opt-env-conf-test] - functionChunk "conf",
  5029. 1021.14 s [opt-env-conf-test] - ", or ",
  5030. 1021.14 s [opt-env-conf-test] - functionChunk "value",
  5031. 1021.14 s [opt-env-conf-test] - "."
  5032. 1021.14 s [opt-env-conf-test] - ]
  5033. 1021.14 s [opt-env-conf-test] - ]
  5034. 1021.14 s [opt-env-conf-test] - ]
  5035. 1021.14 s [opt-env-conf-test] - LintErrorDashInShort ->
  5036. 1021.14 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  5037. 1021.14 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  5038. 1021.14 s [opt-env-conf-test] - ]
  5039. 1021.14 s [opt-env-conf-test] - LintErrorDashInLong s ->
  5040. 1021.14 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  5041. 1021.14 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5042. 1021.14 s [opt-env-conf-test] - [ "Try ",
  5043. 1021.14 s [opt-env-conf-test] - functionChunk "long",
  5044. 1021.14 s [opt-env-conf-test] - " ",
  5045. 1021.14 s [opt-env-conf-test] - chunk $
  5046. 1021.14 s [opt-env-conf-test] - T.pack $
  5047. 1021.14 s [opt-env-conf-test] - show $
  5048. 1021.14 s [opt-env-conf-test] - let go = \case
  5049. 1021.14 s [opt-env-conf-test] - [] -> []
  5050. 1021.14 s [opt-env-conf-test] - '-' : cs -> go cs
  5051. 1021.14 s [opt-env-conf-test] - c : cs -> c : cs
  5052. 1021.14 s [opt-env-conf-test] - in go $ NE.toList s,
  5053. 1021.14 s [opt-env-conf-test] - " instead."
  5054. 1021.14 s [opt-env-conf-test] - ]
  5055. 1021.14 s [opt-env-conf-test] - ]
  5056. 1021.14 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  5057. 1021.14 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5058. 1021.14 s [opt-env-conf-test] - " has no ",
  5059. 1021.14 s [opt-env-conf-test] - functionChunk "reader",
  5060. 1021.14 s [opt-env-conf-test] - "."
  5061. 1021.14 s [opt-env-conf-test] - ]
  5062. 1021.14 s [opt-env-conf-test] - ]
  5063. 1021.14 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  5064. 1021.14 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5065. 1021.14 s [opt-env-conf-test] - " has no ",
  5066. 1021.14 s [opt-env-conf-test] - functionChunk "metavar",
  5067. 1021.14 s [opt-env-conf-test] - "."
  5068. 1021.14 s [opt-env-conf-test] - ]
  5069. 1021.14 s [opt-env-conf-test] - ]
  5070. 1021.14 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  5071. 1021.14 s [opt-env-conf-test] - [ [ functionChunk "option",
  5072. 1021.14 s [opt-env-conf-test] - " or ",
  5073. 1021.14 s [opt-env-conf-test] - functionChunk "name",
  5074. 1021.14 s [opt-env-conf-test] - " has no ",
  5075. 1021.14 s [opt-env-conf-test] - functionChunk "reader",
  5076. 1021.14 s [opt-env-conf-test] - "."
  5077. 1021.14 s [opt-env-conf-test] - ]
  5078. 1021.14 s [opt-env-conf-test] - ]
  5079. 1021.14 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  5080. 1021.14 s [opt-env-conf-test] - [ [ functionChunk "option",
  5081. 1021.14 s [opt-env-conf-test] - " has no ",
  5082. 1021.14 s [opt-env-conf-test] - functionChunk "long",
  5083. 1021.14 s [opt-env-conf-test] - " or ",
  5084. 1021.14 s [opt-env-conf-test] - functionChunk "short",
  5085. 1021.16 s [opt-env-conf-test] - "."
  5086. 1021.16 s [opt-env-conf-test] - ]
  5087. 1021.16 s [opt-env-conf-test] - ]
  5088. 1021.16 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  5089. 1021.16 s [opt-env-conf-test] - [ [ functionChunk "option",
  5090. 1021.16 s [opt-env-conf-test] - " or ",
  5091. 1021.16 s [opt-env-conf-test] - functionChunk "name",
  5092. 1021.16 s [opt-env-conf-test] - " has no ",
  5093. 1021.16 s [opt-env-conf-test] - functionChunk "metavar",
  5094. 1021.16 s [opt-env-conf-test] - "."
  5095. 1021.16 s [opt-env-conf-test] - ]
  5096. 1021.16 s [opt-env-conf-test] - ]
  5097. 1021.16 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  5098. 1021.16 s [opt-env-conf-test] - [ [ functionChunk "switch",
  5099. 1021.16 s [opt-env-conf-test] - " has no ",
  5100. 1021.16 s [opt-env-conf-test] - functionChunk "long",
  5101. 1021.16 s [opt-env-conf-test] - " or ",
  5102. 1021.16 s [opt-env-conf-test] - functionChunk "short",
  5103. 1021.16 s [opt-env-conf-test] - "."
  5104. 1021.16 s [opt-env-conf-test] - ]
  5105. 1021.16 s [opt-env-conf-test] - ]
  5106. 1021.16 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  5107. 1021.16 s [opt-env-conf-test] - [ [ functionChunk "long",
  5108. 1021.16 s [opt-env-conf-test] - " or ",
  5109. 1021.16 s [opt-env-conf-test] - functionChunk "short",
  5110. 1021.16 s [opt-env-conf-test] - " has no ",
  5111. 1021.16 s [opt-env-conf-test] - functionChunk "option",
  5112. 1021.16 s [opt-env-conf-test] - " or ",
  5113. 1021.16 s [opt-env-conf-test] - functionChunk "switch",
  5114. 1021.16 s [opt-env-conf-test] - "."
  5115. 1021.16 s [opt-env-conf-test] - ]
  5116. 1021.16 s [opt-env-conf-test] - ]
  5117. 1021.16 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  5118. 1021.16 s [opt-env-conf-test] - [ [ functionChunk "env",
  5119. 1021.16 s [opt-env-conf-test] - " or ",
  5120. 1021.16 s [opt-env-conf-test] - functionChunk "name",
  5121. 1021.16 s [opt-env-conf-test] - " has no ",
  5122. 1021.16 s [opt-env-conf-test] - functionChunk "reader",
  5123. 1021.16 s [opt-env-conf-test] - "."
  5124. 1021.16 s [opt-env-conf-test] - ]
  5125. 1021.16 s [opt-env-conf-test] - ]
  5126. 1021.16 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  5127. 1021.16 s [opt-env-conf-test] - [ [ functionChunk "env",
  5128. 1021.16 s [opt-env-conf-test] - " or ",
  5129. 1021.16 s [opt-env-conf-test] - functionChunk "name",
  5130. 1021.16 s [opt-env-conf-test] - " has no ",
  5131. 1021.16 s [opt-env-conf-test] - functionChunk "metavar",
  5132. 1021.16 s [opt-env-conf-test] - "."
  5133. 1021.16 s [opt-env-conf-test] - ]
  5134. 1021.16 s [opt-env-conf-test] - ]
  5135. 1021.16 s [opt-env-conf-test] - LintErrorNoCommands ->
  5136. 1021.16 s [opt-env-conf-test] - [ [ functionChunk "commands",
  5137. 1021.16 s [opt-env-conf-test] - " was called with an empty list."
  5138. 1021.16 s [opt-env-conf-test] - ]
  5139. 1021.16 s [opt-env-conf-test] - ]
  5140. 1021.16 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  5141. 1021.16 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  5142. 1021.16 s [opt-env-conf-test] - " was called with an unknown command: ",
  5143. 1021.16 s [opt-env-conf-test] - commandChunk c
  5144. 1021.16 s [opt-env-conf-test] - ]
  5145. 1021.16 s [opt-env-conf-test] - ]
  5146. 1021.16 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  5147. 1021.16 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5148. 1021.16 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  5149. 1021.16 s [opt-env-conf-test] - ]
  5150. 1021.16 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  5151. 1021.16 s [opt-env-conf-test] - [ [ functionChunk "conf",
  5152. 1021.16 s [opt-env-conf-test] - " or ",
  5153. 1021.16 s [opt-env-conf-test] - functionChunk "name",
  5154. 1021.16 s [opt-env-conf-test] - " was called with no way to load configuration."
  5155. 1021.17 s [opt-env-conf-test] - ],
  5156. 1021.17 s [opt-env-conf-test] - [ "You can load configuration with ",
  5157. 1021.17 s [opt-env-conf-test] - functionChunk "withConfig",
  5158. 1021.17 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  5159. 1021.17 s [opt-env-conf-test] - functionChunk "withoutConfig",
  5160. 1021.17 s [opt-env-conf-test] - "."
  5161. 1021.17 s [opt-env-conf-test] - ]
  5162. 1021.17 s [opt-env-conf-test] - ]
  5163. 1021.17 s [opt-env-conf-test] - LintErrorManyInfinite ->
  5164. 1021.17 s [opt-env-conf-test] - [ [ functionChunk "many",
  5165. 1021.17 s [opt-env-conf-test] - " or ",
  5166. 1021.17 s [opt-env-conf-test] - functionChunk "some",
  5167. 1021.17 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  5168. 1021.17 s [opt-env-conf-test] - ],
  5169. 1021.17 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  5170. 1021.17 s [opt-env-conf-test] - ],
  5171. 1021.17 s [opt-env-conf-test] + case lintErrorMessage of
  5172. 1021.17 s [opt-env-conf-test] + LintErrorUndocumented ->
  5173. 1021.17 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  5174. 1021.17 s [opt-env-conf-test] + LintErrorEmptySetting ->
  5175. 1021.17 s [opt-env-conf-test] + concat
  5176. 1021.17 s [opt-env-conf-test] + [ [ [ "This ",
  5177. 1021.17 s [opt-env-conf-test] + functionChunk "setting",
  5178. 1021.17 s [opt-env-conf-test] + " parses nothing."
  5179. 1021.17 s [opt-env-conf-test] + ]
  5180. 1021.17 s [opt-env-conf-test] + ],
  5181. 1021.17 s [opt-env-conf-test] + [ [ "Add an ",
  5182. 1021.17 s [opt-env-conf-test] + functionChunk "argument",
  5183. 1021.17 s [opt-env-conf-test] + ", ",
  5184. 1021.17 s [opt-env-conf-test] + functionChunk "switch",
  5185. 1021.17 s [opt-env-conf-test] + ", ",
  5186. 1021.17 s [opt-env-conf-test] + functionChunk "option",
  5187. 1021.17 s [opt-env-conf-test] + ", ",
  5188. 1021.17 s [opt-env-conf-test] + functionChunk "env",
  5189. 1021.17 s [opt-env-conf-test] + ", ",
  5190. 1021.17 s [opt-env-conf-test] + functionChunk "conf",
  5191. 1021.17 s [opt-env-conf-test] + ", or ",
  5192. 1021.17 s [opt-env-conf-test] + functionChunk "value",
  5193. 1021.17 s [opt-env-conf-test] + "."
  5194. 1021.17 s [opt-env-conf-test] + ]
  5195. 1021.17 s [opt-env-conf-test] + ]
  5196. 1021.17 s [opt-env-conf-test] + ]
  5197. 1021.17 s [opt-env-conf-test] + LintErrorDashInShort ->
  5198. 1021.17 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  5199. 1021.17 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  5200. 1021.17 s [opt-env-conf-test] + ]
  5201. 1021.17 s [opt-env-conf-test] + LintErrorDashInLong s ->
  5202. 1021.17 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  5203. 1021.17 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5204. 1021.17 s [opt-env-conf-test] + [ "Try ",
  5205. 1021.17 s [opt-env-conf-test] + functionChunk "long",
  5206. 1021.17 s [opt-env-conf-test] + " ",
  5207. 1021.17 s [opt-env-conf-test] + chunk $
  5208. 1021.17 s [opt-env-conf-test] + T.pack $
  5209. 1021.17 s [opt-env-conf-test] + show $
  5210. 1021.17 s [opt-env-conf-test] + let go = \case
  5211. 1021.17 s [opt-env-conf-test] + [] -> []
  5212. 1021.17 s [opt-env-conf-test] + '-' : cs -> go cs
  5213. 1021.17 s [opt-env-conf-test] + c : cs -> c : cs
  5214. 1021.17 s [opt-env-conf-test] + in go $ NE.toList s,
  5215. 1021.17 s [opt-env-conf-test] + " instead."
  5216. 1021.17 s [opt-env-conf-test] + ]
  5217. 1021.17 s [opt-env-conf-test] + ]
  5218. 1021.17 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  5219. 1021.17 s [opt-env-conf-test] + [ [ functionChunk "argument",
  5220. 1021.17 s [opt-env-conf-test] + " has no ",
  5221. 1021.17 s [opt-env-conf-test] + functionChunk "reader",
  5222. 1021.17 s [opt-env-conf-test] + "."
  5223. 1021.17 s [opt-env-conf-test] + ]
  5224. 1021.17 s [opt-env-conf-test] + ]
  5225. 1021.17 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  5226. 1021.17 s [opt-env-conf-test] + [ [ functionChunk "argument",
  5227. 1021.17 s [opt-env-conf-test] + " has no ",
  5228. 1021.17 s [opt-env-conf-test] + functionChunk "metavar",
  5229. 1021.17 s [opt-env-conf-test] + "."
  5230. 1021.17 s [opt-env-conf-test] + ]
  5231. 1021.17 s [opt-env-conf-test] + ]
  5232. 1021.17 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  5233. 1021.17 s [opt-env-conf-test] + [ [ functionChunk "option",
  5234. 1021.17 s [opt-env-conf-test] + " or ",
  5235. 1021.17 s [opt-env-conf-test] + functionChunk "name",
  5236. 1021.17 s [opt-env-conf-test] + " has no ",
  5237. 1021.17 s [opt-env-conf-test] + functionChunk "reader",
  5238. 1021.17 s [opt-env-conf-test] + "."
  5239. 1021.17 s [opt-env-conf-test] + ]
  5240. 1021.17 s [opt-env-conf-test] + ]
  5241. 1021.17 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  5242. 1021.17 s [opt-env-conf-test] + [ [ functionChunk "option",
  5243. 1021.17 s [opt-env-conf-test] + " has no ",
  5244. 1021.17 s [opt-env-conf-test] + functionChunk "long",
  5245. 1021.17 s [opt-env-conf-test] + " or ",
  5246. 1021.17 s [opt-env-conf-test] + functionChunk "short",
  5247. 1021.17 s [opt-env-conf-test] + "."
  5248. 1021.17 s [opt-env-conf-test] + ]
  5249. 1021.17 s [opt-env-conf-test] + ]
  5250. 1021.17 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  5251. 1021.17 s [opt-env-conf-test] + [ [ functionChunk "option",
  5252. 1021.17 s [opt-env-conf-test] + " or ",
  5253. 1021.17 s [opt-env-conf-test] + functionChunk "name",
  5254. 1021.18 s [opt-env-conf-test] + " has no ",
  5255. 1021.18 s [opt-env-conf-test] + functionChunk "metavar",
  5256. 1021.18 s [opt-env-conf-test] + "."
  5257. 1021.18 s [opt-env-conf-test] + ]
  5258. 1021.18 s [opt-env-conf-test] + ]
  5259. 1021.18 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  5260. 1021.18 s [opt-env-conf-test] + [ [ functionChunk "switch",
  5261. 1021.18 s [opt-env-conf-test] + " has no ",
  5262. 1021.18 s [opt-env-conf-test] + functionChunk "long",
  5263. 1021.18 s [opt-env-conf-test] + " or ",
  5264. 1021.18 s [opt-env-conf-test] + functionChunk "short",
  5265. 1021.18 s [opt-env-conf-test] + "."
  5266. 1021.18 s [opt-env-conf-test] + ]
  5267. 1021.18 s [opt-env-conf-test] + ]
  5268. 1021.18 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  5269. 1021.18 s [opt-env-conf-test] + [ [ functionChunk "long",
  5270. 1021.18 s [opt-env-conf-test] + " or ",
  5271. 1021.18 s [opt-env-conf-test] + functionChunk "short",
  5272. 1021.18 s [opt-env-conf-test] + " has no ",
  5273. 1021.18 s [opt-env-conf-test] + functionChunk "option",
  5274. 1021.18 s [opt-env-conf-test] + " or ",
  5275. 1021.18 s [opt-env-conf-test] + functionChunk "switch",
  5276. 1021.18 s [opt-env-conf-test] + "."
  5277. 1021.18 s [opt-env-conf-test] + ]
  5278. 1021.18 s [opt-env-conf-test] + ]
  5279. 1021.18 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  5280. 1021.18 s [opt-env-conf-test] + [ [ functionChunk "env",
  5281. 1021.18 s [opt-env-conf-test] + " or ",
  5282. 1021.18 s [opt-env-conf-test] + functionChunk "name",
  5283. 1021.18 s [opt-env-conf-test] + " has no ",
  5284. 1021.18 s [opt-env-conf-test] + functionChunk "reader",
  5285. 1021.18 s [opt-env-conf-test] + "."
  5286. 1021.18 s [opt-env-conf-test] + ]
  5287. 1021.18 s [opt-env-conf-test] + ]
  5288. 1021.18 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  5289. 1021.18 s [opt-env-conf-test] + [ [ functionChunk "env",
  5290. 1021.18 s [opt-env-conf-test] + " or ",
  5291. 1021.18 s [opt-env-conf-test] + functionChunk "name",
  5292. 1021.18 s [opt-env-conf-test] + " has no ",
  5293. 1021.18 s [opt-env-conf-test] + functionChunk "metavar",
  5294. 1021.18 s [opt-env-conf-test] + "."
  5295. 1021.18 s [opt-env-conf-test] + ]
  5296. 1021.18 s [opt-env-conf-test] + ]
  5297. 1021.18 s [opt-env-conf-test] + LintErrorNoCommands ->
  5298. 1021.18 s [opt-env-conf-test] + [ [ functionChunk "commands",
  5299. 1021.18 s [opt-env-conf-test] + " was called with an empty list."
  5300. 1021.18 s [opt-env-conf-test] + ]
  5301. 1021.18 s [opt-env-conf-test] + ]
  5302. 1021.18 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  5303. 1021.18 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  5304. 1021.18 s [opt-env-conf-test] + " was called with an unknown command: ",
  5305. 1021.18 s [opt-env-conf-test] + commandChunk c
  5306. 1021.18 s [opt-env-conf-test] + ]
  5307. 1021.18 s [opt-env-conf-test] + ]
  5308. 1021.18 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  5309. 1021.18 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5310. 1021.18 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  5311. 1021.18 s [opt-env-conf-test] + ]
  5312. 1021.18 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  5313. 1021.18 s [opt-env-conf-test] + [ [ functionChunk "conf",
  5314. 1021.18 s [opt-env-conf-test] + " or ",
  5315. 1021.18 s [opt-env-conf-test] + functionChunk "name",
  5316. 1021.18 s [opt-env-conf-test] + " was called with no way to load configuration."
  5317. 1021.18 s [opt-env-conf-test] + ],
  5318. 1021.18 s [opt-env-conf-test] + [ "You can load configuration with ",
  5319. 1021.18 s [opt-env-conf-test] + functionChunk "withConfig",
  5320. 1021.18 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  5321. 1021.18 s [opt-env-conf-test] + functionChunk "withoutConfig",
  5322. 1021.18 s [opt-env-conf-test] + "."
  5323. 1021.18 s [opt-env-conf-test] + ]
  5324. 1021.18 s [opt-env-conf-test] + ]
  5325. 1021.18 s [opt-env-conf-test] + LintErrorManyInfinite ->
  5326. 1021.18 s [opt-env-conf-test] + [ [ functionChunk "many",
  5327. 1021.18 s [opt-env-conf-test] + " or ",
  5328. 1021.18 s [opt-env-conf-test] + functionChunk "some",
  5329. 1021.18 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  5330. 1021.18 s [opt-env-conf-test] + ],
  5331. 1021.18 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  5332. 1021.18 s [opt-env-conf-test] + ],
  5333. 1021.18 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  5334. 1021.18 s [opt-env-conf-test] ]
  5335. 1021.18 s [opt-env-conf-test]
  5336. 1021.18 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  5337. 1021.18 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  5338. 1021.18 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  5339. 1021.31 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  5340. 1021.31 s [opt-env-conf-test] exitFailure
  5341. 1021.31 s [opt-env-conf-test] - Right i -> case i of
  5342. 1021.31 s [opt-env-conf-test] - ShowVersion -> do
  5343. 1021.31 s [opt-env-conf-test] - progname <- getProgName
  5344. 1021.31 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  5345. 1021.31 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  5346. 1021.31 s [opt-env-conf-test] - exitSuccess
  5347. 1021.31 s [opt-env-conf-test] - RenderMan -> do
  5348. 1021.31 s [opt-env-conf-test] - progname <- getProgName
  5349. 1021.31 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  5350. 1021.31 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  5351. 1021.31 s [opt-env-conf-test] - exitSuccess
  5352. 1021.31 s [opt-env-conf-test] - RenderDocumentation -> do
  5353. 1021.31 s [opt-env-conf-test] - progname <- getProgName
  5354. 1021.31 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  5355. 1021.31 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  5356. 1021.31 s [opt-env-conf-test] - exitSuccess
  5357. 1021.31 s [opt-env-conf-test] - RenderNixosOptions -> do
  5358. 1021.31 s [opt-env-conf-test] - progname <- getProgName
  5359. 1021.31 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  5360. 1021.31 s [opt-env-conf-test] - exitSuccess
  5361. 1021.31 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  5362. 1021.31 s [opt-env-conf-test] - progname <- getProgName
  5363. 1021.31 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  5364. 1021.31 s [opt-env-conf-test] - exitSuccess
  5365. 1021.31 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  5366. 1021.31 s [opt-env-conf-test] - progname <- getProgName
  5367. 1021.31 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  5368. 1021.31 s [opt-env-conf-test] - exitSuccess
  5369. 1021.31 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  5370. 1021.31 s [opt-env-conf-test] - progname <- getProgName
  5371. 1021.31 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  5372. 1021.32 s [opt-env-conf-test] - exitSuccess
  5373. 1021.32 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  5374. 1021.32 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  5375. 1021.32 s [opt-env-conf-test] - exitSuccess
  5376. 1021.32 s [opt-env-conf-test] - ParsedNormally a -> pure a
  5377. 1021.32 s [opt-env-conf-test] + Right i -> case i of
  5378. 1021.32 s [opt-env-conf-test] + ShowVersion -> do
  5379. 1021.32 s [opt-env-conf-test] + progname <- getProgName
  5380. 1021.32 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  5381. 1021.32 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  5382. 1021.32 s [opt-env-conf-test] + exitSuccess
  5383. 1021.32 s [opt-env-conf-test] + RenderMan -> do
  5384. 1021.32 s [opt-env-conf-test] + progname <- getProgName
  5385. 1021.32 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  5386. 1021.32 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  5387. 1021.32 s [opt-env-conf-test] + exitSuccess
  5388. 1021.32 s [opt-env-conf-test] + RenderDocumentation -> do
  5389. 1021.32 s [opt-env-conf-test] + progname <- getProgName
  5390. 1021.32 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  5391. 1021.32 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  5392. 1021.32 s [opt-env-conf-test] + exitSuccess
  5393. 1021.32 s [opt-env-conf-test] + RenderNixosOptions -> do
  5394. 1021.32 s [opt-env-conf-test] + progname <- getProgName
  5395. 1021.32 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  5396. 1021.32 s [opt-env-conf-test] + exitSuccess
  5397. 1021.32 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  5398. 1021.32 s [opt-env-conf-test] + progname <- getProgName
  5399. 1021.32 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  5400. 1021.32 s [opt-env-conf-test] + exitSuccess
  5401. 1021.32 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  5402. 1021.32 s [opt-env-conf-test] + progname <- getProgName
  5403. 1021.32 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  5404. 1021.32 s [opt-env-conf-test] + exitSuccess
  5405. 1021.32 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  5406. 1021.32 s [opt-env-conf-test] + progname <- getProgName
  5407. 1021.32 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  5408. 1021.32 s [opt-env-conf-test] + exitSuccess
  5409. 1021.32 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  5410. 1021.32 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  5411. 1021.32 s [opt-env-conf-test] + exitSuccess
  5412. 1021.32 s [opt-env-conf-test] + ParsedNormally a -> pure a
  5413. 1021.32 s [opt-env-conf-test]
  5414. 1021.32 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.
  5415. 1021.32 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  5416. 1021.32 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
  5417. 1021.32 s [opt-env-conf-test] @@ -93,6 +93,6 @@
  5418. 1021.32 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  5419. 1021.32 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  5420. 1021.32 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  5421. 1021.32 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  5422. 1021.32 s [opt-env-conf-test] + _ -> OptionTypeOneOf []
  5423. 1021.32 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  5424. 1021.32 s [opt-env-conf-test] goCommand = go . commandParser
  5425. 1021.32 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  5426. 1021.32 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  5427. 1021.32 s [opt-env-conf-test] renderLintError LintError {..} =
  5428. 1021.32 s [opt-env-conf-test] concat
  5429. 1021.32 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  5430. 1021.32 s [opt-env-conf-test] - case lintErrorMessage of
  5431. 1021.32 s [opt-env-conf-test] - LintErrorUndocumented ->
  5432. 1021.32 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  5433. 1021.32 s [opt-env-conf-test] - LintErrorEmptySetting ->
  5434. 1021.32 s [opt-env-conf-test] - concat
  5435. 1021.32 s [opt-env-conf-test] - [ [ [ "This ",
  5436. 1021.32 s [opt-env-conf-test] - functionChunk "setting",
  5437. 1021.32 s [opt-env-conf-test] - " parses nothing."
  5438. 1021.32 s [opt-env-conf-test] - ]
  5439. 1021.32 s [opt-env-conf-test] - ],
  5440. 1021.32 s [opt-env-conf-test] - [ [ "Add an ",
  5441. 1021.32 s [opt-env-conf-test] - functionChunk "argument",
  5442. 1021.32 s [opt-env-conf-test] - ", ",
  5443. 1021.32 s [opt-env-conf-test] - functionChunk "switch",
  5444. 1021.32 s [opt-env-conf-test] - ", ",
  5445. 1021.32 s [opt-env-conf-test] - functionChunk "option",
  5446. 1021.32 s [opt-env-conf-test] - ", ",
  5447. 1021.32 s [opt-env-conf-test] - functionChunk "env",
  5448. 1021.32 s [opt-env-conf-test] - ", ",
  5449. 1021.32 s [opt-env-conf-test] - functionChunk "conf",
  5450. 1021.32 s [opt-env-conf-test] - ", or ",
  5451. 1021.32 s [opt-env-conf-test] - functionChunk "value",
  5452. 1021.32 s [opt-env-conf-test] - "."
  5453. 1021.32 s [opt-env-conf-test] - ]
  5454. 1021.32 s [opt-env-conf-test] - ]
  5455. 1021.32 s [opt-env-conf-test] - ]
  5456. 1021.32 s [opt-env-conf-test] - LintErrorDashInShort ->
  5457. 1021.32 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  5458. 1021.32 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  5459. 1021.32 s [opt-env-conf-test] - ]
  5460. 1021.32 s [opt-env-conf-test] - LintErrorDashInLong s ->
  5461. 1021.32 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  5462. 1021.32 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5463. 1021.32 s [opt-env-conf-test] - [ "Try ",
  5464. 1021.32 s [opt-env-conf-test] - functionChunk "long",
  5465. 1021.33 s [opt-env-conf-test] - " ",
  5466. 1021.33 s [opt-env-conf-test] - chunk $
  5467. 1021.33 s [opt-env-conf-test] - T.pack $
  5468. 1021.33 s [opt-env-conf-test] - show $
  5469. 1021.33 s [opt-env-conf-test] - let go = \case
  5470. 1021.33 s [opt-env-conf-test] - [] -> []
  5471. 1021.33 s [opt-env-conf-test] - '-' : cs -> go cs
  5472. 1021.33 s [opt-env-conf-test] - c : cs -> c : cs
  5473. 1021.33 s [opt-env-conf-test] - in go $ NE.toList s,
  5474. 1021.33 s [opt-env-conf-test] - " instead."
  5475. 1021.33 s [opt-env-conf-test] - ]
  5476. 1021.33 s [opt-env-conf-test] - ]
  5477. 1021.33 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  5478. 1021.33 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5479. 1021.33 s [opt-env-conf-test] - " has no ",
  5480. 1021.33 s [opt-env-conf-test] - functionChunk "reader",
  5481. 1021.33 s [opt-env-conf-test] - "."
  5482. 1021.33 s [opt-env-conf-test] - ]
  5483. 1021.33 s [opt-env-conf-test] - ]
  5484. 1021.33 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  5485. 1021.33 s [opt-env-conf-test] - [ [ functionChunk "argument",
  5486. 1021.33 s [opt-env-conf-test] - " has no ",
  5487. 1021.33 s [opt-env-conf-test] - functionChunk "metavar",
  5488. 1021.33 s [opt-env-conf-test] - "."
  5489. 1021.33 s [opt-env-conf-test] - ]
  5490. 1021.33 s [opt-env-conf-test] - ]
  5491. 1021.33 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  5492. 1021.33 s [opt-env-conf-test] - [ [ functionChunk "option",
  5493. 1021.33 s [opt-env-conf-test] - " or ",
  5494. 1021.33 s [opt-env-conf-test] - functionChunk "name",
  5495. 1021.33 s [opt-env-conf-test] - " has no ",
  5496. 1021.33 s [opt-env-conf-test] - functionChunk "reader",
  5497. 1021.33 s [opt-env-conf-test] - "."
  5498. 1021.33 s [opt-env-conf-test] - ]
  5499. 1021.33 s [opt-env-conf-test] - ]
  5500. 1021.33 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  5501. 1021.33 s [opt-env-conf-test] - [ [ functionChunk "option",
  5502. 1021.33 s [opt-env-conf-test] - " has no ",
  5503. 1021.33 s [opt-env-conf-test] - functionChunk "long",
  5504. 1021.33 s [opt-env-conf-test] - " or ",
  5505. 1021.33 s [opt-env-conf-test] - functionChunk "short",
  5506. 1021.33 s [opt-env-conf-test] - "."
  5507. 1021.33 s [opt-env-conf-test] - ]
  5508. 1021.33 s [opt-env-conf-test] - ]
  5509. 1021.33 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  5510. 1021.33 s [opt-env-conf-test] - [ [ functionChunk "option",
  5511. 1021.33 s [opt-env-conf-test] - " or ",
  5512. 1021.33 s [opt-env-conf-test] - functionChunk "name",
  5513. 1021.33 s [opt-env-conf-test] - " has no ",
  5514. 1021.33 s [opt-env-conf-test] - functionChunk "metavar",
  5515. 1021.33 s [opt-env-conf-test] - "."
  5516. 1021.33 s [opt-env-conf-test] - ]
  5517. 1021.33 s [opt-env-conf-test] - ]
  5518. 1021.33 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  5519. 1021.33 s [opt-env-conf-test] - [ [ functionChunk "switch",
  5520. 1021.33 s [opt-env-conf-test] - " has no ",
  5521. 1021.33 s [opt-env-conf-test] - functionChunk "long",
  5522. 1021.33 s [opt-env-conf-test] - " or ",
  5523. 1021.33 s [opt-env-conf-test] - functionChunk "short",
  5524. 1021.33 s [opt-env-conf-test] - "."
  5525. 1021.33 s [opt-env-conf-test] - ]
  5526. 1021.33 s [opt-env-conf-test] - ]
  5527. 1021.33 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  5528. 1021.33 s [opt-env-conf-test] - [ [ functionChunk "long",
  5529. 1021.33 s [opt-env-conf-test] - " or ",
  5530. 1021.33 s [opt-env-conf-test] - functionChunk "short",
  5531. 1021.33 s [opt-env-conf-test] - " has no ",
  5532. 1021.33 s [opt-env-conf-test] - functionChunk "option",
  5533. 1021.33 s [opt-env-conf-test] - " or ",
  5534. 1021.33 s [opt-env-conf-test] - functionChunk "switch",
  5535. 1021.33 s [opt-env-conf-test] - "."
  5536. 1021.33 s [opt-env-conf-test] - ]
  5537. 1021.33 s [opt-env-conf-test] - ]
  5538. 1021.33 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  5539. 1021.33 s [opt-env-conf-test] - [ [ functionChunk "env",
  5540. 1021.33 s [opt-env-conf-test] - " or ",
  5541. 1021.33 s [opt-env-conf-test] - functionChunk "name",
  5542. 1021.33 s [opt-env-conf-test] - " has no ",
  5543. 1021.45 s [opt-env-conf-test] - functionChunk "reader",
  5544. 1021.45 s [opt-env-conf-test] - "."
  5545. 1021.45 s [opt-env-conf-test] - ]
  5546. 1021.45 s [opt-env-conf-test] - ]
  5547. 1021.45 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  5548. 1021.45 s [opt-env-conf-test] - [ [ functionChunk "env",
  5549. 1021.45 s [opt-env-conf-test] - " or ",
  5550. 1021.45 s [opt-env-conf-test] - functionChunk "name",
  5551. 1021.45 s [opt-env-conf-test] - " has no ",
  5552. 1021.45 s [opt-env-conf-test] - functionChunk "metavar",
  5553. 1021.45 s [opt-env-conf-test] - "."
  5554. 1021.45 s [opt-env-conf-test] - ]
  5555. 1021.45 s [opt-env-conf-test] - ]
  5556. 1021.45 s [opt-env-conf-test] - LintErrorNoCommands ->
  5557. 1021.45 s [opt-env-conf-test] - [ [ functionChunk "commands",
  5558. 1021.45 s [opt-env-conf-test] - " was called with an empty list."
  5559. 1021.45 s [opt-env-conf-test] - ]
  5560. 1021.45 s [opt-env-conf-test] - ]
  5561. 1021.45 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  5562. 1021.45 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  5563. 1021.45 s [opt-env-conf-test] - " was called with an unknown command: ",
  5564. 1021.45 s [opt-env-conf-test] - commandChunk c
  5565. 1021.45 s [opt-env-conf-test] - ]
  5566. 1021.45 s [opt-env-conf-test] - ]
  5567. 1021.45 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  5568. 1021.45 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5569. 1021.45 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  5570. 1021.45 s [opt-env-conf-test] - ]
  5571. 1021.45 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  5572. 1021.45 s [opt-env-conf-test] - [ [ functionChunk "conf",
  5573. 1021.45 s [opt-env-conf-test] - " or ",
  5574. 1021.45 s [opt-env-conf-test] - functionChunk "name",
  5575. 1021.45 s [opt-env-conf-test] - " was called with no way to load configuration."
  5576. 1021.45 s [opt-env-conf-test] - ],
  5577. 1021.45 s [opt-env-conf-test] - [ "You can load configuration with ",
  5578. 1021.45 s [opt-env-conf-test] - functionChunk "withConfig",
  5579. 1021.45 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  5580. 1021.45 s [opt-env-conf-test] - functionChunk "withoutConfig",
  5581. 1021.45 s [opt-env-conf-test] - "."
  5582. 1021.45 s [opt-env-conf-test] - ]
  5583. 1021.45 s [opt-env-conf-test] - ]
  5584. 1021.45 s [opt-env-conf-test] - LintErrorManyInfinite ->
  5585. 1021.45 s [opt-env-conf-test] - [ [ functionChunk "many",
  5586. 1021.45 s [opt-env-conf-test] - " or ",
  5587. 1021.45 s [opt-env-conf-test] - functionChunk "some",
  5588. 1021.45 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  5589. 1021.45 s [opt-env-conf-test] - ],
  5590. 1021.45 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  5591. 1021.45 s [opt-env-conf-test] - ],
  5592. 1021.45 s [opt-env-conf-test] + case lintErrorMessage of
  5593. 1021.45 s [opt-env-conf-test] + LintErrorUndocumented ->
  5594. 1021.45 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  5595. 1021.45 s [opt-env-conf-test] + LintErrorEmptySetting ->
  5596. 1021.45 s [opt-env-conf-test] + concat
  5597. 1021.45 s [opt-env-conf-test] + [ [ [ "This ",
  5598. 1021.45 s [opt-env-conf-test] + functionChunk "setting",
  5599. 1021.45 s [opt-env-conf-test] + " parses nothing."
  5600. 1021.45 s [opt-env-conf-test] + ]
  5601. 1021.45 s [opt-env-conf-test] + ],
  5602. 1021.45 s [opt-env-conf-test] + [ [ "Add an ",
  5603. 1021.45 s [opt-env-conf-test] + functionChunk "argument",
  5604. 1021.45 s [opt-env-conf-test] + ", ",
  5605. 1021.45 s [opt-env-conf-test] + functionChunk "switch",
  5606. 1021.45 s [opt-env-conf-test] + ", ",
  5607. 1021.45 s [opt-env-conf-test] + functionChunk "option",
  5608. 1021.45 s [opt-env-conf-test] + ", ",
  5609. 1021.46 s [opt-env-conf-test] + functionChunk "env",
  5610. 1021.46 s [opt-env-conf-test] + ", ",
  5611. 1021.46 s [opt-env-conf-test] + functionChunk "conf",
  5612. 1021.46 s [opt-env-conf-test] + ", or ",
  5613. 1021.46 s [opt-env-conf-test] + functionChunk "value",
  5614. 1021.46 s [opt-env-conf-test] + "."
  5615. 1021.46 s [opt-env-conf-test] + ]
  5616. 1021.46 s [opt-env-conf-test] + ]
  5617. 1021.46 s [opt-env-conf-test] + ]
  5618. 1021.46 s [opt-env-conf-test] + LintErrorDashInShort ->
  5619. 1021.46 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  5620. 1021.46 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  5621. 1021.46 s [opt-env-conf-test] + ]
  5622. 1021.46 s [opt-env-conf-test] + LintErrorDashInLong s ->
  5623. 1021.46 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  5624. 1021.46 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5625. 1021.46 s [opt-env-conf-test] + [ "Try ",
  5626. 1021.46 s [opt-env-conf-test] + functionChunk "long",
  5627. 1021.46 s [opt-env-conf-test] + " ",
  5628. 1021.46 s [opt-env-conf-test] + chunk $
  5629. 1021.46 s [opt-env-conf-test] + T.pack $
  5630. 1021.46 s [opt-env-conf-test] + show $
  5631. 1021.46 s [opt-env-conf-test] + let go = \case
  5632. 1021.46 s [opt-env-conf-test] + [] -> []
  5633. 1021.46 s [opt-env-conf-test] + '-' : cs -> go cs
  5634. 1021.46 s [opt-env-conf-test] + c : cs -> c : cs
  5635. 1021.46 s [opt-env-conf-test] + in go $ NE.toList s,
  5636. 1021.46 s [opt-env-conf-test] + " instead."
  5637. 1021.46 s [opt-env-conf-test] + ]
  5638. 1021.46 s [opt-env-conf-test] + ]
  5639. 1021.46 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  5640. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "argument",
  5641. 1021.46 s [opt-env-conf-test] + " has no ",
  5642. 1021.46 s [opt-env-conf-test] + functionChunk "reader",
  5643. 1021.46 s [opt-env-conf-test] + "."
  5644. 1021.46 s [opt-env-conf-test] + ]
  5645. 1021.46 s [opt-env-conf-test] + ]
  5646. 1021.46 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  5647. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "argument",
  5648. 1021.46 s [opt-env-conf-test] + " has no ",
  5649. 1021.46 s [opt-env-conf-test] + functionChunk "metavar",
  5650. 1021.46 s [opt-env-conf-test] + "."
  5651. 1021.46 s [opt-env-conf-test] + ]
  5652. 1021.46 s [opt-env-conf-test] + ]
  5653. 1021.46 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  5654. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "option",
  5655. 1021.46 s [opt-env-conf-test] + " or ",
  5656. 1021.46 s [opt-env-conf-test] + functionChunk "name",
  5657. 1021.46 s [opt-env-conf-test] + " has no ",
  5658. 1021.46 s [opt-env-conf-test] + functionChunk "reader",
  5659. 1021.46 s [opt-env-conf-test] + "."
  5660. 1021.46 s [opt-env-conf-test] + ]
  5661. 1021.46 s [opt-env-conf-test] + ]
  5662. 1021.46 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  5663. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "option",
  5664. 1021.46 s [opt-env-conf-test] + " has no ",
  5665. 1021.46 s [opt-env-conf-test] + functionChunk "long",
  5666. 1021.46 s [opt-env-conf-test] + " or ",
  5667. 1021.46 s [opt-env-conf-test] + functionChunk "short",
  5668. 1021.46 s [opt-env-conf-test] + "."
  5669. 1021.46 s [opt-env-conf-test] + ]
  5670. 1021.46 s [opt-env-conf-test] + ]
  5671. 1021.46 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  5672. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "option",
  5673. 1021.46 s [opt-env-conf-test] + " or ",
  5674. 1021.46 s [opt-env-conf-test] + functionChunk "name",
  5675. 1021.46 s [opt-env-conf-test] + " has no ",
  5676. 1021.46 s [opt-env-conf-test] + functionChunk "metavar",
  5677. 1021.46 s [opt-env-conf-test] + "."
  5678. 1021.46 s [opt-env-conf-test] + ]
  5679. 1021.46 s [opt-env-conf-test] + ]
  5680. 1021.46 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  5681. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "switch",
  5682. 1021.46 s [opt-env-conf-test] + " has no ",
  5683. 1021.46 s [opt-env-conf-test] + functionChunk "long",
  5684. 1021.46 s [opt-env-conf-test] + " or ",
  5685. 1021.46 s [opt-env-conf-test] + functionChunk "short",
  5686. 1021.46 s [opt-env-conf-test] + "."
  5687. 1021.46 s [opt-env-conf-test] + ]
  5688. 1021.46 s [opt-env-conf-test] + ]
  5689. 1021.46 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  5690. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "long",
  5691. 1021.46 s [opt-env-conf-test] + " or ",
  5692. 1021.46 s [opt-env-conf-test] + functionChunk "short",
  5693. 1021.46 s [opt-env-conf-test] + " has no ",
  5694. 1021.46 s [opt-env-conf-test] + functionChunk "option",
  5695. 1021.46 s [opt-env-conf-test] + " or ",
  5696. 1021.46 s [opt-env-conf-test] + functionChunk "switch",
  5697. 1021.46 s [opt-env-conf-test] + "."
  5698. 1021.46 s [opt-env-conf-test] + ]
  5699. 1021.46 s [opt-env-conf-test] + ]
  5700. 1021.46 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  5701. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "env",
  5702. 1021.46 s [opt-env-conf-test] + " or ",
  5703. 1021.46 s [opt-env-conf-test] + functionChunk "name",
  5704. 1021.46 s [opt-env-conf-test] + " has no ",
  5705. 1021.46 s [opt-env-conf-test] + functionChunk "reader",
  5706. 1021.46 s [opt-env-conf-test] + "."
  5707. 1021.46 s [opt-env-conf-test] + ]
  5708. 1021.46 s [opt-env-conf-test] + ]
  5709. 1021.46 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  5710. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "env",
  5711. 1021.46 s [opt-env-conf-test] + " or ",
  5712. 1021.46 s [opt-env-conf-test] + functionChunk "name",
  5713. 1021.46 s [opt-env-conf-test] + " has no ",
  5714. 1021.46 s [opt-env-conf-test] + functionChunk "metavar",
  5715. 1021.46 s [opt-env-conf-test] + "."
  5716. 1021.46 s [opt-env-conf-test] + ]
  5717. 1021.46 s [opt-env-conf-test] + ]
  5718. 1021.46 s [opt-env-conf-test] + LintErrorNoCommands ->
  5719. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "commands",
  5720. 1021.46 s [opt-env-conf-test] + " was called with an empty list."
  5721. 1021.46 s [opt-env-conf-test] + ]
  5722. 1021.46 s [opt-env-conf-test] + ]
  5723. 1021.46 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  5724. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  5725. 1021.46 s [opt-env-conf-test] + " was called with an unknown command: ",
  5726. 1021.46 s [opt-env-conf-test] + commandChunk c
  5727. 1021.46 s [opt-env-conf-test] + ]
  5728. 1021.46 s [opt-env-conf-test] + ]
  5729. 1021.46 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  5730. 1021.46 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  5731. 1021.46 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  5732. 1021.46 s [opt-env-conf-test] + ]
  5733. 1021.46 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  5734. 1021.46 s [opt-env-conf-test] + [ [ functionChunk "conf",
  5735. 1021.46 s [opt-env-conf-test] + " or ",
  5736. 1021.46 s [opt-env-conf-test] + functionChunk "name",
  5737. 1021.47 s [opt-env-conf-test] + " was called with no way to load configuration."
  5738. 1021.47 s [opt-env-conf-test] + ],
  5739. 1021.47 s [opt-env-conf-test] + [ "You can load configuration with ",
  5740. 1021.47 s [opt-env-conf-test] + functionChunk "withConfig",
  5741. 1021.47 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  5742. 1021.47 s [opt-env-conf-test] + functionChunk "withoutConfig",
  5743. 1021.47 s [opt-env-conf-test] + "."
  5744. 1021.47 s [opt-env-conf-test] + ]
  5745. 1021.47 s [opt-env-conf-test] + ]
  5746. 1021.47 s [opt-env-conf-test] + LintErrorManyInfinite ->
  5747. 1021.47 s [opt-env-conf-test] + [ [ functionChunk "many",
  5748. 1021.47 s [opt-env-conf-test] + " or ",
  5749. 1021.47 s [opt-env-conf-test] + functionChunk "some",
  5750. 1021.47 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  5751. 1021.47 s [opt-env-conf-test] + ],
  5752. 1021.47 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  5753. 1021.47 s [opt-env-conf-test] + ],
  5754. 1021.47 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  5755. 1021.47 s [opt-env-conf-test] ]
  5756. 1021.47 s [opt-env-conf-test]
  5757. 1021.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  5758. 1021.47 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  5759. 1021.47 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  5760. 1021.47 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  5761. 1021.47 s [opt-env-conf-test] exitFailure
  5762. 1021.47 s [opt-env-conf-test] - Right i -> case i of
  5763. 1021.47 s [opt-env-conf-test] - ShowVersion -> do
  5764. 1021.47 s [opt-env-conf-test] - progname <- getProgName
  5765. 1021.47 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  5766. 1021.47 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  5767. 1021.47 s [opt-env-conf-test] - exitSuccess
  5768. 1021.47 s [opt-env-conf-test] - RenderMan -> do
  5769. 1021.47 s [opt-env-conf-test] - progname <- getProgName
  5770. 1021.47 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  5771. 1021.47 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  5772. 1021.47 s [opt-env-conf-test] - exitSuccess
  5773. 1021.47 s [opt-env-conf-test] - RenderDocumentation -> do
  5774. 1021.47 s [opt-env-conf-test] - progname <- getProgName
  5775. 1021.47 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  5776. 1021.47 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  5777. 1021.47 s [opt-env-conf-test] - exitSuccess
  5778. 1021.47 s [opt-env-conf-test] - RenderNixosOptions -> do
  5779. 1021.68 s [opt-env-conf-test] - progname <- getProgName
  5780. 1021.68 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  5781. 1021.68 s [opt-env-conf-test] - exitSuccess
  5782. 1021.68 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  5783. 1021.68 s [opt-env-conf-test] - progname <- getProgName
  5784. 1021.68 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  5785. 1021.68 s [opt-env-conf-test] - exitSuccess
  5786. 1021.68 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  5787. 1021.68 s [opt-env-conf-test] - progname <- getProgName
  5788. 1021.68 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  5789. 1021.68 s [opt-env-conf-test] - exitSuccess
  5790. 1021.68 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  5791. 1021.68 s [opt-env-conf-test] - progname <- getProgName
  5792. 1021.68 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  5793. 1021.68 s [opt-env-conf-test] - exitSuccess
  5794. 1021.68 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  5795. 1021.68 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  5796. 1021.68 s [opt-env-conf-test] - exitSuccess
  5797. 1021.68 s [opt-env-conf-test] - ParsedNormally a -> pure a
  5798. 1021.68 s [opt-env-conf-test] + Right i -> case i of
  5799. 1021.68 s [opt-env-conf-test] + ShowVersion -> do
  5800. 1021.68 s [opt-env-conf-test] + progname <- getProgName
  5801. 1021.68 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  5802. 1021.68 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  5803. 1021.68 s [opt-env-conf-test] + exitSuccess
  5804. 1021.68 s [opt-env-conf-test] + RenderMan -> do
  5805. 1021.68 s [opt-env-conf-test] + progname <- getProgName
  5806. 1021.69 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  5807. 1021.69 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  5808. 1021.69 s [opt-env-conf-test] + exitSuccess
  5809. 1021.69 s [opt-env-conf-test] + RenderDocumentation -> do
  5810. 1021.69 s [opt-env-conf-test] + progname <- getProgName
  5811. 1021.69 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  5812. 1021.69 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  5813. 1021.69 s [opt-env-conf-test] + exitSuccess
  5814. 1021.69 s [opt-env-conf-test] + RenderNixosOptions -> do
  5815. 1021.69 s [opt-env-conf-test] + progname <- getProgName
  5816. 1021.69 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  5817. 1021.69 s [opt-env-conf-test] + exitSuccess
  5818. 1021.69 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  5819. 1021.69 s [opt-env-conf-test] + progname <- getProgName
  5820. 1021.69 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  5821. 1021.69 s [opt-env-conf-test] + exitSuccess
  5822. 1021.69 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  5823. 1021.69 s [opt-env-conf-test] + progname <- getProgName
  5824. 1021.69 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  5825. 1021.69 s [opt-env-conf-test] + exitSuccess
  5826. 1021.69 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  5827. 1021.69 s [opt-env-conf-test] + progname <- getProgName
  5828. 1021.69 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  5829. 1021.69 s [opt-env-conf-test] + exitSuccess
  5830. 1021.69 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  5831. 1021.69 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  5832. 1021.69 s [opt-env-conf-test] + exitSuccess
  5833. 1021.69 s [opt-env-conf-test] + ParsedNormally a -> pure a
  5834. 1021.69 s [opt-env-conf-test]
  5835. 1021.69 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  5836. 1021.69 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  5837. 1021.69 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  5838. 1021.69 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  5839. 1021.69 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  5840. 1021.69 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  5841. 1021.69 s [opt-env-conf-test] exitFailure
  5842. 1021.69 s [opt-env-conf-test] - Right i -> case i of
  5843. 1021.69 s [opt-env-conf-test] - ShowVersion -> do
  5844. 1021.69 s [opt-env-conf-test] - progname <- getProgName
  5845. 1021.69 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  5846. 1021.69 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  5847. 1021.69 s [opt-env-conf-test] - exitSuccess
  5848. 1021.69 s [opt-env-conf-test] - RenderMan -> do
  5849. 1021.69 s [opt-env-conf-test] - progname <- getProgName
  5850. 1021.69 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  5851. 1021.69 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  5852. 1021.69 s [opt-env-conf-test] - exitSuccess
  5853. 1021.69 s [opt-env-conf-test] - RenderDocumentation -> do
  5854. 1021.69 s [opt-env-conf-test] - progname <- getProgName
  5855. 1021.69 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  5856. 1021.69 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  5857. 1021.69 s [opt-env-conf-test] - exitSuccess
  5858. 1021.69 s [opt-env-conf-test] - RenderNixosOptions -> do
  5859. 1021.70 s [opt-env-conf-test] - progname <- getProgName
  5860. 1021.70 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  5861. 1021.70 s [opt-env-conf-test] - exitSuccess
  5862. 1021.70 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  5863. 1021.70 s [opt-env-conf-test] - progname <- getProgName
  5864. 1021.70 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  5865. 1021.70 s [opt-env-conf-test] - exitSuccess
  5866. 1021.70 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  5867. 1021.70 s [opt-env-conf-test] - progname <- getProgName
  5868. 1021.70 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  5869. 1021.70 s [opt-env-conf-test] - exitSuccess
  5870. 1021.70 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  5871. 1021.70 s [opt-env-conf-test] - progname <- getProgName
  5872. 1021.70 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  5873. 1021.70 s [opt-env-conf-test] - exitSuccess
  5874. 1021.70 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  5875. 1021.70 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  5876. 1021.70 s [opt-env-conf-test] - exitSuccess
  5877. 1021.70 s [opt-env-conf-test] - ParsedNormally a -> pure a
  5878. 1021.70 s [opt-env-conf-test] + Right i -> case i of
  5879. 1021.70 s [opt-env-conf-test] + ShowVersion -> do
  5880. 1021.70 s [opt-env-conf-test] + progname <- getProgName
  5881. 1021.70 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  5882. 1021.70 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  5883. 1021.70 s [opt-env-conf-test] + exitSuccess
  5884. 1021.70 s [opt-env-conf-test] + RenderMan -> do
  5885. 1021.70 s [opt-env-conf-test] + progname <- getProgName
  5886. 1021.70 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  5887. 1021.70 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  5888. 1021.70 s [opt-env-conf-test] + exitSuccess
  5889. 1021.70 s [opt-env-conf-test] + RenderDocumentation -> do
  5890. 1021.70 s [opt-env-conf-test] + progname <- getProgName
  5891. 1021.70 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  5892. 1021.70 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  5893. 1021.70 s [opt-env-conf-test] + exitSuccess
  5894. 1021.70 s [opt-env-conf-test] + RenderNixosOptions -> do
  5895. 1021.70 s [opt-env-conf-test] + progname <- getProgName
  5896. 1021.70 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  5897. 1021.70 s [opt-env-conf-test] + exitSuccess
  5898. 1021.70 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  5899. 1021.70 s [opt-env-conf-test] + progname <- getProgName
  5900. 1021.70 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  5901. 1021.70 s [opt-env-conf-test] + exitSuccess
  5902. 1021.70 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  5903. 1021.70 s [opt-env-conf-test] + progname <- getProgName
  5904. 1021.70 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  5905. 1021.70 s [opt-env-conf-test] + exitSuccess
  5906. 1021.70 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  5907. 1021.70 s [opt-env-conf-test] + progname <- getProgName
  5908. 1021.70 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  5909. 1021.70 s [opt-env-conf-test] + exitSuccess
  5910. 1021.70 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  5911. 1021.70 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  5912. 1021.70 s [opt-env-conf-test] + exitSuccess
  5913. 1021.70 s [opt-env-conf-test] + ParsedNormally a -> pure a
  5914. 1021.70 s [opt-env-conf-test]
  5915. 1021.70 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  5916. 1021.70 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  5917. 1021.70 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
  5918. 1021.70 s [opt-env-conf-test] @@ -93,6 +93,6 @@
  5919. 1021.70 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  5920. 1021.70 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  5921. 1021.70 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  5922. 1021.70 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  5923. 1021.70 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  5924. 1021.70 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  5925. 1021.70 s [opt-env-conf-test] goCommand = go . commandParser
  5926. 1021.70 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  5927. 1021.70 s [opt-env-conf-test] @@ -91,8 +91,8 @@
  5928. 1021.70 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  5929. 1021.70 s [opt-env-conf-test]
  5930. 1021.70 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  5931. 1021.70 s [opt-env-conf-test] - combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  5932. 1021.70 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  5933. 1022.25 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  5934. 1022.25 s [opt-env-conf-test] + combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  5935. 1022.25 s [opt-env-conf-test] + (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  5936. 1022.25 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  5937. 1022.25 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  5938. 1022.25 s [opt-env-conf-test] goCommand = go . commandParser
  5939. 1022.25 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  5940. 1022.25 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  5941. 1022.25 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  5942. 1022.25 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  5943. 1022.25 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  5944. 1022.25 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  5945. 1022.25 s [opt-env-conf-test] - (Nothing, _) -> o2
  5946. 1022.25 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  5947. 1022.25 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  5948. 1022.25 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  5949. 1022.25 s [opt-env-conf-test] + (Nothing, _) -> o2
  5950. 1022.25 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  5951. 1022.25 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  5952. 1022.25 s [opt-env-conf-test]
  5953. 1022.25 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  5954. 1022.25 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  5955. 1022.25 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  5956. 1022.25 s [opt-env-conf-test] @@ -65,171 +65,7 @@
  5957. 1022.25 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  5958. 1022.26 s [opt-env-conf-test] renderLintError LintError {..} =
  5959. 1022.26 s [opt-env-conf-test] concat
  5960. 1022.26 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  5961. 1022.26 s [opt-env-conf-test] - case lintErrorMessage of
  5962. 1022.26 s [opt-env-conf-test] - LintErrorUndocumented ->
  5963. 1022.26 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  5964. 1022.26 s [opt-env-conf-test] - LintErrorEmptySetting ->
  5965. 1022.26 s [opt-env-conf-test] - concat
  5966. 1022.26 s [opt-env-conf-test] - [ [ [ "This ",
  5967. 1022.26 s [opt-env-conf-test] - functionChunk "setting",
  5968. 1022.26 s [opt-env-conf-test] - " parses nothing."
  5969. 1022.26 s [opt-env-conf-test] - ]
  5970. 1022.26 s [opt-env-conf-test] - ],
  5971. 1022.26 s [opt-env-conf-test] - [ [ "Add an ",
  5972. 1022.26 s [opt-env-conf-test] - functionChunk "argument",
  5973. 1022.26 s [opt-env-conf-test] - ", ",
  5974. 1022.26 s [opt-env-conf-test] - functionChunk "switch",
  5975. 1022.26 s [opt-env-conf-test] - ", ",
  5976. 1022.26 s [opt-env-conf-test] - functionChunk "option",
  5977. 1022.26 s [opt-env-conf-test] - ", ",
  5978. 1022.26 s [opt-env-conf-test] - functionChunk "env",
  5979. 1022.26 s [opt-env-conf-test] - ", ",
  5980. 1022.26 s [opt-env-conf-test] - functionChunk "conf",
  5981. 1022.26 s [opt-env-conf-test] - ", or ",
  5982. 1022.26 s [opt-env-conf-test] - functionChunk "value",
  5983. 1022.26 s [opt-env-conf-test] - "."
  5984. 1022.26 s [opt-env-conf-test] - ]
  5985. 1022.26 s [opt-env-conf-test] - ]
  5986. 1022.26 s [opt-env-conf-test] - ]
  5987. 1022.26 s [opt-env-conf-test] - LintErrorDashInShort ->
  5988. 1022.26 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  5989. 1022.26 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  5990. 1022.26 s [opt-env-conf-test] - ]
  5991. 1022.26 s [opt-env-conf-test] - LintErrorDashInLong s ->
  5992. 1022.26 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  5993. 1022.26 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  5994. 1022.26 s [opt-env-conf-test] - [ "Try ",
  5995. 1022.26 s [opt-env-conf-test] - functionChunk "long",
  5996. 1022.26 s [opt-env-conf-test] - " ",
  5997. 1022.26 s [opt-env-conf-test] - chunk $
  5998. 1022.28 s [opt-env-conf-test] - T.pack $
  5999. 1022.28 s [opt-env-conf-test] - show $
  6000. 1022.28 s [opt-env-conf-test] - let go = \case
  6001. 1022.28 s [opt-env-conf-test] - [] -> []
  6002. 1022.28 s [opt-env-conf-test] - '-' : cs -> go cs
  6003. 1022.28 s [opt-env-conf-test] - c : cs -> c : cs
  6004. 1022.28 s [opt-env-conf-test] - in go $ NE.toList s,
  6005. 1022.28 s [opt-env-conf-test] - " instead."
  6006. 1022.28 s [opt-env-conf-test] - ]
  6007. 1022.28 s [opt-env-conf-test] - ]
  6008. 1022.28 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  6009. 1022.28 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6010. 1022.28 s [opt-env-conf-test] - " has no ",
  6011. 1022.28 s [opt-env-conf-test] - functionChunk "reader",
  6012. 1022.28 s [opt-env-conf-test] - "."
  6013. 1022.28 s [opt-env-conf-test] - ]
  6014. 1022.28 s [opt-env-conf-test] - ]
  6015. 1022.28 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  6016. 1022.28 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6017. 1022.28 s [opt-env-conf-test] - " has no ",
  6018. 1022.28 s [opt-env-conf-test] - functionChunk "metavar",
  6019. 1022.28 s [opt-env-conf-test] - "."
  6020. 1022.28 s [opt-env-conf-test] - ]
  6021. 1022.28 s [opt-env-conf-test] - ]
  6022. 1022.28 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  6023. 1022.28 s [opt-env-conf-test] - [ [ functionChunk "option",
  6024. 1022.28 s [opt-env-conf-test] - " or ",
  6025. 1022.28 s [opt-env-conf-test] - functionChunk "name",
  6026. 1022.28 s [opt-env-conf-test] - " has no ",
  6027. 1022.28 s [opt-env-conf-test] - functionChunk "reader",
  6028. 1022.28 s [opt-env-conf-test] - "."
  6029. 1022.28 s [opt-env-conf-test] - ]
  6030. 1022.28 s [opt-env-conf-test] - ]
  6031. 1022.28 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  6032. 1022.28 s [opt-env-conf-test] - [ [ functionChunk "option",
  6033. 1022.28 s [opt-env-conf-test] - " has no ",
  6034. 1022.28 s [opt-env-conf-test] - functionChunk "long",
  6035. 1022.28 s [opt-env-conf-test] - " or ",
  6036. 1022.28 s [opt-env-conf-test] - functionChunk "short",
  6037. 1022.28 s [opt-env-conf-test] - "."
  6038. 1022.28 s [opt-env-conf-test] - ]
  6039. 1022.28 s [opt-env-conf-test] - ]
  6040. 1022.28 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  6041. 1022.28 s [opt-env-conf-test] - [ [ functionChunk "option",
  6042. 1022.28 s [opt-env-conf-test] - " or ",
  6043. 1022.28 s [opt-env-conf-test] - functionChunk "name",
  6044. 1022.28 s [opt-env-conf-test] - " has no ",
  6045. 1022.28 s [opt-env-conf-test] - functionChunk "metavar",
  6046. 1022.28 s [opt-env-conf-test] - "."
  6047. 1022.28 s [opt-env-conf-test] - ]
  6048. 1022.28 s [opt-env-conf-test] - ]
  6049. 1022.28 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  6050. 1022.28 s [opt-env-conf-test] - [ [ functionChunk "switch",
  6051. 1022.28 s [opt-env-conf-test] - " has no ",
  6052. 1022.28 s [opt-env-conf-test] - functionChunk "long",
  6053. 1022.28 s [opt-env-conf-test] - " or ",
  6054. 1022.28 s [opt-env-conf-test] - functionChunk "short",
  6055. 1022.28 s [opt-env-conf-test] - "."
  6056. 1022.28 s [opt-env-conf-test] - ]
  6057. 1022.28 s [opt-env-conf-test] - ]
  6058. 1022.28 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  6059. 1022.28 s [opt-env-conf-test] - [ [ functionChunk "long",
  6060. 1022.28 s [opt-env-conf-test] - " or ",
  6061. 1022.28 s [opt-env-conf-test] - functionChunk "short",
  6062. 1022.28 s [opt-env-conf-test] - " has no ",
  6063. 1022.28 s [opt-env-conf-test] - functionChunk "option",
  6064. 1022.28 s [opt-env-conf-test] - " or ",
  6065. 1022.29 s [opt-env-conf-test] - functionChunk "switch",
  6066. 1022.29 s [opt-env-conf-test] - "."
  6067. 1022.29 s [opt-env-conf-test] - ]
  6068. 1022.29 s [opt-env-conf-test] - ]
  6069. 1022.29 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  6070. 1022.29 s [opt-env-conf-test] - [ [ functionChunk "env",
  6071. 1022.29 s [opt-env-conf-test] - " or ",
  6072. 1022.29 s [opt-env-conf-test] - functionChunk "name",
  6073. 1022.29 s [opt-env-conf-test] - " has no ",
  6074. 1022.29 s [opt-env-conf-test] - functionChunk "reader",
  6075. 1022.29 s [opt-env-conf-test] - "."
  6076. 1022.29 s [opt-env-conf-test] - ]
  6077. 1022.29 s [opt-env-conf-test] - ]
  6078. 1022.29 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  6079. 1022.29 s [opt-env-conf-test] - [ [ functionChunk "env",
  6080. 1022.29 s [opt-env-conf-test] - " or ",
  6081. 1022.29 s [opt-env-conf-test] - functionChunk "name",
  6082. 1022.29 s [opt-env-conf-test] - " has no ",
  6083. 1022.29 s [opt-env-conf-test] - functionChunk "metavar",
  6084. 1022.29 s [opt-env-conf-test] - "."
  6085. 1022.29 s [opt-env-conf-test] - ]
  6086. 1022.29 s [opt-env-conf-test] - ]
  6087. 1022.29 s [opt-env-conf-test] - LintErrorNoCommands ->
  6088. 1022.29 s [opt-env-conf-test] - [ [ functionChunk "commands",
  6089. 1022.29 s [opt-env-conf-test] - " was called with an empty list."
  6090. 1022.29 s [opt-env-conf-test] - ]
  6091. 1022.29 s [opt-env-conf-test] - ]
  6092. 1022.29 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  6093. 1022.29 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  6094. 1022.29 s [opt-env-conf-test] - " was called with an unknown command: ",
  6095. 1022.29 s [opt-env-conf-test] - commandChunk c
  6096. 1022.29 s [opt-env-conf-test] - ]
  6097. 1022.29 s [opt-env-conf-test] - ]
  6098. 1022.29 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  6099. 1022.29 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  6100. 1022.29 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  6101. 1022.29 s [opt-env-conf-test] - ]
  6102. 1022.29 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  6103. 1022.29 s [opt-env-conf-test] - [ [ functionChunk "conf",
  6104. 1022.29 s [opt-env-conf-test] - " or ",
  6105. 1022.29 s [opt-env-conf-test] - functionChunk "name",
  6106. 1022.29 s [opt-env-conf-test] - " was called with no way to load configuration."
  6107. 1022.29 s [opt-env-conf-test] - ],
  6108. 1022.29 s [opt-env-conf-test] - [ "You can load configuration with ",
  6109. 1022.29 s [opt-env-conf-test] - functionChunk "withConfig",
  6110. 1022.29 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  6111. 1022.29 s [opt-env-conf-test] - functionChunk "withoutConfig",
  6112. 1022.29 s [opt-env-conf-test] - "."
  6113. 1022.29 s [opt-env-conf-test] - ]
  6114. 1022.29 s [opt-env-conf-test] - ]
  6115. 1022.29 s [opt-env-conf-test] - LintErrorManyInfinite ->
  6116. 1022.29 s [opt-env-conf-test] - [ [ functionChunk "many",
  6117. 1022.29 s [opt-env-conf-test] - " or ",
  6118. 1022.29 s [opt-env-conf-test] - functionChunk "some",
  6119. 1022.29 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  6120. 1022.29 s [opt-env-conf-test] - ],
  6121. 1022.29 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  6122. 1022.29 s [opt-env-conf-test] - ],
  6123. 1022.29 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  6124. 1022.29 s [opt-env-conf-test] - ]
  6125. 1022.29 s [opt-env-conf-test] + []
  6126. 1022.29 s [opt-env-conf-test]
  6127. 1022.29 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  6128. 1022.29 s [opt-env-conf-test] lintParser =
  6129. 1022.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  6130. 1022.29 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  6131. 1022.29 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  6132. 1022.29 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  6133. 1022.29 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  6134. 1022.29 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  6135. 1022.29 s [opt-env-conf-test] - (Nothing, _) -> o2
  6136. 1022.29 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  6137. 1022.29 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  6138. 1022.29 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  6139. 1022.29 s [opt-env-conf-test] + (Nothing, _) -> o2
  6140. 1022.29 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  6141. 1022.29 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  6142. 1022.29 s [opt-env-conf-test]
  6143. 1022.29 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  6144. 1022.29 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  6145. 1022.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  6146. 1022.29 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  6147. 1022.29 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  6148. 1022.29 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  6149. 1022.29 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  6150. 1022.30 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  6151. 1022.30 s [opt-env-conf-test] - (Nothing, _) -> o2
  6152. 1022.30 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  6153. 1022.30 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  6154. 1022.30 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  6155. 1022.30 s [opt-env-conf-test] + (Nothing, _) -> o2
  6156. 1022.30 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  6157. 1022.30 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  6158. 1022.30 s [opt-env-conf-test]
  6159. 1022.30 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  6160. 1022.30 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  6161. 1022.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  6162. 1022.30 s [opt-env-conf-test] @@ -91,8 +91,8 @@
  6163. 1022.30 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  6164. 1022.30 s [opt-env-conf-test]
  6165. 1022.30 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  6166. 1022.30 s [opt-env-conf-test] - combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  6167. 1022.30 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  6168. 1022.30 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  6169. 1022.30 s [opt-env-conf-test] + combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  6170. 1022.30 s [opt-env-conf-test] + (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  6171. 1022.30 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  6172. 1022.30 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  6173. 1022.30 s [opt-env-conf-test] goCommand = go . commandParser
  6174. 1022.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  6175. 1022.30 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  6176. 1022.30 s [opt-env-conf-test] renderLintError LintError {..} =
  6177. 1022.30 s [opt-env-conf-test] concat
  6178. 1022.30 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  6179. 1022.30 s [opt-env-conf-test] - case lintErrorMessage of
  6180. 1022.30 s [opt-env-conf-test] - LintErrorUndocumented ->
  6181. 1022.30 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  6182. 1022.30 s [opt-env-conf-test] - LintErrorEmptySetting ->
  6183. 1022.30 s [opt-env-conf-test] - concat
  6184. 1022.30 s [opt-env-conf-test] - [ [ [ "This ",
  6185. 1022.30 s [opt-env-conf-test] - functionChunk "setting",
  6186. 1022.30 s [opt-env-conf-test] - " parses nothing."
  6187. 1022.30 s [opt-env-conf-test] - ]
  6188. 1022.30 s [opt-env-conf-test] - ],
  6189. 1022.30 s [opt-env-conf-test] - [ [ "Add an ",
  6190. 1022.30 s [opt-env-conf-test] - functionChunk "argument",
  6191. 1022.30 s [opt-env-conf-test] - ", ",
  6192. 1022.30 s [opt-env-conf-test] - functionChunk "switch",
  6193. 1022.30 s [opt-env-conf-test] - ", ",
  6194. 1022.30 s [opt-env-conf-test] - functionChunk "option",
  6195. 1022.30 s [opt-env-conf-test] - ", ",
  6196. 1022.30 s [opt-env-conf-test] - functionChunk "env",
  6197. 1022.30 s [opt-env-conf-test] - ", ",
  6198. 1022.30 s [opt-env-conf-test] - functionChunk "conf",
  6199. 1022.30 s [opt-env-conf-test] - ", or ",
  6200. 1022.30 s [opt-env-conf-test] - functionChunk "value",
  6201. 1022.30 s [opt-env-conf-test] - "."
  6202. 1022.30 s [opt-env-conf-test] - ]
  6203. 1022.30 s [opt-env-conf-test] - ]
  6204. 1022.30 s [opt-env-conf-test] - ]
  6205. 1022.30 s [opt-env-conf-test] - LintErrorDashInShort ->
  6206. 1022.30 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  6207. 1022.30 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  6208. 1022.30 s [opt-env-conf-test] - ]
  6209. 1022.30 s [opt-env-conf-test] - LintErrorDashInLong s ->
  6210. 1022.30 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  6211. 1022.30 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  6212. 1022.30 s [opt-env-conf-test] - [ "Try ",
  6213. 1022.30 s [opt-env-conf-test] - functionChunk "long",
  6214. 1022.30 s [opt-env-conf-test] - " ",
  6215. 1022.30 s [opt-env-conf-test] - chunk $
  6216. 1022.30 s [opt-env-conf-test] - T.pack $
  6217. 1022.30 s [opt-env-conf-test] - show $
  6218. 1022.30 s [opt-env-conf-test] - let go = \case
  6219. 1022.30 s [opt-env-conf-test] - [] -> []
  6220. 1022.30 s [opt-env-conf-test] - '-' : cs -> go cs
  6221. 1022.30 s [opt-env-conf-test] - c : cs -> c : cs
  6222. 1022.30 s [opt-env-conf-test] - in go $ NE.toList s,
  6223. 1022.30 s [opt-env-conf-test] - " instead."
  6224. 1022.30 s [opt-env-conf-test] - ]
  6225. 1022.30 s [opt-env-conf-test] - ]
  6226. 1022.31 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  6227. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6228. 1022.31 s [opt-env-conf-test] - " has no ",
  6229. 1022.31 s [opt-env-conf-test] - functionChunk "reader",
  6230. 1022.31 s [opt-env-conf-test] - "."
  6231. 1022.31 s [opt-env-conf-test] - ]
  6232. 1022.31 s [opt-env-conf-test] - ]
  6233. 1022.31 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  6234. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "argument",
  6235. 1022.31 s [opt-env-conf-test] - " has no ",
  6236. 1022.31 s [opt-env-conf-test] - functionChunk "metavar",
  6237. 1022.31 s [opt-env-conf-test] - "."
  6238. 1022.31 s [opt-env-conf-test] - ]
  6239. 1022.31 s [opt-env-conf-test] - ]
  6240. 1022.31 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  6241. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "option",
  6242. 1022.31 s [opt-env-conf-test] - " or ",
  6243. 1022.31 s [opt-env-conf-test] - functionChunk "name",
  6244. 1022.31 s [opt-env-conf-test] - " has no ",
  6245. 1022.31 s [opt-env-conf-test] - functionChunk "reader",
  6246. 1022.31 s [opt-env-conf-test] - "."
  6247. 1022.31 s [opt-env-conf-test] - ]
  6248. 1022.31 s [opt-env-conf-test] - ]
  6249. 1022.31 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  6250. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "option",
  6251. 1022.31 s [opt-env-conf-test] - " has no ",
  6252. 1022.31 s [opt-env-conf-test] - functionChunk "long",
  6253. 1022.31 s [opt-env-conf-test] - " or ",
  6254. 1022.31 s [opt-env-conf-test] - functionChunk "short",
  6255. 1022.31 s [opt-env-conf-test] - "."
  6256. 1022.31 s [opt-env-conf-test] - ]
  6257. 1022.31 s [opt-env-conf-test] - ]
  6258. 1022.31 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  6259. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "option",
  6260. 1022.31 s [opt-env-conf-test] - " or ",
  6261. 1022.31 s [opt-env-conf-test] - functionChunk "name",
  6262. 1022.31 s [opt-env-conf-test] - " has no ",
  6263. 1022.31 s [opt-env-conf-test] - functionChunk "metavar",
  6264. 1022.31 s [opt-env-conf-test] - "."
  6265. 1022.31 s [opt-env-conf-test] - ]
  6266. 1022.31 s [opt-env-conf-test] - ]
  6267. 1022.31 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  6268. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "switch",
  6269. 1022.31 s [opt-env-conf-test] - " has no ",
  6270. 1022.31 s [opt-env-conf-test] - functionChunk "long",
  6271. 1022.31 s [opt-env-conf-test] - " or ",
  6272. 1022.31 s [opt-env-conf-test] - functionChunk "short",
  6273. 1022.31 s [opt-env-conf-test] - "."
  6274. 1022.31 s [opt-env-conf-test] - ]
  6275. 1022.31 s [opt-env-conf-test] - ]
  6276. 1022.31 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  6277. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "long",
  6278. 1022.31 s [opt-env-conf-test] - " or ",
  6279. 1022.31 s [opt-env-conf-test] - functionChunk "short",
  6280. 1022.31 s [opt-env-conf-test] - " has no ",
  6281. 1022.31 s [opt-env-conf-test] - functionChunk "option",
  6282. 1022.31 s [opt-env-conf-test] - " or ",
  6283. 1022.31 s [opt-env-conf-test] - functionChunk "switch",
  6284. 1022.31 s [opt-env-conf-test] - "."
  6285. 1022.31 s [opt-env-conf-test] - ]
  6286. 1022.31 s [opt-env-conf-test] - ]
  6287. 1022.31 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  6288. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "env",
  6289. 1022.31 s [opt-env-conf-test] - " or ",
  6290. 1022.31 s [opt-env-conf-test] - functionChunk "name",
  6291. 1022.31 s [opt-env-conf-test] - " has no ",
  6292. 1022.31 s [opt-env-conf-test] - functionChunk "reader",
  6293. 1022.31 s [opt-env-conf-test] - "."
  6294. 1022.31 s [opt-env-conf-test] - ]
  6295. 1022.31 s [opt-env-conf-test] - ]
  6296. 1022.31 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  6297. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "env",
  6298. 1022.31 s [opt-env-conf-test] - " or ",
  6299. 1022.31 s [opt-env-conf-test] - functionChunk "name",
  6300. 1022.31 s [opt-env-conf-test] - " has no ",
  6301. 1022.31 s [opt-env-conf-test] - functionChunk "metavar",
  6302. 1022.31 s [opt-env-conf-test] - "."
  6303. 1022.31 s [opt-env-conf-test] - ]
  6304. 1022.31 s [opt-env-conf-test] - ]
  6305. 1022.31 s [opt-env-conf-test] - LintErrorNoCommands ->
  6306. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "commands",
  6307. 1022.31 s [opt-env-conf-test] - " was called with an empty list."
  6308. 1022.31 s [opt-env-conf-test] - ]
  6309. 1022.31 s [opt-env-conf-test] - ]
  6310. 1022.31 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  6311. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  6312. 1022.31 s [opt-env-conf-test] - " was called with an unknown command: ",
  6313. 1022.31 s [opt-env-conf-test] - commandChunk c
  6314. 1022.31 s [opt-env-conf-test] - ]
  6315. 1022.31 s [opt-env-conf-test] - ]
  6316. 1022.31 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  6317. 1022.31 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  6318. 1022.31 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  6319. 1022.31 s [opt-env-conf-test] - ]
  6320. 1022.31 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  6321. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "conf",
  6322. 1022.31 s [opt-env-conf-test] - " or ",
  6323. 1022.31 s [opt-env-conf-test] - functionChunk "name",
  6324. 1022.31 s [opt-env-conf-test] - " was called with no way to load configuration."
  6325. 1022.31 s [opt-env-conf-test] - ],
  6326. 1022.31 s [opt-env-conf-test] - [ "You can load configuration with ",
  6327. 1022.31 s [opt-env-conf-test] - functionChunk "withConfig",
  6328. 1022.31 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  6329. 1022.31 s [opt-env-conf-test] - functionChunk "withoutConfig",
  6330. 1022.31 s [opt-env-conf-test] - "."
  6331. 1022.31 s [opt-env-conf-test] - ]
  6332. 1022.31 s [opt-env-conf-test] - ]
  6333. 1022.31 s [opt-env-conf-test] - LintErrorManyInfinite ->
  6334. 1022.31 s [opt-env-conf-test] - [ [ functionChunk "many",
  6335. 1022.31 s [opt-env-conf-test] - " or ",
  6336. 1022.31 s [opt-env-conf-test] - functionChunk "some",
  6337. 1022.31 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  6338. 1022.31 s [opt-env-conf-test] - ],
  6339. 1022.31 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  6340. 1022.31 s [opt-env-conf-test] - ],
  6341. 1022.31 s [opt-env-conf-test] + case lintErrorMessage of
  6342. 1022.31 s [opt-env-conf-test] + LintErrorUndocumented ->
  6343. 1022.31 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  6344. 1022.31 s [opt-env-conf-test] + LintErrorEmptySetting ->
  6345. 1022.31 s [opt-env-conf-test] + concat
  6346. 1022.31 s [opt-env-conf-test] + [ [ [ "This ",
  6347. 1022.31 s [opt-env-conf-test] + functionChunk "setting",
  6348. 1022.31 s [opt-env-conf-test] + " parses nothing."
  6349. 1022.31 s [opt-env-conf-test] + ]
  6350. 1022.31 s [opt-env-conf-test] + ],
  6351. 1022.31 s [opt-env-conf-test] + [ [ "Add an ",
  6352. 1022.31 s [opt-env-conf-test] + functionChunk "argument",
  6353. 1022.31 s [opt-env-conf-test] + ", ",
  6354. 1022.31 s [opt-env-conf-test] + functionChunk "switch",
  6355. 1022.31 s [opt-env-conf-test] + ", ",
  6356. 1022.31 s [opt-env-conf-test] + functionChunk "option",
  6357. 1022.31 s [opt-env-conf-test] + ", ",
  6358. 1022.31 s [opt-env-conf-test] + functionChunk "env",
  6359. 1022.31 s [opt-env-conf-test] + ", ",
  6360. 1022.31 s [opt-env-conf-test] + functionChunk "conf",
  6361. 1022.32 s [opt-env-conf-test] + ", or ",
  6362. 1022.32 s [opt-env-conf-test] + functionChunk "value",
  6363. 1022.32 s [opt-env-conf-test] + "."
  6364. 1022.32 s [opt-env-conf-test] + ]
  6365. 1022.32 s [opt-env-conf-test] + ]
  6366. 1022.32 s [opt-env-conf-test] + ]
  6367. 1022.32 s [opt-env-conf-test] + LintErrorDashInShort ->
  6368. 1022.32 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  6369. 1022.32 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  6370. 1022.32 s [opt-env-conf-test] + ]
  6371. 1022.32 s [opt-env-conf-test] + LintErrorDashInLong s ->
  6372. 1022.32 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  6373. 1022.32 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  6374. 1022.32 s [opt-env-conf-test] + [ "Try ",
  6375. 1022.32 s [opt-env-conf-test] + functionChunk "long",
  6376. 1022.32 s [opt-env-conf-test] + " ",
  6377. 1022.32 s [opt-env-conf-test] + chunk $
  6378. 1022.32 s [opt-env-conf-test] + T.pack $
  6379. 1022.32 s [opt-env-conf-test] + show $
  6380. 1022.32 s [opt-env-conf-test] + let go = \case
  6381. 1022.32 s [opt-env-conf-test] + [] -> []
  6382. 1022.32 s [opt-env-conf-test] + '-' : cs -> go cs
  6383. 1022.32 s [opt-env-conf-test] + c : cs -> c : cs
  6384. 1022.32 s [opt-env-conf-test] + in go $ NE.toList s,
  6385. 1022.32 s [opt-env-conf-test] + " instead."
  6386. 1022.32 s [opt-env-conf-test] + ]
  6387. 1022.32 s [opt-env-conf-test] + ]
  6388. 1022.32 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  6389. 1022.32 s [opt-env-conf-test] + [ [ functionChunk "argument",
  6390. 1022.32 s [opt-env-conf-test] + " has no ",
  6391. 1023.94 s [opt-env-conf-test] + functionChunk "reader",
  6392. 1023.95 s [opt-env-conf-test] + "."
  6393. 1023.95 s [opt-env-conf-test] + ]
  6394. 1023.95 s [opt-env-conf-test] + ]
  6395. 1023.95 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  6396. 1023.95 s [opt-env-conf-test] + [ [ functionChunk "argument",
  6397. 1023.95 s [opt-env-conf-test] + " has no ",
  6398. 1023.95 s [opt-env-conf-test] + functionChunk "metavar",
  6399. 1023.95 s [opt-env-conf-test] + "."
  6400. 1023.95 s [opt-env-conf-test] + ]
  6401. 1023.95 s [opt-env-conf-test] + ]
  6402. 1023.95 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  6403. 1023.95 s [opt-env-conf-test] + [ [ functionChunk "option",
  6404. 1023.95 s [opt-env-conf-test] + " or ",
  6405. 1023.95 s [opt-env-conf-test] + functionChunk "name",
  6406. 1023.95 s [opt-env-conf-test] + " has no ",
  6407. 1023.95 s [opt-env-conf-test] + functionChunk "reader",
  6408. 1023.95 s [opt-env-conf-test] + "."
  6409. 1023.95 s [opt-env-conf-test] + ]
  6410. 1023.95 s [opt-env-conf-test] + ]
  6411. 1023.95 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  6412. 1023.95 s [opt-env-conf-test] + [ [ functionChunk "option",
  6413. 1023.95 s [opt-env-conf-test] + " has no ",
  6414. 1023.95 s [opt-env-conf-test] + functionChunk "long",
  6415. 1023.95 s [opt-env-conf-test] + " or ",
  6416. 1023.95 s [opt-env-conf-test] + functionChunk "short",
  6417. 1023.95 s [opt-env-conf-test] + "."
  6418. 1023.95 s [opt-env-conf-test] + ]
  6419. 1023.95 s [opt-env-conf-test] + ]
  6420. 1023.95 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  6421. 1023.95 s [opt-env-conf-test] + [ [ functionChunk "option",
  6422. 1023.95 s [opt-env-conf-test] + " or ",
  6423. 1023.95 s [opt-env-conf-test] + functionChunk "name",
  6424. 1023.95 s [opt-env-conf-test] + " has no ",
  6425. 1023.95 s [opt-env-conf-test] + functionChunk "metavar",
  6426. 1023.95 s [opt-env-conf-test] + "."
  6427. 1023.95 s [opt-env-conf-test] + ]
  6428. 1023.95 s [opt-env-conf-test] + ]
  6429. 1023.95 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  6430. 1023.95 s [opt-env-conf-test] + [ [ functionChunk "switch",
  6431. 1023.95 s [opt-env-conf-test] + " has no ",
  6432. 1023.95 s [opt-env-conf-test] + functionChunk "long",
  6433. 1023.95 s [opt-env-conf-test] + " or ",
  6434. 1023.95 s [opt-env-conf-test] + functionChunk "short",
  6435. 1023.95 s [opt-env-conf-test] + "."
  6436. 1023.95 s [opt-env-conf-test] + ]
  6437. 1023.95 s [opt-env-conf-test] + ]
  6438. 1023.95 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  6439. 1023.95 s [opt-env-conf-test] + [ [ functionChunk "long",
  6440. 1023.95 s [opt-env-conf-test] + " or ",
  6441. 1023.95 s [opt-env-conf-test] + functionChunk "short",
  6442. 1023.95 s [opt-env-conf-test] + " has no ",
  6443. 1023.95 s [opt-env-conf-test] + functionChunk "option",
  6444. 1023.95 s [opt-env-conf-test] + " or ",
  6445. 1023.95 s [opt-env-conf-test] + functionChunk "switch",
  6446. 1023.95 s [opt-env-conf-test] + "."
  6447. 1023.95 s [opt-env-conf-test] + ]
  6448. 1023.95 s [opt-env-conf-test] + ]
  6449. 1023.95 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  6450. 1023.95 s [opt-env-conf-test] + [ [ functionChunk "env",
  6451. 1023.95 s [opt-env-conf-test] + " or ",
  6452. 1023.95 s [opt-env-conf-test] + functionChunk "name",
  6453. 1023.95 s [opt-env-conf-test] + " has no ",
  6454. 1023.95 s [opt-env-conf-test] + functionChunk "reader",
  6455. 1023.95 s [opt-env-conf-test] + "."
  6456. 1023.95 s [opt-env-conf-test] + ]
  6457. 1023.95 s [opt-env-conf-test] + ]
  6458. 1023.95 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  6459. 1023.95 s [opt-env-conf-test] + [ [ functionChunk "env",
  6460. 1023.95 s [opt-env-conf-test] + " or ",
  6461. 1023.95 s [opt-env-conf-test] + functionChunk "name",
  6462. 1023.96 s [opt-env-conf-test] + " has no ",
  6463. 1023.96 s [opt-env-conf-test] + functionChunk "metavar",
  6464. 1023.96 s [opt-env-conf-test] + "."
  6465. 1023.96 s [opt-env-conf-test] + ]
  6466. 1023.96 s [opt-env-conf-test] + ]
  6467. 1023.96 s [opt-env-conf-test] + LintErrorNoCommands ->
  6468. 1023.96 s [opt-env-conf-test] + [ [ functionChunk "commands",
  6469. 1023.96 s [opt-env-conf-test] + " was called with an empty list."
  6470. 1023.96 s [opt-env-conf-test] + ]
  6471. 1023.96 s [opt-env-conf-test] + ]
  6472. 1023.96 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  6473. 1023.96 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  6474. 1023.96 s [opt-env-conf-test] + " was called with an unknown command: ",
  6475. 1023.96 s [opt-env-conf-test] + commandChunk c
  6476. 1023.96 s [opt-env-conf-test] + ]
  6477. 1023.96 s [opt-env-conf-test] + ]
  6478. 1023.96 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  6479. 1023.96 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  6480. 1023.96 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  6481. 1023.96 s [opt-env-conf-test] + ]
  6482. 1023.96 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  6483. 1023.96 s [opt-env-conf-test] + [ [ functionChunk "conf",
  6484. 1023.96 s [opt-env-conf-test] + " or ",
  6485. 1023.96 s [opt-env-conf-test] + functionChunk "name",
  6486. 1023.96 s [opt-env-conf-test] + " was called with no way to load configuration."
  6487. 1023.96 s [opt-env-conf-test] + ],
  6488. 1023.96 s [opt-env-conf-test] + [ "You can load configuration with ",
  6489. 1023.96 s [opt-env-conf-test] + functionChunk "withConfig",
  6490. 1023.96 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  6491. 1023.96 s [opt-env-conf-test] + functionChunk "withoutConfig",
  6492. 1023.96 s [opt-env-conf-test] + "."
  6493. 1023.96 s [opt-env-conf-test] + ]
  6494. 1023.96 s [opt-env-conf-test] + ]
  6495. 1023.96 s [opt-env-conf-test] + LintErrorManyInfinite ->
  6496. 1023.96 s [opt-env-conf-test] + [ [ functionChunk "many",
  6497. 1023.96 s [opt-env-conf-test] + " or ",
  6498. 1023.96 s [opt-env-conf-test] + functionChunk "some",
  6499. 1023.96 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  6500. 1023.96 s [opt-env-conf-test] + ],
  6501. 1023.96 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  6502. 1023.96 s [opt-env-conf-test] + ],
  6503. 1023.96 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  6504. 1023.96 s [opt-env-conf-test] ]
  6505. 1023.96 s [opt-env-conf-test]
  6506. 1023.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
  6507. 1023.96 s [opt-env-conf-test] @@ -72,17 +72,17 @@
  6508. 1023.96 s [opt-env-conf-test] let codecTups = maybe [] NE.toList (settingConfigVals s)
  6509. 1023.96 s [opt-env-conf-test] in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
  6510. 1023.96 s [opt-env-conf-test] let go' :: NonEmpty Text -> Map Text Option
  6511. 1023.96 s [opt-env-conf-test] - go' (p :| ps) = case NE.nonEmpty ps of
  6512. 1023.96 s [opt-env-conf-test] - Nothing ->
  6513. 1023.96 s [opt-env-conf-test] - let oc =
  6514. 1023.96 s [opt-env-conf-test] - maybe
  6515. 1023.96 s [opt-env-conf-test] - (optionalFieldWith' p configValSettingCodec)
  6516. 1023.96 s [opt-env-conf-test] - (optionalFieldWith p configValSettingCodec)
  6517. 1023.96 s [opt-env-conf-test] - (T.pack <$> settingHelp s)
  6518. 1023.96 s [opt-env-conf-test] - in objectCodecNixOptions oc
  6519. 1023.96 s [opt-env-conf-test] - Just rest ->
  6520. 1023.96 s [opt-env-conf-test] - let m = go' rest
  6521. 1023.96 s [opt-env-conf-test] - in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  6522. 1023.96 s [opt-env-conf-test] + go' (p :| ps) = case NE.nonEmpty ps of
  6523. 1023.96 s [opt-env-conf-test] + Nothing ->
  6524. 1023.96 s [opt-env-conf-test] + let oc =
  6525. 1023.96 s [opt-env-conf-test] + maybe
  6526. 1023.96 s [opt-env-conf-test] + (optionalFieldWith' p configValSettingCodec)
  6527. 1023.96 s [opt-env-conf-test] + (optionalFieldWith p configValSettingCodec)
  6528. 1023.96 s [opt-env-conf-test] + (T.pack <$> settingHelp s)
  6529. 1023.96 s [opt-env-conf-test] + in objectCodecNixOptions oc
  6530. 1023.96 s [opt-env-conf-test] + Just rest ->
  6531. 1023.96 s [opt-env-conf-test] + let m = go' rest
  6532. 1023.96 s [opt-env-conf-test] + in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  6533. 1023.96 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  6534. 1023.96 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  6535. 1023.96 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  6536. 1023.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
  6537. 1023.96 s [opt-env-conf-test] @@ -72,17 +72,17 @@
  6538. 1023.96 s [opt-env-conf-test] let codecTups = maybe [] NE.toList (settingConfigVals s)
  6539. 1023.96 s [opt-env-conf-test] in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
  6540. 1023.96 s [opt-env-conf-test] let go' :: NonEmpty Text -> Map Text Option
  6541. 1023.96 s [opt-env-conf-test] - go' (p :| ps) = case NE.nonEmpty ps of
  6542. 1023.96 s [opt-env-conf-test] - Nothing ->
  6543. 1023.96 s [opt-env-conf-test] - let oc =
  6544. 1023.96 s [opt-env-conf-test] - maybe
  6545. 1023.96 s [opt-env-conf-test] - (optionalFieldWith' p configValSettingCodec)
  6546. 1023.96 s [opt-env-conf-test] - (optionalFieldWith p configValSettingCodec)
  6547. 1023.96 s [opt-env-conf-test] - (T.pack <$> settingHelp s)
  6548. 1023.96 s [opt-env-conf-test] - in objectCodecNixOptions oc
  6549. 1023.96 s [opt-env-conf-test] - Just rest ->
  6550. 1023.96 s [opt-env-conf-test] - let m = go' rest
  6551. 1023.96 s [opt-env-conf-test] - in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  6552. 1023.96 s [opt-env-conf-test] + go' (p :| ps) = case NE.nonEmpty ps of
  6553. 1023.96 s [opt-env-conf-test] + Nothing ->
  6554. 1023.96 s [opt-env-conf-test] + let oc =
  6555. 1023.96 s [opt-env-conf-test] + maybe
  6556. 1023.96 s [opt-env-conf-test] + (optionalFieldWith' p configValSettingCodec)
  6557. 1023.96 s [opt-env-conf-test] + (optionalFieldWith p configValSettingCodec)
  6558. 1023.96 s [opt-env-conf-test] + (T.pack <$> settingHelp s)
  6559. 1023.96 s [opt-env-conf-test] + in objectCodecNixOptions oc
  6560. 1023.96 s [opt-env-conf-test] + Just rest ->
  6561. 1023.96 s [opt-env-conf-test] + let m = go' rest
  6562. 1023.96 s [opt-env-conf-test] + in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  6563. 1023.96 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  6564. 1023.96 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  6565. 1023.96 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  6566. 1023.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
  6567. 1023.96 s [opt-env-conf-test] @@ -35,7 +35,7 @@
  6568. 1023.96 s [opt-env-conf-test] ("# " <>)
  6569. 1023.96 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  6570. 1023.96 s [opt-env-conf-test] "This file was generated by running",
  6571. 1023.96 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  6572. 1023.96 s [opt-env-conf-test] + unwords [progname, "--render-nix-options"],
  6573. 1023.96 s [opt-env-conf-test] T.unpack content
  6574. 1023.96 s [opt-env-conf-test] ]
  6575. 1023.96 s [opt-env-conf-test]
  6576. 1023.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  6577. 1023.96 s [opt-env-conf-test] @@ -33,11 +33,7 @@
  6578. 1023.96 s [opt-env-conf-test] unlines $
  6579. 1023.96 s [opt-env-conf-test] map
  6580. 1023.96 s [opt-env-conf-test] ("# " <>)
  6581. 1023.96 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  6582. 1023.96 s [opt-env-conf-test] - "This file was generated by running",
  6583. 1023.96 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  6584. 1023.96 s [opt-env-conf-test] - T.unpack content
  6585. 1023.96 s [opt-env-conf-test] - ]
  6586. 1023.96 s [opt-env-conf-test] + []
  6587. 1023.96 s [opt-env-conf-test]
  6588. 1023.96 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  6589. 1023.96 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  6590. 1023.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
  6591. 1023.96 s [opt-env-conf-test] @@ -700,11 +700,11 @@
  6592. 1023.96 s [opt-env-conf-test] ppOpt :: [Dashed] -> PP (Maybe String)
  6593. 1023.96 s [opt-env-conf-test] ppOpt ds = do
  6594. 1023.96 s [opt-env-conf-test] args <- gets ppStateArgs
  6595. 1023.96 s [opt-env-conf-test] - case Args.consumeOption ds args of
  6596. 1023.96 s [opt-env-conf-test] - Nothing -> pure Nothing
  6597. 1023.97 s [opt-env-conf-test] - Just (a, args') -> do
  6598. 1023.97 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  6599. 1023.97 s [opt-env-conf-test] - pure (Just a)
  6600. 1023.97 s [opt-env-conf-test] + case Args.consumeOption ds args of
  6601. 1023.97 s [opt-env-conf-test] + Nothing -> pure Nothing
  6602. 1023.97 s [opt-env-conf-test] + Just (a, args') -> do
  6603. 1023.97 s [opt-env-conf-test] + modify' (\s -> s {ppStateArgs = args'})
  6604. 1023.97 s [opt-env-conf-test] + pure (Just a)
  6605. 1023.97 s [opt-env-conf-test]
  6606. 1027.49 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  6607. 1027.49 s [opt-env-conf-test] ppSwitch ds = do
  6608. 1027.49 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
  6609. 1027.71 s [opt-env-conf-test] @@ -700,11 +700,11 @@
  6610. 1027.71 s [opt-env-conf-test] ppOpt :: [Dashed] -> PP (Maybe String)
  6611. 1027.71 s [opt-env-conf-test] ppOpt ds = do
  6612. 1027.71 s [opt-env-conf-test] args <- gets ppStateArgs
  6613. 1027.71 s [opt-env-conf-test] - case Args.consumeOption ds args of
  6614. 1027.71 s [opt-env-conf-test] - Nothing -> pure Nothing
  6615. 1027.71 s [opt-env-conf-test] - Just (a, args') -> do
  6616. 1027.71 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  6617. 1027.71 s [opt-env-conf-test] - pure (Just a)
  6618. 1027.71 s [opt-env-conf-test] + case Args.consumeOption ds args of
  6619. 1027.71 s [opt-env-conf-test] + Nothing -> pure Nothing
  6620. 1027.71 s [opt-env-conf-test] + Just (a, args') -> do
  6621. 1027.71 s [opt-env-conf-test] + modify' (\s -> s {ppStateArgs = args'})
  6622. 1027.71 s [opt-env-conf-test] + pure (Just a)
  6623. 1027.71 s [opt-env-conf-test]
  6624. 1027.71 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  6625. 1027.71 s [opt-env-conf-test] ppSwitch ds = do
  6626. 1027.71 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
  6627. 1027.71 s [opt-env-conf-test] @@ -635,7 +635,7 @@
  6628. 1027.71 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  6629. 1027.71 s [opt-env-conf-test] case errOrRes of
  6630. 1027.71 s [opt-env-conf-test] Failure errs ->
  6631. 1027.71 s [opt-env-conf-test] - if all errorIsForgivable errs
  6632. 1027.71 s [opt-env-conf-test] + if True
  6633. 1027.71 s [opt-env-conf-test] then do
  6634. 1027.71 s [opt-env-conf-test] pure Nothing
  6635. 1027.71 s [opt-env-conf-test] else ppErrors' errs
  6636. 1027.71 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
  6637. 1027.71 s [opt-env-conf-test] @@ -635,7 +635,7 @@
  6638. 1027.71 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  6639. 1027.71 s [opt-env-conf-test] case errOrRes of
  6640. 1027.71 s [opt-env-conf-test] Failure errs ->
  6641. 1027.71 s [opt-env-conf-test] - if all errorIsForgivable errs
  6642. 1027.71 s [opt-env-conf-test] + if False
  6643. 1027.71 s [opt-env-conf-test] then do
  6644. 1027.71 s [opt-env-conf-test] pure Nothing
  6645. 1027.71 s [opt-env-conf-test] else ppErrors' errs
  6646. 1027.71 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:638:10-36
  6647. 1027.71 s [opt-env-conf-test] @@ -635,7 +635,7 @@
  6648. 1027.71 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  6649. 1027.71 s [opt-env-conf-test] case errOrRes of
  6650. 1027.71 s [opt-env-conf-test] Failure errs ->
  6651. 1027.71 s [opt-env-conf-test] - if all errorIsForgivable errs
  6652. 1027.71 s [opt-env-conf-test] + if not (all errorIsForgivable errs)
  6653. 1027.71 s [opt-env-conf-test] then do
  6654. 1027.71 s [opt-env-conf-test] pure Nothing
  6655. 1027.71 s [opt-env-conf-test] else ppErrors' errs
  6656. 1027.71 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:638:7-28
  6657. 1027.71 s [opt-env-conf-test] @@ -635,10 +635,10 @@
  6658. 1027.71 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  6659. 1027.71 s [opt-env-conf-test] case errOrRes of
  6660. 1027.71 s [opt-env-conf-test] Failure errs ->
  6661. 1027.71 s [opt-env-conf-test] - if all errorIsForgivable errs
  6662. 1027.71 s [opt-env-conf-test] - then do
  6663. 1027.71 s [opt-env-conf-test] - pure Nothing
  6664. 1027.71 s [opt-env-conf-test] - else ppErrors' errs
  6665. 1027.71 s [opt-env-conf-test] + if all errorIsForgivable errs
  6666. 1027.71 s [opt-env-conf-test] + then do
  6667. 1027.71 s [opt-env-conf-test] + pure Nothing
  6668. 1027.71 s [opt-env-conf-test] + else ppErrors' errs
  6669. 1027.71 s [opt-env-conf-test] Success a -> do
  6670. 1027.71 s [opt-env-conf-test] put s' -- Only set state if parsing succeeded.
  6671. 1027.71 s [opt-env-conf-test] pure $ Just a
  6672. 1027.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
  6673. 1027.71 s [opt-env-conf-test] @@ -633,15 +633,15 @@
  6674. 1027.71 s [opt-env-conf-test] e <- ask
  6675. 1027.71 s [opt-env-conf-test] results <- liftIO $ runPP pp s e
  6676. 1027.71 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  6677. 1027.71 s [opt-env-conf-test] - case errOrRes of
  6678. 1027.71 s [opt-env-conf-test] - Failure errs ->
  6679. 1027.71 s [opt-env-conf-test] - if all errorIsForgivable errs
  6680. 1027.71 s [opt-env-conf-test] - then do
  6681. 1027.71 s [opt-env-conf-test] - pure Nothing
  6682. 1027.71 s [opt-env-conf-test] - else ppErrors' errs
  6683. 1027.71 s [opt-env-conf-test] - Success a -> do
  6684. 1027.71 s [opt-env-conf-test] - put s' -- Only set state if parsing succeeded.
  6685. 1027.71 s [opt-env-conf-test] - pure $ Just a
  6686. 1027.71 s [opt-env-conf-test] + case errOrRes of
  6687. 1027.71 s [opt-env-conf-test] + Failure errs ->
  6688. 1027.71 s [opt-env-conf-test] + if all errorIsForgivable errs
  6689. 1027.71 s [opt-env-conf-test] + then do
  6690. 1027.71 s [opt-env-conf-test] + pure Nothing
  6691. 1027.71 s [opt-env-conf-test] + else ppErrors' errs
  6692. 1027.71 s [opt-env-conf-test] + Success a -> do
  6693. 1027.72 s [opt-env-conf-test] + put s' -- Only set state if parsing succeeded.
  6694. 1027.72 s [opt-env-conf-test] + pure $ Just a
  6695. 1027.72 s [opt-env-conf-test]
  6696. 1027.72 s [opt-env-conf-test] ppNonDet :: NonDetT IO a -> PP a
  6697. 1027.72 s [opt-env-conf-test] ppNonDet = PP . lift . lift . lift
  6698. 1027.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
  6699. 1027.72 s [opt-env-conf-test] @@ -633,15 +633,15 @@
  6700. 1027.72 s [opt-env-conf-test] e <- ask
  6701. 1027.72 s [opt-env-conf-test] results <- liftIO $ runPP pp s e
  6702. 1027.72 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  6703. 1027.72 s [opt-env-conf-test] - case errOrRes of
  6704. 1027.72 s [opt-env-conf-test] - Failure errs ->
  6705. 1027.72 s [opt-env-conf-test] - if all errorIsForgivable errs
  6706. 1027.72 s [opt-env-conf-test] - then do
  6707. 1027.72 s [opt-env-conf-test] - pure Nothing
  6708. 1027.72 s [opt-env-conf-test] - else ppErrors' errs
  6709. 1027.72 s [opt-env-conf-test] - Success a -> do
  6710. 1027.72 s [opt-env-conf-test] - put s' -- Only set state if parsing succeeded.
  6711. 1027.72 s [opt-env-conf-test] - pure $ Just a
  6712. 1027.72 s [opt-env-conf-test] + case errOrRes of
  6713. 1027.72 s [opt-env-conf-test] + Failure errs ->
  6714. 1027.72 s [opt-env-conf-test] + if all errorIsForgivable errs
  6715. 1027.72 s [opt-env-conf-test] + then do
  6716. 1027.72 s [opt-env-conf-test] + pure Nothing
  6717. 1027.72 s [opt-env-conf-test] + else ppErrors' errs
  6718. 1027.72 s [opt-env-conf-test] + Success a -> do
  6719. 1027.72 s [opt-env-conf-test] + put s' -- Only set state if parsing succeeded.
  6720. 1027.72 s [opt-env-conf-test] + pure $ Just a
  6721. 1027.72 s [opt-env-conf-test]
  6722. 1027.72 s [opt-env-conf-test] ppNonDet :: NonDetT IO a -> PP a
  6723. 1027.72 s [opt-env-conf-test] ppNonDet = PP . lift . lift . lift
  6724. 1027.72 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Run.hs:511:27-28
  6725. 1027.72 s [opt-env-conf-test] @@ -508,7 +508,7 @@
  6726. 1027.72 s [opt-env-conf-test] { ppEnvEnv = EnvMap.empty,
  6727. 1027.72 s [opt-env-conf-test] ppEnvConf = Nothing,
  6728. 1027.72 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  6729. 1027.72 s [opt-env-conf-test] - ppEnvIndent = 0
  6730. 1027.72 s [opt-env-conf-test] + ppEnvIndent = 1
  6731. 1027.72 s [opt-env-conf-test] }
  6732. 1027.72 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  6733. 1027.72 s [opt-env-conf-test] case mResOrNext of
  6734. 1027.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  6735. 1027.72 s [opt-env-conf-test] @@ -513,9 +513,9 @@
  6736. 1027.72 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  6737. 1027.72 s [opt-env-conf-test] case mResOrNext of
  6738. 1027.72 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  6739. 1027.72 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  6740. 1027.72 s [opt-env-conf-test] - Failure errs -> Left errs
  6741. 1027.72 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  6742. 1027.72 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  6743. 1027.72 s [opt-env-conf-test] + Failure errs -> Left errs
  6744. 1027.72 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  6745. 1027.72 s [opt-env-conf-test] where
  6746. 1027.72 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  6747. 1027.72 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  6748. 1027.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  6749. 1027.72 s [opt-env-conf-test] @@ -513,9 +513,9 @@
  6750. 1027.72 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  6751. 1027.72 s [opt-env-conf-test] case mResOrNext of
  6752. 1027.72 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  6753. 1027.72 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  6754. 1027.72 s [opt-env-conf-test] - Failure errs -> Left errs
  6755. 1027.72 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  6756. 1027.72 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  6757. 1027.72 s [opt-env-conf-test] + Failure errs -> Left errs
  6758. 1027.72 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  6759. 1027.72 s [opt-env-conf-test] where
  6760. 1027.72 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  6761. 1027.72 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  6762. 1027.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  6763. 1027.72 s [opt-env-conf-test] @@ -511,11 +511,11 @@
  6764. 1027.72 s [opt-env-conf-test] ppEnvIndent = 0
  6765. 1027.72 s [opt-env-conf-test] }
  6766. 1027.72 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  6767. 1027.72 s [opt-env-conf-test] - case mResOrNext of
  6768. 1027.72 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  6769. 1027.72 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  6770. 1027.72 s [opt-env-conf-test] - Failure errs -> Left errs
  6771. 1027.72 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  6772. 1027.72 s [opt-env-conf-test] + case mResOrNext of
  6773. 1027.72 s [opt-env-conf-test] + Nothing -> pure $ Right Nothing
  6774. 1027.72 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  6775. 1027.72 s [opt-env-conf-test] + Failure errs -> Left errs
  6776. 1027.72 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  6777. 1027.72 s [opt-env-conf-test] where
  6778. 1027.72 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  6779. 1027.72 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  6780. 1027.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  6781. 1027.72 s [opt-env-conf-test] @@ -511,11 +511,11 @@
  6782. 1027.72 s [opt-env-conf-test] ppEnvIndent = 0
  6783. 1027.72 s [opt-env-conf-test] }
  6784. 1027.72 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  6785. 1027.72 s [opt-env-conf-test] - case mResOrNext of
  6786. 1027.72 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  6787. 1027.72 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  6788. 1027.72 s [opt-env-conf-test] - Failure errs -> Left errs
  6789. 1027.72 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  6790. 1027.72 s [opt-env-conf-test] + case mResOrNext of
  6791. 1027.72 s [opt-env-conf-test] + Nothing -> pure $ Right Nothing
  6792. 1027.72 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  6793. 1027.72 s [opt-env-conf-test] + Failure errs -> Left errs
  6794. 1027.72 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  6795. 1027.72 s [opt-env-conf-test] where
  6796. 1027.72 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  6797. 1027.72 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  6798. 1027.72 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:529:31-33
  6799. 1027.72 s [opt-env-conf-test] @@ -526,12 +526,12 @@
  6800. 1027.72 s [opt-env-conf-test] ParserPure _ -> do
  6801. 1027.72 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  6802. 1027.72 s [opt-env-conf-test] pure Nothing
  6803. 1027.72 s [opt-env-conf-test] - ParserAp ff fa -> do
  6804. 1027.72 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  6805. 1027.72 s [opt-env-conf-test] - ppIndent $ do
  6806. 1027.72 s [opt-env-conf-test] - mf <- go ff
  6807. 1027.72 s [opt-env-conf-test] - ma <- go fa
  6808. 1027.72 s [opt-env-conf-test] - pure $ ma <|> mf -- Reverse order
  6809. 1027.72 s [opt-env-conf-test] + ParserAp ff fa -> do
  6810. 1027.72 s [opt-env-conf-test] + debug [syntaxChunk "Ap"]
  6811. 1027.72 s [opt-env-conf-test] + ppIndent $ do
  6812. 1027.72 s [opt-env-conf-test] + mf <- go ff
  6813. 1027.72 s [opt-env-conf-test] + ma <- go fa
  6814. 1027.72 s [opt-env-conf-test] + pure $ ma <|> mf -- Reverse order
  6815. 1027.72 s [opt-env-conf-test] ParserSelect fe ff -> do
  6816. 1027.72 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  6817. 1027.72 s [opt-env-conf-test] ppIndent $ do
  6818. 1027.72 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:535:35-33
  6819. 1027.72 s [opt-env-conf-test] @@ -532,12 +532,12 @@
  6820. 1027.72 s [opt-env-conf-test] mf <- go ff
  6821. 1027.72 s [opt-env-conf-test] ma <- go fa
  6822. 1027.72 s [opt-env-conf-test] pure $ ma <|> mf -- Reverse order
  6823. 1027.72 s [opt-env-conf-test] - ParserSelect fe ff -> do
  6824. 1027.72 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  6825. 1027.72 s [opt-env-conf-test] - ppIndent $ do
  6826. 1027.72 s [opt-env-conf-test] - me <- go fe
  6827. 1027.72 s [opt-env-conf-test] - mf <- go ff
  6828. 1027.72 s [opt-env-conf-test] - pure $ mf <|> me -- Reverse order
  6829. 1027.72 s [opt-env-conf-test] + ParserSelect fe ff -> do
  6830. 1027.72 s [opt-env-conf-test] + debug [syntaxChunk "Select"]
  6831. 1027.73 s [opt-env-conf-test] + ppIndent $ do
  6832. 1027.73 s [opt-env-conf-test] + me <- go fe
  6833. 1027.73 s [opt-env-conf-test] + mf <- go ff
  6834. 1027.73 s [opt-env-conf-test] + pure $ mf <|> me -- Reverse order
  6835. 1027.73 s [opt-env-conf-test] ParserEmpty mLoc -> do
  6836. 1027.73 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  6837. 1027.73 s [opt-env-conf-test] pure Nothing
  6838. 1027.73 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:553:30-37
  6839. 1027.73 s [opt-env-conf-test] @@ -550,9 +550,9 @@
  6840. 1027.73 s [opt-env-conf-test] Just a -> do
  6841. 1027.73 s [opt-env-conf-test] debug ["Left side succeeded."]
  6842. 1027.73 s [opt-env-conf-test] pure a
  6843. 1027.73 s [opt-env-conf-test] - Nothing -> do
  6844. 1027.85 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  6845. 1027.85 s [opt-env-conf-test] - ppIndent $ go p2
  6846. 1027.85 s [opt-env-conf-test] + Nothing -> do
  6847. 1027.85 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  6848. 1027.86 s [opt-env-conf-test] + ppIndent $ go p2
  6849. 1027.86 s [opt-env-conf-test] ParserMany mLoc p' -> do
  6850. 1027.86 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  6851. 1027.86 s [opt-env-conf-test] ppIndent $ go p'
  6852. 1027.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  6853. 1027.86 s [opt-env-conf-test] @@ -546,13 +546,13 @@
  6854. 1027.86 s [opt-env-conf-test] ppIndent $ do
  6855. 1027.86 s [opt-env-conf-test] debug ["Trying left side."]
  6856. 1027.86 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  6857. 1027.86 s [opt-env-conf-test] - case eor of
  6858. 1027.86 s [opt-env-conf-test] - Just a -> do
  6859. 1027.86 s [opt-env-conf-test] - debug ["Left side succeeded."]
  6860. 1027.86 s [opt-env-conf-test] - pure a
  6861. 1027.86 s [opt-env-conf-test] - Nothing -> do
  6862. 1027.86 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  6863. 1027.86 s [opt-env-conf-test] - ppIndent $ go p2
  6864. 1027.86 s [opt-env-conf-test] + case eor of
  6865. 1027.86 s [opt-env-conf-test] + Just a -> do
  6866. 1027.86 s [opt-env-conf-test] + debug ["Left side succeeded."]
  6867. 1027.86 s [opt-env-conf-test] + pure a
  6868. 1027.86 s [opt-env-conf-test] + Nothing -> do
  6869. 1027.86 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  6870. 1027.86 s [opt-env-conf-test] + ppIndent $ go p2
  6871. 1027.86 s [opt-env-conf-test] ParserMany mLoc p' -> do
  6872. 1027.86 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  6873. 1027.86 s [opt-env-conf-test] ppIndent $ go p'
  6874. 1027.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  6875. 1027.86 s [opt-env-conf-test] @@ -546,13 +546,13 @@
  6876. 1027.86 s [opt-env-conf-test] ppIndent $ do
  6877. 1027.86 s [opt-env-conf-test] debug ["Trying left side."]
  6878. 1027.86 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  6879. 1027.86 s [opt-env-conf-test] - case eor of
  6880. 1027.86 s [opt-env-conf-test] - Just a -> do
  6881. 1027.86 s [opt-env-conf-test] - debug ["Left side succeeded."]
  6882. 1027.86 s [opt-env-conf-test] - pure a
  6883. 1027.86 s [opt-env-conf-test] - Nothing -> do
  6884. 1027.86 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  6885. 1027.86 s [opt-env-conf-test] - ppIndent $ go p2
  6886. 1027.86 s [opt-env-conf-test] + case eor of
  6887. 1027.86 s [opt-env-conf-test] + Just a -> do
  6888. 1027.86 s [opt-env-conf-test] + debug ["Left side succeeded."]
  6889. 1027.86 s [opt-env-conf-test] + pure a
  6890. 1027.86 s [opt-env-conf-test] + Nothing -> do
  6891. 1027.86 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  6892. 1027.86 s [opt-env-conf-test] + ppIndent $ go p2
  6893. 1027.86 s [opt-env-conf-test] ParserMany mLoc p' -> do
  6894. 1027.86 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  6895. 1027.86 s [opt-env-conf-test] ppIndent $ go p'
  6896. 1027.86 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:544:32-37
  6897. 1027.86 s [opt-env-conf-test] @@ -541,18 +541,18 @@
  6898. 1027.86 s [opt-env-conf-test] ParserEmpty mLoc -> do
  6899. 1027.86 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  6900. 1027.86 s [opt-env-conf-test] pure Nothing
  6901. 1027.86 s [opt-env-conf-test] - ParserAlt p1 p2 -> do
  6902. 1027.86 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  6903. 1027.86 s [opt-env-conf-test] - ppIndent $ do
  6904. 1027.86 s [opt-env-conf-test] - debug ["Trying left side."]
  6905. 1027.86 s [opt-env-conf-test] - eor <- ppIndent $ tryPP (go p1)
  6906. 1027.86 s [opt-env-conf-test] - case eor of
  6907. 1027.86 s [opt-env-conf-test] - Just a -> do
  6908. 1027.86 s [opt-env-conf-test] - debug ["Left side succeeded."]
  6909. 1027.86 s [opt-env-conf-test] - pure a
  6910. 1027.86 s [opt-env-conf-test] - Nothing -> do
  6911. 1027.86 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  6912. 1027.86 s [opt-env-conf-test] - ppIndent $ go p2
  6913. 1027.86 s [opt-env-conf-test] + ParserAlt p1 p2 -> do
  6914. 1027.86 s [opt-env-conf-test] + debug [syntaxChunk "Alt"]
  6915. 1027.86 s [opt-env-conf-test] + ppIndent $ do
  6916. 1027.86 s [opt-env-conf-test] + debug ["Trying left side."]
  6917. 1027.86 s [opt-env-conf-test] + eor <- ppIndent $ tryPP (go p1)
  6918. 1027.86 s [opt-env-conf-test] + case eor of
  6919. 1027.86 s [opt-env-conf-test] + Just a -> do
  6920. 1027.86 s [opt-env-conf-test] + debug ["Left side succeeded."]
  6921. 1027.86 s [opt-env-conf-test] + pure a
  6922. 1027.86 s [opt-env-conf-test] + Nothing -> do
  6923. 1027.86 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  6924. 1027.86 s [opt-env-conf-test] + ppIndent $ go p2
  6925. 1027.86 s [opt-env-conf-test] ParserMany mLoc p' -> do
  6926. 1027.86 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  6927. 1027.86 s [opt-env-conf-test] ppIndent $ go p'
  6928. 1027.86 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  6929. 1027.86 s [opt-env-conf-test] @@ -554,7 +554,7 @@
  6930. 1027.86 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  6931. 1027.86 s [opt-env-conf-test] ppIndent $ go p2
  6932. 1027.86 s [opt-env-conf-test] ParserMany mLoc p' -> do
  6933. 1027.86 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  6934. 1027.86 s [opt-env-conf-test] + debug []
  6935. 1027.86 s [opt-env-conf-test] ppIndent $ go p'
  6936. 1027.86 s [opt-env-conf-test] ParserSome mLoc p' -> do
  6937. 1027.86 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  6938. 1027.86 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  6939. 1027.86 s [opt-env-conf-test] @@ -554,7 +554,7 @@
  6940. 1027.86 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  6941. 1027.86 s [opt-env-conf-test] ppIndent $ go p2
  6942. 1027.87 s [opt-env-conf-test] ParserMany mLoc p' -> do
  6943. 1027.87 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  6944. 1027.87 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  6945. 1027.87 s [opt-env-conf-test] ppIndent $ go p'
  6946. 1027.87 s [opt-env-conf-test] ParserSome mLoc p' -> do
  6947. 1027.87 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  6948. 1027.87 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  6949. 1027.87 s [opt-env-conf-test] @@ -554,7 +554,8 @@
  6950. 1027.87 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  6951. 1027.87 s [opt-env-conf-test] ppIndent $ go p2
  6952. 1027.87 s [opt-env-conf-test] ParserMany mLoc p' -> do
  6953. 1027.87 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  6954. 1027.87 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": "
  6955. 1027.87 s [opt-env-conf-test] +]
  6956. 1027.87 s [opt-env-conf-test] ppIndent $ go p'
  6957. 1027.87 s [opt-env-conf-test] ParserSome mLoc p' -> do
  6958. 1027.87 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  6959. 1027.87 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  6960. 1027.87 s [opt-env-conf-test] @@ -259,12 +259,11 @@
  6961. 1027.87 s [opt-env-conf-test] ],
  6962. 1027.87 s [opt-env-conf-test] ZshCompletionScript
  6963. 1027.87 s [opt-env-conf-test] <$> setting
  6964. 1027.87 s [opt-env-conf-test] - [ option,
  6965. 1027.87 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  6966. 1027.87 s [opt-env-conf-test] - long "zsh-completion-script",
  6967. 1027.87 s [opt-env-conf-test] - hidden,
  6968. 1027.87 s [opt-env-conf-test] - help "Render the zsh completion script"
  6969. 1027.87 s [opt-env-conf-test] - ],
  6970. 1027.87 s [opt-env-conf-test] + [ option,
  6971. 1027.87 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  6972. 1027.87 s [opt-env-conf-test] + long "zsh-completion-script",
  6973. 1027.87 s [opt-env-conf-test] + hidden
  6974. 1027.87 s [opt-env-conf-test] +],
  6975. 1027.87 s [opt-env-conf-test] ZshCompletionScript
  6976. 1027.87 s [opt-env-conf-test] <$> setting
  6977. 1027.87 s [opt-env-conf-test] [ option,
  6978. 1027.87 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  6979. 1027.87 s [opt-env-conf-test] @@ -274,12 +274,7 @@
  6980. 1027.87 s [opt-env-conf-test] help "Render the fish completion script"
  6981. 1027.87 s [opt-env-conf-test] ],
  6982. 1027.87 s [opt-env-conf-test] setting
  6983. 1027.87 s [opt-env-conf-test] - [ help "Query completion",
  6984. 1027.87 s [opt-env-conf-test] - switch CompletionQuery,
  6985. 1027.87 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  6986. 1027.87 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  6987. 1027.87 s [opt-env-conf-test] - hidden
  6988. 1027.87 s [opt-env-conf-test] - ]
  6989. 1027.87 s [opt-env-conf-test] + []
  6990. 1027.87 s [opt-env-conf-test] <*> setting
  6991. 1027.87 s [opt-env-conf-test] [ switch True,
  6992. 1027.87 s [opt-env-conf-test] long "completion-enriched",
  6993. 1027.87 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:556:35-31
  6994. 1027.87 s [opt-env-conf-test] @@ -553,9 +553,9 @@
  6995. 1027.87 s [opt-env-conf-test] Nothing -> do
  6996. 1027.87 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  6997. 1027.87 s [opt-env-conf-test] ppIndent $ go p2
  6998. 1027.87 s [opt-env-conf-test] - ParserMany mLoc p' -> do
  6999. 1027.87 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  7000. 1027.87 s [opt-env-conf-test] - ppIndent $ go p'
  7001. 1027.87 s [opt-env-conf-test] + ParserMany mLoc p' -> do
  7002. 1027.87 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  7003. 1027.87 s [opt-env-conf-test] + ppIndent $ go p'
  7004. 1027.87 s [opt-env-conf-test] ParserSome mLoc p' -> do
  7005. 1027.87 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  7006. 1027.87 s [opt-env-conf-test] ppIndent $ go p'
  7007. 1027.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  7008. 1027.87 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  7009. 1027.87 s [opt-env-conf-test] renderLintError LintError {..} =
  7010. 1027.87 s [opt-env-conf-test] concat
  7011. 1027.87 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  7012. 1027.87 s [opt-env-conf-test] - case lintErrorMessage of
  7013. 1027.87 s [opt-env-conf-test] - LintErrorUndocumented ->
  7014. 1027.87 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  7015. 1027.87 s [opt-env-conf-test] - LintErrorEmptySetting ->
  7016. 1027.87 s [opt-env-conf-test] - concat
  7017. 1027.87 s [opt-env-conf-test] - [ [ [ "This ",
  7018. 1027.87 s [opt-env-conf-test] - functionChunk "setting",
  7019. 1027.87 s [opt-env-conf-test] - " parses nothing."
  7020. 1027.87 s [opt-env-conf-test] - ]
  7021. 1027.87 s [opt-env-conf-test] - ],
  7022. 1027.87 s [opt-env-conf-test] - [ [ "Add an ",
  7023. 1027.87 s [opt-env-conf-test] - functionChunk "argument",
  7024. 1027.87 s [opt-env-conf-test] - ", ",
  7025. 1027.87 s [opt-env-conf-test] - functionChunk "switch",
  7026. 1027.87 s [opt-env-conf-test] - ", ",
  7027. 1027.87 s [opt-env-conf-test] - functionChunk "option",
  7028. 1027.87 s [opt-env-conf-test] - ", ",
  7029. 1027.87 s [opt-env-conf-test] - functionChunk "env",
  7030. 1027.87 s [opt-env-conf-test] - ", ",
  7031. 1027.87 s [opt-env-conf-test] - functionChunk "conf",
  7032. 1027.87 s [opt-env-conf-test] - ", or ",
  7033. 1027.87 s [opt-env-conf-test] - functionChunk "value",
  7034. 1027.87 s [opt-env-conf-test] - "."
  7035. 1027.87 s [opt-env-conf-test] - ]
  7036. 1027.87 s [opt-env-conf-test] - ]
  7037. 1027.87 s [opt-env-conf-test] - ]
  7038. 1027.87 s [opt-env-conf-test] - LintErrorDashInShort ->
  7039. 1027.87 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  7040. 1027.87 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  7041. 1027.87 s [opt-env-conf-test] - ]
  7042. 1027.87 s [opt-env-conf-test] - LintErrorDashInLong s ->
  7043. 1027.87 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  7044. 1027.87 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  7045. 1027.87 s [opt-env-conf-test] - [ "Try ",
  7046. 1027.87 s [opt-env-conf-test] - functionChunk "long",
  7047. 1027.87 s [opt-env-conf-test] - " ",
  7048. 1027.87 s [opt-env-conf-test] - chunk $
  7049. 1027.87 s [opt-env-conf-test] - T.pack $
  7050. 1027.87 s [opt-env-conf-test] - show $
  7051. 1027.87 s [opt-env-conf-test] - let go = \case
  7052. 1027.87 s [opt-env-conf-test] - [] -> []
  7053. 1027.87 s [opt-env-conf-test] - '-' : cs -> go cs
  7054. 1027.87 s [opt-env-conf-test] - c : cs -> c : cs
  7055. 1027.87 s [opt-env-conf-test] - in go $ NE.toList s,
  7056. 1027.87 s [opt-env-conf-test] - " instead."
  7057. 1027.87 s [opt-env-conf-test] - ]
  7058. 1027.87 s [opt-env-conf-test] - ]
  7059. 1027.87 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  7060. 1027.87 s [opt-env-conf-test] - [ [ functionChunk "argument",
  7061. 1027.87 s [opt-env-conf-test] - " has no ",
  7062. 1027.87 s [opt-env-conf-test] - functionChunk "reader",
  7063. 1027.87 s [opt-env-conf-test] - "."
  7064. 1027.87 s [opt-env-conf-test] - ]
  7065. 1027.87 s [opt-env-conf-test] - ]
  7066. 1027.87 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  7067. 1027.87 s [opt-env-conf-test] - [ [ functionChunk "argument",
  7068. 1027.87 s [opt-env-conf-test] - " has no ",
  7069. 1027.87 s [opt-env-conf-test] - functionChunk "metavar",
  7070. 1027.87 s [opt-env-conf-test] - "."
  7071. 1027.87 s [opt-env-conf-test] - ]
  7072. 1027.87 s [opt-env-conf-test] - ]
  7073. 1027.87 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  7074. 1027.87 s [opt-env-conf-test] - [ [ functionChunk "option",
  7075. 1027.87 s [opt-env-conf-test] - " or ",
  7076. 1027.87 s [opt-env-conf-test] - functionChunk "name",
  7077. 1027.87 s [opt-env-conf-test] - " has no ",
  7078. 1027.87 s [opt-env-conf-test] - functionChunk "reader",
  7079. 1027.87 s [opt-env-conf-test] - "."
  7080. 1027.87 s [opt-env-conf-test] - ]
  7081. 1027.87 s [opt-env-conf-test] - ]
  7082. 1027.87 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  7083. 1027.87 s [opt-env-conf-test] - [ [ functionChunk "option",
  7084. 1027.87 s [opt-env-conf-test] - " has no ",
  7085. 1027.87 s [opt-env-conf-test] - functionChunk "long",
  7086. 1027.87 s [opt-env-conf-test] - " or ",
  7087. 1027.87 s [opt-env-conf-test] - functionChunk "short",
  7088. 1027.87 s [opt-env-conf-test] - "."
  7089. 1027.87 s [opt-env-conf-test] - ]
  7090. 1027.87 s [opt-env-conf-test] - ]
  7091. 1027.87 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  7092. 1027.87 s [opt-env-conf-test] - [ [ functionChunk "option",
  7093. 1027.87 s [opt-env-conf-test] - " or ",
  7094. 1027.88 s [opt-env-conf-test] - functionChunk "name",
  7095. 1027.88 s [opt-env-conf-test] - " has no ",
  7096. 1027.88 s [opt-env-conf-test] - functionChunk "metavar",
  7097. 1027.88 s [opt-env-conf-test] - "."
  7098. 1027.88 s [opt-env-conf-test] - ]
  7099. 1027.88 s [opt-env-conf-test] - ]
  7100. 1027.88 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  7101. 1027.88 s [opt-env-conf-test] - [ [ functionChunk "switch",
  7102. 1027.88 s [opt-env-conf-test] - " has no ",
  7103. 1027.88 s [opt-env-conf-test] - functionChunk "long",
  7104. 1027.88 s [opt-env-conf-test] - " or ",
  7105. 1027.88 s [opt-env-conf-test] - functionChunk "short",
  7106. 1027.88 s [opt-env-conf-test] - "."
  7107. 1027.88 s [opt-env-conf-test] - ]
  7108. 1027.88 s [opt-env-conf-test] - ]
  7109. 1027.88 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  7110. 1027.88 s [opt-env-conf-test] - [ [ functionChunk "long",
  7111. 1027.88 s [opt-env-conf-test] - " or ",
  7112. 1027.88 s [opt-env-conf-test] - functionChunk "short",
  7113. 1027.88 s [opt-env-conf-test] - " has no ",
  7114. 1027.88 s [opt-env-conf-test] - functionChunk "option",
  7115. 1027.88 s [opt-env-conf-test] - " or ",
  7116. 1027.88 s [opt-env-conf-test] - functionChunk "switch",
  7117. 1027.88 s [opt-env-conf-test] - "."
  7118. 1027.88 s [opt-env-conf-test] - ]
  7119. 1027.88 s [opt-env-conf-test] - ]
  7120. 1027.88 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  7121. 1027.88 s [opt-env-conf-test] - [ [ functionChunk "env",
  7122. 1027.88 s [opt-env-conf-test] - " or ",
  7123. 1027.88 s [opt-env-conf-test] - functionChunk "name",
  7124. 1027.88 s [opt-env-conf-test] - " has no ",
  7125. 1027.88 s [opt-env-conf-test] - functionChunk "reader",
  7126. 1027.88 s [opt-env-conf-test] - "."
  7127. 1027.88 s [opt-env-conf-test] - ]
  7128. 1027.88 s [opt-env-conf-test] - ]
  7129. 1027.88 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  7130. 1027.88 s [opt-env-conf-test] - [ [ functionChunk "env",
  7131. 1027.88 s [opt-env-conf-test] - " or ",
  7132. 1027.88 s [opt-env-conf-test] - functionChunk "name",
  7133. 1027.88 s [opt-env-conf-test] - " has no ",
  7134. 1027.88 s [opt-env-conf-test] - functionChunk "metavar",
  7135. 1027.88 s [opt-env-conf-test] - "."
  7136. 1027.88 s [opt-env-conf-test] - ]
  7137. 1027.88 s [opt-env-conf-test] - ]
  7138. 1027.88 s [opt-env-conf-test] - LintErrorNoCommands ->
  7139. 1027.88 s [opt-env-conf-test] - [ [ functionChunk "commands",
  7140. 1027.88 s [opt-env-conf-test] - " was called with an empty list."
  7141. 1027.88 s [opt-env-conf-test] - ]
  7142. 1027.88 s [opt-env-conf-test] - ]
  7143. 1027.88 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  7144. 1027.88 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  7145. 1027.88 s [opt-env-conf-test] - " was called with an unknown command: ",
  7146. 1027.88 s [opt-env-conf-test] - commandChunk c
  7147. 1027.88 s [opt-env-conf-test] - ]
  7148. 1027.88 s [opt-env-conf-test] - ]
  7149. 1027.88 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  7150. 1027.88 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  7151. 1027.88 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  7152. 1027.88 s [opt-env-conf-test] - ]
  7153. 1027.88 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  7154. 1027.88 s [opt-env-conf-test] - [ [ functionChunk "conf",
  7155. 1027.88 s [opt-env-conf-test] - " or ",
  7156. 1027.88 s [opt-env-conf-test] - functionChunk "name",
  7157. 1027.88 s [opt-env-conf-test] - " was called with no way to load configuration."
  7158. 1027.88 s [opt-env-conf-test] - ],
  7159. 1027.88 s [opt-env-conf-test] - [ "You can load configuration with ",
  7160. 1027.88 s [opt-env-conf-test] - functionChunk "withConfig",
  7161. 1027.88 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  7162. 1027.88 s [opt-env-conf-test] - functionChunk "withoutConfig",
  7163. 1027.88 s [opt-env-conf-test] - "."
  7164. 1027.88 s [opt-env-conf-test] - ]
  7165. 1027.88 s [opt-env-conf-test] - ]
  7166. 1027.88 s [opt-env-conf-test] - LintErrorManyInfinite ->
  7167. 1027.88 s [opt-env-conf-test] - [ [ functionChunk "many",
  7168. 1027.88 s [opt-env-conf-test] - " or ",
  7169. 1027.88 s [opt-env-conf-test] - functionChunk "some",
  7170. 1027.88 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  7171. 1027.88 s [opt-env-conf-test] - ],
  7172. 1027.88 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  7173. 1027.88 s [opt-env-conf-test] - ],
  7174. 1027.88 s [opt-env-conf-test] + case lintErrorMessage of
  7175. 1027.88 s [opt-env-conf-test] + LintErrorUndocumented ->
  7176. 1027.88 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  7177. 1027.88 s [opt-env-conf-test] + LintErrorEmptySetting ->
  7178. 1027.88 s [opt-env-conf-test] + concat
  7179. 1027.88 s [opt-env-conf-test] + [ [ [ "This ",
  7180. 1027.88 s [opt-env-conf-test] + functionChunk "setting",
  7181. 1027.88 s [opt-env-conf-test] + " parses nothing."
  7182. 1027.88 s [opt-env-conf-test] + ]
  7183. 1027.88 s [opt-env-conf-test] + ],
  7184. 1027.88 s [opt-env-conf-test] + [ [ "Add an ",
  7185. 1027.88 s [opt-env-conf-test] + functionChunk "argument",
  7186. 1027.88 s [opt-env-conf-test] + ", ",
  7187. 1027.88 s [opt-env-conf-test] + functionChunk "switch",
  7188. 1027.88 s [opt-env-conf-test] + ", ",
  7189. 1027.88 s [opt-env-conf-test] + functionChunk "option",
  7190. 1027.88 s [opt-env-conf-test] + ", ",
  7191. 1027.88 s [opt-env-conf-test] + functionChunk "env",
  7192. 1027.88 s [opt-env-conf-test] + ", ",
  7193. 1027.88 s [opt-env-conf-test] + functionChunk "conf",
  7194. 1027.88 s [opt-env-conf-test] + ", or ",
  7195. 1027.88 s [opt-env-conf-test] + functionChunk "value",
  7196. 1027.88 s [opt-env-conf-test] + "."
  7197. 1027.88 s [opt-env-conf-test] + ]
  7198. 1027.88 s [opt-env-conf-test] + ]
  7199. 1027.88 s [opt-env-conf-test] + ]
  7200. 1027.88 s [opt-env-conf-test] + LintErrorDashInShort ->
  7201. 1027.88 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  7202. 1027.88 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  7203. 1027.88 s [opt-env-conf-test] + ]
  7204. 1027.88 s [opt-env-conf-test] + LintErrorDashInLong s ->
  7205. 1027.88 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  7206. 1027.88 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  7207. 1027.88 s [opt-env-conf-test] + [ "Try ",
  7208. 1027.88 s [opt-env-conf-test] + functionChunk "long",
  7209. 1027.88 s [opt-env-conf-test] + " ",
  7210. 1027.88 s [opt-env-conf-test] + chunk $
  7211. 1027.88 s [opt-env-conf-test] + T.pack $
  7212. 1027.88 s [opt-env-conf-test] + show $
  7213. 1027.88 s [opt-env-conf-test] + let go = \case
  7214. 1027.88 s [opt-env-conf-test] + [] -> []
  7215. 1027.88 s [opt-env-conf-test] + '-' : cs -> go cs
  7216. 1027.88 s [opt-env-conf-test] + c : cs -> c : cs
  7217. 1027.88 s [opt-env-conf-test] + in go $ NE.toList s,
  7218. 1027.88 s [opt-env-conf-test] + " instead."
  7219. 1027.88 s [opt-env-conf-test] + ]
  7220. 1027.88 s [opt-env-conf-test] + ]
  7221. 1027.88 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  7222. 1027.88 s [opt-env-conf-test] + [ [ functionChunk "argument",
  7223. 1027.88 s [opt-env-conf-test] + " has no ",
  7224. 1027.88 s [opt-env-conf-test] + functionChunk "reader",
  7225. 1027.88 s [opt-env-conf-test] + "."
  7226. 1027.88 s [opt-env-conf-test] + ]
  7227. 1027.88 s [opt-env-conf-test] + ]
  7228. 1027.88 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  7229. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "argument",
  7230. 1027.89 s [opt-env-conf-test] + " has no ",
  7231. 1027.89 s [opt-env-conf-test] + functionChunk "metavar",
  7232. 1027.89 s [opt-env-conf-test] + "."
  7233. 1027.89 s [opt-env-conf-test] + ]
  7234. 1027.89 s [opt-env-conf-test] + ]
  7235. 1027.89 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  7236. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "option",
  7237. 1027.89 s [opt-env-conf-test] + " or ",
  7238. 1027.89 s [opt-env-conf-test] + functionChunk "name",
  7239. 1027.89 s [opt-env-conf-test] + " has no ",
  7240. 1027.89 s [opt-env-conf-test] + functionChunk "reader",
  7241. 1027.89 s [opt-env-conf-test] + "."
  7242. 1027.89 s [opt-env-conf-test] + ]
  7243. 1027.89 s [opt-env-conf-test] + ]
  7244. 1027.89 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  7245. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "option",
  7246. 1027.89 s [opt-env-conf-test] + " has no ",
  7247. 1027.89 s [opt-env-conf-test] + functionChunk "long",
  7248. 1027.89 s [opt-env-conf-test] + " or ",
  7249. 1027.89 s [opt-env-conf-test] + functionChunk "short",
  7250. 1027.89 s [opt-env-conf-test] + "."
  7251. 1027.89 s [opt-env-conf-test] + ]
  7252. 1027.89 s [opt-env-conf-test] + ]
  7253. 1027.89 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  7254. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "option",
  7255. 1027.89 s [opt-env-conf-test] + " or ",
  7256. 1027.89 s [opt-env-conf-test] + functionChunk "name",
  7257. 1027.89 s [opt-env-conf-test] + " has no ",
  7258. 1027.89 s [opt-env-conf-test] + functionChunk "metavar",
  7259. 1027.89 s [opt-env-conf-test] + "."
  7260. 1027.89 s [opt-env-conf-test] + ]
  7261. 1027.89 s [opt-env-conf-test] + ]
  7262. 1027.89 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  7263. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "switch",
  7264. 1027.89 s [opt-env-conf-test] + " has no ",
  7265. 1027.89 s [opt-env-conf-test] + functionChunk "long",
  7266. 1027.89 s [opt-env-conf-test] + " or ",
  7267. 1027.89 s [opt-env-conf-test] + functionChunk "short",
  7268. 1027.89 s [opt-env-conf-test] + "."
  7269. 1027.89 s [opt-env-conf-test] + ]
  7270. 1027.89 s [opt-env-conf-test] + ]
  7271. 1027.89 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  7272. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "long",
  7273. 1027.89 s [opt-env-conf-test] + " or ",
  7274. 1027.89 s [opt-env-conf-test] + functionChunk "short",
  7275. 1027.89 s [opt-env-conf-test] + " has no ",
  7276. 1027.89 s [opt-env-conf-test] + functionChunk "option",
  7277. 1027.89 s [opt-env-conf-test] + " or ",
  7278. 1027.89 s [opt-env-conf-test] + functionChunk "switch",
  7279. 1027.89 s [opt-env-conf-test] + "."
  7280. 1027.89 s [opt-env-conf-test] + ]
  7281. 1027.89 s [opt-env-conf-test] + ]
  7282. 1027.89 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  7283. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "env",
  7284. 1027.89 s [opt-env-conf-test] + " or ",
  7285. 1027.89 s [opt-env-conf-test] + functionChunk "name",
  7286. 1027.89 s [opt-env-conf-test] + " has no ",
  7287. 1027.89 s [opt-env-conf-test] + functionChunk "reader",
  7288. 1027.89 s [opt-env-conf-test] + "."
  7289. 1027.89 s [opt-env-conf-test] + ]
  7290. 1027.89 s [opt-env-conf-test] + ]
  7291. 1027.89 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  7292. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "env",
  7293. 1027.89 s [opt-env-conf-test] + " or ",
  7294. 1027.89 s [opt-env-conf-test] + functionChunk "name",
  7295. 1027.89 s [opt-env-conf-test] + " has no ",
  7296. 1027.89 s [opt-env-conf-test] + functionChunk "metavar",
  7297. 1027.89 s [opt-env-conf-test] + "."
  7298. 1027.89 s [opt-env-conf-test] + ]
  7299. 1027.89 s [opt-env-conf-test] + ]
  7300. 1027.89 s [opt-env-conf-test] + LintErrorNoCommands ->
  7301. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "commands",
  7302. 1027.89 s [opt-env-conf-test] + " was called with an empty list."
  7303. 1027.89 s [opt-env-conf-test] + ]
  7304. 1027.89 s [opt-env-conf-test] + ]
  7305. 1027.89 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  7306. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  7307. 1027.89 s [opt-env-conf-test] + " was called with an unknown command: ",
  7308. 1027.89 s [opt-env-conf-test] + commandChunk c
  7309. 1027.89 s [opt-env-conf-test] + ]
  7310. 1027.89 s [opt-env-conf-test] + ]
  7311. 1027.89 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  7312. 1027.89 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  7313. 1027.89 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  7314. 1027.89 s [opt-env-conf-test] + ]
  7315. 1027.89 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  7316. 1027.89 s [opt-env-conf-test] + [ [ functionChunk "conf",
  7317. 1028.04 s [opt-env-conf-test] + " or ",
  7318. 1028.04 s [opt-env-conf-test] + functionChunk "name",
  7319. 1028.04 s [opt-env-conf-test] + " was called with no way to load configuration."
  7320. 1028.04 s [opt-env-conf-test] + ],
  7321. 1028.04 s [opt-env-conf-test] + [ "You can load configuration with ",
  7322. 1028.04 s [opt-env-conf-test] + functionChunk "withConfig",
  7323. 1028.04 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  7324. 1028.04 s [opt-env-conf-test] + functionChunk "withoutConfig",
  7325. 1028.04 s [opt-env-conf-test] + "."
  7326. 1028.04 s [opt-env-conf-test] + ]
  7327. 1028.05 s [opt-env-conf-test] + ]
  7328. 1028.05 s [opt-env-conf-test] + LintErrorManyInfinite ->
  7329. 1028.05 s [opt-env-conf-test] + [ [ functionChunk "many",
  7330. 1028.05 s [opt-env-conf-test] + " or ",
  7331. 1028.05 s [opt-env-conf-test] + functionChunk "some",
  7332. 1028.05 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  7333. 1028.05 s [opt-env-conf-test] + ],
  7334. 1028.05 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  7335. 1028.05 s [opt-env-conf-test] + ],
  7336. 1028.05 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  7337. 1028.05 s [opt-env-conf-test] ]
  7338. 1028.05 s [opt-env-conf-test]
  7339. 1028.05 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
  7340. 1028.05 s [opt-env-conf-test] @@ -557,7 +557,7 @@
  7341. 1028.05 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  7342. 1028.05 s [opt-env-conf-test] ppIndent $ go p'
  7343. 1028.05 s [opt-env-conf-test] ParserSome mLoc p' -> do
  7344. 1028.05 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  7345. 1028.05 s [opt-env-conf-test] + debug []
  7346. 1028.05 s [opt-env-conf-test] ppIndent $ go p'
  7347. 1028.05 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  7348. 1028.05 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  7349. 1028.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  7350. 1028.05 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  7351. 1028.05 s [opt-env-conf-test] renderLintError LintError {..} =
  7352. 1028.05 s [opt-env-conf-test] concat
  7353. 1028.05 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  7354. 1028.05 s [opt-env-conf-test] - case lintErrorMessage of
  7355. 1028.05 s [opt-env-conf-test] - LintErrorUndocumented ->
  7356. 1028.05 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  7357. 1028.05 s [opt-env-conf-test] - LintErrorEmptySetting ->
  7358. 1028.05 s [opt-env-conf-test] - concat
  7359. 1028.05 s [opt-env-conf-test] - [ [ [ "This ",
  7360. 1028.05 s [opt-env-conf-test] - functionChunk "setting",
  7361. 1028.05 s [opt-env-conf-test] - " parses nothing."
  7362. 1028.05 s [opt-env-conf-test] - ]
  7363. 1028.05 s [opt-env-conf-test] - ],
  7364. 1028.05 s [opt-env-conf-test] - [ [ "Add an ",
  7365. 1028.05 s [opt-env-conf-test] - functionChunk "argument",
  7366. 1028.05 s [opt-env-conf-test] - ", ",
  7367. 1028.05 s [opt-env-conf-test] - functionChunk "switch",
  7368. 1028.05 s [opt-env-conf-test] - ", ",
  7369. 1028.05 s [opt-env-conf-test] - functionChunk "option",
  7370. 1028.05 s [opt-env-conf-test] - ", ",
  7371. 1028.05 s [opt-env-conf-test] - functionChunk "env",
  7372. 1028.05 s [opt-env-conf-test] - ", ",
  7373. 1028.05 s [opt-env-conf-test] - functionChunk "conf",
  7374. 1028.05 s [opt-env-conf-test] - ", or ",
  7375. 1028.05 s [opt-env-conf-test] - functionChunk "value",
  7376. 1028.05 s [opt-env-conf-test] - "."
  7377. 1028.05 s [opt-env-conf-test] - ]
  7378. 1028.05 s [opt-env-conf-test] - ]
  7379. 1028.05 s [opt-env-conf-test] - ]
  7380. 1028.05 s [opt-env-conf-test] - LintErrorDashInShort ->
  7381. 1028.05 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  7382. 1028.05 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  7383. 1028.05 s [opt-env-conf-test] - ]
  7384. 1028.05 s [opt-env-conf-test] - LintErrorDashInLong s ->
  7385. 1028.05 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  7386. 1028.05 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  7387. 1028.05 s [opt-env-conf-test] - [ "Try ",
  7388. 1028.05 s [opt-env-conf-test] - functionChunk "long",
  7389. 1028.05 s [opt-env-conf-test] - " ",
  7390. 1028.05 s [opt-env-conf-test] - chunk $
  7391. 1028.05 s [opt-env-conf-test] - T.pack $
  7392. 1028.05 s [opt-env-conf-test] - show $
  7393. 1028.05 s [opt-env-conf-test] - let go = \case
  7394. 1028.05 s [opt-env-conf-test] - [] -> []
  7395. 1028.05 s [opt-env-conf-test] - '-' : cs -> go cs
  7396. 1028.05 s [opt-env-conf-test] - c : cs -> c : cs
  7397. 1028.05 s [opt-env-conf-test] - in go $ NE.toList s,
  7398. 1028.05 s [opt-env-conf-test] - " instead."
  7399. 1028.05 s [opt-env-conf-test] - ]
  7400. 1028.05 s [opt-env-conf-test] - ]
  7401. 1028.05 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  7402. 1028.05 s [opt-env-conf-test] - [ [ functionChunk "argument",
  7403. 1028.05 s [opt-env-conf-test] - " has no ",
  7404. 1028.05 s [opt-env-conf-test] - functionChunk "reader",
  7405. 1028.05 s [opt-env-conf-test] - "."
  7406. 1028.05 s [opt-env-conf-test] - ]
  7407. 1028.05 s [opt-env-conf-test] - ]
  7408. 1028.05 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  7409. 1028.05 s [opt-env-conf-test] - [ [ functionChunk "argument",
  7410. 1028.05 s [opt-env-conf-test] - " has no ",
  7411. 1028.05 s [opt-env-conf-test] - functionChunk "metavar",
  7412. 1028.05 s [opt-env-conf-test] - "."
  7413. 1028.05 s [opt-env-conf-test] - ]
  7414. 1028.05 s [opt-env-conf-test] - ]
  7415. 1028.05 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  7416. 1028.05 s [opt-env-conf-test] - [ [ functionChunk "option",
  7417. 1028.05 s [opt-env-conf-test] - " or ",
  7418. 1028.05 s [opt-env-conf-test] - functionChunk "name",
  7419. 1028.05 s [opt-env-conf-test] - " has no ",
  7420. 1028.05 s [opt-env-conf-test] - functionChunk "reader",
  7421. 1028.05 s [opt-env-conf-test] - "."
  7422. 1028.05 s [opt-env-conf-test] - ]
  7423. 1028.05 s [opt-env-conf-test] - ]
  7424. 1028.05 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  7425. 1028.05 s [opt-env-conf-test] - [ [ functionChunk "option",
  7426. 1028.05 s [opt-env-conf-test] - " has no ",
  7427. 1028.05 s [opt-env-conf-test] - functionChunk "long",
  7428. 1028.05 s [opt-env-conf-test] - " or ",
  7429. 1028.05 s [opt-env-conf-test] - functionChunk "short",
  7430. 1028.05 s [opt-env-conf-test] - "."
  7431. 1028.05 s [opt-env-conf-test] - ]
  7432. 1028.05 s [opt-env-conf-test] - ]
  7433. 1028.05 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  7434. 1028.05 s [opt-env-conf-test] - [ [ functionChunk "option",
  7435. 1028.05 s [opt-env-conf-test] - " or ",
  7436. 1028.05 s [opt-env-conf-test] - functionChunk "name",
  7437. 1028.05 s [opt-env-conf-test] - " has no ",
  7438. 1028.05 s [opt-env-conf-test] - functionChunk "metavar",
  7439. 1028.05 s [opt-env-conf-test] - "."
  7440. 1028.05 s [opt-env-conf-test] - ]
  7441. 1028.05 s [opt-env-conf-test] - ]
  7442. 1028.05 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  7443. 1028.05 s [opt-env-conf-test] - [ [ functionChunk "switch",
  7444. 1028.05 s [opt-env-conf-test] - " has no ",
  7445. 1028.05 s [opt-env-conf-test] - functionChunk "long",
  7446. 1028.05 s [opt-env-conf-test] - " or ",
  7447. 1028.05 s [opt-env-conf-test] - functionChunk "short",
  7448. 1028.05 s [opt-env-conf-test] - "."
  7449. 1028.05 s [opt-env-conf-test] - ]
  7450. 1028.05 s [opt-env-conf-test] - ]
  7451. 1028.05 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  7452. 1028.05 s [opt-env-conf-test] - [ [ functionChunk "long",
  7453. 1028.05 s [opt-env-conf-test] - " or ",
  7454. 1028.05 s [opt-env-conf-test] - functionChunk "short",
  7455. 1028.05 s [opt-env-conf-test] - " has no ",
  7456. 1028.05 s [opt-env-conf-test] - functionChunk "option",
  7457. 1028.05 s [opt-env-conf-test] - " or ",
  7458. 1028.05 s [opt-env-conf-test] - functionChunk "switch",
  7459. 1028.05 s [opt-env-conf-test] - "."
  7460. 1028.05 s [opt-env-conf-test] - ]
  7461. 1028.05 s [opt-env-conf-test] - ]
  7462. 1028.05 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  7463. 1028.05 s [opt-env-conf-test] - [ [ functionChunk "env",
  7464. 1028.05 s [opt-env-conf-test] - " or ",
  7465. 1028.05 s [opt-env-conf-test] - functionChunk "name",
  7466. 1028.05 s [opt-env-conf-test] - " has no ",
  7467. 1028.05 s [opt-env-conf-test] - functionChunk "reader",
  7468. 1028.05 s [opt-env-conf-test] - "."
  7469. 1028.05 s [opt-env-conf-test] - ]
  7470. 1028.05 s [opt-env-conf-test] - ]
  7471. 1028.06 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  7472. 1028.06 s [opt-env-conf-test] - [ [ functionChunk "env",
  7473. 1028.06 s [opt-env-conf-test] - " or ",
  7474. 1028.06 s [opt-env-conf-test] - functionChunk "name",
  7475. 1028.06 s [opt-env-conf-test] - " has no ",
  7476. 1028.06 s [opt-env-conf-test] - functionChunk "metavar",
  7477. 1028.06 s [opt-env-conf-test] - "."
  7478. 1028.06 s [opt-env-conf-test] - ]
  7479. 1028.06 s [opt-env-conf-test] - ]
  7480. 1028.06 s [opt-env-conf-test] - LintErrorNoCommands ->
  7481. 1028.06 s [opt-env-conf-test] - [ [ functionChunk "commands",
  7482. 1028.06 s [opt-env-conf-test] - " was called with an empty list."
  7483. 1028.06 s [opt-env-conf-test] - ]
  7484. 1028.06 s [opt-env-conf-test] - ]
  7485. 1028.06 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  7486. 1028.06 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  7487. 1028.06 s [opt-env-conf-test] - " was called with an unknown command: ",
  7488. 1028.06 s [opt-env-conf-test] - commandChunk c
  7489. 1028.06 s [opt-env-conf-test] - ]
  7490. 1028.06 s [opt-env-conf-test] - ]
  7491. 1028.06 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  7492. 1028.06 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  7493. 1028.06 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  7494. 1028.06 s [opt-env-conf-test] - ]
  7495. 1028.06 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  7496. 1028.06 s [opt-env-conf-test] - [ [ functionChunk "conf",
  7497. 1028.06 s [opt-env-conf-test] - " or ",
  7498. 1028.06 s [opt-env-conf-test] - functionChunk "name",
  7499. 1028.06 s [opt-env-conf-test] - " was called with no way to load configuration."
  7500. 1028.06 s [opt-env-conf-test] - ],
  7501. 1028.06 s [opt-env-conf-test] - [ "You can load configuration with ",
  7502. 1028.06 s [opt-env-conf-test] - functionChunk "withConfig",
  7503. 1028.06 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  7504. 1028.06 s [opt-env-conf-test] - functionChunk "withoutConfig",
  7505. 1028.06 s [opt-env-conf-test] - "."
  7506. 1028.06 s [opt-env-conf-test] - ]
  7507. 1028.06 s [opt-env-conf-test] - ]
  7508. 1028.06 s [opt-env-conf-test] - LintErrorManyInfinite ->
  7509. 1028.06 s [opt-env-conf-test] - [ [ functionChunk "many",
  7510. 1028.06 s [opt-env-conf-test] - " or ",
  7511. 1028.06 s [opt-env-conf-test] - functionChunk "some",
  7512. 1028.06 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  7513. 1028.06 s [opt-env-conf-test] - ],
  7514. 1028.06 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  7515. 1028.06 s [opt-env-conf-test] - ],
  7516. 1028.06 s [opt-env-conf-test] + case lintErrorMessage of
  7517. 1028.06 s [opt-env-conf-test] + LintErrorUndocumented ->
  7518. 1028.06 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  7519. 1028.06 s [opt-env-conf-test] + LintErrorEmptySetting ->
  7520. 1028.06 s [opt-env-conf-test] + concat
  7521. 1028.06 s [opt-env-conf-test] + [ [ [ "This ",
  7522. 1028.06 s [opt-env-conf-test] + functionChunk "setting",
  7523. 1028.06 s [opt-env-conf-test] + " parses nothing."
  7524. 1028.06 s [opt-env-conf-test] + ]
  7525. 1028.06 s [opt-env-conf-test] + ],
  7526. 1028.06 s [opt-env-conf-test] + [ [ "Add an ",
  7527. 1028.06 s [opt-env-conf-test] + functionChunk "argument",
  7528. 1028.06 s [opt-env-conf-test] + ", ",
  7529. 1028.06 s [opt-env-conf-test] + functionChunk "switch",
  7530. 1028.06 s [opt-env-conf-test] + ", ",
  7531. 1028.06 s [opt-env-conf-test] + functionChunk "option",
  7532. 1028.06 s [opt-env-conf-test] + ", ",
  7533. 1028.06 s [opt-env-conf-test] + functionChunk "env",
  7534. 1028.06 s [opt-env-conf-test] + ", ",
  7535. 1028.06 s [opt-env-conf-test] + functionChunk "conf",
  7536. 1028.06 s [opt-env-conf-test] + ", or ",
  7537. 1028.06 s [opt-env-conf-test] + functionChunk "value",
  7538. 1028.06 s [opt-env-conf-test] + "."
  7539. 1028.06 s [opt-env-conf-test] + ]
  7540. 1028.06 s [opt-env-conf-test] + ]
  7541. 1028.06 s [opt-env-conf-test] + ]
  7542. 1028.06 s [opt-env-conf-test] + LintErrorDashInShort ->
  7543. 1028.06 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  7544. 1028.06 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  7545. 1028.06 s [opt-env-conf-test] + ]
  7546. 1028.06 s [opt-env-conf-test] + LintErrorDashInLong s ->
  7547. 1028.06 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  7548. 1028.06 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  7549. 1028.06 s [opt-env-conf-test] + [ "Try ",
  7550. 1028.06 s [opt-env-conf-test] + functionChunk "long",
  7551. 1028.06 s [opt-env-conf-test] + " ",
  7552. 1028.06 s [opt-env-conf-test] + chunk $
  7553. 1028.06 s [opt-env-conf-test] + T.pack $
  7554. 1028.06 s [opt-env-conf-test] + show $
  7555. 1028.06 s [opt-env-conf-test] + let go = \case
  7556. 1028.06 s [opt-env-conf-test] + [] -> []
  7557. 1028.06 s [opt-env-conf-test] + '-' : cs -> go cs
  7558. 1028.06 s [opt-env-conf-test] + c : cs -> c : cs
  7559. 1028.06 s [opt-env-conf-test] + in go $ NE.toList s,
  7560. 1028.06 s [opt-env-conf-test] + " instead."
  7561. 1028.06 s [opt-env-conf-test] + ]
  7562. 1028.14 s [opt-env-conf-test] + ]
  7563. 1028.14 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  7564. 1028.14 s [opt-env-conf-test] + [ [ functionChunk "argument",
  7565. 1028.14 s [opt-env-conf-test] + " has no ",
  7566. 1028.14 s [opt-env-conf-test] + functionChunk "reader",
  7567. 1028.14 s [opt-env-conf-test] + "."
  7568. 1028.14 s [opt-env-conf-test] + ]
  7569. 1028.14 s [opt-env-conf-test] + ]
  7570. 1028.14 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  7571. 1028.14 s [opt-env-conf-test] + [ [ functionChunk "argument",
  7572. 1028.14 s [opt-env-conf-test] + " has no ",
  7573. 1028.14 s [opt-env-conf-test] + functionChunk "metavar",
  7574. 1028.14 s [opt-env-conf-test] + "."
  7575. 1028.14 s [opt-env-conf-test] + ]
  7576. 1028.14 s [opt-env-conf-test] + ]
  7577. 1028.14 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  7578. 1028.14 s [opt-env-conf-test] + [ [ functionChunk "option",
  7579. 1028.14 s [opt-env-conf-test] + " or ",
  7580. 1028.14 s [opt-env-conf-test] + functionChunk "name",
  7581. 1028.14 s [opt-env-conf-test] + " has no ",
  7582. 1028.14 s [opt-env-conf-test] + functionChunk "reader",
  7583. 1028.14 s [opt-env-conf-test] + "."
  7584. 1028.14 s [opt-env-conf-test] + ]
  7585. 1028.14 s [opt-env-conf-test] + ]
  7586. 1028.14 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  7587. 1028.14 s [opt-env-conf-test] + [ [ functionChunk "option",
  7588. 1028.14 s [opt-env-conf-test] + " has no ",
  7589. 1028.14 s [opt-env-conf-test] + functionChunk "long",
  7590. 1028.14 s [opt-env-conf-test] + " or ",
  7591. 1028.14 s [opt-env-conf-test] + functionChunk "short",
  7592. 1028.14 s [opt-env-conf-test] + "."
  7593. 1028.14 s [opt-env-conf-test] + ]
  7594. 1028.14 s [opt-env-conf-test] + ]
  7595. 1028.14 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  7596. 1028.14 s [opt-env-conf-test] + [ [ functionChunk "option",
  7597. 1028.14 s [opt-env-conf-test] + " or ",
  7598. 1028.14 s [opt-env-conf-test] + functionChunk "name",
  7599. 1028.14 s [opt-env-conf-test] + " has no ",
  7600. 1028.14 s [opt-env-conf-test] + functionChunk "metavar",
  7601. 1028.14 s [opt-env-conf-test] + "."
  7602. 1028.14 s [opt-env-conf-test] + ]
  7603. 1028.14 s [opt-env-conf-test] + ]
  7604. 1028.14 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  7605. 1028.14 s [opt-env-conf-test] + [ [ functionChunk "switch",
  7606. 1028.14 s [opt-env-conf-test] + " has no ",
  7607. 1028.14 s [opt-env-conf-test] + functionChunk "long",
  7608. 1028.14 s [opt-env-conf-test] + " or ",
  7609. 1028.14 s [opt-env-conf-test] + functionChunk "short",
  7610. 1028.14 s [opt-env-conf-test] + "."
  7611. 1028.14 s [opt-env-conf-test] + ]
  7612. 1028.14 s [opt-env-conf-test] + ]
  7613. 1028.14 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  7614. 1028.14 s [opt-env-conf-test] + [ [ functionChunk "long",
  7615. 1028.14 s [opt-env-conf-test] + " or ",
  7616. 1028.14 s [opt-env-conf-test] + functionChunk "short",
  7617. 1028.14 s [opt-env-conf-test] + " has no ",
  7618. 1028.14 s [opt-env-conf-test] + functionChunk "option",
  7619. 1028.14 s [opt-env-conf-test] + " or ",
  7620. 1028.15 s [opt-env-conf-test] + functionChunk "switch",
  7621. 1028.15 s [opt-env-conf-test] + "."
  7622. 1028.15 s [opt-env-conf-test] + ]
  7623. 1028.15 s [opt-env-conf-test] + ]
  7624. 1028.15 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  7625. 1028.15 s [opt-env-conf-test] + [ [ functionChunk "env",
  7626. 1028.15 s [opt-env-conf-test] + " or ",
  7627. 1028.15 s [opt-env-conf-test] + functionChunk "name",
  7628. 1028.15 s [opt-env-conf-test] + " has no ",
  7629. 1028.15 s [opt-env-conf-test] + functionChunk "reader",
  7630. 1028.15 s [opt-env-conf-test] + "."
  7631. 1028.15 s [opt-env-conf-test] + ]
  7632. 1028.15 s [opt-env-conf-test] + ]
  7633. 1028.15 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  7634. 1028.15 s [opt-env-conf-test] + [ [ functionChunk "env",
  7635. 1028.15 s [opt-env-conf-test] + " or ",
  7636. 1028.15 s [opt-env-conf-test] + functionChunk "name",
  7637. 1028.15 s [opt-env-conf-test] + " has no ",
  7638. 1028.15 s [opt-env-conf-test] + functionChunk "metavar",
  7639. 1028.15 s [opt-env-conf-test] + "."
  7640. 1028.15 s [opt-env-conf-test] + ]
  7641. 1028.15 s [opt-env-conf-test] + ]
  7642. 1028.15 s [opt-env-conf-test] + LintErrorNoCommands ->
  7643. 1028.15 s [opt-env-conf-test] + [ [ functionChunk "commands",
  7644. 1028.15 s [opt-env-conf-test] + " was called with an empty list."
  7645. 1028.15 s [opt-env-conf-test] + ]
  7646. 1028.15 s [opt-env-conf-test] + ]
  7647. 1028.15 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  7648. 1028.15 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  7649. 1028.15 s [opt-env-conf-test] + " was called with an unknown command: ",
  7650. 1028.15 s [opt-env-conf-test] + commandChunk c
  7651. 1028.15 s [opt-env-conf-test] + ]
  7652. 1028.15 s [opt-env-conf-test] + ]
  7653. 1028.15 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  7654. 1028.15 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  7655. 1028.15 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  7656. 1028.15 s [opt-env-conf-test] + ]
  7657. 1028.15 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  7658. 1028.15 s [opt-env-conf-test] + [ [ functionChunk "conf",
  7659. 1028.15 s [opt-env-conf-test] + " or ",
  7660. 1028.15 s [opt-env-conf-test] + functionChunk "name",
  7661. 1028.15 s [opt-env-conf-test] + " was called with no way to load configuration."
  7662. 1028.15 s [opt-env-conf-test] + ],
  7663. 1028.15 s [opt-env-conf-test] + [ "You can load configuration with ",
  7664. 1028.15 s [opt-env-conf-test] + functionChunk "withConfig",
  7665. 1028.15 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  7666. 1028.15 s [opt-env-conf-test] + functionChunk "withoutConfig",
  7667. 1028.15 s [opt-env-conf-test] + "."
  7668. 1028.15 s [opt-env-conf-test] + ]
  7669. 1028.15 s [opt-env-conf-test] + ]
  7670. 1028.15 s [opt-env-conf-test] + LintErrorManyInfinite ->
  7671. 1028.15 s [opt-env-conf-test] + [ [ functionChunk "many",
  7672. 1028.15 s [opt-env-conf-test] + " or ",
  7673. 1028.15 s [opt-env-conf-test] + functionChunk "some",
  7674. 1028.15 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  7675. 1028.15 s [opt-env-conf-test] + ],
  7676. 1028.15 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  7677. 1028.15 s [opt-env-conf-test] + ],
  7678. 1028.15 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  7679. 1028.15 s [opt-env-conf-test] ]
  7680. 1028.15 s [opt-env-conf-test]
  7681. 1028.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
  7682. 1028.15 s [opt-env-conf-test] @@ -557,7 +557,7 @@
  7683. 1028.15 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  7684. 1028.15 s [opt-env-conf-test] ppIndent $ go p'
  7685. 1028.15 s [opt-env-conf-test] ParserSome mLoc p' -> do
  7686. 1028.15 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  7687. 1028.15 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  7688. 1028.15 s [opt-env-conf-test] ppIndent $ go p'
  7689. 1028.15 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  7690. 1028.15 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  7691. 1028.15 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  7692. 1028.15 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  7693. 1028.15 s [opt-env-conf-test] renderLintError LintError {..} =
  7694. 1028.15 s [opt-env-conf-test] concat
  7695. 1028.15 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  7696. 1028.15 s [opt-env-conf-test] - case lintErrorMessage of
  7697. 1028.15 s [opt-env-conf-test] - LintErrorUndocumented ->
  7698. 1028.15 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  7699. 1028.15 s [opt-env-conf-test] - LintErrorEmptySetting ->
  7700. 1028.15 s [opt-env-conf-test] - concat
  7701. 1028.15 s [opt-env-conf-test] - [ [ [ "This ",
  7702. 1028.15 s [opt-env-conf-test] - functionChunk "setting",
  7703. 1028.15 s [opt-env-conf-test] - " parses nothing."
  7704. 1028.15 s [opt-env-conf-test] - ]
  7705. 1028.15 s [opt-env-conf-test] - ],
  7706. 1028.15 s [opt-env-conf-test] - [ [ "Add an ",
  7707. 1028.15 s [opt-env-conf-test] - functionChunk "argument",
  7708. 1028.15 s [opt-env-conf-test] - ", ",
  7709. 1028.15 s [opt-env-conf-test] - functionChunk "switch",
  7710. 1028.15 s [opt-env-conf-test] - ", ",
  7711. 1028.15 s [opt-env-conf-test] - functionChunk "option",
  7712. 1028.15 s [opt-env-conf-test] - ", ",
  7713. 1028.15 s [opt-env-conf-test] - functionChunk "env",
  7714. 1028.15 s [opt-env-conf-test] - ", ",
  7715. 1028.15 s [opt-env-conf-test] - functionChunk "conf",
  7716. 1028.15 s [opt-env-conf-test] - ", or ",
  7717. 1028.15 s [opt-env-conf-test] - functionChunk "value",
  7718. 1028.15 s [opt-env-conf-test] - "."
  7719. 1028.15 s [opt-env-conf-test] - ]
  7720. 1028.15 s [opt-env-conf-test] - ]
  7721. 1028.15 s [opt-env-conf-test] - ]
  7722. 1028.15 s [opt-env-conf-test] - LintErrorDashInShort ->
  7723. 1028.15 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  7724. 1028.15 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  7725. 1028.15 s [opt-env-conf-test] - ]
  7726. 1028.15 s [opt-env-conf-test] - LintErrorDashInLong s ->
  7727. 1028.15 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  7728. 1028.15 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  7729. 1028.15 s [opt-env-conf-test] - [ "Try ",
  7730. 1028.15 s [opt-env-conf-test] - functionChunk "long",
  7731. 1028.15 s [opt-env-conf-test] - " ",
  7732. 1028.15 s [opt-env-conf-test] - chunk $
  7733. 1028.15 s [opt-env-conf-test] - T.pack $
  7734. 1028.15 s [opt-env-conf-test] - show $
  7735. 1028.15 s [opt-env-conf-test] - let go = \case
  7736. 1028.15 s [opt-env-conf-test] - [] -> []
  7737. 1028.15 s [opt-env-conf-test] - '-' : cs -> go cs
  7738. 1028.15 s [opt-env-conf-test] - c : cs -> c : cs
  7739. 1028.15 s [opt-env-conf-test] - in go $ NE.toList s,
  7740. 1028.15 s [opt-env-conf-test] - " instead."
  7741. 1028.15 s [opt-env-conf-test] - ]
  7742. 1028.15 s [opt-env-conf-test] - ]
  7743. 1028.15 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  7744. 1028.15 s [opt-env-conf-test] - [ [ functionChunk "argument",
  7745. 1028.15 s [opt-env-conf-test] - " has no ",
  7746. 1028.15 s [opt-env-conf-test] - functionChunk "reader",
  7747. 1028.15 s [opt-env-conf-test] - "."
  7748. 1028.15 s [opt-env-conf-test] - ]
  7749. 1028.15 s [opt-env-conf-test] - ]
  7750. 1028.15 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  7751. 1028.16 s [opt-env-conf-test] - [ [ functionChunk "argument",
  7752. 1028.16 s [opt-env-conf-test] - " has no ",
  7753. 1028.16 s [opt-env-conf-test] - functionChunk "metavar",
  7754. 1028.16 s [opt-env-conf-test] - "."
  7755. 1028.16 s [opt-env-conf-test] - ]
  7756. 1028.16 s [opt-env-conf-test] - ]
  7757. 1028.16 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  7758. 1028.16 s [opt-env-conf-test] - [ [ functionChunk "option",
  7759. 1028.16 s [opt-env-conf-test] - " or ",
  7760. 1028.16 s [opt-env-conf-test] - functionChunk "name",
  7761. 1028.16 s [opt-env-conf-test] - " has no ",
  7762. 1028.16 s [opt-env-conf-test] - functionChunk "reader",
  7763. 1028.16 s [opt-env-conf-test] - "."
  7764. 1028.16 s [opt-env-conf-test] - ]
  7765. 1028.16 s [opt-env-conf-test] - ]
  7766. 1028.16 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  7767. 1028.16 s [opt-env-conf-test] - [ [ functionChunk "option",
  7768. 1028.16 s [opt-env-conf-test] - " has no ",
  7769. 1028.16 s [opt-env-conf-test] - functionChunk "long",
  7770. 1028.16 s [opt-env-conf-test] - " or ",
  7771. 1028.16 s [opt-env-conf-test] - functionChunk "short",
  7772. 1028.16 s [opt-env-conf-test] - "."
  7773. 1028.16 s [opt-env-conf-test] - ]
  7774. 1028.16 s [opt-env-conf-test] - ]
  7775. 1028.16 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  7776. 1028.16 s [opt-env-conf-test] - [ [ functionChunk "option",
  7777. 1028.16 s [opt-env-conf-test] - " or ",
  7778. 1028.16 s [opt-env-conf-test] - functionChunk "name",
  7779. 1028.16 s [opt-env-conf-test] - " has no ",
  7780. 1028.16 s [opt-env-conf-test] - functionChunk "metavar",
  7781. 1028.16 s [opt-env-conf-test] - "."
  7782. 1028.16 s [opt-env-conf-test] - ]
  7783. 1028.16 s [opt-env-conf-test] - ]
  7784. 1028.16 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  7785. 1028.16 s [opt-env-conf-test] - [ [ functionChunk "switch",
  7786. 1028.16 s [opt-env-conf-test] - " has no ",
  7787. 1028.16 s [opt-env-conf-test] - functionChunk "long",
  7788. 1028.16 s [opt-env-conf-test] - " or ",
  7789. 1028.16 s [opt-env-conf-test] - functionChunk "short",
  7790. 1028.16 s [opt-env-conf-test] - "."
  7791. 1028.16 s [opt-env-conf-test] - ]
  7792. 1028.16 s [opt-env-conf-test] - ]
  7793. 1028.16 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  7794. 1028.16 s [opt-env-conf-test] - [ [ functionChunk "long",
  7795. 1028.16 s [opt-env-conf-test] - " or ",
  7796. 1028.16 s [opt-env-conf-test] - functionChunk "short",
  7797. 1028.16 s [opt-env-conf-test] - " has no ",
  7798. 1028.16 s [opt-env-conf-test] - functionChunk "option",
  7799. 1028.16 s [opt-env-conf-test] - " or ",
  7800. 1028.16 s [opt-env-conf-test] - functionChunk "switch",
  7801. 1028.16 s [opt-env-conf-test] - "."
  7802. 1028.16 s [opt-env-conf-test] - ]
  7803. 1028.16 s [opt-env-conf-test] - ]
  7804. 1028.16 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  7805. 1028.16 s [opt-env-conf-test] - [ [ functionChunk "env",
  7806. 1028.16 s [opt-env-conf-test] - " or ",
  7807. 1028.16 s [opt-env-conf-test] - functionChunk "name",
  7808. 1028.16 s [opt-env-conf-test] - " has no ",
  7809. 1028.16 s [opt-env-conf-test] - functionChunk "reader",
  7810. 1028.16 s [opt-env-conf-test] - "."
  7811. 1028.16 s [opt-env-conf-test] - ]
  7812. 1028.16 s [opt-env-conf-test] - ]
  7813. 1028.16 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  7814. 1028.16 s [opt-env-conf-test] - [ [ functionChunk "env",
  7815. 1028.16 s [opt-env-conf-test] - " or ",
  7816. 1028.16 s [opt-env-conf-test] - functionChunk "name",
  7817. 1028.16 s [opt-env-conf-test] - " has no ",
  7818. 1028.16 s [opt-env-conf-test] - functionChunk "metavar",
  7819. 1028.16 s [opt-env-conf-test] - "."
  7820. 1028.16 s [opt-env-conf-test] - ]
  7821. 1028.16 s [opt-env-conf-test] - ]
  7822. 1028.22 s [opt-env-conf-test] - LintErrorNoCommands ->
  7823. 1028.22 s [opt-env-conf-test] - [ [ functionChunk "commands",
  7824. 1028.22 s [opt-env-conf-test] - " was called with an empty list."
  7825. 1028.22 s [opt-env-conf-test] - ]
  7826. 1028.22 s [opt-env-conf-test] - ]
  7827. 1028.22 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  7828. 1028.22 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  7829. 1028.22 s [opt-env-conf-test] - " was called with an unknown command: ",
  7830. 1028.22 s [opt-env-conf-test] - commandChunk c
  7831. 1028.22 s [opt-env-conf-test] - ]
  7832. 1028.22 s [opt-env-conf-test] - ]
  7833. 1028.22 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  7834. 1028.22 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  7835. 1028.22 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  7836. 1028.22 s [opt-env-conf-test] - ]
  7837. 1028.22 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  7838. 1028.22 s [opt-env-conf-test] - [ [ functionChunk "conf",
  7839. 1028.22 s [opt-env-conf-test] - " or ",
  7840. 1028.22 s [opt-env-conf-test] - functionChunk "name",
  7841. 1028.22 s [opt-env-conf-test] - " was called with no way to load configuration."
  7842. 1028.22 s [opt-env-conf-test] - ],
  7843. 1028.22 s [opt-env-conf-test] - [ "You can load configuration with ",
  7844. 1028.22 s [opt-env-conf-test] - functionChunk "withConfig",
  7845. 1028.22 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  7846. 1028.22 s [opt-env-conf-test] - functionChunk "withoutConfig",
  7847. 1028.22 s [opt-env-conf-test] - "."
  7848. 1028.22 s [opt-env-conf-test] - ]
  7849. 1028.22 s [opt-env-conf-test] - ]
  7850. 1028.22 s [opt-env-conf-test] - LintErrorManyInfinite ->
  7851. 1028.22 s [opt-env-conf-test] - [ [ functionChunk "many",
  7852. 1028.22 s [opt-env-conf-test] - " or ",
  7853. 1028.22 s [opt-env-conf-test] - functionChunk "some",
  7854. 1028.22 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  7855. 1028.22 s [opt-env-conf-test] - ],
  7856. 1028.22 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  7857. 1028.22 s [opt-env-conf-test] - ],
  7858. 1028.22 s [opt-env-conf-test] + case lintErrorMessage of
  7859. 1028.22 s [opt-env-conf-test] + LintErrorUndocumented ->
  7860. 1028.22 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  7861. 1028.22 s [opt-env-conf-test] + LintErrorEmptySetting ->
  7862. 1028.22 s [opt-env-conf-test] + concat
  7863. 1028.22 s [opt-env-conf-test] + [ [ [ "This ",
  7864. 1028.22 s [opt-env-conf-test] + functionChunk "setting",
  7865. 1028.22 s [opt-env-conf-test] + " parses nothing."
  7866. 1028.22 s [opt-env-conf-test] + ]
  7867. 1028.22 s [opt-env-conf-test] + ],
  7868. 1028.22 s [opt-env-conf-test] + [ [ "Add an ",
  7869. 1028.22 s [opt-env-conf-test] + functionChunk "argument",
  7870. 1028.22 s [opt-env-conf-test] + ", ",
  7871. 1028.22 s [opt-env-conf-test] + functionChunk "switch",
  7872. 1028.22 s [opt-env-conf-test] + ", ",
  7873. 1028.22 s [opt-env-conf-test] + functionChunk "option",
  7874. 1028.22 s [opt-env-conf-test] + ", ",
  7875. 1028.22 s [opt-env-conf-test] + functionChunk "env",
  7876. 1028.22 s [opt-env-conf-test] + ", ",
  7877. 1028.22 s [opt-env-conf-test] + functionChunk "conf",
  7878. 1028.22 s [opt-env-conf-test] + ", or ",
  7879. 1028.22 s [opt-env-conf-test] + functionChunk "value",
  7880. 1028.22 s [opt-env-conf-test] + "."
  7881. 1028.22 s [opt-env-conf-test] + ]
  7882. 1028.22 s [opt-env-conf-test] + ]
  7883. 1028.22 s [opt-env-conf-test] + ]
  7884. 1028.22 s [opt-env-conf-test] + LintErrorDashInShort ->
  7885. 1028.22 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  7886. 1028.22 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  7887. 1028.22 s [opt-env-conf-test] + ]
  7888. 1028.22 s [opt-env-conf-test] + LintErrorDashInLong s ->
  7889. 1028.22 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  7890. 1028.22 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  7891. 1028.22 s [opt-env-conf-test] + [ "Try ",
  7892. 1028.22 s [opt-env-conf-test] + functionChunk "long",
  7893. 1028.22 s [opt-env-conf-test] + " ",
  7894. 1028.22 s [opt-env-conf-test] + chunk $
  7895. 1028.22 s [opt-env-conf-test] + T.pack $
  7896. 1028.22 s [opt-env-conf-test] + show $
  7897. 1028.22 s [opt-env-conf-test] + let go = \case
  7898. 1028.22 s [opt-env-conf-test] + [] -> []
  7899. 1028.22 s [opt-env-conf-test] + '-' : cs -> go cs
  7900. 1028.22 s [opt-env-conf-test] + c : cs -> c : cs
  7901. 1028.22 s [opt-env-conf-test] + in go $ NE.toList s,
  7902. 1028.22 s [opt-env-conf-test] + " instead."
  7903. 1028.22 s [opt-env-conf-test] + ]
  7904. 1028.22 s [opt-env-conf-test] + ]
  7905. 1028.22 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  7906. 1028.22 s [opt-env-conf-test] + [ [ functionChunk "argument",
  7907. 1028.22 s [opt-env-conf-test] + " has no ",
  7908. 1028.22 s [opt-env-conf-test] + functionChunk "reader",
  7909. 1028.22 s [opt-env-conf-test] + "."
  7910. 1028.22 s [opt-env-conf-test] + ]
  7911. 1028.22 s [opt-env-conf-test] + ]
  7912. 1028.22 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  7913. 1028.22 s [opt-env-conf-test] + [ [ functionChunk "argument",
  7914. 1028.22 s [opt-env-conf-test] + " has no ",
  7915. 1028.22 s [opt-env-conf-test] + functionChunk "metavar",
  7916. 1028.22 s [opt-env-conf-test] + "."
  7917. 1028.22 s [opt-env-conf-test] + ]
  7918. 1028.22 s [opt-env-conf-test] + ]
  7919. 1028.22 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  7920. 1028.22 s [opt-env-conf-test] + [ [ functionChunk "option",
  7921. 1028.22 s [opt-env-conf-test] + " or ",
  7922. 1028.22 s [opt-env-conf-test] + functionChunk "name",
  7923. 1028.22 s [opt-env-conf-test] + " has no ",
  7924. 1028.22 s [opt-env-conf-test] + functionChunk "reader",
  7925. 1028.23 s [opt-env-conf-test] + "."
  7926. 1028.23 s [opt-env-conf-test] + ]
  7927. 1028.23 s [opt-env-conf-test] + ]
  7928. 1028.23 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  7929. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "option",
  7930. 1028.23 s [opt-env-conf-test] + " has no ",
  7931. 1028.23 s [opt-env-conf-test] + functionChunk "long",
  7932. 1028.23 s [opt-env-conf-test] + " or ",
  7933. 1028.23 s [opt-env-conf-test] + functionChunk "short",
  7934. 1028.23 s [opt-env-conf-test] + "."
  7935. 1028.23 s [opt-env-conf-test] + ]
  7936. 1028.23 s [opt-env-conf-test] + ]
  7937. 1028.23 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  7938. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "option",
  7939. 1028.23 s [opt-env-conf-test] + " or ",
  7940. 1028.23 s [opt-env-conf-test] + functionChunk "name",
  7941. 1028.23 s [opt-env-conf-test] + " has no ",
  7942. 1028.23 s [opt-env-conf-test] + functionChunk "metavar",
  7943. 1028.23 s [opt-env-conf-test] + "."
  7944. 1028.23 s [opt-env-conf-test] + ]
  7945. 1028.23 s [opt-env-conf-test] + ]
  7946. 1028.23 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  7947. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "switch",
  7948. 1028.23 s [opt-env-conf-test] + " has no ",
  7949. 1028.23 s [opt-env-conf-test] + functionChunk "long",
  7950. 1028.23 s [opt-env-conf-test] + " or ",
  7951. 1028.23 s [opt-env-conf-test] + functionChunk "short",
  7952. 1028.23 s [opt-env-conf-test] + "."
  7953. 1028.23 s [opt-env-conf-test] + ]
  7954. 1028.23 s [opt-env-conf-test] + ]
  7955. 1028.23 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  7956. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "long",
  7957. 1028.23 s [opt-env-conf-test] + " or ",
  7958. 1028.23 s [opt-env-conf-test] + functionChunk "short",
  7959. 1028.23 s [opt-env-conf-test] + " has no ",
  7960. 1028.23 s [opt-env-conf-test] + functionChunk "option",
  7961. 1028.23 s [opt-env-conf-test] + " or ",
  7962. 1028.23 s [opt-env-conf-test] + functionChunk "switch",
  7963. 1028.23 s [opt-env-conf-test] + "."
  7964. 1028.23 s [opt-env-conf-test] + ]
  7965. 1028.23 s [opt-env-conf-test] + ]
  7966. 1028.23 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  7967. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "env",
  7968. 1028.23 s [opt-env-conf-test] + " or ",
  7969. 1028.23 s [opt-env-conf-test] + functionChunk "name",
  7970. 1028.23 s [opt-env-conf-test] + " has no ",
  7971. 1028.23 s [opt-env-conf-test] + functionChunk "reader",
  7972. 1028.23 s [opt-env-conf-test] + "."
  7973. 1028.23 s [opt-env-conf-test] + ]
  7974. 1028.23 s [opt-env-conf-test] + ]
  7975. 1028.23 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  7976. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "env",
  7977. 1028.23 s [opt-env-conf-test] + " or ",
  7978. 1028.23 s [opt-env-conf-test] + functionChunk "name",
  7979. 1028.23 s [opt-env-conf-test] + " has no ",
  7980. 1028.23 s [opt-env-conf-test] + functionChunk "metavar",
  7981. 1028.23 s [opt-env-conf-test] + "."
  7982. 1028.23 s [opt-env-conf-test] + ]
  7983. 1028.23 s [opt-env-conf-test] + ]
  7984. 1028.23 s [opt-env-conf-test] + LintErrorNoCommands ->
  7985. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "commands",
  7986. 1028.23 s [opt-env-conf-test] + " was called with an empty list."
  7987. 1028.23 s [opt-env-conf-test] + ]
  7988. 1028.23 s [opt-env-conf-test] + ]
  7989. 1028.23 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  7990. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  7991. 1028.23 s [opt-env-conf-test] + " was called with an unknown command: ",
  7992. 1028.23 s [opt-env-conf-test] + commandChunk c
  7993. 1028.23 s [opt-env-conf-test] + ]
  7994. 1028.23 s [opt-env-conf-test] + ]
  7995. 1028.23 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  7996. 1028.23 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  7997. 1028.23 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  7998. 1028.23 s [opt-env-conf-test] + ]
  7999. 1028.23 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  8000. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "conf",
  8001. 1028.23 s [opt-env-conf-test] + " or ",
  8002. 1028.23 s [opt-env-conf-test] + functionChunk "name",
  8003. 1028.23 s [opt-env-conf-test] + " was called with no way to load configuration."
  8004. 1028.23 s [opt-env-conf-test] + ],
  8005. 1028.23 s [opt-env-conf-test] + [ "You can load configuration with ",
  8006. 1028.23 s [opt-env-conf-test] + functionChunk "withConfig",
  8007. 1028.23 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  8008. 1028.23 s [opt-env-conf-test] + functionChunk "withoutConfig",
  8009. 1028.23 s [opt-env-conf-test] + "."
  8010. 1028.23 s [opt-env-conf-test] + ]
  8011. 1028.23 s [opt-env-conf-test] + ]
  8012. 1028.23 s [opt-env-conf-test] + LintErrorManyInfinite ->
  8013. 1028.23 s [opt-env-conf-test] + [ [ functionChunk "many",
  8014. 1028.23 s [opt-env-conf-test] + " or ",
  8015. 1028.23 s [opt-env-conf-test] + functionChunk "some",
  8016. 1028.23 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  8017. 1028.23 s [opt-env-conf-test] + ],
  8018. 1028.23 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  8019. 1028.23 s [opt-env-conf-test] + ],
  8020. 1028.23 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  8021. 1028.23 s [opt-env-conf-test] ]
  8022. 1028.23 s [opt-env-conf-test]
  8023. 1028.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  8024. 1028.23 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  8025. 1028.23 s [opt-env-conf-test] renderLintError LintError {..} =
  8026. 1028.23 s [opt-env-conf-test] concat
  8027. 1028.23 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  8028. 1028.23 s [opt-env-conf-test] - case lintErrorMessage of
  8029. 1028.23 s [opt-env-conf-test] - LintErrorUndocumented ->
  8030. 1028.23 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  8031. 1028.23 s [opt-env-conf-test] - LintErrorEmptySetting ->
  8032. 1028.23 s [opt-env-conf-test] - concat
  8033. 1028.23 s [opt-env-conf-test] - [ [ [ "This ",
  8034. 1028.23 s [opt-env-conf-test] - functionChunk "setting",
  8035. 1028.23 s [opt-env-conf-test] - " parses nothing."
  8036. 1028.23 s [opt-env-conf-test] - ]
  8037. 1028.23 s [opt-env-conf-test] - ],
  8038. 1028.23 s [opt-env-conf-test] - [ [ "Add an ",
  8039. 1028.23 s [opt-env-conf-test] - functionChunk "argument",
  8040. 1028.23 s [opt-env-conf-test] - ", ",
  8041. 1028.23 s [opt-env-conf-test] - functionChunk "switch",
  8042. 1028.23 s [opt-env-conf-test] - ", ",
  8043. 1028.23 s [opt-env-conf-test] - functionChunk "option",
  8044. 1028.23 s [opt-env-conf-test] - ", ",
  8045. 1028.23 s [opt-env-conf-test] - functionChunk "env",
  8046. 1028.23 s [opt-env-conf-test] - ", ",
  8047. 1028.23 s [opt-env-conf-test] - functionChunk "conf",
  8048. 1028.23 s [opt-env-conf-test] - ", or ",
  8049. 1028.23 s [opt-env-conf-test] - functionChunk "value",
  8050. 1028.23 s [opt-env-conf-test] - "."
  8051. 1028.23 s [opt-env-conf-test] - ]
  8052. 1028.23 s [opt-env-conf-test] - ]
  8053. 1028.23 s [opt-env-conf-test] - ]
  8054. 1028.23 s [opt-env-conf-test] - LintErrorDashInShort ->
  8055. 1028.23 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  8056. 1028.23 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  8057. 1028.23 s [opt-env-conf-test] - ]
  8058. 1028.23 s [opt-env-conf-test] - LintErrorDashInLong s ->
  8059. 1028.23 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  8060. 1028.23 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  8061. 1028.23 s [opt-env-conf-test] - [ "Try ",
  8062. 1028.23 s [opt-env-conf-test] - functionChunk "long",
  8063. 1028.23 s [opt-env-conf-test] - " ",
  8064. 1028.23 s [opt-env-conf-test] - chunk $
  8065. 1028.23 s [opt-env-conf-test] - T.pack $
  8066. 1028.23 s [opt-env-conf-test] - show $
  8067. 1028.23 s [opt-env-conf-test] - let go = \case
  8068. 1028.23 s [opt-env-conf-test] - [] -> []
  8069. 1028.23 s [opt-env-conf-test] - '-' : cs -> go cs
  8070. 1028.23 s [opt-env-conf-test] - c : cs -> c : cs
  8071. 1028.23 s [opt-env-conf-test] - in go $ NE.toList s,
  8072. 1028.23 s [opt-env-conf-test] - " instead."
  8073. 1028.23 s [opt-env-conf-test] - ]
  8074. 1028.23 s [opt-env-conf-test] - ]
  8075. 1028.23 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  8076. 1028.23 s [opt-env-conf-test] - [ [ functionChunk "argument",
  8077. 1028.23 s [opt-env-conf-test] - " has no ",
  8078. 1028.23 s [opt-env-conf-test] - functionChunk "reader",
  8079. 1028.23 s [opt-env-conf-test] - "."
  8080. 1028.23 s [opt-env-conf-test] - ]
  8081. 1028.23 s [opt-env-conf-test] - ]
  8082. 1028.24 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  8083. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "argument",
  8084. 1028.24 s [opt-env-conf-test] - " has no ",
  8085. 1028.24 s [opt-env-conf-test] - functionChunk "metavar",
  8086. 1028.24 s [opt-env-conf-test] - "."
  8087. 1028.24 s [opt-env-conf-test] - ]
  8088. 1028.24 s [opt-env-conf-test] - ]
  8089. 1028.24 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  8090. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "option",
  8091. 1028.24 s [opt-env-conf-test] - " or ",
  8092. 1028.24 s [opt-env-conf-test] - functionChunk "name",
  8093. 1028.24 s [opt-env-conf-test] - " has no ",
  8094. 1028.24 s [opt-env-conf-test] - functionChunk "reader",
  8095. 1028.24 s [opt-env-conf-test] - "."
  8096. 1028.24 s [opt-env-conf-test] - ]
  8097. 1028.24 s [opt-env-conf-test] - ]
  8098. 1028.24 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  8099. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "option",
  8100. 1028.24 s [opt-env-conf-test] - " has no ",
  8101. 1028.24 s [opt-env-conf-test] - functionChunk "long",
  8102. 1028.24 s [opt-env-conf-test] - " or ",
  8103. 1028.24 s [opt-env-conf-test] - functionChunk "short",
  8104. 1028.24 s [opt-env-conf-test] - "."
  8105. 1028.24 s [opt-env-conf-test] - ]
  8106. 1028.24 s [opt-env-conf-test] - ]
  8107. 1028.24 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  8108. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "option",
  8109. 1028.24 s [opt-env-conf-test] - " or ",
  8110. 1028.24 s [opt-env-conf-test] - functionChunk "name",
  8111. 1028.24 s [opt-env-conf-test] - " has no ",
  8112. 1028.24 s [opt-env-conf-test] - functionChunk "metavar",
  8113. 1028.24 s [opt-env-conf-test] - "."
  8114. 1028.24 s [opt-env-conf-test] - ]
  8115. 1028.24 s [opt-env-conf-test] - ]
  8116. 1028.24 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  8117. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "switch",
  8118. 1028.24 s [opt-env-conf-test] - " has no ",
  8119. 1028.24 s [opt-env-conf-test] - functionChunk "long",
  8120. 1028.24 s [opt-env-conf-test] - " or ",
  8121. 1028.24 s [opt-env-conf-test] - functionChunk "short",
  8122. 1028.24 s [opt-env-conf-test] - "."
  8123. 1028.24 s [opt-env-conf-test] - ]
  8124. 1028.24 s [opt-env-conf-test] - ]
  8125. 1028.24 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  8126. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "long",
  8127. 1028.24 s [opt-env-conf-test] - " or ",
  8128. 1028.24 s [opt-env-conf-test] - functionChunk "short",
  8129. 1028.24 s [opt-env-conf-test] - " has no ",
  8130. 1028.24 s [opt-env-conf-test] - functionChunk "option",
  8131. 1028.24 s [opt-env-conf-test] - " or ",
  8132. 1028.24 s [opt-env-conf-test] - functionChunk "switch",
  8133. 1028.24 s [opt-env-conf-test] - "."
  8134. 1028.24 s [opt-env-conf-test] - ]
  8135. 1028.24 s [opt-env-conf-test] - ]
  8136. 1028.24 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  8137. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "env",
  8138. 1028.24 s [opt-env-conf-test] - " or ",
  8139. 1028.24 s [opt-env-conf-test] - functionChunk "name",
  8140. 1028.24 s [opt-env-conf-test] - " has no ",
  8141. 1028.24 s [opt-env-conf-test] - functionChunk "reader",
  8142. 1028.24 s [opt-env-conf-test] - "."
  8143. 1028.24 s [opt-env-conf-test] - ]
  8144. 1028.24 s [opt-env-conf-test] - ]
  8145. 1028.24 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  8146. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "env",
  8147. 1028.24 s [opt-env-conf-test] - " or ",
  8148. 1028.24 s [opt-env-conf-test] - functionChunk "name",
  8149. 1028.24 s [opt-env-conf-test] - " has no ",
  8150. 1028.24 s [opt-env-conf-test] - functionChunk "metavar",
  8151. 1028.24 s [opt-env-conf-test] - "."
  8152. 1028.24 s [opt-env-conf-test] - ]
  8153. 1028.24 s [opt-env-conf-test] - ]
  8154. 1028.24 s [opt-env-conf-test] - LintErrorNoCommands ->
  8155. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "commands",
  8156. 1028.24 s [opt-env-conf-test] - " was called with an empty list."
  8157. 1028.24 s [opt-env-conf-test] - ]
  8158. 1028.24 s [opt-env-conf-test] - ]
  8159. 1028.24 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  8160. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  8161. 1028.24 s [opt-env-conf-test] - " was called with an unknown command: ",
  8162. 1028.24 s [opt-env-conf-test] - commandChunk c
  8163. 1028.24 s [opt-env-conf-test] - ]
  8164. 1028.24 s [opt-env-conf-test] - ]
  8165. 1028.24 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  8166. 1028.24 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  8167. 1028.24 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  8168. 1028.24 s [opt-env-conf-test] - ]
  8169. 1028.24 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  8170. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "conf",
  8171. 1028.24 s [opt-env-conf-test] - " or ",
  8172. 1028.24 s [opt-env-conf-test] - functionChunk "name",
  8173. 1028.24 s [opt-env-conf-test] - " was called with no way to load configuration."
  8174. 1028.24 s [opt-env-conf-test] - ],
  8175. 1028.24 s [opt-env-conf-test] - [ "You can load configuration with ",
  8176. 1028.24 s [opt-env-conf-test] - functionChunk "withConfig",
  8177. 1028.24 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  8178. 1028.24 s [opt-env-conf-test] - functionChunk "withoutConfig",
  8179. 1028.24 s [opt-env-conf-test] - "."
  8180. 1028.24 s [opt-env-conf-test] - ]
  8181. 1028.24 s [opt-env-conf-test] - ]
  8182. 1028.24 s [opt-env-conf-test] - LintErrorManyInfinite ->
  8183. 1028.24 s [opt-env-conf-test] - [ [ functionChunk "many",
  8184. 1028.24 s [opt-env-conf-test] - " or ",
  8185. 1028.24 s [opt-env-conf-test] - functionChunk "some",
  8186. 1028.24 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  8187. 1028.24 s [opt-env-conf-test] - ],
  8188. 1028.24 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  8189. 1028.24 s [opt-env-conf-test] - ],
  8190. 1028.24 s [opt-env-conf-test] + case lintErrorMessage of
  8191. 1028.24 s [opt-env-conf-test] + LintErrorUndocumented ->
  8192. 1028.24 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  8193. 1028.24 s [opt-env-conf-test] + LintErrorEmptySetting ->
  8194. 1028.24 s [opt-env-conf-test] + concat
  8195. 1028.24 s [opt-env-conf-test] + [ [ [ "This ",
  8196. 1028.24 s [opt-env-conf-test] + functionChunk "setting",
  8197. 1028.24 s [opt-env-conf-test] + " parses nothing."
  8198. 1028.24 s [opt-env-conf-test] + ]
  8199. 1028.24 s [opt-env-conf-test] + ],
  8200. 1028.24 s [opt-env-conf-test] + [ [ "Add an ",
  8201. 1028.24 s [opt-env-conf-test] + functionChunk "argument",
  8202. 1028.24 s [opt-env-conf-test] + ", ",
  8203. 1028.24 s [opt-env-conf-test] + functionChunk "switch",
  8204. 1028.24 s [opt-env-conf-test] + ", ",
  8205. 1028.24 s [opt-env-conf-test] + functionChunk "option",
  8206. 1028.24 s [opt-env-conf-test] + ", ",
  8207. 1028.24 s [opt-env-conf-test] + functionChunk "env",
  8208. 1028.24 s [opt-env-conf-test] + ", ",
  8209. 1028.24 s [opt-env-conf-test] + functionChunk "conf",
  8210. 1028.24 s [opt-env-conf-test] + ", or ",
  8211. 1028.24 s [opt-env-conf-test] + functionChunk "value",
  8212. 1028.24 s [opt-env-conf-test] + "."
  8213. 1028.24 s [opt-env-conf-test] + ]
  8214. 1028.24 s [opt-env-conf-test] + ]
  8215. 1028.24 s [opt-env-conf-test] + ]
  8216. 1028.24 s [opt-env-conf-test] + LintErrorDashInShort ->
  8217. 1028.24 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  8218. 1028.24 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  8219. 1028.25 s [opt-env-conf-test] + ]
  8220. 1028.25 s [opt-env-conf-test] + LintErrorDashInLong s ->
  8221. 1028.25 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  8222. 1028.25 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  8223. 1028.25 s [opt-env-conf-test] + [ "Try ",
  8224. 1028.25 s [opt-env-conf-test] + functionChunk "long",
  8225. 1028.25 s [opt-env-conf-test] + " ",
  8226. 1028.25 s [opt-env-conf-test] + chunk $
  8227. 1028.25 s [opt-env-conf-test] + T.pack $
  8228. 1028.25 s [opt-env-conf-test] + show $
  8229. 1028.25 s [opt-env-conf-test] + let go = \case
  8230. 1028.25 s [opt-env-conf-test] + [] -> []
  8231. 1028.25 s [opt-env-conf-test] + '-' : cs -> go cs
  8232. 1028.25 s [opt-env-conf-test] + c : cs -> c : cs
  8233. 1028.25 s [opt-env-conf-test] + in go $ NE.toList s,
  8234. 1028.25 s [opt-env-conf-test] + " instead."
  8235. 1028.25 s [opt-env-conf-test] + ]
  8236. 1028.25 s [opt-env-conf-test] + ]
  8237. 1028.25 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  8238. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "argument",
  8239. 1028.25 s [opt-env-conf-test] + " has no ",
  8240. 1028.25 s [opt-env-conf-test] + functionChunk "reader",
  8241. 1028.25 s [opt-env-conf-test] + "."
  8242. 1028.25 s [opt-env-conf-test] + ]
  8243. 1028.25 s [opt-env-conf-test] + ]
  8244. 1028.25 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  8245. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "argument",
  8246. 1028.25 s [opt-env-conf-test] + " has no ",
  8247. 1028.25 s [opt-env-conf-test] + functionChunk "metavar",
  8248. 1028.25 s [opt-env-conf-test] + "."
  8249. 1028.25 s [opt-env-conf-test] + ]
  8250. 1028.25 s [opt-env-conf-test] + ]
  8251. 1028.25 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  8252. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "option",
  8253. 1028.25 s [opt-env-conf-test] + " or ",
  8254. 1028.25 s [opt-env-conf-test] + functionChunk "name",
  8255. 1028.25 s [opt-env-conf-test] + " has no ",
  8256. 1028.25 s [opt-env-conf-test] + functionChunk "reader",
  8257. 1028.25 s [opt-env-conf-test] + "."
  8258. 1028.25 s [opt-env-conf-test] + ]
  8259. 1028.25 s [opt-env-conf-test] + ]
  8260. 1028.25 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  8261. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "option",
  8262. 1028.25 s [opt-env-conf-test] + " has no ",
  8263. 1028.25 s [opt-env-conf-test] + functionChunk "long",
  8264. 1028.25 s [opt-env-conf-test] + " or ",
  8265. 1028.25 s [opt-env-conf-test] + functionChunk "short",
  8266. 1028.25 s [opt-env-conf-test] + "."
  8267. 1028.25 s [opt-env-conf-test] + ]
  8268. 1028.25 s [opt-env-conf-test] + ]
  8269. 1028.25 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  8270. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "option",
  8271. 1028.25 s [opt-env-conf-test] + " or ",
  8272. 1028.25 s [opt-env-conf-test] + functionChunk "name",
  8273. 1028.25 s [opt-env-conf-test] + " has no ",
  8274. 1028.25 s [opt-env-conf-test] + functionChunk "metavar",
  8275. 1028.25 s [opt-env-conf-test] + "."
  8276. 1028.25 s [opt-env-conf-test] + ]
  8277. 1028.25 s [opt-env-conf-test] + ]
  8278. 1028.25 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  8279. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "switch",
  8280. 1028.25 s [opt-env-conf-test] + " has no ",
  8281. 1028.25 s [opt-env-conf-test] + functionChunk "long",
  8282. 1028.25 s [opt-env-conf-test] + " or ",
  8283. 1028.25 s [opt-env-conf-test] + functionChunk "short",
  8284. 1028.25 s [opt-env-conf-test] + "."
  8285. 1028.25 s [opt-env-conf-test] + ]
  8286. 1028.25 s [opt-env-conf-test] + ]
  8287. 1028.25 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  8288. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "long",
  8289. 1028.25 s [opt-env-conf-test] + " or ",
  8290. 1028.25 s [opt-env-conf-test] + functionChunk "short",
  8291. 1028.25 s [opt-env-conf-test] + " has no ",
  8292. 1028.25 s [opt-env-conf-test] + functionChunk "option",
  8293. 1028.25 s [opt-env-conf-test] + " or ",
  8294. 1028.25 s [opt-env-conf-test] + functionChunk "switch",
  8295. 1028.25 s [opt-env-conf-test] + "."
  8296. 1028.25 s [opt-env-conf-test] + ]
  8297. 1028.25 s [opt-env-conf-test] + ]
  8298. 1028.25 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  8299. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "env",
  8300. 1028.25 s [opt-env-conf-test] + " or ",
  8301. 1028.25 s [opt-env-conf-test] + functionChunk "name",
  8302. 1028.25 s [opt-env-conf-test] + " has no ",
  8303. 1028.25 s [opt-env-conf-test] + functionChunk "reader",
  8304. 1028.25 s [opt-env-conf-test] + "."
  8305. 1028.25 s [opt-env-conf-test] + ]
  8306. 1028.25 s [opt-env-conf-test] + ]
  8307. 1028.25 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  8308. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "env",
  8309. 1028.25 s [opt-env-conf-test] + " or ",
  8310. 1028.25 s [opt-env-conf-test] + functionChunk "name",
  8311. 1028.25 s [opt-env-conf-test] + " has no ",
  8312. 1028.25 s [opt-env-conf-test] + functionChunk "metavar",
  8313. 1028.25 s [opt-env-conf-test] + "."
  8314. 1028.25 s [opt-env-conf-test] + ]
  8315. 1028.25 s [opt-env-conf-test] + ]
  8316. 1028.25 s [opt-env-conf-test] + LintErrorNoCommands ->
  8317. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "commands",
  8318. 1028.25 s [opt-env-conf-test] + " was called with an empty list."
  8319. 1028.25 s [opt-env-conf-test] + ]
  8320. 1028.25 s [opt-env-conf-test] + ]
  8321. 1028.25 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  8322. 1028.25 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  8323. 1028.25 s [opt-env-conf-test] + " was called with an unknown command: ",
  8324. 1028.25 s [opt-env-conf-test] + commandChunk c
  8325. 1028.25 s [opt-env-conf-test] + ]
  8326. 1028.25 s [opt-env-conf-test] + ]
  8327. 1028.25 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  8328. 1028.25 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  8329. 1028.25 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  8330. 1028.25 s [opt-env-conf-test] + ]
  8331. 1028.32 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  8332. 1028.32 s [opt-env-conf-test] + [ [ functionChunk "conf",
  8333. 1028.32 s [opt-env-conf-test] + " or ",
  8334. 1028.32 s [opt-env-conf-test] + functionChunk "name",
  8335. 1028.33 s [opt-env-conf-test] + " was called with no way to load configuration."
  8336. 1028.33 s [opt-env-conf-test] + ],
  8337. 1028.33 s [opt-env-conf-test] + [ "You can load configuration with ",
  8338. 1028.33 s [opt-env-conf-test] + functionChunk "withConfig",
  8339. 1028.33 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  8340. 1028.33 s [opt-env-conf-test] + functionChunk "withoutConfig",
  8341. 1028.33 s [opt-env-conf-test] + "."
  8342. 1028.33 s [opt-env-conf-test] + ]
  8343. 1028.33 s [opt-env-conf-test] + ]
  8344. 1028.33 s [opt-env-conf-test] + LintErrorManyInfinite ->
  8345. 1028.33 s [opt-env-conf-test] + [ [ functionChunk "many",
  8346. 1028.33 s [opt-env-conf-test] + " or ",
  8347. 1028.33 s [opt-env-conf-test] + functionChunk "some",
  8348. 1028.33 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  8349. 1028.33 s [opt-env-conf-test] + ],
  8350. 1028.33 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  8351. 1028.33 s [opt-env-conf-test] + ],
  8352. 1028.33 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  8353. 1028.33 s [opt-env-conf-test] ]
  8354. 1028.33 s [opt-env-conf-test]
  8355. 1028.33 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:559:35-31
  8356. 1028.33 s [opt-env-conf-test] @@ -556,9 +556,9 @@
  8357. 1028.33 s [opt-env-conf-test] ParserMany mLoc p' -> do
  8358. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  8359. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8360. 1028.33 s [opt-env-conf-test] - ParserSome mLoc p' -> do
  8361. 1028.33 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  8362. 1028.33 s [opt-env-conf-test] - ppIndent $ go p'
  8363. 1028.33 s [opt-env-conf-test] + ParserSome mLoc p' -> do
  8364. 1028.33 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  8365. 1028.33 s [opt-env-conf-test] + ppIndent $ go p'
  8366. 1028.33 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  8367. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  8368. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8369. 1028.33 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
  8370. 1028.33 s [opt-env-conf-test] @@ -557,7 +557,8 @@
  8371. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  8372. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8373. 1028.33 s [opt-env-conf-test] ParserSome mLoc p' -> do
  8374. 1028.33 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  8375. 1028.33 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": "
  8376. 1028.33 s [opt-env-conf-test] +]
  8377. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8378. 1028.33 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  8379. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  8380. 1028.33 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
  8381. 1028.33 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  8382. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  8383. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8384. 1028.33 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  8385. 1028.33 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  8386. 1028.33 s [opt-env-conf-test] + debug []
  8387. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8388. 1028.33 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  8389. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  8390. 1028.33 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
  8391. 1028.33 s [opt-env-conf-test] @@ -560,7 +560,8 @@
  8392. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  8393. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8394. 1028.33 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  8395. 1028.33 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  8396. 1028.33 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": "
  8397. 1028.33 s [opt-env-conf-test] +]
  8398. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8399. 1028.33 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  8400. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  8401. 1028.33 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:562:43-31
  8402. 1028.33 s [opt-env-conf-test] @@ -559,9 +559,9 @@
  8403. 1028.33 s [opt-env-conf-test] ParserSome mLoc p' -> do
  8404. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  8405. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8406. 1028.33 s [opt-env-conf-test] - ParserAllOrNothing mLoc p' -> do
  8407. 1028.33 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  8408. 1028.33 s [opt-env-conf-test] - ppIndent $ go p'
  8409. 1028.33 s [opt-env-conf-test] + ParserAllOrNothing mLoc p' -> do
  8410. 1028.33 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  8411. 1028.33 s [opt-env-conf-test] + ppIndent $ go p'
  8412. 1028.33 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  8413. 1028.33 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  8414. 1028.33 s [opt-env-conf-test] ppIndent $ go p'
  8415. 1028.33 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  8416. 1028.33 s [opt-env-conf-test] @@ -33,11 +33,11 @@
  8417. 1028.33 s [opt-env-conf-test] unlines $
  8418. 1028.33 s [opt-env-conf-test] map
  8419. 1028.33 s [opt-env-conf-test] ("# " <>)
  8420. 1028.33 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  8421. 1028.34 s [opt-env-conf-test] - "This file was generated by running",
  8422. 1028.34 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  8423. 1028.34 s [opt-env-conf-test] - T.unpack content
  8424. 1028.34 s [opt-env-conf-test] - ]
  8425. 1028.34 s [opt-env-conf-test] + [ "DO NOT EDIT THIS FILE DIRECTLY",
  8426. 1028.34 s [opt-env-conf-test] + "This file was generated by running",
  8427. 1028.34 s [opt-env-conf-test] + unwords [progname, "--render-nix-options"],
  8428. 1028.34 s [opt-env-conf-test] + T.unpack content
  8429. 1028.34 s [opt-env-conf-test] + ]
  8430. 1028.34 s [opt-env-conf-test]
  8431. 1028.34 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  8432. 1028.34 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  8433. 1028.34 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
  8434. 1028.34 s [opt-env-conf-test] @@ -709,11 +709,11 @@
  8435. 1028.34 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  8436. 1028.34 s [opt-env-conf-test] ppSwitch ds = do
  8437. 1028.34 s [opt-env-conf-test] args <- gets ppStateArgs
  8438. 1028.34 s [opt-env-conf-test] - case Args.consumeSwitch ds args of
  8439. 1028.34 s [opt-env-conf-test] - Nothing -> pure Nothing
  8440. 1028.34 s [opt-env-conf-test] - Just args' -> do
  8441. 1028.34 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  8442. 1028.34 s [opt-env-conf-test] - pure (Just ())
  8443. 1028.34 s [opt-env-conf-test] + case Args.consumeSwitch ds args of
  8444. 1028.34 s [opt-env-conf-test] + Nothing -> pure Nothing
  8445. 1028.34 s [opt-env-conf-test] + Just args' -> do
  8446. 1028.34 s [opt-env-conf-test] + modify' (\s -> s {ppStateArgs = args'})
  8447. 1028.34 s [opt-env-conf-test] + pure (Just ())
  8448. 1028.34 s [opt-env-conf-test]
  8449. 1028.34 s [opt-env-conf-test] ppErrors' :: NonEmpty ParseError -> PP a
  8450. 1028.34 s [opt-env-conf-test] ppErrors' = PP . lift . ValidationT . lift . pure . Failure
  8451. 1028.34 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  8452. 1028.34 s [opt-env-conf-test] @@ -33,11 +33,10 @@
  8453. 1028.34 s [opt-env-conf-test] unlines $
  8454. 1028.34 s [opt-env-conf-test] map
  8455. 1028.34 s [opt-env-conf-test] ("# " <>)
  8456. 1028.34 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  8457. 1028.34 s [opt-env-conf-test] - "This file was generated by running",
  8458. 1028.34 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  8459. 1028.34 s [opt-env-conf-test] - T.unpack content
  8460. 1028.34 s [opt-env-conf-test] - ]
  8461. 1028.34 s [opt-env-conf-test] + [ "DO NOT EDIT THIS FILE DIRECTLY",
  8462. 1028.34 s [opt-env-conf-test] + "This file was generated by running",
  8463. 1028.34 s [opt-env-conf-test] + unwords [progname, "--render-nix-options"]
  8464. 1028.34 s [opt-env-conf-test] +]
  8465. 1028.34 s [opt-env-conf-test]
  8466. 1028.34 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  8467. 1028.34 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  8468. 1028.34 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
  8469. 1028.34 s [opt-env-conf-test] @@ -35,7 +35,7 @@
  8470. 1028.34 s [opt-env-conf-test] ("# " <>)
  8471. 1028.34 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  8472. 1028.34 s [opt-env-conf-test] "This file was generated by running",
  8473. 1028.34 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  8474. 1028.34 s [opt-env-conf-test] + unwords [],
  8475. 1028.34 s [opt-env-conf-test] T.unpack content
  8476. 1028.34 s [opt-env-conf-test] ]
  8477. 1028.34 s [opt-env-conf-test]
  8478. 1028.34 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  8479. 1028.34 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  8480. 1028.34 s [opt-env-conf-test] renderLintError LintError {..} =
  8481. 1028.34 s [opt-env-conf-test] concat
  8482. 1028.34 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  8483. 1028.34 s [opt-env-conf-test] - case lintErrorMessage of
  8484. 1028.34 s [opt-env-conf-test] - LintErrorUndocumented ->
  8485. 1028.34 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  8486. 1028.34 s [opt-env-conf-test] - LintErrorEmptySetting ->
  8487. 1028.34 s [opt-env-conf-test] - concat
  8488. 1028.34 s [opt-env-conf-test] - [ [ [ "This ",
  8489. 1028.34 s [opt-env-conf-test] - functionChunk "setting",
  8490. 1028.34 s [opt-env-conf-test] - " parses nothing."
  8491. 1028.34 s [opt-env-conf-test] - ]
  8492. 1028.34 s [opt-env-conf-test] - ],
  8493. 1028.34 s [opt-env-conf-test] - [ [ "Add an ",
  8494. 1028.34 s [opt-env-conf-test] - functionChunk "argument",
  8495. 1028.34 s [opt-env-conf-test] - ", ",
  8496. 1028.34 s [opt-env-conf-test] - functionChunk "switch",
  8497. 1028.34 s [opt-env-conf-test] - ", ",
  8498. 1028.34 s [opt-env-conf-test] - functionChunk "option",
  8499. 1028.34 s [opt-env-conf-test] - ", ",
  8500. 1028.34 s [opt-env-conf-test] - functionChunk "env",
  8501. 1028.34 s [opt-env-conf-test] - ", ",
  8502. 1028.34 s [opt-env-conf-test] - functionChunk "conf",
  8503. 1028.34 s [opt-env-conf-test] - ", or ",
  8504. 1028.34 s [opt-env-conf-test] - functionChunk "value",
  8505. 1028.34 s [opt-env-conf-test] - "."
  8506. 1028.34 s [opt-env-conf-test] - ]
  8507. 1028.34 s [opt-env-conf-test] - ]
  8508. 1028.34 s [opt-env-conf-test] - ]
  8509. 1028.34 s [opt-env-conf-test] - LintErrorDashInShort ->
  8510. 1028.34 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  8511. 1028.34 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  8512. 1028.34 s [opt-env-conf-test] - ]
  8513. 1028.34 s [opt-env-conf-test] - LintErrorDashInLong s ->
  8514. 1028.34 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  8515. 1028.34 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  8516. 1028.34 s [opt-env-conf-test] - [ "Try ",
  8517. 1028.34 s [opt-env-conf-test] - functionChunk "long",
  8518. 1028.34 s [opt-env-conf-test] - " ",
  8519. 1028.34 s [opt-env-conf-test] - chunk $
  8520. 1028.34 s [opt-env-conf-test] - T.pack $
  8521. 1028.34 s [opt-env-conf-test] - show $
  8522. 1028.34 s [opt-env-conf-test] - let go = \case
  8523. 1028.34 s [opt-env-conf-test] - [] -> []
  8524. 1028.34 s [opt-env-conf-test] - '-' : cs -> go cs
  8525. 1028.34 s [opt-env-conf-test] - c : cs -> c : cs
  8526. 1028.34 s [opt-env-conf-test] - in go $ NE.toList s,
  8527. 1028.34 s [opt-env-conf-test] - " instead."
  8528. 1028.34 s [opt-env-conf-test] - ]
  8529. 1028.34 s [opt-env-conf-test] - ]
  8530. 1028.34 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  8531. 1028.34 s [opt-env-conf-test] - [ [ functionChunk "argument",
  8532. 1028.34 s [opt-env-conf-test] - " has no ",
  8533. 1028.34 s [opt-env-conf-test] - functionChunk "reader",
  8534. 1028.34 s [opt-env-conf-test] - "."
  8535. 1028.34 s [opt-env-conf-test] - ]
  8536. 1028.34 s [opt-env-conf-test] - ]
  8537. 1028.34 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  8538. 1028.34 s [opt-env-conf-test] - [ [ functionChunk "argument",
  8539. 1028.34 s [opt-env-conf-test] - " has no ",
  8540. 1028.34 s [opt-env-conf-test] - functionChunk "metavar",
  8541. 1028.34 s [opt-env-conf-test] - "."
  8542. 1028.34 s [opt-env-conf-test] - ]
  8543. 1028.34 s [opt-env-conf-test] - ]
  8544. 1028.34 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  8545. 1028.34 s [opt-env-conf-test] - [ [ functionChunk "option",
  8546. 1028.34 s [opt-env-conf-test] - " or ",
  8547. 1028.34 s [opt-env-conf-test] - functionChunk "name",
  8548. 1028.34 s [opt-env-conf-test] - " has no ",
  8549. 1028.34 s [opt-env-conf-test] - functionChunk "reader",
  8550. 1028.34 s [opt-env-conf-test] - "."
  8551. 1028.34 s [opt-env-conf-test] - ]
  8552. 1028.34 s [opt-env-conf-test] - ]
  8553. 1028.34 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  8554. 1028.34 s [opt-env-conf-test] - [ [ functionChunk "option",
  8555. 1028.34 s [opt-env-conf-test] - " has no ",
  8556. 1028.34 s [opt-env-conf-test] - functionChunk "long",
  8557. 1028.34 s [opt-env-conf-test] - " or ",
  8558. 1028.34 s [opt-env-conf-test] - functionChunk "short",
  8559. 1028.34 s [opt-env-conf-test] - "."
  8560. 1028.34 s [opt-env-conf-test] - ]
  8561. 1028.34 s [opt-env-conf-test] - ]
  8562. 1028.34 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  8563. 1028.34 s [opt-env-conf-test] - [ [ functionChunk "option",
  8564. 1028.34 s [opt-env-conf-test] - " or ",
  8565. 1028.35 s [opt-env-conf-test] - functionChunk "name",
  8566. 1028.35 s [opt-env-conf-test] - " has no ",
  8567. 1028.35 s [opt-env-conf-test] - functionChunk "metavar",
  8568. 1028.35 s [opt-env-conf-test] - "."
  8569. 1028.35 s [opt-env-conf-test] - ]
  8570. 1028.35 s [opt-env-conf-test] - ]
  8571. 1028.35 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  8572. 1028.35 s [opt-env-conf-test] - [ [ functionChunk "switch",
  8573. 1028.35 s [opt-env-conf-test] - " has no ",
  8574. 1028.35 s [opt-env-conf-test] - functionChunk "long",
  8575. 1028.35 s [opt-env-conf-test] - " or ",
  8576. 1028.35 s [opt-env-conf-test] - functionChunk "short",
  8577. 1028.35 s [opt-env-conf-test] - "."
  8578. 1028.35 s [opt-env-conf-test] - ]
  8579. 1028.35 s [opt-env-conf-test] - ]
  8580. 1028.35 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  8581. 1028.35 s [opt-env-conf-test] - [ [ functionChunk "long",
  8582. 1028.35 s [opt-env-conf-test] - " or ",
  8583. 1028.35 s [opt-env-conf-test] - functionChunk "short",
  8584. 1028.35 s [opt-env-conf-test] - " has no ",
  8585. 1028.35 s [opt-env-conf-test] - functionChunk "option",
  8586. 1028.35 s [opt-env-conf-test] - " or ",
  8587. 1028.35 s [opt-env-conf-test] - functionChunk "switch",
  8588. 1028.35 s [opt-env-conf-test] - "."
  8589. 1028.35 s [opt-env-conf-test] - ]
  8590. 1028.35 s [opt-env-conf-test] - ]
  8591. 1028.35 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  8592. 1028.35 s [opt-env-conf-test] - [ [ functionChunk "env",
  8593. 1028.35 s [opt-env-conf-test] - " or ",
  8594. 1028.35 s [opt-env-conf-test] - functionChunk "name",
  8595. 1028.35 s [opt-env-conf-test] - " has no ",
  8596. 1028.35 s [opt-env-conf-test] - functionChunk "reader",
  8597. 1028.35 s [opt-env-conf-test] - "."
  8598. 1028.35 s [opt-env-conf-test] - ]
  8599. 1028.35 s [opt-env-conf-test] - ]
  8600. 1028.35 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  8601. 1028.35 s [opt-env-conf-test] - [ [ functionChunk "env",
  8602. 1028.35 s [opt-env-conf-test] - " or ",
  8603. 1028.35 s [opt-env-conf-test] - functionChunk "name",
  8604. 1028.35 s [opt-env-conf-test] - " has no ",
  8605. 1028.35 s [opt-env-conf-test] - functionChunk "metavar",
  8606. 1028.35 s [opt-env-conf-test] - "."
  8607. 1028.35 s [opt-env-conf-test] - ]
  8608. 1028.35 s [opt-env-conf-test] - ]
  8609. 1028.35 s [opt-env-conf-test] - LintErrorNoCommands ->
  8610. 1028.35 s [opt-env-conf-test] - [ [ functionChunk "commands",
  8611. 1028.35 s [opt-env-conf-test] - " was called with an empty list."
  8612. 1028.35 s [opt-env-conf-test] - ]
  8613. 1028.35 s [opt-env-conf-test] - ]
  8614. 1028.35 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  8615. 1028.35 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  8616. 1028.35 s [opt-env-conf-test] - " was called with an unknown command: ",
  8617. 1028.35 s [opt-env-conf-test] - commandChunk c
  8618. 1028.35 s [opt-env-conf-test] - ]
  8619. 1028.35 s [opt-env-conf-test] - ]
  8620. 1028.35 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  8621. 1028.35 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  8622. 1028.35 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  8623. 1028.35 s [opt-env-conf-test] - ]
  8624. 1028.35 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  8625. 1028.35 s [opt-env-conf-test] - [ [ functionChunk "conf",
  8626. 1028.35 s [opt-env-conf-test] - " or ",
  8627. 1028.35 s [opt-env-conf-test] - functionChunk "name",
  8628. 1028.35 s [opt-env-conf-test] - " was called with no way to load configuration."
  8629. 1028.35 s [opt-env-conf-test] - ],
  8630. 1028.35 s [opt-env-conf-test] - [ "You can load configuration with ",
  8631. 1028.35 s [opt-env-conf-test] - functionChunk "withConfig",
  8632. 1028.35 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  8633. 1028.35 s [opt-env-conf-test] - functionChunk "withoutConfig",
  8634. 1028.35 s [opt-env-conf-test] - "."
  8635. 1028.35 s [opt-env-conf-test] - ]
  8636. 1028.35 s [opt-env-conf-test] - ]
  8637. 1028.35 s [opt-env-conf-test] - LintErrorManyInfinite ->
  8638. 1028.35 s [opt-env-conf-test] - [ [ functionChunk "many",
  8639. 1028.35 s [opt-env-conf-test] - " or ",
  8640. 1028.35 s [opt-env-conf-test] - functionChunk "some",
  8641. 1028.35 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  8642. 1028.35 s [opt-env-conf-test] - ],
  8643. 1028.35 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  8644. 1028.35 s [opt-env-conf-test] - ],
  8645. 1028.35 s [opt-env-conf-test] + case lintErrorMessage of
  8646. 1028.35 s [opt-env-conf-test] + LintErrorUndocumented ->
  8647. 1028.35 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  8648. 1028.35 s [opt-env-conf-test] + LintErrorEmptySetting ->
  8649. 1028.35 s [opt-env-conf-test] + concat
  8650. 1028.35 s [opt-env-conf-test] + [ [ [ "This ",
  8651. 1028.35 s [opt-env-conf-test] + functionChunk "setting",
  8652. 1028.35 s [opt-env-conf-test] + " parses nothing."
  8653. 1028.35 s [opt-env-conf-test] + ]
  8654. 1028.35 s [opt-env-conf-test] + ],
  8655. 1028.35 s [opt-env-conf-test] + [ [ "Add an ",
  8656. 1028.35 s [opt-env-conf-test] + functionChunk "argument",
  8657. 1028.35 s [opt-env-conf-test] + ", ",
  8658. 1028.35 s [opt-env-conf-test] + functionChunk "switch",
  8659. 1028.35 s [opt-env-conf-test] + ", ",
  8660. 1028.35 s [opt-env-conf-test] + functionChunk "option",
  8661. 1028.35 s [opt-env-conf-test] + ", ",
  8662. 1028.35 s [opt-env-conf-test] + functionChunk "env",
  8663. 1028.35 s [opt-env-conf-test] + ", ",
  8664. 1028.35 s [opt-env-conf-test] + functionChunk "conf",
  8665. 1028.35 s [opt-env-conf-test] + ", or ",
  8666. 1028.35 s [opt-env-conf-test] + functionChunk "value",
  8667. 1028.35 s [opt-env-conf-test] + "."
  8668. 1028.35 s [opt-env-conf-test] + ]
  8669. 1028.35 s [opt-env-conf-test] + ]
  8670. 1028.35 s [opt-env-conf-test] + ]
  8671. 1028.35 s [opt-env-conf-test] + LintErrorDashInShort ->
  8672. 1028.35 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  8673. 1028.35 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  8674. 1028.35 s [opt-env-conf-test] + ]
  8675. 1028.35 s [opt-env-conf-test] + LintErrorDashInLong s ->
  8676. 1028.35 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  8677. 1028.35 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  8678. 1028.35 s [opt-env-conf-test] + [ "Try ",
  8679. 1028.35 s [opt-env-conf-test] + functionChunk "long",
  8680. 1028.35 s [opt-env-conf-test] + " ",
  8681. 1028.35 s [opt-env-conf-test] + chunk $
  8682. 1028.35 s [opt-env-conf-test] + T.pack $
  8683. 1028.35 s [opt-env-conf-test] + show $
  8684. 1028.35 s [opt-env-conf-test] + let go = \case
  8685. 1028.35 s [opt-env-conf-test] + [] -> []
  8686. 1028.35 s [opt-env-conf-test] + '-' : cs -> go cs
  8687. 1028.35 s [opt-env-conf-test] + c : cs -> c : cs
  8688. 1028.35 s [opt-env-conf-test] + in go $ NE.toList s,
  8689. 1028.35 s [opt-env-conf-test] + " instead."
  8690. 1028.35 s [opt-env-conf-test] + ]
  8691. 1028.35 s [opt-env-conf-test] + ]
  8692. 1028.35 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  8693. 1028.35 s [opt-env-conf-test] + [ [ functionChunk "argument",
  8694. 1028.35 s [opt-env-conf-test] + " has no ",
  8695. 1028.35 s [opt-env-conf-test] + functionChunk "reader",
  8696. 1028.35 s [opt-env-conf-test] + "."
  8697. 1028.35 s [opt-env-conf-test] + ]
  8698. 1028.35 s [opt-env-conf-test] + ]
  8699. 1028.35 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  8700. 1028.35 s [opt-env-conf-test] + [ [ functionChunk "argument",
  8701. 1028.35 s [opt-env-conf-test] + " has no ",
  8702. 1028.35 s [opt-env-conf-test] + functionChunk "metavar",
  8703. 1028.35 s [opt-env-conf-test] + "."
  8704. 1028.35 s [opt-env-conf-test] + ]
  8705. 1028.35 s [opt-env-conf-test] + ]
  8706. 1028.35 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  8707. 1028.35 s [opt-env-conf-test] + [ [ functionChunk "option",
  8708. 1028.35 s [opt-env-conf-test] + " or ",
  8709. 1028.35 s [opt-env-conf-test] + functionChunk "name",
  8710. 1028.35 s [opt-env-conf-test] + " has no ",
  8711. 1028.35 s [opt-env-conf-test] + functionChunk "reader",
  8712. 1028.35 s [opt-env-conf-test] + "."
  8713. 1028.35 s [opt-env-conf-test] + ]
  8714. 1028.35 s [opt-env-conf-test] + ]
  8715. 1028.35 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  8716. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "option",
  8717. 1028.36 s [opt-env-conf-test] + " has no ",
  8718. 1028.36 s [opt-env-conf-test] + functionChunk "long",
  8719. 1028.36 s [opt-env-conf-test] + " or ",
  8720. 1028.36 s [opt-env-conf-test] + functionChunk "short",
  8721. 1028.36 s [opt-env-conf-test] + "."
  8722. 1028.36 s [opt-env-conf-test] + ]
  8723. 1028.36 s [opt-env-conf-test] + ]
  8724. 1028.36 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  8725. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "option",
  8726. 1028.36 s [opt-env-conf-test] + " or ",
  8727. 1028.36 s [opt-env-conf-test] + functionChunk "name",
  8728. 1028.36 s [opt-env-conf-test] + " has no ",
  8729. 1028.36 s [opt-env-conf-test] + functionChunk "metavar",
  8730. 1028.36 s [opt-env-conf-test] + "."
  8731. 1028.36 s [opt-env-conf-test] + ]
  8732. 1028.36 s [opt-env-conf-test] + ]
  8733. 1028.36 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  8734. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "switch",
  8735. 1028.36 s [opt-env-conf-test] + " has no ",
  8736. 1028.36 s [opt-env-conf-test] + functionChunk "long",
  8737. 1028.36 s [opt-env-conf-test] + " or ",
  8738. 1028.36 s [opt-env-conf-test] + functionChunk "short",
  8739. 1028.36 s [opt-env-conf-test] + "."
  8740. 1028.36 s [opt-env-conf-test] + ]
  8741. 1028.36 s [opt-env-conf-test] + ]
  8742. 1028.36 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  8743. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "long",
  8744. 1028.36 s [opt-env-conf-test] + " or ",
  8745. 1028.36 s [opt-env-conf-test] + functionChunk "short",
  8746. 1028.36 s [opt-env-conf-test] + " has no ",
  8747. 1028.36 s [opt-env-conf-test] + functionChunk "option",
  8748. 1028.36 s [opt-env-conf-test] + " or ",
  8749. 1028.36 s [opt-env-conf-test] + functionChunk "switch",
  8750. 1028.36 s [opt-env-conf-test] + "."
  8751. 1028.36 s [opt-env-conf-test] + ]
  8752. 1028.36 s [opt-env-conf-test] + ]
  8753. 1028.36 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  8754. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "env",
  8755. 1028.36 s [opt-env-conf-test] + " or ",
  8756. 1028.36 s [opt-env-conf-test] + functionChunk "name",
  8757. 1028.36 s [opt-env-conf-test] + " has no ",
  8758. 1028.36 s [opt-env-conf-test] + functionChunk "reader",
  8759. 1028.36 s [opt-env-conf-test] + "."
  8760. 1028.36 s [opt-env-conf-test] + ]
  8761. 1028.36 s [opt-env-conf-test] + ]
  8762. 1028.36 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  8763. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "env",
  8764. 1028.36 s [opt-env-conf-test] + " or ",
  8765. 1028.36 s [opt-env-conf-test] + functionChunk "name",
  8766. 1028.36 s [opt-env-conf-test] + " has no ",
  8767. 1028.36 s [opt-env-conf-test] + functionChunk "metavar",
  8768. 1028.36 s [opt-env-conf-test] + "."
  8769. 1028.36 s [opt-env-conf-test] + ]
  8770. 1028.36 s [opt-env-conf-test] + ]
  8771. 1028.36 s [opt-env-conf-test] + LintErrorNoCommands ->
  8772. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "commands",
  8773. 1028.36 s [opt-env-conf-test] + " was called with an empty list."
  8774. 1028.36 s [opt-env-conf-test] + ]
  8775. 1028.36 s [opt-env-conf-test] + ]
  8776. 1028.36 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  8777. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  8778. 1028.36 s [opt-env-conf-test] + " was called with an unknown command: ",
  8779. 1028.36 s [opt-env-conf-test] + commandChunk c
  8780. 1028.36 s [opt-env-conf-test] + ]
  8781. 1028.36 s [opt-env-conf-test] + ]
  8782. 1028.36 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  8783. 1028.36 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  8784. 1028.36 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  8785. 1028.36 s [opt-env-conf-test] + ]
  8786. 1028.36 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  8787. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "conf",
  8788. 1028.36 s [opt-env-conf-test] + " or ",
  8789. 1028.36 s [opt-env-conf-test] + functionChunk "name",
  8790. 1028.36 s [opt-env-conf-test] + " was called with no way to load configuration."
  8791. 1028.36 s [opt-env-conf-test] + ],
  8792. 1028.36 s [opt-env-conf-test] + [ "You can load configuration with ",
  8793. 1028.36 s [opt-env-conf-test] + functionChunk "withConfig",
  8794. 1028.36 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  8795. 1028.36 s [opt-env-conf-test] + functionChunk "withoutConfig",
  8796. 1028.36 s [opt-env-conf-test] + "."
  8797. 1028.36 s [opt-env-conf-test] + ]
  8798. 1028.36 s [opt-env-conf-test] + ]
  8799. 1028.36 s [opt-env-conf-test] + LintErrorManyInfinite ->
  8800. 1028.36 s [opt-env-conf-test] + [ [ functionChunk "many",
  8801. 1028.36 s [opt-env-conf-test] + " or ",
  8802. 1028.36 s [opt-env-conf-test] + functionChunk "some",
  8803. 1028.36 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  8804. 1028.36 s [opt-env-conf-test] + ],
  8805. 1028.36 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  8806. 1028.54 s [opt-env-conf-test] + ],
  8807. 1028.54 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  8808. 1028.54 s [opt-env-conf-test] ]
  8809. 1028.54 s [opt-env-conf-test]
  8810. 1028.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  8811. 1028.54 s [opt-env-conf-test] @@ -274,12 +274,12 @@
  8812. 1028.54 s [opt-env-conf-test] help "Render the fish completion script"
  8813. 1028.54 s [opt-env-conf-test] ],
  8814. 1028.54 s [opt-env-conf-test] setting
  8815. 1028.54 s [opt-env-conf-test] - [ help "Query completion",
  8816. 1028.54 s [opt-env-conf-test] - switch CompletionQuery,
  8817. 1028.54 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  8818. 1028.54 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  8819. 1028.54 s [opt-env-conf-test] - hidden
  8820. 1028.54 s [opt-env-conf-test] - ]
  8821. 1028.54 s [opt-env-conf-test] + [ help "Query completion",
  8822. 1028.54 s [opt-env-conf-test] + switch CompletionQuery,
  8823. 1028.54 s [opt-env-conf-test] + -- Long string that no normal user would ever use.
  8824. 1028.54 s [opt-env-conf-test] + long "query-opt-env-conf-completion",
  8825. 1028.54 s [opt-env-conf-test] + hidden
  8826. 1028.54 s [opt-env-conf-test] + ]
  8827. 1028.54 s [opt-env-conf-test] <*> setting
  8828. 1028.54 s [opt-env-conf-test] [ switch True,
  8829. 1028.54 s [opt-env-conf-test] long "completion-enriched",
  8830. 1028.54 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
  8831. 1028.54 s [opt-env-conf-test] @@ -709,11 +709,11 @@
  8832. 1028.54 s [opt-env-conf-test] ppSwitch :: [Dashed] -> PP (Maybe ())
  8833. 1028.54 s [opt-env-conf-test] ppSwitch ds = do
  8834. 1028.54 s [opt-env-conf-test] args <- gets ppStateArgs
  8835. 1028.54 s [opt-env-conf-test] - case Args.consumeSwitch ds args of
  8836. 1028.54 s [opt-env-conf-test] - Nothing -> pure Nothing
  8837. 1028.54 s [opt-env-conf-test] - Just args' -> do
  8838. 1028.54 s [opt-env-conf-test] - modify' (\s -> s {ppStateArgs = args'})
  8839. 1028.54 s [opt-env-conf-test] - pure (Just ())
  8840. 1028.54 s [opt-env-conf-test] + case Args.consumeSwitch ds args of
  8841. 1028.54 s [opt-env-conf-test] + Nothing -> pure Nothing
  8842. 1028.54 s [opt-env-conf-test] + Just args' -> do
  8843. 1028.54 s [opt-env-conf-test] + modify' (\s -> s {ppStateArgs = args'})
  8844. 1028.54 s [opt-env-conf-test] + pure (Just ())
  8845. 1028.54 s [opt-env-conf-test]
  8846. 1028.54 s [opt-env-conf-test] ppErrors' :: NonEmpty ParseError -> PP a
  8847. 1028.54 s [opt-env-conf-test] ppErrors' = PP . lift . ValidationT . lift . pure . Failure
  8848. 1028.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
  8849. 1028.54 s [opt-env-conf-test] @@ -267,12 +267,11 @@
  8850. 1028.54 s [opt-env-conf-test] ],
  8851. 1028.54 s [opt-env-conf-test] ZshCompletionScript
  8852. 1028.54 s [opt-env-conf-test] <$> setting
  8853. 1028.54 s [opt-env-conf-test] - [ option,
  8854. 1028.54 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  8855. 1028.54 s [opt-env-conf-test] - long "fish-completion-script",
  8856. 1028.54 s [opt-env-conf-test] - hidden,
  8857. 1028.54 s [opt-env-conf-test] - help "Render the fish completion script"
  8858. 1028.54 s [opt-env-conf-test] - ],
  8859. 1028.54 s [opt-env-conf-test] + [ option,
  8860. 1028.54 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  8861. 1028.54 s [opt-env-conf-test] + long "fish-completion-script",
  8862. 1028.54 s [opt-env-conf-test] + hidden
  8863. 1028.54 s [opt-env-conf-test] +],
  8864. 1028.54 s [opt-env-conf-test] setting
  8865. 1028.54 s [opt-env-conf-test] [ help "Query completion",
  8866. 1028.54 s [opt-env-conf-test] switch CompletionQuery,
  8867. 1028.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
  8868. 1028.54 s [opt-env-conf-test] @@ -267,12 +267,12 @@
  8869. 1028.54 s [opt-env-conf-test] ],
  8870. 1028.54 s [opt-env-conf-test] ZshCompletionScript
  8871. 1028.54 s [opt-env-conf-test] <$> setting
  8872. 1028.54 s [opt-env-conf-test] - [ option,
  8873. 1028.54 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  8874. 1028.54 s [opt-env-conf-test] - long "fish-completion-script",
  8875. 1028.54 s [opt-env-conf-test] - hidden,
  8876. 1028.54 s [opt-env-conf-test] - help "Render the fish completion script"
  8877. 1028.54 s [opt-env-conf-test] - ],
  8878. 1028.54 s [opt-env-conf-test] + [ option,
  8879. 1028.54 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  8880. 1028.54 s [opt-env-conf-test] + long "fish-completion-script",
  8881. 1028.54 s [opt-env-conf-test] + hidden,
  8882. 1028.54 s [opt-env-conf-test] + help "Render the fish completion script"
  8883. 1028.54 s [opt-env-conf-test] + ],
  8884. 1028.54 s [opt-env-conf-test] setting
  8885. 1028.54 s [opt-env-conf-test] [ help "Query completion",
  8886. 1028.54 s [opt-env-conf-test] switch CompletionQuery,
  8887. 1028.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  8888. 1028.54 s [opt-env-conf-test] @@ -274,12 +274,11 @@
  8889. 1028.54 s [opt-env-conf-test] help "Render the fish completion script"
  8890. 1028.54 s [opt-env-conf-test] ],
  8891. 1028.54 s [opt-env-conf-test] setting
  8892. 1028.54 s [opt-env-conf-test] - [ help "Query completion",
  8893. 1028.54 s [opt-env-conf-test] - switch CompletionQuery,
  8894. 1028.54 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  8895. 1028.54 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  8896. 1028.54 s [opt-env-conf-test] - hidden
  8897. 1028.54 s [opt-env-conf-test] - ]
  8898. 1028.54 s [opt-env-conf-test] + [ help "Query completion",
  8899. 1028.54 s [opt-env-conf-test] + switch CompletionQuery,
  8900. 1028.54 s [opt-env-conf-test] + -- Long string that no normal user would ever use.
  8901. 1028.54 s [opt-env-conf-test] + long "query-opt-env-conf-completion"
  8902. 1028.54 s [opt-env-conf-test] +]
  8903. 1028.54 s [opt-env-conf-test] <*> setting
  8904. 1028.54 s [opt-env-conf-test] [ switch True,
  8905. 1028.54 s [opt-env-conf-test] long "completion-enriched",
  8906. 1028.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
  8907. 1028.54 s [opt-env-conf-test] @@ -244,11 +244,10 @@
  8908. 1028.54 s [opt-env-conf-test] help "Render reference documentation"
  8909. 1028.54 s [opt-env-conf-test] ],
  8910. 1028.54 s [opt-env-conf-test] setting
  8911. 1028.54 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  8912. 1028.54 s [opt-env-conf-test] - long "render-nix-options",
  8913. 1028.54 s [opt-env-conf-test] - hidden,
  8914. 1028.54 s [opt-env-conf-test] - help "Render Nix options"
  8915. 1028.54 s [opt-env-conf-test] - ],
  8916. 1028.54 s [opt-env-conf-test] + [ switch RenderNixosOptions,
  8917. 1028.54 s [opt-env-conf-test] + long "render-nix-options",
  8918. 1028.54 s [opt-env-conf-test] + hidden
  8919. 1028.54 s [opt-env-conf-test] +],
  8920. 1028.54 s [opt-env-conf-test] BashCompletionScript
  8921. 1028.54 s [opt-env-conf-test] <$> setting
  8922. 1028.54 s [opt-env-conf-test] [ option,
  8923. 1028.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  8924. 1028.54 s [opt-env-conf-test] @@ -259,12 +259,12 @@
  8925. 1028.54 s [opt-env-conf-test] ],
  8926. 1028.54 s [opt-env-conf-test] ZshCompletionScript
  8927. 1028.54 s [opt-env-conf-test] <$> setting
  8928. 1028.54 s [opt-env-conf-test] - [ option,
  8929. 1028.54 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  8930. 1028.54 s [opt-env-conf-test] - long "zsh-completion-script",
  8931. 1028.54 s [opt-env-conf-test] - hidden,
  8932. 1028.54 s [opt-env-conf-test] - help "Render the zsh completion script"
  8933. 1028.54 s [opt-env-conf-test] - ],
  8934. 1028.54 s [opt-env-conf-test] + [ option,
  8935. 1028.54 s [opt-env-conf-test] + reader $ maybeReader parseAbsFile,
  8936. 1028.54 s [opt-env-conf-test] + long "zsh-completion-script",
  8937. 1028.54 s [opt-env-conf-test] + hidden,
  8938. 1028.54 s [opt-env-conf-test] + help "Render the zsh completion script"
  8939. 1028.54 s [opt-env-conf-test] + ],
  8940. 1028.54 s [opt-env-conf-test] ZshCompletionScript
  8941. 1028.54 s [opt-env-conf-test] <$> setting
  8942. 1028.54 s [opt-env-conf-test] [ option,
  8943. 1028.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
  8944. 1028.54 s [opt-env-conf-test] @@ -244,11 +244,7 @@
  8945. 1028.54 s [opt-env-conf-test] help "Render reference documentation"
  8946. 1028.54 s [opt-env-conf-test] ],
  8947. 1028.54 s [opt-env-conf-test] setting
  8948. 1028.54 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  8949. 1028.54 s [opt-env-conf-test] - long "render-nix-options",
  8950. 1028.54 s [opt-env-conf-test] - hidden,
  8951. 1028.54 s [opt-env-conf-test] - help "Render Nix options"
  8952. 1028.54 s [opt-env-conf-test] - ],
  8953. 1028.54 s [opt-env-conf-test] + [],
  8954. 1028.54 s [opt-env-conf-test] BashCompletionScript
  8955. 1028.54 s [opt-env-conf-test] <$> setting
  8956. 1028.54 s [opt-env-conf-test] [ option,
  8957. 1028.54 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
  8958. 1028.54 s [opt-env-conf-test] @@ -244,11 +244,11 @@
  8959. 1028.54 s [opt-env-conf-test] help "Render reference documentation"
  8960. 1028.54 s [opt-env-conf-test] ],
  8961. 1028.54 s [opt-env-conf-test] setting
  8962. 1028.54 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  8963. 1028.54 s [opt-env-conf-test] - long "render-nix-options",
  8964. 1028.54 s [opt-env-conf-test] - hidden,
  8965. 1028.54 s [opt-env-conf-test] - help "Render Nix options"
  8966. 1028.54 s [opt-env-conf-test] - ],
  8967. 1028.54 s [opt-env-conf-test] + [ switch RenderNixosOptions,
  8968. 1028.54 s [opt-env-conf-test] + long "render-nix-options",
  8969. 1028.54 s [opt-env-conf-test] + hidden,
  8970. 1028.54 s [opt-env-conf-test] + help "Render Nix options"
  8971. 1028.54 s [opt-env-conf-test] + ],
  8972. 1028.54 s [opt-env-conf-test] BashCompletionScript
  8973. 1028.54 s [opt-env-conf-test] <$> setting
  8974. 1028.54 s [opt-env-conf-test] [ option,
  8975. 1028.55 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
  8976. 1028.55 s [opt-env-conf-test] @@ -267,12 +267,7 @@
  8977. 1028.55 s [opt-env-conf-test] ],
  8978. 1028.55 s [opt-env-conf-test] ZshCompletionScript
  8979. 1028.55 s [opt-env-conf-test] <$> setting
  8980. 1028.55 s [opt-env-conf-test] - [ option,
  8981. 1028.55 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  8982. 1028.55 s [opt-env-conf-test] - long "fish-completion-script",
  8983. 1028.55 s [opt-env-conf-test] - hidden,
  8984. 1028.55 s [opt-env-conf-test] - help "Render the fish completion script"
  8985. 1028.55 s [opt-env-conf-test] - ],
  8986. 1028.55 s [opt-env-conf-test] + [],
  8987. 1028.55 s [opt-env-conf-test] setting
  8988. 1028.55 s [opt-env-conf-test] [ help "Query completion",
  8989. 1028.55 s [opt-env-conf-test] switch CompletionQuery,
  8990. 1028.55 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  8991. 1028.55 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  8992. 1028.55 s [opt-env-conf-test] renderLintError LintError {..} =
  8993. 1028.55 s [opt-env-conf-test] concat
  8994. 1028.55 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  8995. 1028.55 s [opt-env-conf-test] - case lintErrorMessage of
  8996. 1028.55 s [opt-env-conf-test] - LintErrorUndocumented ->
  8997. 1028.55 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  8998. 1028.55 s [opt-env-conf-test] - LintErrorEmptySetting ->
  8999. 1028.55 s [opt-env-conf-test] - concat
  9000. 1028.55 s [opt-env-conf-test] - [ [ [ "This ",
  9001. 1028.55 s [opt-env-conf-test] - functionChunk "setting",
  9002. 1028.55 s [opt-env-conf-test] - " parses nothing."
  9003. 1028.55 s [opt-env-conf-test] - ]
  9004. 1028.55 s [opt-env-conf-test] - ],
  9005. 1028.55 s [opt-env-conf-test] - [ [ "Add an ",
  9006. 1028.55 s [opt-env-conf-test] - functionChunk "argument",
  9007. 1028.55 s [opt-env-conf-test] - ", ",
  9008. 1028.55 s [opt-env-conf-test] - functionChunk "switch",
  9009. 1028.55 s [opt-env-conf-test] - ", ",
  9010. 1028.55 s [opt-env-conf-test] - functionChunk "option",
  9011. 1028.55 s [opt-env-conf-test] - ", ",
  9012. 1028.55 s [opt-env-conf-test] - functionChunk "env",
  9013. 1028.55 s [opt-env-conf-test] - ", ",
  9014. 1028.55 s [opt-env-conf-test] - functionChunk "conf",
  9015. 1028.55 s [opt-env-conf-test] - ", or ",
  9016. 1028.55 s [opt-env-conf-test] - functionChunk "value",
  9017. 1028.55 s [opt-env-conf-test] - "."
  9018. 1028.55 s [opt-env-conf-test] - ]
  9019. 1028.55 s [opt-env-conf-test] - ]
  9020. 1028.55 s [opt-env-conf-test] - ]
  9021. 1028.55 s [opt-env-conf-test] - LintErrorDashInShort ->
  9022. 1028.55 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  9023. 1028.55 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  9024. 1028.55 s [opt-env-conf-test] - ]
  9025. 1028.55 s [opt-env-conf-test] - LintErrorDashInLong s ->
  9026. 1028.55 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  9027. 1028.55 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  9028. 1028.55 s [opt-env-conf-test] - [ "Try ",
  9029. 1028.55 s [opt-env-conf-test] - functionChunk "long",
  9030. 1028.55 s [opt-env-conf-test] - " ",
  9031. 1028.55 s [opt-env-conf-test] - chunk $
  9032. 1028.55 s [opt-env-conf-test] - T.pack $
  9033. 1028.55 s [opt-env-conf-test] - show $
  9034. 1028.55 s [opt-env-conf-test] - let go = \case
  9035. 1028.55 s [opt-env-conf-test] - [] -> []
  9036. 1028.55 s [opt-env-conf-test] - '-' : cs -> go cs
  9037. 1028.55 s [opt-env-conf-test] - c : cs -> c : cs
  9038. 1028.55 s [opt-env-conf-test] - in go $ NE.toList s,
  9039. 1028.55 s [opt-env-conf-test] - " instead."
  9040. 1028.55 s [opt-env-conf-test] - ]
  9041. 1028.55 s [opt-env-conf-test] - ]
  9042. 1028.55 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  9043. 1028.55 s [opt-env-conf-test] - [ [ functionChunk "argument",
  9044. 1028.55 s [opt-env-conf-test] - " has no ",
  9045. 1028.55 s [opt-env-conf-test] - functionChunk "reader",
  9046. 1028.55 s [opt-env-conf-test] - "."
  9047. 1028.55 s [opt-env-conf-test] - ]
  9048. 1028.55 s [opt-env-conf-test] - ]
  9049. 1028.55 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  9050. 1028.55 s [opt-env-conf-test] - [ [ functionChunk "argument",
  9051. 1028.55 s [opt-env-conf-test] - " has no ",
  9052. 1028.55 s [opt-env-conf-test] - functionChunk "metavar",
  9053. 1028.55 s [opt-env-conf-test] - "."
  9054. 1028.55 s [opt-env-conf-test] - ]
  9055. 1028.55 s [opt-env-conf-test] - ]
  9056. 1028.55 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  9057. 1028.55 s [opt-env-conf-test] - [ [ functionChunk "option",
  9058. 1028.55 s [opt-env-conf-test] - " or ",
  9059. 1028.55 s [opt-env-conf-test] - functionChunk "name",
  9060. 1028.55 s [opt-env-conf-test] - " has no ",
  9061. 1028.55 s [opt-env-conf-test] - functionChunk "reader",
  9062. 1028.55 s [opt-env-conf-test] - "."
  9063. 1028.55 s [opt-env-conf-test] - ]
  9064. 1028.55 s [opt-env-conf-test] - ]
  9065. 1028.55 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  9066. 1028.55 s [opt-env-conf-test] - [ [ functionChunk "option",
  9067. 1028.55 s [opt-env-conf-test] - " has no ",
  9068. 1028.55 s [opt-env-conf-test] - functionChunk "long",
  9069. 1028.74 s [opt-env-conf-test] - " or ",
  9070. 1028.74 s [opt-env-conf-test] - functionChunk "short",
  9071. 1028.74 s [opt-env-conf-test] - "."
  9072. 1028.74 s [opt-env-conf-test] - ]
  9073. 1028.74 s [opt-env-conf-test] - ]
  9074. 1028.74 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  9075. 1028.74 s [opt-env-conf-test] - [ [ functionChunk "option",
  9076. 1028.74 s [opt-env-conf-test] - " or ",
  9077. 1028.74 s [opt-env-conf-test] - functionChunk "name",
  9078. 1028.74 s [opt-env-conf-test] - " has no ",
  9079. 1028.74 s [opt-env-conf-test] - functionChunk "metavar",
  9080. 1028.74 s [opt-env-conf-test] - "."
  9081. 1028.74 s [opt-env-conf-test] - ]
  9082. 1028.74 s [opt-env-conf-test] - ]
  9083. 1028.74 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  9084. 1028.74 s [opt-env-conf-test] - [ [ functionChunk "switch",
  9085. 1028.74 s [opt-env-conf-test] - " has no ",
  9086. 1028.74 s [opt-env-conf-test] - functionChunk "long",
  9087. 1028.74 s [opt-env-conf-test] - " or ",
  9088. 1028.74 s [opt-env-conf-test] - functionChunk "short",
  9089. 1028.74 s [opt-env-conf-test] - "."
  9090. 1028.74 s [opt-env-conf-test] - ]
  9091. 1028.74 s [opt-env-conf-test] - ]
  9092. 1028.74 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  9093. 1028.74 s [opt-env-conf-test] - [ [ functionChunk "long",
  9094. 1028.74 s [opt-env-conf-test] - " or ",
  9095. 1028.74 s [opt-env-conf-test] - functionChunk "short",
  9096. 1028.74 s [opt-env-conf-test] - " has no ",
  9097. 1028.74 s [opt-env-conf-test] - functionChunk "option",
  9098. 1028.74 s [opt-env-conf-test] - " or ",
  9099. 1028.74 s [opt-env-conf-test] - functionChunk "switch",
  9100. 1028.74 s [opt-env-conf-test] - "."
  9101. 1028.74 s [opt-env-conf-test] - ]
  9102. 1028.74 s [opt-env-conf-test] - ]
  9103. 1028.74 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  9104. 1028.74 s [opt-env-conf-test] - [ [ functionChunk "env",
  9105. 1028.74 s [opt-env-conf-test] - " or ",
  9106. 1028.74 s [opt-env-conf-test] - functionChunk "name",
  9107. 1028.74 s [opt-env-conf-test] - " has no ",
  9108. 1028.74 s [opt-env-conf-test] - functionChunk "reader",
  9109. 1028.74 s [opt-env-conf-test] - "."
  9110. 1028.74 s [opt-env-conf-test] - ]
  9111. 1028.74 s [opt-env-conf-test] - ]
  9112. 1028.74 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  9113. 1028.74 s [opt-env-conf-test] - [ [ functionChunk "env",
  9114. 1028.74 s [opt-env-conf-test] - " or ",
  9115. 1028.74 s [opt-env-conf-test] - functionChunk "name",
  9116. 1028.74 s [opt-env-conf-test] - " has no ",
  9117. 1028.74 s [opt-env-conf-test] - functionChunk "metavar",
  9118. 1028.74 s [opt-env-conf-test] - "."
  9119. 1028.74 s [opt-env-conf-test] - ]
  9120. 1028.74 s [opt-env-conf-test] - ]
  9121. 1028.74 s [opt-env-conf-test] - LintErrorNoCommands ->
  9122. 1028.74 s [opt-env-conf-test] - [ [ functionChunk "commands",
  9123. 1028.74 s [opt-env-conf-test] - " was called with an empty list."
  9124. 1028.74 s [opt-env-conf-test] - ]
  9125. 1028.74 s [opt-env-conf-test] - ]
  9126. 1028.74 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  9127. 1028.74 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  9128. 1028.74 s [opt-env-conf-test] - " was called with an unknown command: ",
  9129. 1028.74 s [opt-env-conf-test] - commandChunk c
  9130. 1028.74 s [opt-env-conf-test] - ]
  9131. 1028.74 s [opt-env-conf-test] - ]
  9132. 1028.74 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  9133. 1028.74 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  9134. 1028.74 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  9135. 1028.74 s [opt-env-conf-test] - ]
  9136. 1028.74 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  9137. 1028.74 s [opt-env-conf-test] - [ [ functionChunk "conf",
  9138. 1028.74 s [opt-env-conf-test] - " or ",
  9139. 1028.74 s [opt-env-conf-test] - functionChunk "name",
  9140. 1028.74 s [opt-env-conf-test] - " was called with no way to load configuration."
  9141. 1028.74 s [opt-env-conf-test] - ],
  9142. 1028.74 s [opt-env-conf-test] - [ "You can load configuration with ",
  9143. 1028.74 s [opt-env-conf-test] - functionChunk "withConfig",
  9144. 1028.74 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  9145. 1028.74 s [opt-env-conf-test] - functionChunk "withoutConfig",
  9146. 1028.74 s [opt-env-conf-test] - "."
  9147. 1028.74 s [opt-env-conf-test] - ]
  9148. 1028.74 s [opt-env-conf-test] - ]
  9149. 1028.74 s [opt-env-conf-test] - LintErrorManyInfinite ->
  9150. 1028.74 s [opt-env-conf-test] - [ [ functionChunk "many",
  9151. 1028.75 s [opt-env-conf-test] - " or ",
  9152. 1028.75 s [opt-env-conf-test] - functionChunk "some",
  9153. 1028.75 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  9154. 1028.75 s [opt-env-conf-test] - ],
  9155. 1028.75 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  9156. 1028.75 s [opt-env-conf-test] - ],
  9157. 1028.75 s [opt-env-conf-test] + case lintErrorMessage of
  9158. 1028.75 s [opt-env-conf-test] + LintErrorUndocumented ->
  9159. 1028.75 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  9160. 1028.75 s [opt-env-conf-test] + LintErrorEmptySetting ->
  9161. 1028.75 s [opt-env-conf-test] + concat
  9162. 1028.75 s [opt-env-conf-test] + [ [ [ "This ",
  9163. 1028.75 s [opt-env-conf-test] + functionChunk "setting",
  9164. 1028.75 s [opt-env-conf-test] + " parses nothing."
  9165. 1028.75 s [opt-env-conf-test] + ]
  9166. 1028.75 s [opt-env-conf-test] + ],
  9167. 1028.75 s [opt-env-conf-test] + [ [ "Add an ",
  9168. 1028.75 s [opt-env-conf-test] + functionChunk "argument",
  9169. 1028.75 s [opt-env-conf-test] + ", ",
  9170. 1028.75 s [opt-env-conf-test] + functionChunk "switch",
  9171. 1028.75 s [opt-env-conf-test] + ", ",
  9172. 1028.75 s [opt-env-conf-test] + functionChunk "option",
  9173. 1028.75 s [opt-env-conf-test] + ", ",
  9174. 1028.75 s [opt-env-conf-test] + functionChunk "env",
  9175. 1028.75 s [opt-env-conf-test] + ", ",
  9176. 1028.75 s [opt-env-conf-test] + functionChunk "conf",
  9177. 1028.75 s [opt-env-conf-test] + ", or ",
  9178. 1028.75 s [opt-env-conf-test] + functionChunk "value",
  9179. 1028.75 s [opt-env-conf-test] + "."
  9180. 1028.75 s [opt-env-conf-test] + ]
  9181. 1028.75 s [opt-env-conf-test] + ]
  9182. 1028.75 s [opt-env-conf-test] + ]
  9183. 1028.75 s [opt-env-conf-test] + LintErrorDashInShort ->
  9184. 1028.75 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  9185. 1028.75 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  9186. 1028.75 s [opt-env-conf-test] + ]
  9187. 1028.75 s [opt-env-conf-test] + LintErrorDashInLong s ->
  9188. 1028.75 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  9189. 1028.75 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  9190. 1028.75 s [opt-env-conf-test] + [ "Try ",
  9191. 1028.75 s [opt-env-conf-test] + functionChunk "long",
  9192. 1028.75 s [opt-env-conf-test] + " ",
  9193. 1028.75 s [opt-env-conf-test] + chunk $
  9194. 1028.75 s [opt-env-conf-test] + T.pack $
  9195. 1028.75 s [opt-env-conf-test] + show $
  9196. 1028.75 s [opt-env-conf-test] + let go = \case
  9197. 1028.75 s [opt-env-conf-test] + [] -> []
  9198. 1028.75 s [opt-env-conf-test] + '-' : cs -> go cs
  9199. 1028.75 s [opt-env-conf-test] + c : cs -> c : cs
  9200. 1028.75 s [opt-env-conf-test] + in go $ NE.toList s,
  9201. 1028.75 s [opt-env-conf-test] + " instead."
  9202. 1028.75 s [opt-env-conf-test] + ]
  9203. 1028.75 s [opt-env-conf-test] + ]
  9204. 1028.75 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  9205. 1028.75 s [opt-env-conf-test] + [ [ functionChunk "argument",
  9206. 1028.75 s [opt-env-conf-test] + " has no ",
  9207. 1028.75 s [opt-env-conf-test] + functionChunk "reader",
  9208. 1028.75 s [opt-env-conf-test] + "."
  9209. 1028.75 s [opt-env-conf-test] + ]
  9210. 1028.75 s [opt-env-conf-test] + ]
  9211. 1028.75 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  9212. 1028.75 s [opt-env-conf-test] + [ [ functionChunk "argument",
  9213. 1028.75 s [opt-env-conf-test] + " has no ",
  9214. 1028.75 s [opt-env-conf-test] + functionChunk "metavar",
  9215. 1028.75 s [opt-env-conf-test] + "."
  9216. 1028.75 s [opt-env-conf-test] + ]
  9217. 1028.75 s [opt-env-conf-test] + ]
  9218. 1028.75 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  9219. 1028.75 s [opt-env-conf-test] + [ [ functionChunk "option",
  9220. 1028.75 s [opt-env-conf-test] + " or ",
  9221. 1028.75 s [opt-env-conf-test] + functionChunk "name",
  9222. 1028.75 s [opt-env-conf-test] + " has no ",
  9223. 1028.75 s [opt-env-conf-test] + functionChunk "reader",
  9224. 1028.75 s [opt-env-conf-test] + "."
  9225. 1028.75 s [opt-env-conf-test] + ]
  9226. 1028.75 s [opt-env-conf-test] + ]
  9227. 1028.75 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  9228. 1028.75 s [opt-env-conf-test] + [ [ functionChunk "option",
  9229. 1028.75 s [opt-env-conf-test] + " has no ",
  9230. 1028.75 s [opt-env-conf-test] + functionChunk "long",
  9231. 1028.75 s [opt-env-conf-test] + " or ",
  9232. 1028.75 s [opt-env-conf-test] + functionChunk "short",
  9233. 1028.75 s [opt-env-conf-test] + "."
  9234. 1028.75 s [opt-env-conf-test] + ]
  9235. 1028.75 s [opt-env-conf-test] + ]
  9236. 1028.75 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  9237. 1028.75 s [opt-env-conf-test] + [ [ functionChunk "option",
  9238. 1028.75 s [opt-env-conf-test] + " or ",
  9239. 1028.75 s [opt-env-conf-test] + functionChunk "name",
  9240. 1028.75 s [opt-env-conf-test] + " has no ",
  9241. 1028.75 s [opt-env-conf-test] + functionChunk "metavar",
  9242. 1028.75 s [opt-env-conf-test] + "."
  9243. 1028.75 s [opt-env-conf-test] + ]
  9244. 1028.75 s [opt-env-conf-test] + ]
  9245. 1028.75 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  9246. 1028.75 s [opt-env-conf-test] + [ [ functionChunk "switch",
  9247. 1028.75 s [opt-env-conf-test] + " has no ",
  9248. 1028.75 s [opt-env-conf-test] + functionChunk "long",
  9249. 1028.75 s [opt-env-conf-test] + " or ",
  9250. 1028.75 s [opt-env-conf-test] + functionChunk "short",
  9251. 1028.75 s [opt-env-conf-test] + "."
  9252. 1028.75 s [opt-env-conf-test] + ]
  9253. 1028.75 s [opt-env-conf-test] + ]
  9254. 1028.75 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  9255. 1028.75 s [opt-env-conf-test] + [ [ functionChunk "long",
  9256. 1028.75 s [opt-env-conf-test] + " or ",
  9257. 1028.75 s [opt-env-conf-test] + functionChunk "short",
  9258. 1028.75 s [opt-env-conf-test] + " has no ",
  9259. 1028.75 s [opt-env-conf-test] + functionChunk "option",
  9260. 1028.75 s [opt-env-conf-test] + " or ",
  9261. 1028.75 s [opt-env-conf-test] + functionChunk "switch",
  9262. 1028.75 s [opt-env-conf-test] + "."
  9263. 1028.75 s [opt-env-conf-test] + ]
  9264. 1028.75 s [opt-env-conf-test] + ]
  9265. 1028.75 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  9266. 1028.75 s [opt-env-conf-test] + [ [ functionChunk "env",
  9267. 1028.76 s [opt-env-conf-test] + " or ",
  9268. 1028.76 s [opt-env-conf-test] + functionChunk "name",
  9269. 1028.76 s [opt-env-conf-test] + " has no ",
  9270. 1028.76 s [opt-env-conf-test] + functionChunk "reader",
  9271. 1028.76 s [opt-env-conf-test] + "."
  9272. 1028.76 s [opt-env-conf-test] + ]
  9273. 1028.76 s [opt-env-conf-test] + ]
  9274. 1028.76 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  9275. 1028.76 s [opt-env-conf-test] + [ [ functionChunk "env",
  9276. 1028.76 s [opt-env-conf-test] + " or ",
  9277. 1028.76 s [opt-env-conf-test] + functionChunk "name",
  9278. 1028.76 s [opt-env-conf-test] + " has no ",
  9279. 1028.76 s [opt-env-conf-test] + functionChunk "metavar",
  9280. 1028.76 s [opt-env-conf-test] + "."
  9281. 1028.76 s [opt-env-conf-test] + ]
  9282. 1028.76 s [opt-env-conf-test] + ]
  9283. 1028.76 s [opt-env-conf-test] + LintErrorNoCommands ->
  9284. 1028.76 s [opt-env-conf-test] + [ [ functionChunk "commands",
  9285. 1028.76 s [opt-env-conf-test] + " was called with an empty list."
  9286. 1028.76 s [opt-env-conf-test] + ]
  9287. 1028.76 s [opt-env-conf-test] + ]
  9288. 1028.76 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  9289. 1028.76 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  9290. 1028.76 s [opt-env-conf-test] + " was called with an unknown command: ",
  9291. 1028.76 s [opt-env-conf-test] + commandChunk c
  9292. 1028.76 s [opt-env-conf-test] + ]
  9293. 1028.76 s [opt-env-conf-test] + ]
  9294. 1028.76 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  9295. 1028.76 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  9296. 1028.76 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  9297. 1028.76 s [opt-env-conf-test] + ]
  9298. 1028.76 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  9299. 1028.76 s [opt-env-conf-test] + [ [ functionChunk "conf",
  9300. 1028.76 s [opt-env-conf-test] + " or ",
  9301. 1028.76 s [opt-env-conf-test] + functionChunk "name",
  9302. 1028.76 s [opt-env-conf-test] + " was called with no way to load configuration."
  9303. 1028.76 s [opt-env-conf-test] + ],
  9304. 1028.76 s [opt-env-conf-test] + [ "You can load configuration with ",
  9305. 1028.76 s [opt-env-conf-test] + functionChunk "withConfig",
  9306. 1028.76 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  9307. 1028.76 s [opt-env-conf-test] + functionChunk "withoutConfig",
  9308. 1028.76 s [opt-env-conf-test] + "."
  9309. 1028.76 s [opt-env-conf-test] + ]
  9310. 1028.76 s [opt-env-conf-test] + ]
  9311. 1028.76 s [opt-env-conf-test] + LintErrorManyInfinite ->
  9312. 1028.76 s [opt-env-conf-test] + [ [ functionChunk "many",
  9313. 1028.76 s [opt-env-conf-test] + " or ",
  9314. 1028.76 s [opt-env-conf-test] + functionChunk "some",
  9315. 1028.76 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  9316. 1028.76 s [opt-env-conf-test] + ],
  9317. 1028.76 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  9318. 1028.76 s [opt-env-conf-test] + ],
  9319. 1028.76 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  9320. 1028.76 s [opt-env-conf-test] ]
  9321. 1028.76 s [opt-env-conf-test]
  9322. 1028.76 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
  9323. 1028.76 s [opt-env-conf-test] @@ -227,10 +227,9 @@
  9324. 1028.76 s [opt-env-conf-test] internalParser p =
  9325. 1028.76 s [opt-env-conf-test] choice
  9326. 1028.76 s [opt-env-conf-test] [ setting
  9327. 1028.76 s [opt-env-conf-test] - [ switch ShowVersion,
  9328. 1028.76 s [opt-env-conf-test] - long "version",
  9329. 1028.76 s [opt-env-conf-test] - hidden
  9330. 1028.76 s [opt-env-conf-test] - ],
  9331. 1028.76 s [opt-env-conf-test] + [ switch ShowVersion,
  9332. 1028.76 s [opt-env-conf-test] + long "version"
  9333. 1028.76 s [opt-env-conf-test] +],
  9334. 1028.76 s [opt-env-conf-test] setting
  9335. 1028.76 s [opt-env-conf-test] [ switch RenderMan,
  9336. 1028.76 s [opt-env-conf-test] long "render-man-page",
  9337. 1028.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  9338. 1028.76 s [opt-env-conf-test] @@ -66,168 +66,168 @@
  9339. 1028.76 s [opt-env-conf-test] renderLintError LintError {..} =
  9340. 1028.76 s [opt-env-conf-test] concat
  9341. 1028.76 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  9342. 1028.76 s [opt-env-conf-test] - case lintErrorMessage of
  9343. 1028.76 s [opt-env-conf-test] - LintErrorUndocumented ->
  9344. 1028.76 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  9345. 1028.76 s [opt-env-conf-test] - LintErrorEmptySetting ->
  9346. 1028.76 s [opt-env-conf-test] - concat
  9347. 1028.76 s [opt-env-conf-test] - [ [ [ "This ",
  9348. 1028.76 s [opt-env-conf-test] - functionChunk "setting",
  9349. 1028.76 s [opt-env-conf-test] - " parses nothing."
  9350. 1028.76 s [opt-env-conf-test] - ]
  9351. 1028.76 s [opt-env-conf-test] - ],
  9352. 1028.76 s [opt-env-conf-test] - [ [ "Add an ",
  9353. 1028.76 s [opt-env-conf-test] - functionChunk "argument",
  9354. 1028.76 s [opt-env-conf-test] - ", ",
  9355. 1028.76 s [opt-env-conf-test] - functionChunk "switch",
  9356. 1028.76 s [opt-env-conf-test] - ", ",
  9357. 1028.76 s [opt-env-conf-test] - functionChunk "option",
  9358. 1028.76 s [opt-env-conf-test] - ", ",
  9359. 1028.76 s [opt-env-conf-test] - functionChunk "env",
  9360. 1028.76 s [opt-env-conf-test] - ", ",
  9361. 1028.76 s [opt-env-conf-test] - functionChunk "conf",
  9362. 1028.76 s [opt-env-conf-test] - ", or ",
  9363. 1028.76 s [opt-env-conf-test] - functionChunk "value",
  9364. 1028.76 s [opt-env-conf-test] - "."
  9365. 1028.76 s [opt-env-conf-test] - ]
  9366. 1028.76 s [opt-env-conf-test] - ]
  9367. 1028.76 s [opt-env-conf-test] - ]
  9368. 1028.76 s [opt-env-conf-test] - LintErrorDashInShort ->
  9369. 1028.76 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  9370. 1028.76 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  9371. 1028.76 s [opt-env-conf-test] - ]
  9372. 1028.76 s [opt-env-conf-test] - LintErrorDashInLong s ->
  9373. 1028.76 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  9374. 1028.76 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  9375. 1028.76 s [opt-env-conf-test] - [ "Try ",
  9376. 1028.76 s [opt-env-conf-test] - functionChunk "long",
  9377. 1028.76 s [opt-env-conf-test] - " ",
  9378. 1028.76 s [opt-env-conf-test] - chunk $
  9379. 1028.76 s [opt-env-conf-test] - T.pack $
  9380. 1028.76 s [opt-env-conf-test] - show $
  9381. 1028.76 s [opt-env-conf-test] - let go = \case
  9382. 1028.76 s [opt-env-conf-test] - [] -> []
  9383. 1028.76 s [opt-env-conf-test] - '-' : cs -> go cs
  9384. 1028.76 s [opt-env-conf-test] - c : cs -> c : cs
  9385. 1028.76 s [opt-env-conf-test] - in go $ NE.toList s,
  9386. 1028.76 s [opt-env-conf-test] - " instead."
  9387. 1028.76 s [opt-env-conf-test] - ]
  9388. 1028.76 s [opt-env-conf-test] - ]
  9389. 1028.76 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  9390. 1028.76 s [opt-env-conf-test] - [ [ functionChunk "argument",
  9391. 1028.76 s [opt-env-conf-test] - " has no ",
  9392. 1028.76 s [opt-env-conf-test] - functionChunk "reader",
  9393. 1028.76 s [opt-env-conf-test] - "."
  9394. 1028.76 s [opt-env-conf-test] - ]
  9395. 1028.76 s [opt-env-conf-test] - ]
  9396. 1028.76 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  9397. 1028.76 s [opt-env-conf-test] - [ [ functionChunk "argument",
  9398. 1028.76 s [opt-env-conf-test] - " has no ",
  9399. 1028.77 s [opt-env-conf-test] - functionChunk "metavar",
  9400. 1028.77 s [opt-env-conf-test] - "."
  9401. 1028.77 s [opt-env-conf-test] - ]
  9402. 1028.77 s [opt-env-conf-test] - ]
  9403. 1028.77 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  9404. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "option",
  9405. 1028.77 s [opt-env-conf-test] - " or ",
  9406. 1028.77 s [opt-env-conf-test] - functionChunk "name",
  9407. 1028.77 s [opt-env-conf-test] - " has no ",
  9408. 1028.77 s [opt-env-conf-test] - functionChunk "reader",
  9409. 1028.77 s [opt-env-conf-test] - "."
  9410. 1028.77 s [opt-env-conf-test] - ]
  9411. 1028.77 s [opt-env-conf-test] - ]
  9412. 1028.77 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  9413. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "option",
  9414. 1028.77 s [opt-env-conf-test] - " has no ",
  9415. 1028.77 s [opt-env-conf-test] - functionChunk "long",
  9416. 1028.77 s [opt-env-conf-test] - " or ",
  9417. 1028.77 s [opt-env-conf-test] - functionChunk "short",
  9418. 1028.77 s [opt-env-conf-test] - "."
  9419. 1028.77 s [opt-env-conf-test] - ]
  9420. 1028.77 s [opt-env-conf-test] - ]
  9421. 1028.77 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  9422. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "option",
  9423. 1028.77 s [opt-env-conf-test] - " or ",
  9424. 1028.77 s [opt-env-conf-test] - functionChunk "name",
  9425. 1028.77 s [opt-env-conf-test] - " has no ",
  9426. 1028.77 s [opt-env-conf-test] - functionChunk "metavar",
  9427. 1028.77 s [opt-env-conf-test] - "."
  9428. 1028.77 s [opt-env-conf-test] - ]
  9429. 1028.77 s [opt-env-conf-test] - ]
  9430. 1028.77 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  9431. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "switch",
  9432. 1028.77 s [opt-env-conf-test] - " has no ",
  9433. 1028.77 s [opt-env-conf-test] - functionChunk "long",
  9434. 1028.77 s [opt-env-conf-test] - " or ",
  9435. 1028.77 s [opt-env-conf-test] - functionChunk "short",
  9436. 1028.77 s [opt-env-conf-test] - "."
  9437. 1028.77 s [opt-env-conf-test] - ]
  9438. 1028.77 s [opt-env-conf-test] - ]
  9439. 1028.77 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  9440. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "long",
  9441. 1028.77 s [opt-env-conf-test] - " or ",
  9442. 1028.77 s [opt-env-conf-test] - functionChunk "short",
  9443. 1028.77 s [opt-env-conf-test] - " has no ",
  9444. 1028.77 s [opt-env-conf-test] - functionChunk "option",
  9445. 1028.77 s [opt-env-conf-test] - " or ",
  9446. 1028.77 s [opt-env-conf-test] - functionChunk "switch",
  9447. 1028.77 s [opt-env-conf-test] - "."
  9448. 1028.77 s [opt-env-conf-test] - ]
  9449. 1028.77 s [opt-env-conf-test] - ]
  9450. 1028.77 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  9451. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "env",
  9452. 1028.77 s [opt-env-conf-test] - " or ",
  9453. 1028.77 s [opt-env-conf-test] - functionChunk "name",
  9454. 1028.77 s [opt-env-conf-test] - " has no ",
  9455. 1028.77 s [opt-env-conf-test] - functionChunk "reader",
  9456. 1028.77 s [opt-env-conf-test] - "."
  9457. 1028.77 s [opt-env-conf-test] - ]
  9458. 1028.77 s [opt-env-conf-test] - ]
  9459. 1028.77 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  9460. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "env",
  9461. 1028.77 s [opt-env-conf-test] - " or ",
  9462. 1028.77 s [opt-env-conf-test] - functionChunk "name",
  9463. 1028.77 s [opt-env-conf-test] - " has no ",
  9464. 1028.77 s [opt-env-conf-test] - functionChunk "metavar",
  9465. 1028.77 s [opt-env-conf-test] - "."
  9466. 1028.77 s [opt-env-conf-test] - ]
  9467. 1028.77 s [opt-env-conf-test] - ]
  9468. 1028.77 s [opt-env-conf-test] - LintErrorNoCommands ->
  9469. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "commands",
  9470. 1028.77 s [opt-env-conf-test] - " was called with an empty list."
  9471. 1028.77 s [opt-env-conf-test] - ]
  9472. 1028.77 s [opt-env-conf-test] - ]
  9473. 1028.77 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  9474. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  9475. 1028.77 s [opt-env-conf-test] - " was called with an unknown command: ",
  9476. 1028.77 s [opt-env-conf-test] - commandChunk c
  9477. 1028.77 s [opt-env-conf-test] - ]
  9478. 1028.77 s [opt-env-conf-test] - ]
  9479. 1028.77 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  9480. 1028.77 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  9481. 1028.77 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  9482. 1028.77 s [opt-env-conf-test] - ]
  9483. 1028.77 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  9484. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "conf",
  9485. 1028.77 s [opt-env-conf-test] - " or ",
  9486. 1028.77 s [opt-env-conf-test] - functionChunk "name",
  9487. 1028.77 s [opt-env-conf-test] - " was called with no way to load configuration."
  9488. 1028.77 s [opt-env-conf-test] - ],
  9489. 1028.77 s [opt-env-conf-test] - [ "You can load configuration with ",
  9490. 1028.77 s [opt-env-conf-test] - functionChunk "withConfig",
  9491. 1028.77 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  9492. 1028.77 s [opt-env-conf-test] - functionChunk "withoutConfig",
  9493. 1028.77 s [opt-env-conf-test] - "."
  9494. 1028.77 s [opt-env-conf-test] - ]
  9495. 1028.77 s [opt-env-conf-test] - ]
  9496. 1028.77 s [opt-env-conf-test] - LintErrorManyInfinite ->
  9497. 1028.77 s [opt-env-conf-test] - [ [ functionChunk "many",
  9498. 1028.77 s [opt-env-conf-test] - " or ",
  9499. 1028.77 s [opt-env-conf-test] - functionChunk "some",
  9500. 1028.77 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  9501. 1028.77 s [opt-env-conf-test] - ],
  9502. 1028.77 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  9503. 1028.77 s [opt-env-conf-test] - ],
  9504. 1028.77 s [opt-env-conf-test] + case lintErrorMessage of
  9505. 1028.77 s [opt-env-conf-test] + LintErrorUndocumented ->
  9506. 1028.77 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  9507. 1028.77 s [opt-env-conf-test] + LintErrorEmptySetting ->
  9508. 1028.77 s [opt-env-conf-test] + concat
  9509. 1028.77 s [opt-env-conf-test] + [ [ [ "This ",
  9510. 1028.77 s [opt-env-conf-test] + functionChunk "setting",
  9511. 1028.77 s [opt-env-conf-test] + " parses nothing."
  9512. 1028.77 s [opt-env-conf-test] + ]
  9513. 1028.77 s [opt-env-conf-test] + ],
  9514. 1028.77 s [opt-env-conf-test] + [ [ "Add an ",
  9515. 1028.77 s [opt-env-conf-test] + functionChunk "argument",
  9516. 1028.77 s [opt-env-conf-test] + ", ",
  9517. 1028.77 s [opt-env-conf-test] + functionChunk "switch",
  9518. 1028.77 s [opt-env-conf-test] + ", ",
  9519. 1028.77 s [opt-env-conf-test] + functionChunk "option",
  9520. 1028.77 s [opt-env-conf-test] + ", ",
  9521. 1028.77 s [opt-env-conf-test] + functionChunk "env",
  9522. 1028.77 s [opt-env-conf-test] + ", ",
  9523. 1028.77 s [opt-env-conf-test] + functionChunk "conf",
  9524. 1028.77 s [opt-env-conf-test] + ", or ",
  9525. 1028.77 s [opt-env-conf-test] + functionChunk "value",
  9526. 1028.77 s [opt-env-conf-test] + "."
  9527. 1028.77 s [opt-env-conf-test] + ]
  9528. 1028.77 s [opt-env-conf-test] + ]
  9529. 1028.78 s [opt-env-conf-test] + ]
  9530. 1028.78 s [opt-env-conf-test] + LintErrorDashInShort ->
  9531. 1028.78 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  9532. 1028.78 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  9533. 1028.78 s [opt-env-conf-test] + ]
  9534. 1028.78 s [opt-env-conf-test] + LintErrorDashInLong s ->
  9535. 1028.78 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  9536. 1028.78 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  9537. 1028.78 s [opt-env-conf-test] + [ "Try ",
  9538. 1028.78 s [opt-env-conf-test] + functionChunk "long",
  9539. 1028.78 s [opt-env-conf-test] + " ",
  9540. 1028.78 s [opt-env-conf-test] + chunk $
  9541. 1028.78 s [opt-env-conf-test] + T.pack $
  9542. 1028.78 s [opt-env-conf-test] + show $
  9543. 1028.78 s [opt-env-conf-test] + let go = \case
  9544. 1028.78 s [opt-env-conf-test] + [] -> []
  9545. 1028.78 s [opt-env-conf-test] + '-' : cs -> go cs
  9546. 1028.78 s [opt-env-conf-test] + c : cs -> c : cs
  9547. 1028.78 s [opt-env-conf-test] + in go $ NE.toList s,
  9548. 1028.78 s [opt-env-conf-test] + " instead."
  9549. 1028.78 s [opt-env-conf-test] + ]
  9550. 1028.78 s [opt-env-conf-test] + ]
  9551. 1028.78 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  9552. 1028.78 s [opt-env-conf-test] + [ [ functionChunk "argument",
  9553. 1028.78 s [opt-env-conf-test] + " has no ",
  9554. 1028.78 s [opt-env-conf-test] + functionChunk "reader",
  9555. 1028.78 s [opt-env-conf-test] + "."
  9556. 1028.78 s [opt-env-conf-test] + ]
  9557. 1028.78 s [opt-env-conf-test] + ]
  9558. 1028.78 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  9559. 1028.78 s [opt-env-conf-test] + [ [ functionChunk "argument",
  9560. 1028.78 s [opt-env-conf-test] + " has no ",
  9561. 1028.78 s [opt-env-conf-test] + functionChunk "metavar",
  9562. 1028.78 s [opt-env-conf-test] + "."
  9563. 1028.78 s [opt-env-conf-test] + ]
  9564. 1028.78 s [opt-env-conf-test] + ]
  9565. 1028.78 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  9566. 1028.78 s [opt-env-conf-test] + [ [ functionChunk "option",
  9567. 1028.78 s [opt-env-conf-test] + " or ",
  9568. 1028.78 s [opt-env-conf-test] + functionChunk "name",
  9569. 1028.78 s [opt-env-conf-test] + " has no ",
  9570. 1028.78 s [opt-env-conf-test] + functionChunk "reader",
  9571. 1028.78 s [opt-env-conf-test] + "."
  9572. 1028.78 s [opt-env-conf-test] + ]
  9573. 1028.78 s [opt-env-conf-test] + ]
  9574. 1028.78 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  9575. 1028.78 s [opt-env-conf-test] + [ [ functionChunk "option",
  9576. 1028.78 s [opt-env-conf-test] + " has no ",
  9577. 1028.78 s [opt-env-conf-test] + functionChunk "long",
  9578. 1028.78 s [opt-env-conf-test] + " or ",
  9579. 1028.78 s [opt-env-conf-test] + functionChunk "short",
  9580. 1028.78 s [opt-env-conf-test] + "."
  9581. 1028.78 s [opt-env-conf-test] + ]
  9582. 1028.78 s [opt-env-conf-test] + ]
  9583. 1028.78 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  9584. 1028.78 s [opt-env-conf-test] + [ [ functionChunk "option",
  9585. 1028.78 s [opt-env-conf-test] + " or ",
  9586. 1029.01 s [opt-env-conf-test] + functionChunk "name",
  9587. 1029.01 s [opt-env-conf-test] + " has no ",
  9588. 1029.01 s [opt-env-conf-test] + functionChunk "metavar",
  9589. 1029.01 s [opt-env-conf-test] + "."
  9590. 1029.01 s [opt-env-conf-test] + ]
  9591. 1029.01 s [opt-env-conf-test] + ]
  9592. 1029.01 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  9593. 1029.01 s [opt-env-conf-test] + [ [ functionChunk "switch",
  9594. 1029.01 s [opt-env-conf-test] + " has no ",
  9595. 1029.01 s [opt-env-conf-test] + functionChunk "long",
  9596. 1029.01 s [opt-env-conf-test] + " or ",
  9597. 1029.01 s [opt-env-conf-test] + functionChunk "short",
  9598. 1029.01 s [opt-env-conf-test] + "."
  9599. 1029.01 s [opt-env-conf-test] + ]
  9600. 1029.01 s [opt-env-conf-test] + ]
  9601. 1029.01 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  9602. 1029.01 s [opt-env-conf-test] + [ [ functionChunk "long",
  9603. 1029.01 s [opt-env-conf-test] + " or ",
  9604. 1029.01 s [opt-env-conf-test] + functionChunk "short",
  9605. 1029.01 s [opt-env-conf-test] + " has no ",
  9606. 1029.01 s [opt-env-conf-test] + functionChunk "option",
  9607. 1029.01 s [opt-env-conf-test] + " or ",
  9608. 1029.01 s [opt-env-conf-test] + functionChunk "switch",
  9609. 1029.01 s [opt-env-conf-test] + "."
  9610. 1029.01 s [opt-env-conf-test] + ]
  9611. 1029.01 s [opt-env-conf-test] + ]
  9612. 1029.01 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  9613. 1029.01 s [opt-env-conf-test] + [ [ functionChunk "env",
  9614. 1029.01 s [opt-env-conf-test] + " or ",
  9615. 1029.01 s [opt-env-conf-test] + functionChunk "name",
  9616. 1029.01 s [opt-env-conf-test] + " has no ",
  9617. 1029.01 s [opt-env-conf-test] + functionChunk "reader",
  9618. 1029.01 s [opt-env-conf-test] + "."
  9619. 1029.01 s [opt-env-conf-test] + ]
  9620. 1029.01 s [opt-env-conf-test] + ]
  9621. 1029.01 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  9622. 1029.01 s [opt-env-conf-test] + [ [ functionChunk "env",
  9623. 1029.01 s [opt-env-conf-test] + " or ",
  9624. 1029.01 s [opt-env-conf-test] + functionChunk "name",
  9625. 1029.01 s [opt-env-conf-test] + " has no ",
  9626. 1029.01 s [opt-env-conf-test] + functionChunk "metavar",
  9627. 1029.02 s [opt-env-conf-test] + "."
  9628. 1029.02 s [opt-env-conf-test] + ]
  9629. 1029.02 s [opt-env-conf-test] + ]
  9630. 1029.02 s [opt-env-conf-test] + LintErrorNoCommands ->
  9631. 1029.02 s [opt-env-conf-test] + [ [ functionChunk "commands",
  9632. 1029.02 s [opt-env-conf-test] + " was called with an empty list."
  9633. 1029.02 s [opt-env-conf-test] + ]
  9634. 1029.02 s [opt-env-conf-test] + ]
  9635. 1029.02 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  9636. 1029.02 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  9637. 1029.02 s [opt-env-conf-test] + " was called with an unknown command: ",
  9638. 1029.02 s [opt-env-conf-test] + commandChunk c
  9639. 1029.02 s [opt-env-conf-test] + ]
  9640. 1029.02 s [opt-env-conf-test] + ]
  9641. 1029.02 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  9642. 1029.02 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  9643. 1029.02 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  9644. 1029.02 s [opt-env-conf-test] + ]
  9645. 1029.02 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  9646. 1029.02 s [opt-env-conf-test] + [ [ functionChunk "conf",
  9647. 1029.02 s [opt-env-conf-test] + " or ",
  9648. 1029.02 s [opt-env-conf-test] + functionChunk "name",
  9649. 1029.02 s [opt-env-conf-test] + " was called with no way to load configuration."
  9650. 1029.02 s [opt-env-conf-test] + ],
  9651. 1029.02 s [opt-env-conf-test] + [ "You can load configuration with ",
  9652. 1029.02 s [opt-env-conf-test] + functionChunk "withConfig",
  9653. 1029.02 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  9654. 1029.02 s [opt-env-conf-test] + functionChunk "withoutConfig",
  9655. 1029.02 s [opt-env-conf-test] + "."
  9656. 1029.02 s [opt-env-conf-test] + ]
  9657. 1029.02 s [opt-env-conf-test] + ]
  9658. 1029.02 s [opt-env-conf-test] + LintErrorManyInfinite ->
  9659. 1029.02 s [opt-env-conf-test] + [ [ functionChunk "many",
  9660. 1029.02 s [opt-env-conf-test] + " or ",
  9661. 1029.02 s [opt-env-conf-test] + functionChunk "some",
  9662. 1029.02 s [opt-env-conf-test] + " was called with a parser that may succeed without consuming anything."
  9663. 1029.02 s [opt-env-conf-test] + ],
  9664. 1029.02 s [opt-env-conf-test] + ["This is not allowed because the parser would run infinitely."]
  9665. 1029.02 s [opt-env-conf-test] + ],
  9666. 1029.02 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  9667. 1029.02 s [opt-env-conf-test] ]
  9668. 1029.02 s [opt-env-conf-test]
  9669. 1029.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
  9670. 1029.02 s [opt-env-conf-test] @@ -227,10 +227,7 @@
  9671. 1029.02 s [opt-env-conf-test] internalParser p =
  9672. 1029.02 s [opt-env-conf-test] choice
  9673. 1029.02 s [opt-env-conf-test] [ setting
  9674. 1029.02 s [opt-env-conf-test] - [ switch ShowVersion,
  9675. 1029.02 s [opt-env-conf-test] - long "version",
  9676. 1029.02 s [opt-env-conf-test] - hidden
  9677. 1029.02 s [opt-env-conf-test] - ],
  9678. 1029.02 s [opt-env-conf-test] + [],
  9679. 1029.02 s [opt-env-conf-test] setting
  9680. 1029.02 s [opt-env-conf-test] [ switch RenderMan,
  9681. 1029.02 s [opt-env-conf-test] long "render-man-page",
  9682. 1029.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  9683. 1029.02 s [opt-env-conf-test] @@ -65,171 +65,166 @@
  9684. 1029.02 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  9685. 1029.02 s [opt-env-conf-test] renderLintError LintError {..} =
  9686. 1029.02 s [opt-env-conf-test] concat
  9687. 1029.02 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  9688. 1029.02 s [opt-env-conf-test] - case lintErrorMessage of
  9689. 1029.02 s [opt-env-conf-test] - LintErrorUndocumented ->
  9690. 1029.02 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  9691. 1029.02 s [opt-env-conf-test] - LintErrorEmptySetting ->
  9692. 1029.02 s [opt-env-conf-test] - concat
  9693. 1029.02 s [opt-env-conf-test] - [ [ [ "This ",
  9694. 1029.02 s [opt-env-conf-test] - functionChunk "setting",
  9695. 1029.02 s [opt-env-conf-test] - " parses nothing."
  9696. 1029.02 s [opt-env-conf-test] - ]
  9697. 1029.02 s [opt-env-conf-test] - ],
  9698. 1029.02 s [opt-env-conf-test] - [ [ "Add an ",
  9699. 1029.02 s [opt-env-conf-test] - functionChunk "argument",
  9700. 1029.02 s [opt-env-conf-test] - ", ",
  9701. 1029.02 s [opt-env-conf-test] - functionChunk "switch",
  9702. 1029.02 s [opt-env-conf-test] - ", ",
  9703. 1029.02 s [opt-env-conf-test] - functionChunk "option",
  9704. 1029.02 s [opt-env-conf-test] - ", ",
  9705. 1029.02 s [opt-env-conf-test] - functionChunk "env",
  9706. 1029.02 s [opt-env-conf-test] - ", ",
  9707. 1029.02 s [opt-env-conf-test] - functionChunk "conf",
  9708. 1029.02 s [opt-env-conf-test] - ", or ",
  9709. 1029.03 s [opt-env-conf-test] - functionChunk "value",
  9710. 1029.03 s [opt-env-conf-test] - "."
  9711. 1029.03 s [opt-env-conf-test] - ]
  9712. 1029.03 s [opt-env-conf-test] - ]
  9713. 1029.03 s [opt-env-conf-test] - ]
  9714. 1029.03 s [opt-env-conf-test] - LintErrorDashInShort ->
  9715. 1029.03 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  9716. 1029.03 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  9717. 1029.03 s [opt-env-conf-test] - ]
  9718. 1029.03 s [opt-env-conf-test] - LintErrorDashInLong s ->
  9719. 1029.03 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  9720. 1029.03 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  9721. 1029.03 s [opt-env-conf-test] - [ "Try ",
  9722. 1029.03 s [opt-env-conf-test] - functionChunk "long",
  9723. 1029.03 s [opt-env-conf-test] - " ",
  9724. 1029.03 s [opt-env-conf-test] - chunk $
  9725. 1029.03 s [opt-env-conf-test] - T.pack $
  9726. 1029.03 s [opt-env-conf-test] - show $
  9727. 1029.03 s [opt-env-conf-test] - let go = \case
  9728. 1029.03 s [opt-env-conf-test] - [] -> []
  9729. 1029.03 s [opt-env-conf-test] - '-' : cs -> go cs
  9730. 1029.03 s [opt-env-conf-test] - c : cs -> c : cs
  9731. 1029.03 s [opt-env-conf-test] - in go $ NE.toList s,
  9732. 1029.03 s [opt-env-conf-test] - " instead."
  9733. 1029.03 s [opt-env-conf-test] - ]
  9734. 1029.03 s [opt-env-conf-test] - ]
  9735. 1029.03 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  9736. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "argument",
  9737. 1029.03 s [opt-env-conf-test] - " has no ",
  9738. 1029.03 s [opt-env-conf-test] - functionChunk "reader",
  9739. 1029.03 s [opt-env-conf-test] - "."
  9740. 1029.03 s [opt-env-conf-test] - ]
  9741. 1029.03 s [opt-env-conf-test] - ]
  9742. 1029.03 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  9743. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "argument",
  9744. 1029.03 s [opt-env-conf-test] - " has no ",
  9745. 1029.03 s [opt-env-conf-test] - functionChunk "metavar",
  9746. 1029.03 s [opt-env-conf-test] - "."
  9747. 1029.03 s [opt-env-conf-test] - ]
  9748. 1029.03 s [opt-env-conf-test] - ]
  9749. 1029.03 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  9750. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "option",
  9751. 1029.03 s [opt-env-conf-test] - " or ",
  9752. 1029.03 s [opt-env-conf-test] - functionChunk "name",
  9753. 1029.03 s [opt-env-conf-test] - " has no ",
  9754. 1029.03 s [opt-env-conf-test] - functionChunk "reader",
  9755. 1029.03 s [opt-env-conf-test] - "."
  9756. 1029.03 s [opt-env-conf-test] - ]
  9757. 1029.03 s [opt-env-conf-test] - ]
  9758. 1029.03 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  9759. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "option",
  9760. 1029.03 s [opt-env-conf-test] - " has no ",
  9761. 1029.03 s [opt-env-conf-test] - functionChunk "long",
  9762. 1029.03 s [opt-env-conf-test] - " or ",
  9763. 1029.03 s [opt-env-conf-test] - functionChunk "short",
  9764. 1029.03 s [opt-env-conf-test] - "."
  9765. 1029.03 s [opt-env-conf-test] - ]
  9766. 1029.03 s [opt-env-conf-test] - ]
  9767. 1029.03 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  9768. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "option",
  9769. 1029.03 s [opt-env-conf-test] - " or ",
  9770. 1029.03 s [opt-env-conf-test] - functionChunk "name",
  9771. 1029.03 s [opt-env-conf-test] - " has no ",
  9772. 1029.03 s [opt-env-conf-test] - functionChunk "metavar",
  9773. 1029.03 s [opt-env-conf-test] - "."
  9774. 1029.03 s [opt-env-conf-test] - ]
  9775. 1029.03 s [opt-env-conf-test] - ]
  9776. 1029.03 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  9777. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "switch",
  9778. 1029.03 s [opt-env-conf-test] - " has no ",
  9779. 1029.03 s [opt-env-conf-test] - functionChunk "long",
  9780. 1029.03 s [opt-env-conf-test] - " or ",
  9781. 1029.03 s [opt-env-conf-test] - functionChunk "short",
  9782. 1029.03 s [opt-env-conf-test] - "."
  9783. 1029.03 s [opt-env-conf-test] - ]
  9784. 1029.03 s [opt-env-conf-test] - ]
  9785. 1029.03 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  9786. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "long",
  9787. 1029.03 s [opt-env-conf-test] - " or ",
  9788. 1029.03 s [opt-env-conf-test] - functionChunk "short",
  9789. 1029.03 s [opt-env-conf-test] - " has no ",
  9790. 1029.03 s [opt-env-conf-test] - functionChunk "option",
  9791. 1029.03 s [opt-env-conf-test] - " or ",
  9792. 1029.03 s [opt-env-conf-test] - functionChunk "switch",
  9793. 1029.03 s [opt-env-conf-test] - "."
  9794. 1029.03 s [opt-env-conf-test] - ]
  9795. 1029.03 s [opt-env-conf-test] - ]
  9796. 1029.03 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  9797. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "env",
  9798. 1029.03 s [opt-env-conf-test] - " or ",
  9799. 1029.03 s [opt-env-conf-test] - functionChunk "name",
  9800. 1029.03 s [opt-env-conf-test] - " has no ",
  9801. 1029.03 s [opt-env-conf-test] - functionChunk "reader",
  9802. 1029.03 s [opt-env-conf-test] - "."
  9803. 1029.03 s [opt-env-conf-test] - ]
  9804. 1029.03 s [opt-env-conf-test] - ]
  9805. 1029.03 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  9806. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "env",
  9807. 1029.03 s [opt-env-conf-test] - " or ",
  9808. 1029.03 s [opt-env-conf-test] - functionChunk "name",
  9809. 1029.03 s [opt-env-conf-test] - " has no ",
  9810. 1029.03 s [opt-env-conf-test] - functionChunk "metavar",
  9811. 1029.03 s [opt-env-conf-test] - "."
  9812. 1029.03 s [opt-env-conf-test] - ]
  9813. 1029.03 s [opt-env-conf-test] - ]
  9814. 1029.03 s [opt-env-conf-test] - LintErrorNoCommands ->
  9815. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "commands",
  9816. 1029.03 s [opt-env-conf-test] - " was called with an empty list."
  9817. 1029.03 s [opt-env-conf-test] - ]
  9818. 1029.03 s [opt-env-conf-test] - ]
  9819. 1029.03 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  9820. 1029.03 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  9821. 1029.03 s [opt-env-conf-test] - " was called with an unknown command: ",
  9822. 1029.03 s [opt-env-conf-test] - commandChunk c
  9823. 1029.03 s [opt-env-conf-test] - ]
  9824. 1029.03 s [opt-env-conf-test] - ]
  9825. 1029.03 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  9826. 1029.03 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  9827. 1029.03 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  9828. 1029.04 s [opt-env-conf-test] - ]
  9829. 1029.04 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  9830. 1029.04 s [opt-env-conf-test] - [ [ functionChunk "conf",
  9831. 1029.04 s [opt-env-conf-test] - " or ",
  9832. 1029.04 s [opt-env-conf-test] - functionChunk "name",
  9833. 1029.04 s [opt-env-conf-test] - " was called with no way to load configuration."
  9834. 1029.04 s [opt-env-conf-test] - ],
  9835. 1029.04 s [opt-env-conf-test] - [ "You can load configuration with ",
  9836. 1029.04 s [opt-env-conf-test] - functionChunk "withConfig",
  9837. 1029.04 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  9838. 1029.04 s [opt-env-conf-test] - functionChunk "withoutConfig",
  9839. 1029.04 s [opt-env-conf-test] - "."
  9840. 1029.04 s [opt-env-conf-test] - ]
  9841. 1029.04 s [opt-env-conf-test] - ]
  9842. 1029.04 s [opt-env-conf-test] - LintErrorManyInfinite ->
  9843. 1029.04 s [opt-env-conf-test] - [ [ functionChunk "many",
  9844. 1029.04 s [opt-env-conf-test] - " or ",
  9845. 1029.04 s [opt-env-conf-test] - functionChunk "some",
  9846. 1030.86 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  9847. 1030.86 s [opt-env-conf-test] - ],
  9848. 1030.86 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  9849. 1030.86 s [opt-env-conf-test] - ],
  9850. 1030.86 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  9851. 1030.86 s [opt-env-conf-test] - ]
  9852. 1030.86 s [opt-env-conf-test] + [ [[fore red "Invalid Setting:"]],
  9853. 1030.86 s [opt-env-conf-test] + case lintErrorMessage of
  9854. 1030.86 s [opt-env-conf-test] + LintErrorUndocumented ->
  9855. 1030.86 s [opt-env-conf-test] + [["missing ", functionChunk "help", "."]]
  9856. 1030.86 s [opt-env-conf-test] + LintErrorEmptySetting ->
  9857. 1030.86 s [opt-env-conf-test] + concat
  9858. 1030.86 s [opt-env-conf-test] + [ [ [ "This ",
  9859. 1030.86 s [opt-env-conf-test] + functionChunk "setting",
  9860. 1030.86 s [opt-env-conf-test] + " parses nothing."
  9861. 1030.86 s [opt-env-conf-test] + ]
  9862. 1030.86 s [opt-env-conf-test] + ],
  9863. 1030.86 s [opt-env-conf-test] + [ [ "Add an ",
  9864. 1030.86 s [opt-env-conf-test] + functionChunk "argument",
  9865. 1030.86 s [opt-env-conf-test] + ", ",
  9866. 1030.86 s [opt-env-conf-test] + functionChunk "switch",
  9867. 1030.86 s [opt-env-conf-test] + ", ",
  9868. 1030.86 s [opt-env-conf-test] + functionChunk "option",
  9869. 1030.86 s [opt-env-conf-test] + ", ",
  9870. 1030.86 s [opt-env-conf-test] + functionChunk "env",
  9871. 1030.86 s [opt-env-conf-test] + ", ",
  9872. 1030.86 s [opt-env-conf-test] + functionChunk "conf",
  9873. 1030.86 s [opt-env-conf-test] + ", or ",
  9874. 1030.86 s [opt-env-conf-test] + functionChunk "value",
  9875. 1030.86 s [opt-env-conf-test] + "."
  9876. 1030.86 s [opt-env-conf-test] + ]
  9877. 1030.86 s [opt-env-conf-test] + ]
  9878. 1030.86 s [opt-env-conf-test] + ]
  9879. 1030.86 s [opt-env-conf-test] + LintErrorDashInShort ->
  9880. 1030.86 s [opt-env-conf-test] + [ [functionChunk "short", " may not contain a '-'."],
  9881. 1030.86 s [opt-env-conf-test] + ["Found ", functionChunk "short", " '-'."]
  9882. 1030.86 s [opt-env-conf-test] + ]
  9883. 1030.86 s [opt-env-conf-test] + LintErrorDashInLong s ->
  9884. 1030.86 s [opt-env-conf-test] + [ [functionChunk "long", " may not start with a '-'."],
  9885. 1030.86 s [opt-env-conf-test] + ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  9886. 1030.86 s [opt-env-conf-test] + [ "Try ",
  9887. 1030.86 s [opt-env-conf-test] + functionChunk "long",
  9888. 1030.86 s [opt-env-conf-test] + " ",
  9889. 1030.86 s [opt-env-conf-test] + chunk $
  9890. 1030.86 s [opt-env-conf-test] + T.pack $
  9891. 1030.86 s [opt-env-conf-test] + show $
  9892. 1030.86 s [opt-env-conf-test] + let go = \case
  9893. 1030.86 s [opt-env-conf-test] + [] -> []
  9894. 1030.86 s [opt-env-conf-test] + '-' : cs -> go cs
  9895. 1030.86 s [opt-env-conf-test] + c : cs -> c : cs
  9896. 1030.86 s [opt-env-conf-test] + in go $ NE.toList s,
  9897. 1030.86 s [opt-env-conf-test] + " instead."
  9898. 1030.86 s [opt-env-conf-test] + ]
  9899. 1030.86 s [opt-env-conf-test] + ]
  9900. 1030.86 s [opt-env-conf-test] + LintErrorNoReaderForArgument ->
  9901. 1030.86 s [opt-env-conf-test] + [ [ functionChunk "argument",
  9902. 1030.86 s [opt-env-conf-test] + " has no ",
  9903. 1030.86 s [opt-env-conf-test] + functionChunk "reader",
  9904. 1030.86 s [opt-env-conf-test] + "."
  9905. 1030.86 s [opt-env-conf-test] + ]
  9906. 1030.86 s [opt-env-conf-test] + ]
  9907. 1030.86 s [opt-env-conf-test] + LintErrorNoMetavarForArgument ->
  9908. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "argument",
  9909. 1030.87 s [opt-env-conf-test] + " has no ",
  9910. 1030.87 s [opt-env-conf-test] + functionChunk "metavar",
  9911. 1030.87 s [opt-env-conf-test] + "."
  9912. 1030.87 s [opt-env-conf-test] + ]
  9913. 1030.87 s [opt-env-conf-test] + ]
  9914. 1030.87 s [opt-env-conf-test] + LintErrorNoReaderForOption ->
  9915. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "option",
  9916. 1030.87 s [opt-env-conf-test] + " or ",
  9917. 1030.87 s [opt-env-conf-test] + functionChunk "name",
  9918. 1030.87 s [opt-env-conf-test] + " has no ",
  9919. 1030.87 s [opt-env-conf-test] + functionChunk "reader",
  9920. 1030.87 s [opt-env-conf-test] + "."
  9921. 1030.87 s [opt-env-conf-test] + ]
  9922. 1030.87 s [opt-env-conf-test] + ]
  9923. 1030.87 s [opt-env-conf-test] + LintErrorNoDashedForOption ->
  9924. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "option",
  9925. 1030.87 s [opt-env-conf-test] + " has no ",
  9926. 1030.87 s [opt-env-conf-test] + functionChunk "long",
  9927. 1030.87 s [opt-env-conf-test] + " or ",
  9928. 1030.87 s [opt-env-conf-test] + functionChunk "short",
  9929. 1030.87 s [opt-env-conf-test] + "."
  9930. 1030.87 s [opt-env-conf-test] + ]
  9931. 1030.87 s [opt-env-conf-test] + ]
  9932. 1030.87 s [opt-env-conf-test] + LintErrorNoMetavarForOption ->
  9933. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "option",
  9934. 1030.87 s [opt-env-conf-test] + " or ",
  9935. 1030.87 s [opt-env-conf-test] + functionChunk "name",
  9936. 1030.87 s [opt-env-conf-test] + " has no ",
  9937. 1030.87 s [opt-env-conf-test] + functionChunk "metavar",
  9938. 1030.87 s [opt-env-conf-test] + "."
  9939. 1030.87 s [opt-env-conf-test] + ]
  9940. 1030.87 s [opt-env-conf-test] + ]
  9941. 1030.87 s [opt-env-conf-test] + LintErrorNoDashedForSwitch ->
  9942. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "switch",
  9943. 1030.87 s [opt-env-conf-test] + " has no ",
  9944. 1030.87 s [opt-env-conf-test] + functionChunk "long",
  9945. 1030.87 s [opt-env-conf-test] + " or ",
  9946. 1030.87 s [opt-env-conf-test] + functionChunk "short",
  9947. 1030.87 s [opt-env-conf-test] + "."
  9948. 1030.87 s [opt-env-conf-test] + ]
  9949. 1030.87 s [opt-env-conf-test] + ]
  9950. 1030.87 s [opt-env-conf-test] + LintErrorNoOptionOrSwitchForDashed ->
  9951. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "long",
  9952. 1030.87 s [opt-env-conf-test] + " or ",
  9953. 1030.87 s [opt-env-conf-test] + functionChunk "short",
  9954. 1030.87 s [opt-env-conf-test] + " has no ",
  9955. 1030.87 s [opt-env-conf-test] + functionChunk "option",
  9956. 1030.87 s [opt-env-conf-test] + " or ",
  9957. 1030.87 s [opt-env-conf-test] + functionChunk "switch",
  9958. 1030.87 s [opt-env-conf-test] + "."
  9959. 1030.87 s [opt-env-conf-test] + ]
  9960. 1030.87 s [opt-env-conf-test] + ]
  9961. 1030.87 s [opt-env-conf-test] + LintErrorNoReaderForEnvVar ->
  9962. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "env",
  9963. 1030.87 s [opt-env-conf-test] + " or ",
  9964. 1030.87 s [opt-env-conf-test] + functionChunk "name",
  9965. 1030.87 s [opt-env-conf-test] + " has no ",
  9966. 1030.87 s [opt-env-conf-test] + functionChunk "reader",
  9967. 1030.87 s [opt-env-conf-test] + "."
  9968. 1030.87 s [opt-env-conf-test] + ]
  9969. 1030.87 s [opt-env-conf-test] + ]
  9970. 1030.87 s [opt-env-conf-test] + LintErrorNoMetavarForEnvVar ->
  9971. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "env",
  9972. 1030.87 s [opt-env-conf-test] + " or ",
  9973. 1030.87 s [opt-env-conf-test] + functionChunk "name",
  9974. 1030.87 s [opt-env-conf-test] + " has no ",
  9975. 1030.87 s [opt-env-conf-test] + functionChunk "metavar",
  9976. 1030.87 s [opt-env-conf-test] + "."
  9977. 1030.87 s [opt-env-conf-test] + ]
  9978. 1030.87 s [opt-env-conf-test] + ]
  9979. 1030.87 s [opt-env-conf-test] + LintErrorNoCommands ->
  9980. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "commands",
  9981. 1030.87 s [opt-env-conf-test] + " was called with an empty list."
  9982. 1030.87 s [opt-env-conf-test] + ]
  9983. 1030.87 s [opt-env-conf-test] + ]
  9984. 1030.87 s [opt-env-conf-test] + LintErrorUnknownDefaultCommand c ->
  9985. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "defaultCommand",
  9986. 1030.87 s [opt-env-conf-test] + " was called with an unknown command: ",
  9987. 1030.87 s [opt-env-conf-test] + commandChunk c
  9988. 1030.87 s [opt-env-conf-test] + ]
  9989. 1030.87 s [opt-env-conf-test] + ]
  9990. 1030.87 s [opt-env-conf-test] + LintErrorUnreadableExample e ->
  9991. 1030.87 s [opt-env-conf-test] + [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  9992. 1030.87 s [opt-env-conf-test] + ["Example: ", chunk $ T.pack e]
  9993. 1030.87 s [opt-env-conf-test] + ]
  9994. 1030.87 s [opt-env-conf-test] + LintErrorConfigWithoutLoad ->
  9995. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "conf",
  9996. 1030.87 s [opt-env-conf-test] + " or ",
  9997. 1030.87 s [opt-env-conf-test] + functionChunk "name",
  9998. 1030.87 s [opt-env-conf-test] + " was called with no way to load configuration."
  9999. 1030.87 s [opt-env-conf-test] + ],
  10000. 1030.87 s [opt-env-conf-test] + [ "You can load configuration with ",
  10001. 1030.87 s [opt-env-conf-test] + functionChunk "withConfig",
  10002. 1030.87 s [opt-env-conf-test] + ", or explicitly not load any configuration with ",
  10003. 1030.87 s [opt-env-conf-test] + functionChunk "withoutConfig",
  10004. 1030.87 s [opt-env-conf-test] + "."
  10005. 1030.87 s [opt-env-conf-test] + ]
  10006. 1030.87 s [opt-env-conf-test] + ]
  10007. 1030.87 s [opt-env-conf-test] + LintErrorManyInfinite ->
  10008. 1030.87 s [opt-env-conf-test] + [ [ functionChunk "many",
  10009. 1030.87 s [opt-env-conf-test] + " or ",
  10010. 1030.87 s [opt-env-conf-test] + functionChunk "some"
  10011. 1030.87 s [opt-env-conf-test] +]
  10012. 1030.87 s [opt-env-conf-test]
  10013. 1030.87 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  10014. 1030.87 s [opt-env-conf-test] lintParser =
  10015. 1030.87 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
  10016. 1030.87 s [opt-env-conf-test] @@ -560,7 +560,7 @@
  10017. 1030.87 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10018. 1030.87 s [opt-env-conf-test] ppIndent $ go p'
  10019. 1030.87 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10020. 1030.87 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10021. 1030.87 s [opt-env-conf-test] + debug []
  10022. 1030.87 s [opt-env-conf-test] ppIndent $ go p'
  10023. 1030.87 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10024. 1030.87 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10025. 1030.87 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
  10026. 1030.87 s [opt-env-conf-test] @@ -560,7 +560,7 @@
  10027. 1030.87 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10028. 1030.87 s [opt-env-conf-test] ppIndent $ go p'
  10029. 1030.87 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10030. 1030.87 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10031. 1030.87 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10032. 1030.87 s [opt-env-conf-test] ppIndent $ go p'
  10033. 1030.87 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10034. 1030.87 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10035. 1030.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
  10036. 1030.87 s [opt-env-conf-test] @@ -584,16 +584,16 @@
  10037. 1030.87 s [opt-env-conf-test] debug ["No argument found for choosing a command."]
  10038. 1030.87 s [opt-env-conf-test] pure Nothing
  10039. 1030.87 s [opt-env-conf-test] Just s -> do
  10040. 1030.87 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  10041. 1030.87 s [opt-env-conf-test] - Nothing -> do
  10042. 1030.87 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10043. 1030.87 s [opt-env-conf-test] - pure Nothing
  10044. 1030.87 s [opt-env-conf-test] - Just c -> do
  10045. 1030.87 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  10046. 1030.87 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  10047. 1030.87 s [opt-env-conf-test] - pure $ case mRes of
  10048. 1030.87 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  10049. 1030.87 s [opt-env-conf-test] - Just res -> pure res
  10050. 1030.87 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  10051. 1030.87 s [opt-env-conf-test] + Nothing -> do
  10052. 1030.87 s [opt-env-conf-test] + debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10053. 1030.87 s [opt-env-conf-test] + pure Nothing
  10054. 1030.87 s [opt-env-conf-test] + Just c -> do
  10055. 1030.87 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  10056. 1030.87 s [opt-env-conf-test] + mRes <- go' (commandArg c : path) $ commandParser c
  10057. 1030.87 s [opt-env-conf-test] + pure $ case mRes of
  10058. 1030.87 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  10059. 1030.87 s [opt-env-conf-test] + Just res -> pure res
  10060. 1030.87 s [opt-env-conf-test]
  10061. 1030.87 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  10062. 1030.87 s [opt-env-conf-test] deriving
  10063. 1030.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
  10064. 1030.87 s [opt-env-conf-test] @@ -487,9 +487,9 @@
  10065. 1030.87 s [opt-env-conf-test] Right a -> Right a
  10066. 1030.87 s [opt-env-conf-test] go' errs = \case
  10067. 1030.87 s [opt-env-conf-test] [] -> Left errs
  10068. 1030.87 s [opt-env-conf-test] - (r : rl) -> case runReader r s of
  10069. 1030.87 s [opt-env-conf-test] - Left err -> go' (err <| errs) rl
  10070. 1030.87 s [opt-env-conf-test] - Right a -> Right a
  10071. 1033.09 s [opt-env-conf-test] + (r : rl) -> case runReader r s of
  10072. 1033.09 s [opt-env-conf-test] + Left err -> go' (err <| errs) rl
  10073. 1033.09 s [opt-env-conf-test] + Right a -> Right a
  10074. 1033.39 s [opt-env-conf-test]
  10075. 1033.39 s [opt-env-conf-test] runHelpParser ::
  10076. 1033.39 s [opt-env-conf-test] -- DebugMode
  10077. 1033.39 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
  10078. 1033.39 s [opt-env-conf-test] @@ -579,21 +579,21 @@
  10079. 1033.39 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  10080. 1033.39 s [opt-env-conf-test] ppIndent $ do
  10081. 1033.39 s [opt-env-conf-test] mS <- ppArg
  10082. 1033.39 s [opt-env-conf-test] - case mS of
  10083. 1033.39 s [opt-env-conf-test] - Nothing -> do
  10084. 1033.39 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  10085. 1033.39 s [opt-env-conf-test] - pure Nothing
  10086. 1033.39 s [opt-env-conf-test] - Just s -> do
  10087. 1033.39 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  10088. 1033.39 s [opt-env-conf-test] - Nothing -> do
  10089. 1033.39 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10090. 1033.39 s [opt-env-conf-test] - pure Nothing
  10091. 1033.39 s [opt-env-conf-test] - Just c -> do
  10092. 1033.39 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  10093. 1033.39 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  10094. 1033.39 s [opt-env-conf-test] - pure $ case mRes of
  10095. 1033.39 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  10096. 1033.39 s [opt-env-conf-test] - Just res -> pure res
  10097. 1033.39 s [opt-env-conf-test] + case mS of
  10098. 1033.39 s [opt-env-conf-test] + Nothing -> do
  10099. 1033.39 s [opt-env-conf-test] + debug ["No argument found for choosing a command."]
  10100. 1033.39 s [opt-env-conf-test] + pure Nothing
  10101. 1033.39 s [opt-env-conf-test] + Just s -> do
  10102. 1033.39 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  10103. 1033.40 s [opt-env-conf-test] + Nothing -> do
  10104. 1033.40 s [opt-env-conf-test] + debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10105. 1033.40 s [opt-env-conf-test] + pure Nothing
  10106. 1033.40 s [opt-env-conf-test] + Just c -> do
  10107. 1033.40 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  10108. 1033.40 s [opt-env-conf-test] + mRes <- go' (commandArg c : path) $ commandParser c
  10109. 1033.40 s [opt-env-conf-test] + pure $ case mRes of
  10110. 1033.40 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  10111. 1033.40 s [opt-env-conf-test] + Just res -> pure res
  10112. 1033.40 s [opt-env-conf-test]
  10113. 1033.40 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  10114. 1033.40 s [opt-env-conf-test] deriving
  10115. 1033.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
  10116. 1033.40 s [opt-env-conf-test] @@ -579,21 +579,21 @@
  10117. 1033.40 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  10118. 1033.40 s [opt-env-conf-test] ppIndent $ do
  10119. 1033.40 s [opt-env-conf-test] mS <- ppArg
  10120. 1033.40 s [opt-env-conf-test] - case mS of
  10121. 1033.40 s [opt-env-conf-test] - Nothing -> do
  10122. 1033.40 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  10123. 1033.40 s [opt-env-conf-test] - pure Nothing
  10124. 1033.40 s [opt-env-conf-test] - Just s -> do
  10125. 1033.40 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  10126. 1033.40 s [opt-env-conf-test] - Nothing -> do
  10127. 1033.40 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10128. 1033.40 s [opt-env-conf-test] - pure Nothing
  10129. 1033.40 s [opt-env-conf-test] - Just c -> do
  10130. 1033.40 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  10131. 1033.40 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  10132. 1033.40 s [opt-env-conf-test] - pure $ case mRes of
  10133. 1033.40 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  10134. 1033.40 s [opt-env-conf-test] - Just res -> pure res
  10135. 1033.40 s [opt-env-conf-test] + case mS of
  10136. 1033.40 s [opt-env-conf-test] + Nothing -> do
  10137. 1033.40 s [opt-env-conf-test] + debug ["No argument found for choosing a command."]
  10138. 1033.40 s [opt-env-conf-test] + pure Nothing
  10139. 1033.40 s [opt-env-conf-test] + Just s -> do
  10140. 1033.40 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  10141. 1033.40 s [opt-env-conf-test] + Nothing -> do
  10142. 1033.40 s [opt-env-conf-test] + debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10143. 1033.40 s [opt-env-conf-test] + pure Nothing
  10144. 1033.40 s [opt-env-conf-test] + Just c -> do
  10145. 1033.40 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  10146. 1033.40 s [opt-env-conf-test] + mRes <- go' (commandArg c : path) $ commandParser c
  10147. 1033.40 s [opt-env-conf-test] + pure $ case mRes of
  10148. 1033.40 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  10149. 1033.40 s [opt-env-conf-test] + Just res -> pure res
  10150. 1033.40 s [opt-env-conf-test]
  10151. 1033.40 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  10152. 1033.40 s [opt-env-conf-test] deriving
  10153. 1033.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
  10154. 1033.40 s [opt-env-conf-test] @@ -460,13 +460,13 @@
  10155. 1033.40 s [opt-env-conf-test] PP a ->
  10156. 1033.40 s [opt-env-conf-test] PP a
  10157. 1033.40 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  10158. 1033.40 s [opt-env-conf-test] - case missingCapabilities capabilities requiredCapabilities of
  10159. 1033.40 s [opt-env-conf-test] - Just missings -> do
  10160. 1033.40 s [opt-env-conf-test] - debug $
  10161. 1033.40 s [opt-env-conf-test] - "Missing capabilities: "
  10162. 1033.40 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  10163. 1033.40 s [opt-env-conf-test] - ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10164. 1033.40 s [opt-env-conf-test] - Nothing -> func
  10165. 1033.40 s [opt-env-conf-test] + case missingCapabilities capabilities requiredCapabilities of
  10166. 1033.40 s [opt-env-conf-test] + Just missings -> do
  10167. 1033.40 s [opt-env-conf-test] + debug $
  10168. 1033.40 s [opt-env-conf-test] + "Missing capabilities: "
  10169. 1033.41 s [opt-env-conf-test] + : capabilitiesChunks (Set.fromList (NE.toList missings))
  10170. 1033.41 s [opt-env-conf-test] + ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10171. 1033.41 s [opt-env-conf-test] + Nothing -> func
  10172. 1033.41 s [opt-env-conf-test]
  10173. 1033.41 s [opt-env-conf-test] data ParseResult a
  10174. 1033.41 s [opt-env-conf-test] = NotRun
  10175. 1033.41 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:464:22-66
  10176. 1033.41 s [opt-env-conf-test] @@ -461,11 +461,11 @@
  10177. 1033.41 s [opt-env-conf-test] PP a
  10178. 1033.41 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  10179. 1033.41 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  10180. 1033.41 s [opt-env-conf-test] - Just missings -> do
  10181. 1033.41 s [opt-env-conf-test] - debug $
  10182. 1033.41 s [opt-env-conf-test] - "Missing capabilities: "
  10183. 1033.41 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  10184. 1033.41 s [opt-env-conf-test] - ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10185. 1033.41 s [opt-env-conf-test] + Just missings -> do
  10186. 1033.41 s [opt-env-conf-test] + debug $
  10187. 1033.41 s [opt-env-conf-test] + "Missing capabilities: "
  10188. 1033.41 s [opt-env-conf-test] + : capabilitiesChunks (Set.fromList (NE.toList missings))
  10189. 1033.41 s [opt-env-conf-test] + ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10190. 1033.41 s [opt-env-conf-test] Nothing -> func
  10191. 1033.41 s [opt-env-conf-test]
  10192. 1033.41 s [opt-env-conf-test] data ParseResult a
  10193. 1033.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
  10194. 1033.41 s [opt-env-conf-test] @@ -94,9 +94,9 @@
  10195. 1033.41 s [opt-env-conf-test] pure $
  10196. 1033.41 s [opt-env-conf-test] Left $
  10197. 1033.41 s [opt-env-conf-test] -- Only show source locations in debug mode.
  10198. 1033.41 s [opt-env-conf-test] - let f = case mDebugMode of
  10199. 1033.41 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10200. 1033.41 s [opt-env-conf-test] - Just _ -> id
  10201. 1033.41 s [opt-env-conf-test] + let f = case mDebugMode of
  10202. 1033.41 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10203. 1033.41 s [opt-env-conf-test] + Just _ -> id
  10204. 1033.41 s [opt-env-conf-test] in f firstErrors
  10205. 1033.41 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  10206. 1033.41 s [opt-env-conf-test] Success a -> pure (Right a)
  10207. 1033.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  10208. 1033.41 s [opt-env-conf-test] @@ -474,9 +474,9 @@
  10209. 1033.41 s [opt-env-conf-test] | Found a
  10210. 1033.41 s [opt-env-conf-test]
  10211. 1033.41 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  10212. 1033.41 s [opt-env-conf-test] -requireReaders rs = case NE.nonEmpty rs of
  10213. 1033.41 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  10214. 1033.41 s [opt-env-conf-test] - Just ne -> pure ne
  10215. 1033.41 s [opt-env-conf-test] +requireReaders rs = case NE.nonEmpty rs of
  10216. 1033.41 s [opt-env-conf-test] + Nothing -> ppError Nothing ParseErrorNoReaders
  10217. 1033.41 s [opt-env-conf-test] + Just ne -> pure ne
  10218. 1033.41 s [opt-env-conf-test]
  10219. 1033.41 s [opt-env-conf-test] -- Try the readers in order
  10220. 1033.41 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  10221. 1033.41 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Run.hs:75:27-28
  10222. 1033.41 s [opt-env-conf-test] @@ -72,7 +72,7 @@
  10223. 1033.41 s [opt-env-conf-test] { ppEnvEnv = envVars,
  10224. 1033.41 s [opt-env-conf-test] ppEnvConf = mConfig,
  10225. 1033.41 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  10226. 1033.41 s [opt-env-conf-test] - ppEnvIndent = 0
  10227. 1033.41 s [opt-env-conf-test] + ppEnvIndent = 1
  10228. 1033.41 s [opt-env-conf-test] }
  10229. 1033.41 s [opt-env-conf-test] let go' = do
  10230. 1033.41 s [opt-env-conf-test] result <- go parser
  10231. 1033.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
  10232. 1033.41 s [opt-env-conf-test] @@ -482,9 +482,9 @@
  10233. 1033.41 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  10234. 1033.41 s [opt-env-conf-test] tryReaders rs s = left NE.reverse $ go rs
  10235. 1033.41 s [opt-env-conf-test] where
  10236. 1033.41 s [opt-env-conf-test] - go (r :| rl) = case runReader r s of
  10237. 1033.41 s [opt-env-conf-test] - Left err -> go' (err :| []) rl
  10238. 1033.41 s [opt-env-conf-test] - Right a -> Right a
  10239. 1033.41 s [opt-env-conf-test] + go (r :| rl) = case runReader r s of
  10240. 1033.41 s [opt-env-conf-test] + Left err -> go' (err :| []) rl
  10241. 1033.41 s [opt-env-conf-test] + Right a -> Right a
  10242. 1033.41 s [opt-env-conf-test] go' errs = \case
  10243. 1033.41 s [opt-env-conf-test] [] -> Left errs
  10244. 1033.41 s [opt-env-conf-test] (r : rl) -> case runReader r s of
  10245. 1033.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
  10246. 1033.41 s [opt-env-conf-test] @@ -77,9 +77,9 @@
  10247. 1033.41 s [opt-env-conf-test] let go' = do
  10248. 1033.41 s [opt-env-conf-test] result <- go parser
  10249. 1033.41 s [opt-env-conf-test] leftoverArgs <- gets ppStateArgs
  10250. 1033.41 s [opt-env-conf-test] - case recogniseLeftovers leftoverArgs of
  10251. 1033.41 s [opt-env-conf-test] - Nothing -> pure result
  10252. 1033.41 s [opt-env-conf-test] - Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10253. 1033.41 s [opt-env-conf-test] + case recogniseLeftovers leftoverArgs of
  10254. 1033.41 s [opt-env-conf-test] + Nothing -> pure result
  10255. 1033.41 s [opt-env-conf-test] + Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10256. 1033.41 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10257. 1033.41 s [opt-env-conf-test] case mTup of
  10258. 1033.41 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  10259. 1033.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
  10260. 1033.41 s [opt-env-conf-test] @@ -77,9 +77,9 @@
  10261. 1033.41 s [opt-env-conf-test] let go' = do
  10262. 1033.41 s [opt-env-conf-test] result <- go parser
  10263. 1033.97 s [opt-env-conf-test] leftoverArgs <- gets ppStateArgs
  10264. 1033.97 s [opt-env-conf-test] - case recogniseLeftovers leftoverArgs of
  10265. 1033.97 s [opt-env-conf-test] - Nothing -> pure result
  10266. 1033.97 s [opt-env-conf-test] - Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10267. 1033.97 s [opt-env-conf-test] + case recogniseLeftovers leftoverArgs of
  10268. 1033.97 s [opt-env-conf-test] + Nothing -> pure result
  10269. 1033.97 s [opt-env-conf-test] + Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10270. 1033.97 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10271. 1033.97 s [opt-env-conf-test] case mTup of
  10272. 1033.97 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  10273. 1033.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
  10274. 1033.97 s [opt-env-conf-test] @@ -460,13 +460,13 @@
  10275. 1033.97 s [opt-env-conf-test] PP a ->
  10276. 1033.97 s [opt-env-conf-test] PP a
  10277. 1033.97 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  10278. 1033.97 s [opt-env-conf-test] - case missingCapabilities capabilities requiredCapabilities of
  10279. 1033.97 s [opt-env-conf-test] - Just missings -> do
  10280. 1033.97 s [opt-env-conf-test] - debug $
  10281. 1033.97 s [opt-env-conf-test] - "Missing capabilities: "
  10282. 1033.97 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  10283. 1033.97 s [opt-env-conf-test] - ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10284. 1033.97 s [opt-env-conf-test] - Nothing -> func
  10285. 1033.97 s [opt-env-conf-test] + case missingCapabilities capabilities requiredCapabilities of
  10286. 1033.97 s [opt-env-conf-test] + Just missings -> do
  10287. 1033.97 s [opt-env-conf-test] + debug $
  10288. 1033.97 s [opt-env-conf-test] + "Missing capabilities: "
  10289. 1033.97 s [opt-env-conf-test] + : capabilitiesChunks (Set.fromList (NE.toList missings))
  10290. 1033.97 s [opt-env-conf-test] + ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  10291. 1033.97 s [opt-env-conf-test] + Nothing -> func
  10292. 1033.97 s [opt-env-conf-test]
  10293. 1033.97 s [opt-env-conf-test] data ParseResult a
  10294. 1033.97 s [opt-env-conf-test] = NotRun
  10295. 1033.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
  10296. 1033.97 s [opt-env-conf-test] @@ -482,9 +482,9 @@
  10297. 1033.97 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  10298. 1033.97 s [opt-env-conf-test] tryReaders rs s = left NE.reverse $ go rs
  10299. 1033.97 s [opt-env-conf-test] where
  10300. 1033.97 s [opt-env-conf-test] - go (r :| rl) = case runReader r s of
  10301. 1033.97 s [opt-env-conf-test] - Left err -> go' (err :| []) rl
  10302. 1033.97 s [opt-env-conf-test] - Right a -> Right a
  10303. 1033.97 s [opt-env-conf-test] + go (r :| rl) = case runReader r s of
  10304. 1033.97 s [opt-env-conf-test] + Left err -> go' (err :| []) rl
  10305. 1033.97 s [opt-env-conf-test] + Right a -> Right a
  10306. 1033.97 s [opt-env-conf-test] go' errs = \case
  10307. 1033.97 s [opt-env-conf-test] [] -> Left errs
  10308. 1033.97 s [opt-env-conf-test] (r : rl) -> case runReader r s of
  10309. 1033.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
  10310. 1033.97 s [opt-env-conf-test] @@ -566,7 +566,7 @@
  10311. 1033.97 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10312. 1033.97 s [opt-env-conf-test] ppIndent $ go p'
  10313. 1033.97 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10314. 1033.97 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10315. 1033.97 s [opt-env-conf-test] + debug []
  10316. 1033.97 s [opt-env-conf-test] ppIndent $ do
  10317. 1033.97 s [opt-env-conf-test] mNewConfig <- go pc
  10318. 1033.97 s [opt-env-conf-test] mRes <- go pa
  10319. 1033.97 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:568:44-43
  10320. 1033.97 s [opt-env-conf-test] @@ -565,12 +565,12 @@
  10321. 1033.97 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10322. 1033.97 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10323. 1033.98 s [opt-env-conf-test] ppIndent $ go p'
  10324. 1033.98 s [opt-env-conf-test] - ParserWithConfig mLoc pc pa -> do
  10325. 1033.98 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10326. 1033.98 s [opt-env-conf-test] - ppIndent $ do
  10327. 1033.98 s [opt-env-conf-test] - mNewConfig <- go pc
  10328. 1033.98 s [opt-env-conf-test] - mRes <- go pa
  10329. 1033.98 s [opt-env-conf-test] - pure $ mRes <|> mNewConfig -- Reverse order
  10330. 1033.98 s [opt-env-conf-test] + ParserWithConfig mLoc pc pa -> do
  10331. 1033.98 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10332. 1033.98 s [opt-env-conf-test] + ppIndent $ do
  10333. 1033.98 s [opt-env-conf-test] + mNewConfig <- go pc
  10334. 1033.98 s [opt-env-conf-test] + mRes <- go pa
  10335. 1033.98 s [opt-env-conf-test] + pure $ mRes <|> mNewConfig -- Reverse order
  10336. 1033.98 s [opt-env-conf-test] ParserSetting mLoc _ -> do
  10337. 1033.98 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  10338. 1033.98 s [opt-env-conf-test] pure Nothing
  10339. 1033.98 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:565:42-31
  10340. 1033.98 s [opt-env-conf-test] @@ -562,9 +562,9 @@
  10341. 1033.98 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10342. 1033.98 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10343. 1033.98 s [opt-env-conf-test] ppIndent $ go p'
  10344. 1033.98 s [opt-env-conf-test] - ParserCheck mLoc _ _ _ p' -> do
  10345. 1033.98 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10346. 1033.98 s [opt-env-conf-test] - ppIndent $ go p'
  10347. 1033.98 s [opt-env-conf-test] + ParserCheck mLoc _ _ _ p' -> do
  10348. 1033.98 s [opt-env-conf-test] + debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10349. 1033.98 s [opt-env-conf-test] + ppIndent $ go p'
  10350. 1033.98 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10351. 1033.98 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10352. 1033.98 s [opt-env-conf-test] ppIndent $ do
  10353. 1033.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
  10354. 1033.98 s [opt-env-conf-test] @@ -566,7 +566,7 @@
  10355. 1033.98 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10356. 1033.98 s [opt-env-conf-test] ppIndent $ go p'
  10357. 1033.98 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10358. 1033.98 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10359. 1033.98 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10360. 1033.98 s [opt-env-conf-test] ppIndent $ do
  10361. 1033.98 s [opt-env-conf-test] mNewConfig <- go pc
  10362. 1033.98 s [opt-env-conf-test] mRes <- go pa
  10363. 1033.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
  10364. 1033.98 s [opt-env-conf-test] @@ -584,16 +584,16 @@
  10365. 1033.98 s [opt-env-conf-test] debug ["No argument found for choosing a command."]
  10366. 1033.98 s [opt-env-conf-test] pure Nothing
  10367. 1033.98 s [opt-env-conf-test] Just s -> do
  10368. 1033.98 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  10369. 1033.98 s [opt-env-conf-test] - Nothing -> do
  10370. 1033.98 s [opt-env-conf-test] - debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10371. 1033.98 s [opt-env-conf-test] - pure Nothing
  10372. 1033.98 s [opt-env-conf-test] - Just c -> do
  10373. 1033.98 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  10374. 1033.98 s [opt-env-conf-test] - mRes <- go' (commandArg c : path) $ commandParser c
  10375. 1033.98 s [opt-env-conf-test] - pure $ case mRes of
  10376. 1033.98 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  10377. 1033.98 s [opt-env-conf-test] - Just res -> pure res
  10378. 1033.98 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  10379. 1033.98 s [opt-env-conf-test] + Nothing -> do
  10380. 1033.98 s [opt-env-conf-test] + debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
  10381. 1033.98 s [opt-env-conf-test] + pure Nothing
  10382. 1033.98 s [opt-env-conf-test] + Just c -> do
  10383. 1033.98 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  10384. 1033.98 s [opt-env-conf-test] + mRes <- go' (commandArg c : path) $ commandParser c
  10385. 1033.98 s [opt-env-conf-test] + pure $ case mRes of
  10386. 1033.98 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  10387. 1033.98 s [opt-env-conf-test] + Just res -> pure res
  10388. 1033.98 s [opt-env-conf-test]
  10389. 1033.98 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  10390. 1033.98 s [opt-env-conf-test] deriving
  10391. 1033.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
  10392. 1033.98 s [opt-env-conf-test] @@ -487,9 +487,9 @@
  10393. 1033.98 s [opt-env-conf-test] Right a -> Right a
  10394. 1033.98 s [opt-env-conf-test] go' errs = \case
  10395. 1033.98 s [opt-env-conf-test] [] -> Left errs
  10396. 1033.98 s [opt-env-conf-test] - (r : rl) -> case runReader r s of
  10397. 1033.98 s [opt-env-conf-test] - Left err -> go' (err <| errs) rl
  10398. 1033.98 s [opt-env-conf-test] - Right a -> Right a
  10399. 1033.98 s [opt-env-conf-test] + (r : rl) -> case runReader r s of
  10400. 1033.98 s [opt-env-conf-test] + Left err -> go' (err <| errs) rl
  10401. 1033.98 s [opt-env-conf-test] + Right a -> Right a
  10402. 1033.98 s [opt-env-conf-test]
  10403. 1033.98 s [opt-env-conf-test] runHelpParser ::
  10404. 1033.98 s [opt-env-conf-test] -- DebugMode
  10405. 1033.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
  10406. 1033.98 s [opt-env-conf-test] @@ -566,7 +566,8 @@
  10407. 1033.98 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10408. 1033.98 s [opt-env-conf-test] ppIndent $ go p'
  10409. 1033.98 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10410. 1033.98 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10411. 1033.98 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": "
  10412. 1033.98 s [opt-env-conf-test] +]
  10413. 1033.98 s [opt-env-conf-test] ppIndent $ do
  10414. 1033.98 s [opt-env-conf-test] mNewConfig <- go pc
  10415. 1033.98 s [opt-env-conf-test] mRes <- go pa
  10416. 1033.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
  10417. 1033.98 s [opt-env-conf-test] @@ -591,9 +591,9 @@
  10418. 1033.98 s [opt-env-conf-test] Just c -> do
  10419. 1033.98 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  10420. 1033.98 s [opt-env-conf-test] mRes <- go' (commandArg c : path) $ commandParser c
  10421. 1033.98 s [opt-env-conf-test] - pure $ case mRes of
  10422. 1033.98 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  10423. 1033.98 s [opt-env-conf-test] - Just res -> pure res
  10424. 1033.98 s [opt-env-conf-test] + pure $ case mRes of
  10425. 1033.98 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  10426. 1033.98 s [opt-env-conf-test] + Just res -> pure res
  10427. 1033.98 s [opt-env-conf-test]
  10428. 1033.98 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  10429. 1033.98 s [opt-env-conf-test] deriving
  10430. 1033.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
  10431. 1033.98 s [opt-env-conf-test] @@ -563,7 +563,8 @@
  10432. 1033.98 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10433. 1033.98 s [opt-env-conf-test] ppIndent $ go p'
  10434. 1033.98 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10435. 1033.98 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10436. 1033.98 s [opt-env-conf-test] + debug [syntaxChunk "Parser with check", ": "
  10437. 1033.98 s [opt-env-conf-test] +]
  10438. 1033.98 s [opt-env-conf-test] ppIndent $ go p'
  10439. 1033.98 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10440. 1033.98 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10441. 1033.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  10442. 1033.98 s [opt-env-conf-test] @@ -114,7 +114,8 @@
  10443. 1033.98 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  10444. 1033.98 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  10445. 1033.98 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10446. 1034.33 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10447. 1034.33 s [opt-env-conf-test] + debug [syntaxChunk "Empty", ": "
  10448. 1034.33 s [opt-env-conf-test] +]
  10449. 1034.33 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10450. 1034.33 s [opt-env-conf-test] ParserSelect fe ff -> do
  10451. 1034.33 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10452. 1034.33 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  10453. 1034.33 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  10454. 1034.33 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  10455. 1034.33 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  10456. 1034.33 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10457. 1034.33 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10458. 1034.33 s [opt-env-conf-test] + debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10459. 1034.33 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10460. 1034.34 s [opt-env-conf-test] ParserSelect fe ff -> do
  10461. 1034.34 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10462. 1034.34 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:116:27-37
  10463. 1034.34 s [opt-env-conf-test] @@ -113,9 +113,9 @@
  10464. 1034.34 s [opt-env-conf-test] ParserAp ff fa -> do
  10465. 1034.34 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  10466. 1034.34 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  10467. 1034.34 s [opt-env-conf-test] - ParserEmpty mLoc -> do
  10468. 1034.34 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10469. 1034.34 s [opt-env-conf-test] - ppError mLoc ParseErrorEmpty
  10470. 1034.34 s [opt-env-conf-test] + ParserEmpty mLoc -> do
  10471. 1034.34 s [opt-env-conf-test] + debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10472. 1034.34 s [opt-env-conf-test] + ppError mLoc ParseErrorEmpty
  10473. 1034.34 s [opt-env-conf-test] ParserSelect fe ff -> do
  10474. 1034.34 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10475. 1034.34 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  10476. 1034.34 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  10477. 1034.34 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  10478. 1034.34 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  10479. 1034.34 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  10480. 1034.34 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10481. 1034.34 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10482. 1034.34 s [opt-env-conf-test] + debug []
  10483. 1034.34 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10484. 1034.34 s [opt-env-conf-test] ParserSelect fe ff -> do
  10485. 1034.34 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  10486. 1034.34 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  10487. 1034.34 s [opt-env-conf-test] @@ -81,27 +81,27 @@
  10488. 1034.34 s [opt-env-conf-test] Nothing -> pure result
  10489. 1034.34 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10490. 1034.34 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10491. 1034.34 s [opt-env-conf-test] - case mTup of
  10492. 1034.34 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  10493. 1034.34 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  10494. 1034.34 s [opt-env-conf-test] - Success a -> pure (Right a)
  10495. 1034.34 s [opt-env-conf-test] - Failure firstErrors ->
  10496. 1034.34 s [opt-env-conf-test] - let goNexts ns = do
  10497. 1034.34 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  10498. 1034.34 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  10499. 1034.34 s [opt-env-conf-test] - case mNext of
  10500. 1034.34 s [opt-env-conf-test] - Nothing ->
  10501. 1034.34 s [opt-env-conf-test] - pure $
  10502. 1034.34 s [opt-env-conf-test] - Left $
  10503. 1034.34 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10504. 1034.34 s [opt-env-conf-test] - let f = case mDebugMode of
  10505. 1034.34 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10506. 1034.34 s [opt-env-conf-test] - Just _ -> id
  10507. 1034.34 s [opt-env-conf-test] - in f firstErrors
  10508. 1034.34 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10509. 1034.34 s [opt-env-conf-test] - Success a -> pure (Right a)
  10510. 1034.34 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10511. 1034.34 s [opt-env-conf-test] - in goNexts nexts
  10512. 1034.34 s [opt-env-conf-test] + case mTup of
  10513. 1034.34 s [opt-env-conf-test] + Nothing -> error "TODO figure out when this list can be empty"
  10514. 1034.34 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  10515. 1034.34 s [opt-env-conf-test] + Success a -> pure (Right a)
  10516. 1034.34 s [opt-env-conf-test] + Failure firstErrors ->
  10517. 1034.34 s [opt-env-conf-test] + let goNexts ns = do
  10518. 1034.34 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  10519. 1034.34 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  10520. 1034.34 s [opt-env-conf-test] + case mNext of
  10521. 1034.34 s [opt-env-conf-test] + Nothing ->
  10522. 1034.34 s [opt-env-conf-test] + pure $
  10523. 1034.34 s [opt-env-conf-test] + Left $
  10524. 1034.34 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10525. 1034.34 s [opt-env-conf-test] + let f = case mDebugMode of
  10526. 1034.34 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10527. 1034.34 s [opt-env-conf-test] + Just _ -> id
  10528. 1034.34 s [opt-env-conf-test] + in f firstErrors
  10529. 1034.34 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10530. 1034.34 s [opt-env-conf-test] + Success a -> pure (Right a)
  10531. 1034.34 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10532. 1034.34 s [opt-env-conf-test] + in goNexts nexts
  10533. 1034.34 s [opt-env-conf-test] where
  10534. 1034.34 s [opt-env-conf-test] go ::
  10535. 1034.34 s [opt-env-conf-test] Parser a ->
  10536. 1034.35 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
  10537. 1034.35 s [opt-env-conf-test] @@ -83,25 +83,25 @@
  10538. 1034.35 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10539. 1034.35 s [opt-env-conf-test] case mTup of
  10540. 1034.35 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  10541. 1034.35 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  10542. 1034.35 s [opt-env-conf-test] - Success a -> pure (Right a)
  10543. 1034.35 s [opt-env-conf-test] - Failure firstErrors ->
  10544. 1034.35 s [opt-env-conf-test] - let goNexts ns = do
  10545. 1034.35 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  10546. 1034.35 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  10547. 1034.35 s [opt-env-conf-test] - case mNext of
  10548. 1034.35 s [opt-env-conf-test] - Nothing ->
  10549. 1034.35 s [opt-env-conf-test] - pure $
  10550. 1034.35 s [opt-env-conf-test] - Left $
  10551. 1034.35 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10552. 1034.35 s [opt-env-conf-test] - let f = case mDebugMode of
  10553. 1034.35 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10554. 1034.35 s [opt-env-conf-test] - Just _ -> id
  10555. 1034.35 s [opt-env-conf-test] - in f firstErrors
  10556. 1034.35 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10557. 1034.35 s [opt-env-conf-test] - Success a -> pure (Right a)
  10558. 1034.35 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10559. 1034.35 s [opt-env-conf-test] - in goNexts nexts
  10560. 1034.35 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  10561. 1034.35 s [opt-env-conf-test] + Success a -> pure (Right a)
  10562. 1034.35 s [opt-env-conf-test] + Failure firstErrors ->
  10563. 1034.35 s [opt-env-conf-test] + let goNexts ns = do
  10564. 1034.35 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  10565. 1034.35 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  10566. 1034.35 s [opt-env-conf-test] + case mNext of
  10567. 1034.35 s [opt-env-conf-test] + Nothing ->
  10568. 1034.35 s [opt-env-conf-test] + pure $
  10569. 1034.35 s [opt-env-conf-test] + Left $
  10570. 1034.35 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10571. 1034.35 s [opt-env-conf-test] + let f = case mDebugMode of
  10572. 1034.35 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10573. 1034.35 s [opt-env-conf-test] + Just _ -> id
  10574. 1034.35 s [opt-env-conf-test] + in f firstErrors
  10575. 1034.35 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10576. 1034.35 s [opt-env-conf-test] + Success a -> pure (Right a)
  10577. 1034.35 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10578. 1034.35 s [opt-env-conf-test] + in goNexts nexts
  10579. 1034.35 s [opt-env-conf-test] where
  10580. 1034.35 s [opt-env-conf-test] go ::
  10581. 1034.35 s [opt-env-conf-test] Parser a ->
  10582. 1034.35 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
  10583. 1034.35 s [opt-env-conf-test] @@ -83,25 +83,25 @@
  10584. 1034.35 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10585. 1034.35 s [opt-env-conf-test] case mTup of
  10586. 1034.35 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  10587. 1034.35 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  10588. 1034.35 s [opt-env-conf-test] - Success a -> pure (Right a)
  10589. 1034.35 s [opt-env-conf-test] - Failure firstErrors ->
  10590. 1034.35 s [opt-env-conf-test] - let goNexts ns = do
  10591. 1034.35 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  10592. 1034.35 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  10593. 1034.35 s [opt-env-conf-test] - case mNext of
  10594. 1034.35 s [opt-env-conf-test] - Nothing ->
  10595. 1034.35 s [opt-env-conf-test] - pure $
  10596. 1034.35 s [opt-env-conf-test] - Left $
  10597. 1034.35 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10598. 1034.35 s [opt-env-conf-test] - let f = case mDebugMode of
  10599. 1034.35 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10600. 1034.35 s [opt-env-conf-test] - Just _ -> id
  10601. 1034.35 s [opt-env-conf-test] - in f firstErrors
  10602. 1034.35 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10603. 1034.35 s [opt-env-conf-test] - Success a -> pure (Right a)
  10604. 1034.35 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10605. 1034.35 s [opt-env-conf-test] - in goNexts nexts
  10606. 1034.35 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  10607. 1034.35 s [opt-env-conf-test] + Success a -> pure (Right a)
  10608. 1034.35 s [opt-env-conf-test] + Failure firstErrors ->
  10609. 1034.35 s [opt-env-conf-test] + let goNexts ns = do
  10610. 1034.35 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  10611. 1034.35 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  10612. 1034.35 s [opt-env-conf-test] + case mNext of
  10613. 1034.35 s [opt-env-conf-test] + Nothing ->
  10614. 1034.35 s [opt-env-conf-test] + pure $
  10615. 1034.35 s [opt-env-conf-test] + Left $
  10616. 1034.35 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10617. 1034.35 s [opt-env-conf-test] + let f = case mDebugMode of
  10618. 1034.35 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10619. 1034.35 s [opt-env-conf-test] + Just _ -> id
  10620. 1034.35 s [opt-env-conf-test] + in f firstErrors
  10621. 1034.35 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10622. 1034.35 s [opt-env-conf-test] + Success a -> pure (Right a)
  10623. 1034.35 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10624. 1034.35 s [opt-env-conf-test] + in goNexts nexts
  10625. 1034.35 s [opt-env-conf-test] where
  10626. 1034.35 s [opt-env-conf-test] go ::
  10627. 1034.35 s [opt-env-conf-test] Parser a ->
  10628. 1034.35 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  10629. 1034.35 s [opt-env-conf-test] @@ -81,27 +81,27 @@
  10630. 1034.35 s [opt-env-conf-test] Nothing -> pure result
  10631. 1034.35 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  10632. 1034.35 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  10633. 1034.35 s [opt-env-conf-test] - case mTup of
  10634. 1034.35 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  10635. 1034.35 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  10636. 1034.35 s [opt-env-conf-test] - Success a -> pure (Right a)
  10637. 1034.35 s [opt-env-conf-test] - Failure firstErrors ->
  10638. 1034.35 s [opt-env-conf-test] - let goNexts ns = do
  10639. 1034.35 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  10640. 1034.35 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  10641. 1034.35 s [opt-env-conf-test] - case mNext of
  10642. 1034.35 s [opt-env-conf-test] - Nothing ->
  10643. 1034.35 s [opt-env-conf-test] - pure $
  10644. 1034.35 s [opt-env-conf-test] - Left $
  10645. 1034.35 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10646. 1034.35 s [opt-env-conf-test] - let f = case mDebugMode of
  10647. 1034.35 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10648. 1034.35 s [opt-env-conf-test] - Just _ -> id
  10649. 1034.35 s [opt-env-conf-test] - in f firstErrors
  10650. 1034.35 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10651. 1036.63 s [opt-env-conf-test] - Success a -> pure (Right a)
  10652. 1036.63 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10653. 1036.63 s [opt-env-conf-test] - in goNexts nexts
  10654. 1036.63 s [opt-env-conf-test] + case mTup of
  10655. 1036.63 s [opt-env-conf-test] + Nothing -> error "TODO figure out when this list can be empty"
  10656. 1036.63 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  10657. 1036.63 s [opt-env-conf-test] + Success a -> pure (Right a)
  10658. 1036.63 s [opt-env-conf-test] + Failure firstErrors ->
  10659. 1036.64 s [opt-env-conf-test] + let goNexts ns = do
  10660. 1036.64 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  10661. 1036.64 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  10662. 1036.64 s [opt-env-conf-test] + case mNext of
  10663. 1036.64 s [opt-env-conf-test] + Nothing ->
  10664. 1036.64 s [opt-env-conf-test] + pure $
  10665. 1036.64 s [opt-env-conf-test] + Left $
  10666. 1036.64 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10667. 1036.64 s [opt-env-conf-test] + let f = case mDebugMode of
  10668. 1036.64 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10669. 1036.64 s [opt-env-conf-test] + Just _ -> id
  10670. 1036.64 s [opt-env-conf-test] + in f firstErrors
  10671. 1036.64 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10672. 1036.64 s [opt-env-conf-test] + Success a -> pure (Right a)
  10673. 1036.64 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10674. 1036.64 s [opt-env-conf-test] + in goNexts nexts
  10675. 1036.64 s [opt-env-conf-test] where
  10676. 1036.64 s [opt-env-conf-test] go ::
  10677. 1036.64 s [opt-env-conf-test] Parser a ->
  10678. 1036.64 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
  10679. 1036.64 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  10680. 1036.64 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10681. 1036.64 s [opt-env-conf-test] ppIndent $ go p'
  10682. 1036.64 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  10683. 1036.64 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10684. 1036.64 s [opt-env-conf-test] + debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10685. 1036.64 s [opt-env-conf-test] ppIndent $ go p'
  10686. 1036.64 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  10687. 1036.64 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  10688. 1036.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
  10689. 1036.64 s [opt-env-conf-test] @@ -89,18 +89,18 @@
  10690. 1036.64 s [opt-env-conf-test] let goNexts ns = do
  10691. 1036.64 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  10692. 1036.64 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  10693. 1036.64 s [opt-env-conf-test] - case mNext of
  10694. 1036.64 s [opt-env-conf-test] - Nothing ->
  10695. 1036.64 s [opt-env-conf-test] - pure $
  10696. 1036.64 s [opt-env-conf-test] - Left $
  10697. 1036.64 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10698. 1036.64 s [opt-env-conf-test] - let f = case mDebugMode of
  10699. 1036.64 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10700. 1036.64 s [opt-env-conf-test] - Just _ -> id
  10701. 1036.64 s [opt-env-conf-test] - in f firstErrors
  10702. 1036.64 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10703. 1036.64 s [opt-env-conf-test] - Success a -> pure (Right a)
  10704. 1036.64 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10705. 1036.64 s [opt-env-conf-test] + case mNext of
  10706. 1036.64 s [opt-env-conf-test] + Nothing ->
  10707. 1036.64 s [opt-env-conf-test] + pure $
  10708. 1036.64 s [opt-env-conf-test] + Left $
  10709. 1036.64 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10710. 1036.64 s [opt-env-conf-test] + let f = case mDebugMode of
  10711. 1036.64 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10712. 1036.64 s [opt-env-conf-test] + Just _ -> id
  10713. 1036.64 s [opt-env-conf-test] + in f firstErrors
  10714. 1036.64 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10715. 1036.64 s [opt-env-conf-test] + Success a -> pure (Right a)
  10716. 1036.64 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10717. 1036.64 s [opt-env-conf-test] in goNexts nexts
  10718. 1036.64 s [opt-env-conf-test] where
  10719. 1036.64 s [opt-env-conf-test] go ::
  10720. 1036.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
  10721. 1036.64 s [opt-env-conf-test] @@ -98,9 +98,9 @@
  10722. 1036.64 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  10723. 1036.64 s [opt-env-conf-test] Just _ -> id
  10724. 1036.64 s [opt-env-conf-test] in f firstErrors
  10725. 1036.64 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10726. 1036.64 s [opt-env-conf-test] - Success a -> pure (Right a)
  10727. 1036.64 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10728. 1036.64 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10729. 1036.64 s [opt-env-conf-test] + Success a -> pure (Right a)
  10730. 1036.64 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10731. 1036.64 s [opt-env-conf-test] in goNexts nexts
  10732. 1036.64 s [opt-env-conf-test] where
  10733. 1036.64 s [opt-env-conf-test] go ::
  10734. 1036.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
  10735. 1036.64 s [opt-env-conf-test] @@ -89,18 +89,18 @@
  10736. 1036.64 s [opt-env-conf-test] let goNexts ns = do
  10737. 1036.64 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  10738. 1036.64 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  10739. 1036.64 s [opt-env-conf-test] - case mNext of
  10740. 1036.64 s [opt-env-conf-test] - Nothing ->
  10741. 1036.64 s [opt-env-conf-test] - pure $
  10742. 1036.64 s [opt-env-conf-test] - Left $
  10743. 1036.64 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  10744. 1036.64 s [opt-env-conf-test] - let f = case mDebugMode of
  10745. 1036.64 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10746. 1036.64 s [opt-env-conf-test] - Just _ -> id
  10747. 1036.64 s [opt-env-conf-test] - in f firstErrors
  10748. 1036.64 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10749. 1036.64 s [opt-env-conf-test] - Success a -> pure (Right a)
  10750. 1036.64 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10751. 1036.64 s [opt-env-conf-test] + case mNext of
  10752. 1036.64 s [opt-env-conf-test] + Nothing ->
  10753. 1036.64 s [opt-env-conf-test] + pure $
  10754. 1036.64 s [opt-env-conf-test] + Left $
  10755. 1036.64 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  10756. 1036.64 s [opt-env-conf-test] + let f = case mDebugMode of
  10757. 1036.64 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10758. 1036.64 s [opt-env-conf-test] + Just _ -> id
  10759. 1036.64 s [opt-env-conf-test] + in f firstErrors
  10760. 1036.64 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10761. 1036.64 s [opt-env-conf-test] + Success a -> pure (Right a)
  10762. 1036.64 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10763. 1036.64 s [opt-env-conf-test] in goNexts nexts
  10764. 1036.64 s [opt-env-conf-test] where
  10765. 1036.64 s [opt-env-conf-test] go ::
  10766. 1036.64 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:113:25-35
  10767. 1036.64 s [opt-env-conf-test] @@ -110,9 +110,9 @@
  10768. 1036.64 s [opt-env-conf-test] ParserPure a -> do
  10769. 1036.64 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  10770. 1036.64 s [opt-env-conf-test] pure a
  10771. 1036.64 s [opt-env-conf-test] - ParserAp ff fa -> do
  10772. 1036.64 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  10773. 1036.64 s [opt-env-conf-test] - ppIndent $ go ff <*> go fa
  10774. 1036.64 s [opt-env-conf-test] + ParserAp ff fa -> do
  10775. 1036.64 s [opt-env-conf-test] + debug [syntaxChunk "Ap"]
  10776. 1036.65 s [opt-env-conf-test] + ppIndent $ go ff <*> go fa
  10777. 1036.65 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10778. 1036.65 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10779. 1036.65 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10780. 1036.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
  10781. 1036.65 s [opt-env-conf-test] @@ -98,9 +98,9 @@
  10782. 1036.65 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  10783. 1036.65 s [opt-env-conf-test] Just _ -> id
  10784. 1036.65 s [opt-env-conf-test] in f firstErrors
  10785. 1036.65 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  10786. 1036.65 s [opt-env-conf-test] - Success a -> pure (Right a)
  10787. 1036.65 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  10788. 1036.65 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  10789. 1036.65 s [opt-env-conf-test] + Success a -> pure (Right a)
  10790. 1036.65 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  10791. 1036.65 s [opt-env-conf-test] in goNexts nexts
  10792. 1036.65 s [opt-env-conf-test] where
  10793. 1036.65 s [opt-env-conf-test] go ::
  10794. 1036.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
  10795. 1036.65 s [opt-env-conf-test] @@ -94,9 +94,9 @@
  10796. 1036.65 s [opt-env-conf-test] pure $
  10797. 1036.65 s [opt-env-conf-test] Left $
  10798. 1036.65 s [opt-env-conf-test] -- Only show source locations in debug mode.
  10799. 1036.65 s [opt-env-conf-test] - let f = case mDebugMode of
  10800. 1036.65 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  10801. 1036.65 s [opt-env-conf-test] - Just _ -> id
  10802. 1036.65 s [opt-env-conf-test] + let f = case mDebugMode of
  10803. 1036.65 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  10804. 1036.65 s [opt-env-conf-test] + Just _ -> id
  10805. 1036.65 s [opt-env-conf-test] in f firstErrors
  10806. 1036.65 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  10807. 1036.65 s [opt-env-conf-test] Success a -> pure (Right a)
  10808. 1036.65 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:119:29-42
  10809. 1036.65 s [opt-env-conf-test] @@ -116,9 +116,9 @@
  10810. 1036.65 s [opt-env-conf-test] ParserEmpty mLoc -> do
  10811. 1036.65 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  10812. 1036.65 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  10813. 1036.65 s [opt-env-conf-test] - ParserSelect fe ff -> do
  10814. 1036.65 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  10815. 1036.65 s [opt-env-conf-test] - ppIndent $ select (go fe) (go ff)
  10816. 1036.65 s [opt-env-conf-test] + ParserSelect fe ff -> do
  10817. 1036.65 s [opt-env-conf-test] + debug [syntaxChunk "Select"]
  10818. 1036.65 s [opt-env-conf-test] + ppIndent $ select (go fe) (go ff)
  10819. 1036.65 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  10820. 1036.65 s [opt-env-conf-test] debug [syntaxChunk "Alt"]
  10821. 1036.65 s [opt-env-conf-test] ppIndent $ do
  10822. 1036.65 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:143:29-25
  10823. 1036.65 s [opt-env-conf-test] @@ -140,13 +140,13 @@
  10824. 1036.65 s [opt-env-conf-test] Just a -> do
  10825. 1036.65 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  10826. 1036.65 s [opt-env-conf-test] pure (a : as)
  10827. 1036.65 s [opt-env-conf-test] - ParserSome mLoc p' -> do
  10828. 1036.65 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10829. 1036.65 s [opt-env-conf-test] - ppIndent $ do
  10830. 1036.65 s [opt-env-conf-test] - a <- go p'
  10831. 1036.65 s [opt-env-conf-test] - debug ["First element of some succeeded, continuing with Many"]
  10832. 1036.65 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  10833. 1036.65 s [opt-env-conf-test] - pure (a :| as)
  10834. 1036.65 s [opt-env-conf-test] + ParserSome mLoc p' -> do
  10835. 1036.65 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10836. 1036.65 s [opt-env-conf-test] + ppIndent $ do
  10837. 1036.65 s [opt-env-conf-test] + a <- go p'
  10838. 1036.65 s [opt-env-conf-test] + debug ["First element of some succeeded, continuing with Many"]
  10839. 1036.65 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  10840. 1036.65 s [opt-env-conf-test] + pure (a :| as)
  10841. 1036.65 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  10842. 1036.65 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  10843. 1036.65 s [opt-env-conf-test] ppIndent $ do
  10844. 1036.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  10845. 1036.65 s [opt-env-conf-test] @@ -141,7 +141,8 @@
  10846. 1036.65 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  10847. 1036.65 s [opt-env-conf-test] pure (a : as)
  10848. 1036.65 s [opt-env-conf-test] ParserSome mLoc p' -> do
  10849. 1036.65 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  10850. 1036.65 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": "
  10851. 1036.65 s [opt-env-conf-test] +]
  10852. 1036.65 s [opt-env-conf-test] ppIndent $ do
  10853. 1036.65 s [opt-env-conf-test] a <- go p'
  10854. 1036.65 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  10855. 1038.76 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:175:19-112
  10856. 1038.76 s [opt-env-conf-test] @@ -172,9 +172,9 @@
  10857. 1038.76 s [opt-env-conf-test] -- with only forgivable errors
  10858. 1038.85 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  10859. 1038.85 s [opt-env-conf-test] -- then this should be an unforgivable error.
  10860. 1038.85 s [opt-env-conf-test] - if null parsedSettingsMap
  10861. 1038.85 s [opt-env-conf-test] - then ppErrors' errs
  10862. 1038.85 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  10863. 1038.85 s [opt-env-conf-test] + if null parsedSettingsMap
  10864. 1038.85 s [opt-env-conf-test] + then ppErrors' errs
  10865. 1038.85 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  10866. 1038.85 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  10867. 1038.85 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10868. 1038.85 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  10869. 1038.85 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:161:15-112
  10870. 1038.85 s [opt-env-conf-test] @@ -158,23 +158,23 @@
  10871. 1038.85 s [opt-env-conf-test] case result of
  10872. 1038.85 s [opt-env-conf-test] Success a -> pure a
  10873. 1038.85 s [opt-env-conf-test] Failure errs -> do
  10874. 1038.85 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  10875. 1038.85 s [opt-env-conf-test] - then ppErrors' errs
  10876. 1038.85 s [opt-env-conf-test] - else do
  10877. 1038.85 s [opt-env-conf-test] - -- Settings available below
  10878. 1038.85 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  10879. 1038.85 s [opt-env-conf-test] - -- Settings that have been parsed
  10880. 1038.85 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  10881. 1038.85 s [opt-env-conf-test] - -- Settings that have been parsed below
  10882. 1038.85 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  10883. 1038.85 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  10884. 1038.85 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  10885. 1038.85 s [opt-env-conf-test] - -- with only forgivable errors
  10886. 1038.86 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  10887. 1038.86 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  10888. 1038.86 s [opt-env-conf-test] - if null parsedSettingsMap
  10889. 1038.86 s [opt-env-conf-test] - then ppErrors' errs
  10890. 1038.86 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  10891. 1038.86 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  10892. 1038.86 s [opt-env-conf-test] + then ppErrors' errs
  10893. 1038.86 s [opt-env-conf-test] + else do
  10894. 1038.86 s [opt-env-conf-test] + -- Settings available below
  10895. 1038.86 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  10896. 1038.86 s [opt-env-conf-test] + -- Settings that have been parsed
  10897. 1038.86 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  10898. 1038.86 s [opt-env-conf-test] + -- Settings that have been parsed below
  10899. 1038.86 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  10900. 1038.86 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  10901. 1038.86 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  10902. 1038.86 s [opt-env-conf-test] + -- with only forgivable errors
  10903. 1038.86 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  10904. 1038.86 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  10905. 1038.86 s [opt-env-conf-test] + if null parsedSettingsMap
  10906. 1038.86 s [opt-env-conf-test] + then ppErrors' errs
  10907. 1038.86 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  10908. 1038.86 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  10909. 1038.86 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10910. 1038.86 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  10911. 1038.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
  10912. 1038.86 s [opt-env-conf-test] @@ -155,26 +155,26 @@
  10913. 1038.86 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  10914. 1038.86 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  10915. 1038.86 s [opt-env-conf-test] put s'
  10916. 1038.86 s [opt-env-conf-test] - case result of
  10917. 1038.86 s [opt-env-conf-test] - Success a -> pure a
  10918. 1038.86 s [opt-env-conf-test] - Failure errs -> do
  10919. 1038.86 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  10920. 1038.86 s [opt-env-conf-test] - then ppErrors' errs
  10921. 1038.86 s [opt-env-conf-test] - else do
  10922. 1038.86 s [opt-env-conf-test] - -- Settings available below
  10923. 1038.86 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  10924. 1038.86 s [opt-env-conf-test] - -- Settings that have been parsed
  10925. 1038.86 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  10926. 1038.86 s [opt-env-conf-test] - -- Settings that have been parsed below
  10927. 1038.86 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  10928. 1038.86 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  10929. 1038.86 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  10930. 1038.86 s [opt-env-conf-test] - -- with only forgivable errors
  10931. 1038.86 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  10932. 1038.86 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  10933. 1038.86 s [opt-env-conf-test] - if null parsedSettingsMap
  10934. 1038.86 s [opt-env-conf-test] - then ppErrors' errs
  10935. 1038.86 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  10936. 1038.86 s [opt-env-conf-test] + case result of
  10937. 1038.86 s [opt-env-conf-test] + Success a -> pure a
  10938. 1038.86 s [opt-env-conf-test] + Failure errs -> do
  10939. 1038.86 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  10940. 1038.86 s [opt-env-conf-test] + then ppErrors' errs
  10941. 1038.86 s [opt-env-conf-test] + else do
  10942. 1038.86 s [opt-env-conf-test] + -- Settings available below
  10943. 1038.86 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  10944. 1038.86 s [opt-env-conf-test] + -- Settings that have been parsed
  10945. 1038.86 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  10946. 1038.86 s [opt-env-conf-test] + -- Settings that have been parsed below
  10947. 1038.86 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  10948. 1038.86 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  10949. 1038.86 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  10950. 1038.86 s [opt-env-conf-test] + -- with only forgivable errors
  10951. 1038.86 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  10952. 1038.86 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  10953. 1038.86 s [opt-env-conf-test] + if null parsedSettingsMap
  10954. 1038.86 s [opt-env-conf-test] + then ppErrors' errs
  10955. 1038.86 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  10956. 1038.86 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  10957. 1038.86 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  10958. 1038.86 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  10959. 1038.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
  10960. 1038.86 s [opt-env-conf-test] @@ -155,26 +155,26 @@
  10961. 1038.86 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  10962. 1038.86 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  10963. 1038.87 s [opt-env-conf-test] put s'
  10964. 1038.87 s [opt-env-conf-test] - case result of
  10965. 1038.87 s [opt-env-conf-test] - Success a -> pure a
  10966. 1038.87 s [opt-env-conf-test] - Failure errs -> do
  10967. 1038.87 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  10968. 1038.87 s [opt-env-conf-test] - then ppErrors' errs
  10969. 1038.87 s [opt-env-conf-test] - else do
  10970. 1038.87 s [opt-env-conf-test] - -- Settings available below
  10971. 1038.87 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  10972. 1038.87 s [opt-env-conf-test] - -- Settings that have been parsed
  10973. 1038.87 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  10974. 1038.87 s [opt-env-conf-test] - -- Settings that have been parsed below
  10975. 1038.87 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  10976. 1038.87 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  10977. 1038.87 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  10978. 1038.87 s [opt-env-conf-test] - -- with only forgivable errors
  10979. 1038.87 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  10980. 1038.87 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  10981. 1038.87 s [opt-env-conf-test] - if null parsedSettingsMap
  10982. 1038.87 s [opt-env-conf-test] - then ppErrors' errs
  10983. 1038.87 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  10984. 1038.87 s [opt-env-conf-test] + case result of
  10985. 1038.87 s [opt-env-conf-test] + Success a -> pure a
  10986. 1038.87 s [opt-env-conf-test] + Failure errs -> do
  10987. 1038.87 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  10988. 1038.87 s [opt-env-conf-test] + then ppErrors' errs
  10989. 1038.87 s [opt-env-conf-test] + else do
  10990. 1038.87 s [opt-env-conf-test] + -- Settings available below
  10991. 1038.87 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  10992. 1038.87 s [opt-env-conf-test] + -- Settings that have been parsed
  10993. 1038.87 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  10994. 1038.87 s [opt-env-conf-test] + -- Settings that have been parsed below
  10995. 1038.87 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  10996. 1038.87 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  10997. 1038.87 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  10998. 1038.87 s [opt-env-conf-test] + -- with only forgivable errors
  10999. 1039.60 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  11000. 1039.60 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  11001. 1039.60 s [opt-env-conf-test] + if null parsedSettingsMap
  11002. 1039.60 s [opt-env-conf-test] + then ppErrors' errs
  11003. 1039.60 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11004. 1039.60 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11005. 1039.60 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11006. 1039.60 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11007. 1039.60 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:152:20-112
  11008. 1039.60 s [opt-env-conf-test] @@ -149,32 +149,32 @@
  11009. 1039.60 s [opt-env-conf-test] pure (a :| as)
  11010. 1039.60 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11011. 1039.60 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11012. 1039.60 s [opt-env-conf-test] - ppIndent $ do
  11013. 1039.60 s [opt-env-conf-test] - e <- ask
  11014. 1039.60 s [opt-env-conf-test] - s <- get
  11015. 1039.60 s [opt-env-conf-test] - results <- liftIO $ runPP (go p') s e
  11016. 1039.60 s [opt-env-conf-test] - (result, s') <- ppNonDetList results
  11017. 1039.60 s [opt-env-conf-test] - put s'
  11018. 1039.60 s [opt-env-conf-test] - case result of
  11019. 1039.60 s [opt-env-conf-test] - Success a -> pure a
  11020. 1039.60 s [opt-env-conf-test] - Failure errs -> do
  11021. 1039.60 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11022. 1039.60 s [opt-env-conf-test] - then ppErrors' errs
  11023. 1039.60 s [opt-env-conf-test] - else do
  11024. 1039.60 s [opt-env-conf-test] - -- Settings available below
  11025. 1039.60 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  11026. 1039.60 s [opt-env-conf-test] - -- Settings that have been parsed
  11027. 1039.60 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  11028. 1039.60 s [opt-env-conf-test] - -- Settings that have been parsed below
  11029. 1039.60 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11030. 1039.60 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  11031. 1039.60 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  11032. 1039.60 s [opt-env-conf-test] - -- with only forgivable errors
  11033. 1039.60 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  11034. 1039.60 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  11035. 1039.60 s [opt-env-conf-test] - if null parsedSettingsMap
  11036. 1039.60 s [opt-env-conf-test] - then ppErrors' errs
  11037. 1039.60 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11038. 1039.60 s [opt-env-conf-test] + ppIndent $ do
  11039. 1039.60 s [opt-env-conf-test] + e <- ask
  11040. 1039.60 s [opt-env-conf-test] + s <- get
  11041. 1039.60 s [opt-env-conf-test] + results <- liftIO $ runPP (go p') s e
  11042. 1039.60 s [opt-env-conf-test] + (result, s') <- ppNonDetList results
  11043. 1039.60 s [opt-env-conf-test] + put s'
  11044. 1039.60 s [opt-env-conf-test] + case result of
  11045. 1039.60 s [opt-env-conf-test] + Success a -> pure a
  11046. 1039.60 s [opt-env-conf-test] + Failure errs -> do
  11047. 1039.60 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  11048. 1039.60 s [opt-env-conf-test] + then ppErrors' errs
  11049. 1039.60 s [opt-env-conf-test] + else do
  11050. 1039.60 s [opt-env-conf-test] + -- Settings available below
  11051. 1039.60 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  11052. 1039.60 s [opt-env-conf-test] + -- Settings that have been parsed
  11053. 1039.60 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  11054. 1039.60 s [opt-env-conf-test] + -- Settings that have been parsed below
  11055. 1039.60 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11056. 1039.60 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  11057. 1039.60 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  11058. 1039.60 s [opt-env-conf-test] + -- with only forgivable errors
  11059. 1039.60 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  11060. 1039.60 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  11061. 1039.60 s [opt-env-conf-test] + if null parsedSettingsMap
  11062. 1039.60 s [opt-env-conf-test] + then ppErrors' errs
  11063. 1039.60 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11064. 1039.61 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11065. 1039.61 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11066. 1039.61 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11067. 1039.61 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:150:37-112
  11068. 1039.61 s [opt-env-conf-test] @@ -147,34 +147,34 @@
  11069. 1039.61 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  11070. 1039.61 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11071. 1039.61 s [opt-env-conf-test] pure (a :| as)
  11072. 1039.61 s [opt-env-conf-test] - ParserAllOrNothing mLoc p' -> do
  11073. 1039.61 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11074. 1039.61 s [opt-env-conf-test] - ppIndent $ do
  11075. 1039.61 s [opt-env-conf-test] - e <- ask
  11076. 1039.61 s [opt-env-conf-test] - s <- get
  11077. 1039.61 s [opt-env-conf-test] - results <- liftIO $ runPP (go p') s e
  11078. 1039.61 s [opt-env-conf-test] - (result, s') <- ppNonDetList results
  11079. 1039.61 s [opt-env-conf-test] - put s'
  11080. 1039.61 s [opt-env-conf-test] - case result of
  11081. 1039.61 s [opt-env-conf-test] - Success a -> pure a
  11082. 1039.61 s [opt-env-conf-test] - Failure errs -> do
  11083. 1039.61 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11084. 1039.61 s [opt-env-conf-test] - then ppErrors' errs
  11085. 1039.61 s [opt-env-conf-test] - else do
  11086. 1039.61 s [opt-env-conf-test] - -- Settings available below
  11087. 1039.61 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  11088. 1039.61 s [opt-env-conf-test] - -- Settings that have been parsed
  11089. 1039.61 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  11090. 1039.61 s [opt-env-conf-test] - -- Settings that have been parsed below
  11091. 1039.61 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11092. 1039.61 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  11093. 1039.61 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  11094. 1039.61 s [opt-env-conf-test] - -- with only forgivable errors
  11095. 1039.61 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  11096. 1039.61 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  11097. 1039.61 s [opt-env-conf-test] - if null parsedSettingsMap
  11098. 1039.61 s [opt-env-conf-test] - then ppErrors' errs
  11099. 1039.61 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11100. 1039.61 s [opt-env-conf-test] + ParserAllOrNothing mLoc p' -> do
  11101. 1039.61 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11102. 1039.61 s [opt-env-conf-test] + ppIndent $ do
  11103. 1039.61 s [opt-env-conf-test] + e <- ask
  11104. 1039.61 s [opt-env-conf-test] + s <- get
  11105. 1039.61 s [opt-env-conf-test] + results <- liftIO $ runPP (go p') s e
  11106. 1039.61 s [opt-env-conf-test] + (result, s') <- ppNonDetList results
  11107. 1039.61 s [opt-env-conf-test] + put s'
  11108. 1039.61 s [opt-env-conf-test] + case result of
  11109. 1039.61 s [opt-env-conf-test] + Success a -> pure a
  11110. 1039.61 s [opt-env-conf-test] + Failure errs -> do
  11111. 1039.61 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  11112. 1039.61 s [opt-env-conf-test] + then ppErrors' errs
  11113. 1039.61 s [opt-env-conf-test] + else do
  11114. 1039.61 s [opt-env-conf-test] + -- Settings available below
  11115. 1039.61 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  11116. 1039.61 s [opt-env-conf-test] + -- Settings that have been parsed
  11117. 1039.61 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  11118. 1039.61 s [opt-env-conf-test] + -- Settings that have been parsed below
  11119. 1039.61 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  11120. 1039.61 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  11121. 1039.61 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  11122. 1039.61 s [opt-env-conf-test] + -- with only forgivable errors
  11123. 1039.61 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  11124. 1039.61 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  11125. 1039.61 s [opt-env-conf-test] + if null parsedSettingsMap
  11126. 1039.61 s [opt-env-conf-test] + then ppErrors' errs
  11127. 1039.61 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11128. 1039.61 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11129. 1039.61 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  11130. 1039.61 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  11131. 1039.61 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:196:72-82
  11132. 1039.61 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11133. 1039.61 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11134. 1039.61 s [opt-env-conf-test] case errOrB of
  11135. 1039.61 s [opt-env-conf-test] Left err -> do
  11136. 1039.61 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11137. 1039.61 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show True]
  11138. 1039.61 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11139. 1039.61 s [opt-env-conf-test] Right b -> do
  11140. 1039.61 s [opt-env-conf-test] debug ["succeeded"]
  11141. 1039.61 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:196:72-82
  11142. 1039.61 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11143. 1039.61 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11144. 1039.61 s [opt-env-conf-test] case errOrB of
  11145. 1039.61 s [opt-env-conf-test] Left err -> do
  11146. 1039.61 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11147. 1039.61 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
  11148. 1039.61 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11149. 1039.61 s [opt-env-conf-test] Right b -> do
  11150. 1039.61 s [opt-env-conf-test] debug ["succeeded"]
  11151. 1039.61 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
  11152. 1039.61 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11153. 1039.61 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11154. 1039.61 s [opt-env-conf-test] case errOrB of
  11155. 1039.61 s [opt-env-conf-test] Left err -> do
  11156. 1039.61 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11157. 1039.62 s [opt-env-conf-test] + debug []
  11158. 1039.62 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11159. 1039.62 s [opt-env-conf-test] Right b -> do
  11160. 1041.15 s [opt-env-conf-test] debug ["succeeded"]
  11161. 1041.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
  11162. 1041.15 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  11163. 1041.15 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11164. 1041.15 s [opt-env-conf-test] case errOrB of
  11165. 1041.15 s [opt-env-conf-test] Left err -> do
  11166. 1041.15 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11167. 1041.15 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11168. 1041.15 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  11169. 1041.15 s [opt-env-conf-test] Right b -> do
  11170. 1041.15 s [opt-env-conf-test] debug ["succeeded"]
  11171. 1041.15 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
  11172. 1041.15 s [opt-env-conf-test] @@ -591,9 +591,9 @@
  11173. 1041.15 s [opt-env-conf-test] Just c -> do
  11174. 1041.15 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11175. 1041.15 s [opt-env-conf-test] mRes <- go' (commandArg c : path) $ commandParser c
  11176. 1041.15 s [opt-env-conf-test] - pure $ case mRes of
  11177. 1041.15 s [opt-env-conf-test] - Nothing -> Just (reverse path, commandParserDocs c)
  11178. 1041.15 s [opt-env-conf-test] - Just res -> pure res
  11179. 1041.15 s [opt-env-conf-test] + pure $ case mRes of
  11180. 1041.15 s [opt-env-conf-test] + Nothing -> Just (reverse path, commandParserDocs c)
  11181. 1041.15 s [opt-env-conf-test] + Just res -> pure res
  11182. 1041.15 s [opt-env-conf-test]
  11183. 1041.15 s [opt-env-conf-test] newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
  11184. 1041.15 s [opt-env-conf-test] deriving
  11185. 1041.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
  11186. 1041.15 s [opt-env-conf-test] @@ -148,7 +148,8 @@
  11187. 1041.15 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11188. 1041.15 s [opt-env-conf-test] pure (a :| as)
  11189. 1041.15 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11190. 1041.15 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11191. 1041.15 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": "
  11192. 1041.15 s [opt-env-conf-test] +]
  11193. 1041.15 s [opt-env-conf-test] ppIndent $ do
  11194. 1041.15 s [opt-env-conf-test] e <- ask
  11195. 1041.15 s [opt-env-conf-test] s <- get
  11196. 1041.15 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
  11197. 1041.15 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  11198. 1041.15 s [opt-env-conf-test] case result of
  11199. 1041.15 s [opt-env-conf-test] Success a -> pure a
  11200. 1041.15 s [opt-env-conf-test] Failure errs -> do
  11201. 1041.15 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11202. 1041.15 s [opt-env-conf-test] + if False
  11203. 1041.15 s [opt-env-conf-test] then ppErrors' errs
  11204. 1041.15 s [opt-env-conf-test] else do
  11205. 1041.15 s [opt-env-conf-test] -- Settings available below
  11206. 1041.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
  11207. 1041.15 s [opt-env-conf-test] @@ -148,7 +148,7 @@
  11208. 1041.15 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11209. 1041.15 s [opt-env-conf-test] pure (a :| as)
  11210. 1041.15 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11211. 1041.15 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11212. 1041.15 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11213. 1041.15 s [opt-env-conf-test] ppIndent $ do
  11214. 1041.15 s [opt-env-conf-test] e <- ask
  11215. 1041.15 s [opt-env-conf-test] s <- get
  11216. 1041.15 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:175:22-44
  11217. 1041.15 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  11218. 1041.15 s [opt-env-conf-test] -- with only forgivable errors
  11219. 1041.15 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  11220. 1041.15 s [opt-env-conf-test] -- then this should be an unforgivable error.
  11221. 1041.15 s [opt-env-conf-test] - if null parsedSettingsMap
  11222. 1041.15 s [opt-env-conf-test] + if not (null parsedSettingsMap)
  11223. 1041.15 s [opt-env-conf-test] then ppErrors' errs
  11224. 1041.15 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11225. 1041.15 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11226. 1041.15 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
  11227. 1041.15 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  11228. 1041.15 s [opt-env-conf-test] case result of
  11229. 1041.15 s [opt-env-conf-test] Success a -> pure a
  11230. 1041.15 s [opt-env-conf-test] Failure errs -> do
  11231. 1041.15 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11232. 1041.15 s [opt-env-conf-test] + if True
  11233. 1041.15 s [opt-env-conf-test] then ppErrors' errs
  11234. 1041.15 s [opt-env-conf-test] else do
  11235. 1041.15 s [opt-env-conf-test] -- Settings available below
  11236. 1041.15 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:161:24-50
  11237. 1041.16 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  11238. 1041.16 s [opt-env-conf-test] case result of
  11239. 1041.16 s [opt-env-conf-test] Success a -> pure a
  11240. 1041.16 s [opt-env-conf-test] Failure errs -> do
  11241. 1041.16 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11242. 1041.16 s [opt-env-conf-test] + if not $ not (all errorIsForgivable errs)
  11243. 1041.16 s [opt-env-conf-test] then ppErrors' errs
  11244. 1041.16 s [opt-env-conf-test] else do
  11245. 1041.16 s [opt-env-conf-test] -- Settings available below
  11246. 1041.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
  11247. 1041.16 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  11248. 1041.16 s [opt-env-conf-test] -- with only forgivable errors
  11249. 1041.16 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  11250. 1041.16 s [opt-env-conf-test] -- then this should be an unforgivable error.
  11251. 1041.16 s [opt-env-conf-test] - if null parsedSettingsMap
  11252. 1041.16 s [opt-env-conf-test] + if False
  11253. 1041.16 s [opt-env-conf-test] then ppErrors' errs
  11254. 1041.16 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  11255. 1041.16 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  11256. 1041.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
  11257. 1041.16 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  11258. 1041.16 s [opt-env-conf-test] case result of
  11259. 1041.16 s [opt-env-conf-test] Success a -> pure a
  11260. 1041.16 s [opt-env-conf-test] Failure errs -> do
  11261. 1041.16 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11262. 1041.16 s [opt-env-conf-test] + if not $ False
  11263. 1041.16 s [opt-env-conf-test] then ppErrors' errs
  11264. 1041.16 s [opt-env-conf-test] else do
  11265. 1041.16 s [opt-env-conf-test] -- Settings available below
  11266. 1041.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
  11267. 1041.16 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  11268. 1041.16 s [opt-env-conf-test] case result of
  11269. 1041.16 s [opt-env-conf-test] Success a -> pure a
  11270. 1041.16 s [opt-env-conf-test] Failure errs -> do
  11271. 1041.16 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  11272. 1041.16 s [opt-env-conf-test] + if not $ True
  11273. 1041.16 s [opt-env-conf-test] then ppErrors' errs
  11274. 1041.16 s [opt-env-conf-test] else do
  11275. 1041.16 s [opt-env-conf-test] -- Settings available below
  11276. 1041.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
  11277. 1041.16 s [opt-env-conf-test] @@ -148,7 +148,7 @@
  11278. 1041.16 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11279. 1041.16 s [opt-env-conf-test] pure (a :| as)
  11280. 1041.16 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  11281. 1041.16 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  11282. 1041.16 s [opt-env-conf-test] + debug []
  11283. 1041.16 s [opt-env-conf-test] ppIndent $ do
  11284. 1041.16 s [opt-env-conf-test] e <- ask
  11285. 1041.16 s [opt-env-conf-test] s <- get
  11286. 1041.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  11287. 1041.16 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  11288. 1041.16 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11289. 1041.16 s [opt-env-conf-test] pure (a : as)
  11290. 1041.16 s [opt-env-conf-test] ParserSome mLoc p' -> do
  11291. 1041.16 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11292. 1041.16 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11293. 1041.16 s [opt-env-conf-test] ppIndent $ do
  11294. 1041.16 s [opt-env-conf-test] a <- go p'
  11295. 1041.16 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  11296. 1041.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  11297. 1041.16 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  11298. 1041.16 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  11299. 1041.16 s [opt-env-conf-test] pure (a : as)
  11300. 1041.16 s [opt-env-conf-test] ParserSome mLoc p' -> do
  11301. 1041.16 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11302. 1041.16 s [opt-env-conf-test] + debug []
  11303. 1041.16 s [opt-env-conf-test] ppIndent $ do
  11304. 1041.16 s [opt-env-conf-test] a <- go p'
  11305. 1041.16 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  11306. 1041.16 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:134:29-28
  11307. 1041.16 s [opt-env-conf-test] @@ -131,15 +131,15 @@
  11308. 1041.16 s [opt-env-conf-test] Nothing -> do
  11309. 1041.16 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  11310. 1041.16 s [opt-env-conf-test] ppIndent $ go p2
  11311. 1041.16 s [opt-env-conf-test] - ParserMany mLoc p' -> do
  11312. 1041.16 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11313. 1041.16 s [opt-env-conf-test] - ppIndent $ do
  11314. 1041.16 s [opt-env-conf-test] - eor <- tryPP $ go p'
  11315. 1041.16 s [opt-env-conf-test] - case eor of
  11316. 1041.16 s [opt-env-conf-test] - Nothing -> pure []
  11317. 1041.16 s [opt-env-conf-test] - Just a -> do
  11318. 1041.16 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  11319. 1041.16 s [opt-env-conf-test] - pure (a : as)
  11320. 1041.16 s [opt-env-conf-test] + ParserMany mLoc p' -> do
  11321. 1041.16 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11322. 1041.16 s [opt-env-conf-test] + ppIndent $ do
  11323. 1041.16 s [opt-env-conf-test] + eor <- tryPP $ go p'
  11324. 1041.16 s [opt-env-conf-test] + case eor of
  11325. 1041.16 s [opt-env-conf-test] + Nothing -> pure []
  11326. 1041.16 s [opt-env-conf-test] + Just a -> do
  11327. 1041.16 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  11328. 1041.16 s [opt-env-conf-test] + pure (a : as)
  11329. 1041.16 s [opt-env-conf-test] ParserSome mLoc p' -> do
  11330. 1041.16 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11331. 1041.16 s [opt-env-conf-test] ppIndent $ do
  11332. 1041.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
  11333. 1041.16 s [opt-env-conf-test] @@ -135,11 +135,11 @@
  11334. 1041.16 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11335. 1041.16 s [opt-env-conf-test] ppIndent $ do
  11336. 1041.16 s [opt-env-conf-test] eor <- tryPP $ go p'
  11337. 1041.16 s [opt-env-conf-test] - case eor of
  11338. 1041.16 s [opt-env-conf-test] - Nothing -> pure []
  11339. 1041.16 s [opt-env-conf-test] - Just a -> do
  11340. 1041.16 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  11341. 1041.16 s [opt-env-conf-test] - pure (a : as)
  11342. 1041.16 s [opt-env-conf-test] + case eor of
  11343. 1041.16 s [opt-env-conf-test] + Nothing -> pure []
  11344. 1041.16 s [opt-env-conf-test] + Just a -> do
  11345. 1041.16 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  11346. 1041.16 s [opt-env-conf-test] + pure (a : as)
  11347. 1041.16 s [opt-env-conf-test] ParserSome mLoc p' -> do
  11348. 1041.16 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  11349. 1041.16 s [opt-env-conf-test] ppIndent $ do
  11350. 1041.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
  11351. 1041.16 s [opt-env-conf-test] @@ -132,7 +132,7 @@
  11352. 1041.16 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  11353. 1041.16 s [opt-env-conf-test] ppIndent $ go p2
  11354. 1041.16 s [opt-env-conf-test] ParserMany mLoc p' -> do
  11355. 1041.16 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11356. 1041.16 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  11357. 1041.16 s [opt-env-conf-test] ppIndent $ do
  11358. 1041.16 s [opt-env-conf-test] eor <- tryPP $ go p'
  11359. 1041.16 s [opt-env-conf-test] case eor of
  11360. 1041.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
  11361. 1043.97 s [opt-env-conf-test] @@ -213,7 +213,7 @@
  11362. 1044.05 s [opt-env-conf-test] case mDefaultCommand of
  11363. 1044.05 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11364. 1044.05 s [opt-env-conf-test] Just dc -> do
  11365. 1044.05 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11366. 1044.05 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11367. 1044.05 s [opt-env-conf-test] go $ commandParser dc
  11368. 1044.05 s [opt-env-conf-test] Just s -> do
  11369. 1044.05 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11370. 1044.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  11371. 1044.05 s [opt-env-conf-test] @@ -474,9 +474,9 @@
  11372. 1044.05 s [opt-env-conf-test] | Found a
  11373. 1044.05 s [opt-env-conf-test]
  11374. 1044.05 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  11375. 1044.05 s [opt-env-conf-test] -requireReaders rs = case NE.nonEmpty rs of
  11376. 1044.05 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  11377. 1044.05 s [opt-env-conf-test] - Just ne -> pure ne
  11378. 1044.05 s [opt-env-conf-test] +requireReaders rs = case NE.nonEmpty rs of
  11379. 1044.05 s [opt-env-conf-test] + Nothing -> ppError Nothing ParseErrorNoReaders
  11380. 1044.05 s [opt-env-conf-test] + Just ne -> pure ne
  11381. 1044.05 s [opt-env-conf-test]
  11382. 1044.05 s [opt-env-conf-test] -- Try the readers in order
  11383. 1044.05 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  11384. 1044.05 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:215:28-40
  11385. 1044.05 s [opt-env-conf-test] @@ -212,9 +212,9 @@
  11386. 1044.05 s [opt-env-conf-test] find ((== d) . commandArg) cs
  11387. 1044.05 s [opt-env-conf-test] case mDefaultCommand of
  11388. 1044.05 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11389. 1044.05 s [opt-env-conf-test] - Just dc -> do
  11390. 1044.05 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11391. 1044.05 s [opt-env-conf-test] - go $ commandParser dc
  11392. 1044.05 s [opt-env-conf-test] + Just dc -> do
  11393. 1044.05 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11394. 1044.05 s [opt-env-conf-test] + go $ commandParser dc
  11395. 1044.05 s [opt-env-conf-test] Just s -> do
  11396. 1044.05 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11397. 1044.06 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11398. 1044.06 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:197:56-66
  11399. 1044.06 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  11400. 1044.06 s [opt-env-conf-test] case errOrB of
  11401. 1044.06 s [opt-env-conf-test] Left err -> do
  11402. 1044.06 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11403. 1044.06 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11404. 1044.06 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed not (forgivable) err
  11405. 1044.06 s [opt-env-conf-test] Right b -> do
  11406. 1044.06 s [opt-env-conf-test] debug ["succeeded"]
  11407. 1044.06 s [opt-env-conf-test] pure b
  11408. 1044.06 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
  11409. 1044.06 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  11410. 1044.06 s [opt-env-conf-test] case errOrB of
  11411. 1044.06 s [opt-env-conf-test] Left err -> do
  11412. 1044.06 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11413. 1044.06 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11414. 1044.06 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed False err
  11415. 1044.06 s [opt-env-conf-test] Right b -> do
  11416. 1044.06 s [opt-env-conf-test] debug ["succeeded"]
  11417. 1044.06 s [opt-env-conf-test] pure b
  11418. 1044.06 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
  11419. 1044.06 s [opt-env-conf-test] @@ -213,7 +213,7 @@
  11420. 1044.06 s [opt-env-conf-test] case mDefaultCommand of
  11421. 1044.06 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11422. 1044.06 s [opt-env-conf-test] Just dc -> do
  11423. 1044.06 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11424. 1044.06 s [opt-env-conf-test] + debug []
  11425. 1044.06 s [opt-env-conf-test] go $ commandParser dc
  11426. 1044.06 s [opt-env-conf-test] Just s -> do
  11427. 1044.06 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11428. 1044.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
  11429. 1044.06 s [opt-env-conf-test] @@ -191,13 +191,13 @@
  11430. 1044.06 s [opt-env-conf-test] ppIndent $
  11431. 1044.06 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  11432. 1044.06 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11433. 1044.06 s [opt-env-conf-test] - case errOrB of
  11434. 1044.06 s [opt-env-conf-test] - Left err -> do
  11435. 1044.06 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11436. 1044.06 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11437. 1044.06 s [opt-env-conf-test] - Right b -> do
  11438. 1044.06 s [opt-env-conf-test] - debug ["succeeded"]
  11439. 1044.06 s [opt-env-conf-test] - pure b
  11440. 1044.06 s [opt-env-conf-test] + case errOrB of
  11441. 1044.06 s [opt-env-conf-test] + Left err -> do
  11442. 1044.06 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11443. 1044.06 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed forgivable err
  11444. 1044.06 s [opt-env-conf-test] + Right b -> do
  11445. 1044.06 s [opt-env-conf-test] + debug ["succeeded"]
  11446. 1044.06 s [opt-env-conf-test] + pure b
  11447. 1044.06 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  11448. 1044.06 s [opt-env-conf-test] debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
  11449. 1044.06 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  11450. 1044.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
  11451. 1044.06 s [opt-env-conf-test] @@ -191,13 +191,13 @@
  11452. 1044.06 s [opt-env-conf-test] ppIndent $
  11453. 1044.07 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  11454. 1044.07 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11455. 1044.07 s [opt-env-conf-test] - case errOrB of
  11456. 1044.07 s [opt-env-conf-test] - Left err -> do
  11457. 1044.07 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11458. 1044.07 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11459. 1044.07 s [opt-env-conf-test] - Right b -> do
  11460. 1044.07 s [opt-env-conf-test] - debug ["succeeded"]
  11461. 1044.07 s [opt-env-conf-test] - pure b
  11462. 1044.07 s [opt-env-conf-test] + case errOrB of
  11463. 1044.07 s [opt-env-conf-test] + Left err -> do
  11464. 1044.07 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11465. 1044.07 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed forgivable err
  11466. 1044.07 s [opt-env-conf-test] + Right b -> do
  11467. 1044.07 s [opt-env-conf-test] + debug ["succeeded"]
  11468. 1044.07 s [opt-env-conf-test] + pure b
  11469. 1044.07 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  11470. 1044.07 s [opt-env-conf-test] debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
  11471. 1044.07 s [opt-env-conf-test] forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
  11472. 1044.07 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:195:29-70
  11473. 1044.07 s [opt-env-conf-test] @@ -192,9 +192,9 @@
  11474. 1044.07 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  11475. 1044.07 s [opt-env-conf-test] errOrB <- liftIO $ f a
  11476. 1044.07 s [opt-env-conf-test] case errOrB of
  11477. 1044.07 s [opt-env-conf-test] - Left err -> do
  11478. 1044.07 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11479. 1044.07 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  11480. 1044.07 s [opt-env-conf-test] + Left err -> do
  11481. 1044.07 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  11482. 1044.07 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed forgivable err
  11483. 1044.07 s [opt-env-conf-test] Right b -> do
  11484. 1044.07 s [opt-env-conf-test] debug ["succeeded"]
  11485. 1044.07 s [opt-env-conf-test] pure b
  11486. 1044.07 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
  11487. 1044.07 s [opt-env-conf-test] @@ -204,23 +204,23 @@
  11488. 1044.07 s [opt-env-conf-test] ppIndent $ do
  11489. 1044.07 s [opt-env-conf-test] mS <- ppArg
  11490. 1044.07 s [opt-env-conf-test] let docsForErrors = map (void . commandParserDocs) cs
  11491. 1044.07 s [opt-env-conf-test] - case mS of
  11492. 1044.07 s [opt-env-conf-test] - Nothing -> do
  11493. 1044.07 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  11494. 1044.07 s [opt-env-conf-test] - let mDefaultCommand = do
  11495. 1044.07 s [opt-env-conf-test] - d <- mDefault
  11496. 1044.07 s [opt-env-conf-test] - find ((== d) . commandArg) cs
  11497. 1044.07 s [opt-env-conf-test] - case mDefaultCommand of
  11498. 1044.07 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11499. 1044.07 s [opt-env-conf-test] - Just dc -> do
  11500. 1044.07 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11501. 1044.07 s [opt-env-conf-test] - go $ commandParser dc
  11502. 1044.07 s [opt-env-conf-test] - Just s -> do
  11503. 1044.07 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  11504. 1044.07 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11505. 1044.07 s [opt-env-conf-test] - Just c -> do
  11506. 1044.07 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11507. 1044.07 s [opt-env-conf-test] - go $ commandParser c
  11508. 1044.07 s [opt-env-conf-test] + case mS of
  11509. 1044.07 s [opt-env-conf-test] + Nothing -> do
  11510. 1044.07 s [opt-env-conf-test] + debug ["No argument found for choosing a command."]
  11511. 1044.07 s [opt-env-conf-test] + let mDefaultCommand = do
  11512. 1044.07 s [opt-env-conf-test] + d <- mDefault
  11513. 1044.07 s [opt-env-conf-test] + find ((== d) . commandArg) cs
  11514. 1044.07 s [opt-env-conf-test] + case mDefaultCommand of
  11515. 1044.07 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11516. 1044.07 s [opt-env-conf-test] + Just dc -> do
  11517. 1044.07 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11518. 1044.07 s [opt-env-conf-test] + go $ commandParser dc
  11519. 1044.07 s [opt-env-conf-test] + Just s -> do
  11520. 1044.07 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  11521. 1044.07 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11522. 1044.07 s [opt-env-conf-test] + Just c -> do
  11523. 1044.07 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  11524. 1044.07 s [opt-env-conf-test] + go $ commandParser c
  11525. 1044.07 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11526. 1044.07 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11527. 1044.07 s [opt-env-conf-test] ppIndent $ do
  11528. 1044.07 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:221:27-39
  11529. 1044.07 s [opt-env-conf-test] @@ -218,9 +218,9 @@
  11530. 1044.07 s [opt-env-conf-test] Just s -> do
  11531. 1044.07 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11532. 1044.07 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11533. 1044.07 s [opt-env-conf-test] - Just c -> do
  11534. 1044.07 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11535. 1045.37 s [opt-env-conf-test] - go $ commandParser c
  11536. 1045.37 s [opt-env-conf-test] + Just c -> do
  11537. 1045.37 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  11538. 1045.37 s [opt-env-conf-test] + go $ commandParser c
  11539. 1045.37 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11540. 1045.37 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11541. 1045.37 s [opt-env-conf-test] ppIndent $ do
  11542. 1045.37 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
  11543. 1045.37 s [opt-env-conf-test] @@ -222,7 +222,7 @@
  11544. 1045.37 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11545. 1045.37 s [opt-env-conf-test] go $ commandParser c
  11546. 1045.38 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11547. 1045.38 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11548. 1045.38 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11549. 1045.38 s [opt-env-conf-test] ppIndent $ do
  11550. 1045.38 s [opt-env-conf-test] debug ["loading config"]
  11551. 1045.38 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  11552. 1045.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
  11553. 1045.38 s [opt-env-conf-test] @@ -222,7 +222,7 @@
  11554. 1045.38 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11555. 1045.38 s [opt-env-conf-test] go $ commandParser c
  11556. 1045.38 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11557. 1045.38 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11558. 1045.38 s [opt-env-conf-test] + debug []
  11559. 1045.38 s [opt-env-conf-test] ppIndent $ do
  11560. 1045.38 s [opt-env-conf-test] debug ["loading config"]
  11561. 1045.38 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  11562. 1045.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
  11563. 1045.38 s [opt-env-conf-test] @@ -204,23 +204,23 @@
  11564. 1045.38 s [opt-env-conf-test] ppIndent $ do
  11565. 1045.38 s [opt-env-conf-test] mS <- ppArg
  11566. 1045.38 s [opt-env-conf-test] let docsForErrors = map (void . commandParserDocs) cs
  11567. 1045.38 s [opt-env-conf-test] - case mS of
  11568. 1045.38 s [opt-env-conf-test] - Nothing -> do
  11569. 1045.38 s [opt-env-conf-test] - debug ["No argument found for choosing a command."]
  11570. 1045.38 s [opt-env-conf-test] - let mDefaultCommand = do
  11571. 1045.38 s [opt-env-conf-test] - d <- mDefault
  11572. 1045.38 s [opt-env-conf-test] - find ((== d) . commandArg) cs
  11573. 1045.38 s [opt-env-conf-test] - case mDefaultCommand of
  11574. 1045.38 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11575. 1045.38 s [opt-env-conf-test] - Just dc -> do
  11576. 1045.38 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11577. 1045.38 s [opt-env-conf-test] - go $ commandParser dc
  11578. 1045.38 s [opt-env-conf-test] - Just s -> do
  11579. 1045.38 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  11580. 1045.38 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11581. 1045.38 s [opt-env-conf-test] - Just c -> do
  11582. 1045.38 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11583. 1045.38 s [opt-env-conf-test] - go $ commandParser c
  11584. 1045.38 s [opt-env-conf-test] + case mS of
  11585. 1045.38 s [opt-env-conf-test] + Nothing -> do
  11586. 1045.38 s [opt-env-conf-test] + debug ["No argument found for choosing a command."]
  11587. 1045.38 s [opt-env-conf-test] + let mDefaultCommand = do
  11588. 1045.38 s [opt-env-conf-test] + d <- mDefault
  11589. 1045.38 s [opt-env-conf-test] + find ((== d) . commandArg) cs
  11590. 1045.38 s [opt-env-conf-test] + case mDefaultCommand of
  11591. 1045.38 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  11592. 1045.38 s [opt-env-conf-test] + Just dc -> do
  11593. 1045.38 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  11594. 1045.38 s [opt-env-conf-test] + go $ commandParser dc
  11595. 1045.38 s [opt-env-conf-test] + Just s -> do
  11596. 1045.38 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  11597. 1045.38 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11598. 1045.38 s [opt-env-conf-test] + Just c -> do
  11599. 1045.38 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  11600. 1045.38 s [opt-env-conf-test] + go $ commandParser c
  11601. 1045.38 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11602. 1045.38 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11603. 1045.38 s [opt-env-conf-test] ppIndent $ do
  11604. 1045.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
  11605. 1045.38 s [opt-env-conf-test] @@ -219,7 +219,7 @@
  11606. 1045.38 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  11607. 1045.38 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  11608. 1045.38 s [opt-env-conf-test] Just c -> do
  11609. 1045.38 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  11610. 1045.38 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  11611. 1045.38 s [opt-env-conf-test] go $ commandParser c
  11612. 1045.38 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11613. 1045.38 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11614. 1045.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
  11615. 1045.38 s [opt-env-conf-test] @@ -222,7 +222,8 @@
  11616. 1045.38 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11617. 1045.38 s [opt-env-conf-test] go $ commandParser c
  11618. 1045.38 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  11619. 1045.38 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11620. 1045.38 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": "
  11621. 1045.38 s [opt-env-conf-test] +]
  11622. 1045.38 s [opt-env-conf-test] ppIndent $ do
  11623. 1045.38 s [opt-env-conf-test] debug ["loading config"]
  11624. 1045.38 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  11625. 1045.38 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:224:38-20
  11626. 1045.39 s [opt-env-conf-test] @@ -221,15 +221,15 @@
  11627. 1045.39 s [opt-env-conf-test] Just c -> do
  11628. 1045.39 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  11629. 1045.39 s [opt-env-conf-test] go $ commandParser c
  11630. 1045.39 s [opt-env-conf-test] - ParserWithConfig mLoc pc pa -> do
  11631. 1045.39 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11632. 1045.39 s [opt-env-conf-test] - ppIndent $ do
  11633. 1045.39 s [opt-env-conf-test] - debug ["loading config"]
  11634. 1045.39 s [opt-env-conf-test] - mNewConfig <- ppIndent $ go pc
  11635. 1045.39 s [opt-env-conf-test] - debug ["with loaded config"]
  11636. 1045.39 s [opt-env-conf-test] - ppIndent $
  11637. 1045.39 s [opt-env-conf-test] - local (\e -> e {ppEnvConf = mNewConfig}) $
  11638. 1045.39 s [opt-env-conf-test] - go pa
  11639. 1045.39 s [opt-env-conf-test] + ParserWithConfig mLoc pc pa -> do
  11640. 1045.39 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  11641. 1045.39 s [opt-env-conf-test] + ppIndent $ do
  11642. 1045.39 s [opt-env-conf-test] + debug ["loading config"]
  11643. 1045.39 s [opt-env-conf-test] + mNewConfig <- ppIndent $ go pc
  11644. 1045.39 s [opt-env-conf-test] + debug ["with loaded config"]
  11645. 1045.39 s [opt-env-conf-test] + ppIndent $
  11646. 1045.39 s [opt-env-conf-test] + local (\e -> e {ppEnvConf = mNewConfig}) $
  11647. 1045.39 s [opt-env-conf-test] + go pa
  11648. 1045.39 s [opt-env-conf-test] ParserSetting mLoc set@Setting {..} -> do
  11649. 1045.39 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  11650. 1045.39 s [opt-env-conf-test] when (not (Set.null settingRequiredCapabilities)) $
  11651. 1045.39 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
  11652. 1045.39 s [opt-env-conf-test] @@ -270,14 +270,14 @@
  11653. 1045.39 s [opt-env-conf-test] debug ["could not set based on argument: no argument"]
  11654. 1045.39 s [opt-env-conf-test] pure NotFound
  11655. 1045.39 s [opt-env-conf-test] Just argStr -> cap $
  11656. 1045.39 s [opt-env-conf-test] - case tryReaders rs argStr of
  11657. 1045.39 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  11658. 1045.39 s [opt-env-conf-test] - Right a -> do
  11659. 1045.39 s [opt-env-conf-test] - debug
  11660. 1045.39 s [opt-env-conf-test] - [ "set based on argument: ",
  11661. 1045.39 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  11662. 1045.39 s [opt-env-conf-test] - ]
  11663. 1045.39 s [opt-env-conf-test] - pure $ Found a
  11664. 1045.39 s [opt-env-conf-test] + case tryReaders rs argStr of
  11665. 1045.39 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  11666. 1045.39 s [opt-env-conf-test] + Right a -> do
  11667. 1045.39 s [opt-env-conf-test] + debug
  11668. 1045.39 s [opt-env-conf-test] + [ "set based on argument: ",
  11669. 1045.39 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  11670. 1045.39 s [opt-env-conf-test] + ]
  11671. 1045.39 s [opt-env-conf-test] + pure $ Found a
  11672. 1045.39 s [opt-env-conf-test] else pure NotRun
  11673. 1045.39 s [opt-env-conf-test]
  11674. 1045.39 s [opt-env-conf-test] case mArg of
  11675. 1045.39 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
  11676. 1045.39 s [opt-env-conf-test] @@ -306,7 +306,7 @@
  11677. 1045.39 s [opt-env-conf-test] pure a
  11678. 1045.39 s [opt-env-conf-test] _ -> do
  11679. 1045.39 s [opt-env-conf-test] mOpt <-
  11680. 1045.39 s [opt-env-conf-test] - if settingTryOption
  11681. 1045.39 s [opt-env-conf-test] + if True
  11682. 1045.39 s [opt-env-conf-test] then do
  11683. 1045.39 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  11684. 1045.39 s [opt-env-conf-test] -- always fails if it's missing a reader.
  11685. 1045.39 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
  11686. 1045.39 s [opt-env-conf-test] @@ -306,7 +306,7 @@
  11687. 1045.39 s [opt-env-conf-test] pure a
  11688. 1045.39 s [opt-env-conf-test] _ -> do
  11689. 1045.39 s [opt-env-conf-test] mOpt <-
  11690. 1045.39 s [opt-env-conf-test] - if settingTryOption
  11691. 1045.39 s [opt-env-conf-test] + if False
  11692. 1045.39 s [opt-env-conf-test] then do
  11693. 1045.39 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  11694. 1045.39 s [opt-env-conf-test] -- always fails if it's missing a reader.
  11695. 1045.39 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:309:24-40
  11696. 1045.39 s [opt-env-conf-test] @@ -306,7 +306,7 @@
  11697. 1045.39 s [opt-env-conf-test] pure a
  11698. 1045.39 s [opt-env-conf-test] _ -> do
  11699. 1045.39 s [opt-env-conf-test] mOpt <-
  11700. 1045.39 s [opt-env-conf-test] - if settingTryOption
  11701. 1045.39 s [opt-env-conf-test] + if not (settingTryOption)
  11702. 1045.39 s [opt-env-conf-test] then do
  11703. 1045.39 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  11704. 1045.39 s [opt-env-conf-test] -- always fails if it's missing a reader.
  11705. 1045.39 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
  11706. 1045.39 s [opt-env-conf-test] @@ -320,14 +320,14 @@
  11707. 1045.39 s [opt-env-conf-test] ]
  11708. 1045.39 s [opt-env-conf-test] pure NotFound
  11709. 1045.39 s [opt-env-conf-test] Just optionStr -> cap $
  11710. 1045.39 s [opt-env-conf-test] - case tryReaders rs optionStr of
  11711. 1045.39 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11712. 1045.39 s [opt-env-conf-test] - Right a -> do
  11713. 1045.39 s [opt-env-conf-test] - debug
  11714. 1045.39 s [opt-env-conf-test] - [ "set based on option: ",
  11715. 1045.71 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  11716. 1045.71 s [opt-env-conf-test] - ]
  11717. 1045.71 s [opt-env-conf-test] - pure $ Found a
  11718. 1045.71 s [opt-env-conf-test] + case tryReaders rs optionStr of
  11719. 1045.71 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11720. 1045.71 s [opt-env-conf-test] + Right a -> do
  11721. 1045.71 s [opt-env-conf-test] + debug
  11722. 1045.71 s [opt-env-conf-test] + [ "set based on option: ",
  11723. 1045.71 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  11724. 1045.71 s [opt-env-conf-test] + ]
  11725. 1045.71 s [opt-env-conf-test] + pure $ Found a
  11726. 1045.71 s [opt-env-conf-test] else pure NotRun
  11727. 1045.71 s [opt-env-conf-test]
  11728. 1045.71 s [opt-env-conf-test] case mOpt of
  11729. 1045.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
  11730. 1045.72 s [opt-env-conf-test] @@ -320,14 +320,14 @@
  11731. 1045.72 s [opt-env-conf-test] ]
  11732. 1045.72 s [opt-env-conf-test] pure NotFound
  11733. 1045.72 s [opt-env-conf-test] Just optionStr -> cap $
  11734. 1045.72 s [opt-env-conf-test] - case tryReaders rs optionStr of
  11735. 1045.72 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11736. 1045.72 s [opt-env-conf-test] - Right a -> do
  11737. 1045.72 s [opt-env-conf-test] - debug
  11738. 1045.72 s [opt-env-conf-test] - [ "set based on option: ",
  11739. 1045.72 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  11740. 1045.72 s [opt-env-conf-test] - ]
  11741. 1045.72 s [opt-env-conf-test] - pure $ Found a
  11742. 1045.72 s [opt-env-conf-test] + case tryReaders rs optionStr of
  11743. 1045.72 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11744. 1045.72 s [opt-env-conf-test] + Right a -> do
  11745. 1045.72 s [opt-env-conf-test] + debug
  11746. 1045.72 s [opt-env-conf-test] + [ "set based on option: ",
  11747. 1045.72 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  11748. 1045.72 s [opt-env-conf-test] + ]
  11749. 1045.72 s [opt-env-conf-test] + pure $ Found a
  11750. 1045.72 s [opt-env-conf-test] else pure NotRun
  11751. 1045.72 s [opt-env-conf-test]
  11752. 1045.72 s [opt-env-conf-test] case mOpt of
  11753. 1045.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
  11754. 1045.72 s [opt-env-conf-test] @@ -312,22 +312,22 @@
  11755. 1045.72 s [opt-env-conf-test] -- always fails if it's missing a reader.
  11756. 1045.72 s [opt-env-conf-test] rs <- requireReaders settingReaders
  11757. 1045.72 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  11758. 1045.72 s [opt-env-conf-test] - case mS of
  11759. 1045.72 s [opt-env-conf-test] - Nothing -> do
  11760. 1045.72 s [opt-env-conf-test] - debug
  11761. 1045.72 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  11762. 1045.72 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  11763. 1045.72 s [opt-env-conf-test] - ]
  11764. 1045.72 s [opt-env-conf-test] - pure NotFound
  11765. 1045.72 s [opt-env-conf-test] - Just optionStr -> cap $
  11766. 1045.72 s [opt-env-conf-test] - case tryReaders rs optionStr of
  11767. 1045.72 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11768. 1045.72 s [opt-env-conf-test] - Right a -> do
  11769. 1045.72 s [opt-env-conf-test] - debug
  11770. 1045.72 s [opt-env-conf-test] - [ "set based on option: ",
  11771. 1045.72 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  11772. 1045.72 s [opt-env-conf-test] - ]
  11773. 1045.72 s [opt-env-conf-test] - pure $ Found a
  11774. 1045.72 s [opt-env-conf-test] + case mS of
  11775. 1045.72 s [opt-env-conf-test] + Nothing -> do
  11776. 1045.72 s [opt-env-conf-test] + debug
  11777. 1045.72 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  11778. 1045.72 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  11779. 1045.72 s [opt-env-conf-test] + ]
  11780. 1045.72 s [opt-env-conf-test] + pure NotFound
  11781. 1045.72 s [opt-env-conf-test] + Just optionStr -> cap $
  11782. 1045.72 s [opt-env-conf-test] + case tryReaders rs optionStr of
  11783. 1045.72 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11784. 1045.72 s [opt-env-conf-test] + Right a -> do
  11785. 1045.72 s [opt-env-conf-test] + debug
  11786. 1045.72 s [opt-env-conf-test] + [ "set based on option: ",
  11787. 1045.72 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  11788. 1045.72 s [opt-env-conf-test] + ]
  11789. 1045.72 s [opt-env-conf-test] + pure $ Found a
  11790. 1045.72 s [opt-env-conf-test] else pure NotRun
  11791. 1045.72 s [opt-env-conf-test]
  11792. 1045.72 s [opt-env-conf-test] case mOpt of
  11793. 1045.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
  11794. 1045.72 s [opt-env-conf-test] @@ -312,22 +312,22 @@
  11795. 1045.72 s [opt-env-conf-test] -- always fails if it's missing a reader.
  11796. 1045.72 s [opt-env-conf-test] rs <- requireReaders settingReaders
  11797. 1045.72 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  11798. 1045.72 s [opt-env-conf-test] - case mS of
  11799. 1045.72 s [opt-env-conf-test] - Nothing -> do
  11800. 1045.72 s [opt-env-conf-test] - debug
  11801. 1045.72 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  11802. 1045.73 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  11803. 1045.73 s [opt-env-conf-test] - ]
  11804. 1045.73 s [opt-env-conf-test] - pure NotFound
  11805. 1045.73 s [opt-env-conf-test] - Just optionStr -> cap $
  11806. 1045.73 s [opt-env-conf-test] - case tryReaders rs optionStr of
  11807. 1045.73 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11808. 1045.73 s [opt-env-conf-test] - Right a -> do
  11809. 1045.73 s [opt-env-conf-test] - debug
  11810. 1045.73 s [opt-env-conf-test] - [ "set based on option: ",
  11811. 1045.73 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  11812. 1045.73 s [opt-env-conf-test] - ]
  11813. 1045.73 s [opt-env-conf-test] - pure $ Found a
  11814. 1045.73 s [opt-env-conf-test] + case mS of
  11815. 1045.73 s [opt-env-conf-test] + Nothing -> do
  11816. 1045.73 s [opt-env-conf-test] + debug
  11817. 1045.73 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  11818. 1045.73 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  11819. 1045.73 s [opt-env-conf-test] + ]
  11820. 1045.73 s [opt-env-conf-test] + pure NotFound
  11821. 1045.73 s [opt-env-conf-test] + Just optionStr -> cap $
  11822. 1045.73 s [opt-env-conf-test] + case tryReaders rs optionStr of
  11823. 1045.73 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11824. 1045.73 s [opt-env-conf-test] + Right a -> do
  11825. 1045.73 s [opt-env-conf-test] + debug
  11826. 1045.73 s [opt-env-conf-test] + [ "set based on option: ",
  11827. 1045.73 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  11828. 1045.73 s [opt-env-conf-test] + ]
  11829. 1045.73 s [opt-env-conf-test] + pure $ Found a
  11830. 1045.73 s [opt-env-conf-test] else pure NotRun
  11831. 1045.73 s [opt-env-conf-test]
  11832. 1045.73 s [opt-env-conf-test] case mOpt of
  11833. 1045.73 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:309:21-39
  11834. 1045.73 s [opt-env-conf-test] @@ -306,29 +306,29 @@
  11835. 1045.73 s [opt-env-conf-test] pure a
  11836. 1045.73 s [opt-env-conf-test] _ -> do
  11837. 1045.73 s [opt-env-conf-test] mOpt <-
  11838. 1045.73 s [opt-env-conf-test] - if settingTryOption
  11839. 1045.73 s [opt-env-conf-test] - then do
  11840. 1045.73 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  11841. 1045.73 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  11842. 1045.73 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  11843. 1045.73 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  11844. 1045.73 s [opt-env-conf-test] - case mS of
  11845. 1045.73 s [opt-env-conf-test] - Nothing -> do
  11846. 1045.73 s [opt-env-conf-test] - debug
  11847. 1045.73 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  11848. 1045.73 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  11849. 1045.73 s [opt-env-conf-test] - ]
  11850. 1045.73 s [opt-env-conf-test] - pure NotFound
  11851. 1045.73 s [opt-env-conf-test] - Just optionStr -> cap $
  11852. 1045.73 s [opt-env-conf-test] - case tryReaders rs optionStr of
  11853. 1045.73 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11854. 1045.73 s [opt-env-conf-test] - Right a -> do
  11855. 1045.73 s [opt-env-conf-test] - debug
  11856. 1045.73 s [opt-env-conf-test] - [ "set based on option: ",
  11857. 1045.73 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  11858. 1045.73 s [opt-env-conf-test] - ]
  11859. 1045.73 s [opt-env-conf-test] - pure $ Found a
  11860. 1045.73 s [opt-env-conf-test] - else pure NotRun
  11861. 1045.73 s [opt-env-conf-test] + if settingTryOption
  11862. 1045.73 s [opt-env-conf-test] + then do
  11863. 1045.73 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  11864. 1045.73 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  11865. 1045.73 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  11866. 1045.73 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  11867. 1045.73 s [opt-env-conf-test] + case mS of
  11868. 1045.73 s [opt-env-conf-test] + Nothing -> do
  11869. 1045.74 s [opt-env-conf-test] + debug
  11870. 1045.74 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  11871. 1045.74 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  11872. 1045.74 s [opt-env-conf-test] + ]
  11873. 1045.74 s [opt-env-conf-test] + pure NotFound
  11874. 1045.74 s [opt-env-conf-test] + Just optionStr -> cap $
  11875. 1045.74 s [opt-env-conf-test] + case tryReaders rs optionStr of
  11876. 1046.47 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  11877. 1046.47 s [opt-env-conf-test] + Right a -> do
  11878. 1046.47 s [opt-env-conf-test] + debug
  11879. 1046.47 s [opt-env-conf-test] + [ "set based on option: ",
  11880. 1046.47 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  11881. 1046.47 s [opt-env-conf-test] + ]
  11882. 1046.47 s [opt-env-conf-test] + pure $ Found a
  11883. 1046.47 s [opt-env-conf-test] + else pure NotRun
  11884. 1046.47 s [opt-env-conf-test]
  11885. 1046.47 s [opt-env-conf-test] case mOpt of
  11886. 1046.47 s [opt-env-conf-test] Found a -> do
  11887. 1046.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
  11888. 1046.47 s [opt-env-conf-test] @@ -349,14 +349,14 @@
  11889. 1046.47 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  11890. 1046.47 s [opt-env-conf-test] -- result.
  11891. 1046.47 s [opt-env-conf-test] results <- for founds $ \varStr ->
  11892. 1046.48 s [opt-env-conf-test] - case tryReaders rs varStr of
  11893. 1046.48 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  11894. 1046.48 s [opt-env-conf-test] - Right a -> do
  11895. 1046.48 s [opt-env-conf-test] - debug
  11896. 1046.48 s [opt-env-conf-test] - [ "set based on env: ",
  11897. 1046.48 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  11898. 1046.48 s [opt-env-conf-test] - ]
  11899. 1046.48 s [opt-env-conf-test] - pure a
  11900. 1046.48 s [opt-env-conf-test] + case tryReaders rs varStr of
  11901. 1046.48 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  11902. 1046.48 s [opt-env-conf-test] + Right a -> do
  11903. 1046.48 s [opt-env-conf-test] + debug
  11904. 1046.48 s [opt-env-conf-test] + [ "set based on env: ",
  11905. 1046.48 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  11906. 1046.48 s [opt-env-conf-test] + ]
  11907. 1046.48 s [opt-env-conf-test] + pure a
  11908. 1046.48 s [opt-env-conf-test] case listToMaybe results of
  11909. 1046.48 s [opt-env-conf-test] Nothing -> do
  11910. 1046.48 s [opt-env-conf-test] debug
  11911. 1046.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
  11912. 1046.48 s [opt-env-conf-test] @@ -349,14 +349,14 @@
  11913. 1046.48 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  11914. 1046.48 s [opt-env-conf-test] -- result.
  11915. 1046.48 s [opt-env-conf-test] results <- for founds $ \varStr ->
  11916. 1046.48 s [opt-env-conf-test] - case tryReaders rs varStr of
  11917. 1046.48 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  11918. 1046.48 s [opt-env-conf-test] - Right a -> do
  11919. 1046.48 s [opt-env-conf-test] - debug
  11920. 1046.48 s [opt-env-conf-test] - [ "set based on env: ",
  11921. 1046.48 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  11922. 1046.48 s [opt-env-conf-test] - ]
  11923. 1046.48 s [opt-env-conf-test] - pure a
  11924. 1046.48 s [opt-env-conf-test] + case tryReaders rs varStr of
  11925. 1046.48 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  11926. 1046.48 s [opt-env-conf-test] + Right a -> do
  11927. 1046.48 s [opt-env-conf-test] + debug
  11928. 1046.48 s [opt-env-conf-test] + [ "set based on env: ",
  11929. 1046.48 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  11930. 1046.48 s [opt-env-conf-test] + ]
  11931. 1046.48 s [opt-env-conf-test] + pure a
  11932. 1046.48 s [opt-env-conf-test] case listToMaybe results of
  11933. 1046.48 s [opt-env-conf-test] Nothing -> do
  11934. 1046.48 s [opt-env-conf-test] debug
  11935. 1046.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
  11936. 1046.48 s [opt-env-conf-test] @@ -357,14 +357,14 @@
  11937. 1046.48 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  11938. 1046.48 s [opt-env-conf-test] ]
  11939. 1046.48 s [opt-env-conf-test] pure a
  11940. 1046.48 s [opt-env-conf-test] - case listToMaybe results of
  11941. 1046.48 s [opt-env-conf-test] - Nothing -> do
  11942. 1046.48 s [opt-env-conf-test] - debug
  11943. 1046.48 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  11944. 1046.48 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  11945. 1046.48 s [opt-env-conf-test] - ]
  11946. 1046.48 s [opt-env-conf-test] - pure NotFound
  11947. 1046.48 s [opt-env-conf-test] - Just a -> pure $ Found a
  11948. 1046.48 s [opt-env-conf-test] + case listToMaybe results of
  11949. 1046.48 s [opt-env-conf-test] + Nothing -> do
  11950. 1046.48 s [opt-env-conf-test] + debug
  11951. 1046.48 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  11952. 1046.48 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  11953. 1046.48 s [opt-env-conf-test] + ]
  11954. 1046.48 s [opt-env-conf-test] + pure NotFound
  11955. 1046.48 s [opt-env-conf-test] + Just a -> pure $ Found a
  11956. 1046.48 s [opt-env-conf-test]
  11957. 1046.48 s [opt-env-conf-test] case mEnv of
  11958. 1046.48 s [opt-env-conf-test] Found a -> do
  11959. 1046.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
  11960. 1046.48 s [opt-env-conf-test] @@ -357,14 +357,14 @@
  11961. 1046.48 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  11962. 1046.49 s [opt-env-conf-test] ]
  11963. 1046.49 s [opt-env-conf-test] pure a
  11964. 1046.49 s [opt-env-conf-test] - case listToMaybe results of
  11965. 1046.49 s [opt-env-conf-test] - Nothing -> do
  11966. 1046.49 s [opt-env-conf-test] - debug
  11967. 1046.49 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  11968. 1046.49 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  11969. 1046.49 s [opt-env-conf-test] - ]
  11970. 1046.49 s [opt-env-conf-test] - pure NotFound
  11971. 1046.49 s [opt-env-conf-test] - Just a -> pure $ Found a
  11972. 1046.49 s [opt-env-conf-test] + case listToMaybe results of
  11973. 1046.49 s [opt-env-conf-test] + Nothing -> do
  11974. 1046.49 s [opt-env-conf-test] + debug
  11975. 1046.49 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  11976. 1046.49 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  11977. 1046.49 s [opt-env-conf-test] + ]
  11978. 1046.49 s [opt-env-conf-test] + pure NotFound
  11979. 1046.49 s [opt-env-conf-test] + Just a -> pure $ Found a
  11980. 1046.49 s [opt-env-conf-test]
  11981. 1046.49 s [opt-env-conf-test] case mEnv of
  11982. 1046.49 s [opt-env-conf-test] Found a -> do
  11983. 1046.49 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
  11984. 1046.49 s [opt-env-conf-test] @@ -336,35 +336,35 @@
  11985. 1046.49 s [opt-env-conf-test] pure a
  11986. 1046.49 s [opt-env-conf-test] _ -> do
  11987. 1046.49 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  11988. 1046.49 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  11989. 1046.49 s [opt-env-conf-test] - Nothing -> pure NotRun
  11990. 1046.49 s [opt-env-conf-test] - Just ne -> do
  11991. 1046.49 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  11992. 1046.49 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  11993. 1046.49 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  11994. 1046.49 s [opt-env-conf-test] - es <- asks ppEnvEnv
  11995. 1046.49 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  11996. 1046.49 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  11997. 1046.49 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  11998. 1046.49 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  11999. 1046.49 s [opt-env-conf-test] - -- result.
  12000. 1046.49 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  12001. 1046.49 s [opt-env-conf-test] - case tryReaders rs varStr of
  12002. 1046.49 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12003. 1046.49 s [opt-env-conf-test] - Right a -> do
  12004. 1046.49 s [opt-env-conf-test] - debug
  12005. 1046.49 s [opt-env-conf-test] - [ "set based on env: ",
  12006. 1046.49 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  12007. 1046.49 s [opt-env-conf-test] - ]
  12008. 1046.49 s [opt-env-conf-test] - pure a
  12009. 1046.49 s [opt-env-conf-test] - case listToMaybe results of
  12010. 1046.49 s [opt-env-conf-test] - Nothing -> do
  12011. 1046.49 s [opt-env-conf-test] - debug
  12012. 1046.49 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  12013. 1046.49 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12014. 1046.49 s [opt-env-conf-test] - ]
  12015. 1046.49 s [opt-env-conf-test] - pure NotFound
  12016. 1046.49 s [opt-env-conf-test] - Just a -> pure $ Found a
  12017. 1046.49 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  12018. 1046.49 s [opt-env-conf-test] + Nothing -> pure NotRun
  12019. 1046.49 s [opt-env-conf-test] + Just ne -> do
  12020. 1046.49 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  12021. 1046.49 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  12022. 1046.49 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  12023. 1046.49 s [opt-env-conf-test] + es <- asks ppEnvEnv
  12024. 1046.49 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  12025. 1046.49 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  12026. 1046.49 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  12027. 1046.49 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  12028. 1046.49 s [opt-env-conf-test] + -- result.
  12029. 1046.49 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  12030. 1047.64 s [opt-env-conf-test] + case tryReaders rs varStr of
  12031. 1047.64 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12032. 1047.64 s [opt-env-conf-test] + Right a -> do
  12033. 1047.64 s [opt-env-conf-test] + debug
  12034. 1047.64 s [opt-env-conf-test] + [ "set based on env: ",
  12035. 1047.64 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  12036. 1047.64 s [opt-env-conf-test] + ]
  12037. 1047.64 s [opt-env-conf-test] + pure a
  12038. 1047.64 s [opt-env-conf-test] + case listToMaybe results of
  12039. 1047.64 s [opt-env-conf-test] + Nothing -> do
  12040. 1047.64 s [opt-env-conf-test] + debug
  12041. 1047.64 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  12042. 1047.64 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12043. 1047.64 s [opt-env-conf-test] + ]
  12044. 1047.64 s [opt-env-conf-test] + pure NotFound
  12045. 1047.64 s [opt-env-conf-test] + Just a -> pure $ Found a
  12046. 1047.64 s [opt-env-conf-test]
  12047. 1047.64 s [opt-env-conf-test] case mEnv of
  12048. 1047.64 s [opt-env-conf-test] Found a -> do
  12049. 1047.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
  12050. 1047.64 s [opt-env-conf-test] @@ -336,35 +336,35 @@
  12051. 1047.64 s [opt-env-conf-test] pure a
  12052. 1047.64 s [opt-env-conf-test] _ -> do
  12053. 1047.64 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  12054. 1047.64 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  12055. 1047.64 s [opt-env-conf-test] - Nothing -> pure NotRun
  12056. 1047.64 s [opt-env-conf-test] - Just ne -> do
  12057. 1047.64 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  12058. 1047.64 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  12059. 1047.64 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  12060. 1047.64 s [opt-env-conf-test] - es <- asks ppEnvEnv
  12061. 1047.64 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  12062. 1047.64 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  12063. 1047.64 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  12064. 1047.64 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  12065. 1047.64 s [opt-env-conf-test] - -- result.
  12066. 1047.64 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  12067. 1047.64 s [opt-env-conf-test] - case tryReaders rs varStr of
  12068. 1047.64 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12069. 1047.64 s [opt-env-conf-test] - Right a -> do
  12070. 1047.65 s [opt-env-conf-test] - debug
  12071. 1047.65 s [opt-env-conf-test] - [ "set based on env: ",
  12072. 1047.65 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  12073. 1047.65 s [opt-env-conf-test] - ]
  12074. 1047.65 s [opt-env-conf-test] - pure a
  12075. 1047.65 s [opt-env-conf-test] - case listToMaybe results of
  12076. 1047.65 s [opt-env-conf-test] - Nothing -> do
  12077. 1047.65 s [opt-env-conf-test] - debug
  12078. 1047.65 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  12079. 1047.65 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12080. 1047.65 s [opt-env-conf-test] - ]
  12081. 1047.65 s [opt-env-conf-test] - pure NotFound
  12082. 1047.65 s [opt-env-conf-test] - Just a -> pure $ Found a
  12083. 1047.65 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  12084. 1047.65 s [opt-env-conf-test] + Nothing -> pure NotRun
  12085. 1047.65 s [opt-env-conf-test] + Just ne -> do
  12086. 1047.65 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  12087. 1047.65 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  12088. 1047.65 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  12089. 1047.65 s [opt-env-conf-test] + es <- asks ppEnvEnv
  12090. 1047.65 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  12091. 1047.65 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  12092. 1047.65 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  12093. 1047.65 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  12094. 1047.65 s [opt-env-conf-test] + -- result.
  12095. 1047.65 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  12096. 1047.65 s [opt-env-conf-test] + case tryReaders rs varStr of
  12097. 1047.65 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  12098. 1047.65 s [opt-env-conf-test] + Right a -> do
  12099. 1047.65 s [opt-env-conf-test] + debug
  12100. 1047.65 s [opt-env-conf-test] + [ "set based on env: ",
  12101. 1047.65 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  12102. 1047.65 s [opt-env-conf-test] + ]
  12103. 1047.65 s [opt-env-conf-test] + pure a
  12104. 1047.65 s [opt-env-conf-test] + case listToMaybe results of
  12105. 1047.65 s [opt-env-conf-test] + Nothing -> do
  12106. 1047.65 s [opt-env-conf-test] + debug
  12107. 1047.65 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  12108. 1047.65 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  12109. 1047.65 s [opt-env-conf-test] + ]
  12110. 1047.65 s [opt-env-conf-test] + pure NotFound
  12111. 1047.65 s [opt-env-conf-test] + Just a -> pure $ Found a
  12112. 1047.65 s [opt-env-conf-test]
  12113. 1047.65 s [opt-env-conf-test] case mEnv of
  12114. 1047.65 s [opt-env-conf-test] Found a -> do
  12115. 1047.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
  12116. 1047.65 s [opt-env-conf-test] @@ -385,9 +385,9 @@
  12117. 1047.65 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12118. 1047.65 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12119. 1047.65 s [opt-env-conf-test] Nothing -> do
  12120. 1047.65 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12121. 1047.65 s [opt-env-conf-test] - Nothing -> pure Nothing
  12122. 1047.65 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12123. 1047.65 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  12124. 1047.65 s [opt-env-conf-test] + Nothing -> pure Nothing
  12125. 1047.65 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  12126. 1047.65 s [opt-env-conf-test] Just neRest -> do
  12127. 1047.65 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12128. 1047.65 s [opt-env-conf-test] case mO' of
  12129. 1047.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
  12130. 1047.65 s [opt-env-conf-test] @@ -385,9 +385,9 @@
  12131. 1047.65 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12132. 1047.65 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12133. 1047.65 s [opt-env-conf-test] Nothing -> do
  12134. 1047.65 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12135. 1047.65 s [opt-env-conf-test] - Nothing -> pure Nothing
  12136. 1047.65 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12137. 1047.65 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  12138. 1047.65 s [opt-env-conf-test] + Nothing -> pure Nothing
  12139. 1047.65 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  12140. 1047.65 s [opt-env-conf-test] Just neRest -> do
  12141. 1047.65 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12142. 1047.65 s [opt-env-conf-test] case mO' of
  12143. 1047.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  12144. 1047.65 s [opt-env-conf-test] @@ -390,9 +390,9 @@
  12145. 1047.65 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  12146. 1047.65 s [opt-env-conf-test] Just neRest -> do
  12147. 1047.65 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12148. 1047.65 s [opt-env-conf-test] - case mO' of
  12149. 1047.65 s [opt-env-conf-test] - Nothing -> pure Nothing
  12150. 1047.65 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12151. 1047.65 s [opt-env-conf-test] + case mO' of
  12152. 1047.65 s [opt-env-conf-test] + Nothing -> pure Nothing
  12153. 1047.65 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  12154. 1047.65 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12155. 1047.65 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12156. 1047.65 s [opt-env-conf-test] Right mV -> case mV of
  12157. 1047.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  12158. 1047.65 s [opt-env-conf-test] @@ -390,9 +390,9 @@
  12159. 1047.65 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  12160. 1047.65 s [opt-env-conf-test] Just neRest -> do
  12161. 1047.65 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  12162. 1047.65 s [opt-env-conf-test] - case mO' of
  12163. 1049.74 s [opt-env-conf-test] - Nothing -> pure Nothing
  12164. 1049.84 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12165. 1049.84 s [opt-env-conf-test] + case mO' of
  12166. 1049.84 s [opt-env-conf-test] + Nothing -> pure Nothing
  12167. 1049.84 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  12168. 1049.84 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12169. 1049.84 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12170. 1049.84 s [opt-env-conf-test] Right mV -> case mV of
  12171. 1049.84 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
  12172. 1049.84 s [opt-env-conf-test] @@ -383,16 +383,16 @@
  12173. 1049.84 s [opt-env-conf-test] Just obj -> do
  12174. 1049.84 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  12175. 1049.84 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12176. 1049.84 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12177. 1049.84 s [opt-env-conf-test] - Nothing -> do
  12178. 1049.84 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12179. 1049.84 s [opt-env-conf-test] - Nothing -> pure Nothing
  12180. 1049.84 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12181. 1049.84 s [opt-env-conf-test] - Just neRest -> do
  12182. 1049.84 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  12183. 1049.84 s [opt-env-conf-test] - case mO' of
  12184. 1049.84 s [opt-env-conf-test] - Nothing -> pure Nothing
  12185. 1049.84 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12186. 1049.84 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12187. 1049.84 s [opt-env-conf-test] + Nothing -> do
  12188. 1049.84 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  12189. 1049.84 s [opt-env-conf-test] + Nothing -> pure Nothing
  12190. 1049.84 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  12191. 1049.85 s [opt-env-conf-test] + Just neRest -> do
  12192. 1049.85 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  12193. 1049.85 s [opt-env-conf-test] + case mO' of
  12194. 1049.85 s [opt-env-conf-test] + Nothing -> pure Nothing
  12195. 1049.85 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  12196. 1049.85 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12197. 1049.85 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12198. 1049.85 s [opt-env-conf-test] Right mV -> case mV of
  12199. 1049.85 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
  12200. 1049.85 s [opt-env-conf-test] @@ -285,20 +285,20 @@
  12201. 1049.85 s [opt-env-conf-test] markParsed
  12202. 1049.85 s [opt-env-conf-test] pure a
  12203. 1049.85 s [opt-env-conf-test] _ -> do
  12204. 1049.85 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  12205. 1049.85 s [opt-env-conf-test] - Nothing -> pure NotRun
  12206. 1049.85 s [opt-env-conf-test] - Just a -> do
  12207. 1049.85 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  12208. 1049.85 s [opt-env-conf-test] - case mS of
  12209. 1049.85 s [opt-env-conf-test] - Nothing -> do
  12210. 1049.85 s [opt-env-conf-test] - debug
  12211. 1049.85 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  12212. 1049.85 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  12213. 1049.85 s [opt-env-conf-test] - ]
  12214. 1049.85 s [opt-env-conf-test] - pure NotFound
  12215. 1049.85 s [opt-env-conf-test] - Just () -> cap $ do
  12216. 1049.85 s [opt-env-conf-test] - debug ["set based on switch."]
  12217. 1049.85 s [opt-env-conf-test] - pure $ Found a
  12218. 1049.85 s [opt-env-conf-test] + mSwitch <- case settingSwitchValue of
  12219. 1049.85 s [opt-env-conf-test] + Nothing -> pure NotRun
  12220. 1049.85 s [opt-env-conf-test] + Just a -> do
  12221. 1049.85 s [opt-env-conf-test] + mS <- ppSwitch settingDasheds
  12222. 1049.85 s [opt-env-conf-test] + case mS of
  12223. 1049.85 s [opt-env-conf-test] + Nothing -> do
  12224. 1049.85 s [opt-env-conf-test] + debug
  12225. 1049.85 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  12226. 1049.85 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  12227. 1049.85 s [opt-env-conf-test] + ]
  12228. 1049.85 s [opt-env-conf-test] + pure NotFound
  12229. 1049.85 s [opt-env-conf-test] + Just () -> cap $ do
  12230. 1049.85 s [opt-env-conf-test] + debug ["set based on switch."]
  12231. 1049.85 s [opt-env-conf-test] + pure $ Found a
  12232. 1049.85 s [opt-env-conf-test]
  12233. 1049.85 s [opt-env-conf-test] case mSwitch of
  12234. 1049.85 s [opt-env-conf-test] Found a -> do
  12235. 1049.85 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
  12236. 1049.85 s [opt-env-conf-test] @@ -285,20 +285,20 @@
  12237. 1049.85 s [opt-env-conf-test] markParsed
  12238. 1049.85 s [opt-env-conf-test] pure a
  12239. 1049.85 s [opt-env-conf-test] _ -> do
  12240. 1049.85 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  12241. 1049.85 s [opt-env-conf-test] - Nothing -> pure NotRun
  12242. 1049.85 s [opt-env-conf-test] - Just a -> do
  12243. 1049.85 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  12244. 1049.85 s [opt-env-conf-test] - case mS of
  12245. 1049.85 s [opt-env-conf-test] - Nothing -> do
  12246. 1049.85 s [opt-env-conf-test] - debug
  12247. 1049.85 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  12248. 1049.85 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  12249. 1049.85 s [opt-env-conf-test] - ]
  12250. 1049.85 s [opt-env-conf-test] - pure NotFound
  12251. 1049.85 s [opt-env-conf-test] - Just () -> cap $ do
  12252. 1049.85 s [opt-env-conf-test] - debug ["set based on switch."]
  12253. 1049.85 s [opt-env-conf-test] - pure $ Found a
  12254. 1049.85 s [opt-env-conf-test] + mSwitch <- case settingSwitchValue of
  12255. 1049.85 s [opt-env-conf-test] + Nothing -> pure NotRun
  12256. 1049.85 s [opt-env-conf-test] + Just a -> do
  12257. 1049.85 s [opt-env-conf-test] + mS <- ppSwitch settingDasheds
  12258. 1049.85 s [opt-env-conf-test] + case mS of
  12259. 1049.85 s [opt-env-conf-test] + Nothing -> do
  12260. 1049.85 s [opt-env-conf-test] + debug
  12261. 1049.85 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  12262. 1049.85 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  12263. 1049.85 s [opt-env-conf-test] + ]
  12264. 1049.85 s [opt-env-conf-test] + pure NotFound
  12265. 1049.85 s [opt-env-conf-test] + Just () -> cap $ do
  12266. 1049.85 s [opt-env-conf-test] + debug ["set based on switch."]
  12267. 1049.85 s [opt-env-conf-test] + pure $ Found a
  12268. 1049.85 s [opt-env-conf-test]
  12269. 1049.85 s [opt-env-conf-test] case mSwitch of
  12270. 1049.86 s [opt-env-conf-test] Found a -> do
  12271. 1049.86 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:262:13-31
  12272. 1049.86 s [opt-env-conf-test] @@ -259,26 +259,26 @@
  12273. 1049.86 s [opt-env-conf-test] mLoc
  12274. 1049.86 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  12275. 1049.86 s [opt-env-conf-test] mArg <-
  12276. 1049.86 s [opt-env-conf-test] - if settingTryArgument
  12277. 1049.86 s [opt-env-conf-test] - then do
  12278. 1049.86 s [opt-env-conf-test] - -- Require readers before finding the argument so the parser
  12279. 1049.86 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  12280. 1049.86 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  12281. 1049.86 s [opt-env-conf-test] - mS <- ppArg
  12282. 1049.86 s [opt-env-conf-test] - case mS of
  12283. 1049.86 s [opt-env-conf-test] - Nothing -> do
  12284. 1049.86 s [opt-env-conf-test] - debug ["could not set based on argument: no argument"]
  12285. 1049.86 s [opt-env-conf-test] - pure NotFound
  12286. 1049.86 s [opt-env-conf-test] - Just argStr -> cap $
  12287. 1049.86 s [opt-env-conf-test] - case tryReaders rs argStr of
  12288. 1049.86 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12289. 1049.86 s [opt-env-conf-test] - Right a -> do
  12290. 1049.86 s [opt-env-conf-test] - debug
  12291. 1049.86 s [opt-env-conf-test] - [ "set based on argument: ",
  12292. 1049.86 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  12293. 1049.86 s [opt-env-conf-test] - ]
  12294. 1049.86 s [opt-env-conf-test] - pure $ Found a
  12295. 1049.86 s [opt-env-conf-test] - else pure NotRun
  12296. 1049.86 s [opt-env-conf-test] + if settingTryArgument
  12297. 1049.86 s [opt-env-conf-test] + then do
  12298. 1049.86 s [opt-env-conf-test] + -- Require readers before finding the argument so the parser
  12299. 1049.86 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  12300. 1049.86 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  12301. 1049.86 s [opt-env-conf-test] + mS <- ppArg
  12302. 1049.86 s [opt-env-conf-test] + case mS of
  12303. 1049.86 s [opt-env-conf-test] + Nothing -> do
  12304. 1049.86 s [opt-env-conf-test] + debug ["could not set based on argument: no argument"]
  12305. 1049.86 s [opt-env-conf-test] + pure NotFound
  12306. 1049.86 s [opt-env-conf-test] + Just argStr -> cap $
  12307. 1049.86 s [opt-env-conf-test] + case tryReaders rs argStr of
  12308. 1049.86 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12309. 1049.86 s [opt-env-conf-test] + Right a -> do
  12310. 1049.86 s [opt-env-conf-test] + debug
  12311. 1049.86 s [opt-env-conf-test] + [ "set based on argument: ",
  12312. 1049.86 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  12313. 1049.86 s [opt-env-conf-test] + ]
  12314. 1049.86 s [opt-env-conf-test] + pure $ Found a
  12315. 1049.86 s [opt-env-conf-test] + else pure NotRun
  12316. 1049.86 s [opt-env-conf-test]
  12317. 1049.86 s [opt-env-conf-test] case mArg of
  12318. 1049.86 s [opt-env-conf-test] Found a -> do
  12319. 1049.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
  12320. 1049.86 s [opt-env-conf-test] @@ -289,16 +289,16 @@
  12321. 1049.86 s [opt-env-conf-test] Nothing -> pure NotRun
  12322. 1049.86 s [opt-env-conf-test] Just a -> do
  12323. 1049.86 s [opt-env-conf-test] mS <- ppSwitch settingDasheds
  12324. 1049.86 s [opt-env-conf-test] - case mS of
  12325. 1049.86 s [opt-env-conf-test] - Nothing -> do
  12326. 1049.86 s [opt-env-conf-test] - debug
  12327. 1049.86 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  12328. 1049.86 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  12329. 1051.15 s [opt-env-conf-test] - ]
  12330. 1051.15 s [opt-env-conf-test] - pure NotFound
  12331. 1051.15 s [opt-env-conf-test] - Just () -> cap $ do
  12332. 1051.15 s [opt-env-conf-test] - debug ["set based on switch."]
  12333. 1051.15 s [opt-env-conf-test] - pure $ Found a
  12334. 1051.15 s [opt-env-conf-test] + case mS of
  12335. 1051.15 s [opt-env-conf-test] + Nothing -> do
  12336. 1051.16 s [opt-env-conf-test] + debug
  12337. 1051.16 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  12338. 1051.16 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  12339. 1051.16 s [opt-env-conf-test] + ]
  12340. 1051.16 s [opt-env-conf-test] + pure NotFound
  12341. 1051.16 s [opt-env-conf-test] + Just () -> cap $ do
  12342. 1051.16 s [opt-env-conf-test] + debug ["set based on switch."]
  12343. 1051.16 s [opt-env-conf-test] + pure $ Found a
  12344. 1051.16 s [opt-env-conf-test]
  12345. 1051.16 s [opt-env-conf-test] case mSwitch of
  12346. 1051.16 s [opt-env-conf-test] Found a -> do
  12347. 1051.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
  12348. 1051.16 s [opt-env-conf-test] @@ -404,19 +404,19 @@
  12349. 1051.16 s [opt-env-conf-test] pure Nothing
  12350. 1051.16 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12351. 1051.16 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12352. 1051.16 s [opt-env-conf-test] - Right mA -> case mA of
  12353. 1051.16 s [opt-env-conf-test] - Nothing -> do
  12354. 1051.16 s [opt-env-conf-test] - debug
  12355. 1051.16 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12356. 1051.16 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12357. 1051.16 s [opt-env-conf-test] - ]
  12358. 1051.16 s [opt-env-conf-test] - pure Nothing
  12359. 1051.16 s [opt-env-conf-test] - Just a -> do
  12360. 1051.16 s [opt-env-conf-test] - debug
  12361. 1051.16 s [opt-env-conf-test] - [ "set based on config value: ",
  12362. 1051.16 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12363. 1051.16 s [opt-env-conf-test] - ]
  12364. 1051.16 s [opt-env-conf-test] - pure $ Just a
  12365. 1051.16 s [opt-env-conf-test] + Right mA -> case mA of
  12366. 1051.16 s [opt-env-conf-test] + Nothing -> do
  12367. 1051.16 s [opt-env-conf-test] + debug
  12368. 1051.16 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12369. 1051.16 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12370. 1051.16 s [opt-env-conf-test] + ]
  12371. 1051.16 s [opt-env-conf-test] + pure Nothing
  12372. 1051.16 s [opt-env-conf-test] + Just a -> do
  12373. 1051.16 s [opt-env-conf-test] + debug
  12374. 1051.16 s [opt-env-conf-test] + [ "set based on config value: ",
  12375. 1051.16 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12376. 1051.16 s [opt-env-conf-test] + ]
  12377. 1051.16 s [opt-env-conf-test] + pure $ Just a
  12378. 1051.16 s [opt-env-conf-test] let toRes = \case
  12379. 1051.16 s [opt-env-conf-test] Nothing -> NotFound
  12380. 1051.16 s [opt-env-conf-test] Just a -> Found a
  12381. 1051.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
  12382. 1051.16 s [opt-env-conf-test] @@ -383,16 +383,16 @@
  12383. 1051.16 s [opt-env-conf-test] Just obj -> do
  12384. 1051.16 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  12385. 1051.16 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12386. 1051.16 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12387. 1051.16 s [opt-env-conf-test] - Nothing -> do
  12388. 1051.16 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12389. 1051.16 s [opt-env-conf-test] - Nothing -> pure Nothing
  12390. 1051.16 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12391. 1051.16 s [opt-env-conf-test] - Just neRest -> do
  12392. 1051.16 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  12393. 1051.16 s [opt-env-conf-test] - case mO' of
  12394. 1051.16 s [opt-env-conf-test] - Nothing -> pure Nothing
  12395. 1051.16 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12396. 1051.16 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12397. 1051.16 s [opt-env-conf-test] + Nothing -> do
  12398. 1051.16 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  12399. 1051.16 s [opt-env-conf-test] + Nothing -> pure Nothing
  12400. 1051.16 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  12401. 1051.16 s [opt-env-conf-test] + Just neRest -> do
  12402. 1051.16 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  12403. 1051.16 s [opt-env-conf-test] + case mO' of
  12404. 1051.16 s [opt-env-conf-test] + Nothing -> pure Nothing
  12405. 1051.16 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  12406. 1051.16 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12407. 1051.16 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12408. 1051.16 s [opt-env-conf-test] Right mV -> case mV of
  12409. 1051.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
  12410. 1051.16 s [opt-env-conf-test] @@ -404,19 +404,19 @@
  12411. 1051.16 s [opt-env-conf-test] pure Nothing
  12412. 1051.16 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12413. 1051.16 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12414. 1051.16 s [opt-env-conf-test] - Right mA -> case mA of
  12415. 1051.16 s [opt-env-conf-test] - Nothing -> do
  12416. 1051.16 s [opt-env-conf-test] - debug
  12417. 1051.16 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12418. 1051.16 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12419. 1051.16 s [opt-env-conf-test] - ]
  12420. 1051.16 s [opt-env-conf-test] - pure Nothing
  12421. 1051.16 s [opt-env-conf-test] - Just a -> do
  12422. 1051.16 s [opt-env-conf-test] - debug
  12423. 1051.16 s [opt-env-conf-test] - [ "set based on config value: ",
  12424. 1051.16 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12425. 1051.16 s [opt-env-conf-test] - ]
  12426. 1051.16 s [opt-env-conf-test] - pure $ Just a
  12427. 1051.16 s [opt-env-conf-test] + Right mA -> case mA of
  12428. 1051.16 s [opt-env-conf-test] + Nothing -> do
  12429. 1051.16 s [opt-env-conf-test] + debug
  12430. 1051.16 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12431. 1051.16 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12432. 1051.16 s [opt-env-conf-test] + ]
  12433. 1051.16 s [opt-env-conf-test] + pure Nothing
  12434. 1051.16 s [opt-env-conf-test] + Just a -> do
  12435. 1051.16 s [opt-env-conf-test] + debug
  12436. 1051.16 s [opt-env-conf-test] + [ "set based on config value: ",
  12437. 1051.16 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12438. 1051.16 s [opt-env-conf-test] + ]
  12439. 1051.16 s [opt-env-conf-test] + pure $ Just a
  12440. 1051.16 s [opt-env-conf-test] let toRes = \case
  12441. 1051.16 s [opt-env-conf-test] Nothing -> NotFound
  12442. 1051.16 s [opt-env-conf-test] Just a -> Found a
  12443. 1051.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
  12444. 1051.16 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  12445. 1051.16 s [opt-env-conf-test] mLoc
  12446. 1051.16 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  12447. 1051.16 s [opt-env-conf-test] mArg <-
  12448. 1051.16 s [opt-env-conf-test] - if settingTryArgument
  12449. 1051.16 s [opt-env-conf-test] + if False
  12450. 1051.16 s [opt-env-conf-test] then do
  12451. 1051.16 s [opt-env-conf-test] -- Require readers before finding the argument so the parser
  12452. 1051.16 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12453. 1051.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
  12454. 1051.16 s [opt-env-conf-test] @@ -216,11 +216,11 @@
  12455. 1051.63 s [opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
  12456. 1051.63 s [opt-env-conf-test] go $ commandParser dc
  12457. 1051.63 s [opt-env-conf-test] Just s -> do
  12458. 1051.63 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  12459. 1051.63 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  12460. 1051.63 s [opt-env-conf-test] - Just c -> do
  12461. 1051.63 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  12462. 1051.63 s [opt-env-conf-test] - go $ commandParser c
  12463. 1051.63 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  12464. 1051.63 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  12465. 1051.63 s [opt-env-conf-test] + Just c -> do
  12466. 1051.63 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  12467. 1051.63 s [opt-env-conf-test] + go $ commandParser c
  12468. 1051.63 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  12469. 1051.63 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  12470. 1051.63 s [opt-env-conf-test] ppIndent $ do
  12471. 1051.63 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
  12472. 1051.63 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  12473. 1051.63 s [opt-env-conf-test] mLoc
  12474. 1051.63 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  12475. 1051.63 s [opt-env-conf-test] mArg <-
  12476. 1051.63 s [opt-env-conf-test] - if settingTryArgument
  12477. 1051.63 s [opt-env-conf-test] + if True
  12478. 1051.63 s [opt-env-conf-test] then do
  12479. 1051.63 s [opt-env-conf-test] -- Require readers before finding the argument so the parser
  12480. 1051.63 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12481. 1051.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  12482. 1051.63 s [opt-env-conf-test] @@ -402,21 +402,21 @@
  12483. 1051.63 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12484. 1051.63 s [opt-env-conf-test] ]
  12485. 1051.63 s [opt-env-conf-test] pure Nothing
  12486. 1051.63 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12487. 1051.63 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12488. 1051.63 s [opt-env-conf-test] - Right mA -> case mA of
  12489. 1051.63 s [opt-env-conf-test] - Nothing -> do
  12490. 1051.63 s [opt-env-conf-test] - debug
  12491. 1051.63 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12492. 1051.63 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12493. 1051.63 s [opt-env-conf-test] - ]
  12494. 1051.63 s [opt-env-conf-test] - pure Nothing
  12495. 1051.63 s [opt-env-conf-test] - Just a -> do
  12496. 1051.64 s [opt-env-conf-test] - debug
  12497. 1051.64 s [opt-env-conf-test] - [ "set based on config value: ",
  12498. 1051.64 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12499. 1051.64 s [opt-env-conf-test] - ]
  12500. 1051.64 s [opt-env-conf-test] - pure $ Just a
  12501. 1051.64 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12502. 1051.64 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12503. 1051.64 s [opt-env-conf-test] + Right mA -> case mA of
  12504. 1051.64 s [opt-env-conf-test] + Nothing -> do
  12505. 1051.64 s [opt-env-conf-test] + debug
  12506. 1051.64 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12507. 1051.64 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12508. 1051.64 s [opt-env-conf-test] + ]
  12509. 1051.64 s [opt-env-conf-test] + pure Nothing
  12510. 1051.64 s [opt-env-conf-test] + Just a -> do
  12511. 1051.64 s [opt-env-conf-test] + debug
  12512. 1051.64 s [opt-env-conf-test] + [ "set based on config value: ",
  12513. 1051.64 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12514. 1051.64 s [opt-env-conf-test] + ]
  12515. 1051.64 s [opt-env-conf-test] + pure $ Just a
  12516. 1051.64 s [opt-env-conf-test] let toRes = \case
  12517. 1051.64 s [opt-env-conf-test] Nothing -> NotFound
  12518. 1051.64 s [opt-env-conf-test] Just a -> Found a
  12519. 1051.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
  12520. 1051.64 s [opt-env-conf-test] @@ -265,19 +265,19 @@
  12521. 1051.64 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12522. 1051.64 s [opt-env-conf-test] rs <- requireReaders settingReaders
  12523. 1051.64 s [opt-env-conf-test] mS <- ppArg
  12524. 1051.64 s [opt-env-conf-test] - case mS of
  12525. 1051.64 s [opt-env-conf-test] - Nothing -> do
  12526. 1051.64 s [opt-env-conf-test] - debug ["could not set based on argument: no argument"]
  12527. 1051.64 s [opt-env-conf-test] - pure NotFound
  12528. 1051.64 s [opt-env-conf-test] - Just argStr -> cap $
  12529. 1051.64 s [opt-env-conf-test] - case tryReaders rs argStr of
  12530. 1051.64 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12531. 1051.65 s [opt-env-conf-test] - Right a -> do
  12532. 1051.65 s [opt-env-conf-test] - debug
  12533. 1051.65 s [opt-env-conf-test] - [ "set based on argument: ",
  12534. 1051.65 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  12535. 1051.65 s [opt-env-conf-test] - ]
  12536. 1051.65 s [opt-env-conf-test] - pure $ Found a
  12537. 1051.65 s [opt-env-conf-test] + case mS of
  12538. 1051.65 s [opt-env-conf-test] + Nothing -> do
  12539. 1051.65 s [opt-env-conf-test] + debug ["could not set based on argument: no argument"]
  12540. 1051.65 s [opt-env-conf-test] + pure NotFound
  12541. 1051.65 s [opt-env-conf-test] + Just argStr -> cap $
  12542. 1051.65 s [opt-env-conf-test] + case tryReaders rs argStr of
  12543. 1051.65 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12544. 1051.65 s [opt-env-conf-test] + Right a -> do
  12545. 1051.65 s [opt-env-conf-test] + debug
  12546. 1051.65 s [opt-env-conf-test] + [ "set based on argument: ",
  12547. 1051.65 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  12548. 1051.65 s [opt-env-conf-test] + ]
  12549. 1051.65 s [opt-env-conf-test] + pure $ Found a
  12550. 1051.65 s [opt-env-conf-test] else pure NotRun
  12551. 1051.65 s [opt-env-conf-test]
  12552. 1051.65 s [opt-env-conf-test] case mArg of
  12553. 1051.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
  12554. 1051.65 s [opt-env-conf-test] @@ -395,28 +395,28 @@
  12555. 1051.65 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12556. 1051.65 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12557. 1051.65 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12558. 1051.65 s [opt-env-conf-test] - Right mV -> case mV of
  12559. 1051.65 s [opt-env-conf-test] - Nothing -> do
  12560. 1051.65 s [opt-env-conf-test] - debug
  12561. 1051.65 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  12562. 1051.65 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12563. 1051.65 s [opt-env-conf-test] - ]
  12564. 1051.65 s [opt-env-conf-test] - pure Nothing
  12565. 1051.65 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12566. 1051.65 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12567. 1051.65 s [opt-env-conf-test] - Right mA -> case mA of
  12568. 1051.65 s [opt-env-conf-test] - Nothing -> do
  12569. 1051.65 s [opt-env-conf-test] - debug
  12570. 1051.65 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12571. 1051.65 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12572. 1051.65 s [opt-env-conf-test] - ]
  12573. 1051.65 s [opt-env-conf-test] - pure Nothing
  12574. 1051.65 s [opt-env-conf-test] - Just a -> do
  12575. 1051.65 s [opt-env-conf-test] - debug
  12576. 1051.65 s [opt-env-conf-test] - [ "set based on config value: ",
  12577. 1051.65 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12578. 1051.65 s [opt-env-conf-test] - ]
  12579. 1051.65 s [opt-env-conf-test] - pure $ Just a
  12580. 1051.65 s [opt-env-conf-test] + Right mV -> case mV of
  12581. 1051.65 s [opt-env-conf-test] + Nothing -> do
  12582. 1051.65 s [opt-env-conf-test] + debug
  12583. 1051.65 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  12584. 1051.65 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12585. 1051.65 s [opt-env-conf-test] + ]
  12586. 1051.65 s [opt-env-conf-test] + pure Nothing
  12587. 1051.65 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12588. 1051.95 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12589. 1051.95 s [opt-env-conf-test] + Right mA -> case mA of
  12590. 1051.95 s [opt-env-conf-test] + Nothing -> do
  12591. 1051.95 s [opt-env-conf-test] + debug
  12592. 1051.95 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12593. 1051.95 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12594. 1051.95 s [opt-env-conf-test] + ]
  12595. 1051.95 s [opt-env-conf-test] + pure Nothing
  12596. 1051.95 s [opt-env-conf-test] + Just a -> do
  12597. 1051.95 s [opt-env-conf-test] + debug
  12598. 1051.95 s [opt-env-conf-test] + [ "set based on config value: ",
  12599. 1051.95 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12600. 1051.95 s [opt-env-conf-test] + ]
  12601. 1051.95 s [opt-env-conf-test] + pure $ Just a
  12602. 1051.95 s [opt-env-conf-test] let toRes = \case
  12603. 1051.95 s [opt-env-conf-test] Nothing -> NotFound
  12604. 1051.95 s [opt-env-conf-test] Just a -> Found a
  12605. 1051.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
  12606. 1051.95 s [opt-env-conf-test] @@ -424,9 +424,9 @@
  12607. 1051.95 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  12608. 1051.95 s [opt-env-conf-test] Just ne -> do
  12609. 1051.96 s [opt-env-conf-test] res <- goConfSet confSet
  12610. 1051.96 s [opt-env-conf-test] - case res of
  12611. 1051.96 s [opt-env-conf-test] - Just a -> pure $ Found a
  12612. 1051.96 s [opt-env-conf-test] - Nothing -> goConfSets ne
  12613. 1051.96 s [opt-env-conf-test] + case res of
  12614. 1051.96 s [opt-env-conf-test] + Just a -> pure $ Found a
  12615. 1051.96 s [opt-env-conf-test] + Nothing -> goConfSets ne
  12616. 1051.96 s [opt-env-conf-test] goConfSets confSets
  12617. 1051.96 s [opt-env-conf-test] case mConf of
  12618. 1051.96 s [opt-env-conf-test] Found a -> do
  12619. 1051.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
  12620. 1051.96 s [opt-env-conf-test] @@ -395,28 +395,28 @@
  12621. 1051.96 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  12622. 1051.96 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  12623. 1051.96 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12624. 1051.96 s [opt-env-conf-test] - Right mV -> case mV of
  12625. 1051.96 s [opt-env-conf-test] - Nothing -> do
  12626. 1051.96 s [opt-env-conf-test] - debug
  12627. 1051.96 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  12628. 1051.96 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12629. 1051.96 s [opt-env-conf-test] - ]
  12630. 1051.96 s [opt-env-conf-test] - pure Nothing
  12631. 1051.96 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12632. 1051.96 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12633. 1051.96 s [opt-env-conf-test] - Right mA -> case mA of
  12634. 1051.96 s [opt-env-conf-test] - Nothing -> do
  12635. 1051.96 s [opt-env-conf-test] - debug
  12636. 1051.96 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12637. 1051.96 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12638. 1051.96 s [opt-env-conf-test] - ]
  12639. 1051.96 s [opt-env-conf-test] - pure Nothing
  12640. 1051.96 s [opt-env-conf-test] - Just a -> do
  12641. 1051.96 s [opt-env-conf-test] - debug
  12642. 1051.96 s [opt-env-conf-test] - [ "set based on config value: ",
  12643. 1051.96 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12644. 1051.96 s [opt-env-conf-test] - ]
  12645. 1051.96 s [opt-env-conf-test] - pure $ Just a
  12646. 1051.96 s [opt-env-conf-test] + Right mV -> case mV of
  12647. 1051.96 s [opt-env-conf-test] + Nothing -> do
  12648. 1051.96 s [opt-env-conf-test] + debug
  12649. 1051.96 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  12650. 1051.96 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12651. 1051.96 s [opt-env-conf-test] + ]
  12652. 1051.96 s [opt-env-conf-test] + pure Nothing
  12653. 1051.96 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12654. 1051.96 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12655. 1051.96 s [opt-env-conf-test] + Right mA -> case mA of
  12656. 1051.96 s [opt-env-conf-test] + Nothing -> do
  12657. 1051.96 s [opt-env-conf-test] + debug
  12658. 1051.96 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12659. 1051.96 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12660. 1051.96 s [opt-env-conf-test] + ]
  12661. 1051.96 s [opt-env-conf-test] + pure Nothing
  12662. 1051.96 s [opt-env-conf-test] + Just a -> do
  12663. 1051.96 s [opt-env-conf-test] + debug
  12664. 1051.96 s [opt-env-conf-test] + [ "set based on config value: ",
  12665. 1051.96 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12666. 1051.96 s [opt-env-conf-test] + ]
  12667. 1051.96 s [opt-env-conf-test] + pure $ Just a
  12668. 1051.96 s [opt-env-conf-test] let toRes = \case
  12669. 1051.96 s [opt-env-conf-test] Nothing -> NotFound
  12670. 1051.96 s [opt-env-conf-test] Just a -> Found a
  12671. 1051.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  12672. 1051.96 s [opt-env-conf-test] @@ -402,21 +402,21 @@
  12673. 1051.96 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  12674. 1051.97 s [opt-env-conf-test] ]
  12675. 1051.97 s [opt-env-conf-test] pure Nothing
  12676. 1051.97 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12677. 1051.97 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12678. 1051.97 s [opt-env-conf-test] - Right mA -> case mA of
  12679. 1051.97 s [opt-env-conf-test] - Nothing -> do
  12680. 1051.97 s [opt-env-conf-test] - debug
  12681. 1051.97 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12682. 1051.97 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12683. 1051.97 s [opt-env-conf-test] - ]
  12684. 1051.97 s [opt-env-conf-test] - pure Nothing
  12685. 1051.97 s [opt-env-conf-test] - Just a -> do
  12686. 1051.97 s [opt-env-conf-test] - debug
  12687. 1051.97 s [opt-env-conf-test] - [ "set based on config value: ",
  12688. 1051.97 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12689. 1051.97 s [opt-env-conf-test] - ]
  12690. 1051.97 s [opt-env-conf-test] - pure $ Just a
  12691. 1051.97 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12692. 1051.97 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12693. 1051.97 s [opt-env-conf-test] + Right mA -> case mA of
  12694. 1051.97 s [opt-env-conf-test] + Nothing -> do
  12695. 1051.97 s [opt-env-conf-test] + debug
  12696. 1051.97 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12697. 1051.97 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12698. 1051.97 s [opt-env-conf-test] + ]
  12699. 1051.97 s [opt-env-conf-test] + pure Nothing
  12700. 1052.03 s [opt-env-conf-test] + Just a -> do
  12701. 1052.03 s [opt-env-conf-test] + debug
  12702. 1052.03 s [opt-env-conf-test] + [ "set based on config value: ",
  12703. 1052.03 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12704. 1052.03 s [opt-env-conf-test] + ]
  12705. 1052.03 s [opt-env-conf-test] + pure $ Just a
  12706. 1052.03 s [opt-env-conf-test] let toRes = \case
  12707. 1052.03 s [opt-env-conf-test] Nothing -> NotFound
  12708. 1052.03 s [opt-env-conf-test] Just a -> Found a
  12709. 1052.03 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
  12710. 1052.03 s [opt-env-conf-test] @@ -265,19 +265,19 @@
  12711. 1052.03 s [opt-env-conf-test] -- always fails if it's missing a reader.
  12712. 1052.03 s [opt-env-conf-test] rs <- requireReaders settingReaders
  12713. 1052.03 s [opt-env-conf-test] mS <- ppArg
  12714. 1052.03 s [opt-env-conf-test] - case mS of
  12715. 1052.03 s [opt-env-conf-test] - Nothing -> do
  12716. 1052.03 s [opt-env-conf-test] - debug ["could not set based on argument: no argument"]
  12717. 1052.03 s [opt-env-conf-test] - pure NotFound
  12718. 1052.03 s [opt-env-conf-test] - Just argStr -> cap $
  12719. 1052.03 s [opt-env-conf-test] - case tryReaders rs argStr of
  12720. 1052.03 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12721. 1052.03 s [opt-env-conf-test] - Right a -> do
  12722. 1052.03 s [opt-env-conf-test] - debug
  12723. 1052.03 s [opt-env-conf-test] - [ "set based on argument: ",
  12724. 1052.03 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  12725. 1052.03 s [opt-env-conf-test] - ]
  12726. 1052.03 s [opt-env-conf-test] - pure $ Found a
  12727. 1052.03 s [opt-env-conf-test] + case mS of
  12728. 1052.03 s [opt-env-conf-test] + Nothing -> do
  12729. 1052.03 s [opt-env-conf-test] + debug ["could not set based on argument: no argument"]
  12730. 1052.03 s [opt-env-conf-test] + pure NotFound
  12731. 1052.03 s [opt-env-conf-test] + Just argStr -> cap $
  12732. 1052.03 s [opt-env-conf-test] + case tryReaders rs argStr of
  12733. 1052.03 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  12734. 1052.03 s [opt-env-conf-test] + Right a -> do
  12735. 1052.03 s [opt-env-conf-test] + debug
  12736. 1052.03 s [opt-env-conf-test] + [ "set based on argument: ",
  12737. 1052.03 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  12738. 1052.03 s [opt-env-conf-test] + ]
  12739. 1052.03 s [opt-env-conf-test] + pure $ Found a
  12740. 1052.03 s [opt-env-conf-test] else pure NotRun
  12741. 1052.04 s [opt-env-conf-test]
  12742. 1052.04 s [opt-env-conf-test] case mArg of
  12743. 1052.04 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
  12744. 1052.04 s [opt-env-conf-test] @@ -372,62 +372,62 @@
  12745. 1052.04 s [opt-env-conf-test] pure a
  12746. 1052.04 s [opt-env-conf-test] _ -> do
  12747. 1052.04 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  12748. 1052.04 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  12749. 1052.04 s [opt-env-conf-test] - Nothing -> pure NotRun
  12750. 1052.04 s [opt-env-conf-test] - Just confSets -> do
  12751. 1052.04 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  12752. 1052.04 s [opt-env-conf-test] - case mObj of
  12753. 1052.04 s [opt-env-conf-test] - Nothing -> do
  12754. 1052.04 s [opt-env-conf-test] - debug ["no config object to set from"]
  12755. 1052.04 s [opt-env-conf-test] - pure NotFound
  12756. 1052.04 s [opt-env-conf-test] - Just obj -> do
  12757. 1052.04 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  12758. 1052.04 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12759. 1052.04 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12760. 1052.04 s [opt-env-conf-test] - Nothing -> do
  12761. 1052.04 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  12762. 1052.04 s [opt-env-conf-test] - Nothing -> pure Nothing
  12763. 1052.04 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  12764. 1052.04 s [opt-env-conf-test] - Just neRest -> do
  12765. 1052.04 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  12766. 1052.04 s [opt-env-conf-test] - case mO' of
  12767. 1052.04 s [opt-env-conf-test] - Nothing -> pure Nothing
  12768. 1052.04 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  12769. 1052.04 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  12770. 1052.04 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12771. 1052.04 s [opt-env-conf-test] - Right mV -> case mV of
  12772. 1052.04 s [opt-env-conf-test] - Nothing -> do
  12773. 1052.04 s [opt-env-conf-test] - debug
  12774. 1052.04 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  12775. 1052.04 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12776. 1052.04 s [opt-env-conf-test] - ]
  12777. 1052.04 s [opt-env-conf-test] - pure Nothing
  12778. 1052.04 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12779. 1052.04 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12780. 1052.04 s [opt-env-conf-test] - Right mA -> case mA of
  12781. 1052.04 s [opt-env-conf-test] - Nothing -> do
  12782. 1052.04 s [opt-env-conf-test] - debug
  12783. 1052.04 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  12784. 1052.04 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  12785. 1052.04 s [opt-env-conf-test] - ]
  12786. 1052.04 s [opt-env-conf-test] - pure Nothing
  12787. 1052.04 s [opt-env-conf-test] - Just a -> do
  12788. 1052.04 s [opt-env-conf-test] - debug
  12789. 1052.04 s [opt-env-conf-test] - [ "set based on config value: ",
  12790. 1052.04 s [opt-env-conf-test] - chunk $ T.pack $ show v
  12791. 1052.04 s [opt-env-conf-test] - ]
  12792. 1052.04 s [opt-env-conf-test] - pure $ Just a
  12793. 1052.04 s [opt-env-conf-test] - let toRes = \case
  12794. 1052.04 s [opt-env-conf-test] - Nothing -> NotFound
  12795. 1052.04 s [opt-env-conf-test] - Just a -> Found a
  12796. 1052.04 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  12797. 1052.04 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  12798. 1052.04 s [opt-env-conf-test] - Just ne -> do
  12799. 1052.04 s [opt-env-conf-test] - res <- goConfSet confSet
  12800. 1052.04 s [opt-env-conf-test] - case res of
  12801. 1052.04 s [opt-env-conf-test] - Just a -> pure $ Found a
  12802. 1052.04 s [opt-env-conf-test] - Nothing -> goConfSets ne
  12803. 1052.04 s [opt-env-conf-test] - goConfSets confSets
  12804. 1052.04 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  12805. 1052.04 s [opt-env-conf-test] + Nothing -> pure NotRun
  12806. 1052.04 s [opt-env-conf-test] + Just confSets -> do
  12807. 1052.04 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  12808. 1052.04 s [opt-env-conf-test] + case mObj of
  12809. 1052.04 s [opt-env-conf-test] + Nothing -> do
  12810. 1052.04 s [opt-env-conf-test] + debug ["no config object to set from"]
  12811. 1052.04 s [opt-env-conf-test] + pure NotFound
  12812. 1052.04 s [opt-env-conf-test] + Just obj -> do
  12813. 1052.04 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  12814. 1052.04 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  12815. 1052.04 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  12816. 1052.04 s [opt-env-conf-test] + Nothing -> do
  12817. 1052.04 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  12818. 1052.04 s [opt-env-conf-test] + Nothing -> pure Nothing
  12819. 1052.04 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  12820. 1052.04 s [opt-env-conf-test] + Just neRest -> do
  12821. 1052.04 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  12822. 1052.04 s [opt-env-conf-test] + case mO' of
  12823. 1052.04 s [opt-env-conf-test] + Nothing -> pure Nothing
  12824. 1052.04 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  12825. 1052.04 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  12826. 1052.04 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12827. 1052.04 s [opt-env-conf-test] + Right mV -> case mV of
  12828. 1052.04 s [opt-env-conf-test] + Nothing -> do
  12829. 1052.04 s [opt-env-conf-test] + debug
  12830. 1052.77 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  12831. 1052.77 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12832. 1052.77 s [opt-env-conf-test] + ]
  12833. 1052.77 s [opt-env-conf-test] + pure Nothing
  12834. 1052.78 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  12835. 1052.78 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  12836. 1052.78 s [opt-env-conf-test] + Right mA -> case mA of
  12837. 1052.78 s [opt-env-conf-test] + Nothing -> do
  12838. 1052.78 s [opt-env-conf-test] + debug
  12839. 1052.78 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  12840. 1052.78 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  12841. 1052.78 s [opt-env-conf-test] + ]
  12842. 1052.78 s [opt-env-conf-test] + pure Nothing
  12843. 1052.78 s [opt-env-conf-test] + Just a -> do
  12844. 1052.78 s [opt-env-conf-test] + debug
  12845. 1052.78 s [opt-env-conf-test] + [ "set based on config value: ",
  12846. 1052.78 s [opt-env-conf-test] + chunk $ T.pack $ show v
  12847. 1052.78 s [opt-env-conf-test] + ]
  12848. 1052.78 s [opt-env-conf-test] + pure $ Just a
  12849. 1052.78 s [opt-env-conf-test] + let toRes = \case
  12850. 1052.78 s [opt-env-conf-test] + Nothing -> NotFound
  12851. 1052.78 s [opt-env-conf-test] + Just a -> Found a
  12852. 1052.78 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  12853. 1052.78 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  12854. 1052.78 s [opt-env-conf-test] + Just ne -> do
  12855. 1052.78 s [opt-env-conf-test] + res <- goConfSet confSet
  12856. 1052.78 s [opt-env-conf-test] + case res of
  12857. 1052.78 s [opt-env-conf-test] + Just a -> pure $ Found a
  12858. 1052.78 s [opt-env-conf-test] + Nothing -> goConfSets ne
  12859. 1052.78 s [opt-env-conf-test] + goConfSets confSets
  12860. 1052.78 s [opt-env-conf-test] case mConf of
  12861. 1052.78 s [opt-env-conf-test] Found a -> do
  12862. 1052.78 s [opt-env-conf-test] markParsed
  12863. 1052.78 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  12864. 1052.78 s [opt-env-conf-test] @@ -438,10 +438,10 @@
  12865. 1052.78 s [opt-env-conf-test] debug ["set to default value"]
  12866. 1052.78 s [opt-env-conf-test] pure a -- Don't mark as parsed
  12867. 1052.78 s [opt-env-conf-test] Nothing -> do
  12868. 1052.78 s [opt-env-conf-test] - let parseResultError e res = case res of
  12869. 1052.78 s [opt-env-conf-test] - NotRun -> Nothing
  12870. 1052.78 s [opt-env-conf-test] - NotFound -> Just e
  12871. 1052.78 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  12872. 1052.78 s [opt-env-conf-test] + let parseResultError e res = case res of
  12873. 1052.78 s [opt-env-conf-test] + NotRun -> Nothing
  12874. 1052.78 s [opt-env-conf-test] + NotFound -> Just e
  12875. 1052.78 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  12876. 1052.78 s [opt-env-conf-test] debug ["not found"]
  12877. 1052.78 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  12878. 1052.78 s [opt-env-conf-test] NE.nonEmpty $
  12879. 1052.78 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  12880. 1052.78 s [opt-env-conf-test] @@ -438,10 +438,10 @@
  12881. 1052.78 s [opt-env-conf-test] debug ["set to default value"]
  12882. 1052.78 s [opt-env-conf-test] pure a -- Don't mark as parsed
  12883. 1052.78 s [opt-env-conf-test] Nothing -> do
  12884. 1052.78 s [opt-env-conf-test] - let parseResultError e res = case res of
  12885. 1052.78 s [opt-env-conf-test] - NotRun -> Nothing
  12886. 1052.78 s [opt-env-conf-test] - NotFound -> Just e
  12887. 1052.78 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  12888. 1052.78 s [opt-env-conf-test] + let parseResultError e res = case res of
  12889. 1052.78 s [opt-env-conf-test] + NotRun -> Nothing
  12890. 1052.78 s [opt-env-conf-test] + NotFound -> Just e
  12891. 1052.78 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  12892. 1052.78 s [opt-env-conf-test] debug ["not found"]
  12893. 1052.78 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  12894. 1052.78 s [opt-env-conf-test] NE.nonEmpty $
  12895. 1052.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  12896. 1052.78 s [opt-env-conf-test] @@ -446,12 +446,12 @@
  12897. 1052.78 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  12898. 1052.78 s [opt-env-conf-test] NE.nonEmpty $
  12899. 1052.78 s [opt-env-conf-test] catMaybes
  12900. 1052.78 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  12901. 1052.78 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  12902. 1052.78 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  12903. 1052.78 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  12904. 1052.78 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  12905. 1052.78 s [opt-env-conf-test] - ]
  12906. 1052.78 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  12907. 1052.78 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  12908. 1052.78 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  12909. 1052.78 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  12910. 1052.78 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  12911. 1052.78 s [opt-env-conf-test] + ]
  12912. 1052.78 s [opt-env-conf-test]
  12913. 1052.78 s [opt-env-conf-test] withCapabilities ::
  12914. 1052.78 s [opt-env-conf-test] Maybe SrcLoc ->
  12915. 1052.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  12916. 1052.78 s [opt-env-conf-test] @@ -446,12 +446,7 @@
  12917. 1052.78 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  12918. 1052.78 s [opt-env-conf-test] NE.nonEmpty $
  12919. 1052.78 s [opt-env-conf-test] catMaybes
  12920. 1052.78 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  12921. 1052.78 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  12922. 1052.78 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  12923. 1052.79 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  12924. 1052.79 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  12925. 1052.79 s [opt-env-conf-test] - ]
  12926. 1052.79 s [opt-env-conf-test] + []
  12927. 1052.79 s [opt-env-conf-test]
  12928. 1052.79 s [opt-env-conf-test] withCapabilities ::
  12929. 1052.79 s [opt-env-conf-test] Maybe SrcLoc ->
  12930. 1052.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  12931. 1052.79 s [opt-env-conf-test] @@ -446,12 +446,12 @@
  12932. 1052.79 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  12933. 1052.79 s [opt-env-conf-test] NE.nonEmpty $
  12934. 1052.79 s [opt-env-conf-test] catMaybes
  12935. 1052.79 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  12936. 1052.79 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  12937. 1052.79 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  12938. 1052.79 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  12939. 1052.79 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  12940. 1052.79 s [opt-env-conf-test] - ]
  12941. 1052.79 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  12942. 1052.79 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  12943. 1052.79 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  12944. 1052.79 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  12945. 1052.79 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  12946. 1052.79 s [opt-env-conf-test] + ]
  12947. 1052.79 s [opt-env-conf-test]
  12948. 1052.79 s [opt-env-conf-test] withCapabilities ::
  12949. 1052.79 s [opt-env-conf-test] Maybe SrcLoc ->
  12950. 1052.79 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:440:44-42
  12951. 1052.79 s [opt-env-conf-test] @@ -437,21 +437,21 @@
  12952. 1053.22 s [opt-env-conf-test] Just (a, _) -> do
  12953. 1053.22 s [opt-env-conf-test] debug ["set to default value"]
  12954. 1053.22 s [opt-env-conf-test] pure a -- Don't mark as parsed
  12955. 1053.22 s [opt-env-conf-test] - Nothing -> do
  12956. 1053.22 s [opt-env-conf-test] - let parseResultError e res = case res of
  12957. 1053.22 s [opt-env-conf-test] - NotRun -> Nothing
  12958. 1053.22 s [opt-env-conf-test] - NotFound -> Just e
  12959. 1053.22 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  12960. 1053.22 s [opt-env-conf-test] - debug ["not found"]
  12961. 1053.22 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  12962. 1053.22 s [opt-env-conf-test] - NE.nonEmpty $
  12963. 1053.22 s [opt-env-conf-test] - catMaybes
  12964. 1053.22 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  12965. 1053.22 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  12966. 1053.22 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  12967. 1053.22 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  12968. 1053.22 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  12969. 1053.22 s [opt-env-conf-test] - ]
  12970. 1053.22 s [opt-env-conf-test] + Nothing -> do
  12971. 1053.23 s [opt-env-conf-test] + let parseResultError e res = case res of
  12972. 1053.23 s [opt-env-conf-test] + NotRun -> Nothing
  12973. 1053.23 s [opt-env-conf-test] + NotFound -> Just e
  12974. 1053.23 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  12975. 1053.23 s [opt-env-conf-test] + debug ["not found"]
  12976. 1053.23 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  12977. 1053.23 s [opt-env-conf-test] + NE.nonEmpty $
  12978. 1053.23 s [opt-env-conf-test] + catMaybes
  12979. 1053.23 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  12980. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  12981. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  12982. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  12983. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  12984. 1053.23 s [opt-env-conf-test] + ]
  12985. 1053.23 s [opt-env-conf-test]
  12986. 1053.23 s [opt-env-conf-test] withCapabilities ::
  12987. 1053.23 s [opt-env-conf-test] Maybe SrcLoc ->
  12988. 1053.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
  12989. 1053.23 s [opt-env-conf-test] @@ -433,25 +433,25 @@
  12990. 1053.23 s [opt-env-conf-test] markParsed
  12991. 1053.23 s [opt-env-conf-test] pure a
  12992. 1053.23 s [opt-env-conf-test] _ ->
  12993. 1053.23 s [opt-env-conf-test] - case settingDefaultValue of
  12994. 1053.23 s [opt-env-conf-test] - Just (a, _) -> do
  12995. 1053.23 s [opt-env-conf-test] - debug ["set to default value"]
  12996. 1053.23 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  12997. 1053.23 s [opt-env-conf-test] - Nothing -> do
  12998. 1053.23 s [opt-env-conf-test] - let parseResultError e res = case res of
  12999. 1053.23 s [opt-env-conf-test] - NotRun -> Nothing
  13000. 1053.23 s [opt-env-conf-test] - NotFound -> Just e
  13001. 1053.23 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13002. 1053.23 s [opt-env-conf-test] - debug ["not found"]
  13003. 1053.23 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13004. 1053.23 s [opt-env-conf-test] - NE.nonEmpty $
  13005. 1053.23 s [opt-env-conf-test] - catMaybes
  13006. 1053.23 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13007. 1053.23 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13008. 1053.23 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13009. 1053.23 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13010. 1053.23 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13011. 1053.23 s [opt-env-conf-test] - ]
  13012. 1053.23 s [opt-env-conf-test] + case settingDefaultValue of
  13013. 1053.23 s [opt-env-conf-test] + Just (a, _) -> do
  13014. 1053.23 s [opt-env-conf-test] + debug ["set to default value"]
  13015. 1053.23 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13016. 1053.23 s [opt-env-conf-test] + Nothing -> do
  13017. 1053.23 s [opt-env-conf-test] + let parseResultError e res = case res of
  13018. 1053.23 s [opt-env-conf-test] + NotRun -> Nothing
  13019. 1053.23 s [opt-env-conf-test] + NotFound -> Just e
  13020. 1053.23 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13021. 1053.23 s [opt-env-conf-test] + debug ["not found"]
  13022. 1053.23 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13023. 1053.23 s [opt-env-conf-test] + NE.nonEmpty $
  13024. 1053.23 s [opt-env-conf-test] + catMaybes
  13025. 1053.23 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13026. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13027. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13028. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13029. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13030. 1053.23 s [opt-env-conf-test] + ]
  13031. 1053.23 s [opt-env-conf-test]
  13032. 1053.23 s [opt-env-conf-test] withCapabilities ::
  13033. 1053.23 s [opt-env-conf-test] Maybe SrcLoc ->
  13034. 1053.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
  13035. 1053.23 s [opt-env-conf-test] @@ -433,25 +433,25 @@
  13036. 1053.23 s [opt-env-conf-test] markParsed
  13037. 1053.23 s [opt-env-conf-test] pure a
  13038. 1053.23 s [opt-env-conf-test] _ ->
  13039. 1053.23 s [opt-env-conf-test] - case settingDefaultValue of
  13040. 1053.23 s [opt-env-conf-test] - Just (a, _) -> do
  13041. 1053.23 s [opt-env-conf-test] - debug ["set to default value"]
  13042. 1053.23 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13043. 1053.23 s [opt-env-conf-test] - Nothing -> do
  13044. 1053.23 s [opt-env-conf-test] - let parseResultError e res = case res of
  13045. 1053.23 s [opt-env-conf-test] - NotRun -> Nothing
  13046. 1053.23 s [opt-env-conf-test] - NotFound -> Just e
  13047. 1053.23 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13048. 1053.23 s [opt-env-conf-test] - debug ["not found"]
  13049. 1053.23 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13050. 1053.23 s [opt-env-conf-test] - NE.nonEmpty $
  13051. 1053.23 s [opt-env-conf-test] - catMaybes
  13052. 1053.23 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13053. 1053.23 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13054. 1053.23 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13055. 1053.23 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13056. 1053.23 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13057. 1053.23 s [opt-env-conf-test] - ]
  13058. 1053.23 s [opt-env-conf-test] + case settingDefaultValue of
  13059. 1053.23 s [opt-env-conf-test] + Just (a, _) -> do
  13060. 1053.23 s [opt-env-conf-test] + debug ["set to default value"]
  13061. 1053.23 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13062. 1053.23 s [opt-env-conf-test] + Nothing -> do
  13063. 1053.23 s [opt-env-conf-test] + let parseResultError e res = case res of
  13064. 1053.23 s [opt-env-conf-test] + NotRun -> Nothing
  13065. 1053.23 s [opt-env-conf-test] + NotFound -> Just e
  13066. 1053.23 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13067. 1053.23 s [opt-env-conf-test] + debug ["not found"]
  13068. 1053.23 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13069. 1053.23 s [opt-env-conf-test] + NE.nonEmpty $
  13070. 1053.23 s [opt-env-conf-test] + catMaybes
  13071. 1053.23 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13072. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13073. 1053.23 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13074. 1055.52 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13075. 1055.52 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13076. 1055.64 s [opt-env-conf-test] + ]
  13077. 1055.64 s [opt-env-conf-test]
  13078. 1055.64 s [opt-env-conf-test] withCapabilities ::
  13079. 1055.64 s [opt-env-conf-test] Maybe SrcLoc ->
  13080. 1055.64 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
  13081. 1055.64 s [opt-env-conf-test] @@ -428,30 +428,30 @@
  13082. 1055.64 s [opt-env-conf-test] Just a -> pure $ Found a
  13083. 1055.64 s [opt-env-conf-test] Nothing -> goConfSets ne
  13084. 1055.64 s [opt-env-conf-test] goConfSets confSets
  13085. 1055.64 s [opt-env-conf-test] - case mConf of
  13086. 1055.64 s [opt-env-conf-test] - Found a -> do
  13087. 1055.64 s [opt-env-conf-test] - markParsed
  13088. 1055.64 s [opt-env-conf-test] - pure a
  13089. 1055.64 s [opt-env-conf-test] - _ ->
  13090. 1055.64 s [opt-env-conf-test] - case settingDefaultValue of
  13091. 1055.64 s [opt-env-conf-test] - Just (a, _) -> do
  13092. 1055.64 s [opt-env-conf-test] - debug ["set to default value"]
  13093. 1055.65 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13094. 1055.65 s [opt-env-conf-test] - Nothing -> do
  13095. 1055.65 s [opt-env-conf-test] - let parseResultError e res = case res of
  13096. 1055.65 s [opt-env-conf-test] - NotRun -> Nothing
  13097. 1055.65 s [opt-env-conf-test] - NotFound -> Just e
  13098. 1055.65 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13099. 1055.65 s [opt-env-conf-test] - debug ["not found"]
  13100. 1055.65 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13101. 1055.65 s [opt-env-conf-test] - NE.nonEmpty $
  13102. 1055.65 s [opt-env-conf-test] - catMaybes
  13103. 1055.65 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13104. 1055.65 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13105. 1055.65 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13106. 1055.65 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13107. 1055.65 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13108. 1055.65 s [opt-env-conf-test] - ]
  13109. 1055.65 s [opt-env-conf-test] + case mConf of
  13110. 1055.65 s [opt-env-conf-test] + Found a -> do
  13111. 1055.65 s [opt-env-conf-test] + markParsed
  13112. 1055.65 s [opt-env-conf-test] + pure a
  13113. 1055.65 s [opt-env-conf-test] + _ ->
  13114. 1055.65 s [opt-env-conf-test] + case settingDefaultValue of
  13115. 1055.65 s [opt-env-conf-test] + Just (a, _) -> do
  13116. 1055.65 s [opt-env-conf-test] + debug ["set to default value"]
  13117. 1055.65 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13118. 1055.65 s [opt-env-conf-test] + Nothing -> do
  13119. 1055.65 s [opt-env-conf-test] + let parseResultError e res = case res of
  13120. 1055.65 s [opt-env-conf-test] + NotRun -> Nothing
  13121. 1055.65 s [opt-env-conf-test] + NotFound -> Just e
  13122. 1055.65 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13123. 1055.65 s [opt-env-conf-test] + debug ["not found"]
  13124. 1055.65 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13125. 1055.65 s [opt-env-conf-test] + NE.nonEmpty $
  13126. 1055.65 s [opt-env-conf-test] + catMaybes
  13127. 1055.65 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13128. 1055.65 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13129. 1055.65 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13130. 1055.65 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13131. 1055.65 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13132. 1055.65 s [opt-env-conf-test] + ]
  13133. 1055.65 s [opt-env-conf-test]
  13134. 1055.65 s [opt-env-conf-test] withCapabilities ::
  13135. 1055.65 s [opt-env-conf-test] Maybe SrcLoc ->
  13136. 1055.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
  13137. 1055.65 s [opt-env-conf-test] @@ -428,30 +428,30 @@
  13138. 1055.65 s [opt-env-conf-test] Just a -> pure $ Found a
  13139. 1055.65 s [opt-env-conf-test] Nothing -> goConfSets ne
  13140. 1055.65 s [opt-env-conf-test] goConfSets confSets
  13141. 1055.65 s [opt-env-conf-test] - case mConf of
  13142. 1055.65 s [opt-env-conf-test] - Found a -> do
  13143. 1055.65 s [opt-env-conf-test] - markParsed
  13144. 1055.65 s [opt-env-conf-test] - pure a
  13145. 1055.65 s [opt-env-conf-test] - _ ->
  13146. 1055.65 s [opt-env-conf-test] - case settingDefaultValue of
  13147. 1055.65 s [opt-env-conf-test] - Just (a, _) -> do
  13148. 1055.65 s [opt-env-conf-test] - debug ["set to default value"]
  13149. 1055.65 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13150. 1055.65 s [opt-env-conf-test] - Nothing -> do
  13151. 1055.65 s [opt-env-conf-test] - let parseResultError e res = case res of
  13152. 1055.65 s [opt-env-conf-test] - NotRun -> Nothing
  13153. 1055.65 s [opt-env-conf-test] - NotFound -> Just e
  13154. 1055.65 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13155. 1055.65 s [opt-env-conf-test] - debug ["not found"]
  13156. 1055.65 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13157. 1055.65 s [opt-env-conf-test] - NE.nonEmpty $
  13158. 1055.65 s [opt-env-conf-test] - catMaybes
  13159. 1055.65 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13160. 1055.65 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13161. 1055.65 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13162. 1055.65 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13163. 1055.65 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13164. 1055.65 s [opt-env-conf-test] - ]
  13165. 1055.65 s [opt-env-conf-test] + case mConf of
  13166. 1055.65 s [opt-env-conf-test] + Found a -> do
  13167. 1055.65 s [opt-env-conf-test] + markParsed
  13168. 1055.65 s [opt-env-conf-test] + pure a
  13169. 1055.65 s [opt-env-conf-test] + _ ->
  13170. 1055.65 s [opt-env-conf-test] + case settingDefaultValue of
  13171. 1055.66 s [opt-env-conf-test] + Just (a, _) -> do
  13172. 1055.66 s [opt-env-conf-test] + debug ["set to default value"]
  13173. 1055.66 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13174. 1055.66 s [opt-env-conf-test] + Nothing -> do
  13175. 1055.66 s [opt-env-conf-test] + let parseResultError e res = case res of
  13176. 1055.66 s [opt-env-conf-test] + NotRun -> Nothing
  13177. 1055.66 s [opt-env-conf-test] + NotFound -> Just e
  13178. 1055.66 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13179. 1055.66 s [opt-env-conf-test] + debug ["not found"]
  13180. 1055.66 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13181. 1055.66 s [opt-env-conf-test] + NE.nonEmpty $
  13182. 1055.66 s [opt-env-conf-test] + catMaybes
  13183. 1055.66 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13184. 1055.66 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13185. 1055.66 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13186. 1055.66 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13187. 1055.66 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13188. 1055.66 s [opt-env-conf-test] + ]
  13189. 1055.66 s [opt-env-conf-test]
  13190. 1055.66 s [opt-env-conf-test] withCapabilities ::
  13191. 1055.66 s [opt-env-conf-test] Maybe SrcLoc ->
  13192. 1055.66 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
  13193. 1055.66 s [opt-env-conf-test] @@ -366,92 +366,92 @@
  13194. 1055.66 s [opt-env-conf-test] pure NotFound
  13195. 1055.66 s [opt-env-conf-test] Just a -> pure $ Found a
  13196. 1055.66 s [opt-env-conf-test]
  13197. 1055.66 s [opt-env-conf-test] - case mEnv of
  13198. 1055.66 s [opt-env-conf-test] - Found a -> do
  13199. 1055.66 s [opt-env-conf-test] - markParsed
  13200. 1055.66 s [opt-env-conf-test] - pure a
  13201. 1055.66 s [opt-env-conf-test] - _ -> do
  13202. 1055.66 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  13203. 1055.66 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  13204. 1055.66 s [opt-env-conf-test] - Nothing -> pure NotRun
  13205. 1055.66 s [opt-env-conf-test] - Just confSets -> do
  13206. 1055.66 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13207. 1055.66 s [opt-env-conf-test] - case mObj of
  13208. 1055.66 s [opt-env-conf-test] - Nothing -> do
  13209. 1055.66 s [opt-env-conf-test] - debug ["no config object to set from"]
  13210. 1055.66 s [opt-env-conf-test] - pure NotFound
  13211. 1055.66 s [opt-env-conf-test] - Just obj -> do
  13212. 1055.66 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13213. 1055.66 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13214. 1055.66 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13215. 1055.66 s [opt-env-conf-test] - Nothing -> do
  13216. 1055.66 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13217. 1055.66 s [opt-env-conf-test] - Nothing -> pure Nothing
  13218. 1055.66 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13219. 1055.66 s [opt-env-conf-test] - Just neRest -> do
  13220. 1055.66 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13221. 1055.66 s [opt-env-conf-test] - case mO' of
  13222. 1055.66 s [opt-env-conf-test] - Nothing -> pure Nothing
  13223. 1055.66 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13224. 1055.66 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13225. 1055.66 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13226. 1055.66 s [opt-env-conf-test] - Right mV -> case mV of
  13227. 1055.66 s [opt-env-conf-test] - Nothing -> do
  13228. 1055.66 s [opt-env-conf-test] - debug
  13229. 1055.66 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13230. 1055.66 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13231. 1055.66 s [opt-env-conf-test] - ]
  13232. 1055.66 s [opt-env-conf-test] - pure Nothing
  13233. 1055.66 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13234. 1055.66 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13235. 1055.66 s [opt-env-conf-test] - Right mA -> case mA of
  13236. 1055.66 s [opt-env-conf-test] - Nothing -> do
  13237. 1055.66 s [opt-env-conf-test] - debug
  13238. 1055.66 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13239. 1055.66 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13240. 1055.66 s [opt-env-conf-test] - ]
  13241. 1055.66 s [opt-env-conf-test] - pure Nothing
  13242. 1055.66 s [opt-env-conf-test] - Just a -> do
  13243. 1055.66 s [opt-env-conf-test] - debug
  13244. 1055.66 s [opt-env-conf-test] - [ "set based on config value: ",
  13245. 1055.66 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13246. 1055.66 s [opt-env-conf-test] - ]
  13247. 1055.66 s [opt-env-conf-test] - pure $ Just a
  13248. 1055.66 s [opt-env-conf-test] - let toRes = \case
  13249. 1055.66 s [opt-env-conf-test] - Nothing -> NotFound
  13250. 1055.66 s [opt-env-conf-test] - Just a -> Found a
  13251. 1055.66 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13252. 1055.66 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13253. 1055.66 s [opt-env-conf-test] - Just ne -> do
  13254. 1055.66 s [opt-env-conf-test] - res <- goConfSet confSet
  13255. 1055.66 s [opt-env-conf-test] - case res of
  13256. 1055.66 s [opt-env-conf-test] - Just a -> pure $ Found a
  13257. 1055.66 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13258. 1055.66 s [opt-env-conf-test] - goConfSets confSets
  13259. 1055.66 s [opt-env-conf-test] - case mConf of
  13260. 1055.66 s [opt-env-conf-test] - Found a -> do
  13261. 1055.66 s [opt-env-conf-test] - markParsed
  13262. 1055.67 s [opt-env-conf-test] - pure a
  13263. 1055.67 s [opt-env-conf-test] - _ ->
  13264. 1055.67 s [opt-env-conf-test] - case settingDefaultValue of
  13265. 1055.67 s [opt-env-conf-test] - Just (a, _) -> do
  13266. 1055.67 s [opt-env-conf-test] - debug ["set to default value"]
  13267. 1055.67 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13268. 1055.67 s [opt-env-conf-test] - Nothing -> do
  13269. 1055.67 s [opt-env-conf-test] - let parseResultError e res = case res of
  13270. 1055.67 s [opt-env-conf-test] - NotRun -> Nothing
  13271. 1055.67 s [opt-env-conf-test] - NotFound -> Just e
  13272. 1055.67 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13273. 1055.67 s [opt-env-conf-test] - debug ["not found"]
  13274. 1055.67 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13275. 1055.67 s [opt-env-conf-test] - NE.nonEmpty $
  13276. 1055.67 s [opt-env-conf-test] - catMaybes
  13277. 1055.67 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13278. 1055.67 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13279. 1055.67 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13280. 1055.67 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13281. 1055.67 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13282. 1055.67 s [opt-env-conf-test] - ]
  13283. 1055.67 s [opt-env-conf-test] + case mEnv of
  13284. 1055.67 s [opt-env-conf-test] + Found a -> do
  13285. 1055.67 s [opt-env-conf-test] + markParsed
  13286. 1055.67 s [opt-env-conf-test] + pure a
  13287. 1055.67 s [opt-env-conf-test] + _ -> do
  13288. 1055.67 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  13289. 1055.67 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  13290. 1055.67 s [opt-env-conf-test] + Nothing -> pure NotRun
  13291. 1055.67 s [opt-env-conf-test] + Just confSets -> do
  13292. 1055.67 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  13293. 1055.67 s [opt-env-conf-test] + case mObj of
  13294. 1055.67 s [opt-env-conf-test] + Nothing -> do
  13295. 1055.67 s [opt-env-conf-test] + debug ["no config object to set from"]
  13296. 1055.67 s [opt-env-conf-test] + pure NotFound
  13297. 1055.67 s [opt-env-conf-test] + Just obj -> do
  13298. 1055.67 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  13299. 1055.67 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13300. 1055.67 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13301. 1055.67 s [opt-env-conf-test] + Nothing -> do
  13302. 1055.67 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  13303. 1055.67 s [opt-env-conf-test] + Nothing -> pure Nothing
  13304. 1055.67 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  13305. 1055.67 s [opt-env-conf-test] + Just neRest -> do
  13306. 1055.67 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  13307. 1055.67 s [opt-env-conf-test] + case mO' of
  13308. 1055.67 s [opt-env-conf-test] + Nothing -> pure Nothing
  13309. 1055.67 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  13310. 1055.67 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  13311. 1055.67 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13312. 1055.67 s [opt-env-conf-test] + Right mV -> case mV of
  13313. 1055.67 s [opt-env-conf-test] + Nothing -> do
  13314. 1055.67 s [opt-env-conf-test] + debug
  13315. 1055.67 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  13316. 1055.67 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13317. 1055.67 s [opt-env-conf-test] + ]
  13318. 1055.67 s [opt-env-conf-test] + pure Nothing
  13319. 1055.67 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13320. 1055.67 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13321. 1055.67 s [opt-env-conf-test] + Right mA -> case mA of
  13322. 1055.67 s [opt-env-conf-test] + Nothing -> do
  13323. 1055.67 s [opt-env-conf-test] + debug
  13324. 1055.67 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  13325. 1055.67 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13326. 1055.67 s [opt-env-conf-test] + ]
  13327. 1055.67 s [opt-env-conf-test] + pure Nothing
  13328. 1055.67 s [opt-env-conf-test] + Just a -> do
  13329. 1055.67 s [opt-env-conf-test] + debug
  13330. 1055.67 s [opt-env-conf-test] + [ "set based on config value: ",
  13331. 1055.67 s [opt-env-conf-test] + chunk $ T.pack $ show v
  13332. 1055.67 s [opt-env-conf-test] + ]
  13333. 1055.67 s [opt-env-conf-test] + pure $ Just a
  13334. 1055.67 s [opt-env-conf-test] + let toRes = \case
  13335. 1055.67 s [opt-env-conf-test] + Nothing -> NotFound
  13336. 1055.67 s [opt-env-conf-test] + Just a -> Found a
  13337. 1055.67 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13338. 1055.67 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  13339. 1055.67 s [opt-env-conf-test] + Just ne -> do
  13340. 1055.67 s [opt-env-conf-test] + res <- goConfSet confSet
  13341. 1055.67 s [opt-env-conf-test] + case res of
  13342. 1055.67 s [opt-env-conf-test] + Just a -> pure $ Found a
  13343. 1055.67 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13344. 1055.67 s [opt-env-conf-test] + goConfSets confSets
  13345. 1055.67 s [opt-env-conf-test] + case mConf of
  13346. 1055.67 s [opt-env-conf-test] + Found a -> do
  13347. 1055.67 s [opt-env-conf-test] + markParsed
  13348. 1055.67 s [opt-env-conf-test] + pure a
  13349. 1055.67 s [opt-env-conf-test] + _ ->
  13350. 1055.67 s [opt-env-conf-test] + case settingDefaultValue of
  13351. 1055.67 s [opt-env-conf-test] + Just (a, _) -> do
  13352. 1055.67 s [opt-env-conf-test] + debug ["set to default value"]
  13353. 1055.67 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13354. 1055.67 s [opt-env-conf-test] + Nothing -> do
  13355. 1055.67 s [opt-env-conf-test] + let parseResultError e res = case res of
  13356. 1055.67 s [opt-env-conf-test] + NotRun -> Nothing
  13357. 1055.67 s [opt-env-conf-test] + NotFound -> Just e
  13358. 1055.67 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13359. 1055.67 s [opt-env-conf-test] + debug ["not found"]
  13360. 1055.67 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13361. 1055.67 s [opt-env-conf-test] + NE.nonEmpty $
  13362. 1055.67 s [opt-env-conf-test] + catMaybes
  13363. 1055.67 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13364. 1055.67 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13365. 1055.67 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13366. 1055.67 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13367. 1055.68 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13368. 1055.68 s [opt-env-conf-test] + ]
  13369. 1055.68 s [opt-env-conf-test]
  13370. 1055.68 s [opt-env-conf-test] withCapabilities ::
  13371. 1055.68 s [opt-env-conf-test] Maybe SrcLoc ->
  13372. 1055.68 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
  13373. 1055.68 s [opt-env-conf-test] @@ -330,128 +330,128 @@
  13374. 1055.68 s [opt-env-conf-test] pure $ Found a
  13375. 1055.68 s [opt-env-conf-test] else pure NotRun
  13376. 1055.68 s [opt-env-conf-test]
  13377. 1055.68 s [opt-env-conf-test] - case mOpt of
  13378. 1055.68 s [opt-env-conf-test] - Found a -> do
  13379. 1055.68 s [opt-env-conf-test] - markParsed
  13380. 1055.68 s [opt-env-conf-test] - pure a
  13381. 1055.68 s [opt-env-conf-test] - _ -> do
  13382. 1055.68 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  13383. 1055.68 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  13384. 1055.68 s [opt-env-conf-test] - Nothing -> pure NotRun
  13385. 1055.68 s [opt-env-conf-test] - Just ne -> do
  13386. 1055.68 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  13387. 1055.68 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  13388. 1055.68 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  13389. 1055.68 s [opt-env-conf-test] - es <- asks ppEnvEnv
  13390. 1055.68 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  13391. 1055.68 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  13392. 1055.68 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  13393. 1055.68 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  13394. 1055.68 s [opt-env-conf-test] - -- result.
  13395. 1055.68 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  13396. 1055.68 s [opt-env-conf-test] - case tryReaders rs varStr of
  13397. 1055.68 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  13398. 1055.68 s [opt-env-conf-test] - Right a -> do
  13399. 1055.68 s [opt-env-conf-test] - debug
  13400. 1055.68 s [opt-env-conf-test] - [ "set based on env: ",
  13401. 1055.68 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  13402. 1055.68 s [opt-env-conf-test] - ]
  13403. 1055.68 s [opt-env-conf-test] - pure a
  13404. 1055.68 s [opt-env-conf-test] - case listToMaybe results of
  13405. 1055.68 s [opt-env-conf-test] - Nothing -> do
  13406. 1055.68 s [opt-env-conf-test] - debug
  13407. 1055.68 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  13408. 1055.68 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13409. 1055.68 s [opt-env-conf-test] - ]
  13410. 1055.68 s [opt-env-conf-test] - pure NotFound
  13411. 1055.68 s [opt-env-conf-test] - Just a -> pure $ Found a
  13412. 1055.68 s [opt-env-conf-test] -
  13413. 1055.68 s [opt-env-conf-test] - case mEnv of
  13414. 1055.68 s [opt-env-conf-test] - Found a -> do
  13415. 1055.68 s [opt-env-conf-test] - markParsed
  13416. 1055.68 s [opt-env-conf-test] - pure a
  13417. 1055.68 s [opt-env-conf-test] - _ -> do
  13418. 1055.68 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  13419. 1055.68 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  13420. 1055.68 s [opt-env-conf-test] - Nothing -> pure NotRun
  13421. 1055.68 s [opt-env-conf-test] - Just confSets -> do
  13422. 1055.68 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13423. 1055.68 s [opt-env-conf-test] - case mObj of
  13424. 1055.68 s [opt-env-conf-test] - Nothing -> do
  13425. 1055.68 s [opt-env-conf-test] - debug ["no config object to set from"]
  13426. 1055.68 s [opt-env-conf-test] - pure NotFound
  13427. 1055.68 s [opt-env-conf-test] - Just obj -> do
  13428. 1055.68 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13429. 1055.68 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13430. 1055.68 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13431. 1055.68 s [opt-env-conf-test] - Nothing -> do
  13432. 1055.68 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13433. 1055.68 s [opt-env-conf-test] - Nothing -> pure Nothing
  13434. 1055.68 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13435. 1055.68 s [opt-env-conf-test] - Just neRest -> do
  13436. 1055.68 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13437. 1055.68 s [opt-env-conf-test] - case mO' of
  13438. 1055.68 s [opt-env-conf-test] - Nothing -> pure Nothing
  13439. 1055.68 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13440. 1055.68 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13441. 1055.68 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13442. 1055.68 s [opt-env-conf-test] - Right mV -> case mV of
  13443. 1055.68 s [opt-env-conf-test] - Nothing -> do
  13444. 1055.68 s [opt-env-conf-test] - debug
  13445. 1055.68 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13446. 1055.69 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13447. 1055.69 s [opt-env-conf-test] - ]
  13448. 1055.69 s [opt-env-conf-test] - pure Nothing
  13449. 1055.69 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13450. 1055.69 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13451. 1055.69 s [opt-env-conf-test] - Right mA -> case mA of
  13452. 1055.69 s [opt-env-conf-test] - Nothing -> do
  13453. 1055.69 s [opt-env-conf-test] - debug
  13454. 1055.69 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13455. 1055.69 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13456. 1055.69 s [opt-env-conf-test] - ]
  13457. 1055.69 s [opt-env-conf-test] - pure Nothing
  13458. 1055.69 s [opt-env-conf-test] - Just a -> do
  13459. 1055.69 s [opt-env-conf-test] - debug
  13460. 1055.69 s [opt-env-conf-test] - [ "set based on config value: ",
  13461. 1055.69 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13462. 1055.69 s [opt-env-conf-test] - ]
  13463. 1055.69 s [opt-env-conf-test] - pure $ Just a
  13464. 1055.69 s [opt-env-conf-test] - let toRes = \case
  13465. 1055.69 s [opt-env-conf-test] - Nothing -> NotFound
  13466. 1055.69 s [opt-env-conf-test] - Just a -> Found a
  13467. 1055.69 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13468. 1055.69 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13469. 1055.69 s [opt-env-conf-test] - Just ne -> do
  13470. 1055.69 s [opt-env-conf-test] - res <- goConfSet confSet
  13471. 1055.69 s [opt-env-conf-test] - case res of
  13472. 1055.69 s [opt-env-conf-test] - Just a -> pure $ Found a
  13473. 1055.69 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13474. 1055.69 s [opt-env-conf-test] - goConfSets confSets
  13475. 1055.69 s [opt-env-conf-test] - case mConf of
  13476. 1055.69 s [opt-env-conf-test] - Found a -> do
  13477. 1055.69 s [opt-env-conf-test] - markParsed
  13478. 1055.69 s [opt-env-conf-test] - pure a
  13479. 1055.69 s [opt-env-conf-test] - _ ->
  13480. 1055.69 s [opt-env-conf-test] - case settingDefaultValue of
  13481. 1055.69 s [opt-env-conf-test] - Just (a, _) -> do
  13482. 1055.69 s [opt-env-conf-test] - debug ["set to default value"]
  13483. 1055.69 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13484. 1055.69 s [opt-env-conf-test] - Nothing -> do
  13485. 1055.69 s [opt-env-conf-test] - let parseResultError e res = case res of
  13486. 1055.69 s [opt-env-conf-test] - NotRun -> Nothing
  13487. 1055.69 s [opt-env-conf-test] - NotFound -> Just e
  13488. 1055.69 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13489. 1055.69 s [opt-env-conf-test] - debug ["not found"]
  13490. 1055.69 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13491. 1055.69 s [opt-env-conf-test] - NE.nonEmpty $
  13492. 1055.69 s [opt-env-conf-test] - catMaybes
  13493. 1055.69 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13494. 1055.69 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13495. 1055.69 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13496. 1055.69 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13497. 1055.69 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13498. 1055.69 s [opt-env-conf-test] - ]
  13499. 1055.69 s [opt-env-conf-test] + case mOpt of
  13500. 1055.69 s [opt-env-conf-test] + Found a -> do
  13501. 1055.69 s [opt-env-conf-test] + markParsed
  13502. 1055.69 s [opt-env-conf-test] + pure a
  13503. 1055.69 s [opt-env-conf-test] + _ -> do
  13504. 1055.69 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  13505. 1055.69 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  13506. 1055.69 s [opt-env-conf-test] + Nothing -> pure NotRun
  13507. 1055.69 s [opt-env-conf-test] + Just ne -> do
  13508. 1055.69 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  13509. 1055.69 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  13510. 1055.69 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  13511. 1055.69 s [opt-env-conf-test] + es <- asks ppEnvEnv
  13512. 1055.69 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  13513. 1055.69 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  13514. 1055.69 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  13515. 1055.69 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  13516. 1055.69 s [opt-env-conf-test] + -- result.
  13517. 1055.69 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  13518. 1055.69 s [opt-env-conf-test] + case tryReaders rs varStr of
  13519. 1055.69 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  13520. 1055.69 s [opt-env-conf-test] + Right a -> do
  13521. 1055.69 s [opt-env-conf-test] + debug
  13522. 1055.69 s [opt-env-conf-test] + [ "set based on env: ",
  13523. 1055.69 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  13524. 1055.69 s [opt-env-conf-test] + ]
  13525. 1055.69 s [opt-env-conf-test] + pure a
  13526. 1055.69 s [opt-env-conf-test] + case listToMaybe results of
  13527. 1055.70 s [opt-env-conf-test] + Nothing -> do
  13528. 1055.70 s [opt-env-conf-test] + debug
  13529. 1055.70 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  13530. 1055.70 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13531. 1055.70 s [opt-env-conf-test] + ]
  13532. 1055.70 s [opt-env-conf-test] + pure NotFound
  13533. 1055.70 s [opt-env-conf-test] + Just a -> pure $ Found a
  13534. 1055.70 s [opt-env-conf-test] +
  13535. 1055.70 s [opt-env-conf-test] + case mEnv of
  13536. 1055.70 s [opt-env-conf-test] + Found a -> do
  13537. 1055.70 s [opt-env-conf-test] + markParsed
  13538. 1055.70 s [opt-env-conf-test] + pure a
  13539. 1055.70 s [opt-env-conf-test] + _ -> do
  13540. 1055.70 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  13541. 1055.70 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  13542. 1055.70 s [opt-env-conf-test] + Nothing -> pure NotRun
  13543. 1055.70 s [opt-env-conf-test] + Just confSets -> do
  13544. 1055.70 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  13545. 1055.70 s [opt-env-conf-test] + case mObj of
  13546. 1055.70 s [opt-env-conf-test] + Nothing -> do
  13547. 1055.70 s [opt-env-conf-test] + debug ["no config object to set from"]
  13548. 1055.70 s [opt-env-conf-test] + pure NotFound
  13549. 1055.70 s [opt-env-conf-test] + Just obj -> do
  13550. 1055.70 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  13551. 1055.70 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13552. 1055.70 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13553. 1055.70 s [opt-env-conf-test] + Nothing -> do
  13554. 1055.70 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  13555. 1055.70 s [opt-env-conf-test] + Nothing -> pure Nothing
  13556. 1055.70 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  13557. 1055.70 s [opt-env-conf-test] + Just neRest -> do
  13558. 1055.70 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  13559. 1055.70 s [opt-env-conf-test] + case mO' of
  13560. 1055.70 s [opt-env-conf-test] + Nothing -> pure Nothing
  13561. 1055.70 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  13562. 1055.70 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  13563. 1055.70 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13564. 1055.70 s [opt-env-conf-test] + Right mV -> case mV of
  13565. 1055.70 s [opt-env-conf-test] + Nothing -> do
  13566. 1055.70 s [opt-env-conf-test] + debug
  13567. 1055.70 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  13568. 1055.70 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13569. 1055.70 s [opt-env-conf-test] + ]
  13570. 1055.70 s [opt-env-conf-test] + pure Nothing
  13571. 1055.70 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13572. 1055.70 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13573. 1055.70 s [opt-env-conf-test] + Right mA -> case mA of
  13574. 1055.70 s [opt-env-conf-test] + Nothing -> do
  13575. 1055.70 s [opt-env-conf-test] + debug
  13576. 1055.70 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  13577. 1055.70 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13578. 1055.70 s [opt-env-conf-test] + ]
  13579. 1055.70 s [opt-env-conf-test] + pure Nothing
  13580. 1055.70 s [opt-env-conf-test] + Just a -> do
  13581. 1055.70 s [opt-env-conf-test] + debug
  13582. 1055.70 s [opt-env-conf-test] + [ "set based on config value: ",
  13583. 1055.70 s [opt-env-conf-test] + chunk $ T.pack $ show v
  13584. 1055.70 s [opt-env-conf-test] + ]
  13585. 1055.70 s [opt-env-conf-test] + pure $ Just a
  13586. 1055.70 s [opt-env-conf-test] + let toRes = \case
  13587. 1055.70 s [opt-env-conf-test] + Nothing -> NotFound
  13588. 1055.70 s [opt-env-conf-test] + Just a -> Found a
  13589. 1055.70 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13590. 1055.70 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  13591. 1055.70 s [opt-env-conf-test] + Just ne -> do
  13592. 1055.70 s [opt-env-conf-test] + res <- goConfSet confSet
  13593. 1055.70 s [opt-env-conf-test] + case res of
  13594. 1055.70 s [opt-env-conf-test] + Just a -> pure $ Found a
  13595. 1055.70 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13596. 1055.70 s [opt-env-conf-test] + goConfSets confSets
  13597. 1055.70 s [opt-env-conf-test] + case mConf of
  13598. 1055.70 s [opt-env-conf-test] + Found a -> do
  13599. 1055.70 s [opt-env-conf-test] + markParsed
  13600. 1055.70 s [opt-env-conf-test] + pure a
  13601. 1055.70 s [opt-env-conf-test] + _ ->
  13602. 1055.70 s [opt-env-conf-test] + case settingDefaultValue of
  13603. 1055.70 s [opt-env-conf-test] + Just (a, _) -> do
  13604. 1055.70 s [opt-env-conf-test] + debug ["set to default value"]
  13605. 1055.70 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13606. 1055.70 s [opt-env-conf-test] + Nothing -> do
  13607. 1055.70 s [opt-env-conf-test] + let parseResultError e res = case res of
  13608. 1055.70 s [opt-env-conf-test] + NotRun -> Nothing
  13609. 1055.70 s [opt-env-conf-test] + NotFound -> Just e
  13610. 1055.70 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13611. 1055.70 s [opt-env-conf-test] + debug ["not found"]
  13612. 1055.70 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13613. 1055.70 s [opt-env-conf-test] + NE.nonEmpty $
  13614. 1055.70 s [opt-env-conf-test] + catMaybes
  13615. 1055.70 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13616. 1055.70 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13617. 1055.70 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13618. 1055.70 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13619. 1055.70 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13620. 1055.70 s [opt-env-conf-test] + ]
  13621. 1055.70 s [opt-env-conf-test]
  13622. 1055.70 s [opt-env-conf-test] withCapabilities ::
  13623. 1055.70 s [opt-env-conf-test] Maybe SrcLoc ->
  13624. 1055.70 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
  13625. 1055.70 s [opt-env-conf-test] @@ -330,128 +330,128 @@
  13626. 1055.70 s [opt-env-conf-test] pure $ Found a
  13627. 1055.70 s [opt-env-conf-test] else pure NotRun
  13628. 1055.70 s [opt-env-conf-test]
  13629. 1055.70 s [opt-env-conf-test] - case mOpt of
  13630. 1055.70 s [opt-env-conf-test] - Found a -> do
  13631. 1055.71 s [opt-env-conf-test] - markParsed
  13632. 1055.71 s [opt-env-conf-test] - pure a
  13633. 1055.71 s [opt-env-conf-test] - _ -> do
  13634. 1055.71 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  13635. 1055.71 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  13636. 1055.71 s [opt-env-conf-test] - Nothing -> pure NotRun
  13637. 1055.71 s [opt-env-conf-test] - Just ne -> do
  13638. 1055.71 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  13639. 1055.71 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  13640. 1055.71 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  13641. 1055.71 s [opt-env-conf-test] - es <- asks ppEnvEnv
  13642. 1055.71 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  13643. 1055.71 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  13644. 1055.71 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  13645. 1055.71 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  13646. 1055.71 s [opt-env-conf-test] - -- result.
  13647. 1055.71 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  13648. 1055.71 s [opt-env-conf-test] - case tryReaders rs varStr of
  13649. 1055.71 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  13650. 1055.71 s [opt-env-conf-test] - Right a -> do
  13651. 1055.71 s [opt-env-conf-test] - debug
  13652. 1055.71 s [opt-env-conf-test] - [ "set based on env: ",
  13653. 1055.71 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  13654. 1055.71 s [opt-env-conf-test] - ]
  13655. 1055.71 s [opt-env-conf-test] - pure a
  13656. 1055.71 s [opt-env-conf-test] - case listToMaybe results of
  13657. 1055.71 s [opt-env-conf-test] - Nothing -> do
  13658. 1055.71 s [opt-env-conf-test] - debug
  13659. 1055.71 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  13660. 1055.71 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13661. 1055.71 s [opt-env-conf-test] - ]
  13662. 1055.71 s [opt-env-conf-test] - pure NotFound
  13663. 1055.71 s [opt-env-conf-test] - Just a -> pure $ Found a
  13664. 1055.71 s [opt-env-conf-test] -
  13665. 1055.71 s [opt-env-conf-test] - case mEnv of
  13666. 1055.71 s [opt-env-conf-test] - Found a -> do
  13667. 1055.71 s [opt-env-conf-test] - markParsed
  13668. 1055.71 s [opt-env-conf-test] - pure a
  13669. 1055.71 s [opt-env-conf-test] - _ -> do
  13670. 1055.71 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  13671. 1055.71 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  13672. 1055.71 s [opt-env-conf-test] - Nothing -> pure NotRun
  13673. 1055.71 s [opt-env-conf-test] - Just confSets -> do
  13674. 1055.71 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13675. 1055.71 s [opt-env-conf-test] - case mObj of
  13676. 1055.71 s [opt-env-conf-test] - Nothing -> do
  13677. 1055.71 s [opt-env-conf-test] - debug ["no config object to set from"]
  13678. 1055.71 s [opt-env-conf-test] - pure NotFound
  13679. 1055.71 s [opt-env-conf-test] - Just obj -> do
  13680. 1055.71 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13681. 1055.71 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13682. 1055.71 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13683. 1055.71 s [opt-env-conf-test] - Nothing -> do
  13684. 1055.71 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13685. 1055.71 s [opt-env-conf-test] - Nothing -> pure Nothing
  13686. 1055.71 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13687. 1055.71 s [opt-env-conf-test] - Just neRest -> do
  13688. 1055.71 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13689. 1055.71 s [opt-env-conf-test] - case mO' of
  13690. 1055.71 s [opt-env-conf-test] - Nothing -> pure Nothing
  13691. 1055.71 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13692. 1055.71 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13693. 1055.71 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13694. 1055.71 s [opt-env-conf-test] - Right mV -> case mV of
  13695. 1055.71 s [opt-env-conf-test] - Nothing -> do
  13696. 1055.71 s [opt-env-conf-test] - debug
  13697. 1055.71 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13698. 1055.71 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13699. 1055.71 s [opt-env-conf-test] - ]
  13700. 1055.71 s [opt-env-conf-test] - pure Nothing
  13701. 1055.71 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13702. 1055.71 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13703. 1055.71 s [opt-env-conf-test] - Right mA -> case mA of
  13704. 1055.71 s [opt-env-conf-test] - Nothing -> do
  13705. 1055.71 s [opt-env-conf-test] - debug
  13706. 1055.71 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13707. 1055.71 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13708. 1055.71 s [opt-env-conf-test] - ]
  13709. 1055.71 s [opt-env-conf-test] - pure Nothing
  13710. 1055.71 s [opt-env-conf-test] - Just a -> do
  13711. 1055.71 s [opt-env-conf-test] - debug
  13712. 1055.71 s [opt-env-conf-test] - [ "set based on config value: ",
  13713. 1055.71 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13714. 1055.71 s [opt-env-conf-test] - ]
  13715. 1055.71 s [opt-env-conf-test] - pure $ Just a
  13716. 1055.71 s [opt-env-conf-test] - let toRes = \case
  13717. 1055.71 s [opt-env-conf-test] - Nothing -> NotFound
  13718. 1055.71 s [opt-env-conf-test] - Just a -> Found a
  13719. 1055.71 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13720. 1055.71 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  13721. 1055.71 s [opt-env-conf-test] - Just ne -> do
  13722. 1055.71 s [opt-env-conf-test] - res <- goConfSet confSet
  13723. 1055.71 s [opt-env-conf-test] - case res of
  13724. 1055.71 s [opt-env-conf-test] - Just a -> pure $ Found a
  13725. 1055.71 s [opt-env-conf-test] - Nothing -> goConfSets ne
  13726. 1055.72 s [opt-env-conf-test] - goConfSets confSets
  13727. 1055.72 s [opt-env-conf-test] - case mConf of
  13728. 1055.72 s [opt-env-conf-test] - Found a -> do
  13729. 1055.72 s [opt-env-conf-test] - markParsed
  13730. 1055.72 s [opt-env-conf-test] - pure a
  13731. 1055.72 s [opt-env-conf-test] - _ ->
  13732. 1055.72 s [opt-env-conf-test] - case settingDefaultValue of
  13733. 1055.72 s [opt-env-conf-test] - Just (a, _) -> do
  13734. 1055.72 s [opt-env-conf-test] - debug ["set to default value"]
  13735. 1055.72 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  13736. 1055.72 s [opt-env-conf-test] - Nothing -> do
  13737. 1055.72 s [opt-env-conf-test] - let parseResultError e res = case res of
  13738. 1055.72 s [opt-env-conf-test] - NotRun -> Nothing
  13739. 1055.72 s [opt-env-conf-test] - NotFound -> Just e
  13740. 1055.72 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  13741. 1055.72 s [opt-env-conf-test] - debug ["not found"]
  13742. 1055.72 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13743. 1055.72 s [opt-env-conf-test] - NE.nonEmpty $
  13744. 1055.72 s [opt-env-conf-test] - catMaybes
  13745. 1055.72 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13746. 1055.72 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13747. 1055.72 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13748. 1055.72 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13749. 1055.72 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13750. 1055.72 s [opt-env-conf-test] - ]
  13751. 1055.72 s [opt-env-conf-test] + case mOpt of
  13752. 1055.72 s [opt-env-conf-test] + Found a -> do
  13753. 1055.72 s [opt-env-conf-test] + markParsed
  13754. 1055.72 s [opt-env-conf-test] + pure a
  13755. 1055.72 s [opt-env-conf-test] + _ -> do
  13756. 1055.72 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  13757. 1055.72 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  13758. 1055.72 s [opt-env-conf-test] + Nothing -> pure NotRun
  13759. 1055.72 s [opt-env-conf-test] + Just ne -> do
  13760. 1055.72 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  13761. 1055.72 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  13762. 1055.72 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  13763. 1055.72 s [opt-env-conf-test] + es <- asks ppEnvEnv
  13764. 1055.72 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  13765. 1055.72 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  13766. 1055.72 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  13767. 1055.72 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  13768. 1055.72 s [opt-env-conf-test] + -- result.
  13769. 1055.72 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  13770. 1055.72 s [opt-env-conf-test] + case tryReaders rs varStr of
  13771. 1055.72 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  13772. 1055.72 s [opt-env-conf-test] + Right a -> do
  13773. 1055.72 s [opt-env-conf-test] + debug
  13774. 1055.72 s [opt-env-conf-test] + [ "set based on env: ",
  13775. 1055.72 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  13776. 1055.72 s [opt-env-conf-test] + ]
  13777. 1055.72 s [opt-env-conf-test] + pure a
  13778. 1055.72 s [opt-env-conf-test] + case listToMaybe results of
  13779. 1055.72 s [opt-env-conf-test] + Nothing -> do
  13780. 1055.72 s [opt-env-conf-test] + debug
  13781. 1055.72 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  13782. 1055.72 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13783. 1055.72 s [opt-env-conf-test] + ]
  13784. 1055.72 s [opt-env-conf-test] + pure NotFound
  13785. 1055.72 s [opt-env-conf-test] + Just a -> pure $ Found a
  13786. 1055.72 s [opt-env-conf-test] +
  13787. 1055.72 s [opt-env-conf-test] + case mEnv of
  13788. 1055.72 s [opt-env-conf-test] + Found a -> do
  13789. 1055.72 s [opt-env-conf-test] + markParsed
  13790. 1055.72 s [opt-env-conf-test] + pure a
  13791. 1055.72 s [opt-env-conf-test] + _ -> do
  13792. 1055.72 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  13793. 1055.72 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  13794. 1055.72 s [opt-env-conf-test] + Nothing -> pure NotRun
  13795. 1055.72 s [opt-env-conf-test] + Just confSets -> do
  13796. 1055.72 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  13797. 1055.72 s [opt-env-conf-test] + case mObj of
  13798. 1055.72 s [opt-env-conf-test] + Nothing -> do
  13799. 1055.72 s [opt-env-conf-test] + debug ["no config object to set from"]
  13800. 1055.72 s [opt-env-conf-test] + pure NotFound
  13801. 1055.72 s [opt-env-conf-test] + Just obj -> do
  13802. 1055.72 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  13803. 1055.72 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13804. 1055.72 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13805. 1055.72 s [opt-env-conf-test] + Nothing -> do
  13806. 1055.72 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  13807. 1055.72 s [opt-env-conf-test] + Nothing -> pure Nothing
  13808. 1055.72 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  13809. 1055.72 s [opt-env-conf-test] + Just neRest -> do
  13810. 1055.72 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  13811. 1055.72 s [opt-env-conf-test] + case mO' of
  13812. 1055.72 s [opt-env-conf-test] + Nothing -> pure Nothing
  13813. 1055.72 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  13814. 1055.72 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  13815. 1055.72 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13816. 1055.72 s [opt-env-conf-test] + Right mV -> case mV of
  13817. 1055.72 s [opt-env-conf-test] + Nothing -> do
  13818. 1055.72 s [opt-env-conf-test] + debug
  13819. 1055.72 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  13820. 1055.72 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13821. 1055.72 s [opt-env-conf-test] + ]
  13822. 1055.72 s [opt-env-conf-test] + pure Nothing
  13823. 1055.72 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13824. 1055.72 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13825. 1055.73 s [opt-env-conf-test] + Right mA -> case mA of
  13826. 1055.73 s [opt-env-conf-test] + Nothing -> do
  13827. 1055.73 s [opt-env-conf-test] + debug
  13828. 1055.73 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  13829. 1055.73 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  13830. 1055.73 s [opt-env-conf-test] + ]
  13831. 1055.73 s [opt-env-conf-test] + pure Nothing
  13832. 1055.73 s [opt-env-conf-test] + Just a -> do
  13833. 1055.73 s [opt-env-conf-test] + debug
  13834. 1055.73 s [opt-env-conf-test] + [ "set based on config value: ",
  13835. 1055.73 s [opt-env-conf-test] + chunk $ T.pack $ show v
  13836. 1055.73 s [opt-env-conf-test] + ]
  13837. 1055.73 s [opt-env-conf-test] + pure $ Just a
  13838. 1055.73 s [opt-env-conf-test] + let toRes = \case
  13839. 1055.73 s [opt-env-conf-test] + Nothing -> NotFound
  13840. 1055.73 s [opt-env-conf-test] + Just a -> Found a
  13841. 1055.73 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  13842. 1055.73 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  13843. 1055.73 s [opt-env-conf-test] + Just ne -> do
  13844. 1055.73 s [opt-env-conf-test] + res <- goConfSet confSet
  13845. 1055.73 s [opt-env-conf-test] + case res of
  13846. 1055.73 s [opt-env-conf-test] + Just a -> pure $ Found a
  13847. 1055.73 s [opt-env-conf-test] + Nothing -> goConfSets ne
  13848. 1055.73 s [opt-env-conf-test] + goConfSets confSets
  13849. 1055.75 s [opt-env-conf-test] + case mConf of
  13850. 1055.75 s [opt-env-conf-test] + Found a -> do
  13851. 1055.75 s [opt-env-conf-test] + markParsed
  13852. 1055.75 s [opt-env-conf-test] + pure a
  13853. 1055.75 s [opt-env-conf-test] + _ ->
  13854. 1055.75 s [opt-env-conf-test] + case settingDefaultValue of
  13855. 1055.75 s [opt-env-conf-test] + Just (a, _) -> do
  13856. 1055.75 s [opt-env-conf-test] + debug ["set to default value"]
  13857. 1055.75 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  13858. 1055.75 s [opt-env-conf-test] + Nothing -> do
  13859. 1055.75 s [opt-env-conf-test] + let parseResultError e res = case res of
  13860. 1055.75 s [opt-env-conf-test] + NotRun -> Nothing
  13861. 1055.75 s [opt-env-conf-test] + NotFound -> Just e
  13862. 1055.75 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  13863. 1055.75 s [opt-env-conf-test] + debug ["not found"]
  13864. 1055.75 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  13865. 1055.75 s [opt-env-conf-test] + NE.nonEmpty $
  13866. 1055.75 s [opt-env-conf-test] + catMaybes
  13867. 1055.75 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  13868. 1055.75 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  13869. 1055.75 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  13870. 1055.75 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  13871. 1055.75 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  13872. 1055.75 s [opt-env-conf-test] + ]
  13873. 1055.75 s [opt-env-conf-test]
  13874. 1055.75 s [opt-env-conf-test] withCapabilities ::
  13875. 1055.75 s [opt-env-conf-test] Maybe SrcLoc ->
  13876. 1055.75 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
  13877. 1055.75 s [opt-env-conf-test] @@ -300,158 +300,158 @@
  13878. 1055.75 s [opt-env-conf-test] debug ["set based on switch."]
  13879. 1055.75 s [opt-env-conf-test] pure $ Found a
  13880. 1055.75 s [opt-env-conf-test]
  13881. 1055.75 s [opt-env-conf-test] - case mSwitch of
  13882. 1055.75 s [opt-env-conf-test] - Found a -> do
  13883. 1055.75 s [opt-env-conf-test] - markParsed
  13884. 1055.75 s [opt-env-conf-test] - pure a
  13885. 1055.75 s [opt-env-conf-test] - _ -> do
  13886. 1055.75 s [opt-env-conf-test] - mOpt <-
  13887. 1055.75 s [opt-env-conf-test] - if settingTryOption
  13888. 1055.75 s [opt-env-conf-test] - then do
  13889. 1055.75 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  13890. 1055.75 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  13891. 1055.75 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  13892. 1055.75 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  13893. 1055.75 s [opt-env-conf-test] - case mS of
  13894. 1055.75 s [opt-env-conf-test] - Nothing -> do
  13895. 1055.75 s [opt-env-conf-test] - debug
  13896. 1055.75 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  13897. 1055.75 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  13898. 1055.75 s [opt-env-conf-test] - ]
  13899. 1055.75 s [opt-env-conf-test] - pure NotFound
  13900. 1055.75 s [opt-env-conf-test] - Just optionStr -> cap $
  13901. 1055.75 s [opt-env-conf-test] - case tryReaders rs optionStr of
  13902. 1055.75 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  13903. 1055.75 s [opt-env-conf-test] - Right a -> do
  13904. 1055.75 s [opt-env-conf-test] - debug
  13905. 1055.75 s [opt-env-conf-test] - [ "set based on option: ",
  13906. 1055.75 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  13907. 1055.75 s [opt-env-conf-test] - ]
  13908. 1055.75 s [opt-env-conf-test] - pure $ Found a
  13909. 1055.75 s [opt-env-conf-test] - else pure NotRun
  13910. 1055.75 s [opt-env-conf-test] -
  13911. 1055.75 s [opt-env-conf-test] - case mOpt of
  13912. 1055.75 s [opt-env-conf-test] - Found a -> do
  13913. 1055.75 s [opt-env-conf-test] - markParsed
  13914. 1055.76 s [opt-env-conf-test] - pure a
  13915. 1055.76 s [opt-env-conf-test] - _ -> do
  13916. 1055.76 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  13917. 1055.76 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  13918. 1055.76 s [opt-env-conf-test] - Nothing -> pure NotRun
  13919. 1055.76 s [opt-env-conf-test] - Just ne -> do
  13920. 1055.76 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  13921. 1055.76 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  13922. 1055.76 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  13923. 1055.76 s [opt-env-conf-test] - es <- asks ppEnvEnv
  13924. 1055.76 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  13925. 1055.76 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  13926. 1055.76 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  13927. 1055.76 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  13928. 1055.76 s [opt-env-conf-test] - -- result.
  13929. 1055.76 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  13930. 1055.76 s [opt-env-conf-test] - case tryReaders rs varStr of
  13931. 1055.76 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  13932. 1055.76 s [opt-env-conf-test] - Right a -> do
  13933. 1055.76 s [opt-env-conf-test] - debug
  13934. 1055.76 s [opt-env-conf-test] - [ "set based on env: ",
  13935. 1055.76 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  13936. 1055.76 s [opt-env-conf-test] - ]
  13937. 1055.76 s [opt-env-conf-test] - pure a
  13938. 1055.76 s [opt-env-conf-test] - case listToMaybe results of
  13939. 1055.76 s [opt-env-conf-test] - Nothing -> do
  13940. 1055.76 s [opt-env-conf-test] - debug
  13941. 1055.76 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  13942. 1055.76 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  13943. 1055.76 s [opt-env-conf-test] - ]
  13944. 1055.76 s [opt-env-conf-test] - pure NotFound
  13945. 1055.76 s [opt-env-conf-test] - Just a -> pure $ Found a
  13946. 1055.76 s [opt-env-conf-test] -
  13947. 1055.76 s [opt-env-conf-test] - case mEnv of
  13948. 1055.76 s [opt-env-conf-test] - Found a -> do
  13949. 1055.76 s [opt-env-conf-test] - markParsed
  13950. 1055.76 s [opt-env-conf-test] - pure a
  13951. 1055.76 s [opt-env-conf-test] - _ -> do
  13952. 1055.76 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  13953. 1055.76 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  13954. 1055.76 s [opt-env-conf-test] - Nothing -> pure NotRun
  13955. 1055.76 s [opt-env-conf-test] - Just confSets -> do
  13956. 1055.76 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  13957. 1055.76 s [opt-env-conf-test] - case mObj of
  13958. 1055.76 s [opt-env-conf-test] - Nothing -> do
  13959. 1055.76 s [opt-env-conf-test] - debug ["no config object to set from"]
  13960. 1055.76 s [opt-env-conf-test] - pure NotFound
  13961. 1055.76 s [opt-env-conf-test] - Just obj -> do
  13962. 1055.76 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  13963. 1055.76 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  13964. 1055.76 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  13965. 1055.76 s [opt-env-conf-test] - Nothing -> do
  13966. 1055.76 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  13967. 1055.76 s [opt-env-conf-test] - Nothing -> pure Nothing
  13968. 1055.76 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  13969. 1055.76 s [opt-env-conf-test] - Just neRest -> do
  13970. 1055.76 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  13971. 1055.76 s [opt-env-conf-test] - case mO' of
  13972. 1055.76 s [opt-env-conf-test] - Nothing -> pure Nothing
  13973. 1055.76 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  13974. 1055.76 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  13975. 1055.76 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13976. 1055.76 s [opt-env-conf-test] - Right mV -> case mV of
  13977. 1055.76 s [opt-env-conf-test] - Nothing -> do
  13978. 1055.76 s [opt-env-conf-test] - debug
  13979. 1055.76 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  13980. 1055.76 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13981. 1055.76 s [opt-env-conf-test] - ]
  13982. 1055.76 s [opt-env-conf-test] - pure Nothing
  13983. 1055.76 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  13984. 1055.76 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  13985. 1055.76 s [opt-env-conf-test] - Right mA -> case mA of
  13986. 1055.76 s [opt-env-conf-test] - Nothing -> do
  13987. 1055.76 s [opt-env-conf-test] - debug
  13988. 1055.76 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  13989. 1055.76 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  13990. 1055.76 s [opt-env-conf-test] - ]
  13991. 1055.76 s [opt-env-conf-test] - pure Nothing
  13992. 1055.76 s [opt-env-conf-test] - Just a -> do
  13993. 1055.76 s [opt-env-conf-test] - debug
  13994. 1055.76 s [opt-env-conf-test] - [ "set based on config value: ",
  13995. 1055.76 s [opt-env-conf-test] - chunk $ T.pack $ show v
  13996. 1055.76 s [opt-env-conf-test] - ]
  13997. 1055.76 s [opt-env-conf-test] - pure $ Just a
  13998. 1055.76 s [opt-env-conf-test] - let toRes = \case
  13999. 1055.76 s [opt-env-conf-test] - Nothing -> NotFound
  14000. 1055.76 s [opt-env-conf-test] - Just a -> Found a
  14001. 1055.76 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14002. 1055.76 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  14003. 1055.76 s [opt-env-conf-test] - Just ne -> do
  14004. 1055.76 s [opt-env-conf-test] - res <- goConfSet confSet
  14005. 1055.76 s [opt-env-conf-test] - case res of
  14006. 1055.76 s [opt-env-conf-test] - Just a -> pure $ Found a
  14007. 1055.77 s [opt-env-conf-test] - Nothing -> goConfSets ne
  14008. 1055.77 s [opt-env-conf-test] - goConfSets confSets
  14009. 1055.77 s [opt-env-conf-test] - case mConf of
  14010. 1055.77 s [opt-env-conf-test] - Found a -> do
  14011. 1055.77 s [opt-env-conf-test] - markParsed
  14012. 1055.77 s [opt-env-conf-test] - pure a
  14013. 1055.77 s [opt-env-conf-test] - _ ->
  14014. 1055.77 s [opt-env-conf-test] - case settingDefaultValue of
  14015. 1055.77 s [opt-env-conf-test] - Just (a, _) -> do
  14016. 1055.77 s [opt-env-conf-test] - debug ["set to default value"]
  14017. 1055.77 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  14018. 1055.77 s [opt-env-conf-test] - Nothing -> do
  14019. 1055.77 s [opt-env-conf-test] - let parseResultError e res = case res of
  14020. 1055.77 s [opt-env-conf-test] - NotRun -> Nothing
  14021. 1055.77 s [opt-env-conf-test] - NotFound -> Just e
  14022. 1055.77 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14023. 1055.77 s [opt-env-conf-test] - debug ["not found"]
  14024. 1055.77 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14025. 1055.77 s [opt-env-conf-test] - NE.nonEmpty $
  14026. 1055.77 s [opt-env-conf-test] - catMaybes
  14027. 1055.77 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14028. 1055.77 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14029. 1055.77 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14030. 1055.77 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14031. 1055.77 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14032. 1055.77 s [opt-env-conf-test] - ]
  14033. 1055.77 s [opt-env-conf-test] + case mSwitch of
  14034. 1055.77 s [opt-env-conf-test] + Found a -> do
  14035. 1055.77 s [opt-env-conf-test] + markParsed
  14036. 1055.77 s [opt-env-conf-test] + pure a
  14037. 1055.77 s [opt-env-conf-test] + _ -> do
  14038. 1055.77 s [opt-env-conf-test] + mOpt <-
  14039. 1055.77 s [opt-env-conf-test] + if settingTryOption
  14040. 1055.77 s [opt-env-conf-test] + then do
  14041. 1055.77 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  14042. 1055.77 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  14043. 1055.77 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  14044. 1055.77 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  14045. 1055.77 s [opt-env-conf-test] + case mS of
  14046. 1055.77 s [opt-env-conf-test] + Nothing -> do
  14047. 1055.77 s [opt-env-conf-test] + debug
  14048. 1055.77 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  14049. 1055.77 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  14050. 1055.77 s [opt-env-conf-test] + ]
  14051. 1055.77 s [opt-env-conf-test] + pure NotFound
  14052. 1055.77 s [opt-env-conf-test] + Just optionStr -> cap $
  14053. 1055.77 s [opt-env-conf-test] + case tryReaders rs optionStr of
  14054. 1055.77 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14055. 1055.77 s [opt-env-conf-test] + Right a -> do
  14056. 1055.77 s [opt-env-conf-test] + debug
  14057. 1055.77 s [opt-env-conf-test] + [ "set based on option: ",
  14058. 1055.77 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  14059. 1055.77 s [opt-env-conf-test] + ]
  14060. 1055.77 s [opt-env-conf-test] + pure $ Found a
  14061. 1055.77 s [opt-env-conf-test] + else pure NotRun
  14062. 1055.77 s [opt-env-conf-test] +
  14063. 1055.77 s [opt-env-conf-test] + case mOpt of
  14064. 1055.77 s [opt-env-conf-test] + Found a -> do
  14065. 1055.77 s [opt-env-conf-test] + markParsed
  14066. 1055.77 s [opt-env-conf-test] + pure a
  14067. 1055.77 s [opt-env-conf-test] + _ -> do
  14068. 1055.77 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  14069. 1055.77 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  14070. 1055.77 s [opt-env-conf-test] + Nothing -> pure NotRun
  14071. 1055.77 s [opt-env-conf-test] + Just ne -> do
  14072. 1055.77 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  14073. 1055.77 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  14074. 1055.77 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  14075. 1055.77 s [opt-env-conf-test] + es <- asks ppEnvEnv
  14076. 1055.77 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14077. 1055.77 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  14078. 1055.77 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  14079. 1055.77 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  14080. 1055.77 s [opt-env-conf-test] + -- result.
  14081. 1055.77 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  14082. 1055.77 s [opt-env-conf-test] + case tryReaders rs varStr of
  14083. 1055.77 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14084. 1055.77 s [opt-env-conf-test] + Right a -> do
  14085. 1055.77 s [opt-env-conf-test] + debug
  14086. 1055.77 s [opt-env-conf-test] + [ "set based on env: ",
  14087. 1055.77 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  14088. 1055.77 s [opt-env-conf-test] + ]
  14089. 1055.77 s [opt-env-conf-test] + pure a
  14090. 1055.77 s [opt-env-conf-test] + case listToMaybe results of
  14091. 1055.77 s [opt-env-conf-test] + Nothing -> do
  14092. 1055.77 s [opt-env-conf-test] + debug
  14093. 1055.77 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  14094. 1055.77 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14095. 1055.77 s [opt-env-conf-test] + ]
  14096. 1055.77 s [opt-env-conf-test] + pure NotFound
  14097. 1055.77 s [opt-env-conf-test] + Just a -> pure $ Found a
  14098. 1055.77 s [opt-env-conf-test] +
  14099. 1055.77 s [opt-env-conf-test] + case mEnv of
  14100. 1055.77 s [opt-env-conf-test] + Found a -> do
  14101. 1055.77 s [opt-env-conf-test] + markParsed
  14102. 1055.77 s [opt-env-conf-test] + pure a
  14103. 1055.77 s [opt-env-conf-test] + _ -> do
  14104. 1055.77 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  14105. 1055.77 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  14106. 1055.77 s [opt-env-conf-test] + Nothing -> pure NotRun
  14107. 1055.77 s [opt-env-conf-test] + Just confSets -> do
  14108. 1055.77 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  14109. 1055.77 s [opt-env-conf-test] + case mObj of
  14110. 1055.77 s [opt-env-conf-test] + Nothing -> do
  14111. 1055.77 s [opt-env-conf-test] + debug ["no config object to set from"]
  14112. 1055.77 s [opt-env-conf-test] + pure NotFound
  14113. 1055.77 s [opt-env-conf-test] + Just obj -> do
  14114. 1055.77 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  14115. 1055.77 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14116. 1055.77 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14117. 1055.78 s [opt-env-conf-test] + Nothing -> do
  14118. 1055.78 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  14119. 1055.78 s [opt-env-conf-test] + Nothing -> pure Nothing
  14120. 1055.78 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  14121. 1055.78 s [opt-env-conf-test] + Just neRest -> do
  14122. 1055.78 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  14123. 1055.78 s [opt-env-conf-test] + case mO' of
  14124. 1055.78 s [opt-env-conf-test] + Nothing -> pure Nothing
  14125. 1055.78 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  14126. 1055.78 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  14127. 1055.78 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14128. 1055.78 s [opt-env-conf-test] + Right mV -> case mV of
  14129. 1055.78 s [opt-env-conf-test] + Nothing -> do
  14130. 1056.00 s [opt-env-conf-test] + debug
  14131. 1056.00 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  14132. 1056.01 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14133. 1056.01 s [opt-env-conf-test] + ]
  14134. 1056.01 s [opt-env-conf-test] + pure Nothing
  14135. 1056.01 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14136. 1056.01 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14137. 1056.01 s [opt-env-conf-test] + Right mA -> case mA of
  14138. 1056.01 s [opt-env-conf-test] + Nothing -> do
  14139. 1056.01 s [opt-env-conf-test] + debug
  14140. 1056.01 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  14141. 1056.01 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14142. 1056.01 s [opt-env-conf-test] + ]
  14143. 1056.01 s [opt-env-conf-test] + pure Nothing
  14144. 1056.01 s [opt-env-conf-test] + Just a -> do
  14145. 1056.01 s [opt-env-conf-test] + debug
  14146. 1056.01 s [opt-env-conf-test] + [ "set based on config value: ",
  14147. 1056.01 s [opt-env-conf-test] + chunk $ T.pack $ show v
  14148. 1056.01 s [opt-env-conf-test] + ]
  14149. 1056.01 s [opt-env-conf-test] + pure $ Just a
  14150. 1056.01 s [opt-env-conf-test] + let toRes = \case
  14151. 1056.01 s [opt-env-conf-test] + Nothing -> NotFound
  14152. 1056.01 s [opt-env-conf-test] + Just a -> Found a
  14153. 1056.01 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14154. 1056.01 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  14155. 1056.01 s [opt-env-conf-test] + Just ne -> do
  14156. 1056.01 s [opt-env-conf-test] + res <- goConfSet confSet
  14157. 1056.01 s [opt-env-conf-test] + case res of
  14158. 1056.01 s [opt-env-conf-test] + Just a -> pure $ Found a
  14159. 1056.01 s [opt-env-conf-test] + Nothing -> goConfSets ne
  14160. 1056.01 s [opt-env-conf-test] + goConfSets confSets
  14161. 1056.01 s [opt-env-conf-test] + case mConf of
  14162. 1056.01 s [opt-env-conf-test] + Found a -> do
  14163. 1056.01 s [opt-env-conf-test] + markParsed
  14164. 1056.01 s [opt-env-conf-test] + pure a
  14165. 1056.01 s [opt-env-conf-test] + _ ->
  14166. 1056.01 s [opt-env-conf-test] + case settingDefaultValue of
  14167. 1056.01 s [opt-env-conf-test] + Just (a, _) -> do
  14168. 1056.01 s [opt-env-conf-test] + debug ["set to default value"]
  14169. 1056.01 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  14170. 1056.01 s [opt-env-conf-test] + Nothing -> do
  14171. 1056.01 s [opt-env-conf-test] + let parseResultError e res = case res of
  14172. 1056.01 s [opt-env-conf-test] + NotRun -> Nothing
  14173. 1056.01 s [opt-env-conf-test] + NotFound -> Just e
  14174. 1056.01 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14175. 1056.01 s [opt-env-conf-test] + debug ["not found"]
  14176. 1056.01 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14177. 1056.01 s [opt-env-conf-test] + NE.nonEmpty $
  14178. 1056.01 s [opt-env-conf-test] + catMaybes
  14179. 1056.01 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14180. 1056.01 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14181. 1056.01 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14182. 1056.01 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14183. 1056.01 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14184. 1056.01 s [opt-env-conf-test] + ]
  14185. 1056.01 s [opt-env-conf-test]
  14186. 1056.01 s [opt-env-conf-test] withCapabilities ::
  14187. 1056.01 s [opt-env-conf-test] Maybe SrcLoc ->
  14188. 1056.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
  14189. 1056.01 s [opt-env-conf-test] @@ -300,158 +300,158 @@
  14190. 1056.01 s [opt-env-conf-test] debug ["set based on switch."]
  14191. 1056.01 s [opt-env-conf-test] pure $ Found a
  14192. 1056.01 s [opt-env-conf-test]
  14193. 1056.01 s [opt-env-conf-test] - case mSwitch of
  14194. 1056.01 s [opt-env-conf-test] - Found a -> do
  14195. 1056.01 s [opt-env-conf-test] - markParsed
  14196. 1056.01 s [opt-env-conf-test] - pure a
  14197. 1056.01 s [opt-env-conf-test] - _ -> do
  14198. 1056.01 s [opt-env-conf-test] - mOpt <-
  14199. 1056.01 s [opt-env-conf-test] - if settingTryOption
  14200. 1056.01 s [opt-env-conf-test] - then do
  14201. 1056.01 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  14202. 1056.01 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14203. 1056.01 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14204. 1056.01 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  14205. 1056.01 s [opt-env-conf-test] - case mS of
  14206. 1056.02 s [opt-env-conf-test] - Nothing -> do
  14207. 1056.02 s [opt-env-conf-test] - debug
  14208. 1056.02 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  14209. 1056.02 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14210. 1056.02 s [opt-env-conf-test] - ]
  14211. 1056.02 s [opt-env-conf-test] - pure NotFound
  14212. 1056.02 s [opt-env-conf-test] - Just optionStr -> cap $
  14213. 1056.02 s [opt-env-conf-test] - case tryReaders rs optionStr of
  14214. 1056.02 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14215. 1056.02 s [opt-env-conf-test] - Right a -> do
  14216. 1056.02 s [opt-env-conf-test] - debug
  14217. 1056.02 s [opt-env-conf-test] - [ "set based on option: ",
  14218. 1056.02 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  14219. 1056.02 s [opt-env-conf-test] - ]
  14220. 1056.02 s [opt-env-conf-test] - pure $ Found a
  14221. 1056.02 s [opt-env-conf-test] - else pure NotRun
  14222. 1056.02 s [opt-env-conf-test] -
  14223. 1056.02 s [opt-env-conf-test] - case mOpt of
  14224. 1056.02 s [opt-env-conf-test] - Found a -> do
  14225. 1056.02 s [opt-env-conf-test] - markParsed
  14226. 1056.02 s [opt-env-conf-test] - pure a
  14227. 1056.02 s [opt-env-conf-test] - _ -> do
  14228. 1056.02 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  14229. 1056.02 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  14230. 1056.02 s [opt-env-conf-test] - Nothing -> pure NotRun
  14231. 1056.02 s [opt-env-conf-test] - Just ne -> do
  14232. 1056.02 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  14233. 1056.02 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14234. 1056.02 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14235. 1056.02 s [opt-env-conf-test] - es <- asks ppEnvEnv
  14236. 1056.02 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14237. 1056.02 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  14238. 1056.02 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  14239. 1056.02 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  14240. 1056.02 s [opt-env-conf-test] - -- result.
  14241. 1056.02 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  14242. 1056.02 s [opt-env-conf-test] - case tryReaders rs varStr of
  14243. 1056.02 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14244. 1056.02 s [opt-env-conf-test] - Right a -> do
  14245. 1056.02 s [opt-env-conf-test] - debug
  14246. 1056.02 s [opt-env-conf-test] - [ "set based on env: ",
  14247. 1056.02 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  14248. 1056.02 s [opt-env-conf-test] - ]
  14249. 1056.02 s [opt-env-conf-test] - pure a
  14250. 1056.02 s [opt-env-conf-test] - case listToMaybe results of
  14251. 1056.02 s [opt-env-conf-test] - Nothing -> do
  14252. 1056.02 s [opt-env-conf-test] - debug
  14253. 1056.02 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  14254. 1056.02 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14255. 1056.02 s [opt-env-conf-test] - ]
  14256. 1056.02 s [opt-env-conf-test] - pure NotFound
  14257. 1056.02 s [opt-env-conf-test] - Just a -> pure $ Found a
  14258. 1056.02 s [opt-env-conf-test] -
  14259. 1056.02 s [opt-env-conf-test] - case mEnv of
  14260. 1056.02 s [opt-env-conf-test] - Found a -> do
  14261. 1056.02 s [opt-env-conf-test] - markParsed
  14262. 1056.02 s [opt-env-conf-test] - pure a
  14263. 1056.02 s [opt-env-conf-test] - _ -> do
  14264. 1056.02 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  14265. 1056.02 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  14266. 1056.02 s [opt-env-conf-test] - Nothing -> pure NotRun
  14267. 1056.02 s [opt-env-conf-test] - Just confSets -> do
  14268. 1056.02 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  14269. 1056.02 s [opt-env-conf-test] - case mObj of
  14270. 1056.02 s [opt-env-conf-test] - Nothing -> do
  14271. 1056.02 s [opt-env-conf-test] - debug ["no config object to set from"]
  14272. 1056.02 s [opt-env-conf-test] - pure NotFound
  14273. 1056.02 s [opt-env-conf-test] - Just obj -> do
  14274. 1056.02 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  14275. 1056.02 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14276. 1056.02 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14277. 1056.02 s [opt-env-conf-test] - Nothing -> do
  14278. 1056.02 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  14279. 1056.02 s [opt-env-conf-test] - Nothing -> pure Nothing
  14280. 1056.02 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  14281. 1056.02 s [opt-env-conf-test] - Just neRest -> do
  14282. 1056.02 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  14283. 1056.02 s [opt-env-conf-test] - case mO' of
  14284. 1056.02 s [opt-env-conf-test] - Nothing -> pure Nothing
  14285. 1056.02 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  14286. 1056.02 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  14287. 1056.02 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14288. 1056.02 s [opt-env-conf-test] - Right mV -> case mV of
  14289. 1056.02 s [opt-env-conf-test] - Nothing -> do
  14290. 1056.02 s [opt-env-conf-test] - debug
  14291. 1056.02 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  14292. 1056.02 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14293. 1056.02 s [opt-env-conf-test] - ]
  14294. 1056.02 s [opt-env-conf-test] - pure Nothing
  14295. 1056.02 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14296. 1056.02 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14297. 1056.02 s [opt-env-conf-test] - Right mA -> case mA of
  14298. 1056.02 s [opt-env-conf-test] - Nothing -> do
  14299. 1056.02 s [opt-env-conf-test] - debug
  14300. 1056.02 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  14301. 1056.02 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14302. 1056.02 s [opt-env-conf-test] - ]
  14303. 1056.02 s [opt-env-conf-test] - pure Nothing
  14304. 1056.03 s [opt-env-conf-test] - Just a -> do
  14305. 1056.03 s [opt-env-conf-test] - debug
  14306. 1056.03 s [opt-env-conf-test] - [ "set based on config value: ",
  14307. 1056.03 s [opt-env-conf-test] - chunk $ T.pack $ show v
  14308. 1056.03 s [opt-env-conf-test] - ]
  14309. 1056.03 s [opt-env-conf-test] - pure $ Just a
  14310. 1056.03 s [opt-env-conf-test] - let toRes = \case
  14311. 1056.03 s [opt-env-conf-test] - Nothing -> NotFound
  14312. 1056.03 s [opt-env-conf-test] - Just a -> Found a
  14313. 1056.03 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14314. 1056.03 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  14315. 1056.03 s [opt-env-conf-test] - Just ne -> do
  14316. 1056.03 s [opt-env-conf-test] - res <- goConfSet confSet
  14317. 1056.03 s [opt-env-conf-test] - case res of
  14318. 1056.03 s [opt-env-conf-test] - Just a -> pure $ Found a
  14319. 1056.03 s [opt-env-conf-test] - Nothing -> goConfSets ne
  14320. 1056.03 s [opt-env-conf-test] - goConfSets confSets
  14321. 1056.03 s [opt-env-conf-test] - case mConf of
  14322. 1056.03 s [opt-env-conf-test] - Found a -> do
  14323. 1056.03 s [opt-env-conf-test] - markParsed
  14324. 1056.03 s [opt-env-conf-test] - pure a
  14325. 1056.03 s [opt-env-conf-test] - _ ->
  14326. 1056.03 s [opt-env-conf-test] - case settingDefaultValue of
  14327. 1056.03 s [opt-env-conf-test] - Just (a, _) -> do
  14328. 1056.03 s [opt-env-conf-test] - debug ["set to default value"]
  14329. 1056.03 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  14330. 1056.03 s [opt-env-conf-test] - Nothing -> do
  14331. 1056.03 s [opt-env-conf-test] - let parseResultError e res = case res of
  14332. 1056.03 s [opt-env-conf-test] - NotRun -> Nothing
  14333. 1056.03 s [opt-env-conf-test] - NotFound -> Just e
  14334. 1056.03 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14335. 1056.03 s [opt-env-conf-test] - debug ["not found"]
  14336. 1056.03 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14337. 1056.03 s [opt-env-conf-test] - NE.nonEmpty $
  14338. 1056.03 s [opt-env-conf-test] - catMaybes
  14339. 1056.03 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14340. 1056.03 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14341. 1056.03 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14342. 1056.03 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14343. 1056.03 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14344. 1056.03 s [opt-env-conf-test] - ]
  14345. 1056.03 s [opt-env-conf-test] + case mSwitch of
  14346. 1056.03 s [opt-env-conf-test] + Found a -> do
  14347. 1056.03 s [opt-env-conf-test] + markParsed
  14348. 1056.03 s [opt-env-conf-test] + pure a
  14349. 1056.03 s [opt-env-conf-test] + _ -> do
  14350. 1056.03 s [opt-env-conf-test] + mOpt <-
  14351. 1056.03 s [opt-env-conf-test] + if settingTryOption
  14352. 1056.03 s [opt-env-conf-test] + then do
  14353. 1056.03 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  14354. 1056.03 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  14355. 1056.03 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  14356. 1056.03 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  14357. 1056.03 s [opt-env-conf-test] + case mS of
  14358. 1056.03 s [opt-env-conf-test] + Nothing -> do
  14359. 1056.03 s [opt-env-conf-test] + debug
  14360. 1056.03 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  14361. 1056.03 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  14362. 1056.03 s [opt-env-conf-test] + ]
  14363. 1056.03 s [opt-env-conf-test] + pure NotFound
  14364. 1056.03 s [opt-env-conf-test] + Just optionStr -> cap $
  14365. 1056.03 s [opt-env-conf-test] + case tryReaders rs optionStr of
  14366. 1056.03 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14367. 1056.03 s [opt-env-conf-test] + Right a -> do
  14368. 1056.03 s [opt-env-conf-test] + debug
  14369. 1056.03 s [opt-env-conf-test] + [ "set based on option: ",
  14370. 1056.03 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  14371. 1056.03 s [opt-env-conf-test] + ]
  14372. 1056.03 s [opt-env-conf-test] + pure $ Found a
  14373. 1056.03 s [opt-env-conf-test] + else pure NotRun
  14374. 1056.03 s [opt-env-conf-test] +
  14375. 1056.03 s [opt-env-conf-test] + case mOpt of
  14376. 1056.03 s [opt-env-conf-test] + Found a -> do
  14377. 1056.03 s [opt-env-conf-test] + markParsed
  14378. 1056.03 s [opt-env-conf-test] + pure a
  14379. 1056.03 s [opt-env-conf-test] + _ -> do
  14380. 1056.03 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  14381. 1056.03 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  14382. 1056.03 s [opt-env-conf-test] + Nothing -> pure NotRun
  14383. 1056.03 s [opt-env-conf-test] + Just ne -> do
  14384. 1056.03 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  14385. 1056.03 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  14386. 1056.03 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  14387. 1056.03 s [opt-env-conf-test] + es <- asks ppEnvEnv
  14388. 1056.03 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14389. 1056.03 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  14390. 1056.03 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  14391. 1056.03 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  14392. 1056.03 s [opt-env-conf-test] + -- result.
  14393. 1056.03 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  14394. 1056.03 s [opt-env-conf-test] + case tryReaders rs varStr of
  14395. 1056.03 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14396. 1056.03 s [opt-env-conf-test] + Right a -> do
  14397. 1056.03 s [opt-env-conf-test] + debug
  14398. 1056.03 s [opt-env-conf-test] + [ "set based on env: ",
  14399. 1056.04 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  14400. 1056.04 s [opt-env-conf-test] + ]
  14401. 1056.04 s [opt-env-conf-test] + pure a
  14402. 1056.04 s [opt-env-conf-test] + case listToMaybe results of
  14403. 1056.04 s [opt-env-conf-test] + Nothing -> do
  14404. 1056.04 s [opt-env-conf-test] + debug
  14405. 1056.04 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  14406. 1056.66 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14407. 1056.66 s [opt-env-conf-test] + ]
  14408. 1056.66 s [opt-env-conf-test] + pure NotFound
  14409. 1056.66 s [opt-env-conf-test] + Just a -> pure $ Found a
  14410. 1056.66 s [opt-env-conf-test] +
  14411. 1056.67 s [opt-env-conf-test] + case mEnv of
  14412. 1056.67 s [opt-env-conf-test] + Found a -> do
  14413. 1056.67 s [opt-env-conf-test] + markParsed
  14414. 1056.67 s [opt-env-conf-test] + pure a
  14415. 1056.67 s [opt-env-conf-test] + _ -> do
  14416. 1056.67 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  14417. 1056.67 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  14418. 1056.67 s [opt-env-conf-test] + Nothing -> pure NotRun
  14419. 1056.67 s [opt-env-conf-test] + Just confSets -> do
  14420. 1056.67 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  14421. 1056.67 s [opt-env-conf-test] + case mObj of
  14422. 1056.67 s [opt-env-conf-test] + Nothing -> do
  14423. 1056.67 s [opt-env-conf-test] + debug ["no config object to set from"]
  14424. 1056.67 s [opt-env-conf-test] + pure NotFound
  14425. 1056.67 s [opt-env-conf-test] + Just obj -> do
  14426. 1056.67 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  14427. 1056.67 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14428. 1056.67 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14429. 1056.67 s [opt-env-conf-test] + Nothing -> do
  14430. 1056.67 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  14431. 1056.67 s [opt-env-conf-test] + Nothing -> pure Nothing
  14432. 1056.67 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  14433. 1056.67 s [opt-env-conf-test] + Just neRest -> do
  14434. 1056.67 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  14435. 1056.67 s [opt-env-conf-test] + case mO' of
  14436. 1056.67 s [opt-env-conf-test] + Nothing -> pure Nothing
  14437. 1056.67 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  14438. 1056.67 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  14439. 1056.67 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14440. 1056.67 s [opt-env-conf-test] + Right mV -> case mV of
  14441. 1056.67 s [opt-env-conf-test] + Nothing -> do
  14442. 1056.67 s [opt-env-conf-test] + debug
  14443. 1056.67 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  14444. 1056.67 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14445. 1056.68 s [opt-env-conf-test] + ]
  14446. 1056.68 s [opt-env-conf-test] + pure Nothing
  14447. 1056.68 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14448. 1056.68 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14449. 1056.68 s [opt-env-conf-test] + Right mA -> case mA of
  14450. 1056.68 s [opt-env-conf-test] + Nothing -> do
  14451. 1056.68 s [opt-env-conf-test] + debug
  14452. 1056.68 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  14453. 1056.68 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14454. 1056.68 s [opt-env-conf-test] + ]
  14455. 1056.68 s [opt-env-conf-test] + pure Nothing
  14456. 1056.68 s [opt-env-conf-test] + Just a -> do
  14457. 1056.68 s [opt-env-conf-test] + debug
  14458. 1056.68 s [opt-env-conf-test] + [ "set based on config value: ",
  14459. 1056.68 s [opt-env-conf-test] + chunk $ T.pack $ show v
  14460. 1056.68 s [opt-env-conf-test] + ]
  14461. 1056.68 s [opt-env-conf-test] + pure $ Just a
  14462. 1056.68 s [opt-env-conf-test] + let toRes = \case
  14463. 1056.68 s [opt-env-conf-test] + Nothing -> NotFound
  14464. 1056.68 s [opt-env-conf-test] + Just a -> Found a
  14465. 1056.68 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14466. 1056.68 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  14467. 1056.68 s [opt-env-conf-test] + Just ne -> do
  14468. 1056.68 s [opt-env-conf-test] + res <- goConfSet confSet
  14469. 1056.68 s [opt-env-conf-test] + case res of
  14470. 1056.68 s [opt-env-conf-test] + Just a -> pure $ Found a
  14471. 1056.68 s [opt-env-conf-test] + Nothing -> goConfSets ne
  14472. 1056.68 s [opt-env-conf-test] + goConfSets confSets
  14473. 1056.68 s [opt-env-conf-test] + case mConf of
  14474. 1056.68 s [opt-env-conf-test] + Found a -> do
  14475. 1056.68 s [opt-env-conf-test] + markParsed
  14476. 1056.68 s [opt-env-conf-test] + pure a
  14477. 1056.68 s [opt-env-conf-test] + _ ->
  14478. 1056.68 s [opt-env-conf-test] + case settingDefaultValue of
  14479. 1056.68 s [opt-env-conf-test] + Just (a, _) -> do
  14480. 1056.68 s [opt-env-conf-test] + debug ["set to default value"]
  14481. 1056.68 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  14482. 1056.68 s [opt-env-conf-test] + Nothing -> do
  14483. 1056.68 s [opt-env-conf-test] + let parseResultError e res = case res of
  14484. 1056.68 s [opt-env-conf-test] + NotRun -> Nothing
  14485. 1056.68 s [opt-env-conf-test] + NotFound -> Just e
  14486. 1056.68 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14487. 1056.68 s [opt-env-conf-test] + debug ["not found"]
  14488. 1056.68 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14489. 1056.68 s [opt-env-conf-test] + NE.nonEmpty $
  14490. 1056.68 s [opt-env-conf-test] + catMaybes
  14491. 1056.68 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14492. 1056.68 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14493. 1056.68 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14494. 1056.68 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14495. 1056.68 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14496. 1056.68 s [opt-env-conf-test] + ]
  14497. 1056.68 s [opt-env-conf-test]
  14498. 1056.68 s [opt-env-conf-test] withCapabilities ::
  14499. 1056.68 s [opt-env-conf-test] Maybe SrcLoc ->
  14500. 1056.68 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
  14501. 1056.68 s [opt-env-conf-test] @@ -280,178 +280,178 @@
  14502. 1056.68 s [opt-env-conf-test] pure $ Found a
  14503. 1056.68 s [opt-env-conf-test] else pure NotRun
  14504. 1056.68 s [opt-env-conf-test]
  14505. 1056.68 s [opt-env-conf-test] - case mArg of
  14506. 1056.68 s [opt-env-conf-test] - Found a -> do
  14507. 1056.68 s [opt-env-conf-test] - markParsed
  14508. 1056.68 s [opt-env-conf-test] - pure a
  14509. 1056.68 s [opt-env-conf-test] - _ -> do
  14510. 1056.68 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  14511. 1056.69 s [opt-env-conf-test] - Nothing -> pure NotRun
  14512. 1056.69 s [opt-env-conf-test] - Just a -> do
  14513. 1056.69 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  14514. 1056.69 s [opt-env-conf-test] - case mS of
  14515. 1056.69 s [opt-env-conf-test] - Nothing -> do
  14516. 1056.69 s [opt-env-conf-test] - debug
  14517. 1056.69 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  14518. 1056.69 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14519. 1056.69 s [opt-env-conf-test] - ]
  14520. 1056.69 s [opt-env-conf-test] - pure NotFound
  14521. 1056.69 s [opt-env-conf-test] - Just () -> cap $ do
  14522. 1056.69 s [opt-env-conf-test] - debug ["set based on switch."]
  14523. 1056.69 s [opt-env-conf-test] - pure $ Found a
  14524. 1056.69 s [opt-env-conf-test] -
  14525. 1056.69 s [opt-env-conf-test] - case mSwitch of
  14526. 1056.69 s [opt-env-conf-test] - Found a -> do
  14527. 1056.69 s [opt-env-conf-test] - markParsed
  14528. 1056.69 s [opt-env-conf-test] - pure a
  14529. 1056.69 s [opt-env-conf-test] - _ -> do
  14530. 1056.69 s [opt-env-conf-test] - mOpt <-
  14531. 1056.69 s [opt-env-conf-test] - if settingTryOption
  14532. 1056.69 s [opt-env-conf-test] - then do
  14533. 1056.69 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  14534. 1056.69 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14535. 1056.69 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14536. 1056.69 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  14537. 1056.69 s [opt-env-conf-test] - case mS of
  14538. 1056.69 s [opt-env-conf-test] - Nothing -> do
  14539. 1056.69 s [opt-env-conf-test] - debug
  14540. 1056.69 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  14541. 1056.69 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14542. 1056.69 s [opt-env-conf-test] - ]
  14543. 1056.69 s [opt-env-conf-test] - pure NotFound
  14544. 1056.69 s [opt-env-conf-test] - Just optionStr -> cap $
  14545. 1056.69 s [opt-env-conf-test] - case tryReaders rs optionStr of
  14546. 1056.69 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14547. 1056.69 s [opt-env-conf-test] - Right a -> do
  14548. 1056.69 s [opt-env-conf-test] - debug
  14549. 1056.69 s [opt-env-conf-test] - [ "set based on option: ",
  14550. 1056.69 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  14551. 1056.69 s [opt-env-conf-test] - ]
  14552. 1056.69 s [opt-env-conf-test] - pure $ Found a
  14553. 1056.69 s [opt-env-conf-test] - else pure NotRun
  14554. 1056.69 s [opt-env-conf-test] -
  14555. 1056.69 s [opt-env-conf-test] - case mOpt of
  14556. 1056.69 s [opt-env-conf-test] - Found a -> do
  14557. 1056.69 s [opt-env-conf-test] - markParsed
  14558. 1056.69 s [opt-env-conf-test] - pure a
  14559. 1056.69 s [opt-env-conf-test] - _ -> do
  14560. 1056.69 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  14561. 1056.69 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  14562. 1056.69 s [opt-env-conf-test] - Nothing -> pure NotRun
  14563. 1056.69 s [opt-env-conf-test] - Just ne -> do
  14564. 1056.69 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  14565. 1056.69 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14566. 1056.69 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14567. 1056.69 s [opt-env-conf-test] - es <- asks ppEnvEnv
  14568. 1056.69 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14569. 1056.69 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  14570. 1056.69 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  14571. 1056.69 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  14572. 1056.69 s [opt-env-conf-test] - -- result.
  14573. 1056.69 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  14574. 1056.69 s [opt-env-conf-test] - case tryReaders rs varStr of
  14575. 1056.69 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14576. 1056.69 s [opt-env-conf-test] - Right a -> do
  14577. 1056.69 s [opt-env-conf-test] - debug
  14578. 1056.69 s [opt-env-conf-test] - [ "set based on env: ",
  14579. 1056.69 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  14580. 1056.69 s [opt-env-conf-test] - ]
  14581. 1056.69 s [opt-env-conf-test] - pure a
  14582. 1056.69 s [opt-env-conf-test] - case listToMaybe results of
  14583. 1056.69 s [opt-env-conf-test] - Nothing -> do
  14584. 1056.69 s [opt-env-conf-test] - debug
  14585. 1056.69 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  14586. 1056.69 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14587. 1056.69 s [opt-env-conf-test] - ]
  14588. 1056.69 s [opt-env-conf-test] - pure NotFound
  14589. 1056.69 s [opt-env-conf-test] - Just a -> pure $ Found a
  14590. 1056.69 s [opt-env-conf-test] -
  14591. 1056.69 s [opt-env-conf-test] - case mEnv of
  14592. 1056.69 s [opt-env-conf-test] - Found a -> do
  14593. 1056.69 s [opt-env-conf-test] - markParsed
  14594. 1056.69 s [opt-env-conf-test] - pure a
  14595. 1056.69 s [opt-env-conf-test] - _ -> do
  14596. 1056.69 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  14597. 1056.69 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  14598. 1056.69 s [opt-env-conf-test] - Nothing -> pure NotRun
  14599. 1056.69 s [opt-env-conf-test] - Just confSets -> do
  14600. 1056.69 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  14601. 1056.69 s [opt-env-conf-test] - case mObj of
  14602. 1056.69 s [opt-env-conf-test] - Nothing -> do
  14603. 1056.69 s [opt-env-conf-test] - debug ["no config object to set from"]
  14604. 1056.69 s [opt-env-conf-test] - pure NotFound
  14605. 1056.69 s [opt-env-conf-test] - Just obj -> do
  14606. 1056.69 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  14607. 1056.69 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14608. 1056.69 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14609. 1056.69 s [opt-env-conf-test] - Nothing -> do
  14610. 1056.69 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  14611. 1056.69 s [opt-env-conf-test] - Nothing -> pure Nothing
  14612. 1056.69 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  14613. 1056.69 s [opt-env-conf-test] - Just neRest -> do
  14614. 1056.69 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  14615. 1056.69 s [opt-env-conf-test] - case mO' of
  14616. 1056.70 s [opt-env-conf-test] - Nothing -> pure Nothing
  14617. 1056.70 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  14618. 1056.70 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  14619. 1056.70 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14620. 1056.70 s [opt-env-conf-test] - Right mV -> case mV of
  14621. 1056.70 s [opt-env-conf-test] - Nothing -> do
  14622. 1056.70 s [opt-env-conf-test] - debug
  14623. 1056.70 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  14624. 1056.70 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14625. 1056.70 s [opt-env-conf-test] - ]
  14626. 1056.70 s [opt-env-conf-test] - pure Nothing
  14627. 1056.70 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14628. 1056.70 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14629. 1056.70 s [opt-env-conf-test] - Right mA -> case mA of
  14630. 1056.70 s [opt-env-conf-test] - Nothing -> do
  14631. 1056.70 s [opt-env-conf-test] - debug
  14632. 1056.70 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  14633. 1056.70 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14634. 1056.70 s [opt-env-conf-test] - ]
  14635. 1056.70 s [opt-env-conf-test] - pure Nothing
  14636. 1056.70 s [opt-env-conf-test] - Just a -> do
  14637. 1056.70 s [opt-env-conf-test] - debug
  14638. 1056.70 s [opt-env-conf-test] - [ "set based on config value: ",
  14639. 1056.70 s [opt-env-conf-test] - chunk $ T.pack $ show v
  14640. 1056.70 s [opt-env-conf-test] - ]
  14641. 1056.70 s [opt-env-conf-test] - pure $ Just a
  14642. 1056.70 s [opt-env-conf-test] - let toRes = \case
  14643. 1056.70 s [opt-env-conf-test] - Nothing -> NotFound
  14644. 1056.70 s [opt-env-conf-test] - Just a -> Found a
  14645. 1056.70 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14646. 1056.70 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  14647. 1056.70 s [opt-env-conf-test] - Just ne -> do
  14648. 1056.70 s [opt-env-conf-test] - res <- goConfSet confSet
  14649. 1056.70 s [opt-env-conf-test] - case res of
  14650. 1056.70 s [opt-env-conf-test] - Just a -> pure $ Found a
  14651. 1056.70 s [opt-env-conf-test] - Nothing -> goConfSets ne
  14652. 1056.70 s [opt-env-conf-test] - goConfSets confSets
  14653. 1056.70 s [opt-env-conf-test] - case mConf of
  14654. 1056.70 s [opt-env-conf-test] - Found a -> do
  14655. 1056.70 s [opt-env-conf-test] - markParsed
  14656. 1056.70 s [opt-env-conf-test] - pure a
  14657. 1056.70 s [opt-env-conf-test] - _ ->
  14658. 1056.70 s [opt-env-conf-test] - case settingDefaultValue of
  14659. 1056.70 s [opt-env-conf-test] - Just (a, _) -> do
  14660. 1056.70 s [opt-env-conf-test] - debug ["set to default value"]
  14661. 1056.70 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  14662. 1056.70 s [opt-env-conf-test] - Nothing -> do
  14663. 1056.70 s [opt-env-conf-test] - let parseResultError e res = case res of
  14664. 1056.70 s [opt-env-conf-test] - NotRun -> Nothing
  14665. 1056.70 s [opt-env-conf-test] - NotFound -> Just e
  14666. 1056.70 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  14667. 1056.70 s [opt-env-conf-test] - debug ["not found"]
  14668. 1056.70 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14669. 1056.70 s [opt-env-conf-test] - NE.nonEmpty $
  14670. 1056.70 s [opt-env-conf-test] - catMaybes
  14671. 1056.70 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14672. 1056.70 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14673. 1056.70 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14674. 1056.70 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14675. 1056.70 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14676. 1056.70 s [opt-env-conf-test] - ]
  14677. 1056.70 s [opt-env-conf-test] + case mArg of
  14678. 1056.70 s [opt-env-conf-test] + Found a -> do
  14679. 1056.70 s [opt-env-conf-test] + markParsed
  14680. 1056.70 s [opt-env-conf-test] + pure a
  14681. 1056.70 s [opt-env-conf-test] + _ -> do
  14682. 1056.70 s [opt-env-conf-test] + mSwitch <- case settingSwitchValue of
  14683. 1056.70 s [opt-env-conf-test] + Nothing -> pure NotRun
  14684. 1056.70 s [opt-env-conf-test] + Just a -> do
  14685. 1056.70 s [opt-env-conf-test] + mS <- ppSwitch settingDasheds
  14686. 1056.70 s [opt-env-conf-test] + case mS of
  14687. 1056.70 s [opt-env-conf-test] + Nothing -> do
  14688. 1056.70 s [opt-env-conf-test] + debug
  14689. 1056.70 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  14690. 1056.70 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  14691. 1056.70 s [opt-env-conf-test] + ]
  14692. 1056.70 s [opt-env-conf-test] + pure NotFound
  14693. 1056.70 s [opt-env-conf-test] + Just () -> cap $ do
  14694. 1056.70 s [opt-env-conf-test] + debug ["set based on switch."]
  14695. 1056.70 s [opt-env-conf-test] + pure $ Found a
  14696. 1056.70 s [opt-env-conf-test] +
  14697. 1056.70 s [opt-env-conf-test] + case mSwitch of
  14698. 1056.70 s [opt-env-conf-test] + Found a -> do
  14699. 1056.70 s [opt-env-conf-test] + markParsed
  14700. 1056.70 s [opt-env-conf-test] + pure a
  14701. 1056.70 s [opt-env-conf-test] + _ -> do
  14702. 1056.70 s [opt-env-conf-test] + mOpt <-
  14703. 1056.70 s [opt-env-conf-test] + if settingTryOption
  14704. 1056.70 s [opt-env-conf-test] + then do
  14705. 1056.70 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  14706. 1056.70 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  14707. 1056.70 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  14708. 1056.70 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  14709. 1056.70 s [opt-env-conf-test] + case mS of
  14710. 1056.70 s [opt-env-conf-test] + Nothing -> do
  14711. 1056.70 s [opt-env-conf-test] + debug
  14712. 1056.70 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  14713. 1056.70 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  14714. 1056.70 s [opt-env-conf-test] + ]
  14715. 1056.70 s [opt-env-conf-test] + pure NotFound
  14716. 1056.70 s [opt-env-conf-test] + Just optionStr -> cap $
  14717. 1056.70 s [opt-env-conf-test] + case tryReaders rs optionStr of
  14718. 1056.70 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14719. 1056.70 s [opt-env-conf-test] + Right a -> do
  14720. 1056.70 s [opt-env-conf-test] + debug
  14721. 1056.70 s [opt-env-conf-test] + [ "set based on option: ",
  14722. 1056.70 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  14723. 1056.70 s [opt-env-conf-test] + ]
  14724. 1056.70 s [opt-env-conf-test] + pure $ Found a
  14725. 1056.70 s [opt-env-conf-test] + else pure NotRun
  14726. 1056.70 s [opt-env-conf-test] +
  14727. 1056.70 s [opt-env-conf-test] + case mOpt of
  14728. 1056.70 s [opt-env-conf-test] + Found a -> do
  14729. 1056.70 s [opt-env-conf-test] + markParsed
  14730. 1056.71 s [opt-env-conf-test] + pure a
  14731. 1056.71 s [opt-env-conf-test] + _ -> do
  14732. 1056.71 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  14733. 1056.71 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  14734. 1056.71 s [opt-env-conf-test] + Nothing -> pure NotRun
  14735. 1056.71 s [opt-env-conf-test] + Just ne -> do
  14736. 1056.71 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  14737. 1056.71 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  14738. 1056.71 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  14739. 1056.71 s [opt-env-conf-test] + es <- asks ppEnvEnv
  14740. 1056.71 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14741. 1056.71 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  14742. 1056.71 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  14743. 1056.71 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  14744. 1056.71 s [opt-env-conf-test] + -- result.
  14745. 1056.71 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  14746. 1056.71 s [opt-env-conf-test] + case tryReaders rs varStr of
  14747. 1056.71 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14748. 1056.71 s [opt-env-conf-test] + Right a -> do
  14749. 1056.71 s [opt-env-conf-test] + debug
  14750. 1056.71 s [opt-env-conf-test] + [ "set based on env: ",
  14751. 1056.71 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  14752. 1056.71 s [opt-env-conf-test] + ]
  14753. 1056.71 s [opt-env-conf-test] + pure a
  14754. 1056.71 s [opt-env-conf-test] + case listToMaybe results of
  14755. 1056.71 s [opt-env-conf-test] + Nothing -> do
  14756. 1056.71 s [opt-env-conf-test] + debug
  14757. 1056.71 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  14758. 1056.71 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14759. 1056.71 s [opt-env-conf-test] + ]
  14760. 1056.71 s [opt-env-conf-test] + pure NotFound
  14761. 1056.71 s [opt-env-conf-test] + Just a -> pure $ Found a
  14762. 1056.71 s [opt-env-conf-test] +
  14763. 1056.71 s [opt-env-conf-test] + case mEnv of
  14764. 1056.71 s [opt-env-conf-test] + Found a -> do
  14765. 1056.71 s [opt-env-conf-test] + markParsed
  14766. 1056.71 s [opt-env-conf-test] + pure a
  14767. 1056.71 s [opt-env-conf-test] + _ -> do
  14768. 1056.71 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  14769. 1056.71 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  14770. 1056.71 s [opt-env-conf-test] + Nothing -> pure NotRun
  14771. 1056.71 s [opt-env-conf-test] + Just confSets -> do
  14772. 1056.71 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  14773. 1056.71 s [opt-env-conf-test] + case mObj of
  14774. 1056.71 s [opt-env-conf-test] + Nothing -> do
  14775. 1056.71 s [opt-env-conf-test] + debug ["no config object to set from"]
  14776. 1056.71 s [opt-env-conf-test] + pure NotFound
  14777. 1056.71 s [opt-env-conf-test] + Just obj -> do
  14778. 1056.71 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  14779. 1056.71 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14780. 1056.71 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14781. 1056.71 s [opt-env-conf-test] + Nothing -> do
  14782. 1056.71 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  14783. 1056.71 s [opt-env-conf-test] + Nothing -> pure Nothing
  14784. 1056.71 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  14785. 1056.71 s [opt-env-conf-test] + Just neRest -> do
  14786. 1056.71 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  14787. 1056.71 s [opt-env-conf-test] + case mO' of
  14788. 1056.71 s [opt-env-conf-test] + Nothing -> pure Nothing
  14789. 1056.71 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  14790. 1056.71 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  14791. 1056.71 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14792. 1056.71 s [opt-env-conf-test] + Right mV -> case mV of
  14793. 1056.71 s [opt-env-conf-test] + Nothing -> do
  14794. 1056.71 s [opt-env-conf-test] + debug
  14795. 1056.71 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  14796. 1056.71 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14797. 1056.71 s [opt-env-conf-test] + ]
  14798. 1056.71 s [opt-env-conf-test] + pure Nothing
  14799. 1056.71 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14800. 1056.71 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14801. 1056.71 s [opt-env-conf-test] + Right mA -> case mA of
  14802. 1056.71 s [opt-env-conf-test] + Nothing -> do
  14803. 1056.71 s [opt-env-conf-test] + debug
  14804. 1056.71 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  14805. 1056.71 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  14806. 1056.71 s [opt-env-conf-test] + ]
  14807. 1056.71 s [opt-env-conf-test] + pure Nothing
  14808. 1056.71 s [opt-env-conf-test] + Just a -> do
  14809. 1056.71 s [opt-env-conf-test] + debug
  14810. 1056.71 s [opt-env-conf-test] + [ "set based on config value: ",
  14811. 1056.71 s [opt-env-conf-test] + chunk $ T.pack $ show v
  14812. 1056.71 s [opt-env-conf-test] + ]
  14813. 1056.71 s [opt-env-conf-test] + pure $ Just a
  14814. 1056.71 s [opt-env-conf-test] + let toRes = \case
  14815. 1056.71 s [opt-env-conf-test] + Nothing -> NotFound
  14816. 1056.71 s [opt-env-conf-test] + Just a -> Found a
  14817. 1056.71 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14818. 1056.71 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  14819. 1056.71 s [opt-env-conf-test] + Just ne -> do
  14820. 1056.71 s [opt-env-conf-test] + res <- goConfSet confSet
  14821. 1056.71 s [opt-env-conf-test] + case res of
  14822. 1056.71 s [opt-env-conf-test] + Just a -> pure $ Found a
  14823. 1057.16 s [opt-env-conf-test] + Nothing -> goConfSets ne
  14824. 1057.16 s [opt-env-conf-test] + goConfSets confSets
  14825. 1057.16 s [opt-env-conf-test] + case mConf of
  14826. 1057.16 s [opt-env-conf-test] + Found a -> do
  14827. 1057.16 s [opt-env-conf-test] + markParsed
  14828. 1057.16 s [opt-env-conf-test] + pure a
  14829. 1057.16 s [opt-env-conf-test] + _ ->
  14830. 1057.16 s [opt-env-conf-test] + case settingDefaultValue of
  14831. 1057.16 s [opt-env-conf-test] + Just (a, _) -> do
  14832. 1057.16 s [opt-env-conf-test] + debug ["set to default value"]
  14833. 1057.16 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  14834. 1057.16 s [opt-env-conf-test] + Nothing -> do
  14835. 1057.16 s [opt-env-conf-test] + let parseResultError e res = case res of
  14836. 1057.16 s [opt-env-conf-test] + NotRun -> Nothing
  14837. 1057.16 s [opt-env-conf-test] + NotFound -> Just e
  14838. 1057.16 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  14839. 1057.16 s [opt-env-conf-test] + debug ["not found"]
  14840. 1057.16 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  14841. 1057.16 s [opt-env-conf-test] + NE.nonEmpty $
  14842. 1057.16 s [opt-env-conf-test] + catMaybes
  14843. 1057.16 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  14844. 1057.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  14845. 1057.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  14846. 1057.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  14847. 1057.16 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  14848. 1057.16 s [opt-env-conf-test] + ]
  14849. 1057.16 s [opt-env-conf-test]
  14850. 1057.16 s [opt-env-conf-test] withCapabilities ::
  14851. 1057.16 s [opt-env-conf-test] Maybe SrcLoc ->
  14852. 1057.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
  14853. 1057.17 s [opt-env-conf-test] @@ -280,178 +280,178 @@
  14854. 1057.17 s [opt-env-conf-test] pure $ Found a
  14855. 1057.17 s [opt-env-conf-test] else pure NotRun
  14856. 1057.17 s [opt-env-conf-test]
  14857. 1057.17 s [opt-env-conf-test] - case mArg of
  14858. 1057.17 s [opt-env-conf-test] - Found a -> do
  14859. 1057.17 s [opt-env-conf-test] - markParsed
  14860. 1057.17 s [opt-env-conf-test] - pure a
  14861. 1057.17 s [opt-env-conf-test] - _ -> do
  14862. 1057.17 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  14863. 1057.17 s [opt-env-conf-test] - Nothing -> pure NotRun
  14864. 1057.17 s [opt-env-conf-test] - Just a -> do
  14865. 1057.17 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  14866. 1057.17 s [opt-env-conf-test] - case mS of
  14867. 1057.17 s [opt-env-conf-test] - Nothing -> do
  14868. 1057.17 s [opt-env-conf-test] - debug
  14869. 1057.17 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  14870. 1057.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14871. 1057.17 s [opt-env-conf-test] - ]
  14872. 1057.17 s [opt-env-conf-test] - pure NotFound
  14873. 1057.17 s [opt-env-conf-test] - Just () -> cap $ do
  14874. 1057.17 s [opt-env-conf-test] - debug ["set based on switch."]
  14875. 1057.17 s [opt-env-conf-test] - pure $ Found a
  14876. 1057.17 s [opt-env-conf-test] -
  14877. 1057.17 s [opt-env-conf-test] - case mSwitch of
  14878. 1057.17 s [opt-env-conf-test] - Found a -> do
  14879. 1057.17 s [opt-env-conf-test] - markParsed
  14880. 1057.17 s [opt-env-conf-test] - pure a
  14881. 1057.17 s [opt-env-conf-test] - _ -> do
  14882. 1057.17 s [opt-env-conf-test] - mOpt <-
  14883. 1057.17 s [opt-env-conf-test] - if settingTryOption
  14884. 1057.17 s [opt-env-conf-test] - then do
  14885. 1057.17 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  14886. 1057.17 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14887. 1057.17 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14888. 1057.17 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  14889. 1057.17 s [opt-env-conf-test] - case mS of
  14890. 1057.17 s [opt-env-conf-test] - Nothing -> do
  14891. 1057.17 s [opt-env-conf-test] - debug
  14892. 1057.17 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  14893. 1057.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  14894. 1057.17 s [opt-env-conf-test] - ]
  14895. 1057.17 s [opt-env-conf-test] - pure NotFound
  14896. 1057.17 s [opt-env-conf-test] - Just optionStr -> cap $
  14897. 1057.17 s [opt-env-conf-test] - case tryReaders rs optionStr of
  14898. 1057.17 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  14899. 1057.17 s [opt-env-conf-test] - Right a -> do
  14900. 1057.17 s [opt-env-conf-test] - debug
  14901. 1057.17 s [opt-env-conf-test] - [ "set based on option: ",
  14902. 1057.17 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  14903. 1057.17 s [opt-env-conf-test] - ]
  14904. 1057.17 s [opt-env-conf-test] - pure $ Found a
  14905. 1057.17 s [opt-env-conf-test] - else pure NotRun
  14906. 1057.17 s [opt-env-conf-test] -
  14907. 1057.17 s [opt-env-conf-test] - case mOpt of
  14908. 1057.17 s [opt-env-conf-test] - Found a -> do
  14909. 1057.17 s [opt-env-conf-test] - markParsed
  14910. 1057.17 s [opt-env-conf-test] - pure a
  14911. 1057.17 s [opt-env-conf-test] - _ -> do
  14912. 1057.17 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  14913. 1057.17 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  14914. 1057.18 s [opt-env-conf-test] - Nothing -> pure NotRun
  14915. 1057.18 s [opt-env-conf-test] - Just ne -> do
  14916. 1057.18 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  14917. 1057.18 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  14918. 1057.18 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  14919. 1057.18 s [opt-env-conf-test] - es <- asks ppEnvEnv
  14920. 1057.18 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  14921. 1057.18 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  14922. 1057.18 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  14923. 1057.18 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  14924. 1057.18 s [opt-env-conf-test] - -- result.
  14925. 1057.18 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  14926. 1057.18 s [opt-env-conf-test] - case tryReaders rs varStr of
  14927. 1057.18 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  14928. 1057.18 s [opt-env-conf-test] - Right a -> do
  14929. 1057.18 s [opt-env-conf-test] - debug
  14930. 1057.18 s [opt-env-conf-test] - [ "set based on env: ",
  14931. 1057.18 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  14932. 1057.18 s [opt-env-conf-test] - ]
  14933. 1057.18 s [opt-env-conf-test] - pure a
  14934. 1057.18 s [opt-env-conf-test] - case listToMaybe results of
  14935. 1057.18 s [opt-env-conf-test] - Nothing -> do
  14936. 1057.18 s [opt-env-conf-test] - debug
  14937. 1057.18 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  14938. 1057.18 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  14939. 1057.18 s [opt-env-conf-test] - ]
  14940. 1057.18 s [opt-env-conf-test] - pure NotFound
  14941. 1057.18 s [opt-env-conf-test] - Just a -> pure $ Found a
  14942. 1057.18 s [opt-env-conf-test] -
  14943. 1057.18 s [opt-env-conf-test] - case mEnv of
  14944. 1057.18 s [opt-env-conf-test] - Found a -> do
  14945. 1057.18 s [opt-env-conf-test] - markParsed
  14946. 1057.18 s [opt-env-conf-test] - pure a
  14947. 1057.18 s [opt-env-conf-test] - _ -> do
  14948. 1057.18 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  14949. 1057.18 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  14950. 1057.18 s [opt-env-conf-test] - Nothing -> pure NotRun
  14951. 1057.18 s [opt-env-conf-test] - Just confSets -> do
  14952. 1057.18 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  14953. 1057.18 s [opt-env-conf-test] - case mObj of
  14954. 1057.18 s [opt-env-conf-test] - Nothing -> do
  14955. 1057.18 s [opt-env-conf-test] - debug ["no config object to set from"]
  14956. 1057.18 s [opt-env-conf-test] - pure NotFound
  14957. 1057.18 s [opt-env-conf-test] - Just obj -> do
  14958. 1057.18 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  14959. 1057.18 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  14960. 1057.18 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  14961. 1057.18 s [opt-env-conf-test] - Nothing -> do
  14962. 1057.18 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  14963. 1057.18 s [opt-env-conf-test] - Nothing -> pure Nothing
  14964. 1057.18 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  14965. 1057.18 s [opt-env-conf-test] - Just neRest -> do
  14966. 1057.18 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  14967. 1057.18 s [opt-env-conf-test] - case mO' of
  14968. 1057.18 s [opt-env-conf-test] - Nothing -> pure Nothing
  14969. 1057.18 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  14970. 1057.18 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  14971. 1057.18 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14972. 1057.18 s [opt-env-conf-test] - Right mV -> case mV of
  14973. 1057.18 s [opt-env-conf-test] - Nothing -> do
  14974. 1057.18 s [opt-env-conf-test] - debug
  14975. 1057.18 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  14976. 1057.18 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14977. 1057.18 s [opt-env-conf-test] - ]
  14978. 1057.18 s [opt-env-conf-test] - pure Nothing
  14979. 1057.18 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  14980. 1057.18 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  14981. 1057.18 s [opt-env-conf-test] - Right mA -> case mA of
  14982. 1057.18 s [opt-env-conf-test] - Nothing -> do
  14983. 1057.18 s [opt-env-conf-test] - debug
  14984. 1057.18 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  14985. 1057.18 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  14986. 1057.18 s [opt-env-conf-test] - ]
  14987. 1057.18 s [opt-env-conf-test] - pure Nothing
  14988. 1057.18 s [opt-env-conf-test] - Just a -> do
  14989. 1057.18 s [opt-env-conf-test] - debug
  14990. 1057.18 s [opt-env-conf-test] - [ "set based on config value: ",
  14991. 1057.18 s [opt-env-conf-test] - chunk $ T.pack $ show v
  14992. 1057.18 s [opt-env-conf-test] - ]
  14993. 1057.18 s [opt-env-conf-test] - pure $ Just a
  14994. 1057.18 s [opt-env-conf-test] - let toRes = \case
  14995. 1057.18 s [opt-env-conf-test] - Nothing -> NotFound
  14996. 1057.19 s [opt-env-conf-test] - Just a -> Found a
  14997. 1057.19 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  14998. 1057.19 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  14999. 1057.19 s [opt-env-conf-test] - Just ne -> do
  15000. 1057.19 s [opt-env-conf-test] - res <- goConfSet confSet
  15001. 1057.19 s [opt-env-conf-test] - case res of
  15002. 1057.19 s [opt-env-conf-test] - Just a -> pure $ Found a
  15003. 1057.19 s [opt-env-conf-test] - Nothing -> goConfSets ne
  15004. 1057.19 s [opt-env-conf-test] - goConfSets confSets
  15005. 1057.19 s [opt-env-conf-test] - case mConf of
  15006. 1057.19 s [opt-env-conf-test] - Found a -> do
  15007. 1057.19 s [opt-env-conf-test] - markParsed
  15008. 1057.19 s [opt-env-conf-test] - pure a
  15009. 1057.19 s [opt-env-conf-test] - _ ->
  15010. 1057.19 s [opt-env-conf-test] - case settingDefaultValue of
  15011. 1057.19 s [opt-env-conf-test] - Just (a, _) -> do
  15012. 1057.19 s [opt-env-conf-test] - debug ["set to default value"]
  15013. 1057.19 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  15014. 1057.19 s [opt-env-conf-test] - Nothing -> do
  15015. 1057.19 s [opt-env-conf-test] - let parseResultError e res = case res of
  15016. 1057.19 s [opt-env-conf-test] - NotRun -> Nothing
  15017. 1057.19 s [opt-env-conf-test] - NotFound -> Just e
  15018. 1057.19 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  15019. 1057.19 s [opt-env-conf-test] - debug ["not found"]
  15020. 1057.19 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15021. 1057.19 s [opt-env-conf-test] - NE.nonEmpty $
  15022. 1057.19 s [opt-env-conf-test] - catMaybes
  15023. 1057.19 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  15024. 1057.19 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  15025. 1057.19 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  15026. 1057.19 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  15027. 1057.19 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  15028. 1057.19 s [opt-env-conf-test] - ]
  15029. 1057.19 s [opt-env-conf-test] + case mArg of
  15030. 1057.19 s [opt-env-conf-test] + Found a -> do
  15031. 1057.19 s [opt-env-conf-test] + markParsed
  15032. 1057.19 s [opt-env-conf-test] + pure a
  15033. 1057.19 s [opt-env-conf-test] + _ -> do
  15034. 1057.19 s [opt-env-conf-test] + mSwitch <- case settingSwitchValue of
  15035. 1057.19 s [opt-env-conf-test] + Nothing -> pure NotRun
  15036. 1057.19 s [opt-env-conf-test] + Just a -> do
  15037. 1057.19 s [opt-env-conf-test] + mS <- ppSwitch settingDasheds
  15038. 1057.19 s [opt-env-conf-test] + case mS of
  15039. 1057.19 s [opt-env-conf-test] + Nothing -> do
  15040. 1057.19 s [opt-env-conf-test] + debug
  15041. 1057.19 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  15042. 1057.19 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  15043. 1057.19 s [opt-env-conf-test] + ]
  15044. 1057.19 s [opt-env-conf-test] + pure NotFound
  15045. 1057.19 s [opt-env-conf-test] + Just () -> cap $ do
  15046. 1057.19 s [opt-env-conf-test] + debug ["set based on switch."]
  15047. 1057.19 s [opt-env-conf-test] + pure $ Found a
  15048. 1057.19 s [opt-env-conf-test] +
  15049. 1057.19 s [opt-env-conf-test] + case mSwitch of
  15050. 1057.19 s [opt-env-conf-test] + Found a -> do
  15051. 1057.19 s [opt-env-conf-test] + markParsed
  15052. 1057.19 s [opt-env-conf-test] + pure a
  15053. 1057.19 s [opt-env-conf-test] + _ -> do
  15054. 1057.19 s [opt-env-conf-test] + mOpt <-
  15055. 1057.19 s [opt-env-conf-test] + if settingTryOption
  15056. 1057.19 s [opt-env-conf-test] + then do
  15057. 1057.19 s [opt-env-conf-test] + -- Require readers before finding the option so the parser
  15058. 1057.19 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  15059. 1057.19 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  15060. 1057.19 s [opt-env-conf-test] + mS <- ppOpt settingDasheds
  15061. 1057.19 s [opt-env-conf-test] + case mS of
  15062. 1057.19 s [opt-env-conf-test] + Nothing -> do
  15063. 1057.19 s [opt-env-conf-test] + debug
  15064. 1057.19 s [opt-env-conf-test] + [ "could not set based on options, no option: ",
  15065. 1057.19 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  15066. 1057.19 s [opt-env-conf-test] + ]
  15067. 1057.19 s [opt-env-conf-test] + pure NotFound
  15068. 1057.19 s [opt-env-conf-test] + Just optionStr -> cap $
  15069. 1057.19 s [opt-env-conf-test] + case tryReaders rs optionStr of
  15070. 1057.19 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  15071. 1057.19 s [opt-env-conf-test] + Right a -> do
  15072. 1057.19 s [opt-env-conf-test] + debug
  15073. 1057.19 s [opt-env-conf-test] + [ "set based on option: ",
  15074. 1057.19 s [opt-env-conf-test] + chunk $ T.pack $ show optionStr
  15075. 1057.19 s [opt-env-conf-test] + ]
  15076. 1057.19 s [opt-env-conf-test] + pure $ Found a
  15077. 1057.19 s [opt-env-conf-test] + else pure NotRun
  15078. 1057.19 s [opt-env-conf-test] +
  15079. 1057.19 s [opt-env-conf-test] + case mOpt of
  15080. 1057.19 s [opt-env-conf-test] + Found a -> do
  15081. 1057.19 s [opt-env-conf-test] + markParsed
  15082. 1057.19 s [opt-env-conf-test] + pure a
  15083. 1057.19 s [opt-env-conf-test] + _ -> do
  15084. 1057.19 s [opt-env-conf-test] + let mEnvDoc = settingEnvDoc set
  15085. 1057.19 s [opt-env-conf-test] + mEnv <- cap $ case settingEnvVars of
  15086. 1057.19 s [opt-env-conf-test] + Nothing -> pure NotRun
  15087. 1057.19 s [opt-env-conf-test] + Just ne -> do
  15088. 1057.19 s [opt-env-conf-test] + -- Require readers before finding the env vars so the parser
  15089. 1057.19 s [opt-env-conf-test] + -- always fails if it's missing a reader.
  15090. 1057.19 s [opt-env-conf-test] + rs <- requireReaders settingReaders
  15091. 1057.19 s [opt-env-conf-test] + es <- asks ppEnvEnv
  15092. 1057.19 s [opt-env-conf-test] + let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  15093. 1057.19 s [opt-env-conf-test] + -- Run the parser on all specified env vars before
  15094. 1057.19 s [opt-env-conf-test] + -- returning the first because we want to fail if any
  15095. 1057.19 s [opt-env-conf-test] + -- of them fail, even if they wouldn't be the parse
  15096. 1057.19 s [opt-env-conf-test] + -- result.
  15097. 1057.19 s [opt-env-conf-test] + results <- for founds $ \varStr ->
  15098. 1057.19 s [opt-env-conf-test] + case tryReaders rs varStr of
  15099. 1057.19 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  15100. 1057.19 s [opt-env-conf-test] + Right a -> do
  15101. 1057.19 s [opt-env-conf-test] + debug
  15102. 1057.19 s [opt-env-conf-test] + [ "set based on env: ",
  15103. 1057.19 s [opt-env-conf-test] + chunk $ T.pack $ show varStr
  15104. 1057.19 s [opt-env-conf-test] + ]
  15105. 1057.19 s [opt-env-conf-test] + pure a
  15106. 1057.19 s [opt-env-conf-test] + case listToMaybe results of
  15107. 1057.19 s [opt-env-conf-test] + Nothing -> do
  15108. 1057.19 s [opt-env-conf-test] + debug
  15109. 1057.19 s [opt-env-conf-test] + [ "could not set based on env vars, no var: ",
  15110. 1057.19 s [opt-env-conf-test] + chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  15111. 1057.19 s [opt-env-conf-test] + ]
  15112. 1057.19 s [opt-env-conf-test] + pure NotFound
  15113. 1057.19 s [opt-env-conf-test] + Just a -> pure $ Found a
  15114. 1057.19 s [opt-env-conf-test] +
  15115. 1057.19 s [opt-env-conf-test] + case mEnv of
  15116. 1057.19 s [opt-env-conf-test] + Found a -> do
  15117. 1057.19 s [opt-env-conf-test] + markParsed
  15118. 1057.20 s [opt-env-conf-test] + pure a
  15119. 1057.20 s [opt-env-conf-test] + _ -> do
  15120. 1057.20 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  15121. 1057.20 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  15122. 1057.20 s [opt-env-conf-test] + Nothing -> pure NotRun
  15123. 1057.20 s [opt-env-conf-test] + Just confSets -> do
  15124. 1057.20 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  15125. 1057.27 s [opt-env-conf-test] + case mObj of
  15126. 1057.27 s [opt-env-conf-test] + Nothing -> do
  15127. 1057.27 s [opt-env-conf-test] + debug ["no config object to set from"]
  15128. 1057.27 s [opt-env-conf-test] + pure NotFound
  15129. 1057.27 s [opt-env-conf-test] + Just obj -> do
  15130. 1057.27 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  15131. 1057.27 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  15132. 1057.27 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  15133. 1057.27 s [opt-env-conf-test] + Nothing -> do
  15134. 1057.27 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  15135. 1057.27 s [opt-env-conf-test] + Nothing -> pure Nothing
  15136. 1057.27 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  15137. 1057.27 s [opt-env-conf-test] + Just neRest -> do
  15138. 1057.27 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  15139. 1057.27 s [opt-env-conf-test] + case mO' of
  15140. 1057.27 s [opt-env-conf-test] + Nothing -> pure Nothing
  15141. 1057.27 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  15142. 1057.27 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  15143. 1057.27 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15144. 1057.27 s [opt-env-conf-test] + Right mV -> case mV of
  15145. 1057.27 s [opt-env-conf-test] + Nothing -> do
  15146. 1057.27 s [opt-env-conf-test] + debug
  15147. 1057.27 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  15148. 1057.27 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15149. 1057.27 s [opt-env-conf-test] + ]
  15150. 1057.27 s [opt-env-conf-test] + pure Nothing
  15151. 1057.27 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15152. 1057.27 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15153. 1057.27 s [opt-env-conf-test] + Right mA -> case mA of
  15154. 1057.27 s [opt-env-conf-test] + Nothing -> do
  15155. 1057.27 s [opt-env-conf-test] + debug
  15156. 1057.27 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  15157. 1057.27 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15158. 1057.27 s [opt-env-conf-test] + ]
  15159. 1057.27 s [opt-env-conf-test] + pure Nothing
  15160. 1057.27 s [opt-env-conf-test] + Just a -> do
  15161. 1057.27 s [opt-env-conf-test] + debug
  15162. 1057.27 s [opt-env-conf-test] + [ "set based on config value: ",
  15163. 1057.27 s [opt-env-conf-test] + chunk $ T.pack $ show v
  15164. 1057.27 s [opt-env-conf-test] + ]
  15165. 1057.27 s [opt-env-conf-test] + pure $ Just a
  15166. 1057.27 s [opt-env-conf-test] + let toRes = \case
  15167. 1057.27 s [opt-env-conf-test] + Nothing -> NotFound
  15168. 1057.27 s [opt-env-conf-test] + Just a -> Found a
  15169. 1057.27 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15170. 1057.27 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  15171. 1057.27 s [opt-env-conf-test] + Just ne -> do
  15172. 1057.27 s [opt-env-conf-test] + res <- goConfSet confSet
  15173. 1057.27 s [opt-env-conf-test] + case res of
  15174. 1057.27 s [opt-env-conf-test] + Just a -> pure $ Found a
  15175. 1057.27 s [opt-env-conf-test] + Nothing -> goConfSets ne
  15176. 1057.27 s [opt-env-conf-test] + goConfSets confSets
  15177. 1057.28 s [opt-env-conf-test] + case mConf of
  15178. 1057.28 s [opt-env-conf-test] + Found a -> do
  15179. 1057.28 s [opt-env-conf-test] + markParsed
  15180. 1057.28 s [opt-env-conf-test] + pure a
  15181. 1057.28 s [opt-env-conf-test] + _ ->
  15182. 1057.28 s [opt-env-conf-test] + case settingDefaultValue of
  15183. 1057.28 s [opt-env-conf-test] + Just (a, _) -> do
  15184. 1057.28 s [opt-env-conf-test] + debug ["set to default value"]
  15185. 1057.28 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  15186. 1057.28 s [opt-env-conf-test] + Nothing -> do
  15187. 1057.28 s [opt-env-conf-test] + let parseResultError e res = case res of
  15188. 1057.28 s [opt-env-conf-test] + NotRun -> Nothing
  15189. 1057.28 s [opt-env-conf-test] + NotFound -> Just e
  15190. 1057.28 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  15191. 1057.28 s [opt-env-conf-test] + debug ["not found"]
  15192. 1057.28 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15193. 1057.28 s [opt-env-conf-test] + NE.nonEmpty $
  15194. 1057.28 s [opt-env-conf-test] + catMaybes
  15195. 1057.28 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  15196. 1057.28 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  15197. 1057.28 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  15198. 1057.28 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  15199. 1057.28 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  15200. 1057.28 s [opt-env-conf-test] + ]
  15201. 1057.28 s [opt-env-conf-test]
  15202. 1057.28 s [opt-env-conf-test] withCapabilities ::
  15203. 1057.28 s [opt-env-conf-test] Maybe SrcLoc ->
  15204. 1057.28 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
  15205. 1057.28 s [opt-env-conf-test] @@ -366,92 +366,92 @@
  15206. 1057.28 s [opt-env-conf-test] pure NotFound
  15207. 1057.28 s [opt-env-conf-test] Just a -> pure $ Found a
  15208. 1057.28 s [opt-env-conf-test]
  15209. 1057.28 s [opt-env-conf-test] - case mEnv of
  15210. 1057.28 s [opt-env-conf-test] - Found a -> do
  15211. 1057.28 s [opt-env-conf-test] - markParsed
  15212. 1057.28 s [opt-env-conf-test] - pure a
  15213. 1057.28 s [opt-env-conf-test] - _ -> do
  15214. 1057.28 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  15215. 1057.28 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  15216. 1057.28 s [opt-env-conf-test] - Nothing -> pure NotRun
  15217. 1057.28 s [opt-env-conf-test] - Just confSets -> do
  15218. 1057.28 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  15219. 1057.28 s [opt-env-conf-test] - case mObj of
  15220. 1057.28 s [opt-env-conf-test] - Nothing -> do
  15221. 1057.28 s [opt-env-conf-test] - debug ["no config object to set from"]
  15222. 1057.28 s [opt-env-conf-test] - pure NotFound
  15223. 1057.28 s [opt-env-conf-test] - Just obj -> do
  15224. 1057.28 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  15225. 1057.28 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  15226. 1057.28 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  15227. 1057.28 s [opt-env-conf-test] - Nothing -> do
  15228. 1057.28 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  15229. 1057.28 s [opt-env-conf-test] - Nothing -> pure Nothing
  15230. 1057.28 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  15231. 1057.28 s [opt-env-conf-test] - Just neRest -> do
  15232. 1057.28 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  15233. 1057.28 s [opt-env-conf-test] - case mO' of
  15234. 1057.28 s [opt-env-conf-test] - Nothing -> pure Nothing
  15235. 1057.28 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  15236. 1057.28 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  15237. 1057.28 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15238. 1057.28 s [opt-env-conf-test] - Right mV -> case mV of
  15239. 1057.28 s [opt-env-conf-test] - Nothing -> do
  15240. 1057.28 s [opt-env-conf-test] - debug
  15241. 1057.28 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  15242. 1057.28 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15243. 1057.28 s [opt-env-conf-test] - ]
  15244. 1057.28 s [opt-env-conf-test] - pure Nothing
  15245. 1057.28 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15246. 1057.28 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15247. 1057.28 s [opt-env-conf-test] - Right mA -> case mA of
  15248. 1057.28 s [opt-env-conf-test] - Nothing -> do
  15249. 1057.28 s [opt-env-conf-test] - debug
  15250. 1057.28 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  15251. 1057.28 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15252. 1057.28 s [opt-env-conf-test] - ]
  15253. 1057.28 s [opt-env-conf-test] - pure Nothing
  15254. 1057.28 s [opt-env-conf-test] - Just a -> do
  15255. 1057.28 s [opt-env-conf-test] - debug
  15256. 1057.28 s [opt-env-conf-test] - [ "set based on config value: ",
  15257. 1057.28 s [opt-env-conf-test] - chunk $ T.pack $ show v
  15258. 1057.28 s [opt-env-conf-test] - ]
  15259. 1057.28 s [opt-env-conf-test] - pure $ Just a
  15260. 1057.28 s [opt-env-conf-test] - let toRes = \case
  15261. 1057.28 s [opt-env-conf-test] - Nothing -> NotFound
  15262. 1057.28 s [opt-env-conf-test] - Just a -> Found a
  15263. 1057.28 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15264. 1057.28 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  15265. 1057.28 s [opt-env-conf-test] - Just ne -> do
  15266. 1057.28 s [opt-env-conf-test] - res <- goConfSet confSet
  15267. 1057.28 s [opt-env-conf-test] - case res of
  15268. 1057.28 s [opt-env-conf-test] - Just a -> pure $ Found a
  15269. 1057.28 s [opt-env-conf-test] - Nothing -> goConfSets ne
  15270. 1057.28 s [opt-env-conf-test] - goConfSets confSets
  15271. 1057.28 s [opt-env-conf-test] - case mConf of
  15272. 1057.28 s [opt-env-conf-test] - Found a -> do
  15273. 1057.28 s [opt-env-conf-test] - markParsed
  15274. 1057.28 s [opt-env-conf-test] - pure a
  15275. 1057.28 s [opt-env-conf-test] - _ ->
  15276. 1057.28 s [opt-env-conf-test] - case settingDefaultValue of
  15277. 1057.28 s [opt-env-conf-test] - Just (a, _) -> do
  15278. 1057.28 s [opt-env-conf-test] - debug ["set to default value"]
  15279. 1057.29 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  15280. 1057.29 s [opt-env-conf-test] - Nothing -> do
  15281. 1057.29 s [opt-env-conf-test] - let parseResultError e res = case res of
  15282. 1057.29 s [opt-env-conf-test] - NotRun -> Nothing
  15283. 1057.29 s [opt-env-conf-test] - NotFound -> Just e
  15284. 1057.29 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  15285. 1057.29 s [opt-env-conf-test] - debug ["not found"]
  15286. 1057.29 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15287. 1057.29 s [opt-env-conf-test] - NE.nonEmpty $
  15288. 1057.29 s [opt-env-conf-test] - catMaybes
  15289. 1057.29 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  15290. 1057.29 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  15291. 1057.29 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  15292. 1057.29 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  15293. 1057.29 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  15294. 1057.29 s [opt-env-conf-test] - ]
  15295. 1057.29 s [opt-env-conf-test] + case mEnv of
  15296. 1057.29 s [opt-env-conf-test] + Found a -> do
  15297. 1057.29 s [opt-env-conf-test] + markParsed
  15298. 1057.29 s [opt-env-conf-test] + pure a
  15299. 1057.29 s [opt-env-conf-test] + _ -> do
  15300. 1057.29 s [opt-env-conf-test] + let mConfDoc = settingConfDoc set
  15301. 1057.29 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  15302. 1057.29 s [opt-env-conf-test] + Nothing -> pure NotRun
  15303. 1057.29 s [opt-env-conf-test] + Just confSets -> do
  15304. 1057.29 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  15305. 1057.29 s [opt-env-conf-test] + case mObj of
  15306. 1057.29 s [opt-env-conf-test] + Nothing -> do
  15307. 1057.29 s [opt-env-conf-test] + debug ["no config object to set from"]
  15308. 1057.29 s [opt-env-conf-test] + pure NotFound
  15309. 1057.29 s [opt-env-conf-test] + Just obj -> do
  15310. 1057.29 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  15311. 1057.29 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  15312. 1057.29 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  15313. 1057.29 s [opt-env-conf-test] + Nothing -> do
  15314. 1057.29 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  15315. 1057.29 s [opt-env-conf-test] + Nothing -> pure Nothing
  15316. 1057.29 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  15317. 1057.29 s [opt-env-conf-test] + Just neRest -> do
  15318. 1057.29 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  15319. 1057.29 s [opt-env-conf-test] + case mO' of
  15320. 1057.29 s [opt-env-conf-test] + Nothing -> pure Nothing
  15321. 1057.29 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  15322. 1057.29 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  15323. 1057.29 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15324. 1057.29 s [opt-env-conf-test] + Right mV -> case mV of
  15325. 1057.29 s [opt-env-conf-test] + Nothing -> do
  15326. 1057.29 s [opt-env-conf-test] + debug
  15327. 1057.29 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  15328. 1057.29 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15329. 1057.29 s [opt-env-conf-test] + ]
  15330. 1057.29 s [opt-env-conf-test] + pure Nothing
  15331. 1057.29 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15332. 1057.29 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15333. 1057.29 s [opt-env-conf-test] + Right mA -> case mA of
  15334. 1057.29 s [opt-env-conf-test] + Nothing -> do
  15335. 1057.29 s [opt-env-conf-test] + debug
  15336. 1057.29 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  15337. 1057.29 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  15338. 1057.29 s [opt-env-conf-test] + ]
  15339. 1057.29 s [opt-env-conf-test] + pure Nothing
  15340. 1057.29 s [opt-env-conf-test] + Just a -> do
  15341. 1057.29 s [opt-env-conf-test] + debug
  15342. 1057.29 s [opt-env-conf-test] + [ "set based on config value: ",
  15343. 1057.29 s [opt-env-conf-test] + chunk $ T.pack $ show v
  15344. 1057.29 s [opt-env-conf-test] + ]
  15345. 1057.29 s [opt-env-conf-test] + pure $ Just a
  15346. 1057.29 s [opt-env-conf-test] + let toRes = \case
  15347. 1057.29 s [opt-env-conf-test] + Nothing -> NotFound
  15348. 1057.29 s [opt-env-conf-test] + Just a -> Found a
  15349. 1057.29 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15350. 1057.29 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  15351. 1057.29 s [opt-env-conf-test] + Just ne -> do
  15352. 1057.29 s [opt-env-conf-test] + res <- goConfSet confSet
  15353. 1057.29 s [opt-env-conf-test] + case res of
  15354. 1057.29 s [opt-env-conf-test] + Just a -> pure $ Found a
  15355. 1057.29 s [opt-env-conf-test] + Nothing -> goConfSets ne
  15356. 1057.29 s [opt-env-conf-test] + goConfSets confSets
  15357. 1057.29 s [opt-env-conf-test] + case mConf of
  15358. 1057.29 s [opt-env-conf-test] + Found a -> do
  15359. 1057.29 s [opt-env-conf-test] + markParsed
  15360. 1057.29 s [opt-env-conf-test] + pure a
  15361. 1057.29 s [opt-env-conf-test] + _ ->
  15362. 1057.29 s [opt-env-conf-test] + case settingDefaultValue of
  15363. 1057.29 s [opt-env-conf-test] + Just (a, _) -> do
  15364. 1057.29 s [opt-env-conf-test] + debug ["set to default value"]
  15365. 1057.29 s [opt-env-conf-test] + pure a -- Don't mark as parsed
  15366. 1057.29 s [opt-env-conf-test] + Nothing -> do
  15367. 1057.29 s [opt-env-conf-test] + let parseResultError e res = case res of
  15368. 1057.29 s [opt-env-conf-test] + NotRun -> Nothing
  15369. 1061.61 s [opt-env-conf-test] + NotFound -> Just e
  15370. 1061.61 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  15371. 1061.87 s [opt-env-conf-test] + debug ["not found"]
  15372. 1061.87 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15373. 1061.87 s [opt-env-conf-test] + NE.nonEmpty $
  15374. 1061.87 s [opt-env-conf-test] + catMaybes
  15375. 1061.87 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  15376. 1061.87 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  15377. 1061.87 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  15378. 1061.87 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  15379. 1061.87 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  15380. 1061.87 s [opt-env-conf-test] + ]
  15381. 1061.87 s [opt-env-conf-test]
  15382. 1061.87 s [opt-env-conf-test] withCapabilities ::
  15383. 1061.87 s [opt-env-conf-test] Maybe SrcLoc ->
  15384. 1061.87 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
  15385. 1061.87 s [opt-env-conf-test] @@ -403,7 +403,7 @@
  15386. 1061.87 s [opt-env-conf-test]
  15387. 1061.87 s [opt-env-conf-test] renderDashed :: Dashed -> String
  15388. 1061.87 s [opt-env-conf-test] renderDashed = \case
  15389. 1061.87 s [opt-env-conf-test] - DashedShort c -> ['-', c]
  15390. 1061.87 s [opt-env-conf-test] + DashedShort c -> ['-', c]
  15391. 1061.87 s [opt-env-conf-test] DashedLong cs -> '-' : '-' : NE.toList cs
  15392. 1061.87 s [opt-env-conf-test]
  15393. 1061.87 s [opt-env-conf-test] prefixDashed :: String -> Dashed -> Dashed
  15394. 1061.87 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
  15395. 1061.87 s [opt-env-conf-test] @@ -403,7 +403,7 @@
  15396. 1061.87 s [opt-env-conf-test]
  15397. 1061.87 s [opt-env-conf-test] renderDashed :: Dashed -> String
  15398. 1061.87 s [opt-env-conf-test] renderDashed = \case
  15399. 1061.87 s [opt-env-conf-test] - DashedShort c -> ['-', c]
  15400. 1061.87 s [opt-env-conf-test] + DashedShort c -> []
  15401. 1061.87 s [opt-env-conf-test] DashedLong cs -> '-' : '-' : NE.toList cs
  15402. 1061.87 s [opt-env-conf-test]
  15403. 1061.87 s [opt-env-conf-test] prefixDashed :: String -> Dashed -> Dashed
  15404. 1061.87 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
  15405. 1061.87 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  15406. 1061.87 s [opt-env-conf-test] where
  15407. 1061.87 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15408. 1061.87 s [opt-env-conf-test] go (c :| rest) =
  15409. 1061.87 s [opt-env-conf-test] - if c `elem` cs
  15410. 1061.87 s [opt-env-conf-test] + if False
  15411. 1061.87 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15412. 1061.87 s [opt-env-conf-test] else do
  15413. 1061.88 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  15414. 1061.88 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:364:10-21
  15415. 1061.88 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  15416. 1061.88 s [opt-env-conf-test] where
  15417. 1061.88 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15418. 1061.88 s [opt-env-conf-test] go (c :| rest) =
  15419. 1061.88 s [opt-env-conf-test] - if c `elem` cs
  15420. 1061.88 s [opt-env-conf-test] + if not (c `elem` cs)
  15421. 1061.88 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15422. 1061.88 s [opt-env-conf-test] else do
  15423. 1061.88 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  15424. 1061.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
  15425. 1061.88 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  15426. 1061.88 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15427. 1061.88 s [opt-env-conf-test] go (c :| rest) =
  15428. 1061.88 s [opt-env-conf-test] if c `elem` cs
  15429. 1061.88 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15430. 1061.88 s [opt-env-conf-test] + then Just $ (\ne -> (ne, True)) <$> NE.nonEmpty rest
  15431. 1061.88 s [opt-env-conf-test] else do
  15432. 1061.88 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  15433. 1061.88 s [opt-env-conf-test] new <- go rest'
  15434. 1061.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
  15435. 1061.88 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  15436. 1061.88 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15437. 1061.88 s [opt-env-conf-test] go (c :| rest) =
  15438. 1061.88 s [opt-env-conf-test] if c `elem` cs
  15439. 1061.88 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15440. 1061.88 s [opt-env-conf-test] + then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
  15441. 1061.88 s [opt-env-conf-test] else do
  15442. 1061.88 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  15443. 1061.88 s [opt-env-conf-test] new <- go rest'
  15444. 1061.88 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:365:34-43
  15445. 1061.88 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  15446. 1061.88 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15447. 1061.88 s [opt-env-conf-test] go (c :| rest) =
  15448. 1061.88 s [opt-env-conf-test] if c `elem` cs
  15449. 1061.88 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15450. 1061.88 s [opt-env-conf-test] + then Just $ (\ne -> (ne, not (null rest))) <$> NE.nonEmpty rest
  15451. 1061.88 s [opt-env-conf-test] else do
  15452. 1061.88 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  15453. 1061.88 s [opt-env-conf-test] new <- go rest'
  15454. 1061.88 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:372:27-31
  15455. 1061.88 s [opt-env-conf-test] @@ -369,7 +369,7 @@
  15456. 1061.88 s [opt-env-conf-test] pure $
  15457. 1061.88 s [opt-env-conf-test] Just $
  15458. 1061.88 s [opt-env-conf-test] maybe
  15459. 1061.88 s [opt-env-conf-test] - (c :| [], True)
  15460. 1061.88 s [opt-env-conf-test] + (c :| [], False)
  15461. 1061.88 s [opt-env-conf-test] (first (c NE.<|))
  15462. 1061.88 s [opt-env-conf-test] new
  15463. 1061.88 s [opt-env-conf-test]
  15464. 1061.88 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:364:7-20
  15465. 1061.88 s [opt-env-conf-test] @@ -361,17 +361,17 @@
  15466. 1061.88 s [opt-env-conf-test] where
  15467. 1061.88 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15468. 1061.88 s [opt-env-conf-test] go (c :| rest) =
  15469. 1061.88 s [opt-env-conf-test] - if c `elem` cs
  15470. 1061.88 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15471. 1061.88 s [opt-env-conf-test] - else do
  15472. 1061.88 s [opt-env-conf-test] - rest' <- NE.nonEmpty rest
  15473. 1061.88 s [opt-env-conf-test] - new <- go rest'
  15474. 1061.88 s [opt-env-conf-test] - pure $
  15475. 1061.88 s [opt-env-conf-test] - Just $
  15476. 1061.88 s [opt-env-conf-test] - maybe
  15477. 1061.88 s [opt-env-conf-test] - (c :| [], True)
  15478. 1061.88 s [opt-env-conf-test] - (first (c NE.<|))
  15479. 1061.88 s [opt-env-conf-test] - new
  15480. 1061.88 s [opt-env-conf-test] + if c `elem` cs
  15481. 1061.88 s [opt-env-conf-test] + then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15482. 1061.88 s [opt-env-conf-test] + else do
  15483. 1061.88 s [opt-env-conf-test] + rest' <- NE.nonEmpty rest
  15484. 1061.88 s [opt-env-conf-test] + new <- go rest'
  15485. 1061.88 s [opt-env-conf-test] + pure $
  15486. 1061.88 s [opt-env-conf-test] + Just $
  15487. 1061.88 s [opt-env-conf-test] + maybe
  15488. 1061.88 s [opt-env-conf-test] + (c :| [], True)
  15489. 1061.88 s [opt-env-conf-test] + (first (c NE.<|))
  15490. 1061.88 s [opt-env-conf-test] + new
  15491. 1061.88 s [opt-env-conf-test]
  15492. 1061.88 s [opt-env-conf-test] recogniseLeftovers :: Args -> Maybe (NonEmpty String)
  15493. 1061.88 s [opt-env-conf-test] recogniseLeftovers Args {..} = NE.nonEmpty $ live argsBefore ++ live (modDoubleDash argsAfter)
  15494. 1061.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
  15495. 1061.88 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  15496. 1061.88 s [opt-env-conf-test] NonEmpty Char ->
  15497. 1061.88 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  15498. 1061.88 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15499. 1061.88 s [opt-env-conf-test] - if isLong
  15500. 1061.88 s [opt-env-conf-test] + if True
  15501. 1061.88 s [opt-env-conf-test] then
  15502. 1061.88 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  15503. 1061.88 s [opt-env-conf-test] then Just Nothing
  15504. 1061.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
  15505. 1061.88 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  15506. 1061.88 s [opt-env-conf-test] where
  15507. 1061.88 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15508. 1061.88 s [opt-env-conf-test] go (c :| rest) =
  15509. 1061.88 s [opt-env-conf-test] - if c `elem` cs
  15510. 1061.88 s [opt-env-conf-test] + if True
  15511. 1061.88 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  15512. 1061.88 s [opt-env-conf-test] else do
  15513. 1061.88 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  15514. 1061.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
  15515. 1061.88 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  15516. 1061.88 s [opt-env-conf-test] NonEmpty Char ->
  15517. 1061.88 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  15518. 1061.88 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15519. 1061.88 s [opt-env-conf-test] - if isLong
  15520. 1061.88 s [opt-env-conf-test] + if False
  15521. 1061.88 s [opt-env-conf-test] then
  15522. 1061.88 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  15523. 1061.88 s [opt-env-conf-test] then Just Nothing
  15524. 1061.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
  15525. 1061.88 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  15526. 1061.88 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15527. 1061.88 s [opt-env-conf-test] if isLong
  15528. 1061.88 s [opt-env-conf-test] then
  15529. 1061.88 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  15530. 1061.88 s [opt-env-conf-test] + if True
  15531. 1061.88 s [opt-env-conf-test] then Just Nothing
  15532. 1061.88 s [opt-env-conf-test] else Nothing
  15533. 1061.88 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  15534. 1061.88 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:352:6-12
  15535. 1061.88 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  15536. 1061.88 s [opt-env-conf-test] NonEmpty Char ->
  15537. 1061.88 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  15538. 1061.88 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15539. 1061.88 s [opt-env-conf-test] - if isLong
  15540. 1061.88 s [opt-env-conf-test] + if not (isLong)
  15541. 1061.88 s [opt-env-conf-test] then
  15542. 1061.88 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  15543. 1061.88 s [opt-env-conf-test] then Just Nothing
  15544. 1061.88 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:354:10-38
  15545. 1061.88 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  15546. 1061.88 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15547. 1061.88 s [opt-env-conf-test] if isLong
  15548. 1061.88 s [opt-env-conf-test] then
  15549. 1061.88 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  15550. 1061.88 s [opt-env-conf-test] + if not (DashedLong cs `elem` dasheds)
  15551. 1061.88 s [opt-env-conf-test] then Just Nothing
  15552. 1061.88 s [opt-env-conf-test] else Nothing
  15553. 1061.88 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  15554. 1061.88 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:354:7-21
  15555. 1061.88 s [opt-env-conf-test] @@ -351,9 +351,9 @@
  15556. 1061.88 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15557. 1061.88 s [opt-env-conf-test] if isLong
  15558. 1061.88 s [opt-env-conf-test] then
  15559. 1061.88 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  15560. 1061.88 s [opt-env-conf-test] - then Just Nothing
  15561. 1061.88 s [opt-env-conf-test] - else Nothing
  15562. 1061.88 s [opt-env-conf-test] + if DashedLong cs `elem` dasheds
  15563. 1061.88 s [opt-env-conf-test] + then Just Nothing
  15564. 1061.88 s [opt-env-conf-test] + else Nothing
  15565. 1061.88 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  15566. 1061.88 s [opt-env-conf-test]
  15567. 1061.88 s [opt-env-conf-test] consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15568. 1061.88 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:352:3-47
  15569. 1061.88 s [opt-env-conf-test] @@ -349,12 +349,12 @@
  15570. 1061.88 s [opt-env-conf-test] NonEmpty Char ->
  15571. 1061.88 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  15572. 1061.88 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15573. 1061.88 s [opt-env-conf-test] - if isLong
  15574. 1061.88 s [opt-env-conf-test] - then
  15575. 1061.88 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  15576. 1061.88 s [opt-env-conf-test] - then Just Nothing
  15577. 1061.88 s [opt-env-conf-test] - else Nothing
  15578. 1061.88 s [opt-env-conf-test] - else consumeChar (shortDasheds dasheds) cs
  15579. 1061.88 s [opt-env-conf-test] + if isLong
  15580. 1061.88 s [opt-env-conf-test] + then
  15581. 1061.88 s [opt-env-conf-test] + if DashedLong cs `elem` dasheds
  15582. 1061.88 s [opt-env-conf-test] + then Just Nothing
  15583. 1061.88 s [opt-env-conf-test] + else Nothing
  15584. 1061.88 s [opt-env-conf-test] + else consumeChar (shortDasheds dasheds) cs
  15585. 1061.88 s [opt-env-conf-test]
  15586. 1061.88 s [opt-env-conf-test] consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  15587. 1061.88 s [opt-env-conf-test] consumeChar cs = go
  15588. 1061.88 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
  15589. 1061.88 s [opt-env-conf-test] @@ -321,9 +321,9 @@
  15590. 1061.88 s [opt-env-conf-test] consumeSwitch dasheds as = do
  15591. 1061.88 s [opt-env-conf-test] case go (argsBefore as) of
  15592. 1061.88 s [opt-env-conf-test] Just newBefores -> Just $ as {argsBefore = newBefores}
  15593. 1061.88 s [opt-env-conf-test] - Nothing -> case go (argsAfter as) of
  15594. 1061.88 s [opt-env-conf-test] - Just newAfters -> Just $ as {argsAfter = newAfters}
  15595. 1061.88 s [opt-env-conf-test] - Nothing -> Nothing
  15596. 1061.88 s [opt-env-conf-test] + Nothing -> case go (argsAfter as) of
  15597. 1061.88 s [opt-env-conf-test] + Just newAfters -> Just $ as {argsAfter = newAfters}
  15598. 1061.88 s [opt-env-conf-test] + Nothing -> Nothing
  15599. 1061.88 s [opt-env-conf-test] where
  15600. 1061.88 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe [Tomb Arg]
  15601. 1061.88 s [opt-env-conf-test] go = \case
  15602. 1061.88 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
  15603. 1061.88 s [opt-env-conf-test] @@ -321,9 +321,9 @@
  15604. 1061.88 s [opt-env-conf-test] consumeSwitch dasheds as = do
  15605. 1061.88 s [opt-env-conf-test] case go (argsBefore as) of
  15606. 1063.93 s [opt-env-conf-test] Just newBefores -> Just $ as {argsBefore = newBefores}
  15607. 1063.93 s [opt-env-conf-test] - Nothing -> case go (argsAfter as) of
  15608. 1063.93 s [opt-env-conf-test] - Just newAfters -> Just $ as {argsAfter = newAfters}
  15609. 1063.93 s [opt-env-conf-test] - Nothing -> Nothing
  15610. 1063.93 s [opt-env-conf-test] + Nothing -> case go (argsAfter as) of
  15611. 1063.93 s [opt-env-conf-test] + Just newAfters -> Just $ as {argsAfter = newAfters}
  15612. 1063.93 s [opt-env-conf-test] + Nothing -> Nothing
  15613. 1063.93 s [opt-env-conf-test] where
  15614. 1063.93 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe [Tomb Arg]
  15615. 1063.93 s [opt-env-conf-test] go = \case
  15616. 1063.93 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
  15617. 1063.93 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  15618. 1063.93 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  15619. 1063.93 s [opt-env-conf-test] if isLong
  15620. 1063.93 s [opt-env-conf-test] then
  15621. 1063.93 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  15622. 1063.93 s [opt-env-conf-test] + if False
  15623. 1063.93 s [opt-env-conf-test] then Just Nothing
  15624. 1063.93 s [opt-env-conf-test] else Nothing
  15625. 1063.93 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  15626. 1063.93 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
  15627. 1063.93 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  15628. 1063.93 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  15629. 1063.93 s [opt-env-conf-test] (Live o : rest) -> case o of
  15630. 1063.93 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  15631. 1063.93 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15632. 1063.93 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds True cs of
  15633. 1063.93 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  15634. 1063.93 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15635. 1063.93 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15636. 1063.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
  15637. 1063.94 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  15638. 1063.94 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  15639. 1063.94 s [opt-env-conf-test] (Live o : rest) -> case o of
  15640. 1063.94 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  15641. 1063.94 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15642. 1063.94 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds False cs of
  15643. 1063.94 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  15644. 1063.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15645. 1063.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15646. 1063.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
  15647. 1063.94 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  15648. 1063.94 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  15649. 1063.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15650. 1063.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15651. 1063.94 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15652. 1063.94 s [opt-env-conf-test] + let rest' = if True then Dead : rest else rest
  15653. 1063.94 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  15654. 1063.94 s [opt-env-conf-test] _ -> do
  15655. 1063.94 s [opt-env-conf-test] os <- go rest
  15656. 1063.94 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:334:65-71
  15657. 1063.94 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  15658. 1063.94 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  15659. 1063.94 s [opt-env-conf-test] (Live o : rest) -> case o of
  15660. 1063.94 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  15661. 1063.94 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15662. 1063.94 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds not (isLong) cs of
  15663. 1063.94 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  15664. 1063.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15665. 1063.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15666. 1063.94 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:338:28-41
  15667. 1063.94 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  15668. 1063.94 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  15669. 1063.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15670. 1063.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15671. 1063.94 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15672. 1063.94 s [opt-env-conf-test] + let rest' = if not (needTombstone) then Dead : rest else rest
  15673. 1063.94 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  15674. 1063.94 s [opt-env-conf-test] _ -> do
  15675. 1063.94 s [opt-env-conf-test] os <- go rest
  15676. 1063.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
  15677. 1063.94 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  15678. 1063.94 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  15679. 1063.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15680. 1063.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15681. 1063.94 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15682. 1063.94 s [opt-env-conf-test] + let rest' = if False then Dead : rest else rest
  15683. 1063.94 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  15684. 1063.94 s [opt-env-conf-test] _ -> do
  15685. 1063.94 s [opt-env-conf-test] os <- go rest
  15686. 1063.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
  15687. 1063.94 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  15688. 1063.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15689. 1063.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15690. 1063.94 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  15691. 1063.94 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  15692. 1063.94 s [opt-env-conf-test] + in Just $ Live (ArgDashed True cs') : rest'
  15693. 1063.94 s [opt-env-conf-test] _ -> do
  15694. 1063.94 s [opt-env-conf-test] os <- go rest
  15695. 1063.94 s [opt-env-conf-test] pure $ Live o : os
  15696. 1063.94 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:338:25-68
  15697. 1063.94 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  15698. 1063.94 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  15699. 1063.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15700. 1063.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15701. 1063.94 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15702. 1063.94 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  15703. 1063.94 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  15704. 1063.94 s [opt-env-conf-test] _ -> do
  15705. 1063.94 s [opt-env-conf-test] os <- go rest
  15706. 1063.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
  15707. 1063.94 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  15708. 1063.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15709. 1063.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15710. 1063.94 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  15711. 1063.94 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  15712. 1063.94 s [opt-env-conf-test] + in Just $ Live (ArgDashed False cs') : rest'
  15713. 1063.94 s [opt-env-conf-test] _ -> do
  15714. 1063.94 s [opt-env-conf-test] os <- go rest
  15715. 1063.94 s [opt-env-conf-test] pure $ Live o : os
  15716. 1063.94 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:339:40-46
  15717. 1063.94 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  15718. 1063.94 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  15719. 1063.94 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  15720. 1063.94 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  15721. 1063.94 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  15722. 1063.94 s [opt-env-conf-test] + in Just $ Live (ArgDashed not (isLong) cs') : rest'
  15723. 1063.94 s [opt-env-conf-test] _ -> do
  15724. 1063.94 s [opt-env-conf-test] os <- go rest
  15725. 1063.94 s [opt-env-conf-test] pure $ Live o : os
  15726. 1063.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  15727. 1063.94 s [opt-env-conf-test] @@ -331,12 +331,12 @@
  15728. 1063.94 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  15729. 1063.94 s [opt-env-conf-test] (Live o : rest) -> case o of
  15730. 1063.94 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  15731. 1063.94 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15732. 1063.94 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  15733. 1063.94 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  15734. 1063.94 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  15735. 1063.94 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15736. 1063.94 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  15737. 1063.94 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15738. 1063.95 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  15739. 1063.95 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  15740. 1063.95 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  15741. 1063.95 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  15742. 1063.95 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  15743. 1063.95 s [opt-env-conf-test] _ -> do
  15744. 1063.95 s [opt-env-conf-test] os <- go rest
  15745. 1063.95 s [opt-env-conf-test] pure $ Live o : os
  15746. 1063.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  15747. 1063.95 s [opt-env-conf-test] @@ -331,12 +331,12 @@
  15748. 1063.95 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  15749. 1063.95 s [opt-env-conf-test] (Live o : rest) -> case o of
  15750. 1063.95 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  15751. 1063.95 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15752. 1063.95 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  15753. 1063.95 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  15754. 1063.95 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  15755. 1063.95 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15756. 1063.95 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  15757. 1063.95 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15758. 1063.95 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  15759. 1063.95 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  15760. 1063.95 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  15761. 1063.95 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  15762. 1063.95 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  15763. 1063.95 s [opt-env-conf-test] _ -> do
  15764. 1063.95 s [opt-env-conf-test] os <- go rest
  15765. 1063.95 s [opt-env-conf-test] pure $ Live o : os
  15766. 1063.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  15767. 1063.95 s [opt-env-conf-test] @@ -331,12 +331,12 @@
  15768. 1063.95 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  15769. 1063.95 s [opt-env-conf-test] (Live o : rest) -> case o of
  15770. 1063.95 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  15771. 1063.95 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15772. 1063.95 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  15773. 1063.95 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  15774. 1063.95 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  15775. 1063.95 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15776. 1063.95 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  15777. 1063.95 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15778. 1063.95 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  15779. 1063.95 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  15780. 1063.95 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  15781. 1063.95 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  15782. 1063.95 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  15783. 1063.95 s [opt-env-conf-test] _ -> do
  15784. 1063.95 s [opt-env-conf-test] os <- go rest
  15785. 1065.15 s [opt-env-conf-test] pure $ Live o : os
  15786. 1065.15 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  15787. 1065.15 s [opt-env-conf-test] @@ -329,17 +329,17 @@
  15788. 1065.15 s [opt-env-conf-test] go = \case
  15789. 1065.15 s [opt-env-conf-test] [] -> Nothing
  15790. 1065.15 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  15791. 1065.15 s [opt-env-conf-test] - (Live o : rest) -> case o of
  15792. 1065.15 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  15793. 1065.15 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15794. 1065.15 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  15795. 1065.15 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  15796. 1065.15 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  15797. 1065.15 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15798. 1065.15 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  15799. 1065.15 s [opt-env-conf-test] - _ -> do
  15800. 1065.15 s [opt-env-conf-test] - os <- go rest
  15801. 1065.15 s [opt-env-conf-test] - pure $ Live o : os
  15802. 1065.15 s [opt-env-conf-test] + (Live o : rest) -> case o of
  15803. 1065.15 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  15804. 1065.15 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15805. 1065.15 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  15806. 1065.15 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  15807. 1065.15 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  15808. 1065.15 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  15809. 1065.15 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  15810. 1065.15 s [opt-env-conf-test] + _ -> do
  15811. 1065.16 s [opt-env-conf-test] + os <- go rest
  15812. 1065.16 s [opt-env-conf-test] + pure $ Live o : os
  15813. 1065.16 s [opt-env-conf-test]
  15814. 1065.16 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  15815. 1065.16 s [opt-env-conf-test] -- character because then we need a tombstone.
  15816. 1065.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  15817. 1065.16 s [opt-env-conf-test] @@ -329,17 +329,17 @@
  15818. 1065.16 s [opt-env-conf-test] go = \case
  15819. 1065.16 s [opt-env-conf-test] [] -> Nothing
  15820. 1065.16 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  15821. 1065.16 s [opt-env-conf-test] - (Live o : rest) -> case o of
  15822. 1065.16 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  15823. 1065.16 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15824. 1065.16 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  15825. 1065.16 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  15826. 1065.16 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  15827. 1065.16 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15828. 1065.16 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  15829. 1065.16 s [opt-env-conf-test] - _ -> do
  15830. 1065.16 s [opt-env-conf-test] - os <- go rest
  15831. 1065.16 s [opt-env-conf-test] - pure $ Live o : os
  15832. 1065.16 s [opt-env-conf-test] + (Live o : rest) -> case o of
  15833. 1065.16 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  15834. 1065.16 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15835. 1065.16 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  15836. 1065.16 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  15837. 1065.16 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  15838. 1065.16 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  15839. 1065.16 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  15840. 1065.16 s [opt-env-conf-test] + _ -> do
  15841. 1065.16 s [opt-env-conf-test] + os <- go rest
  15842. 1065.16 s [opt-env-conf-test] + pure $ Live o : os
  15843. 1065.16 s [opt-env-conf-test]
  15844. 1065.16 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  15845. 1065.16 s [opt-env-conf-test] -- character because then we need a tombstone.
  15846. 1065.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  15847. 1065.16 s [opt-env-conf-test] @@ -329,17 +329,17 @@
  15848. 1065.16 s [opt-env-conf-test] go = \case
  15849. 1065.16 s [opt-env-conf-test] [] -> Nothing
  15850. 1065.16 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  15851. 1065.16 s [opt-env-conf-test] - (Live o : rest) -> case o of
  15852. 1065.16 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  15853. 1065.16 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15854. 1065.16 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  15855. 1065.16 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  15856. 1065.16 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  15857. 1065.16 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  15858. 1065.16 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  15859. 1065.16 s [opt-env-conf-test] - _ -> do
  15860. 1065.16 s [opt-env-conf-test] - os <- go rest
  15861. 1065.16 s [opt-env-conf-test] - pure $ Live o : os
  15862. 1065.16 s [opt-env-conf-test] + (Live o : rest) -> case o of
  15863. 1065.16 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  15864. 1065.16 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  15865. 1065.16 s [opt-env-conf-test] + Nothing -> (Live o :) <$> go rest
  15866. 1065.16 s [opt-env-conf-test] + Just Nothing -> Just $ Dead : rest
  15867. 1065.16 s [opt-env-conf-test] + Just (Just (cs', needTombstone)) ->
  15868. 1065.16 s [opt-env-conf-test] + let rest' = if needTombstone then Dead : rest else rest
  15869. 1065.16 s [opt-env-conf-test] + in Just $ Live (ArgDashed isLong cs') : rest'
  15870. 1065.17 s [opt-env-conf-test] + _ -> do
  15871. 1065.17 s [opt-env-conf-test] + os <- go rest
  15872. 1065.17 s [opt-env-conf-test] + pure $ Live o : os
  15873. 1065.17 s [opt-env-conf-test]
  15874. 1065.17 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  15875. 1065.17 s [opt-env-conf-test] -- character because then we need a tombstone.
  15876. 1065.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
  15877. 1065.17 s [opt-env-conf-test] @@ -306,9 +306,9 @@
  15878. 1065.17 s [opt-env-conf-test] where
  15879. 1065.17 s [opt-env-conf-test] go acc ne =
  15880. 1065.17 s [opt-env-conf-test] let (a, mRest) = NE.uncons ne
  15881. 1065.17 s [opt-env-conf-test] - in case mRest of
  15882. 1065.17 s [opt-env-conf-test] - Nothing -> (NE.nonEmpty $ reverse acc, a)
  15883. 1065.17 s [opt-env-conf-test] - Just rest -> go (a : acc) rest
  15884. 1065.17 s [opt-env-conf-test] + in case mRest of
  15885. 1065.17 s [opt-env-conf-test] + Nothing -> (NE.nonEmpty $ reverse acc, a)
  15886. 1065.17 s [opt-env-conf-test] + Just rest -> go (a : acc) rest
  15887. 1065.17 s [opt-env-conf-test]
  15888. 1065.17 s [opt-env-conf-test] -- | Consume a switch.
  15889. 1065.17 s [opt-env-conf-test] --
  15890. 1065.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
  15891. 1065.17 s [opt-env-conf-test] @@ -306,9 +306,9 @@
  15892. 1065.17 s [opt-env-conf-test] where
  15893. 1065.17 s [opt-env-conf-test] go acc ne =
  15894. 1065.17 s [opt-env-conf-test] let (a, mRest) = NE.uncons ne
  15895. 1065.17 s [opt-env-conf-test] - in case mRest of
  15896. 1065.17 s [opt-env-conf-test] - Nothing -> (NE.nonEmpty $ reverse acc, a)
  15897. 1065.17 s [opt-env-conf-test] - Just rest -> go (a : acc) rest
  15898. 1065.17 s [opt-env-conf-test] + in case mRest of
  15899. 1065.17 s [opt-env-conf-test] + Nothing -> (NE.nonEmpty $ reverse acc, a)
  15900. 1065.17 s [opt-env-conf-test] + Just rest -> go (a : acc) rest
  15901. 1065.17 s [opt-env-conf-test]
  15902. 1065.17 s [opt-env-conf-test] -- | Consume a switch.
  15903. 1065.17 s [opt-env-conf-test] --
  15904. 1065.17 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
  15905. 1065.17 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  15906. 1065.17 s [opt-env-conf-test] NonEmpty Char ->
  15907. 1065.17 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  15908. 1065.17 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  15909. 1065.17 s [opt-env-conf-test] - if isLong
  15910. 1065.17 s [opt-env-conf-test] + if False
  15911. 1065.17 s [opt-env-conf-test] then
  15912. 1065.17 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  15913. 1065.17 s [opt-env-conf-test] then Just Nothing
  15914. 1065.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  15915. 1065.17 s [opt-env-conf-test] @@ -438,10 +438,10 @@
  15916. 1065.17 s [opt-env-conf-test] debug ["set to default value"]
  15917. 1065.17 s [opt-env-conf-test] pure a -- Don't mark as parsed
  15918. 1065.17 s [opt-env-conf-test] Nothing -> do
  15919. 1065.17 s [opt-env-conf-test] - let parseResultError e res = case res of
  15920. 1065.17 s [opt-env-conf-test] - NotRun -> Nothing
  15921. 1065.17 s [opt-env-conf-test] - NotFound -> Just e
  15922. 1065.17 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  15923. 1065.17 s [opt-env-conf-test] + let parseResultError e res = case res of
  15924. 1065.17 s [opt-env-conf-test] + NotRun -> Nothing
  15925. 1065.17 s [opt-env-conf-test] + NotFound -> Just e
  15926. 1065.17 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  15927. 1065.17 s [opt-env-conf-test] debug ["not found"]
  15928. 1065.17 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  15929. 1065.17 s [opt-env-conf-test] NE.nonEmpty $
  15930. 1065.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
  15931. 1065.17 s [opt-env-conf-test] @@ -372,62 +372,62 @@
  15932. 1065.17 s [opt-env-conf-test] pure a
  15933. 1065.17 s [opt-env-conf-test] _ -> do
  15934. 1065.17 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  15935. 1065.17 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  15936. 1065.17 s [opt-env-conf-test] - Nothing -> pure NotRun
  15937. 1065.17 s [opt-env-conf-test] - Just confSets -> do
  15938. 1065.17 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  15939. 1065.17 s [opt-env-conf-test] - case mObj of
  15940. 1065.17 s [opt-env-conf-test] - Nothing -> do
  15941. 1065.17 s [opt-env-conf-test] - debug ["no config object to set from"]
  15942. 1065.17 s [opt-env-conf-test] - pure NotFound
  15943. 1065.17 s [opt-env-conf-test] - Just obj -> do
  15944. 1065.17 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  15945. 1065.17 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  15946. 1065.17 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  15947. 1065.17 s [opt-env-conf-test] - Nothing -> do
  15948. 1065.17 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  15949. 1065.17 s [opt-env-conf-test] - Nothing -> pure Nothing
  15950. 1065.17 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  15951. 1065.17 s [opt-env-conf-test] - Just neRest -> do
  15952. 1065.17 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  15953. 1065.17 s [opt-env-conf-test] - case mO' of
  15954. 1065.17 s [opt-env-conf-test] - Nothing -> pure Nothing
  15955. 1065.17 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  15956. 1065.17 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  15957. 1065.17 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15958. 1065.17 s [opt-env-conf-test] - Right mV -> case mV of
  15959. 1065.17 s [opt-env-conf-test] - Nothing -> do
  15960. 1065.17 s [opt-env-conf-test] - debug
  15961. 1065.17 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  15962. 1065.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15963. 1065.17 s [opt-env-conf-test] - ]
  15964. 1065.17 s [opt-env-conf-test] - pure Nothing
  15965. 1065.17 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  15966. 1065.17 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  15967. 1065.17 s [opt-env-conf-test] - Right mA -> case mA of
  15968. 1065.17 s [opt-env-conf-test] - Nothing -> do
  15969. 1065.17 s [opt-env-conf-test] - debug
  15970. 1065.17 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  15971. 1065.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  15972. 1065.17 s [opt-env-conf-test] - ]
  15973. 1065.17 s [opt-env-conf-test] - pure Nothing
  15974. 1065.17 s [opt-env-conf-test] - Just a -> do
  15975. 1065.18 s [opt-env-conf-test] - debug
  15976. 1065.18 s [opt-env-conf-test] - [ "set based on config value: ",
  15977. 1065.18 s [opt-env-conf-test] - chunk $ T.pack $ show v
  15978. 1065.18 s [opt-env-conf-test] - ]
  15979. 1065.18 s [opt-env-conf-test] - pure $ Just a
  15980. 1065.18 s [opt-env-conf-test] - let toRes = \case
  15981. 1065.18 s [opt-env-conf-test] - Nothing -> NotFound
  15982. 1065.18 s [opt-env-conf-test] - Just a -> Found a
  15983. 1065.18 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  15984. 1065.18 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  15985. 1065.18 s [opt-env-conf-test] - Just ne -> do
  15986. 1065.18 s [opt-env-conf-test] - res <- goConfSet confSet
  15987. 1065.18 s [opt-env-conf-test] - case res of
  15988. 1065.18 s [opt-env-conf-test] - Just a -> pure $ Found a
  15989. 1065.18 s [opt-env-conf-test] - Nothing -> goConfSets ne
  15990. 1065.18 s [opt-env-conf-test] - goConfSets confSets
  15991. 1065.18 s [opt-env-conf-test] + mConf <- case settingConfigVals of
  15992. 1065.18 s [opt-env-conf-test] + Nothing -> pure NotRun
  15993. 1065.18 s [opt-env-conf-test] + Just confSets -> do
  15994. 1065.18 s [opt-env-conf-test] + mObj <- asks ppEnvConf
  15995. 1065.18 s [opt-env-conf-test] + case mObj of
  15996. 1065.18 s [opt-env-conf-test] + Nothing -> do
  15997. 1065.18 s [opt-env-conf-test] + debug ["no config object to set from"]
  15998. 1065.18 s [opt-env-conf-test] + pure NotFound
  15999. 1065.18 s [opt-env-conf-test] + Just obj -> do
  16000. 1065.18 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  16001. 1065.18 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  16002. 1065.18 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  16003. 1065.18 s [opt-env-conf-test] + Nothing -> do
  16004. 1065.18 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  16005. 1065.18 s [opt-env-conf-test] + Nothing -> pure Nothing
  16006. 1065.18 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  16007. 1065.18 s [opt-env-conf-test] + Just neRest -> do
  16008. 1065.18 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  16009. 1065.18 s [opt-env-conf-test] + case mO' of
  16010. 1065.18 s [opt-env-conf-test] + Nothing -> pure Nothing
  16011. 1065.18 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  16012. 1065.18 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  16013. 1065.18 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16014. 1065.18 s [opt-env-conf-test] + Right mV -> case mV of
  16015. 1065.18 s [opt-env-conf-test] + Nothing -> do
  16016. 1065.18 s [opt-env-conf-test] + debug
  16017. 1065.18 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  16018. 1065.18 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  16019. 1065.18 s [opt-env-conf-test] + ]
  16020. 1065.18 s [opt-env-conf-test] + pure Nothing
  16021. 1065.18 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  16022. 1065.18 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16023. 1065.18 s [opt-env-conf-test] + Right mA -> case mA of
  16024. 1065.18 s [opt-env-conf-test] + Nothing -> do
  16025. 1065.18 s [opt-env-conf-test] + debug
  16026. 1065.18 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  16027. 1065.18 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  16028. 1065.18 s [opt-env-conf-test] + ]
  16029. 1065.18 s [opt-env-conf-test] + pure Nothing
  16030. 1065.18 s [opt-env-conf-test] + Just a -> do
  16031. 1065.18 s [opt-env-conf-test] + debug
  16032. 1065.18 s [opt-env-conf-test] + [ "set based on config value: ",
  16033. 1065.18 s [opt-env-conf-test] + chunk $ T.pack $ show v
  16034. 1065.18 s [opt-env-conf-test] + ]
  16035. 1065.18 s [opt-env-conf-test] + pure $ Just a
  16036. 1065.18 s [opt-env-conf-test] + let toRes = \case
  16037. 1065.18 s [opt-env-conf-test] + Nothing -> NotFound
  16038. 1065.18 s [opt-env-conf-test] + Just a -> Found a
  16039. 1065.18 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  16040. 1065.18 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  16041. 1065.18 s [opt-env-conf-test] + Just ne -> do
  16042. 1065.18 s [opt-env-conf-test] + res <- goConfSet confSet
  16043. 1065.18 s [opt-env-conf-test] + case res of
  16044. 1065.18 s [opt-env-conf-test] + Just a -> pure $ Found a
  16045. 1065.18 s [opt-env-conf-test] + Nothing -> goConfSets ne
  16046. 1065.18 s [opt-env-conf-test] + goConfSets confSets
  16047. 1065.18 s [opt-env-conf-test] case mConf of
  16048. 1065.18 s [opt-env-conf-test] Found a -> do
  16049. 1065.18 s [opt-env-conf-test] markParsed
  16050. 1065.18 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
  16051. 1065.18 s [opt-env-conf-test] @@ -376,58 +376,58 @@
  16052. 1065.18 s [opt-env-conf-test] Nothing -> pure NotRun
  16053. 1065.18 s [opt-env-conf-test] Just confSets -> do
  16054. 1065.18 s [opt-env-conf-test] mObj <- asks ppEnvConf
  16055. 1065.18 s [opt-env-conf-test] - case mObj of
  16056. 1065.18 s [opt-env-conf-test] - Nothing -> do
  16057. 1065.18 s [opt-env-conf-test] - debug ["no config object to set from"]
  16058. 1065.18 s [opt-env-conf-test] - pure NotFound
  16059. 1065.18 s [opt-env-conf-test] - Just obj -> do
  16060. 1065.18 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  16061. 1065.18 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  16062. 1065.18 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  16063. 1065.18 s [opt-env-conf-test] - Nothing -> do
  16064. 1065.18 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  16065. 1065.18 s [opt-env-conf-test] - Nothing -> pure Nothing
  16066. 1065.18 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  16067. 1065.18 s [opt-env-conf-test] - Just neRest -> do
  16068. 1065.18 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  16069. 1065.18 s [opt-env-conf-test] - case mO' of
  16070. 1065.18 s [opt-env-conf-test] - Nothing -> pure Nothing
  16071. 1065.18 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  16072. 1065.18 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  16073. 1065.18 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16074. 1065.18 s [opt-env-conf-test] - Right mV -> case mV of
  16075. 1065.18 s [opt-env-conf-test] - Nothing -> do
  16076. 1065.18 s [opt-env-conf-test] - debug
  16077. 1067.64 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  16078. 1067.73 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  16079. 1067.73 s [opt-env-conf-test] - ]
  16080. 1067.73 s [opt-env-conf-test] - pure Nothing
  16081. 1067.73 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  16082. 1067.73 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16083. 1067.73 s [opt-env-conf-test] - Right mA -> case mA of
  16084. 1067.74 s [opt-env-conf-test] - Nothing -> do
  16085. 1067.74 s [opt-env-conf-test] - debug
  16086. 1067.74 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  16087. 1067.74 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  16088. 1067.74 s [opt-env-conf-test] - ]
  16089. 1067.74 s [opt-env-conf-test] - pure Nothing
  16090. 1067.74 s [opt-env-conf-test] - Just a -> do
  16091. 1067.74 s [opt-env-conf-test] - debug
  16092. 1067.74 s [opt-env-conf-test] - [ "set based on config value: ",
  16093. 1067.74 s [opt-env-conf-test] - chunk $ T.pack $ show v
  16094. 1067.74 s [opt-env-conf-test] - ]
  16095. 1067.74 s [opt-env-conf-test] - pure $ Just a
  16096. 1067.74 s [opt-env-conf-test] - let toRes = \case
  16097. 1067.74 s [opt-env-conf-test] - Nothing -> NotFound
  16098. 1067.74 s [opt-env-conf-test] - Just a -> Found a
  16099. 1067.74 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  16100. 1067.74 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  16101. 1067.74 s [opt-env-conf-test] - Just ne -> do
  16102. 1067.74 s [opt-env-conf-test] - res <- goConfSet confSet
  16103. 1067.74 s [opt-env-conf-test] - case res of
  16104. 1067.74 s [opt-env-conf-test] - Just a -> pure $ Found a
  16105. 1067.74 s [opt-env-conf-test] - Nothing -> goConfSets ne
  16106. 1067.74 s [opt-env-conf-test] - goConfSets confSets
  16107. 1067.74 s [opt-env-conf-test] + case mObj of
  16108. 1067.74 s [opt-env-conf-test] + Nothing -> do
  16109. 1067.74 s [opt-env-conf-test] + debug ["no config object to set from"]
  16110. 1067.74 s [opt-env-conf-test] + pure NotFound
  16111. 1067.74 s [opt-env-conf-test] + Just obj -> do
  16112. 1067.74 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  16113. 1067.74 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  16114. 1067.74 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  16115. 1067.74 s [opt-env-conf-test] + Nothing -> do
  16116. 1067.74 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  16117. 1067.74 s [opt-env-conf-test] + Nothing -> pure Nothing
  16118. 1067.74 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  16119. 1067.74 s [opt-env-conf-test] + Just neRest -> do
  16120. 1067.75 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  16121. 1067.75 s [opt-env-conf-test] + case mO' of
  16122. 1067.75 s [opt-env-conf-test] + Nothing -> pure Nothing
  16123. 1067.75 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  16124. 1067.75 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  16125. 1067.75 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16126. 1067.75 s [opt-env-conf-test] + Right mV -> case mV of
  16127. 1067.75 s [opt-env-conf-test] + Nothing -> do
  16128. 1067.75 s [opt-env-conf-test] + debug
  16129. 1067.75 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  16130. 1067.75 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  16131. 1067.75 s [opt-env-conf-test] + ]
  16132. 1067.75 s [opt-env-conf-test] + pure Nothing
  16133. 1067.75 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  16134. 1067.75 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  16135. 1067.75 s [opt-env-conf-test] + Right mA -> case mA of
  16136. 1067.75 s [opt-env-conf-test] + Nothing -> do
  16137. 1067.75 s [opt-env-conf-test] + debug
  16138. 1067.75 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  16139. 1067.75 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  16140. 1067.75 s [opt-env-conf-test] + ]
  16141. 1067.75 s [opt-env-conf-test] + pure Nothing
  16142. 1067.75 s [opt-env-conf-test] + Just a -> do
  16143. 1067.75 s [opt-env-conf-test] + debug
  16144. 1067.75 s [opt-env-conf-test] + [ "set based on config value: ",
  16145. 1067.75 s [opt-env-conf-test] + chunk $ T.pack $ show v
  16146. 1067.75 s [opt-env-conf-test] + ]
  16147. 1067.75 s [opt-env-conf-test] + pure $ Just a
  16148. 1067.75 s [opt-env-conf-test] + let toRes = \case
  16149. 1067.75 s [opt-env-conf-test] + Nothing -> NotFound
  16150. 1067.75 s [opt-env-conf-test] + Just a -> Found a
  16151. 1067.75 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  16152. 1067.75 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  16153. 1067.75 s [opt-env-conf-test] + Just ne -> do
  16154. 1067.75 s [opt-env-conf-test] + res <- goConfSet confSet
  16155. 1067.75 s [opt-env-conf-test] + case res of
  16156. 1067.75 s [opt-env-conf-test] + Just a -> pure $ Found a
  16157. 1067.75 s [opt-env-conf-test] + Nothing -> goConfSets ne
  16158. 1067.75 s [opt-env-conf-test] + goConfSets confSets
  16159. 1067.75 s [opt-env-conf-test] case mConf of
  16160. 1067.75 s [opt-env-conf-test] Found a -> do
  16161. 1067.75 s [opt-env-conf-test] markParsed
  16162. 1067.75 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
  16163. 1067.75 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  16164. 1067.75 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16165. 1067.75 s [opt-env-conf-test] if isLong
  16166. 1067.75 s [opt-env-conf-test] then
  16167. 1067.75 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16168. 1067.75 s [opt-env-conf-test] + if True
  16169. 1067.75 s [opt-env-conf-test] then Just Nothing
  16170. 1067.75 s [opt-env-conf-test] else Nothing
  16171. 1067.75 s [opt-env-conf-test] else
  16172. 1067.75 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
  16173. 1067.75 s [opt-env-conf-test] @@ -420,13 +420,13 @@
  16174. 1067.75 s [opt-env-conf-test] let toRes = \case
  16175. 1067.75 s [opt-env-conf-test] Nothing -> NotFound
  16176. 1067.75 s [opt-env-conf-test] Just a -> Found a
  16177. 1067.75 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  16178. 1067.75 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  16179. 1067.75 s [opt-env-conf-test] - Just ne -> do
  16180. 1067.75 s [opt-env-conf-test] - res <- goConfSet confSet
  16181. 1067.75 s [opt-env-conf-test] - case res of
  16182. 1067.75 s [opt-env-conf-test] - Just a -> pure $ Found a
  16183. 1067.75 s [opt-env-conf-test] - Nothing -> goConfSets ne
  16184. 1067.75 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  16185. 1067.75 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  16186. 1067.75 s [opt-env-conf-test] + Just ne -> do
  16187. 1067.75 s [opt-env-conf-test] + res <- goConfSet confSet
  16188. 1067.75 s [opt-env-conf-test] + case res of
  16189. 1067.75 s [opt-env-conf-test] + Just a -> pure $ Found a
  16190. 1067.75 s [opt-env-conf-test] + Nothing -> goConfSets ne
  16191. 1067.75 s [opt-env-conf-test] goConfSets confSets
  16192. 1067.75 s [opt-env-conf-test] case mConf of
  16193. 1067.75 s [opt-env-conf-test] Found a -> do
  16194. 1067.75 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:295:10-38
  16195. 1067.75 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  16196. 1067.75 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16197. 1067.75 s [opt-env-conf-test] if isLong
  16198. 1067.75 s [opt-env-conf-test] then
  16199. 1067.75 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16200. 1067.75 s [opt-env-conf-test] + if not (DashedLong cs `elem` dasheds)
  16201. 1067.76 s [opt-env-conf-test] then Just Nothing
  16202. 1067.76 s [opt-env-conf-test] else Nothing
  16203. 1067.76 s [opt-env-conf-test] else
  16204. 1067.76 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
  16205. 1067.76 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  16206. 1067.76 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16207. 1067.76 s [opt-env-conf-test] if isLong
  16208. 1067.76 s [opt-env-conf-test] then
  16209. 1070.39 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16210. 1070.39 s [opt-env-conf-test] + if False
  16211. 1070.39 s [opt-env-conf-test] then Just Nothing
  16212. 1070.39 s [opt-env-conf-test] else Nothing
  16213. 1070.39 s [opt-env-conf-test] else
  16214. 1070.39 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:295:7-21
  16215. 1070.39 s [opt-env-conf-test] @@ -292,9 +292,9 @@
  16216. 1070.39 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16217. 1070.39 s [opt-env-conf-test] if isLong
  16218. 1070.39 s [opt-env-conf-test] then
  16219. 1070.39 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16220. 1070.39 s [opt-env-conf-test] - then Just Nothing
  16221. 1070.39 s [opt-env-conf-test] - else Nothing
  16222. 1070.39 s [opt-env-conf-test] + if DashedLong cs `elem` dasheds
  16223. 1070.39 s [opt-env-conf-test] + then Just Nothing
  16224. 1070.39 s [opt-env-conf-test] + else Nothing
  16225. 1070.39 s [opt-env-conf-test] else
  16226. 1070.39 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16227. 1070.39 s [opt-env-conf-test] in if DashedShort c `elem` dasheds
  16228. 1070.39 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
  16229. 1070.39 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  16230. 1070.39 s [opt-env-conf-test] else Nothing
  16231. 1070.39 s [opt-env-conf-test] else
  16232. 1070.39 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16233. 1070.40 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16234. 1070.40 s [opt-env-conf-test] + in if True
  16235. 1070.40 s [opt-env-conf-test] then Just mRest
  16236. 1070.40 s [opt-env-conf-test] else Nothing
  16237. 1070.40 s [opt-env-conf-test]
  16238. 1070.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
  16239. 1070.40 s [opt-env-conf-test] @@ -270,14 +270,14 @@
  16240. 1070.40 s [opt-env-conf-test] debug ["could not set based on argument: no argument"]
  16241. 1070.40 s [opt-env-conf-test] pure NotFound
  16242. 1070.40 s [opt-env-conf-test] Just argStr -> cap $
  16243. 1070.40 s [opt-env-conf-test] - case tryReaders rs argStr of
  16244. 1070.40 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  16245. 1070.40 s [opt-env-conf-test] - Right a -> do
  16246. 1070.40 s [opt-env-conf-test] - debug
  16247. 1070.40 s [opt-env-conf-test] - [ "set based on argument: ",
  16248. 1070.40 s [opt-env-conf-test] - chunk $ T.pack $ show argStr
  16249. 1070.40 s [opt-env-conf-test] - ]
  16250. 1070.40 s [opt-env-conf-test] - pure $ Found a
  16251. 1070.40 s [opt-env-conf-test] + case tryReaders rs argStr of
  16252. 1070.40 s [opt-env-conf-test] + Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
  16253. 1070.40 s [opt-env-conf-test] + Right a -> do
  16254. 1070.40 s [opt-env-conf-test] + debug
  16255. 1070.40 s [opt-env-conf-test] + [ "set based on argument: ",
  16256. 1070.40 s [opt-env-conf-test] + chunk $ T.pack $ show argStr
  16257. 1070.40 s [opt-env-conf-test] + ]
  16258. 1070.40 s [opt-env-conf-test] + pure $ Found a
  16259. 1070.40 s [opt-env-conf-test] else pure NotRun
  16260. 1070.40 s [opt-env-conf-test]
  16261. 1070.40 s [opt-env-conf-test] case mArg of
  16262. 1070.40 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
  16263. 1070.40 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  16264. 1070.40 s [opt-env-conf-test] else Nothing
  16265. 1070.40 s [opt-env-conf-test] else
  16266. 1070.40 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16267. 1070.40 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16268. 1070.40 s [opt-env-conf-test] + in if False
  16269. 1070.40 s [opt-env-conf-test] then Just mRest
  16270. 1070.40 s [opt-env-conf-test] else Nothing
  16271. 1070.40 s [opt-env-conf-test]
  16272. 1070.40 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:300:14-42
  16273. 1070.40 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  16274. 1070.40 s [opt-env-conf-test] else Nothing
  16275. 1070.40 s [opt-env-conf-test] else
  16276. 1070.40 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16277. 1070.40 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16278. 1070.40 s [opt-env-conf-test] + in if not (DashedShort c `elem` dasheds)
  16279. 1070.40 s [opt-env-conf-test] then Just mRest
  16280. 1070.40 s [opt-env-conf-test] else Nothing
  16281. 1070.40 s [opt-env-conf-test]
  16282. 1070.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
  16283. 1070.40 s [opt-env-conf-test] @@ -210,11 +210,11 @@
  16284. 1070.40 s [opt-env-conf-test] let mDefaultCommand = do
  16285. 1070.40 s [opt-env-conf-test] d <- mDefault
  16286. 1070.40 s [opt-env-conf-test] find ((== d) . commandArg) cs
  16287. 1070.40 s [opt-env-conf-test] - case mDefaultCommand of
  16288. 1070.40 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  16289. 1070.40 s [opt-env-conf-test] - Just dc -> do
  16290. 1070.40 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  16291. 1070.40 s [opt-env-conf-test] - go $ commandParser dc
  16292. 1070.40 s [opt-env-conf-test] + case mDefaultCommand of
  16293. 1070.40 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  16294. 1070.40 s [opt-env-conf-test] + Just dc -> do
  16295. 1070.40 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  16296. 1070.40 s [opt-env-conf-test] + go $ commandParser dc
  16297. 1070.40 s [opt-env-conf-test] Just s -> do
  16298. 1070.40 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  16299. 1070.40 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  16300. 1070.40 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:300:11-25
  16301. 1070.40 s [opt-env-conf-test] @@ -297,9 +297,9 @@
  16302. 1070.41 s [opt-env-conf-test] else Nothing
  16303. 1070.41 s [opt-env-conf-test] else
  16304. 1070.41 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16305. 1070.41 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16306. 1070.41 s [opt-env-conf-test] - then Just mRest
  16307. 1070.41 s [opt-env-conf-test] - else Nothing
  16308. 1070.41 s [opt-env-conf-test] + in if DashedShort c `elem` dasheds
  16309. 1070.41 s [opt-env-conf-test] + then Just mRest
  16310. 1070.41 s [opt-env-conf-test] + else Nothing
  16311. 1070.41 s [opt-env-conf-test]
  16312. 1070.41 s [opt-env-conf-test] unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
  16313. 1070.41 s [opt-env-conf-test] unsnocNE = go []
  16314. 1070.41 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:293:6-12
  16315. 1070.41 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  16316. 1070.41 s [opt-env-conf-test] NonEmpty Char ->
  16317. 1070.41 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  16318. 1070.41 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16319. 1070.41 s [opt-env-conf-test] - if isLong
  16320. 1070.41 s [opt-env-conf-test] + if not (isLong)
  16321. 1070.41 s [opt-env-conf-test] then
  16322. 1070.41 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  16323. 1070.41 s [opt-env-conf-test] then Just Nothing
  16324. 1070.41 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:293:3-25
  16325. 1070.41 s [opt-env-conf-test] @@ -290,16 +290,16 @@
  16326. 1070.41 s [opt-env-conf-test] NonEmpty Char ->
  16327. 1070.41 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  16328. 1070.41 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16329. 1070.41 s [opt-env-conf-test] - if isLong
  16330. 1070.41 s [opt-env-conf-test] - then
  16331. 1070.41 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16332. 1070.41 s [opt-env-conf-test] - then Just Nothing
  16333. 1070.41 s [opt-env-conf-test] - else Nothing
  16334. 1070.41 s [opt-env-conf-test] - else
  16335. 1070.41 s [opt-env-conf-test] - let (mRest, c) = unsnocNE cs
  16336. 1070.41 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16337. 1070.41 s [opt-env-conf-test] - then Just mRest
  16338. 1070.41 s [opt-env-conf-test] - else Nothing
  16339. 1070.41 s [opt-env-conf-test] + if isLong
  16340. 1070.41 s [opt-env-conf-test] + then
  16341. 1070.41 s [opt-env-conf-test] + if DashedLong cs `elem` dasheds
  16342. 1070.41 s [opt-env-conf-test] + then Just Nothing
  16343. 1070.41 s [opt-env-conf-test] + else Nothing
  16344. 1070.41 s [opt-env-conf-test] + else
  16345. 1070.41 s [opt-env-conf-test] + let (mRest, c) = unsnocNE cs
  16346. 1070.41 s [opt-env-conf-test] + in if DashedShort c `elem` dasheds
  16347. 1070.41 s [opt-env-conf-test] + then Just mRest
  16348. 1070.41 s [opt-env-conf-test] + else Nothing
  16349. 1070.41 s [opt-env-conf-test]
  16350. 1070.41 s [opt-env-conf-test] unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
  16351. 1070.41 s [opt-env-conf-test] unsnocNE = go []
  16352. 1070.41 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:27-42
  16353. 1070.41 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16354. 1070.41 s [opt-env-conf-test] Maybe String
  16355. 1070.41 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16356. 1070.41 s [opt-env-conf-test] (c :| rest)
  16357. 1070.41 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16358. 1070.41 s [opt-env-conf-test] + | c `elem` dasheds && True ->
  16359. 1070.41 s [opt-env-conf-test] Just rest
  16360. 1070.41 s [opt-env-conf-test] _ -> Nothing
  16361. 1070.41 s [opt-env-conf-test]
  16362. 1070.41 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:27-42
  16363. 1070.41 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16364. 1070.41 s [opt-env-conf-test] Maybe String
  16365. 1070.41 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16366. 1070.41 s [opt-env-conf-test] (c :| rest)
  16367. 1070.41 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16368. 1070.41 s [opt-env-conf-test] + | c `elem` dasheds && not (not (null rest)) ->
  16369. 1070.41 s [opt-env-conf-test] Just rest
  16370. 1070.41 s [opt-env-conf-test] _ -> Nothing
  16371. 1070.41 s [opt-env-conf-test]
  16372. 1070.41 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:31-42
  16373. 1070.41 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16374. 1070.41 s [opt-env-conf-test] Maybe String
  16375. 1070.41 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16376. 1070.41 s [opt-env-conf-test] (c :| rest)
  16377. 1070.41 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16378. 1070.41 s [opt-env-conf-test] + | c `elem` dasheds && not not ((null rest)) ->
  16379. 1070.41 s [opt-env-conf-test] Just rest
  16380. 1070.41 s [opt-env-conf-test] _ -> Nothing
  16381. 1070.41 s [opt-env-conf-test]
  16382. 1070.41 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-42
  16383. 1070.41 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16384. 1070.41 s [opt-env-conf-test] Maybe String
  16385. 1070.41 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16386. 1070.41 s [opt-env-conf-test] (c :| rest)
  16387. 1070.41 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16388. 1070.41 s [opt-env-conf-test] + | not (c `elem` dasheds && not (null rest)) ->
  16389. 1070.41 s [opt-env-conf-test] Just rest
  16390. 1070.41 s [opt-env-conf-test] _ -> Nothing
  16391. 1070.41 s [opt-env-conf-test]
  16392. 1070.41 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
  16393. 1070.41 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  16394. 1070.41 s [opt-env-conf-test] NonEmpty Char ->
  16395. 1070.41 s [opt-env-conf-test] Maybe String
  16396. 1070.41 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  16397. 1070.41 s [opt-env-conf-test] - if isLong
  16398. 1070.41 s [opt-env-conf-test] + if True
  16399. 1070.41 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  16400. 1070.41 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  16401. 1070.41 s [opt-env-conf-test]
  16402. 1070.41 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
  16403. 1070.41 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  16404. 1070.41 s [opt-env-conf-test] NonEmpty Char ->
  16405. 1070.41 s [opt-env-conf-test] Maybe String
  16406. 1070.41 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  16407. 1070.41 s [opt-env-conf-test] - if isLong
  16408. 1070.41 s [opt-env-conf-test] + if False
  16409. 1070.41 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  16410. 1070.41 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  16411. 1070.41 s [opt-env-conf-test]
  16412. 1070.41 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:258:6-12
  16413. 1070.41 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  16414. 1070.41 s [opt-env-conf-test] NonEmpty Char ->
  16415. 1070.41 s [opt-env-conf-test] Maybe String
  16416. 1070.41 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  16417. 1070.41 s [opt-env-conf-test] - if isLong
  16418. 1070.41 s [opt-env-conf-test] + if not (isLong)
  16419. 1070.41 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  16420. 1070.41 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  16421. 1070.41 s [opt-env-conf-test]
  16422. 1070.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
  16423. 1070.41 s [opt-env-conf-test] @@ -424,9 +424,9 @@
  16424. 1070.41 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  16425. 1070.42 s [opt-env-conf-test] Just ne -> do
  16426. 1070.42 s [opt-env-conf-test] res <- goConfSet confSet
  16427. 1070.42 s [opt-env-conf-test] - case res of
  16428. 1070.42 s [opt-env-conf-test] - Just a -> pure $ Found a
  16429. 1070.42 s [opt-env-conf-test] - Nothing -> goConfSets ne
  16430. 1070.42 s [opt-env-conf-test] + case res of
  16431. 1070.42 s [opt-env-conf-test] + Just a -> pure $ Found a
  16432. 1070.42 s [opt-env-conf-test] + Nothing -> goConfSets ne
  16433. 1070.42 s [opt-env-conf-test] goConfSets confSets
  16434. 1070.42 s [opt-env-conf-test] case mConf of
  16435. 1070.42 s [opt-env-conf-test] Found a -> do
  16436. 1070.42 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
  16437. 1070.42 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16438. 1070.42 s [opt-env-conf-test] renderArg = \case
  16439. 1070.42 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16440. 1070.42 s [opt-env-conf-test] ArgBareDash -> "-"
  16441. 1070.42 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16442. 1070.42 s [opt-env-conf-test] + ArgDashed l cs -> (if True then "--" else "-") <> NE.toList cs
  16443. 1070.42 s [opt-env-conf-test] ArgPlain a -> a
  16444. 1070.42 s [opt-env-conf-test]
  16445. 1070.42 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16446. 1071.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
  16447. 1071.89 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16448. 1071.89 s [opt-env-conf-test] renderArg = \case
  16449. 1071.89 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16450. 1071.89 s [opt-env-conf-test] ArgBareDash -> "-"
  16451. 1071.89 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16452. 1071.89 s [opt-env-conf-test] + ArgDashed l cs -> (if False then "--" else "-") <> NE.toList cs
  16453. 1071.89 s [opt-env-conf-test] ArgPlain a -> a
  16454. 1071.89 s [opt-env-conf-test]
  16455. 1071.89 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16456. 1071.89 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:89:25-26
  16457. 1071.89 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16458. 1071.89 s [opt-env-conf-test] renderArg = \case
  16459. 1071.89 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16460. 1071.89 s [opt-env-conf-test] ArgBareDash -> "-"
  16461. 1071.89 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16462. 1071.89 s [opt-env-conf-test] + ArgDashed l cs -> (if not (l) then "--" else "-") <> NE.toList cs
  16463. 1071.89 s [opt-env-conf-test] ArgPlain a -> a
  16464. 1071.89 s [opt-env-conf-test]
  16465. 1071.89 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16466. 1071.89 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:89:22-45
  16467. 1071.89 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16468. 1071.89 s [opt-env-conf-test] renderArg = \case
  16469. 1071.89 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16470. 1071.89 s [opt-env-conf-test] ArgBareDash -> "-"
  16471. 1071.89 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16472. 1071.89 s [opt-env-conf-test] + ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16473. 1071.89 s [opt-env-conf-test] ArgPlain a -> a
  16474. 1071.90 s [opt-env-conf-test]
  16475. 1071.90 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16476. 1071.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
  16477. 1071.90 s [opt-env-conf-test] @@ -130,10 +130,10 @@
  16478. 1071.90 s [opt-env-conf-test] -- things like a default command.
  16479. 1071.90 s [opt-env-conf-test] let addConsumeNothing = \case
  16480. 1071.90 s [opt-env-conf-test] [] -> [(Nothing, as)]
  16481. 1071.90 s [opt-env-conf-test] - r@(t@(mA, _) : rest) -> case mA of
  16482. 1071.90 s [opt-env-conf-test] - -- If not consuming anything is already an option, don't add it to the end.
  16483. 1071.90 s [opt-env-conf-test] - Nothing -> r
  16484. 1071.90 s [opt-env-conf-test] - Just _ -> t : addConsumeNothing rest
  16485. 1071.90 s [opt-env-conf-test] + r@(t@(mA, _) : rest) -> case mA of
  16486. 1071.90 s [opt-env-conf-test] + -- If not consuming anything is already an option, don't add it to the end.
  16487. 1071.90 s [opt-env-conf-test] + Nothing -> r
  16488. 1071.90 s [opt-env-conf-test] + Just _ -> t : addConsumeNothing rest
  16489. 1071.90 s [opt-env-conf-test]
  16490. 1071.90 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  16491. 1071.90 s [opt-env-conf-test] [] -> []
  16492. 1071.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
  16493. 1071.90 s [opt-env-conf-test] @@ -130,10 +130,10 @@
  16494. 1071.90 s [opt-env-conf-test] -- things like a default command.
  16495. 1071.90 s [opt-env-conf-test] let addConsumeNothing = \case
  16496. 1071.90 s [opt-env-conf-test] [] -> [(Nothing, as)]
  16497. 1071.90 s [opt-env-conf-test] - r@(t@(mA, _) : rest) -> case mA of
  16498. 1071.90 s [opt-env-conf-test] - -- If not consuming anything is already an option, don't add it to the end.
  16499. 1071.90 s [opt-env-conf-test] - Nothing -> r
  16500. 1071.90 s [opt-env-conf-test] - Just _ -> t : addConsumeNothing rest
  16501. 1071.90 s [opt-env-conf-test] + r@(t@(mA, _) : rest) -> case mA of
  16502. 1071.90 s [opt-env-conf-test] + -- If not consuming anything is already an option, don't add it to the end.
  16503. 1071.90 s [opt-env-conf-test] + Nothing -> r
  16504. 1071.90 s [opt-env-conf-test] + Just _ -> t : addConsumeNothing rest
  16505. 1071.90 s [opt-env-conf-test]
  16506. 1071.90 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  16507. 1071.90 s [opt-env-conf-test] [] -> []
  16508. 1071.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  16509. 1071.90 s [opt-env-conf-test] @@ -166,17 +166,17 @@
  16510. 1071.90 s [opt-env-conf-test] [] -> Nothing
  16511. 1071.90 s [opt-env-conf-test] (Dead : rest) -> go rest
  16512. 1071.90 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  16513. 1071.90 s [opt-env-conf-test] - in case go afters of
  16514. 1071.90 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  16515. 1071.90 s [opt-env-conf-test] - Just (firstLive, rest) ->
  16516. 1071.90 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  16517. 1071.90 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  16518. 1071.90 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  16519. 1071.90 s [opt-env-conf-test] - -- arguments.
  16520. 1071.90 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  16521. 1071.90 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  16522. 1071.90 s [opt-env-conf-test] - )
  16523. 1071.90 s [opt-env-conf-test] - ]
  16524. 1071.90 s [opt-env-conf-test] + in case go afters of
  16525. 1071.90 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  16526. 1071.90 s [opt-env-conf-test] + Just (firstLive, rest) ->
  16527. 1071.90 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  16528. 1071.90 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  16529. 1071.90 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  16530. 1071.90 s [opt-env-conf-test] + -- arguments.
  16531. 1071.90 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  16532. 1071.90 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  16533. 1071.90 s [opt-env-conf-test] + )
  16534. 1071.90 s [opt-env-conf-test] + ]
  16535. 1071.90 s [opt-env-conf-test] ArgDashed {} ->
  16536. 1071.90 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  16537. 1071.90 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  16538. 1071.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  16539. 1071.90 s [opt-env-conf-test] @@ -166,17 +166,17 @@
  16540. 1071.90 s [opt-env-conf-test] [] -> Nothing
  16541. 1071.90 s [opt-env-conf-test] (Dead : rest) -> go rest
  16542. 1071.90 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  16543. 1071.90 s [opt-env-conf-test] - in case go afters of
  16544. 1071.90 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  16545. 1071.90 s [opt-env-conf-test] - Just (firstLive, rest) ->
  16546. 1071.90 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  16547. 1071.90 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  16548. 1071.90 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  16549. 1071.90 s [opt-env-conf-test] - -- arguments.
  16550. 1071.90 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  16551. 1071.90 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  16552. 1071.90 s [opt-env-conf-test] - )
  16553. 1071.90 s [opt-env-conf-test] - ]
  16554. 1071.90 s [opt-env-conf-test] + in case go afters of
  16555. 1071.90 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  16556. 1071.90 s [opt-env-conf-test] + Just (firstLive, rest) ->
  16557. 1071.90 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  16558. 1071.90 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  16559. 1071.90 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  16560. 1071.90 s [opt-env-conf-test] + -- arguments.
  16561. 1071.90 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  16562. 1071.90 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  16563. 1071.90 s [opt-env-conf-test] + )
  16564. 1071.90 s [opt-env-conf-test] + ]
  16565. 1071.90 s [opt-env-conf-test] ArgDashed {} ->
  16566. 1071.90 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  16567. 1071.90 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  16568. 1071.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  16569. 1071.90 s [opt-env-conf-test] @@ -149,34 +149,34 @@
  16570. 1071.90 s [opt-env-conf-test] -- A single dash is always an argument
  16571. 1071.90 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  16572. 1071.90 s [opt-env-conf-test] -- Bare double-dash
  16573. 1071.90 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  16574. 1071.90 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  16575. 1071.90 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  16576. 1071.90 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  16577. 1071.90 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  16578. 1071.90 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  16579. 1071.90 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  16580. 1071.90 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  16581. 1071.90 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  16582. 1071.90 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  16583. 1071.90 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  16584. 1071.90 s [opt-env-conf-test] - -- pop the args as they come.
  16585. 1071.90 s [opt-env-conf-test] - _ ->
  16586. 1071.90 s [opt-env-conf-test] - let go = \case
  16587. 1071.90 s [opt-env-conf-test] - [] -> Nothing
  16588. 1071.90 s [opt-env-conf-test] - (Dead : rest) -> go rest
  16589. 1071.90 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  16590. 1071.90 s [opt-env-conf-test] - in case go afters of
  16591. 1071.90 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  16592. 1071.90 s [opt-env-conf-test] - Just (firstLive, rest) ->
  16593. 1071.90 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  16594. 1071.90 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  16595. 1071.90 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  16596. 1071.90 s [opt-env-conf-test] - -- arguments.
  16597. 1071.90 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  16598. 1071.90 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  16599. 1071.90 s [opt-env-conf-test] - )
  16600. 1071.90 s [opt-env-conf-test] - ]
  16601. 1071.90 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  16602. 1071.90 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  16603. 1071.90 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  16604. 1071.90 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  16605. 1071.90 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  16606. 1071.90 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  16607. 1071.90 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  16608. 1073.77 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  16609. 1073.85 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  16610. 1073.85 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  16611. 1073.85 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  16612. 1073.85 s [opt-env-conf-test] + -- pop the args as they come.
  16613. 1073.85 s [opt-env-conf-test] + _ ->
  16614. 1073.85 s [opt-env-conf-test] + let go = \case
  16615. 1073.85 s [opt-env-conf-test] + [] -> Nothing
  16616. 1073.85 s [opt-env-conf-test] + (Dead : rest) -> go rest
  16617. 1073.85 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  16618. 1073.85 s [opt-env-conf-test] + in case go afters of
  16619. 1073.85 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  16620. 1073.85 s [opt-env-conf-test] + Just (firstLive, rest) ->
  16621. 1073.85 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  16622. 1073.85 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  16623. 1073.85 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  16624. 1073.85 s [opt-env-conf-test] + -- arguments.
  16625. 1073.85 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  16626. 1073.85 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  16627. 1073.85 s [opt-env-conf-test] + )
  16628. 1073.85 s [opt-env-conf-test] + ]
  16629. 1073.85 s [opt-env-conf-test] ArgDashed {} ->
  16630. 1073.85 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  16631. 1073.85 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  16632. 1073.85 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  16633. 1073.85 s [opt-env-conf-test] @@ -149,34 +149,34 @@
  16634. 1073.85 s [opt-env-conf-test] -- A single dash is always an argument
  16635. 1073.85 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  16636. 1073.85 s [opt-env-conf-test] -- Bare double-dash
  16637. 1073.85 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  16638. 1073.85 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  16639. 1073.85 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  16640. 1073.85 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  16641. 1073.85 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  16642. 1073.85 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  16643. 1073.85 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  16644. 1073.85 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  16645. 1073.85 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  16646. 1073.85 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  16647. 1073.85 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  16648. 1073.85 s [opt-env-conf-test] - -- pop the args as they come.
  16649. 1073.85 s [opt-env-conf-test] - _ ->
  16650. 1073.86 s [opt-env-conf-test] - let go = \case
  16651. 1073.86 s [opt-env-conf-test] - [] -> Nothing
  16652. 1073.86 s [opt-env-conf-test] - (Dead : rest) -> go rest
  16653. 1073.86 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  16654. 1073.86 s [opt-env-conf-test] - in case go afters of
  16655. 1073.86 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  16656. 1073.86 s [opt-env-conf-test] - Just (firstLive, rest) ->
  16657. 1073.86 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  16658. 1073.86 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  16659. 1073.86 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  16660. 1073.86 s [opt-env-conf-test] - -- arguments.
  16661. 1073.86 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  16662. 1073.86 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  16663. 1073.86 s [opt-env-conf-test] - )
  16664. 1073.86 s [opt-env-conf-test] - ]
  16665. 1073.86 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  16666. 1073.86 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  16667. 1073.86 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  16668. 1073.86 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  16669. 1073.86 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  16670. 1073.86 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  16671. 1073.86 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  16672. 1073.86 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  16673. 1073.86 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  16674. 1073.86 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  16675. 1073.86 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  16676. 1073.86 s [opt-env-conf-test] + -- pop the args as they come.
  16677. 1073.86 s [opt-env-conf-test] + _ ->
  16678. 1073.86 s [opt-env-conf-test] + let go = \case
  16679. 1073.86 s [opt-env-conf-test] + [] -> Nothing
  16680. 1073.86 s [opt-env-conf-test] + (Dead : rest) -> go rest
  16681. 1073.86 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  16682. 1073.86 s [opt-env-conf-test] + in case go afters of
  16683. 1073.86 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  16684. 1073.86 s [opt-env-conf-test] + Just (firstLive, rest) ->
  16685. 1073.86 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  16686. 1073.86 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  16687. 1073.86 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  16688. 1073.86 s [opt-env-conf-test] + -- arguments.
  16689. 1073.86 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  16690. 1073.86 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  16691. 1073.86 s [opt-env-conf-test] + )
  16692. 1073.86 s [opt-env-conf-test] + ]
  16693. 1073.86 s [opt-env-conf-test] ArgDashed {} ->
  16694. 1073.86 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  16695. 1073.86 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  16696. 1073.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  16697. 1073.86 s [opt-env-conf-test] @@ -149,34 +149,34 @@
  16698. 1073.86 s [opt-env-conf-test] -- A single dash is always an argument
  16699. 1073.86 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  16700. 1073.86 s [opt-env-conf-test] -- Bare double-dash
  16701. 1073.86 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  16702. 1073.86 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  16703. 1073.86 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  16704. 1073.86 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  16705. 1073.86 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  16706. 1073.86 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  16707. 1073.86 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  16708. 1073.86 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  16709. 1073.86 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  16710. 1073.86 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  16711. 1073.86 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  16712. 1073.86 s [opt-env-conf-test] - -- pop the args as they come.
  16713. 1073.86 s [opt-env-conf-test] - _ ->
  16714. 1073.86 s [opt-env-conf-test] - let go = \case
  16715. 1073.86 s [opt-env-conf-test] - [] -> Nothing
  16716. 1073.87 s [opt-env-conf-test] - (Dead : rest) -> go rest
  16717. 1073.87 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  16718. 1073.87 s [opt-env-conf-test] - in case go afters of
  16719. 1073.87 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  16720. 1073.87 s [opt-env-conf-test] - Just (firstLive, rest) ->
  16721. 1073.87 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  16722. 1073.87 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  16723. 1073.87 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  16724. 1073.87 s [opt-env-conf-test] - -- arguments.
  16725. 1073.87 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  16726. 1073.87 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  16727. 1073.87 s [opt-env-conf-test] - )
  16728. 1073.87 s [opt-env-conf-test] - ]
  16729. 1073.87 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  16730. 1073.87 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  16731. 1073.87 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  16732. 1073.87 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  16733. 1073.87 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  16734. 1073.87 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  16735. 1073.87 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  16736. 1073.87 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  16737. 1073.87 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  16738. 1073.87 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  16739. 1073.87 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  16740. 1073.87 s [opt-env-conf-test] + -- pop the args as they come.
  16741. 1073.87 s [opt-env-conf-test] + _ ->
  16742. 1073.87 s [opt-env-conf-test] + let go = \case
  16743. 1073.87 s [opt-env-conf-test] + [] -> Nothing
  16744. 1073.87 s [opt-env-conf-test] + (Dead : rest) -> go rest
  16745. 1073.87 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  16746. 1073.87 s [opt-env-conf-test] + in case go afters of
  16747. 1073.87 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  16748. 1075.61 s [opt-env-conf-test] + Just (firstLive, rest) ->
  16749. 1075.61 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  16750. 1075.61 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  16751. 1075.61 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  16752. 1075.61 s [opt-env-conf-test] + -- arguments.
  16753. 1075.61 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  16754. 1075.61 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  16755. 1075.61 s [opt-env-conf-test] + )
  16756. 1075.61 s [opt-env-conf-test] + ]
  16757. 1075.61 s [opt-env-conf-test] ArgDashed {} ->
  16758. 1075.61 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  16759. 1075.61 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  16760. 1075.61 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
  16761. 1075.61 s [opt-env-conf-test] @@ -201,7 +201,7 @@
  16762. 1075.61 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  16763. 1075.61 s [opt-env-conf-test] ]
  16764. 1075.61 s [opt-env-conf-test] _ ->
  16765. 1075.61 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16766. 1075.62 s [opt-env-conf-test] + consumeArgument (Args (befores ++ []) rest)
  16767. 1075.62 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16768. 1075.62 s [opt-env-conf-test] (Just (renderArg a), consumed)
  16769. 1075.62 s [opt-env-conf-test] ]
  16770. 1075.62 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
  16771. 1075.62 s [opt-env-conf-test] @@ -201,7 +201,7 @@
  16772. 1075.62 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  16773. 1075.62 s [opt-env-conf-test] ]
  16774. 1075.62 s [opt-env-conf-test] _ ->
  16775. 1075.62 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16776. 1075.62 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16777. 1075.62 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16778. 1075.62 s [opt-env-conf-test] (Just (renderArg a), consumed)
  16779. 1075.62 s [opt-env-conf-test] ]
  16780. 1075.62 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
  16781. 1075.62 s [opt-env-conf-test] @@ -202,7 +202,7 @@
  16782. 1075.62 s [opt-env-conf-test] ]
  16783. 1075.62 s [opt-env-conf-test] _ ->
  16784. 1075.62 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16785. 1075.62 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16786. 1075.62 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ []) rest),
  16787. 1075.62 s [opt-env-conf-test] (Just (renderArg a), consumed)
  16788. 1075.62 s [opt-env-conf-test] ]
  16789. 1075.62 s [opt-env-conf-test] )
  16790. 1075.62 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
  16791. 1075.62 s [opt-env-conf-test] @@ -202,7 +202,7 @@
  16792. 1075.62 s [opt-env-conf-test] ]
  16793. 1075.62 s [opt-env-conf-test] _ ->
  16794. 1075.62 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16795. 1075.62 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16796. 1075.62 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16797. 1075.62 s [opt-env-conf-test] (Just (renderArg a), consumed)
  16798. 1075.62 s [opt-env-conf-test] ]
  16799. 1075.62 s [opt-env-conf-test] )
  16800. 1075.62 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
  16801. 1075.62 s [opt-env-conf-test] @@ -202,9 +202,7 @@
  16802. 1075.62 s [opt-env-conf-test] ]
  16803. 1075.62 s [opt-env-conf-test] _ ->
  16804. 1075.62 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16805. 1075.62 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16806. 1075.62 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  16807. 1075.62 s [opt-env-conf-test] - ]
  16808. 1075.62 s [opt-env-conf-test] + ++ []
  16809. 1075.62 s [opt-env-conf-test] )
  16810. 1075.62 s [opt-env-conf-test]
  16811. 1075.62 s [opt-env-conf-test] -- | Consume an option.
  16812. 1075.62 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
  16813. 1075.62 s [opt-env-conf-test] @@ -202,9 +202,9 @@
  16814. 1075.62 s [opt-env-conf-test] ]
  16815. 1075.62 s [opt-env-conf-test] _ ->
  16816. 1075.62 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16817. 1075.62 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16818. 1075.62 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  16819. 1075.62 s [opt-env-conf-test] - ]
  16820. 1075.62 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16821. 1075.62 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  16822. 1075.62 s [opt-env-conf-test] + ]
  16823. 1075.62 s [opt-env-conf-test] )
  16824. 1075.62 s [opt-env-conf-test]
  16825. 1075.62 s [opt-env-conf-test] -- | Consume an option.
  16826. 1075.62 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
  16827. 1075.62 s [opt-env-conf-test] @@ -195,16 +195,16 @@
  16828. 1075.62 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  16829. 1075.62 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  16830. 1075.62 s [opt-env-conf-test] -- * The dashed is an argument
  16831. 1075.62 s [opt-env-conf-test] - ( case a' of
  16832. 1075.62 s [opt-env-conf-test] - ArgDashed {} ->
  16833. 1075.62 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  16834. 1075.62 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  16835. 1075.62 s [opt-env-conf-test] - ]
  16836. 1075.62 s [opt-env-conf-test] - _ ->
  16837. 1075.62 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16838. 1075.62 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16839. 1075.62 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  16840. 1075.62 s [opt-env-conf-test] - ]
  16841. 1075.62 s [opt-env-conf-test] + ( case a' of
  16842. 1075.62 s [opt-env-conf-test] + ArgDashed {} ->
  16843. 1075.62 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  16844. 1075.62 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  16845. 1075.63 s [opt-env-conf-test] + ]
  16846. 1075.63 s [opt-env-conf-test] + _ ->
  16847. 1075.63 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16848. 1075.63 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16849. 1075.63 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  16850. 1075.63 s [opt-env-conf-test] + ]
  16851. 1075.63 s [opt-env-conf-test] )
  16852. 1075.63 s [opt-env-conf-test]
  16853. 1075.63 s [opt-env-conf-test] -- | Consume an option.
  16854. 1075.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
  16855. 1075.63 s [opt-env-conf-test] @@ -195,16 +195,16 @@
  16856. 1075.63 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  16857. 1075.63 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  16858. 1075.63 s [opt-env-conf-test] -- * The dashed is an argument
  16859. 1075.63 s [opt-env-conf-test] - ( case a' of
  16860. 1075.63 s [opt-env-conf-test] - ArgDashed {} ->
  16861. 1075.63 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  16862. 1075.63 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  16863. 1075.63 s [opt-env-conf-test] - ]
  16864. 1075.63 s [opt-env-conf-test] - _ ->
  16865. 1075.63 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16866. 1075.63 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16867. 1075.63 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  16868. 1075.63 s [opt-env-conf-test] - ]
  16869. 1075.63 s [opt-env-conf-test] + ( case a' of
  16870. 1075.63 s [opt-env-conf-test] + ArgDashed {} ->
  16871. 1075.63 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  16872. 1075.63 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  16873. 1075.63 s [opt-env-conf-test] + ]
  16874. 1075.63 s [opt-env-conf-test] + _ ->
  16875. 1075.63 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16876. 1075.63 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16877. 1075.63 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  16878. 1075.63 s [opt-env-conf-test] + ]
  16879. 1075.63 s [opt-env-conf-test] )
  16880. 1075.63 s [opt-env-conf-test]
  16881. 1075.63 s [opt-env-conf-test] -- | Consume an option.
  16882. 1075.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  16883. 1075.63 s [opt-env-conf-test] @@ -186,26 +186,26 @@
  16884. 1075.63 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  16885. 1075.63 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  16886. 1075.63 s [opt-env-conf-test] ]
  16887. 1075.63 s [opt-env-conf-test] - in case afters of
  16888. 1075.63 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  16889. 1075.63 s [opt-env-conf-test] - [] -> switchCase
  16890. 1075.63 s [opt-env-conf-test] - (Dead : _) -> switchCase
  16891. 1075.63 s [opt-env-conf-test] - (Live a' : rest) ->
  16892. 1075.63 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  16893. 1075.63 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  16894. 1076.23 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  16895. 1076.23 s [opt-env-conf-test] - -- * The dashed is an argument
  16896. 1076.23 s [opt-env-conf-test] - ( case a' of
  16897. 1076.23 s [opt-env-conf-test] - ArgDashed {} ->
  16898. 1076.23 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  16899. 1076.23 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  16900. 1076.24 s [opt-env-conf-test] - ]
  16901. 1076.24 s [opt-env-conf-test] - _ ->
  16902. 1076.24 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16903. 1076.24 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16904. 1076.24 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  16905. 1076.24 s [opt-env-conf-test] - ]
  16906. 1076.24 s [opt-env-conf-test] - )
  16907. 1076.24 s [opt-env-conf-test] + in case afters of
  16908. 1076.24 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  16909. 1076.24 s [opt-env-conf-test] + [] -> switchCase
  16910. 1076.24 s [opt-env-conf-test] + (Dead : _) -> switchCase
  16911. 1076.24 s [opt-env-conf-test] + (Live a' : rest) ->
  16912. 1076.24 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  16913. 1076.24 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  16914. 1076.24 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  16915. 1076.24 s [opt-env-conf-test] + -- * The dashed is an argument
  16916. 1076.24 s [opt-env-conf-test] + ( case a' of
  16917. 1076.24 s [opt-env-conf-test] + ArgDashed {} ->
  16918. 1076.24 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  16919. 1076.24 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  16920. 1076.24 s [opt-env-conf-test] + ]
  16921. 1076.24 s [opt-env-conf-test] + _ ->
  16922. 1076.24 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16923. 1076.24 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16924. 1076.24 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  16925. 1076.24 s [opt-env-conf-test] + ]
  16926. 1076.24 s [opt-env-conf-test] + )
  16927. 1076.24 s [opt-env-conf-test]
  16928. 1076.24 s [opt-env-conf-test] -- | Consume an option.
  16929. 1076.24 s [opt-env-conf-test] --
  16930. 1076.24 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  16931. 1076.24 s [opt-env-conf-test] @@ -186,26 +186,26 @@
  16932. 1076.24 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  16933. 1076.24 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  16934. 1076.24 s [opt-env-conf-test] ]
  16935. 1076.24 s [opt-env-conf-test] - in case afters of
  16936. 1076.24 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  16937. 1076.24 s [opt-env-conf-test] - [] -> switchCase
  16938. 1076.24 s [opt-env-conf-test] - (Dead : _) -> switchCase
  16939. 1076.24 s [opt-env-conf-test] - (Live a' : rest) ->
  16940. 1076.24 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  16941. 1076.24 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  16942. 1076.24 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  16943. 1076.24 s [opt-env-conf-test] - -- * The dashed is an argument
  16944. 1076.24 s [opt-env-conf-test] - ( case a' of
  16945. 1076.24 s [opt-env-conf-test] - ArgDashed {} ->
  16946. 1076.24 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  16947. 1076.24 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  16948. 1076.24 s [opt-env-conf-test] - ]
  16949. 1076.24 s [opt-env-conf-test] - _ ->
  16950. 1076.24 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16951. 1076.24 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16952. 1076.24 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  16953. 1076.24 s [opt-env-conf-test] - ]
  16954. 1076.24 s [opt-env-conf-test] - )
  16955. 1076.24 s [opt-env-conf-test] + in case afters of
  16956. 1076.24 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  16957. 1076.24 s [opt-env-conf-test] + [] -> switchCase
  16958. 1076.24 s [opt-env-conf-test] + (Dead : _) -> switchCase
  16959. 1076.24 s [opt-env-conf-test] + (Live a' : rest) ->
  16960. 1076.24 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  16961. 1076.24 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  16962. 1076.24 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  16963. 1076.24 s [opt-env-conf-test] + -- * The dashed is an argument
  16964. 1076.24 s [opt-env-conf-test] + ( case a' of
  16965. 1076.24 s [opt-env-conf-test] + ArgDashed {} ->
  16966. 1076.24 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  16967. 1076.24 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  16968. 1076.24 s [opt-env-conf-test] + ]
  16969. 1076.25 s [opt-env-conf-test] + _ ->
  16970. 1076.25 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  16971. 1076.25 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  16972. 1076.25 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  16973. 1076.25 s [opt-env-conf-test] + ]
  16974. 1076.25 s [opt-env-conf-test] + )
  16975. 1076.25 s [opt-env-conf-test]
  16976. 1076.25 s [opt-env-conf-test] -- | Consume an option.
  16977. 1076.25 s [opt-env-conf-test] --
  16978. 1076.25 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-42
  16979. 1076.25 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16980. 1076.25 s [opt-env-conf-test] Maybe String
  16981. 1076.25 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16982. 1076.25 s [opt-env-conf-test] (c :| rest)
  16983. 1076.25 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16984. 1076.25 s [opt-env-conf-test] + | True ->
  16985. 1076.25 s [opt-env-conf-test] Just rest
  16986. 1076.25 s [opt-env-conf-test] _ -> Nothing
  16987. 1076.25 s [opt-env-conf-test]
  16988. 1076.25 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-23
  16989. 1076.25 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16990. 1076.25 s [opt-env-conf-test] Maybe String
  16991. 1076.25 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16992. 1076.25 s [opt-env-conf-test] (c :| rest)
  16993. 1076.25 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16994. 1076.25 s [opt-env-conf-test] + | not (c `elem` dasheds) && not (null rest) ->
  16995. 1076.25 s [opt-env-conf-test] Just rest
  16996. 1076.25 s [opt-env-conf-test] _ -> Nothing
  16997. 1076.25 s [opt-env-conf-test]
  16998. 1076.25 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-23
  16999. 1076.25 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  17000. 1076.25 s [opt-env-conf-test] Maybe String
  17001. 1076.25 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  17002. 1076.25 s [opt-env-conf-test] (c :| rest)
  17003. 1076.25 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  17004. 1076.25 s [opt-env-conf-test] + | True && not (null rest) ->
  17005. 1076.25 s [opt-env-conf-test] Just rest
  17006. 1076.25 s [opt-env-conf-test] _ -> Nothing
  17007. 1076.25 s [opt-env-conf-test]
  17008. 1076.25 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:31-42
  17009. 1076.25 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  17010. 1076.25 s [opt-env-conf-test] Maybe String
  17011. 1076.25 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  17012. 1076.25 s [opt-env-conf-test] (c :| rest)
  17013. 1076.25 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  17014. 1076.25 s [opt-env-conf-test] + | c `elem` dasheds && not True ->
  17015. 1076.25 s [opt-env-conf-test] Just rest
  17016. 1076.25 s [opt-env-conf-test] _ -> Nothing
  17017. 1076.25 s [opt-env-conf-test]
  17018. 1076.25 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:32-41
  17019. 1076.25 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  17020. 1076.25 s [opt-env-conf-test] Maybe String
  17021. 1076.25 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  17022. 1076.25 s [opt-env-conf-test] (c :| rest)
  17023. 1076.25 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  17024. 1076.25 s [opt-env-conf-test] + | c `elem` dasheds && not (not (null rest)) ->
  17025. 1076.25 s [opt-env-conf-test] Just rest
  17026. 1076.25 s [opt-env-conf-test] _ -> Nothing
  17027. 1076.25 s [opt-env-conf-test]
  17028. 1076.25 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
  17029. 1076.25 s [opt-env-conf-test] @@ -376,58 +376,58 @@
  17030. 1076.25 s [opt-env-conf-test] Nothing -> pure NotRun
  17031. 1076.25 s [opt-env-conf-test] Just confSets -> do
  17032. 1076.25 s [opt-env-conf-test] mObj <- asks ppEnvConf
  17033. 1076.25 s [opt-env-conf-test] - case mObj of
  17034. 1076.25 s [opt-env-conf-test] - Nothing -> do
  17035. 1076.25 s [opt-env-conf-test] - debug ["no config object to set from"]
  17036. 1076.25 s [opt-env-conf-test] - pure NotFound
  17037. 1076.25 s [opt-env-conf-test] - Just obj -> do
  17038. 1076.25 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  17039. 1076.25 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  17040. 1076.25 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  17041. 1076.25 s [opt-env-conf-test] - Nothing -> do
  17042. 1076.25 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  17043. 1076.25 s [opt-env-conf-test] - Nothing -> pure Nothing
  17044. 1076.25 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  17045. 1076.25 s [opt-env-conf-test] - Just neRest -> do
  17046. 1076.25 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  17047. 1076.25 s [opt-env-conf-test] - case mO' of
  17048. 1076.25 s [opt-env-conf-test] - Nothing -> pure Nothing
  17049. 1076.25 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  17050. 1076.25 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  17051. 1076.25 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  17052. 1076.25 s [opt-env-conf-test] - Right mV -> case mV of
  17053. 1076.25 s [opt-env-conf-test] - Nothing -> do
  17054. 1076.25 s [opt-env-conf-test] - debug
  17055. 1076.25 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  17056. 1076.92 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  17057. 1076.92 s [opt-env-conf-test] - ]
  17058. 1076.92 s [opt-env-conf-test] - pure Nothing
  17059. 1076.92 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  17060. 1076.92 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  17061. 1076.92 s [opt-env-conf-test] - Right mA -> case mA of
  17062. 1076.92 s [opt-env-conf-test] - Nothing -> do
  17063. 1076.92 s [opt-env-conf-test] - debug
  17064. 1076.92 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  17065. 1076.92 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  17066. 1076.92 s [opt-env-conf-test] - ]
  17067. 1076.92 s [opt-env-conf-test] - pure Nothing
  17068. 1076.92 s [opt-env-conf-test] - Just a -> do
  17069. 1076.92 s [opt-env-conf-test] - debug
  17070. 1076.92 s [opt-env-conf-test] - [ "set based on config value: ",
  17071. 1076.92 s [opt-env-conf-test] - chunk $ T.pack $ show v
  17072. 1076.92 s [opt-env-conf-test] - ]
  17073. 1076.92 s [opt-env-conf-test] - pure $ Just a
  17074. 1076.92 s [opt-env-conf-test] - let toRes = \case
  17075. 1076.92 s [opt-env-conf-test] - Nothing -> NotFound
  17076. 1076.92 s [opt-env-conf-test] - Just a -> Found a
  17077. 1076.92 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  17078. 1076.92 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  17079. 1076.92 s [opt-env-conf-test] - Just ne -> do
  17080. 1076.92 s [opt-env-conf-test] - res <- goConfSet confSet
  17081. 1076.92 s [opt-env-conf-test] - case res of
  17082. 1076.92 s [opt-env-conf-test] - Just a -> pure $ Found a
  17083. 1076.92 s [opt-env-conf-test] - Nothing -> goConfSets ne
  17084. 1076.92 s [opt-env-conf-test] - goConfSets confSets
  17085. 1076.92 s [opt-env-conf-test] + case mObj of
  17086. 1076.92 s [opt-env-conf-test] + Nothing -> do
  17087. 1076.92 s [opt-env-conf-test] + debug ["no config object to set from"]
  17088. 1076.92 s [opt-env-conf-test] + pure NotFound
  17089. 1076.92 s [opt-env-conf-test] + Just obj -> do
  17090. 1076.92 s [opt-env-conf-test] + let goConfSet ConfigValSetting {..} = do
  17091. 1076.92 s [opt-env-conf-test] + let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  17092. 1076.92 s [opt-env-conf-test] + jsonParser o (k :| rest) = case NE.nonEmpty rest of
  17093. 1076.92 s [opt-env-conf-test] + Nothing -> do
  17094. 1076.93 s [opt-env-conf-test] + case KeyMap.lookup (Key.fromString k) o of
  17095. 1076.93 s [opt-env-conf-test] + Nothing -> pure Nothing
  17096. 1076.93 s [opt-env-conf-test] + Just v -> Just <$> parseJSON v
  17097. 1076.93 s [opt-env-conf-test] + Just neRest -> do
  17098. 1076.93 s [opt-env-conf-test] + mO' <- o .:? Key.fromString k
  17099. 1076.93 s [opt-env-conf-test] + case mO' of
  17100. 1076.93 s [opt-env-conf-test] + Nothing -> pure Nothing
  17101. 1076.93 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  17102. 1076.93 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  17103. 1076.93 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  17104. 1076.93 s [opt-env-conf-test] + Right mV -> case mV of
  17105. 1076.93 s [opt-env-conf-test] + Nothing -> do
  17106. 1076.93 s [opt-env-conf-test] + debug
  17107. 1076.93 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  17108. 1076.93 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  17109. 1076.93 s [opt-env-conf-test] + ]
  17110. 1076.93 s [opt-env-conf-test] + pure Nothing
  17111. 1076.93 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  17112. 1076.93 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  17113. 1076.93 s [opt-env-conf-test] + Right mA -> case mA of
  17114. 1076.93 s [opt-env-conf-test] + Nothing -> do
  17115. 1076.93 s [opt-env-conf-test] + debug
  17116. 1076.93 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  17117. 1076.93 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  17118. 1076.93 s [opt-env-conf-test] + ]
  17119. 1076.93 s [opt-env-conf-test] + pure Nothing
  17120. 1076.93 s [opt-env-conf-test] + Just a -> do
  17121. 1076.93 s [opt-env-conf-test] + debug
  17122. 1076.93 s [opt-env-conf-test] + [ "set based on config value: ",
  17123. 1076.93 s [opt-env-conf-test] + chunk $ T.pack $ show v
  17124. 1076.93 s [opt-env-conf-test] + ]
  17125. 1076.93 s [opt-env-conf-test] + pure $ Just a
  17126. 1076.93 s [opt-env-conf-test] + let toRes = \case
  17127. 1076.93 s [opt-env-conf-test] + Nothing -> NotFound
  17128. 1076.93 s [opt-env-conf-test] + Just a -> Found a
  17129. 1076.93 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  17130. 1076.93 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  17131. 1076.93 s [opt-env-conf-test] + Just ne -> do
  17132. 1076.93 s [opt-env-conf-test] + res <- goConfSet confSet
  17133. 1076.93 s [opt-env-conf-test] + case res of
  17134. 1076.93 s [opt-env-conf-test] + Just a -> pure $ Found a
  17135. 1076.93 s [opt-env-conf-test] + Nothing -> goConfSets ne
  17136. 1076.93 s [opt-env-conf-test] + goConfSets confSets
  17137. 1076.93 s [opt-env-conf-test] case mConf of
  17138. 1076.93 s [opt-env-conf-test] Found a -> do
  17139. 1076.93 s [opt-env-conf-test] markParsed
  17140. 1076.93 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
  17141. 1076.93 s [opt-env-conf-test] @@ -289,16 +289,16 @@
  17142. 1076.93 s [opt-env-conf-test] Nothing -> pure NotRun
  17143. 1076.93 s [opt-env-conf-test] Just a -> do
  17144. 1076.93 s [opt-env-conf-test] mS <- ppSwitch settingDasheds
  17145. 1076.93 s [opt-env-conf-test] - case mS of
  17146. 1076.93 s [opt-env-conf-test] - Nothing -> do
  17147. 1076.93 s [opt-env-conf-test] - debug
  17148. 1076.93 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  17149. 1076.93 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  17150. 1076.93 s [opt-env-conf-test] - ]
  17151. 1076.93 s [opt-env-conf-test] - pure NotFound
  17152. 1076.93 s [opt-env-conf-test] - Just () -> cap $ do
  17153. 1076.93 s [opt-env-conf-test] - debug ["set based on switch."]
  17154. 1076.93 s [opt-env-conf-test] - pure $ Found a
  17155. 1076.93 s [opt-env-conf-test] + case mS of
  17156. 1076.93 s [opt-env-conf-test] + Nothing -> do
  17157. 1076.93 s [opt-env-conf-test] + debug
  17158. 1076.93 s [opt-env-conf-test] + [ "could not set based on switch, no switch: ",
  17159. 1076.93 s [opt-env-conf-test] + chunk $ T.pack $ show $ map renderDashed settingDasheds
  17160. 1076.93 s [opt-env-conf-test] + ]
  17161. 1076.93 s [opt-env-conf-test] + pure NotFound
  17162. 1076.93 s [opt-env-conf-test] + Just () -> cap $ do
  17163. 1076.93 s [opt-env-conf-test] + debug ["set based on switch."]
  17164. 1076.93 s [opt-env-conf-test] + pure $ Found a
  17165. 1076.93 s [opt-env-conf-test]
  17166. 1076.93 s [opt-env-conf-test] case mSwitch of
  17167. 1076.93 s [opt-env-conf-test] Found a -> do
  17168. 1076.93 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:262:16-34
  17169. 1076.93 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  17170. 1076.93 s [opt-env-conf-test] mLoc
  17171. 1076.93 s [opt-env-conf-test] let mOptDoc = settingOptDoc set
  17172. 1076.93 s [opt-env-conf-test] mArg <-
  17173. 1076.93 s [opt-env-conf-test] - if settingTryArgument
  17174. 1076.93 s [opt-env-conf-test] + if not (settingTryArgument)
  17175. 1076.93 s [opt-env-conf-test] then do
  17176. 1076.93 s [opt-env-conf-test] -- Require readers before finding the argument so the parser
  17177. 1076.93 s [opt-env-conf-test] -- always fails if it's missing a reader.
  17178. 1076.93 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
  17179. 1076.93 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  17180. 1076.93 s [opt-env-conf-test] case errOrB of
  17181. 1076.93 s [opt-env-conf-test] Left err -> do
  17182. 1076.93 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  17183. 1076.93 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  17184. 1076.93 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed True err
  17185. 1076.93 s [opt-env-conf-test] Right b -> do
  17186. 1076.93 s [opt-env-conf-test] debug ["succeeded"]
  17187. 1076.93 s [opt-env-conf-test] pure b
  17188. 1076.93 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
  17189. 1076.93 s [opt-env-conf-test] @@ -219,7 +219,7 @@
  17190. 1076.93 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  17191. 1077.05 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  17192. 1077.06 s [opt-env-conf-test] Just c -> do
  17193. 1077.06 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  17194. 1077.06 s [opt-env-conf-test] + debug []
  17195. 1077.06 s [opt-env-conf-test] go $ commandParser c
  17196. 1077.06 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  17197. 1077.06 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  17198. 1077.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
  17199. 1077.06 s [opt-env-conf-test] @@ -135,11 +135,11 @@
  17200. 1077.06 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  17201. 1077.06 s [opt-env-conf-test] ppIndent $ do
  17202. 1077.06 s [opt-env-conf-test] eor <- tryPP $ go p'
  17203. 1077.06 s [opt-env-conf-test] - case eor of
  17204. 1077.06 s [opt-env-conf-test] - Nothing -> pure []
  17205. 1077.06 s [opt-env-conf-test] - Just a -> do
  17206. 1077.06 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  17207. 1077.06 s [opt-env-conf-test] - pure (a : as)
  17208. 1077.06 s [opt-env-conf-test] + case eor of
  17209. 1077.06 s [opt-env-conf-test] + Nothing -> pure []
  17210. 1077.06 s [opt-env-conf-test] + Just a -> do
  17211. 1077.06 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  17212. 1077.06 s [opt-env-conf-test] + pure (a : as)
  17213. 1077.06 s [opt-env-conf-test] ParserSome mLoc p' -> do
  17214. 1077.06 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  17215. 1077.06 s [opt-env-conf-test] ppIndent $ do
  17216. 1077.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17217. 1077.06 s [opt-env-conf-test] @@ -143,69 +143,69 @@
  17218. 1077.06 s [opt-env-conf-test] in case firstArg of
  17219. 1077.06 s [opt-env-conf-test] -- Skip any dead argument
  17220. 1077.06 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17221. 1077.06 s [opt-env-conf-test] - Live a -> case a of
  17222. 1077.06 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17223. 1077.06 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17224. 1077.06 s [opt-env-conf-test] - -- A single dash is always an argument
  17225. 1077.06 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17226. 1077.06 s [opt-env-conf-test] - -- Bare double-dash
  17227. 1077.06 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17228. 1077.06 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17229. 1077.06 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17230. 1077.06 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17231. 1077.06 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17232. 1077.06 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17233. 1077.06 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17234. 1077.06 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17235. 1077.06 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17236. 1077.06 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17237. 1077.06 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17238. 1077.06 s [opt-env-conf-test] - -- pop the args as they come.
  17239. 1077.06 s [opt-env-conf-test] - _ ->
  17240. 1077.06 s [opt-env-conf-test] - let go = \case
  17241. 1077.06 s [opt-env-conf-test] - [] -> Nothing
  17242. 1077.06 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17243. 1077.06 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17244. 1077.06 s [opt-env-conf-test] - in case go afters of
  17245. 1077.06 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17246. 1077.06 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17247. 1077.06 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17248. 1077.06 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17249. 1077.06 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17250. 1077.06 s [opt-env-conf-test] - -- arguments.
  17251. 1077.07 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17252. 1077.07 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17253. 1077.07 s [opt-env-conf-test] - )
  17254. 1077.07 s [opt-env-conf-test] - ]
  17255. 1077.07 s [opt-env-conf-test] - ArgDashed {} ->
  17256. 1077.07 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17257. 1077.07 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17258. 1077.07 s [opt-env-conf-test] - -- * The dashed is an argument
  17259. 1077.07 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17260. 1077.07 s [opt-env-conf-test] - let switchCase =
  17261. 1077.07 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17262. 1077.07 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17263. 1077.07 s [opt-env-conf-test] - ]
  17264. 1077.07 s [opt-env-conf-test] - in case afters of
  17265. 1077.07 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17266. 1077.07 s [opt-env-conf-test] - [] -> switchCase
  17267. 1077.07 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17268. 1077.07 s [opt-env-conf-test] - (Live a' : rest) ->
  17269. 1077.07 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17270. 1077.07 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17271. 1077.07 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17272. 1077.07 s [opt-env-conf-test] - -- * The dashed is an argument
  17273. 1077.07 s [opt-env-conf-test] - ( case a' of
  17274. 1077.07 s [opt-env-conf-test] - ArgDashed {} ->
  17275. 1077.07 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17276. 1077.07 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17277. 1077.07 s [opt-env-conf-test] - ]
  17278. 1077.07 s [opt-env-conf-test] - _ ->
  17279. 1077.07 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17280. 1077.07 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17281. 1077.07 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17282. 1077.07 s [opt-env-conf-test] - ]
  17283. 1077.07 s [opt-env-conf-test] - )
  17284. 1077.07 s [opt-env-conf-test] + Live a -> case a of
  17285. 1077.07 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17286. 1077.07 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17287. 1077.07 s [opt-env-conf-test] + -- A single dash is always an argument
  17288. 1077.07 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17289. 1077.07 s [opt-env-conf-test] + -- Bare double-dash
  17290. 1077.07 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17291. 1077.07 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17292. 1077.07 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17293. 1077.07 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17294. 1077.07 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17295. 1077.07 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17296. 1077.07 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17297. 1077.07 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17298. 1077.07 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17299. 1077.07 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17300. 1077.07 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17301. 1077.07 s [opt-env-conf-test] + -- pop the args as they come.
  17302. 1077.07 s [opt-env-conf-test] + _ ->
  17303. 1077.07 s [opt-env-conf-test] + let go = \case
  17304. 1077.07 s [opt-env-conf-test] + [] -> Nothing
  17305. 1077.07 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17306. 1077.07 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17307. 1077.07 s [opt-env-conf-test] + in case go afters of
  17308. 1077.07 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17309. 1077.07 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17310. 1077.07 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17311. 1077.07 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17312. 1077.07 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17313. 1077.07 s [opt-env-conf-test] + -- arguments.
  17314. 1077.07 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17315. 1077.07 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17316. 1077.07 s [opt-env-conf-test] + )
  17317. 1077.07 s [opt-env-conf-test] + ]
  17318. 1077.07 s [opt-env-conf-test] + ArgDashed {} ->
  17319. 1077.07 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  17320. 1077.07 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  17321. 1077.08 s [opt-env-conf-test] + -- * The dashed is an argument
  17322. 1077.08 s [opt-env-conf-test] + -- TODO we need to continue looking too
  17323. 1077.08 s [opt-env-conf-test] + let switchCase =
  17324. 1077.08 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  17325. 1077.08 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17326. 1077.08 s [opt-env-conf-test] + ]
  17327. 1077.08 s [opt-env-conf-test] + in case afters of
  17328. 1077.08 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17329. 1077.08 s [opt-env-conf-test] + [] -> switchCase
  17330. 1077.08 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17331. 1077.08 s [opt-env-conf-test] + (Live a' : rest) ->
  17332. 1077.08 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17333. 1077.08 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17334. 1077.08 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17335. 1077.08 s [opt-env-conf-test] + -- * The dashed is an argument
  17336. 1077.08 s [opt-env-conf-test] + ( case a' of
  17337. 1077.08 s [opt-env-conf-test] + ArgDashed {} ->
  17338. 1077.08 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17339. 1077.17 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17340. 1077.17 s [opt-env-conf-test] + ]
  17341. 1077.17 s [opt-env-conf-test] + _ ->
  17342. 1077.17 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17343. 1077.17 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17344. 1077.17 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17345. 1077.17 s [opt-env-conf-test] + ]
  17346. 1077.17 s [opt-env-conf-test] + )
  17347. 1077.17 s [opt-env-conf-test]
  17348. 1077.17 s [opt-env-conf-test] -- | Consume an option.
  17349. 1077.17 s [opt-env-conf-test] --
  17350. 1077.17 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
  17351. 1077.17 s [opt-env-conf-test] @@ -135,77 +135,77 @@
  17352. 1077.17 s [opt-env-conf-test] Nothing -> r
  17353. 1077.17 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  17354. 1077.17 s [opt-env-conf-test]
  17355. 1077.17 s [opt-env-conf-test] - addConsumeNothing $ case argsAfter as of
  17356. 1077.17 s [opt-env-conf-test] - [] -> []
  17357. 1077.17 s [opt-env-conf-test] - (firstArg : afters) ->
  17358. 1077.17 s [opt-env-conf-test] - let befores = argsBefore as
  17359. 1077.17 s [opt-env-conf-test] - consumed = Args (befores ++ [Dead]) afters
  17360. 1077.17 s [opt-env-conf-test] - in case firstArg of
  17361. 1077.17 s [opt-env-conf-test] - -- Skip any dead argument
  17362. 1077.17 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  17363. 1077.17 s [opt-env-conf-test] - Live a -> case a of
  17364. 1077.18 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17365. 1077.18 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17366. 1077.18 s [opt-env-conf-test] - -- A single dash is always an argument
  17367. 1077.18 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17368. 1077.18 s [opt-env-conf-test] - -- Bare double-dash
  17369. 1077.18 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17370. 1077.18 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17371. 1077.18 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17372. 1077.18 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17373. 1077.18 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17374. 1077.18 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17375. 1077.18 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17376. 1077.18 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17377. 1077.18 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17378. 1077.18 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17379. 1077.18 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17380. 1077.18 s [opt-env-conf-test] - -- pop the args as they come.
  17381. 1077.18 s [opt-env-conf-test] - _ ->
  17382. 1077.18 s [opt-env-conf-test] - let go = \case
  17383. 1077.18 s [opt-env-conf-test] - [] -> Nothing
  17384. 1077.18 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17385. 1077.18 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17386. 1077.18 s [opt-env-conf-test] - in case go afters of
  17387. 1077.18 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17388. 1077.18 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17389. 1077.18 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17390. 1077.18 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17391. 1077.18 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17392. 1077.18 s [opt-env-conf-test] - -- arguments.
  17393. 1077.18 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17394. 1077.18 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17395. 1077.18 s [opt-env-conf-test] - )
  17396. 1077.18 s [opt-env-conf-test] - ]
  17397. 1077.18 s [opt-env-conf-test] - ArgDashed {} ->
  17398. 1077.18 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17399. 1077.18 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17400. 1077.18 s [opt-env-conf-test] - -- * The dashed is an argument
  17401. 1077.18 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17402. 1077.18 s [opt-env-conf-test] - let switchCase =
  17403. 1077.18 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17404. 1077.18 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17405. 1077.18 s [opt-env-conf-test] - ]
  17406. 1077.18 s [opt-env-conf-test] - in case afters of
  17407. 1077.18 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17408. 1077.18 s [opt-env-conf-test] - [] -> switchCase
  17409. 1077.18 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17410. 1077.18 s [opt-env-conf-test] - (Live a' : rest) ->
  17411. 1077.18 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17412. 1077.18 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17413. 1077.18 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17414. 1077.18 s [opt-env-conf-test] - -- * The dashed is an argument
  17415. 1077.18 s [opt-env-conf-test] - ( case a' of
  17416. 1077.18 s [opt-env-conf-test] - ArgDashed {} ->
  17417. 1077.18 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17418. 1077.18 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17419. 1077.18 s [opt-env-conf-test] - ]
  17420. 1077.18 s [opt-env-conf-test] - _ ->
  17421. 1077.18 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17422. 1077.18 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17423. 1077.18 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17424. 1077.18 s [opt-env-conf-test] - ]
  17425. 1077.18 s [opt-env-conf-test] - )
  17426. 1077.18 s [opt-env-conf-test] + addConsumeNothing $ case argsAfter as of
  17427. 1077.18 s [opt-env-conf-test] + [] -> []
  17428. 1077.18 s [opt-env-conf-test] + (firstArg : afters) ->
  17429. 1077.18 s [opt-env-conf-test] + let befores = argsBefore as
  17430. 1077.18 s [opt-env-conf-test] + consumed = Args (befores ++ [Dead]) afters
  17431. 1077.18 s [opt-env-conf-test] + in case firstArg of
  17432. 1077.18 s [opt-env-conf-test] + -- Skip any dead argument
  17433. 1077.18 s [opt-env-conf-test] + Dead -> consumeArgument consumed
  17434. 1077.18 s [opt-env-conf-test] + Live a -> case a of
  17435. 1077.18 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17436. 1077.18 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17437. 1077.18 s [opt-env-conf-test] + -- A single dash is always an argument
  17438. 1077.18 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17439. 1077.18 s [opt-env-conf-test] + -- Bare double-dash
  17440. 1077.18 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17441. 1077.18 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17442. 1077.18 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17443. 1077.18 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17444. 1077.18 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17445. 1077.18 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17446. 1077.18 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17447. 1077.18 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17448. 1077.18 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17449. 1077.18 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17450. 1077.18 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17451. 1077.18 s [opt-env-conf-test] + -- pop the args as they come.
  17452. 1077.18 s [opt-env-conf-test] + _ ->
  17453. 1077.18 s [opt-env-conf-test] + let go = \case
  17454. 1077.18 s [opt-env-conf-test] + [] -> Nothing
  17455. 1077.18 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17456. 1077.18 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17457. 1077.18 s [opt-env-conf-test] + in case go afters of
  17458. 1077.18 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17459. 1077.18 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17460. 1077.18 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17461. 1077.18 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17462. 1077.18 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17463. 1077.18 s [opt-env-conf-test] + -- arguments.
  17464. 1077.18 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17465. 1077.18 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17466. 1077.18 s [opt-env-conf-test] + )
  17467. 1077.18 s [opt-env-conf-test] + ]
  17468. 1077.18 s [opt-env-conf-test] + ArgDashed {} ->
  17469. 1077.18 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  17470. 1077.18 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  17471. 1077.18 s [opt-env-conf-test] + -- * The dashed is an argument
  17472. 1077.18 s [opt-env-conf-test] + -- TODO we need to continue looking too
  17473. 1077.18 s [opt-env-conf-test] + let switchCase =
  17474. 1077.18 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  17475. 1077.18 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17476. 1077.18 s [opt-env-conf-test] + ]
  17477. 1077.18 s [opt-env-conf-test] + in case afters of
  17478. 1077.19 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17479. 1077.19 s [opt-env-conf-test] + [] -> switchCase
  17480. 1077.19 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17481. 1077.19 s [opt-env-conf-test] + (Live a' : rest) ->
  17482. 1077.19 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17483. 1077.19 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17484. 1077.19 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17485. 1077.19 s [opt-env-conf-test] + -- * The dashed is an argument
  17486. 1077.19 s [opt-env-conf-test] + ( case a' of
  17487. 1077.19 s [opt-env-conf-test] + ArgDashed {} ->
  17488. 1077.19 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17489. 1077.29 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17490. 1077.29 s [opt-env-conf-test] + ]
  17491. 1077.29 s [opt-env-conf-test] + _ ->
  17492. 1077.29 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17493. 1077.30 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17494. 1077.30 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17495. 1077.30 s [opt-env-conf-test] + ]
  17496. 1077.30 s [opt-env-conf-test] + )
  17497. 1077.30 s [opt-env-conf-test]
  17498. 1077.30 s [opt-env-conf-test] -- | Consume an option.
  17499. 1077.30 s [opt-env-conf-test] --
  17500. 1077.30 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
  17501. 1077.30 s [opt-env-conf-test] @@ -140,72 +140,72 @@
  17502. 1077.30 s [opt-env-conf-test] (firstArg : afters) ->
  17503. 1077.30 s [opt-env-conf-test] let befores = argsBefore as
  17504. 1077.30 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  17505. 1077.30 s [opt-env-conf-test] - in case firstArg of
  17506. 1077.30 s [opt-env-conf-test] - -- Skip any dead argument
  17507. 1077.30 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  17508. 1077.30 s [opt-env-conf-test] - Live a -> case a of
  17509. 1077.30 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17510. 1077.30 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17511. 1077.30 s [opt-env-conf-test] - -- A single dash is always an argument
  17512. 1077.30 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17513. 1077.30 s [opt-env-conf-test] - -- Bare double-dash
  17514. 1077.30 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17515. 1077.30 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17516. 1077.30 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17517. 1077.30 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17518. 1077.30 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17519. 1077.30 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17520. 1077.30 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17521. 1077.30 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17522. 1077.30 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17523. 1077.30 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17524. 1077.30 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17525. 1077.30 s [opt-env-conf-test] - -- pop the args as they come.
  17526. 1077.30 s [opt-env-conf-test] - _ ->
  17527. 1077.30 s [opt-env-conf-test] - let go = \case
  17528. 1077.30 s [opt-env-conf-test] - [] -> Nothing
  17529. 1077.30 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17530. 1077.30 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17531. 1077.30 s [opt-env-conf-test] - in case go afters of
  17532. 1077.30 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17533. 1077.30 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17534. 1077.30 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17535. 1077.30 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17536. 1077.30 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17537. 1077.30 s [opt-env-conf-test] - -- arguments.
  17538. 1077.30 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17539. 1077.30 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17540. 1077.30 s [opt-env-conf-test] - )
  17541. 1077.30 s [opt-env-conf-test] - ]
  17542. 1077.30 s [opt-env-conf-test] - ArgDashed {} ->
  17543. 1077.30 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17544. 1077.30 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17545. 1077.30 s [opt-env-conf-test] - -- * The dashed is an argument
  17546. 1077.30 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17547. 1077.30 s [opt-env-conf-test] - let switchCase =
  17548. 1077.30 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17549. 1077.30 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17550. 1077.30 s [opt-env-conf-test] - ]
  17551. 1077.30 s [opt-env-conf-test] - in case afters of
  17552. 1077.30 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17553. 1077.30 s [opt-env-conf-test] - [] -> switchCase
  17554. 1077.30 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17555. 1077.30 s [opt-env-conf-test] - (Live a' : rest) ->
  17556. 1077.30 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17557. 1077.30 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17558. 1077.30 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17559. 1077.30 s [opt-env-conf-test] - -- * The dashed is an argument
  17560. 1077.31 s [opt-env-conf-test] - ( case a' of
  17561. 1077.31 s [opt-env-conf-test] - ArgDashed {} ->
  17562. 1077.31 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17563. 1077.31 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17564. 1077.31 s [opt-env-conf-test] - ]
  17565. 1077.31 s [opt-env-conf-test] - _ ->
  17566. 1077.31 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17567. 1077.31 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17568. 1077.31 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17569. 1077.31 s [opt-env-conf-test] - ]
  17570. 1077.31 s [opt-env-conf-test] - )
  17571. 1077.31 s [opt-env-conf-test] + in case firstArg of
  17572. 1077.31 s [opt-env-conf-test] + -- Skip any dead argument
  17573. 1077.31 s [opt-env-conf-test] + Dead -> consumeArgument consumed
  17574. 1077.31 s [opt-env-conf-test] + Live a -> case a of
  17575. 1077.31 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17576. 1077.31 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17577. 1077.31 s [opt-env-conf-test] + -- A single dash is always an argument
  17578. 1077.31 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17579. 1077.31 s [opt-env-conf-test] + -- Bare double-dash
  17580. 1077.31 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17581. 1077.31 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17582. 1077.31 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17583. 1077.31 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17584. 1077.31 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17585. 1077.31 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17586. 1077.31 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17587. 1077.31 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17588. 1077.31 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17589. 1077.31 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17590. 1077.31 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17591. 1077.31 s [opt-env-conf-test] + -- pop the args as they come.
  17592. 1077.31 s [opt-env-conf-test] + _ ->
  17593. 1077.31 s [opt-env-conf-test] + let go = \case
  17594. 1077.31 s [opt-env-conf-test] + [] -> Nothing
  17595. 1077.31 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17596. 1077.31 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17597. 1077.31 s [opt-env-conf-test] + in case go afters of
  17598. 1077.31 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17599. 1077.31 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17600. 1077.31 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17601. 1077.31 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17602. 1077.31 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17603. 1077.31 s [opt-env-conf-test] + -- arguments.
  17604. 1077.31 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17605. 1077.31 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17606. 1077.31 s [opt-env-conf-test] + )
  17607. 1077.31 s [opt-env-conf-test] + ]
  17608. 1077.31 s [opt-env-conf-test] + ArgDashed {} ->
  17609. 1077.31 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  17610. 1077.31 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  17611. 1077.31 s [opt-env-conf-test] + -- * The dashed is an argument
  17612. 1077.31 s [opt-env-conf-test] + -- TODO we need to continue looking too
  17613. 1077.31 s [opt-env-conf-test] + let switchCase =
  17614. 1077.31 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  17615. 1077.31 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17616. 1077.31 s [opt-env-conf-test] + ]
  17617. 1077.31 s [opt-env-conf-test] + in case afters of
  17618. 1077.31 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17619. 1077.31 s [opt-env-conf-test] + [] -> switchCase
  17620. 1077.31 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17621. 1077.31 s [opt-env-conf-test] + (Live a' : rest) ->
  17622. 1077.31 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17623. 1077.31 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17624. 1077.31 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17625. 1077.31 s [opt-env-conf-test] + -- * The dashed is an argument
  17626. 1077.31 s [opt-env-conf-test] + ( case a' of
  17627. 1077.31 s [opt-env-conf-test] + ArgDashed {} ->
  17628. 1077.31 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17629. 1077.31 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17630. 1077.31 s [opt-env-conf-test] + ]
  17631. 1077.31 s [opt-env-conf-test] + _ ->
  17632. 1077.31 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17633. 1077.44 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17634. 1077.44 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17635. 1077.44 s [opt-env-conf-test] + ]
  17636. 1077.44 s [opt-env-conf-test] + )
  17637. 1077.44 s [opt-env-conf-test]
  17638. 1077.44 s [opt-env-conf-test] -- | Consume an option.
  17639. 1077.44 s [opt-env-conf-test] --
  17640. 1077.44 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17641. 1077.44 s [opt-env-conf-test] @@ -143,69 +143,69 @@
  17642. 1077.44 s [opt-env-conf-test] in case firstArg of
  17643. 1077.44 s [opt-env-conf-test] -- Skip any dead argument
  17644. 1077.44 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17645. 1077.44 s [opt-env-conf-test] - Live a -> case a of
  17646. 1077.44 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17647. 1077.44 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17648. 1077.44 s [opt-env-conf-test] - -- A single dash is always an argument
  17649. 1077.44 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17650. 1077.44 s [opt-env-conf-test] - -- Bare double-dash
  17651. 1077.44 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17652. 1077.44 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17653. 1077.44 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17654. 1077.44 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17655. 1077.44 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17656. 1077.44 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17657. 1077.44 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17658. 1077.44 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17659. 1077.44 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17660. 1077.44 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17661. 1077.44 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17662. 1077.45 s [opt-env-conf-test] - -- pop the args as they come.
  17663. 1077.45 s [opt-env-conf-test] - _ ->
  17664. 1077.45 s [opt-env-conf-test] - let go = \case
  17665. 1077.45 s [opt-env-conf-test] - [] -> Nothing
  17666. 1077.45 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17667. 1077.45 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17668. 1077.45 s [opt-env-conf-test] - in case go afters of
  17669. 1077.45 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17670. 1077.45 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17671. 1077.45 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17672. 1077.45 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17673. 1077.45 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17674. 1077.45 s [opt-env-conf-test] - -- arguments.
  17675. 1077.45 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17676. 1077.45 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17677. 1077.45 s [opt-env-conf-test] - )
  17678. 1077.45 s [opt-env-conf-test] - ]
  17679. 1077.45 s [opt-env-conf-test] - ArgDashed {} ->
  17680. 1077.45 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17681. 1077.45 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17682. 1077.45 s [opt-env-conf-test] - -- * The dashed is an argument
  17683. 1077.45 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17684. 1077.45 s [opt-env-conf-test] - let switchCase =
  17685. 1077.45 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17686. 1077.45 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17687. 1077.45 s [opt-env-conf-test] - ]
  17688. 1077.45 s [opt-env-conf-test] - in case afters of
  17689. 1077.45 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17690. 1077.45 s [opt-env-conf-test] - [] -> switchCase
  17691. 1077.45 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17692. 1077.45 s [opt-env-conf-test] - (Live a' : rest) ->
  17693. 1077.45 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17694. 1077.45 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17695. 1077.45 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17696. 1077.45 s [opt-env-conf-test] - -- * The dashed is an argument
  17697. 1077.45 s [opt-env-conf-test] - ( case a' of
  17698. 1077.45 s [opt-env-conf-test] - ArgDashed {} ->
  17699. 1077.45 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17700. 1077.45 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17701. 1077.45 s [opt-env-conf-test] - ]
  17702. 1077.45 s [opt-env-conf-test] - _ ->
  17703. 1077.45 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17704. 1077.45 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17705. 1077.45 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17706. 1077.45 s [opt-env-conf-test] - ]
  17707. 1077.45 s [opt-env-conf-test] - )
  17708. 1077.45 s [opt-env-conf-test] + Live a -> case a of
  17709. 1077.45 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17710. 1077.45 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17711. 1077.45 s [opt-env-conf-test] + -- A single dash is always an argument
  17712. 1077.45 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17713. 1077.45 s [opt-env-conf-test] + -- Bare double-dash
  17714. 1077.45 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17715. 1077.45 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17716. 1077.45 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17717. 1077.45 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17718. 1077.45 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17719. 1077.45 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17720. 1077.45 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17721. 1077.45 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17722. 1077.45 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17723. 1077.45 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17724. 1077.45 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17725. 1077.45 s [opt-env-conf-test] + -- pop the args as they come.
  17726. 1077.45 s [opt-env-conf-test] + _ ->
  17727. 1077.45 s [opt-env-conf-test] + let go = \case
  17728. 1077.45 s [opt-env-conf-test] + [] -> Nothing
  17729. 1077.46 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17730. 1077.46 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17731. 1077.46 s [opt-env-conf-test] + in case go afters of
  17732. 1077.46 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17733. 1077.46 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17734. 1077.46 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17735. 1077.46 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17736. 1077.46 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17737. 1077.46 s [opt-env-conf-test] + -- arguments.
  17738. 1077.46 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17739. 1077.46 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17740. 1077.46 s [opt-env-conf-test] + )
  17741. 1077.46 s [opt-env-conf-test] + ]
  17742. 1077.46 s [opt-env-conf-test] + ArgDashed {} ->
  17743. 1077.46 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  17744. 1077.46 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  17745. 1077.46 s [opt-env-conf-test] + -- * The dashed is an argument
  17746. 1077.46 s [opt-env-conf-test] + -- TODO we need to continue looking too
  17747. 1077.46 s [opt-env-conf-test] + let switchCase =
  17748. 1077.46 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  17749. 1077.46 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17750. 1077.46 s [opt-env-conf-test] + ]
  17751. 1077.46 s [opt-env-conf-test] + in case afters of
  17752. 1077.46 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17753. 1077.46 s [opt-env-conf-test] + [] -> switchCase
  17754. 1077.46 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17755. 1077.46 s [opt-env-conf-test] + (Live a' : rest) ->
  17756. 1077.46 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17757. 1077.46 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17758. 1077.46 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17759. 1077.46 s [opt-env-conf-test] + -- * The dashed is an argument
  17760. 1077.46 s [opt-env-conf-test] + ( case a' of
  17761. 1077.46 s [opt-env-conf-test] + ArgDashed {} ->
  17762. 1077.46 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17763. 1077.46 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17764. 1077.46 s [opt-env-conf-test] + ]
  17765. 1077.46 s [opt-env-conf-test] + _ ->
  17766. 1077.46 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17767. 1077.46 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17768. 1077.46 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17769. 1077.46 s [opt-env-conf-test] + ]
  17770. 1077.46 s [opt-env-conf-test] + )
  17771. 1077.46 s [opt-env-conf-test]
  17772. 1077.46 s [opt-env-conf-test] -- | Consume an option.
  17773. 1077.46 s [opt-env-conf-test] --
  17774. 1077.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17775. 1077.46 s [opt-env-conf-test] @@ -143,69 +143,69 @@
  17776. 1077.46 s [opt-env-conf-test] in case firstArg of
  17777. 1077.46 s [opt-env-conf-test] -- Skip any dead argument
  17778. 1077.46 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17779. 1077.46 s [opt-env-conf-test] - Live a -> case a of
  17780. 1077.46 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17781. 1078.04 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17782. 1078.04 s [opt-env-conf-test] - -- A single dash is always an argument
  17783. 1078.04 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17784. 1078.04 s [opt-env-conf-test] - -- Bare double-dash
  17785. 1078.04 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17786. 1078.04 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17787. 1078.04 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17788. 1078.04 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17789. 1078.04 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17790. 1078.04 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17791. 1078.04 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17792. 1078.04 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17793. 1078.04 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17794. 1078.04 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17795. 1078.04 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17796. 1078.04 s [opt-env-conf-test] - -- pop the args as they come.
  17797. 1078.04 s [opt-env-conf-test] - _ ->
  17798. 1078.04 s [opt-env-conf-test] - let go = \case
  17799. 1078.04 s [opt-env-conf-test] - [] -> Nothing
  17800. 1078.04 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17801. 1078.04 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17802. 1078.04 s [opt-env-conf-test] - in case go afters of
  17803. 1078.04 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17804. 1078.04 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17805. 1078.04 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17806. 1078.04 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17807. 1078.04 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17808. 1078.04 s [opt-env-conf-test] - -- arguments.
  17809. 1078.04 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17810. 1078.04 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17811. 1078.04 s [opt-env-conf-test] - )
  17812. 1078.04 s [opt-env-conf-test] - ]
  17813. 1078.04 s [opt-env-conf-test] - ArgDashed {} ->
  17814. 1078.04 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17815. 1078.04 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17816. 1078.04 s [opt-env-conf-test] - -- * The dashed is an argument
  17817. 1078.04 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17818. 1078.04 s [opt-env-conf-test] - let switchCase =
  17819. 1078.04 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17820. 1078.04 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17821. 1078.04 s [opt-env-conf-test] - ]
  17822. 1078.04 s [opt-env-conf-test] - in case afters of
  17823. 1078.04 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17824. 1078.04 s [opt-env-conf-test] - [] -> switchCase
  17825. 1078.04 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17826. 1078.04 s [opt-env-conf-test] - (Live a' : rest) ->
  17827. 1078.04 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17828. 1078.04 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17829. 1078.04 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17830. 1078.04 s [opt-env-conf-test] - -- * The dashed is an argument
  17831. 1078.04 s [opt-env-conf-test] - ( case a' of
  17832. 1078.04 s [opt-env-conf-test] - ArgDashed {} ->
  17833. 1078.04 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17834. 1078.04 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17835. 1078.04 s [opt-env-conf-test] - ]
  17836. 1078.04 s [opt-env-conf-test] - _ ->
  17837. 1078.04 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17838. 1078.04 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17839. 1078.04 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17840. 1078.04 s [opt-env-conf-test] - ]
  17841. 1078.04 s [opt-env-conf-test] - )
  17842. 1078.04 s [opt-env-conf-test] + Live a -> case a of
  17843. 1078.05 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17844. 1078.05 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17845. 1078.05 s [opt-env-conf-test] + -- A single dash is always an argument
  17846. 1078.05 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17847. 1078.05 s [opt-env-conf-test] + -- Bare double-dash
  17848. 1078.05 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17849. 1078.05 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17850. 1078.05 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17851. 1078.05 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17852. 1078.05 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17853. 1078.05 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17854. 1078.05 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17855. 1078.05 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17856. 1078.05 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17857. 1078.05 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17858. 1078.05 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17859. 1078.05 s [opt-env-conf-test] + -- pop the args as they come.
  17860. 1078.05 s [opt-env-conf-test] + _ ->
  17861. 1078.05 s [opt-env-conf-test] + let go = \case
  17862. 1078.05 s [opt-env-conf-test] + [] -> Nothing
  17863. 1078.05 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17864. 1078.05 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17865. 1078.05 s [opt-env-conf-test] + in case go afters of
  17866. 1078.05 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  17867. 1078.05 s [opt-env-conf-test] + Just (firstLive, rest) ->
  17868. 1078.05 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  17869. 1078.05 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  17870. 1078.05 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  17871. 1078.05 s [opt-env-conf-test] + -- arguments.
  17872. 1078.05 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  17873. 1078.05 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  17874. 1078.05 s [opt-env-conf-test] + )
  17875. 1078.05 s [opt-env-conf-test] + ]
  17876. 1078.05 s [opt-env-conf-test] + ArgDashed {} ->
  17877. 1078.05 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  17878. 1078.05 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  17879. 1078.05 s [opt-env-conf-test] + -- * The dashed is an argument
  17880. 1078.05 s [opt-env-conf-test] + -- TODO we need to continue looking too
  17881. 1078.05 s [opt-env-conf-test] + let switchCase =
  17882. 1078.05 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  17883. 1078.05 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17884. 1078.05 s [opt-env-conf-test] + ]
  17885. 1078.05 s [opt-env-conf-test] + in case afters of
  17886. 1078.05 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  17887. 1078.05 s [opt-env-conf-test] + [] -> switchCase
  17888. 1078.05 s [opt-env-conf-test] + (Dead : _) -> switchCase
  17889. 1078.05 s [opt-env-conf-test] + (Live a' : rest) ->
  17890. 1078.05 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  17891. 1078.05 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  17892. 1078.05 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  17893. 1078.05 s [opt-env-conf-test] + -- * The dashed is an argument
  17894. 1078.05 s [opt-env-conf-test] + ( case a' of
  17895. 1078.05 s [opt-env-conf-test] + ArgDashed {} ->
  17896. 1078.05 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  17897. 1078.05 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  17898. 1078.05 s [opt-env-conf-test] + ]
  17899. 1078.05 s [opt-env-conf-test] + _ ->
  17900. 1078.05 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17901. 1078.05 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17902. 1078.05 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  17903. 1078.05 s [opt-env-conf-test] + ]
  17904. 1078.05 s [opt-env-conf-test] + )
  17905. 1078.05 s [opt-env-conf-test]
  17906. 1078.05 s [opt-env-conf-test] -- | Consume an option.
  17907. 1078.05 s [opt-env-conf-test] --
  17908. 1078.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17909. 1078.05 s [opt-env-conf-test] @@ -143,69 +143,69 @@
  17910. 1078.05 s [opt-env-conf-test] in case firstArg of
  17911. 1078.05 s [opt-env-conf-test] -- Skip any dead argument
  17912. 1078.05 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17913. 1078.05 s [opt-env-conf-test] - Live a -> case a of
  17914. 1078.05 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  17915. 1078.05 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17916. 1078.05 s [opt-env-conf-test] - -- A single dash is always an argument
  17917. 1078.05 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17918. 1078.05 s [opt-env-conf-test] - -- Bare double-dash
  17919. 1078.05 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17920. 1078.05 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17921. 1078.05 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17922. 1078.05 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17923. 1078.05 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17924. 1078.46 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17925. 1078.46 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17926. 1078.46 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17927. 1078.46 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17928. 1078.46 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17929. 1078.47 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17930. 1078.47 s [opt-env-conf-test] - -- pop the args as they come.
  17931. 1078.47 s [opt-env-conf-test] - _ ->
  17932. 1078.47 s [opt-env-conf-test] - let go = \case
  17933. 1078.47 s [opt-env-conf-test] - [] -> Nothing
  17934. 1078.47 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17935. 1078.47 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17936. 1078.47 s [opt-env-conf-test] - in case go afters of
  17937. 1078.47 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17938. 1078.47 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17939. 1078.47 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17940. 1078.47 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17941. 1078.47 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17942. 1078.47 s [opt-env-conf-test] - -- arguments.
  17943. 1078.47 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17944. 1078.47 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17945. 1078.47 s [opt-env-conf-test] - )
  17946. 1078.47 s [opt-env-conf-test] - ]
  17947. 1078.47 s [opt-env-conf-test] - ArgDashed {} ->
  17948. 1078.47 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  17949. 1078.47 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  17950. 1078.47 s [opt-env-conf-test] - -- * The dashed is an argument
  17951. 1078.47 s [opt-env-conf-test] - -- TODO we need to continue looking too
  17952. 1078.47 s [opt-env-conf-test] - let switchCase =
  17953. 1078.47 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  17954. 1078.47 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17955. 1078.47 s [opt-env-conf-test] - ]
  17956. 1078.47 s [opt-env-conf-test] - in case afters of
  17957. 1078.47 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  17958. 1078.47 s [opt-env-conf-test] - [] -> switchCase
  17959. 1078.47 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17960. 1078.47 s [opt-env-conf-test] - (Live a' : rest) ->
  17961. 1078.47 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  17962. 1078.47 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  17963. 1078.47 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  17964. 1078.47 s [opt-env-conf-test] - -- * The dashed is an argument
  17965. 1078.47 s [opt-env-conf-test] - ( case a' of
  17966. 1078.47 s [opt-env-conf-test] - ArgDashed {} ->
  17967. 1078.47 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  17968. 1078.47 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17969. 1078.47 s [opt-env-conf-test] - ]
  17970. 1078.47 s [opt-env-conf-test] - _ ->
  17971. 1078.47 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17972. 1078.47 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17973. 1078.47 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  17974. 1078.47 s [opt-env-conf-test] - ]
  17975. 1078.47 s [opt-env-conf-test] - )
  17976. 1078.47 s [opt-env-conf-test] + Live a -> case a of
  17977. 1078.47 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  17978. 1078.47 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  17979. 1078.47 s [opt-env-conf-test] + -- A single dash is always an argument
  17980. 1078.47 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  17981. 1078.47 s [opt-env-conf-test] + -- Bare double-dash
  17982. 1078.47 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  17983. 1078.47 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  17984. 1078.47 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  17985. 1078.47 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  17986. 1078.48 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  17987. 1078.48 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  17988. 1078.48 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17989. 1078.48 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  17990. 1078.48 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  17991. 1078.48 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  17992. 1078.48 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  17993. 1078.48 s [opt-env-conf-test] + -- pop the args as they come.
  17994. 1078.48 s [opt-env-conf-test] + _ ->
  17995. 1078.48 s [opt-env-conf-test] + let go = \case
  17996. 1078.48 s [opt-env-conf-test] + [] -> Nothing
  17997. 1078.48 s [opt-env-conf-test] + (Dead : rest) -> go rest
  17998. 1078.48 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  17999. 1078.48 s [opt-env-conf-test] + in case go afters of
  18000. 1078.48 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  18001. 1078.48 s [opt-env-conf-test] + Just (firstLive, rest) ->
  18002. 1078.48 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  18003. 1078.48 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  18004. 1078.48 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  18005. 1078.48 s [opt-env-conf-test] + -- arguments.
  18006. 1078.48 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  18007. 1078.48 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  18008. 1078.48 s [opt-env-conf-test] + )
  18009. 1078.48 s [opt-env-conf-test] + ]
  18010. 1078.48 s [opt-env-conf-test] + ArgDashed {} ->
  18011. 1078.48 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  18012. 1078.48 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  18013. 1078.48 s [opt-env-conf-test] + -- * The dashed is an argument
  18014. 1078.48 s [opt-env-conf-test] + -- TODO we need to continue looking too
  18015. 1078.48 s [opt-env-conf-test] + let switchCase =
  18016. 1078.48 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  18017. 1078.48 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18018. 1078.48 s [opt-env-conf-test] + ]
  18019. 1078.48 s [opt-env-conf-test] + in case afters of
  18020. 1078.48 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  18021. 1078.48 s [opt-env-conf-test] + [] -> switchCase
  18022. 1078.48 s [opt-env-conf-test] + (Dead : _) -> switchCase
  18023. 1078.48 s [opt-env-conf-test] + (Live a' : rest) ->
  18024. 1078.48 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  18025. 1078.48 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  18026. 1078.48 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  18027. 1078.48 s [opt-env-conf-test] + -- * The dashed is an argument
  18028. 1078.48 s [opt-env-conf-test] + ( case a' of
  18029. 1078.48 s [opt-env-conf-test] + ArgDashed {} ->
  18030. 1078.48 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  18031. 1078.48 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18032. 1078.48 s [opt-env-conf-test] + ]
  18033. 1078.48 s [opt-env-conf-test] + _ ->
  18034. 1078.48 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18035. 1078.48 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18036. 1078.48 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  18037. 1078.48 s [opt-env-conf-test] + ]
  18038. 1078.48 s [opt-env-conf-test] + )
  18039. 1078.48 s [opt-env-conf-test]
  18040. 1078.48 s [opt-env-conf-test] -- | Consume an option.
  18041. 1078.48 s [opt-env-conf-test] --
  18042. 1078.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  18043. 1078.48 s [opt-env-conf-test] @@ -186,26 +186,26 @@
  18044. 1078.48 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  18045. 1078.48 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  18046. 1078.48 s [opt-env-conf-test] ]
  18047. 1078.48 s [opt-env-conf-test] - in case afters of
  18048. 1078.48 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  18049. 1078.48 s [opt-env-conf-test] - [] -> switchCase
  18050. 1078.48 s [opt-env-conf-test] - (Dead : _) -> switchCase
  18051. 1078.48 s [opt-env-conf-test] - (Live a' : rest) ->
  18052. 1078.48 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  18053. 1078.48 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  18054. 1078.48 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  18055. 1078.48 s [opt-env-conf-test] - -- * The dashed is an argument
  18056. 1078.48 s [opt-env-conf-test] - ( case a' of
  18057. 1078.48 s [opt-env-conf-test] - ArgDashed {} ->
  18058. 1078.48 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  18059. 1078.48 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18060. 1078.48 s [opt-env-conf-test] - ]
  18061. 1078.48 s [opt-env-conf-test] - _ ->
  18062. 1078.48 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18063. 1078.48 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18064. 1080.39 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  18065. 1080.57 s [opt-env-conf-test] - ]
  18066. 1080.57 s [opt-env-conf-test] - )
  18067. 1080.57 s [opt-env-conf-test] + in case afters of
  18068. 1080.57 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  18069. 1080.57 s [opt-env-conf-test] + [] -> switchCase
  18070. 1080.57 s [opt-env-conf-test] + (Dead : _) -> switchCase
  18071. 1080.57 s [opt-env-conf-test] + (Live a' : rest) ->
  18072. 1080.57 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  18073. 1080.57 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  18074. 1080.57 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  18075. 1080.57 s [opt-env-conf-test] + -- * The dashed is an argument
  18076. 1080.57 s [opt-env-conf-test] + ( case a' of
  18077. 1080.57 s [opt-env-conf-test] + ArgDashed {} ->
  18078. 1080.57 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  18079. 1080.57 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18080. 1080.57 s [opt-env-conf-test] + ]
  18081. 1080.57 s [opt-env-conf-test] + _ ->
  18082. 1080.57 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18083. 1080.57 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18084. 1080.57 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  18085. 1080.58 s [opt-env-conf-test] + ]
  18086. 1080.58 s [opt-env-conf-test] + )
  18087. 1080.58 s [opt-env-conf-test]
  18088. 1080.58 s [opt-env-conf-test] -- | Consume an option.
  18089. 1080.58 s [opt-env-conf-test] --
  18090. 1080.58 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
  18091. 1080.58 s [opt-env-conf-test] @@ -210,11 +210,11 @@
  18092. 1080.58 s [opt-env-conf-test] let mDefaultCommand = do
  18093. 1080.58 s [opt-env-conf-test] d <- mDefault
  18094. 1080.58 s [opt-env-conf-test] find ((== d) . commandArg) cs
  18095. 1080.58 s [opt-env-conf-test] - case mDefaultCommand of
  18096. 1080.58 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  18097. 1080.58 s [opt-env-conf-test] - Just dc -> do
  18098. 1080.58 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  18099. 1080.58 s [opt-env-conf-test] - go $ commandParser dc
  18100. 1080.58 s [opt-env-conf-test] + case mDefaultCommand of
  18101. 1080.58 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  18102. 1080.58 s [opt-env-conf-test] + Just dc -> do
  18103. 1080.58 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  18104. 1080.58 s [opt-env-conf-test] + go $ commandParser dc
  18105. 1080.58 s [opt-env-conf-test] Just s -> do
  18106. 1080.58 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  18107. 1080.58 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  18108. 1080.58 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
  18109. 1080.58 s [opt-env-conf-test] @@ -140,72 +140,72 @@
  18110. 1080.58 s [opt-env-conf-test] (firstArg : afters) ->
  18111. 1080.58 s [opt-env-conf-test] let befores = argsBefore as
  18112. 1080.58 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  18113. 1080.58 s [opt-env-conf-test] - in case firstArg of
  18114. 1080.58 s [opt-env-conf-test] - -- Skip any dead argument
  18115. 1080.58 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  18116. 1080.58 s [opt-env-conf-test] - Live a -> case a of
  18117. 1080.58 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  18118. 1080.58 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  18119. 1080.58 s [opt-env-conf-test] - -- A single dash is always an argument
  18120. 1080.58 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  18121. 1080.58 s [opt-env-conf-test] - -- Bare double-dash
  18122. 1080.58 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  18123. 1080.58 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  18124. 1080.58 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  18125. 1080.58 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  18126. 1080.58 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  18127. 1080.58 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  18128. 1080.58 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18129. 1080.58 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  18130. 1080.58 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  18131. 1080.58 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  18132. 1080.58 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  18133. 1080.58 s [opt-env-conf-test] - -- pop the args as they come.
  18134. 1080.58 s [opt-env-conf-test] - _ ->
  18135. 1080.58 s [opt-env-conf-test] - let go = \case
  18136. 1080.58 s [opt-env-conf-test] - [] -> Nothing
  18137. 1080.58 s [opt-env-conf-test] - (Dead : rest) -> go rest
  18138. 1080.58 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  18139. 1080.58 s [opt-env-conf-test] - in case go afters of
  18140. 1080.58 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  18141. 1080.58 s [opt-env-conf-test] - Just (firstLive, rest) ->
  18142. 1080.59 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  18143. 1080.59 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  18144. 1080.59 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  18145. 1080.59 s [opt-env-conf-test] - -- arguments.
  18146. 1080.59 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  18147. 1080.59 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  18148. 1080.59 s [opt-env-conf-test] - )
  18149. 1080.59 s [opt-env-conf-test] - ]
  18150. 1080.59 s [opt-env-conf-test] - ArgDashed {} ->
  18151. 1080.59 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  18152. 1080.59 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  18153. 1080.59 s [opt-env-conf-test] - -- * The dashed is an argument
  18154. 1080.59 s [opt-env-conf-test] - -- TODO we need to continue looking too
  18155. 1080.59 s [opt-env-conf-test] - let switchCase =
  18156. 1080.59 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  18157. 1080.59 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18158. 1080.59 s [opt-env-conf-test] - ]
  18159. 1080.59 s [opt-env-conf-test] - in case afters of
  18160. 1080.59 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  18161. 1080.59 s [opt-env-conf-test] - [] -> switchCase
  18162. 1080.59 s [opt-env-conf-test] - (Dead : _) -> switchCase
  18163. 1080.59 s [opt-env-conf-test] - (Live a' : rest) ->
  18164. 1080.59 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  18165. 1080.59 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  18166. 1080.59 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  18167. 1080.59 s [opt-env-conf-test] - -- * The dashed is an argument
  18168. 1080.59 s [opt-env-conf-test] - ( case a' of
  18169. 1080.59 s [opt-env-conf-test] - ArgDashed {} ->
  18170. 1080.59 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  18171. 1080.59 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  18172. 1080.59 s [opt-env-conf-test] - ]
  18173. 1080.59 s [opt-env-conf-test] - _ ->
  18174. 1080.59 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18175. 1080.59 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18176. 1080.59 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  18177. 1080.59 s [opt-env-conf-test] - ]
  18178. 1080.59 s [opt-env-conf-test] - )
  18179. 1080.59 s [opt-env-conf-test] + in case firstArg of
  18180. 1080.59 s [opt-env-conf-test] + -- Skip any dead argument
  18181. 1080.59 s [opt-env-conf-test] + Dead -> consumeArgument consumed
  18182. 1080.59 s [opt-env-conf-test] + Live a -> case a of
  18183. 1080.59 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  18184. 1080.59 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  18185. 1080.59 s [opt-env-conf-test] + -- A single dash is always an argument
  18186. 1080.59 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  18187. 1080.59 s [opt-env-conf-test] + -- Bare double-dash
  18188. 1080.59 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  18189. 1080.59 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  18190. 1080.59 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  18191. 1080.59 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  18192. 1080.59 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  18193. 1080.59 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  18194. 1080.59 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  18195. 1080.59 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  18196. 1080.59 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  18197. 1080.59 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  18198. 1080.59 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  18199. 1080.59 s [opt-env-conf-test] + -- pop the args as they come.
  18200. 1080.59 s [opt-env-conf-test] + _ ->
  18201. 1080.59 s [opt-env-conf-test] + let go = \case
  18202. 1080.59 s [opt-env-conf-test] + [] -> Nothing
  18203. 1080.59 s [opt-env-conf-test] + (Dead : rest) -> go rest
  18204. 1080.59 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  18205. 1080.59 s [opt-env-conf-test] + in case go afters of
  18206. 1080.59 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  18207. 1080.59 s [opt-env-conf-test] + Just (firstLive, rest) ->
  18208. 1080.59 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  18209. 1080.59 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  18210. 1081.49 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  18211. 1081.49 s [opt-env-conf-test] + -- arguments.
  18212. 1081.49 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  18213. 1081.49 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  18214. 1081.49 s [opt-env-conf-test] + )
  18215. 1081.49 s [opt-env-conf-test] + ]
  18216. 1081.49 s [opt-env-conf-test] + ArgDashed {} ->
  18217. 1081.49 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  18218. 1081.49 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  18219. 1081.49 s [opt-env-conf-test] + -- * The dashed is an argument
  18220. 1081.49 s [opt-env-conf-test] + -- TODO we need to continue looking too
  18221. 1081.50 s [opt-env-conf-test] + let switchCase =
  18222. 1081.50 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  18223. 1081.50 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18224. 1081.50 s [opt-env-conf-test] + ]
  18225. 1081.50 s [opt-env-conf-test] + in case afters of
  18226. 1081.50 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  18227. 1081.50 s [opt-env-conf-test] + [] -> switchCase
  18228. 1081.50 s [opt-env-conf-test] + (Dead : _) -> switchCase
  18229. 1081.50 s [opt-env-conf-test] + (Live a' : rest) ->
  18230. 1081.50 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  18231. 1081.50 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  18232. 1081.50 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  18233. 1081.50 s [opt-env-conf-test] + -- * The dashed is an argument
  18234. 1081.50 s [opt-env-conf-test] + ( case a' of
  18235. 1081.50 s [opt-env-conf-test] + ArgDashed {} ->
  18236. 1081.50 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  18237. 1081.50 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  18238. 1081.50 s [opt-env-conf-test] + ]
  18239. 1081.50 s [opt-env-conf-test] + _ ->
  18240. 1081.50 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  18241. 1081.50 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  18242. 1081.50 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  18243. 1081.50 s [opt-env-conf-test] + ]
  18244. 1081.50 s [opt-env-conf-test] + )
  18245. 1081.50 s [opt-env-conf-test]
  18246. 1081.50 s [opt-env-conf-test] -- | Consume an option.
  18247. 1081.50 s [opt-env-conf-test] --
  18248. 1081.50 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
  18249. 1081.50 s [opt-env-conf-test] @@ -132,7 +132,8 @@
  18250. 1081.50 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  18251. 1081.50 s [opt-env-conf-test] ppIndent $ go p2
  18252. 1081.50 s [opt-env-conf-test] ParserMany mLoc p' -> do
  18253. 1081.50 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  18254. 1081.50 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": "
  18255. 1081.50 s [opt-env-conf-test] +]
  18256. 1081.50 s [opt-env-conf-test] ppIndent $ do
  18257. 1081.50 s [opt-env-conf-test] eor <- tryPP $ go p'
  18258. 1081.50 s [opt-env-conf-test] case eor of
  18259. 1081.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
  18260. 1081.50 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  18261. 1081.50 s [opt-env-conf-test] -- with only forgivable errors
  18262. 1081.50 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  18263. 1081.50 s [opt-env-conf-test] -- then this should be an unforgivable error.
  18264. 1081.50 s [opt-env-conf-test] - if null parsedSettingsMap
  18265. 1081.50 s [opt-env-conf-test] + if True
  18266. 1081.50 s [opt-env-conf-test] then ppErrors' errs
  18267. 1081.50 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  18268. 1081.50 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  18269. 1081.50 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
  18270. 1081.50 s [opt-env-conf-test] @@ -132,7 +132,7 @@
  18271. 1081.50 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  18272. 1081.50 s [opt-env-conf-test] ppIndent $ go p2
  18273. 1081.50 s [opt-env-conf-test] ParserMany mLoc p' -> do
  18274. 1081.50 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  18275. 1081.50 s [opt-env-conf-test] + debug []
  18276. 1081.50 s [opt-env-conf-test] ppIndent $ do
  18277. 1081.50 s [opt-env-conf-test] eor <- tryPP $ go p'
  18278. 1081.50 s [opt-env-conf-test] case eor of
  18279. 1081.50 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:122:26-31
  18280. 1081.50 s [opt-env-conf-test] @@ -119,18 +119,18 @@
  18281. 1081.50 s [opt-env-conf-test] ParserSelect fe ff -> do
  18282. 1081.50 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  18283. 1081.50 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  18284. 1081.50 s [opt-env-conf-test] - ParserAlt p1 p2 -> do
  18285. 1081.50 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  18286. 1081.50 s [opt-env-conf-test] - ppIndent $ do
  18287. 1081.50 s [opt-env-conf-test] - debug ["Trying left side."]
  18288. 1081.50 s [opt-env-conf-test] - eor <- ppIndent $ tryPP (go p1)
  18289. 1081.50 s [opt-env-conf-test] - case eor of
  18290. 1081.50 s [opt-env-conf-test] - Just a -> do
  18291. 1081.50 s [opt-env-conf-test] - debug ["Left side succeeded."]
  18292. 1081.50 s [opt-env-conf-test] - pure a
  18293. 1081.50 s [opt-env-conf-test] - Nothing -> do
  18294. 1081.50 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  18295. 1081.50 s [opt-env-conf-test] - ppIndent $ go p2
  18296. 1081.50 s [opt-env-conf-test] + ParserAlt p1 p2 -> do
  18297. 1081.50 s [opt-env-conf-test] + debug [syntaxChunk "Alt"]
  18298. 1081.50 s [opt-env-conf-test] + ppIndent $ do
  18299. 1081.50 s [opt-env-conf-test] + debug ["Trying left side."]
  18300. 1081.50 s [opt-env-conf-test] + eor <- ppIndent $ tryPP (go p1)
  18301. 1081.50 s [opt-env-conf-test] + case eor of
  18302. 1081.50 s [opt-env-conf-test] + Just a -> do
  18303. 1081.50 s [opt-env-conf-test] + debug ["Left side succeeded."]
  18304. 1081.50 s [opt-env-conf-test] + pure a
  18305. 1081.50 s [opt-env-conf-test] + Nothing -> do
  18306. 1081.50 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  18307. 1081.50 s [opt-env-conf-test] + ppIndent $ go p2
  18308. 1081.50 s [opt-env-conf-test] ParserMany mLoc p' -> do
  18309. 1081.50 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  18310. 1081.50 s [opt-env-conf-test] ppIndent $ do
  18311. 1081.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
  18312. 1081.50 s [opt-env-conf-test] @@ -240,13 +240,13 @@
  18313. 1081.50 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  18314. 1081.50 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18315. 1081.50 s [opt-env-conf-test] Nothing ->
  18316. 1081.50 s [opt-env-conf-test] - case rest of
  18317. 1081.50 s [opt-env-conf-test] - (Live v : rest') ->
  18318. 1081.50 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18319. 1081.50 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18320. 1081.51 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18321. 1081.51 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18322. 1081.51 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18323. 1081.51 s [opt-env-conf-test] + case rest of
  18324. 1081.51 s [opt-env-conf-test] + (Live v : rest') ->
  18325. 1081.51 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18326. 1081.51 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18327. 1081.51 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18328. 1081.51 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18329. 1081.51 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18330. 1081.51 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18331. 1081.51 s [opt-env-conf-test]
  18332. 1081.51 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18333. 1081.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
  18334. 1081.51 s [opt-env-conf-test] @@ -237,16 +237,16 @@
  18335. 1081.51 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18336. 1081.51 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18337. 1081.51 s [opt-env-conf-test] ArgDashed isLong cs ->
  18338. 1081.51 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18339. 1081.51 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  18340. 1081.51 s [opt-env-conf-test] - Nothing ->
  18341. 1081.51 s [opt-env-conf-test] - case rest of
  18342. 1081.51 s [opt-env-conf-test] - (Live v : rest') ->
  18343. 1081.51 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18344. 1081.51 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18345. 1081.51 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18346. 1081.51 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18347. 1081.51 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18348. 1081.51 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  18349. 1081.51 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  18350. 1081.51 s [opt-env-conf-test] + Nothing ->
  18351. 1081.51 s [opt-env-conf-test] + case rest of
  18352. 1081.51 s [opt-env-conf-test] + (Live v : rest') ->
  18353. 1081.51 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18354. 1081.51 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18355. 1081.51 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18356. 1081.51 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18357. 1081.51 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18358. 1081.51 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18359. 1081.51 s [opt-env-conf-test]
  18360. 1081.51 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18361. 1081.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
  18362. 1081.51 s [opt-env-conf-test] @@ -237,16 +237,16 @@
  18363. 1081.51 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18364. 1081.51 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18365. 1081.51 s [opt-env-conf-test] ArgDashed isLong cs ->
  18366. 1081.51 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18367. 1081.51 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  18368. 1081.51 s [opt-env-conf-test] - Nothing ->
  18369. 1081.51 s [opt-env-conf-test] - case rest of
  18370. 1081.51 s [opt-env-conf-test] - (Live v : rest') ->
  18371. 1081.51 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18372. 1081.51 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18373. 1081.51 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18374. 1081.51 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18375. 1081.51 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18376. 1081.51 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  18377. 1081.51 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  18378. 1081.51 s [opt-env-conf-test] + Nothing ->
  18379. 1081.51 s [opt-env-conf-test] + case rest of
  18380. 1081.51 s [opt-env-conf-test] + (Live v : rest') ->
  18381. 1082.54 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18382. 1082.54 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18383. 1082.55 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18384. 1082.55 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18385. 1082.55 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18386. 1082.55 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18387. 1082.55 s [opt-env-conf-test]
  18388. 1082.55 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18389. 1082.55 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  18390. 1082.55 s [opt-env-conf-test] @@ -233,21 +233,21 @@
  18391. 1082.55 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  18392. 1082.55 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  18393. 1082.55 s [opt-env-conf-test] (Live k : rest) ->
  18394. 1082.55 s [opt-env-conf-test] - case k of
  18395. 1082.55 s [opt-env-conf-test] - -- We can either consume it as-is, or as a shorthand option.
  18396. 1082.55 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  18397. 1082.55 s [opt-env-conf-test] - ArgDashed isLong cs ->
  18398. 1082.55 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18399. 1082.55 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  18400. 1082.55 s [opt-env-conf-test] - Nothing ->
  18401. 1082.55 s [opt-env-conf-test] - case rest of
  18402. 1082.55 s [opt-env-conf-test] - (Live v : rest') ->
  18403. 1082.55 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18404. 1082.55 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18405. 1082.55 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18406. 1082.55 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18407. 1082.55 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18408. 1082.55 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18409. 1082.55 s [opt-env-conf-test] + case k of
  18410. 1082.55 s [opt-env-conf-test] + -- We can either consume it as-is, or as a shorthand option.
  18411. 1082.55 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  18412. 1082.55 s [opt-env-conf-test] + ArgDashed isLong cs ->
  18413. 1082.55 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  18414. 1082.55 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  18415. 1082.55 s [opt-env-conf-test] + Nothing ->
  18416. 1082.55 s [opt-env-conf-test] + case rest of
  18417. 1082.55 s [opt-env-conf-test] + (Live v : rest') ->
  18418. 1082.55 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18419. 1082.55 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18420. 1082.55 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18421. 1082.55 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18422. 1082.55 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18423. 1082.55 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18424. 1082.55 s [opt-env-conf-test]
  18425. 1082.55 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18426. 1082.55 s [opt-env-conf-test] [Dashed] ->
  18427. 1082.55 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  18428. 1082.55 s [opt-env-conf-test] @@ -233,21 +233,21 @@
  18429. 1082.55 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  18430. 1082.55 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  18431. 1082.56 s [opt-env-conf-test] (Live k : rest) ->
  18432. 1082.56 s [opt-env-conf-test] - case k of
  18433. 1082.56 s [opt-env-conf-test] - -- We can either consume it as-is, or as a shorthand option.
  18434. 1082.56 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  18435. 1082.56 s [opt-env-conf-test] - ArgDashed isLong cs ->
  18436. 1082.56 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18437. 1082.56 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  18438. 1082.56 s [opt-env-conf-test] - Nothing ->
  18439. 1082.56 s [opt-env-conf-test] - case rest of
  18440. 1082.56 s [opt-env-conf-test] - (Live v : rest') ->
  18441. 1082.56 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18442. 1082.56 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18443. 1082.56 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18444. 1082.56 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18445. 1082.56 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18446. 1082.56 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18447. 1082.56 s [opt-env-conf-test] + case k of
  18448. 1082.56 s [opt-env-conf-test] + -- We can either consume it as-is, or as a shorthand option.
  18449. 1082.56 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  18450. 1082.56 s [opt-env-conf-test] + ArgDashed isLong cs ->
  18451. 1082.56 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  18452. 1082.56 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  18453. 1082.56 s [opt-env-conf-test] + Nothing ->
  18454. 1082.56 s [opt-env-conf-test] + case rest of
  18455. 1082.56 s [opt-env-conf-test] + (Live v : rest') ->
  18456. 1082.56 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18457. 1082.56 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18458. 1082.56 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18459. 1082.56 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18460. 1082.56 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18461. 1082.56 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18462. 1082.56 s [opt-env-conf-test]
  18463. 1082.56 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18464. 1082.56 s [opt-env-conf-test] [Dashed] ->
  18465. 1082.56 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  18466. 1082.56 s [opt-env-conf-test] @@ -233,21 +233,21 @@
  18467. 1082.56 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  18468. 1082.56 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  18469. 1082.56 s [opt-env-conf-test] (Live k : rest) ->
  18470. 1082.56 s [opt-env-conf-test] - case k of
  18471. 1082.56 s [opt-env-conf-test] - -- We can either consume it as-is, or as a shorthand option.
  18472. 1082.56 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  18473. 1082.56 s [opt-env-conf-test] - ArgDashed isLong cs ->
  18474. 1082.56 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18475. 1082.56 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  18476. 1082.56 s [opt-env-conf-test] - Nothing ->
  18477. 1082.56 s [opt-env-conf-test] - case rest of
  18478. 1082.56 s [opt-env-conf-test] - (Live v : rest') ->
  18479. 1082.56 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18480. 1082.56 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18481. 1082.56 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18482. 1082.56 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18483. 1082.56 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18484. 1082.56 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18485. 1082.56 s [opt-env-conf-test] + case k of
  18486. 1082.56 s [opt-env-conf-test] + -- We can either consume it as-is, or as a shorthand option.
  18487. 1082.56 s [opt-env-conf-test] + ArgBareDoubleDash -> Nothing
  18488. 1082.56 s [opt-env-conf-test] + ArgDashed isLong cs ->
  18489. 1082.56 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds isLong cs of
  18490. 1082.56 s [opt-env-conf-test] + Just v -> Just (v, Dead : rest)
  18491. 1082.56 s [opt-env-conf-test] + Nothing ->
  18492. 1082.56 s [opt-env-conf-test] + case rest of
  18493. 1082.56 s [opt-env-conf-test] + (Live v : rest') ->
  18494. 1082.56 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18495. 1082.57 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18496. 1082.57 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18497. 1082.57 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18498. 1082.57 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18499. 1082.57 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18500. 1082.57 s [opt-env-conf-test]
  18501. 1082.57 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18502. 1082.57 s [opt-env-conf-test] [Dashed] ->
  18503. 1082.57 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:79:26-30
  18504. 1082.57 s [opt-env-conf-test] @@ -76,7 +76,7 @@
  18505. 1082.57 s [opt-env-conf-test] parseArg = \case
  18506. 1082.57 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  18507. 1082.57 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  18508. 1082.57 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  18509. 1082.57 s [opt-env-conf-test] + Just ne -> ArgDashed False ne
  18510. 1082.57 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  18511. 1082.57 s [opt-env-conf-test] Nothing -> ArgBareDash
  18512. 1082.57 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  18513. 1082.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
  18514. 1082.57 s [opt-env-conf-test] @@ -74,9 +74,9 @@
  18515. 1082.57 s [opt-env-conf-test]
  18516. 1082.57 s [opt-env-conf-test] parseArg :: String -> Arg
  18517. 1082.57 s [opt-env-conf-test] parseArg = \case
  18518. 1082.57 s [opt-env-conf-test] - '-' : '-' : rest -> case NE.nonEmpty rest of
  18519. 1082.57 s [opt-env-conf-test] - Nothing -> ArgBareDoubleDash
  18520. 1082.57 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  18521. 1082.57 s [opt-env-conf-test] + '-' : '-' : rest -> case NE.nonEmpty rest of
  18522. 1082.57 s [opt-env-conf-test] + Nothing -> ArgBareDoubleDash
  18523. 1082.57 s [opt-env-conf-test] + Just ne -> ArgDashed True ne
  18524. 1082.57 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  18525. 1082.57 s [opt-env-conf-test] Nothing -> ArgBareDash
  18526. 1082.57 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  18527. 1082.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
  18528. 1082.57 s [opt-env-conf-test] @@ -74,9 +74,9 @@
  18529. 1082.57 s [opt-env-conf-test]
  18530. 1082.57 s [opt-env-conf-test] parseArg :: String -> Arg
  18531. 1082.57 s [opt-env-conf-test] parseArg = \case
  18532. 1082.57 s [opt-env-conf-test] - '-' : '-' : rest -> case NE.nonEmpty rest of
  18533. 1082.57 s [opt-env-conf-test] - Nothing -> ArgBareDoubleDash
  18534. 1082.57 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  18535. 1082.57 s [opt-env-conf-test] + '-' : '-' : rest -> case NE.nonEmpty rest of
  18536. 1082.57 s [opt-env-conf-test] + Nothing -> ArgBareDoubleDash
  18537. 1082.57 s [opt-env-conf-test] + Just ne -> ArgDashed True ne
  18538. 1082.57 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  18539. 1082.57 s [opt-env-conf-test] Nothing -> ArgBareDash
  18540. 1082.57 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  18541. 1082.57 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:82:26-31
  18542. 1082.57 s [opt-env-conf-test] @@ -79,7 +79,7 @@
  18543. 1082.57 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  18544. 1082.57 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  18545. 1082.57 s [opt-env-conf-test] Nothing -> ArgBareDash
  18546. 1082.57 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  18547. 1082.57 s [opt-env-conf-test] + Just ne -> ArgDashed True ne
  18548. 1082.57 s [opt-env-conf-test] s -> ArgPlain s
  18549. 1082.57 s [opt-env-conf-test]
  18550. 1082.57 s [opt-env-conf-test] renderArg :: Arg -> String
  18551. 1082.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
  18552. 1082.57 s [opt-env-conf-test] @@ -77,9 +77,9 @@
  18553. 1082.57 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  18554. 1082.57 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  18555. 1082.57 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  18556. 1082.57 s [opt-env-conf-test] - '-' : rest -> case NE.nonEmpty rest of
  18557. 1082.57 s [opt-env-conf-test] - Nothing -> ArgBareDash
  18558. 1082.57 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  18559. 1082.57 s [opt-env-conf-test] + '-' : rest -> case NE.nonEmpty rest of
  18560. 1082.57 s [opt-env-conf-test] + Nothing -> ArgBareDash
  18561. 1082.57 s [opt-env-conf-test] + Just ne -> ArgDashed False ne
  18562. 1082.57 s [opt-env-conf-test] s -> ArgPlain s
  18563. 1082.57 s [opt-env-conf-test]
  18564. 1082.57 s [opt-env-conf-test] renderArg :: Arg -> String
  18565. 1082.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
  18566. 1082.57 s [opt-env-conf-test] @@ -77,9 +77,9 @@
  18567. 1082.57 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  18568. 1082.57 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  18569. 1082.57 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  18570. 1082.57 s [opt-env-conf-test] - '-' : rest -> case NE.nonEmpty rest of
  18571. 1083.14 s [opt-env-conf-test] - Nothing -> ArgBareDash
  18572. 1083.14 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  18573. 1083.14 s [opt-env-conf-test] + '-' : rest -> case NE.nonEmpty rest of
  18574. 1083.14 s [opt-env-conf-test] + Nothing -> ArgBareDash
  18575. 1083.14 s [opt-env-conf-test] + Just ne -> ArgDashed False ne
  18576. 1083.14 s [opt-env-conf-test] s -> ArgPlain s
  18577. 1083.14 s [opt-env-conf-test]
  18578. 1083.14 s [opt-env-conf-test] renderArg :: Arg -> String
  18579. 1083.14 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  18580. 1083.14 s [opt-env-conf-test] @@ -396,10 +396,10 @@
  18581. 1083.14 s [opt-env-conf-test] instance Validity Dashed
  18582. 1083.14 s [opt-env-conf-test]
  18583. 1083.14 s [opt-env-conf-test] instance IsString Dashed where
  18584. 1083.14 s [opt-env-conf-test] - fromString s = case fromString s of
  18585. 1083.14 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  18586. 1083.14 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  18587. 1083.14 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  18588. 1083.14 s [opt-env-conf-test] + fromString s = case fromString s of
  18589. 1083.14 s [opt-env-conf-test] + ArgDashed True cs -> DashedLong cs
  18590. 1083.14 s [opt-env-conf-test] + ArgDashed False (c :| []) -> DashedShort c
  18591. 1083.14 s [opt-env-conf-test] + _ -> error "Invalid dashed"
  18592. 1083.15 s [opt-env-conf-test]
  18593. 1083.15 s [opt-env-conf-test] renderDashed :: Dashed -> String
  18594. 1083.15 s [opt-env-conf-test] renderDashed = \case
  18595. 1083.15 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  18596. 1083.15 s [opt-env-conf-test] @@ -393,30 +393,30 @@
  18597. 1083.15 s [opt-env-conf-test] case mO' of
  18598. 1083.15 s [opt-env-conf-test] Nothing -> pure Nothing
  18599. 1083.15 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  18600. 1083.15 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  18601. 1083.15 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  18602. 1083.15 s [opt-env-conf-test] - Right mV -> case mV of
  18603. 1083.15 s [opt-env-conf-test] - Nothing -> do
  18604. 1083.15 s [opt-env-conf-test] - debug
  18605. 1083.15 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  18606. 1083.15 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  18607. 1083.15 s [opt-env-conf-test] - ]
  18608. 1083.15 s [opt-env-conf-test] - pure Nothing
  18609. 1083.15 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  18610. 1083.15 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  18611. 1083.15 s [opt-env-conf-test] - Right mA -> case mA of
  18612. 1083.15 s [opt-env-conf-test] - Nothing -> do
  18613. 1083.15 s [opt-env-conf-test] - debug
  18614. 1083.15 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  18615. 1083.15 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  18616. 1083.15 s [opt-env-conf-test] - ]
  18617. 1083.15 s [opt-env-conf-test] - pure Nothing
  18618. 1083.15 s [opt-env-conf-test] - Just a -> do
  18619. 1083.15 s [opt-env-conf-test] - debug
  18620. 1083.15 s [opt-env-conf-test] - [ "set based on config value: ",
  18621. 1083.15 s [opt-env-conf-test] - chunk $ T.pack $ show v
  18622. 1083.15 s [opt-env-conf-test] - ]
  18623. 1083.15 s [opt-env-conf-test] - pure $ Just a
  18624. 1083.15 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  18625. 1083.15 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  18626. 1083.15 s [opt-env-conf-test] + Right mV -> case mV of
  18627. 1083.15 s [opt-env-conf-test] + Nothing -> do
  18628. 1083.15 s [opt-env-conf-test] + debug
  18629. 1083.15 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  18630. 1083.15 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  18631. 1083.15 s [opt-env-conf-test] + ]
  18632. 1083.15 s [opt-env-conf-test] + pure Nothing
  18633. 1083.15 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  18634. 1083.15 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  18635. 1083.15 s [opt-env-conf-test] + Right mA -> case mA of
  18636. 1083.15 s [opt-env-conf-test] + Nothing -> do
  18637. 1083.15 s [opt-env-conf-test] + debug
  18638. 1083.15 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  18639. 1083.15 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  18640. 1083.15 s [opt-env-conf-test] + ]
  18641. 1083.15 s [opt-env-conf-test] + pure Nothing
  18642. 1083.15 s [opt-env-conf-test] + Just a -> do
  18643. 1083.15 s [opt-env-conf-test] + debug
  18644. 1083.15 s [opt-env-conf-test] + [ "set based on config value: ",
  18645. 1083.15 s [opt-env-conf-test] + chunk $ T.pack $ show v
  18646. 1083.15 s [opt-env-conf-test] + ]
  18647. 1083.15 s [opt-env-conf-test] + pure $ Just a
  18648. 1083.15 s [opt-env-conf-test] let toRes = \case
  18649. 1083.15 s [opt-env-conf-test] Nothing -> NotFound
  18650. 1083.15 s [opt-env-conf-test] Just a -> Found a
  18651. 1083.15 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  18652. 1083.15 s [opt-env-conf-test] @@ -396,10 +396,10 @@
  18653. 1083.15 s [opt-env-conf-test] instance Validity Dashed
  18654. 1083.15 s [opt-env-conf-test]
  18655. 1083.15 s [opt-env-conf-test] instance IsString Dashed where
  18656. 1083.15 s [opt-env-conf-test] - fromString s = case fromString s of
  18657. 1083.15 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  18658. 1083.15 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  18659. 1083.15 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  18660. 1083.15 s [opt-env-conf-test] + fromString s = case fromString s of
  18661. 1083.15 s [opt-env-conf-test] + ArgDashed True cs -> DashedLong cs
  18662. 1083.15 s [opt-env-conf-test] + ArgDashed False (c :| []) -> DashedShort c
  18663. 1083.15 s [opt-env-conf-test] + _ -> error "Invalid dashed"
  18664. 1083.15 s [opt-env-conf-test]
  18665. 1083.15 s [opt-env-conf-test] renderDashed :: Dashed -> String
  18666. 1083.15 s [opt-env-conf-test] renderDashed = \case
  18667. 1083.15 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
  18668. 1083.15 s [opt-env-conf-test] @@ -420,13 +420,13 @@
  18669. 1083.15 s [opt-env-conf-test] let toRes = \case
  18670. 1083.15 s [opt-env-conf-test] Nothing -> NotFound
  18671. 1083.15 s [opt-env-conf-test] Just a -> Found a
  18672. 1083.15 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  18673. 1083.15 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  18674. 1083.15 s [opt-env-conf-test] - Just ne -> do
  18675. 1083.15 s [opt-env-conf-test] - res <- goConfSet confSet
  18676. 1083.15 s [opt-env-conf-test] - case res of
  18677. 1083.15 s [opt-env-conf-test] - Just a -> pure $ Found a
  18678. 1083.15 s [opt-env-conf-test] - Nothing -> goConfSets ne
  18679. 1083.15 s [opt-env-conf-test] + let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  18680. 1083.15 s [opt-env-conf-test] + Nothing -> toRes <$> goConfSet confSet
  18681. 1083.15 s [opt-env-conf-test] + Just ne -> do
  18682. 1083.15 s [opt-env-conf-test] + res <- goConfSet confSet
  18683. 1083.15 s [opt-env-conf-test] + case res of
  18684. 1083.15 s [opt-env-conf-test] + Just a -> pure $ Found a
  18685. 1083.15 s [opt-env-conf-test] + Nothing -> goConfSets ne
  18686. 1083.15 s [opt-env-conf-test] goConfSets confSets
  18687. 1083.15 s [opt-env-conf-test] case mConf of
  18688. 1083.15 s [opt-env-conf-test] Found a -> do
  18689. 1083.15 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  18690. 1083.15 s [opt-env-conf-test] @@ -393,30 +393,30 @@
  18691. 1083.15 s [opt-env-conf-test] case mO' of
  18692. 1083.15 s [opt-env-conf-test] Nothing -> pure Nothing
  18693. 1083.15 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  18694. 1083.15 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  18695. 1083.15 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  18696. 1083.15 s [opt-env-conf-test] - Right mV -> case mV of
  18697. 1083.15 s [opt-env-conf-test] - Nothing -> do
  18698. 1083.15 s [opt-env-conf-test] - debug
  18699. 1083.15 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  18700. 1083.15 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  18701. 1083.15 s [opt-env-conf-test] - ]
  18702. 1083.15 s [opt-env-conf-test] - pure Nothing
  18703. 1083.15 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  18704. 1083.15 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  18705. 1083.15 s [opt-env-conf-test] - Right mA -> case mA of
  18706. 1086.93 s [opt-env-conf-test] - Nothing -> do
  18707. 1086.93 s [opt-env-conf-test] - debug
  18708. 1087.02 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  18709. 1087.03 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  18710. 1087.03 s [opt-env-conf-test] - ]
  18711. 1087.03 s [opt-env-conf-test] - pure Nothing
  18712. 1087.03 s [opt-env-conf-test] - Just a -> do
  18713. 1087.03 s [opt-env-conf-test] - debug
  18714. 1087.03 s [opt-env-conf-test] - [ "set based on config value: ",
  18715. 1087.03 s [opt-env-conf-test] - chunk $ T.pack $ show v
  18716. 1087.03 s [opt-env-conf-test] - ]
  18717. 1087.03 s [opt-env-conf-test] - pure $ Just a
  18718. 1087.03 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  18719. 1087.03 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  18720. 1087.03 s [opt-env-conf-test] + Right mV -> case mV of
  18721. 1087.03 s [opt-env-conf-test] + Nothing -> do
  18722. 1087.03 s [opt-env-conf-test] + debug
  18723. 1087.03 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  18724. 1087.03 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  18725. 1087.03 s [opt-env-conf-test] + ]
  18726. 1087.03 s [opt-env-conf-test] + pure Nothing
  18727. 1087.03 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  18728. 1087.03 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  18729. 1087.03 s [opt-env-conf-test] + Right mA -> case mA of
  18730. 1087.03 s [opt-env-conf-test] + Nothing -> do
  18731. 1087.03 s [opt-env-conf-test] + debug
  18732. 1087.03 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  18733. 1087.03 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  18734. 1087.03 s [opt-env-conf-test] + ]
  18735. 1087.03 s [opt-env-conf-test] + pure Nothing
  18736. 1087.03 s [opt-env-conf-test] + Just a -> do
  18737. 1087.03 s [opt-env-conf-test] + debug
  18738. 1087.03 s [opt-env-conf-test] + [ "set based on config value: ",
  18739. 1087.03 s [opt-env-conf-test] + chunk $ T.pack $ show v
  18740. 1087.03 s [opt-env-conf-test] + ]
  18741. 1087.03 s [opt-env-conf-test] + pure $ Just a
  18742. 1087.03 s [opt-env-conf-test] let toRes = \case
  18743. 1087.03 s [opt-env-conf-test] Nothing -> NotFound
  18744. 1087.03 s [opt-env-conf-test] Just a -> Found a
  18745. 1087.03 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:65:103-111
  18746. 1087.03 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  18747. 1087.03 s [opt-env-conf-test] mconcat
  18748. 1087.03 s [opt-env-conf-test] [ genericValidate arg,
  18749. 1087.03 s [opt-env-conf-test] case arg of
  18750. 1087.03 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18751. 1087.03 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ not (c /= '-')
  18752. 1087.04 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18753. 1087.04 s [opt-env-conf-test] ('-' : _) -> False
  18754. 1087.04 s [opt-env-conf-test] _ -> True
  18755. 1087.04 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
  18756. 1087.04 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  18757. 1087.04 s [opt-env-conf-test] mconcat
  18758. 1087.04 s [opt-env-conf-test] [ genericValidate arg,
  18759. 1087.04 s [opt-env-conf-test] case arg of
  18760. 1087.04 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18761. 1087.04 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
  18762. 1087.04 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18763. 1087.04 s [opt-env-conf-test] ('-' : _) -> False
  18764. 1087.04 s [opt-env-conf-test] _ -> True
  18765. 1087.04 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:67:26-31
  18766. 1087.04 s [opt-env-conf-test] @@ -64,7 +64,7 @@
  18767. 1087.04 s [opt-env-conf-test] case arg of
  18768. 1087.04 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18769. 1087.04 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18770. 1087.04 s [opt-env-conf-test] - ('-' : _) -> False
  18771. 1087.04 s [opt-env-conf-test] + ('-' : _) -> True
  18772. 1087.04 s [opt-env-conf-test] _ -> True
  18773. 1087.04 s [opt-env-conf-test] _ -> valid
  18774. 1087.04 s [opt-env-conf-test] ]
  18775. 1087.04 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  18776. 1087.04 s [opt-env-conf-test] @@ -396,10 +396,10 @@
  18777. 1087.04 s [opt-env-conf-test] instance Validity Dashed
  18778. 1087.04 s [opt-env-conf-test]
  18779. 1087.05 s [opt-env-conf-test] instance IsString Dashed where
  18780. 1087.05 s [opt-env-conf-test] - fromString s = case fromString s of
  18781. 1087.05 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  18782. 1087.05 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  18783. 1087.05 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  18784. 1087.05 s [opt-env-conf-test] + fromString s = case fromString s of
  18785. 1087.05 s [opt-env-conf-test] + ArgDashed True cs -> DashedLong cs
  18786. 1087.05 s [opt-env-conf-test] + ArgDashed False (c :| []) -> DashedShort c
  18787. 1087.05 s [opt-env-conf-test] + _ -> error "Invalid dashed"
  18788. 1087.05 s [opt-env-conf-test]
  18789. 1087.05 s [opt-env-conf-test] renderDashed :: Dashed -> String
  18790. 1087.05 s [opt-env-conf-test] renderDashed = \case
  18791. 1087.05 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
  18792. 1087.05 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  18793. 1087.05 s [opt-env-conf-test] mconcat
  18794. 1087.05 s [opt-env-conf-test] [ genericValidate arg,
  18795. 1087.05 s [opt-env-conf-test] case arg of
  18796. 1087.05 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18797. 1087.05 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ False
  18798. 1087.05 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18799. 1087.05 s [opt-env-conf-test] ('-' : _) -> False
  18800. 1087.05 s [opt-env-conf-test] _ -> True
  18801. 1087.05 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:68:18-22
  18802. 1087.05 s [opt-env-conf-test] @@ -65,7 +65,7 @@
  18803. 1087.05 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18804. 1087.05 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18805. 1087.05 s [opt-env-conf-test] ('-' : _) -> False
  18806. 1087.05 s [opt-env-conf-test] - _ -> True
  18807. 1087.05 s [opt-env-conf-test] + _ -> False
  18808. 1087.05 s [opt-env-conf-test] _ -> valid
  18809. 1087.05 s [opt-env-conf-test] ]
  18810. 1087.05 s [opt-env-conf-test]
  18811. 1087.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
  18812. 1087.06 s [opt-env-conf-test] @@ -240,13 +240,13 @@
  18813. 1087.06 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  18814. 1087.06 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18815. 1087.06 s [opt-env-conf-test] Nothing ->
  18816. 1087.06 s [opt-env-conf-test] - case rest of
  18817. 1087.06 s [opt-env-conf-test] - (Live v : rest') ->
  18818. 1087.06 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18819. 1087.06 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18820. 1087.06 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18821. 1087.06 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18822. 1087.06 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  18823. 1087.06 s [opt-env-conf-test] + case rest of
  18824. 1087.06 s [opt-env-conf-test] + (Live v : rest') ->
  18825. 1087.06 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18826. 1087.06 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18827. 1087.06 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18828. 1087.06 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18829. 1087.06 s [opt-env-conf-test] + _ -> second (Live k :) <$> go rest
  18830. 1087.06 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18831. 1087.06 s [opt-env-conf-test]
  18832. 1087.06 s [opt-env-conf-test] consumeDashedShorthandOption ::
  18833. 1087.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  18834. 1087.06 s [opt-env-conf-test] @@ -242,10 +242,10 @@
  18835. 1087.06 s [opt-env-conf-test] Nothing ->
  18836. 1087.06 s [opt-env-conf-test] case rest of
  18837. 1087.06 s [opt-env-conf-test] (Live v : rest') ->
  18838. 1087.06 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18839. 1087.06 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18840. 1087.06 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18841. 1087.06 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18842. 1087.06 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18843. 1087.06 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18844. 1087.06 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18845. 1087.06 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18846. 1087.06 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18847. 1087.06 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18848. 1087.06 s [opt-env-conf-test]
  18849. 1087.06 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  18850. 1087.06 s [opt-env-conf-test] @@ -242,10 +242,10 @@
  18851. 1087.06 s [opt-env-conf-test] Nothing ->
  18852. 1087.06 s [opt-env-conf-test] case rest of
  18853. 1087.07 s [opt-env-conf-test] (Live v : rest') ->
  18854. 1087.07 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18855. 1087.07 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18856. 1087.07 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18857. 1088.31 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18858. 1088.31 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18859. 1088.31 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18860. 1088.31 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18861. 1088.31 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18862. 1088.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18863. 1088.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18864. 1088.31 s [opt-env-conf-test]
  18865. 1088.31 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  18866. 1088.31 s [opt-env-conf-test] @@ -242,10 +242,10 @@
  18867. 1088.31 s [opt-env-conf-test] Nothing ->
  18868. 1088.31 s [opt-env-conf-test] case rest of
  18869. 1088.31 s [opt-env-conf-test] (Live v : rest') ->
  18870. 1088.31 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18871. 1088.31 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  18872. 1088.31 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  18873. 1088.31 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18874. 1088.31 s [opt-env-conf-test] + case consumeDashedOption dasheds isLong cs of
  18875. 1088.31 s [opt-env-conf-test] + Nothing -> second (Live k :) <$> go rest
  18876. 1088.31 s [opt-env-conf-test] + Just Nothing -> Just (renderArg v, Dead : rest')
  18877. 1088.31 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18878. 1088.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18879. 1088.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18880. 1088.31 s [opt-env-conf-test]
  18881. 1088.31 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:248:77-83
  18882. 1088.31 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  18883. 1088.31 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  18884. 1088.31 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18885. 1088.31 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18886. 1088.31 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18887. 1088.31 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed not (isLong) cs') : Dead : rest')
  18888. 1088.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18889. 1088.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18890. 1088.31 s [opt-env-conf-test]
  18891. 1088.31 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
  18892. 1088.31 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  18893. 1088.31 s [opt-env-conf-test] Nothing ->
  18894. 1088.31 s [opt-env-conf-test] case rest of
  18895. 1088.31 s [opt-env-conf-test] (Live v : rest') ->
  18896. 1088.31 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18897. 1088.31 s [opt-env-conf-test] + case consumeDashedOption dasheds True cs of
  18898. 1088.31 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18899. 1088.31 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18900. 1088.31 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18901. 1088.31 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
  18902. 1088.31 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  18903. 1088.31 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  18904. 1088.31 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18905. 1088.31 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18906. 1088.32 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18907. 1088.32 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed True cs') : Dead : rest')
  18908. 1088.32 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18909. 1088.32 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18910. 1088.32 s [opt-env-conf-test]
  18911. 1088.32 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:245:54-60
  18912. 1088.32 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  18913. 1088.32 s [opt-env-conf-test] Nothing ->
  18914. 1088.32 s [opt-env-conf-test] case rest of
  18915. 1088.32 s [opt-env-conf-test] (Live v : rest') ->
  18916. 1088.32 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18917. 1088.32 s [opt-env-conf-test] + case consumeDashedOption dasheds not (isLong) cs of
  18918. 1088.32 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18919. 1088.32 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18920. 1088.32 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18921. 1088.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
  18922. 1088.32 s [opt-env-conf-test] @@ -63,9 +63,7 @@
  18923. 1088.32 s [opt-env-conf-test] [ genericValidate arg,
  18924. 1088.32 s [opt-env-conf-test] case arg of
  18925. 1088.32 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18926. 1088.32 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  18927. 1088.32 s [opt-env-conf-test] - ('-' : _) -> False
  18928. 1088.32 s [opt-env-conf-test] - _ -> True
  18929. 1088.32 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ False
  18930. 1088.32 s [opt-env-conf-test] _ -> valid
  18931. 1088.32 s [opt-env-conf-test] ]
  18932. 1088.32 s [opt-env-conf-test]
  18933. 1088.32 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:240:55-61
  18934. 1088.32 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  18935. 1088.32 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18936. 1088.32 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18937. 1088.32 s [opt-env-conf-test] ArgDashed isLong cs ->
  18938. 1088.32 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18939. 1088.32 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds not (isLong) cs of
  18940. 1088.32 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18941. 1088.32 s [opt-env-conf-test] Nothing ->
  18942. 1088.32 s [opt-env-conf-test] case rest of
  18943. 1088.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
  18944. 1088.32 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  18945. 1088.32 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  18946. 1088.32 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18947. 1088.32 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18948. 1088.32 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18949. 1088.32 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
  18950. 1088.32 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18951. 1088.32 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  18952. 1088.32 s [opt-env-conf-test]
  18953. 1088.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
  18954. 1088.32 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  18955. 1088.32 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18956. 1088.32 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18957. 1088.32 s [opt-env-conf-test] ArgDashed isLong cs ->
  18958. 1088.32 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18959. 1088.32 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds False cs of
  18960. 1088.32 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18961. 1088.32 s [opt-env-conf-test] Nothing ->
  18962. 1088.32 s [opt-env-conf-test] case rest of
  18963. 1088.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
  18964. 1088.32 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  18965. 1088.32 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18966. 1088.32 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18967. 1088.32 s [opt-env-conf-test] ArgDashed isLong cs ->
  18968. 1088.32 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18969. 1088.32 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds True cs of
  18970. 1088.32 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18971. 1088.32 s [opt-env-conf-test] Nothing ->
  18972. 1088.32 s [opt-env-conf-test] case rest of
  18973. 1088.32 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  18974. 1088.32 s [opt-env-conf-test] @@ -222,9 +222,9 @@
  18975. 1088.32 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  18976. 1088.32 s [opt-env-conf-test] Nothing ->
  18977. 1088.32 s [opt-env-conf-test] -- TODO option value on the border
  18978. 1088.32 s [opt-env-conf-test] - case go (argsAfter as) of
  18979. 1088.32 s [opt-env-conf-test] - Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  18980. 1088.32 s [opt-env-conf-test] - Nothing -> Nothing
  18981. 1088.32 s [opt-env-conf-test] + case go (argsAfter as) of
  18982. 1088.32 s [opt-env-conf-test] + Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  18983. 1088.32 s [opt-env-conf-test] + Nothing -> Nothing
  18984. 1088.33 s [opt-env-conf-test] where
  18985. 1088.33 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  18986. 1088.33 s [opt-env-conf-test] go = \case
  18987. 1088.33 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
  18988. 1088.33 s [opt-env-conf-test] @@ -135,77 +135,77 @@
  18989. 1088.33 s [opt-env-conf-test] Nothing -> r
  18990. 1088.33 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  18991. 1088.33 s [opt-env-conf-test]
  18992. 1088.33 s [opt-env-conf-test] - addConsumeNothing $ case argsAfter as of
  18993. 1088.33 s [opt-env-conf-test] - [] -> []
  18994. 1088.33 s [opt-env-conf-test] - (firstArg : afters) ->
  18995. 1088.33 s [opt-env-conf-test] - let befores = argsBefore as
  18996. 1088.33 s [opt-env-conf-test] - consumed = Args (befores ++ [Dead]) afters
  18997. 1088.33 s [opt-env-conf-test] - in case firstArg of
  18998. 1088.33 s [opt-env-conf-test] - -- Skip any dead argument
  18999. 1088.33 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  19000. 1088.33 s [opt-env-conf-test] - Live a -> case a of
  19001. 1088.33 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  19002. 1088.33 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  19003. 1088.33 s [opt-env-conf-test] - -- A single dash is always an argument
  19004. 1088.33 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  19005. 1088.33 s [opt-env-conf-test] - -- Bare double-dash
  19006. 1088.33 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  19007. 1088.33 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  19008. 1088.33 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  19009. 1088.33 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  19010. 1088.33 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  19011. 1088.33 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  19012. 1088.33 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  19013. 1088.33 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  19014. 1088.33 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  19015. 1088.93 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  19016. 1088.93 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  19017. 1088.93 s [opt-env-conf-test] - -- pop the args as they come.
  19018. 1088.93 s [opt-env-conf-test] - _ ->
  19019. 1088.93 s [opt-env-conf-test] - let go = \case
  19020. 1088.93 s [opt-env-conf-test] - [] -> Nothing
  19021. 1088.93 s [opt-env-conf-test] - (Dead : rest) -> go rest
  19022. 1088.93 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  19023. 1088.93 s [opt-env-conf-test] - in case go afters of
  19024. 1088.93 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  19025. 1088.93 s [opt-env-conf-test] - Just (firstLive, rest) ->
  19026. 1088.93 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  19027. 1088.93 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  19028. 1088.93 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  19029. 1088.93 s [opt-env-conf-test] - -- arguments.
  19030. 1088.93 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  19031. 1088.93 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  19032. 1088.93 s [opt-env-conf-test] - )
  19033. 1088.93 s [opt-env-conf-test] - ]
  19034. 1088.93 s [opt-env-conf-test] - ArgDashed {} ->
  19035. 1088.93 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  19036. 1088.93 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  19037. 1088.93 s [opt-env-conf-test] - -- * The dashed is an argument
  19038. 1088.93 s [opt-env-conf-test] - -- TODO we need to continue looking too
  19039. 1088.94 s [opt-env-conf-test] - let switchCase =
  19040. 1088.94 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  19041. 1088.94 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  19042. 1088.94 s [opt-env-conf-test] - ]
  19043. 1088.94 s [opt-env-conf-test] - in case afters of
  19044. 1088.94 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  19045. 1088.94 s [opt-env-conf-test] - [] -> switchCase
  19046. 1088.94 s [opt-env-conf-test] - (Dead : _) -> switchCase
  19047. 1088.94 s [opt-env-conf-test] - (Live a' : rest) ->
  19048. 1088.94 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  19049. 1088.94 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  19050. 1088.94 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  19051. 1088.94 s [opt-env-conf-test] - -- * The dashed is an argument
  19052. 1088.94 s [opt-env-conf-test] - ( case a' of
  19053. 1088.94 s [opt-env-conf-test] - ArgDashed {} ->
  19054. 1088.94 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  19055. 1088.94 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  19056. 1088.94 s [opt-env-conf-test] - ]
  19057. 1088.94 s [opt-env-conf-test] - _ ->
  19058. 1088.94 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  19059. 1088.94 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  19060. 1088.94 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  19061. 1088.94 s [opt-env-conf-test] - ]
  19062. 1088.94 s [opt-env-conf-test] - )
  19063. 1088.94 s [opt-env-conf-test] + addConsumeNothing $ case argsAfter as of
  19064. 1088.94 s [opt-env-conf-test] + [] -> []
  19065. 1088.94 s [opt-env-conf-test] + (firstArg : afters) ->
  19066. 1088.94 s [opt-env-conf-test] + let befores = argsBefore as
  19067. 1088.94 s [opt-env-conf-test] + consumed = Args (befores ++ [Dead]) afters
  19068. 1088.94 s [opt-env-conf-test] + in case firstArg of
  19069. 1088.94 s [opt-env-conf-test] + -- Skip any dead argument
  19070. 1088.94 s [opt-env-conf-test] + Dead -> consumeArgument consumed
  19071. 1088.94 s [opt-env-conf-test] + Live a -> case a of
  19072. 1088.94 s [opt-env-conf-test] + -- Plain argument: that's the only option, consume it.
  19073. 1088.94 s [opt-env-conf-test] + ArgPlain plain -> [(Just plain, consumed)]
  19074. 1088.94 s [opt-env-conf-test] + -- A single dash is always an argument
  19075. 1088.94 s [opt-env-conf-test] + ArgBareDash -> [(Just "-", consumed)]
  19076. 1088.94 s [opt-env-conf-test] + -- Bare double-dash
  19077. 1088.94 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  19078. 1088.94 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  19079. 1088.94 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  19080. 1088.94 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  19081. 1088.94 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  19082. 1088.94 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  19083. 1088.94 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  19084. 1088.94 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  19085. 1088.94 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  19086. 1088.94 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  19087. 1088.95 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  19088. 1088.95 s [opt-env-conf-test] + -- pop the args as they come.
  19089. 1088.95 s [opt-env-conf-test] + _ ->
  19090. 1088.95 s [opt-env-conf-test] + let go = \case
  19091. 1088.95 s [opt-env-conf-test] + [] -> Nothing
  19092. 1088.95 s [opt-env-conf-test] + (Dead : rest) -> go rest
  19093. 1088.95 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  19094. 1088.95 s [opt-env-conf-test] + in case go afters of
  19095. 1088.95 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  19096. 1088.95 s [opt-env-conf-test] + Just (firstLive, rest) ->
  19097. 1088.95 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  19098. 1088.95 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  19099. 1088.95 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  19100. 1088.95 s [opt-env-conf-test] + -- arguments.
  19101. 1088.95 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  19102. 1088.95 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  19103. 1088.95 s [opt-env-conf-test] + )
  19104. 1088.95 s [opt-env-conf-test] + ]
  19105. 1088.95 s [opt-env-conf-test] + ArgDashed {} ->
  19106. 1088.95 s [opt-env-conf-test] + -- Dead after dashed, two options, in order that they should be considered:
  19107. 1088.95 s [opt-env-conf-test] + -- * The dashed is a switch (don't consume an arg)
  19108. 1088.95 s [opt-env-conf-test] + -- * The dashed is an argument
  19109. 1088.95 s [opt-env-conf-test] + -- TODO we need to continue looking too
  19110. 1088.95 s [opt-env-conf-test] + let switchCase =
  19111. 1088.95 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [firstArg]) afters)
  19112. 1088.95 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  19113. 1088.95 s [opt-env-conf-test] + ]
  19114. 1088.95 s [opt-env-conf-test] + in case afters of
  19115. 1088.95 s [opt-env-conf-test] + -- Last argument is is dashed, that's the same as being followed by a dead argument
  19116. 1088.95 s [opt-env-conf-test] + [] -> switchCase
  19117. 1088.95 s [opt-env-conf-test] + (Dead : _) -> switchCase
  19118. 1088.95 s [opt-env-conf-test] + (Live a' : rest) ->
  19119. 1088.95 s [opt-env-conf-test] + -- Live after dashed, three options, in order that they should be considered:
  19120. 1088.95 s [opt-env-conf-test] + -- * The dashed is an option and the live is the value
  19121. 1088.95 s [opt-env-conf-test] + -- * The dashed is a switch and the live is an argument
  19122. 1088.95 s [opt-env-conf-test] + -- * The dashed is an argument
  19123. 1088.95 s [opt-env-conf-test] + ( case a' of
  19124. 1088.95 s [opt-env-conf-test] + ArgDashed {} ->
  19125. 1088.95 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a]) afters)
  19126. 1088.95 s [opt-env-conf-test] + ++ [ (Just (renderArg a), consumed)
  19127. 1088.95 s [opt-env-conf-test] + ]
  19128. 1088.95 s [opt-env-conf-test] + _ ->
  19129. 1088.95 s [opt-env-conf-test] + consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  19130. 1088.95 s [opt-env-conf-test] + ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  19131. 1088.95 s [opt-env-conf-test] + (Just (renderArg a), consumed)
  19132. 1088.95 s [opt-env-conf-test] + ]
  19133. 1088.95 s [opt-env-conf-test] + )
  19134. 1088.95 s [opt-env-conf-test]
  19135. 1088.95 s [opt-env-conf-test] -- | Consume an option.
  19136. 1088.95 s [opt-env-conf-test] --
  19137. 1088.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:32-41
  19138. 1088.95 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  19139. 1088.95 s [opt-env-conf-test] Maybe String
  19140. 1088.95 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  19141. 1088.95 s [opt-env-conf-test] (c :| rest)
  19142. 1088.95 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  19143. 1088.95 s [opt-env-conf-test] + | c `elem` dasheds && not (True) ->
  19144. 1088.95 s [opt-env-conf-test] Just rest
  19145. 1088.95 s [opt-env-conf-test] _ -> Nothing
  19146. 1088.95 s [opt-env-conf-test]
  19147. 1088.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
  19148. 1088.95 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  19149. 1088.95 s [opt-env-conf-test] Nothing ->
  19150. 1088.95 s [opt-env-conf-test] case rest of
  19151. 1088.95 s [opt-env-conf-test] (Live v : rest') ->
  19152. 1088.95 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  19153. 1088.95 s [opt-env-conf-test] + case consumeDashedOption dasheds False cs of
  19154. 1088.95 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  19155. 1088.95 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  19156. 1088.95 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  19157. 1088.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  19158. 1088.95 s [opt-env-conf-test] @@ -222,9 +222,9 @@
  19159. 1088.95 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  19160. 1088.95 s [opt-env-conf-test] Nothing ->
  19161. 1088.95 s [opt-env-conf-test] -- TODO option value on the border
  19162. 1088.95 s [opt-env-conf-test] - case go (argsAfter as) of
  19163. 1088.95 s [opt-env-conf-test] - Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  19164. 1088.95 s [opt-env-conf-test] - Nothing -> Nothing
  19165. 1088.95 s [opt-env-conf-test] + case go (argsAfter as) of
  19166. 1088.95 s [opt-env-conf-test] + Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  19167. 1088.95 s [opt-env-conf-test] + Nothing -> Nothing
  19168. 1088.95 s [opt-env-conf-test] where
  19169. 1088.95 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  19170. 1088.95 s [opt-env-conf-test] go = \case
  19171. 1092.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
  19172. 1092.99 s [opt-env-conf-test] @@ -124,13 +124,13 @@
  19173. 1093.08 s [opt-env-conf-test] ppIndent $ do
  19174. 1093.08 s [opt-env-conf-test] debug ["Trying left side."]
  19175. 1093.08 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  19176. 1093.08 s [opt-env-conf-test] - case eor of
  19177. 1093.08 s [opt-env-conf-test] - Just a -> do
  19178. 1093.08 s [opt-env-conf-test] - debug ["Left side succeeded."]
  19179. 1093.08 s [opt-env-conf-test] - pure a
  19180. 1093.08 s [opt-env-conf-test] - Nothing -> do
  19181. 1093.08 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  19182. 1093.08 s [opt-env-conf-test] - ppIndent $ go p2
  19183. 1093.08 s [opt-env-conf-test] + case eor of
  19184. 1093.08 s [opt-env-conf-test] + Just a -> do
  19185. 1093.08 s [opt-env-conf-test] + debug ["Left side succeeded."]
  19186. 1093.08 s [opt-env-conf-test] + pure a
  19187. 1093.08 s [opt-env-conf-test] + Nothing -> do
  19188. 1093.08 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  19189. 1093.08 s [opt-env-conf-test] + ppIndent $ go p2
  19190. 1093.08 s [opt-env-conf-test] ParserMany mLoc p' -> do
  19191. 1093.08 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  19192. 1093.08 s [opt-env-conf-test] ppIndent $ do
  19193. 1093.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
  19194. 1093.08 s [opt-env-conf-test] @@ -216,11 +216,11 @@
  19195. 1093.08 s [opt-env-conf-test] debug ["Choosing default command: ", commandChunk (commandArg dc)]
  19196. 1093.08 s [opt-env-conf-test] go $ commandParser dc
  19197. 1093.08 s [opt-env-conf-test] Just s -> do
  19198. 1093.08 s [opt-env-conf-test] - case find ((== s) . commandArg) cs of
  19199. 1093.08 s [opt-env-conf-test] - Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  19200. 1093.08 s [opt-env-conf-test] - Just c -> do
  19201. 1093.08 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  19202. 1093.08 s [opt-env-conf-test] - go $ commandParser c
  19203. 1093.08 s [opt-env-conf-test] + case find ((== s) . commandArg) cs of
  19204. 1093.08 s [opt-env-conf-test] + Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  19205. 1093.08 s [opt-env-conf-test] + Just c -> do
  19206. 1093.08 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  19207. 1093.08 s [opt-env-conf-test] + go $ commandParser c
  19208. 1093.08 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  19209. 1093.08 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  19210. 1093.08 s [opt-env-conf-test] ppIndent $ do
  19211. 1093.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
  19212. 1093.09 s [opt-env-conf-test] @@ -124,13 +124,13 @@
  19213. 1093.09 s [opt-env-conf-test] ppIndent $ do
  19214. 1093.09 s [opt-env-conf-test] debug ["Trying left side."]
  19215. 1093.09 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  19216. 1093.09 s [opt-env-conf-test] - case eor of
  19217. 1093.09 s [opt-env-conf-test] - Just a -> do
  19218. 1093.09 s [opt-env-conf-test] - debug ["Left side succeeded."]
  19219. 1093.09 s [opt-env-conf-test] - pure a
  19220. 1093.09 s [opt-env-conf-test] - Nothing -> do
  19221. 1093.09 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  19222. 1093.09 s [opt-env-conf-test] - ppIndent $ go p2
  19223. 1093.09 s [opt-env-conf-test] + case eor of
  19224. 1093.09 s [opt-env-conf-test] + Just a -> do
  19225. 1093.09 s [opt-env-conf-test] + debug ["Left side succeeded."]
  19226. 1093.09 s [opt-env-conf-test] + pure a
  19227. 1093.09 s [opt-env-conf-test] + Nothing -> do
  19228. 1093.09 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  19229. 1093.09 s [opt-env-conf-test] + ppIndent $ go p2
  19230. 1093.09 s [opt-env-conf-test] ParserMany mLoc p' -> do
  19231. 1093.09 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  19232. 1093.09 s [opt-env-conf-test] ppIndent $ do
  19233. 1093.09 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:161:18-50
  19234. 1093.09 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  19235. 1093.09 s [opt-env-conf-test] case result of
  19236. 1093.09 s [opt-env-conf-test] Success a -> pure a
  19237. 1093.09 s [opt-env-conf-test] Failure errs -> do
  19238. 1093.09 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  19239. 1093.09 s [opt-env-conf-test] + if not (not $ all errorIsForgivable errs)
  19240. 1093.09 s [opt-env-conf-test] then ppErrors' errs
  19241. 1093.09 s [opt-env-conf-test] else do
  19242. 1093.09 s [opt-env-conf-test] -- Settings available below
  19243. 1093.09 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:131:24-31
  19244. 1093.09 s [opt-env-conf-test] @@ -128,9 +128,9 @@
  19245. 1093.09 s [opt-env-conf-test] Just a -> do
  19246. 1093.09 s [opt-env-conf-test] debug ["Left side succeeded."]
  19247. 1093.09 s [opt-env-conf-test] pure a
  19248. 1093.09 s [opt-env-conf-test] - Nothing -> do
  19249. 1093.09 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  19250. 1093.09 s [opt-env-conf-test] - ppIndent $ go p2
  19251. 1093.09 s [opt-env-conf-test] + Nothing -> do
  19252. 1093.09 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  19253. 1093.09 s [opt-env-conf-test] + ppIndent $ go p2
  19254. 1093.09 s [opt-env-conf-test] ParserMany mLoc p' -> do
  19255. 1093.09 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  19256. 1093.09 s [opt-env-conf-test] ppIndent $ do
  19257. 1093.09 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
  19258. 1093.09 s [opt-env-conf-test] @@ -63,9 +63,7 @@
  19259. 1093.09 s [opt-env-conf-test] [ genericValidate arg,
  19260. 1093.09 s [opt-env-conf-test] case arg of
  19261. 1093.09 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19262. 1093.09 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19263. 1093.09 s [opt-env-conf-test] - ('-' : _) -> False
  19264. 1093.09 s [opt-env-conf-test] - _ -> True
  19265. 1093.09 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ True
  19266. 1093.09 s [opt-env-conf-test] _ -> valid
  19267. 1093.09 s [opt-env-conf-test] ]
  19268. 1093.09 s [opt-env-conf-test]
  19269. 1093.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19270. 1093.09 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19271. 1093.09 s [opt-env-conf-test] validate arg =
  19272. 1093.09 s [opt-env-conf-test] mconcat
  19273. 1093.09 s [opt-env-conf-test] [ genericValidate arg,
  19274. 1093.09 s [opt-env-conf-test] - case arg of
  19275. 1093.09 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19276. 1093.09 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19277. 1093.09 s [opt-env-conf-test] - ('-' : _) -> False
  19278. 1093.09 s [opt-env-conf-test] - _ -> True
  19279. 1093.09 s [opt-env-conf-test] - _ -> valid
  19280. 1093.09 s [opt-env-conf-test] + case arg of
  19281. 1093.09 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19282. 1093.09 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19283. 1093.09 s [opt-env-conf-test] + ('-' : _) -> False
  19284. 1093.09 s [opt-env-conf-test] + _ -> True
  19285. 1093.09 s [opt-env-conf-test] + _ -> valid
  19286. 1093.09 s [opt-env-conf-test] ]
  19287. 1093.09 s [opt-env-conf-test]
  19288. 1093.09 s [opt-env-conf-test] instance IsString Arg where
  19289. 1093.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19290. 1093.09 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19291. 1093.09 s [opt-env-conf-test] validate arg =
  19292. 1093.09 s [opt-env-conf-test] mconcat
  19293. 1093.09 s [opt-env-conf-test] [ genericValidate arg,
  19294. 1093.09 s [opt-env-conf-test] - case arg of
  19295. 1093.09 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19296. 1093.09 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19297. 1093.09 s [opt-env-conf-test] - ('-' : _) -> False
  19298. 1093.09 s [opt-env-conf-test] - _ -> True
  19299. 1093.09 s [opt-env-conf-test] - _ -> valid
  19300. 1093.09 s [opt-env-conf-test] + case arg of
  19301. 1093.09 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19302. 1093.09 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19303. 1093.09 s [opt-env-conf-test] + ('-' : _) -> False
  19304. 1093.09 s [opt-env-conf-test] + _ -> True
  19305. 1093.09 s [opt-env-conf-test] + _ -> valid
  19306. 1093.09 s [opt-env-conf-test] ]
  19307. 1093.09 s [opt-env-conf-test]
  19308. 1093.09 s [opt-env-conf-test] instance IsString Arg where
  19309. 1093.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19310. 1093.09 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19311. 1093.09 s [opt-env-conf-test] validate arg =
  19312. 1093.09 s [opt-env-conf-test] mconcat
  19313. 1093.09 s [opt-env-conf-test] [ genericValidate arg,
  19314. 1093.09 s [opt-env-conf-test] - case arg of
  19315. 1093.09 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19316. 1093.09 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19317. 1093.09 s [opt-env-conf-test] - ('-' : _) -> False
  19318. 1093.09 s [opt-env-conf-test] - _ -> True
  19319. 1093.09 s [opt-env-conf-test] - _ -> valid
  19320. 1093.09 s [opt-env-conf-test] + case arg of
  19321. 1093.09 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19322. 1093.09 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19323. 1093.09 s [opt-env-conf-test] + ('-' : _) -> False
  19324. 1093.09 s [opt-env-conf-test] + _ -> True
  19325. 1093.09 s [opt-env-conf-test] + _ -> valid
  19326. 1093.09 s [opt-env-conf-test] ]
  19327. 1093.09 s [opt-env-conf-test]
  19328. 1093.09 s [opt-env-conf-test] instance IsString Arg where
  19329. 1093.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  19330. 1093.09 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  19331. 1093.09 s [opt-env-conf-test] [ genericValidate arg,
  19332. 1093.09 s [opt-env-conf-test] case arg of
  19333. 1093.09 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19334. 1093.09 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19335. 1093.09 s [opt-env-conf-test] - ('-' : _) -> False
  19336. 1093.09 s [opt-env-conf-test] - _ -> True
  19337. 1093.09 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19338. 1093.09 s [opt-env-conf-test] + ('-' : _) -> False
  19339. 1093.09 s [opt-env-conf-test] + _ -> True
  19340. 1093.09 s [opt-env-conf-test] _ -> valid
  19341. 1093.09 s [opt-env-conf-test] ]
  19342. 1093.09 s [opt-env-conf-test]
  19343. 1093.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  19344. 1093.09 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  19345. 1093.09 s [opt-env-conf-test] [ genericValidate arg,
  19346. 1093.09 s [opt-env-conf-test] case arg of
  19347. 1093.09 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19348. 1093.09 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19349. 1093.09 s [opt-env-conf-test] - ('-' : _) -> False
  19350. 1093.09 s [opt-env-conf-test] - _ -> True
  19351. 1093.09 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19352. 1093.09 s [opt-env-conf-test] + ('-' : _) -> False
  19353. 1093.09 s [opt-env-conf-test] + _ -> True
  19354. 1093.09 s [opt-env-conf-test] _ -> valid
  19355. 1093.09 s [opt-env-conf-test] ]
  19356. 1093.09 s [opt-env-conf-test]
  19357. 1093.09 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:66:64-22
  19358. 1093.09 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  19359. 1093.09 s [opt-env-conf-test] [ genericValidate arg,
  19360. 1093.09 s [opt-env-conf-test] case arg of
  19361. 1093.09 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19362. 1093.09 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19363. 1093.09 s [opt-env-conf-test] - ('-' : _) -> False
  19364. 1093.09 s [opt-env-conf-test] - _ -> True
  19365. 1093.09 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ not (case s of
  19366. 1093.09 s [opt-env-conf-test] + ('-' : _) -> False
  19367. 1093.09 s [opt-env-conf-test] + _ -> True)
  19368. 1093.09 s [opt-env-conf-test] _ -> valid
  19369. 1093.09 s [opt-env-conf-test] ]
  19370. 1093.09 s [opt-env-conf-test]
  19371. 1093.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
  19372. 1093.10 s [opt-env-conf-test] @@ -60,14 +60,7 @@
  19373. 1093.10 s [opt-env-conf-test] instance Validity Arg where
  19374. 1093.10 s [opt-env-conf-test] validate arg =
  19375. 1093.10 s [opt-env-conf-test] mconcat
  19376. 1093.10 s [opt-env-conf-test] - [ genericValidate arg,
  19377. 1093.10 s [opt-env-conf-test] - case arg of
  19378. 1093.10 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19379. 1093.10 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19380. 1093.10 s [opt-env-conf-test] - ('-' : _) -> False
  19381. 1093.10 s [opt-env-conf-test] - _ -> True
  19382. 1093.10 s [opt-env-conf-test] - _ -> valid
  19383. 1093.10 s [opt-env-conf-test] - ]
  19384. 1093.10 s [opt-env-conf-test] + []
  19385. 1093.10 s [opt-env-conf-test]
  19386. 1096.33 s [opt-env-conf-test] instancKilled: 1163
  19387. 1096.33 s [opt-env-conf-test] Survived: 271
  19388. 1096.33 s [opt-env-conf-test] Uncovered: 353
  19389. 1096.34 s [opt-env-conf-test]
  19390. 1096.34 s [opt-env-conf-test] Surviving mutations:
  19391. 1096.34 s [opt-env-conf-test]
  19392. 1096.34 s [opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
  19393. 1096.34 s [opt-env-conf-test] @@ -60,14 +60,14 @@
  19394. 1096.34 s [opt-env-conf-test] instance Validity Arg where
  19395. 1096.34 s [opt-env-conf-test] validate arg =
  19396. 1096.34 s [opt-env-conf-test] mconcat
  19397. 1096.34 s [opt-env-conf-test] - [ genericValidate arg,
  19398. 1096.34 s [opt-env-conf-test] - case arg of
  19399. 1096.34 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19400. 1096.34 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19401. 1096.34 s [opt-env-conf-test] - ('-' : _) -> False
  19402. 1096.34 s [opt-env-conf-test] - _ -> True
  19403. 1096.34 s [opt-env-conf-test] - _ -> valid
  19404. 1096.34 s [opt-env-conf-test] - ]
  19405. 1096.34 s [opt-env-conf-test] + [ genericValidate arg,
  19406. 1096.34 s [opt-env-conf-test] + case arg of
  19407. 1096.34 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19408. 1096.34 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19409. 1096.34 s [opt-env-conf-test] + ('-' : _) -> False
  19410. 1096.34 s [opt-env-conf-test] + _ -> True
  19411. 1096.34 s [opt-env-conf-test] + _ -> valid
  19412. 1096.34 s [opt-env-conf-test] + ]
  19413. 1096.34 s [opt-env-conf-test]
  19414. 1096.34 s [opt-env-conf-test] instance IsString Arg where
  19415. 1096.34 s [opt-env-conf-test] fromString = parseArg
  19416. 1096.34 s [opt-env-conf-test]
  19417. 1096.34 s [opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
  19418. 1096.34 s [opt-env-conf-test] @@ -60,14 +60,7 @@
  19419. 1096.34 s [opt-env-conf-test] instance Validity Arg where
  19420. 1096.34 s [opt-env-conf-test] validate arg =
  19421. 1096.34 s [opt-env-conf-test] mconcat
  19422. 1096.34 s [opt-env-conf-test] - [ genericValidate arg,
  19423. 1096.34 s [opt-env-conf-test] - case arg of
  19424. 1096.34 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19425. 1096.34 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19426. 1096.34 s [opt-env-conf-test] - ('-' : _) -> False
  19427. 1096.34 s [opt-env-conf-test] - _ -> True
  19428. 1096.34 s [opt-env-conf-test] - _ -> valid
  19429. 1096.34 s [opt-env-conf-test] - ]
  19430. 1096.34 s [opt-env-conf-test] + []
  19431. 1096.34 s [opt-env-conf-test]
  19432. 1096.34 s [opt-env-conf-test] instance IsString Arg where
  19433. 1096.34 s [opt-env-conf-test] fromString = parseArg
  19434. 1096.34 s [opt-env-conf-test]
  19435. 1096.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19436. 1096.34 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19437. 1096.34 s [opt-env-conf-test] validate arg =
  19438. 1096.34 s [opt-env-conf-test] mconcat
  19439. 1096.34 s [opt-env-conf-test] [ genericValidate arg,
  19440. 1096.34 s [opt-env-conf-test] - case arg of
  19441. 1096.34 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19442. 1096.34 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19443. 1096.34 s [opt-env-conf-test] - ('-' : _) -> False
  19444. 1096.34 s [opt-env-conf-test] - _ -> True
  19445. 1096.34 s [opt-env-conf-test] - _ -> valid
  19446. 1096.34 s [opt-env-conf-test] + case arg of
  19447. 1096.34 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19448. 1096.34 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19449. 1096.34 s [opt-env-conf-test] + ('-' : _) -> False
  19450. 1096.34 s [opt-env-conf-test] + _ -> True
  19451. 1096.34 s [opt-env-conf-test] + _ -> valid
  19452. 1096.34 s [opt-env-conf-test] ]
  19453. 1096.34 s [opt-env-conf-test]
  19454. 1096.34 s [opt-env-conf-test] instance IsString Arg where
  19455. 1096.34 s [opt-env-conf-test]
  19456. 1096.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  19457. 1096.34 s [opt-env-conf-test] @@ -61,12 +61,12 @@
  19458. 1096.34 s [opt-env-conf-test] validate arg =
  19459. 1096.34 s [opt-env-conf-test] mconcat
  19460. 1096.34 s [opt-env-conf-test] [ genericValidate arg,
  19461. 1096.34 s [opt-env-conf-test] - case arg of
  19462. 1096.34 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19463. 1096.34 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19464. 1096.34 s [opt-env-conf-test] - ('-' : _) -> False
  19465. 1096.34 s [opt-env-conf-test] - _ -> True
  19466. 1096.34 s [opt-env-conf-test] - _ -> valid
  19467. 1096.34 s [opt-env-conf-test] + case arg of
  19468. 1096.34 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19469. 1096.34 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19470. 1096.34 s [opt-env-conf-test] + ('-' : _) -> False
  19471. 1096.34 s [opt-env-conf-test] + _ -> True
  19472. 1096.34 s [opt-env-conf-test] + _ -> valid
  19473. 1096.34 s [opt-env-conf-test] ]
  19474. 1096.34 s [opt-env-conf-test]
  19475. 1096.34 s [opt-env-conf-test] instance IsString Arg where
  19476. 1096.34 s [opt-env-conf-test]
  19477. 1096.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  19478. 1096.34 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  19479. 1096.34 s [opt-env-conf-test] [ genericValidate arg,
  19480. 1096.34 s [opt-env-conf-test] case arg of
  19481. 1096.34 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19482. 1096.34 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19483. 1096.34 s [opt-env-conf-test] - ('-' : _) -> False
  19484. 1096.34 s [opt-env-conf-test] - _ -> True
  19485. 1096.34 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  19486. 1096.34 s [opt-env-conf-test] + ('-' : _) -> False
  19487. 1096.34 s [opt-env-conf-test] + _ -> True
  19488. 1096.34 s [opt-env-conf-test] _ -> valid
  19489. 1096.34 s [opt-env-conf-test] ]
  19490. 1096.34 s [opt-env-conf-test]
  19491. 1096.34 s [opt-env-conf-test]
  19492. 1096.34 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:66:64-22
  19493. 1096.34 s [opt-env-conf-test] @@ -63,9 +63,7 @@
  19494. 1096.34 s [opt-env-conf-test] [ genericValidate arg,
  19495. 1096.34 s [opt-env-conf-test] case arg of
  19496. 1096.34 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19497. 1096.34 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  19498. 1096.34 s [opt-env-conf-test] - ('-' : _) -> False
  19499. 1096.34 s [opt-env-conf-test] - _ -> True
  19500. 1096.34 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ True
  19501. 1096.34 s [opt-env-conf-test] _ -> valid
  19502. 1096.34 s [opt-env-conf-test] ]
  19503. 1096.34 s [opt-env-conf-test]
  19504. 1096.34 s [opt-env-conf-test]
  19505. 1096.34 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:65:103-111
  19506. 1096.34 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  19507. 1096.34 s [opt-env-conf-test] mconcat
  19508. 1096.34 s [opt-env-conf-test] [ genericValidate arg,
  19509. 1096.34 s [opt-env-conf-test] case arg of
  19510. 1096.34 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  19511. 1096.34 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
  19512. 1096.34 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  19513. 1096.34 s [opt-env-conf-test] ('-' : _) -> False
  19514. 1096.34 s [opt-env-conf-test] _ -> True
  19515. 1096.34 s [opt-env-conf-test]
  19516. 1096.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  19517. 1096.34 s [opt-env-conf-test] @@ -396,10 +396,10 @@
  19518. 1096.34 s [opt-env-conf-test] instance Validity Dashed
  19519. 1096.34 s [opt-env-conf-test]
  19520. 1096.34 s [opt-env-conf-test] instance IsString Dashed where
  19521. 1096.34 s [opt-env-conf-test] - fromString s = case fromString s of
  19522. 1096.34 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  19523. 1096.34 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  19524. 1096.34 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  19525. 1096.34 s [opt-env-conf-test] + fromString s = case fromString s of
  19526. 1096.34 s [opt-env-conf-test] + ArgDashed True cs -> DashedLong cs
  19527. 1096.34 s [opt-env-conf-test] + ArgDashed False (c :| []) -> DashedShort c
  19528. 1096.34 s [opt-env-conf-test] + _ -> error "Invalid dashed"
  19529. 1096.34 s [opt-env-conf-test]
  19530. 1096.34 s [opt-env-conf-test] renderDashed :: Dashed -> String
  19531. 1096.34 s [opt-env-conf-test] renderDashed = \case
  19532. 1096.34 s [opt-env-conf-test]
  19533. 1096.34 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:248:77-83
  19534. 1096.34 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  19535. 1096.34 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  19536. 1096.34 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  19537. 1096.34 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  19538. 1096.34 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  19539. 1096.34 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
  19540. 1096.34 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  19541. 1096.34 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  19542. 1096.34 s [opt-env-conf-test]
  19543. 1096.34 s [opt-env-conf-test]
  19544. 1096.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  19545. 1096.35 s [opt-env-conf-test] @@ -149,34 +149,34 @@
  19546. 1096.35 s [opt-env-conf-test] -- A single dash is always an argument
  19547. 1096.35 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  19548. 1096.35 s [opt-env-conf-test] -- Bare double-dash
  19549. 1096.35 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  19550. 1096.35 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  19551. 1096.35 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  19552. 1096.35 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  19553. 1096.35 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  19554. 1096.35 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  19555. 1096.35 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  19556. 1096.35 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  19557. 1096.35 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  19558. 1096.35 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  19559. 1096.35 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  19560. 1096.35 s [opt-env-conf-test] - -- pop the args as they come.
  19561. 1096.35 s [opt-env-conf-test] - _ ->
  19562. 1096.35 s [opt-env-conf-test] - let go = \case
  19563. 1096.35 s [opt-env-conf-test] - [] -> Nothing
  19564. 1096.35 s [opt-env-conf-test] - (Dead : rest) -> go rest
  19565. 1096.35 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  19566. 1096.35 s [opt-env-conf-test] - in case go afters of
  19567. 1096.35 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  19568. 1096.35 s [opt-env-conf-test] - Just (firstLive, rest) ->
  19569. 1096.35 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  19570. 1096.35 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  19571. 1096.35 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  19572. 1096.35 s [opt-env-conf-test] - -- arguments.
  19573. 1096.35 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  19574. 1096.35 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  19575. 1096.35 s [opt-env-conf-test] - )
  19576. 1096.35 s [opt-env-conf-test] - ]
  19577. 1096.35 s [opt-env-conf-test] + ArgBareDoubleDash -> case afters of
  19578. 1096.35 s [opt-env-conf-test] + -- If it's the last argument, consume it as an argument
  19579. 1096.35 s [opt-env-conf-test] + [] -> [(Just "--", consumed)]
  19580. 1096.35 s [opt-env-conf-test] + -- If there's only a dead argument after the double dash, that
  19581. 1096.35 s [opt-env-conf-test] + -- means we've been parsing bare args and are now done.
  19582. 1096.35 s [opt-env-conf-test] + -- We can stop consuming but get rid of the tombstone as well.
  19583. 1096.35 s [opt-env-conf-test] + -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  19584. 1096.35 s [opt-env-conf-test] + [Dead] -> [(Nothing, Args befores [])]
  19585. 1096.35 s [opt-env-conf-test] + -- If it's not the last argument, anything after here is an argument.
  19586. 1096.35 s [opt-env-conf-test] + -- In order to not have to maintain whether the cursor is after
  19587. 1096.35 s [opt-env-conf-test] + -- a bare double dash already, we keep the cursor here and just
  19588. 1096.35 s [opt-env-conf-test] + -- pop the args as they come.
  19589. 1096.35 s [opt-env-conf-test] + _ ->
  19590. 1096.35 s [opt-env-conf-test] + let go = \case
  19591. 1096.35 s [opt-env-conf-test] + [] -> Nothing
  19592. 1096.35 s [opt-env-conf-test] + (Dead : rest) -> go rest
  19593. 1096.35 s [opt-env-conf-test] + (Live a' : rest) -> Just (a', rest)
  19594. 1096.35 s [opt-env-conf-test] + in case go afters of
  19595. 1096.35 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  19596. 1096.35 s [opt-env-conf-test] + Just (firstLive, rest) ->
  19597. 1096.35 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  19598. 1096.35 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  19599. 1096.35 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  19600. 1096.35 s [opt-env-conf-test] + -- arguments.
  19601. 1096.35 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  19602. 1096.35 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  19603. 1096.35 s [opt-env-conf-test] + )
  19604. 1096.35 s [opt-env-conf-test] + ]
  19605. 1096.35 s [opt-env-conf-test] ArgDashed {} ->
  19606. 1096.35 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  19607. 1096.35 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  19608. 1096.35 s [opt-env-conf-test]
  19609. 1096.35 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  19610. 1096.35 s [opt-env-conf-test] @@ -166,17 +166,17 @@
  19611. 1096.35 s [opt-env-conf-test] [] -> Nothing
  19612. 1096.35 s [opt-env-conf-test] (Dead : rest) -> go rest
  19613. 1096.35 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  19614. 1096.35 s [opt-env-conf-test] - in case go afters of
  19615. 1096.35 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  19616. 1096.35 s [opt-env-conf-test] - Just (firstLive, rest) ->
  19617. 1096.35 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  19618. 1096.35 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  19619. 1096.35 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  19620. 1096.35 s [opt-env-conf-test] - -- arguments.
  19621. 1096.35 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  19622. 1096.35 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  19623. 1096.35 s [opt-env-conf-test] - )
  19624. 1096.35 s [opt-env-conf-test] - ]
  19625. 1096.35 s [opt-env-conf-test] + in case go afters of
  19626. 1096.35 s [opt-env-conf-test] + Nothing -> [(Nothing, as)]
  19627. 1096.35 s [opt-env-conf-test] + Just (firstLive, rest) ->
  19628. 1096.35 s [opt-env-conf-test] + -- We need to leave the dead argument there so that
  19629. 1096.35 s [opt-env-conf-test] + -- we don't consume the double-dash as an argument
  19630. 1096.35 s [opt-env-conf-test] + -- after consuming all the arguments after it as bare
  19631. 1096.35 s [opt-env-conf-test] + -- arguments.
  19632. 1096.35 s [opt-env-conf-test] + [ ( Just $ renderArg firstLive,
  19633. 1096.35 s [opt-env-conf-test] + Args befores (Live ArgBareDoubleDash : Dead : rest)
  19634. 1096.35 s [opt-env-conf-test] + )
  19635. 1096.35 s [opt-env-conf-test] + ]
  19636. 1096.35 s [opt-env-conf-test] ArgDashed {} ->
  19637. 1096.35 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  19638. 1096.35 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  19639. 1096.35 s [opt-env-conf-test]
  19640. 1096.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:339:40-46
  19641. 1096.35 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  19642. 1096.35 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  19643. 1096.35 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  19644. 1096.35 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  19645. 1096.35 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  19646. 1096.35 s [opt-env-conf-test] + in Just $ Live (ArgDashed False cs') : rest'
  19647. 1096.35 s [opt-env-conf-test] _ -> do
  19648. 1096.35 s [opt-env-conf-test] os <- go rest
  19649. 1096.35 s [opt-env-conf-test] pure $ Live o : os
  19650. 1096.35 s [opt-env-conf-test]
  19651. 1096.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:365:34-43
  19652. 1096.35 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  19653. 1096.35 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  19654. 1096.35 s [opt-env-conf-test] go (c :| rest) =
  19655. 1096.35 s [opt-env-conf-test] if c `elem` cs
  19656. 1096.35 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  19657. 1096.35 s [opt-env-conf-test] + then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
  19658. 1096.35 s [opt-env-conf-test] else do
  19659. 1096.35 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  19660. 1096.35 s [opt-env-conf-test] new <- go rest'
  19661. 1096.35 s [opt-env-conf-test]
  19662. 1096.35 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:440:44-42
  19663. 1096.35 s [opt-env-conf-test] @@ -437,21 +437,21 @@
  19664. 1096.35 s [opt-env-conf-test] Just (a, _) -> do
  19665. 1096.35 s [opt-env-conf-test] debug ["set to default value"]
  19666. 1096.35 s [opt-env-conf-test] pure a -- Don't mark as parsed
  19667. 1096.35 s [opt-env-conf-test] - Nothing -> do
  19668. 1096.35 s [opt-env-conf-test] - let parseResultError e res = case res of
  19669. 1096.35 s [opt-env-conf-test] - NotRun -> Nothing
  19670. 1096.35 s [opt-env-conf-test] - NotFound -> Just e
  19671. 1096.35 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  19672. 1096.35 s [opt-env-conf-test] - debug ["not found"]
  19673. 1096.35 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  19674. 1096.35 s [opt-env-conf-test] - NE.nonEmpty $
  19675. 1096.35 s [opt-env-conf-test] - catMaybes
  19676. 1096.35 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  19677. 1096.35 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  19678. 1096.35 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  19679. 1096.35 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  19680. 1096.35 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  19681. 1096.35 s [opt-env-conf-test] - ]
  19682. 1096.35 s [opt-env-conf-test] + Nothing -> do
  19683. 1096.35 s [opt-env-conf-test] + let parseResultError e res = case res of
  19684. 1096.35 s [opt-env-conf-test] + NotRun -> Nothing
  19685. 1096.35 s [opt-env-conf-test] + NotFound -> Just e
  19686. 1096.36 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  19687. 1096.36 s [opt-env-conf-test] + debug ["not found"]
  19688. 1096.36 s [opt-env-conf-test] + maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  19689. 1096.36 s [opt-env-conf-test] + NE.nonEmpty $
  19690. 1096.36 s [opt-env-conf-test] + catMaybes
  19691. 1096.36 s [opt-env-conf-test] + [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  19692. 1096.36 s [opt-env-conf-test] + parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  19693. 1096.36 s [opt-env-conf-test] + parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  19694. 1096.36 s [opt-env-conf-test] + parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  19695. 1096.36 s [opt-env-conf-test] + parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  19696. 1096.36 s [opt-env-conf-test] + ]
  19697. 1096.36 s [opt-env-conf-test]
  19698. 1096.36 s [opt-env-conf-test] withCapabilities ::
  19699. 1096.36 s [opt-env-conf-test] Maybe SrcLoc ->
  19700. 1096.36 s [opt-env-conf-test]
  19701. 1096.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  19702. 1096.36 s [opt-env-conf-test] @@ -438,10 +438,10 @@
  19703. 1096.36 s [opt-env-conf-test] debug ["set to default value"]
  19704. 1096.36 s [opt-env-conf-test] pure a -- Don't mark as parsed
  19705. 1096.36 s [opt-env-conf-test] Nothing -> do
  19706. 1096.36 s [opt-env-conf-test] - let parseResultError e res = case res of
  19707. 1096.36 s [opt-env-conf-test] - NotRun -> Nothing
  19708. 1096.36 s [opt-env-conf-test] - NotFound -> Just e
  19709. 1096.36 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  19710. 1096.36 s [opt-env-conf-test] + let parseResultError e res = case res of
  19711. 1096.36 s [opt-env-conf-test] + NotRun -> Nothing
  19712. 1096.36 s [opt-env-conf-test] + NotFound -> Just e
  19713. 1096.36 s [opt-env-conf-test] + Found _ -> Nothing -- Should not happen.
  19714. 1096.36 s [opt-env-conf-test] debug ["not found"]
  19715. 1096.36 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  19716. 1096.36 s [opt-env-conf-test] NE.nonEmpty $
  19717. 1096.36 s [opt-env-conf-test]
  19718. 1096.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  19719. 1096.36 s [opt-env-conf-test] @@ -393,30 +393,30 @@
  19720. 1096.36 s [opt-env-conf-test] case mO' of
  19721. 1096.36 s [opt-env-conf-test] Nothing -> pure Nothing
  19722. 1096.36 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  19723. 1096.36 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  19724. 1096.36 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19725. 1096.36 s [opt-env-conf-test] - Right mV -> case mV of
  19726. 1096.36 s [opt-env-conf-test] - Nothing -> do
  19727. 1096.36 s [opt-env-conf-test] - debug
  19728. 1096.36 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  19729. 1096.36 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  19730. 1096.36 s [opt-env-conf-test] - ]
  19731. 1096.36 s [opt-env-conf-test] - pure Nothing
  19732. 1096.36 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  19733. 1096.36 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19734. 1096.36 s [opt-env-conf-test] - Right mA -> case mA of
  19735. 1096.36 s [opt-env-conf-test] - Nothing -> do
  19736. 1096.36 s [opt-env-conf-test] - debug
  19737. 1096.36 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  19738. 1096.36 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  19739. 1096.36 s [opt-env-conf-test] - ]
  19740. 1096.36 s [opt-env-conf-test] - pure Nothing
  19741. 1096.36 s [opt-env-conf-test] - Just a -> do
  19742. 1096.36 s [opt-env-conf-test] - debug
  19743. 1096.36 s [opt-env-conf-test] - [ "set based on config value: ",
  19744. 1096.36 s [opt-env-conf-test] - chunk $ T.pack $ show v
  19745. 1096.36 s [opt-env-conf-test] - ]
  19746. 1096.36 s [opt-env-conf-test] - pure $ Just a
  19747. 1096.36 s [opt-env-conf-test] + case JSON.parseEither (jsonParser obj) configValSettingPath of
  19748. 1096.36 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19749. 1096.36 s [opt-env-conf-test] + Right mV -> case mV of
  19750. 1096.36 s [opt-env-conf-test] + Nothing -> do
  19751. 1096.36 s [opt-env-conf-test] + debug
  19752. 1096.36 s [opt-env-conf-test] + [ "could not set based on config value, not configured: ",
  19753. 1096.36 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  19754. 1096.36 s [opt-env-conf-test] + ]
  19755. 1096.36 s [opt-env-conf-test] + pure Nothing
  19756. 1096.36 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  19757. 1096.36 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19758. 1096.36 s [opt-env-conf-test] + Right mA -> case mA of
  19759. 1096.36 s [opt-env-conf-test] + Nothing -> do
  19760. 1096.36 s [opt-env-conf-test] + debug
  19761. 1096.36 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  19762. 1096.36 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  19763. 1096.36 s [opt-env-conf-test] + ]
  19764. 1096.36 s [opt-env-conf-test] + pure Nothing
  19765. 1096.36 s [opt-env-conf-test] + Just a -> do
  19766. 1096.36 s [opt-env-conf-test] + debug
  19767. 1096.36 s [opt-env-conf-test] + [ "set based on config value: ",
  19768. 1096.36 s [opt-env-conf-test] + chunk $ T.pack $ show v
  19769. 1096.36 s [opt-env-conf-test] + ]
  19770. 1096.36 s [opt-env-conf-test] + pure $ Just a
  19771. 1096.36 s [opt-env-conf-test] let toRes = \case
  19772. 1096.36 s [opt-env-conf-test] Nothing -> NotFound
  19773. 1096.36 s [opt-env-conf-test] Just a -> Found a
  19774. 1096.36 s [opt-env-conf-test]
  19775. 1096.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  19776. 1096.36 s [opt-env-conf-test] @@ -402,21 +402,21 @@
  19777. 1096.36 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  19778. 1096.36 s [opt-env-conf-test] ]
  19779. 1096.36 s [opt-env-conf-test] pure Nothing
  19780. 1096.36 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  19781. 1096.36 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19782. 1096.36 s [opt-env-conf-test] - Right mA -> case mA of
  19783. 1096.36 s [opt-env-conf-test] - Nothing -> do
  19784. 1096.36 s [opt-env-conf-test] - debug
  19785. 1096.36 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  19786. 1096.36 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  19787. 1096.36 s [opt-env-conf-test] - ]
  19788. 1096.36 s [opt-env-conf-test] - pure Nothing
  19789. 1096.36 s [opt-env-conf-test] - Just a -> do
  19790. 1096.36 s [opt-env-conf-test] - debug
  19791. 1096.36 s [opt-env-conf-test] - [ "set based on config value: ",
  19792. 1096.36 s [opt-env-conf-test] - chunk $ T.pack $ show v
  19793. 1096.36 s [opt-env-conf-test] - ]
  19794. 1096.36 s [opt-env-conf-test] - pure $ Just a
  19795. 1096.36 s [opt-env-conf-test] + Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  19796. 1096.36 s [opt-env-conf-test] + Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19797. 1096.36 s [opt-env-conf-test] + Right mA -> case mA of
  19798. 1096.36 s [opt-env-conf-test] + Nothing -> do
  19799. 1096.36 s [opt-env-conf-test] + debug
  19800. 1096.36 s [opt-env-conf-test] + [ "could not set based on config value, configured to nothing: ",
  19801. 1096.36 s [opt-env-conf-test] + chunk $ T.pack $ show $ NE.toList configValSettingPath
  19802. 1096.36 s [opt-env-conf-test] + ]
  19803. 1096.36 s [opt-env-conf-test] + pure Nothing
  19804. 1096.36 s [opt-env-conf-test] + Just a -> do
  19805. 1096.36 s [opt-env-conf-test] + debug
  19806. 1096.36 s [opt-env-conf-test] + [ "set based on config value: ",
  19807. 1096.36 s [opt-env-conf-test] + chunk $ T.pack $ show v
  19808. 1096.36 s [opt-env-conf-test] + ]
  19809. 1096.36 s [opt-env-conf-test] + pure $ Just a
  19810. 1096.36 s [opt-env-conf-test] let toRes = \case
  19811. 1096.36 s [opt-env-conf-test] Nothing -> NotFound
  19812. 1096.36 s [opt-env-conf-test] Just a -> Found a
  19813. 1096.36 s [opt-env-conf-test]
  19814. 1096.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  19815. 1096.36 s [opt-env-conf-test] @@ -390,9 +390,9 @@
  19816. 1096.36 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  19817. 1096.36 s [opt-env-conf-test] Just neRest -> do
  19818. 1096.36 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  19819. 1096.36 s [opt-env-conf-test] - case mO' of
  19820. 1096.36 s [opt-env-conf-test] - Nothing -> pure Nothing
  19821. 1096.36 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  19822. 1096.36 s [opt-env-conf-test] + case mO' of
  19823. 1096.36 s [opt-env-conf-test] + Nothing -> pure Nothing
  19824. 1096.36 s [opt-env-conf-test] + Just o' -> jsonParser o' neRest
  19825. 1096.36 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  19826. 1096.36 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  19827. 1096.36 s [opt-env-conf-test] Right mV -> case mV of
  19828. 1096.36 s [opt-env-conf-test]
  19829. 1096.36 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:224:38-20
  19830. 1096.36 s [opt-env-conf-test] @@ -221,15 +221,15 @@
  19831. 1096.36 s [opt-env-conf-test] Just c -> do
  19832. 1096.36 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  19833. 1096.36 s [opt-env-conf-test] go $ commandParser c
  19834. 1096.36 s [opt-env-conf-test] - ParserWithConfig mLoc pc pa -> do
  19835. 1096.36 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  19836. 1096.36 s [opt-env-conf-test] - ppIndent $ do
  19837. 1096.36 s [opt-env-conf-test] - debug ["loading config"]
  19838. 1096.36 s [opt-env-conf-test] - mNewConfig <- ppIndent $ go pc
  19839. 1096.36 s [opt-env-conf-test] - debug ["with loaded config"]
  19840. 1096.36 s [opt-env-conf-test] - ppIndent $
  19841. 1096.36 s [opt-env-conf-test] - local (\e -> e {ppEnvConf = mNewConfig}) $
  19842. 1096.36 s [opt-env-conf-test] - go pa
  19843. 1096.36 s [opt-env-conf-test] + ParserWithConfig mLoc pc pa -> do
  19844. 1096.36 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  19845. 1096.36 s [opt-env-conf-test] + ppIndent $ do
  19846. 1096.36 s [opt-env-conf-test] + debug ["loading config"]
  19847. 1096.36 s [opt-env-conf-test] + mNewConfig <- ppIndent $ go pc
  19848. 1096.36 s [opt-env-conf-test] + debug ["with loaded config"]
  19849. 1096.36 s [opt-env-conf-test] + ppIndent $
  19850. 1096.36 s [opt-env-conf-test] + local (\e -> e {ppEnvConf = mNewConfig}) $
  19851. 1096.36 s [opt-env-conf-test] + go pa
  19852. 1096.36 s [opt-env-conf-test] ParserSetting mLoc set@Setting {..} -> do
  19853. 1096.36 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  19854. 1096.36 s [opt-env-conf-test] when (not (Set.null settingRequiredCapabilities)) $
  19855. 1096.36 s [opt-env-conf-test]
  19856. 1096.36 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:221:27-39
  19857. 1096.36 s [opt-env-conf-test] @@ -218,9 +218,9 @@
  19858. 1096.36 s [opt-env-conf-test] Just s -> do
  19859. 1096.36 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  19860. 1096.36 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  19861. 1096.36 s [opt-env-conf-test] - Just c -> do
  19862. 1096.36 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  19863. 1096.36 s [opt-env-conf-test] - go $ commandParser c
  19864. 1096.36 s [opt-env-conf-test] + Just c -> do
  19865. 1096.36 s [opt-env-conf-test] + debug ["Set command to ", commandChunk (commandArg c)]
  19866. 1096.36 s [opt-env-conf-test] + go $ commandParser c
  19867. 1096.36 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  19868. 1096.36 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  19869. 1096.36 s [opt-env-conf-test] ppIndent $ do
  19870. 1096.36 s [opt-env-conf-test]
  19871. 1096.36 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:215:28-40
  19872. 1096.36 s [opt-env-conf-test] @@ -212,9 +212,9 @@
  19873. 1096.36 s [opt-env-conf-test] find ((== d) . commandArg) cs
  19874. 1096.36 s [opt-env-conf-test] case mDefaultCommand of
  19875. 1096.36 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  19876. 1096.36 s [opt-env-conf-test] - Just dc -> do
  19877. 1096.36 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  19878. 1096.36 s [opt-env-conf-test] - go $ commandParser dc
  19879. 1096.36 s [opt-env-conf-test] + Just dc -> do
  19880. 1096.36 s [opt-env-conf-test] + debug ["Choosing default command: ", commandChunk (commandArg dc)]
  19881. 1096.36 s [opt-env-conf-test] + go $ commandParser dc
  19882. 1096.36 s [opt-env-conf-test] Just s -> do
  19883. 1096.36 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  19884. 1096.36 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  19885. 1096.36 s [opt-env-conf-test]
  19886. 1096.36 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:195:29-70
  19887. 1096.36 s [opt-env-conf-test] @@ -192,9 +192,9 @@
  19888. 1096.36 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  19889. 1096.36 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19890. 1096.36 s [opt-env-conf-test] case errOrB of
  19891. 1096.36 s [opt-env-conf-test] - Left err -> do
  19892. 1096.36 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19893. 1096.36 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  19894. 1096.36 s [opt-env-conf-test] + Left err -> do
  19895. 1096.36 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19896. 1096.37 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed forgivable err
  19897. 1096.37 s [opt-env-conf-test] Right b -> do
  19898. 1096.37 s [opt-env-conf-test] debug ["succeeded"]
  19899. 1096.37 s [opt-env-conf-test] pure b
  19900. 1096.37 s [opt-env-conf-test]
  19901. 1096.37 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:197:56-66
  19902. 1096.37 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  19903. 1096.37 s [opt-env-conf-test] case errOrB of
  19904. 1096.37 s [opt-env-conf-test] Left err -> do
  19905. 1096.37 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19906. 1096.37 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  19907. 1096.37 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed False err
  19908. 1096.37 s [opt-env-conf-test] Right b -> do
  19909. 1096.37 s [opt-env-conf-test] debug ["succeeded"]
  19910. 1096.37 s [opt-env-conf-test] pure b
  19911. 1096.37 s [opt-env-conf-test]
  19912. 1096.37 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  19913. 1096.37 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  19914. 1096.37 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19915. 1096.37 s [opt-env-conf-test] case errOrB of
  19916. 1096.37 s [opt-env-conf-test] Left err -> do
  19917. 1096.37 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19918. 1096.37 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19919. 1096.37 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  19920. 1096.37 s [opt-env-conf-test] Right b -> do
  19921. 1096.37 s [opt-env-conf-test] debug ["succeeded"]
  19922. 1096.37 s [opt-env-conf-test]
  19923. 1096.37 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  19924. 1096.37 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  19925. 1096.37 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19926. 1096.37 s [opt-env-conf-test] case errOrB of
  19927. 1096.37 s [opt-env-conf-test] Left err -> do
  19928. 1096.37 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19929. 1096.37 s [opt-env-conf-test] + debug []
  19930. 1096.37 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  19931. 1096.37 s [opt-env-conf-test] Right b -> do
  19932. 1096.37 s [opt-env-conf-test] debug ["succeeded"]
  19933. 1096.37 s [opt-env-conf-test]
  19934. 1096.37 s [opt-env-conf-test] Negate at src/OptEnvConf/Run.hs:196:72-82
  19935. 1096.37 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  19936. 1096.37 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19937. 1096.37 s [opt-env-conf-test] case errOrB of
  19938. 1096.37 s [opt-env-conf-test] Left err -> do
  19939. 1096.37 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19940. 1096.37 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
  19941. 1096.37 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  19942. 1096.37 s [opt-env-conf-test] Right b -> do
  19943. 1096.37 s [opt-env-conf-test] debug ["succeeded"]
  19944. 1096.37 s [opt-env-conf-test]
  19945. 1096.37 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:196:72-82
  19946. 1096.37 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  19947. 1096.37 s [opt-env-conf-test] errOrB <- liftIO $ f a
  19948. 1096.37 s [opt-env-conf-test] case errOrB of
  19949. 1096.37 s [opt-env-conf-test] Left err -> do
  19950. 1096.37 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  19951. 1096.37 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show True]
  19952. 1096.37 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  19953. 1096.37 s [opt-env-conf-test] Right b -> do
  19954. 1096.37 s [opt-env-conf-test] debug ["succeeded"]
  19955. 1096.37 s [opt-env-conf-test]
  19956. 1096.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:150:37-112
  19957. 1096.37 s [opt-env-conf-test] @@ -147,34 +147,34 @@
  19958. 1096.37 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  19959. 1096.37 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  19960. 1096.37 s [opt-env-conf-test] pure (a :| as)
  19961. 1096.37 s [opt-env-conf-test] - ParserAllOrNothing mLoc p' -> do
  19962. 1096.37 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  19963. 1096.37 s [opt-env-conf-test] - ppIndent $ do
  19964. 1096.37 s [opt-env-conf-test] - e <- ask
  19965. 1096.37 s [opt-env-conf-test] - s <- get
  19966. 1096.37 s [opt-env-conf-test] - results <- liftIO $ runPP (go p') s e
  19967. 1096.37 s [opt-env-conf-test] - (result, s') <- ppNonDetList results
  19968. 1096.37 s [opt-env-conf-test] - put s'
  19969. 1096.37 s [opt-env-conf-test] - case result of
  19970. 1096.37 s [opt-env-conf-test] - Success a -> pure a
  19971. 1096.37 s [opt-env-conf-test] - Failure errs -> do
  19972. 1096.37 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  19973. 1096.37 s [opt-env-conf-test] - then ppErrors' errs
  19974. 1096.37 s [opt-env-conf-test] - else do
  19975. 1096.37 s [opt-env-conf-test] - -- Settings available below
  19976. 1096.37 s [opt-env-conf-test] - let settingsMap = parserSettingsMap p'
  19977. 1096.37 s [opt-env-conf-test] - -- Settings that have been parsed
  19978. 1096.37 s [opt-env-conf-test] - parsedMap <- gets ppStateParsedSettings
  19979. 1096.37 s [opt-env-conf-test] - -- Settings that have been parsed below
  19980. 1096.37 s [opt-env-conf-test] - let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  19981. 1096.37 s [opt-env-conf-test] - -- If any settings have been parsed below, and parsing still failed
  19982. 1096.37 s [opt-env-conf-test] - -- (this is the case because we're in the failure branch)
  19983. 1096.37 s [opt-env-conf-test] - -- with only forgivable errors
  19984. 1096.37 s [opt-env-conf-test] - -- (this is the case because we're in the branch where that's been checked)
  19985. 1096.37 s [opt-env-conf-test] - -- then this should be an unforgivable error.
  19986. 1096.37 s [opt-env-conf-test] - if null parsedSettingsMap
  19987. 1096.37 s [opt-env-conf-test] - then ppErrors' errs
  19988. 1096.37 s [opt-env-conf-test] - else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  19989. 1096.37 s [opt-env-conf-test] + ParserAllOrNothing mLoc p' -> do
  19990. 1096.37 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  19991. 1096.37 s [opt-env-conf-test] + ppIndent $ do
  19992. 1096.37 s [opt-env-conf-test] + e <- ask
  19993. 1096.37 s [opt-env-conf-test] + s <- get
  19994. 1096.37 s [opt-env-conf-test] + results <- liftIO $ runPP (go p') s e
  19995. 1096.37 s [opt-env-conf-test] + (result, s') <- ppNonDetList results
  19996. 1096.37 s [opt-env-conf-test] + put s'
  19997. 1096.37 s [opt-env-conf-test] + case result of
  19998. 1096.37 s [opt-env-conf-test] + Success a -> pure a
  19999. 1096.37 s [opt-env-conf-test] + Failure errs -> do
  20000. 1096.37 s [opt-env-conf-test] + if not $ all errorIsForgivable errs
  20001. 1096.37 s [opt-env-conf-test] + then ppErrors' errs
  20002. 1096.37 s [opt-env-conf-test] + else do
  20003. 1096.37 s [opt-env-conf-test] + -- Settings available below
  20004. 1096.37 s [opt-env-conf-test] + let settingsMap = parserSettingsMap p'
  20005. 1096.37 s [opt-env-conf-test] + -- Settings that have been parsed
  20006. 1096.37 s [opt-env-conf-test] + parsedMap <- gets ppStateParsedSettings
  20007. 1096.37 s [opt-env-conf-test] + -- Settings that have been parsed below
  20008. 1096.37 s [opt-env-conf-test] + let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  20009. 1096.37 s [opt-env-conf-test] + -- If any settings have been parsed below, and parsing still failed
  20010. 1096.37 s [opt-env-conf-test] + -- (this is the case because we're in the failure branch)
  20011. 1096.37 s [opt-env-conf-test] + -- with only forgivable errors
  20012. 1096.37 s [opt-env-conf-test] + -- (this is the case because we're in the branch where that's been checked)
  20013. 1096.37 s [opt-env-conf-test] + -- then this should be an unforgivable error.
  20014. 1096.37 s [opt-env-conf-test] + if null parsedSettingsMap
  20015. 1096.37 s [opt-env-conf-test] + then ppErrors' errs
  20016. 1096.37 s [opt-env-conf-test] + else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  20017. 1096.37 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  20018. 1096.37 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20019. 1096.37 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  20020. 1096.37 s [opt-env-conf-test]
  20021. 1096.37 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:18-50
  20022. 1096.37 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  20023. 1096.37 s [opt-env-conf-test] case result of
  20024. 1096.37 s [opt-env-conf-test] Success a -> pure a
  20025. 1096.37 s [opt-env-conf-test] Failure errs -> do
  20026. 1096.37 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  20027. 1096.37 s [opt-env-conf-test] + if False
  20028. 1096.37 s [opt-env-conf-test] then ppErrors' errs
  20029. 1096.37 s [opt-env-conf-test] else do
  20030. 1096.37 s [opt-env-conf-test] -- Settings available below
  20031. 1096.37 s [opt-env-conf-test]
  20032. 1096.37 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:24-50
  20033. 1096.37 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  20034. 1096.37 s [opt-env-conf-test] case result of
  20035. 1096.37 s [opt-env-conf-test] Success a -> pure a
  20036. 1096.37 s [opt-env-conf-test] Failure errs -> do
  20037. 1096.37 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  20038. 1096.37 s [opt-env-conf-test] + if not $ True
  20039. 1096.37 s [opt-env-conf-test] then ppErrors' errs
  20040. 1096.37 s [opt-env-conf-test] else do
  20041. 1096.37 s [opt-env-conf-test] -- Settings available below
  20042. 1096.37 s [opt-env-conf-test]
  20043. 1096.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:143:29-25
  20044. 1096.37 s [opt-env-conf-test] @@ -140,13 +140,13 @@
  20045. 1096.37 s [opt-env-conf-test] Just a -> do
  20046. 1096.37 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  20047. 1096.37 s [opt-env-conf-test] pure (a : as)
  20048. 1096.37 s [opt-env-conf-test] - ParserSome mLoc p' -> do
  20049. 1096.37 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20050. 1096.37 s [opt-env-conf-test] - ppIndent $ do
  20051. 1096.37 s [opt-env-conf-test] - a <- go p'
  20052. 1096.37 s [opt-env-conf-test] - debug ["First element of some succeeded, continuing with Many"]
  20053. 1096.37 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  20054. 1096.37 s [opt-env-conf-test] - pure (a :| as)
  20055. 1096.37 s [opt-env-conf-test] + ParserSome mLoc p' -> do
  20056. 1096.37 s [opt-env-conf-test] + debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20057. 1096.37 s [opt-env-conf-test] + ppIndent $ do
  20058. 1096.37 s [opt-env-conf-test] + a <- go p'
  20059. 1096.37 s [opt-env-conf-test] + debug ["First element of some succeeded, continuing with Many"]
  20060. 1096.37 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  20061. 1096.37 s [opt-env-conf-test] + pure (a :| as)
  20062. 1096.37 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  20063. 1096.37 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  20064. 1096.37 s [opt-env-conf-test] ppIndent $ do
  20065. 1096.37 s [opt-env-conf-test]
  20066. 1096.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:134:29-28
  20067. 1096.37 s [opt-env-conf-test] @@ -131,15 +131,15 @@
  20068. 1096.37 s [opt-env-conf-test] Nothing -> do
  20069. 1096.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  20070. 1096.37 s [opt-env-conf-test] ppIndent $ go p2
  20071. 1096.37 s [opt-env-conf-test] - ParserMany mLoc p' -> do
  20072. 1096.37 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20073. 1096.37 s [opt-env-conf-test] - ppIndent $ do
  20074. 1096.37 s [opt-env-conf-test] - eor <- tryPP $ go p'
  20075. 1096.37 s [opt-env-conf-test] - case eor of
  20076. 1096.37 s [opt-env-conf-test] - Nothing -> pure []
  20077. 1096.37 s [opt-env-conf-test] - Just a -> do
  20078. 1096.37 s [opt-env-conf-test] - as <- go (ParserMany mLoc p')
  20079. 1096.37 s [opt-env-conf-test] - pure (a : as)
  20080. 1096.37 s [opt-env-conf-test] + ParserMany mLoc p' -> do
  20081. 1096.37 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20082. 1096.37 s [opt-env-conf-test] + ppIndent $ do
  20083. 1096.37 s [opt-env-conf-test] + eor <- tryPP $ go p'
  20084. 1096.37 s [opt-env-conf-test] + case eor of
  20085. 1096.37 s [opt-env-conf-test] + Nothing -> pure []
  20086. 1096.37 s [opt-env-conf-test] + Just a -> do
  20087. 1096.37 s [opt-env-conf-test] + as <- go (ParserMany mLoc p')
  20088. 1096.37 s [opt-env-conf-test] + pure (a : as)
  20089. 1096.37 s [opt-env-conf-test] ParserSome mLoc p' -> do
  20090. 1096.37 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20091. 1096.37 s [opt-env-conf-test] ppIndent $ do
  20092. 1096.37 s [opt-env-conf-test]
  20093. 1096.37 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  20094. 1096.37 s [opt-env-conf-test] @@ -132,7 +132,8 @@
  20095. 1096.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  20096. 1096.37 s [opt-env-conf-test] ppIndent $ go p2
  20097. 1096.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20098. 1096.37 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20099. 1096.37 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": "
  20100. 1096.37 s [opt-env-conf-test] +]
  20101. 1096.37 s [opt-env-conf-test] ppIndent $ do
  20102. 1096.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  20103. 1096.37 s [opt-env-conf-test] case eor of
  20104. 1096.37 s [opt-env-conf-test]
  20105. 1096.37 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  20106. 1096.37 s [opt-env-conf-test] @@ -132,7 +132,7 @@
  20107. 1096.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  20108. 1096.37 s [opt-env-conf-test] ppIndent $ go p2
  20109. 1096.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20110. 1096.37 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20111. 1096.37 s [opt-env-conf-test] + debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20112. 1096.37 s [opt-env-conf-test] ppIndent $ do
  20113. 1096.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  20114. 1096.37 s [opt-env-conf-test] case eor of
  20115. 1096.37 s [opt-env-conf-test]
  20116. 1096.37 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  20117. 1096.37 s [opt-env-conf-test] @@ -132,7 +132,7 @@
  20118. 1096.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  20119. 1096.37 s [opt-env-conf-test] ppIndent $ go p2
  20120. 1096.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20121. 1096.37 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20122. 1096.37 s [opt-env-conf-test] + debug []
  20123. 1096.37 s [opt-env-conf-test] ppIndent $ do
  20124. 1096.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  20125. 1096.37 s [opt-env-conf-test] case eor of
  20126. 1096.37 s [opt-env-conf-test]
  20127. 1096.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:122:26-31
  20128. 1096.38 s [opt-env-conf-test] @@ -119,18 +119,18 @@
  20129. 1096.38 s [opt-env-conf-test] ParserSelect fe ff -> do
  20130. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  20131. 1096.38 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  20132. 1096.38 s [opt-env-conf-test] - ParserAlt p1 p2 -> do
  20133. 1096.38 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  20134. 1096.38 s [opt-env-conf-test] - ppIndent $ do
  20135. 1096.38 s [opt-env-conf-test] - debug ["Trying left side."]
  20136. 1096.38 s [opt-env-conf-test] - eor <- ppIndent $ tryPP (go p1)
  20137. 1096.38 s [opt-env-conf-test] - case eor of
  20138. 1096.38 s [opt-env-conf-test] - Just a -> do
  20139. 1096.38 s [opt-env-conf-test] - debug ["Left side succeeded."]
  20140. 1096.38 s [opt-env-conf-test] - pure a
  20141. 1096.38 s [opt-env-conf-test] - Nothing -> do
  20142. 1096.38 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  20143. 1096.38 s [opt-env-conf-test] - ppIndent $ go p2
  20144. 1096.38 s [opt-env-conf-test] + ParserAlt p1 p2 -> do
  20145. 1096.38 s [opt-env-conf-test] + debug [syntaxChunk "Alt"]
  20146. 1096.38 s [opt-env-conf-test] + ppIndent $ do
  20147. 1096.38 s [opt-env-conf-test] + debug ["Trying left side."]
  20148. 1096.38 s [opt-env-conf-test] + eor <- ppIndent $ tryPP (go p1)
  20149. 1096.38 s [opt-env-conf-test] + case eor of
  20150. 1096.38 s [opt-env-conf-test] + Just a -> do
  20151. 1096.38 s [opt-env-conf-test] + debug ["Left side succeeded."]
  20152. 1096.38 s [opt-env-conf-test] + pure a
  20153. 1096.38 s [opt-env-conf-test] + Nothing -> do
  20154. 1096.38 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  20155. 1096.38 s [opt-env-conf-test] + ppIndent $ go p2
  20156. 1096.38 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20157. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20158. 1096.38 s [opt-env-conf-test] ppIndent $ do
  20159. 1096.38 s [opt-env-conf-test]
  20160. 1096.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:131:24-31
  20161. 1096.38 s [opt-env-conf-test] @@ -128,9 +128,9 @@
  20162. 1096.38 s [opt-env-conf-test] Just a -> do
  20163. 1096.38 s [opt-env-conf-test] debug ["Left side succeeded."]
  20164. 1096.38 s [opt-env-conf-test] pure a
  20165. 1096.38 s [opt-env-conf-test] - Nothing -> do
  20166. 1096.38 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  20167. 1096.38 s [opt-env-conf-test] - ppIndent $ go p2
  20168. 1096.38 s [opt-env-conf-test] + Nothing -> do
  20169. 1096.38 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  20170. 1096.38 s [opt-env-conf-test] + ppIndent $ go p2
  20171. 1096.38 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20172. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20173. 1096.38 s [opt-env-conf-test] ppIndent $ do
  20174. 1096.38 s [opt-env-conf-test]
  20175. 1096.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:119:29-42
  20176. 1096.38 s [opt-env-conf-test] @@ -116,9 +116,9 @@
  20177. 1096.38 s [opt-env-conf-test] ParserEmpty mLoc -> do
  20178. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20179. 1096.38 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  20180. 1096.38 s [opt-env-conf-test] - ParserSelect fe ff -> do
  20181. 1096.38 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  20182. 1096.38 s [opt-env-conf-test] - ppIndent $ select (go fe) (go ff)
  20183. 1096.38 s [opt-env-conf-test] + ParserSelect fe ff -> do
  20184. 1096.38 s [opt-env-conf-test] + debug [syntaxChunk "Select"]
  20185. 1096.38 s [opt-env-conf-test] + ppIndent $ select (go fe) (go ff)
  20186. 1096.38 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  20187. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Alt"]
  20188. 1096.38 s [opt-env-conf-test] ppIndent $ do
  20189. 1096.38 s [opt-env-conf-test]
  20190. 1096.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:116:27-37
  20191. 1096.38 s [opt-env-conf-test] @@ -113,9 +113,9 @@
  20192. 1096.38 s [opt-env-conf-test] ParserAp ff fa -> do
  20193. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  20194. 1096.38 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  20195. 1096.38 s [opt-env-conf-test] - ParserEmpty mLoc -> do
  20196. 1096.38 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20197. 1096.38 s [opt-env-conf-test] - ppError mLoc ParseErrorEmpty
  20198. 1096.38 s [opt-env-conf-test] + ParserEmpty mLoc -> do
  20199. 1096.38 s [opt-env-conf-test] + debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20200. 1096.38 s [opt-env-conf-test] + ppError mLoc ParseErrorEmpty
  20201. 1096.38 s [opt-env-conf-test] ParserSelect fe ff -> do
  20202. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  20203. 1096.38 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  20204. 1096.38 s [opt-env-conf-test]
  20205. 1096.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:113:25-35
  20206. 1096.38 s [opt-env-conf-test] @@ -110,9 +110,9 @@
  20207. 1096.38 s [opt-env-conf-test] ParserPure a -> do
  20208. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  20209. 1096.38 s [opt-env-conf-test] pure a
  20210. 1096.38 s [opt-env-conf-test] - ParserAp ff fa -> do
  20211. 1096.38 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  20212. 1096.38 s [opt-env-conf-test] - ppIndent $ go ff <*> go fa
  20213. 1096.38 s [opt-env-conf-test] + ParserAp ff fa -> do
  20214. 1096.38 s [opt-env-conf-test] + debug [syntaxChunk "Ap"]
  20215. 1096.38 s [opt-env-conf-test] + ppIndent $ go ff <*> go fa
  20216. 1096.38 s [opt-env-conf-test] ParserEmpty mLoc -> do
  20217. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20218. 1096.38 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  20219. 1096.38 s [opt-env-conf-test]
  20220. 1096.38 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  20221. 1096.38 s [opt-env-conf-test] @@ -81,27 +81,27 @@
  20222. 1096.38 s [opt-env-conf-test] Nothing -> pure result
  20223. 1096.38 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  20224. 1096.38 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  20225. 1096.38 s [opt-env-conf-test] - case mTup of
  20226. 1096.38 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  20227. 1096.38 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  20228. 1096.38 s [opt-env-conf-test] - Success a -> pure (Right a)
  20229. 1096.38 s [opt-env-conf-test] - Failure firstErrors ->
  20230. 1096.38 s [opt-env-conf-test] - let goNexts ns = do
  20231. 1096.38 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  20232. 1096.38 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  20233. 1096.38 s [opt-env-conf-test] - case mNext of
  20234. 1096.38 s [opt-env-conf-test] - Nothing ->
  20235. 1096.38 s [opt-env-conf-test] - pure $
  20236. 1096.38 s [opt-env-conf-test] - Left $
  20237. 1096.38 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  20238. 1096.38 s [opt-env-conf-test] - let f = case mDebugMode of
  20239. 1096.38 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  20240. 1096.38 s [opt-env-conf-test] - Just _ -> id
  20241. 1096.38 s [opt-env-conf-test] - in f firstErrors
  20242. 1096.38 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  20243. 1096.38 s [opt-env-conf-test] - Success a -> pure (Right a)
  20244. 1096.38 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  20245. 1096.38 s [opt-env-conf-test] - in goNexts nexts
  20246. 1096.38 s [opt-env-conf-test] + case mTup of
  20247. 1096.38 s [opt-env-conf-test] + Nothing -> error "TODO figure out when this list can be empty"
  20248. 1096.38 s [opt-env-conf-test] + Just ((errOrRes, _), nexts) -> case errOrRes of
  20249. 1096.38 s [opt-env-conf-test] + Success a -> pure (Right a)
  20250. 1096.38 s [opt-env-conf-test] + Failure firstErrors ->
  20251. 1096.38 s [opt-env-conf-test] + let goNexts ns = do
  20252. 1096.38 s [opt-env-conf-test] + -- TODO: Consider keeping around all errors?
  20253. 1096.38 s [opt-env-conf-test] + mNext <- runNonDetTLazy ns
  20254. 1096.38 s [opt-env-conf-test] + case mNext of
  20255. 1096.38 s [opt-env-conf-test] + Nothing ->
  20256. 1096.38 s [opt-env-conf-test] + pure $
  20257. 1096.38 s [opt-env-conf-test] + Left $
  20258. 1096.38 s [opt-env-conf-test] + -- Only show source locations in debug mode.
  20259. 1096.38 s [opt-env-conf-test] + let f = case mDebugMode of
  20260. 1096.38 s [opt-env-conf-test] + Nothing -> eraseErrorSrcLocs
  20261. 1096.38 s [opt-env-conf-test] + Just _ -> id
  20262. 1096.38 s [opt-env-conf-test] + in f firstErrors
  20263. 1096.38 s [opt-env-conf-test] + Just ((eOR, _), ns') -> case eOR of
  20264. 1096.38 s [opt-env-conf-test] + Success a -> pure (Right a)
  20265. 1096.38 s [opt-env-conf-test] + Failure _ -> goNexts ns'
  20266. 1096.38 s [opt-env-conf-test] + in goNexts nexts
  20267. 1096.38 s [opt-env-conf-test] where
  20268. 1096.38 s [opt-env-conf-test] go ::
  20269. 1096.38 s [opt-env-conf-test] Parser a ->
  20270. 1096.38 s [opt-env-conf-test]
  20271. 1096.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:464:22-66
  20272. 1096.38 s [opt-env-conf-test] @@ -461,11 +461,11 @@
  20273. 1096.38 s [opt-env-conf-test] PP a
  20274. 1096.38 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  20275. 1096.38 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  20276. 1096.38 s [opt-env-conf-test] - Just missings -> do
  20277. 1096.38 s [opt-env-conf-test] - debug $
  20278. 1096.38 s [opt-env-conf-test] - "Missing capabilities: "
  20279. 1096.38 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  20280. 1096.38 s [opt-env-conf-test] - ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  20281. 1096.38 s [opt-env-conf-test] + Just missings -> do
  20282. 1096.38 s [opt-env-conf-test] + debug $
  20283. 1096.38 s [opt-env-conf-test] + "Missing capabilities: "
  20284. 1096.38 s [opt-env-conf-test] + : capabilitiesChunks (Set.fromList (NE.toList missings))
  20285. 1096.38 s [opt-env-conf-test] + ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  20286. 1096.38 s [opt-env-conf-test] Nothing -> func
  20287. 1096.38 s [opt-env-conf-test]
  20288. 1096.38 s [opt-env-conf-test] data ParseResult a
  20289. 1096.38 s [opt-env-conf-test]
  20290. 1096.38 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  20291. 1096.38 s [opt-env-conf-test] @@ -474,9 +474,9 @@
  20292. 1096.38 s [opt-env-conf-test] | Found a
  20293. 1096.38 s [opt-env-conf-test]
  20294. 1096.38 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  20295. 1096.38 s [opt-env-conf-test] -requireReaders rs = case NE.nonEmpty rs of
  20296. 1096.38 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  20297. 1096.38 s [opt-env-conf-test] - Just ne -> pure ne
  20298. 1096.38 s [opt-env-conf-test] +requireReaders rs = case NE.nonEmpty rs of
  20299. 1096.38 s [opt-env-conf-test] + Nothing -> ppError Nothing ParseErrorNoReaders
  20300. 1096.38 s [opt-env-conf-test] + Just ne -> pure ne
  20301. 1096.38 s [opt-env-conf-test]
  20302. 1096.38 s [opt-env-conf-test] -- Try the readers in order
  20303. 1096.38 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  20304. 1096.38 s [opt-env-conf-test]
  20305. 1096.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:568:44-43
  20306. 1096.38 s [opt-env-conf-test] @@ -565,12 +565,12 @@
  20307. 1096.38 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  20308. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20309. 1096.38 s [opt-env-conf-test] ppIndent $ go p'
  20310. 1096.38 s [opt-env-conf-test] - ParserWithConfig mLoc pc pa -> do
  20311. 1096.38 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  20312. 1096.38 s [opt-env-conf-test] - ppIndent $ do
  20313. 1096.38 s [opt-env-conf-test] - mNewConfig <- go pc
  20314. 1096.38 s [opt-env-conf-test] - mRes <- go pa
  20315. 1096.38 s [opt-env-conf-test] - pure $ mRes <|> mNewConfig -- Reverse order
  20316. 1096.38 s [opt-env-conf-test] + ParserWithConfig mLoc pc pa -> do
  20317. 1096.38 s [opt-env-conf-test] + debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  20318. 1096.38 s [opt-env-conf-test] + ppIndent $ do
  20319. 1096.38 s [opt-env-conf-test] + mNewConfig <- go pc
  20320. 1096.38 s [opt-env-conf-test] + mRes <- go pa
  20321. 1096.38 s [opt-env-conf-test] + pure $ mRes <|> mNewConfig -- Reverse order
  20322. 1096.38 s [opt-env-conf-test] ParserSetting mLoc _ -> do
  20323. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  20324. 1096.38 s [opt-env-conf-test] pure Nothing
  20325. 1096.38 s [opt-env-conf-test]
  20326. 1096.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:565:42-31
  20327. 1096.38 s [opt-env-conf-test] @@ -562,9 +562,9 @@
  20328. 1096.38 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  20329. 1096.38 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  20330. 1096.38 s [opt-env-conf-test] ppIndent $ go p'
  20331. 1096.38 s [opt-env-conf-test] - ParserCheck mLoc _ _ _ p' -> do
  20332. 1096.39 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20333. 1096.39 s [opt-env-conf-test] - ppIndent $ go p'
  20334. 1096.39 s [opt-env-conf-test] + ParserCheck mLoc _ _ _ p' -> do
  20335. 1096.39 s [opt-env-conf-test] + debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20336. 1096.39 s [opt-env-conf-test] + ppIndent $ go p'
  20337. 1096.39 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  20338. 1096.39 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  20339. 1096.39 s [opt-env-conf-test] ppIndent $ do
  20340. 1096.39 s [opt-env-conf-test]
  20341. 1096.39 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:562:43-31
  20342. 1096.39 s [opt-env-conf-test] @@ -559,9 +559,9 @@
  20343. 1096.39 s [opt-env-conf-test] ParserSome mLoc p' -> do
  20344. 1096.39 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  20345. 1096.39 s [opt-env-conf-test] ppIndent $ go p'
  20346. 1096.39 s [opt-env-conf-test] - ParserAllOrNothing mLoc p' -> do
  20347. 1096.39 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  20348. 1096.39 s [opt-env-conf-test] - ppIndent $ go p'
  20349. 1096.39 s [opt-env-conf-test] + ParserAllOrNothing mLoc p' -> do
  20350. 1096.39 s [opt-env-conf-test] + debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  20351. 1096.39 s [opt-env-conf-test] + ppIndent $ go p'
  20352. 1096.39 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  20353. 1096.39 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  20354. 1096.39 s [opt-env-conf-test] ppIndent $ go p'
  20355. 1096.39 s [opt-env-conf-test]
  20356. 1096.39 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:544:32-37
  20357. 1096.39 s [opt-env-conf-test] @@ -541,18 +541,18 @@
  20358. 1096.39 s [opt-env-conf-test] ParserEmpty mLoc -> do
  20359. 1096.39 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  20360. 1096.39 s [opt-env-conf-test] pure Nothing
  20361. 1096.39 s [opt-env-conf-test] - ParserAlt p1 p2 -> do
  20362. 1096.39 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  20363. 1096.39 s [opt-env-conf-test] - ppIndent $ do
  20364. 1096.39 s [opt-env-conf-test] - debug ["Trying left side."]
  20365. 1096.39 s [opt-env-conf-test] - eor <- ppIndent $ tryPP (go p1)
  20366. 1096.39 s [opt-env-conf-test] - case eor of
  20367. 1096.39 s [opt-env-conf-test] - Just a -> do
  20368. 1096.39 s [opt-env-conf-test] - debug ["Left side succeeded."]
  20369. 1096.39 s [opt-env-conf-test] - pure a
  20370. 1096.39 s [opt-env-conf-test] - Nothing -> do
  20371. 1096.39 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  20372. 1096.39 s [opt-env-conf-test] - ppIndent $ go p2
  20373. 1096.39 s [opt-env-conf-test] + ParserAlt p1 p2 -> do
  20374. 1096.39 s [opt-env-conf-test] + debug [syntaxChunk "Alt"]
  20375. 1096.39 s [opt-env-conf-test] + ppIndent $ do
  20376. 1096.39 s [opt-env-conf-test] + debug ["Trying left side."]
  20377. 1096.39 s [opt-env-conf-test] + eor <- ppIndent $ tryPP (go p1)
  20378. 1096.39 s [opt-env-conf-test] + case eor of
  20379. 1096.39 s [opt-env-conf-test] + Just a -> do
  20380. 1096.39 s [opt-env-conf-test] + debug ["Left side succeeded."]
  20381. 1096.39 s [opt-env-conf-test] + pure a
  20382. 1096.39 s [opt-env-conf-test] + Nothing -> do
  20383. 1096.39 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  20384. 1096.39 s [opt-env-conf-test] + ppIndent $ go p2
  20385. 1096.39 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20386. 1096.39 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20387. 1096.39 s [opt-env-conf-test] ppIndent $ go p'
  20388. 1096.39 s [opt-env-conf-test]
  20389. 1096.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  20390. 1096.39 s [opt-env-conf-test] @@ -546,13 +546,13 @@
  20391. 1096.39 s [opt-env-conf-test] ppIndent $ do
  20392. 1096.39 s [opt-env-conf-test] debug ["Trying left side."]
  20393. 1096.39 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  20394. 1096.39 s [opt-env-conf-test] - case eor of
  20395. 1096.39 s [opt-env-conf-test] - Just a -> do
  20396. 1096.39 s [opt-env-conf-test] - debug ["Left side succeeded."]
  20397. 1096.39 s [opt-env-conf-test] - pure a
  20398. 1096.39 s [opt-env-conf-test] - Nothing -> do
  20399. 1096.39 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  20400. 1096.39 s [opt-env-conf-test] - ppIndent $ go p2
  20401. 1096.39 s [opt-env-conf-test] + case eor of
  20402. 1096.39 s [opt-env-conf-test] + Just a -> do
  20403. 1096.39 s [opt-env-conf-test] + debug ["Left side succeeded."]
  20404. 1096.39 s [opt-env-conf-test] + pure a
  20405. 1096.39 s [opt-env-conf-test] + Nothing -> do
  20406. 1096.39 s [opt-env-conf-test] + debug ["Left side failed, trying right side."]
  20407. 1096.39 s [opt-env-conf-test] + ppIndent $ go p2
  20408. 1096.39 s [opt-env-conf-test] ParserMany mLoc p' -> do
  20409. 1096.39 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  20410. 1096.39 s [opt-env-conf-test] ppIndent $ go p'
  20411. 1096.39 s [opt-env-conf-test]
  20412. 1096.39 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:529:31-33
  20413. 1096.39 s [opt-env-conf-test] @@ -526,12 +526,12 @@
  20414. 1096.39 s [opt-env-conf-test] ParserPure _ -> do
  20415. 1096.39 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  20416. 1096.39 s [opt-env-conf-test] pure Nothing
  20417. 1096.39 s [opt-env-conf-test] - ParserAp ff fa -> do
  20418. 1096.39 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  20419. 1096.39 s [opt-env-conf-test] - ppIndent $ do
  20420. 1096.39 s [opt-env-conf-test] - mf <- go ff
  20421. 1096.39 s [opt-env-conf-test] - ma <- go fa
  20422. 1096.39 s [opt-env-conf-test] - pure $ ma <|> mf -- Reverse order
  20423. 1096.39 s [opt-env-conf-test] + ParserAp ff fa -> do
  20424. 1096.39 s [opt-env-conf-test] + debug [syntaxChunk "Ap"]
  20425. 1096.39 s [opt-env-conf-test] + ppIndent $ do
  20426. 1096.39 s [opt-env-conf-test] + mf <- go ff
  20427. 1096.39 s [opt-env-conf-test] + ma <- go fa
  20428. 1096.39 s [opt-env-conf-test] + pure $ ma <|> mf -- Reverse order
  20429. 1096.39 s [opt-env-conf-test] ParserSelect fe ff -> do
  20430. 1096.39 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  20431. 1096.39 s [opt-env-conf-test] ppIndent $ do
  20432. 1096.39 s [opt-env-conf-test]
  20433. 1096.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  20434. 1096.39 s [opt-env-conf-test] @@ -511,11 +511,11 @@
  20435. 1096.39 s [opt-env-conf-test] ppEnvIndent = 0
  20436. 1096.39 s [opt-env-conf-test] }
  20437. 1096.39 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  20438. 1096.39 s [opt-env-conf-test] - case mResOrNext of
  20439. 1096.39 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  20440. 1096.39 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  20441. 1096.39 s [opt-env-conf-test] - Failure errs -> Left errs
  20442. 1096.39 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  20443. 1096.39 s [opt-env-conf-test] + case mResOrNext of
  20444. 1096.39 s [opt-env-conf-test] + Nothing -> pure $ Right Nothing
  20445. 1096.39 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  20446. 1096.39 s [opt-env-conf-test] + Failure errs -> Left errs
  20447. 1096.39 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  20448. 1096.39 s [opt-env-conf-test] where
  20449. 1096.39 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  20450. 1096.39 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  20451. 1096.39 s [opt-env-conf-test]
  20452. 1096.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  20453. 1096.39 s [opt-env-conf-test] @@ -513,9 +513,9 @@
  20454. 1096.39 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  20455. 1096.39 s [opt-env-conf-test] case mResOrNext of
  20456. 1096.39 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  20457. 1096.39 s [opt-env-conf-test] - Just ((result, _), _) -> pure $ case result of
  20458. 1096.39 s [opt-env-conf-test] - Failure errs -> Left errs
  20459. 1096.39 s [opt-env-conf-test] - Success mDocs -> Right mDocs
  20460. 1096.39 s [opt-env-conf-test] + Just ((result, _), _) -> pure $ case result of
  20461. 1096.39 s [opt-env-conf-test] + Failure errs -> Left errs
  20462. 1096.39 s [opt-env-conf-test] + Success mDocs -> Right mDocs
  20463. 1096.39 s [opt-env-conf-test] where
  20464. 1096.39 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  20465. 1096.39 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  20466. 1096.39 s [opt-env-conf-test]
  20467. 1096.39 s [opt-env-conf-test] IntLit at src/OptEnvConf/Run.hs:511:27-28
  20468. 1096.39 s [opt-env-conf-test] @@ -508,7 +508,7 @@
  20469. 1096.39 s [opt-env-conf-test] { ppEnvEnv = EnvMap.empty,
  20470. 1096.39 s [opt-env-conf-test] ppEnvConf = Nothing,
  20471. 1096.39 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  20472. 1096.39 s [opt-env-conf-test] - ppEnvIndent = 0
  20473. 1096.39 s [opt-env-conf-test] + ppEnvIndent = 1
  20474. 1096.39 s [opt-env-conf-test] }
  20475. 1096.39 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  20476. 1096.39 s [opt-env-conf-test] case mResOrNext of
  20477. 1096.39 s [opt-env-conf-test]
  20478. 1096.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  20479. 1096.39 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  20480. 1096.39 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  20481. 1096.39 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  20482. 1096.39 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  20483. 1096.39 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  20484. 1096.39 s [opt-env-conf-test] - (Nothing, _) -> o2
  20485. 1096.39 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  20486. 1096.39 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20487. 1096.39 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  20488. 1096.39 s [opt-env-conf-test] + (Nothing, _) -> o2
  20489. 1096.39 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  20490. 1096.39 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20491. 1096.39 s [opt-env-conf-test]
  20492. 1096.39 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  20493. 1096.39 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20494. 1096.39 s [opt-env-conf-test]
  20495. 1096.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  20496. 1096.39 s [opt-env-conf-test] @@ -85,10 +85,10 @@
  20497. 1096.39 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  20498. 1096.39 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  20499. 1096.39 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  20500. 1096.39 s [opt-env-conf-test] - combineOption o1 o2 = case (optionType o1, optionType o2) of
  20501. 1096.39 s [opt-env-conf-test] - (Nothing, _) -> o2
  20502. 1096.39 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  20503. 1096.39 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20504. 1096.39 s [opt-env-conf-test] + combineOption o1 o2 = case (optionType o1, optionType o2) of
  20505. 1096.39 s [opt-env-conf-test] + (Nothing, _) -> o2
  20506. 1096.39 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  20507. 1096.39 s [opt-env-conf-test] + (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20508. 1096.39 s [opt-env-conf-test]
  20509. 1096.39 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  20510. 1096.39 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20511. 1096.39 s [opt-env-conf-test]
  20512. 1096.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  20513. 1096.39 s [opt-env-conf-test] @@ -91,8 +91,8 @@
  20514. 1096.39 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  20515. 1096.39 s [opt-env-conf-test]
  20516. 1096.39 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  20517. 1096.39 s [opt-env-conf-test] - combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20518. 1096.39 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  20519. 1096.39 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  20520. 1096.39 s [opt-env-conf-test] + combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20521. 1096.39 s [opt-env-conf-test] + (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  20522. 1096.39 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  20523. 1096.39 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  20524. 1096.39 s [opt-env-conf-test] goCommand = go . commandParser
  20525. 1096.39 s [opt-env-conf-test]
  20526. 1096.39 s [opt-env-conf-test] ListLit at src/OptEnvConf/Nix.hs:96:28-38
  20527. 1096.39 s [opt-env-conf-test] @@ -93,6 +93,6 @@
  20528. 1096.39 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  20529. 1096.39 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  20530. 1096.39 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  20531. 1096.39 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  20532. 1096.39 s [opt-env-conf-test] + _ -> OptionTypeOneOf [ot1, ot2]
  20533. 1096.39 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  20534. 1096.39 s [opt-env-conf-test] goCommand = go . commandParser
  20535. 1096.39 s [opt-env-conf-test]
  20536. 1096.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20537. 1096.39 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20538. 1096.39 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20539. 1096.39 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20540. 1096.39 s [opt-env-conf-test] exitFailure
  20541. 1096.39 s [opt-env-conf-test] - Right i -> case i of
  20542. 1096.39 s [opt-env-conf-test] - ShowVersion -> do
  20543. 1096.39 s [opt-env-conf-test] - progname <- getProgName
  20544. 1096.39 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20545. 1096.39 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20546. 1096.39 s [opt-env-conf-test] - exitSuccess
  20547. 1096.39 s [opt-env-conf-test] - RenderMan -> do
  20548. 1096.39 s [opt-env-conf-test] - progname <- getProgName
  20549. 1096.39 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20550. 1096.39 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20551. 1096.39 s [opt-env-conf-test] - exitSuccess
  20552. 1096.39 s [opt-env-conf-test] - RenderDocumentation -> do
  20553. 1096.39 s [opt-env-conf-test] - progname <- getProgName
  20554. 1096.39 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20555. 1096.39 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20556. 1096.39 s [opt-env-conf-test] - exitSuccess
  20557. 1096.39 s [opt-env-conf-test] - RenderNixosOptions -> do
  20558. 1096.39 s [opt-env-conf-test] - progname <- getProgName
  20559. 1096.39 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20560. 1096.39 s [opt-env-conf-test] - exitSuccess
  20561. 1096.39 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20562. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20563. 1096.40 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20564. 1096.40 s [opt-env-conf-test] - exitSuccess
  20565. 1096.40 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20566. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20567. 1096.40 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20568. 1096.40 s [opt-env-conf-test] - exitSuccess
  20569. 1096.40 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20570. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20571. 1096.40 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20572. 1096.40 s [opt-env-conf-test] - exitSuccess
  20573. 1096.40 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20574. 1096.40 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20575. 1096.40 s [opt-env-conf-test] - exitSuccess
  20576. 1096.40 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20577. 1096.40 s [opt-env-conf-test] + Right i -> case i of
  20578. 1096.40 s [opt-env-conf-test] + ShowVersion -> do
  20579. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20580. 1096.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20581. 1096.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20582. 1096.40 s [opt-env-conf-test] + exitSuccess
  20583. 1096.40 s [opt-env-conf-test] + RenderMan -> do
  20584. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20585. 1096.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20586. 1096.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20587. 1096.40 s [opt-env-conf-test] + exitSuccess
  20588. 1096.40 s [opt-env-conf-test] + RenderDocumentation -> do
  20589. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20590. 1096.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20591. 1096.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20592. 1096.40 s [opt-env-conf-test] + exitSuccess
  20593. 1096.40 s [opt-env-conf-test] + RenderNixosOptions -> do
  20594. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20595. 1096.40 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20596. 1096.40 s [opt-env-conf-test] + exitSuccess
  20597. 1096.40 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20598. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20599. 1096.40 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20600. 1096.40 s [opt-env-conf-test] + exitSuccess
  20601. 1096.40 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20602. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20603. 1096.40 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20604. 1096.40 s [opt-env-conf-test] + exitSuccess
  20605. 1096.40 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20606. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20607. 1096.40 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20608. 1096.40 s [opt-env-conf-test] + exitSuccess
  20609. 1096.40 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20610. 1096.40 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20611. 1096.40 s [opt-env-conf-test] + exitSuccess
  20612. 1096.40 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20613. 1096.40 s [opt-env-conf-test]
  20614. 1096.40 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.
  20615. 1096.40 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20616. 1096.40 s [opt-env-conf-test]
  20617. 1096.40 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20618. 1096.40 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20619. 1096.40 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20620. 1096.40 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20621. 1096.40 s [opt-env-conf-test] exitFailure
  20622. 1096.40 s [opt-env-conf-test] - Right i -> case i of
  20623. 1096.40 s [opt-env-conf-test] - ShowVersion -> do
  20624. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20625. 1096.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20626. 1096.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20627. 1096.40 s [opt-env-conf-test] - exitSuccess
  20628. 1096.40 s [opt-env-conf-test] - RenderMan -> do
  20629. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20630. 1096.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20631. 1096.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20632. 1096.40 s [opt-env-conf-test] - exitSuccess
  20633. 1096.40 s [opt-env-conf-test] - RenderDocumentation -> do
  20634. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20635. 1096.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20636. 1096.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20637. 1096.40 s [opt-env-conf-test] - exitSuccess
  20638. 1096.40 s [opt-env-conf-test] - RenderNixosOptions -> do
  20639. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20640. 1096.40 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20641. 1096.40 s [opt-env-conf-test] - exitSuccess
  20642. 1096.40 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20643. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20644. 1096.40 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20645. 1096.40 s [opt-env-conf-test] - exitSuccess
  20646. 1096.40 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20647. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20648. 1096.40 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20649. 1096.40 s [opt-env-conf-test] - exitSuccess
  20650. 1096.40 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20651. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20652. 1096.40 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20653. 1096.40 s [opt-env-conf-test] - exitSuccess
  20654. 1096.40 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20655. 1096.40 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20656. 1096.40 s [opt-env-conf-test] - exitSuccess
  20657. 1096.40 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20658. 1096.40 s [opt-env-conf-test] + Right i -> case i of
  20659. 1096.40 s [opt-env-conf-test] + ShowVersion -> do
  20660. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20661. 1096.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20662. 1096.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20663. 1096.40 s [opt-env-conf-test] + exitSuccess
  20664. 1096.40 s [opt-env-conf-test] + RenderMan -> do
  20665. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20666. 1096.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20667. 1096.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20668. 1096.40 s [opt-env-conf-test] + exitSuccess
  20669. 1096.40 s [opt-env-conf-test] + RenderDocumentation -> do
  20670. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20671. 1096.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20672. 1096.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20673. 1096.40 s [opt-env-conf-test] + exitSuccess
  20674. 1096.40 s [opt-env-conf-test] + RenderNixosOptions -> do
  20675. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20676. 1096.40 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20677. 1096.40 s [opt-env-conf-test] + exitSuccess
  20678. 1096.40 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20679. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20680. 1096.40 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20681. 1096.40 s [opt-env-conf-test] + exitSuccess
  20682. 1096.40 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20683. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20684. 1096.40 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20685. 1096.40 s [opt-env-conf-test] + exitSuccess
  20686. 1096.40 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20687. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20688. 1096.40 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20689. 1096.40 s [opt-env-conf-test] + exitSuccess
  20690. 1096.40 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20691. 1096.40 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20692. 1096.40 s [opt-env-conf-test] + exitSuccess
  20693. 1096.40 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20694. 1096.40 s [opt-env-conf-test]
  20695. 1096.40 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.
  20696. 1096.40 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20697. 1096.40 s [opt-env-conf-test]
  20698. 1096.40 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20699. 1096.40 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20700. 1096.40 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20701. 1096.40 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20702. 1096.40 s [opt-env-conf-test] exitFailure
  20703. 1096.40 s [opt-env-conf-test] - Right i -> case i of
  20704. 1096.40 s [opt-env-conf-test] - ShowVersion -> do
  20705. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20706. 1096.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20707. 1096.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20708. 1096.40 s [opt-env-conf-test] - exitSuccess
  20709. 1096.40 s [opt-env-conf-test] - RenderMan -> do
  20710. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20711. 1096.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20712. 1096.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20713. 1096.40 s [opt-env-conf-test] - exitSuccess
  20714. 1096.40 s [opt-env-conf-test] - RenderDocumentation -> do
  20715. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20716. 1096.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20717. 1096.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20718. 1096.40 s [opt-env-conf-test] - exitSuccess
  20719. 1096.40 s [opt-env-conf-test] - RenderNixosOptions -> do
  20720. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20721. 1096.40 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20722. 1096.40 s [opt-env-conf-test] - exitSuccess
  20723. 1096.40 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20724. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20725. 1096.40 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20726. 1096.40 s [opt-env-conf-test] - exitSuccess
  20727. 1096.40 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20728. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20729. 1096.40 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20730. 1096.40 s [opt-env-conf-test] - exitSuccess
  20731. 1096.40 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20732. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20733. 1096.40 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20734. 1096.40 s [opt-env-conf-test] - exitSuccess
  20735. 1096.40 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20736. 1096.40 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20737. 1096.40 s [opt-env-conf-test] - exitSuccess
  20738. 1096.40 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20739. 1096.40 s [opt-env-conf-test] + Right i -> case i of
  20740. 1096.40 s [opt-env-conf-test] + ShowVersion -> do
  20741. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20742. 1096.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20743. 1096.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20744. 1096.40 s [opt-env-conf-test] + exitSuccess
  20745. 1096.40 s [opt-env-conf-test] + RenderMan -> do
  20746. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20747. 1096.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20748. 1096.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20749. 1096.40 s [opt-env-conf-test] + exitSuccess
  20750. 1096.40 s [opt-env-conf-test] + RenderDocumentation -> do
  20751. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20752. 1096.40 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20753. 1096.40 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20754. 1096.40 s [opt-env-conf-test] + exitSuccess
  20755. 1096.40 s [opt-env-conf-test] + RenderNixosOptions -> do
  20756. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20757. 1096.40 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20758. 1096.40 s [opt-env-conf-test] + exitSuccess
  20759. 1096.40 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20760. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20761. 1096.40 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20762. 1096.40 s [opt-env-conf-test] + exitSuccess
  20763. 1096.40 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20764. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20765. 1096.40 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20766. 1096.40 s [opt-env-conf-test] + exitSuccess
  20767. 1096.40 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20768. 1096.40 s [opt-env-conf-test] + progname <- getProgName
  20769. 1096.40 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20770. 1096.40 s [opt-env-conf-test] + exitSuccess
  20771. 1096.40 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20772. 1096.40 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20773. 1096.40 s [opt-env-conf-test] + exitSuccess
  20774. 1096.40 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20775. 1096.40 s [opt-env-conf-test]
  20776. 1096.40 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.
  20777. 1096.40 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20778. 1096.40 s [opt-env-conf-test]
  20779. 1096.40 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20780. 1096.40 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20781. 1096.40 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20782. 1096.40 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20783. 1096.40 s [opt-env-conf-test] exitFailure
  20784. 1096.40 s [opt-env-conf-test] - Right i -> case i of
  20785. 1096.40 s [opt-env-conf-test] - ShowVersion -> do
  20786. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20787. 1096.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20788. 1096.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20789. 1096.40 s [opt-env-conf-test] - exitSuccess
  20790. 1096.40 s [opt-env-conf-test] - RenderMan -> do
  20791. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20792. 1096.40 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20793. 1096.40 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20794. 1096.40 s [opt-env-conf-test] - exitSuccess
  20795. 1096.40 s [opt-env-conf-test] - RenderDocumentation -> do
  20796. 1096.40 s [opt-env-conf-test] - progname <- getProgName
  20797. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20798. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20799. 1096.41 s [opt-env-conf-test] - exitSuccess
  20800. 1096.41 s [opt-env-conf-test] - RenderNixosOptions -> do
  20801. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20802. 1096.41 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20803. 1096.41 s [opt-env-conf-test] - exitSuccess
  20804. 1096.41 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20805. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20806. 1096.41 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20807. 1096.41 s [opt-env-conf-test] - exitSuccess
  20808. 1096.41 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20809. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20810. 1096.41 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20811. 1096.41 s [opt-env-conf-test] - exitSuccess
  20812. 1096.41 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20813. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20814. 1096.41 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20815. 1096.41 s [opt-env-conf-test] - exitSuccess
  20816. 1096.41 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20817. 1096.41 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20818. 1096.41 s [opt-env-conf-test] - exitSuccess
  20819. 1096.41 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20820. 1096.41 s [opt-env-conf-test] + Right i -> case i of
  20821. 1096.41 s [opt-env-conf-test] + ShowVersion -> do
  20822. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20823. 1096.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20824. 1096.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20825. 1096.41 s [opt-env-conf-test] + exitSuccess
  20826. 1096.41 s [opt-env-conf-test] + RenderMan -> do
  20827. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20828. 1096.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20829. 1096.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20830. 1096.41 s [opt-env-conf-test] + exitSuccess
  20831. 1096.41 s [opt-env-conf-test] + RenderDocumentation -> do
  20832. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20833. 1096.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20834. 1096.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20835. 1096.41 s [opt-env-conf-test] + exitSuccess
  20836. 1096.41 s [opt-env-conf-test] + RenderNixosOptions -> do
  20837. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20838. 1096.41 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20839. 1096.41 s [opt-env-conf-test] + exitSuccess
  20840. 1096.41 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20841. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20842. 1096.41 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20843. 1096.41 s [opt-env-conf-test] + exitSuccess
  20844. 1096.41 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20845. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20846. 1096.41 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20847. 1096.41 s [opt-env-conf-test] + exitSuccess
  20848. 1096.41 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20849. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20850. 1096.41 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20851. 1096.41 s [opt-env-conf-test] + exitSuccess
  20852. 1096.41 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20853. 1096.41 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20854. 1096.41 s [opt-env-conf-test] + exitSuccess
  20855. 1096.41 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20856. 1096.41 s [opt-env-conf-test]
  20857. 1096.41 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.
  20858. 1096.41 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20859. 1096.41 s [opt-env-conf-test]
  20860. 1096.41 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20861. 1096.41 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20862. 1096.41 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20863. 1096.41 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20864. 1096.41 s [opt-env-conf-test] exitFailure
  20865. 1096.41 s [opt-env-conf-test] - Right i -> case i of
  20866. 1096.41 s [opt-env-conf-test] - ShowVersion -> do
  20867. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20868. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20869. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20870. 1096.41 s [opt-env-conf-test] - exitSuccess
  20871. 1096.41 s [opt-env-conf-test] - RenderMan -> do
  20872. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20873. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20874. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20875. 1096.41 s [opt-env-conf-test] - exitSuccess
  20876. 1096.41 s [opt-env-conf-test] - RenderDocumentation -> do
  20877. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20878. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20879. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20880. 1096.41 s [opt-env-conf-test] - exitSuccess
  20881. 1096.41 s [opt-env-conf-test] - RenderNixosOptions -> do
  20882. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20883. 1096.41 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20884. 1096.41 s [opt-env-conf-test] - exitSuccess
  20885. 1096.41 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20886. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20887. 1096.41 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20888. 1096.41 s [opt-env-conf-test] - exitSuccess
  20889. 1096.41 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20890. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20891. 1096.41 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20892. 1096.41 s [opt-env-conf-test] - exitSuccess
  20893. 1096.41 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20894. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20895. 1096.41 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20896. 1096.41 s [opt-env-conf-test] - exitSuccess
  20897. 1096.41 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20898. 1096.41 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20899. 1096.41 s [opt-env-conf-test] - exitSuccess
  20900. 1096.41 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20901. 1096.41 s [opt-env-conf-test] + Right i -> case i of
  20902. 1096.41 s [opt-env-conf-test] + ShowVersion -> do
  20903. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20904. 1096.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20905. 1096.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20906. 1096.41 s [opt-env-conf-test] + exitSuccess
  20907. 1096.41 s [opt-env-conf-test] + RenderMan -> do
  20908. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20909. 1096.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20910. 1096.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20911. 1096.41 s [opt-env-conf-test] + exitSuccess
  20912. 1096.41 s [opt-env-conf-test] + RenderDocumentation -> do
  20913. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20914. 1096.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20915. 1096.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20916. 1096.41 s [opt-env-conf-test] + exitSuccess
  20917. 1096.41 s [opt-env-conf-test] + RenderNixosOptions -> do
  20918. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20919. 1096.41 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20920. 1096.41 s [opt-env-conf-test] + exitSuccess
  20921. 1096.41 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  20922. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20923. 1096.41 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  20924. 1096.41 s [opt-env-conf-test] + exitSuccess
  20925. 1096.41 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  20926. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20927. 1096.41 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  20928. 1096.41 s [opt-env-conf-test] + exitSuccess
  20929. 1096.41 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  20930. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20931. 1096.41 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  20932. 1096.41 s [opt-env-conf-test] + exitSuccess
  20933. 1096.41 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  20934. 1096.41 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  20935. 1096.41 s [opt-env-conf-test] + exitSuccess
  20936. 1096.41 s [opt-env-conf-test] + ParsedNormally a -> pure a
  20937. 1096.41 s [opt-env-conf-test]
  20938. 1096.41 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.
  20939. 1096.41 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  20940. 1096.41 s [opt-env-conf-test]
  20941. 1096.41 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  20942. 1096.41 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  20943. 1096.41 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  20944. 1096.41 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  20945. 1096.41 s [opt-env-conf-test] exitFailure
  20946. 1096.41 s [opt-env-conf-test] - Right i -> case i of
  20947. 1096.41 s [opt-env-conf-test] - ShowVersion -> do
  20948. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20949. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20950. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20951. 1096.41 s [opt-env-conf-test] - exitSuccess
  20952. 1096.41 s [opt-env-conf-test] - RenderMan -> do
  20953. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20954. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20955. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20956. 1096.41 s [opt-env-conf-test] - exitSuccess
  20957. 1096.41 s [opt-env-conf-test] - RenderDocumentation -> do
  20958. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20959. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  20960. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20961. 1096.41 s [opt-env-conf-test] - exitSuccess
  20962. 1096.41 s [opt-env-conf-test] - RenderNixosOptions -> do
  20963. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20964. 1096.41 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  20965. 1096.41 s [opt-env-conf-test] - exitSuccess
  20966. 1096.41 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  20967. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20968. 1096.41 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  20969. 1096.41 s [opt-env-conf-test] - exitSuccess
  20970. 1096.41 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  20971. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20972. 1096.41 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  20973. 1096.41 s [opt-env-conf-test] - exitSuccess
  20974. 1096.41 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  20975. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  20976. 1096.41 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  20977. 1096.41 s [opt-env-conf-test] - exitSuccess
  20978. 1096.41 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  20979. 1096.41 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  20980. 1096.41 s [opt-env-conf-test] - exitSuccess
  20981. 1096.41 s [opt-env-conf-test] - ParsedNormally a -> pure a
  20982. 1096.41 s [opt-env-conf-test] + Right i -> case i of
  20983. 1096.41 s [opt-env-conf-test] + ShowVersion -> do
  20984. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20985. 1096.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20986. 1096.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  20987. 1096.41 s [opt-env-conf-test] + exitSuccess
  20988. 1096.41 s [opt-env-conf-test] + RenderMan -> do
  20989. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20990. 1096.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20991. 1096.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  20992. 1096.41 s [opt-env-conf-test] + exitSuccess
  20993. 1096.41 s [opt-env-conf-test] + RenderDocumentation -> do
  20994. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  20995. 1096.41 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  20996. 1096.41 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  20997. 1096.41 s [opt-env-conf-test] + exitSuccess
  20998. 1096.41 s [opt-env-conf-test] + RenderNixosOptions -> do
  20999. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  21000. 1096.41 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21001. 1096.41 s [opt-env-conf-test] + exitSuccess
  21002. 1096.41 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  21003. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  21004. 1096.41 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  21005. 1096.41 s [opt-env-conf-test] + exitSuccess
  21006. 1096.41 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  21007. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  21008. 1096.41 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  21009. 1096.41 s [opt-env-conf-test] + exitSuccess
  21010. 1096.41 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  21011. 1096.41 s [opt-env-conf-test] + progname <- getProgName
  21012. 1096.41 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  21013. 1096.41 s [opt-env-conf-test] + exitSuccess
  21014. 1096.41 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  21015. 1096.41 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  21016. 1096.41 s [opt-env-conf-test] + exitSuccess
  21017. 1096.41 s [opt-env-conf-test] + ParsedNormally a -> pure a
  21018. 1096.41 s [opt-env-conf-test]
  21019. 1096.41 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.
  21020. 1096.41 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  21021. 1096.41 s [opt-env-conf-test]
  21022. 1096.41 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  21023. 1096.41 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  21024. 1096.41 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  21025. 1096.41 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  21026. 1096.41 s [opt-env-conf-test] exitFailure
  21027. 1096.41 s [opt-env-conf-test] - Right i -> case i of
  21028. 1096.41 s [opt-env-conf-test] - ShowVersion -> do
  21029. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  21030. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21031. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  21032. 1096.41 s [opt-env-conf-test] - exitSuccess
  21033. 1096.41 s [opt-env-conf-test] - RenderMan -> do
  21034. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  21035. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21036. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  21037. 1096.41 s [opt-env-conf-test] - exitSuccess
  21038. 1096.41 s [opt-env-conf-test] - RenderDocumentation -> do
  21039. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  21040. 1096.41 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21041. 1096.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  21042. 1096.41 s [opt-env-conf-test] - exitSuccess
  21043. 1096.41 s [opt-env-conf-test] - RenderNixosOptions -> do
  21044. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  21045. 1096.41 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21046. 1096.41 s [opt-env-conf-test] - exitSuccess
  21047. 1096.41 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  21048. 1096.41 s [opt-env-conf-test] - progname <- getProgName
  21049. 1096.42 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  21050. 1096.42 s [opt-env-conf-test] - exitSuccess
  21051. 1096.42 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  21052. 1096.42 s [opt-env-conf-test] - progname <- getProgName
  21053. 1096.42 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  21054. 1096.42 s [opt-env-conf-test] - exitSuccess
  21055. 1096.42 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  21056. 1096.42 s [opt-env-conf-test] - progname <- getProgName
  21057. 1096.42 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  21058. 1096.42 s [opt-env-conf-test] - exitSuccess
  21059. 1096.42 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  21060. 1096.42 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  21061. 1096.42 s [opt-env-conf-test] - exitSuccess
  21062. 1096.42 s [opt-env-conf-test] - ParsedNormally a -> pure a
  21063. 1096.42 s [opt-env-conf-test] + Right i -> case i of
  21064. 1096.42 s [opt-env-conf-test] + ShowVersion -> do
  21065. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21066. 1096.42 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21067. 1096.42 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  21068. 1096.42 s [opt-env-conf-test] + exitSuccess
  21069. 1096.42 s [opt-env-conf-test] + RenderMan -> do
  21070. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21071. 1096.42 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21072. 1096.42 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  21073. 1096.42 s [opt-env-conf-test] + exitSuccess
  21074. 1096.42 s [opt-env-conf-test] + RenderDocumentation -> do
  21075. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21076. 1096.42 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21077. 1096.42 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  21078. 1096.42 s [opt-env-conf-test] + exitSuccess
  21079. 1096.42 s [opt-env-conf-test] + RenderNixosOptions -> do
  21080. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21081. 1096.42 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21082. 1096.42 s [opt-env-conf-test] + exitSuccess
  21083. 1096.42 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  21084. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21085. 1096.42 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  21086. 1096.42 s [opt-env-conf-test] + exitSuccess
  21087. 1096.42 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  21088. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21089. 1096.42 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  21090. 1096.42 s [opt-env-conf-test] + exitSuccess
  21091. 1096.42 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  21092. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21093. 1096.42 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  21094. 1096.42 s [opt-env-conf-test] + exitSuccess
  21095. 1096.42 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  21096. 1096.42 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  21097. 1096.42 s [opt-env-conf-test] + exitSuccess
  21098. 1096.42 s [opt-env-conf-test] + ParsedNormally a -> pure a
  21099. 1096.42 s [opt-env-conf-test]
  21100. 1096.42 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.
  21101. 1096.42 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  21102. 1096.42 s [opt-env-conf-test]
  21103. 1096.42 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  21104. 1096.42 s [opt-env-conf-test] @@ -125,42 +125,42 @@
  21105. 1096.42 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  21106. 1096.42 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  21107. 1096.42 s [opt-env-conf-test] exitFailure
  21108. 1096.42 s [opt-env-conf-test] - Right i -> case i of
  21109. 1096.42 s [opt-env-conf-test] - ShowVersion -> do
  21110. 1096.42 s [opt-env-conf-test] - progname <- getProgName
  21111. 1096.42 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21112. 1096.42 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  21113. 1096.42 s [opt-env-conf-test] - exitSuccess
  21114. 1096.42 s [opt-env-conf-test] - RenderMan -> do
  21115. 1096.42 s [opt-env-conf-test] - progname <- getProgName
  21116. 1096.42 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21117. 1096.42 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  21118. 1096.42 s [opt-env-conf-test] - exitSuccess
  21119. 1096.42 s [opt-env-conf-test] - RenderDocumentation -> do
  21120. 1096.42 s [opt-env-conf-test] - progname <- getProgName
  21121. 1096.42 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  21122. 1096.42 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  21123. 1096.42 s [opt-env-conf-test] - exitSuccess
  21124. 1096.42 s [opt-env-conf-test] - RenderNixosOptions -> do
  21125. 1096.42 s [opt-env-conf-test] - progname <- getProgName
  21126. 1096.42 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21127. 1096.42 s [opt-env-conf-test] - exitSuccess
  21128. 1096.42 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  21129. 1096.42 s [opt-env-conf-test] - progname <- getProgName
  21130. 1096.42 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  21131. 1096.42 s [opt-env-conf-test] - exitSuccess
  21132. 1096.42 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  21133. 1096.42 s [opt-env-conf-test] - progname <- getProgName
  21134. 1096.42 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  21135. 1096.42 s [opt-env-conf-test] - exitSuccess
  21136. 1096.42 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  21137. 1096.42 s [opt-env-conf-test] - progname <- getProgName
  21138. 1096.42 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  21139. 1096.42 s [opt-env-conf-test] - exitSuccess
  21140. 1096.42 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  21141. 1096.42 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  21142. 1096.42 s [opt-env-conf-test] - exitSuccess
  21143. 1096.42 s [opt-env-conf-test] - ParsedNormally a -> pure a
  21144. 1096.42 s [opt-env-conf-test] + Right i -> case i of
  21145. 1096.42 s [opt-env-conf-test] + ShowVersion -> do
  21146. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21147. 1096.42 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21148. 1096.42 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  21149. 1096.42 s [opt-env-conf-test] + exitSuccess
  21150. 1096.42 s [opt-env-conf-test] + RenderMan -> do
  21151. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21152. 1096.42 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21153. 1096.42 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  21154. 1096.42 s [opt-env-conf-test] + exitSuccess
  21155. 1096.42 s [opt-env-conf-test] + RenderDocumentation -> do
  21156. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21157. 1096.42 s [opt-env-conf-test] + tc <- getTerminalCapabilitiesFromHandle stdout
  21158. 1096.42 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  21159. 1096.42 s [opt-env-conf-test] + exitSuccess
  21160. 1096.42 s [opt-env-conf-test] + RenderNixosOptions -> do
  21161. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21162. 1096.42 s [opt-env-conf-test] + putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  21163. 1096.42 s [opt-env-conf-test] + exitSuccess
  21164. 1096.42 s [opt-env-conf-test] + BashCompletionScript progPath -> do
  21165. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21166. 1096.42 s [opt-env-conf-test] + generateBashCompletionScript progPath progname
  21167. 1096.42 s [opt-env-conf-test] + exitSuccess
  21168. 1096.42 s [opt-env-conf-test] + ZshCompletionScript progPath -> do
  21169. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21170. 1096.42 s [opt-env-conf-test] + generateZshCompletionScript progPath progname
  21171. 1096.42 s [opt-env-conf-test] + exitSuccess
  21172. 1096.42 s [opt-env-conf-test] + FishCompletionScript progPath -> do
  21173. 1096.42 s [opt-env-conf-test] + progname <- getProgName
  21174. 1096.42 s [opt-env-conf-test] + generateFishCompletionScript progPath progname
  21175. 1096.42 s [opt-env-conf-test] + exitSuccess
  21176. 1096.42 s [opt-env-conf-test] + CompletionQuery enriched index ws -> do
  21177. 1096.42 s [opt-env-conf-test] + runCompletionQuery p' enriched index ws
  21178. 1096.42 s [opt-env-conf-test] + exitSuccess
  21179. 1096.42 s [opt-env-conf-test] + ParsedNormally a -> pure a
  21180. 1096.42 s [opt-env-conf-test]
  21181. 1096.42 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.
  21182. 1096.42 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  21183. 1096.42 s [opt-env-conf-test]
  21184. 1096.42 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  21185. 1096.42 s [opt-env-conf-test] @@ -97,9 +97,9 @@
  21186. 1096.42 s [opt-env-conf-test] exitFailure
  21187. 1096.42 s [opt-env-conf-test] Right mCommandDoc -> do
  21188. 1096.42 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  21189. 1096.42 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  21190. 1096.42 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  21191. 1096.42 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  21192. 1096.42 s [opt-env-conf-test] + hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  21193. 1096.42 s [opt-env-conf-test] + Nothing -> renderHelpPage progname version progDesc docs
  21194. 1096.42 s [opt-env-conf-test] + Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  21195. 1096.42 s [opt-env-conf-test] exitSuccess
  21196. 1096.42 s [opt-env-conf-test] else do
  21197. 1096.42 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  21198. 1096.42 s [opt-env-conf-test]
  21199. 1096.42 s [opt-env-conf-test] CondFlip at src/OptEnvConf/Main.hs:83:9-28
  21200. 1096.42 s [opt-env-conf-test] @@ -80,9 +80,9 @@
  21201. 1096.42 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  21202. 1096.42 s [opt-env-conf-test]
  21203. 1096.42 s [opt-env-conf-test] mDebugMode <-
  21204. 1096.42 s [opt-env-conf-test] - if debugMode
  21205. 1096.42 s [opt-env-conf-test] - then Just <$> getTerminalCapabilitiesFromHandle stderr
  21206. 1096.42 s [opt-env-conf-test] - else pure Nothing
  21207. 1096.42 s [opt-env-conf-test] + if debugMode
  21208. 1096.42 s [opt-env-conf-test] + then Just <$> getTerminalCapabilitiesFromHandle stderr
  21209. 1096.42 s [opt-env-conf-test] + else pure Nothing
  21210. 1096.42 s [opt-env-conf-test]
  21211. 1096.42 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  21212. 1096.42 s [opt-env-conf-test]
  21213. 1096.42 s [opt-env-conf-test]
  21214. 1096.42 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:83:12-21
  21215. 1096.42 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  21216. 1096.42 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  21217. 1096.42 s [opt-env-conf-test]
  21218. 1096.42 s [opt-env-conf-test] mDebugMode <-
  21219. 1096.42 s [opt-env-conf-test] - if debugMode
  21220. 1096.42 s [opt-env-conf-test] + if not (debugMode)
  21221. 1096.42 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  21222. 1096.42 s [opt-env-conf-test] else pure Nothing
  21223. 1096.42 s [opt-env-conf-test]
  21224. 1096.42 s [opt-env-conf-test]
  21225. 1096.42 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  21226. 1096.42 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  21227. 1096.42 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  21228. 1096.42 s [opt-env-conf-test]
  21229. 1096.42 s [opt-env-conf-test] mDebugMode <-
  21230. 1096.42 s [opt-env-conf-test] - if debugMode
  21231. 1096.42 s [opt-env-conf-test] + if False
  21232. 1096.42 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  21233. 1096.42 s [opt-env-conf-test] else pure Nothing
  21234. 1096.42 s [opt-env-conf-test]
  21235. 1096.42 s [opt-env-conf-test]
  21236. 1096.42 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  21237. 1096.42 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  21238. 1096.42 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  21239. 1096.42 s [opt-env-conf-test]
  21240. 1096.42 s [opt-env-conf-test] mDebugMode <-
  21241. 1096.42 s [opt-env-conf-test] - if debugMode
  21242. 1096.42 s [opt-env-conf-test] + if True
  21243. 1096.42 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  21244. 1096.42 s [opt-env-conf-test] else pure Nothing
  21245. 1096.42 s [opt-env-conf-test]
  21246. 1096.42 s [opt-env-conf-test]
  21247. 1096.42 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:175:18-23
  21248. 1096.42 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  21249. 1096.42 s [opt-env-conf-test] | x == arg -> (True, xs)
  21250. 1096.42 s [opt-env-conf-test] | otherwise ->
  21251. 1096.42 s [opt-env-conf-test] let (found, rest) = go xs
  21252. 1096.42 s [opt-env-conf-test] - in (found, x : rest)
  21253. 1096.42 s [opt-env-conf-test] + in (not (found), x : rest)
  21254. 1096.42 s [opt-env-conf-test]
  21255. 1096.42 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  21256. 1096.42 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  21257. 1096.42 s [opt-env-conf-test]
  21258. 1096.42 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:175:18-23
  21259. 1096.42 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  21260. 1096.42 s [opt-env-conf-test] | x == arg -> (True, xs)
  21261. 1096.42 s [opt-env-conf-test] | otherwise ->
  21262. 1096.42 s [opt-env-conf-test] let (found, rest) = go xs
  21263. 1096.42 s [opt-env-conf-test] - in (found, x : rest)
  21264. 1096.42 s [opt-env-conf-test] + in (False, x : rest)
  21265. 1096.42 s [opt-env-conf-test]
  21266. 1096.42 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  21267. 1096.42 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  21268. 1096.42 s [opt-env-conf-test]
  21269. 1096.42 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  21270. 1096.42 s [opt-env-conf-test] @@ -196,13 +196,13 @@
  21271. 1096.42 s [opt-env-conf-test] [] -> (caps, [])
  21272. 1096.42 s [opt-env-conf-test] (x : xs) ->
  21273. 1096.42 s [opt-env-conf-test] let t = T.pack x
  21274. 1096.42 s [opt-env-conf-test] - in case T.stripPrefix "--settings-capabilities-disable-" t of
  21275. 1096.42 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  21276. 1096.42 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  21277. 1096.42 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  21278. 1096.42 s [opt-env-conf-test] - Nothing ->
  21279. 1096.42 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  21280. 1096.42 s [opt-env-conf-test] - in (finalCaps, x : rest)
  21281. 1096.42 s [opt-env-conf-test] + in case T.stripPrefix "--settings-capabilities-disable-" t of
  21282. 1096.42 s [opt-env-conf-test] + Just capName -> go (disableCapability (Capability capName) caps) xs
  21283. 1096.42 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  21284. 1096.42 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  21285. 1096.42 s [opt-env-conf-test] + Nothing ->
  21286. 1096.42 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  21287. 1096.42 s [opt-env-conf-test] + in (finalCaps, x : rest)
  21288. 1096.42 s [opt-env-conf-test]
  21289. 1096.42 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  21290. 1096.42 s [opt-env-conf-test] -- is supposed to.
  21291. 1096.42 s [opt-env-conf-test]
  21292. 1096.42 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  21293. 1096.42 s [opt-env-conf-test] @@ -198,11 +198,11 @@
  21294. 1096.42 s [opt-env-conf-test] let t = T.pack x
  21295. 1096.42 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  21296. 1096.42 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  21297. 1096.42 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  21298. 1096.42 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  21299. 1096.42 s [opt-env-conf-test] - Nothing ->
  21300. 1096.42 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  21301. 1096.42 s [opt-env-conf-test] - in (finalCaps, x : rest)
  21302. 1096.42 s [opt-env-conf-test] + Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  21303. 1096.42 s [opt-env-conf-test] + Just capName -> go (enableCapability (Capability capName) caps) xs
  21304. 1096.42 s [opt-env-conf-test] + Nothing ->
  21305. 1096.42 s [opt-env-conf-test] + let (finalCaps, rest) = go caps xs
  21306. 1096.42 s [opt-env-conf-test] + in (finalCaps, x : rest)
  21307. 1096.42 s [opt-env-conf-test]
  21308. 1096.42 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  21309. 1096.42 s [opt-env-conf-test] -- is supposed to.
  21310. 1096.43 s [opt-env-conf-test]
  21311. 1096.43 s [opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
  21312. 1096.43 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  21313. 1096.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21314. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21315. 1096.43 s [opt-env-conf-test] and
  21316. 1096.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21317. 1096.43 s [opt-env-conf-test] - null settingEnvVars,
  21318. 1096.43 s [opt-env-conf-test] - null settingConfigVals
  21319. 1096.43 s [opt-env-conf-test] - ]
  21320. 1096.43 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21321. 1096.43 s [opt-env-conf-test] + null settingEnvVars
  21322. 1096.43 s [opt-env-conf-test] +]
  21323. 1096.43 s [opt-env-conf-test]
  21324. 1096.43 s [opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
  21325. 1096.43 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21326. 1096.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21327. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21328. 1096.43 s [opt-env-conf-test] and
  21329. 1096.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21330. 1096.43 s [opt-env-conf-test] - null settingEnvVars,
  21331. 1096.43 s [opt-env-conf-test] - null settingConfigVals
  21332. 1096.43 s [opt-env-conf-test] - ]
  21333. 1096.43 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21334. 1096.43 s [opt-env-conf-test] + null settingEnvVars,
  21335. 1096.43 s [opt-env-conf-test] + null settingConfigVals
  21336. 1096.43 s [opt-env-conf-test] + ]
  21337. 1096.43 s [opt-env-conf-test]
  21338. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:342:15-37
  21339. 1096.43 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  21340. 1096.43 s [opt-env-conf-test] and
  21341. 1096.43 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21342. 1096.43 s [opt-env-conf-test] null settingEnvVars,
  21343. 1096.43 s [opt-env-conf-test] - null settingConfigVals
  21344. 1096.43 s [opt-env-conf-test] + True
  21345. 1096.43 s [opt-env-conf-test] ]
  21346. 1096.43 s [opt-env-conf-test]
  21347. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:341:15-34
  21348. 1096.43 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  21349. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21350. 1096.43 s [opt-env-conf-test] and
  21351. 1096.43 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21352. 1096.43 s [opt-env-conf-test] - null settingEnvVars,
  21353. 1096.43 s [opt-env-conf-test] + True,
  21354. 1096.43 s [opt-env-conf-test] null settingConfigVals
  21355. 1096.43 s [opt-env-conf-test] ]
  21356. 1096.43 s [opt-env-conf-test]
  21357. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-82
  21358. 1096.43 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21359. 1096.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21360. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21361. 1096.43 s [opt-env-conf-test] and
  21362. 1096.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21363. 1096.43 s [opt-env-conf-test] + [ True,
  21364. 1096.43 s [opt-env-conf-test] null settingEnvVars,
  21365. 1096.43 s [opt-env-conf-test] null settingConfigVals
  21366. 1096.43 s [opt-env-conf-test] ]
  21367. 1096.43 s [opt-env-conf-test]
  21368. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-82
  21369. 1096.43 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21370. 1096.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21371. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21372. 1096.43 s [opt-env-conf-test] and
  21373. 1096.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21374. 1096.43 s [opt-env-conf-test] + [ settingTryArgument || True,
  21375. 1096.43 s [opt-env-conf-test] null settingEnvVars,
  21376. 1096.43 s [opt-env-conf-test] null settingConfigVals
  21377. 1096.43 s [opt-env-conf-test] ]
  21378. 1096.43 s [opt-env-conf-test]
  21379. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:57-82
  21380. 1096.43 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21381. 1096.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21382. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21383. 1096.43 s [opt-env-conf-test] and
  21384. 1096.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21385. 1096.43 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || True,
  21386. 1096.43 s [opt-env-conf-test] null settingEnvVars,
  21387. 1096.43 s [opt-env-conf-test] null settingConfigVals
  21388. 1096.43 s [opt-env-conf-test] ]
  21389. 1096.43 s [opt-env-conf-test]
  21390. 1096.43 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:340:37-53
  21391. 1096.43 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21392. 1096.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21393. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21394. 1096.43 s [opt-env-conf-test] and
  21395. 1096.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21396. 1096.43 s [opt-env-conf-test] + [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
  21397. 1096.43 s [opt-env-conf-test] null settingEnvVars,
  21398. 1096.43 s [opt-env-conf-test] null settingConfigVals
  21399. 1096.43 s [opt-env-conf-test] ]
  21400. 1096.43 s [opt-env-conf-test]
  21401. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  21402. 1096.43 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21403. 1096.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21404. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21405. 1096.43 s [opt-env-conf-test] and
  21406. 1096.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21407. 1096.43 s [opt-env-conf-test] + [ settingTryArgument || False || isJust settingSwitchValue,
  21408. 1096.43 s [opt-env-conf-test] null settingEnvVars,
  21409. 1096.43 s [opt-env-conf-test] null settingConfigVals
  21410. 1096.43 s [opt-env-conf-test] ]
  21411. 1096.43 s [opt-env-conf-test]
  21412. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  21413. 1096.43 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21414. 1096.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21415. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21416. 1096.43 s [opt-env-conf-test] and
  21417. 1096.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21418. 1096.43 s [opt-env-conf-test] + [ settingTryArgument || True || isJust settingSwitchValue,
  21419. 1096.43 s [opt-env-conf-test] null settingEnvVars,
  21420. 1096.43 s [opt-env-conf-test] null settingConfigVals
  21421. 1096.43 s [opt-env-conf-test] ]
  21422. 1096.43 s [opt-env-conf-test]
  21423. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  21424. 1096.43 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21425. 1096.43 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21426. 1096.43 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21427. 1096.43 s [opt-env-conf-test] and
  21428. 1096.43 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21429. 1096.43 s [opt-env-conf-test] + [ True || settingTryOption || isJust settingSwitchValue,
  21430. 1096.43 s [opt-env-conf-test] null settingEnvVars,
  21431. 1096.43 s [opt-env-conf-test] null settingConfigVals
  21432. 1096.43 s [opt-env-conf-test] ]
  21433. 1096.43 s [opt-env-conf-test]
  21434. 1096.43 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-24
  21435. 1096.43 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21436. 1096.43 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21437. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21438. 1096.43 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21439. 1096.43 s [opt-env-conf-test] - pure $ c1 || c2
  21440. 1096.43 s [opt-env-conf-test] + pure $ not (c1 || c2)
  21441. 1096.43 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21442. 1096.43 s [opt-env-conf-test] case settingHelp of
  21443. 1096.43 s [opt-env-conf-test] Nothing ->
  21444. 1096.43 s [opt-env-conf-test]
  21445. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  21446. 1096.43 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21447. 1096.43 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21448. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21449. 1096.43 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21450. 1096.43 s [opt-env-conf-test] - pure $ c1 || c2
  21451. 1096.43 s [opt-env-conf-test] + pure $ False
  21452. 1096.43 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21453. 1096.43 s [opt-env-conf-test] case settingHelp of
  21454. 1096.43 s [opt-env-conf-test] Nothing ->
  21455. 1096.43 s [opt-env-conf-test]
  21456. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  21457. 1096.43 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21458. 1096.43 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21459. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21460. 1096.43 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21461. 1096.43 s [opt-env-conf-test] - pure $ c1 || c2
  21462. 1096.43 s [opt-env-conf-test] + pure $ True
  21463. 1096.43 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21464. 1096.43 s [opt-env-conf-test] case settingHelp of
  21465. 1096.43 s [opt-env-conf-test] Nothing ->
  21466. 1096.43 s [opt-env-conf-test]
  21467. 1096.43 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:22-24
  21468. 1096.43 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21469. 1096.43 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21470. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21471. 1096.43 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21472. 1096.43 s [opt-env-conf-test] - pure $ c1 || c2
  21473. 1096.43 s [opt-env-conf-test] + pure $ c1 || not (c2)
  21474. 1096.43 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21475. 1096.43 s [opt-env-conf-test] case settingHelp of
  21476. 1096.43 s [opt-env-conf-test] Nothing ->
  21477. 1096.43 s [opt-env-conf-test]
  21478. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  21479. 1096.43 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21480. 1096.43 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21481. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21482. 1096.43 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21483. 1096.43 s [opt-env-conf-test] - pure $ c1 || c2
  21484. 1096.43 s [opt-env-conf-test] + pure $ c1 || False
  21485. 1096.43 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21486. 1096.43 s [opt-env-conf-test] case settingHelp of
  21487. 1096.43 s [opt-env-conf-test] Nothing ->
  21488. 1096.43 s [opt-env-conf-test]
  21489. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  21490. 1096.43 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21491. 1096.43 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21492. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21493. 1096.43 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21494. 1096.43 s [opt-env-conf-test] - pure $ c1 || c2
  21495. 1096.43 s [opt-env-conf-test] + pure $ c1 || True
  21496. 1096.43 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21497. 1096.43 s [opt-env-conf-test] case settingHelp of
  21498. 1096.43 s [opt-env-conf-test] Nothing ->
  21499. 1096.43 s [opt-env-conf-test]
  21500. 1096.43 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-18
  21501. 1096.43 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21502. 1096.43 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21503. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21504. 1096.43 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21505. 1096.43 s [opt-env-conf-test] - pure $ c1 || c2
  21506. 1096.43 s [opt-env-conf-test] + pure $ not (c1) || c2
  21507. 1096.43 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21508. 1096.43 s [opt-env-conf-test] case settingHelp of
  21509. 1096.43 s [opt-env-conf-test] Nothing ->
  21510. 1096.43 s [opt-env-conf-test]
  21511. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  21512. 1096.43 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21513. 1096.43 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21514. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21515. 1096.43 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21516. 1096.43 s [opt-env-conf-test] - pure $ c1 || c2
  21517. 1096.43 s [opt-env-conf-test] + pure $ False || c2
  21518. 1096.43 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21519. 1096.43 s [opt-env-conf-test] case settingHelp of
  21520. 1096.43 s [opt-env-conf-test] Nothing ->
  21521. 1096.43 s [opt-env-conf-test]
  21522. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  21523. 1096.43 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21524. 1096.43 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21525. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21526. 1096.43 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21527. 1096.43 s [opt-env-conf-test] - pure $ c1 || c2
  21528. 1096.43 s [opt-env-conf-test] + pure $ True || c2
  21529. 1096.43 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21530. 1096.43 s [opt-env-conf-test] case settingHelp of
  21531. 1096.43 s [opt-env-conf-test] Nothing ->
  21532. 1096.43 s [opt-env-conf-test]
  21533. 1096.43 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:14-24
  21534. 1096.43 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21535. 1096.43 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21536. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21537. 1096.43 s [opt-env-conf-test] c2 <- go p2
  21538. 1096.43 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21539. 1096.43 s [opt-env-conf-test] + pure not ((c1 && c2)) -- TODO: is this right?
  21540. 1096.43 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21541. 1096.43 s [opt-env-conf-test] ParserMany mLoc p -> do
  21542. 1096.43 s [opt-env-conf-test] c <- go p
  21543. 1096.43 s [opt-env-conf-test]
  21544. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  21545. 1096.43 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21546. 1096.43 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21547. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21548. 1096.43 s [opt-env-conf-test] c2 <- go p2
  21549. 1096.43 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21550. 1096.43 s [opt-env-conf-test] + pure False -- TODO: is this right?
  21551. 1096.43 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21552. 1096.43 s [opt-env-conf-test] ParserMany mLoc p -> do
  21553. 1096.43 s [opt-env-conf-test] c <- go p
  21554. 1096.43 s [opt-env-conf-test]
  21555. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  21556. 1096.43 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21557. 1096.43 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21558. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21559. 1096.43 s [opt-env-conf-test] c2 <- go p2
  21560. 1096.43 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21561. 1096.43 s [opt-env-conf-test] + pure True -- TODO: is this right?
  21562. 1096.43 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21563. 1096.43 s [opt-env-conf-test] ParserMany mLoc p -> do
  21564. 1096.43 s [opt-env-conf-test] c <- go p
  21565. 1096.43 s [opt-env-conf-test]
  21566. 1096.43 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-23
  21567. 1096.43 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21568. 1096.43 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21569. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21570. 1096.43 s [opt-env-conf-test] c2 <- go p2
  21571. 1096.43 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21572. 1096.43 s [opt-env-conf-test] + pure (not (c1 && c2)) -- TODO: is this right?
  21573. 1096.43 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21574. 1096.43 s [opt-env-conf-test] ParserMany mLoc p -> do
  21575. 1096.43 s [opt-env-conf-test] c <- go p
  21576. 1096.43 s [opt-env-conf-test]
  21577. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  21578. 1096.43 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21579. 1096.43 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21580. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21581. 1096.43 s [opt-env-conf-test] c2 <- go p2
  21582. 1096.43 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21583. 1096.43 s [opt-env-conf-test] + pure (False) -- TODO: is this right?
  21584. 1096.43 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21585. 1096.43 s [opt-env-conf-test] ParserMany mLoc p -> do
  21586. 1096.43 s [opt-env-conf-test] c <- go p
  21587. 1096.43 s [opt-env-conf-test]
  21588. 1096.43 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  21589. 1096.43 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21590. 1096.43 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21591. 1096.43 s [opt-env-conf-test] c1 <- go p1
  21592. 1096.43 s [opt-env-conf-test] c2 <- go p2
  21593. 1096.43 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21594. 1096.44 s [opt-env-conf-test] + pure (True) -- TODO: is this right?
  21595. 1096.44 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21596. 1096.44 s [opt-env-conf-test] ParserMany mLoc p -> do
  21597. 1096.44 s [opt-env-conf-test] c <- go p
  21598. 1096.44 s [opt-env-conf-test]
  21599. 1096.44 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:21-23
  21600. 1096.44 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21601. 1096.44 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21602. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21603. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21604. 1096.44 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21605. 1096.44 s [opt-env-conf-test] + pure (c1 && not (c2)) -- TODO: is this right?
  21606. 1096.44 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21607. 1096.44 s [opt-env-conf-test] ParserMany mLoc p -> do
  21608. 1096.44 s [opt-env-conf-test] c <- go p
  21609. 1096.44 s [opt-env-conf-test]
  21610. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  21611. 1096.44 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21612. 1096.44 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21613. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21614. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21615. 1096.44 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21616. 1096.44 s [opt-env-conf-test] + pure (c1 && False) -- TODO: is this right?
  21617. 1096.44 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21618. 1096.44 s [opt-env-conf-test] ParserMany mLoc p -> do
  21619. 1096.44 s [opt-env-conf-test] c <- go p
  21620. 1096.44 s [opt-env-conf-test]
  21621. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  21622. 1096.44 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21623. 1096.44 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21624. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21625. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21626. 1096.44 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21627. 1096.44 s [opt-env-conf-test] + pure (c1 && True) -- TODO: is this right?
  21628. 1096.44 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21629. 1096.44 s [opt-env-conf-test] ParserMany mLoc p -> do
  21630. 1096.44 s [opt-env-conf-test] c <- go p
  21631. 1096.44 s [opt-env-conf-test]
  21632. 1096.44 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-17
  21633. 1096.44 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21634. 1096.44 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21635. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21636. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21637. 1096.44 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21638. 1096.44 s [opt-env-conf-test] + pure (not (c1) && c2) -- TODO: is this right?
  21639. 1096.44 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21640. 1096.44 s [opt-env-conf-test] ParserMany mLoc p -> do
  21641. 1096.44 s [opt-env-conf-test] c <- go p
  21642. 1096.44 s [opt-env-conf-test]
  21643. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  21644. 1096.44 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21645. 1096.44 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21646. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21647. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21648. 1096.44 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21649. 1096.44 s [opt-env-conf-test] + pure (False && c2) -- TODO: is this right?
  21650. 1096.44 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21651. 1096.44 s [opt-env-conf-test] ParserMany mLoc p -> do
  21652. 1096.44 s [opt-env-conf-test] c <- go p
  21653. 1096.44 s [opt-env-conf-test]
  21654. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  21655. 1096.44 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21656. 1096.44 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21657. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21658. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21659. 1096.44 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21660. 1096.44 s [opt-env-conf-test] + pure (True && c2) -- TODO: is this right?
  21661. 1096.44 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21662. 1096.44 s [opt-env-conf-test] ParserMany mLoc p -> do
  21663. 1096.44 s [opt-env-conf-test] c <- go p
  21664. 1096.44 s [opt-env-conf-test]
  21665. 1096.44 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:14-24
  21666. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21667. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21668. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21669. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21670. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21671. 1096.44 s [opt-env-conf-test] + pure not ((c1 || c2))
  21672. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21673. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21674. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21675. 1096.44 s [opt-env-conf-test]
  21676. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  21677. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21678. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21679. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21680. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21681. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21682. 1096.44 s [opt-env-conf-test] + pure False
  21683. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21684. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21685. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21686. 1096.44 s [opt-env-conf-test]
  21687. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  21688. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21689. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21690. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21691. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21692. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21693. 1096.44 s [opt-env-conf-test] + pure True
  21694. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21695. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21696. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21697. 1096.44 s [opt-env-conf-test]
  21698. 1096.44 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-23
  21699. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21700. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21701. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21702. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21703. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21704. 1096.44 s [opt-env-conf-test] + pure (not (c1 || c2))
  21705. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21706. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21707. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21708. 1096.44 s [opt-env-conf-test]
  21709. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  21710. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21711. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21712. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21713. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21714. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21715. 1096.44 s [opt-env-conf-test] + pure (False)
  21716. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21717. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21718. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21719. 1096.44 s [opt-env-conf-test]
  21720. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  21721. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21722. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21723. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21724. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21725. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21726. 1096.44 s [opt-env-conf-test] + pure (True)
  21727. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21728. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21729. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21730. 1096.44 s [opt-env-conf-test]
  21731. 1096.44 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:21-23
  21732. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21733. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21734. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21735. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21736. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21737. 1096.44 s [opt-env-conf-test] + pure (c1 || not (c2))
  21738. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21739. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21740. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21741. 1096.44 s [opt-env-conf-test]
  21742. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  21743. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21744. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21745. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21746. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21747. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21748. 1096.44 s [opt-env-conf-test] + pure (c1 || False)
  21749. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21750. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21751. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21752. 1096.44 s [opt-env-conf-test]
  21753. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  21754. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21755. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21756. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21757. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21758. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21759. 1096.44 s [opt-env-conf-test] + pure (c1 || True)
  21760. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21761. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21762. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21763. 1096.44 s [opt-env-conf-test]
  21764. 1096.44 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-17
  21765. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21766. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21767. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21768. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21769. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21770. 1096.44 s [opt-env-conf-test] + pure (not (c1) || c2)
  21771. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21772. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21773. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21774. 1096.44 s [opt-env-conf-test]
  21775. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  21776. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21777. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21778. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21779. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21780. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21781. 1096.44 s [opt-env-conf-test] + pure (False || c2)
  21782. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21783. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21784. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21785. 1096.44 s [opt-env-conf-test]
  21786. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  21787. 1096.44 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21788. 1096.44 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21789. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21790. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21791. 1096.44 s [opt-env-conf-test] - pure (c1 || c2)
  21792. 1096.44 s [opt-env-conf-test] + pure (True || c2)
  21793. 1096.44 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21794. 1096.44 s [opt-env-conf-test] c1 <- go p1
  21795. 1096.44 s [opt-env-conf-test] c2 <- go p2
  21796. 1096.44 s [opt-env-conf-test]
  21797. 1096.44 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:144:22-46
  21798. 1096.44 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  21799. 1096.44 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  21800. 1096.44 s [opt-env-conf-test] salt
  21801. 1096.44 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  21802. 1096.44 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  21803. 1096.44 s [opt-env-conf-test] + `hashWithSalt` not (envVarSettingAllowPrefix)
  21804. 1096.44 s [opt-env-conf-test]
  21805. 1096.44 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  21806. 1096.44 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  21807. 1096.44 s [opt-env-conf-test]
  21808. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  21809. 1096.44 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  21810. 1096.44 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  21811. 1096.44 s [opt-env-conf-test] salt
  21812. 1096.44 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  21813. 1096.44 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  21814. 1096.44 s [opt-env-conf-test] + `hashWithSalt` False
  21815. 1096.44 s [opt-env-conf-test]
  21816. 1096.44 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  21817. 1096.44 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  21818. 1096.44 s [opt-env-conf-test]
  21819. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  21820. 1096.44 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  21821. 1096.44 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  21822. 1096.44 s [opt-env-conf-test] salt
  21823. 1096.44 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  21824. 1096.44 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  21825. 1096.44 s [opt-env-conf-test] + `hashWithSalt` True
  21826. 1096.44 s [opt-env-conf-test]
  21827. 1096.44 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  21828. 1096.44 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  21829. 1096.44 s [opt-env-conf-test]
  21830. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:136:5-29
  21831. 1096.44 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  21832. 1096.44 s [opt-env-conf-test]
  21833. 1096.44 s [opt-env-conf-test] data EnvVarSetting = EnvVarSetting
  21834. 1096.44 s [opt-env-conf-test] { envVarSettingVar :: !String,
  21835. 1096.44 s [opt-env-conf-test] - envVarSettingAllowPrefix :: !Bool
  21836. 1096.44 s [opt-env-conf-test] + True :: !Bool
  21837. 1096.44 s [opt-env-conf-test] }
  21838. 1096.44 s [opt-env-conf-test] deriving (Show, Eq)
  21839. 1096.44 s [opt-env-conf-test]
  21840. 1096.44 s [opt-env-conf-test]
  21841. 1096.44 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:159:5-32
  21842. 1096.44 s [opt-env-conf-test] @@ -156,7 +156,7 @@
  21843. 1096.44 s [opt-env-conf-test] = forall void.
  21844. 1096.44 s [opt-env-conf-test] ConfigValSetting
  21845. 1096.44 s [opt-env-conf-test] { configValSettingPath :: !(NonEmpty String),
  21846. 1096.44 s [opt-env-conf-test] - configValSettingAllowPrefix :: !Bool,
  21847. 1096.44 s [opt-env-conf-test] + True :: !Bool,
  21848. 1096.44 s [opt-env-conf-test] configValSettingCodec :: !(ValueCodec void (Maybe a))
  21849. 1096.44 s [opt-env-conf-test] }
  21850. 1096.44 s [opt-env-conf-test]
  21851. 1096.45 s [opt-env-conf-test]
  21852. 1096.45 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:128:24-40
  21853. 1096.45 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  21854. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21855. 1096.45 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21856. 1096.45 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21857. 1096.45 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  21858. 1096.45 s [opt-env-conf-test] + `hashWithSalt` not (settingTryOption)
  21859. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21860. 1096.45 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21861. 1096.45 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  21862. 1096.45 s [opt-env-conf-test]
  21863. 1096.45 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  21864. 1096.45 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  21865. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21866. 1096.45 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21867. 1096.45 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21868. 1096.45 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  21869. 1096.45 s [opt-env-conf-test] + `hashWithSalt` False
  21870. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21871. 1096.45 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21872. 1096.45 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  21873. 1096.45 s [opt-env-conf-test]
  21874. 1096.45 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  21875. 1096.45 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  21876. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21877. 1096.45 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21878. 1096.45 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21879. 1096.45 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  21880. 1096.45 s [opt-env-conf-test] + `hashWithSalt` True
  21881. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21882. 1096.45 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21883. 1096.45 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  21884. 1096.45 s [opt-env-conf-test]
  21885. 1096.45 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:127:24-49
  21886. 1096.45 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  21887. 1096.45 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21888. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21889. 1096.45 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21890. 1096.45 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  21891. 1096.45 s [opt-env-conf-test] + `hashWithSalt` not (isJust settingSwitchValue)
  21892. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21893. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21894. 1096.45 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21895. 1096.45 s [opt-env-conf-test]
  21896. 1096.45 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  21897. 1096.45 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  21898. 1096.45 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21899. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21900. 1096.45 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21901. 1096.45 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  21902. 1096.45 s [opt-env-conf-test] + `hashWithSalt` False
  21903. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21904. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21905. 1096.45 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21906. 1096.45 s [opt-env-conf-test]
  21907. 1096.45 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  21908. 1096.45 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  21909. 1096.45 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21910. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  21911. 1096.45 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21912. 1096.45 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  21913. 1096.45 s [opt-env-conf-test] + `hashWithSalt` True
  21914. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21915. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  21916. 1096.45 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  21917. 1096.45 s [opt-env-conf-test]
  21918. 1096.45 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:125:24-42
  21919. 1096.45 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  21920. 1096.45 s [opt-env-conf-test] SettingHash
  21921. 1096.45 s [opt-env-conf-test] ( 42
  21922. 1096.45 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21923. 1096.45 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  21924. 1096.45 s [opt-env-conf-test] + `hashWithSalt` not (settingTryArgument)
  21925. 1096.45 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21926. 1096.45 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21927. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21928. 1096.45 s [opt-env-conf-test]
  21929. 1096.45 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  21930. 1096.45 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  21931. 1096.45 s [opt-env-conf-test] SettingHash
  21932. 1096.45 s [opt-env-conf-test] ( 42
  21933. 1096.45 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21934. 1096.45 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  21935. 1096.45 s [opt-env-conf-test] + `hashWithSalt` False
  21936. 1096.45 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21937. 1096.45 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21938. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21939. 1096.45 s [opt-env-conf-test]
  21940. 1096.45 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  21941. 1096.45 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  21942. 1096.45 s [opt-env-conf-test] SettingHash
  21943. 1096.45 s [opt-env-conf-test] ( 42
  21944. 1096.45 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  21945. 1096.45 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  21946. 1096.45 s [opt-env-conf-test] + `hashWithSalt` True
  21947. 1096.45 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  21948. 1096.45 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  21949. 1096.45 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  21950. 1096.45 s [opt-env-conf-test]
  21951. 1096.45 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:148:6-32
  21952. 1096.45 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  21953. 1096.45 s [opt-env-conf-test]
  21954. 1096.45 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  21955. 1096.45 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  21956. 1096.45 s [opt-env-conf-test] - if envVarSettingAllowPrefix e
  21957. 1096.45 s [opt-env-conf-test] + if True
  21958. 1096.45 s [opt-env-conf-test] then e {envVarSettingVar = prefix <> envVarSettingVar e}
  21959. 1096.45 s [opt-env-conf-test] else e
  21960. 1096.45 s [opt-env-conf-test]
  21961. 1096.45 s [opt-env-conf-test]
  21962. 1096.45 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:165:6-35
  21963. 1096.45 s [opt-env-conf-test] @@ -162,7 +162,7 @@
  21964. 1096.45 s [opt-env-conf-test]
  21965. 1096.45 s [opt-env-conf-test] prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
  21966. 1096.45 s [opt-env-conf-test] prefixConfigValSetting prefix c =
  21967. 1096.45 s [opt-env-conf-test] - if configValSettingAllowPrefix c
  21968. 1096.45 s [opt-env-conf-test] + if True
  21969. 1096.45 s [opt-env-conf-test] then c {configValSettingPath = prefix NE.<| configValSettingPath c}
  21970. 1096.45 s [opt-env-conf-test] else c
  21971. 1096.45 s [opt-env-conf-test]
  21972. 1096.45 s [opt-env-conf-test]
  21973. 1096.45 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
  21974. 1096.45 s [opt-env-conf-test] @@ -170,9 +170,9 @@
  21975. 1096.45 s [opt-env-conf-test] suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
  21976. 1096.45 s [opt-env-conf-test] where
  21977. 1096.45 s [opt-env-conf-test] suffixPath :: NonEmpty String -> NonEmpty String
  21978. 1096.45 s [opt-env-conf-test] - suffixPath (f :| rest) = case NE.nonEmpty rest of
  21979. 1096.45 s [opt-env-conf-test] - Nothing -> (f <> suffix) :| []
  21980. 1096.45 s [opt-env-conf-test] - Just ne -> f NE.<| suffixPath ne
  21981. 1096.45 s [opt-env-conf-test] + suffixPath (f :| rest) = case NE.nonEmpty rest of
  21982. 1096.45 s [opt-env-conf-test] + Nothing -> (f <> suffix) :| []
  21983. 1096.45 s [opt-env-conf-test] + Just ne -> f NE.<| suffixPath ne
  21984. 1096.45 s [opt-env-conf-test]
  21985. 1096.45 s [opt-env-conf-test] -- | A 'mempty' 'Setting' to build up a setting from.
  21986. 1096.45 s [opt-env-conf-test] emptySetting :: Setting a
  21987. 1096.45 s [opt-env-conf-test]
  21988. 1096.45 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  21989. 1096.45 s [opt-env-conf-test] @@ -66,10 +66,10 @@
  21990. 1096.45 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  21991. 1096.45 s [opt-env-conf-test]
  21992. 1096.45 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  21993. 1096.45 s [opt-env-conf-test] -exampleValuesChunks vals = case vals of
  21994. 1096.45 s [opt-env-conf-test] - [] -> []
  21995. 1096.45 s [opt-env-conf-test] - [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  21996. 1096.45 s [opt-env-conf-test] - _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  21997. 1096.45 s [opt-env-conf-test] +exampleValuesChunks vals = case vals of
  21998. 1096.45 s [opt-env-conf-test] + [] -> []
  21999. 1096.45 s [opt-env-conf-test] + [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  22000. 1096.45 s [opt-env-conf-test] + _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  22001. 1096.45 s [opt-env-conf-test]
  22002. 1096.45 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  22003. 1096.45 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  22004. 1096.45 s [opt-env-conf-test]
  22005. 1096.45 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  22006. 1096.45 s [opt-env-conf-test] @@ -66,10 +66,10 @@
  22007. 1096.45 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  22008. 1096.45 s [opt-env-conf-test]
  22009. 1096.45 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  22010. 1096.45 s [opt-env-conf-test] -exampleValuesChunks vals = case vals of
  22011. 1096.45 s [opt-env-conf-test] - [] -> []
  22012. 1096.45 s [opt-env-conf-test] - [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  22013. 1096.45 s [opt-env-conf-test] - _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  22014. 1096.45 s [opt-env-conf-test] +exampleValuesChunks vals = case vals of
  22015. 1096.45 s [opt-env-conf-test] + [] -> []
  22016. 1096.45 s [opt-env-conf-test] + [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  22017. 1096.45 s [opt-env-conf-test] + _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  22018. 1096.45 s [opt-env-conf-test]
  22019. 1096.45 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  22020. 1096.45 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  22021. 1096.45 s [opt-env-conf-test]
  22022. 1096.45 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:87:27-50
  22023. 1096.45 s [opt-env-conf-test] @@ -84,9 +84,9 @@
  22024. 1096.45 s [opt-env-conf-test] syntaxChunk = fore blue . chunk . T.pack
  22025. 1096.45 s [opt-env-conf-test]
  22026. 1096.45 s [opt-env-conf-test] capabilitiesChunks :: Set Capability -> [Chunk]
  22027. 1096.45 s [opt-env-conf-test] -capabilitiesChunks caps = case Set.toList caps of
  22028. 1096.45 s [opt-env-conf-test] - [] -> []
  22029. 1096.45 s [opt-env-conf-test] - cs -> intersperse ", " (map capabilityChunk cs)
  22030. 1096.45 s [opt-env-conf-test] +capabilitiesChunks caps = case Set.toList caps of
  22031. 1096.45 s [opt-env-conf-test] + [] -> []
  22032. 1096.45 s [opt-env-conf-test] + cs -> intersperse ", " (map capabilityChunk cs)
  22033. 1096.45 s [opt-env-conf-test]
  22034. 1096.45 s [opt-env-conf-test] capabilityChunk :: Capability -> Chunk
  22035. 1096.45 s [opt-env-conf-test] capabilityChunk = fore green . chunk . unCapability
  22036. 1096.45 s [opt-env-conf-test]
  22037. 1096.45 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
  22038. 1096.45 s [opt-env-conf-test] @@ -239,10 +239,10 @@
  22039. 1096.45 s [opt-env-conf-test]
  22040. 1096.45 s [opt-env-conf-test] instance Applicative Parser where
  22041. 1096.45 s [opt-env-conf-test] pure = ParserPure
  22042. 1096.45 s [opt-env-conf-test] - (<*>) p1 p2 = case (p1, p2) of
  22043. 1096.45 s [opt-env-conf-test] - -- Homomorphism law for applicative
  22044. 1096.45 s [opt-env-conf-test] - (ParserPure f, ParserPure a) -> ParserPure (f a)
  22045. 1096.45 s [opt-env-conf-test] - _ -> ParserAp p1 p2
  22046. 1096.45 s [opt-env-conf-test] + (<*>) p1 p2 = case (p1, p2) of
  22047. 1096.45 s [opt-env-conf-test] + -- Homomorphism law for applicative
  22048. 1096.45 s [opt-env-conf-test] + (ParserPure f, ParserPure a) -> ParserPure (f a)
  22049. 1096.45 s [opt-env-conf-test] + _ -> ParserAp p1 p2
  22050. 1096.45 s [opt-env-conf-test]
  22051. 1096.45 s [opt-env-conf-test] instance Selective Parser where
  22052. 1096.45 s [opt-env-conf-test] select = ParserSelect
  22053. 1096.45 s [opt-env-conf-test]
  22054. 1096.45 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  22055. 1096.45 s [opt-env-conf-test] @@ -264,32 +264,32 @@
  22056. 1096.45 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22057. 1096.45 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22058. 1096.45 s [opt-env-conf-test] ParserSetting _ _ -> False
  22059. 1096.45 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22060. 1096.45 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  22061. 1096.45 s [opt-env-conf-test] - (True, False) -> p2
  22062. 1096.45 s [opt-env-conf-test] - (False, True) -> p1
  22063. 1096.45 s [opt-env-conf-test] - (False, False) ->
  22064. 1096.45 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22065. 1096.45 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22066. 1096.45 s [opt-env-conf-test] - -- alts to always be right-leaning
  22067. 1096.45 s [opt-env-conf-test] - --
  22068. 1096.45 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22069. 1096.45 s [opt-env-conf-test] - -- p
  22070. 1096.45 s [opt-env-conf-test] - -- / \
  22071. 1096.45 s [opt-env-conf-test] - -- p1 p2
  22072. 1096.45 s [opt-env-conf-test] - -- / \
  22073. 1096.45 s [opt-env-conf-test] - -- p3 p4
  22074. 1096.45 s [opt-env-conf-test] - --
  22075. 1096.45 s [opt-env-conf-test] - -- We need to rearrange it to
  22076. 1096.45 s [opt-env-conf-test] - -- p
  22077. 1096.45 s [opt-env-conf-test] - -- / \
  22078. 1096.45 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22079. 1096.45 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22080. 1096.45 s [opt-env-conf-test] - go (go p1' p3') p4'
  22081. 1096.45 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22082. 1096.45 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22083. 1096.45 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22084. 1096.45 s [opt-env-conf-test] - in go p1 p2
  22085. 1096.45 s [opt-env-conf-test] + in case (isEmpty p1, isEmpty p2) of
  22086. 1096.45 s [opt-env-conf-test] + (True, True) -> ParserEmpty Nothing
  22087. 1096.45 s [opt-env-conf-test] + (True, False) -> p2
  22088. 1096.45 s [opt-env-conf-test] + (False, True) -> p1
  22089. 1096.45 s [opt-env-conf-test] + (False, False) ->
  22090. 1096.45 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22091. 1096.45 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22092. 1096.45 s [opt-env-conf-test] + -- alts to always be right-leaning
  22093. 1096.45 s [opt-env-conf-test] + --
  22094. 1096.45 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22095. 1096.45 s [opt-env-conf-test] + -- p
  22096. 1096.45 s [opt-env-conf-test] + -- / \
  22097. 1096.45 s [opt-env-conf-test] + -- p1 p2
  22098. 1096.45 s [opt-env-conf-test] + -- / \
  22099. 1096.45 s [opt-env-conf-test] + -- p3 p4
  22100. 1096.45 s [opt-env-conf-test] + --
  22101. 1096.45 s [opt-env-conf-test] + -- We need to rearrange it to
  22102. 1096.45 s [opt-env-conf-test] + -- p
  22103. 1096.45 s [opt-env-conf-test] + -- / \
  22104. 1096.45 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22105. 1096.45 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22106. 1096.45 s [opt-env-conf-test] + go (go p1' p3') p4'
  22107. 1096.45 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22108. 1096.45 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22109. 1096.45 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22110. 1096.46 s [opt-env-conf-test] + in go p1 p2
  22111. 1096.46 s [opt-env-conf-test] many = ParserMany Nothing
  22112. 1096.46 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22113. 1096.46 s [opt-env-conf-test]
  22114. 1096.46 s [opt-env-conf-test]
  22115. 1096.46 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  22116. 1096.46 s [opt-env-conf-test] @@ -264,32 +264,32 @@
  22117. 1096.46 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22118. 1096.46 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22119. 1096.46 s [opt-env-conf-test] ParserSetting _ _ -> False
  22120. 1096.46 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22121. 1096.46 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  22122. 1096.46 s [opt-env-conf-test] - (True, False) -> p2
  22123. 1096.46 s [opt-env-conf-test] - (False, True) -> p1
  22124. 1096.46 s [opt-env-conf-test] - (False, False) ->
  22125. 1096.46 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22126. 1096.46 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22127. 1096.46 s [opt-env-conf-test] - -- alts to always be right-leaning
  22128. 1096.46 s [opt-env-conf-test] - --
  22129. 1096.46 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22130. 1096.46 s [opt-env-conf-test] - -- p
  22131. 1096.46 s [opt-env-conf-test] - -- / \
  22132. 1096.46 s [opt-env-conf-test] - -- p1 p2
  22133. 1096.46 s [opt-env-conf-test] - -- / \
  22134. 1096.46 s [opt-env-conf-test] - -- p3 p4
  22135. 1096.46 s [opt-env-conf-test] - --
  22136. 1096.46 s [opt-env-conf-test] - -- We need to rearrange it to
  22137. 1096.46 s [opt-env-conf-test] - -- p
  22138. 1096.46 s [opt-env-conf-test] - -- / \
  22139. 1096.46 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22140. 1096.46 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22141. 1096.46 s [opt-env-conf-test] - go (go p1' p3') p4'
  22142. 1096.46 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22143. 1096.46 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22144. 1096.46 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22145. 1096.46 s [opt-env-conf-test] - in go p1 p2
  22146. 1096.46 s [opt-env-conf-test] + in case (isEmpty p1, isEmpty p2) of
  22147. 1096.46 s [opt-env-conf-test] + (True, True) -> ParserEmpty Nothing
  22148. 1096.46 s [opt-env-conf-test] + (True, False) -> p2
  22149. 1096.46 s [opt-env-conf-test] + (False, True) -> p1
  22150. 1096.46 s [opt-env-conf-test] + (False, False) ->
  22151. 1096.46 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22152. 1096.46 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22153. 1096.46 s [opt-env-conf-test] + -- alts to always be right-leaning
  22154. 1096.46 s [opt-env-conf-test] + --
  22155. 1096.46 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22156. 1096.46 s [opt-env-conf-test] + -- p
  22157. 1096.46 s [opt-env-conf-test] + -- / \
  22158. 1096.46 s [opt-env-conf-test] + -- p1 p2
  22159. 1096.46 s [opt-env-conf-test] + -- / \
  22160. 1096.46 s [opt-env-conf-test] + -- p3 p4
  22161. 1096.46 s [opt-env-conf-test] + --
  22162. 1096.46 s [opt-env-conf-test] + -- We need to rearrange it to
  22163. 1096.46 s [opt-env-conf-test] + -- p
  22164. 1096.46 s [opt-env-conf-test] + -- / \
  22165. 1096.46 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22166. 1096.46 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22167. 1096.46 s [opt-env-conf-test] + go (go p1' p3') p4'
  22168. 1096.46 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22169. 1096.46 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22170. 1096.46 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22171. 1096.46 s [opt-env-conf-test] + in go p1 p2
  22172. 1096.46 s [opt-env-conf-test] many = ParserMany Nothing
  22173. 1096.46 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22174. 1096.46 s [opt-env-conf-test]
  22175. 1096.46 s [opt-env-conf-test]
  22176. 1096.46 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  22177. 1096.46 s [opt-env-conf-test] @@ -264,32 +264,32 @@
  22178. 1096.46 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22179. 1096.46 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22180. 1096.46 s [opt-env-conf-test] ParserSetting _ _ -> False
  22181. 1096.46 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22182. 1096.46 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  22183. 1096.46 s [opt-env-conf-test] - (True, False) -> p2
  22184. 1096.46 s [opt-env-conf-test] - (False, True) -> p1
  22185. 1096.46 s [opt-env-conf-test] - (False, False) ->
  22186. 1096.46 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22187. 1096.46 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22188. 1096.46 s [opt-env-conf-test] - -- alts to always be right-leaning
  22189. 1096.46 s [opt-env-conf-test] - --
  22190. 1096.46 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22191. 1096.46 s [opt-env-conf-test] - -- p
  22192. 1096.46 s [opt-env-conf-test] - -- / \
  22193. 1096.46 s [opt-env-conf-test] - -- p1 p2
  22194. 1096.46 s [opt-env-conf-test] - -- / \
  22195. 1096.46 s [opt-env-conf-test] - -- p3 p4
  22196. 1096.46 s [opt-env-conf-test] - --
  22197. 1096.46 s [opt-env-conf-test] - -- We need to rearrange it to
  22198. 1096.46 s [opt-env-conf-test] - -- p
  22199. 1096.46 s [opt-env-conf-test] - -- / \
  22200. 1096.46 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22201. 1096.46 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22202. 1096.46 s [opt-env-conf-test] - go (go p1' p3') p4'
  22203. 1096.46 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22204. 1096.46 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22205. 1096.46 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22206. 1096.46 s [opt-env-conf-test] - in go p1 p2
  22207. 1096.46 s [opt-env-conf-test] + in case (isEmpty p1, isEmpty p2) of
  22208. 1096.46 s [opt-env-conf-test] + (True, True) -> ParserEmpty Nothing
  22209. 1096.46 s [opt-env-conf-test] + (True, False) -> p2
  22210. 1096.46 s [opt-env-conf-test] + (False, True) -> p1
  22211. 1096.46 s [opt-env-conf-test] + (False, False) ->
  22212. 1096.46 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22213. 1096.46 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22214. 1096.46 s [opt-env-conf-test] + -- alts to always be right-leaning
  22215. 1096.46 s [opt-env-conf-test] + --
  22216. 1096.46 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22217. 1096.46 s [opt-env-conf-test] + -- p
  22218. 1096.46 s [opt-env-conf-test] + -- / \
  22219. 1096.46 s [opt-env-conf-test] + -- p1 p2
  22220. 1096.46 s [opt-env-conf-test] + -- / \
  22221. 1096.46 s [opt-env-conf-test] + -- p3 p4
  22222. 1096.46 s [opt-env-conf-test] + --
  22223. 1096.46 s [opt-env-conf-test] + -- We need to rearrange it to
  22224. 1096.46 s [opt-env-conf-test] + -- p
  22225. 1096.46 s [opt-env-conf-test] + -- / \
  22226. 1096.46 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22227. 1096.46 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22228. 1096.46 s [opt-env-conf-test] + go (go p1' p3') p4'
  22229. 1096.46 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22230. 1096.46 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22231. 1096.46 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22232. 1096.46 s [opt-env-conf-test] + in go p1 p2
  22233. 1096.46 s [opt-env-conf-test] many = ParserMany Nothing
  22234. 1096.46 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22235. 1096.46 s [opt-env-conf-test]
  22236. 1096.46 s [opt-env-conf-test]
  22237. 1096.46 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  22238. 1096.46 s [opt-env-conf-test] @@ -269,26 +269,26 @@
  22239. 1096.46 s [opt-env-conf-test] (True, False) -> p2
  22240. 1096.46 s [opt-env-conf-test] (False, True) -> p1
  22241. 1096.46 s [opt-env-conf-test] (False, False) ->
  22242. 1096.46 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22243. 1096.46 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22244. 1096.46 s [opt-env-conf-test] - -- alts to always be right-leaning
  22245. 1096.46 s [opt-env-conf-test] - --
  22246. 1096.46 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22247. 1096.46 s [opt-env-conf-test] - -- p
  22248. 1096.46 s [opt-env-conf-test] - -- / \
  22249. 1096.46 s [opt-env-conf-test] - -- p1 p2
  22250. 1096.46 s [opt-env-conf-test] - -- / \
  22251. 1096.46 s [opt-env-conf-test] - -- p3 p4
  22252. 1096.46 s [opt-env-conf-test] - --
  22253. 1096.46 s [opt-env-conf-test] - -- We need to rearrange it to
  22254. 1096.46 s [opt-env-conf-test] - -- p
  22255. 1096.46 s [opt-env-conf-test] - -- / \
  22256. 1096.46 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22257. 1096.46 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22258. 1096.46 s [opt-env-conf-test] - go (go p1' p3') p4'
  22259. 1096.46 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22260. 1096.46 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22261. 1096.46 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22262. 1096.46 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22263. 1096.46 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22264. 1096.46 s [opt-env-conf-test] + -- alts to always be right-leaning
  22265. 1096.46 s [opt-env-conf-test] + --
  22266. 1096.46 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22267. 1096.46 s [opt-env-conf-test] + -- p
  22268. 1096.46 s [opt-env-conf-test] + -- / \
  22269. 1096.46 s [opt-env-conf-test] + -- p1 p2
  22270. 1096.46 s [opt-env-conf-test] + -- / \
  22271. 1096.46 s [opt-env-conf-test] + -- p3 p4
  22272. 1096.46 s [opt-env-conf-test] + --
  22273. 1096.46 s [opt-env-conf-test] + -- We need to rearrange it to
  22274. 1096.46 s [opt-env-conf-test] + -- p
  22275. 1096.46 s [opt-env-conf-test] + -- / \
  22276. 1096.46 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22277. 1096.46 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22278. 1096.46 s [opt-env-conf-test] + go (go p1' p3') p4'
  22279. 1096.46 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22280. 1096.46 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22281. 1096.46 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22282. 1096.46 s [opt-env-conf-test] in go p1 p2
  22283. 1096.46 s [opt-env-conf-test] many = ParserMany Nothing
  22284. 1096.46 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22285. 1096.46 s [opt-env-conf-test]
  22286. 1096.46 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  22287. 1096.46 s [opt-env-conf-test] @@ -269,26 +269,26 @@
  22288. 1096.46 s [opt-env-conf-test] (True, False) -> p2
  22289. 1096.46 s [opt-env-conf-test] (False, True) -> p1
  22290. 1096.46 s [opt-env-conf-test] (False, False) ->
  22291. 1096.46 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  22292. 1096.46 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  22293. 1096.46 s [opt-env-conf-test] - -- alts to always be right-leaning
  22294. 1096.46 s [opt-env-conf-test] - --
  22295. 1096.46 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22296. 1096.46 s [opt-env-conf-test] - -- p
  22297. 1096.46 s [opt-env-conf-test] - -- / \
  22298. 1096.46 s [opt-env-conf-test] - -- p1 p2
  22299. 1096.46 s [opt-env-conf-test] - -- / \
  22300. 1096.46 s [opt-env-conf-test] - -- p3 p4
  22301. 1096.46 s [opt-env-conf-test] - --
  22302. 1096.46 s [opt-env-conf-test] - -- We need to rearrange it to
  22303. 1096.46 s [opt-env-conf-test] - -- p
  22304. 1096.46 s [opt-env-conf-test] - -- / \
  22305. 1096.46 s [opt-env-conf-test] - -- p1 ++ p3 p4
  22306. 1096.46 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22307. 1096.46 s [opt-env-conf-test] - go (go p1' p3') p4'
  22308. 1096.46 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22309. 1096.46 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22310. 1096.46 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  22311. 1096.46 s [opt-env-conf-test] + let go p1' p2' = case (p1', p2') of
  22312. 1096.46 s [opt-env-conf-test] + -- <|> needs to be associative, so we need to reorder the
  22313. 1096.46 s [opt-env-conf-test] + -- alts to always be right-leaning
  22314. 1096.46 s [opt-env-conf-test] + --
  22315. 1096.46 s [opt-env-conf-test] + -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22316. 1096.46 s [opt-env-conf-test] + -- p
  22317. 1096.46 s [opt-env-conf-test] + -- / \
  22318. 1096.46 s [opt-env-conf-test] + -- p1 p2
  22319. 1096.46 s [opt-env-conf-test] + -- / \
  22320. 1096.46 s [opt-env-conf-test] + -- p3 p4
  22321. 1096.46 s [opt-env-conf-test] + --
  22322. 1096.46 s [opt-env-conf-test] + -- We need to rearrange it to
  22323. 1096.46 s [opt-env-conf-test] + -- p
  22324. 1096.46 s [opt-env-conf-test] + -- / \
  22325. 1096.46 s [opt-env-conf-test] + -- p1 ++ p3 p4
  22326. 1096.46 s [opt-env-conf-test] + (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22327. 1096.46 s [opt-env-conf-test] + go (go p1' p3') p4'
  22328. 1096.46 s [opt-env-conf-test] + (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22329. 1096.46 s [opt-env-conf-test] + ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22330. 1096.46 s [opt-env-conf-test] + _ -> ParserAlt p1' p2'
  22331. 1096.46 s [opt-env-conf-test] in go p1 p2
  22332. 1096.46 s [opt-env-conf-test] many = ParserMany Nothing
  22333. 1096.46 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22334. 1096.46 s [opt-env-conf-test]
  22335. 1096.46 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:27-37
  22336. 1096.46 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  22337. 1096.46 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22338. 1096.46 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22339. 1096.46 s [opt-env-conf-test] ParserSetting _ _ -> False
  22340. 1096.46 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22341. 1096.46 s [opt-env-conf-test] + in case (isEmpty p1, False) of
  22342. 1096.46 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  22343. 1096.46 s [opt-env-conf-test] (True, False) -> p2
  22344. 1096.46 s [opt-env-conf-test] (False, True) -> p1
  22345. 1096.46 s [opt-env-conf-test]
  22346. 1096.46 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:15-25
  22347. 1096.46 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  22348. 1096.46 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22349. 1096.46 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22350. 1096.46 s [opt-env-conf-test] ParserSetting _ _ -> False
  22351. 1096.46 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22352. 1096.46 s [opt-env-conf-test] + in case (False, isEmpty p2) of
  22353. 1096.46 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  22354. 1096.46 s [opt-env-conf-test] (True, False) -> p2
  22355. 1096.46 s [opt-env-conf-test] (False, True) -> p1
  22356. 1096.46 s [opt-env-conf-test]
  22357. 1096.46 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:264:36-43
  22358. 1096.46 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  22359. 1096.46 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22360. 1096.46 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  22361. 1096.46 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  22362. 1096.47 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  22363. 1096.47 s [opt-env-conf-test] + ParserCommands _ _ cs -> False
  22364. 1096.47 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22365. 1096.47 s [opt-env-conf-test] ParserSetting _ _ -> False
  22366. 1096.47 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  22367. 1096.47 s [opt-env-conf-test]
  22368. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:263:36-45
  22369. 1096.47 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  22370. 1096.47 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  22371. 1096.47 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22372. 1096.47 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  22373. 1096.47 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  22374. 1096.47 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> False
  22375. 1096.47 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22376. 1096.47 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22377. 1096.47 s [opt-env-conf-test] ParserSetting _ _ -> False
  22378. 1096.47 s [opt-env-conf-test]
  22379. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:262:37-46
  22380. 1096.47 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  22381. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22382. 1096.47 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  22383. 1096.47 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22384. 1096.47 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  22385. 1096.47 s [opt-env-conf-test] + ParserAllOrNothing _ p -> False
  22386. 1096.47 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  22387. 1096.47 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22388. 1096.47 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22389. 1096.47 s [opt-env-conf-test]
  22390. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:260:29-38
  22391. 1096.47 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  22392. 1096.47 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22393. 1096.47 s [opt-env-conf-test] ParserEmpty _ -> True
  22394. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22395. 1096.47 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  22396. 1096.47 s [opt-env-conf-test] + ParserMany _ p -> False
  22397. 1096.47 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22398. 1096.47 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  22399. 1096.47 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  22400. 1096.47 s [opt-env-conf-test]
  22401. 1096.47 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Parser.hs:258:28-32
  22402. 1096.47 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  22403. 1096.47 s [opt-env-conf-test] ParserPure _ -> False
  22404. 1096.47 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  22405. 1096.47 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22406. 1096.47 s [opt-env-conf-test] - ParserEmpty _ -> True
  22407. 1096.47 s [opt-env-conf-test] + ParserEmpty _ -> False
  22408. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22409. 1096.47 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  22410. 1096.47 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22411. 1096.47 s [opt-env-conf-test]
  22412. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-53
  22413. 1096.47 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22414. 1096.47 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22415. 1096.47 s [opt-env-conf-test] isEmpty = \case
  22416. 1096.47 s [opt-env-conf-test] ParserPure _ -> False
  22417. 1096.47 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22418. 1096.47 s [opt-env-conf-test] + ParserAp pf pa -> False
  22419. 1096.47 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22420. 1096.47 s [opt-env-conf-test] ParserEmpty _ -> True
  22421. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22422. 1096.47 s [opt-env-conf-test]
  22423. 1096.47 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:43-53
  22424. 1096.47 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22425. 1096.47 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22426. 1096.47 s [opt-env-conf-test] isEmpty = \case
  22427. 1096.47 s [opt-env-conf-test] ParserPure _ -> False
  22428. 1096.47 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22429. 1096.47 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
  22430. 1096.47 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22431. 1096.47 s [opt-env-conf-test] ParserEmpty _ -> True
  22432. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22433. 1096.47 s [opt-env-conf-test]
  22434. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  22435. 1096.47 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22436. 1096.47 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22437. 1096.47 s [opt-env-conf-test] isEmpty = \case
  22438. 1096.47 s [opt-env-conf-test] ParserPure _ -> False
  22439. 1096.47 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22440. 1096.47 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && False
  22441. 1096.47 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22442. 1096.47 s [opt-env-conf-test] ParserEmpty _ -> True
  22443. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22444. 1096.47 s [opt-env-conf-test]
  22445. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  22446. 1096.47 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22447. 1096.47 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22448. 1096.47 s [opt-env-conf-test] isEmpty = \case
  22449. 1096.47 s [opt-env-conf-test] ParserPure _ -> False
  22450. 1096.47 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22451. 1096.47 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && True
  22452. 1096.47 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22453. 1096.47 s [opt-env-conf-test] ParserEmpty _ -> True
  22454. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22455. 1096.47 s [opt-env-conf-test]
  22456. 1096.47 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:29-39
  22457. 1096.47 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22458. 1096.47 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22459. 1096.47 s [opt-env-conf-test] isEmpty = \case
  22460. 1096.47 s [opt-env-conf-test] ParserPure _ -> False
  22461. 1096.47 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22462. 1096.47 s [opt-env-conf-test] + ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
  22463. 1096.47 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22464. 1096.47 s [opt-env-conf-test] ParserEmpty _ -> True
  22465. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22466. 1096.47 s [opt-env-conf-test]
  22467. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  22468. 1096.47 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22469. 1096.47 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22470. 1096.47 s [opt-env-conf-test] isEmpty = \case
  22471. 1096.47 s [opt-env-conf-test] ParserPure _ -> False
  22472. 1096.47 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22473. 1096.47 s [opt-env-conf-test] + ParserAp pf pa -> False && isEmpty pa
  22474. 1096.47 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22475. 1096.47 s [opt-env-conf-test] ParserEmpty _ -> True
  22476. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22477. 1096.47 s [opt-env-conf-test]
  22478. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  22479. 1096.47 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22480. 1096.47 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22481. 1096.47 s [opt-env-conf-test] isEmpty = \case
  22482. 1096.47 s [opt-env-conf-test] ParserPure _ -> False
  22483. 1096.47 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22484. 1096.47 s [opt-env-conf-test] + ParserAp pf pa -> True && isEmpty pa
  22485. 1096.47 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22486. 1096.47 s [opt-env-conf-test] ParserEmpty _ -> True
  22487. 1096.47 s [opt-env-conf-test] ParserAlt _ _ -> False
  22488. 1096.47 s [opt-env-conf-test]
  22489. 1096.47 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:297:39-40
  22490. 1096.47 s [opt-env-conf-test] @@ -294,7 +294,7 @@
  22491. 1096.47 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22492. 1096.47 s [opt-env-conf-test]
  22493. 1096.47 s [opt-env-conf-test] showParserABit :: Parser a -> String
  22494. 1096.47 s [opt-env-conf-test] -showParserABit = flip (showParserPrec 0) ""
  22495. 1096.47 s [opt-env-conf-test] +showParserABit = flip (showParserPrec 1) ""
  22496. 1096.47 s [opt-env-conf-test]
  22497. 1096.47 s [opt-env-conf-test] showParserPrec :: Int -> Parser a -> ShowS
  22498. 1096.47 s [opt-env-conf-test] showParserPrec = go
  22499. 1096.47 s [opt-env-conf-test]
  22500. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:19-27
  22501. 1096.47 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22502. 1096.47 s [opt-env-conf-test] . showString " "
  22503. 1096.47 s [opt-env-conf-test] . go 11 p2
  22504. 1096.47 s [opt-env-conf-test] ParserSetting mLoc p ->
  22505. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22506. 1096.47 s [opt-env-conf-test] + showParen True $
  22507. 1096.47 s [opt-env-conf-test] showString "Setting "
  22508. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22509. 1096.47 s [opt-env-conf-test] . showString " "
  22510. 1096.47 s [opt-env-conf-test]
  22511. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:20-26
  22512. 1096.47 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22513. 1096.47 s [opt-env-conf-test] . showString " "
  22514. 1096.47 s [opt-env-conf-test] . go 11 p2
  22515. 1096.47 s [opt-env-conf-test] ParserSetting mLoc p ->
  22516. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22517. 1096.47 s [opt-env-conf-test] + showParen (True) $
  22518. 1096.47 s [opt-env-conf-test] showString "Setting "
  22519. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22520. 1096.47 s [opt-env-conf-test] . showString " "
  22521. 1096.47 s [opt-env-conf-test]
  22522. 1096.47 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  22523. 1096.47 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22524. 1096.47 s [opt-env-conf-test] . showString " "
  22525. 1096.47 s [opt-env-conf-test] . go 11 p2
  22526. 1096.47 s [opt-env-conf-test] ParserSetting mLoc p ->
  22527. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22528. 1096.47 s [opt-env-conf-test] + showParen (d > -10) $
  22529. 1096.47 s [opt-env-conf-test] showString "Setting "
  22530. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22531. 1096.47 s [opt-env-conf-test] . showString " "
  22532. 1096.47 s [opt-env-conf-test]
  22533. 1096.47 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  22534. 1096.47 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22535. 1096.47 s [opt-env-conf-test] . showString " "
  22536. 1096.47 s [opt-env-conf-test] . go 11 p2
  22537. 1096.47 s [opt-env-conf-test] ParserSetting mLoc p ->
  22538. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22539. 1096.47 s [opt-env-conf-test] + showParen (d > 1) $
  22540. 1096.47 s [opt-env-conf-test] showString "Setting "
  22541. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22542. 1096.47 s [opt-env-conf-test] . showString " "
  22543. 1096.47 s [opt-env-conf-test]
  22544. 1096.47 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  22545. 1096.47 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22546. 1096.47 s [opt-env-conf-test] . showString " "
  22547. 1096.47 s [opt-env-conf-test] . go 11 p2
  22548. 1096.47 s [opt-env-conf-test] ParserSetting mLoc p ->
  22549. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22550. 1096.47 s [opt-env-conf-test] + showParen (d > 0) $
  22551. 1096.47 s [opt-env-conf-test] showString "Setting "
  22552. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22553. 1096.47 s [opt-env-conf-test] . showString " "
  22554. 1096.47 s [opt-env-conf-test]
  22555. 1096.47 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:19-27
  22556. 1096.47 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22557. 1096.47 s [opt-env-conf-test] showCommandABit
  22558. 1096.47 s [opt-env-conf-test] cs
  22559. 1096.47 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22560. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22561. 1096.47 s [opt-env-conf-test] + showParen not ((d > 10)) $
  22562. 1096.47 s [opt-env-conf-test] showString "WithConfig _ "
  22563. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22564. 1096.47 s [opt-env-conf-test] . showString " "
  22565. 1096.47 s [opt-env-conf-test]
  22566. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  22567. 1096.47 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22568. 1096.47 s [opt-env-conf-test] showCommandABit
  22569. 1096.47 s [opt-env-conf-test] cs
  22570. 1096.47 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22571. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22572. 1096.47 s [opt-env-conf-test] + showParen False $
  22573. 1096.47 s [opt-env-conf-test] showString "WithConfig _ "
  22574. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22575. 1096.47 s [opt-env-conf-test] . showString " "
  22576. 1096.47 s [opt-env-conf-test]
  22577. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  22578. 1096.47 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22579. 1096.47 s [opt-env-conf-test] showCommandABit
  22580. 1096.47 s [opt-env-conf-test] cs
  22581. 1096.47 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22582. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22583. 1096.47 s [opt-env-conf-test] + showParen True $
  22584. 1096.47 s [opt-env-conf-test] showString "WithConfig _ "
  22585. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22586. 1096.47 s [opt-env-conf-test] . showString " "
  22587. 1096.47 s [opt-env-conf-test]
  22588. 1096.47 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:20-26
  22589. 1096.47 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22590. 1096.47 s [opt-env-conf-test] showCommandABit
  22591. 1096.47 s [opt-env-conf-test] cs
  22592. 1096.47 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22593. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22594. 1096.47 s [opt-env-conf-test] + showParen (not (d > 10)) $
  22595. 1096.47 s [opt-env-conf-test] showString "WithConfig _ "
  22596. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22597. 1096.47 s [opt-env-conf-test] . showString " "
  22598. 1096.47 s [opt-env-conf-test]
  22599. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  22600. 1096.47 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22601. 1096.47 s [opt-env-conf-test] showCommandABit
  22602. 1096.47 s [opt-env-conf-test] cs
  22603. 1096.47 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22604. 1096.47 s [opt-env-conf-test] - showParen (d > 10) $
  22605. 1096.47 s [opt-env-conf-test] + showParen (False) $
  22606. 1096.47 s [opt-env-conf-test] showString "WithConfig _ "
  22607. 1096.47 s [opt-env-conf-test] . showsPrec 11 mLoc
  22608. 1096.47 s [opt-env-conf-test] . showString " "
  22609. 1096.47 s [opt-env-conf-test]
  22610. 1096.47 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  22611. 1096.47 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22612. 1096.48 s [opt-env-conf-test] showCommandABit
  22613. 1096.48 s [opt-env-conf-test] cs
  22614. 1096.48 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22615. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22616. 1096.48 s [opt-env-conf-test] + showParen (True) $
  22617. 1096.48 s [opt-env-conf-test] showString "WithConfig _ "
  22618. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22619. 1096.48 s [opt-env-conf-test] . showString " "
  22620. 1096.48 s [opt-env-conf-test]
  22621. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  22622. 1096.48 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22623. 1096.48 s [opt-env-conf-test] showCommandABit
  22624. 1096.48 s [opt-env-conf-test] cs
  22625. 1096.48 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22626. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22627. 1096.48 s [opt-env-conf-test] + showParen (d > -10) $
  22628. 1096.48 s [opt-env-conf-test] showString "WithConfig _ "
  22629. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22630. 1096.48 s [opt-env-conf-test] . showString " "
  22631. 1096.48 s [opt-env-conf-test]
  22632. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  22633. 1096.48 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22634. 1096.48 s [opt-env-conf-test] showCommandABit
  22635. 1096.48 s [opt-env-conf-test] cs
  22636. 1096.48 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22637. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22638. 1096.48 s [opt-env-conf-test] + showParen (d > 1) $
  22639. 1096.48 s [opt-env-conf-test] showString "WithConfig _ "
  22640. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22641. 1096.48 s [opt-env-conf-test] . showString " "
  22642. 1096.48 s [opt-env-conf-test]
  22643. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  22644. 1096.48 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22645. 1096.48 s [opt-env-conf-test] showCommandABit
  22646. 1096.48 s [opt-env-conf-test] cs
  22647. 1096.48 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22648. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22649. 1096.48 s [opt-env-conf-test] + showParen (d > 0) $
  22650. 1096.48 s [opt-env-conf-test] showString "WithConfig _ "
  22651. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22652. 1096.48 s [opt-env-conf-test] . showString " "
  22653. 1096.48 s [opt-env-conf-test]
  22654. 1096.48 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:19-27
  22655. 1096.48 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22656. 1096.48 s [opt-env-conf-test] . showString " _ "
  22657. 1096.48 s [opt-env-conf-test] . go 11 p
  22658. 1096.48 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22659. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22660. 1096.48 s [opt-env-conf-test] + showParen True $
  22661. 1096.48 s [opt-env-conf-test] showString "Commands "
  22662. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22663. 1096.48 s [opt-env-conf-test] . showString " "
  22664. 1096.48 s [opt-env-conf-test]
  22665. 1096.48 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:20-26
  22666. 1096.48 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22667. 1096.48 s [opt-env-conf-test] . showString " _ "
  22668. 1096.48 s [opt-env-conf-test] . go 11 p
  22669. 1096.48 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22670. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22671. 1096.48 s [opt-env-conf-test] + showParen (True) $
  22672. 1096.48 s [opt-env-conf-test] showString "Commands "
  22673. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22674. 1096.48 s [opt-env-conf-test] . showString " "
  22675. 1096.48 s [opt-env-conf-test]
  22676. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  22677. 1096.48 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22678. 1096.48 s [opt-env-conf-test] . showString " _ "
  22679. 1096.48 s [opt-env-conf-test] . go 11 p
  22680. 1096.48 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22681. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22682. 1096.48 s [opt-env-conf-test] + showParen (d > -10) $
  22683. 1096.48 s [opt-env-conf-test] showString "Commands "
  22684. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22685. 1096.48 s [opt-env-conf-test] . showString " "
  22686. 1096.48 s [opt-env-conf-test]
  22687. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  22688. 1096.48 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22689. 1096.48 s [opt-env-conf-test] . showString " _ "
  22690. 1096.48 s [opt-env-conf-test] . go 11 p
  22691. 1096.48 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22692. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22693. 1096.48 s [opt-env-conf-test] + showParen (d > 1) $
  22694. 1096.48 s [opt-env-conf-test] showString "Commands "
  22695. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22696. 1096.48 s [opt-env-conf-test] . showString " "
  22697. 1096.48 s [opt-env-conf-test]
  22698. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  22699. 1096.48 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22700. 1096.48 s [opt-env-conf-test] . showString " _ "
  22701. 1096.48 s [opt-env-conf-test] . go 11 p
  22702. 1096.48 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22703. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22704. 1096.48 s [opt-env-conf-test] + showParen (d > 0) $
  22705. 1096.48 s [opt-env-conf-test] showString "Commands "
  22706. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22707. 1096.48 s [opt-env-conf-test] . showString " "
  22708. 1096.48 s [opt-env-conf-test]
  22709. 1096.48 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:19-27
  22710. 1096.48 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22711. 1096.48 s [opt-env-conf-test] . showString " "
  22712. 1096.48 s [opt-env-conf-test] . go 11 p
  22713. 1096.48 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22714. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22715. 1096.48 s [opt-env-conf-test] + showParen True $
  22716. 1096.48 s [opt-env-conf-test] showString "Check "
  22717. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22718. 1096.48 s [opt-env-conf-test] . showString " "
  22719. 1096.48 s [opt-env-conf-test]
  22720. 1096.48 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:20-26
  22721. 1096.48 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22722. 1096.48 s [opt-env-conf-test] . showString " "
  22723. 1096.48 s [opt-env-conf-test] . go 11 p
  22724. 1096.48 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22725. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22726. 1096.48 s [opt-env-conf-test] + showParen (True) $
  22727. 1096.48 s [opt-env-conf-test] showString "Check "
  22728. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22729. 1096.48 s [opt-env-conf-test] . showString " "
  22730. 1096.48 s [opt-env-conf-test]
  22731. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  22732. 1096.48 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22733. 1096.48 s [opt-env-conf-test] . showString " "
  22734. 1096.48 s [opt-env-conf-test] . go 11 p
  22735. 1096.48 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22736. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22737. 1096.48 s [opt-env-conf-test] + showParen (d > -10) $
  22738. 1096.48 s [opt-env-conf-test] showString "Check "
  22739. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22740. 1096.48 s [opt-env-conf-test] . showString " "
  22741. 1096.48 s [opt-env-conf-test]
  22742. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  22743. 1096.48 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22744. 1096.48 s [opt-env-conf-test] . showString " "
  22745. 1096.48 s [opt-env-conf-test] . go 11 p
  22746. 1096.48 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22747. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22748. 1096.48 s [opt-env-conf-test] + showParen (d > 1) $
  22749. 1096.48 s [opt-env-conf-test] showString "Check "
  22750. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22751. 1096.48 s [opt-env-conf-test] . showString " "
  22752. 1096.48 s [opt-env-conf-test]
  22753. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  22754. 1096.48 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22755. 1096.48 s [opt-env-conf-test] . showString " "
  22756. 1096.48 s [opt-env-conf-test] . go 11 p
  22757. 1096.48 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22758. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22759. 1096.48 s [opt-env-conf-test] + showParen (d > 0) $
  22760. 1096.48 s [opt-env-conf-test] showString "Check "
  22761. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22762. 1096.48 s [opt-env-conf-test] . showString " "
  22763. 1096.48 s [opt-env-conf-test]
  22764. 1096.48 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:19-27
  22765. 1096.48 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22766. 1096.48 s [opt-env-conf-test] . showString " "
  22767. 1096.48 s [opt-env-conf-test] . go 11 p
  22768. 1096.48 s [opt-env-conf-test] ParserSome mLoc p ->
  22769. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22770. 1096.48 s [opt-env-conf-test] + showParen True $
  22771. 1096.48 s [opt-env-conf-test] showString "Some "
  22772. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22773. 1096.48 s [opt-env-conf-test] . showString " "
  22774. 1096.48 s [opt-env-conf-test]
  22775. 1096.48 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:20-26
  22776. 1096.48 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22777. 1096.48 s [opt-env-conf-test] . showString " "
  22778. 1096.48 s [opt-env-conf-test] . go 11 p
  22779. 1096.48 s [opt-env-conf-test] ParserSome mLoc p ->
  22780. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22781. 1096.48 s [opt-env-conf-test] + showParen (True) $
  22782. 1096.48 s [opt-env-conf-test] showString "Some "
  22783. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22784. 1096.48 s [opt-env-conf-test] . showString " "
  22785. 1096.48 s [opt-env-conf-test]
  22786. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  22787. 1096.48 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22788. 1096.48 s [opt-env-conf-test] . showString " "
  22789. 1096.48 s [opt-env-conf-test] . go 11 p
  22790. 1096.48 s [opt-env-conf-test] ParserSome mLoc p ->
  22791. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22792. 1096.48 s [opt-env-conf-test] + showParen (d > -10) $
  22793. 1096.48 s [opt-env-conf-test] showString "Some "
  22794. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22795. 1096.48 s [opt-env-conf-test] . showString " "
  22796. 1096.48 s [opt-env-conf-test]
  22797. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  22798. 1096.48 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22799. 1096.48 s [opt-env-conf-test] . showString " "
  22800. 1096.48 s [opt-env-conf-test] . go 11 p
  22801. 1096.48 s [opt-env-conf-test] ParserSome mLoc p ->
  22802. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22803. 1096.48 s [opt-env-conf-test] + showParen (d > 1) $
  22804. 1096.48 s [opt-env-conf-test] showString "Some "
  22805. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22806. 1096.48 s [opt-env-conf-test] . showString " "
  22807. 1096.48 s [opt-env-conf-test]
  22808. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  22809. 1096.48 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22810. 1096.48 s [opt-env-conf-test] . showString " "
  22811. 1096.48 s [opt-env-conf-test] . go 11 p
  22812. 1096.48 s [opt-env-conf-test] ParserSome mLoc p ->
  22813. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22814. 1096.48 s [opt-env-conf-test] + showParen (d > 0) $
  22815. 1096.48 s [opt-env-conf-test] showString "Some "
  22816. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22817. 1096.48 s [opt-env-conf-test] . showString " "
  22818. 1096.48 s [opt-env-conf-test]
  22819. 1096.48 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:19-27
  22820. 1096.48 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22821. 1096.48 s [opt-env-conf-test] . showString " "
  22822. 1096.48 s [opt-env-conf-test] . go 11 p2
  22823. 1096.48 s [opt-env-conf-test] ParserMany mLoc p ->
  22824. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22825. 1096.48 s [opt-env-conf-test] + showParen True $
  22826. 1096.48 s [opt-env-conf-test] showString "Many "
  22827. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22828. 1096.48 s [opt-env-conf-test] . showString " "
  22829. 1096.48 s [opt-env-conf-test]
  22830. 1096.48 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:20-26
  22831. 1096.48 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22832. 1096.48 s [opt-env-conf-test] . showString " "
  22833. 1096.48 s [opt-env-conf-test] . go 11 p2
  22834. 1096.48 s [opt-env-conf-test] ParserMany mLoc p ->
  22835. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22836. 1096.48 s [opt-env-conf-test] + showParen (True) $
  22837. 1096.48 s [opt-env-conf-test] showString "Many "
  22838. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22839. 1096.48 s [opt-env-conf-test] . showString " "
  22840. 1096.48 s [opt-env-conf-test]
  22841. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  22842. 1096.48 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22843. 1096.48 s [opt-env-conf-test] . showString " "
  22844. 1096.48 s [opt-env-conf-test] . go 11 p2
  22845. 1096.48 s [opt-env-conf-test] ParserMany mLoc p ->
  22846. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22847. 1096.48 s [opt-env-conf-test] + showParen (d > -10) $
  22848. 1096.48 s [opt-env-conf-test] showString "Many "
  22849. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22850. 1096.48 s [opt-env-conf-test] . showString " "
  22851. 1096.48 s [opt-env-conf-test]
  22852. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  22853. 1096.48 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22854. 1096.48 s [opt-env-conf-test] . showString " "
  22855. 1096.48 s [opt-env-conf-test] . go 11 p2
  22856. 1096.48 s [opt-env-conf-test] ParserMany mLoc p ->
  22857. 1096.48 s [opt-env-conf-test] - showParen (d > 10) $
  22858. 1096.48 s [opt-env-conf-test] + showParen (d > 1) $
  22859. 1096.48 s [opt-env-conf-test] showString "Many "
  22860. 1096.48 s [opt-env-conf-test] . showsPrec 11 mLoc
  22861. 1096.48 s [opt-env-conf-test] . showString " "
  22862. 1096.48 s [opt-env-conf-test]
  22863. 1096.48 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  22864. 1096.48 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22865. 1096.48 s [opt-env-conf-test] . showString " "
  22866. 1096.48 s [opt-env-conf-test] . go 11 p2
  22867. 1096.49 s [opt-env-conf-test] ParserMany mLoc p ->
  22868. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22869. 1096.49 s [opt-env-conf-test] + showParen (d > 0) $
  22870. 1096.49 s [opt-env-conf-test] showString "Many "
  22871. 1096.49 s [opt-env-conf-test] . showsPrec 11 mLoc
  22872. 1096.49 s [opt-env-conf-test] . showString " "
  22873. 1096.49 s [opt-env-conf-test]
  22874. 1096.49 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:19-27
  22875. 1096.49 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22876. 1096.49 s [opt-env-conf-test] showString "Empty "
  22877. 1096.49 s [opt-env-conf-test] . showsPrec 11 mLoc
  22878. 1096.49 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22879. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22880. 1096.49 s [opt-env-conf-test] + showParen True $
  22881. 1096.49 s [opt-env-conf-test] showString "Alt "
  22882. 1096.49 s [opt-env-conf-test] . go 11 p1
  22883. 1096.49 s [opt-env-conf-test] . showString " "
  22884. 1096.49 s [opt-env-conf-test]
  22885. 1096.49 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:20-26
  22886. 1096.49 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22887. 1096.49 s [opt-env-conf-test] showString "Empty "
  22888. 1096.49 s [opt-env-conf-test] . showsPrec 11 mLoc
  22889. 1096.49 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22890. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22891. 1096.49 s [opt-env-conf-test] + showParen (True) $
  22892. 1096.49 s [opt-env-conf-test] showString "Alt "
  22893. 1096.49 s [opt-env-conf-test] . go 11 p1
  22894. 1096.49 s [opt-env-conf-test] . showString " "
  22895. 1096.49 s [opt-env-conf-test]
  22896. 1096.49 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  22897. 1096.49 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22898. 1096.49 s [opt-env-conf-test] showString "Empty "
  22899. 1096.49 s [opt-env-conf-test] . showsPrec 11 mLoc
  22900. 1096.49 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22901. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22902. 1096.49 s [opt-env-conf-test] + showParen (d > -10) $
  22903. 1096.49 s [opt-env-conf-test] showString "Alt "
  22904. 1096.49 s [opt-env-conf-test] . go 11 p1
  22905. 1096.49 s [opt-env-conf-test] . showString " "
  22906. 1096.49 s [opt-env-conf-test]
  22907. 1096.49 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  22908. 1096.49 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22909. 1096.49 s [opt-env-conf-test] showString "Empty "
  22910. 1096.49 s [opt-env-conf-test] . showsPrec 11 mLoc
  22911. 1096.49 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22912. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22913. 1096.49 s [opt-env-conf-test] + showParen (d > 1) $
  22914. 1096.49 s [opt-env-conf-test] showString "Alt "
  22915. 1096.49 s [opt-env-conf-test] . go 11 p1
  22916. 1096.49 s [opt-env-conf-test] . showString " "
  22917. 1096.49 s [opt-env-conf-test]
  22918. 1096.49 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  22919. 1096.49 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22920. 1096.49 s [opt-env-conf-test] showString "Empty "
  22921. 1096.49 s [opt-env-conf-test] . showsPrec 11 mLoc
  22922. 1096.49 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22923. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22924. 1096.49 s [opt-env-conf-test] + showParen (d > 0) $
  22925. 1096.49 s [opt-env-conf-test] showString "Alt "
  22926. 1096.49 s [opt-env-conf-test] . go 11 p1
  22927. 1096.49 s [opt-env-conf-test] . showString " "
  22928. 1096.49 s [opt-env-conf-test]
  22929. 1096.49 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:19-27
  22930. 1096.49 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22931. 1096.49 s [opt-env-conf-test] go d = \case
  22932. 1096.49 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22933. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  22934. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22935. 1096.49 s [opt-env-conf-test] + showParen True $
  22936. 1096.49 s [opt-env-conf-test] showString "Ap "
  22937. 1096.49 s [opt-env-conf-test] . go 11 pf
  22938. 1096.49 s [opt-env-conf-test] . showString " "
  22939. 1096.49 s [opt-env-conf-test]
  22940. 1096.49 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:20-26
  22941. 1096.49 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22942. 1096.49 s [opt-env-conf-test] go d = \case
  22943. 1096.49 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22944. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  22945. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22946. 1096.49 s [opt-env-conf-test] + showParen (True) $
  22947. 1096.49 s [opt-env-conf-test] showString "Ap "
  22948. 1096.49 s [opt-env-conf-test] . go 11 pf
  22949. 1096.49 s [opt-env-conf-test] . showString " "
  22950. 1096.49 s [opt-env-conf-test]
  22951. 1096.49 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  22952. 1096.49 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22953. 1096.49 s [opt-env-conf-test] go d = \case
  22954. 1096.49 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22955. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  22956. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22957. 1096.49 s [opt-env-conf-test] + showParen (d > -10) $
  22958. 1096.49 s [opt-env-conf-test] showString "Ap "
  22959. 1096.49 s [opt-env-conf-test] . go 11 pf
  22960. 1096.49 s [opt-env-conf-test] . showString " "
  22961. 1096.49 s [opt-env-conf-test]
  22962. 1096.49 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  22963. 1096.49 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22964. 1096.49 s [opt-env-conf-test] go d = \case
  22965. 1096.49 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22966. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  22967. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22968. 1096.49 s [opt-env-conf-test] + showParen (d > 1) $
  22969. 1096.49 s [opt-env-conf-test] showString "Ap "
  22970. 1096.49 s [opt-env-conf-test] . go 11 pf
  22971. 1096.49 s [opt-env-conf-test] . showString " "
  22972. 1096.49 s [opt-env-conf-test]
  22973. 1096.49 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  22974. 1096.49 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22975. 1096.49 s [opt-env-conf-test] go d = \case
  22976. 1096.49 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22977. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  22978. 1096.49 s [opt-env-conf-test] - showParen (d > 10) $
  22979. 1096.49 s [opt-env-conf-test] + showParen (d > 0) $
  22980. 1096.49 s [opt-env-conf-test] showString "Ap "
  22981. 1096.49 s [opt-env-conf-test] . go 11 pf
  22982. 1096.49 s [opt-env-conf-test] . showString " "
  22983. 1096.49 s [opt-env-conf-test]
  22984. 1096.49 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:33-41
  22985. 1096.49 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  22986. 1096.49 s [opt-env-conf-test] where
  22987. 1096.49 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  22988. 1096.49 s [opt-env-conf-test] go d = \case
  22989. 1096.49 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22990. 1096.49 s [opt-env-conf-test] + ParserPure _ -> showParen True $ showString "Pure _"
  22991. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  22992. 1096.49 s [opt-env-conf-test] showParen (d > 10) $
  22993. 1096.49 s [opt-env-conf-test] showString "Ap "
  22994. 1096.49 s [opt-env-conf-test]
  22995. 1096.49 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:34-40
  22996. 1096.49 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  22997. 1096.49 s [opt-env-conf-test] where
  22998. 1096.49 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  22999. 1096.49 s [opt-env-conf-test] go d = \case
  23000. 1096.49 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23001. 1096.49 s [opt-env-conf-test] + ParserPure _ -> showParen (True) $ showString "Pure _"
  23002. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  23003. 1096.49 s [opt-env-conf-test] showParen (d > 10) $
  23004. 1096.49 s [opt-env-conf-test] showString "Ap "
  23005. 1096.49 s [opt-env-conf-test]
  23006. 1096.49 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  23007. 1096.49 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  23008. 1096.49 s [opt-env-conf-test] where
  23009. 1096.49 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  23010. 1096.49 s [opt-env-conf-test] go d = \case
  23011. 1096.49 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23012. 1096.49 s [opt-env-conf-test] + ParserPure _ -> showParen (d > -10) $ showString "Pure _"
  23013. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  23014. 1096.49 s [opt-env-conf-test] showParen (d > 10) $
  23015. 1096.49 s [opt-env-conf-test] showString "Ap "
  23016. 1096.49 s [opt-env-conf-test]
  23017. 1096.49 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  23018. 1096.49 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  23019. 1096.49 s [opt-env-conf-test] where
  23020. 1096.49 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  23021. 1096.49 s [opt-env-conf-test] go d = \case
  23022. 1096.49 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23023. 1096.49 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 1) $ showString "Pure _"
  23024. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  23025. 1096.49 s [opt-env-conf-test] showParen (d > 10) $
  23026. 1096.49 s [opt-env-conf-test] showString "Ap "
  23027. 1096.49 s [opt-env-conf-test]
  23028. 1096.49 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  23029. 1096.49 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  23030. 1096.49 s [opt-env-conf-test] where
  23031. 1096.49 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  23032. 1096.49 s [opt-env-conf-test] go d = \case
  23033. 1096.49 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  23034. 1096.49 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 0) $ showString "Pure _"
  23035. 1096.49 s [opt-env-conf-test] ParserAp pf pa ->
  23036. 1096.49 s [opt-env-conf-test] showParen (d > 10) $
  23037. 1096.49 s [opt-env-conf-test] showString "Ap "
  23038. 1096.49 s [opt-env-conf-test]
  23039. 1096.49 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23040. 1096.49 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23041. 1096.49 s [opt-env-conf-test] where
  23042. 1096.49 s [opt-env-conf-test] go p =
  23043. 1096.49 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23044. 1096.49 s [opt-env-conf-test] - in case p of
  23045. 1096.49 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23046. 1096.49 s [opt-env-conf-test] - ParserAp {} -> p'
  23047. 1096.49 s [opt-env-conf-test] - ParserSelect {} -> p'
  23048. 1096.49 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23049. 1096.49 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23050. 1096.49 s [opt-env-conf-test] - ParserMany {} -> p'
  23051. 1096.49 s [opt-env-conf-test] - ParserSome {} -> p'
  23052. 1096.49 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23053. 1096.49 s [opt-env-conf-test] - ParserCheck {} -> p'
  23054. 1096.49 s [opt-env-conf-test] - ParserCommands {} -> p'
  23055. 1096.49 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23056. 1096.49 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23057. 1096.49 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23058. 1096.49 s [opt-env-conf-test] - Just _ -> p
  23059. 1096.49 s [opt-env-conf-test] + in case p of
  23060. 1096.49 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23061. 1096.49 s [opt-env-conf-test] + ParserAp {} -> p'
  23062. 1096.49 s [opt-env-conf-test] + ParserSelect {} -> p'
  23063. 1096.49 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23064. 1096.49 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23065. 1096.49 s [opt-env-conf-test] + ParserMany {} -> p'
  23066. 1096.49 s [opt-env-conf-test] + ParserSome {} -> p'
  23067. 1096.49 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23068. 1096.49 s [opt-env-conf-test] + ParserCheck {} -> p'
  23069. 1096.49 s [opt-env-conf-test] + ParserCommands {} -> p'
  23070. 1096.49 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23071. 1096.49 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23072. 1096.49 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23073. 1096.49 s [opt-env-conf-test] + Just _ -> p
  23074. 1096.49 s [opt-env-conf-test]
  23075. 1096.49 s [opt-env-conf-test] -- | Try a list of parsers in order
  23076. 1096.49 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23077. 1096.49 s [opt-env-conf-test]
  23078. 1096.49 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23079. 1096.49 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23080. 1096.49 s [opt-env-conf-test] where
  23081. 1096.49 s [opt-env-conf-test] go p =
  23082. 1096.49 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23083. 1096.49 s [opt-env-conf-test] - in case p of
  23084. 1096.49 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23085. 1096.49 s [opt-env-conf-test] - ParserAp {} -> p'
  23086. 1096.49 s [opt-env-conf-test] - ParserSelect {} -> p'
  23087. 1096.49 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23088. 1096.49 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23089. 1096.49 s [opt-env-conf-test] - ParserMany {} -> p'
  23090. 1096.49 s [opt-env-conf-test] - ParserSome {} -> p'
  23091. 1096.49 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23092. 1096.49 s [opt-env-conf-test] - ParserCheck {} -> p'
  23093. 1096.49 s [opt-env-conf-test] - ParserCommands {} -> p'
  23094. 1096.49 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23095. 1096.49 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23096. 1096.49 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23097. 1096.49 s [opt-env-conf-test] - Just _ -> p
  23098. 1096.49 s [opt-env-conf-test] + in case p of
  23099. 1096.49 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23100. 1096.49 s [opt-env-conf-test] + ParserAp {} -> p'
  23101. 1096.49 s [opt-env-conf-test] + ParserSelect {} -> p'
  23102. 1096.49 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23103. 1096.49 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23104. 1096.49 s [opt-env-conf-test] + ParserMany {} -> p'
  23105. 1096.49 s [opt-env-conf-test] + ParserSome {} -> p'
  23106. 1096.49 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23107. 1096.49 s [opt-env-conf-test] + ParserCheck {} -> p'
  23108. 1096.49 s [opt-env-conf-test] + ParserCommands {} -> p'
  23109. 1096.50 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23110. 1096.50 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23111. 1096.50 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23112. 1096.50 s [opt-env-conf-test] + Just _ -> p
  23113. 1096.50 s [opt-env-conf-test]
  23114. 1096.50 s [opt-env-conf-test] -- | Try a list of parsers in order
  23115. 1096.50 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23116. 1096.50 s [opt-env-conf-test]
  23117. 1096.50 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23118. 1096.50 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23119. 1096.50 s [opt-env-conf-test] where
  23120. 1096.50 s [opt-env-conf-test] go p =
  23121. 1096.50 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23122. 1096.50 s [opt-env-conf-test] - in case p of
  23123. 1096.50 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23124. 1096.50 s [opt-env-conf-test] - ParserAp {} -> p'
  23125. 1096.50 s [opt-env-conf-test] - ParserSelect {} -> p'
  23126. 1096.50 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23127. 1096.50 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23128. 1096.50 s [opt-env-conf-test] - ParserMany {} -> p'
  23129. 1096.50 s [opt-env-conf-test] - ParserSome {} -> p'
  23130. 1096.50 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23131. 1096.50 s [opt-env-conf-test] - ParserCheck {} -> p'
  23132. 1096.50 s [opt-env-conf-test] - ParserCommands {} -> p'
  23133. 1096.50 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23134. 1096.50 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23135. 1096.50 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23136. 1096.50 s [opt-env-conf-test] - Just _ -> p
  23137. 1096.50 s [opt-env-conf-test] + in case p of
  23138. 1096.50 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23139. 1096.50 s [opt-env-conf-test] + ParserAp {} -> p'
  23140. 1096.50 s [opt-env-conf-test] + ParserSelect {} -> p'
  23141. 1096.50 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23142. 1096.50 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23143. 1096.50 s [opt-env-conf-test] + ParserMany {} -> p'
  23144. 1096.50 s [opt-env-conf-test] + ParserSome {} -> p'
  23145. 1096.50 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23146. 1096.50 s [opt-env-conf-test] + ParserCheck {} -> p'
  23147. 1096.50 s [opt-env-conf-test] + ParserCommands {} -> p'
  23148. 1096.50 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23149. 1096.50 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23150. 1096.50 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23151. 1096.50 s [opt-env-conf-test] + Just _ -> p
  23152. 1096.50 s [opt-env-conf-test]
  23153. 1096.50 s [opt-env-conf-test] -- | Try a list of parsers in order
  23154. 1096.50 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23155. 1096.50 s [opt-env-conf-test]
  23156. 1096.50 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23157. 1096.50 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23158. 1096.50 s [opt-env-conf-test] where
  23159. 1096.50 s [opt-env-conf-test] go p =
  23160. 1096.50 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23161. 1096.50 s [opt-env-conf-test] - in case p of
  23162. 1096.50 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23163. 1096.50 s [opt-env-conf-test] - ParserAp {} -> p'
  23164. 1096.50 s [opt-env-conf-test] - ParserSelect {} -> p'
  23165. 1096.50 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23166. 1096.50 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23167. 1096.50 s [opt-env-conf-test] - ParserMany {} -> p'
  23168. 1096.50 s [opt-env-conf-test] - ParserSome {} -> p'
  23169. 1096.50 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23170. 1096.50 s [opt-env-conf-test] - ParserCheck {} -> p'
  23171. 1096.50 s [opt-env-conf-test] - ParserCommands {} -> p'
  23172. 1096.50 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23173. 1096.50 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23174. 1096.50 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23175. 1096.50 s [opt-env-conf-test] - Just _ -> p
  23176. 1096.50 s [opt-env-conf-test] + in case p of
  23177. 1096.50 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23178. 1096.50 s [opt-env-conf-test] + ParserAp {} -> p'
  23179. 1096.50 s [opt-env-conf-test] + ParserSelect {} -> p'
  23180. 1096.50 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23181. 1096.50 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23182. 1096.50 s [opt-env-conf-test] + ParserMany {} -> p'
  23183. 1096.50 s [opt-env-conf-test] + ParserSome {} -> p'
  23184. 1096.50 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23185. 1096.50 s [opt-env-conf-test] + ParserCheck {} -> p'
  23186. 1096.50 s [opt-env-conf-test] + ParserCommands {} -> p'
  23187. 1096.50 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23188. 1096.50 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23189. 1096.50 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23190. 1096.50 s [opt-env-conf-test] + Just _ -> p
  23191. 1096.50 s [opt-env-conf-test]
  23192. 1096.50 s [opt-env-conf-test] -- | Try a list of parsers in order
  23193. 1096.50 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23194. 1096.50 s [opt-env-conf-test]
  23195. 1096.50 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23196. 1096.50 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23197. 1096.50 s [opt-env-conf-test] where
  23198. 1096.50 s [opt-env-conf-test] go p =
  23199. 1096.50 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23200. 1096.50 s [opt-env-conf-test] - in case p of
  23201. 1096.50 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23202. 1096.50 s [opt-env-conf-test] - ParserAp {} -> p'
  23203. 1096.50 s [opt-env-conf-test] - ParserSelect {} -> p'
  23204. 1096.50 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23205. 1096.50 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23206. 1096.50 s [opt-env-conf-test] - ParserMany {} -> p'
  23207. 1096.50 s [opt-env-conf-test] - ParserSome {} -> p'
  23208. 1096.50 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23209. 1096.50 s [opt-env-conf-test] - ParserCheck {} -> p'
  23210. 1096.50 s [opt-env-conf-test] - ParserCommands {} -> p'
  23211. 1096.50 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23212. 1096.50 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23213. 1096.50 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23214. 1096.50 s [opt-env-conf-test] - Just _ -> p
  23215. 1096.50 s [opt-env-conf-test] + in case p of
  23216. 1096.50 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23217. 1096.50 s [opt-env-conf-test] + ParserAp {} -> p'
  23218. 1096.50 s [opt-env-conf-test] + ParserSelect {} -> p'
  23219. 1096.50 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23220. 1096.50 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23221. 1096.50 s [opt-env-conf-test] + ParserMany {} -> p'
  23222. 1096.50 s [opt-env-conf-test] + ParserSome {} -> p'
  23223. 1096.50 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23224. 1096.50 s [opt-env-conf-test] + ParserCheck {} -> p'
  23225. 1096.50 s [opt-env-conf-test] + ParserCommands {} -> p'
  23226. 1096.50 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23227. 1096.50 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23228. 1096.50 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23229. 1096.50 s [opt-env-conf-test] + Just _ -> p
  23230. 1096.50 s [opt-env-conf-test]
  23231. 1096.50 s [opt-env-conf-test] -- | Try a list of parsers in order
  23232. 1096.50 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23233. 1096.50 s [opt-env-conf-test]
  23234. 1096.50 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23235. 1096.50 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23236. 1096.50 s [opt-env-conf-test] where
  23237. 1096.50 s [opt-env-conf-test] go p =
  23238. 1096.50 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23239. 1096.50 s [opt-env-conf-test] - in case p of
  23240. 1096.50 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23241. 1096.50 s [opt-env-conf-test] - ParserAp {} -> p'
  23242. 1096.50 s [opt-env-conf-test] - ParserSelect {} -> p'
  23243. 1096.50 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23244. 1096.50 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23245. 1096.50 s [opt-env-conf-test] - ParserMany {} -> p'
  23246. 1096.50 s [opt-env-conf-test] - ParserSome {} -> p'
  23247. 1096.50 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23248. 1096.50 s [opt-env-conf-test] - ParserCheck {} -> p'
  23249. 1096.50 s [opt-env-conf-test] - ParserCommands {} -> p'
  23250. 1096.50 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23251. 1096.50 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23252. 1096.50 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23253. 1096.50 s [opt-env-conf-test] - Just _ -> p
  23254. 1096.50 s [opt-env-conf-test] + in case p of
  23255. 1096.50 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23256. 1096.50 s [opt-env-conf-test] + ParserAp {} -> p'
  23257. 1096.50 s [opt-env-conf-test] + ParserSelect {} -> p'
  23258. 1096.50 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23259. 1096.50 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23260. 1096.50 s [opt-env-conf-test] + ParserMany {} -> p'
  23261. 1096.50 s [opt-env-conf-test] + ParserSome {} -> p'
  23262. 1096.50 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23263. 1096.50 s [opt-env-conf-test] + ParserCheck {} -> p'
  23264. 1096.50 s [opt-env-conf-test] + ParserCommands {} -> p'
  23265. 1096.50 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23266. 1096.50 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23267. 1096.50 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23268. 1096.50 s [opt-env-conf-test] + Just _ -> p
  23269. 1096.50 s [opt-env-conf-test]
  23270. 1096.50 s [opt-env-conf-test] -- | Try a list of parsers in order
  23271. 1096.50 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23272. 1096.50 s [opt-env-conf-test]
  23273. 1096.50 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23274. 1096.50 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23275. 1096.50 s [opt-env-conf-test] where
  23276. 1096.50 s [opt-env-conf-test] go p =
  23277. 1096.50 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23278. 1096.50 s [opt-env-conf-test] - in case p of
  23279. 1096.50 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23280. 1096.50 s [opt-env-conf-test] - ParserAp {} -> p'
  23281. 1096.50 s [opt-env-conf-test] - ParserSelect {} -> p'
  23282. 1096.50 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23283. 1096.50 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23284. 1096.50 s [opt-env-conf-test] - ParserMany {} -> p'
  23285. 1096.50 s [opt-env-conf-test] - ParserSome {} -> p'
  23286. 1096.50 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23287. 1096.50 s [opt-env-conf-test] - ParserCheck {} -> p'
  23288. 1096.50 s [opt-env-conf-test] - ParserCommands {} -> p'
  23289. 1096.50 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23290. 1096.50 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23291. 1096.50 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23292. 1096.50 s [opt-env-conf-test] - Just _ -> p
  23293. 1096.50 s [opt-env-conf-test] + in case p of
  23294. 1096.50 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23295. 1096.50 s [opt-env-conf-test] + ParserAp {} -> p'
  23296. 1096.50 s [opt-env-conf-test] + ParserSelect {} -> p'
  23297. 1096.50 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23298. 1096.50 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23299. 1096.50 s [opt-env-conf-test] + ParserMany {} -> p'
  23300. 1096.50 s [opt-env-conf-test] + ParserSome {} -> p'
  23301. 1096.50 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23302. 1096.50 s [opt-env-conf-test] + ParserCheck {} -> p'
  23303. 1096.50 s [opt-env-conf-test] + ParserCommands {} -> p'
  23304. 1096.50 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23305. 1096.50 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23306. 1096.50 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23307. 1096.50 s [opt-env-conf-test] + Just _ -> p
  23308. 1096.50 s [opt-env-conf-test]
  23309. 1096.50 s [opt-env-conf-test] -- | Try a list of parsers in order
  23310. 1096.50 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23311. 1096.50 s [opt-env-conf-test]
  23312. 1096.50 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23313. 1096.50 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23314. 1096.50 s [opt-env-conf-test] where
  23315. 1096.50 s [opt-env-conf-test] go p =
  23316. 1096.50 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23317. 1096.50 s [opt-env-conf-test] - in case p of
  23318. 1096.50 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23319. 1096.50 s [opt-env-conf-test] - ParserAp {} -> p'
  23320. 1096.50 s [opt-env-conf-test] - ParserSelect {} -> p'
  23321. 1096.50 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23322. 1096.50 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23323. 1096.50 s [opt-env-conf-test] - ParserMany {} -> p'
  23324. 1096.50 s [opt-env-conf-test] - ParserSome {} -> p'
  23325. 1096.50 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23326. 1096.50 s [opt-env-conf-test] - ParserCheck {} -> p'
  23327. 1096.50 s [opt-env-conf-test] - ParserCommands {} -> p'
  23328. 1096.50 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23329. 1096.50 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23330. 1096.50 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23331. 1096.50 s [opt-env-conf-test] - Just _ -> p
  23332. 1096.50 s [opt-env-conf-test] + in case p of
  23333. 1096.50 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23334. 1096.50 s [opt-env-conf-test] + ParserAp {} -> p'
  23335. 1096.50 s [opt-env-conf-test] + ParserSelect {} -> p'
  23336. 1096.50 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23337. 1096.50 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23338. 1096.50 s [opt-env-conf-test] + ParserMany {} -> p'
  23339. 1096.50 s [opt-env-conf-test] + ParserSome {} -> p'
  23340. 1096.50 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23341. 1096.50 s [opt-env-conf-test] + ParserCheck {} -> p'
  23342. 1096.50 s [opt-env-conf-test] + ParserCommands {} -> p'
  23343. 1096.50 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23344. 1096.50 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23345. 1096.50 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23346. 1096.50 s [opt-env-conf-test] + Just _ -> p
  23347. 1096.50 s [opt-env-conf-test]
  23348. 1096.50 s [opt-env-conf-test] -- | Try a list of parsers in order
  23349. 1096.50 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23350. 1096.50 s [opt-env-conf-test]
  23351. 1096.50 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23352. 1096.50 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23353. 1096.50 s [opt-env-conf-test] where
  23354. 1096.50 s [opt-env-conf-test] go p =
  23355. 1096.51 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23356. 1096.51 s [opt-env-conf-test] - in case p of
  23357. 1096.51 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23358. 1096.51 s [opt-env-conf-test] - ParserAp {} -> p'
  23359. 1096.51 s [opt-env-conf-test] - ParserSelect {} -> p'
  23360. 1096.51 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23361. 1096.51 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23362. 1096.51 s [opt-env-conf-test] - ParserMany {} -> p'
  23363. 1096.51 s [opt-env-conf-test] - ParserSome {} -> p'
  23364. 1096.51 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23365. 1096.51 s [opt-env-conf-test] - ParserCheck {} -> p'
  23366. 1096.51 s [opt-env-conf-test] - ParserCommands {} -> p'
  23367. 1096.51 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23368. 1096.51 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23369. 1096.51 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23370. 1096.51 s [opt-env-conf-test] - Just _ -> p
  23371. 1096.51 s [opt-env-conf-test] + in case p of
  23372. 1096.51 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23373. 1096.51 s [opt-env-conf-test] + ParserAp {} -> p'
  23374. 1096.51 s [opt-env-conf-test] + ParserSelect {} -> p'
  23375. 1096.51 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23376. 1096.51 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23377. 1096.51 s [opt-env-conf-test] + ParserMany {} -> p'
  23378. 1096.51 s [opt-env-conf-test] + ParserSome {} -> p'
  23379. 1096.51 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23380. 1096.51 s [opt-env-conf-test] + ParserCheck {} -> p'
  23381. 1096.51 s [opt-env-conf-test] + ParserCommands {} -> p'
  23382. 1096.51 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23383. 1096.51 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23384. 1096.51 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23385. 1096.51 s [opt-env-conf-test] + Just _ -> p
  23386. 1096.51 s [opt-env-conf-test]
  23387. 1096.51 s [opt-env-conf-test] -- | Try a list of parsers in order
  23388. 1096.51 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23389. 1096.51 s [opt-env-conf-test]
  23390. 1096.51 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23391. 1096.51 s [opt-env-conf-test] @@ -547,21 +547,21 @@
  23392. 1096.51 s [opt-env-conf-test] where
  23393. 1096.51 s [opt-env-conf-test] go p =
  23394. 1096.51 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23395. 1096.51 s [opt-env-conf-test] - in case p of
  23396. 1096.51 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23397. 1096.51 s [opt-env-conf-test] - ParserAp {} -> p'
  23398. 1096.51 s [opt-env-conf-test] - ParserSelect {} -> p'
  23399. 1096.51 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23400. 1096.51 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23401. 1096.51 s [opt-env-conf-test] - ParserMany {} -> p'
  23402. 1096.51 s [opt-env-conf-test] - ParserSome {} -> p'
  23403. 1096.51 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23404. 1096.51 s [opt-env-conf-test] - ParserCheck {} -> p'
  23405. 1096.51 s [opt-env-conf-test] - ParserCommands {} -> p'
  23406. 1096.51 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  23407. 1096.51 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23408. 1096.51 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23409. 1096.51 s [opt-env-conf-test] - Just _ -> p
  23410. 1096.51 s [opt-env-conf-test] + in case p of
  23411. 1096.51 s [opt-env-conf-test] + ParserPure a -> ParserPure a
  23412. 1096.51 s [opt-env-conf-test] + ParserAp {} -> p'
  23413. 1096.51 s [opt-env-conf-test] + ParserSelect {} -> p'
  23414. 1096.51 s [opt-env-conf-test] + ParserEmpty _ -> ParserPure defaultValue
  23415. 1096.51 s [opt-env-conf-test] + ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23416. 1096.51 s [opt-env-conf-test] + ParserMany {} -> p'
  23417. 1096.51 s [opt-env-conf-test] + ParserSome {} -> p'
  23418. 1096.51 s [opt-env-conf-test] + ParserAllOrNothing {} -> p'
  23419. 1096.51 s [opt-env-conf-test] + ParserCheck {} -> p'
  23420. 1096.51 s [opt-env-conf-test] + ParserCommands {} -> p'
  23421. 1096.51 s [opt-env-conf-test] + ParserWithConfig {} -> p'
  23422. 1096.51 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23423. 1096.51 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23424. 1096.51 s [opt-env-conf-test] + Just _ -> p
  23425. 1096.51 s [opt-env-conf-test]
  23426. 1096.51 s [opt-env-conf-test] -- | Try a list of parsers in order
  23427. 1096.51 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23428. 1096.51 s [opt-env-conf-test]
  23429. 1096.51 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
  23430. 1096.51 s [opt-env-conf-test] @@ -559,9 +559,9 @@
  23431. 1096.51 s [opt-env-conf-test] ParserCheck {} -> p'
  23432. 1096.51 s [opt-env-conf-test] ParserCommands {} -> p'
  23433. 1096.51 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23434. 1096.51 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  23435. 1096.51 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23436. 1096.51 s [opt-env-conf-test] - Just _ -> p
  23437. 1096.51 s [opt-env-conf-test] + ParserSetting mLoc s -> case settingDefaultValue s of
  23438. 1096.51 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23439. 1096.51 s [opt-env-conf-test] + Just _ -> p
  23440. 1096.51 s [opt-env-conf-test]
  23441. 1096.51 s [opt-env-conf-test] -- | Try a list of parsers in order
  23442. 1096.51 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23443. 1096.51 s [opt-env-conf-test]
  23444. 1096.51 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
  23445. 1096.51 s [opt-env-conf-test] @@ -599,9 +599,9 @@
  23446. 1096.51 s [opt-env-conf-test] checkMapMaybe func p =
  23447. 1096.51 s [opt-env-conf-test] withFrozenCallStack $
  23448. 1096.51 s [opt-env-conf-test] checkMapEither
  23449. 1096.51 s [opt-env-conf-test] - ( \a -> case func a of
  23450. 1096.51 s [opt-env-conf-test] - Nothing -> Left "checkMapMaybe failed without a helpful error message"
  23451. 1096.51 s [opt-env-conf-test] - Just b -> Right b
  23452. 1096.51 s [opt-env-conf-test] + ( \a -> case func a of
  23453. 1096.51 s [opt-env-conf-test] + Nothing -> Left "checkMapMaybe failed without a helpful error message"
  23454. 1096.51 s [opt-env-conf-test] + Just b -> Right b
  23455. 1096.51 s [opt-env-conf-test] )
  23456. 1096.51 s [opt-env-conf-test] p
  23457. 1096.51 s [opt-env-conf-test]
  23458. 1096.51 s [opt-env-conf-test]
  23459. 1096.51 s [opt-env-conf-test] CondFlip at src/OptEnvConf/Completer.hs:117:28-81
  23460. 1096.51 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  23461. 1096.51 s [opt-env-conf-test] Just (Rel rf) -> do
  23462. 1096.51 s [opt-env-conf-test] let dir = parent rf
  23463. 1096.51 s [opt-env-conf-test] let ad = baseDir </> dir
  23464. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23465. 1096.51 s [opt-env-conf-test] + let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23466. 1096.51 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  23467. 1096.51 s [opt-env-conf-test] pure
  23468. 1096.51 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  23469. 1096.51 s [opt-env-conf-test]
  23470. 1096.51 s [opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:117:31-43
  23471. 1096.51 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  23472. 1096.51 s [opt-env-conf-test] Just (Rel rf) -> do
  23473. 1096.51 s [opt-env-conf-test] let dir = parent rf
  23474. 1096.51 s [opt-env-conf-test] let ad = baseDir </> dir
  23475. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23476. 1096.51 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  23477. 1096.51 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  23478. 1096.51 s [opt-env-conf-test] pure
  23479. 1096.51 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  23480. 1096.51 s [opt-env-conf-test]
  23481. 1096.51 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  23482. 1096.51 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  23483. 1096.51 s [opt-env-conf-test] Just (Rel rf) -> do
  23484. 1096.51 s [opt-env-conf-test] let dir = parent rf
  23485. 1096.51 s [opt-env-conf-test] let ad = baseDir </> dir
  23486. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23487. 1096.51 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  23488. 1096.51 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  23489. 1096.51 s [opt-env-conf-test] pure
  23490. 1096.51 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  23491. 1096.51 s [opt-env-conf-test]
  23492. 1096.51 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  23493. 1096.51 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  23494. 1096.51 s [opt-env-conf-test] Just (Rel rf) -> do
  23495. 1096.51 s [opt-env-conf-test] let dir = parent rf
  23496. 1096.51 s [opt-env-conf-test] let ad = baseDir </> dir
  23497. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23498. 1096.51 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  23499. 1096.51 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  23500. 1096.51 s [opt-env-conf-test] pure
  23501. 1096.51 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  23502. 1096.51 s [opt-env-conf-test]
  23503. 1096.51 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
  23504. 1096.51 s [opt-env-conf-test] @@ -168,24 +168,24 @@
  23505. 1096.51 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23506. 1096.51 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  23507. 1096.51 s [opt-env-conf-test]
  23508. 1096.51 s [opt-env-conf-test] - dirsFromPartialListing <- case parseSomeDir fp of
  23509. 1096.51 s [opt-env-conf-test] - Nothing -> pure []
  23510. 1096.51 s [opt-env-conf-test] - Just (Abs af) -> do
  23511. 1096.51 s [opt-env-conf-test] - let dir = parent af
  23512. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  23513. 1096.51 s [opt-env-conf-test] - (ds, _) <- listDirForgiving dir
  23514. 1096.51 s [opt-env-conf-test] - pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  23515. 1096.51 s [opt-env-conf-test] - Just (Rel rf) ->
  23516. 1096.51 s [opt-env-conf-test] - if fp == "."
  23517. 1096.51 s [opt-env-conf-test] - then do
  23518. 1096.51 s [opt-env-conf-test] - (ds, _) <- listDirRel baseDir
  23519. 1096.51 s [opt-env-conf-test] - pure (map fromRelDir ds)
  23520. 1096.51 s [opt-env-conf-test] - else do
  23521. 1096.51 s [opt-env-conf-test] - let dir = parent rf
  23522. 1096.51 s [opt-env-conf-test] - let ad = baseDir </> dir
  23523. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23524. 1096.51 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  23525. 1096.51 s [opt-env-conf-test] - pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23526. 1096.51 s [opt-env-conf-test] + dirsFromPartialListing <- case parseSomeDir fp of
  23527. 1096.51 s [opt-env-conf-test] + Nothing -> pure []
  23528. 1096.51 s [opt-env-conf-test] + Just (Abs af) -> do
  23529. 1096.51 s [opt-env-conf-test] + let dir = parent af
  23530. 1096.51 s [opt-env-conf-test] + let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  23531. 1096.51 s [opt-env-conf-test] + (ds, _) <- listDirForgiving dir
  23532. 1096.51 s [opt-env-conf-test] + pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  23533. 1096.51 s [opt-env-conf-test] + Just (Rel rf) ->
  23534. 1096.51 s [opt-env-conf-test] + if fp == "."
  23535. 1096.51 s [opt-env-conf-test] + then do
  23536. 1096.51 s [opt-env-conf-test] + (ds, _) <- listDirRel baseDir
  23537. 1096.51 s [opt-env-conf-test] + pure (map fromRelDir ds)
  23538. 1096.51 s [opt-env-conf-test] + else do
  23539. 1096.51 s [opt-env-conf-test] + let dir = parent rf
  23540. 1096.51 s [opt-env-conf-test] + let ad = baseDir </> dir
  23541. 1096.51 s [opt-env-conf-test] + let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23542. 1096.51 s [opt-env-conf-test] + (ds, _) <- listDirForgiving ad
  23543. 1096.51 s [opt-env-conf-test] + pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23544. 1096.51 s [opt-env-conf-test]
  23545. 1096.51 s [opt-env-conf-test] pure $
  23546. 1096.51 s [opt-env-conf-test] concat
  23547. 1096.51 s [opt-env-conf-test]
  23548. 1096.51 s [opt-env-conf-test] CondFlip at src/OptEnvConf/Completer.hs:186:32-85
  23549. 1096.51 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  23550. 1096.51 s [opt-env-conf-test] else do
  23551. 1096.51 s [opt-env-conf-test] let dir = parent rf
  23552. 1096.51 s [opt-env-conf-test] let ad = baseDir </> dir
  23553. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23554. 1096.51 s [opt-env-conf-test] + let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23555. 1096.51 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23556. 1096.51 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23557. 1096.51 s [opt-env-conf-test]
  23558. 1096.51 s [opt-env-conf-test]
  23559. 1096.51 s [opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:186:35-47
  23560. 1096.51 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  23561. 1096.51 s [opt-env-conf-test] else do
  23562. 1096.51 s [opt-env-conf-test] let dir = parent rf
  23563. 1096.51 s [opt-env-conf-test] let ad = baseDir </> dir
  23564. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23565. 1096.51 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  23566. 1096.51 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23567. 1096.51 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23568. 1096.51 s [opt-env-conf-test]
  23569. 1096.51 s [opt-env-conf-test]
  23570. 1096.51 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  23571. 1096.51 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  23572. 1096.51 s [opt-env-conf-test] else do
  23573. 1096.51 s [opt-env-conf-test] let dir = parent rf
  23574. 1096.51 s [opt-env-conf-test] let ad = baseDir </> dir
  23575. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23576. 1096.51 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  23577. 1096.51 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23578. 1096.51 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23579. 1096.51 s [opt-env-conf-test]
  23580. 1096.51 s [opt-env-conf-test]
  23581. 1096.51 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  23582. 1096.51 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  23583. 1096.51 s [opt-env-conf-test] else do
  23584. 1096.51 s [opt-env-conf-test] let dir = parent rf
  23585. 1096.51 s [opt-env-conf-test] let ad = baseDir </> dir
  23586. 1096.51 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  23587. 1096.51 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  23588. 1096.51 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23589. 1096.51 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  23590. 1096.51 s [opt-env-conf-test]
  23591. 1096.51 s [opt-env-conf-test]
  23592. 1096.51 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:179:12-21
  23593. 1096.51 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  23594. 1096.51 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  23595. 1096.51 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  23596. 1096.51 s [opt-env-conf-test] Just (Rel rf) ->
  23597. 1096.51 s [opt-env-conf-test] - if fp == "."
  23598. 1096.51 s [opt-env-conf-test] + if False
  23599. 1096.51 s [opt-env-conf-test] then do
  23600. 1096.51 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  23601. 1096.52 s [opt-env-conf-test] pure (map fromRelDir ds)
  23602. 1096.52 s [opt-env-conf-test]
  23603. 1096.52 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
  23604. 1096.52 s [opt-env-conf-test] @@ -154,19 +154,19 @@
  23605. 1096.52 s [opt-env-conf-test] directoryPathFromDir baseDir prefix fp fp' = do
  23606. 1096.52 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  23607. 1096.52 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  23608. 1096.52 s [opt-env-conf-test] - dirsFromParentListing <- case parseSomeDir fp of
  23609. 1096.52 s [opt-env-conf-test] - Nothing -> case fp of
  23610. 1096.52 s [opt-env-conf-test] - [] -> do
  23611. 1096.52 s [opt-env-conf-test] - (ds, _) <- listDirRel baseDir
  23612. 1096.52 s [opt-env-conf-test] - pure (map fromRelDir $ filter (not . hiddenRel) ds)
  23613. 1096.52 s [opt-env-conf-test] - _ -> pure []
  23614. 1096.52 s [opt-env-conf-test] - Just (Abs ad) -> do
  23615. 1096.52 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  23616. 1096.52 s [opt-env-conf-test] - pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  23617. 1096.52 s [opt-env-conf-test] - Just (Rel rd) -> do
  23618. 1096.52 s [opt-env-conf-test] - let ad = baseDir </> rd
  23619. 1096.52 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  23620. 1096.52 s [opt-env-conf-test] - pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  23621. 1096.52 s [opt-env-conf-test] + dirsFromParentListing <- case parseSomeDir fp of
  23622. 1096.52 s [opt-env-conf-test] + Nothing -> case fp of
  23623. 1096.52 s [opt-env-conf-test] + [] -> do
  23624. 1096.52 s [opt-env-conf-test] + (ds, _) <- listDirRel baseDir
  23625. 1096.52 s [opt-env-conf-test] + pure (map fromRelDir $ filter (not . hiddenRel) ds)
  23626. 1096.52 s [opt-env-conf-test] + _ -> pure []
  23627. 1096.52 s [opt-env-conf-test] + Just (Abs ad) -> do
  23628. 1096.52 s [opt-env-conf-test] + (ds, _) <- listDirForgiving ad
  23629. 1096.52 s [opt-env-conf-test] + pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  23630. 1096.52 s [opt-env-conf-test] + Just (Rel rd) -> do
  23631. 1096.52 s [opt-env-conf-test] + let ad = baseDir </> rd
  23632. 1096.52 s [opt-env-conf-test] + (ds, _) <- listDirForgiving ad
  23633. 1096.52 s [opt-env-conf-test] + pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  23634. 1096.52 s [opt-env-conf-test]
  23635. 1096.52 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  23636. 1096.52 s [opt-env-conf-test] Nothing -> pure []
  23637. 1096.52 s [opt-env-conf-test]
  23638. 1096.52 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
  23639. 1096.52 s [opt-env-conf-test] @@ -155,11 +155,11 @@
  23640. 1096.52 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  23641. 1096.52 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  23642. 1096.52 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  23643. 1096.52 s [opt-env-conf-test] - Nothing -> case fp of
  23644. 1096.52 s [opt-env-conf-test] - [] -> do
  23645. 1096.52 s [opt-env-conf-test] - (ds, _) <- listDirRel baseDir
  23646. 1096.52 s [opt-env-conf-test] - pure (map fromRelDir $ filter (not . hiddenRel) ds)
  23647. 1096.52 s [opt-env-conf-test] - _ -> pure []
  23648. 1096.52 s [opt-env-conf-test] + Nothing -> case fp of
  23649. 1096.52 s [opt-env-conf-test] + [] -> do
  23650. 1096.52 s [opt-env-conf-test] + (ds, _) <- listDirRel baseDir
  23651. 1096.52 s [opt-env-conf-test] + pure (map fromRelDir $ filter (not . hiddenRel) ds)
  23652. 1096.52 s [opt-env-conf-test] + _ -> pure []
  23653. 1096.52 s [opt-env-conf-test] Just (Abs ad) -> do
  23654. 1096.52 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  23655. 1096.52 s [opt-env-conf-test] pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  23656. 1096.52 s [opt-env-conf-test]
  23657. 1096.52 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completion.hs:453:24-40
  23658. 1096.52 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  23659. 1096.52 s [opt-env-conf-test] put as'
  23660. 1096.52 s [opt-env-conf-test] pure $ Just []
  23661. 1096.52 s [opt-env-conf-test] else do
  23662. 1096.52 s [opt-env-conf-test] - if settingTryOption
  23663. 1096.52 s [opt-env-conf-test] + if True
  23664. 1096.52 s [opt-env-conf-test] then do
  23665. 1096.52 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  23666. 1096.52 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  23667. 1096.52 s [opt-env-conf-test]
  23668. 1096.52 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
  23669. 1096.52 s [opt-env-conf-test] @@ -432,11 +432,11 @@
  23670. 1096.52 s [opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
  23671. 1096.52 s [opt-env-conf-test] -- fallback matched. In both cases, offer the
  23672. 1096.52 s [opt-env-conf-test] -- completer if we are at the end.
  23673. 1096.52 s [opt-env-conf-test] - case possibilities of
  23674. 1096.52 s [opt-env-conf-test] - [] -> completeWithCompleterAtEnd
  23675. 1096.52 s [opt-env-conf-test] - (_, as') : _ -> do
  23676. 1096.52 s [opt-env-conf-test] - put as'
  23677. 1096.52 s [opt-env-conf-test] - completeWithCompleterAtEnd
  23678. 1096.52 s [opt-env-conf-test] + case possibilities of
  23679. 1096.52 s [opt-env-conf-test] + [] -> completeWithCompleterAtEnd
  23680. 1096.52 s [opt-env-conf-test] + (_, as') : _ -> do
  23681. 1096.52 s [opt-env-conf-test] + put as'
  23682. 1096.52 s [opt-env-conf-test] + completeWithCompleterAtEnd
  23683. 1096.52 s [opt-env-conf-test] else
  23684. 1096.52 s [opt-env-conf-test] if isJust settingSwitchValue
  23685. 1096.52 s [opt-env-conf-test] then do
  23686. 1096.52 s [opt-env-conf-test]
  23687. 1096.52 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
  23688. 1096.52 s [opt-env-conf-test] @@ -367,11 +367,11 @@
  23689. 1096.52 s [opt-env-conf-test] | not (null commandDocs)
  23690. 1096.52 s [opt-env-conf-test] ],
  23691. 1096.52 s [opt-env-conf-test] concat
  23692. 1096.52 s [opt-env-conf-test] - [ [ headerChunks "Options",
  23693. 1096.52 s [opt-env-conf-test] - renderLongOptDocs optDocs
  23694. 1096.52 s [opt-env-conf-test] - ]
  23695. 1096.52 s [opt-env-conf-test] - | not (nullDocs optDocs)
  23696. 1096.52 s [opt-env-conf-test] - ],
  23697. 1096.52 s [opt-env-conf-test] + [ [ headerChunks "Options",
  23698. 1096.52 s [opt-env-conf-test] + renderLongOptDocs optDocs
  23699. 1096.52 s [opt-env-conf-test] + ]
  23700. 1096.52 s [opt-env-conf-test] + | not (nullDocs optDocs)
  23701. 1096.52 s [opt-env-conf-test] + ],
  23702. 1096.52 s [opt-env-conf-test] concat
  23703. 1096.52 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  23704. 1096.52 s [opt-env-conf-test] renderEnvDocs envDocs
  23705. 1096.52 s [opt-env-conf-test]
  23706. 1096.52 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:373:17-39
  23707. 1096.52 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  23708. 1096.52 s [opt-env-conf-test] [ [ headerChunks "Options",
  23709. 1096.52 s [opt-env-conf-test] renderLongOptDocs optDocs
  23710. 1096.52 s [opt-env-conf-test] ]
  23711. 1096.52 s [opt-env-conf-test] - | not (nullDocs optDocs)
  23712. 1096.52 s [opt-env-conf-test] + | True
  23713. 1096.52 s [opt-env-conf-test] ],
  23714. 1096.52 s [opt-env-conf-test] concat
  23715. 1096.52 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  23716. 1096.52 s [opt-env-conf-test]
  23717. 1096.52 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
  23718. 1096.52 s [opt-env-conf-test] @@ -326,11 +326,11 @@
  23719. 1096.52 s [opt-env-conf-test] | not (null commandDocs)
  23720. 1096.52 s [opt-env-conf-test] ],
  23721. 1096.52 s [opt-env-conf-test] concat
  23722. 1096.52 s [opt-env-conf-test] - [ [ [".Sh ", "OPTIONS"],
  23723. 1096.52 s [opt-env-conf-test] - renderLongOptDocs optDocs
  23724. 1096.52 s [opt-env-conf-test] - ]
  23725. 1096.52 s [opt-env-conf-test] - | not (nullDocs optDocs)
  23726. 1096.52 s [opt-env-conf-test] - ],
  23727. 1096.52 s [opt-env-conf-test] + [ [ [".Sh ", "OPTIONS"],
  23728. 1096.52 s [opt-env-conf-test] + renderLongOptDocs optDocs
  23729. 1096.52 s [opt-env-conf-test] + ]
  23730. 1096.52 s [opt-env-conf-test] + | not (nullDocs optDocs)
  23731. 1096.52 s [opt-env-conf-test] + ],
  23732. 1096.52 s [opt-env-conf-test] concat
  23733. 1096.52 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  23734. 1096.52 s [opt-env-conf-test] renderEnvDocs envDocs
  23735. 1096.52 s [opt-env-conf-test]
  23736. 1096.52 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:332:17-39
  23737. 1096.52 s [opt-env-conf-test] @@ -329,7 +329,7 @@
  23738. 1096.52 s [opt-env-conf-test] [ [ [".Sh ", "OPTIONS"],
  23739. 1096.52 s [opt-env-conf-test] renderLongOptDocs optDocs
  23740. 1096.52 s [opt-env-conf-test] ]
  23741. 1096.52 s [opt-env-conf-test] - | not (nullDocs optDocs)
  23742. 1096.52 s [opt-env-conf-test] + | True
  23743. 1096.52 s [opt-env-conf-test] ],
  23744. 1096.52 s [opt-env-conf-test] concat
  23745. 1096.52 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  23746. 1096.52 s [opt-env-conf-test]
  23747. 1096.52 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
  23748. 1096.52 s [opt-env-conf-test] @@ -565,21 +565,21 @@
  23749. 1096.52 s [opt-env-conf-test] [] -> []
  23750. 1096.52 s [opt-env-conf-test] [d] -> go isTopLevel d
  23751. 1096.52 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23752. 1096.52 s [opt-env-conf-test] - case setDocHelp d of
  23753. 1096.52 s [opt-env-conf-test] - Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  23754. 1096.52 s [opt-env-conf-test] - Just h ->
  23755. 1096.52 s [opt-env-conf-test] - let (sds, rest) = goSameHelp h ds
  23756. 1096.52 s [opt-env-conf-test] - in concat
  23757. 1096.52 s [opt-env-conf-test] - [ concat
  23758. 1096.52 s [opt-env-conf-test] - [ concat
  23759. 1096.52 s [opt-env-conf-test] - [ indent $ renderSetDocHeader (Just h),
  23760. 1096.52 s [opt-env-conf-test] - indent $ concatMap renderSetDocWithoutHeader $ d : sds,
  23761. 1096.52 s [opt-env-conf-test] - [[]]
  23762. 1096.52 s [opt-env-conf-test] - ]
  23763. 1096.52 s [opt-env-conf-test] - | not isTopLevel
  23764. 1096.52 s [opt-env-conf-test] - ],
  23765. 1096.52 s [opt-env-conf-test] - goOr isTopLevel rest
  23766. 1096.52 s [opt-env-conf-test] - ]
  23767. 1096.52 s [opt-env-conf-test] + case setDocHelp d of
  23768. 1096.52 s [opt-env-conf-test] + Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  23769. 1096.52 s [opt-env-conf-test] + Just h ->
  23770. 1096.52 s [opt-env-conf-test] + let (sds, rest) = goSameHelp h ds
  23771. 1096.52 s [opt-env-conf-test] + in concat
  23772. 1096.52 s [opt-env-conf-test] + [ concat
  23773. 1096.52 s [opt-env-conf-test] + [ concat
  23774. 1096.52 s [opt-env-conf-test] + [ indent $ renderSetDocHeader (Just h),
  23775. 1096.52 s [opt-env-conf-test] + indent $ concatMap renderSetDocWithoutHeader $ d : sds,
  23776. 1096.52 s [opt-env-conf-test] + [[]]
  23777. 1096.52 s [opt-env-conf-test] + ]
  23778. 1096.52 s [opt-env-conf-test] + | not isTopLevel
  23779. 1096.52 s [opt-env-conf-test] + ],
  23780. 1096.52 s [opt-env-conf-test] + goOr isTopLevel rest
  23781. 1096.52 s [opt-env-conf-test] + ]
  23782. 1096.52 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  23783. 1096.52 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  23784. 1096.52 s [opt-env-conf-test] goSameHelp h = \case
  23785. 1096.52 s [opt-env-conf-test]
  23786. 1096.52 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:581:26-36
  23787. 1096.52 s [opt-env-conf-test] @@ -578,7 +578,7 @@
  23788. 1096.52 s [opt-env-conf-test] ]
  23789. 1096.52 s [opt-env-conf-test] | not isTopLevel
  23790. 1096.52 s [opt-env-conf-test] ],
  23791. 1096.52 s [opt-env-conf-test] - goOr isTopLevel rest
  23792. 1096.52 s [opt-env-conf-test] + goOr True rest
  23793. 1096.52 s [opt-env-conf-test] ]
  23794. 1096.52 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  23795. 1096.52 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  23796. 1096.52 s [opt-env-conf-test]
  23797. 1096.52 s [opt-env-conf-test] Negate at src/OptEnvConf/Doc.hs:566:17-27
  23798. 1096.52 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  23799. 1096.52 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  23800. 1096.52 s [opt-env-conf-test] goOr isTopLevel = \case
  23801. 1096.52 s [opt-env-conf-test] [] -> []
  23802. 1096.52 s [opt-env-conf-test] - [d] -> go isTopLevel d
  23803. 1096.52 s [opt-env-conf-test] + [d] -> go not (isTopLevel) d
  23804. 1096.52 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23805. 1096.52 s [opt-env-conf-test] case setDocHelp d of
  23806. 1096.52 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  23807. 1096.52 s [opt-env-conf-test]
  23808. 1096.52 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:566:17-27
  23809. 1096.52 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  23810. 1096.52 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  23811. 1096.52 s [opt-env-conf-test] goOr isTopLevel = \case
  23812. 1096.52 s [opt-env-conf-test] [] -> []
  23813. 1096.52 s [opt-env-conf-test] - [d] -> go isTopLevel d
  23814. 1096.52 s [opt-env-conf-test] + [d] -> go True d
  23815. 1096.52 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23816. 1096.52 s [opt-env-conf-test] case setDocHelp d of
  23817. 1096.52 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  23818. 1096.52 s [opt-env-conf-test]
  23819. 1096.52 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:588:12-34
  23820. 1096.52 s [opt-env-conf-test] @@ -585,7 +585,7 @@
  23821. 1096.52 s [opt-env-conf-test] goSameHelp h = \case
  23822. 1096.52 s [opt-env-conf-test] [] -> ([], [])
  23823. 1096.52 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23824. 1096.52 s [opt-env-conf-test] - if setDocHelp d == Just h
  23825. 1096.52 s [opt-env-conf-test] + if True
  23826. 1096.52 s [opt-env-conf-test] then
  23827. 1096.52 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  23828. 1096.52 s [opt-env-conf-test] in (d : sds, rest)
  23829. 1096.52 s [opt-env-conf-test]
  23830. 1096.52 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
  23831. 1096.52 s [opt-env-conf-test] @@ -529,12 +529,12 @@
  23832. 1096.52 s [opt-env-conf-test] [] -> []
  23833. 1096.52 s [opt-env-conf-test] [d] -> [go' d]
  23834. 1096.52 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  23835. 1096.52 s [opt-env-conf-test] - case setDocHelp d of
  23836. 1096.52 s [opt-env-conf-test] - Nothing -> go' (AnyDocsSingle d) : goOr' ds
  23837. 1096.52 s [opt-env-conf-test] - Just h ->
  23838. 1096.52 s [opt-env-conf-test] - let (sds, rest) = goSameHelp h ds
  23839. 1096.52 s [opt-env-conf-test] - ne = d :| sds
  23840. 1096.52 s [opt-env-conf-test] - in AnyDocsSingle ne : goOr' rest
  23841. 1096.52 s [opt-env-conf-test] + case setDocHelp d of
  23842. 1096.52 s [opt-env-conf-test] + Nothing -> go' (AnyDocsSingle d) : goOr' ds
  23843. 1096.52 s [opt-env-conf-test] + Just h ->
  23844. 1096.52 s [opt-env-conf-test] + let (sds, rest) = goSameHelp h ds
  23845. 1096.52 s [opt-env-conf-test] + ne = d :| sds
  23846. 1096.52 s [opt-env-conf-test] + in AnyDocsSingle ne : goOr' rest
  23847. 1096.52 s [opt-env-conf-test] (d : ds) -> go' d : goOr' ds
  23848. 1096.52 s [opt-env-conf-test]
  23849. 1096.52 s [opt-env-conf-test] renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
  23850. 1096.52 s [opt-env-conf-test]
  23851. 1096.52 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
  23852. 1096.52 s [opt-env-conf-test] @@ -256,18 +256,18 @@
  23853. 1096.52 s [opt-env-conf-test] concat
  23854. 1096.53 s [opt-env-conf-test] [ concatMap
  23855. 1096.53 s [opt-env-conf-test] ( \(key, schema) ->
  23856. 1096.53 s [opt-env-conf-test] - case jsonSchemaChunkLines schema of
  23857. 1096.53 s [opt-env-conf-test] - [line] ->
  23858. 1096.53 s [opt-env-conf-test] - [["config: ", confValChunk key, ": "] ++ line]
  23859. 1096.53 s [opt-env-conf-test] - ls ->
  23860. 1096.53 s [opt-env-conf-test] - ["config:"]
  23861. 1096.53 s [opt-env-conf-test] - : indent
  23862. 1096.53 s [opt-env-conf-test] - ( case ls of
  23863. 1096.53 s [opt-env-conf-test] - [] -> [["TODO"]]
  23864. 1096.53 s [opt-env-conf-test] - (l : ll) ->
  23865. 1096.53 s [opt-env-conf-test] - ([confValChunk key, ": "] ++ l)
  23866. 1096.53 s [opt-env-conf-test] - : indent ll
  23867. 1096.53 s [opt-env-conf-test] - )
  23868. 1096.53 s [opt-env-conf-test] + case jsonSchemaChunkLines schema of
  23869. 1096.53 s [opt-env-conf-test] + [line] ->
  23870. 1096.53 s [opt-env-conf-test] + [["config: ", confValChunk key, ": "] ++ line]
  23871. 1096.53 s [opt-env-conf-test] + ls ->
  23872. 1096.53 s [opt-env-conf-test] + ["config:"]
  23873. 1096.53 s [opt-env-conf-test] + : indent
  23874. 1096.53 s [opt-env-conf-test] + ( case ls of
  23875. 1096.53 s [opt-env-conf-test] + [] -> [["TODO"]]
  23876. 1096.53 s [opt-env-conf-test] + (l : ll) ->
  23877. 1096.53 s [opt-env-conf-test] + ([confValChunk key, ": "] ++ l)
  23878. 1096.53 s [opt-env-conf-test] + : indent ll
  23879. 1096.53 s [opt-env-conf-test] + )
  23880. 1096.53 s [opt-env-conf-test] )
  23881. 1096.53 s [opt-env-conf-test] (NE.toList confs)
  23882. 1096.53 s [opt-env-conf-test] | confs <- maybeToList setDocConfKeys
  23883. 1096.53 s [opt-env-conf-test]
  23884. 1096.53 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
  23885. 1096.53 s [opt-env-conf-test] @@ -262,11 +262,11 @@
  23886. 1096.53 s [opt-env-conf-test] ls ->
  23887. 1096.53 s [opt-env-conf-test] ["config:"]
  23888. 1096.53 s [opt-env-conf-test] : indent
  23889. 1096.53 s [opt-env-conf-test] - ( case ls of
  23890. 1096.53 s [opt-env-conf-test] - [] -> [["TODO"]]
  23891. 1096.53 s [opt-env-conf-test] - (l : ll) ->
  23892. 1096.53 s [opt-env-conf-test] - ([confValChunk key, ": "] ++ l)
  23893. 1096.53 s [opt-env-conf-test] - : indent ll
  23894. 1096.53 s [opt-env-conf-test] + ( case ls of
  23895. 1096.53 s [opt-env-conf-test] + [] -> [["TODO"]]
  23896. 1096.53 s [opt-env-conf-test] + (l : ll) ->
  23897. 1096.53 s [opt-env-conf-test] + ([confValChunk key, ": "] ++ l)
  23898. 1096.53 s [opt-env-conf-test] + : indent ll
  23899. 1096.53 s [opt-env-conf-test] )
  23900. 1096.53 s [opt-env-conf-test] )
  23901. 1096.53 s [opt-env-conf-test] (NE.toList confs)
  23902. 1096.53 s [opt-env-conf-test]
  23903. 1096.53 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
  23904. 1096.53 s [opt-env-conf-test] @@ -658,29 +658,29 @@
  23905. 1096.53 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  23906. 1096.53 s [opt-env-conf-test] [] -> Nothing
  23907. 1096.53 s [opt-env-conf-test] cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
  23908. 1096.53 s [opt-env-conf-test] - AnyDocsSingle mOd -> case mOd of
  23909. 1096.53 s [opt-env-conf-test] - Nothing -> Nothing
  23910. 1096.53 s [opt-env-conf-test] - Just OptDoc {..} ->
  23911. 1096.53 s [opt-env-conf-test] - Just
  23912. 1096.53 s [opt-env-conf-test] - $ ( if isJust optDocDefault
  23913. 1096.53 s [opt-env-conf-test] - then bracketise
  23914. 1096.53 s [opt-env-conf-test] - else id
  23915. 1096.53 s [opt-env-conf-test] - )
  23916. 1096.53 s [opt-env-conf-test] - $ unwordsChunks
  23917. 1096.53 s [opt-env-conf-test] - $ concat
  23918. 1096.53 s [opt-env-conf-test] - [ [ [mMetavarChunk optDocMetavar]
  23919. 1096.53 s [opt-env-conf-test] - | optDocTryArgument
  23920. 1096.53 s [opt-env-conf-test] - ],
  23921. 1096.53 s [opt-env-conf-test] - [ concat $ maybeToList $ dashedChunks optDocDasheds
  23922. 1096.53 s [opt-env-conf-test] - | optDocTrySwitch
  23923. 1096.53 s [opt-env-conf-test] - ],
  23924. 1096.53 s [opt-env-conf-test] - [ concat
  23925. 1096.53 s [opt-env-conf-test] - [ concat $ maybeToList $ dashedChunks optDocDasheds,
  23926. 1096.53 s [opt-env-conf-test] - [" ", mMetavarChunk optDocMetavar]
  23927. 1096.53 s [opt-env-conf-test] - ]
  23928. 1096.53 s [opt-env-conf-test] - | optDocTryOption
  23929. 1096.53 s [opt-env-conf-test] - ]
  23930. 1096.53 s [opt-env-conf-test] - ]
  23931. 1096.53 s [opt-env-conf-test] + AnyDocsSingle mOd -> case mOd of
  23932. 1096.53 s [opt-env-conf-test] + Nothing -> Nothing
  23933. 1096.53 s [opt-env-conf-test] + Just OptDoc {..} ->
  23934. 1096.53 s [opt-env-conf-test] + Just
  23935. 1096.53 s [opt-env-conf-test] + $ ( if isJust optDocDefault
  23936. 1096.53 s [opt-env-conf-test] + then bracketise
  23937. 1096.53 s [opt-env-conf-test] + else id
  23938. 1096.53 s [opt-env-conf-test] + )
  23939. 1096.53 s [opt-env-conf-test] + $ unwordsChunks
  23940. 1096.53 s [opt-env-conf-test] + $ concat
  23941. 1096.53 s [opt-env-conf-test] + [ [ [mMetavarChunk optDocMetavar]
  23942. 1096.53 s [opt-env-conf-test] + | optDocTryArgument
  23943. 1096.53 s [opt-env-conf-test] + ],
  23944. 1096.53 s [opt-env-conf-test] + [ concat $ maybeToList $ dashedChunks optDocDasheds
  23945. 1096.53 s [opt-env-conf-test] + | optDocTrySwitch
  23946. 1096.53 s [opt-env-conf-test] + ],
  23947. 1096.53 s [opt-env-conf-test] + [ concat
  23948. 1096.53 s [opt-env-conf-test] + [ concat $ maybeToList $ dashedChunks optDocDasheds,
  23949. 1096.53 s [opt-env-conf-test] + [" ", mMetavarChunk optDocMetavar]
  23950. 1096.53 s [opt-env-conf-test] + ]
  23951. 1096.53 s [opt-env-conf-test] + | optDocTryOption
  23952. 1096.53 s [opt-env-conf-test] + ]
  23953. 1096.53 s [opt-env-conf-test] + ]
  23954. 1096.53 s [opt-env-conf-test]
  23955. 1096.53 s [opt-env-conf-test] orChunk :: Chunk
  23956. 1096.53 s [opt-env-conf-test] orChunk = fore cyan "|"
  23957. 1096.53 s [opt-env-conf-test]
  23958. 1096.53 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  23959. 1096.53 s [opt-env-conf-test] @@ -650,10 +650,10 @@
  23960. 1096.53 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  23961. 1096.53 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  23962. 1096.53 s [opt-env-conf-test] AnyDocsAnd ds ->
  23963. 1096.53 s [opt-env-conf-test] - case mapMaybe (go False) (withoutNothings ds) of
  23964. 1096.53 s [opt-env-conf-test] - [] -> Nothing
  23965. 1096.53 s [opt-env-conf-test] - [c] -> Just c
  23966. 1096.53 s [opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  23967. 1096.53 s [opt-env-conf-test] + case mapMaybe (go False) (withoutNothings ds) of
  23968. 1096.53 s [opt-env-conf-test] + [] -> Nothing
  23969. 1096.53 s [opt-env-conf-test] + [c] -> Just c
  23970. 1096.53 s [opt-env-conf-test] + cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  23971. 1096.53 s [opt-env-conf-test] AnyDocsOr ds ->
  23972. 1096.53 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  23973. 1096.53 s [opt-env-conf-test] [] -> Nothing
  23974. 1096.53 s [opt-env-conf-test]
  23975. 1096.53 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  23976. 1096.53 s [opt-env-conf-test] @@ -650,10 +650,10 @@
  23977. 1096.53 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  23978. 1096.53 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  23979. 1096.53 s [opt-env-conf-test] AnyDocsAnd ds ->
  23980. 1096.53 s [opt-env-conf-test] - case mapMaybe (go False) (withoutNothings ds) of
  23981. 1096.53 s [opt-env-conf-test] - [] -> Nothing
  23982. 1096.53 s [opt-env-conf-test] - [c] -> Just c
  23983. 1096.53 s [opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  23984. 1096.53 s [opt-env-conf-test] + case mapMaybe (go False) (withoutNothings ds) of
  23985. 1096.53 s [opt-env-conf-test] + [] -> Nothing
  23986. 1096.53 s [opt-env-conf-test] + [c] -> Just c
  23987. 1096.53 s [opt-env-conf-test] + cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  23988. 1096.53 s [opt-env-conf-test] AnyDocsOr ds ->
  23989. 1096.53 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  23990. 1096.53 s [opt-env-conf-test] [] -> Nothing
  23991. 1096.53 s [opt-env-conf-test]
  23992. 1096.53 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:656:30-31
  23993. 1096.53 s [opt-env-conf-test] @@ -653,7 +653,7 @@
  23994. 1096.53 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  23995. 1096.53 s [opt-env-conf-test] [] -> Nothing
  23996. 1096.53 s [opt-env-conf-test] [c] -> Just c
  23997. 1096.53 s [opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  23998. 1096.53 s [opt-env-conf-test] + cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
  23999. 1096.53 s [opt-env-conf-test] AnyDocsOr ds ->
  24000. 1096.53 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24001. 1096.53 s [opt-env-conf-test] [] -> Nothing
  24002. 1096.53 s [opt-env-conf-test]
  24003. 1096.53 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Doc.hs:637:38-43
  24004. 1096.53 s [opt-env-conf-test] @@ -634,7 +634,7 @@
  24005. 1096.53 s [opt-env-conf-test] withoutNothings =
  24006. 1096.53 s [opt-env-conf-test] filter
  24007. 1096.53 s [opt-env-conf-test] ( \case
  24008. 1096.53 s [opt-env-conf-test] - AnyDocsSingle Nothing -> False
  24009. 1096.53 s [opt-env-conf-test] + AnyDocsSingle Nothing -> True
  24010. 1096.53 s [opt-env-conf-test] AnyDocsAnd [] -> False
  24011. 1096.53 s [opt-env-conf-test] AnyDocsOr [] -> False
  24012. 1096.53 s [opt-env-conf-test] _ -> True
  24013. 1096.53 s [opt-env-conf-test]
  24014. 1096.53 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
  24015. 1096.53 s [opt-env-conf-test] @@ -819,11 +819,11 @@
  24016. 1096.53 s [opt-env-conf-test] [exampleValuesChunks confDocExamples | not (null confDocExamples)],
  24017. 1096.53 s [opt-env-conf-test] concatMap
  24018. 1096.53 s [opt-env-conf-test] ( \(key, schema) ->
  24019. 1096.53 s [opt-env-conf-test] - case jsonSchemaChunkLines schema of
  24020. 1096.53 s [opt-env-conf-test] - [line] ->
  24021. 1096.53 s [opt-env-conf-test] - [[confValChunk key, ": "] ++ line]
  24022. 1096.53 s [opt-env-conf-test] - ls ->
  24023. 1096.53 s [opt-env-conf-test] - [confValChunk key, ":"] : indent ls
  24024. 1096.53 s [opt-env-conf-test] + case jsonSchemaChunkLines schema of
  24025. 1096.53 s [opt-env-conf-test] + [line] ->
  24026. 1096.53 s [opt-env-conf-test] + [[confValChunk key, ": "] ++ line]
  24027. 1096.53 s [opt-env-conf-test] + ls ->
  24028. 1096.53 s [opt-env-conf-test] + [confValChunk key, ":"] : indent ls
  24029. 1096.53 s [opt-env-conf-test] )
  24030. 1096.53 s [opt-env-conf-test] (NE.toList confDocKeys)
  24031. 1096.53 s [opt-env-conf-test] ]
  24032. 1096.53 s [opt-env-conf-test]
  24033. 1096.53 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Error.hs:66:40-45
  24034. 1096.53 s [opt-env-conf-test] @@ -63,7 +63,7 @@
  24035. 1096.53 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  24036. 1096.53 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  24037. 1096.53 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  24038. 1096.53 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand _ _ -> False
  24039. 1096.53 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand _ _ -> True
  24040. 1096.53 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  24041. 1096.53 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  24042. 1096.53 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  24043. 1096.53 s [opt-env-conf-test]
  24044. 1096.53 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:34-47
  24045. 1096.53 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  24046. 1096.53 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  24047. 1096.53 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  24048. 1096.53 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  24049. 1096.53 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  24050. 1096.53 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> True
  24051. 1096.53 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  24052. 1096.53 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  24053. 1096.53 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  24054. 1096.53 s [opt-env-conf-test]
  24055. 1096.53 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:40-47
  24056. 1096.53 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  24057. 1096.53 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  24058. 1096.53 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  24059. 1096.53 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  24060. 1096.53 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  24061. 1096.53 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ False
  24062. 1096.53 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  24063. 1096.53 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  24064. 1096.53 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  24065. 1096.53 s [opt-env-conf-test]
  24066. 1096.53 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24067. 1096.53 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24068. 1096.53 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24069. 1096.53 s [opt-env-conf-test] renderError ParseError {..} =
  24070. 1096.53 s [opt-env-conf-test] concat
  24071. 1096.53 s [opt-env-conf-test] - [ case parseErrorMessage of
  24072. 1096.53 s [opt-env-conf-test] - ParseErrorEmpty ->
  24073. 1096.53 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24074. 1096.53 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24075. 1096.53 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24076. 1096.53 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24077. 1096.53 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24078. 1096.53 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24079. 1096.53 s [opt-env-conf-test] - ]
  24080. 1096.53 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24081. 1096.53 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24082. 1096.53 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24083. 1096.53 s [opt-env-conf-test] - [ "Missing argument: "
  24084. 1096.53 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24085. 1096.53 s [opt-env-conf-test] - ]
  24086. 1096.53 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24087. 1096.53 s [opt-env-conf-test] - ["Failed to read argument: "]
  24088. 1096.53 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24089. 1096.53 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24090. 1096.53 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24091. 1096.53 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24092. 1096.53 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24093. 1096.53 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24094. 1096.53 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24095. 1096.53 s [opt-env-conf-test] - ["Failed to read option: "]
  24096. 1096.53 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24097. 1096.53 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24098. 1096.53 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24099. 1096.53 s [opt-env-conf-test] - ["Missing env var: "]
  24100. 1096.53 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24101. 1096.53 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24102. 1096.53 s [opt-env-conf-test] - ["Failed to read env var: "]
  24103. 1096.53 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24104. 1096.53 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24105. 1096.53 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24106. 1096.53 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24107. 1096.53 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24108. 1096.53 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24109. 1096.53 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24110. 1096.53 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24111. 1096.53 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24112. 1096.54 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24113. 1096.54 s [opt-env-conf-test] - : availableCommandsLines cs
  24114. 1096.54 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24115. 1096.54 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24116. 1096.54 s [opt-env-conf-test] - [fore blue "available commands:"]
  24117. 1096.54 s [opt-env-conf-test] - ]
  24118. 1096.54 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24119. 1096.54 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24120. 1096.54 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."],
  24121. 1096.54 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24122. 1096.54 s [opt-env-conf-test] - ]
  24123. 1096.54 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24124. 1096.54 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24125. 1096.54 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24126. 1096.54 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24127. 1096.54 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24128. 1096.54 s [opt-env-conf-test] + [ case parseErrorMessage of
  24129. 1096.54 s [opt-env-conf-test] + ParseErrorEmpty ->
  24130. 1096.54 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24131. 1096.54 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24132. 1096.54 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24133. 1096.54 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24134. 1096.54 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24135. 1096.54 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24136. 1096.54 s [opt-env-conf-test] + ]
  24137. 1096.54 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24138. 1096.54 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24139. 1096.54 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24140. 1096.54 s [opt-env-conf-test] + [ "Missing argument: "
  24141. 1096.54 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24142. 1096.54 s [opt-env-conf-test] + ]
  24143. 1096.54 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24144. 1096.54 s [opt-env-conf-test] + ["Failed to read argument: "]
  24145. 1096.54 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24146. 1096.54 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24147. 1096.54 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24148. 1096.54 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24149. 1096.54 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24150. 1096.54 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24151. 1096.54 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24152. 1096.54 s [opt-env-conf-test] + ["Failed to read option: "]
  24153. 1096.54 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24154. 1096.54 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24155. 1096.54 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24156. 1096.54 s [opt-env-conf-test] + ["Missing env var: "]
  24157. 1096.54 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24158. 1096.54 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24159. 1096.54 s [opt-env-conf-test] + ["Failed to read env var: "]
  24160. 1096.54 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24161. 1096.54 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24162. 1096.54 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24163. 1096.54 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24164. 1096.54 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24165. 1096.54 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24166. 1096.54 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24167. 1096.54 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24168. 1096.54 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24169. 1096.54 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24170. 1096.54 s [opt-env-conf-test] + : availableCommandsLines cs
  24171. 1096.54 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24172. 1096.54 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24173. 1096.54 s [opt-env-conf-test] + [fore blue "available commands:"]
  24174. 1096.54 s [opt-env-conf-test] + ]
  24175. 1096.54 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24176. 1096.54 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24177. 1096.54 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."],
  24178. 1096.54 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24179. 1096.54 s [opt-env-conf-test] + ]
  24180. 1096.54 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24181. 1096.54 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24182. 1096.54 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24183. 1096.54 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24184. 1096.54 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24185. 1096.54 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24186. 1096.54 s [opt-env-conf-test] ]
  24187. 1096.54 s [opt-env-conf-test]
  24188. 1096.54 s [opt-env-conf-test]
  24189. 1096.54 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24190. 1096.54 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24191. 1096.54 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24192. 1096.54 s [opt-env-conf-test] renderError ParseError {..} =
  24193. 1096.54 s [opt-env-conf-test] concat
  24194. 1096.54 s [opt-env-conf-test] - [ case parseErrorMessage of
  24195. 1096.54 s [opt-env-conf-test] - ParseErrorEmpty ->
  24196. 1096.54 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24197. 1096.54 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24198. 1096.54 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24199. 1096.54 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24200. 1096.54 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24201. 1096.54 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24202. 1096.54 s [opt-env-conf-test] - ]
  24203. 1096.54 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24204. 1096.54 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24205. 1096.54 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24206. 1096.54 s [opt-env-conf-test] - [ "Missing argument: "
  24207. 1096.54 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24208. 1096.54 s [opt-env-conf-test] - ]
  24209. 1096.54 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24210. 1096.54 s [opt-env-conf-test] - ["Failed to read argument: "]
  24211. 1096.54 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24212. 1096.54 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24213. 1096.54 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24214. 1096.54 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24215. 1096.54 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24216. 1096.54 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24217. 1096.54 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24218. 1096.54 s [opt-env-conf-test] - ["Failed to read option: "]
  24219. 1096.54 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24220. 1096.54 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24221. 1096.54 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24222. 1096.54 s [opt-env-conf-test] - ["Missing env var: "]
  24223. 1096.54 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24224. 1096.54 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24225. 1096.54 s [opt-env-conf-test] - ["Failed to read env var: "]
  24226. 1096.54 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24227. 1096.54 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24228. 1096.54 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24229. 1096.54 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24230. 1096.54 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24231. 1096.54 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24232. 1096.54 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24233. 1096.54 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24234. 1096.54 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24235. 1096.54 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24236. 1096.54 s [opt-env-conf-test] - : availableCommandsLines cs
  24237. 1096.54 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24238. 1096.54 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24239. 1096.54 s [opt-env-conf-test] - [fore blue "available commands:"]
  24240. 1096.54 s [opt-env-conf-test] - ]
  24241. 1096.54 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24242. 1096.54 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24243. 1096.54 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."],
  24244. 1096.54 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24245. 1096.54 s [opt-env-conf-test] - ]
  24246. 1096.54 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24247. 1096.54 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24248. 1096.54 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24249. 1096.54 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24250. 1096.54 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24251. 1096.54 s [opt-env-conf-test] + [ case parseErrorMessage of
  24252. 1096.54 s [opt-env-conf-test] + ParseErrorEmpty ->
  24253. 1096.54 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24254. 1096.54 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24255. 1096.54 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24256. 1096.54 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24257. 1096.54 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24258. 1096.54 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24259. 1096.54 s [opt-env-conf-test] + ]
  24260. 1096.54 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24261. 1096.54 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24262. 1096.54 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24263. 1096.54 s [opt-env-conf-test] + [ "Missing argument: "
  24264. 1096.54 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24265. 1096.54 s [opt-env-conf-test] + ]
  24266. 1096.54 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24267. 1096.54 s [opt-env-conf-test] + ["Failed to read argument: "]
  24268. 1096.54 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24269. 1096.54 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24270. 1096.54 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24271. 1096.54 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24272. 1096.54 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24273. 1096.54 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24274. 1096.54 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24275. 1096.54 s [opt-env-conf-test] + ["Failed to read option: "]
  24276. 1096.54 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24277. 1096.54 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24278. 1096.54 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24279. 1096.54 s [opt-env-conf-test] + ["Missing env var: "]
  24280. 1096.54 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24281. 1096.54 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24282. 1096.54 s [opt-env-conf-test] + ["Failed to read env var: "]
  24283. 1096.54 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24284. 1096.54 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24285. 1096.54 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24286. 1096.54 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24287. 1096.54 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24288. 1096.54 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24289. 1096.54 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24290. 1096.54 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24291. 1096.54 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24292. 1096.54 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24293. 1096.54 s [opt-env-conf-test] + : availableCommandsLines cs
  24294. 1096.54 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24295. 1096.54 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24296. 1096.54 s [opt-env-conf-test] + [fore blue "available commands:"]
  24297. 1096.54 s [opt-env-conf-test] + ]
  24298. 1096.54 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24299. 1096.54 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24300. 1096.54 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."],
  24301. 1096.54 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24302. 1096.54 s [opt-env-conf-test] + ]
  24303. 1096.54 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24304. 1096.54 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24305. 1096.54 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24306. 1096.54 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24307. 1096.54 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24308. 1096.54 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24309. 1096.54 s [opt-env-conf-test] ]
  24310. 1096.54 s [opt-env-conf-test]
  24311. 1096.54 s [opt-env-conf-test]
  24312. 1096.54 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24313. 1096.54 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24314. 1096.54 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24315. 1096.54 s [opt-env-conf-test] renderError ParseError {..} =
  24316. 1096.54 s [opt-env-conf-test] concat
  24317. 1096.54 s [opt-env-conf-test] - [ case parseErrorMessage of
  24318. 1096.54 s [opt-env-conf-test] - ParseErrorEmpty ->
  24319. 1096.54 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24320. 1096.54 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24321. 1096.54 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24322. 1096.54 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24323. 1096.54 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24324. 1096.54 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24325. 1096.54 s [opt-env-conf-test] - ]
  24326. 1096.54 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24327. 1096.54 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24328. 1096.54 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24329. 1096.54 s [opt-env-conf-test] - [ "Missing argument: "
  24330. 1096.54 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24331. 1096.54 s [opt-env-conf-test] - ]
  24332. 1096.54 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24333. 1096.54 s [opt-env-conf-test] - ["Failed to read argument: "]
  24334. 1096.54 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24335. 1096.54 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24336. 1096.54 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24337. 1096.54 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24338. 1096.54 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24339. 1096.54 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24340. 1096.54 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24341. 1096.54 s [opt-env-conf-test] - ["Failed to read option: "]
  24342. 1096.54 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24343. 1096.54 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24344. 1096.54 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24345. 1096.54 s [opt-env-conf-test] - ["Missing env var: "]
  24346. 1096.54 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24347. 1096.54 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24348. 1096.54 s [opt-env-conf-test] - ["Failed to read env var: "]
  24349. 1096.54 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24350. 1096.54 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24351. 1096.54 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24352. 1096.54 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24353. 1096.54 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24354. 1096.54 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24355. 1096.54 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24356. 1096.54 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24357. 1096.54 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24358. 1096.54 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24359. 1096.54 s [opt-env-conf-test] - : availableCommandsLines cs
  24360. 1096.54 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24361. 1096.54 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24362. 1096.54 s [opt-env-conf-test] - [fore blue "available commands:"]
  24363. 1096.54 s [opt-env-conf-test] - ]
  24364. 1096.54 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24365. 1096.54 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24366. 1096.54 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."],
  24367. 1096.54 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24368. 1096.54 s [opt-env-conf-test] - ]
  24369. 1096.54 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24370. 1096.54 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24371. 1096.54 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24372. 1096.54 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24373. 1096.54 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24374. 1096.54 s [opt-env-conf-test] + [ case parseErrorMessage of
  24375. 1096.54 s [opt-env-conf-test] + ParseErrorEmpty ->
  24376. 1096.54 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24377. 1096.54 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24378. 1096.54 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24379. 1096.54 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24380. 1096.54 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24381. 1096.54 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24382. 1096.54 s [opt-env-conf-test] + ]
  24383. 1096.54 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24384. 1096.54 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24385. 1096.54 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24386. 1096.54 s [opt-env-conf-test] + [ "Missing argument: "
  24387. 1096.54 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24388. 1096.54 s [opt-env-conf-test] + ]
  24389. 1096.54 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24390. 1096.54 s [opt-env-conf-test] + ["Failed to read argument: "]
  24391. 1096.54 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24392. 1096.54 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24393. 1096.54 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24394. 1096.55 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24395. 1096.55 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24396. 1096.55 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24397. 1096.55 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24398. 1096.55 s [opt-env-conf-test] + ["Failed to read option: "]
  24399. 1096.55 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24400. 1096.55 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24401. 1096.55 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24402. 1096.55 s [opt-env-conf-test] + ["Missing env var: "]
  24403. 1096.55 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24404. 1096.55 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24405. 1096.55 s [opt-env-conf-test] + ["Failed to read env var: "]
  24406. 1096.55 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24407. 1096.55 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24408. 1096.55 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24409. 1096.55 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24410. 1096.55 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24411. 1096.55 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24412. 1096.55 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24413. 1096.55 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24414. 1096.55 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24415. 1096.55 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24416. 1096.55 s [opt-env-conf-test] + : availableCommandsLines cs
  24417. 1096.55 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24418. 1096.55 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24419. 1096.55 s [opt-env-conf-test] + [fore blue "available commands:"]
  24420. 1096.55 s [opt-env-conf-test] + ]
  24421. 1096.55 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24422. 1096.55 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24423. 1096.55 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."],
  24424. 1096.55 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24425. 1096.55 s [opt-env-conf-test] + ]
  24426. 1096.55 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24427. 1096.55 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24428. 1096.55 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24429. 1096.55 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24430. 1096.55 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24431. 1096.55 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24432. 1096.55 s [opt-env-conf-test] ]
  24433. 1096.55 s [opt-env-conf-test]
  24434. 1096.55 s [opt-env-conf-test]
  24435. 1096.55 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24436. 1096.55 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24437. 1096.55 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24438. 1096.55 s [opt-env-conf-test] renderError ParseError {..} =
  24439. 1096.55 s [opt-env-conf-test] concat
  24440. 1096.55 s [opt-env-conf-test] - [ case parseErrorMessage of
  24441. 1096.55 s [opt-env-conf-test] - ParseErrorEmpty ->
  24442. 1096.55 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24443. 1096.55 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24444. 1096.55 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24445. 1096.55 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24446. 1096.55 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24447. 1096.55 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24448. 1096.55 s [opt-env-conf-test] - ]
  24449. 1096.55 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24450. 1096.55 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24451. 1096.55 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24452. 1096.55 s [opt-env-conf-test] - [ "Missing argument: "
  24453. 1096.55 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24454. 1096.55 s [opt-env-conf-test] - ]
  24455. 1096.55 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24456. 1096.55 s [opt-env-conf-test] - ["Failed to read argument: "]
  24457. 1096.55 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24458. 1096.55 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24459. 1096.55 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24460. 1096.55 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24461. 1096.55 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24462. 1096.55 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24463. 1096.55 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24464. 1096.55 s [opt-env-conf-test] - ["Failed to read option: "]
  24465. 1096.55 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24466. 1096.55 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24467. 1096.55 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24468. 1096.55 s [opt-env-conf-test] - ["Missing env var: "]
  24469. 1096.55 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24470. 1096.55 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24471. 1096.55 s [opt-env-conf-test] - ["Failed to read env var: "]
  24472. 1096.55 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24473. 1096.55 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24474. 1096.55 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24475. 1096.55 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24476. 1096.55 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24477. 1096.55 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24478. 1096.55 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24479. 1096.55 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24480. 1096.55 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24481. 1096.55 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24482. 1096.55 s [opt-env-conf-test] - : availableCommandsLines cs
  24483. 1096.55 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24484. 1096.55 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24485. 1096.55 s [opt-env-conf-test] - [fore blue "available commands:"]
  24486. 1096.55 s [opt-env-conf-test] - ]
  24487. 1096.55 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24488. 1096.55 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24489. 1096.55 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."],
  24490. 1096.55 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24491. 1096.55 s [opt-env-conf-test] - ]
  24492. 1096.55 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24493. 1096.55 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24494. 1096.55 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24495. 1096.55 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24496. 1096.55 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24497. 1096.55 s [opt-env-conf-test] + [ case parseErrorMessage of
  24498. 1096.55 s [opt-env-conf-test] + ParseErrorEmpty ->
  24499. 1096.55 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24500. 1096.55 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24501. 1096.55 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24502. 1096.55 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24503. 1096.55 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24504. 1096.55 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24505. 1096.55 s [opt-env-conf-test] + ]
  24506. 1096.55 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24507. 1096.55 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24508. 1096.55 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24509. 1096.55 s [opt-env-conf-test] + [ "Missing argument: "
  24510. 1096.55 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24511. 1096.55 s [opt-env-conf-test] + ]
  24512. 1096.55 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24513. 1096.55 s [opt-env-conf-test] + ["Failed to read argument: "]
  24514. 1096.55 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24515. 1096.55 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24516. 1096.55 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24517. 1096.55 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24518. 1096.55 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24519. 1096.55 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24520. 1096.55 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24521. 1096.55 s [opt-env-conf-test] + ["Failed to read option: "]
  24522. 1096.55 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24523. 1096.55 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24524. 1096.55 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24525. 1096.55 s [opt-env-conf-test] + ["Missing env var: "]
  24526. 1096.55 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24527. 1096.55 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24528. 1096.55 s [opt-env-conf-test] + ["Failed to read env var: "]
  24529. 1096.55 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24530. 1096.55 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24531. 1096.55 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24532. 1096.55 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24533. 1096.55 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24534. 1096.55 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24535. 1096.55 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24536. 1096.55 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24537. 1096.55 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24538. 1096.55 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24539. 1096.55 s [opt-env-conf-test] + : availableCommandsLines cs
  24540. 1096.55 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24541. 1096.55 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24542. 1096.55 s [opt-env-conf-test] + [fore blue "available commands:"]
  24543. 1096.55 s [opt-env-conf-test] + ]
  24544. 1096.55 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24545. 1096.55 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24546. 1096.55 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."],
  24547. 1096.55 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24548. 1096.55 s [opt-env-conf-test] + ]
  24549. 1096.55 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24550. 1096.55 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24551. 1096.55 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24552. 1096.55 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24553. 1096.55 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24554. 1096.55 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24555. 1096.55 s [opt-env-conf-test] ]
  24556. 1096.55 s [opt-env-conf-test]
  24557. 1096.55 s [opt-env-conf-test]
  24558. 1096.55 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24559. 1096.55 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24560. 1096.55 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24561. 1096.55 s [opt-env-conf-test] renderError ParseError {..} =
  24562. 1096.55 s [opt-env-conf-test] concat
  24563. 1096.55 s [opt-env-conf-test] - [ case parseErrorMessage of
  24564. 1096.55 s [opt-env-conf-test] - ParseErrorEmpty ->
  24565. 1096.55 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24566. 1096.55 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24567. 1096.55 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24568. 1096.55 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24569. 1096.55 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24570. 1096.55 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24571. 1096.55 s [opt-env-conf-test] - ]
  24572. 1096.55 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24573. 1096.55 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24574. 1096.55 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24575. 1096.55 s [opt-env-conf-test] - [ "Missing argument: "
  24576. 1096.55 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24577. 1096.55 s [opt-env-conf-test] - ]
  24578. 1096.55 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24579. 1096.55 s [opt-env-conf-test] - ["Failed to read argument: "]
  24580. 1096.55 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24581. 1096.55 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24582. 1096.55 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24583. 1096.55 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24584. 1096.55 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24585. 1096.55 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24586. 1096.55 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24587. 1096.55 s [opt-env-conf-test] - ["Failed to read option: "]
  24588. 1096.55 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24589. 1096.55 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24590. 1096.55 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24591. 1096.55 s [opt-env-conf-test] - ["Missing env var: "]
  24592. 1096.55 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24593. 1096.55 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24594. 1096.55 s [opt-env-conf-test] - ["Failed to read env var: "]
  24595. 1096.55 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24596. 1096.55 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24597. 1096.55 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24598. 1096.55 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24599. 1096.55 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24600. 1096.55 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24601. 1096.55 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24602. 1096.55 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24603. 1096.55 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24604. 1096.55 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24605. 1096.55 s [opt-env-conf-test] - : availableCommandsLines cs
  24606. 1096.55 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24607. 1096.55 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24608. 1096.55 s [opt-env-conf-test] - [fore blue "available commands:"]
  24609. 1096.55 s [opt-env-conf-test] - ]
  24610. 1096.55 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24611. 1096.55 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24612. 1096.55 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."],
  24613. 1096.55 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24614. 1096.55 s [opt-env-conf-test] - ]
  24615. 1096.55 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24616. 1096.55 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24617. 1096.55 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24618. 1096.55 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24619. 1096.55 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24620. 1096.55 s [opt-env-conf-test] + [ case parseErrorMessage of
  24621. 1096.55 s [opt-env-conf-test] + ParseErrorEmpty ->
  24622. 1096.55 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24623. 1096.55 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24624. 1096.55 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24625. 1096.55 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24626. 1096.55 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24627. 1096.55 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24628. 1096.55 s [opt-env-conf-test] + ]
  24629. 1096.55 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24630. 1096.55 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24631. 1096.55 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24632. 1096.55 s [opt-env-conf-test] + [ "Missing argument: "
  24633. 1096.55 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24634. 1096.55 s [opt-env-conf-test] + ]
  24635. 1096.55 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24636. 1096.55 s [opt-env-conf-test] + ["Failed to read argument: "]
  24637. 1096.55 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24638. 1096.55 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24639. 1096.55 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24640. 1096.55 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24641. 1096.55 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24642. 1096.55 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24643. 1096.55 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24644. 1096.55 s [opt-env-conf-test] + ["Failed to read option: "]
  24645. 1096.55 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24646. 1096.55 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24647. 1096.55 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24648. 1096.55 s [opt-env-conf-test] + ["Missing env var: "]
  24649. 1096.55 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24650. 1096.55 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24651. 1096.55 s [opt-env-conf-test] + ["Failed to read env var: "]
  24652. 1096.55 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24653. 1096.55 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24654. 1096.55 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24655. 1096.55 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24656. 1096.55 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24657. 1096.55 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24658. 1096.55 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24659. 1096.55 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24660. 1096.55 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24661. 1096.55 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24662. 1096.55 s [opt-env-conf-test] + : availableCommandsLines cs
  24663. 1096.55 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24664. 1096.55 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24665. 1096.55 s [opt-env-conf-test] + [fore blue "available commands:"]
  24666. 1096.55 s [opt-env-conf-test] + ]
  24667. 1096.55 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24668. 1096.55 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24669. 1096.55 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."],
  24670. 1096.55 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24671. 1096.55 s [opt-env-conf-test] + ]
  24672. 1096.55 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24673. 1096.55 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24674. 1096.55 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24675. 1096.55 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24676. 1096.55 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24677. 1096.55 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24678. 1096.55 s [opt-env-conf-test] ]
  24679. 1096.55 s [opt-env-conf-test]
  24680. 1096.55 s [opt-env-conf-test]
  24681. 1096.55 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  24682. 1096.55 s [opt-env-conf-test] @@ -80,63 +80,63 @@
  24683. 1096.55 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  24684. 1096.56 s [opt-env-conf-test] renderError ParseError {..} =
  24685. 1096.56 s [opt-env-conf-test] concat
  24686. 1096.56 s [opt-env-conf-test] - [ case parseErrorMessage of
  24687. 1096.56 s [opt-env-conf-test] - ParseErrorEmpty ->
  24688. 1096.56 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24689. 1096.56 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  24690. 1096.56 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  24691. 1096.56 s [opt-env-conf-test] - ParseErrorNoReaders ->
  24692. 1096.56 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  24693. 1096.56 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  24694. 1096.56 s [opt-env-conf-test] - ]
  24695. 1096.56 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  24696. 1096.56 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  24697. 1096.56 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  24698. 1096.56 s [opt-env-conf-test] - [ "Missing argument: "
  24699. 1096.56 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  24700. 1096.56 s [opt-env-conf-test] - ]
  24701. 1096.56 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  24702. 1096.56 s [opt-env-conf-test] - ["Failed to read argument: "]
  24703. 1096.56 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24704. 1096.56 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24705. 1096.56 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  24706. 1096.56 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24707. 1096.56 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  24708. 1096.56 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24709. 1096.56 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  24710. 1096.56 s [opt-env-conf-test] - ["Failed to read option: "]
  24711. 1096.56 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  24712. 1096.56 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24713. 1096.56 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  24714. 1096.56 s [opt-env-conf-test] - ["Missing env var: "]
  24715. 1096.56 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24716. 1096.56 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  24717. 1096.56 s [opt-env-conf-test] - ["Failed to read env var: "]
  24718. 1096.56 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  24719. 1096.56 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24720. 1096.56 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  24721. 1096.56 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  24722. 1096.56 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  24723. 1096.56 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  24724. 1096.56 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  24725. 1096.56 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  24726. 1096.56 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  24727. 1096.56 s [opt-env-conf-test] - ["Missing command, available commands:"]
  24728. 1096.56 s [opt-env-conf-test] - : availableCommandsLines cs
  24729. 1096.56 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  24730. 1096.56 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24731. 1096.56 s [opt-env-conf-test] - [fore blue "available commands:"]
  24732. 1096.56 s [opt-env-conf-test] - ]
  24733. 1096.56 s [opt-env-conf-test] - ++ availableCommandsLines cs
  24734. 1096.56 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  24735. 1096.56 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."],
  24736. 1096.56 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  24737. 1096.56 s [opt-env-conf-test] - ]
  24738. 1096.56 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  24739. 1096.56 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  24740. 1096.56 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24741. 1096.56 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  24742. 1096.56 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24743. 1096.56 s [opt-env-conf-test] + [ case parseErrorMessage of
  24744. 1096.56 s [opt-env-conf-test] + ParseErrorEmpty ->
  24745. 1096.56 s [opt-env-conf-test] + [["Hit the 'empty' case of the Parser type, this should not happen."]]
  24746. 1096.56 s [opt-env-conf-test] + ParseErrorEmptySetting ->
  24747. 1096.56 s [opt-env-conf-test] + [["This setting has not been configured to be able to parse anything."]]
  24748. 1096.56 s [opt-env-conf-test] + ParseErrorNoReaders ->
  24749. 1096.56 s [opt-env-conf-test] + [ ["No readers were configured for an argument, option, or env."],
  24750. 1096.56 s [opt-env-conf-test] + ["You should not be seeing this error because the linting phase should have caught it."]
  24751. 1096.56 s [opt-env-conf-test] + ]
  24752. 1096.56 s [opt-env-conf-test] + ParseErrorCheckFailed _ err ->
  24753. 1096.56 s [opt-env-conf-test] + [["Check failed: "], [chunk $ T.pack err]]
  24754. 1096.56 s [opt-env-conf-test] + ParseErrorMissingArgument o ->
  24755. 1096.56 s [opt-env-conf-test] + [ "Missing argument: "
  24756. 1096.56 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong o)
  24757. 1096.56 s [opt-env-conf-test] + ]
  24758. 1096.56 s [opt-env-conf-test] + ParseErrorArgumentRead md errs ->
  24759. 1096.56 s [opt-env-conf-test] + ["Failed to read argument: "]
  24760. 1096.56 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDoe IsString Arg where
  24761. 1096.56 s [opt-env-conf-test] fromString = parseArg
  24762. 1096.56 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
  24763. 1096.56 s [opt-env-conf-test] @@ -60,14 +60,14 @@
  24764. 1096.56 s [opt-env-conf-test] instance Validity Arg where
  24765. 1096.56 s [opt-env-conf-test] validate arg =
  24766. 1096.56 s [opt-env-conf-test] mconcat
  24767. 1096.56 s [opt-env-conf-test] - [ genericValidate arg,
  24768. 1096.56 s [opt-env-conf-test] - case arg of
  24769. 1096.56 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  24770. 1096.56 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  24771. 1096.56 s [opt-env-conf-test] - ('-' : _) -> False
  24772. 1096.56 s [opt-env-conf-test] - _ -> True
  24773. 1096.56 s [opt-env-conf-test] - _ -> valid
  24774. 1096.56 s [opt-env-conf-test] - ]
  24775. 1096.56 s [opt-env-conf-test] + [ genericValidate arg,
  24776. 1096.56 s [opt-env-conf-test] + case arg of
  24777. 1096.56 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  24778. 1096.56 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ case s of
  24779. 1096.56 s [opt-env-conf-test] + ('-' : _) -> False
  24780. 1096.56 s [opt-env-conf-test] + _ -> True
  24781. 1096.56 s [opt-env-conf-test] + _ -> valid
  24782. 1096.56 s [opt-env-conf-test] + ]
  24783. 1096.56 s [opt-env-conf-test]
  24784. 1096.56 s [opt-env-conf-test] instance IsString Arg where
  24785. 1096.56 s [opt-env-conf-test] fromString = parseArg
  24786. 1096.56 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
  24787. 1096.56 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  24788. 1096.56 s [opt-env-conf-test] NonEmpty Char ->
  24789. 1096.56 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  24790. 1096.56 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  24791. 1096.56 s [opt-env-conf-test] - if isLong
  24792. 1096.56 s [opt-env-conf-test] + if True
  24793. 1096.56 s [opt-env-conf-test] then
  24794. 1096.56 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  24795. 1096.56 s [opt-env-conf-test] then Just Nothing
  24796. 1096.56 s [opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:258:3-69
  24797. 1096.56 s [opt-env-conf-test] @@ -255,9 +255,9 @@
  24798. 1096.56 s [opt-env-conf-test] NonEmpty Char ->
  24799. 1096.56 s [opt-env-conf-test] Maybe String
  24800. 1096.56 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  24801. 1096.56 s [opt-env-conf-test] - if isLong
  24802. 1096.56 s [opt-env-conf-test] - then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  24803. 1096.56 s [opt-env-conf-test] - else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  24804. 1096.56 s [opt-env-conf-test] + if isLong
  24805. 1096.56 s [opt-env-conf-test] + then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  24806. 1096.56 s [opt-env-conf-test] + else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  24807. 1096.56 s [opt-env-conf-test]
  24808. 1096.56 s [opt-env-conf-test] consumeLongDashedShorthandOption ::
  24809. 1096.56 s [opt-env-conf-test] [NonEmpty Char] ->
  24810. 1096.56 s [opt-env-conf-test] cLong md)
  24811. 1096.56 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24812. 1096.56 s [opt-env-conf-test] + ParseErrorMissingOption o ->
  24813. 1096.56 s [opt-env-conf-test] + ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24814. 1096.56 s [opt-env-conf-test] + ParseErrorMissingSwitch o ->
  24815. 1096.56 s [opt-env-conf-test] + ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  24816. 1096.56 s [opt-env-conf-test] + ParseErrorOptionRead md errs ->
  24817. 1096.56 s [opt-env-conf-test] + ["Failed to read option: "]
  24818. 1096.56 s [opt-env-conf-test] + : unwordsChunks (maybe [] renderOptDocLong md)
  24819. 1096.56 s [opt-env-conf-test] + : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24820. 1096.56 s [opt-env-conf-test] + ParseErrorMissingEnvVar md ->
  24821. 1096.56 s [opt-env-conf-test] + ["Missing env var: "]
  24822. 1096.56 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24823. 1096.56 s [opt-env-conf-test] + ParseErrorEnvRead md errs ->
  24824. 1096.56 s [opt-env-conf-test] + ["Failed to read env var: "]
  24825. 1096.56 s [opt-env-conf-test] + : maybe [] renderEnvDoc md
  24826. 1096.56 s [opt-env-conf-test] + ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  24827. 1096.56 s [opt-env-conf-test] + ParseErrorMissingConfVal md ->
  24828. 1096.56 s [opt-env-conf-test] + ["Missing config value: "] : maybe [] renderConfDoc md
  24829. 1096.56 s [opt-env-conf-test] + ParseErrorConfigRead md s ->
  24830. 1096.56 s [opt-env-conf-test] + ["Failed to parse configuration: "]
  24831. 1096.56 s [opt-env-conf-test] + : maybe [] renderConfDoc md
  24832. 1096.56 s [opt-env-conf-test] + ++ [[chunk $ T.pack s]]
  24833. 1096.56 s [opt-env-conf-test] + ParseErrorMissingCommand cs ->
  24834. 1096.56 s [opt-env-conf-test] + ["Missing command, available commands:"]
  24835. 1096.56 s [opt-env-conf-test] + : availableCommandsLines cs
  24836. 1096.56 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand c cs ->
  24837. 1096.56 s [opt-env-conf-test] + [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  24838. 1096.56 s [opt-env-conf-test] + [fore blue "available commands:"]
  24839. 1096.56 s [opt-env-conf-test] + ]
  24840. 1096.56 s [opt-env-conf-test] + ++ availableCommandsLines cs
  24841. 1096.56 s [opt-env-conf-test] + ParseErrorAllOrNothing locs ->
  24842. 1096.56 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."],
  24843. 1096.56 s [opt-env-conf-test] + ["The following settings have been parsed:"]
  24844. 1096.56 s [opt-env-conf-test] + ]
  24845. 1096.56 s [opt-env-conf-test] + ++ map (pure . srcLocChunk) (M.elems locs)
  24846. 1096.56 s [opt-env-conf-test] + ParseErrorUnrecognised leftovers ->
  24847. 1096.56 s [opt-env-conf-test] + ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  24848. 1096.56 s [opt-env-conf-test] + ParseErrorMissingCapability cap ->
  24849. 1096.56 s [opt-env-conf-test] + ["Missing capability: " : [chunk $ T.pack $ show cap]],
  24850. 1096.56 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  24851. 1096.56 s [opt-env-conf-test] ]
  24852. 1096.56 s [opt-env-conf-test]
  24853. 1096.56 s [opt-env-conf-test]
  24854. 1096.56 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:67:3-96
  24855. 1096.56 s [opt-env-conf-test] @@ -64,10 +64,10 @@
  24856. 1096.56 s [opt-env-conf-test]
  24857. 1096.56 s [opt-env-conf-test] parserLintTest :: Parser a -> IO ()
  24858. 1096.56 s [opt-env-conf-test] parserLintTest parser =
  24859. 1096.56 s [opt-env-conf-test] - case lintParser parser of
  24860. 1096.56 s [opt-env-conf-test] - Nothing -> pure ()
  24861. 1096.56 s [opt-env-conf-test] - Just errs ->
  24862. 1096.56 s [opt-env-conf-test] - expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
  24863. 1096.56 s [opt-env-conf-test] + case lintParser parser of
  24864. 1096.56 s [opt-env-conf-test] + Nothing -> pure ()
  24865. 1096.56 s [opt-env-conf-test] + Just errs ->
  24866. 1096.56 s [opt-env-conf-test] + expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
  24867. 1096.56 s [opt-env-conf-test]
  24868. 1096.56 s [opt-env-conf-test] settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
  24869. 1096.56 s [opt-env-conf-test] settingsParserArgsTest = parserArgsTest settingsParser
  24870. 1096.56 s [opt-env-conf-test]
  24871. 1096.56 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:149:13-24
  24872. 1096.56 s [opt-env-conf-test] @@ -146,14 +146,14 @@
  24873. 1096.56 s [opt-env-conf-test]
  24874. 1096.56 s [opt-env-conf-test] generatedFileComment :: CallStack -> T.Text
  24875. 1096.56 s [opt-env-conf-test] generatedFileComment cs =
  24876. 1096.56 s [opt-env-conf-test] - let loc = case getCallStack cs of
  24877. 1096.56 s [opt-env-conf-test] - (_, srcLoc) : _ ->
  24878. 1096.56 s [opt-env-conf-test] - packageName (Stack.srcLocPackage srcLoc)
  24879. 1096.56 s [opt-env-conf-test] - <> ":"
  24880. 1096.56 s [opt-env-conf-test] - <> Stack.srcLocFile srcLoc
  24881. 1096.56 s [opt-env-conf-test] - <> ":"
  24882. 1096.56 s [opt-env-conf-test] - <> show (Stack.srcLocStartLine srcLoc)
  24883. 1096.56 s [opt-env-conf-test] - [] -> "unknown"
  24884. 1096.56 s [opt-env-conf-test] + let loc = case getCallStack cs of
  24885. 1096.56 s [opt-env-conf-test] + (_, srcLoc) : _ ->
  24886. 1096.56 s [opt-env-conf-test] + packageName (Stack.srcLocPackage srcLoc)
  24887. 1096.56 s [opt-env-conf-test] + <> ":"
  24888. 1096.56 s [opt-env-conf-test] + <> Stack.srcLocFile srcLoc
  24889. 1096.56 s [opt-env-conf-test] + <> ":"
  24890. 1096.56 s [opt-env-conf-test] + <> show (Stack.srcLocStartLine srcLoc)
  24891. 1096.56 s [opt-env-conf-test] + [] -> "unknown"
  24892. 1096.56 s [opt-env-conf-test] in T.pack $
  24893. 1096.56 s [opt-env-conf-test] unlines $
  24894. 1096.56 s [opt-env-conf-test] map
  24895. 1096.56 s [opt-env-conf-test]
  24896. 1096.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-84
  24897. 1096.56 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24898. 1096.56 s [opt-env-conf-test] where
  24899. 1096.56 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24900. 1096.56 s [opt-env-conf-test] go (c : rest) = c : go rest
  24901. 1096.56 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24902. 1096.56 s [opt-env-conf-test] + isVersion v = not (null v) && True
  24903. 1096.56 s [opt-env-conf-test]
  24904. 1096.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:49-84
  24905. 1096.56 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24906. 1096.56 s [opt-env-conf-test] where
  24907. 1096.56 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24908. 1096.56 s [opt-env-conf-test] go (c : rest) = c : go rest
  24909. 1096.56 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24910. 1096.56 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && True
  24911. 1096.56 s [opt-env-conf-test]
  24912. 1096.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-81
  24913. 1096.56 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24914. 1096.56 s [opt-env-conf-test] where
  24915. 1096.56 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24916. 1096.56 s [opt-env-conf-test] go (c : rest) = c : go rest
  24917. 1096.56 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24918. 1096.56 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True) v
  24919. 1096.56 s [opt-env-conf-test]
  24920. 1096.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:73-81
  24921. 1096.56 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24922. 1096.56 s [opt-env-conf-test] where
  24923. 1096.56 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24924. 1096.56 s [opt-env-conf-test] go (c : rest) = c : go rest
  24925. 1096.56 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24926. 1096.56 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
  24927. 1096.56 s [opt-env-conf-test]
  24928. 1096.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-69
  24929. 1096.56 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24930. 1096.56 s [opt-env-conf-test] where
  24931. 1096.56 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24932. 1096.56 s [opt-env-conf-test] go (c : rest) = c : go rest
  24933. 1096.56 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24934. 1096.56 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
  24935. 1096.56 s [opt-env-conf-test]
  24936. 1096.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-45
  24937. 1096.56 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24938. 1096.56 s [opt-env-conf-test] where
  24939. 1096.56 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24940. 1096.56 s [opt-env-conf-test] go (c : rest) = c : go rest
  24941. 1096.56 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24942. 1096.56 s [opt-env-conf-test] + isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
  24943. 1096.56 s [opt-env-conf-test]
  24944. 1096.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:19-31
  24945. 1096.56 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24946. 1096.56 s [opt-env-conf-test] where
  24947. 1096.56 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24948. 1096.56 s [opt-env-conf-test] go (c : rest) = c : go rest
  24949. 1096.56 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24950. 1096.56 s [opt-env-conf-test] + isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
  24951. 1096.56 s [opt-env-conf-test]
  24952. 1096.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:23-31
  24953. 1096.56 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24954. 1096.56 s [opt-env-conf-test] where
  24955. 1096.56 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24956. 1096.56 s [opt-env-conf-test] go (c : rest) = c : go rest
  24957. 1096.56 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24958. 1096.56 s [opt-env-conf-test] + isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
  24959. 1096.56 s [opt-env-conf-test]
  24960. 1096.56 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:24-30
  24961. 1096.56 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24962. 1096.56 s [opt-env-conf-test] where
  24963. 1096.56 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24964. 1096.56 s [opt-env-conf-test] go (c : rest) = c : go rest
  24965. 1096.56 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24966. 1096.56 s [opt-env-conf-test] + isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24967. 1096.56 s [opt-env-conf-test] checkPhase completed in 12 minutes 26 seconds
  24968. 1096.56 s [opt-env-conf-test] Phase: haddockPhase
  24969. 1096.56 s [opt-env-conf-test] Phase: installPhase
  24970. 1096.65 s [opt-env-conf-test] Installing library in /nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-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
  24971. 1096.87 s [opt-env-conf-test] Phase: fixupPhase
  24972. 1096.89 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-opt-env-conf-test-0.0.0.4
  24973. 1096.89 s [opt-env-conf-test] shrinking /nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-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
  24974. 1096.92 s [opt-env-conf-test] checking for references to /build/ in /nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-opt-env-conf-test-0.0.0.4...
  24975. 1096.93 s [opt-env-conf-test] patching script interpreter paths in /nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-opt-env-conf-test-0.0.0.4
  24976. 1096.94 s [opt-env-conf-test] stripping (with command strip and flags -S -p) in /nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-opt-env-conf-test-0.0.0.4/lib
  24977. 1096.98 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/7s7cga7bl2rv73bfjz69rhim4wmnfxnp-opt-env-conf-test-0.0.0.4-manifest
  24978. 1096.99 s [opt-env-conf-test] checking for references to /build/ in /nix/store/7s7cga7bl2rv73bfjz69rhim4wmnfxnp-opt-env-conf-test-0.0.0.4-manifest...
  24979. 1097.00 s [opt-env-conf-test] patching script interpreter paths in /nix/store/7s7cga7bl2rv73bfjz69rhim4wmnfxnp-opt-env-conf-test-0.0.0.4-manifest
  24980. 1097.00 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/ihlbx204dbjmgrv47bn5p04wpgibzsxw-opt-env-conf-test-0.0.0.4-report
  24981. 1097.06 s [opt-env-conf-test] checking for references to /build/ in /nix/store/ihlbx204dbjmgrv47bn5p04wpgibzsxw-opt-env-conf-test-0.0.0.4-report...
  24982. 1097.13 s [opt-env-conf-test] patching script interpreter paths in /nix/store/ihlbx204dbjmgrv47bn5p04wpgibzsxw-opt-env-conf-test-0.0.0.4-report
  24983. 1097.24 s [post-build-hook] Uploading to cachix cache "sydtest": /nix/store/7s7cga7bl2rv73bfjz69rhim4wmnfxnp-opt-env-conf-test-0.0.0.4-manifest /nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-opt-env-conf-test-0.0.0.4 /nix/store/ihlbx204dbjmgrv47bn5p04wpgibzsxw-opt-env-conf-test-0.0.0.4-report
  24984. 1110.05 s [post-build-hook] Pushing 3 paths (268 are already present) using zstd to cache sydtest ⏳
  24985. 1110.05 s [post-build-hook]
  24986. 1113.36 s [post-build-hook] Pushing /nix/store/7s7cga7bl2rv73bfjz69rhim4wmnfxnp-opt-env-conf-test-0.0.0.4-manifest (1.00 MiB)
  24987. 1113.40 s [post-build-hook] Pushing /nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-opt-env-conf-test-0.0.0.4 (2.20 MiB)
  24988. 1113.53 s [post-build-hook] Pushing /nix/store/ihlbx204dbjmgrv47bn5p04wpgibzsxw-opt-env-conf-test-0.0.0.4-report (2.81 MiB)
  24989. 1119.42 s [post-build-hook]
  24990. 1119.42 s [post-build-hook] All done.
  24991. 1119.44 s [post-build-hook] Uploading to the NixCI staging cache: /nix/store/7s7cga7bl2rv73bfjz69rhim4wmnfxnp-opt-env-conf-test-0.0.0.4-manifest /nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-opt-env-conf-test-0.0.0.4 /nix/store/ihlbx204dbjmgrv47bn5p04wpgibzsxw-opt-env-conf-test-0.0.0.4-report
  24992. 1119.48 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  24993. 1119.77 s [post-build-hook] copying 3 paths...
  24994. 1119.77 s [post-build-hook] copying path '/nix/store/7s7cga7bl2rv73bfjz69rhim4wmnfxnp-opt-env-conf-test-0.0.0.4-manifest' to 'https://cache.staging.nix-ci.com'...
  24995. 1119.77 s [post-build-hook] copying path '/nix/store/ihlbx204dbjmgrv47bn5p04wpgibzsxw-opt-env-conf-test-0.0.0.4-report' to 'https://cache.staging.nix-ci.com'...
  24996. 1119.77 s [post-build-hook] copying path '/nix/store/hcm4hmdqf3bsrfqfdj7sid6ghrbddvnq-opt-env-conf-test-0.0.0.4' to 'https://cache.staging.nix-ci.com'...
  24997. 1120.79 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  24998. 1121.00 s [post-build-hook] copying 1 paths...
  24999. 1121.00 s [post-build-hook] copying path '/nix/store/4m35mapfxfyy3akdln5rbpmgb0wwf1gi-opt-env-conf-test-0.0.0.4.drv' to 'https://cache.staging.nix-ci.com'...
  25000. 1121.18 s Progress: 8 of 9 built, 2 of 2 downloaded from cache
Tail Raw Logs