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

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