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

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