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

Reproduce this run
  1. 2121.28 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  2. 2121.28 s [opt-env-conf-test] - showParen (d > 10) $
  3. 2121.28 s [opt-env-conf-test] + showParen (d >= 10) $
  4. 2121.28 s [opt-env-conf-test] showString "Check "
  5. 2121.28 s [opt-env-conf-test] . showsPrec 11 mLoc
  6. 2121.28 s [opt-env-conf-test] . showString " "
  7. 2121.28 s [opt-env-conf-test]
  8. 2121.28 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  9. 2121.28 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  10. 2121.28 s [opt-env-conf-test] . showString " "
  11. 2121.28 s [opt-env-conf-test] . go 11 p
  12. 2121.28 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  13. 2121.28 s [opt-env-conf-test] - showParen (d > 10) $
  14. 2121.28 s [opt-env-conf-test] + showParen (d > -10) $
  15. 2121.28 s [opt-env-conf-test] showString "Check "
  16. 2121.28 s [opt-env-conf-test] . showsPrec 11 mLoc
  17. 2121.28 s [opt-env-conf-test] . showString " "
  18. 2121.28 s [opt-env-conf-test]
  19. 2121.28 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  20. 2121.28 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  21. 2121.28 s [opt-env-conf-test] . showString " "
  22. 2121.28 s [opt-env-conf-test] . go 11 p
  23. 2121.28 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  24. 2121.28 s [opt-env-conf-test] - showParen (d > 10) $
  25. 2121.28 s [opt-env-conf-test] + showParen (d > 1) $
  26. 2121.28 s [opt-env-conf-test] showString "Check "
  27. 2121.28 s [opt-env-conf-test] . showsPrec 11 mLoc
  28. 2121.28 s [opt-env-conf-test] . showString " "
  29. 2121.28 s [opt-env-conf-test]
  30. 2121.28 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  31. 2121.28 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  32. 2121.28 s [opt-env-conf-test] . showString " "
  33. 2121.28 s [opt-env-conf-test] . go 11 p
  34. 2121.28 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  35. 2121.28 s [opt-env-conf-test] - showParen (d > 10) $
  36. 2121.28 s [opt-env-conf-test] + showParen (d > 0) $
  37. 2121.28 s [opt-env-conf-test] showString "Check "
  38. 2121.28 s [opt-env-conf-test] . showsPrec 11 mLoc
  39. 2121.28 s [opt-env-conf-test] . showString " "
  40. 2121.28 s [opt-env-conf-test]
  41. 2121.28 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:19-27
  42. 2121.28 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  43. 2121.28 s [opt-env-conf-test] . showString " "
  44. 2121.28 s [opt-env-conf-test] . go 11 p
  45. 2121.28 s [opt-env-conf-test] ParserSome mLoc p ->
  46. 2121.28 s [opt-env-conf-test] - showParen (d > 10) $
  47. 2121.28 s [opt-env-conf-test] + showParen True $
  48. 2121.28 s [opt-env-conf-test] showString "Some "
  49. 2121.28 s [opt-env-conf-test] . showsPrec 11 mLoc
  50. 2121.28 s [opt-env-conf-test] . showString " "
  51. 2121.28 s [opt-env-conf-test]
  52. 2121.28 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:20-26
  53. 2121.28 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  54. 2121.28 s [opt-env-conf-test] . showString " "
  55. 2121.28 s [opt-env-conf-test] . go 11 p
  56. 2121.28 s [opt-env-conf-test] ParserSome mLoc p ->
  57. 2121.28 s [opt-env-conf-test] - showParen (d > 10) $
  58. 2121.28 s [opt-env-conf-test] + showParen (True) $
  59. 2121.28 s [opt-env-conf-test] showString "Some "
  60. 2121.28 s [opt-env-conf-test] . showsPrec 11 mLoc
  61. 2121.28 s [opt-env-conf-test] . showString " "
  62. 2121.28 s [opt-env-conf-test]
  63. 2121.28 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:333:20-26
  64. 2121.28 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  65. 2121.28 s [opt-env-conf-test] . showString " "
  66. 2121.28 s [opt-env-conf-test] . go 11 p
  67. 2121.28 s [opt-env-conf-test] ParserSome mLoc p ->
  68. 2121.28 s [opt-env-conf-test] - showParen (d > 10) $
  69. 2121.28 s [opt-env-conf-test] + showParen (d >= 10) $
  70. 2121.28 s [opt-env-conf-test] showString "Some "
  71. 2121.28 s [opt-env-conf-test] . showsPrec 11 mLoc
  72. 2121.28 s [opt-env-conf-test] . showString " "
  73. 2121.28 s [opt-env-conf-test]
  74. 2121.28 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  75. 2121.28 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  76. 2121.28 s [opt-env-conf-test] . showString " "
  77. 2121.28 s [opt-env-conf-test] . go 11 p
  78. 2121.28 s [opt-env-conf-test] ParserSome mLoc p ->
  79. 2121.28 s [opt-env-conf-test] - showParen (d > 10) $
  80. 2121.28 s [opt-env-conf-test] + showParen (d > -10) $
  81. 2121.28 s [opt-env-conf-test] showString "Some "
  82. 2121.28 s [opt-env-conf-test] . showsPrec 11 mLoc
  83. 2121.28 s [opt-env-conf-test] . showString " "
  84. 2121.28 s [opt-env-conf-test]
  85. 2121.28 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  86. 2121.28 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  87. 2121.28 s [opt-env-conf-test] . showString " "
  88. 2121.28 s [opt-env-conf-test] . go 11 p
  89. 2121.29 s [opt-env-conf-test] ParserSome mLoc p ->
  90. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  91. 2121.29 s [opt-env-conf-test] + showParen (d > 1) $
  92. 2121.29 s [opt-env-conf-test] showString "Some "
  93. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  94. 2121.29 s [opt-env-conf-test] . showString " "
  95. 2121.29 s [opt-env-conf-test]
  96. 2121.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  97. 2121.29 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  98. 2121.29 s [opt-env-conf-test] . showString " "
  99. 2121.29 s [opt-env-conf-test] . go 11 p
  100. 2121.29 s [opt-env-conf-test] ParserSome mLoc p ->
  101. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  102. 2121.29 s [opt-env-conf-test] + showParen (d > 0) $
  103. 2121.29 s [opt-env-conf-test] showString "Some "
  104. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  105. 2121.29 s [opt-env-conf-test] . showString " "
  106. 2121.29 s [opt-env-conf-test]
  107. 2121.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:19-27
  108. 2121.29 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  109. 2121.29 s [opt-env-conf-test] . showString " "
  110. 2121.29 s [opt-env-conf-test] . go 11 p2
  111. 2121.29 s [opt-env-conf-test] ParserMany mLoc p ->
  112. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  113. 2121.29 s [opt-env-conf-test] + showParen True $
  114. 2121.29 s [opt-env-conf-test] showString "Many "
  115. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  116. 2121.29 s [opt-env-conf-test] . showString " "
  117. 2121.29 s [opt-env-conf-test]
  118. 2121.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:20-26
  119. 2121.29 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  120. 2121.29 s [opt-env-conf-test] . showString " "
  121. 2121.29 s [opt-env-conf-test] . go 11 p2
  122. 2121.29 s [opt-env-conf-test] ParserMany mLoc p ->
  123. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  124. 2121.29 s [opt-env-conf-test] + showParen (True) $
  125. 2121.29 s [opt-env-conf-test] showString "Many "
  126. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  127. 2121.29 s [opt-env-conf-test] . showString " "
  128. 2121.29 s [opt-env-conf-test]
  129. 2121.29 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:327:20-26
  130. 2121.29 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  131. 2121.29 s [opt-env-conf-test] . showString " "
  132. 2121.29 s [opt-env-conf-test] . go 11 p2
  133. 2121.29 s [opt-env-conf-test] ParserMany mLoc p ->
  134. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  135. 2121.29 s [opt-env-conf-test] + showParen (d >= 10) $
  136. 2121.29 s [opt-env-conf-test] showString "Many "
  137. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  138. 2121.29 s [opt-env-conf-test] . showString " "
  139. 2121.29 s [opt-env-conf-test]
  140. 2121.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  141. 2121.29 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  142. 2121.29 s [opt-env-conf-test] . showString " "
  143. 2121.29 s [opt-env-conf-test] . go 11 p2
  144. 2121.29 s [opt-env-conf-test] ParserMany mLoc p ->
  145. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  146. 2121.29 s [opt-env-conf-test] + showParen (d > -10) $
  147. 2121.29 s [opt-env-conf-test] showString "Many "
  148. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  149. 2121.29 s [opt-env-conf-test] . showString " "
  150. 2121.29 s [opt-env-conf-test]
  151. 2121.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  152. 2121.29 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  153. 2121.29 s [opt-env-conf-test] . showString " "
  154. 2121.29 s [opt-env-conf-test] . go 11 p2
  155. 2121.29 s [opt-env-conf-test] ParserMany mLoc p ->
  156. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  157. 2121.29 s [opt-env-conf-test] + showParen (d > 1) $
  158. 2121.29 s [opt-env-conf-test] showString "Many "
  159. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  160. 2121.29 s [opt-env-conf-test] . showString " "
  161. 2121.29 s [opt-env-conf-test]
  162. 2121.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  163. 2121.29 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  164. 2121.29 s [opt-env-conf-test] . showString " "
  165. 2121.29 s [opt-env-conf-test] . go 11 p2
  166. 2121.29 s [opt-env-conf-test] ParserMany mLoc p ->
  167. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  168. 2121.29 s [opt-env-conf-test] + showParen (d > 0) $
  169. 2121.29 s [opt-env-conf-test] showString "Many "
  170. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  171. 2121.29 s [opt-env-conf-test] . showString " "
  172. 2121.29 s [opt-env-conf-test]
  173. 2121.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:19-27
  174. 2121.29 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  175. 2121.29 s [opt-env-conf-test] showString "Empty "
  176. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  177. 2121.29 s [opt-env-conf-test] ParserAlt p1 p2 ->
  178. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  179. 2121.29 s [opt-env-conf-test] + showParen True $
  180. 2121.29 s [opt-env-conf-test] showString "Alt "
  181. 2121.29 s [opt-env-conf-test] . go 11 p1
  182. 2121.29 s [opt-env-conf-test] . showString " "
  183. 2121.29 s [opt-env-conf-test]
  184. 2121.29 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:20-26
  185. 2121.29 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  186. 2121.29 s [opt-env-conf-test] showString "Empty "
  187. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  188. 2121.29 s [opt-env-conf-test] ParserAlt p1 p2 ->
  189. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  190. 2121.29 s [opt-env-conf-test] + showParen (True) $
  191. 2121.29 s [opt-env-conf-test] showString "Alt "
  192. 2121.29 s [opt-env-conf-test] . go 11 p1
  193. 2121.29 s [opt-env-conf-test] . showString " "
  194. 2121.29 s [opt-env-conf-test]
  195. 2121.29 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:321:20-26
  196. 2121.29 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  197. 2121.29 s [opt-env-conf-test] showString "Empty "
  198. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  199. 2121.29 s [opt-env-conf-test] ParserAlt p1 p2 ->
  200. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  201. 2121.29 s [opt-env-conf-test] + showParen (d >= 10) $
  202. 2121.29 s [opt-env-conf-test] showString "Alt "
  203. 2121.29 s [opt-env-conf-test] . go 11 p1
  204. 2121.29 s [opt-env-conf-test] . showString " "
  205. 2121.29 s [opt-env-conf-test]
  206. 2121.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  207. 2121.29 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  208. 2121.29 s [opt-env-conf-test] showString "Empty "
  209. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  210. 2121.29 s [opt-env-conf-test] ParserAlt p1 p2 ->
  211. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  212. 2121.29 s [opt-env-conf-test] + showParen (d > -10) $
  213. 2121.29 s [opt-env-conf-test] showString "Alt "
  214. 2121.29 s [opt-env-conf-test] . go 11 p1
  215. 2121.29 s [opt-env-conf-test] . showString " "
  216. 2121.29 s [opt-env-conf-test]
  217. 2121.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  218. 2121.29 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  219. 2121.29 s [opt-env-conf-test] showString "Empty "
  220. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  221. 2121.29 s [opt-env-conf-test] ParserAlt p1 p2 ->
  222. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  223. 2121.29 s [opt-env-conf-test] + showParen (d > 1) $
  224. 2121.29 s [opt-env-conf-test] showString "Alt "
  225. 2121.29 s [opt-env-conf-test] . go 11 p1
  226. 2121.29 s [opt-env-conf-test] . showString " "
  227. 2121.29 s [opt-env-conf-test]
  228. 2121.29 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  229. 2121.29 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  230. 2121.29 s [opt-env-conf-test] showString "Empty "
  231. 2121.29 s [opt-env-conf-test] . showsPrec 11 mLoc
  232. 2121.29 s [opt-env-conf-test] ParserAlt p1 p2 ->
  233. 2121.29 s [opt-env-conf-test] - showParen (d > 10) $
  234. 2121.29 s [opt-env-conf-test] + showParen (d > 0) $
  235. 2121.30 s [opt-env-conf-test] showString "Alt "
  236. 2121.30 s [opt-env-conf-test] . go 11 p1
  237. 2121.30 s [opt-env-conf-test] . showString " "
  238. 2121.30 s [opt-env-conf-test]
  239. 2121.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:19-27
  240. 2121.30 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  241. 2121.30 s [opt-env-conf-test] go d = \case
  242. 2121.30 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  243. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  244. 2121.30 s [opt-env-conf-test] - showParen (d > 10) $
  245. 2121.30 s [opt-env-conf-test] + showParen True $
  246. 2121.30 s [opt-env-conf-test] showString "Ap "
  247. 2121.30 s [opt-env-conf-test] . go 11 pf
  248. 2121.30 s [opt-env-conf-test] . showString " "
  249. 2121.30 s [opt-env-conf-test]
  250. 2121.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:20-26
  251. 2121.30 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  252. 2121.30 s [opt-env-conf-test] go d = \case
  253. 2121.30 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  254. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  255. 2121.30 s [opt-env-conf-test] - showParen (d > 10) $
  256. 2121.30 s [opt-env-conf-test] + showParen (True) $
  257. 2121.30 s [opt-env-conf-test] showString "Ap "
  258. 2121.30 s [opt-env-conf-test] . go 11 pf
  259. 2121.30 s [opt-env-conf-test] . showString " "
  260. 2121.30 s [opt-env-conf-test]
  261. 2121.30 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:306:20-26
  262. 2121.30 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  263. 2121.30 s [opt-env-conf-test] go d = \case
  264. 2121.30 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  265. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  266. 2121.30 s [opt-env-conf-test] - showParen (d > 10) $
  267. 2121.30 s [opt-env-conf-test] + showParen (d >= 10) $
  268. 2121.30 s [opt-env-conf-test] showString "Ap "
  269. 2121.30 s [opt-env-conf-test] . go 11 pf
  270. 2121.30 s [opt-env-conf-test] . showString " "
  271. 2121.30 s [opt-env-conf-test]
  272. 2121.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  273. 2121.30 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  274. 2121.30 s [opt-env-conf-test] go d = \case
  275. 2121.30 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  276. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  277. 2121.30 s [opt-env-conf-test] - showParen (d > 10) $
  278. 2121.30 s [opt-env-conf-test] + showParen (d > -10) $
  279. 2121.30 s [opt-env-conf-test] showString "Ap "
  280. 2121.30 s [opt-env-conf-test] . go 11 pf
  281. 2121.30 s [opt-env-conf-test] . showString " "
  282. 2121.30 s [opt-env-conf-test]
  283. 2121.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  284. 2121.30 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  285. 2121.30 s [opt-env-conf-test] go d = \case
  286. 2121.30 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  287. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  288. 2121.30 s [opt-env-conf-test] - showParen (d > 10) $
  289. 2121.30 s [opt-env-conf-test] + showParen (d > 1) $
  290. 2121.30 s [opt-env-conf-test] showString "Ap "
  291. 2121.30 s [opt-env-conf-test] . go 11 pf
  292. 2121.30 s [opt-env-conf-test] . showString " "
  293. 2121.30 s [opt-env-conf-test]
  294. 2121.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  295. 2121.30 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  296. 2121.30 s [opt-env-conf-test] go d = \case
  297. 2121.30 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  298. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  299. 2121.30 s [opt-env-conf-test] - showParen (d > 10) $
  300. 2121.30 s [opt-env-conf-test] + showParen (d > 0) $
  301. 2121.30 s [opt-env-conf-test] showString "Ap "
  302. 2121.30 s [opt-env-conf-test] . go 11 pf
  303. 2121.30 s [opt-env-conf-test] . showString " "
  304. 2121.30 s [opt-env-conf-test]
  305. 2121.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:33-41
  306. 2121.30 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  307. 2121.30 s [opt-env-conf-test] where
  308. 2121.30 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  309. 2121.30 s [opt-env-conf-test] go d = \case
  310. 2121.30 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  311. 2121.30 s [opt-env-conf-test] + ParserPure _ -> showParen True $ showString "Pure _"
  312. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  313. 2121.30 s [opt-env-conf-test] showParen (d > 10) $
  314. 2121.30 s [opt-env-conf-test] showString "Ap "
  315. 2121.30 s [opt-env-conf-test]
  316. 2121.30 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:34-40
  317. 2121.30 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  318. 2121.30 s [opt-env-conf-test] where
  319. 2121.30 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  320. 2121.30 s [opt-env-conf-test] go d = \case
  321. 2121.30 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  322. 2121.30 s [opt-env-conf-test] + ParserPure _ -> showParen (True) $ showString "Pure _"
  323. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  324. 2121.30 s [opt-env-conf-test] showParen (d > 10) $
  325. 2121.30 s [opt-env-conf-test] showString "Ap "
  326. 2121.30 s [opt-env-conf-test]
  327. 2121.30 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:304:34-40
  328. 2121.30 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  329. 2121.30 s [opt-env-conf-test] where
  330. 2121.30 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  331. 2121.30 s [opt-env-conf-test] go d = \case
  332. 2121.30 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  333. 2121.30 s [opt-env-conf-test] + ParserPure _ -> showParen (d >= 10) $ showString "Pure _"
  334. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  335. 2121.30 s [opt-env-conf-test] showParen (d > 10) $
  336. 2121.30 s [opt-env-conf-test] showString "Ap "
  337. 2121.30 s [opt-env-conf-test]
  338. 2121.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  339. 2121.30 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  340. 2121.30 s [opt-env-conf-test] where
  341. 2121.30 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  342. 2121.30 s [opt-env-conf-test] go d = \case
  343. 2121.30 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  344. 2121.30 s [opt-env-conf-test] + ParserPure _ -> showParen (d > -10) $ showString "Pure _"
  345. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  346. 2121.30 s [opt-env-conf-test] showParen (d > 10) $
  347. 2121.30 s [opt-env-conf-test] showString "Ap "
  348. 2121.30 s [opt-env-conf-test]
  349. 2121.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  350. 2121.30 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  351. 2121.30 s [opt-env-conf-test] where
  352. 2121.30 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  353. 2121.30 s [opt-env-conf-test] go d = \case
  354. 2121.30 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  355. 2121.30 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 1) $ showString "Pure _"
  356. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  357. 2121.30 s [opt-env-conf-test] showParen (d > 10) $
  358. 2121.30 s [opt-env-conf-test] showString "Ap "
  359. 2121.30 s [opt-env-conf-test]
  360. 2121.30 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  361. 2121.30 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  362. 2121.30 s [opt-env-conf-test] where
  363. 2121.30 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  364. 2121.30 s [opt-env-conf-test] go d = \case
  365. 2121.30 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  366. 2121.30 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 0) $ showString "Pure _"
  367. 2121.30 s [opt-env-conf-test] ParserAp pf pa ->
  368. 2121.30 s [opt-env-conf-test] showParen (d > 10) $
  369. 2121.30 s [opt-env-conf-test] showString "Ap "
  370. 2121.30 s [opt-env-conf-test]
  371. 2121.30 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  372. 2121.30 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  373. 2121.30 s [opt-env-conf-test] where
  374. 2121.30 s [opt-env-conf-test] go p =
  375. 2121.30 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  376. 2121.30 s [opt-env-conf-test] in case p of
  377. 2121.30 s [opt-env-conf-test] ParserPure a -> ParserPure a
  378. 2121.30 s [opt-env-conf-test] ParserAp {} -> p'
  379. 2121.30 s [opt-env-conf-test] ParserSelect {} -> p'
  380. 2121.30 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  381. 2121.30 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  382. 2121.31 s [opt-env-conf-test] ParserMany {} -> p'
  383. 2121.31 s [opt-env-conf-test] ParserSome {} -> p'
  384. 2121.31 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  385. 2121.31 s [opt-env-conf-test] ParserCheck {} -> p'
  386. 2121.31 s [opt-env-conf-test] ParserCommands {} -> p'
  387. 2121.31 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  388. 2121.31 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  389. 2121.31 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  390. 2121.31 s [opt-env-conf-test] Just _ -> p
  391. 2121.31 s [opt-env-conf-test]
  392. 2121.31 s [opt-env-conf-test] -- | Try a list of parsers in order
  393. 2121.31 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  394. 2121.31 s [opt-env-conf-test]
  395. 2121.31 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  396. 2121.31 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  397. 2121.31 s [opt-env-conf-test] where
  398. 2121.31 s [opt-env-conf-test] go p =
  399. 2121.31 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  400. 2121.31 s [opt-env-conf-test] in case p of
  401. 2121.31 s [opt-env-conf-test] ParserPure a -> ParserPure a
  402. 2121.31 s [opt-env-conf-test] ParserAp {} -> p'
  403. 2121.31 s [opt-env-conf-test] ParserSelect {} -> p'
  404. 2121.31 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  405. 2121.31 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  406. 2121.31 s [opt-env-conf-test] ParserMany {} -> p'
  407. 2121.31 s [opt-env-conf-test] ParserSome {} -> p'
  408. 2121.31 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  409. 2121.31 s [opt-env-conf-test] ParserCheck {} -> p'
  410. 2121.31 s [opt-env-conf-test] - ParserCommands {} -> p'
  411. 2121.31 s [opt-env-conf-test] ParserWithConfig {} -> p'
  412. 2121.31 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  413. 2121.31 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  414. 2121.31 s [opt-env-conf-test] Just _ -> p
  415. 2121.31 s [opt-env-conf-test]
  416. 2121.31 s [opt-env-conf-test] -- | Try a list of parsers in order
  417. 2121.31 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  418. 2121.31 s [opt-env-conf-test]
  419. 2121.31 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  420. 2121.31 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  421. 2121.31 s [opt-env-conf-test] where
  422. 2121.31 s [opt-env-conf-test] go p =
  423. 2121.31 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  424. 2121.31 s [opt-env-conf-test] in case p of
  425. 2121.31 s [opt-env-conf-test] ParserPure a -> ParserPure a
  426. 2121.31 s [opt-env-conf-test] ParserAp {} -> p'
  427. 2121.31 s [opt-env-conf-test] ParserSelect {} -> p'
  428. 2121.31 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  429. 2121.31 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  430. 2121.31 s [opt-env-conf-test] ParserMany {} -> p'
  431. 2121.31 s [opt-env-conf-test] ParserSome {} -> p'
  432. 2121.31 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  433. 2121.31 s [opt-env-conf-test] - ParserCheck {} -> p'
  434. 2121.31 s [opt-env-conf-test] ParserCommands {} -> p'
  435. 2121.31 s [opt-env-conf-test] ParserWithConfig {} -> p'
  436. 2121.31 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  437. 2121.31 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  438. 2121.31 s [opt-env-conf-test] Just _ -> p
  439. 2121.31 s [opt-env-conf-test]
  440. 2121.31 s [opt-env-conf-test] -- | Try a list of parsers in order
  441. 2121.31 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  442. 2121.31 s [opt-env-conf-test]
  443. 2121.31 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  444. 2121.31 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  445. 2121.31 s [opt-env-conf-test] where
  446. 2121.31 s [opt-env-conf-test] go p =
  447. 2121.31 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  448. 2121.31 s [opt-env-conf-test] in case p of
  449. 2121.31 s [opt-env-conf-test] ParserPure a -> ParserPure a
  450. 2121.31 s [opt-env-conf-test] ParserAp {} -> p'
  451. 2121.31 s [opt-env-conf-test] ParserSelect {} -> p'
  452. 2121.31 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  453. 2121.31 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  454. 2121.31 s [opt-env-conf-test] ParserMany {} -> p'
  455. 2121.31 s [opt-env-conf-test] ParserSome {} -> p'
  456. 2121.31 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  457. 2121.31 s [opt-env-conf-test] ParserCheck {} -> p'
  458. 2121.31 s [opt-env-conf-test] ParserCommands {} -> p'
  459. 2121.31 s [opt-env-conf-test] ParserWithConfig {} -> p'
  460. 2121.31 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  461. 2121.31 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  462. 2121.31 s [opt-env-conf-test] Just _ -> p
  463. 2121.31 s [opt-env-conf-test]
  464. 2121.31 s [opt-env-conf-test] -- | Try a list of parsers in order
  465. 2121.31 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  466. 2121.31 s [opt-env-conf-test]
  467. 2121.31 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  468. 2121.31 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  469. 2121.31 s [opt-env-conf-test] where
  470. 2121.31 s [opt-env-conf-test] go p =
  471. 2121.31 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  472. 2121.31 s [opt-env-conf-test] in case p of
  473. 2121.31 s [opt-env-conf-test] ParserPure a -> ParserPure a
  474. 2121.31 s [opt-env-conf-test] ParserAp {} -> p'
  475. 2121.31 s [opt-env-conf-test] ParserSelect {} -> p'
  476. 2121.31 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  477. 2121.31 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  478. 2121.31 s [opt-env-conf-test] ParserMany {} -> p'
  479. 2121.31 s [opt-env-conf-test] - ParserSome {} -> p'
  480. 2121.31 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  481. 2121.31 s [opt-env-conf-test] ParserCheck {} -> p'
  482. 2121.31 s [opt-env-conf-test] ParserCommands {} -> p'
  483. 2121.31 s [opt-env-conf-test] ParserWithConfig {} -> p'
  484. 2121.31 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  485. 2121.31 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  486. 2121.31 s [opt-env-conf-test] Just _ -> p
  487. 2121.31 s [opt-env-conf-test]
  488. 2121.31 s [opt-env-conf-test] -- | Try a list of parsers in order
  489. 2121.31 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  490. 2121.31 s [opt-env-conf-test]
  491. 2121.31 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  492. 2121.31 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  493. 2121.31 s [opt-env-conf-test] where
  494. 2121.31 s [opt-env-conf-test] go p =
  495. 2121.31 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  496. 2121.31 s [opt-env-conf-test] in case p of
  497. 2121.31 s [opt-env-conf-test] ParserPure a -> ParserPure a
  498. 2121.31 s [opt-env-conf-test] ParserAp {} -> p'
  499. 2121.31 s [opt-env-conf-test] ParserSelect {} -> p'
  500. 2121.31 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  501. 2121.31 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  502. 2121.31 s [opt-env-conf-test] - ParserMany {} -> p'
  503. 2121.31 s [opt-env-conf-test] ParserSome {} -> p'
  504. 2121.31 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  505. 2121.31 s [opt-env-conf-test] ParserCheck {} -> p'
  506. 2121.31 s [opt-env-conf-test] ParserCommands {} -> p'
  507. 2121.31 s [opt-env-conf-test] ParserWithConfig {} -> p'
  508. 2121.31 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  509. 2121.31 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  510. 2121.31 s [opt-env-conf-test] Just _ -> p
  511. 2121.31 s [opt-env-conf-test]
  512. 2121.31 s [opt-env-conf-test] -- | Try a list of parsers in order
  513. 2121.31 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  514. 2121.31 s [opt-env-conf-test]
  515. 2121.31 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  516. 2121.31 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  517. 2121.31 s [opt-env-conf-test] where
  518. 2121.31 s [opt-env-conf-test] go p =
  519. 2121.31 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  520. 2121.31 s [opt-env-conf-test] in case p of
  521. 2121.31 s [opt-env-conf-test] ParserPure a -> ParserPure a
  522. 2121.31 s [opt-env-conf-test] ParserAp {} -> p'
  523. 2121.31 s [opt-env-conf-test] ParserSelect {} -> p'
  524. 2121.31 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  525. 2121.31 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  526. 2121.31 s [opt-env-conf-test] ParserMany {} -> p'
  527. 2121.31 s [opt-env-conf-test] ParserSome {} -> p'
  528. 2121.32 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  529. 2121.32 s [opt-env-conf-test] ParserCheck {} -> p'
  530. 2121.32 s [opt-env-conf-test] ParserCommands {} -> p'
  531. 2121.32 s [opt-env-conf-test] ParserWithConfig {} -> p'
  532. 2121.32 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  533. 2121.32 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  534. 2121.32 s [opt-env-conf-test] Just _ -> p
  535. 2121.32 s [opt-env-conf-test]
  536. 2121.32 s [opt-env-conf-test] -- | Try a list of parsers in order
  537. 2121.32 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  538. 2121.32 s [opt-env-conf-test]
  539. 2121.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  540. 2121.32 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  541. 2121.32 s [opt-env-conf-test] where
  542. 2121.32 s [opt-env-conf-test] go p =
  543. 2121.32 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  544. 2121.32 s [opt-env-conf-test] in case p of
  545. 2121.32 s [opt-env-conf-test] ParserPure a -> ParserPure a
  546. 2121.32 s [opt-env-conf-test] ParserAp {} -> p'
  547. 2121.32 s [opt-env-conf-test] - ParserSelect {} -> p'
  548. 2121.32 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  549. 2121.32 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  550. 2121.32 s [opt-env-conf-test] ParserMany {} -> p'
  551. 2121.32 s [opt-env-conf-test] ParserSome {} -> p'
  552. 2121.32 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  553. 2121.32 s [opt-env-conf-test] ParserCheck {} -> p'
  554. 2121.32 s [opt-env-conf-test] ParserCommands {} -> p'
  555. 2121.32 s [opt-env-conf-test] ParserWithConfig {} -> p'
  556. 2121.32 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  557. 2121.32 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  558. 2121.32 s [opt-env-conf-test] Just _ -> p
  559. 2121.32 s [opt-env-conf-test]
  560. 2121.32 s [opt-env-conf-test] -- | Try a list of parsers in order
  561. 2121.32 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  562. 2121.32 s [opt-env-conf-test]
  563. 2121.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  564. 2121.32 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  565. 2121.32 s [opt-env-conf-test] where
  566. 2121.32 s [opt-env-conf-test] go p =
  567. 2121.32 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  568. 2121.32 s [opt-env-conf-test] in case p of
  569. 2121.32 s [opt-env-conf-test] ParserPure a -> ParserPure a
  570. 2121.32 s [opt-env-conf-test] - ParserAp {} -> p'
  571. 2121.32 s [opt-env-conf-test] ParserSelect {} -> p'
  572. 2121.32 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  573. 2121.32 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  574. 2121.32 s [opt-env-conf-test] ParserMany {} -> p'
  575. 2121.32 s [opt-env-conf-test] ParserSome {} -> p'
  576. 2121.32 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  577. 2121.32 s [opt-env-conf-test] ParserCheck {} -> p'
  578. 2121.32 s [opt-env-conf-test] ParserCommands {} -> p'
  579. 2121.32 s [opt-env-conf-test] ParserWithConfig {} -> p'
  580. 2121.32 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  581. 2121.32 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  582. 2121.32 s [opt-env-conf-test] Just _ -> p
  583. 2121.32 s [opt-env-conf-test]
  584. 2121.32 s [opt-env-conf-test] -- | Try a list of parsers in order
  585. 2121.32 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  586. 2121.32 s [opt-env-conf-test]
  587. 2121.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  588. 2121.32 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  589. 2121.32 s [opt-env-conf-test] where
  590. 2121.32 s [opt-env-conf-test] go p =
  591. 2121.32 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  592. 2121.32 s [opt-env-conf-test] in case p of
  593. 2121.32 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  594. 2121.32 s [opt-env-conf-test] ParserAp {} -> p'
  595. 2121.32 s [opt-env-conf-test] ParserSelect {} -> p'
  596. 2121.32 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  597. 2121.32 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  598. 2121.32 s [opt-env-conf-test] ParserMany {} -> p'
  599. 2121.32 s [opt-env-conf-test] ParserSome {} -> p'
  600. 2121.32 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  601. 2121.32 s [opt-env-conf-test] ParserCheck {} -> p'
  602. 2121.32 s [opt-env-conf-test] ParserCommands {} -> p'
  603. 2121.32 s [opt-env-conf-test] ParserWithConfig {} -> p'
  604. 2121.32 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  605. 2121.32 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  606. 2121.32 s [opt-env-conf-test] Just _ -> p
  607. 2121.32 s [opt-env-conf-test]
  608. 2121.32 s [opt-env-conf-test] -- | Try a list of parsers in order
  609. 2121.32 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  610. 2121.32 s [opt-env-conf-test]
  611. 2121.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
  612. 2121.32 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  613. 2121.32 s [opt-env-conf-test] ParserCheck {} -> p'
  614. 2121.32 s [opt-env-conf-test] ParserCommands {} -> p'
  615. 2121.32 s [opt-env-conf-test] ParserWithConfig {} -> p'
  616. 2121.32 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  617. 2121.32 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  618. 2121.32 s [opt-env-conf-test] - Just _ -> p
  619. 2121.32 s [opt-env-conf-test]
  620. 2121.32 s [opt-env-conf-test] -- | Try a list of parsers in order
  621. 2121.32 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  622. 2121.32 s [opt-env-conf-test]
  623. 2121.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
  624. 2121.32 s [opt-env-conf-test] @@ -599,9 +599,8 @@
  625. 2121.32 s [opt-env-conf-test] checkMapMaybe func p =
  626. 2121.32 s [opt-env-conf-test] withFrozenCallStack $
  627. 2121.32 s [opt-env-conf-test] checkMapEither
  628. 2121.32 s [opt-env-conf-test] ( \a -> case func a of
  629. 2121.32 s [opt-env-conf-test] Nothing -> Left "checkMapMaybe failed without a helpful error message"
  630. 2121.32 s [opt-env-conf-test] - Just b -> Right b
  631. 2121.32 s [opt-env-conf-test] )
  632. 2121.32 s [opt-env-conf-test] p
  633. 2121.32 s [opt-env-conf-test]
  634. 2121.32 s [opt-env-conf-test]
  635. 2121.32 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completion.hs:453:24-40
  636. 2121.32 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  637. 2121.32 s [opt-env-conf-test] put as'
  638. 2121.32 s [opt-env-conf-test] pure $ Just []
  639. 2121.32 s [opt-env-conf-test] else do
  640. 2121.32 s [opt-env-conf-test] - if settingTryOption
  641. 2121.32 s [opt-env-conf-test] + if True
  642. 2121.32 s [opt-env-conf-test] then do
  643. 2121.32 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  644. 2121.32 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  645. 2121.32 s [opt-env-conf-test]
  646. 2121.32 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
  647. 2121.32 s [opt-env-conf-test] @@ -432,11 +432,10 @@
  648. 2121.32 s [opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
  649. 2121.32 s [opt-env-conf-test] -- fallback matched. In both cases, offer the
  650. 2121.32 s [opt-env-conf-test] -- completer if we are at the end.
  651. 2121.32 s [opt-env-conf-test] case possibilities of
  652. 2121.32 s [opt-env-conf-test] - [] -> completeWithCompleterAtEnd
  653. 2121.32 s [opt-env-conf-test] (_, as') : _ -> do
  654. 2121.32 s [opt-env-conf-test] put as'
  655. 2121.32 s [opt-env-conf-test] completeWithCompleterAtEnd
  656. 2121.32 s [opt-env-conf-test] else
  657. 2121.32 s [opt-env-conf-test] if isJust settingSwitchValue
  658. 2121.32 s [opt-env-conf-test] then do
  659. 2121.32 s [opt-env-conf-test]
  660. 2121.32 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Completion.hs:437:39-51
  661. 2121.32 s [opt-env-conf-test] @@ -434,9 +434,8 @@
  662. 2121.32 s [opt-env-conf-test] -- completer if we are at the end.
  663. 2121.32 s [opt-env-conf-test] case possibilities of
  664. 2121.32 s [opt-env-conf-test] [] -> completeWithCompleterAtEnd
  665. 2121.32 s [opt-env-conf-test] (_, as') : _ -> do
  666. 2121.32 s [opt-env-conf-test] - put as'
  667. 2121.32 s [opt-env-conf-test] completeWithCompleterAtEnd
  668. 2121.32 s [opt-env-conf-test] else
  669. 2121.32 s [opt-env-conf-test] if isJust settingSwitchValue
  670. 2121.32 s [opt-env-conf-test] then do
  671. 2121.32 s [opt-env-conf-test]
  672. 2121.32 s [opt-env-conf-test] MaybeOp at src/OptEnvConf/Completion.hs:398:70-77
  673. 2121.32 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  674. 2121.32 s [opt-env-conf-test] pure Completion {..}
  675. 2121.32 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  676. 2121.32 s [opt-env-conf-test] as <- get
  677. 2121.32 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  678. 2121.32 s [opt-env-conf-test] + if argsAtEnd as then completeWithCompleter else pure $ Nothing
  679. 2121.32 s [opt-env-conf-test] let completeWithDasheds = do
  680. 2121.32 s [opt-env-conf-test] let isLong = \case
  681. 2121.32 s [opt-env-conf-test] DashedLong _ -> True
  682. 2121.32 s [opt-env-conf-test]
  683. 2121.32 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Completion.hs:254:20-23
  684. 2121.32 s [opt-env-conf-test] @@ -251,9 +251,8 @@
  685. 2121.32 s [opt-env-conf-test] before <- get
  686. 2121.32 s [opt-env-conf-test] mA <- func
  687. 2121.33 s [opt-env-conf-test] case mA of
  688. 2121.33 s [opt-env-conf-test] Nothing -> do
  689. 2121.33 s [opt-env-conf-test] - put before
  690. 2121.33 s [opt-env-conf-test] pure Nothing
  691. 2121.33 s [opt-env-conf-test] Just a -> pure (Just a)
  692. 2121.33 s [opt-env-conf-test]
  693. 2121.33 s [opt-env-conf-test] -- Completions for many/some: try the parser repeatedly.
  694. 2121.33 s [opt-env-conf-test]
  695. 2121.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  696. 2121.33 s [opt-env-conf-test] @@ -125,42 +125,41 @@
  697. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  698. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  699. 2121.33 s [opt-env-conf-test] exitFailure
  700. 2121.33 s [opt-env-conf-test] Right i -> case i of
  701. 2121.33 s [opt-env-conf-test] ShowVersion -> do
  702. 2121.33 s [opt-env-conf-test] progname <- getProgName
  703. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  704. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  705. 2121.33 s [opt-env-conf-test] exitSuccess
  706. 2121.33 s [opt-env-conf-test] RenderMan -> do
  707. 2121.33 s [opt-env-conf-test] progname <- getProgName
  708. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  709. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  710. 2121.33 s [opt-env-conf-test] exitSuccess
  711. 2121.33 s [opt-env-conf-test] RenderDocumentation -> do
  712. 2121.33 s [opt-env-conf-test] progname <- getProgName
  713. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  714. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  715. 2121.33 s [opt-env-conf-test] exitSuccess
  716. 2121.33 s [opt-env-conf-test] RenderNixosOptions -> do
  717. 2121.33 s [opt-env-conf-test] progname <- getProgName
  718. 2121.33 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  719. 2121.33 s [opt-env-conf-test] exitSuccess
  720. 2121.33 s [opt-env-conf-test] BashCompletionScript progPath -> do
  721. 2121.33 s [opt-env-conf-test] progname <- getProgName
  722. 2121.33 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  723. 2121.33 s [opt-env-conf-test] exitSuccess
  724. 2121.33 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  725. 2121.33 s [opt-env-conf-test] progname <- getProgName
  726. 2121.33 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  727. 2121.33 s [opt-env-conf-test] exitSuccess
  728. 2121.33 s [opt-env-conf-test] FishCompletionScript progPath -> do
  729. 2121.33 s [opt-env-conf-test] progname <- getProgName
  730. 2121.33 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  731. 2121.33 s [opt-env-conf-test] exitSuccess
  732. 2121.33 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  733. 2121.33 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  734. 2121.33 s [opt-env-conf-test] exitSuccess
  735. 2121.33 s [opt-env-conf-test] - ParsedNormally a -> pure a
  736. 2121.33 s [opt-env-conf-test]
  737. 2121.33 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.
  738. 2121.33 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  739. 2121.33 s [opt-env-conf-test]
  740. 2121.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  741. 2121.33 s [opt-env-conf-test] @@ -125,42 +125,39 @@
  742. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  743. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  744. 2121.33 s [opt-env-conf-test] exitFailure
  745. 2121.33 s [opt-env-conf-test] Right i -> case i of
  746. 2121.33 s [opt-env-conf-test] ShowVersion -> do
  747. 2121.33 s [opt-env-conf-test] progname <- getProgName
  748. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  749. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  750. 2121.33 s [opt-env-conf-test] exitSuccess
  751. 2121.33 s [opt-env-conf-test] RenderMan -> do
  752. 2121.33 s [opt-env-conf-test] progname <- getProgName
  753. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  754. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  755. 2121.33 s [opt-env-conf-test] exitSuccess
  756. 2121.33 s [opt-env-conf-test] RenderDocumentation -> do
  757. 2121.33 s [opt-env-conf-test] progname <- getProgName
  758. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  759. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  760. 2121.33 s [opt-env-conf-test] exitSuccess
  761. 2121.33 s [opt-env-conf-test] RenderNixosOptions -> do
  762. 2121.33 s [opt-env-conf-test] progname <- getProgName
  763. 2121.33 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  764. 2121.33 s [opt-env-conf-test] exitSuccess
  765. 2121.33 s [opt-env-conf-test] BashCompletionScript progPath -> do
  766. 2121.33 s [opt-env-conf-test] progname <- getProgName
  767. 2121.33 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  768. 2121.33 s [opt-env-conf-test] exitSuccess
  769. 2121.33 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  770. 2121.33 s [opt-env-conf-test] progname <- getProgName
  771. 2121.33 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  772. 2121.33 s [opt-env-conf-test] exitSuccess
  773. 2121.33 s [opt-env-conf-test] FishCompletionScript progPath -> do
  774. 2121.33 s [opt-env-conf-test] progname <- getProgName
  775. 2121.33 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  776. 2121.33 s [opt-env-conf-test] exitSuccess
  777. 2121.33 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  778. 2121.33 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  779. 2121.33 s [opt-env-conf-test] - exitSuccess
  780. 2121.33 s [opt-env-conf-test] ParsedNormally a -> pure a
  781. 2121.33 s [opt-env-conf-test]
  782. 2121.33 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.
  783. 2121.33 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  784. 2121.33 s [opt-env-conf-test]
  785. 2121.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  786. 2121.33 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  787. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  788. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  789. 2121.33 s [opt-env-conf-test] exitFailure
  790. 2121.33 s [opt-env-conf-test] Right i -> case i of
  791. 2121.33 s [opt-env-conf-test] ShowVersion -> do
  792. 2121.33 s [opt-env-conf-test] progname <- getProgName
  793. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  794. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  795. 2121.33 s [opt-env-conf-test] exitSuccess
  796. 2121.33 s [opt-env-conf-test] RenderMan -> do
  797. 2121.33 s [opt-env-conf-test] progname <- getProgName
  798. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  799. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  800. 2121.33 s [opt-env-conf-test] exitSuccess
  801. 2121.33 s [opt-env-conf-test] RenderDocumentation -> do
  802. 2121.33 s [opt-env-conf-test] progname <- getProgName
  803. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  804. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  805. 2121.33 s [opt-env-conf-test] exitSuccess
  806. 2121.33 s [opt-env-conf-test] RenderNixosOptions -> do
  807. 2121.33 s [opt-env-conf-test] progname <- getProgName
  808. 2121.33 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  809. 2121.33 s [opt-env-conf-test] exitSuccess
  810. 2121.33 s [opt-env-conf-test] BashCompletionScript progPath -> do
  811. 2121.33 s [opt-env-conf-test] progname <- getProgName
  812. 2121.33 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  813. 2121.33 s [opt-env-conf-test] exitSuccess
  814. 2121.33 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  815. 2121.33 s [opt-env-conf-test] progname <- getProgName
  816. 2121.33 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  817. 2121.33 s [opt-env-conf-test] - exitSuccess
  818. 2121.33 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  819. 2121.33 s [opt-env-conf-test] - progname <- getProgName
  820. 2121.33 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  821. 2121.33 s [opt-env-conf-test] exitSuccess
  822. 2121.33 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  823. 2121.33 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  824. 2121.33 s [opt-env-conf-test] exitSuccess
  825. 2121.33 s [opt-env-conf-test] ParsedNormally a -> pure a
  826. 2121.33 s [opt-env-conf-test]
  827. 2121.33 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.
  828. 2121.33 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  829. 2121.33 s [opt-env-conf-test]
  830. 2121.33 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  831. 2121.33 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  832. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  833. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  834. 2121.33 s [opt-env-conf-test] exitFailure
  835. 2121.33 s [opt-env-conf-test] Right i -> case i of
  836. 2121.33 s [opt-env-conf-test] ShowVersion -> do
  837. 2121.33 s [opt-env-conf-test] progname <- getProgName
  838. 2121.33 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  839. 2121.33 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  840. 2121.33 s [opt-env-conf-test] exitSuccess
  841. 2121.33 s [opt-env-conf-test] RenderMan -> do
  842. 2121.34 s [opt-env-conf-test] progname <- getProgName
  843. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  844. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  845. 2121.34 s [opt-env-conf-test] exitSuccess
  846. 2121.34 s [opt-env-conf-test] RenderDocumentation -> do
  847. 2121.34 s [opt-env-conf-test] progname <- getProgName
  848. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  849. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  850. 2121.34 s [opt-env-conf-test] exitSuccess
  851. 2121.34 s [opt-env-conf-test] RenderNixosOptions -> do
  852. 2121.34 s [opt-env-conf-test] progname <- getProgName
  853. 2121.34 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  854. 2121.34 s [opt-env-conf-test] exitSuccess
  855. 2121.34 s [opt-env-conf-test] BashCompletionScript progPath -> do
  856. 2121.34 s [opt-env-conf-test] progname <- getProgName
  857. 2121.34 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  858. 2121.34 s [opt-env-conf-test] - exitSuccess
  859. 2121.34 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  860. 2121.34 s [opt-env-conf-test] - progname <- getProgName
  861. 2121.34 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  862. 2121.34 s [opt-env-conf-test] exitSuccess
  863. 2121.34 s [opt-env-conf-test] FishCompletionScript progPath -> do
  864. 2121.34 s [opt-env-conf-test] progname <- getProgName
  865. 2121.34 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  866. 2121.34 s [opt-env-conf-test] exitSuccess
  867. 2121.34 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  868. 2121.34 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  869. 2121.34 s [opt-env-conf-test] exitSuccess
  870. 2121.34 s [opt-env-conf-test] ParsedNormally a -> pure a
  871. 2121.34 s [opt-env-conf-test]
  872. 2121.34 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.
  873. 2121.34 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  874. 2121.34 s [opt-env-conf-test]
  875. 2121.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  876. 2121.34 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  877. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  878. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  879. 2121.34 s [opt-env-conf-test] exitFailure
  880. 2121.34 s [opt-env-conf-test] Right i -> case i of
  881. 2121.34 s [opt-env-conf-test] ShowVersion -> do
  882. 2121.34 s [opt-env-conf-test] progname <- getProgName
  883. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  884. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  885. 2121.34 s [opt-env-conf-test] exitSuccess
  886. 2121.34 s [opt-env-conf-test] RenderMan -> do
  887. 2121.34 s [opt-env-conf-test] progname <- getProgName
  888. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  889. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  890. 2121.34 s [opt-env-conf-test] exitSuccess
  891. 2121.34 s [opt-env-conf-test] RenderDocumentation -> do
  892. 2121.34 s [opt-env-conf-test] progname <- getProgName
  893. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  894. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  895. 2121.34 s [opt-env-conf-test] exitSuccess
  896. 2121.34 s [opt-env-conf-test] RenderNixosOptions -> do
  897. 2121.34 s [opt-env-conf-test] progname <- getProgName
  898. 2121.34 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  899. 2121.34 s [opt-env-conf-test] - exitSuccess
  900. 2121.34 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  901. 2121.34 s [opt-env-conf-test] - progname <- getProgName
  902. 2121.34 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  903. 2121.34 s [opt-env-conf-test] exitSuccess
  904. 2121.34 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  905. 2121.34 s [opt-env-conf-test] progname <- getProgName
  906. 2121.34 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  907. 2121.34 s [opt-env-conf-test] exitSuccess
  908. 2121.34 s [opt-env-conf-test] FishCompletionScript progPath -> do
  909. 2121.34 s [opt-env-conf-test] progname <- getProgName
  910. 2121.34 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  911. 2121.34 s [opt-env-conf-test] exitSuccess
  912. 2121.34 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  913. 2121.34 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  914. 2121.34 s [opt-env-conf-test] exitSuccess
  915. 2121.34 s [opt-env-conf-test] ParsedNormally a -> pure a
  916. 2121.34 s [opt-env-conf-test]
  917. 2121.34 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.
  918. 2121.34 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  919. 2121.34 s [opt-env-conf-test]
  920. 2121.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  921. 2121.34 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  922. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  923. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  924. 2121.34 s [opt-env-conf-test] exitFailure
  925. 2121.34 s [opt-env-conf-test] Right i -> case i of
  926. 2121.34 s [opt-env-conf-test] ShowVersion -> do
  927. 2121.34 s [opt-env-conf-test] progname <- getProgName
  928. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  929. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  930. 2121.34 s [opt-env-conf-test] exitSuccess
  931. 2121.34 s [opt-env-conf-test] RenderMan -> do
  932. 2121.34 s [opt-env-conf-test] progname <- getProgName
  933. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  934. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  935. 2121.34 s [opt-env-conf-test] exitSuccess
  936. 2121.34 s [opt-env-conf-test] RenderDocumentation -> do
  937. 2121.34 s [opt-env-conf-test] progname <- getProgName
  938. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  939. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  940. 2121.34 s [opt-env-conf-test] - exitSuccess
  941. 2121.34 s [opt-env-conf-test] - RenderNixosOptions -> do
  942. 2121.34 s [opt-env-conf-test] - progname <- getProgName
  943. 2121.34 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  944. 2121.34 s [opt-env-conf-test] exitSuccess
  945. 2121.34 s [opt-env-conf-test] BashCompletionScript progPath -> do
  946. 2121.34 s [opt-env-conf-test] progname <- getProgName
  947. 2121.34 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  948. 2121.34 s [opt-env-conf-test] exitSuccess
  949. 2121.34 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  950. 2121.34 s [opt-env-conf-test] progname <- getProgName
  951. 2121.34 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  952. 2121.34 s [opt-env-conf-test] exitSuccess
  953. 2121.34 s [opt-env-conf-test] FishCompletionScript progPath -> do
  954. 2121.34 s [opt-env-conf-test] progname <- getProgName
  955. 2121.34 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  956. 2121.34 s [opt-env-conf-test] exitSuccess
  957. 2121.34 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  958. 2121.34 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  959. 2121.34 s [opt-env-conf-test] exitSuccess
  960. 2121.34 s [opt-env-conf-test] ParsedNormally a -> pure a
  961. 2121.34 s [opt-env-conf-test]
  962. 2121.34 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.
  963. 2121.34 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  964. 2121.34 s [opt-env-conf-test]
  965. 2121.34 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  966. 2121.34 s [opt-env-conf-test] @@ -125,42 +125,37 @@
  967. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  968. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  969. 2121.34 s [opt-env-conf-test] exitFailure
  970. 2121.34 s [opt-env-conf-test] Right i -> case i of
  971. 2121.34 s [opt-env-conf-test] ShowVersion -> do
  972. 2121.34 s [opt-env-conf-test] progname <- getProgName
  973. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  974. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  975. 2121.34 s [opt-env-conf-test] exitSuccess
  976. 2121.34 s [opt-env-conf-test] RenderMan -> do
  977. 2121.34 s [opt-env-conf-test] progname <- getProgName
  978. 2121.34 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  979. 2121.34 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  980. 2121.34 s [opt-env-conf-test] exitSuccess
  981. 2121.34 s [opt-env-conf-test] - RenderDocumentation -> do
  982. 2121.34 s [opt-env-conf-test] - progname <- getProgName
  983. 2121.34 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  984. 2121.34 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  985. 2121.34 s [opt-env-conf-test] - exitSuccess
  986. 2121.34 s [opt-env-conf-test] RenderNixosOptions -> do
  987. 2121.34 s [opt-env-conf-test] progname <- getProgName
  988. 2121.34 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  989. 2121.34 s [opt-env-conf-test] exitSuccess
  990. 2121.34 s [opt-env-conf-test] BashCompletionScript progPath -> do
  991. 2121.34 s [opt-env-conf-test] progname <- getProgName
  992. 2121.34 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  993. 2121.34 s [opt-env-conf-test] exitSuccess
  994. 2121.34 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  995. 2121.34 s [opt-env-conf-test] progname <- getProgName
  996. 2121.34 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  997. 2121.34 s [opt-env-conf-test] exitSuccess
  998. 2121.34 s [opt-env-conf-test] FishCompletionScript progPath -> do
  999. 2121.34 s [opt-env-conf-test] progname <- getProgName
  1000. 2121.34 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  1001. 2121.34 s [opt-env-conf-test] exitSuccess
  1002. 2121.34 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  1003. 2121.34 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  1004. 2121.35 s [opt-env-conf-test] exitSuccess
  1005. 2121.35 s [opt-env-conf-test] ParsedNormally a -> pure a
  1006. 2121.35 s [opt-env-conf-test]
  1007. 2121.35 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.
  1008. 2121.35 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  1009. 2121.35 s [opt-env-conf-test]
  1010. 2121.35 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  1011. 2121.35 s [opt-env-conf-test] @@ -125,42 +125,37 @@
  1012. 2121.35 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  1013. 2121.35 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  1014. 2121.35 s [opt-env-conf-test] exitFailure
  1015. 2121.35 s [opt-env-conf-test] Right i -> case i of
  1016. 2121.35 s [opt-env-conf-test] ShowVersion -> do
  1017. 2121.35 s [opt-env-conf-test] progname <- getProgName
  1018. 2121.35 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  1019. 2121.35 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  1020. 2121.35 s [opt-env-conf-test] exitSuccess
  1021. 2121.35 s [opt-env-conf-test] - RenderMan -> do
  1022. 2121.35 s [opt-env-conf-test] - progname <- getProgName
  1023. 2121.35 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  1024. 2121.35 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  1025. 2121.35 s [opt-env-conf-test] - exitSuccess
  1026. 2121.35 s [opt-env-conf-test] RenderDocumentation -> do
  1027. 2121.35 s [opt-env-conf-test] progname <- getProgName
  1028. 2121.35 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  1029. 2121.35 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  1030. 2121.35 s [opt-env-conf-test] exitSuccess
  1031. 2121.35 s [opt-env-conf-test] RenderNixosOptions -> do
  1032. 2121.35 s [opt-env-conf-test] progname <- getProgName
  1033. 2121.35 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  1034. 2121.35 s [opt-env-conf-test] exitSuccess
  1035. 2121.35 s [opt-env-conf-test] BashCompletionScript progPath -> do
  1036. 2121.35 s [opt-env-conf-test] progname <- getProgName
  1037. 2121.35 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  1038. 2121.35 s [opt-env-conf-test] exitSuccess
  1039. 2121.35 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  1040. 2121.35 s [opt-env-conf-test] progname <- getProgName
  1041. 2121.35 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  1042. 2121.35 s [opt-env-conf-test] exitSuccess
  1043. 2121.35 s [opt-env-conf-test] FishCompletionScript progPath -> do
  1044. 2121.35 s [opt-env-conf-test] progname <- getProgName
  1045. 2121.35 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  1046. 2121.35 s [opt-env-conf-test] exitSuccess
  1047. 2121.35 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  1048. 2121.35 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  1049. 2121.35 s [opt-env-conf-test] exitSuccess
  1050. 2121.35 s [opt-env-conf-test] ParsedNormally a -> pure a
  1051. 2121.35 s [opt-env-conf-test]
  1052. 2121.35 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.
  1053. 2121.35 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  1054. 2121.35 s [opt-env-conf-test]
  1055. 2121.35 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Main.hs:132:21-88
  1056. 2121.35 s [opt-env-conf-test] @@ -129,7 +129,6 @@
  1057. 2121.35 s [opt-env-conf-test] ShowVersion -> do
  1058. 2121.35 s [opt-env-conf-test] progname <- getProgName
  1059. 2121.35 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  1060. 2121.35 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  1061. 2121.35 s [opt-env-conf-test] exitSuccess
  1062. 2121.35 s [opt-env-conf-test] RenderMan -> do
  1063. 2121.35 s [opt-env-conf-test] progname <- getProgName
  1064. 2121.35 s [opt-env-conf-test]
  1065. 2121.35 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Main.hs:126:19-69
  1066. 2121.35 s [opt-env-conf-test] @@ -123,7 +123,6 @@
  1067. 2121.35 s [opt-env-conf-test] case errOrResult of
  1068. 2121.35 s [opt-env-conf-test] Left errs -> do
  1069. 2121.35 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  1070. 2121.35 s [opt-env-conf-test] - hPutChunksLocaleWith tc stderr $ renderErrors errs
  1071. 2121.35 s [opt-env-conf-test] exitFailure
  1072. 2121.35 s [opt-env-conf-test] Right i -> case i of
  1073. 2121.35 s [opt-env-conf-test] ShowVersion -> do
  1074. 2121.35 s [opt-env-conf-test]
  1075. 2121.35 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Main.hs:100:15-78
  1076. 2121.35 s [opt-env-conf-test] @@ -97,9 +97,6 @@
  1077. 2121.35 s [opt-env-conf-test] exitFailure
  1078. 2121.35 s [opt-env-conf-test] Right mCommandDoc -> do
  1079. 2121.35 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  1080. 2121.35 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  1081. 2121.35 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  1082. 2121.35 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  1083. 2121.35 s [opt-env-conf-test] exitSuccess
  1084. 2121.35 s [opt-env-conf-test] else do
  1085. 2121.35 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  1086. 2121.35 s [opt-env-conf-test]
  1087. 2121.35 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  1088. 2121.35 s [opt-env-conf-test] @@ -97,9 +97,8 @@
  1089. 2121.35 s [opt-env-conf-test] exitFailure
  1090. 2121.35 s [opt-env-conf-test] Right mCommandDoc -> do
  1091. 2121.35 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  1092. 2121.35 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  1093. 2121.35 s [opt-env-conf-test] Nothing -> renderHelpPage progname version progDesc docs
  1094. 2121.35 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  1095. 2121.35 s [opt-env-conf-test] exitSuccess
  1096. 2121.35 s [opt-env-conf-test] else do
  1097. 2121.35 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  1098. 2121.35 s [opt-env-conf-test]
  1099. 2121.35 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:83:12-21
  1100. 2121.35 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  1101. 2121.35 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  1102. 2121.35 s [opt-env-conf-test]
  1103. 2121.35 s [opt-env-conf-test] mDebugMode <-
  1104. 2121.35 s [opt-env-conf-test] - if debugMode
  1105. 2121.35 s [opt-env-conf-test] + if not (debugMode)
  1106. 2121.35 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  1107. 2121.35 s [opt-env-conf-test] else pure Nothing
  1108. 2121.35 s [opt-env-conf-test]
  1109. 2121.35 s [opt-env-conf-test]
  1110. 2121.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  1111. 2121.35 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  1112. 2121.35 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  1113. 2121.35 s [opt-env-conf-test]
  1114. 2121.35 s [opt-env-conf-test] mDebugMode <-
  1115. 2121.35 s [opt-env-conf-test] - if debugMode
  1116. 2121.35 s [opt-env-conf-test] + if False
  1117. 2121.35 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  1118. 2121.35 s [opt-env-conf-test] else pure Nothing
  1119. 2121.35 s [opt-env-conf-test]
  1120. 2121.35 s [opt-env-conf-test]
  1121. 2121.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  1122. 2121.35 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  1123. 2121.35 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  1124. 2121.35 s [opt-env-conf-test]
  1125. 2121.35 s [opt-env-conf-test] mDebugMode <-
  1126. 2121.35 s [opt-env-conf-test] - if debugMode
  1127. 2121.35 s [opt-env-conf-test] + if True
  1128. 2121.35 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  1129. 2121.35 s [opt-env-conf-test] else pure Nothing
  1130. 2121.35 s [opt-env-conf-test]
  1131. 2121.35 s [opt-env-conf-test]
  1132. 2121.35 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:175:18-23
  1133. 2121.35 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  1134. 2121.35 s [opt-env-conf-test] | x == arg -> (True, xs)
  1135. 2121.35 s [opt-env-conf-test] | otherwise ->
  1136. 2121.35 s [opt-env-conf-test] let (found, rest) = go xs
  1137. 2121.35 s [opt-env-conf-test] - in (found, x : rest)
  1138. 2121.35 s [opt-env-conf-test] + in (not (found), x : rest)
  1139. 2121.35 s [opt-env-conf-test]
  1140. 2121.35 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  1141. 2121.35 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  1142. 2121.35 s [opt-env-conf-test]
  1143. 2121.35 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:175:18-23
  1144. 2121.35 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  1145. 2121.35 s [opt-env-conf-test] | x == arg -> (True, xs)
  1146. 2121.35 s [opt-env-conf-test] | otherwise ->
  1147. 2121.35 s [opt-env-conf-test] let (found, rest) = go xs
  1148. 2121.35 s [opt-env-conf-test] - in (found, x : rest)
  1149. 2121.35 s [opt-env-conf-test] + in (False, x : rest)
  1150. 2121.35 s [opt-env-conf-test]
  1151. 2121.35 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  1152. 2121.35 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  1153. 2121.35 s [opt-env-conf-test]
  1154. 2121.35 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  1155. 2121.35 s [opt-env-conf-test] @@ -196,13 +196,12 @@
  1156. 2121.35 s [opt-env-conf-test] [] -> (caps, [])
  1157. 2121.35 s [opt-env-conf-test] (x : xs) ->
  1158. 2121.35 s [opt-env-conf-test] let t = T.pack x
  1159. 2121.35 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  1160. 2121.35 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  1161. 2121.35 s [opt-env-conf-test] Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  1162. 2121.35 s [opt-env-conf-test] Just capName -> go (enableCapability (Capability capName) caps) xs
  1163. 2121.35 s [opt-env-conf-test] Nothing ->
  1164. 2121.35 s [opt-env-conf-test] let (finalCaps, rest) = go caps xs
  1165. 2121.35 s [opt-env-conf-test] in (finalCaps, x : rest)
  1166. 2121.35 s [opt-env-conf-test]
  1167. 2121.35 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  1168. 2121.35 s [opt-env-conf-test] -- is supposed to.
  1169. 2121.35 s [opt-env-conf-test]
  1170. 2121.35 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  1171. 2121.35 s [opt-env-conf-test] @@ -198,11 +198,10 @@
  1172. 2121.35 s [opt-env-conf-test] let t = T.pack x
  1173. 2121.35 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  1174. 2121.35 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  1175. 2121.35 s [opt-env-conf-test] Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  1176. 2121.35 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  1177. 2121.35 s [opt-env-conf-test] Nothing ->
  1178. 2121.35 s [opt-env-conf-test] let (finalCaps, rest) = go caps xs
  1179. 2121.35 s [opt-env-conf-test] in (finalCaps, x : rest)
  1180. 2121.35 s [opt-env-conf-test]
  1181. 2121.35 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  1182. 2121.35 s [opt-env-conf-test] -- is supposed to.
  1183. 2121.35 s [opt-env-conf-test]
  1184. 2121.35 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:440:44-42
  1185. 2121.35 s [opt-env-conf-test] @@ -437,21 +437,20 @@
  1186. 2121.35 s [opt-env-conf-test] Just (a, _) -> do
  1187. 2121.35 s [opt-env-conf-test] debug ["set to default value"]
  1188. 2121.35 s [opt-env-conf-test] pure a -- Don't mark as parsed
  1189. 2121.35 s [opt-env-conf-test] Nothing -> do
  1190. 2121.35 s [opt-env-conf-test] let parseResultError e res = case res of
  1191. 2121.35 s [opt-env-conf-test] NotRun -> Nothing
  1192. 2121.35 s [opt-env-conf-test] NotFound -> Just e
  1193. 2121.35 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  1194. 2121.35 s [opt-env-conf-test] - debug ["not found"]
  1195. 2121.35 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  1196. 2121.35 s [opt-env-conf-test] NE.nonEmpty $
  1197. 2121.35 s [opt-env-conf-test] catMaybes
  1198. 2121.35 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  1199. 2121.35 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  1200. 2121.36 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  1201. 2121.36 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  1202. 2121.36 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  1203. 2121.36 s [opt-env-conf-test] ]
  1204. 2121.36 s [opt-env-conf-test]
  1205. 2121.36 s [opt-env-conf-test] withCapabilities ::
  1206. 2121.36 s [opt-env-conf-test] Maybe SrcLoc ->
  1207. 2121.36 s [opt-env-conf-test]
  1208. 2121.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  1209. 2121.36 s [opt-env-conf-test] @@ -438,10 +438,9 @@
  1210. 2121.36 s [opt-env-conf-test] debug ["set to default value"]
  1211. 2121.36 s [opt-env-conf-test] pure a -- Don't mark as parsed
  1212. 2121.36 s [opt-env-conf-test] Nothing -> do
  1213. 2121.36 s [opt-env-conf-test] let parseResultError e res = case res of
  1214. 2121.36 s [opt-env-conf-test] NotRun -> Nothing
  1215. 2121.36 s [opt-env-conf-test] NotFound -> Just e
  1216. 2121.36 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  1217. 2121.36 s [opt-env-conf-test] debug ["not found"]
  1218. 2121.36 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  1219. 2121.36 s [opt-env-conf-test] NE.nonEmpty $
  1220. 2121.36 s [opt-env-conf-test]
  1221. 2121.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  1222. 2121.36 s [opt-env-conf-test] @@ -393,30 +393,29 @@
  1223. 2121.36 s [opt-env-conf-test] case mO' of
  1224. 2121.36 s [opt-env-conf-test] Nothing -> pure Nothing
  1225. 2121.36 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  1226. 2121.36 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  1227. 2121.36 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1228. 2121.36 s [opt-env-conf-test] Right mV -> case mV of
  1229. 2121.36 s [opt-env-conf-test] Nothing -> do
  1230. 2121.36 s [opt-env-conf-test] debug
  1231. 2121.36 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  1232. 2121.36 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  1233. 2121.36 s [opt-env-conf-test] ]
  1234. 2121.36 s [opt-env-conf-test] pure Nothing
  1235. 2121.36 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  1236. 2121.36 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1237. 2121.36 s [opt-env-conf-test] Right mA -> case mA of
  1238. 2121.36 s [opt-env-conf-test] Nothing -> do
  1239. 2121.36 s [opt-env-conf-test] debug
  1240. 2121.36 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  1241. 2121.36 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  1242. 2121.36 s [opt-env-conf-test] ]
  1243. 2121.36 s [opt-env-conf-test] pure Nothing
  1244. 2121.36 s [opt-env-conf-test] Just a -> do
  1245. 2121.36 s [opt-env-conf-test] debug
  1246. 2121.36 s [opt-env-conf-test] [ "set based on config value: ",
  1247. 2121.36 s [opt-env-conf-test] chunk $ T.pack $ show v
  1248. 2121.36 s [opt-env-conf-test] ]
  1249. 2121.36 s [opt-env-conf-test] pure $ Just a
  1250. 2121.36 s [opt-env-conf-test] let toRes = \case
  1251. 2121.36 s [opt-env-conf-test] Nothing -> NotFound
  1252. 2121.36 s [opt-env-conf-test] Just a -> Found a
  1253. 2121.36 s [opt-env-conf-test]
  1254. 2121.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  1255. 2121.36 s [opt-env-conf-test] @@ -402,21 +402,20 @@
  1256. 2121.36 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  1257. 2121.36 s [opt-env-conf-test] ]
  1258. 2121.36 s [opt-env-conf-test] pure Nothing
  1259. 2121.36 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  1260. 2121.36 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1261. 2121.36 s [opt-env-conf-test] Right mA -> case mA of
  1262. 2121.36 s [opt-env-conf-test] Nothing -> do
  1263. 2121.36 s [opt-env-conf-test] debug
  1264. 2121.36 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  1265. 2121.36 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  1266. 2121.36 s [opt-env-conf-test] ]
  1267. 2121.36 s [opt-env-conf-test] pure Nothing
  1268. 2121.36 s [opt-env-conf-test] Just a -> do
  1269. 2121.36 s [opt-env-conf-test] debug
  1270. 2121.36 s [opt-env-conf-test] [ "set based on config value: ",
  1271. 2121.36 s [opt-env-conf-test] chunk $ T.pack $ show v
  1272. 2121.36 s [opt-env-conf-test] ]
  1273. 2121.36 s [opt-env-conf-test] pure $ Just a
  1274. 2121.36 s [opt-env-conf-test] let toRes = \case
  1275. 2121.36 s [opt-env-conf-test] Nothing -> NotFound
  1276. 2121.36 s [opt-env-conf-test] Just a -> Found a
  1277. 2121.36 s [opt-env-conf-test]
  1278. 2121.36 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  1279. 2121.36 s [opt-env-conf-test] @@ -390,9 +390,8 @@
  1280. 2121.36 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  1281. 2121.36 s [opt-env-conf-test] Just neRest -> do
  1282. 2121.36 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  1283. 2121.36 s [opt-env-conf-test] case mO' of
  1284. 2121.36 s [opt-env-conf-test] - Nothing -> pure Nothing
  1285. 2121.36 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  1286. 2121.36 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  1287. 2121.36 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1288. 2121.36 s [opt-env-conf-test] Right mV -> case mV of
  1289. 2121.36 s [opt-env-conf-test]
  1290. 2121.36 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:224:38-20
  1291. 2121.36 s [opt-env-conf-test] @@ -221,15 +221,14 @@
  1292. 2121.36 s [opt-env-conf-test] Just c -> do
  1293. 2121.36 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  1294. 2121.36 s [opt-env-conf-test] go $ commandParser c
  1295. 2121.36 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  1296. 2121.36 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  1297. 2121.36 s [opt-env-conf-test] ppIndent $ do
  1298. 2121.36 s [opt-env-conf-test] debug ["loading config"]
  1299. 2121.36 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  1300. 2121.36 s [opt-env-conf-test] debug ["with loaded config"]
  1301. 2121.36 s [opt-env-conf-test] ppIndent $
  1302. 2121.36 s [opt-env-conf-test] local (\e -> e {ppEnvConf = mNewConfig}) $
  1303. 2121.36 s [opt-env-conf-test] go pa
  1304. 2121.36 s [opt-env-conf-test] ParserSetting mLoc set@Setting {..} -> do
  1305. 2121.36 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  1306. 2121.36 s [opt-env-conf-test] when (not (Set.null settingRequiredCapabilities)) $
  1307. 2121.36 s [opt-env-conf-test]
  1308. 2121.36 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:221:27-39
  1309. 2121.36 s [opt-env-conf-test] @@ -218,9 +218,8 @@
  1310. 2121.36 s [opt-env-conf-test] Just s -> do
  1311. 2121.36 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  1312. 2121.36 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  1313. 2121.36 s [opt-env-conf-test] Just c -> do
  1314. 2121.36 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  1315. 2121.36 s [opt-env-conf-test] go $ commandParser c
  1316. 2121.36 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  1317. 2121.36 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  1318. 2121.36 s [opt-env-conf-test] ppIndent $ do
  1319. 2121.36 s [opt-env-conf-test]
  1320. 2121.36 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:215:28-40
  1321. 2121.36 s [opt-env-conf-test] @@ -212,9 +212,8 @@
  1322. 2121.36 s [opt-env-conf-test] find ((== d) . commandArg) cs
  1323. 2121.36 s [opt-env-conf-test] case mDefaultCommand of
  1324. 2121.36 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  1325. 2121.36 s [opt-env-conf-test] Just dc -> do
  1326. 2121.36 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  1327. 2121.36 s [opt-env-conf-test] go $ commandParser dc
  1328. 2121.36 s [opt-env-conf-test] Just s -> do
  1329. 2121.36 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  1330. 2121.36 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  1331. 2121.36 s [opt-env-conf-test]
  1332. 2121.36 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:195:29-70
  1333. 2121.36 s [opt-env-conf-test] @@ -192,9 +192,8 @@
  1334. 2121.36 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  1335. 2121.36 s [opt-env-conf-test] errOrB <- liftIO $ f a
  1336. 2121.36 s [opt-env-conf-test] case errOrB of
  1337. 2121.36 s [opt-env-conf-test] Left err -> do
  1338. 2121.36 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  1339. 2121.36 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  1340. 2121.36 s [opt-env-conf-test] Right b -> do
  1341. 2121.36 s [opt-env-conf-test] debug ["succeeded"]
  1342. 2121.36 s [opt-env-conf-test] pure b
  1343. 2121.36 s [opt-env-conf-test]
  1344. 2121.36 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:197:56-66
  1345. 2121.36 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  1346. 2121.36 s [opt-env-conf-test] case errOrB of
  1347. 2121.36 s [opt-env-conf-test] Left err -> do
  1348. 2121.36 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  1349. 2121.36 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  1350. 2121.36 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed False err
  1351. 2121.36 s [opt-env-conf-test] Right b -> do
  1352. 2121.36 s [opt-env-conf-test] debug ["succeeded"]
  1353. 2121.36 s [opt-env-conf-test] pure b
  1354. 2121.36 s [opt-env-conf-test]
  1355. 2121.36 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  1356. 2121.36 s [opt-env-conf-test] @@ -193,7 +193,6 @@
  1357. 2121.36 s [opt-env-conf-test] errOrB <- liftIO $ f a
  1358. 2121.36 s [opt-env-conf-test] case errOrB of
  1359. 2121.36 s [opt-env-conf-test] Left err -> do
  1360. 2121.36 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  1361. 2121.36 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  1362. 2121.36 s [opt-env-conf-test] Right b -> do
  1363. 2121.36 s [opt-env-conf-test] debug ["succeeded"]
  1364. 2121.36 s [opt-env-conf-test]
  1365. 2121.36 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  1366. 2121.36 s [opt-env-conf-test] @@ -193,7 +193,6 @@
  1367. 2121.36 s [opt-env-conf-test] errOrB <- liftIO $ f a
  1368. 2121.36 s [opt-env-conf-test] case errOrB of
  1369. 2121.36 s [opt-env-conf-test] Left err -> do
  1370. 2121.36 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  1371. 2121.36 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  1372. 2121.36 s [opt-env-conf-test] Right b -> do
  1373. 2121.36 s [opt-env-conf-test] debug ["succeeded"]
  1374. 2121.36 s [opt-env-conf-test]
  1375. 2121.36 s [opt-env-conf-test] Negate at src/OptEnvConf/Run.hs:196:72-82
  1376. 2121.36 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  1377. 2121.36 s [opt-env-conf-test] errOrB <- liftIO $ f a
  1378. 2121.36 s [opt-env-conf-test] case errOrB of
  1379. 2121.36 s [opt-env-conf-test] Left err -> do
  1380. 2121.36 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  1381. 2121.36 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
  1382. 2121.36 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  1383. 2121.36 s [opt-env-conf-test] Right b -> do
  1384. 2121.36 s [opt-env-conf-test] debug ["succeeded"]
  1385. 2121.36 s [opt-env-conf-test]
  1386. 2121.36 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:196:72-82
  1387. 2121.36 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  1388. 2121.36 s [opt-env-conf-test] errOrB <- liftIO $ f a
  1389. 2121.36 s [opt-env-conf-test] case errOrB of
  1390. 2121.36 s [opt-env-conf-test] Left err -> do
  1391. 2121.36 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  1392. 2121.36 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show True]
  1393. 2121.36 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  1394. 2121.36 s [opt-env-conf-test] Right b -> do
  1395. 2121.36 s [opt-env-conf-test] debug ["succeeded"]
  1396. 2121.36 s [opt-env-conf-test]
  1397. 2121.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:150:37-112
  1398. 2121.37 s [opt-env-conf-test] @@ -147,34 +147,33 @@
  1399. 2121.37 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  1400. 2121.37 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  1401. 2121.37 s [opt-env-conf-test] pure (a :| as)
  1402. 2121.37 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  1403. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  1404. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1405. 2121.37 s [opt-env-conf-test] e <- ask
  1406. 2121.37 s [opt-env-conf-test] s <- get
  1407. 2121.37 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  1408. 2121.37 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  1409. 2121.37 s [opt-env-conf-test] put s'
  1410. 2121.37 s [opt-env-conf-test] case result of
  1411. 2121.37 s [opt-env-conf-test] Success a -> pure a
  1412. 2121.37 s [opt-env-conf-test] Failure errs -> do
  1413. 2121.37 s [opt-env-conf-test] if not $ all errorIsForgivable errs
  1414. 2121.37 s [opt-env-conf-test] then ppErrors' errs
  1415. 2121.37 s [opt-env-conf-test] else do
  1416. 2121.37 s [opt-env-conf-test] -- Settings available below
  1417. 2121.37 s [opt-env-conf-test] let settingsMap = parserSettingsMap p'
  1418. 2121.37 s [opt-env-conf-test] -- Settings that have been parsed
  1419. 2121.37 s [opt-env-conf-test] parsedMap <- gets ppStateParsedSettings
  1420. 2121.37 s [opt-env-conf-test] -- Settings that have been parsed below
  1421. 2121.37 s [opt-env-conf-test] let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  1422. 2121.37 s [opt-env-conf-test] -- If any settings have been parsed below, and parsing still failed
  1423. 2121.37 s [opt-env-conf-test] -- (this is the case because we're in the failure branch)
  1424. 2121.37 s [opt-env-conf-test] -- with only forgivable errors
  1425. 2121.37 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  1426. 2121.37 s [opt-env-conf-test] -- then this should be an unforgivable error.
  1427. 2121.37 s [opt-env-conf-test] if null parsedSettingsMap
  1428. 2121.37 s [opt-env-conf-test] then ppErrors' errs
  1429. 2121.37 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  1430. 2121.37 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  1431. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  1432. 2121.37 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  1433. 2121.37 s [opt-env-conf-test]
  1434. 2121.37 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:18-50
  1435. 2121.37 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  1436. 2121.37 s [opt-env-conf-test] case result of
  1437. 2121.37 s [opt-env-conf-test] Success a -> pure a
  1438. 2121.37 s [opt-env-conf-test] Failure errs -> do
  1439. 2121.37 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  1440. 2121.37 s [opt-env-conf-test] + if False
  1441. 2121.37 s [opt-env-conf-test] then ppErrors' errs
  1442. 2121.37 s [opt-env-conf-test] else do
  1443. 2121.37 s [opt-env-conf-test] -- Settings available below
  1444. 2121.37 s [opt-env-conf-test]
  1445. 2121.37 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:24-50
  1446. 2121.37 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  1447. 2121.37 s [opt-env-conf-test] case result of
  1448. 2121.37 s [opt-env-conf-test] Success a -> pure a
  1449. 2121.37 s [opt-env-conf-test] Failure errs -> do
  1450. 2121.37 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  1451. 2121.37 s [opt-env-conf-test] + if not $ True
  1452. 2121.37 s [opt-env-conf-test] then ppErrors' errs
  1453. 2121.37 s [opt-env-conf-test] else do
  1454. 2121.37 s [opt-env-conf-test] -- Settings available below
  1455. 2121.37 s [opt-env-conf-test]
  1456. 2121.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:143:29-25
  1457. 2121.37 s [opt-env-conf-test] @@ -140,13 +140,12 @@
  1458. 2121.37 s [opt-env-conf-test] Just a -> do
  1459. 2121.37 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  1460. 2121.37 s [opt-env-conf-test] pure (a : as)
  1461. 2121.37 s [opt-env-conf-test] ParserSome mLoc p' -> do
  1462. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  1463. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1464. 2121.37 s [opt-env-conf-test] a <- go p'
  1465. 2121.37 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  1466. 2121.37 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  1467. 2121.37 s [opt-env-conf-test] pure (a :| as)
  1468. 2121.37 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  1469. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  1470. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1471. 2121.37 s [opt-env-conf-test]
  1472. 2121.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:134:29-28
  1473. 2121.37 s [opt-env-conf-test] @@ -131,15 +131,14 @@
  1474. 2121.37 s [opt-env-conf-test] Nothing -> do
  1475. 2121.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  1476. 2121.37 s [opt-env-conf-test] ppIndent $ go p2
  1477. 2121.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  1478. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  1479. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1480. 2121.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  1481. 2121.37 s [opt-env-conf-test] case eor of
  1482. 2121.37 s [opt-env-conf-test] Nothing -> pure []
  1483. 2121.37 s [opt-env-conf-test] Just a -> do
  1484. 2121.37 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  1485. 2121.37 s [opt-env-conf-test] pure (a : as)
  1486. 2121.37 s [opt-env-conf-test] ParserSome mLoc p' -> do
  1487. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  1488. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1489. 2121.37 s [opt-env-conf-test]
  1490. 2121.37 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  1491. 2121.37 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  1492. 2121.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  1493. 2121.37 s [opt-env-conf-test] ppIndent $ go p2
  1494. 2121.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  1495. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  1496. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1497. 2121.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  1498. 2121.37 s [opt-env-conf-test] case eor of
  1499. 2121.37 s [opt-env-conf-test]
  1500. 2121.37 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  1501. 2121.37 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  1502. 2121.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  1503. 2121.37 s [opt-env-conf-test] ppIndent $ go p2
  1504. 2121.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  1505. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  1506. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1507. 2121.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  1508. 2121.37 s [opt-env-conf-test] case eor of
  1509. 2121.37 s [opt-env-conf-test]
  1510. 2121.37 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  1511. 2121.37 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  1512. 2121.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  1513. 2121.37 s [opt-env-conf-test] ppIndent $ go p2
  1514. 2121.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  1515. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  1516. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1517. 2121.37 s [opt-env-conf-test] eor <- tryPP $ go p'
  1518. 2121.37 s [opt-env-conf-test] case eor of
  1519. 2121.37 s [opt-env-conf-test]
  1520. 2121.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:122:26-31
  1521. 2121.37 s [opt-env-conf-test] @@ -119,18 +119,17 @@
  1522. 2121.37 s [opt-env-conf-test] ParserSelect fe ff -> do
  1523. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  1524. 2121.37 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  1525. 2121.37 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  1526. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  1527. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1528. 2121.37 s [opt-env-conf-test] debug ["Trying left side."]
  1529. 2121.37 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  1530. 2121.37 s [opt-env-conf-test] case eor of
  1531. 2121.37 s [opt-env-conf-test] Just a -> do
  1532. 2121.37 s [opt-env-conf-test] debug ["Left side succeeded."]
  1533. 2121.37 s [opt-env-conf-test] pure a
  1534. 2121.37 s [opt-env-conf-test] Nothing -> do
  1535. 2121.37 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  1536. 2121.37 s [opt-env-conf-test] ppIndent $ go p2
  1537. 2121.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  1538. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  1539. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1540. 2121.37 s [opt-env-conf-test]
  1541. 2121.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:131:24-31
  1542. 2121.37 s [opt-env-conf-test] @@ -128,9 +128,8 @@
  1543. 2121.37 s [opt-env-conf-test] Just a -> do
  1544. 2121.37 s [opt-env-conf-test] debug ["Left side succeeded."]
  1545. 2121.37 s [opt-env-conf-test] pure a
  1546. 2121.37 s [opt-env-conf-test] Nothing -> do
  1547. 2121.37 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  1548. 2121.37 s [opt-env-conf-test] ppIndent $ go p2
  1549. 2121.37 s [opt-env-conf-test] ParserMany mLoc p' -> do
  1550. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  1551. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1552. 2121.37 s [opt-env-conf-test]
  1553. 2121.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:119:29-42
  1554. 2121.37 s [opt-env-conf-test] @@ -116,9 +116,8 @@
  1555. 2121.37 s [opt-env-conf-test] ParserEmpty mLoc -> do
  1556. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  1557. 2121.37 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  1558. 2121.37 s [opt-env-conf-test] ParserSelect fe ff -> do
  1559. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  1560. 2121.37 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  1561. 2121.37 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  1562. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Alt"]
  1563. 2121.37 s [opt-env-conf-test] ppIndent $ do
  1564. 2121.37 s [opt-env-conf-test]
  1565. 2121.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:116:27-37
  1566. 2121.37 s [opt-env-conf-test] @@ -113,9 +113,8 @@
  1567. 2121.37 s [opt-env-conf-test] ParserAp ff fa -> do
  1568. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  1569. 2121.37 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  1570. 2121.37 s [opt-env-conf-test] ParserEmpty mLoc -> do
  1571. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  1572. 2121.37 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  1573. 2121.37 s [opt-env-conf-test] ParserSelect fe ff -> do
  1574. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  1575. 2121.37 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  1576. 2121.37 s [opt-env-conf-test]
  1577. 2121.37 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:113:25-35
  1578. 2121.37 s [opt-env-conf-test] @@ -110,9 +110,8 @@
  1579. 2121.37 s [opt-env-conf-test] ParserPure a -> do
  1580. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  1581. 2121.37 s [opt-env-conf-test] pure a
  1582. 2121.37 s [opt-env-conf-test] ParserAp ff fa -> do
  1583. 2121.37 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  1584. 2121.37 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  1585. 2121.37 s [opt-env-conf-test] ParserEmpty mLoc -> do
  1586. 2121.37 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  1587. 2121.37 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  1588. 2121.37 s [opt-env-conf-test]
  1589. 2121.37 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  1590. 2121.37 s [opt-env-conf-test] @@ -81,27 +81,26 @@
  1591. 2121.37 s [opt-env-conf-test] Nothing -> pure result
  1592. 2121.37 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  1593. 2121.37 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  1594. 2121.37 s [opt-env-conf-test] case mTup of
  1595. 2121.37 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  1596. 2121.37 s [opt-env-conf-test] Just ((errOrRes, _), nexts) -> case errOrRes of
  1597. 2121.37 s [opt-env-conf-test] Success a -> pure (Right a)
  1598. 2121.37 s [opt-env-conf-test] Failure firstErrors ->
  1599. 2121.37 s [opt-env-conf-test] let goNexts ns = do
  1600. 2121.37 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  1601. 2121.37 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  1602. 2121.37 s [opt-env-conf-test] case mNext of
  1603. 2121.37 s [opt-env-conf-test] Nothing ->
  1604. 2121.37 s [opt-env-conf-test] pure $
  1605. 2121.37 s [opt-env-conf-test] Left $
  1606. 2121.37 s [opt-env-conf-test] -- Only show source locations in debug mode.
  1607. 2121.37 s [opt-env-conf-test] let f = case mDebugMode of
  1608. 2121.37 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  1609. 2121.37 s [opt-env-conf-test] Just _ -> id
  1610. 2121.37 s [opt-env-conf-test] in f firstErrors
  1611. 2121.37 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  1612. 2121.37 s [opt-env-conf-test] Success a -> pure (Right a)
  1613. 2121.37 s [opt-env-conf-test] Failure _ -> goNexts ns'
  1614. 2121.37 s [opt-env-conf-test] in goNexts nexts
  1615. 2121.37 s [opt-env-conf-test] where
  1616. 2121.37 s [opt-env-conf-test] go ::
  1617. 2121.37 s [opt-env-conf-test] Parser a ->
  1618. 2121.38 s [opt-env-conf-test]
  1619. 2121.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:464:22-66
  1620. 2121.38 s [opt-env-conf-test] @@ -461,11 +461,8 @@
  1621. 2121.38 s [opt-env-conf-test] PP a
  1622. 2121.38 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  1623. 2121.38 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  1624. 2121.38 s [opt-env-conf-test] Just missings -> do
  1625. 2121.38 s [opt-env-conf-test] - debug $
  1626. 2121.38 s [opt-env-conf-test] - "Missing capabilities: "
  1627. 2121.38 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  1628. 2121.38 s [opt-env-conf-test] ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  1629. 2121.38 s [opt-env-conf-test] Nothing -> func
  1630. 2121.38 s [opt-env-conf-test]
  1631. 2121.38 s [opt-env-conf-test] data ParseResult a
  1632. 2121.38 s [opt-env-conf-test]
  1633. 2121.38 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  1634. 2121.38 s [opt-env-conf-test] @@ -474,9 +474,8 @@
  1635. 2121.38 s [opt-env-conf-test] | Found a
  1636. 2121.38 s [opt-env-conf-test]
  1637. 2121.38 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  1638. 2121.38 s [opt-env-conf-test] requireReaders rs = case NE.nonEmpty rs of
  1639. 2121.38 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  1640. 2121.38 s [opt-env-conf-test] Just ne -> pure ne
  1641. 2121.38 s [opt-env-conf-test]
  1642. 2121.38 s [opt-env-conf-test] -- Try the readers in order
  1643. 2121.38 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  1644. 2121.38 s [opt-env-conf-test]
  1645. 2121.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:568:44-43
  1646. 2121.38 s [opt-env-conf-test] @@ -565,12 +565,11 @@
  1647. 2121.38 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  1648. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  1649. 2121.38 s [opt-env-conf-test] ppIndent $ go p'
  1650. 2121.38 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  1651. 2121.38 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  1652. 2121.38 s [opt-env-conf-test] ppIndent $ do
  1653. 2121.38 s [opt-env-conf-test] mNewConfig <- go pc
  1654. 2121.38 s [opt-env-conf-test] mRes <- go pa
  1655. 2121.38 s [opt-env-conf-test] pure $ mRes <|> mNewConfig -- Reverse order
  1656. 2121.38 s [opt-env-conf-test] ParserSetting mLoc _ -> do
  1657. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  1658. 2121.38 s [opt-env-conf-test] pure Nothing
  1659. 2121.38 s [opt-env-conf-test]
  1660. 2121.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:565:42-31
  1661. 2121.38 s [opt-env-conf-test] @@ -562,9 +562,8 @@
  1662. 2121.38 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  1663. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  1664. 2121.38 s [opt-env-conf-test] ppIndent $ go p'
  1665. 2121.38 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  1666. 2121.38 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  1667. 2121.38 s [opt-env-conf-test] ppIndent $ go p'
  1668. 2121.38 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  1669. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  1670. 2121.38 s [opt-env-conf-test] ppIndent $ do
  1671. 2121.38 s [opt-env-conf-test]
  1672. 2121.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:562:43-31
  1673. 2121.38 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  1674. 2121.38 s [opt-env-conf-test] ParserSome mLoc p' -> do
  1675. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  1676. 2121.38 s [opt-env-conf-test] ppIndent $ go p'
  1677. 2121.38 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  1678. 2121.38 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  1679. 2121.38 s [opt-env-conf-test] ppIndent $ go p'
  1680. 2121.38 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  1681. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  1682. 2121.38 s [opt-env-conf-test] ppIndent $ go p'
  1683. 2121.38 s [opt-env-conf-test]
  1684. 2121.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:544:32-37
  1685. 2121.38 s [opt-env-conf-test] @@ -541,18 +541,17 @@
  1686. 2121.38 s [opt-env-conf-test] ParserEmpty mLoc -> do
  1687. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  1688. 2121.38 s [opt-env-conf-test] pure Nothing
  1689. 2121.38 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  1690. 2121.38 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  1691. 2121.38 s [opt-env-conf-test] ppIndent $ do
  1692. 2121.38 s [opt-env-conf-test] debug ["Trying left side."]
  1693. 2121.38 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  1694. 2121.38 s [opt-env-conf-test] case eor of
  1695. 2121.38 s [opt-env-conf-test] Just a -> do
  1696. 2121.38 s [opt-env-conf-test] debug ["Left side succeeded."]
  1697. 2121.38 s [opt-env-conf-test] pure a
  1698. 2121.38 s [opt-env-conf-test] Nothing -> do
  1699. 2121.38 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  1700. 2121.38 s [opt-env-conf-test] ppIndent $ go p2
  1701. 2121.38 s [opt-env-conf-test] ParserMany mLoc p' -> do
  1702. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  1703. 2121.38 s [opt-env-conf-test] ppIndent $ go p'
  1704. 2121.38 s [opt-env-conf-test]
  1705. 2121.38 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  1706. 2121.38 s [opt-env-conf-test] @@ -546,13 +546,10 @@
  1707. 2121.38 s [opt-env-conf-test] ppIndent $ do
  1708. 2121.38 s [opt-env-conf-test] debug ["Trying left side."]
  1709. 2121.38 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  1710. 2121.38 s [opt-env-conf-test] case eor of
  1711. 2121.38 s [opt-env-conf-test] Just a -> do
  1712. 2121.38 s [opt-env-conf-test] debug ["Left side succeeded."]
  1713. 2121.38 s [opt-env-conf-test] pure a
  1714. 2121.38 s [opt-env-conf-test] - Nothing -> do
  1715. 2121.38 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  1716. 2121.38 s [opt-env-conf-test] - ppIndent $ go p2
  1717. 2121.38 s [opt-env-conf-test] ParserMany mLoc p' -> do
  1718. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  1719. 2121.38 s [opt-env-conf-test] ppIndent $ go p'
  1720. 2121.38 s [opt-env-conf-test]
  1721. 2121.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:529:31-33
  1722. 2121.38 s [opt-env-conf-test] @@ -526,12 +526,11 @@
  1723. 2121.38 s [opt-env-conf-test] ParserPure _ -> do
  1724. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  1725. 2121.38 s [opt-env-conf-test] pure Nothing
  1726. 2121.38 s [opt-env-conf-test] ParserAp ff fa -> do
  1727. 2121.38 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  1728. 2121.38 s [opt-env-conf-test] ppIndent $ do
  1729. 2121.38 s [opt-env-conf-test] mf <- go ff
  1730. 2121.38 s [opt-env-conf-test] ma <- go fa
  1731. 2121.38 s [opt-env-conf-test] pure $ ma <|> mf -- Reverse order
  1732. 2121.38 s [opt-env-conf-test] ParserSelect fe ff -> do
  1733. 2121.38 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  1734. 2121.38 s [opt-env-conf-test] ppIndent $ do
  1735. 2121.38 s [opt-env-conf-test]
  1736. 2121.38 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  1737. 2121.38 s [opt-env-conf-test] @@ -511,11 +511,10 @@
  1738. 2121.38 s [opt-env-conf-test] ppEnvIndent = 0
  1739. 2121.38 s [opt-env-conf-test] }
  1740. 2121.38 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  1741. 2121.38 s [opt-env-conf-test] case mResOrNext of
  1742. 2121.38 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  1743. 2121.38 s [opt-env-conf-test] Just ((result, _), _) -> pure $ case result of
  1744. 2121.38 s [opt-env-conf-test] Failure errs -> Left errs
  1745. 2121.38 s [opt-env-conf-test] Success mDocs -> Right mDocs
  1746. 2121.38 s [opt-env-conf-test] where
  1747. 2121.38 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  1748. 2121.38 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  1749. 2121.38 s [opt-env-conf-test]
  1750. 2121.38 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  1751. 2121.38 s [opt-env-conf-test] @@ -513,9 +513,8 @@
  1752. 2121.38 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  1753. 2121.38 s [opt-env-conf-test] case mResOrNext of
  1754. 2121.38 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  1755. 2121.38 s [opt-env-conf-test] Just ((result, _), _) -> pure $ case result of
  1756. 2121.38 s [opt-env-conf-test] - Failure errs -> Left errs
  1757. 2121.38 s [opt-env-conf-test] Success mDocs -> Right mDocs
  1758. 2121.38 s [opt-env-conf-test] where
  1759. 2121.38 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  1760. 2121.38 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  1761. 2121.38 s [opt-env-conf-test]
  1762. 2121.38 s [opt-env-conf-test] IntLit at src/OptEnvConf/Run.hs:511:27-28
  1763. 2121.38 s [opt-env-conf-test] @@ -508,7 +508,7 @@
  1764. 2121.38 s [opt-env-conf-test] { ppEnvEnv = EnvMap.empty,
  1765. 2121.38 s [opt-env-conf-test] ppEnvConf = Nothing,
  1766. 2121.38 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  1767. 2121.38 s [opt-env-conf-test] - ppEnvIndent = 0
  1768. 2121.38 s [opt-env-conf-test] + ppEnvIndent = 1
  1769. 2121.38 s [opt-env-conf-test] }
  1770. 2121.38 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  1771. 2121.38 s [opt-env-conf-test] case mResOrNext of
  1772. 2121.38 s [opt-env-conf-test]
  1773. 2121.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
  1774. 2121.38 s [opt-env-conf-test] @@ -367,11 +367,10 @@
  1775. 2121.38 s [opt-env-conf-test] | not (null commandDocs)
  1776. 2121.38 s [opt-env-conf-test] ],
  1777. 2121.38 s [opt-env-conf-test] concat
  1778. 2121.38 s [opt-env-conf-test] [ [ headerChunks "Options",
  1779. 2121.38 s [opt-env-conf-test] renderLongOptDocs optDocs
  1780. 2121.38 s [opt-env-conf-test] ]
  1781. 2121.38 s [opt-env-conf-test] - | not (nullDocs optDocs)
  1782. 2121.38 s [opt-env-conf-test] ],
  1783. 2121.38 s [opt-env-conf-test] concat
  1784. 2121.38 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  1785. 2121.38 s [opt-env-conf-test] renderEnvDocs envDocs
  1786. 2121.38 s [opt-env-conf-test]
  1787. 2121.38 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:373:17-39
  1788. 2121.38 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  1789. 2121.38 s [opt-env-conf-test] [ [ headerChunks "Options",
  1790. 2121.38 s [opt-env-conf-test] renderLongOptDocs optDocs
  1791. 2121.38 s [opt-env-conf-test] ]
  1792. 2121.38 s [opt-env-conf-test] - | not (nullDocs optDocs)
  1793. 2121.38 s [opt-env-conf-test] + | True
  1794. 2121.38 s [opt-env-conf-test] ],
  1795. 2121.38 s [opt-env-conf-test] concat
  1796. 2121.38 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  1797. 2121.38 s [opt-env-conf-test]
  1798. 2121.38 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
  1799. 2121.38 s [opt-env-conf-test] @@ -326,11 +326,10 @@
  1800. 2121.38 s [opt-env-conf-test] | not (null commandDocs)
  1801. 2121.38 s [opt-env-conf-test] ],
  1802. 2121.38 s [opt-env-conf-test] concat
  1803. 2121.38 s [opt-env-conf-test] [ [ [".Sh ", "OPTIONS"],
  1804. 2121.38 s [opt-env-conf-test] renderLongOptDocs optDocs
  1805. 2121.38 s [opt-env-conf-test] ]
  1806. 2121.38 s [opt-env-conf-test] - | not (nullDocs optDocs)
  1807. 2121.38 s [opt-env-conf-test] ],
  1808. 2121.38 s [opt-env-conf-test] concat
  1809. 2121.38 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  1810. 2121.38 s [opt-env-conf-test] renderEnvDocs envDocs
  1811. 2121.38 s [opt-env-conf-test]
  1812. 2121.38 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:332:17-39
  1813. 2121.38 s [opt-env-conf-test] @@ -329,7 +329,7 @@
  1814. 2121.38 s [opt-env-conf-test] [ [ [".Sh ", "OPTIONS"],
  1815. 2121.38 s [opt-env-conf-test] renderLongOptDocs optDocs
  1816. 2121.38 s [opt-env-conf-test] ]
  1817. 2121.38 s [opt-env-conf-test] - | not (nullDocs optDocs)
  1818. 2121.38 s [opt-env-conf-test] + | True
  1819. 2121.38 s [opt-env-conf-test] ],
  1820. 2121.38 s [opt-env-conf-test] concat
  1821. 2121.38 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  1822. 2121.38 s [opt-env-conf-test]
  1823. 2121.38 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
  1824. 2121.38 s [opt-env-conf-test] @@ -565,21 +565,20 @@
  1825. 2121.38 s [opt-env-conf-test] [] -> []
  1826. 2121.39 s [opt-env-conf-test] [d] -> go isTopLevel d
  1827. 2121.39 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  1828. 2121.39 s [opt-env-conf-test] case setDocHelp d of
  1829. 2121.39 s [opt-env-conf-test] - Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  1830. 2121.39 s [opt-env-conf-test] Just h ->
  1831. 2121.39 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  1832. 2121.39 s [opt-env-conf-test] in concat
  1833. 2121.39 s [opt-env-conf-test] [ concat
  1834. 2121.39 s [opt-env-conf-test] [ concat
  1835. 2121.39 s [opt-env-conf-test] [ indent $ renderSetDocHeader (Just h),
  1836. 2121.39 s [opt-env-conf-test] indent $ concatMap renderSetDocWithoutHeader $ d : sds,
  1837. 2121.39 s [opt-env-conf-test] [[]]
  1838. 2121.39 s [opt-env-conf-test] ]
  1839. 2121.39 s [opt-env-conf-test] | not isTopLevel
  1840. 2121.39 s [opt-env-conf-test] ],
  1841. 2121.39 s [opt-env-conf-test] goOr isTopLevel rest
  1842. 2121.39 s [opt-env-conf-test] ]
  1843. 2121.39 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  1844. 2121.39 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  1845. 2121.39 s [opt-env-conf-test] goSameHelp h = \case
  1846. 2121.39 s [opt-env-conf-test]
  1847. 2121.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:581:26-36
  1848. 2121.39 s [opt-env-conf-test] @@ -578,7 +578,7 @@
  1849. 2121.39 s [opt-env-conf-test] ]
  1850. 2121.39 s [opt-env-conf-test] | not isTopLevel
  1851. 2121.39 s [opt-env-conf-test] ],
  1852. 2121.39 s [opt-env-conf-test] - goOr isTopLevel rest
  1853. 2121.39 s [opt-env-conf-test] + goOr True rest
  1854. 2121.39 s [opt-env-conf-test] ]
  1855. 2121.39 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  1856. 2121.39 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  1857. 2121.39 s [opt-env-conf-test]
  1858. 2121.39 s [opt-env-conf-test] Negate at src/OptEnvConf/Doc.hs:566:17-27
  1859. 2121.39 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  1860. 2121.39 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  1861. 2121.39 s [opt-env-conf-test] goOr isTopLevel = \case
  1862. 2121.39 s [opt-env-conf-test] [] -> []
  1863. 2121.39 s [opt-env-conf-test] - [d] -> go isTopLevel d
  1864. 2121.39 s [opt-env-conf-test] + [d] -> go not (isTopLevel) d
  1865. 2121.39 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  1866. 2121.39 s [opt-env-conf-test] case setDocHelp d of
  1867. 2121.39 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  1868. 2121.39 s [opt-env-conf-test]
  1869. 2121.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:566:17-27
  1870. 2121.39 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  1871. 2121.39 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  1872. 2121.39 s [opt-env-conf-test] goOr isTopLevel = \case
  1873. 2121.39 s [opt-env-conf-test] [] -> []
  1874. 2121.39 s [opt-env-conf-test] - [d] -> go isTopLevel d
  1875. 2121.39 s [opt-env-conf-test] + [d] -> go True d
  1876. 2121.39 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  1877. 2121.39 s [opt-env-conf-test] case setDocHelp d of
  1878. 2121.39 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  1879. 2121.39 s [opt-env-conf-test]
  1880. 2121.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:588:12-34
  1881. 2121.39 s [opt-env-conf-test] @@ -585,7 +585,7 @@
  1882. 2121.39 s [opt-env-conf-test] goSameHelp h = \case
  1883. 2121.39 s [opt-env-conf-test] [] -> ([], [])
  1884. 2121.39 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  1885. 2121.39 s [opt-env-conf-test] - if setDocHelp d == Just h
  1886. 2121.39 s [opt-env-conf-test] + if True
  1887. 2121.39 s [opt-env-conf-test] then
  1888. 2121.39 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  1889. 2121.39 s [opt-env-conf-test] in (d : sds, rest)
  1890. 2121.39 s [opt-env-conf-test]
  1891. 2121.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
  1892. 2121.39 s [opt-env-conf-test] @@ -529,12 +529,11 @@
  1893. 2121.39 s [opt-env-conf-test] [] -> []
  1894. 2121.39 s [opt-env-conf-test] [d] -> [go' d]
  1895. 2121.39 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  1896. 2121.39 s [opt-env-conf-test] case setDocHelp d of
  1897. 2121.39 s [opt-env-conf-test] - Nothing -> go' (AnyDocsSingle d) : goOr' ds
  1898. 2121.39 s [opt-env-conf-test] Just h ->
  1899. 2121.39 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  1900. 2121.39 s [opt-env-conf-test] ne = d :| sds
  1901. 2121.39 s [opt-env-conf-test] in AnyDocsSingle ne : goOr' rest
  1902. 2121.39 s [opt-env-conf-test] (d : ds) -> go' d : goOr' ds
  1903. 2121.39 s [opt-env-conf-test]
  1904. 2121.39 s [opt-env-conf-test] renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
  1905. 2121.39 s [opt-env-conf-test]
  1906. 2121.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
  1907. 2121.39 s [opt-env-conf-test] @@ -256,18 +256,16 @@
  1908. 2121.39 s [opt-env-conf-test] concat
  1909. 2121.39 s [opt-env-conf-test] [ concatMap
  1910. 2121.39 s [opt-env-conf-test] ( \(key, schema) ->
  1911. 2121.39 s [opt-env-conf-test] case jsonSchemaChunkLines schema of
  1912. 2121.39 s [opt-env-conf-test] - [line] ->
  1913. 2121.39 s [opt-env-conf-test] - [["config: ", confValChunk key, ": "] ++ line]
  1914. 2121.39 s [opt-env-conf-test] ls ->
  1915. 2121.39 s [opt-env-conf-test] ["config:"]
  1916. 2121.39 s [opt-env-conf-test] : indent
  1917. 2121.39 s [opt-env-conf-test] ( case ls of
  1918. 2121.39 s [opt-env-conf-test] [] -> [["TODO"]]
  1919. 2121.39 s [opt-env-conf-test] (l : ll) ->
  1920. 2121.39 s [opt-env-conf-test] ([confValChunk key, ": "] ++ l)
  1921. 2121.39 s [opt-env-conf-test] : indent ll
  1922. 2121.39 s [opt-env-conf-test] )
  1923. 2121.39 s [opt-env-conf-test] )
  1924. 2121.39 s [opt-env-conf-test] (NE.toList confs)
  1925. 2121.39 s [opt-env-conf-test] | confs <- maybeToList setDocConfKeys
  1926. 2121.39 s [opt-env-conf-test]
  1927. 2121.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
  1928. 2121.39 s [opt-env-conf-test] @@ -262,11 +262,10 @@
  1929. 2121.39 s [opt-env-conf-test] ls ->
  1930. 2121.39 s [opt-env-conf-test] ["config:"]
  1931. 2121.39 s [opt-env-conf-test] : indent
  1932. 2121.39 s [opt-env-conf-test] ( case ls of
  1933. 2121.39 s [opt-env-conf-test] - [] -> [["TODO"]]
  1934. 2121.39 s [opt-env-conf-test] (l : ll) ->
  1935. 2121.39 s [opt-env-conf-test] ([confValChunk key, ": "] ++ l)
  1936. 2121.39 s [opt-env-conf-test] : indent ll
  1937. 2121.39 s [opt-env-conf-test] )
  1938. 2121.39 s [opt-env-conf-test] )
  1939. 2121.39 s [opt-env-conf-test] (NE.toList confs)
  1940. 2121.39 s [opt-env-conf-test]
  1941. 2121.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
  1942. 2121.39 s [opt-env-conf-test] @@ -658,29 +658,28 @@
  1943. 2121.39 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  1944. 2121.39 s [opt-env-conf-test] [] -> Nothing
  1945. 2121.39 s [opt-env-conf-test] cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
  1946. 2121.39 s [opt-env-conf-test] AnyDocsSingle mOd -> case mOd of
  1947. 2121.39 s [opt-env-conf-test] - Nothing -> Nothing
  1948. 2121.39 s [opt-env-conf-test] Just OptDoc {..} ->
  1949. 2121.39 s [opt-env-conf-test] Just
  1950. 2121.39 s [opt-env-conf-test] $ ( if isJust optDocDefault
  1951. 2121.39 s [opt-env-conf-test] then bracketise
  1952. 2121.39 s [opt-env-conf-test] else id
  1953. 2121.39 s [opt-env-conf-test] )
  1954. 2121.39 s [opt-env-conf-test] $ unwordsChunks
  1955. 2121.39 s [opt-env-conf-test] $ concat
  1956. 2121.39 s [opt-env-conf-test] [ [ [mMetavarChunk optDocMetavar]
  1957. 2121.39 s [opt-env-conf-test] | optDocTryArgument
  1958. 2121.39 s [opt-env-conf-test] ],
  1959. 2121.39 s [opt-env-conf-test] [ concat $ maybeToList $ dashedChunks optDocDasheds
  1960. 2121.39 s [opt-env-conf-test] | optDocTrySwitch
  1961. 2121.39 s [opt-env-conf-test] ],
  1962. 2121.39 s [opt-env-conf-test] [ concat
  1963. 2121.39 s [opt-env-conf-test] [ concat $ maybeToList $ dashedChunks optDocDasheds,
  1964. 2121.39 s [opt-env-conf-test] [" ", mMetavarChunk optDocMetavar]
  1965. 2121.39 s [opt-env-conf-test] ]
  1966. 2121.39 s [opt-env-conf-test] | optDocTryOption
  1967. 2121.39 s [opt-env-conf-test] ]
  1968. 2121.39 s [opt-env-conf-test] ]
  1969. 2121.39 s [opt-env-conf-test]
  1970. 2121.39 s [opt-env-conf-test] orChunk :: Chunk
  1971. 2121.39 s [opt-env-conf-test] orChunk = fore cyan "|"
  1972. 2121.39 s [opt-env-conf-test]
  1973. 2121.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  1974. 2121.39 s [opt-env-conf-test] @@ -650,10 +650,9 @@
  1975. 2121.39 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  1976. 2121.39 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  1977. 2121.39 s [opt-env-conf-test] AnyDocsAnd ds ->
  1978. 2121.39 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  1979. 2121.39 s [opt-env-conf-test] [] -> Nothing
  1980. 2121.39 s [opt-env-conf-test] - [c] -> Just c
  1981. 2121.39 s [opt-env-conf-test] cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  1982. 2121.39 s [opt-env-conf-test] AnyDocsOr ds ->
  1983. 2121.39 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  1984. 2121.39 s [opt-env-conf-test] [] -> Nothing
  1985. 2121.39 s [opt-env-conf-test]
  1986. 2121.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  1987. 2121.39 s [opt-env-conf-test] @@ -650,10 +650,9 @@
  1988. 2121.39 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  1989. 2121.39 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  1990. 2121.39 s [opt-env-conf-test] AnyDocsAnd ds ->
  1991. 2121.39 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  1992. 2121.39 s [opt-env-conf-test] - [] -> Nothing
  1993. 2121.39 s [opt-env-conf-test] [c] -> Just c
  1994. 2121.39 s [opt-env-conf-test] cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  1995. 2121.39 s [opt-env-conf-test] AnyDocsOr ds ->
  1996. 2121.39 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  1997. 2121.39 s [opt-env-conf-test] [] -> Nothing
  1998. 2121.39 s [opt-env-conf-test]
  1999. 2121.39 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:656:30-31
  2000. 2121.39 s [opt-env-conf-test] @@ -653,7 +653,7 @@
  2001. 2121.39 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  2002. 2121.39 s [opt-env-conf-test] [] -> Nothing
  2003. 2121.39 s [opt-env-conf-test] [c] -> Just c
  2004. 2121.39 s [opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  2005. 2121.39 s [opt-env-conf-test] + cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
  2006. 2121.39 s [opt-env-conf-test] AnyDocsOr ds ->
  2007. 2121.39 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  2008. 2121.39 s [opt-env-conf-test] [] -> Nothing
  2009. 2121.39 s [opt-env-conf-test]
  2010. 2121.39 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Doc.hs:637:38-43
  2011. 2121.39 s [opt-env-conf-test] @@ -634,7 +634,7 @@
  2012. 2121.39 s [opt-env-conf-test] withoutNothings =
  2013. 2121.39 s [opt-env-conf-test] filter
  2014. 2121.39 s [opt-env-conf-test] ( \case
  2015. 2121.39 s [opt-env-conf-test] - AnyDocsSingle Nothing -> False
  2016. 2121.39 s [opt-env-conf-test] + AnyDocsSingle Nothing -> True
  2017. 2121.39 s [opt-env-conf-test] AnyDocsAnd [] -> False
  2018. 2121.39 s [opt-env-conf-test] AnyDocsOr [] -> False
  2019. 2121.39 s [opt-env-conf-test] _ -> True
  2020. 2121.39 s [opt-env-conf-test]
  2021. 2121.39 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
  2022. 2121.39 s [opt-env-conf-test] @@ -819,11 +819,9 @@
  2023. 2121.40 s [opt-env-conf-test] [exampleValuesChunks confDocExamples | not (null confDocExamples)],
  2024. 2121.40 s [opt-env-conf-test] concatMap
  2025. 2121.40 s [opt-env-conf-test] ( \(key, schema) ->
  2026. 2121.40 s [opt-env-conf-test] case jsonSchemaChunkLines schema of
  2027. 2121.40 s [opt-env-conf-test] - [line] ->
  2028. 2121.40 s [opt-env-conf-test] - [[confValChunk key, ": "] ++ line]
  2029. 2121.40 s [opt-env-conf-test] ls ->
  2030. 2121.40 s [opt-env-conf-test] [confValChunk key, ":"] : indent ls
  2031. 2121.40 s [opt-env-conf-test] )
  2032. 2121.40 s [opt-env-conf-test] (NE.toList confDocKeys)
  2033. 2121.40 s [opt-env-conf-test] ]
  2034. 2121.40 s [opt-env-conf-test]
  2035. 2121.40 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:144:22-46
  2036. 2121.40 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  2037. 2121.40 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  2038. 2121.40 s [opt-env-conf-test] salt
  2039. 2121.40 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  2040. 2121.40 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  2041. 2121.40 s [opt-env-conf-test] + `hashWithSalt` not (envVarSettingAllowPrefix)
  2042. 2121.40 s [opt-env-conf-test]
  2043. 2121.40 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  2044. 2121.40 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  2045. 2121.40 s [opt-env-conf-test]
  2046. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  2047. 2121.40 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  2048. 2121.40 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  2049. 2121.40 s [opt-env-conf-test] salt
  2050. 2121.40 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  2051. 2121.40 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  2052. 2121.40 s [opt-env-conf-test] + `hashWithSalt` False
  2053. 2121.40 s [opt-env-conf-test]
  2054. 2121.40 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  2055. 2121.40 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  2056. 2121.40 s [opt-env-conf-test]
  2057. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  2058. 2121.40 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  2059. 2121.40 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  2060. 2121.40 s [opt-env-conf-test] salt
  2061. 2121.40 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  2062. 2121.40 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  2063. 2121.40 s [opt-env-conf-test] + `hashWithSalt` True
  2064. 2121.40 s [opt-env-conf-test]
  2065. 2121.40 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  2066. 2121.40 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  2067. 2121.40 s [opt-env-conf-test]
  2068. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:136:5-29
  2069. 2121.40 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  2070. 2121.40 s [opt-env-conf-test]
  2071. 2121.40 s [opt-env-conf-test] data EnvVarSetting = EnvVarSetting
  2072. 2121.40 s [opt-env-conf-test] { envVarSettingVar :: !String,
  2073. 2121.40 s [opt-env-conf-test] - envVarSettingAllowPrefix :: !Bool
  2074. 2121.40 s [opt-env-conf-test] + True :: !Bool
  2075. 2121.40 s [opt-env-conf-test] }
  2076. 2121.40 s [opt-env-conf-test] deriving (Show, Eq)
  2077. 2121.40 s [opt-env-conf-test]
  2078. 2121.40 s [opt-env-conf-test]
  2079. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:159:5-32
  2080. 2121.40 s [opt-env-conf-test] @@ -156,7 +156,7 @@
  2081. 2121.40 s [opt-env-conf-test] = forall void.
  2082. 2121.40 s [opt-env-conf-test] ConfigValSetting
  2083. 2121.40 s [opt-env-conf-test] { configValSettingPath :: !(NonEmpty String),
  2084. 2121.40 s [opt-env-conf-test] - configValSettingAllowPrefix :: !Bool,
  2085. 2121.40 s [opt-env-conf-test] + True :: !Bool,
  2086. 2121.40 s [opt-env-conf-test] configValSettingCodec :: !(ValueCodec void (Maybe a))
  2087. 2121.40 s [opt-env-conf-test] }
  2088. 2121.40 s [opt-env-conf-test]
  2089. 2121.40 s [opt-env-conf-test]
  2090. 2121.40 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:128:24-40
  2091. 2121.40 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  2092. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  2093. 2121.40 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  2094. 2121.40 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  2095. 2121.40 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  2096. 2121.40 s [opt-env-conf-test] + `hashWithSalt` not (settingTryOption)
  2097. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  2098. 2121.40 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  2099. 2121.40 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  2100. 2121.40 s [opt-env-conf-test]
  2101. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  2102. 2121.40 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  2103. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  2104. 2121.40 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  2105. 2121.40 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  2106. 2121.40 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  2107. 2121.40 s [opt-env-conf-test] + `hashWithSalt` False
  2108. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  2109. 2121.40 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  2110. 2121.40 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  2111. 2121.40 s [opt-env-conf-test]
  2112. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  2113. 2121.40 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  2114. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  2115. 2121.40 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  2116. 2121.40 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  2117. 2121.40 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  2118. 2121.40 s [opt-env-conf-test] + `hashWithSalt` True
  2119. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  2120. 2121.40 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  2121. 2121.40 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  2122. 2121.40 s [opt-env-conf-test]
  2123. 2121.40 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:127:24-49
  2124. 2121.40 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  2125. 2121.40 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  2126. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  2127. 2121.40 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  2128. 2121.40 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  2129. 2121.40 s [opt-env-conf-test] + `hashWithSalt` not (isJust settingSwitchValue)
  2130. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  2131. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  2132. 2121.40 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  2133. 2121.40 s [opt-env-conf-test]
  2134. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  2135. 2121.40 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  2136. 2121.40 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  2137. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  2138. 2121.40 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  2139. 2121.40 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  2140. 2121.40 s [opt-env-conf-test] + `hashWithSalt` False
  2141. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  2142. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  2143. 2121.40 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  2144. 2121.40 s [opt-env-conf-test]
  2145. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  2146. 2121.40 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  2147. 2121.40 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  2148. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  2149. 2121.40 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  2150. 2121.40 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  2151. 2121.40 s [opt-env-conf-test] + `hashWithSalt` True
  2152. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  2153. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  2154. 2121.40 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  2155. 2121.40 s [opt-env-conf-test]
  2156. 2121.40 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:125:24-42
  2157. 2121.40 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  2158. 2121.40 s [opt-env-conf-test] SettingHash
  2159. 2121.40 s [opt-env-conf-test] ( 42
  2160. 2121.40 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  2161. 2121.40 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  2162. 2121.40 s [opt-env-conf-test] + `hashWithSalt` not (settingTryArgument)
  2163. 2121.40 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  2164. 2121.40 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  2165. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  2166. 2121.40 s [opt-env-conf-test]
  2167. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  2168. 2121.40 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  2169. 2121.40 s [opt-env-conf-test] SettingHash
  2170. 2121.40 s [opt-env-conf-test] ( 42
  2171. 2121.40 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  2172. 2121.40 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  2173. 2121.40 s [opt-env-conf-test] + `hashWithSalt` False
  2174. 2121.40 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  2175. 2121.40 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  2176. 2121.40 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  2177. 2121.40 s [opt-env-conf-test]
  2178. 2121.40 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setttion: "]
  2179. 2121.40 s [opt-env-conf-test] : maybe [] renderConfDoc md
  2180. 2121.40 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  2181. 2121.40 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  2182. 2121.40 s [opt-env-conf-test] ["Missing command, available commands:"]
  2183. 2121.40 s [opt-env-conf-test] : availableCommandsLines cs
  2184. 2121.40 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  2185. 2121.40 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  2186. 2121.40 s [opt-env-conf-test] [fore blue "available commands:"]
  2187. 2121.40 s [opt-env-conf-test] ]
  2188. 2121.40 s [opt-env-conf-test] ++ availableCommandsLines cs
  2189. 2121.40 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  2190. 2121.40 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."],
  2191. 2121.40 s [opt-env-conf-test] ["The following settings have been parsed:"]
  2192. 2121.40 s [opt-env-conf-test] ]
  2193. 2121.40 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  2194. 2121.40 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  2195. 2121.40 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  2196. 2121.40 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  2197. 2121.40 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  2198. 2121.40 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  2199. 2121.40 s [opt-env-conf-test] ]
  2200. 2121.40 s [opt-env-conf-test]
  2201. 2121.40 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
  2202. 2121.40 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  2203. 2121.40 s [opt-env-conf-test] Nothing ->
  2204. 2121.40 s [opt-env-conf-test] case rest of
  2205. 2121.40 s [opt-env-conf-test] (Live v : rest') ->
  2206. 2121.40 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  2207. 2121.40 s [opt-env-conf-test] + case consumeDashedOption dasheds True cs of
  2208. 2121.40 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  2209. 2121.40 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  2210. 2121.40 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  2211. 2121.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  2212. 2121.40 s [opt-env-conf-test] @@ -242,10 +242,9 @@
  2213. 2121.40 s [opt-env-conf-test] Nothing ->
  2214. 2121.40 s [opt-env-conf-test] case rest of
  2215. 2121.40 s [opt-env-conf-test] (Live v : rest') ->
  2216. 2121.40 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  2217. 2121.40 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  2218. 2121.40 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  2219. 2121.40 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  2220. 2121.40 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  2221. 2121.40 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  2222. 2121.40 s [opt-env-conf-test]
  2223. 2121.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  2224. 2121.40 s [opt-env-conf-test] @@ -242,10 +242,9 @@
  2225. 2121.40 s [opt-env-conf-test] Nothing ->
  2226. 2121.40 s [opt-env-conf-test] case rest of
  2227. 2121.40 s [opt-env-conf-test] (Live v : rest') ->
  2228. 2121.40 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  2229. 2121.40 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  2230. 2121.40 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  2231. 2121.41 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  2232. 2121.41 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  2233. 2121.41 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  2234. 2121.41 s [opt-env-conf-test]
  2235. 2121.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  2236. 2121.41 s [opt-env-conf-test] @@ -242,10 +242,9 @@
  2237. 2121.41 s [opt-env-conf-test] Nothing ->
  2238. 2121.41 s [opt-env-conf-test] case rest of
  2239. 2121.41 s [opt-env-conf-test] (Live v : rest') ->
  2240. 2121.41 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  2241. 2121.41 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  2242. 2121.41 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  2243. 2121.41 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  2244. 2121.41 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  2245. 2121.41 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  2246. 2121.41 s [opt-env-conf-test]
  2247. 2121.41 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
  2248. 2121.41 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  2249. 2121.41 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  2250. 2121.41 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  2251. 2121.41 s [opt-env-conf-test] ArgDashed isLong cs ->
  2252. 2121.41 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  2253. 2121.41 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds True cs of
  2254. 2121.41 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  2255. 2121.41 s [opt-env-conf-test] Nothing ->
  2256. 2121.41 s [opt-env-conf-test] case rest of
  2257. 2121.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  2258. 2121.41 s [opt-env-conf-test] @@ -222,9 +222,8 @@
  2259. 2121.41 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  2260. 2121.41 s [opt-env-conf-test] Nothing ->
  2261. 2121.41 s [opt-env-conf-test] -- TODO option value on the border
  2262. 2121.41 s [opt-env-conf-test] case go (argsAfter as) of
  2263. 2121.41 s [opt-env-conf-test] Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  2264. 2121.41 s [opt-env-conf-test] - Nothing -> Nothing
  2265. 2121.41 s [opt-env-conf-test] where
  2266. 2121.41 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  2267. 2121.41 s [opt-env-conf-test] go = \case
  2268. 2121.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
  2269. 2121.41 s [opt-env-conf-test] @@ -240,13 +240,8 @@
  2270. 2121.41 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  2271. 2121.41 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  2272. 2121.41 s [opt-env-conf-test] Nothing ->
  2273. 2121.41 s [opt-env-conf-test] case rest of
  2274. 2121.41 s [opt-env-conf-test] - (Live v : rest') ->
  2275. 2121.41 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  2276. 2121.41 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  2277. 2121.41 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  2278. 2121.41 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  2279. 2121.41 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  2280. 2121.41 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  2281. 2121.41 s [opt-env-conf-test]
  2282. 2121.41 s [opt-env-conf-test] consumeDashedShorthandOption ::
  2283. 2121.41 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:240:55-61
  2284. 2121.41 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  2285. 2121.41 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  2286. 2121.41 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  2287. 2121.41 s [opt-env-conf-test] ArgDashed isLong cs ->
  2288. 2121.41 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  2289. 2121.41 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds not (isLong) cs of
  2290. 2121.41 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  2291. 2121.41 s [opt-env-conf-test] Nothing ->
  2292. 2121.41 s [opt-env-conf-test] case rest of
  2293. 2121.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  2294. 2121.41 s [opt-env-conf-test] @@ -222,9 +222,8 @@
  2295. 2121.41 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  2296. 2121.41 s [opt-env-conf-test] Nothing ->
  2297. 2121.41 s [opt-env-conf-test] -- TODO option value on the border
  2298. 2121.41 s [opt-env-conf-test] case go (argsAfter as) of
  2299. 2121.41 s [opt-env-conf-test] - Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  2300. 2121.41 s [opt-env-conf-test] Nothing -> Nothing
  2301. 2121.41 s [opt-env-conf-test] where
  2302. 2121.41 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  2303. 2121.41 s [opt-env-conf-test] go = \case
  2304. 2121.41 s [opt-env-conf-test] ing.hs:125:24-42
  2305. 2121.41 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  2306. 2121.41 s [opt-env-conf-test] SettingHash
  2307. 2121.41 s [opt-env-conf-test] ( 42
  2308. 2121.41 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  2309. 2121.41 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  2310. 2121.41 s [opt-env-conf-test] + `hashWithSalt` True
  2311. 2121.41 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  2312. 2121.41 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  2313. 2121.41 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  2314. 2121.41 s [opt-env-conf-test]
  2315. 2121.41 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:148:6-32
  2316. 2121.41 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  2317. 2121.41 s [opt-env-conf-test]
  2318. 2121.41 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  2319. 2121.41 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  2320. 2121.41 s [opt-env-conf-test] - if envVarSettingAllowPrefix e
  2321. 2121.41 s [opt-env-conf-test] + if True
  2322. 2121.41 s [opt-env-conf-test] then e {envVarSettingVar = prefix <> envVarSettingVar e}
  2323. 2121.41 s [opt-env-conf-test] else e
  2324. 2121.41 s [opt-env-conf-test]
  2325. 2121.41 s [opt-env-conf-test]
  2326. 2121.41 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:165:6-35
  2327. 2121.41 s [opt-env-conf-test] @@ -162,7 +162,7 @@
  2328. 2121.41 s [opt-env-conf-test]
  2329. 2121.41 s [opt-env-conf-test] prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
  2330. 2121.41 s [opt-env-conf-test] prefixConfigValSetting prefix c =
  2331. 2121.41 s [opt-env-conf-test] - if configValSettingAllowPrefix c
  2332. 2121.41 s [opt-env-conf-test] + if True
  2333. 2121.41 s [opt-env-conf-test] then c {configValSettingPath = prefix NE.<| configValSettingPath c}
  2334. 2121.41 s [opt-env-conf-test] else c
  2335. 2121.41 s [opt-env-conf-test]
  2336. 2121.41 s [opt-env-conf-test]
  2337. 2121.41 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
  2338. 2121.41 s [opt-env-conf-test] @@ -170,9 +170,8 @@
  2339. 2121.41 s [opt-env-conf-test] suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
  2340. 2121.41 s [opt-env-conf-test] where
  2341. 2121.41 s [opt-env-conf-test] suffixPath :: NonEmpty String -> NonEmpty String
  2342. 2121.41 s [opt-env-conf-test] suffixPath (f :| rest) = case NE.nonEmpty rest of
  2343. 2121.41 s [opt-env-conf-test] Nothing -> (f <> suffix) :| []
  2344. 2121.41 s [opt-env-conf-test] - Just ne -> f NE.<| suffixPath ne
  2345. 2121.41 s [opt-env-conf-test]
  2346. 2121.41 s [opt-env-conf-test] -- | A 'mempty' 'Setting' to build up a setting from.
  2347. 2121.41 s [opt-env-conf-test] emptySetting :: Setting a
  2348. 2121.41 s [opt-env-conf-test]
  2349. 2121.41 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:67:3-96
  2350. 2121.41 s [opt-env-conf-test] @@ -64,10 +64,8 @@
  2351. 2121.41 s [opt-env-conf-test]
  2352. 2121.41 s [opt-env-conf-test] parserLintTest :: Parser a -> IO ()
  2353. 2121.41 s [opt-env-conf-test] parserLintTest parser =
  2354. 2121.41 s [opt-env-conf-test] case lintParser parser of
  2355. 2121.41 s [opt-env-conf-test] Nothing -> pure ()
  2356. 2121.41 s [opt-env-conf-test] - Just errs ->
  2357. 2121.41 s [opt-env-conf-test] - expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
  2358. 2121.41 s [opt-env-conf-test]
  2359. 2121.41 s [opt-env-conf-test] settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
  2360. 2121.41 s [opt-env-conf-test] settingsParserArgsTest = parserArgsTest settingsParser
  2361. 2121.41 s [opt-env-conf-test]
  2362. 2121.41 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:149:13-24
  2363. 2121.41 s [opt-env-conf-test] @@ -146,14 +146,13 @@
  2364. 2121.41 s [opt-env-conf-test]
  2365. 2121.41 s [opt-env-conf-test] generatedFileComment :: CallStack -> T.Text
  2366. 2121.41 s [opt-env-conf-test] generatedFileComment cs =
  2367. 2121.41 s [opt-env-conf-test] let loc = case getCallStack cs of
  2368. 2121.41 s [opt-env-conf-test] (_, srcLoc) : _ ->
  2369. 2121.41 s [opt-env-conf-test] packageName (Stack.srcLocPackage srcLoc)
  2370. 2121.41 s [opt-env-conf-test] <> ":"
  2371. 2121.41 s [opt-env-conf-test] <> Stack.srcLocFile srcLoc
  2372. 2121.41 s [opt-env-conf-test] <> ":"
  2373. 2121.41 s [opt-env-conf-test] <> show (Stack.srcLocStartLine srcLoc)
  2374. 2121.41 s [opt-env-conf-test] - [] -> "unknown"
  2375. 2121.41 s [opt-env-conf-test] in T.pack $
  2376. 2121.41 s [opt-env-conf-test] unlines $
  2377. 2121.41 s [opt-env-conf-test] map
  2378. 2121.41 s [opt-env-conf-test]
  2379. 2121.41 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Test.hs:180:19-84
  2380. 2121.41 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2381. 2121.41 s [opt-env-conf-test] where
  2382. 2121.41 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2383. 2121.41 s [opt-env-conf-test] go (c : rest) = c : go rest
  2384. 2121.41 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2385. 2121.41 s [opt-env-conf-test] + isVersion v = not (null v) || elem '.' v && all (\c -> isDigit c || c == '.') v
  2386. 2121.41 s [opt-env-conf-test]
  2387. 2121.41 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Test.hs:180:35-84
  2388. 2121.41 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2389. 2121.41 s [opt-env-conf-test] where
  2390. 2121.41 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2391. 2121.41 s [opt-env-conf-test] go (c : rest) = c : go rest
  2392. 2121.41 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2393. 2121.41 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v || all (\c -> isDigit c || c == '.') v
  2394. 2121.41 s [opt-env-conf-test]
  2395. 2121.41 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-84
  2396. 2121.41 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2397. 2121.41 s [opt-env-conf-test] where
  2398. 2121.41 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2399. 2121.41 s [opt-env-conf-test] go (c : rest) = c : go rest
  2400. 2121.41 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2401. 2121.41 s [opt-env-conf-test] + isVersion v = not (null v) && True
  2402. 2121.41 s [opt-env-conf-test]
  2403. 2121.41 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:49-84
  2404. 2121.41 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2405. 2121.41 s [opt-env-conf-test] where
  2406. 2121.41 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2407. 2121.41 s [opt-env-conf-test] go (c : rest) = c : go rest
  2408. 2121.41 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2409. 2121.41 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && True
  2410. 2121.41 s [opt-env-conf-test]
  2411. 2121.41 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-81
  2412. 2121.41 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2413. 2121.41 s [opt-env-conf-test] where
  2414. 2121.41 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2415. 2121.41 s [opt-env-conf-test] go (c : rest) = c : go rest
  2416. 2121.41 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2417. 2121.41 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True) v
  2418. 2121.41 s [opt-env-conf-test]
  2419. 2121.41 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:73-81
  2420. 2121.41 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2421. 2121.41 s [opt-env-conf-test] where
  2422. 2121.41 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2423. 2121.41 s [opt-env-conf-test] go (c : rest) = c : go rest
  2424. 2121.41 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2425. 2121.41 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
  2426. 2121.41 s [opt-env-conf-test]
  2427. 2121.41 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-69
  2428. 2121.41 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2429. 2121.42 s [opt-env-conf-test] where
  2430. 2121.42 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2431. 2121.42 s [opt-env-conf-test] go (c : rest) = c : go rest
  2432. 2121.42 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2433. 2121.42 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
  2434. 2121.42 s [opt-env-conf-test]
  2435. 2121.42 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-45
  2436. 2121.42 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2437. 2121.42 s [opt-env-conf-test] where
  2438. 2121.42 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2439. 2121.42 s [opt-env-conf-test] go (c : rest) = c : go rest
  2440. 2121.42 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2441. 2121.42 s [opt-env-conf-test] + isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
  2442. 2121.42 s [opt-env-conf-test]
  2443. 2121.42 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:19-31
  2444. 2121.42 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2445. 2121.42 s [opt-env-conf-test] where
  2446. 2121.42 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2447. 2121.42 s [opt-env-conf-test] go (c : rest) = c : go rest
  2448. 2121.42 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2449. 2121.42 s [opt-env-conf-test] + isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
  2450. 2121.42 s [opt-env-conf-test]
  2451. 2121.42 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:23-31
  2452. 2121.42 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2453. 2121.42 s [opt-env-conf-test] where
  2454. 2121.42 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2455. 2121.42 s [opt-env-conf-test] go (c : rest) = c : go rest
  2456. 2121.42 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2457. 2121.42 s [opt-env-conf-test] + isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
  2458. 2121.42 s [opt-env-conf-test]
  2459. 2121.42 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:24-30
  2460. 2121.42 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  2461. 2121.42 s [opt-env-conf-test] where
  2462. 2121.42 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  2463. 2121.42 s [opt-env-conf-test] go (c : rest) = c : go rest
  2464. 2121.42 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2465. 2121.42 s [opt-env-conf-test] + isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
  2466. 2121.42 s [opt-env-conf-test] checkPhase completed in 27 minutes 30 seconds
  2467. 2121.42 s [opt-env-conf-test] Phase: haddockPhase
  2468. 2121.42 s [opt-env-conf-test] Phase: installPhase
  2469. 2121.42 s [opt-env-conf-test] Installing library in /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4-3WilUK79pGbKEOnYVCQCp5
  2470. 2121.67 s [opt-env-conf-test] Phase: fixupPhase
  2471. 2121.69 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4
  2472. 2121.69 s [opt-env-conf-test] shrinking /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSopt-env-conf-test-0.0.0.4-3WilUK79pGbKEOnYVCQCp5-ghc9.10.3.so
  2473. 2121.73 s [opt-env-conf-test] shrinking /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4/bin/opt-env-conf-test
  2474. 2121.76 s [opt-env-conf-test] checking for references to /build/ in /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4...
  2475. 2121.79 s [opt-env-conf-test] patching script interpreter paths in /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4
  2476. 2121.80 s [opt-env-conf-test] stripping (with command strip and flags -S -p) in /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4/lib /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4/bin
  2477. 2121.88 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/d1mrmzjx23v4bzjp0yma28asm0c9cyx9-opt-env-conf-test-0.0.0.4-manifest
  2478. 2121.89 s [opt-env-conf-test] checking for references to /build/ in /nix/store/d1mrmzjx23v4bzjp0yma28asm0c9cyx9-opt-env-conf-test-0.0.0.4-manifest...
  2479. 2121.90 s [opt-env-conf-test] patching script interpreter paths in /nix/store/d1mrmzjx23v4bzjp0yma28asm0c9cyx9-opt-env-conf-test-0.0.0.4-manifest
  2480. 2121.90 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/44axcxdjmwfpqd3r28h6p9lpi5fgllnh-opt-env-conf-test-0.0.0.4-report
  2481. 2121.97 s [opt-env-conf-test] checking for references to /build/ in /nix/store/44axcxdjmwfpqd3r28h6p9lpi5fgllnh-opt-env-conf-test-0.0.0.4-report...
  2482. 2122.06 s [opt-env-conf-test] patching script interpreter paths in /nix/store/44axcxdjmwfpqd3r28h6p9lpi5fgllnh-opt-env-conf-test-0.0.0.4-report
  2483. 2122.23 s [post-build-hook] Uploading to cachix cache "sydtest": /nix/store/44axcxdjmwfpqd3r28h6p9lpi5fgllnh-opt-env-conf-test-0.0.0.4-report /nix/store/d1mrmzjx23v4bzjp0yma28asm0c9cyx9-opt-env-conf-test-0.0.0.4-manifest /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4
  2484. 2122.79 s [post-build-hook] Pushing 3 paths (268 are already present) using zstd to cache sydtest ⏳
  2485. 2122.79 s [post-build-hook]
  2486. 2123.14 s [post-build-hook] Pushing /nix/store/44axcxdjmwfpqd3r28h6p9lpi5fgllnh-opt-env-conf-test-0.0.0.4-report (2.88 MiB)
  2487. 2123.17 s [post-build-hook] Pushing /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4 (15.01 MiB)
  2488. 2123.22 s [post-build-hook] Pushing /nix/store/d1mrmzjx23v4bzjp0yma28asm0c9cyx9-opt-env-conf-test-0.0.0.4-manifest (33.58 KiB)
  2489. 2124.77 s [post-build-hook]
  2490. 2124.77 s [post-build-hook] All done.
  2491. 2124.79 s [post-build-hook] Uploading to the NixCI staging cache: /nix/store/44axcxdjmwfpqd3r28h6p9lpi5fgllnh-opt-env-conf-test-0.0.0.4-report /nix/store/d1mrmzjx23v4bzjp0yma28asm0c9cyx9-opt-env-conf-test-0.0.0.4-manifest /nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4
  2492. 2124.84 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  2493. 2125.14 s [post-build-hook] copying 3 paths...
  2494. 2125.14 s [post-build-hook] copying path '/nix/store/y4mj0r6yw2lrba7cm0xcm7l2m6snsd23-opt-env-conf-test-0.0.0.4' to 'https://cache.staging.nix-ci.com'...
  2495. 2125.14 s [post-build-hook] copying path '/nix/store/44axcxdjmwfpqd3r28h6p9lpi5fgllnh-opt-env-conf-test-0.0.0.4-report' to 'https://cache.staging.nix-ci.com'...
  2496. 2125.14 s [post-build-hook] copying path '/nix/store/d1mrmzjx23v4bzjp0yma28asm0c9cyx9-opt-env-conf-test-0.0.0.4-manifest' to 'https://cache.staging.nix-ci.com'...
  2497. 2129.18 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  2498. 2129.41 s [post-build-hook] copying 1 paths...
  2499. 2129.79 s [post-build-hook] copying path '/nix/store/pz2pjcgdf2ic1xwf63jg8370vacdza09-opt-env-conf-test-0.0.0.4.drv' to 'https://cache.staging.nix-ci.com'...
  2500. 2129.79 s Progress: 10 of 11 built
More Logs Raw Logs

Agent Instructions

Wait for completion, without logs:

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/4703e381-e4ad-49bc-9ec4-32d86c99be43/wait

Latest logs, with timestamps (streams while running):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/4703e381-e4ad-49bc-9ec4-32d86c99be43/tail

All logs, with timestamps (available after completion):

curl --netrc https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/4703e381-e4ad-49bc-9ec4-32d86c99be43/logs

Raw logs, from the start (no timestamps):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/4703e381-e4ad-49bc-9ec4-32d86c99be43/raw-logs

Content types available for /logs and /tail (use Accept header):

Example:

curl --netrc -H "Accept: text/csv" https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/4703e381-e4ad-49bc-9ec4-32d86c99be43/logs

Reproduce locally: https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/4703e381-e4ad-49bc-9ec4-32d86c99be43/repro

For more instructions, fetch https://staging.nix-ci.com/instructions .