1. 1569.93 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  2. 1569.93 s [opt-env-conf-test] - ]
  3. 1569.93 s [opt-env-conf-test] - pure Nothing
  4. 1569.93 s [opt-env-conf-test] Just a -> do
  5. 1569.93 s [opt-env-conf-test] debug
  6. 1569.94 s [opt-env-conf-test] [ "set based on config value: ",
  7. 1569.94 s [opt-env-conf-test] chunk $ T.pack $ show v
  8. 1569.94 s [opt-env-conf-test] ]
  9. 1569.94 s [opt-env-conf-test] pure $ Just a
  10. 1569.94 s [opt-env-conf-test] let toRes = \case
  11. 1569.94 s [opt-env-conf-test] Nothing -> NotFound
  12. 1569.94 s [opt-env-conf-test] Just a -> Found a
  13. 1569.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
  14. 1569.94 s [opt-env-conf-test] @@ -404,19 +404,13 @@
  15. 1569.94 s [opt-env-conf-test] pure Nothing
  16. 1569.94 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  17. 1569.94 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  18. 1569.94 s [opt-env-conf-test] Right mA -> case mA of
  19. 1569.94 s [opt-env-conf-test] Nothing -> do
  20. 1569.94 s [opt-env-conf-test] debug
  21. 1569.94 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  22. 1569.94 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  23. 1569.94 s [opt-env-conf-test] ]
  24. 1569.94 s [opt-env-conf-test] pure Nothing
  25. 1569.94 s [opt-env-conf-test] - Just a -> do
  26. 1569.94 s [opt-env-conf-test] - debug
  27. 1569.94 s [opt-env-conf-test] - [ "set based on config value: ",
  28. 1569.94 s [opt-env-conf-test] - chunk $ T.pack $ show v
  29. 1569.94 s [opt-env-conf-test] - ]
  30. 1569.94 s [opt-env-conf-test] - pure $ Just a
  31. 1569.94 s [opt-env-conf-test] let toRes = \case
  32. 1569.94 s [opt-env-conf-test] Nothing -> NotFound
  33. 1569.94 s [opt-env-conf-test] Just a -> Found a
  34. 1569.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  35. 1569.94 s [opt-env-conf-test] @@ -402,21 +402,20 @@
  36. 1569.94 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  37. 1569.94 s [opt-env-conf-test] ]
  38. 1569.94 s [opt-env-conf-test] pure Nothing
  39. 1569.94 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  40. 1569.94 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  41. 1569.94 s [opt-env-conf-test] Right mA -> case mA of
  42. 1569.94 s [opt-env-conf-test] Nothing -> do
  43. 1569.94 s [opt-env-conf-test] debug
  44. 1569.94 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  45. 1569.94 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  46. 1569.94 s [opt-env-conf-test] ]
  47. 1569.94 s [opt-env-conf-test] pure Nothing
  48. 1569.94 s [opt-env-conf-test] Just a -> do
  49. 1569.94 s [opt-env-conf-test] debug
  50. 1569.94 s [opt-env-conf-test] [ "set based on config value: ",
  51. 1569.94 s [opt-env-conf-test] chunk $ T.pack $ show v
  52. 1569.94 s [opt-env-conf-test] ]
  53. 1569.94 s [opt-env-conf-test] pure $ Just a
  54. 1569.94 s [opt-env-conf-test] let toRes = \case
  55. 1569.94 s [opt-env-conf-test] Nothing -> NotFound
  56. 1569.94 s [opt-env-conf-test] Just a -> Found a
  57. 1569.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  58. 1569.94 s [opt-env-conf-test] @@ -402,21 +402,8 @@
  59. 1569.94 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  60. 1569.94 s [opt-env-conf-test] ]
  61. 1569.94 s [opt-env-conf-test] pure Nothing
  62. 1569.94 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  63. 1569.94 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  64. 1569.94 s [opt-env-conf-test] - Right mA -> case mA of
  65. 1569.94 s [opt-env-conf-test] - Nothing -> do
  66. 1569.94 s [opt-env-conf-test] - debug
  67. 1569.94 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  68. 1569.94 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  69. 1570.53 s [opt-env-conf-test] - ]
  70. 1570.53 s [opt-env-conf-test] - pure Nothing
  71. 1570.53 s [opt-env-conf-test] - Just a -> do
  72. 1570.53 s [opt-env-conf-test] - debug
  73. 1570.53 s [opt-env-conf-test] - [ "set based on config value: ",
  74. 1570.53 s [opt-env-conf-test] - chunk $ T.pack $ show v
  75. 1570.53 s [opt-env-conf-test] - ]
  76. 1570.53 s [opt-env-conf-test] - pure $ Just a
  77. 1570.53 s [opt-env-conf-test] let toRes = \case
  78. 1570.53 s [opt-env-conf-test] Nothing -> NotFound
  79. 1570.53 s [opt-env-conf-test] Just a -> Found a
  80. 1570.53 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
  81. 1570.53 s [opt-env-conf-test] @@ -395,28 +395,22 @@
  82. 1570.53 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  83. 1570.53 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  84. 1570.53 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  85. 1570.53 s [opt-env-conf-test] Right mV -> case mV of
  86. 1570.53 s [opt-env-conf-test] - Nothing -> do
  87. 1570.53 s [opt-env-conf-test] - debug
  88. 1570.53 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  89. 1570.53 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  90. 1570.53 s [opt-env-conf-test] - ]
  91. 1570.53 s [opt-env-conf-test] - pure Nothing
  92. 1570.53 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  93. 1570.53 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  94. 1570.53 s [opt-env-conf-test] Right mA -> case mA of
  95. 1570.53 s [opt-env-conf-test] Nothing -> do
  96. 1570.53 s [opt-env-conf-test] debug
  97. 1570.53 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  98. 1570.53 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  99. 1570.53 s [opt-env-conf-test] ]
  100. 1570.53 s [opt-env-conf-test] pure Nothing
  101. 1570.53 s [opt-env-conf-test] Just a -> do
  102. 1570.53 s [opt-env-conf-test] debug
  103. 1570.53 s [opt-env-conf-test] [ "set based on config value: ",
  104. 1570.53 s [opt-env-conf-test] chunk $ T.pack $ show v
  105. 1570.53 s [opt-env-conf-test] ]
  106. 1570.76 s [opt-env-conf-test] pure $ Just a
  107. 1570.76 s [opt-env-conf-test] let toRes = \case
  108. 1570.76 s [opt-env-conf-test] Nothing -> NotFound
  109. 1570.76 s [opt-env-conf-test] Just a -> Found a
  110. 1570.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
  111. 1570.76 s [opt-env-conf-test] @@ -395,28 +395,13 @@
  112. 1570.76 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  113. 1570.76 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  114. 1570.76 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  115. 1570.76 s [opt-env-conf-test] Right mV -> case mV of
  116. 1570.76 s [opt-env-conf-test] Nothing -> do
  117. 1570.76 s [opt-env-conf-test] debug
  118. 1570.76 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  119. 1570.76 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  120. 1570.76 s [opt-env-conf-test] ]
  121. 1570.76 s [opt-env-conf-test] pure Nothing
  122. 1570.76 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  123. 1570.76 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  124. 1570.76 s [opt-env-conf-test] - Right mA -> case mA of
  125. 1570.76 s [opt-env-conf-test] - Nothing -> do
  126. 1570.76 s [opt-env-conf-test] - debug
  127. 1570.77 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  128. 1570.77 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  129. 1570.77 s [opt-env-conf-test] - ]
  130. 1570.77 s [opt-env-conf-test] - pure Nothing
  131. 1570.77 s [opt-env-conf-test] - Just a -> do
  132. 1570.77 s [opt-env-conf-test] - debug
  133. 1570.77 s [opt-env-conf-test] - [ "set based on config value: ",
  134. 1570.77 s [opt-env-conf-test] - chunk $ T.pack $ show v
  135. 1572.14 s [opt-env-conf-test] - ]
  136. 1572.14 s [opt-env-conf-test] - pure $ Just a
  137. 1572.14 s [opt-env-conf-test] let toRes = \case
  138. 1572.14 s [opt-env-conf-test] Nothing -> NotFound
  139. 1572.14 s [opt-env-conf-test] Just a -> Found a
  140. 1572.14 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Run.hs:419:58-64
  141. 1572.15 s [opt-env-conf-test] @@ -416,7 +416,7 @@
  142. 1572.15 s [opt-env-conf-test] [ "set based on config value: ",
  143. 1572.15 s [opt-env-conf-test] chunk $ T.pack $ show v
  144. 1572.15 s [opt-env-conf-test] ]
  145. 1572.15 s [opt-env-conf-test] - pure $ Just a
  146. 1572.15 s [opt-env-conf-test] + pure $ Nothing
  147. 1572.15 s [opt-env-conf-test] let toRes = \case
  148. 1572.15 s [opt-env-conf-test] Nothing -> NotFound
  149. 1572.15 s [opt-env-conf-test] Just a -> Found a
  150. 1572.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
  151. 1572.15 s [opt-env-conf-test] @@ -554,7 +554,6 @@
  152. 1572.15 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  153. 1572.15 s [opt-env-conf-test] ppIndent $ go p2
  154. 1572.15 s [opt-env-conf-test] ParserMany mLoc p' -> do
  155. 1572.15 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  156. 1572.15 s [opt-env-conf-test] ppIndent $ go p'
  157. 1572.15 s [opt-env-conf-test] ParserSome mLoc p' -> do
  158. 1572.15 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  159. 1572.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
  160. 1572.15 s [opt-env-conf-test] @@ -219,7 +219,6 @@
  161. 1572.15 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  162. 1572.15 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  163. 1572.15 s [opt-env-conf-test] Just c -> do
  164. 1572.15 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  165. 1572.15 s [opt-env-conf-test] go $ commandParser c
  166. 1572.15 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  167. 1572.15 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  168. 1572.15 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
  169. 1572.15 s [opt-env-conf-test] @@ -219,7 +219,6 @@
  170. 1572.15 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  171. 1572.16 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  172. 1572.16 s [opt-env-conf-test] Just c -> do
  173. 1572.16 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  174. 1572.16 s [opt-env-conf-test] go $ commandParser c
  175. 1572.16 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  176. 1572.16 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  177. 1572.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
  178. 1572.16 s [opt-env-conf-test] @@ -383,16 +383,11 @@
  179. 1572.16 s [opt-env-conf-test] Just obj -> do
  180. 1572.16 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  181. 1572.16 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  182. 1572.16 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  183. 1572.16 s [opt-env-conf-test] Nothing -> do
  184. 1572.16 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  185. 1572.16 s [opt-env-conf-test] Nothing -> pure Nothing
  186. 1572.16 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  187. 1572.16 s [opt-env-conf-test] - Just neRest -> do
  188. 1572.16 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  189. 1572.16 s [opt-env-conf-test] - case mO' of
  190. 1572.16 s [opt-env-conf-test] - Nothing -> pure Nothing
  191. 1572.16 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  192. 1572.16 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  193. 1572.16 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  194. 1572.16 s [opt-env-conf-test] Right mV -> case mV of
  195. 1572.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  196. 1572.16 s [opt-env-conf-test] @@ -393,30 +393,8 @@
  197. 1572.16 s [opt-env-conf-test] case mO' of
  198. 1572.16 s [opt-env-conf-test] Nothing -> pure Nothing
  199. 1572.16 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  200. 1572.16 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  201. 1572.16 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  202. 1572.16 s [opt-env-conf-test] - Right mV -> case mV of
  203. 1572.16 s [opt-env-conf-test] - Nothing -> do
  204. 1572.16 s [opt-env-conf-test] - debug
  205. 1572.17 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  206. 1572.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  207. 1572.17 s [opt-env-conf-test] - ]
  208. 1572.17 s [opt-env-conf-test] - pure Nothing
  209. 1572.17 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  210. 1572.17 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  211. 1572.17 s [opt-env-conf-test] - Right mA -> case mA of
  212. 1572.17 s [opt-env-conf-test] - Nothing -> do
  213. 1572.17 s [opt-env-conf-test] - debug
  214. 1572.17 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  215. 1572.17 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  216. 1572.17 s [opt-env-conf-test] - ]
  217. 1572.17 s [opt-env-conf-test] - pure Nothing
  218. 1572.17 s [opt-env-conf-test] - Just a -> do
  219. 1575.77 s [opt-env-conf-test] - debug
  220. 1575.82 s [opt-env-conf-test] - [ "set based on config value: ",
  221. 1575.82 s [opt-env-conf-test] - chunk $ T.pack $ show v
  222. 1575.82 s [opt-env-conf-test] - ]
  223. 1575.82 s [opt-env-conf-test] - pure $ Just a
  224. 1575.82 s [opt-env-conf-test] let toRes = \case
  225. 1575.82 s [opt-env-conf-test] Nothing -> NotFound
  226. 1575.82 s [opt-env-conf-test] Just a -> Found a
  227. 1575.82 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
  228. 1575.82 s [opt-env-conf-test] @@ -424,9 +424,8 @@
  229. 1575.82 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  230. 1575.82 s [opt-env-conf-test] Just ne -> do
  231. 1575.82 s [opt-env-conf-test] res <- goConfSet confSet
  232. 1575.82 s [opt-env-conf-test] case res of
  233. 1575.82 s [opt-env-conf-test] - Just a -> pure $ Found a
  234. 1575.82 s [opt-env-conf-test] Nothing -> goConfSets ne
  235. 1575.82 s [opt-env-conf-test] goConfSets confSets
  236. 1575.82 s [opt-env-conf-test] case mConf of
  237. 1575.82 s [opt-env-conf-test] Found a -> do
  238. 1575.82 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
  239. 1575.82 s [opt-env-conf-test] @@ -424,9 +424,8 @@
  240. 1575.82 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  241. 1575.82 s [opt-env-conf-test] Just ne -> do
  242. 1575.83 s [opt-env-conf-test] res <- goConfSet confSet
  243. 1575.83 s [opt-env-conf-test] case res of
  244. 1575.83 s [opt-env-conf-test] Just a -> pure $ Found a
  245. 1575.83 s [opt-env-conf-test] - Nothing -> goConfSets ne
  246. 1575.83 s [opt-env-conf-test] goConfSets confSets
  247. 1575.83 s [opt-env-conf-test] case mConf of
  248. 1575.83 s [opt-env-conf-test] Found a -> do
  249. 1575.83 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
  250. 1575.83 s [opt-env-conf-test] @@ -420,13 +420,12 @@
  251. 1575.83 s [opt-env-conf-test] let toRes = \case
  252. 1575.83 s [opt-env-conf-test] Nothing -> NotFound
  253. 1575.83 s [opt-env-conf-test] Just a -> Found a
  254. 1575.83 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  255. 1575.83 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  256. 1575.83 s [opt-env-conf-test] Just ne -> do
  257. 1575.83 s [opt-env-conf-test] res <- goConfSet confSet
  258. 1575.83 s [opt-env-conf-test] case res of
  259. 1575.83 s [opt-env-conf-test] Just a -> pure $ Found a
  260. 1575.83 s [opt-env-conf-test] Nothing -> goConfSets ne
  261. 1575.83 s [opt-env-conf-test] goConfSets confSets
  262. 1575.83 s [opt-env-conf-test] case mConf of
  263. 1575.83 s [opt-env-conf-test] Found a -> do
  264. 1575.83 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:373:21-39
  265. 1575.83 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  266. 1575.83 s [opt-env-conf-test] [ [ headerChunks "Options",
  267. 1575.83 s [opt-env-conf-test] renderLongOptDocs optDocs
  268. 1575.83 s [opt-env-conf-test] ]
  269. 1575.83 s [opt-env-conf-test] - | not (nullDocs optDocs)
  270. 1575.83 s [opt-env-conf-test] + | not True
  271. 1575.83 s [opt-env-conf-test] ],
  272. 1575.83 s [opt-env-conf-test] concat
  273. 1575.83 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  274. 1575.83 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:113:25-35
  275. 1575.83 s [opt-env-conf-test] @@ -110,9 +110,8 @@
  276. 1575.83 s [opt-env-conf-test] ParserPure a -> do
  277. 1575.83 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  278. 1575.83 s [opt-env-conf-test] pure a
  279. 1575.83 s [opt-env-conf-test] ParserAp ff fa -> do
  280. 1575.83 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  281. 1575.83 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  282. 1575.83 s [opt-env-conf-test] ParserEmpty mLoc -> do
  283. 1575.83 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  284. 1575.83 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  285. 1575.83 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
  286. 1575.83 s [opt-env-conf-test] @@ -420,13 +420,8 @@
  287. 1575.83 s [opt-env-conf-test] let toRes = \case
  288. 1575.83 s [opt-env-conf-test] Nothing -> NotFound
  289. 1575.83 s [opt-env-conf-test] Just a -> Found a
  290. 1575.83 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  291. 1575.83 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  292. 1575.83 s [opt-env-conf-test] - Just ne -> do
  293. 1575.83 s [opt-env-conf-test] - res <- goConfSet confSet
  294. 1575.83 s [opt-env-conf-test] - case res of
  295. 1575.83 s [opt-env-conf-test] - Just a -> pure $ Found a
  296. 1575.83 s [opt-env-conf-test] - Nothing -> goConfSets ne
  297. 1575.83 s [opt-env-conf-test] goConfSets confSets
  298. 1575.83 s [opt-env-conf-test] case mConf of
  299. 1575.83 s [opt-env-conf-test] Found a -> do
  300. 1575.83 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
  301. 1575.83 s [opt-env-conf-test] @@ -376,58 +376,10 @@
  302. 1575.83 s [opt-env-conf-test] Nothing -> pure NotRun
  303. 1575.83 s [opt-env-conf-test] Just confSets -> do
  304. 1575.83 s [opt-env-conf-test] mObj <- asks ppEnvConf
  305. 1575.83 s [opt-env-conf-test] case mObj of
  306. 1575.83 s [opt-env-conf-test] Nothing -> do
  307. 1575.83 s [opt-env-conf-test] debug ["no config object to set from"]
  308. 1575.83 s [opt-env-conf-test] pure NotFound
  309. 1575.83 s [opt-env-conf-test] - Just obj -> do
  310. 1575.83 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  311. 1575.83 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  312. 1575.83 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  313. 1575.83 s [opt-env-conf-test] - Nothing -> do
  314. 1575.83 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  315. 1575.83 s [opt-env-conf-test] - Nothing -> pure Nothing
  316. 1575.84 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  317. 1575.84 s [opt-env-conf-test] - Just neRest -> do
  318. 1575.84 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  319. 1575.84 s [opt-env-conf-test] - case mO' of
  320. 1575.84 s [opt-env-conf-test] - Nothing -> pure Nothing
  321. 1575.84 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  322. 1575.84 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  323. 1575.84 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  324. 1575.84 s [opt-env-conf-test] - Right mV -> case mV of
  325. 1575.84 s [opt-env-conf-test] - Nothing -> do
  326. 1575.84 s [opt-env-conf-test] - debug
  327. 1575.84 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  328. 1575.84 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  329. 1575.84 s [opt-env-conf-test] - ]
  330. 1575.84 s [opt-env-conf-test] - pure Nothing
  331. 1575.84 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  332. 1575.84 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  333. 1575.84 s [opt-env-conf-test] - Right mA -> case mA of
  334. 1575.84 s [opt-env-conf-test] - Nothing -> do
  335. 1575.84 s [opt-env-conf-test] - debug
  336. 1575.84 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  337. 1575.84 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  338. 1575.84 s [opt-env-conf-test] - ]
  339. 1575.84 s [opt-env-conf-test] - pure Nothing
  340. 1575.84 s [opt-env-conf-test] - Just a -> do
  341. 1575.84 s [opt-env-conf-test] - debug
  342. 1575.84 s [opt-env-conf-test] - [ "set based on config value: ",
  343. 1575.84 s [opt-env-conf-test] - chunk $ T.pack $ show v
  344. 1575.84 s [opt-env-conf-test] - ]
  345. 1575.84 s [opt-env-conf-test] - pure $ Just a
  346. 1575.84 s [opt-env-conf-test] - let toRes = \case
  347. 1575.84 s [opt-env-conf-test] - Nothing -> NotFound
  348. 1575.84 s [opt-env-conf-test] - Just a -> Found a
  349. 1575.84 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  350. 1575.84 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  351. 1575.94 s [opt-env-conf-test] - Just ne -> do
  352. 1575.95 s [opt-env-conf-test] - res <- goConfSet confSet
  353. 1575.95 s [opt-env-conf-test] - case res of
  354. 1575.95 s [opt-env-conf-test] - Just a -> pure $ Found a
  355. 1575.95 s [opt-env-conf-test] - Nothing -> goConfSets ne
  356. 1575.95 s [opt-env-conf-test] - goConfSets confSets
  357. 1575.95 s [opt-env-conf-test] case mConf of
  358. 1575.95 s [opt-env-conf-test] Found a -> do
  359. 1575.95 s [opt-env-conf-test] markParsed
  360. 1575.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
  361. 1575.95 s [opt-env-conf-test] @@ -376,58 +376,55 @@
  362. 1575.95 s [opt-env-conf-test] Nothing -> pure NotRun
  363. 1575.95 s [opt-env-conf-test] Just confSets -> do
  364. 1575.95 s [opt-env-conf-test] mObj <- asks ppEnvConf
  365. 1575.95 s [opt-env-conf-test] case mObj of
  366. 1575.95 s [opt-env-conf-test] - Nothing -> do
  367. 1575.95 s [opt-env-conf-test] - debug ["no config object to set from"]
  368. 1575.95 s [opt-env-conf-test] - pure NotFound
  369. 1575.95 s [opt-env-conf-test] Just obj -> do
  370. 1575.95 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  371. 1575.95 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  372. 1575.95 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  373. 1575.95 s [opt-env-conf-test] Nothing -> do
  374. 1575.95 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  375. 1575.95 s [opt-env-conf-test] Nothing -> pure Nothing
  376. 1575.95 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  377. 1575.95 s [opt-env-conf-test] Just neRest -> do
  378. 1575.95 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  379. 1575.95 s [opt-env-conf-test] case mO' of
  380. 1575.95 s [opt-env-conf-test] Nothing -> pure Nothing
  381. 1575.95 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  382. 1575.95 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  383. 1575.96 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  384. 1575.96 s [opt-env-conf-test] Right mV -> case mV of
  385. 1575.96 s [opt-env-conf-test] Nothing -> do
  386. 1575.96 s [opt-env-conf-test] debug
  387. 1575.96 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  388. 1575.96 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  389. 1575.96 s [opt-env-conf-test] ]
  390. 1575.96 s [opt-env-conf-test] pure Nothing
  391. 1575.96 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  392. 1575.96 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  393. 1575.96 s [opt-env-conf-test] Right mA -> case mA of
  394. 1575.96 s [opt-env-conf-test] Nothing -> do
  395. 1575.96 s [opt-env-conf-test] debug
  396. 1575.96 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  397. 1575.96 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  398. 1575.96 s [opt-env-conf-test] ]
  399. 1575.96 s [opt-env-conf-test] pure Nothing
  400. 1575.96 s [opt-env-conf-test] Just a -> do
  401. 1575.96 s [opt-env-conf-test] debug
  402. 1575.96 s [opt-env-conf-test] [ "set based on config value: ",
  403. 1575.96 s [opt-env-conf-test] chunk $ T.pack $ show v
  404. 1575.96 s [opt-env-conf-test] ]
  405. 1575.96 s [opt-env-conf-test] pure $ Just a
  406. 1575.96 s [opt-env-conf-test] let toRes = \case
  407. 1575.96 s [opt-env-conf-test] Nothing -> NotFound
  408. 1575.96 s [opt-env-conf-test] Just a -> Found a
  409. 1575.96 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  410. 1575.96 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  411. 1575.96 s [opt-env-conf-test] Just ne -> do
  412. 1575.96 s [opt-env-conf-test] res <- goConfSet confSet
  413. 1575.96 s [opt-env-conf-test] case res of
  414. 1575.96 s [opt-env-conf-test] Just a -> pure $ Found a
  415. 1575.96 s [opt-env-conf-test] Nothing -> goConfSets ne
  416. 1576.02 s [opt-env-conf-test] goConfSets confSets
  417. 1576.02 s [opt-env-conf-test] case mConf of
  418. 1576.02 s [opt-env-conf-test] Found a -> do
  419. 1576.02 s [opt-env-conf-test] markParsed
  420. 1576.02 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
  421. 1576.03 s [opt-env-conf-test] @@ -372,62 +372,8 @@
  422. 1576.03 s [opt-env-conf-test] pure a
  423. 1576.03 s [opt-env-conf-test] _ -> do
  424. 1576.03 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  425. 1576.03 s [opt-env-conf-test] mConf <- case settingConfigVals of
  426. 1576.03 s [opt-env-conf-test] Nothing -> pure NotRun
  427. 1576.03 s [opt-env-conf-test] - Just confSets -> do
  428. 1576.03 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  429. 1576.03 s [opt-env-conf-test] - case mObj of
  430. 1576.03 s [opt-env-conf-test] - Nothing -> do
  431. 1576.03 s [opt-env-conf-test] - debug ["no config object to set from"]
  432. 1576.03 s [opt-env-conf-test] - pure NotFound
  433. 1576.03 s [opt-env-conf-test] - Just obj -> do
  434. 1576.03 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  435. 1576.03 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  436. 1576.03 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  437. 1576.03 s [opt-env-conf-test] - Nothing -> do
  438. 1576.03 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  439. 1576.03 s [opt-env-conf-test] - Nothing -> pure Nothing
  440. 1576.03 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  441. 1576.03 s [opt-env-conf-test] - Just neRest -> do
  442. 1576.03 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  443. 1576.03 s [opt-env-conf-test] - case mO' of
  444. 1576.03 s [opt-env-conf-test] - Nothing -> pure Nothing
  445. 1576.03 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  446. 1576.03 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  447. 1576.03 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  448. 1576.03 s [opt-env-conf-test] - Right mV -> case mV of
  449. 1576.04 s [opt-env-conf-test] - Nothing -> do
  450. 1576.04 s [opt-env-conf-test] - debug
  451. 1576.04 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  452. 1576.04 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  453. 1576.04 s [opt-env-conf-test] - ]
  454. 1576.04 s [opt-env-conf-test] - pure Nothing
  455. 1576.04 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  456. 1576.04 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  457. 1576.04 s [opt-env-conf-test] - Right mA -> case mA of
  458. 1576.04 s [opt-env-conf-test] - Nothing -> do
  459. 1576.04 s [opt-env-conf-test] - debug
  460. 1576.04 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  461. 1576.04 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  462. 1576.04 s [opt-env-conf-test] - ]
  463. 1576.04 s [opt-env-conf-test] - pure Nothing
  464. 1576.04 s [opt-env-conf-test] - Just a -> do
  465. 1576.04 s [opt-env-conf-test] - debug
  466. 1576.04 s [opt-env-conf-test] - [ "set based on config value: ",
  467. 1576.04 s [opt-env-conf-test] - chunk $ T.pack $ show v
  468. 1576.04 s [opt-env-conf-test] - ]
  469. 1576.04 s [opt-env-conf-test] - pure $ Just a
  470. 1576.04 s [opt-env-conf-test] - let toRes = \case
  471. 1576.04 s [opt-env-conf-test] - Nothing -> NotFound
  472. 1576.04 s [opt-env-conf-test] - Just a -> Found a
  473. 1580.07 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  474. 1580.07 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  475. 1580.07 s [opt-env-conf-test] - Just ne -> do
  476. 1580.07 s [opt-env-conf-test] - res <- goConfSet confSet
  477. 1580.07 s [opt-env-conf-test] - case res of
  478. 1580.07 s [opt-env-conf-test] - Just a -> pure $ Found a
  479. 1580.07 s [opt-env-conf-test] - Nothing -> goConfSets ne
  480. 1580.07 s [opt-env-conf-test] - goConfSets confSets
  481. 1580.07 s [opt-env-conf-test] case mConf of
  482. 1580.07 s [opt-env-conf-test] Found a -> do
  483. 1580.07 s [opt-env-conf-test] markParsed
  484. 1580.07 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Run.hs:443:53-59
  485. 1580.07 s [opt-env-conf-test] @@ -440,7 +440,7 @@
  486. 1580.07 s [opt-env-conf-test] Nothing -> do
  487. 1580.07 s [opt-env-conf-test] let parseResultError e res = case res of
  488. 1580.07 s [opt-env-conf-test] NotRun -> Nothing
  489. 1580.07 s [opt-env-conf-test] - NotFound -> Just e
  490. 1580.07 s [opt-env-conf-test] + NotFound -> Nothing
  491. 1580.07 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  492. 1580.07 s [opt-env-conf-test] debug ["not found"]
  493. 1580.08 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  494. 1580.08 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:379:17-39
  495. 1580.08 s [opt-env-conf-test] @@ -376,7 +376,7 @@
  496. 1580.08 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  497. 1580.08 s [opt-env-conf-test] renderEnvDocs envDocs
  498. 1580.08 s [opt-env-conf-test] ]
  499. 1580.08 s [opt-env-conf-test] - | not (nullDocs envDocs)
  500. 1580.08 s [opt-env-conf-test] + | not (not (nullDocs envDocs))
  501. 1580.08 s [opt-env-conf-test] ],
  502. 1580.08 s [opt-env-conf-test] concat
  503. 1580.08 s [opt-env-conf-test] [ [ headerChunks "Configuration Values",
  504. 1580.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  505. 1580.08 s [opt-env-conf-test] @@ -446,12 +446,11 @@
  506. 1580.08 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  507. 1580.08 s [opt-env-conf-test] NE.nonEmpty $
  508. 1580.08 s [opt-env-conf-test] catMaybes
  509. 1580.08 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  510. 1580.08 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  511. 1580.08 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  512. 1580.08 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  513. 1580.08 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  514. 1580.08 s [opt-env-conf-test] ]
  515. 1580.08 s [opt-env-conf-test]
  516. 1580.08 s [opt-env-conf-test] withCapabilities ::
  517. 1580.08 s [opt-env-conf-test] Maybe SrcLoc ->
  518. 1580.08 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:440:44-42
  519. 1580.08 s [opt-env-conf-test] @@ -437,21 +437,20 @@
  520. 1580.08 s [opt-env-conf-test] Just (a, _) -> do
  521. 1580.08 s [opt-env-conf-test] debug ["set to default value"]
  522. 1580.08 s [opt-env-conf-test] pure a -- Don't mark as parsed
  523. 1580.08 s [opt-env-conf-test] Nothing -> do
  524. 1580.08 s [opt-env-conf-test] let parseResultError e res = case res of
  525. 1580.08 s [opt-env-conf-test] NotRun -> Nothing
  526. 1580.08 s [opt-env-conf-test] NotFound -> Just e
  527. 1580.08 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  528. 1580.08 s [opt-env-conf-test] - debug ["not found"]
  529. 1580.08 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  530. 1580.08 s [opt-env-conf-test] NE.nonEmpty $
  531. 1580.08 s [opt-env-conf-test] catMaybes
  532. 1580.08 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  533. 1580.08 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  534. 1580.08 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  535. 1580.09 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  536. 1580.09 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  537. 1580.09 s [opt-env-conf-test] ]
  538. 1580.09 s [opt-env-conf-test]
  539. 1580.09 s [opt-env-conf-test] withCapabilities ::
  540. 1580.09 s [opt-env-conf-test] Maybe SrcLoc ->
  541. 1580.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
  542. 1580.09 s [opt-env-conf-test] @@ -433,25 +433,22 @@
  543. 1580.09 s [opt-env-conf-test] markParsed
  544. 1580.09 s [opt-env-conf-test] pure a
  545. 1580.09 s [opt-env-conf-test] _ ->
  546. 1580.09 s [opt-env-conf-test] case settingDefaultValue of
  547. 1580.09 s [opt-env-conf-test] - Just (a, _) -> do
  548. 1580.09 s [opt-env-conf-test] - debug ["set to default value"]
  549. 1580.09 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  550. 1580.09 s [opt-env-conf-test] Nothing -> do
  551. 1580.09 s [opt-env-conf-test] let parseResultError e res = case res of
  552. 1580.09 s [opt-env-conf-test] NotRun -> Nothing
  553. 1580.09 s [opt-env-conf-test] NotFound -> Just e
  554. 1580.09 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  555. 1580.09 s [opt-env-conf-test] debug ["not found"]
  556. 1580.09 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  557. 1580.09 s [opt-env-conf-test] NE.nonEmpty $
  558. 1580.09 s [opt-env-conf-test] catMaybes
  559. 1580.09 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  560. 1580.09 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  561. 1580.09 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  562. 1580.09 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  563. 1580.09 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  564. 1580.09 s [opt-env-conf-test] ]
  565. 1580.09 s [opt-env-conf-test]
  566. 1580.09 s [opt-env-conf-test] withCapabilities ::
  567. 1580.09 s [opt-env-conf-test] Maybe SrcLoc ->
  568. 1580.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
  569. 1580.09 s [opt-env-conf-test] @@ -433,25 +433,10 @@
  570. 1580.09 s [opt-env-conf-test] markParsed
  571. 1580.09 s [opt-env-conf-test] pure a
  572. 1580.09 s [opt-env-conf-test] _ ->
  573. 1580.09 s [opt-env-conf-test] case settingDefaultValue of
  574. 1580.09 s [opt-env-conf-test] Just (a, _) -> do
  575. 1580.09 s [opt-env-conf-test] debug ["set to default value"]
  576. 1580.09 s [opt-env-conf-test] pure a -- Don't mark as parsed
  577. 1580.09 s [opt-env-conf-test] - Nothing -> do
  578. 1580.10 s [opt-env-conf-test] - let parseResultError e res = case res of
  579. 1580.10 s [opt-env-conf-test] - NotRun -> Nothing
  580. 1580.10 s [opt-env-conf-test] - NotFound -> Just e
  581. 1580.10 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  582. 1580.10 s [opt-env-conf-test] - debug ["not found"]
  583. 1580.10 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  584. 1580.10 s [opt-env-conf-test] - NE.nonEmpty $
  585. 1580.10 s [opt-env-conf-test] - catMaybes
  586. 1580.10 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  587. 1580.10 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  588. 1580.10 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  589. 1580.10 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  590. 1580.10 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  591. 1580.10 s [opt-env-conf-test] - ]
  592. 1580.10 s [opt-env-conf-test]
  593. 1580.10 s [opt-env-conf-test] withCapabilities ::
  594. 1580.10 s [opt-env-conf-test] Maybe SrcLoc ->
  595. 1580.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
  596. 1580.10 s [opt-env-conf-test] @@ -428,30 +428,27 @@
  597. 1580.10 s [opt-env-conf-test] Just a -> pure $ Found a
  598. 1580.10 s [opt-env-conf-test] Nothing -> goConfSets ne
  599. 1580.10 s [opt-env-conf-test] goConfSets confSets
  600. 1580.10 s [opt-env-conf-test] case mConf of
  601. 1580.10 s [opt-env-conf-test] - Found a -> do
  602. 1580.10 s [opt-env-conf-test] - markParsed
  603. 1580.10 s [opt-env-conf-test] - pure a
  604. 1580.10 s [opt-env-conf-test] _ ->
  605. 1580.83 s [opt-env-conf-test] case settingDefaultValue of
  606. 1580.91 s [opt-env-conf-test] Just (a, _) -> do
  607. 1580.91 s [opt-env-conf-test] debug ["set to default value"]
  608. 1580.91 s [opt-env-conf-test] pure a -- Don't mark as parsed
  609. 1580.91 s [opt-env-conf-test] Nothing -> do
  610. 1580.91 s [opt-env-conf-test] let parseResultError e res = case res of
  611. 1580.91 s [opt-env-conf-test] NotRun -> Nothing
  612. 1580.91 s [opt-env-conf-test] NotFound -> Just e
  613. 1580.91 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  614. 1580.91 s [opt-env-conf-test] debug ["not found"]
  615. 1580.91 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  616. 1580.91 s [opt-env-conf-test] NE.nonEmpty $
  617. 1580.91 s [opt-env-conf-test] catMaybes
  618. 1580.91 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  619. 1580.91 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  620. 1580.91 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  621. 1580.91 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  622. 1580.91 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  623. 1580.91 s [opt-env-conf-test] ]
  624. 1580.91 s [opt-env-conf-test]
  625. 1580.91 s [opt-env-conf-test] withCapabilities ::
  626. 1580.91 s [opt-env-conf-test] Maybe SrcLoc ->
  627. 1580.91 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
  628. 1580.91 s [opt-env-conf-test] @@ -428,30 +428,10 @@
  629. 1580.91 s [opt-env-conf-test] Just a -> pure $ Found a
  630. 1580.91 s [opt-env-conf-test] Nothing -> goConfSets ne
  631. 1580.91 s [opt-env-conf-test] goConfSets confSets
  632. 1580.91 s [opt-env-conf-test] case mConf of
  633. 1580.91 s [opt-env-conf-test] Found a -> do
  634. 1580.91 s [opt-env-conf-test] markParsed
  635. 1580.92 s [opt-env-conf-test] pure a
  636. 1580.92 s [opt-env-conf-test] - _ ->
  637. 1580.92 s [opt-env-conf-test] - case settingDefaultValue of
  638. 1580.92 s [opt-env-conf-test] - Just (a, _) -> do
  639. 1580.92 s [opt-env-conf-test] - debug ["set to default value"]
  640. 1580.92 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  641. 1580.92 s [opt-env-conf-test] - Nothing -> do
  642. 1580.92 s [opt-env-conf-test] - let parseResultError e res = case res of
  643. 1580.92 s [opt-env-conf-test] - NotRun -> Nothing
  644. 1580.92 s [opt-env-conf-test] - NotFound -> Just e
  645. 1580.92 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  646. 1580.92 s [opt-env-conf-test] - debug ["not found"]
  647. 1580.92 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  648. 1580.92 s [opt-env-conf-test] - NE.nonEmpty $
  649. 1580.92 s [opt-env-conf-test] - catMaybes
  650. 1580.92 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  651. 1580.92 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  652. 1580.92 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  653. 1580.92 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  654. 1580.92 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  655. 1580.92 s [opt-env-conf-test] - ]
  656. 1580.92 s [opt-env-conf-test]
  657. 1580.92 s [opt-env-conf-test] withCapabilities ::
  658. 1582.38 s [opt-env-conf-test] Maybe SrcLoc ->
  659. 1582.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
  660. 1582.38 s [opt-env-conf-test] @@ -366,92 +366,89 @@
  661. 1582.38 s [opt-env-conf-test] pure NotFound
  662. 1582.38 s [opt-env-conf-test] Just a -> pure $ Found a
  663. 1582.38 s [opt-env-conf-test]
  664. 1582.38 s [opt-env-conf-test] case mEnv of
  665. 1582.38 s [opt-env-conf-test] - Found a -> do
  666. 1582.39 s [opt-env-conf-test] - markParsed
  667. 1582.39 s [opt-env-conf-test] - pure a
  668. 1582.39 s [opt-env-conf-test] _ -> do
  669. 1582.39 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  670. 1582.39 s [opt-env-conf-test] mConf <- case settingConfigVals of
  671. 1582.39 s [opt-env-conf-test] Nothing -> pure NotRun
  672. 1582.39 s [opt-env-conf-test] Just confSets -> do
  673. 1582.39 s [opt-env-conf-test] mObj <- asks ppEnvConf
  674. 1582.39 s [opt-env-conf-test] case mObj of
  675. 1582.39 s [opt-env-conf-test] Nothing -> do
  676. 1582.39 s [opt-env-conf-test] debug ["no config object to set from"]
  677. 1582.39 s [opt-env-conf-test] pure NotFound
  678. 1582.39 s [opt-env-conf-test] Just obj -> do
  679. 1582.39 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  680. 1582.39 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  681. 1582.39 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  682. 1582.39 s [opt-env-conf-test] Nothing -> do
  683. 1582.39 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  684. 1582.39 s [opt-env-conf-test] Nothing -> pure Nothing
  685. 1582.39 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  686. 1582.39 s [opt-env-conf-test] Just neRest -> do
  687. 1582.39 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  688. 1582.39 s [opt-env-conf-test] case mO' of
  689. 1582.39 s [opt-env-conf-test] Nothing -> pure Nothing
  690. 1582.39 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  691. 1582.39 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  692. 1582.39 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  693. 1582.39 s [opt-env-conf-test] Right mV -> case mV of
  694. 1582.39 s [opt-env-conf-test] Nothing -> do
  695. 1582.39 s [opt-env-conf-test] debug
  696. 1582.40 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  697. 1582.40 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  698. 1582.40 s [opt-env-conf-test] ]
  699. 1582.40 s [opt-env-conf-test] pure Nothing
  700. 1582.40 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  701. 1582.40 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  702. 1582.40 s [opt-env-conf-test] Right mA -> case mA of
  703. 1582.40 s [opt-env-conf-test] Nothing -> do
  704. 1582.40 s [opt-env-conf-test] debug
  705. 1582.40 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  706. 1582.40 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  707. 1582.40 s [opt-env-conf-test] ]
  708. 1582.40 s [opt-env-conf-test] pure Nothing
  709. 1582.40 s [opt-env-conf-test] Just a -> do
  710. 1582.40 s [opt-env-conf-test] debug
  711. 1582.40 s [opt-env-conf-test] [ "set based on config value: ",
  712. 1582.40 s [opt-env-conf-test] chunk $ T.pack $ show v
  713. 1582.40 s [opt-env-conf-test] ]
  714. 1582.40 s [opt-env-conf-test] pure $ Just a
  715. 1582.40 s [opt-env-conf-test] let toRes = \case
  716. 1582.40 s [opt-env-conf-test] Nothing -> NotFound
  717. 1582.40 s [opt-env-conf-test] Just a -> Found a
  718. 1582.40 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  719. 1583.45 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  720. 1583.45 s [opt-env-conf-test] Just ne -> do
  721. 1583.45 s [opt-env-conf-test] res <- goConfSet confSet
  722. 1583.45 s [opt-env-conf-test] case res of
  723. 1583.45 s [opt-env-conf-test] Just a -> pure $ Found a
  724. 1583.45 s [opt-env-conf-test] Nothing -> goConfSets ne
  725. 1583.45 s [opt-env-conf-test] goConfSets confSets
  726. 1583.45 s [opt-env-conf-test] case mConf of
  727. 1583.45 s [opt-env-conf-test] Found a -> do
  728. 1583.46 s [opt-env-conf-test] markParsed
  729. 1583.46 s [opt-env-conf-test] pure a
  730. 1583.46 s [opt-env-conf-test] _ ->
  731. 1583.46 s [opt-env-conf-test] case settingDefaultValue of
  732. 1583.46 s [opt-env-conf-test] Just (a, _) -> do
  733. 1583.46 s [opt-env-conf-test] debug ["set to default value"]
  734. 1583.46 s [opt-env-conf-test] pure a -- Don't mark as parsed
  735. 1583.46 s [opt-env-conf-test] Nothing -> do
  736. 1583.46 s [opt-env-conf-test] let parseResultError e res = case res of
  737. 1583.46 s [opt-env-conf-test] NotRun -> Nothing
  738. 1583.46 s [opt-env-conf-test] NotFound -> Just e
  739. 1583.46 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  740. 1583.46 s [opt-env-conf-test] debug ["not found"]
  741. 1583.46 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  742. 1583.46 s [opt-env-conf-test] NE.nonEmpty $
  743. 1583.46 s [opt-env-conf-test] catMaybes
  744. 1583.46 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  745. 1583.46 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  746. 1583.46 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  747. 1583.46 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  748. 1583.46 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  749. 1583.46 s [opt-env-conf-test] ]
  750. 1583.46 s [opt-env-conf-test]
  751. 1583.46 s [opt-env-conf-test] withCapabilities ::
  752. 1583.46 s [opt-env-conf-test] Maybe SrcLoc ->
  753. 1583.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
  754. 1583.46 s [opt-env-conf-test] @@ -366,92 +366,10 @@
  755. 1583.46 s [opt-env-conf-test] pure NotFound
  756. 1583.46 s [opt-env-conf-test] Just a -> pure $ Found a
  757. 1583.46 s [opt-env-conf-test]
  758. 1583.46 s [opt-env-conf-test] case mEnv of
  759. 1583.46 s [opt-env-conf-test] Found a -> do
  760. 1583.46 s [opt-env-conf-test] markParsed
  761. 1583.46 s [opt-env-conf-test] pure a
  762. 1583.46 s [opt-env-conf-test] - _ -> do
  763. 1583.46 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  764. 1583.46 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  765. 1583.46 s [opt-env-conf-test] - Nothing -> pure NotRun
  766. 1583.46 s [opt-env-conf-test] - Just confSets -> do
  767. 1583.47 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  768. 1583.47 s [opt-env-conf-test] - case mObj of
  769. 1583.47 s [opt-env-conf-test] - Nothing -> do
  770. 1583.47 s [opt-env-conf-test] - debug ["no config object to set from"]
  771. 1583.47 s [opt-env-conf-test] - pure NotFound
  772. 1583.47 s [opt-env-conf-test] - Just obj -> do
  773. 1583.47 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  774. 1583.47 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  775. 1583.47 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  776. 1583.47 s [opt-env-conf-test] - Nothing -> do
  777. 1583.47 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  778. 1583.47 s [opt-env-conf-test] - Nothing -> pure Nothing
  779. 1583.47 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  780. 1583.47 s [opt-env-conf-test] - Just neRest -> do
  781. 1583.47 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  782. 1583.47 s [opt-env-conf-test] - case mO' of
  783. 1583.47 s [opt-env-conf-test] - Nothing -> pure Nothing
  784. 1583.47 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  785. 1583.47 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  786. 1583.47 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  787. 1583.47 s [opt-env-conf-test] - Right mV -> case mV of
  788. 1583.47 s [opt-env-conf-test] - Nothing -> do
  789. 1583.47 s [opt-env-conf-test] - debug
  790. 1583.47 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  791. 1583.47 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  792. 1583.47 s [opt-env-conf-test] - ]
  793. 1583.47 s [opt-env-conf-test] - pure Nothing
  794. 1583.47 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  795. 1583.47 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  796. 1583.47 s [opt-env-conf-test] - Right mA -> case mA of
  797. 1583.47 s [opt-env-conf-test] - Nothing -> do
  798. 1583.47 s [opt-env-conf-test] - debug
  799. 1583.47 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  800. 1583.47 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  801. 1583.47 s [opt-env-conf-test] - ]
  802. 1583.47 s [opt-env-conf-test] - pure Nothing
  803. 1583.47 s [opt-env-conf-test] - Just a -> do
  804. 1583.47 s [opt-env-conf-test] - debug
  805. 1583.47 s [opt-env-conf-test] - [ "set based on config value: ",
  806. 1583.47 s [opt-env-conf-test] - chunk $ T.pack $ show v
  807. 1583.47 s [opt-env-conf-test] - ]
  808. 1583.47 s [opt-env-conf-test] - pure $ Just a
  809. 1583.47 s [opt-env-conf-test] - let toRes = \case
  810. 1583.47 s [opt-env-conf-test] - Nothing -> NotFound
  811. 1583.47 s [opt-env-conf-test] - Just a -> Found a
  812. 1583.47 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  813. 1583.47 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  814. 1583.47 s [opt-env-conf-test] - Just ne -> do
  815. 1583.47 s [opt-env-conf-test] - res <- goConfSet confSet
  816. 1583.47 s [opt-env-conf-test] - case res of
  817. 1583.48 s [opt-env-conf-test] - Just a -> pure $ Found a
  818. 1583.48 s [opt-env-conf-test] - Nothing -> goConfSets ne
  819. 1583.48 s [opt-env-conf-test] - goConfSets confSets
  820. 1583.48 s [opt-env-conf-test] - case mConf of
  821. 1583.48 s [opt-env-conf-test] - Found a -> do
  822. 1583.48 s [opt-env-conf-test] - markParsed
  823. 1583.48 s [opt-env-conf-test] - pure a
  824. 1583.48 s [opt-env-conf-test] - _ ->
  825. 1583.48 s [opt-env-conf-test] - case settingDefaultValue of
  826. 1583.48 s [opt-env-conf-test] - Just (a, _) -> do
  827. 1583.48 s [opt-env-conf-test] - debug ["set to default value"]
  828. 1583.48 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  829. 1583.48 s [opt-env-conf-test] - Nothing -> do
  830. 1583.48 s [opt-env-conf-test] - let parseResultError e res = case res of
  831. 1583.48 s [opt-env-conf-test] - NotRun -> Nothing
  832. 1583.48 s [opt-env-conf-test] - NotFound -> Just e
  833. 1583.48 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  834. 1583.48 s [opt-env-conf-test] - debug ["not found"]
  835. 1583.48 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  836. 1583.48 s [opt-env-conf-test] - NE.nonEmpty $
  837. 1583.48 s [opt-env-conf-test] - catMaybes
  838. 1583.48 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  839. 1583.48 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  840. 1583.48 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  841. 1583.48 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  842. 1583.48 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  843. 1583.48 s [opt-env-conf-test] - ]
  844. 1583.48 s [opt-env-conf-test]
  845. 1583.48 s [opt-env-conf-test] withCapabilities ::
  846. 1583.48 s [opt-env-conf-test] Maybe SrcLoc ->
  847. 1583.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
  848. 1583.48 s [opt-env-conf-test] @@ -330,128 +330,125 @@
  849. 1583.48 s [opt-env-conf-test] pure $ Found a
  850. 1583.48 s [opt-env-conf-test] else pure NotRun
  851. 1583.48 s [opt-env-conf-test]
  852. 1583.48 s [opt-env-conf-test] case mOpt of
  853. 1583.48 s [opt-env-conf-test] - Found a -> do
  854. 1583.48 s [opt-env-conf-test] - markParsed
  855. 1583.48 s [opt-env-conf-test] - pure a
  856. 1583.48 s [opt-env-conf-test] _ -> do
  857. 1583.48 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  858. 1583.48 s [opt-env-conf-test] mEnv <- cap $ case settingEnvVars of
  859. 1583.48 s [opt-env-conf-test] Nothing -> pure NotRun
  860. 1583.48 s [opt-env-conf-test] Just ne -> do
  861. 1583.48 s [opt-env-conf-test] -- Require readers before finding the env vars so the parser
  862. 1583.48 s [opt-env-conf-test] -- always fails if it's missing a reader.
  863. 1583.48 s [opt-env-conf-test] rs <- requireReaders settingReaders
  864. 1583.48 s [opt-env-conf-test] es <- asks ppEnvEnv
  865. 1583.48 s [opt-env-conf-test] let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  866. 1583.48 s [opt-env-conf-test] -- Run the parser on all specified env vars before
  867. 1583.48 s [opt-env-conf-test] -- returning the first because we want to fail if any
  868. 1583.48 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  869. 1583.48 s [opt-env-conf-test] -- result.
  870. 1583.49 s [opt-env-conf-test] results <- for founds $ \varStr ->
  871. 1583.49 s [opt-env-conf-test] case tryReaders rs varStr of
  872. 1583.49 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  873. 1583.49 s [opt-env-conf-test] Right a -> do
  874. 1583.49 s [opt-env-conf-test] debug
  875. 1583.49 s [opt-env-conf-test] [ "set based on env: ",
  876. 1583.49 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  877. 1583.49 s [opt-env-conf-test] ]
  878. 1583.49 s [opt-env-conf-test] pure a
  879. 1583.49 s [opt-env-conf-test] case listToMaybe results of
  880. 1583.49 s [opt-env-conf-test] Nothing -> do
  881. 1583.49 s [opt-env-conf-test] debug
  882. 1583.49 s [opt-env-conf-test] [ "could not set based on env vars, no var: ",
  883. 1583.49 s [opt-env-conf-test] chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  884. 1583.49 s [opt-env-conf-test] ]
  885. 1583.49 s [opt-env-conf-test] pure NotFound
  886. 1583.49 s [opt-env-conf-test] Just a -> pure $ Found a
  887. 1583.49 s [opt-env-conf-test]
  888. 1583.49 s [opt-env-conf-test] case mEnv of
  889. 1583.49 s [opt-env-conf-test] Found a -> do
  890. 1583.49 s [opt-env-conf-test] markParsed
  891. 1583.49 s [opt-env-conf-test] pure a
  892. 1583.49 s [opt-env-conf-test] _ -> do
  893. 1583.49 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  894. 1583.49 s [opt-env-conf-test] mConf <- case settingConfigVals of
  895. 1583.49 s [opt-env-conf-test] Nothing -> pure NotRun
  896. 1583.49 s [opt-env-conf-test] Just confSets -> do
  897. 1583.49 s [opt-env-conf-test] mObj <- asks ppEnvConf
  898. 1583.49 s [opt-env-conf-test] case mObj of
  899. 1583.49 s [opt-env-conf-test] Nothing -> do
  900. 1583.49 s [opt-env-conf-test] debug ["no config object to set from"]
  901. 1583.49 s [opt-env-conf-test] pure NotFound
  902. 1583.49 s [opt-env-conf-test] Just obj -> do
  903. 1583.49 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  904. 1583.49 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  905. 1583.49 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  906. 1583.49 s [opt-env-conf-test] Nothing -> do
  907. 1583.49 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  908. 1583.49 s [opt-env-conf-test] Nothing -> pure Nothing
  909. 1583.49 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  910. 1583.49 s [opt-env-conf-test] Just neRest -> do
  911. 1583.49 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  912. 1583.49 s [opt-env-conf-test] case mO' of
  913. 1583.49 s [opt-env-conf-test] Nothing -> pure Nothing
  914. 1583.49 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  915. 1583.49 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  916. 1583.49 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  917. 1583.49 s [opt-env-conf-test] Right mV -> case mV of
  918. 1583.49 s [opt-env-conf-test] Nothing -> do
  919. 1583.49 s [opt-env-conf-test] debug
  920. 1583.49 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  921. 1583.49 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  922. 1583.49 s [opt-env-conf-test] ]
  923. 1583.49 s [opt-env-conf-test] pure Nothing
  924. 1583.50 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  925. 1583.50 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  926. 1583.50 s [opt-env-conf-test] Right mA -> case mA of
  927. 1583.50 s [opt-env-conf-test] Nothing -> do
  928. 1583.50 s [opt-env-conf-test] debug
  929. 1583.50 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  930. 1583.50 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  931. 1583.50 s [opt-env-conf-test] ]
  932. 1583.50 s [opt-env-conf-test] pure Nothing
  933. 1583.50 s [opt-env-conf-test] Just a -> do
  934. 1583.50 s [opt-env-conf-test] debug
  935. 1583.50 s [opt-env-conf-test] [ "set based on config value: ",
  936. 1583.50 s [opt-env-conf-test] chunk $ T.pack $ show v
  937. 1583.50 s [opt-env-conf-test] ]
  938. 1583.50 s [opt-env-conf-test] pure $ Just a
  939. 1583.50 s [opt-env-conf-test] let toRes = \case
  940. 1583.50 s [opt-env-conf-test] Nothing -> NotFound
  941. 1583.50 s [opt-env-conf-test] Just a -> Found a
  942. 1583.50 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  943. 1583.50 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  944. 1583.50 s [opt-env-conf-test] Just ne -> do
  945. 1583.62 s [opt-env-conf-test] res <- goConfSet confSet
  946. 1583.62 s [opt-env-conf-test] case res of
  947. 1583.62 s [opt-env-conf-test] Just a -> pure $ Found a
  948. 1583.62 s [opt-env-conf-test] Nothing -> goConfSets ne
  949. 1583.62 s [opt-env-conf-test] goConfSets confSets
  950. 1583.62 s [opt-env-conf-test] case mConf of
  951. 1583.62 s [opt-env-conf-test] Found a -> do
  952. 1583.62 s [opt-env-conf-test] markParsed
  953. 1583.62 s [opt-env-conf-test] pure a
  954. 1583.62 s [opt-env-conf-test] _ ->
  955. 1583.62 s [opt-env-conf-test] case settingDefaultValue of
  956. 1583.62 s [opt-env-conf-test] Just (a, _) -> do
  957. 1583.62 s [opt-env-conf-test] debug ["set to default value"]
  958. 1583.62 s [opt-env-conf-test] pure a -- Don't mark as parsed
  959. 1583.62 s [opt-env-conf-test] Nothing -> do
  960. 1583.62 s [opt-env-conf-test] let parseResultError e res = case res of
  961. 1583.62 s [opt-env-conf-test] NotRun -> Nothing
  962. 1583.62 s [opt-env-conf-test] NotFound -> Just e
  963. 1583.62 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  964. 1583.62 s [opt-env-conf-test] debug ["not found"]
  965. 1583.62 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  966. 1583.62 s [opt-env-conf-test] NE.nonEmpty $
  967. 1583.62 s [opt-env-conf-test] catMaybes
  968. 1583.63 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  969. 1583.63 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  970. 1583.63 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  971. 1583.63 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  972. 1583.63 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  973. 1583.63 s [opt-env-conf-test] ]
  974. 1583.63 s [opt-env-conf-test]
  975. 1583.63 s [opt-env-conf-test] withCapabilities ::
  976. 1583.63 s [opt-env-conf-test] Maybe SrcLoc ->
  977. 1583.63 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
  978. 1583.63 s [opt-env-conf-test] @@ -330,128 +330,10 @@
  979. 1583.63 s [opt-env-conf-test] pure $ Found a
  980. 1583.63 s [opt-env-conf-test] else pure NotRun
  981. 1583.63 s [opt-env-conf-test]
  982. 1583.63 s [opt-env-conf-test] case mOpt of
  983. 1583.63 s [opt-env-conf-test] Found a -> do
  984. 1583.63 s [opt-env-conf-test] markParsed
  985. 1583.63 s [opt-env-conf-test] pure a
  986. 1583.63 s [opt-env-conf-test] - _ -> do
  987. 1583.63 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  988. 1583.63 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  989. 1583.63 s [opt-env-conf-test] - Nothing -> pure NotRun
  990. 1583.63 s [opt-env-conf-test] - Just ne -> do
  991. 1583.63 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  992. 1583.63 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  993. 1583.63 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  994. 1583.63 s [opt-env-conf-test] - es <- asks ppEnvEnv
  995. 1583.63 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  996. 1583.63 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  997. 1583.63 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  998. 1583.63 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  999. 1583.63 s [opt-env-conf-test] - -- result.
  1000. 1583.63 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  1001. 1583.63 s [opt-env-conf-test] - case tryReaders rs varStr of
  1002. 1583.63 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  1003. 1583.63 s [opt-env-conf-test] - Right a -> do
  1004. 1583.63 s [opt-env-conf-test] - debug
  1005. 1583.63 s [opt-env-conf-test] - [ "set based on env: ",
  1006. 1583.63 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  1007. 1583.63 s [opt-env-conf-test] - ]
  1008. 1583.63 s [opt-env-conf-test] - pure a
  1009. 1583.63 s [opt-env-conf-test] - case listToMaybe results of
  1010. 1583.63 s [opt-env-conf-test] - Nothing -> do
  1011. 1583.64 s [opt-env-conf-test] - debug
  1012. 1583.64 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  1013. 1583.64 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  1014. 1583.64 s [opt-env-conf-test] - ]
  1015. 1583.64 s [opt-env-conf-test] - pure NotFound
  1016. 1583.64 s [opt-env-conf-test] - Just a -> pure $ Found a
  1017. 1583.64 s [opt-env-conf-test] -
  1018. 1583.64 s [opt-env-conf-test] - case mEnv of
  1019. 1583.64 s [opt-env-conf-test] - Found a -> do
  1020. 1583.64 s [opt-env-conf-test] - markParsed
  1021. 1583.64 s [opt-env-conf-test] - pure a
  1022. 1583.64 s [opt-env-conf-test] - _ -> do
  1023. 1583.64 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  1024. 1583.64 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  1025. 1583.64 s [opt-env-conf-test] - Nothing -> pure NotRun
  1026. 1583.64 s [opt-env-conf-test] - Just confSets -> do
  1027. 1583.64 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  1028. 1583.64 s [opt-env-conf-test] - case mObj of
  1029. 1583.64 s [opt-env-conf-test] - Nothing -> do
  1030. 1583.64 s [opt-env-conf-test] - debug ["no config object to set from"]
  1031. 1583.64 s [opt-env-conf-test] - pure NotFound
  1032. 1583.64 s [opt-env-conf-test] - Just obj -> do
  1033. 1583.64 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  1034. 1583.64 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  1035. 1583.64 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  1036. 1583.64 s [opt-env-conf-test] - Nothing -> do
  1037. 1583.64 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  1038. 1583.64 s [opt-env-conf-test] - Nothing -> pure Nothing
  1039. 1583.64 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  1040. 1583.64 s [opt-env-conf-test] - Just neRest -> do
  1041. 1583.64 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  1042. 1583.64 s [opt-env-conf-test] - case mO' of
  1043. 1583.64 s [opt-env-conf-test] - Nothing -> pure Nothing
  1044. 1583.64 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  1045. 1583.64 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  1046. 1583.64 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1047. 1583.64 s [opt-env-conf-test] - Right mV -> case mV of
  1048. 1583.64 s [opt-env-conf-test] - Nothing -> do
  1049. 1583.64 s [opt-env-conf-test] - debug
  1050. 1583.64 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  1051. 1583.64 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  1052. 1583.64 s [opt-env-conf-test] - ]
  1053. 1583.64 s [opt-env-conf-test] - pure Nothing
  1054. 1583.64 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  1055. 1583.64 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1056. 1583.64 s [opt-env-conf-test] - Right mA -> case mA of
  1057. 1583.64 s [opt-env-conf-test] - Nothing -> do
  1058. 1583.64 s [opt-env-conf-test] - debug
  1059. 1583.64 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  1060. 1583.64 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  1061. 1583.65 s [opt-env-conf-test] - ]
  1062. 1583.65 s [opt-env-conf-test] - pure Nothing
  1063. 1583.65 s [opt-env-conf-test] - Just a -> do
  1064. 1583.65 s [opt-env-conf-test] - debug
  1065. 1583.65 s [opt-env-conf-test] - [ "set based on config value: ",
  1066. 1583.65 s [opt-env-conf-test] - chunk $ T.pack $ show v
  1067. 1583.65 s [opt-env-conf-test] - ]
  1068. 1583.65 s [opt-env-conf-test] - pure $ Just a
  1069. 1583.65 s [opt-env-conf-test] - let toRes = \case
  1070. 1583.65 s [opt-env-conf-test] - Nothing -> NotFound
  1071. 1583.65 s [opt-env-conf-test] - Just a -> Found a
  1072. 1583.65 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  1073. 1583.65 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  1074. 1583.65 s [opt-env-conf-test] - Just ne -> do
  1075. 1583.65 s [opt-env-conf-test] - res <- goConfSet confSet
  1076. 1583.65 s [opt-env-conf-test] - case res of
  1077. 1583.65 s [opt-env-conf-test] - Just a -> pure $ Found a
  1078. 1583.65 s [opt-env-conf-test] - Nothing -> goConfSets ne
  1079. 1583.65 s [opt-env-conf-test] - goConfSets confSets
  1080. 1583.65 s [opt-env-conf-test] - case mConf of
  1081. 1583.65 s [opt-env-conf-test] - Found a -> do
  1082. 1583.65 s [opt-env-conf-test] - markParsed
  1083. 1583.65 s [opt-env-conf-test] - pure a
  1084. 1583.65 s [opt-env-conf-test] - _ ->
  1085. 1583.65 s [opt-env-conf-test] - case settingDefaultValue of
  1086. 1583.65 s [opt-env-conf-test] - Just (a, _) -> do
  1087. 1583.65 s [opt-env-conf-test] - debug ["set to default value"]
  1088. 1583.65 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  1089. 1583.65 s [opt-env-conf-test] - Nothing -> do
  1090. 1583.65 s [opt-env-conf-test] - let parseResultError e res = case res of
  1091. 1583.65 s [opt-env-conf-test] - NotRun -> Nothing
  1092. 1583.65 s [opt-env-conf-test] - NotFound -> Just e
  1093. 1583.65 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  1094. 1583.65 s [opt-env-conf-test] - debug ["not found"]
  1095. 1584.53 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  1096. 1584.53 s [opt-env-conf-test] - NE.nonEmpty $
  1097. 1584.53 s [opt-env-conf-test] - catMaybes
  1098. 1584.53 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  1099. 1584.53 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  1100. 1584.53 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  1101. 1584.53 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  1102. 1584.53 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  1103. 1584.53 s [opt-env-conf-test] - ]
  1104. 1584.53 s [opt-env-conf-test]
  1105. 1584.53 s [opt-env-conf-test] withCapabilities ::
  1106. 1584.53 s [opt-env-conf-test] Maybe SrcLoc ->
  1107. 1584.53 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
  1108. 1584.54 s [opt-env-conf-test] @@ -300,158 +300,155 @@
  1109. 1584.54 s [opt-env-conf-test] debug ["set based on switch."]
  1110. 1584.54 s [opt-env-conf-test] pure $ Found a
  1111. 1584.54 s [opt-env-conf-test]
  1112. 1584.54 s [opt-env-conf-test] case mSwitch of
  1113. 1584.54 s [opt-env-conf-test] - Found a -> do
  1114. 1584.54 s [opt-env-conf-test] - markParsed
  1115. 1584.54 s [opt-env-conf-test] - pure a
  1116. 1584.54 s [opt-env-conf-test] _ -> do
  1117. 1584.54 s [opt-env-conf-test] mOpt <-
  1118. 1584.54 s [opt-env-conf-test] if settingTryOption
  1119. 1584.54 s [opt-env-conf-test] then do
  1120. 1584.54 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  1121. 1584.54 s [opt-env-conf-test] -- always fails if it's missing a reader.
  1122. 1584.54 s [opt-env-conf-test] rs <- requireReaders settingReaders
  1123. 1584.54 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  1124. 1584.54 s [opt-env-conf-test] case mS of
  1125. 1584.54 s [opt-env-conf-test] Nothing -> do
  1126. 1584.54 s [opt-env-conf-test] debug
  1127. 1584.54 s [opt-env-conf-test] [ "could not set based on options, no option: ",
  1128. 1584.54 s [opt-env-conf-test] chunk $ T.pack $ show $ map renderDashed settingDasheds
  1129. 1584.54 s [opt-env-conf-test] ]
  1130. 1584.54 s [opt-env-conf-test] pure NotFound
  1131. 1584.54 s [opt-env-conf-test] Just optionStr -> cap $
  1132. 1584.54 s [opt-env-conf-test] case tryReaders rs optionStr of
  1133. 1584.54 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  1134. 1584.54 s [opt-env-conf-test] Right a -> do
  1135. 1584.54 s [opt-env-conf-test] debug
  1136. 1584.54 s [opt-env-conf-test] [ "set based on option: ",
  1137. 1584.54 s [opt-env-conf-test] chunk $ T.pack $ show optionStr
  1138. 1584.54 s [opt-env-conf-test] ]
  1139. 1584.54 s [opt-env-conf-test] pure $ Found a
  1140. 1584.54 s [opt-env-conf-test] else pure NotRun
  1141. 1584.54 s [opt-env-conf-test]
  1142. 1584.54 s [opt-env-conf-test] case mOpt of
  1143. 1584.54 s [opt-env-conf-test] Found a -> do
  1144. 1584.54 s [opt-env-conf-test] markParsed
  1145. 1584.54 s [opt-env-conf-test] pure a
  1146. 1584.54 s [opt-env-conf-test] _ -> do
  1147. 1584.54 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  1148. 1584.54 s [opt-env-conf-test] mEnv <- cap $ case settingEnvVars of
  1149. 1584.54 s [opt-env-conf-test] Nothing -> pure NotRun
  1150. 1584.54 s [opt-env-conf-test] Just ne -> do
  1151. 1584.54 s [opt-env-conf-test] -- Require readers before finding the env vars so the parser
  1152. 1584.54 s [opt-env-conf-test] -- always fails if it's missing a reader.
  1153. 1584.54 s [opt-env-conf-test] rs <- requireReaders settingReaders
  1154. 1584.54 s [opt-env-conf-test] es <- asks ppEnvEnv
  1155. 1584.54 s [opt-env-conf-test] let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  1156. 1584.54 s [opt-env-conf-test] -- Run the parser on all specified env vars before
  1157. 1584.54 s [opt-env-conf-test] -- returning the first because we want to fail if any
  1158. 1584.54 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  1159. 1584.54 s [opt-env-conf-test] -- result.
  1160. 1584.54 s [opt-env-conf-test] results <- for founds $ \varStr ->
  1161. 1584.54 s [opt-env-conf-test] case tryReaders rs varStr of
  1162. 1584.54 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  1163. 1584.54 s [opt-env-conf-test] Right a -> do
  1164. 1584.54 s [opt-env-conf-test] debug
  1165. 1584.54 s [opt-env-conf-test] [ "set based on env: ",
  1166. 1584.54 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  1167. 1584.54 s [opt-env-conf-test] ]
  1168. 1584.54 s [opt-env-conf-test] pure a
  1169. 1584.54 s [opt-env-conf-test] case listToMaybe results of
  1170. 1584.54 s [opt-env-conf-test] Nothing -> do
  1171. 1584.54 s [opt-env-conf-test] debug
  1172. 1584.54 s [opt-env-conf-test] [ "could not set based on env vars, no var: ",
  1173. 1584.54 s [opt-env-conf-test] chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  1174. 1584.54 s [opt-env-conf-test] ]
  1175. 1584.54 s [opt-env-conf-test] pure NotFound
  1176. 1584.54 s [opt-env-conf-test] Just a -> pure $ Found a
  1177. 1584.54 s [opt-env-conf-test]
  1178. 1584.54 s [opt-env-conf-test] case mEnv of
  1179. 1584.54 s [opt-env-conf-test] Found a -> do
  1180. 1584.54 s [opt-env-conf-test] markParsed
  1181. 1584.54 s [opt-env-conf-test] pure a
  1182. 1584.54 s [opt-env-conf-test] _ -> do
  1183. 1584.54 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  1184. 1584.54 s [opt-env-conf-test] mConf <- case settingConfigVals of
  1185. 1584.54 s [opt-env-conf-test] Nothing -> pure NotRun
  1186. 1584.54 s [opt-env-conf-test] Just confSets -> do
  1187. 1584.54 s [opt-env-conf-test] mObj <- asks ppEnvConf
  1188. 1584.54 s [opt-env-conf-test] case mObj of
  1189. 1584.54 s [opt-env-conf-test] Nothing -> do
  1190. 1584.54 s [opt-env-conf-test] debug ["no config object to set from"]
  1191. 1584.54 s [opt-env-conf-test] pure NotFound
  1192. 1584.54 s [opt-env-conf-test] Just obj -> do
  1193. 1584.54 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  1194. 1584.54 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  1195. 1584.54 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  1196. 1584.54 s [opt-env-conf-test] Nothing -> do
  1197. 1584.54 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  1198. 1584.54 s [opt-env-conf-test] Nothing -> pure Nothing
  1199. 1584.54 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  1200. 1584.54 s [opt-env-conf-test] Just neRest -> do
  1201. 1584.54 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  1202. 1584.54 s [opt-env-conf-test] case mO' of
  1203. 1584.54 s [opt-env-conf-test] Nothing -> pure Nothing
  1204. 1584.54 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  1205. 1584.54 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  1206. 1584.54 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1207. 1584.54 s [opt-env-conf-test] Right mV -> case mV of
  1208. 1584.54 s [opt-env-conf-test] Nothing -> do
  1209. 1584.54 s [opt-env-conf-test] debug
  1210. 1584.54 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  1211. 1584.54 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  1212. 1584.54 s [opt-env-conf-test] ]
  1213. 1584.54 s [opt-env-conf-test] pure Nothing
  1214. 1584.54 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  1215. 1584.55 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1216. 1584.55 s [opt-env-conf-test] Right mA -> case mA of
  1217. 1584.55 s [opt-env-conf-test] Nothing -> do
  1218. 1584.55 s [opt-env-conf-test] debug
  1219. 1584.55 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  1220. 1584.55 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  1221. 1584.55 s [opt-env-conf-test] ]
  1222. 1584.55 s [opt-env-conf-test] pure Nothing
  1223. 1584.55 s [opt-env-conf-test] Just a -> do
  1224. 1584.55 s [opt-env-conf-test] debug
  1225. 1584.55 s [opt-env-conf-test] [ "set based on config value: ",
  1226. 1584.55 s [opt-env-conf-test] chunk $ T.pack $ show v
  1227. 1584.55 s [opt-env-conf-test] ]
  1228. 1584.55 s [opt-env-conf-test] pure $ Just a
  1229. 1584.55 s [opt-env-conf-test] let toRes = \case
  1230. 1584.55 s [opt-env-conf-test] Nothing -> NotFound
  1231. 1584.55 s [opt-env-conf-test] Just a -> Found a
  1232. 1584.55 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  1233. 1584.55 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  1234. 1584.55 s [opt-env-conf-test] Just ne -> do
  1235. 1584.55 s [opt-env-conf-test] res <- goConfSet confSet
  1236. 1584.55 s [opt-env-conf-test] case res of
  1237. 1584.55 s [opt-env-conf-test] Just a -> pure $ Found a
  1238. 1584.55 s [opt-env-conf-test] Nothing -> goConfSets ne
  1239. 1584.55 s [opt-env-conf-test] goConfSets confSets
  1240. 1584.55 s [opt-env-conf-test] case mConf of
  1241. 1584.55 s [opt-env-conf-test] Found a -> do
  1242. 1584.55 s [opt-env-conf-test] markParsed
  1243. 1584.55 s [opt-env-conf-test] pure a
  1244. 1584.55 s [opt-env-conf-test] _ ->
  1245. 1584.55 s [opt-env-conf-test] case settingDefaultValue of
  1246. 1584.55 s [opt-env-conf-test] Just (a, _) -> do
  1247. 1585.11 s [opt-env-conf-test] debug ["set to default value"]
  1248. 1585.11 s [opt-env-conf-test] pure a -- Don't mark as parsed
  1249. 1585.11 s [opt-env-conf-test] Nothing -> do
  1250. 1585.11 s [opt-env-conf-test] let parseResultError e res = case res of
  1251. 1585.11 s [opt-env-conf-test] NotRun -> Nothing
  1252. 1585.11 s [opt-env-conf-test] NotFound -> Just e
  1253. 1585.11 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  1254. 1585.11 s [opt-env-conf-test] debug ["not found"]
  1255. 1585.11 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  1256. 1585.11 s [opt-env-conf-test] NE.nonEmpty $
  1257. 1585.11 s [opt-env-conf-test] catMaybes
  1258. 1585.11 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  1259. 1585.11 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  1260. 1585.11 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  1261. 1585.11 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  1262. 1585.11 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  1263. 1585.11 s [opt-env-conf-test] ]
  1264. 1585.11 s [opt-env-conf-test]
  1265. 1585.11 s [opt-env-conf-test] withCapabilities ::
  1266. 1585.11 s [opt-env-conf-test] Maybe SrcLoc ->
  1267. 1585.11 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
  1268. 1585.11 s [opt-env-conf-test] @@ -89,18 +89,15 @@
  1269. 1585.11 s [opt-env-conf-test] let goNexts ns = do
  1270. 1585.11 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  1271. 1585.11 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  1272. 1585.11 s [opt-env-conf-test] case mNext of
  1273. 1585.11 s [opt-env-conf-test] Nothing ->
  1274. 1585.11 s [opt-env-conf-test] pure $
  1275. 1585.11 s [opt-env-conf-test] Left $
  1276. 1585.11 s [opt-env-conf-test] -- Only show source locations in debug mode.
  1277. 1585.11 s [opt-env-conf-test] let f = case mDebugMode of
  1278. 1585.11 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  1279. 1585.11 s [opt-env-conf-test] Just _ -> id
  1280. 1585.11 s [opt-env-conf-test] in f firstErrors
  1281. 1585.12 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  1282. 1585.12 s [opt-env-conf-test] - Success a -> pure (Right a)
  1283. 1585.12 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  1284. 1585.12 s [opt-env-conf-test] in goNexts nexts
  1285. 1585.12 s [opt-env-conf-test] where
  1286. 1585.12 s [opt-env-conf-test] go ::
  1287. 1585.12 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
  1288. 1585.12 s [opt-env-conf-test] @@ -300,158 +300,10 @@
  1289. 1585.12 s [opt-env-conf-test] debug ["set based on switch."]
  1290. 1585.12 s [opt-env-conf-test] pure $ Found a
  1291. 1585.12 s [opt-env-conf-test]
  1292. 1585.12 s [opt-env-conf-test] case mSwitch of
  1293. 1585.12 s [opt-env-conf-test] Found a -> do
  1294. 1585.12 s [opt-env-conf-test] markParsed
  1295. 1585.12 s [opt-env-conf-test] pure a
  1296. 1585.12 s [opt-env-conf-test] - _ -> do
  1297. 1585.12 s [opt-env-conf-test] - mOpt <-
  1298. 1585.12 s [opt-env-conf-test] - if settingTryOption
  1299. 1585.12 s [opt-env-conf-test] - then do
  1300. 1585.12 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  1301. 1585.12 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  1302. 1585.12 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  1303. 1585.12 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  1304. 1585.12 s [opt-env-conf-test] - case mS of
  1305. 1585.12 s [opt-env-conf-test] - Nothing -> do
  1306. 1585.12 s [opt-env-conf-test] - debug
  1307. 1585.12 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  1308. 1585.12 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  1309. 1585.12 s [opt-env-conf-test] - ]
  1310. 1585.12 s [opt-env-conf-test] - pure NotFound
  1311. 1585.12 s [opt-env-conf-test] - Just optionStr -> cap $
  1312. 1585.12 s [opt-env-conf-test] - case tryReaders rs optionStr of
  1313. 1585.12 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  1314. 1585.12 s [opt-env-conf-test] - Right a -> do
  1315. 1585.12 s [opt-env-conf-test] - debug
  1316. 1585.12 s [opt-env-conf-test] - [ "set based on option: ",
  1317. 1585.12 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  1318. 1585.12 s [opt-env-conf-test] - ]
  1319. 1585.12 s [opt-env-conf-test] - pure $ Found a
  1320. 1585.12 s [opt-env-conf-test] - else pure NotRun
  1321. 1585.12 s [opt-env-conf-test] -
  1322. 1585.12 s [opt-env-conf-test] - case mOpt of
  1323. 1585.12 s [opt-env-conf-test] - Found a -> do
  1324. 1585.12 s [opt-env-conf-test] - markParsed
  1325. 1585.12 s [opt-env-conf-test] - pure a
  1326. 1585.12 s [opt-env-conf-test] - _ -> do
  1327. 1585.12 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  1328. 1585.12 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  1329. 1585.12 s [opt-env-conf-test] - Nothing -> pure NotRun
  1330. 1585.12 s [opt-env-conf-test] - Just ne -> do
  1331. 1585.12 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  1332. 1585.12 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  1333. 1585.12 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  1334. 1585.13 s [opt-env-conf-test] - es <- asks ppEnvEnv
  1335. 1585.13 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  1336. 1585.13 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  1337. 1585.13 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  1338. 1585.13 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  1339. 1585.13 s [opt-env-conf-test] - -- result.
  1340. 1585.13 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  1341. 1585.13 s [opt-env-conf-test] - case tryReaders rs varStr of
  1342. 1585.13 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  1343. 1585.13 s [opt-env-conf-test] - Right a -> do
  1344. 1585.13 s [opt-env-conf-test] - debug
  1345. 1585.13 s [opt-env-conf-test] - [ "set based on env: ",
  1346. 1585.13 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  1347. 1585.13 s [opt-env-conf-test] - ]
  1348. 1585.13 s [opt-env-conf-test] - pure a
  1349. 1585.13 s [opt-env-conf-test] - case listToMaybe results of
  1350. 1585.13 s [opt-env-conf-test] - Nothing -> do
  1351. 1585.13 s [opt-env-conf-test] - debug
  1352. 1585.13 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  1353. 1585.13 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  1354. 1585.13 s [opt-env-conf-test] - ]
  1355. 1585.13 s [opt-env-conf-test] - pure NotFound
  1356. 1585.13 s [opt-env-conf-test] - Just a -> pure $ Found a
  1357. 1585.13 s [opt-env-conf-test] -
  1358. 1585.13 s [opt-env-conf-test] - case mEnv of
  1359. 1585.13 s [opt-env-conf-test] - Found a -> do
  1360. 1585.13 s [opt-env-conf-test] - markParsed
  1361. 1585.13 s [opt-env-conf-test] - pure a
  1362. 1585.13 s [opt-env-conf-test] - _ -> do
  1363. 1585.13 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  1364. 1585.13 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  1365. 1585.13 s [opt-env-conf-test] - Nothing -> pure NotRun
  1366. 1585.13 s [opt-env-conf-test] - Just confSets -> do
  1367. 1585.13 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  1368. 1585.13 s [opt-env-conf-test] - case mObj of
  1369. 1585.13 s [opt-env-conf-test] - Nothing -> do
  1370. 1585.13 s [opt-env-conf-test] - debug ["no config object to set from"]
  1371. 1585.13 s [opt-env-conf-test] - pure NotFound
  1372. 1585.13 s [opt-env-conf-test] - Just obj -> do
  1373. 1585.13 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  1374. 1585.13 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  1375. 1585.13 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  1376. 1585.13 s [opt-env-conf-test] - Nothing -> do
  1377. 1585.13 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  1378. 1585.13 s [opt-env-conf-test] - Nothing -> pure Nothing
  1379. 1585.13 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  1380. 1585.13 s [opt-env-conf-test] - Just neRest -> do
  1381. 1585.13 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  1382. 1585.13 s [opt-env-conf-test] - case mO' of
  1383. 1585.13 s [opt-env-conf-test] - Nothing -> pure Nothing
  1384. 1585.13 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  1385. 1585.13 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  1386. 1585.13 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1387. 1585.13 s [opt-env-conf-test] - Right mV -> case mV of
  1388. 1585.13 s [opt-env-conf-test] - Nothing -> do
  1389. 1585.14 s [opt-env-conf-test] - debug
  1390. 1585.14 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  1391. 1585.14 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  1392. 1585.14 s [opt-env-conf-test] - ]
  1393. 1585.14 s [opt-env-conf-test] - pure Nothing
  1394. 1585.14 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  1395. 1585.14 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1396. 1585.14 s [opt-env-conf-test] - Right mA -> case mA of
  1397. 1585.14 s [opt-env-conf-test] - Nothing -> do
  1398. 1585.14 s [opt-env-conf-test] - debug
  1399. 1585.14 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  1400. 1585.14 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  1401. 1585.14 s [opt-env-conf-test] - ]
  1402. 1585.14 s [opt-env-conf-test] - pure Nothing
  1403. 1585.14 s [opt-env-conf-test] - Just a -> do
  1404. 1585.14 s [opt-env-conf-test] - debug
  1405. 1585.14 s [opt-env-conf-test] - [ "set based on config value: ",
  1406. 1585.14 s [opt-env-conf-test] - chunk $ T.pack $ show v
  1407. 1585.14 s [opt-env-conf-test] - ]
  1408. 1585.14 s [opt-env-conf-test] - pure $ Just a
  1409. 1585.14 s [opt-env-conf-test] - let toRes = \case
  1410. 1585.14 s [opt-env-conf-test] - Nothing -> NotFound
  1411. 1585.14 s [opt-env-conf-test] - Just a -> Found a
  1412. 1585.14 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  1413. 1585.14 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  1414. 1585.14 s [opt-env-conf-test] - Just ne -> do
  1415. 1585.14 s [opt-env-conf-test] - res <- goConfSet confSet
  1416. 1585.14 s [opt-env-conf-test] - case res of
  1417. 1585.14 s [opt-env-conf-test] - Just a -> pure $ Found a
  1418. 1585.14 s [opt-env-conf-test] - Nothing -> goConfSets ne
  1419. 1585.14 s [opt-env-conf-test] - goConfSets confSets
  1420. 1585.14 s [opt-env-conf-test] - case mConf of
  1421. 1585.14 s [opt-env-conf-test] - Found a -> do
  1422. 1585.14 s [opt-env-conf-test] - markParsed
  1423. 1585.14 s [opt-env-conf-test] - pure a
  1424. 1585.14 s [opt-env-conf-test] - _ ->
  1425. 1585.14 s [opt-env-conf-test] - case settingDefaultValue of
  1426. 1585.14 s [opt-env-conf-test] - Just (a, _) -> do
  1427. 1585.14 s [opt-env-conf-test] - debug ["set to default value"]
  1428. 1585.14 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  1429. 1585.14 s [opt-env-conf-test] - Nothing -> do
  1430. 1585.14 s [opt-env-conf-test] - let parseResultError e res = case res of
  1431. 1585.14 s [opt-env-conf-test] - NotRun -> Nothing
  1432. 1585.14 s [opt-env-conf-test] - NotFound -> Just e
  1433. 1585.14 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  1434. 1585.14 s [opt-env-conf-test] - debug ["not found"]
  1435. 1585.14 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  1436. 1585.14 s [opt-env-conf-test] - NE.nonEmpty $
  1437. 1585.14 s [opt-env-conf-test] - catMaybes
  1438. 1585.14 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  1439. 1585.14 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  1440. 1585.97 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  1441. 1585.97 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  1442. 1586.08 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  1443. 1586.08 s [opt-env-conf-test] - ]
  1444. 1586.08 s [opt-env-conf-test]
  1445. 1586.08 s [opt-env-conf-test] withCapabilities ::
  1446. 1586.08 s [opt-env-conf-test] Maybe SrcLoc ->
  1447. 1586.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  1448. 1586.08 s [opt-env-conf-test] @@ -81,27 +81,26 @@
  1449. 1586.08 s [opt-env-conf-test] Nothing -> pure result
  1450. 1586.08 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  1451. 1586.08 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  1452. 1586.08 s [opt-env-conf-test] case mTup of
  1453. 1586.08 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  1454. 1586.08 s [opt-env-conf-test] Just ((errOrRes, _), nexts) -> case errOrRes of
  1455. 1586.08 s [opt-env-conf-test] Success a -> pure (Right a)
  1456. 1586.08 s [opt-env-conf-test] Failure firstErrors ->
  1457. 1586.08 s [opt-env-conf-test] let goNexts ns = do
  1458. 1586.08 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  1459. 1586.08 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  1460. 1586.08 s [opt-env-conf-test] case mNext of
  1461. 1586.08 s [opt-env-conf-test] Nothing ->
  1462. 1586.08 s [opt-env-conf-test] pure $
  1463. 1586.08 s [opt-env-conf-test] Left $
  1464. 1586.08 s [opt-env-conf-test] -- Only show source locations in debug mode.
  1465. 1586.08 s [opt-env-conf-test] let f = case mDebugMode of
  1466. 1586.08 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  1467. 1586.08 s [opt-env-conf-test] Just _ -> id
  1468. 1586.08 s [opt-env-conf-test] in f firstErrors
  1469. 1586.08 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  1470. 1586.08 s [opt-env-conf-test] Success a -> pure (Right a)
  1471. 1586.08 s [opt-env-conf-test] Failure _ -> goNexts ns'
  1472. 1586.08 s [opt-env-conf-test] in goNexts nexts
  1473. 1586.08 s [opt-env-conf-test] where
  1474. 1586.08 s [opt-env-conf-test] go ::
  1475. 1586.09 s [opt-env-conf-test] Parser a ->
  1476. 1586.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
  1477. 1586.09 s [opt-env-conf-test] @@ -227,10 +227,7 @@
  1478. 1586.09 s [opt-env-conf-test] internalParser p =
  1479. 1586.09 s [opt-env-conf-test] choice
  1480. 1586.09 s [opt-env-conf-test] [ setting
  1481. 1586.09 s [opt-env-conf-test] - [ switch ShowVersion,
  1482. 1586.09 s [opt-env-conf-test] - long "version",
  1483. 1586.09 s [opt-env-conf-test] - hidden
  1484. 1586.09 s [opt-env-conf-test] ],
  1485. 1586.09 s [opt-env-conf-test] setting
  1486. 1586.09 s [opt-env-conf-test] [ switch RenderMan,
  1487. 1586.09 s [opt-env-conf-test] long "render-man-page",
  1488. 1586.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
  1489. 1586.09 s [opt-env-conf-test] @@ -280,178 +280,175 @@
  1490. 1586.09 s [opt-env-conf-test] pure $ Found a
  1491. 1586.09 s [opt-env-conf-test] else pure NotRun
  1492. 1586.09 s [opt-env-conf-test]
  1493. 1586.09 s [opt-env-conf-test] case mArg of
  1494. 1586.09 s [opt-env-conf-test] - Found a -> do
  1495. 1586.09 s [opt-env-conf-test] - markParsed
  1496. 1586.09 s [opt-env-conf-test] - pure a
  1497. 1586.09 s [opt-env-conf-test] _ -> do
  1498. 1586.09 s [opt-env-conf-test] mSwitch <- case settingSwitchValue of
  1499. 1586.09 s [opt-env-conf-test] Nothing -> pure NotRun
  1500. 1586.09 s [opt-env-conf-test] Just a -> do
  1501. 1586.09 s [opt-env-conf-test] mS <- ppSwitch settingDasheds
  1502. 1586.09 s [opt-env-conf-test] case mS of
  1503. 1586.09 s [opt-env-conf-test] Nothing -> do
  1504. 1586.09 s [opt-env-conf-test] debug
  1505. 1586.09 s [opt-env-conf-test] [ "could not set based on switch, no switch: ",
  1506. 1586.09 s [opt-env-conf-test] chunk $ T.pack $ show $ map renderDashed settingDasheds
  1507. 1586.09 s [opt-env-conf-test] ]
  1508. 1586.09 s [opt-env-conf-test] pure NotFound
  1509. 1586.09 s [opt-env-conf-test] Just () -> cap $ do
  1510. 1586.09 s [opt-env-conf-test] debug ["set based on switch."]
  1511. 1586.09 s [opt-env-conf-test] pure $ Found a
  1512. 1586.09 s [opt-env-conf-test]
  1513. 1586.09 s [opt-env-conf-test] case mSwitch of
  1514. 1586.09 s [opt-env-conf-test] Found a -> do
  1515. 1586.09 s [opt-env-conf-test] markParsed
  1516. 1586.10 s [opt-env-conf-test] pure a
  1517. 1586.10 s [opt-env-conf-test] _ -> do
  1518. 1586.10 s [opt-env-conf-test] mOpt <-
  1519. 1586.10 s [opt-env-conf-test] if settingTryOption
  1520. 1586.10 s [opt-env-conf-test] then do
  1521. 1586.10 s [opt-env-conf-test] -- Require readers before finding the option so the parser
  1522. 1586.10 s [opt-env-conf-test] -- always fails if it's missing a reader.
  1523. 1586.10 s [opt-env-conf-test] rs <- requireReaders settingReaders
  1524. 1586.10 s [opt-env-conf-test] mS <- ppOpt settingDasheds
  1525. 1586.10 s [opt-env-conf-test] case mS of
  1526. 1586.10 s [opt-env-conf-test] Nothing -> do
  1527. 1586.10 s [opt-env-conf-test] debug
  1528. 1586.10 s [opt-env-conf-test] [ "could not set based on options, no option: ",
  1529. 1586.10 s [opt-env-conf-test] chunk $ T.pack $ show $ map renderDashed settingDasheds
  1530. 1586.10 s [opt-env-conf-test] ]
  1531. 1586.10 s [opt-env-conf-test] pure NotFound
  1532. 1586.10 s [opt-env-conf-test] Just optionStr -> cap $
  1533. 1586.10 s [opt-env-conf-test] case tryReaders rs optionStr of
  1534. 1586.10 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  1535. 1586.10 s [opt-env-conf-test] Right a -> do
  1536. 1586.10 s [opt-env-conf-test] debug
  1537. 1586.10 s [opt-env-conf-test] [ "set based on option: ",
  1538. 1586.10 s [opt-env-conf-test] chunk $ T.pack $ show optionStr
  1539. 1586.10 s [opt-env-conf-test] ]
  1540. 1586.10 s [opt-env-conf-test] pure $ Found a
  1541. 1586.10 s [opt-env-conf-test] else pure NotRun
  1542. 1586.10 s [opt-env-conf-test]
  1543. 1586.10 s [opt-env-conf-test] case mOpt of
  1544. 1586.10 s [opt-env-conf-test] Found a -> do
  1545. 1586.10 s [opt-env-conf-test] markParsed
  1546. 1586.10 s [opt-env-conf-test] pure a
  1547. 1586.10 s [opt-env-conf-test] _ -> do
  1548. 1586.10 s [opt-env-conf-test] let mEnvDoc = settingEnvDoc set
  1549. 1586.10 s [opt-env-conf-test] mEnv <- cap $ case settingEnvVars of
  1550. 1586.10 s [opt-env-conf-test] Nothing -> pure NotRun
  1551. 1586.10 s [opt-env-conf-test] Just ne -> do
  1552. 1586.10 s [opt-env-conf-test] -- Require readers before finding the env vars so the parser
  1553. 1586.10 s [opt-env-conf-test] -- always fails if it's missing a reader.
  1554. 1586.10 s [opt-env-conf-test] rs <- requireReaders settingReaders
  1555. 1586.10 s [opt-env-conf-test] es <- asks ppEnvEnv
  1556. 1586.10 s [opt-env-conf-test] let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  1557. 1586.10 s [opt-env-conf-test] -- Run the parser on all specified env vars before
  1558. 1586.10 s [opt-env-conf-test] -- returning the first because we want to fail if any
  1559. 1586.10 s [opt-env-conf-test] -- of them fail, even if they wouldn't be the parse
  1560. 1586.10 s [opt-env-conf-test] -- result.
  1561. 1586.10 s [opt-env-conf-test] results <- for founds $ \varStr ->
  1562. 1586.10 s [opt-env-conf-test] case tryReaders rs varStr of
  1563. 1586.10 s [opt-env-conf-test] Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  1564. 1586.10 s [opt-env-conf-test] Right a -> do
  1565. 1586.10 s [opt-env-conf-test] debug
  1566. 1586.11 s [opt-env-conf-test] [ "set based on env: ",
  1567. 1586.11 s [opt-env-conf-test] chunk $ T.pack $ show varStr
  1568. 1586.11 s [opt-env-conf-test] ]
  1569. 1586.11 s [opt-env-conf-test] pure a
  1570. 1586.11 s [opt-env-conf-test] case listToMaybe results of
  1571. 1586.11 s [opt-env-conf-test] Nothing -> do
  1572. 1586.11 s [opt-env-conf-test] debug
  1573. 1586.11 s [opt-env-conf-test] [ "could not set based on env vars, no var: ",
  1574. 1586.11 s [opt-env-conf-test] chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  1575. 1586.11 s [opt-env-conf-test] ]
  1576. 1586.11 s [opt-env-conf-test] pure NotFound
  1577. 1586.11 s [opt-env-conf-test] Just a -> pure $ Found a
  1578. 1586.11 s [opt-env-conf-test]
  1579. 1586.11 s [opt-env-conf-test] case mEnv of
  1580. 1586.11 s [opt-env-conf-test] Found a -> do
  1581. 1586.11 s [opt-env-conf-test] markParsed
  1582. 1586.11 s [opt-env-conf-test] pure a
  1583. 1586.11 s [opt-env-conf-test] _ -> do
  1584. 1586.11 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  1585. 1586.11 s [opt-env-conf-test] mConf <- case settingConfigVals of
  1586. 1586.11 s [opt-env-conf-test] Nothing -> pure NotRun
  1587. 1586.11 s [opt-env-conf-test] Just confSets -> do
  1588. 1586.11 s [opt-env-conf-test] mObj <- asks ppEnvConf
  1589. 1586.11 s [opt-env-conf-test] case mObj of
  1590. 1586.11 s [opt-env-conf-test] Nothing -> do
  1591. 1586.11 s [opt-env-conf-test] debug ["no config object to set from"]
  1592. 1586.11 s [opt-env-conf-test] pure NotFound
  1593. 1586.11 s [opt-env-conf-test] Just obj -> do
  1594. 1586.11 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  1595. 1586.11 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  1596. 1586.11 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  1597. 1586.11 s [opt-env-conf-test] Nothing -> do
  1598. 1586.11 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  1599. 1586.11 s [opt-env-conf-test] Nothing -> pure Nothing
  1600. 1586.11 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  1601. 1586.11 s [opt-env-conf-test] Just neRest -> do
  1602. 1586.11 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  1603. 1586.11 s [opt-env-conf-test] case mO' of
  1604. 1586.11 s [opt-env-conf-test] Nothing -> pure Nothing
  1605. 1586.11 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  1606. 1586.11 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  1607. 1586.11 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1608. 1586.11 s [opt-env-conf-test] Right mV -> case mV of
  1609. 1586.11 s [opt-env-conf-test] Nothing -> do
  1610. 1586.11 s [opt-env-conf-test] debug
  1611. 1586.11 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  1612. 1586.11 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  1613. 1586.11 s [opt-env-conf-test] ]
  1614. 1586.12 s [opt-env-conf-test] pure Nothing
  1615. 1586.12 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  1616. 1586.12 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  1617. 1586.12 s [opt-env-conf-test] Right mA -> case mA of
  1618. 1586.12 s [opt-env-conf-test] Nothing -> do
  1619. 1586.12 s [opt-env-conf-test] debug
  1620. 1586.12 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  1621. 1586.12 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  1622. 1586.12 s [opt-env-conf-test] ]
  1623. 1586.12 s [opt-env-conf-test] pure Nothing
  1624. 1586.12 s [opt-env-conf-test] Just a -> do
  1625. 1586.12 s [opt-env-conf-test] debug
  1626. 1586.12 s [opt-env-conf-test] [ "set based on config value: ",
  1627. 1586.12 s [opt-env-conf-test] chunk $ T.pack $ show v
  1628. 1586.12 s [opt-env-conf-test] ]
  1629. 1586.12 s [opt-env-conf-test] pure $ Just a
  1630. 1586.12 s [opt-env-conf-test] let toRes = \case
  1631. 1586.12 s [opt-env-conf-test] Nothing -> NotFound
  1632. 1586.12 s [opt-env-conf-test] Just a -> Found a
  1633. 1586.12 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  1634. 1588.32 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  1635. 1588.32 s [opt-env-conf-test] Just ne -> do
  1636. 1588.32 s [opt-env-conf-test] res <- goConfSet confSet
  1637. 1588.32 s [opt-env-conf-test] case res of
  1638. 1588.32 s [opt-env-conf-test] Just a -> pure $ Found a
  1639. 1588.32 s [opt-env-conf-test] Nothing -> goConfSets ne
  1640. 1588.32 s [opt-env-conf-test] goConfSets confSets
  1641. 1588.32 s [opt-env-conf-test] case mConf of
  1642. 1588.32 s [opt-env-conf-test] Found a -> do
  1643. 1588.32 s [opt-env-conf-test] markParsed
  1644. 1588.32 s [opt-env-conf-test] pure a
  1645. 1588.32 s [opt-env-conf-test] _ ->
  1646. 1588.32 s [opt-env-conf-test] case settingDefaultValue of
  1647. 1588.32 s [opt-env-conf-test] Just (a, _) -> do
  1648. 1588.33 s [opt-env-conf-test] debug ["set to default value"]
  1649. 1588.33 s [opt-env-conf-test] pure a -- Don't mark as parsed
  1650. 1588.33 s [opt-env-conf-test] Nothing -> do
  1651. 1588.33 s [opt-env-conf-test] let parseResultError e res = case res of
  1652. 1588.33 s [opt-env-conf-test] NotRun -> Nothing
  1653. 1588.33 s [opt-env-conf-test] NotFound -> Just e
  1654. 1588.33 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  1655. 1588.33 s [opt-env-conf-test] debug ["not found"]
  1656. 1588.33 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  1657. 1588.33 s [opt-env-conf-test] NE.nonEmpty $
  1658. 1588.33 s [opt-env-conf-test] catMaybes
  1659. 1588.33 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  1660. 1588.33 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  1661. 1588.33 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  1662. 1588.33 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  1663. 1588.33 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  1664. 1588.33 s [opt-env-conf-test] ]
  1665. 1588.33 s [opt-env-conf-test]
  1666. 1588.33 s [opt-env-conf-test] withCapabilities ::
  1667. 1588.33 s [opt-env-conf-test] Maybe SrcLoc ->
  1668. 1588.33 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  1669. 1588.33 s [opt-env-conf-test] @@ -114,7 +114,6 @@
  1670. 1588.33 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  1671. 1588.33 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  1672. 1588.33 s [opt-env-conf-test] ParserEmpty mLoc -> do
  1673. 1588.33 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  1674. 1588.33 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  1675. 1588.33 s [opt-env-conf-test] ParserSelect fe ff -> do
  1676. 1588.33 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  1677. 1588.33 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  1678. 1588.33 s [opt-env-conf-test] @@ -438,10 +438,9 @@
  1679. 1588.34 s [opt-env-conf-test] debug ["set to default value"]
  1680. 1588.34 s [opt-env-conf-test] pure a -- Don't mark as parsed
  1681. 1588.34 s [opt-env-conf-test] Nothing -> do
  1682. 1588.34 s [opt-env-conf-test] let parseResultError e res = case res of
  1683. 1588.34 s [opt-env-conf-test] - NotRun -> Nothing
  1684. 1588.34 s [opt-env-conf-test] NotFound -> Just e
  1685. 1588.34 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  1686. 1588.34 s [opt-env-conf-test] debug ["not found"]
  1687. 1588.34 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  1688. 1588.34 s [opt-env-conf-test] NE.nonEmpty $
  1689. 1588.34 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
  1690. 1588.34 s [opt-env-conf-test] @@ -227,10 +227,9 @@
  1691. 1588.34 s [opt-env-conf-test] internalParser p =
  1692. 1588.34 s [opt-env-conf-test] choice
  1693. 1588.34 s [opt-env-conf-test] [ setting
  1694. 1588.34 s [opt-env-conf-test] - [ switch ShowVersion,
  1695. 1588.34 s [opt-env-conf-test] long "version",
  1696. 1588.34 s [opt-env-conf-test] hidden
  1697. 1588.34 s [opt-env-conf-test] ],
  1698. 1588.34 s [opt-env-conf-test] setting
  1699. 1588.34 s [opt-env-conf-test] [ switch RenderMan,
  1700. 1588.34 s [opt-env-conf-test] long "render-man-page",
  1701. 1588.34 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  1702. 1588.34 s [opt-env-conf-test] @@ -438,10 +438,9 @@
  1703. 1588.34 s [opt-env-conf-test] debug ["set to default value"]
  1704. 1588.34 s [opt-env-conf-test] pure a -- Don't mark as parsed
  1705. 1588.34 s [opt-env-conf-test] Nothing -> do
  1706. 1588.34 s [opt-env-conf-test] let parseResultError e res = case res of
  1707. 1588.34 s [opt-env-conf-test] NotRun -> Nothing
  1708. 1588.34 s [opt-env-conf-test] - NotFound -> Just e
  1709. 1588.34 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  1710. 1588.34 s [opt-env-conf-test] debug ["not found"]
  1711. 1588.34 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  1712. 1588.34 s [opt-env-conf-test] NE.nonEmpty $
  1713. 1588.34 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
  1714. 1588.35 s [opt-env-conf-test] @@ -227,10 +227,9 @@
  1715. 1588.35 s [opt-env-conf-test] internalParser p =
  1716. 1588.35 s [opt-env-conf-test] choice
  1717. 1588.35 s [opt-env-conf-test] [ setting
  1718. 1588.35 s [opt-env-conf-test] [ switch ShowVersion,
  1719. 1588.35 s [opt-env-conf-test] long "version",
  1720. 1588.35 s [opt-env-conf-test] - hidden
  1721. 1588.35 s [opt-env-conf-test] ],
  1722. 1588.35 s [opt-env-conf-test] setting
  1723. 1588.35 s [opt-env-conf-test] [ switch RenderMan,
  1724. 1588.35 s [opt-env-conf-test] long "render-man-page",
  1725. 1588.35 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  1726. 1588.35 s [opt-env-conf-test] @@ -114,7 +114,6 @@
  1727. 1588.35 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  1728. 1588.35 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  1729. 1588.35 s [opt-env-conf-test] ParserEmpty mLoc -> do
  1730. 1588.35 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  1731. 1588.35 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  1732. 1588.35 s [opt-env-conf-test] ParserSelect fe ff -> do
  1733. 1588.35 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  1734. 1588.35 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
  1735. 1588.35 s [opt-env-conf-test] @@ -232,11 +232,10 @@
  1736. 1588.35 s [opt-env-conf-test] hidden
  1737. 1588.35 s [opt-env-conf-test] ],
  1738. 1588.35 s [opt-env-conf-test] setting
  1739. 1588.35 s [opt-env-conf-test] - [ switch RenderMan,
  1740. 1588.35 s [opt-env-conf-test] long "render-man-page",
  1741. 1588.35 s [opt-env-conf-test] hidden,
  1742. 1588.35 s [opt-env-conf-test] help "Render a manpage"
  1743. 1588.35 s [opt-env-conf-test] ],
  1744. 1588.35 s [opt-env-conf-test] setting
  1745. 1588.35 s [opt-env-conf-test] [ switch RenderDocumentation,
  1746. 1588.35 s [opt-env-conf-test] long "render-reference-documentation",
  1747. 1588.35 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
  1748. 1588.35 s [opt-env-conf-test] @@ -232,11 +232,10 @@
  1749. 1588.35 s [opt-env-conf-test] hidden
  1750. 1588.35 s [opt-env-conf-test] ],
  1751. 1588.35 s [opt-env-conf-test] setting
  1752. 1588.35 s [opt-env-conf-test] [ switch RenderMan,
  1753. 1588.35 s [opt-env-conf-test] long "render-man-page",
  1754. 1588.35 s [opt-env-conf-test] hidden,
  1755. 1588.35 s [opt-env-conf-test] - help "Render a manpage"
  1756. 1588.35 s [opt-env-conf-test] ],
  1757. 1588.35 s [opt-env-conf-test] setting
  1758. 1588.35 s [opt-env-conf-test] [ switch RenderDocumentation,
  1759. 1588.35 s [opt-env-conf-test] long "render-reference-documentation",
  1760. 1588.35 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
  1761. 1588.36 s [opt-env-conf-test] @@ -238,11 +238,7 @@
  1762. 1588.36 s [opt-env-conf-test] help "Render a manpage"
  1763. 1588.36 s [opt-env-conf-test] ],
  1764. 1588.36 s [opt-env-conf-test] setting
  1765. 1588.36 s [opt-env-conf-test] - [ switch RenderDocumentation,
  1766. 1588.36 s [opt-env-conf-test] - long "render-reference-documentation",
  1767. 1588.36 s [opt-env-conf-test] - hidden,
  1768. 1588.36 s [opt-env-conf-test] - help "Render reference documentation"
  1769. 1588.36 s [opt-env-conf-test] ],
  1770. 1588.36 s [opt-env-conf-test] setting
  1771. 1588.36 s [opt-env-conf-test] [ switch RenderNixosOptions,
  1772. 1588.36 s [opt-env-conf-test] long "render-nix-options",
  1773. 1588.36 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
  1774. 1588.36 s [opt-env-conf-test] @@ -83,25 +83,8 @@
  1775. 1588.36 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  1776. 1588.36 s [opt-env-conf-test] case mTup of
  1777. 1588.36 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  1778. 1588.36 s [opt-env-conf-test] Just ((errOrRes, _), nexts) -> case errOrRes of
  1779. 1588.36 s [opt-env-conf-test] Success a -> pure (Right a)
  1780. 1588.36 s [opt-env-conf-test] - Failure firstErrors ->
  1781. 1588.36 s [opt-env-conf-test] - let goNexts ns = do
  1782. 1588.36 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  1783. 1588.36 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  1784. 1588.36 s [opt-env-conf-test] - case mNext of
  1785. 1588.36 s [opt-env-conf-test] - Nothing ->
  1786. 1588.36 s [opt-env-conf-test] - pure $
  1787. 1588.36 s [opt-env-conf-test] - Left $
  1788. 1588.36 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  1789. 1588.36 s [opt-env-conf-test] - let f = case mDebugMode of
  1790. 1588.36 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  1791. 1588.36 s [opt-env-conf-test] - Just _ -> id
  1792. 1588.36 s [opt-env-conf-test] - in f firstErrors
  1793. 1588.36 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  1794. 1588.36 s [opt-env-conf-test] - Success a -> pure (Right a)
  1795. 1588.36 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  1796. 1588.36 s [opt-env-conf-test] - in goNexts nexts
  1797. 1588.36 s [opt-env-conf-test] where
  1798. 1588.36 s [opt-env-conf-test] go ::
  1799. 1588.36 s [opt-env-conf-test] Parser a ->
  1800. 1588.36 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
  1801. 1588.36 s [opt-env-conf-test] @@ -238,11 +238,10 @@
  1802. 1588.36 s [opt-env-conf-test] help "Render a manpage"
  1803. 1588.36 s [opt-env-conf-test] ],
  1804. 1588.36 s [opt-env-conf-test] setting
  1805. 1588.36 s [opt-env-conf-test] - [ switch RenderDocumentation,
  1806. 1588.36 s [opt-env-conf-test] long "render-reference-documentation",
  1807. 1588.36 s [opt-env-conf-test] hidden,
  1808. 1588.36 s [opt-env-conf-test] help "Render reference documentation"
  1809. 1588.36 s [opt-env-conf-test] ],
  1810. 1588.36 s [opt-env-conf-test] setting
  1811. 1588.36 s [opt-env-conf-test] [ switch RenderNixosOptions,
  1812. 1588.36 s [opt-env-conf-test] long "render-nix-options",
  1813. 1588.37 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
  1814. 1588.37 s [opt-env-conf-test] @@ -238,11 +238,10 @@
  1815. 1588.37 s [opt-env-conf-test] help "Render a manpage"
  1816. 1588.37 s [opt-env-conf-test] ],
  1817. 1588.37 s [opt-env-conf-test] setting
  1818. 1588.37 s [opt-env-conf-test] [ switch RenderDocumentation,
  1819. 1588.37 s [opt-env-conf-test] long "render-reference-documentation",
  1820. 1588.37 s [opt-env-conf-test] hidden,
  1821. 1588.37 s [opt-env-conf-test] - help "Render reference documentation"
  1822. 1588.37 s [opt-env-conf-test] ],
  1823. 1588.37 s [opt-env-conf-test] setting
  1824. 1588.37 s [opt-env-conf-test] [ switch RenderNixosOptions,
  1825. 1588.37 s [opt-env-conf-test] long "render-nix-options",
  1826. 1588.37 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:376:15-16
  1827. 1588.37 s [opt-env-conf-test] @@ -373,11 +373,10 @@
  1828. 1588.37 s [opt-env-conf-test] | not (nullDocs optDocs)
  1829. 1588.37 s [opt-env-conf-test] ],
  1830. 1588.37 s [opt-env-conf-test] concat
  1831. 1588.37 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  1832. 1588.37 s [opt-env-conf-test] renderEnvDocs envDocs
  1833. 1588.37 s [opt-env-conf-test] ]
  1834. 1588.37 s [opt-env-conf-test] - | not (nullDocs envDocs)
  1835. 1588.37 s [opt-env-conf-test] ],
  1836. 1588.37 s [opt-env-conf-test] concat
  1837. 1588.37 s [opt-env-conf-test] [ [ headerChunks "Configuration Values",
  1838. 1588.37 s [opt-env-conf-test] renderConfDocs confDocs
  1839. 1588.37 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
  1840. 1588.37 s [opt-env-conf-test] @@ -244,11 +244,7 @@
  1841. 1588.37 s [opt-env-conf-test] help "Render reference documentation"
  1842. 1588.37 s [opt-env-conf-test] ],
  1843. 1588.37 s [opt-env-conf-test] setting
  1844. 1588.37 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  1845. 1588.37 s [opt-env-conf-test] - long "render-nix-options",
  1846. 1588.37 s [opt-env-conf-test] - hidden,
  1847. 1588.37 s [opt-env-conf-test] - help "Render Nix options"
  1848. 1588.37 s [opt-env-conf-test] ],
  1849. 1588.37 s [opt-env-conf-test] BashCompletionScript
  1850. 1588.37 s [opt-env-conf-test] <$> setting
  1851. 1588.37 s [opt-env-conf-test] [ option,
  1852. 1588.37 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
  1853. 1588.37 s [opt-env-conf-test] @@ -244,11 +244,10 @@
  1854. 1588.37 s [opt-env-conf-test] help "Render reference documentation"
  1855. 1588.37 s [opt-env-conf-test] ],
  1856. 1588.37 s [opt-env-conf-test] setting
  1857. 1588.37 s [opt-env-conf-test] [ switch RenderNixosOptions,
  1858. 1588.37 s [opt-env-conf-test] long "render-nix-options",
  1859. 1588.37 s [opt-env-conf-test] hidden,
  1860. 1588.37 s [opt-env-conf-test] - help "Render Nix options"
  1861. 1588.37 s [opt-env-conf-test] ],
  1862. 1588.37 s [opt-env-conf-test] BashCompletionScript
  1863. 1588.37 s [opt-env-conf-test] <$> setting
  1864. 1588.37 s [opt-env-conf-test] [ option,
  1865. 1588.37 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
  1866. 1588.37 s [opt-env-conf-test] @@ -244,11 +244,10 @@
  1867. 1588.37 s [opt-env-conf-test] help "Render reference documentation"
  1868. 1588.38 s [opt-env-conf-test] ],
  1869. 1588.38 s [opt-env-conf-test] setting
  1870. 1588.38 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  1871. 1588.38 s [opt-env-conf-test] long "render-nix-options",
  1872. 1588.38 s [opt-env-conf-test] hidden,
  1873. 1588.38 s [opt-env-conf-test] help "Render Nix options"
  1874. 1588.38 s [opt-env-conf-test] ],
  1875. 1588.38 s [opt-env-conf-test] BashCompletionScript
  1876. 1588.38 s [opt-env-conf-test] <$> setting
  1877. 1588.38 s [opt-env-conf-test] [ option,
  1878. 1588.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
  1879. 1588.38 s [opt-env-conf-test] @@ -251,12 +251,7 @@
  1880. 1588.38 s [opt-env-conf-test] ],
  1881. 1588.38 s [opt-env-conf-test] BashCompletionScript
  1882. 1588.38 s [opt-env-conf-test] <$> setting
  1883. 1588.38 s [opt-env-conf-test] - [ option,
  1884. 1588.38 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  1885. 1588.38 s [opt-env-conf-test] - long "bash-completion-script",
  1886. 1588.38 s [opt-env-conf-test] - hidden,
  1887. 1588.38 s [opt-env-conf-test] - help "Render the bash completion script"
  1888. 1588.38 s [opt-env-conf-test] ],
  1889. 1588.38 s [opt-env-conf-test] ZshCompletionScript
  1890. 1588.38 s [opt-env-conf-test] <$> setting
  1891. 1588.38 s [opt-env-conf-test] [ option,
  1892. 1588.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
  1893. 1588.38 s [opt-env-conf-test] @@ -251,12 +251,11 @@
  1894. 1588.38 s [opt-env-conf-test] ],
  1895. 1588.38 s [opt-env-conf-test] BashCompletionScript
  1896. 1588.38 s [opt-env-conf-test] <$> setting
  1897. 1588.38 s [opt-env-conf-test] - [ option,
  1898. 1588.38 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  1899. 1588.38 s [opt-env-conf-test] long "bash-completion-script",
  1900. 1588.38 s [opt-env-conf-test] hidden,
  1901. 1588.38 s [opt-env-conf-test] help "Render the bash completion script"
  1902. 1588.38 s [opt-env-conf-test] ],
  1903. 1588.38 s [opt-env-conf-test] ZshCompletionScript
  1904. 1588.38 s [opt-env-conf-test] <$> setting
  1905. 1588.38 s [opt-env-conf-test] [ option,
  1906. 1588.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
  1907. 1588.38 s [opt-env-conf-test] @@ -251,12 +251,11 @@
  1908. 1588.38 s [opt-env-conf-test] ],
  1909. 1588.38 s [opt-env-conf-test] BashCompletionScript
  1910. 1588.38 s [opt-env-conf-test] <$> setting
  1911. 1588.38 s [opt-env-conf-test] [ option,
  1912. 1588.38 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  1913. 1588.38 s [opt-env-conf-test] long "bash-completion-script",
  1914. 1588.38 s [opt-env-conf-test] hidden,
  1915. 1588.38 s [opt-env-conf-test] - help "Render the bash completion script"
  1916. 1588.38 s [opt-env-conf-test] ],
  1917. 1588.38 s [opt-env-conf-test] ZshCompletionScript
  1918. 1588.38 s [opt-env-conf-test] <$> setting
  1919. 1588.38 s [opt-env-conf-test] [ option,
  1920. 1588.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
  1921. 1588.38 s [opt-env-conf-test] @@ -280,178 +280,10 @@
  1922. 1588.38 s [opt-env-conf-test] pure $ Found a
  1923. 1588.38 s [opt-env-conf-test] else pure NotRun
  1924. 1588.38 s [opt-env-conf-test]
  1925. 1588.38 s [opt-env-conf-test] case mArg of
  1926. 1588.38 s [opt-env-conf-test] Found a -> do
  1927. 1588.38 s [opt-env-conf-test] markParsed
  1928. 1588.38 s [opt-env-conf-test] pure a
  1929. 1588.39 s [opt-env-conf-test] - _ -> do
  1930. 1588.39 s [opt-env-conf-test] - mSwitch <- case settingSwitchValue of
  1931. 1588.39 s [opt-env-conf-test] - Nothing -> pure NotRun
  1932. 1588.39 s [opt-env-conf-test] - Just a -> do
  1933. 1588.39 s [opt-env-conf-test] - mS <- ppSwitch settingDasheds
  1934. 1588.39 s [opt-env-conf-test] - case mS of
  1935. 1588.39 s [opt-env-conf-test] - Nothing -> do
  1936. 1588.39 s [opt-env-conf-test] - debug
  1937. 1588.39 s [opt-env-conf-test] - [ "could not set based on switch, no switch: ",
  1938. 1588.39 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  1939. 1588.39 s [opt-env-conf-test] - ]
  1940. 1588.39 s [opt-env-conf-test] - pure NotFound
  1941. 1588.39 s [opt-env-conf-test] - Just () -> cap $ do
  1942. 1588.39 s [opt-env-conf-test] - debug ["set based on switch."]
  1943. 1588.39 s [opt-env-conf-test] - pure $ Found a
  1944. 1588.39 s [opt-env-conf-test] -
  1945. 1588.39 s [opt-env-conf-test] - case mSwitch of
  1946. 1588.39 s [opt-env-conf-test] - Found a -> do
  1947. 1588.39 s [opt-env-conf-test] - markParsed
  1948. 1588.39 s [opt-env-conf-test] - pure a
  1949. 1588.39 s [opt-env-conf-test] - _ -> do
  1950. 1588.39 s [opt-env-conf-test] - mOpt <-
  1951. 1588.39 s [opt-env-conf-test] - if settingTryOption
  1952. 1588.39 s [opt-env-conf-test] - then do
  1953. 1588.39 s [opt-env-conf-test] - -- Require readers before finding the option so the parser
  1954. 1588.39 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  1955. 1588.39 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  1956. 1588.39 s [opt-env-conf-test] - mS <- ppOpt settingDasheds
  1957. 1588.39 s [opt-env-conf-test] - case mS of
  1958. 1588.39 s [opt-env-conf-test] - Nothing -> do
  1959. 1588.39 s [opt-env-conf-test] - debug
  1960. 1588.39 s [opt-env-conf-test] - [ "could not set based on options, no option: ",
  1961. 1588.39 s [opt-env-conf-test] - chunk $ T.pack $ show $ map renderDashed settingDasheds
  1962. 1588.39 s [opt-env-conf-test] - ]
  1963. 1588.39 s [opt-env-conf-test] - pure NotFound
  1964. 1588.39 s [opt-env-conf-test] - Just optionStr -> cap $
  1965. 1588.39 s [opt-env-conf-test] - case tryReaders rs optionStr of
  1966. 1588.39 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
  1967. 1588.39 s [opt-env-conf-test] - Right a -> do
  1968. 1588.39 s [opt-env-conf-test] - debug
  1969. 1588.39 s [opt-env-conf-test] - [ "set based on option: ",
  1970. 1588.39 s [opt-env-conf-test] - chunk $ T.pack $ show optionStr
  1971. 1588.39 s [opt-env-conf-test] - ]
  1972. 1588.39 s [opt-env-conf-test] - pure $ Found a
  1973. 1588.39 s [opt-env-conf-test] - else pure NotRun
  1974. 1588.39 s [opt-env-conf-test] -
  1975. 1588.39 s [opt-env-conf-test] - case mOpt of
  1976. 1588.39 s [opt-env-conf-test] - Found a -> do
  1977. 1588.39 s [opt-env-conf-test] - markParsed
  1978. 1588.39 s [opt-env-conf-test] - pure a
  1979. 1588.39 s [opt-env-conf-test] - _ -> do
  1980. 1588.39 s [opt-env-conf-test] - let mEnvDoc = settingEnvDoc set
  1981. 1588.39 s [opt-env-conf-test] - mEnv <- cap $ case settingEnvVars of
  1982. 1588.39 s [opt-env-conf-test] - Nothing -> pure NotRun
  1983. 1588.39 s [opt-env-conf-test] - Just ne -> do
  1984. 1588.39 s [opt-env-conf-test] - -- Require readers before finding the env vars so the parser
  1985. 1588.39 s [opt-env-conf-test] - -- always fails if it's missing a reader.
  1986. 1588.39 s [opt-env-conf-test] - rs <- requireReaders settingReaders
  1987. 1588.39 s [opt-env-conf-test] - es <- asks ppEnvEnv
  1988. 1588.39 s [opt-env-conf-test] - let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
  1989. 1588.39 s [opt-env-conf-test] - -- Run the parser on all specified env vars before
  1990. 1588.39 s [opt-env-conf-test] - -- returning the first because we want to fail if any
  1991. 1588.39 s [opt-env-conf-test] - -- of them fail, even if they wouldn't be the parse
  1992. 1588.39 s [opt-env-conf-test] - -- result.
  1993. 1588.39 s [opt-env-conf-test] - results <- for founds $ \varStr ->
  1994. 1588.39 s [opt-env-conf-test] - case tryReaders rs varStr of
  1995. 1588.39 s [opt-env-conf-test] - Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
  1996. 1588.39 s [opt-env-conf-test] - Right a -> do
  1997. 1588.39 s [opt-env-conf-test] - debug
  1998. 1588.39 s [opt-env-conf-test] - [ "set based on env: ",
  1999. 1588.39 s [opt-env-conf-test] - chunk $ T.pack $ show varStr
  2000. 1588.39 s [opt-env-conf-test] - ]
  2001. 1588.40 s [opt-env-conf-test] - pure a
  2002. 1588.40 s [opt-env-conf-test] - case listToMaybe results of
  2003. 1588.40 s [opt-env-conf-test] - Nothing -> do
  2004. 1588.40 s [opt-env-conf-test] - debug
  2005. 1588.40 s [opt-env-conf-test] - [ "could not set based on env vars, no var: ",
  2006. 1588.40 s [opt-env-conf-test] - chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
  2007. 1588.40 s [opt-env-conf-test] - ]
  2008. 1588.40 s [opt-env-conf-test] - pure NotFound
  2009. 1588.40 s [opt-env-conf-test] - Just a -> pure $ Found a
  2010. 1588.40 s [opt-env-conf-test] -
  2011. 1588.40 s [opt-env-conf-test] - case mEnv of
  2012. 1588.40 s [opt-env-conf-test] - Found a -> do
  2013. 1588.40 s [opt-env-conf-test] - markParsed
  2014. 1588.40 s [opt-env-conf-test] - pure a
  2015. 1588.40 s [opt-env-conf-test] - _ -> do
  2016. 1588.40 s [opt-env-conf-test] - let mConfDoc = settingConfDoc set
  2017. 1588.40 s [opt-env-conf-test] - mConf <- case settingConfigVals of
  2018. 1588.40 s [opt-env-conf-test] - Nothing -> pure NotRun
  2019. 1588.40 s [opt-env-conf-test] - Just confSets -> do
  2020. 1588.40 s [opt-env-conf-test] - mObj <- asks ppEnvConf
  2021. 1588.40 s [opt-env-conf-test] - case mObj of
  2022. 1588.40 s [opt-env-conf-test] - Nothing -> do
  2023. 1588.40 s [opt-env-conf-test] - debug ["no config object to set from"]
  2024. 1588.40 s [opt-env-conf-test] - pure NotFound
  2025. 1588.40 s [opt-env-conf-test] - Just obj -> do
  2026. 1588.40 s [opt-env-conf-test] - let goConfSet ConfigValSetting {..} = do
  2027. 1588.40 s [opt-env-conf-test] - let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  2028. 1588.40 s [opt-env-conf-test] - jsonParser o (k :| rest) = case NE.nonEmpty rest of
  2029. 1588.40 s [opt-env-conf-test] - Nothing -> do
  2030. 1588.40 s [opt-env-conf-test] - case KeyMap.lookup (Key.fromString k) o of
  2031. 1588.40 s [opt-env-conf-test] - Nothing -> pure Nothing
  2032. 1588.40 s [opt-env-conf-test] - Just v -> Just <$> parseJSON v
  2033. 1588.40 s [opt-env-conf-test] - Just neRest -> do
  2034. 1588.40 s [opt-env-conf-test] - mO' <- o .:? Key.fromString k
  2035. 1588.40 s [opt-env-conf-test] - case mO' of
  2036. 1588.40 s [opt-env-conf-test] - Nothing -> pure Nothing
  2037. 1588.40 s [opt-env-conf-test] - Just o' -> jsonParser o' neRest
  2038. 1588.40 s [opt-env-conf-test] - case JSON.parseEither (jsonParser obj) configValSettingPath of
  2039. 1588.40 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  2040. 1588.40 s [opt-env-conf-test] - Right mV -> case mV of
  2041. 1588.40 s [opt-env-conf-test] - Nothing -> do
  2042. 1588.40 s [opt-env-conf-test] - debug
  2043. 1588.40 s [opt-env-conf-test] - [ "could not set based on config value, not configured: ",
  2044. 1588.40 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  2045. 1588.40 s [opt-env-conf-test] - ]
  2046. 1588.40 s [opt-env-conf-test] - pure Nothing
  2047. 1588.40 s [opt-env-conf-test] - Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  2048. 1588.40 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  2049. 1588.40 s [opt-env-conf-test] - Right mA -> case mA of
  2050. 1588.40 s [opt-env-conf-test] - Nothing -> do
  2051. 1588.40 s [opt-env-conf-test] - debug
  2052. 1588.40 s [opt-env-conf-test] - [ "could not set based on config value, configured to nothing: ",
  2053. 1588.40 s [opt-env-conf-test] - chunk $ T.pack $ show $ NE.toList configValSettingPath
  2054. 1588.40 s [opt-env-conf-test] - ]
  2055. 1588.40 s [opt-env-conf-test] - pure Nothing
  2056. 1588.40 s [opt-env-conf-test] - Just a -> do
  2057. 1588.40 s [opt-env-conf-test] - debug
  2058. 1588.40 s [opt-env-conf-test] - [ "set based on config value: ",
  2059. 1588.40 s [opt-env-conf-test] - chunk $ T.pack $ show v
  2060. 1588.40 s [opt-env-conf-test] - ]
  2061. 1588.40 s [opt-env-conf-test] - pure $ Just a
  2062. 1588.40 s [opt-env-conf-test] - let toRes = \case
  2063. 1588.40 s [opt-env-conf-test] - Nothing -> NotFound
  2064. 1588.40 s [opt-env-conf-test] - Just a -> Found a
  2065. 1588.40 s [opt-env-conf-test] - let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  2066. 1588.40 s [opt-env-conf-test] - Nothing -> toRes <$> goConfSet confSet
  2067. 1588.40 s [opt-env-conf-test] - Just ne -> do
  2068. 1588.40 s [opt-env-conf-test] - res <- goConfSet confSet
  2069. 1588.40 s [opt-env-conf-test] - case res of
  2070. 1588.40 s [opt-env-conf-test] - Just a -> pure $ Found a
  2071. 1588.40 s [opt-env-conf-test] - Nothing -> goConfSets ne
  2072. 1588.40 s [opt-env-conf-test] - goConfSets confSets
  2073. 1588.40 s [opt-env-conf-test] - case mConf of
  2074. 1588.40 s [opt-env-conf-test] - Found a -> do
  2075. 1588.41 s [opt-env-conf-test] - markParsed
  2076. 1588.41 s [opt-env-conf-test] - pure a
  2077. 1588.41 s [opt-env-conf-test] - _ ->
  2078. 1588.41 s [opt-env-conf-test] - case settingDefaultValue of
  2079. 1588.41 s [opt-env-conf-test] - Just (a, _) -> do
  2080. 1588.41 s [opt-env-conf-test] - debug ["set to default value"]
  2081. 1588.41 s [opt-env-conf-test] - pure a -- Don't mark as parsed
  2082. 1590.21 s [opt-env-conf-test] - Nothing -> do
  2083. 1590.21 s [opt-env-conf-test] - let parseResultError e res = case res of
  2084. 1590.21 s [opt-env-conf-test] - NotRun -> Nothing
  2085. 1590.21 s [opt-env-conf-test] - NotFound -> Just e
  2086. 1590.21 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  2087. 1590.21 s [opt-env-conf-test] - debug ["not found"]
  2088. 1590.21 s [opt-env-conf-test] - maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  2089. 1590.21 s [opt-env-conf-test] - NE.nonEmpty $
  2090. 1590.21 s [opt-env-conf-test] - catMaybes
  2091. 1590.21 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  2092. 1590.21 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  2093. 1590.21 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  2094. 1590.21 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  2095. 1590.21 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  2096. 1590.21 s [opt-env-conf-test] - ]
  2097. 1590.21 s [opt-env-conf-test]
  2098. 1590.21 s [opt-env-conf-test] withCapabilities ::
  2099. 1590.21 s [opt-env-conf-test] Maybe SrcLoc ->
  2100. 1590.21 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  2101. 1590.21 s [opt-env-conf-test] @@ -438,10 +438,9 @@
  2102. 1590.21 s [opt-env-conf-test] debug ["set to default value"]
  2103. 1590.21 s [opt-env-conf-test] pure a -- Don't mark as parsed
  2104. 1590.21 s [opt-env-conf-test] Nothing -> do
  2105. 1590.21 s [opt-env-conf-test] let parseResultError e res = case res of
  2106. 1590.21 s [opt-env-conf-test] NotRun -> Nothing
  2107. 1590.21 s [opt-env-conf-test] NotFound -> Just e
  2108. 1590.21 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  2109. 1590.21 s [opt-env-conf-test] debug ["not found"]
  2110. 1590.21 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  2111. 1590.21 s [opt-env-conf-test] NE.nonEmpty $
  2112. 1590.21 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  2113. 1590.21 s [opt-env-conf-test] @@ -446,12 +446,11 @@
  2114. 1590.21 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  2115. 1590.21 s [opt-env-conf-test] NE.nonEmpty $
  2116. 1590.21 s [opt-env-conf-test] catMaybes
  2117. 1590.22 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  2118. 1590.22 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  2119. 1590.22 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  2120. 1590.22 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  2121. 1590.22 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  2122. 1590.22 s [opt-env-conf-test] ]
  2123. 1590.22 s [opt-env-conf-test]
  2124. 1590.22 s [opt-env-conf-test] withCapabilities ::
  2125. 1590.22 s [opt-env-conf-test] Maybe SrcLoc ->
  2126. 1590.22 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  2127. 1590.22 s [opt-env-conf-test] @@ -259,12 +259,11 @@
  2128. 1590.22 s [opt-env-conf-test] ],
  2129. 1590.22 s [opt-env-conf-test] ZshCompletionScript
  2130. 1590.22 s [opt-env-conf-test] <$> setting
  2131. 1590.22 s [opt-env-conf-test] [ option,
  2132. 1590.22 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2133. 1590.22 s [opt-env-conf-test] long "zsh-completion-script",
  2134. 1590.22 s [opt-env-conf-test] hidden,
  2135. 1590.22 s [opt-env-conf-test] - help "Render the zsh completion script"
  2136. 1590.22 s [opt-env-conf-test] ],
  2137. 1590.22 s [opt-env-conf-test] ZshCompletionScript
  2138. 1590.22 s [opt-env-conf-test] <$> setting
  2139. 1590.22 s [opt-env-conf-test] [ option,
  2140. 1590.22 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  2141. 1590.22 s [opt-env-conf-test] @@ -274,12 +274,11 @@
  2142. 1590.22 s [opt-env-conf-test] help "Render the fish completion script"
  2143. 1590.22 s [opt-env-conf-test] ],
  2144. 1590.22 s [opt-env-conf-test] setting
  2145. 1590.22 s [opt-env-conf-test] - [ help "Query completion",
  2146. 1590.22 s [opt-env-conf-test] switch CompletionQuery,
  2147. 1590.22 s [opt-env-conf-test] -- Long string that no normal user would ever use.
  2148. 1590.22 s [opt-env-conf-test] long "query-opt-env-conf-completion",
  2149. 1590.22 s [opt-env-conf-test] hidden
  2150. 1590.22 s [opt-env-conf-test] ]
  2151. 1590.22 s [opt-env-conf-test] <*> setting
  2152. 1590.22 s [opt-env-conf-test] [ switch True,
  2153. 1590.22 s [opt-env-conf-test] long "completion-enriched",
  2154. 1590.22 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  2155. 1590.22 s [opt-env-conf-test] @@ -274,12 +274,11 @@
  2156. 1590.22 s [opt-env-conf-test] help "Render the fish completion script"
  2157. 1590.23 s [opt-env-conf-test] ],
  2158. 1590.23 s [opt-env-conf-test] setting
  2159. 1590.23 s [opt-env-conf-test] [ help "Query completion",
  2160. 1590.23 s [opt-env-conf-test] switch CompletionQuery,
  2161. 1590.23 s [opt-env-conf-test] -- Long string that no normal user would ever use.
  2162. 1590.23 s [opt-env-conf-test] long "query-opt-env-conf-completion",
  2163. 1590.23 s [opt-env-conf-test] - hidden
  2164. 1590.23 s [opt-env-conf-test] ]
  2165. 1590.23 s [opt-env-conf-test] <*> setting
  2166. 1590.23 s [opt-env-conf-test] [ switch True,
  2167. 1590.23 s [opt-env-conf-test] long "completion-enriched",
  2168. 1590.23 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:284:20-24
  2169. 1590.23 s [opt-env-conf-test] @@ -281,7 +281,7 @@
  2170. 1590.23 s [opt-env-conf-test] hidden
  2171. 1590.23 s [opt-env-conf-test] ]
  2172. 1590.23 s [opt-env-conf-test] <*> setting
  2173. 1590.23 s [opt-env-conf-test] - [ switch True,
  2174. 1590.23 s [opt-env-conf-test] + [ switch False,
  2175. 1590.23 s [opt-env-conf-test] long "completion-enriched",
  2176. 1590.23 s [opt-env-conf-test] value False,
  2177. 1590.23 s [opt-env-conf-test] hidden,
  2178. 1590.23 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  2179. 1590.23 s [opt-env-conf-test] @@ -281,12 +281,7 @@
  2180. 1590.23 s [opt-env-conf-test] hidden
  2181. 1590.23 s [opt-env-conf-test] ]
  2182. 1590.23 s [opt-env-conf-test] <*> setting
  2183. 1590.23 s [opt-env-conf-test] - [ switch True,
  2184. 1590.23 s [opt-env-conf-test] - long "completion-enriched",
  2185. 1590.23 s [opt-env-conf-test] - value False,
  2186. 1590.23 s [opt-env-conf-test] - hidden,
  2187. 1590.23 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  2188. 1590.23 s [opt-env-conf-test] ]
  2189. 1590.23 s [opt-env-conf-test] <*> setting
  2190. 1590.23 s [opt-env-conf-test] [ option,
  2191. 1590.23 s [opt-env-conf-test] reader auto,
  2192. 1590.23 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  2193. 1590.23 s [opt-env-conf-test] @@ -281,12 +281,11 @@
  2194. 1590.23 s [opt-env-conf-test] hidden
  2195. 1590.23 s [opt-env-conf-test] ]
  2196. 1590.23 s [opt-env-conf-test] <*> setting
  2197. 1590.23 s [opt-env-conf-test] - [ switch True,
  2198. 1590.23 s [opt-env-conf-test] long "completion-enriched",
  2199. 1590.23 s [opt-env-conf-test] value False,
  2200. 1590.23 s [opt-env-conf-test] hidden,
  2201. 1590.23 s [opt-env-conf-test] help "Whether to enable enriched completion"
  2202. 1590.23 s [opt-env-conf-test] ]
  2203. 1590.24 s [opt-env-conf-test] <*> setting
  2204. 1590.24 s [opt-env-conf-test] [ option,
  2205. 1590.24 s [opt-env-conf-test] reader auto,
  2206. 1590.24 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
  2207. 1590.24 s [opt-env-conf-test] @@ -288,12 +288,7 @@
  2208. 1590.24 s [opt-env-conf-test] help "Whether to enable enriched completion"
  2209. 1590.24 s [opt-env-conf-test] ]
  2210. 1590.24 s [opt-env-conf-test] <*> setting
  2211. 1590.24 s [opt-env-conf-test] - [ option,
  2212. 1590.24 s [opt-env-conf-test] - reader auto,
  2213. 1590.24 s [opt-env-conf-test] - long "completion-index",
  2214. 1590.24 s [opt-env-conf-test] - hidden,
  2215. 1590.24 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  2216. 1590.24 s [opt-env-conf-test] ]
  2217. 1590.24 s [opt-env-conf-test] <*> many
  2218. 1590.24 s [opt-env-conf-test] ( setting
  2219. 1590.24 s [opt-env-conf-test] [ option,
  2220. 1590.24 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
  2221. 1590.24 s [opt-env-conf-test] @@ -281,12 +281,11 @@
  2222. 1590.24 s [opt-env-conf-test] hidden
  2223. 1590.24 s [opt-env-conf-test] ]
  2224. 1590.24 s [opt-env-conf-test] <*> setting
  2225. 1590.24 s [opt-env-conf-test] [ switch True,
  2226. 1590.24 s [opt-env-conf-test] long "completion-enriched",
  2227. 1590.24 s [opt-env-conf-test] value False,
  2228. 1590.24 s [opt-env-conf-test] hidden,
  2229. 1590.24 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  2230. 1590.24 s [opt-env-conf-test] ]
  2231. 1590.24 s [opt-env-conf-test] <*> setting
  2232. 1590.24 s [opt-env-conf-test] [ option,
  2233. 1590.24 s [opt-env-conf-test] reader auto,
  2234. 1590.24 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
  2235. 1590.24 s [opt-env-conf-test] @@ -288,12 +288,11 @@
  2236. 1590.24 s [opt-env-conf-test] help "Whether to enable enriched completion"
  2237. 1590.24 s [opt-env-conf-test] ]
  2238. 1590.24 s [opt-env-conf-test] <*> setting
  2239. 1590.24 s [opt-env-conf-test] - [ option,
  2240. 1590.24 s [opt-env-conf-test] reader auto,
  2241. 1590.24 s [opt-env-conf-test] long "completion-index",
  2242. 1590.24 s [opt-env-conf-test] hidden,
  2243. 1590.24 s [opt-env-conf-test] help "The index between the arguments where completion was invoked."
  2244. 1590.24 s [opt-env-conf-test] ]
  2245. 1590.24 s [opt-env-conf-test] <*> many
  2246. 1590.24 s [opt-env-conf-test] ( setting
  2247. 1590.24 s [opt-env-conf-test] [ option,
  2248. 1590.24 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
  2249. 1590.24 s [opt-env-conf-test] @@ -288,12 +288,11 @@
  2250. 1590.24 s [opt-env-conf-test] help "Whether to enable enriched completion"
  2251. 1590.24 s [opt-env-conf-test] ]
  2252. 1590.24 s [opt-env-conf-test] <*> setting
  2253. 1590.24 s [opt-env-conf-test] [ option,
  2254. 1590.24 s [opt-env-conf-test] reader auto,
  2255. 1590.24 s [opt-env-conf-test] long "completion-index",
  2256. 1590.24 s [opt-env-conf-test] hidden,
  2257. 1590.24 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  2258. 1590.24 s [opt-env-conf-test] ]
  2259. 1590.24 s [opt-env-conf-test] <*> many
  2260. 1590.24 s [opt-env-conf-test] ( setting
  2261. 1590.24 s [opt-env-conf-test] [ option,
  2262. 1590.24 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  2263. 1590.24 s [opt-env-conf-test] @@ -296,12 +296,7 @@
  2264. 1590.24 s [opt-env-conf-test] ]
  2265. 1590.24 s [opt-env-conf-test] <*> many
  2266. 1590.24 s [opt-env-conf-test] ( setting
  2267. 1590.25 s [opt-env-conf-test] - [ option,
  2268. 1590.25 s [opt-env-conf-test] - reader str,
  2269. 1590.25 s [opt-env-conf-test] - long "completion-word",
  2270. 1590.25 s [opt-env-conf-test] - hidden,
  2271. 1590.25 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  2272. 1590.25 s [opt-env-conf-test] ]
  2273. 1590.25 s [opt-env-conf-test] ),
  2274. 1590.25 s [opt-env-conf-test] ParsedNormally <$> p
  2275. 1590.25 s [opt-env-conf-test] ]
  2276. 1590.25 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
  2277. 1590.25 s [opt-env-conf-test] @@ -267,12 +267,11 @@
  2278. 1590.25 s [opt-env-conf-test] ],
  2279. 1590.25 s [opt-env-conf-test] ZshCompletionScript
  2280. 1590.25 s [opt-env-conf-test] <$> setting
  2281. 1590.25 s [opt-env-conf-test] - [ option,
  2282. 1590.25 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2283. 1590.25 s [opt-env-conf-test] long "fish-completion-script",
  2284. 1590.25 s [opt-env-conf-test] hidden,
  2285. 1590.25 s [opt-env-conf-test] help "Render the fish completion script"
  2286. 1590.25 s [opt-env-conf-test] ],
  2287. 1590.25 s [opt-env-conf-test] setting
  2288. 1590.25 s [opt-env-conf-test] [ help "Query completion",
  2289. 1590.25 s [opt-env-conf-test] switch CompletionQuery,
  2290. 1590.25 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  2291. 1590.25 s [opt-env-conf-test] @@ -296,12 +296,11 @@
  2292. 1590.25 s [opt-env-conf-test] ]
  2293. 1590.25 s [opt-env-conf-test] <*> many
  2294. 1590.25 s [opt-env-conf-test] ( setting
  2295. 1590.25 s [opt-env-conf-test] - [ option,
  2296. 1590.25 s [opt-env-conf-test] reader str,
  2297. 1590.25 s [opt-env-conf-test] long "completion-word",
  2298. 1590.25 s [opt-env-conf-test] hidden,
  2299. 1590.25 s [opt-env-conf-test] help "The words (arguments) that have already been typed"
  2300. 1590.25 s [opt-env-conf-test] ]
  2301. 1590.25 s [opt-env-conf-test] ),
  2302. 1590.25 s [opt-env-conf-test] ParsedNormally <$> p
  2303. 1590.25 s [opt-env-conf-test] ]
  2304. 1590.25 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
  2305. 1590.25 s [opt-env-conf-test] @@ -296,12 +296,11 @@
  2306. 1590.25 s [opt-env-conf-test] ]
  2307. 1590.25 s [opt-env-conf-test] <*> many
  2308. 1590.25 s [opt-env-conf-test] ( setting
  2309. 1590.25 s [opt-env-conf-test] [ option,
  2310. 1590.25 s [opt-env-conf-test] reader str,
  2311. 1590.25 s [opt-env-conf-test] long "completion-word",
  2312. 1590.25 s [opt-env-conf-test] hidden,
  2313. 1590.25 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  2314. 1590.25 s [opt-env-conf-test] ]
  2315. 1590.25 s [opt-env-conf-test] ),
  2316. 1590.25 s [opt-env-conf-test] ParsedNormally <$> p
  2317. 1590.25 s [opt-env-conf-test] ]
  2318. 1590.25 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
  2319. 1590.25 s [opt-env-conf-test] @@ -232,11 +232,7 @@
  2320. 1590.25 s [opt-env-conf-test] hidden
  2321. 1590.25 s [opt-env-conf-test] ],
  2322. 1590.25 s [opt-env-conf-test] setting
  2323. 1590.25 s [opt-env-conf-test] - [ switch RenderMan,
  2324. 1590.25 s [opt-env-conf-test] - long "render-man-page",
  2325. 1590.25 s [opt-env-conf-test] - hidden,
  2326. 1590.25 s [opt-env-conf-test] - help "Render a manpage"
  2327. 1590.25 s [opt-env-conf-test] ],
  2328. 1590.25 s [opt-env-conf-test] setting
  2329. 1590.25 s [opt-env-conf-test] [ switch RenderDocumentation,
  2330. 1590.25 s [opt-env-conf-test] long "render-reference-documentation",
  2331. 1590.25 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
  2332. 1590.26 s [opt-env-conf-test] @@ -226,82 +226,4 @@
  2333. 1590.26 s [opt-env-conf-test] internalParser :: Parser a -> Parser (Internal a)
  2334. 1590.26 s [opt-env-conf-test] internalParser p =
  2335. 1590.26 s [opt-env-conf-test] choice
  2336. 1590.26 s [opt-env-conf-test] - [ setting
  2337. 1590.26 s [opt-env-conf-test] - [ switch ShowVersion,
  2338. 1590.26 s [opt-env-conf-test] - long "version",
  2339. 1590.26 s [opt-env-conf-test] - hidden
  2340. 1590.26 s [opt-env-conf-test] - ],
  2341. 1590.26 s [opt-env-conf-test] - setting
  2342. 1590.26 s [opt-env-conf-test] - [ switch RenderMan,
  2343. 1590.26 s [opt-env-conf-test] - long "render-man-page",
  2344. 1590.26 s [opt-env-conf-test] - hidden,
  2345. 1590.26 s [opt-env-conf-test] - help "Render a manpage"
  2346. 1590.26 s [opt-env-conf-test] - ],
  2347. 1590.26 s [opt-env-conf-test] - setting
  2348. 1590.26 s [opt-env-conf-test] - [ switch RenderDocumentation,
  2349. 1590.26 s [opt-env-conf-test] - long "render-reference-documentation",
  2350. 1590.26 s [opt-env-conf-test] - hidden,
  2351. 1590.26 s [opt-env-conf-test] - help "Render reference documentation"
  2352. 1590.26 s [opt-env-conf-test] - ],
  2353. 1590.26 s [opt-env-conf-test] - setting
  2354. 1590.26 s [opt-env-conf-test] - [ switch RenderNixosOptions,
  2355. 1590.26 s [opt-env-conf-test] - long "render-nix-options",
  2356. 1590.26 s [opt-env-conf-test] - hidden,
  2357. 1590.26 s [opt-env-conf-test] - help "Render Nix options"
  2358. 1590.26 s [opt-env-conf-test] - ],
  2359. 1590.26 s [opt-env-conf-test] - BashCompletionScript
  2360. 1590.26 s [opt-env-conf-test] - <$> setting
  2361. 1590.26 s [opt-env-conf-test] - [ option,
  2362. 1590.26 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  2363. 1590.26 s [opt-env-conf-test] - long "bash-completion-script",
  2364. 1590.26 s [opt-env-conf-test] - hidden,
  2365. 1590.26 s [opt-env-conf-test] - help "Render the bash completion script"
  2366. 1590.26 s [opt-env-conf-test] - ],
  2367. 1590.26 s [opt-env-conf-test] - ZshCompletionScript
  2368. 1590.26 s [opt-env-conf-test] - <$> setting
  2369. 1590.26 s [opt-env-conf-test] - [ option,
  2370. 1590.26 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  2371. 1590.26 s [opt-env-conf-test] - long "zsh-completion-script",
  2372. 1590.26 s [opt-env-conf-test] - hidden,
  2373. 1590.26 s [opt-env-conf-test] - help "Render the zsh completion script"
  2374. 1590.26 s [opt-env-conf-test] - ],
  2375. 1590.26 s [opt-env-conf-test] - ZshCompletionScript
  2376. 1590.26 s [opt-env-conf-test] - <$> setting
  2377. 1590.26 s [opt-env-conf-test] - [ option,
  2378. 1590.26 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  2379. 1590.26 s [opt-env-conf-test] - long "fish-completion-script",
  2380. 1590.26 s [opt-env-conf-test] - hidden,
  2381. 1590.26 s [opt-env-conf-test] - help "Render the fish completion script"
  2382. 1590.26 s [opt-env-conf-test] - ],
  2383. 1590.26 s [opt-env-conf-test] - setting
  2384. 1590.26 s [opt-env-conf-test] - [ help "Query completion",
  2385. 1590.26 s [opt-env-conf-test] - switch CompletionQuery,
  2386. 1590.26 s [opt-env-conf-test] - -- Long string that no normal user would ever use.
  2387. 1590.26 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  2388. 1590.26 s [opt-env-conf-test] - hidden
  2389. 1590.26 s [opt-env-conf-test] - ]
  2390. 1590.26 s [opt-env-conf-test] - <*> setting
  2391. 1590.26 s [opt-env-conf-test] - [ switch True,
  2392. 1590.26 s [opt-env-conf-test] - long "completion-enriched",
  2393. 1590.26 s [opt-env-conf-test] - value False,
  2394. 1590.26 s [opt-env-conf-test] - hidden,
  2395. 1590.26 s [opt-env-conf-test] - help "Whether to enable enriched completion"
  2396. 1590.26 s [opt-env-conf-test] - ]
  2397. 1590.26 s [opt-env-conf-test] - <*> setting
  2398. 1590.26 s [opt-env-conf-test] - [ option,
  2399. 1590.26 s [opt-env-conf-test] - reader auto,
  2400. 1590.26 s [opt-env-conf-test] - long "completion-index",
  2401. 1590.26 s [opt-env-conf-test] - hidden,
  2402. 1590.26 s [opt-env-conf-test] - help "The index between the arguments where completion was invoked."
  2403. 1590.26 s [opt-env-conf-test] - ]
  2404. 1590.26 s [opt-env-conf-test] - <*> many
  2405. 1590.26 s [opt-env-conf-test] - ( setting
  2406. 1590.26 s [opt-env-conf-test] - [ option,
  2407. 1590.26 s [opt-env-conf-test] - reader str,
  2408. 1590.26 s [opt-env-conf-test] - long "completion-word",
  2409. 1590.26 s [opt-env-conf-test] - hidden,
  2410. 1590.27 s [opt-env-conf-test] - help "The words (arguments) that have already been typed"
  2411. 1590.27 s [opt-env-conf-test] - ]
  2412. 1590.27 s [opt-env-conf-test] - ),
  2413. 1590.27 s [opt-env-conf-test] - ParsedNormally <$> p
  2414. 1590.27 s [opt-env-conf-test] ]
  2415. 1590.27 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
  2416. 1590.27 s [opt-env-conf-test] @@ -226,82 +226,77 @@
  2417. 1590.27 s [opt-env-conf-test] internalParser :: Parser a -> Parser (Internal a)
  2418. 1590.27 s [opt-env-conf-test] internalParser p =
  2419. 1590.27 s [opt-env-conf-test] choice
  2420. 1590.27 s [opt-env-conf-test] - [ setting
  2421. 1590.27 s [opt-env-conf-test] - [ switch ShowVersion,
  2422. 1590.27 s [opt-env-conf-test] - long "version",
  2423. 1590.27 s [opt-env-conf-test] - hidden
  2424. 1590.27 s [opt-env-conf-test] - ],
  2425. 1590.27 s [opt-env-conf-test] setting
  2426. 1590.27 s [opt-env-conf-test] [ switch RenderMan,
  2427. 1590.27 s [opt-env-conf-test] long "render-man-page",
  2428. 1590.27 s [opt-env-conf-test] hidden,
  2429. 1590.27 s [opt-env-conf-test] help "Render a manpage"
  2430. 1590.27 s [opt-env-conf-test] ],
  2431. 1590.27 s [opt-env-conf-test] setting
  2432. 1590.27 s [opt-env-conf-test] [ switch RenderDocumentation,
  2433. 1590.27 s [opt-env-conf-test] long "render-reference-documentation",
  2434. 1590.27 s [opt-env-conf-test] hidden,
  2435. 1590.27 s [opt-env-conf-test] help "Render reference documentation"
  2436. 1590.27 s [opt-env-conf-test] ],
  2437. 1590.27 s [opt-env-conf-test] setting
  2438. 1590.27 s [opt-env-conf-test] [ switch RenderNixosOptions,
  2439. 1590.27 s [opt-env-conf-test] long "render-nix-options",
  2440. 1590.27 s [opt-env-conf-test] hidden,
  2441. 1590.27 s [opt-env-conf-test] help "Render Nix options"
  2442. 1590.27 s [opt-env-conf-test] ],
  2443. 1590.27 s [opt-env-conf-test] BashCompletionScript
  2444. 1590.27 s [opt-env-conf-test] <$> setting
  2445. 1590.27 s [opt-env-conf-test] [ option,
  2446. 1590.27 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2447. 1590.27 s [opt-env-conf-test] long "bash-completion-script",
  2448. 1590.27 s [opt-env-conf-test] hidden,
  2449. 1590.27 s [opt-env-conf-test] help "Render the bash completion script"
  2450. 1590.27 s [opt-env-conf-test] ],
  2451. 1590.27 s [opt-env-conf-test] ZshCompletionScript
  2452. 1590.27 s [opt-env-conf-test] <$> setting
  2453. 1590.27 s [opt-env-conf-test] [ option,
  2454. 1590.27 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2455. 1590.27 s [opt-env-conf-test] long "zsh-completion-script",
  2456. 1590.27 s [opt-env-conf-test] hidden,
  2457. 1590.27 s [opt-env-conf-test] help "Render the zsh completion script"
  2458. 1590.27 s [opt-env-conf-test] ],
  2459. 1590.27 s [opt-env-conf-test] ZshCompletionScript
  2460. 1590.27 s [opt-env-conf-test] <$> setting
  2461. 1590.27 s [opt-env-conf-test] [ option,
  2462. 1590.27 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2463. 1590.27 s [opt-env-conf-test] long "fish-completion-script",
  2464. 1590.27 s [opt-env-conf-test] hidden,
  2465. 1590.27 s [opt-env-conf-test] help "Render the fish completion script"
  2466. 1590.27 s [opt-env-conf-test] ],
  2467. 1590.27 s [opt-env-conf-test] setting
  2468. 1590.27 s [opt-env-conf-test] [ help "Query completion",
  2469. 1590.27 s [opt-env-conf-test] switch CompletionQuery,
  2470. 1590.27 s [opt-env-conf-test] -- Long string that no normal user would ever use.
  2471. 1590.27 s [opt-env-conf-test] long "query-opt-env-conf-completion",
  2472. 1590.27 s [opt-env-conf-test] hidden
  2473. 1590.27 s [opt-env-conf-test] ]
  2474. 1590.27 s [opt-env-conf-test] <*> setting
  2475. 1590.27 s [opt-env-conf-test] [ switch True,
  2476. 1590.27 s [opt-env-conf-test] long "completion-enriched",
  2477. 1590.27 s [opt-env-conf-test] value False,
  2478. 1590.27 s [opt-env-conf-test] hidden,
  2479. 1590.27 s [opt-env-conf-test] help "Whether to enable enriched completion"
  2480. 1590.27 s [opt-env-conf-test] ]
  2481. 1590.27 s [opt-env-conf-test] <*> setting
  2482. 1590.27 s [opt-env-conf-test] [ option,
  2483. 1590.30 s [opt-env-conf-test] reader auto,
  2484. 1590.30 s [opt-env-conf-test] long "completion-index",
  2485. 1590.30 s [opt-env-conf-test] hidden,
  2486. 1590.30 s [opt-env-conf-test] help "The index between the arguments where completion was invoked."
  2487. 1590.30 s [opt-env-conf-test] ]
  2488. 1590.30 s [opt-env-conf-test] <*> many
  2489. 1590.30 s [opt-env-conf-test] ( setting
  2490. 1590.30 s [opt-env-conf-test] [ option,
  2491. 1590.30 s [opt-env-conf-test] reader str,
  2492. 1590.30 s [opt-env-conf-test] long "completion-word",
  2493. 1590.30 s [opt-env-conf-test] hidden,
  2494. 1590.30 s [opt-env-conf-test] help "The words (arguments) that have already been typed"
  2495. 1590.30 s [opt-env-conf-test] ]
  2496. 1590.30 s [opt-env-conf-test] ),
  2497. 1590.30 s [opt-env-conf-test] ParsedNormally <$> p
  2498. 1590.30 s [opt-env-conf-test] ]
  2499. 1590.30 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
  2500. 1590.30 s [opt-env-conf-test] @@ -226,82 +226,81 @@
  2501. 1590.30 s [opt-env-conf-test] internalParser :: Parser a -> Parser (Internal a)
  2502. 1590.30 s [opt-env-conf-test] internalParser p =
  2503. 1590.30 s [opt-env-conf-test] choice
  2504. 1590.30 s [opt-env-conf-test] [ setting
  2505. 1590.30 s [opt-env-conf-test] [ switch ShowVersion,
  2506. 1590.30 s [opt-env-conf-test] long "version",
  2507. 1590.30 s [opt-env-conf-test] hidden
  2508. 1590.30 s [opt-env-conf-test] ],
  2509. 1590.30 s [opt-env-conf-test] setting
  2510. 1590.31 s [opt-env-conf-test] [ switch RenderMan,
  2511. 1590.31 s [opt-env-conf-test] long "render-man-page",
  2512. 1590.31 s [opt-env-conf-test] hidden,
  2513. 1590.31 s [opt-env-conf-test] help "Render a manpage"
  2514. 1590.31 s [opt-env-conf-test] ],
  2515. 1590.31 s [opt-env-conf-test] setting
  2516. 1590.31 s [opt-env-conf-test] [ switch RenderDocumentation,
  2517. 1590.31 s [opt-env-conf-test] long "render-reference-documentation",
  2518. 1590.31 s [opt-env-conf-test] hidden,
  2519. 1590.31 s [opt-env-conf-test] help "Render reference documentation"
  2520. 1590.31 s [opt-env-conf-test] ],
  2521. 1590.31 s [opt-env-conf-test] setting
  2522. 1590.31 s [opt-env-conf-test] [ switch RenderNixosOptions,
  2523. 1590.31 s [opt-env-conf-test] long "render-nix-options",
  2524. 1590.31 s [opt-env-conf-test] hidden,
  2525. 1590.31 s [opt-env-conf-test] help "Render Nix options"
  2526. 1590.31 s [opt-env-conf-test] ],
  2527. 1590.31 s [opt-env-conf-test] BashCompletionScript
  2528. 1590.31 s [opt-env-conf-test] <$> setting
  2529. 1590.31 s [opt-env-conf-test] [ option,
  2530. 1590.31 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2531. 1590.31 s [opt-env-conf-test] long "bash-completion-script",
  2532. 1590.31 s [opt-env-conf-test] hidden,
  2533. 1590.31 s [opt-env-conf-test] help "Render the bash completion script"
  2534. 1590.31 s [opt-env-conf-test] ],
  2535. 1590.31 s [opt-env-conf-test] ZshCompletionScript
  2536. 1590.31 s [opt-env-conf-test] <$> setting
  2537. 1590.31 s [opt-env-conf-test] [ option,
  2538. 1590.31 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2539. 1590.31 s [opt-env-conf-test] long "zsh-completion-script",
  2540. 1590.31 s [opt-env-conf-test] hidden,
  2541. 1590.31 s [opt-env-conf-test] help "Render the zsh completion script"
  2542. 1590.31 s [opt-env-conf-test] ],
  2543. 1590.31 s [opt-env-conf-test] ZshCompletionScript
  2544. 1590.31 s [opt-env-conf-test] <$> setting
  2545. 1590.31 s [opt-env-conf-test] [ option,
  2546. 1590.31 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2547. 1590.31 s [opt-env-conf-test] long "fish-completion-script",
  2548. 1590.31 s [opt-env-conf-test] hidden,
  2549. 1590.31 s [opt-env-conf-test] help "Render the fish completion script"
  2550. 1590.31 s [opt-env-conf-test] ],
  2551. 1590.31 s [opt-env-conf-test] setting
  2552. 1590.31 s [opt-env-conf-test] [ help "Query completion",
  2553. 1590.31 s [opt-env-conf-test] switch CompletionQuery,
  2554. 1590.31 s [opt-env-conf-test] -- Long string that no normal user would ever use.
  2555. 1590.31 s [opt-env-conf-test] long "query-opt-env-conf-completion",
  2556. 1590.32 s [opt-env-conf-test] hidden
  2557. 1590.32 s [opt-env-conf-test] ]
  2558. 1590.32 s [opt-env-conf-test] <*> setting
  2559. 1590.32 s [opt-env-conf-test] [ switch True,
  2560. 1590.32 s [opt-env-conf-test] long "completion-enriched",
  2561. 1590.32 s [opt-env-conf-test] value False,
  2562. 1590.32 s [opt-env-conf-test] hidden,
  2563. 1590.32 s [opt-env-conf-test] help "Whether to enable enriched completion"
  2564. 1590.32 s [opt-env-conf-test] ]
  2565. 1590.32 s [opt-env-conf-test] <*> setting
  2566. 1590.32 s [opt-env-conf-test] [ option,
  2567. 1590.32 s [opt-env-conf-test] reader auto,
  2568. 1596.97 s [opt-env-conf-test] long "completion-index",
  2569. 1597.00 s [opt-env-conf-test] hidden,
  2570. 1597.00 s [opt-env-conf-test] help "The index between the arguments where completion was invoked."
  2571. 1597.00 s [opt-env-conf-test] ]
  2572. 1597.00 s [opt-env-conf-test] <*> many
  2573. 1597.00 s [opt-env-conf-test] ( setting
  2574. 1597.00 s [opt-env-conf-test] [ option,
  2575. 1597.00 s [opt-env-conf-test] reader str,
  2576. 1597.00 s [opt-env-conf-test] long "completion-word",
  2577. 1597.00 s [opt-env-conf-test] hidden,
  2578. 1597.00 s [opt-env-conf-test] help "The words (arguments) that have already been typed"
  2579. 1597.00 s [opt-env-conf-test] ]
  2580. 1597.00 s [opt-env-conf-test] ),
  2581. 1597.00 s [opt-env-conf-test] - ParsedNormally <$> p
  2582. 1597.00 s [opt-env-conf-test] ]
  2583. 1597.00 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
  2584. 1597.00 s [opt-env-conf-test] @@ -446,12 +446,7 @@
  2585. 1597.00 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  2586. 1597.00 s [opt-env-conf-test] NE.nonEmpty $
  2587. 1597.00 s [opt-env-conf-test] catMaybes
  2588. 1597.00 s [opt-env-conf-test] - [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  2589. 1597.01 s [opt-env-conf-test] - parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  2590. 1597.01 s [opt-env-conf-test] - parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  2591. 1597.01 s [opt-env-conf-test] - parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  2592. 1597.01 s [opt-env-conf-test] - parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  2593. 1597.01 s [opt-env-conf-test] ]
  2594. 1597.01 s [opt-env-conf-test]
  2595. 1597.01 s [opt-env-conf-test] withCapabilities ::
  2596. 1597.01 s [opt-env-conf-test] Maybe SrcLoc ->
  2597. 1597.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  2598. 1597.01 s [opt-env-conf-test] @@ -198,11 +198,10 @@
  2599. 1597.01 s [opt-env-conf-test] let t = T.pack x
  2600. 1597.01 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  2601. 1597.01 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  2602. 1597.01 s [opt-env-conf-test] Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  2603. 1597.01 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  2604. 1597.01 s [opt-env-conf-test] Nothing ->
  2605. 1597.01 s [opt-env-conf-test] let (finalCaps, rest) = go caps xs
  2606. 1597.01 s [opt-env-conf-test] in (finalCaps, x : rest)
  2607. 1597.01 s [opt-env-conf-test]
  2608. 1597.01 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  2609. 1597.01 s [opt-env-conf-test] -- is supposed to.
  2610. 1597.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  2611. 1597.01 s [opt-env-conf-test] @@ -198,11 +198,8 @@
  2612. 1597.01 s [opt-env-conf-test] let t = T.pack x
  2613. 1597.01 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  2614. 1597.01 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  2615. 1597.01 s [opt-env-conf-test] Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  2616. 1597.01 s [opt-env-conf-test] Just capName -> go (enableCapability (Capability capName) caps) xs
  2617. 1597.01 s [opt-env-conf-test] - Nothing ->
  2618. 1597.01 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  2619. 1597.01 s [opt-env-conf-test] - in (finalCaps, x : rest)
  2620. 1597.01 s [opt-env-conf-test]
  2621. 1597.01 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  2622. 1597.01 s [opt-env-conf-test] -- is supposed to.
  2623. 1597.01 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  2624. 1597.01 s [opt-env-conf-test] @@ -196,13 +196,12 @@
  2625. 1597.01 s [opt-env-conf-test] [] -> (caps, [])
  2626. 1597.01 s [opt-env-conf-test] (x : xs) ->
  2627. 1597.01 s [opt-env-conf-test] let t = T.pack x
  2628. 1597.02 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  2629. 1597.02 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  2630. 1597.02 s [opt-env-conf-test] Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  2631. 1597.02 s [opt-env-conf-test] Just capName -> go (enableCapability (Capability capName) caps) xs
  2632. 1597.02 s [opt-env-conf-test] Nothing ->
  2633. 1597.02 s [opt-env-conf-test] let (finalCaps, rest) = go caps xs
  2634. 1597.02 s [opt-env-conf-test] in (finalCaps, x : rest)
  2635. 1597.02 s [opt-env-conf-test]
  2636. 1597.02 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  2637. 1597.02 s [opt-env-conf-test] -- is supposed to.
  2638. 1597.02 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
  2639. 1597.02 s [opt-env-conf-test] @@ -267,12 +267,7 @@
  2640. 1597.02 s [opt-env-conf-test] ],
  2641. 1597.02 s [opt-env-conf-test] ZshCompletionScript
  2642. 1597.02 s [opt-env-conf-test] <$> setting
  2643. 1597.02 s [opt-env-conf-test] - [ option,
  2644. 1597.02 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  2645. 1597.02 s [opt-env-conf-test] - long "fish-completion-script",
  2646. 1597.02 s [opt-env-conf-test] - hidden,
  2647. 1597.02 s [opt-env-conf-test] - help "Render the fish completion script"
  2648. 1597.02 s [opt-env-conf-test] ],
  2649. 1597.02 s [opt-env-conf-test] setting
  2650. 1597.02 s [opt-env-conf-test] [ help "Query completion",
  2651. 1597.02 s [opt-env-conf-test] switch CompletionQuery,
  2652. 1597.02 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  2653. 1597.02 s [opt-env-conf-test] @@ -196,13 +196,8 @@
  2654. 1597.02 s [opt-env-conf-test] [] -> (caps, [])
  2655. 1597.02 s [opt-env-conf-test] (x : xs) ->
  2656. 1597.02 s [opt-env-conf-test] let t = T.pack x
  2657. 1597.02 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  2658. 1597.02 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  2659. 1597.02 s [opt-env-conf-test] - Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  2660. 1597.02 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  2661. 1597.02 s [opt-env-conf-test] - Nothing ->
  2662. 1597.02 s [opt-env-conf-test] - let (finalCaps, rest) = go caps xs
  2663. 1597.02 s [opt-env-conf-test] - in (finalCaps, x : rest)
  2664. 1597.02 s [opt-env-conf-test]
  2665. 1597.02 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  2666. 1597.02 s [opt-env-conf-test] -- is supposed to.
  2667. 1597.02 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:286:19-24
  2668. 1597.02 s [opt-env-conf-test] @@ -283,7 +283,7 @@
  2669. 1597.02 s [opt-env-conf-test] <*> setting
  2670. 1597.02 s [opt-env-conf-test] [ switch True,
  2671. 1597.02 s [opt-env-conf-test] long "completion-enriched",
  2672. 1597.02 s [opt-env-conf-test] - value False,
  2673. 1597.03 s [opt-env-conf-test] + value True,
  2674. 1597.03 s [opt-env-conf-test] hidden,
  2675. 1597.03 s [opt-env-conf-test] help "Whether to enable enriched completion"
  2676. 1597.03 s [opt-env-conf-test] ]
  2677. 1597.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
  2678. 1597.03 s [opt-env-conf-test] @@ -274,12 +274,8 @@
  2679. 1597.03 s [opt-env-conf-test] help "Render the fish completion script"
  2680. 1597.03 s [opt-env-conf-test] ],
  2681. 1597.03 s [opt-env-conf-test] setting
  2682. 1597.03 s [opt-env-conf-test] - [ help "Query completion",
  2683. 1597.03 s [opt-env-conf-test] - switch CompletionQuery,
  2684. 1597.03 s [opt-env-conf-test] -- Long string that no normal user would ever use.
  2685. 1597.03 s [opt-env-conf-test] - long "query-opt-env-conf-completion",
  2686. 1597.03 s [opt-env-conf-test] - hidden
  2687. 1597.03 s [opt-env-conf-test] ]
  2688. 1597.03 s [opt-env-conf-test] <*> setting
  2689. 1597.03 s [opt-env-conf-test] [ switch True,
  2690. 1597.03 s [opt-env-conf-test] long "completion-enriched",
  2691. 1597.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  2692. 1597.03 s [opt-env-conf-test] @@ -259,12 +259,7 @@
  2693. 1597.03 s [opt-env-conf-test] ],
  2694. 1597.03 s [opt-env-conf-test] ZshCompletionScript
  2695. 1597.03 s [opt-env-conf-test] <$> setting
  2696. 1597.03 s [opt-env-conf-test] - [ option,
  2697. 1597.03 s [opt-env-conf-test] - reader $ maybeReader parseAbsFile,
  2698. 1597.03 s [opt-env-conf-test] - long "zsh-completion-script",
  2699. 1597.03 s [opt-env-conf-test] - hidden,
  2700. 1597.03 s [opt-env-conf-test] - help "Render the zsh completion script"
  2701. 1597.03 s [opt-env-conf-test] ],
  2702. 1597.03 s [opt-env-conf-test] ZshCompletionScript
  2703. 1597.03 s [opt-env-conf-test] <$> setting
  2704. 1597.03 s [opt-env-conf-test] [ option,
  2705. 1597.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:376:17-18
  2706. 1597.03 s [opt-env-conf-test] @@ -373,9 +373,8 @@
  2707. 1597.03 s [opt-env-conf-test] | not (nullDocs optDocs)
  2708. 1597.03 s [opt-env-conf-test] ],
  2709. 1597.03 s [opt-env-conf-test] concat
  2710. 1597.03 s [opt-env-conf-test] - [ [ headerChunks "Environment Variables",
  2711. 1597.03 s [opt-env-conf-test] renderEnvDocs envDocs
  2712. 1597.03 s [opt-env-conf-test] ]
  2713. 1597.03 s [opt-env-conf-test] | not (nullDocs envDocs)
  2714. 1597.03 s [opt-env-conf-test] ],
  2715. 1597.03 s [opt-env-conf-test] concat
  2716. 1597.03 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:382:17-18
  2717. 1597.03 s [opt-env-conf-test] @@ -379,9 +379,8 @@
  2718. 1597.03 s [opt-env-conf-test] | not (nullDocs envDocs)
  2719. 1597.04 s [opt-env-conf-test] ],
  2720. 1597.04 s [opt-env-conf-test] concat
  2721. 1597.04 s [opt-env-conf-test] - [ [ headerChunks "Configuration Values",
  2722. 1597.04 s [opt-env-conf-test] renderConfDocs confDocs
  2723. 1597.04 s [opt-env-conf-test] ]
  2724. 1597.04 s [opt-env-conf-test] | not (nullDocs confDocs)
  2725. 1597.04 s [opt-env-conf-test] ]
  2726. 1597.04 s [opt-env-conf-test] ]
  2727. 1597.04 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
  2728. 1597.04 s [opt-env-conf-test] @@ -259,12 +259,11 @@
  2729. 1597.04 s [opt-env-conf-test] ],
  2730. 1597.04 s [opt-env-conf-test] ZshCompletionScript
  2731. 1597.04 s [opt-env-conf-test] <$> setting
  2732. 1597.04 s [opt-env-conf-test] - [ option,
  2733. 1597.04 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2734. 1597.04 s [opt-env-conf-test] long "zsh-completion-script",
  2735. 1597.04 s [opt-env-conf-test] hidden,
  2736. 1597.04 s [opt-env-conf-test] help "Render the zsh completion script"
  2737. 1597.04 s [opt-env-conf-test] ],
  2738. 1597.04 s [opt-env-conf-test] ZshCompletionScript
  2739. 1597.04 s [opt-env-conf-test] <$> setting
  2740. 1597.04 s [opt-env-conf-test] [ option,
  2741. 1597.04 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
  2742. 1597.04 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  2743. 1597.04 s [opt-env-conf-test] | x == arg -> (True, xs)
  2744. 1597.04 s [opt-env-conf-test] | otherwise ->
  2745. 1597.04 s [opt-env-conf-test] let (found, rest) = go xs
  2746. 1597.04 s [opt-env-conf-test] - in (found, x : rest)
  2747. 1597.04 s [opt-env-conf-test] + in (True, x : rest)
  2748. 1597.04 s [opt-env-conf-test]
  2749. 1597.05 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  2750. 1597.05 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  2751. 1597.05 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
  2752. 1597.05 s [opt-env-conf-test] @@ -267,12 +267,11 @@
  2753. 1597.05 s [opt-env-conf-test] ],
  2754. 1597.05 s [opt-env-conf-test] ZshCompletionScript
  2755. 1597.05 s [opt-env-conf-test] <$> setting
  2756. 1597.05 s [opt-env-conf-test] [ option,
  2757. 1597.05 s [opt-env-conf-test] reader $ maybeReader parseAbsFile,
  2758. 1597.05 s [opt-env-conf-test] long "fish-completion-script",
  2759. 1597.05 s [opt-env-conf-test] hidden,
  2760. 1597.05 s [opt-env-conf-test] - help "Render the fish completion script"
  2761. 1597.05 s [opt-env-conf-test] ],
  2762. 1597.05 s [opt-env-conf-test] setting
  2763. 1597.05 s [opt-env-conf-test] [ help "Query completion",
  2764. 1597.05 s [opt-env-conf-test] switch CompletionQuery,
  2765. 1597.05 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
  2766. 1597.05 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  2767. 1597.05 s [opt-env-conf-test] | x == arg -> (True, xs)
  2768. 1597.05 s [opt-env-conf-test] | otherwise ->
  2769. 1602.46 s [opt-env-conf-test] let (found, rest) = go xs
  2770. 1602.49 s [opt-env-conf-test] - in (found, x : rest)
  2771. 1602.49 s [opt-env-conf-test] + in (False, x : rest)
  2772. 1602.49 s [opt-env-conf-test]
  2773. 1602.49 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  2774. 1602.49 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  2775. 1602.49 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:175:18-23
  2776. 1602.49 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  2777. 1602.49 s [opt-env-conf-test] | x == arg -> (True, xs)
  2778. 1602.49 s [opt-env-conf-test] | otherwise ->
  2779. 1602.49 s [opt-env-conf-test] let (found, rest) = go xs
  2780. 1602.49 s [opt-env-conf-test] - in (found, x : rest)
  2781. 1602.49 s [opt-env-conf-test] + in (not (found), x : rest)
  2782. 1602.49 s [opt-env-conf-test]
  2783. 1602.49 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  2784. 1602.49 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  2785. 1602.49 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
  2786. 1602.49 s [opt-env-conf-test] @@ -181,7 +181,7 @@
  2787. 1602.49 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  2788. 1602.49 s [opt-env-conf-test] consumeHelpMode as =
  2789. 1602.49 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  2790. 1602.49 s [opt-env-conf-test] - in if found
  2791. 1602.49 s [opt-env-conf-test] + in if True
  2792. 1602.49 s [opt-env-conf-test] then (True, as')
  2793. 1602.49 s [opt-env-conf-test] else consumeExactArg "-h" as'
  2794. 1602.49 s [opt-env-conf-test]
  2795. 1602.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
  2796. 1602.49 s [opt-env-conf-test] @@ -114,7 +114,6 @@
  2797. 1602.49 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  2798. 1602.49 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  2799. 1602.49 s [opt-env-conf-test] ParserEmpty mLoc -> do
  2800. 1602.49 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  2801. 1602.49 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  2802. 1602.49 s [opt-env-conf-test] ParserSelect fe ff -> do
  2803. 1602.49 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  2804. 1602.50 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:184:10-15
  2805. 1602.50 s [opt-env-conf-test] @@ -181,7 +181,7 @@
  2806. 1602.50 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  2807. 1602.50 s [opt-env-conf-test] consumeHelpMode as =
  2808. 1602.50 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  2809. 1602.50 s [opt-env-conf-test] - in if found
  2810. 1602.50 s [opt-env-conf-test] + in if not (found)
  2811. 1602.50 s [opt-env-conf-test] then (True, as')
  2812. 1602.50 s [opt-env-conf-test] else consumeExactArg "-h" as'
  2813. 1602.50 s [opt-env-conf-test]
  2814. 1602.50 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:74:7-61
  2815. 1602.50 s [opt-env-conf-test] @@ -71,7 +71,6 @@
  2816. 1602.50 s [opt-env-conf-test] case lintParser p of
  2817. 1602.50 s [opt-env-conf-test] Just errs -> do
  2818. 1602.50 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  2819. 1602.50 s [opt-env-conf-test] - hPutChunksLocaleWith tc stderr $ renderLintErrors errs
  2820. 1602.50 s [opt-env-conf-test] exitFailure
  2821. 1602.50 s [opt-env-conf-test] Nothing -> do
  2822. 1602.50 s [opt-env-conf-test] let docs = parserDocs p
  2823. 1602.50 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:83:12-21
  2824. 1602.50 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  2825. 1602.50 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  2826. 1602.50 s [opt-env-conf-test]
  2827. 1602.50 s [opt-env-conf-test] mDebugMode <-
  2828. 1602.50 s [opt-env-conf-test] - if debugMode
  2829. 1602.50 s [opt-env-conf-test] + if not (debugMode)
  2830. 1602.50 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  2831. 1602.50 s [opt-env-conf-test] else pure Nothing
  2832. 1602.50 s [opt-env-conf-test]
  2833. 1602.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
  2834. 1602.50 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  2835. 1602.50 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  2836. 1602.50 s [opt-env-conf-test]
  2837. 1602.50 s [opt-env-conf-test] mDebugMode <-
  2838. 1602.50 s [opt-env-conf-test] - if debugMode
  2839. 1602.50 s [opt-env-conf-test] + if True
  2840. 1602.50 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  2841. 1602.50 s [opt-env-conf-test] else pure Nothing
  2842. 1602.50 s [opt-env-conf-test]
  2843. 1602.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
  2844. 1602.50 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  2845. 1602.50 s [opt-env-conf-test]
  2846. 1602.50 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  2847. 1602.50 s [opt-env-conf-test]
  2848. 1602.50 s [opt-env-conf-test] - if helpMode
  2849. 1602.50 s [opt-env-conf-test] + if True
  2850. 1602.50 s [opt-env-conf-test] then do
  2851. 1602.50 s [opt-env-conf-test] progname <- getProgName
  2852. 1602.50 s [opt-env-conf-test] errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
  2853. 1602.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:172:11-19
  2854. 1602.50 s [opt-env-conf-test] @@ -169,7 +169,7 @@
  2855. 1602.50 s [opt-env-conf-test] go = \case
  2856. 1602.50 s [opt-env-conf-test] [] -> (False, [])
  2857. 1602.50 s [opt-env-conf-test] (x : xs)
  2858. 1602.50 s [opt-env-conf-test] - | x == arg -> (True, xs)
  2859. 1602.50 s [opt-env-conf-test] + | True -> (True, xs)
  2860. 1602.50 s [opt-env-conf-test] | otherwise ->
  2861. 1602.50 s [opt-env-conf-test] let (found, rest) = go xs
  2862. 1602.50 s [opt-env-conf-test] in (found, x : rest)
  2863. 1602.50 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:170:14-19
  2864. 1602.50 s [opt-env-conf-test] @@ -167,7 +167,7 @@
  2865. 1602.50 s [opt-env-conf-test] consumeExactArg arg = go
  2866. 1602.50 s [opt-env-conf-test] where
  2867. 1602.50 s [opt-env-conf-test] go = \case
  2868. 1602.50 s [opt-env-conf-test] - [] -> (False, [])
  2869. 1602.50 s [opt-env-conf-test] + [] -> (True, [])
  2870. 1602.50 s [opt-env-conf-test] (x : xs)
  2871. 1602.50 s [opt-env-conf-test] | x == arg -> (True, xs)
  2872. 1602.50 s [opt-env-conf-test] | otherwise ->
  2873. 1602.50 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
  2874. 1602.50 s [opt-env-conf-test] @@ -141,7 +141,6 @@
  2875. 1602.50 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  2876. 1602.51 s [opt-env-conf-test] pure (a : as)
  2877. 1602.51 s [opt-env-conf-test] ParserSome mLoc p' -> do
  2878. 1602.51 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  2879. 1602.51 s [opt-env-conf-test] ppIndent $ do
  2880. 1602.51 s [opt-env-conf-test] a <- go p'
  2881. 1602.51 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  2882. 1602.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
  2883. 1602.51 s [opt-env-conf-test] @@ -633,15 +633,10 @@
  2884. 1602.51 s [opt-env-conf-test] e <- ask
  2885. 1602.51 s [opt-env-conf-test] results <- liftIO $ runPP pp s e
  2886. 1602.51 s [opt-env-conf-test] (errOrRes, s') <- ppNonDetList results
  2887. 1602.51 s [opt-env-conf-test] case errOrRes of
  2888. 1602.51 s [opt-env-conf-test] - Failure errs ->
  2889. 1602.51 s [opt-env-conf-test] - if all errorIsForgivable errs
  2890. 1602.51 s [opt-env-conf-test] - then do
  2891. 1602.51 s [opt-env-conf-test] - pure Nothing
  2892. 1602.51 s [opt-env-conf-test] - else ppErrors' errs
  2893. 1602.51 s [opt-env-conf-test] Success a -> do
  2894. 1602.51 s [opt-env-conf-test] put s' -- Only set state if parsing succeeded.
  2895. 1602.51 s [opt-env-conf-test] pure $ Just a
  2896. 1602.51 s [opt-env-conf-test]
  2897. 1602.51 s [opt-env-conf-test] ppNonDet :: NonDetT IO a -> PP a
  2898. 1602.51 s [opt-env-conf-test] ppNonDet = PP . lift . lift . lift
  2899. 1602.51 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
  2900. 1602.51 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  2901. 1602.51 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  2902. 1602.51 s [opt-env-conf-test]
  2903. 1602.51 s [opt-env-conf-test] mDebugMode <-
  2904. 1602.51 s [opt-env-conf-test] - if debugMode
  2905. 1602.51 s [opt-env-conf-test] + if False
  2906. 1602.51 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  2907. 1602.51 s [opt-env-conf-test] else pure Nothing
  2908. 1602.51 s [opt-env-conf-test]
  2909. 1602.51 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:185:15-19
  2910. 1602.51 s [opt-env-conf-test] @@ -182,7 +182,7 @@
  2911. 1602.51 s [opt-env-conf-test] consumeHelpMode as =
  2912. 1602.51 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  2913. 1602.51 s [opt-env-conf-test] in if found
  2914. 1602.51 s [opt-env-conf-test] - then (True, as')
  2915. 1602.51 s [opt-env-conf-test] + then (False, as')
  2916. 1602.51 s [opt-env-conf-test] else consumeExactArg "-h" as'
  2917. 1602.51 s [opt-env-conf-test]
  2918. 1602.51 s [opt-env-conf-test] consumeCheckMode :: [String] -> (Bool, [String])
  2919. 1602.51 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:385:17-40
  2920. 1602.51 s [opt-env-conf-test] @@ -382,7 +382,7 @@
  2921. 1602.51 s [opt-env-conf-test] [ [ headerChunks "Configuration Values",
  2922. 1602.51 s [opt-env-conf-test] renderConfDocs confDocs
  2923. 1602.51 s [opt-env-conf-test] ]
  2924. 1602.51 s [opt-env-conf-test] - | not (nullDocs confDocs)
  2925. 1602.51 s [opt-env-conf-test] + | not (not (nullDocs confDocs))
  2926. 1602.51 s [opt-env-conf-test] ]
  2927. 1602.51 s [opt-env-conf-test] ]
  2928. 1602.51 s [opt-env-conf-test]
  2929. 1602.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  2930. 1602.51 s [opt-env-conf-test] @@ -393,30 +393,29 @@
  2931. 1602.51 s [opt-env-conf-test] case mO' of
  2932. 1602.51 s [opt-env-conf-test] Nothing -> pure Nothing
  2933. 1602.51 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  2934. 1602.51 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  2935. 1602.51 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  2936. 1602.51 s [opt-env-conf-test] Right mV -> case mV of
  2937. 1602.51 s [opt-env-conf-test] Nothing -> do
  2938. 1602.51 s [opt-env-conf-test] debug
  2939. 1602.51 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  2940. 1602.51 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  2941. 1602.51 s [opt-env-conf-test] ]
  2942. 1602.51 s [opt-env-conf-test] pure Nothing
  2943. 1602.51 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  2944. 1602.51 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  2945. 1602.51 s [opt-env-conf-test] Right mA -> case mA of
  2946. 1602.51 s [opt-env-conf-test] Nothing -> do
  2947. 1602.51 s [opt-env-conf-test] debug
  2948. 1602.51 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  2949. 1602.51 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  2950. 1602.52 s [opt-env-conf-test] ]
  2951. 1602.52 s [opt-env-conf-test] pure Nothing
  2952. 1602.52 s [opt-env-conf-test] Just a -> do
  2953. 1602.52 s [opt-env-conf-test] debug
  2954. 1602.52 s [opt-env-conf-test] [ "set based on config value: ",
  2955. 1609.17 s [opt-env-conf-test] chunk $ T.pack $ show v
  2956. 1609.17 s [opt-env-conf-test] ]
  2957. 1609.19 s [opt-env-conf-test] pure $ Just a
  2958. 1609.19 s [opt-env-conf-test] let toRes = \case
  2959. 1609.19 s [opt-env-conf-test] Nothing -> NotFound
  2960. 1609.19 s [opt-env-conf-test] Just a -> Found a
  2961. 1609.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
  2962. 1609.20 s [opt-env-conf-test] @@ -108,7 +108,7 @@
  2963. 1609.20 s [opt-env-conf-test] let readyArgs = Args.parseArgs args'''
  2964. 1609.20 s [opt-env-conf-test]
  2965. 1609.20 s [opt-env-conf-test] let mConfig = Nothing -- We start with no config loaded.
  2966. 1609.20 s [opt-env-conf-test] - if checkMode
  2967. 1609.20 s [opt-env-conf-test] + if True
  2968. 1609.20 s [opt-env-conf-test] then runSettingsCheck capabilities p readyArgs envVars mConfig
  2969. 1609.20 s [opt-env-conf-test] else do
  2970. 1609.20 s [opt-env-conf-test] let p' = internalParser p
  2971. 1609.20 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:126:19-69
  2972. 1609.20 s [opt-env-conf-test] @@ -123,7 +123,6 @@
  2973. 1609.20 s [opt-env-conf-test] case errOrResult of
  2974. 1609.20 s [opt-env-conf-test] Left errs -> do
  2975. 1609.20 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  2976. 1609.20 s [opt-env-conf-test] - hPutChunksLocaleWith tc stderr $ renderErrors errs
  2977. 1609.20 s [opt-env-conf-test] exitFailure
  2978. 1609.20 s [opt-env-conf-test] Right i -> case i of
  2979. 1609.20 s [opt-env-conf-test] ShowVersion -> do
  2980. 1609.20 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:111:14-23
  2981. 1609.20 s [opt-env-conf-test] @@ -108,7 +108,7 @@
  2982. 1609.20 s [opt-env-conf-test] let readyArgs = Args.parseArgs args'''
  2983. 1609.20 s [opt-env-conf-test]
  2984. 1609.20 s [opt-env-conf-test] let mConfig = Nothing -- We start with no config loaded.
  2985. 1609.20 s [opt-env-conf-test] - if checkMode
  2986. 1609.20 s [opt-env-conf-test] + if not (checkMode)
  2987. 1609.20 s [opt-env-conf-test] then runSettingsCheck capabilities p readyArgs envVars mConfig
  2988. 1609.20 s [opt-env-conf-test] else do
  2989. 1609.20 s [opt-env-conf-test] let p' = internalParser p
  2990. 1609.21 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:137:21-98
  2991. 1609.21 s [opt-env-conf-test] @@ -134,7 +134,6 @@
  2992. 1609.21 s [opt-env-conf-test] RenderMan -> do
  2993. 1609.21 s [opt-env-conf-test] progname <- getProgName
  2994. 1609.21 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  2995. 1609.21 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  2996. 1609.21 s [opt-env-conf-test] exitSuccess
  2997. 1609.21 s [opt-env-conf-test] RenderDocumentation -> do
  2998. 1609.21 s [opt-env-conf-test] progname <- getProgName
  2999. 1609.21 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:142:21-96
  3000. 1609.21 s [opt-env-conf-test] @@ -139,7 +139,6 @@
  3001. 1609.21 s [opt-env-conf-test] RenderDocumentation -> do
  3002. 1609.21 s [opt-env-conf-test] progname <- getProgName
  3003. 1609.21 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3004. 1609.21 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3005. 1609.21 s [opt-env-conf-test] exitSuccess
  3006. 1609.21 s [opt-env-conf-test] RenderNixosOptions -> do
  3007. 1609.21 s [opt-env-conf-test] progname <- getProgName
  3008. 1609.21 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
  3009. 1609.21 s [opt-env-conf-test] @@ -108,7 +108,7 @@
  3010. 1609.21 s [opt-env-conf-test] let readyArgs = Args.parseArgs args'''
  3011. 1609.21 s [opt-env-conf-test]
  3012. 1609.21 s [opt-env-conf-test] let mConfig = Nothing -- We start with no config loaded.
  3013. 1609.21 s [opt-env-conf-test] - if checkMode
  3014. 1609.21 s [opt-env-conf-test] + if False
  3015. 1609.21 s [opt-env-conf-test] then runSettingsCheck capabilities p readyArgs envVars mConfig
  3016. 1609.21 s [opt-env-conf-test] else do
  3017. 1609.21 s [opt-env-conf-test] let p' = internalParser p
  3018. 1609.21 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:146:21-97
  3019. 1609.22 s [opt-env-conf-test] @@ -143,7 +143,6 @@
  3020. 1609.22 s [opt-env-conf-test] exitSuccess
  3021. 1609.22 s [opt-env-conf-test] RenderNixosOptions -> do
  3022. 1609.22 s [opt-env-conf-test] progname <- getProgName
  3023. 1609.22 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3024. 1609.22 s [opt-env-conf-test] exitSuccess
  3025. 1609.22 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3026. 1609.22 s [opt-env-conf-test] progname <- getProgName
  3027. 1609.22 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  3028. 1609.22 s [opt-env-conf-test] @@ -97,9 +97,8 @@
  3029. 1609.22 s [opt-env-conf-test] exitFailure
  3030. 1609.22 s [opt-env-conf-test] Right mCommandDoc -> do
  3031. 1609.22 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3032. 1609.22 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  3033. 1609.22 s [opt-env-conf-test] Nothing -> renderHelpPage progname version progDesc docs
  3034. 1609.22 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  3035. 1609.22 s [opt-env-conf-test] exitSuccess
  3036. 1609.22 s [opt-env-conf-test] else do
  3037. 1609.22 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  3038. 1609.22 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:96:15-71
  3039. 1609.22 s [opt-env-conf-test] @@ -93,7 +93,6 @@
  3040. 1609.22 s [opt-env-conf-test] case errOrDocs of
  3041. 1609.22 s [opt-env-conf-test] Left errs -> do
  3042. 1609.22 s [opt-env-conf-test] stderrTc <- getTerminalCapabilitiesFromHandle stderr
  3043. 1609.22 s [opt-env-conf-test] - hPutChunksLocaleWith stderrTc stderr $ renderErrors errs
  3044. 1609.22 s [opt-env-conf-test] exitFailure
  3045. 1609.22 s [opt-env-conf-test] Right mCommandDoc -> do
  3046. 1609.22 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3047. 1609.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
  3048. 1609.22 s [opt-env-conf-test] @@ -181,7 +181,7 @@
  3049. 1609.22 s [opt-env-conf-test] consumeHelpMode :: [String] -> (Bool, [String])
  3050. 1609.22 s [opt-env-conf-test] consumeHelpMode as =
  3051. 1609.22 s [opt-env-conf-test] let (found, as') = consumeExactArg "--help" as
  3052. 1609.22 s [opt-env-conf-test] - in if found
  3053. 1609.22 s [opt-env-conf-test] + in if False
  3054. 1609.22 s [opt-env-conf-test] then (True, as')
  3055. 1609.22 s [opt-env-conf-test] else consumeExactArg "-h" as'
  3056. 1609.22 s [opt-env-conf-test]
  3057. 1609.22 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:89:10-18
  3058. 1609.22 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  3059. 1609.23 s [opt-env-conf-test]
  3060. 1609.23 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  3061. 1609.23 s [opt-env-conf-test]
  3062. 1609.23 s [opt-env-conf-test] - if helpMode
  3063. 1609.23 s [opt-env-conf-test] + if not (helpMode)
  3064. 1609.23 s [opt-env-conf-test] then do
  3065. 1609.23 s [opt-env-conf-test] progname <- getProgName
  3066. 1609.23 s [opt-env-conf-test] errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
  3067. 1609.23 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:100:15-78
  3068. 1609.23 s [opt-env-conf-test] @@ -97,9 +97,6 @@
  3069. 1609.23 s [opt-env-conf-test] exitFailure
  3070. 1609.23 s [opt-env-conf-test] Right mCommandDoc -> do
  3071. 1609.23 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3072. 1609.23 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  3073. 1609.23 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  3074. 1609.23 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  3075. 1609.23 s [opt-env-conf-test] exitSuccess
  3076. 1609.23 s [opt-env-conf-test] else do
  3077. 1609.23 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  3078. 1609.23 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:172:24-28
  3079. 1609.23 s [opt-env-conf-test] @@ -169,7 +169,7 @@
  3080. 1609.23 s [opt-env-conf-test] go = \case
  3081. 1609.23 s [opt-env-conf-test] [] -> (False, [])
  3082. 1609.23 s [opt-env-conf-test] (x : xs)
  3083. 1609.23 s [opt-env-conf-test] - | x == arg -> (True, xs)
  3084. 1609.23 s [opt-env-conf-test] + | x == arg -> (False, xs)
  3085. 1609.23 s [opt-env-conf-test] | otherwise ->
  3086. 1609.23 s [opt-env-conf-test] let (found, rest) = go xs
  3087. 1609.23 s [opt-env-conf-test] in (found, x : rest)
  3088. 1609.23 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
  3089. 1609.23 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  3090. 1609.23 s [opt-env-conf-test]
  3091. 1609.23 s [opt-env-conf-test] let (helpMode, args') = consumeHelpMode args
  3092. 1609.23 s [opt-env-conf-test]
  3093. 1609.23 s [opt-env-conf-test] - if helpMode
  3094. 1609.23 s [opt-env-conf-test] + if False
  3095. 1609.23 s [opt-env-conf-test] then do
  3096. 1609.23 s [opt-env-conf-test] progname <- getProgName
  3097. 1609.23 s [opt-env-conf-test] errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
  3098. 1609.23 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:385:22-39
  3099. 1609.23 s [opt-env-conf-test] @@ -382,7 +382,7 @@
  3100. 1609.23 s [opt-env-conf-test] [ [ headerChunks "Configuration Values",
  3101. 1609.23 s [opt-env-conf-test] renderConfDocs confDocs
  3102. 1609.23 s [opt-env-conf-test] ]
  3103. 1609.23 s [opt-env-conf-test] - | not (nullDocs confDocs)
  3104. 1609.23 s [opt-env-conf-test] + | not (True)
  3105. 1609.23 s [opt-env-conf-test] ]
  3106. 1609.23 s [opt-env-conf-test] ]
  3107. 1609.23 s [opt-env-conf-test]
  3108. 1609.23 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:385:21-40
  3109. 1609.23 s [opt-env-conf-test] @@ -382,7 +382,7 @@
  3110. 1609.23 s [opt-env-conf-test] [ [ headerChunks "Configuration Values",
  3111. 1609.23 s [opt-env-conf-test] renderConfDocs confDocs
  3112. 1609.23 s [opt-env-conf-test] ]
  3113. 1609.23 s [opt-env-conf-test] - | not (nullDocs confDocs)
  3114. 1609.23 s [opt-env-conf-test] + | not True
  3115. 1609.23 s [opt-env-conf-test] ]
  3116. 1609.23 s [opt-env-conf-test] ]
  3117. 1609.23 s [opt-env-conf-test]
  3118. 1609.23 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:64:5-20
  3119. 1609.24 s [opt-env-conf-test] @@ -61,7 +61,7 @@
  3120. 1609.24 s [opt-env-conf-test]
  3121. 1609.24 s [opt-env-conf-test] data SetDoc = SetDoc
  3122. 1609.24 s [opt-env-conf-test] { setDocTryArgument :: !Bool,
  3123. 1609.24 s [opt-env-conf-test] - setDocTrySwitch :: !Bool,
  3124. 1609.24 s [opt-env-conf-test] + True :: !Bool,
  3125. 1609.24 s [opt-env-conf-test] setDocTryOption :: !Bool,
  3126. 1609.24 s [opt-env-conf-test] setDocDasheds :: ![Dashed],
  3127. 1609.24 s [opt-env-conf-test] setDocEnvVars :: !(Maybe (NonEmpty String)),
  3128. 1610.40 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:132:21-88
  3129. 1610.41 s [opt-env-conf-test] @@ -129,7 +129,6 @@
  3130. 1610.41 s [opt-env-conf-test] ShowVersion -> do
  3131. 1610.41 s [opt-env-conf-test] progname <- getProgName
  3132. 1610.41 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3133. 1610.41 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3134. 1610.41 s [opt-env-conf-test] exitSuccess
  3135. 1610.41 s [opt-env-conf-test] RenderMan -> do
  3136. 1610.41 s [opt-env-conf-test] progname <- getProgName
  3137. 1610.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  3138. 1610.41 s [opt-env-conf-test] @@ -81,27 +81,8 @@
  3139. 1610.41 s [opt-env-conf-test] Nothing -> pure result
  3140. 1610.41 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  3141. 1610.41 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  3142. 1610.41 s [opt-env-conf-test] case mTup of
  3143. 1610.41 s [opt-env-conf-test] Nothing -> error "TODO figure out when this list can be empty"
  3144. 1610.41 s [opt-env-conf-test] - Just ((errOrRes, _), nexts) -> case errOrRes of
  3145. 1610.41 s [opt-env-conf-test] - Success a -> pure (Right a)
  3146. 1610.41 s [opt-env-conf-test] - Failure firstErrors ->
  3147. 1610.41 s [opt-env-conf-test] - let goNexts ns = do
  3148. 1610.41 s [opt-env-conf-test] - -- TODO: Consider keeping around all errors?
  3149. 1610.41 s [opt-env-conf-test] - mNext <- runNonDetTLazy ns
  3150. 1610.41 s [opt-env-conf-test] - case mNext of
  3151. 1610.41 s [opt-env-conf-test] - Nothing ->
  3152. 1610.41 s [opt-env-conf-test] - pure $
  3153. 1610.41 s [opt-env-conf-test] - Left $
  3154. 1610.41 s [opt-env-conf-test] - -- Only show source locations in debug mode.
  3155. 1610.41 s [opt-env-conf-test] - let f = case mDebugMode of
  3156. 1610.41 s [opt-env-conf-test] - Nothing -> eraseErrorSrcLocs
  3157. 1610.41 s [opt-env-conf-test] - Just _ -> id
  3158. 1610.42 s [opt-env-conf-test] - in f firstErrors
  3159. 1610.42 s [opt-env-conf-test] - Just ((eOR, _), ns') -> case eOR of
  3160. 1610.42 s [opt-env-conf-test] - Success a -> pure (Right a)
  3161. 1610.42 s [opt-env-conf-test] - Failure _ -> goNexts ns'
  3162. 1610.42 s [opt-env-conf-test] - in goNexts nexts
  3163. 1610.42 s [opt-env-conf-test] where
  3164. 1610.42 s [opt-env-conf-test] go ::
  3165. 1610.42 s [opt-env-conf-test] Parser a ->
  3166. 1610.42 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:160:56-32
  3167. 1610.42 s [opt-env-conf-test] @@ -157,9 +157,8 @@
  3168. 1610.42 s [opt-env-conf-test] progname <- getProgName
  3169. 1610.42 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3170. 1610.42 s [opt-env-conf-test] exitSuccess
  3171. 1610.42 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3172. 1610.42 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  3173. 1610.42 s [opt-env-conf-test] exitSuccess
  3174. 1610.42 s [opt-env-conf-test] ParsedNormally a -> pure a
  3175. 1610.42 s [opt-env-conf-test]
  3176. 1610.42 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  3177. 1610.42 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  3178. 1610.42 s [opt-env-conf-test] @@ -125,42 +125,37 @@
  3179. 1610.42 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  3180. 1610.42 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  3181. 1610.42 s [opt-env-conf-test] exitFailure
  3182. 1610.42 s [opt-env-conf-test] Right i -> case i of
  3183. 1610.42 s [opt-env-conf-test] ShowVersion -> do
  3184. 1610.42 s [opt-env-conf-test] progname <- getProgName
  3185. 1610.42 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3186. 1610.42 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3187. 1610.42 s [opt-env-conf-test] exitSuccess
  3188. 1610.42 s [opt-env-conf-test] - RenderMan -> do
  3189. 1610.42 s [opt-env-conf-test] - progname <- getProgName
  3190. 1610.42 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  3191. 1610.42 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  3192. 1610.42 s [opt-env-conf-test] - exitSuccess
  3193. 1610.42 s [opt-env-conf-test] RenderDocumentation -> do
  3194. 1610.42 s [opt-env-conf-test] progname <- getProgName
  3195. 1610.42 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3196. 1610.42 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3197. 1610.42 s [opt-env-conf-test] exitSuccess
  3198. 1610.42 s [opt-env-conf-test] RenderNixosOptions -> do
  3199. 1610.42 s [opt-env-conf-test] progname <- getProgName
  3200. 1610.43 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3201. 1610.43 s [opt-env-conf-test] exitSuccess
  3202. 1610.43 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3203. 1610.43 s [opt-env-conf-test] progname <- getProgName
  3204. 1610.43 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  3205. 1610.43 s [opt-env-conf-test] exitSuccess
  3206. 1610.43 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3207. 1610.43 s [opt-env-conf-test] progname <- getProgName
  3208. 1610.43 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  3209. 1610.43 s [opt-env-conf-test] exitSuccess
  3210. 1610.43 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3211. 1610.43 s [opt-env-conf-test] progname <- getProgName
  3212. 1610.43 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3213. 1610.43 s [opt-env-conf-test] exitSuccess
  3214. 1611.00 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3215. 1611.00 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  3216. 1611.00 s [opt-env-conf-test] exitSuccess
  3217. 1611.00 s [opt-env-conf-test] ParsedNormally a -> pure a
  3218. 1611.00 s [opt-env-conf-test]
  3219. 1611.00 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  3220. 1611.00 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  3221. 1611.00 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  3222. 1611.00 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  3223. 1611.00 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  3224. 1611.00 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  3225. 1611.00 s [opt-env-conf-test] exitFailure
  3226. 1611.00 s [opt-env-conf-test] Right i -> case i of
  3227. 1611.00 s [opt-env-conf-test] ShowVersion -> do
  3228. 1611.00 s [opt-env-conf-test] progname <- getProgName
  3229. 1611.00 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3230. 1611.00 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3231. 1611.00 s [opt-env-conf-test] exitSuccess
  3232. 1611.01 s [opt-env-conf-test] RenderMan -> do
  3233. 1611.01 s [opt-env-conf-test] progname <- getProgName
  3234. 1611.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3235. 1611.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  3236. 1611.01 s [opt-env-conf-test] exitSuccess
  3237. 1611.01 s [opt-env-conf-test] RenderDocumentation -> do
  3238. 1611.01 s [opt-env-conf-test] progname <- getProgName
  3239. 1611.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3240. 1611.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3241. 1611.01 s [opt-env-conf-test] exitSuccess
  3242. 1611.01 s [opt-env-conf-test] RenderNixosOptions -> do
  3243. 1611.01 s [opt-env-conf-test] progname <- getProgName
  3244. 1611.01 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3245. 1611.01 s [opt-env-conf-test] - exitSuccess
  3246. 1611.01 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  3247. 1611.01 s [opt-env-conf-test] - progname <- getProgName
  3248. 1611.01 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  3249. 1611.01 s [opt-env-conf-test] exitSuccess
  3250. 1611.01 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3251. 1611.01 s [opt-env-conf-test] progname <- getProgName
  3252. 1611.01 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  3253. 1611.01 s [opt-env-conf-test] exitSuccess
  3254. 1611.01 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3255. 1611.01 s [opt-env-conf-test] progname <- getProgName
  3256. 1611.01 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3257. 1611.01 s [opt-env-conf-test] exitSuccess
  3258. 1611.70 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3259. 1611.70 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  3260. 1611.70 s [opt-env-conf-test] exitSuccess
  3261. 1611.70 s [opt-env-conf-test] ParsedNormally a -> pure a
  3262. 1611.70 s [opt-env-conf-test]
  3263. 1611.70 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  3264. 1611.70 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  3265. 1611.70 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  3266. 1611.70 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  3267. 1611.70 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  3268. 1611.70 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  3269. 1611.70 s [opt-env-conf-test] exitFailure
  3270. 1611.70 s [opt-env-conf-test] Right i -> case i of
  3271. 1611.70 s [opt-env-conf-test] ShowVersion -> do
  3272. 1611.71 s [opt-env-conf-test] progname <- getProgName
  3273. 1611.71 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3274. 1611.71 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3275. 1611.71 s [opt-env-conf-test] exitSuccess
  3276. 1611.71 s [opt-env-conf-test] RenderMan -> do
  3277. 1611.71 s [opt-env-conf-test] progname <- getProgName
  3278. 1611.71 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3279. 1611.71 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  3280. 1611.71 s [opt-env-conf-test] exitSuccess
  3281. 1611.71 s [opt-env-conf-test] RenderDocumentation -> do
  3282. 1611.71 s [opt-env-conf-test] progname <- getProgName
  3283. 1611.71 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3284. 1611.71 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3285. 1611.71 s [opt-env-conf-test] - exitSuccess
  3286. 1611.71 s [opt-env-conf-test] - RenderNixosOptions -> do
  3287. 1611.71 s [opt-env-conf-test] - progname <- getProgName
  3288. 1611.71 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3289. 1611.71 s [opt-env-conf-test] exitSuccess
  3290. 1611.71 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3291. 1611.71 s [opt-env-conf-test] progname <- getProgName
  3292. 1611.71 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  3293. 1611.71 s [opt-env-conf-test] exitSuccess
  3294. 1611.71 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3295. 1611.71 s [opt-env-conf-test] progname <- getProgName
  3296. 1611.71 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  3297. 1611.71 s [opt-env-conf-test] exitSuccess
  3298. 1611.71 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3299. 1611.71 s [opt-env-conf-test] progname <- getProgName
  3300. 1611.71 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3301. 1611.71 s [opt-env-conf-test] exitSuccess
  3302. 1612.22 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3303. 1612.22 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  3304. 1612.22 s [opt-env-conf-test] exitSuccess
  3305. 1612.22 s [opt-env-conf-test] ParsedNormally a -> pure a
  3306. 1612.22 s [opt-env-conf-test]
  3307. 1612.22 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  3308. 1612.22 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  3309. 1612.22 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  3310. 1612.22 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  3311. 1612.22 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  3312. 1612.22 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  3313. 1612.22 s [opt-env-conf-test] exitFailure
  3314. 1612.22 s [opt-env-conf-test] Right i -> case i of
  3315. 1612.22 s [opt-env-conf-test] ShowVersion -> do
  3316. 1612.22 s [opt-env-conf-test] progname <- getProgName
  3317. 1612.22 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3318. 1612.22 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3319. 1612.22 s [opt-env-conf-test] exitSuccess
  3320. 1612.22 s [opt-env-conf-test] RenderMan -> do
  3321. 1612.22 s [opt-env-conf-test] progname <- getProgName
  3322. 1612.22 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3323. 1612.22 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  3324. 1612.22 s [opt-env-conf-test] exitSuccess
  3325. 1612.22 s [opt-env-conf-test] RenderDocumentation -> do
  3326. 1612.22 s [opt-env-conf-test] progname <- getProgName
  3327. 1612.23 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3328. 1612.23 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3329. 1612.23 s [opt-env-conf-test] exitSuccess
  3330. 1612.23 s [opt-env-conf-test] RenderNixosOptions -> do
  3331. 1612.23 s [opt-env-conf-test] progname <- getProgName
  3332. 1612.23 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3333. 1612.23 s [opt-env-conf-test] exitSuccess
  3334. 1612.23 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3335. 1612.23 s [opt-env-conf-test] progname <- getProgName
  3336. 1612.23 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  3337. 1612.23 s [opt-env-conf-test] exitSuccess
  3338. 1612.23 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3339. 1612.23 s [opt-env-conf-test] progname <- getProgName
  3340. 1612.23 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  3341. 1612.23 s [opt-env-conf-test] - exitSuccess
  3342. 1612.23 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  3343. 1612.23 s [opt-env-conf-test] - progname <- getProgName
  3344. 1612.23 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  3345. 1612.23 s [opt-env-conf-test] exitSuccess
  3346. 1612.23 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3347. 1612.23 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  3348. 1612.23 s [opt-env-conf-test] exitSuccess
  3349. 1612.23 s [opt-env-conf-test] ParsedNormally a -> pure a
  3350. 1612.23 s [opt-env-conf-test]
  3351. 1612.23 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  3352. 1612.23 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  3353. 1612.23 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  3354. 1612.23 s [opt-env-conf-test] @@ -125,42 +125,37 @@
  3355. 1612.23 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  3356. 1612.23 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  3357. 1612.23 s [opt-env-conf-test] exitFailure
  3358. 1612.23 s [opt-env-conf-test] Right i -> case i of
  3359. 1612.23 s [opt-env-conf-test] ShowVersion -> do
  3360. 1612.23 s [opt-env-conf-test] progname <- getProgName
  3361. 1612.23 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3362. 1612.23 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3363. 1612.23 s [opt-env-conf-test] exitSuccess
  3364. 1612.23 s [opt-env-conf-test] RenderMan -> do
  3365. 1612.23 s [opt-env-conf-test] progname <- getProgName
  3366. 1612.23 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3367. 1612.23 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  3368. 1612.23 s [opt-env-conf-test] exitSuccess
  3369. 1612.23 s [opt-env-conf-test] - RenderDocumentation -> do
  3370. 1612.23 s [opt-env-conf-test] - progname <- getProgName
  3371. 1612.23 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  3372. 1612.23 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3373. 1612.23 s [opt-env-conf-test] - exitSuccess
  3374. 1612.23 s [opt-env-conf-test] RenderNixosOptions -> do
  3375. 1612.23 s [opt-env-conf-test] progname <- getProgName
  3376. 1612.23 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3377. 1612.23 s [opt-env-conf-test] exitSuccess
  3378. 1612.23 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3379. 1612.23 s [opt-env-conf-test] progname <- getProgName
  3380. 1612.23 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  3381. 1612.23 s [opt-env-conf-test] exitSuccess
  3382. 1612.23 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3383. 1612.23 s [opt-env-conf-test] progname <- getProgName
  3384. 1612.23 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  3385. 1612.23 s [opt-env-conf-test] exitSuccess
  3386. 1612.23 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3387. 1612.23 s [opt-env-conf-test] progname <- getProgName
  3388. 1612.23 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3389. 1612.23 s [opt-env-conf-test] exitSuccess
  3390. 1612.26 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3391. 1612.26 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  3392. 1612.26 s [opt-env-conf-test] exitSuccess
  3393. 1612.26 s [opt-env-conf-test] ParsedNormally a -> pure a
  3394. 1612.26 s [opt-env-conf-test]
  3395. 1612.26 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.
  3396. 1612.26 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  3397. 1612.26 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
  3398. 1612.26 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  3399. 1612.26 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3400. 1612.27 s [opt-env-conf-test] exitSuccess
  3401. 1612.27 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3402. 1612.27 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  3403. 1612.27 s [opt-env-conf-test] + runCompletionQuery p' True index ws
  3404. 1612.27 s [opt-env-conf-test] exitSuccess
  3405. 1612.27 s [opt-env-conf-test] ParsedNormally a -> pure a
  3406. 1612.27 s [opt-env-conf-test]
  3407. 1612.27 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:158:21-67
  3408. 1612.27 s [opt-env-conf-test] @@ -155,7 +155,6 @@
  3409. 1612.27 s [opt-env-conf-test] exitSuccess
  3410. 1612.27 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3411. 1612.27 s [opt-env-conf-test] progname <- getProgName
  3412. 1612.27 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  3413. 1612.27 s [opt-env-conf-test] exitSuccess
  3414. 1612.27 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3415. 1612.27 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  3416. 1612.27 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  3417. 1612.27 s [opt-env-conf-test] @@ -125,42 +125,37 @@
  3418. 1612.27 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  3419. 1612.27 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  3420. 1612.27 s [opt-env-conf-test] exitFailure
  3421. 1612.27 s [opt-env-conf-test] Right i -> case i of
  3422. 1612.27 s [opt-env-conf-test] - ShowVersion -> do
  3423. 1612.27 s [opt-env-conf-test] - progname <- getProgName
  3424. 1612.27 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  3425. 1612.27 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3426. 1612.27 s [opt-env-conf-test] - exitSuccess
  3427. 1612.27 s [opt-env-conf-test] RenderMan -> do
  3428. 1612.27 s [opt-env-conf-test] progname <- getProgName
  3429. 1612.27 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3430. 1612.27 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  3431. 1612.27 s [opt-env-conf-test] exitSuccess
  3432. 1612.27 s [opt-env-conf-test] RenderDocumentation -> do
  3433. 1612.28 s [opt-env-conf-test] progname <- getProgName
  3434. 1612.28 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3435. 1612.28 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3436. 1612.28 s [opt-env-conf-test] exitSuccess
  3437. 1612.28 s [opt-env-conf-test] RenderNixosOptions -> do
  3438. 1612.28 s [opt-env-conf-test] progname <- getProgName
  3439. 1612.28 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3440. 1612.28 s [opt-env-conf-test] exitSuccess
  3441. 1612.28 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3442. 1612.28 s [opt-env-conf-test] progname <- getProgName
  3443. 1612.28 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  3444. 1612.28 s [opt-env-conf-test] exitSuccess
  3445. 1612.28 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3446. 1612.28 s [opt-env-conf-test] progname <- getProgName
  3447. 1612.28 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  3448. 1612.28 s [opt-env-conf-test] exitSuccess
  3449. 1612.28 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3450. 1612.28 s [opt-env-conf-test] progname <- getProgName
  3451. 1612.28 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3452. 1612.28 s [opt-env-conf-test] exitSuccess
  3453. 1614.96 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3454. 1614.96 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  3455. 1615.04 s [opt-env-conf-test] exitSuccess
  3456. 1615.04 s [opt-env-conf-test] ParsedNormally a -> pure a
  3457. 1615.04 s [opt-env-conf-test]
  3458. 1615.04 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  3459. 1615.04 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  3460. 1615.04 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:172:11-19
  3461. 1615.04 s [opt-env-conf-test] @@ -169,7 +169,7 @@
  3462. 1615.04 s [opt-env-conf-test] go = \case
  3463. 1615.04 s [opt-env-conf-test] [] -> (False, [])
  3464. 1615.04 s [opt-env-conf-test] (x : xs)
  3465. 1615.04 s [opt-env-conf-test] - | x == arg -> (True, xs)
  3466. 1615.04 s [opt-env-conf-test] + | not (x == arg) -> (True, xs)
  3467. 1615.04 s [opt-env-conf-test] | otherwise ->
  3468. 1615.04 s [opt-env-conf-test] let (found, rest) = go xs
  3469. 1615.04 s [opt-env-conf-test] in (found, x : rest)
  3470. 1615.04 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  3471. 1615.04 s [opt-env-conf-test] @@ -97,9 +97,8 @@
  3472. 1615.04 s [opt-env-conf-test] exitFailure
  3473. 1615.04 s [opt-env-conf-test] Right mCommandDoc -> do
  3474. 1615.04 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3475. 1615.04 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  3476. 1615.05 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  3477. 1615.05 s [opt-env-conf-test] Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  3478. 1615.05 s [opt-env-conf-test] exitSuccess
  3479. 1615.05 s [opt-env-conf-test] else do
  3480. 1615.05 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  3481. 1615.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  3482. 1615.05 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  3483. 1615.05 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  3484. 1615.05 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  3485. 1615.05 s [opt-env-conf-test] exitFailure
  3486. 1615.05 s [opt-env-conf-test] Right i -> case i of
  3487. 1615.05 s [opt-env-conf-test] ShowVersion -> do
  3488. 1615.05 s [opt-env-conf-test] progname <- getProgName
  3489. 1615.05 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3490. 1615.05 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3491. 1615.05 s [opt-env-conf-test] exitSuccess
  3492. 1615.05 s [opt-env-conf-test] RenderMan -> do
  3493. 1615.05 s [opt-env-conf-test] progname <- getProgName
  3494. 1615.05 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3495. 1615.05 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  3496. 1615.05 s [opt-env-conf-test] exitSuccess
  3497. 1615.05 s [opt-env-conf-test] RenderDocumentation -> do
  3498. 1615.05 s [opt-env-conf-test] progname <- getProgName
  3499. 1615.05 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3500. 1615.05 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3501. 1615.05 s [opt-env-conf-test] exitSuccess
  3502. 1615.05 s [opt-env-conf-test] RenderNixosOptions -> do
  3503. 1615.05 s [opt-env-conf-test] progname <- getProgName
  3504. 1615.05 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3505. 1615.05 s [opt-env-conf-test] exitSuccess
  3506. 1615.05 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3507. 1615.05 s [opt-env-conf-test] progname <- getProgName
  3508. 1615.05 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  3509. 1615.05 s [opt-env-conf-test] - exitSuccess
  3510. 1615.05 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  3511. 1615.05 s [opt-env-conf-test] - progname <- getProgName
  3512. 1615.05 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  3513. 1615.05 s [opt-env-conf-test] exitSuccess
  3514. 1615.05 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3515. 1615.05 s [opt-env-conf-test] progname <- getProgName
  3516. 1615.06 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3517. 1615.06 s [opt-env-conf-test] exitSuccess
  3518. 1617.35 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3519. 1617.35 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  3520. 1617.35 s [opt-env-conf-test] exitSuccess
  3521. 1617.35 s [opt-env-conf-test] ParsedNormally a -> pure a
  3522. 1617.35 s [opt-env-conf-test]
  3523. 1617.35 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  3524. 1617.35 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  3525. 1617.35 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
  3526. 1617.35 s [opt-env-conf-test] @@ -304,9 +304,8 @@
  3527. 1617.35 s [opt-env-conf-test] Nothing -> pure Nothing
  3528. 1617.35 s [opt-env-conf-test] Just cs1 -> do
  3529. 1617.35 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  3530. 1617.35 s [opt-env-conf-test] pure $ case p2s of
  3531. 1617.35 s [opt-env-conf-test] Nothing -> Nothing
  3532. 1617.35 s [opt-env-conf-test] - Just cs2 -> pure $ cs1 ++ cs2
  3533. 1617.35 s [opt-env-conf-test]
  3534. 1617.35 s [opt-env-conf-test] -- Nothing means "this branch was not valid"
  3535. 1617.35 s [opt-env-conf-test] -- Just [] means "no completions"
  3536. 1617.35 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:257:25-31
  3537. 1617.35 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  3538. 1617.35 s [opt-env-conf-test] Nothing -> do
  3539. 1617.35 s [opt-env-conf-test] put before
  3540. 1617.35 s [opt-env-conf-test] pure Nothing
  3541. 1617.36 s [opt-env-conf-test] - Just a -> pure (Just a)
  3542. 1617.36 s [opt-env-conf-test] + Just a -> pure (Nothing)
  3543. 1617.36 s [opt-env-conf-test]
  3544. 1617.36 s [opt-env-conf-test] -- Completions for many/some: try the parser repeatedly.
  3545. 1617.36 s [opt-env-conf-test] -- Each iteration either advances the args state (consuming input)
  3546. 1617.36 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
  3547. 1617.36 s [opt-env-conf-test] @@ -304,9 +304,8 @@
  3548. 1617.36 s [opt-env-conf-test] Nothing -> pure Nothing
  3549. 1617.36 s [opt-env-conf-test] Just cs1 -> do
  3550. 1617.36 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  3551. 1617.36 s [opt-env-conf-test] pure $ case p2s of
  3552. 1617.36 s [opt-env-conf-test] - Nothing -> Nothing
  3553. 1617.36 s [opt-env-conf-test] Just cs2 -> pure $ cs1 ++ cs2
  3554. 1617.36 s [opt-env-conf-test]
  3555. 1617.36 s [opt-env-conf-test] -- Nothing means "this branch was not valid"
  3556. 1617.36 s [opt-env-conf-test] -- Just [] means "no completions"
  3557. 1617.36 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  3558. 1617.36 s [opt-env-conf-test] @@ -125,42 +125,39 @@
  3559. 1617.36 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  3560. 1617.36 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  3561. 1617.36 s [opt-env-conf-test] exitFailure
  3562. 1617.36 s [opt-env-conf-test] Right i -> case i of
  3563. 1617.36 s [opt-env-conf-test] ShowVersion -> do
  3564. 1617.36 s [opt-env-conf-test] progname <- getProgName
  3565. 1617.36 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3566. 1617.36 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3567. 1617.36 s [opt-env-conf-test] exitSuccess
  3568. 1617.36 s [opt-env-conf-test] RenderMan -> do
  3569. 1617.36 s [opt-env-conf-test] progname <- getProgName
  3570. 1617.36 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3571. 1617.36 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  3572. 1617.36 s [opt-env-conf-test] exitSuccess
  3573. 1617.36 s [opt-env-conf-test] RenderDocumentation -> do
  3574. 1617.36 s [opt-env-conf-test] progname <- getProgName
  3575. 1617.36 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3576. 1617.36 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3577. 1617.36 s [opt-env-conf-test] exitSuccess
  3578. 1617.36 s [opt-env-conf-test] RenderNixosOptions -> do
  3579. 1617.36 s [opt-env-conf-test] progname <- getProgName
  3580. 1617.36 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3581. 1617.36 s [opt-env-conf-test] exitSuccess
  3582. 1617.36 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3583. 1617.36 s [opt-env-conf-test] progname <- getProgName
  3584. 1617.36 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  3585. 1617.36 s [opt-env-conf-test] exitSuccess
  3586. 1617.36 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3587. 1617.36 s [opt-env-conf-test] progname <- getProgName
  3588. 1617.36 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  3589. 1617.36 s [opt-env-conf-test] exitSuccess
  3590. 1617.36 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3591. 1617.36 s [opt-env-conf-test] progname <- getProgName
  3592. 1617.36 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3593. 1617.36 s [opt-env-conf-test] exitSuccess
  3594. 1617.36 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  3595. 1617.49 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  3596. 1617.49 s [opt-env-conf-test] - exitSuccess
  3597. 1617.49 s [opt-env-conf-test] ParsedNormally a -> pure a
  3598. 1617.49 s [opt-env-conf-test]
  3599. 1617.50 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.
  3600. 1617.50 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  3601. 1617.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
  3602. 1617.50 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  3603. 1617.50 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3604. 1617.50 s [opt-env-conf-test] exitSuccess
  3605. 1617.50 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3606. 1617.50 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  3607. 1617.50 s [opt-env-conf-test] + runCompletionQuery p' False index ws
  3608. 1617.50 s [opt-env-conf-test] exitSuccess
  3609. 1617.50 s [opt-env-conf-test] ParsedNormally a -> pure a
  3610. 1617.50 s [opt-env-conf-test]
  3611. 1617.50 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:254:20-23
  3612. 1617.50 s [opt-env-conf-test] @@ -251,9 +251,8 @@
  3613. 1617.50 s [opt-env-conf-test] before <- get
  3614. 1617.50 s [opt-env-conf-test] mA <- func
  3615. 1617.50 s [opt-env-conf-test] case mA of
  3616. 1617.50 s [opt-env-conf-test] Nothing -> do
  3617. 1617.50 s [opt-env-conf-test] - put before
  3618. 1617.50 s [opt-env-conf-test] pure Nothing
  3619. 1617.50 s [opt-env-conf-test] Just a -> pure (Just a)
  3620. 1617.50 s [opt-env-conf-test]
  3621. 1617.50 s [opt-env-conf-test] -- Completions for many/some: try the parser repeatedly.
  3622. 1617.50 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:154:21-66
  3623. 1617.50 s [opt-env-conf-test] @@ -151,7 +151,6 @@
  3624. 1617.50 s [opt-env-conf-test] exitSuccess
  3625. 1617.50 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3626. 1617.50 s [opt-env-conf-test] progname <- getProgName
  3627. 1617.50 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  3628. 1617.50 s [opt-env-conf-test] exitSuccess
  3629. 1617.50 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3630. 1617.50 s [opt-env-conf-test] progname <- getProgName
  3631. 1617.50 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:161:43-51
  3632. 1617.50 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  3633. 1617.50 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3634. 1617.51 s [opt-env-conf-test] exitSuccess
  3635. 1617.51 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3636. 1617.51 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  3637. 1617.51 s [opt-env-conf-test] + runCompletionQuery p' not (enriched) index ws
  3638. 1617.51 s [opt-env-conf-test] exitSuccess
  3639. 1617.51 s [opt-env-conf-test] ParsedNormally a -> pure a
  3640. 1617.51 s [opt-env-conf-test]
  3641. 1617.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  3642. 1617.51 s [opt-env-conf-test] @@ -125,42 +125,41 @@
  3643. 1617.51 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  3644. 1617.51 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  3645. 1617.51 s [opt-env-conf-test] exitFailure
  3646. 1617.51 s [opt-env-conf-test] Right i -> case i of
  3647. 1617.51 s [opt-env-conf-test] ShowVersion -> do
  3648. 1617.51 s [opt-env-conf-test] progname <- getProgName
  3649. 1617.51 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3650. 1617.51 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  3651. 1617.51 s [opt-env-conf-test] exitSuccess
  3652. 1617.51 s [opt-env-conf-test] RenderMan -> do
  3653. 1617.51 s [opt-env-conf-test] progname <- getProgName
  3654. 1617.51 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3655. 1617.51 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  3656. 1617.51 s [opt-env-conf-test] exitSuccess
  3657. 1617.51 s [opt-env-conf-test] RenderDocumentation -> do
  3658. 1617.51 s [opt-env-conf-test] progname <- getProgName
  3659. 1617.51 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  3660. 1617.51 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  3661. 1617.51 s [opt-env-conf-test] exitSuccess
  3662. 1617.51 s [opt-env-conf-test] RenderNixosOptions -> do
  3663. 1617.51 s [opt-env-conf-test] progname <- getProgName
  3664. 1617.51 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  3665. 1617.51 s [opt-env-conf-test] exitSuccess
  3666. 1617.51 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3667. 1617.51 s [opt-env-conf-test] progname <- getProgName
  3668. 1617.51 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  3669. 1617.51 s [opt-env-conf-test] exitSuccess
  3670. 1617.51 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3671. 1617.51 s [opt-env-conf-test] progname <- getProgName
  3672. 1617.51 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  3673. 1617.51 s [opt-env-conf-test] exitSuccess
  3674. 1617.51 s [opt-env-conf-test] FishCompletionScript progPath -> do
  3675. 1617.51 s [opt-env-conf-test] progname <- getProgName
  3676. 1617.51 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  3677. 1617.51 s [opt-env-conf-test] exitSuccess
  3678. 1617.51 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  3679. 1617.98 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  3680. 1617.99 s [opt-env-conf-test] exitSuccess
  3681. 1617.99 s [opt-env-conf-test] - ParsedNormally a -> pure a
  3682. 1617.99 s [opt-env-conf-test]
  3683. 1617.99 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  3684. 1617.99 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  3685. 1617.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
  3686. 1617.99 s [opt-env-conf-test] @@ -291,11 +291,10 @@
  3687. 1617.99 s [opt-env-conf-test] orCompletions p1 p2 = do
  3688. 1617.99 s [opt-env-conf-test] p1s <- tryOrRestore $ go p1
  3689. 1617.99 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  3690. 1617.99 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  3691. 1617.99 s [opt-env-conf-test] - (Nothing, Nothing) -> Nothing
  3692. 1617.99 s [opt-env-conf-test] (Just cs, Nothing) -> Just cs
  3693. 1617.99 s [opt-env-conf-test] (Nothing, Just cs) -> Just cs
  3694. 1617.99 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  3695. 1617.99 s [opt-env-conf-test]
  3696. 1617.99 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  3697. 1617.99 s [opt-env-conf-test] andCompletions p1 p2 = do
  3698. 1617.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
  3699. 1617.99 s [opt-env-conf-test] @@ -372,62 +372,61 @@
  3700. 1617.99 s [opt-env-conf-test] pure a
  3701. 1617.99 s [opt-env-conf-test] _ -> do
  3702. 1617.99 s [opt-env-conf-test] let mConfDoc = settingConfDoc set
  3703. 1617.99 s [opt-env-conf-test] mConf <- case settingConfigVals of
  3704. 1617.99 s [opt-env-conf-test] - Nothing -> pure NotRun
  3705. 1617.99 s [opt-env-conf-test] Just confSets -> do
  3706. 1617.99 s [opt-env-conf-test] mObj <- asks ppEnvConf
  3707. 1617.99 s [opt-env-conf-test] case mObj of
  3708. 1617.99 s [opt-env-conf-test] Nothing -> do
  3709. 1617.99 s [opt-env-conf-test] debug ["no config object to set from"]
  3710. 1617.99 s [opt-env-conf-test] pure NotFound
  3711. 1617.99 s [opt-env-conf-test] Just obj -> do
  3712. 1617.99 s [opt-env-conf-test] let goConfSet ConfigValSetting {..} = do
  3713. 1617.99 s [opt-env-conf-test] let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
  3714. 1617.99 s [opt-env-conf-test] jsonParser o (k :| rest) = case NE.nonEmpty rest of
  3715. 1617.99 s [opt-env-conf-test] Nothing -> do
  3716. 1617.99 s [opt-env-conf-test] case KeyMap.lookup (Key.fromString k) o of
  3717. 1617.99 s [opt-env-conf-test] Nothing -> pure Nothing
  3718. 1617.99 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  3719. 1618.00 s [opt-env-conf-test] Just neRest -> do
  3720. 1618.00 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  3721. 1618.00 s [opt-env-conf-test] case mO' of
  3722. 1618.00 s [opt-env-conf-test] Nothing -> pure Nothing
  3723. 1618.00 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  3724. 1618.00 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  3725. 1618.00 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  3726. 1618.00 s [opt-env-conf-test] Right mV -> case mV of
  3727. 1618.00 s [opt-env-conf-test] Nothing -> do
  3728. 1618.00 s [opt-env-conf-test] debug
  3729. 1618.00 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  3730. 1618.00 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  3731. 1618.00 s [opt-env-conf-test] ]
  3732. 1618.00 s [opt-env-conf-test] pure Nothing
  3733. 1618.00 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  3734. 1618.00 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  3735. 1618.00 s [opt-env-conf-test] Right mA -> case mA of
  3736. 1618.00 s [opt-env-conf-test] Nothing -> do
  3737. 1618.00 s [opt-env-conf-test] debug
  3738. 1618.00 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  3739. 1618.00 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  3740. 1618.00 s [opt-env-conf-test] ]
  3741. 1618.00 s [opt-env-conf-test] pure Nothing
  3742. 1618.00 s [opt-env-conf-test] Just a -> do
  3743. 1618.00 s [opt-env-conf-test] debug
  3744. 1618.00 s [opt-env-conf-test] [ "set based on config value: ",
  3745. 1618.00 s [opt-env-conf-test] chunk $ T.pack $ show v
  3746. 1618.00 s [opt-env-conf-test] ]
  3747. 1618.00 s [opt-env-conf-test] pure $ Just a
  3748. 1618.00 s [opt-env-conf-test] let toRes = \case
  3749. 1618.00 s [opt-env-conf-test] Nothing -> NotFound
  3750. 1618.00 s [opt-env-conf-test] Just a -> Found a
  3751. 1618.00 s [opt-env-conf-test] let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
  3752. 1618.00 s [opt-env-conf-test] Nothing -> toRes <$> goConfSet confSet
  3753. 1618.00 s [opt-env-conf-test] Just ne -> do
  3754. 1618.00 s [opt-env-conf-test] res <- goConfSet confSet
  3755. 1618.01 s [opt-env-conf-test] case res of
  3756. 1625.48 s [opt-env-conf-test] Just a -> pure $ Found a
  3757. 1625.51 s [opt-env-conf-test] Nothing -> goConfSets ne
  3758. 1625.51 s [opt-env-conf-test] goConfSets confSets
  3759. 1625.51 s [opt-env-conf-test] case mConf of
  3760. 1625.51 s [opt-env-conf-test] Found a -> do
  3761. 1625.51 s [opt-env-conf-test] markParsed
  3762. 1625.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
  3763. 1625.51 s [opt-env-conf-test] @@ -291,11 +291,10 @@
  3764. 1625.51 s [opt-env-conf-test] orCompletions p1 p2 = do
  3765. 1625.51 s [opt-env-conf-test] p1s <- tryOrRestore $ go p1
  3766. 1625.51 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  3767. 1625.51 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  3768. 1625.51 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  3769. 1625.51 s [opt-env-conf-test] (Just cs, Nothing) -> Just cs
  3770. 1625.51 s [opt-env-conf-test] (Nothing, Just cs) -> Just cs
  3771. 1625.51 s [opt-env-conf-test] - (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  3772. 1625.51 s [opt-env-conf-test]
  3773. 1625.51 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  3774. 1625.51 s [opt-env-conf-test] andCompletions p1 p2 = do
  3775. 1625.51 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
  3776. 1625.51 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  3777. 1625.51 s [opt-env-conf-test] Nothing -> pure Nothing
  3778. 1625.52 s [opt-env-conf-test] Just os -> do
  3779. 1625.52 s [opt-env-conf-test] after <- get
  3780. 1625.52 s [opt-env-conf-test] - if after == before
  3781. 1625.52 s [opt-env-conf-test] + if False
  3782. 1625.52 s [opt-env-conf-test] then -- State did not advance; return these completions.
  3783. 1625.52 s [opt-env-conf-test] pure $ Just os
  3784. 1625.52 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  3785. 1625.52 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
  3786. 1625.52 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  3787. 1625.52 s [opt-env-conf-test] Nothing -> pure Nothing
  3788. 1625.52 s [opt-env-conf-test] Just os -> do
  3789. 1625.52 s [opt-env-conf-test] after <- get
  3790. 1625.52 s [opt-env-conf-test] - if after == before
  3791. 1625.52 s [opt-env-conf-test] + if True
  3792. 1625.52 s [opt-env-conf-test] then -- State did not advance; return these completions.
  3793. 1625.52 s [opt-env-conf-test] pure $ Just os
  3794. 1625.52 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  3795. 1625.52 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:281:37-44
  3796. 1625.52 s [opt-env-conf-test] @@ -278,7 +278,7 @@
  3797. 1625.52 s [opt-env-conf-test] do
  3798. 1625.52 s [opt-env-conf-test] mMore <- manyCompletions p
  3799. 1625.52 s [opt-env-conf-test] case mMore of
  3800. 1625.52 s [opt-env-conf-test] - Nothing -> pure $ Just os
  3801. 1625.52 s [opt-env-conf-test] + Nothing -> pure $ Nothing
  3802. 1625.53 s [opt-env-conf-test] Just more
  3803. 1625.53 s [opt-env-conf-test] -- If the next iteration only produced stale
  3804. 1625.53 s [opt-env-conf-test] -- dashed suggestions (state didn't advance
  3805. 1625.53 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:287:23-30
  3806. 1625.53 s [opt-env-conf-test] @@ -284,7 +284,7 @@
  3807. 1625.53 s [opt-env-conf-test] -- dashed suggestions (state didn't advance
  3808. 1625.53 s [opt-env-conf-test] -- further), prefer our completions which came
  3809. 1625.53 s [opt-env-conf-test] -- from the advancing iteration.
  3810. 1625.53 s [opt-env-conf-test] - | null os -> pure $ Just more
  3811. 1625.53 s [opt-env-conf-test] + | True -> pure $ Just more
  3812. 1625.53 s [opt-env-conf-test] | otherwise -> pure $ Just os
  3813. 1625.53 s [opt-env-conf-test]
  3814. 1625.53 s [opt-env-conf-test] orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  3815. 1625.53 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:272:14-29
  3816. 1625.53 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  3817. 1625.53 s [opt-env-conf-test] Nothing -> pure Nothing
  3818. 1625.53 s [opt-env-conf-test] Just os -> do
  3819. 1625.53 s [opt-env-conf-test] after <- get
  3820. 1625.53 s [opt-env-conf-test] - if after == before
  3821. 1625.53 s [opt-env-conf-test] + if not (after == before)
  3822. 1625.53 s [opt-env-conf-test] then -- State did not advance; return these completions.
  3823. 1625.53 s [opt-env-conf-test] pure $ Just os
  3824. 1625.53 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  3825. 1625.53 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:274:22-29
  3826. 1625.53 s [opt-env-conf-test] @@ -271,7 +271,7 @@
  3827. 1625.53 s [opt-env-conf-test] after <- get
  3828. 1625.53 s [opt-env-conf-test] if after == before
  3829. 1625.53 s [opt-env-conf-test] then -- State did not advance; return these completions.
  3830. 1625.53 s [opt-env-conf-test] - pure $ Just os
  3831. 1625.53 s [opt-env-conf-test] + pure $ Nothing
  3832. 1625.53 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  3833. 1625.53 s [opt-env-conf-test] -- next iteration. Its completions supersede ours
  3834. 1625.53 s [opt-env-conf-test] -- only if it also has a valid result.
  3835. 1625.53 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
  3836. 1625.53 s [opt-env-conf-test] @@ -291,11 +291,10 @@
  3837. 1625.53 s [opt-env-conf-test] orCompletions p1 p2 = do
  3838. 1625.53 s [opt-env-conf-test] p1s <- tryOrRestore $ go p1
  3839. 1625.54 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  3840. 1625.54 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  3841. 1625.54 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  3842. 1625.54 s [opt-env-conf-test] - (Just cs, Nothing) -> Just cs
  3843. 1625.54 s [opt-env-conf-test] (Nothing, Just cs) -> Just cs
  3844. 1625.54 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  3845. 1625.54 s [opt-env-conf-test]
  3846. 1625.54 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  3847. 1625.54 s [opt-env-conf-test] andCompletions p1 p2 = do
  3848. 1625.54 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:297:31-38
  3849. 1625.54 s [opt-env-conf-test] @@ -294,7 +294,7 @@
  3850. 1625.54 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  3851. 1625.54 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  3852. 1625.54 s [opt-env-conf-test] (Just cs, Nothing) -> Just cs
  3853. 1625.54 s [opt-env-conf-test] - (Nothing, Just cs) -> Just cs
  3854. 1625.54 s [opt-env-conf-test] + (Nothing, Just cs) -> Nothing
  3855. 1625.54 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  3856. 1625.54 s [opt-env-conf-test]
  3857. 1625.54 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  3858. 1625.54 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:296:31-38
  3859. 1625.54 s [opt-env-conf-test] @@ -293,7 +293,7 @@
  3860. 1625.54 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  3861. 1625.54 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  3862. 1625.54 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  3863. 1625.54 s [opt-env-conf-test] - (Just cs, Nothing) -> Just cs
  3864. 1625.54 s [opt-env-conf-test] + (Just cs, Nothing) -> Nothing
  3865. 1625.54 s [opt-env-conf-test] (Nothing, Just cs) -> Just cs
  3866. 1625.54 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  3867. 1625.54 s [opt-env-conf-test]
  3868. 1625.54 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
  3869. 1625.54 s [opt-env-conf-test] @@ -291,11 +291,10 @@
  3870. 1625.54 s [opt-env-conf-test] orCompletions p1 p2 = do
  3871. 1625.54 s [opt-env-conf-test] p1s <- tryOrRestore $ go p1
  3872. 1625.54 s [opt-env-conf-test] p2s <- tryOrRestore $ go p2
  3873. 1625.55 s [opt-env-conf-test] pure $ case (p1s, p2s) of
  3874. 1625.55 s [opt-env-conf-test] (Nothing, Nothing) -> Nothing
  3875. 1625.55 s [opt-env-conf-test] (Just cs, Nothing) -> Just cs
  3876. 1625.55 s [opt-env-conf-test] - (Nothing, Just cs) -> Just cs
  3877. 1625.55 s [opt-env-conf-test] (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
  3878. 1625.55 s [opt-env-conf-test]
  3879. 1625.55 s [opt-env-conf-test] andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  3880. 1625.55 s [opt-env-conf-test] andCompletions p1 p2 = do
  3881. 1625.55 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Main.hs:150:21-67
  3882. 1625.55 s [opt-env-conf-test] @@ -147,7 +147,6 @@
  3883. 1625.55 s [opt-env-conf-test] exitSuccess
  3884. 1625.55 s [opt-env-conf-test] BashCompletionScript progPath -> do
  3885. 1625.55 s [opt-env-conf-test] progname <- getProgName
  3886. 1625.55 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  3887. 1625.55 s [opt-env-conf-test] exitSuccess
  3888. 1625.55 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  3889. 1625.55 s [opt-env-conf-test] progname <- getProgName
  3890. 1625.55 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
  3891. 1625.55 s [opt-env-conf-test] @@ -357,11 +357,8 @@
  3892. 1625.55 s [opt-env-conf-test] -- name then the remaining args have nowhere to go.
  3893. 1625.55 s [opt-env-conf-test] pure Nothing
  3894. 1625.55 s [opt-env-conf-test] Just arg ->
  3895. 1625.55 s [opt-env-conf-test] case find ((== arg) . commandArg) cs of
  3896. 1625.55 s [opt-env-conf-test] - Just c -> do
  3897. 1625.55 s [opt-env-conf-test] - put rest
  3898. 1625.55 s [opt-env-conf-test] - goCommand c
  3899. 1625.55 s [opt-env-conf-test] Nothing -> pure Nothing
  3900. 1625.55 s [opt-env-conf-test] -- If there is a default command, also try completing within
  3901. 1625.55 s [opt-env-conf-test] -- the default command's parser, since that is what would run
  3902. 1625.55 s [opt-env-conf-test] -- if the user provides no command.
  3903. 1625.55 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:340:20-34
  3904. 1625.55 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  3905. 1625.55 s [opt-env-conf-test] fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
  3906. 1625.55 s [opt-env-conf-test] case mArg of
  3907. 1625.55 s [opt-env-conf-test] Nothing -> do
  3908. 1625.55 s [opt-env-conf-test] - if argsAtEnd rest
  3909. 1625.55 s [opt-env-conf-test] + if not (argsAtEnd rest)
  3910. 1625.56 s [opt-env-conf-test] then do
  3911. 1625.56 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  3912. 1625.56 s [opt-env-conf-test] let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
  3913. 1625.56 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
  3914. 1625.56 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  3915. 1625.56 s [opt-env-conf-test] fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
  3916. 1632.19 s [opt-env-conf-test] case mArg of
  3917. 1632.21 s [opt-env-conf-test] Nothing -> do
  3918. 1632.21 s [opt-env-conf-test] - if argsAtEnd rest
  3919. 1632.21 s [opt-env-conf-test] + if False
  3920. 1632.21 s [opt-env-conf-test] then do
  3921. 1632.21 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  3922. 1632.21 s [opt-env-conf-test] let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
  3923. 1632.21 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
  3924. 1632.22 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  3925. 1632.22 s [opt-env-conf-test] pure Completion {..}
  3926. 1632.22 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  3927. 1632.22 s [opt-env-conf-test] as <- get
  3928. 1632.22 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  3929. 1632.22 s [opt-env-conf-test] + if False then completeWithCompleter else pure $ Just []
  3930. 1632.22 s [opt-env-conf-test] let completeWithDasheds = do
  3931. 1632.22 s [opt-env-conf-test] let isLong = \case
  3932. 1632.22 s [opt-env-conf-test] DashedLong _ -> True
  3933. 1632.22 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:398:70-77
  3934. 1632.22 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  3935. 1632.22 s [opt-env-conf-test] pure Completion {..}
  3936. 1632.22 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  3937. 1632.22 s [opt-env-conf-test] as <- get
  3938. 1632.22 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  3939. 1632.22 s [opt-env-conf-test] + if argsAtEnd as then completeWithCompleter else pure $ Nothing
  3940. 1632.22 s [opt-env-conf-test] let completeWithDasheds = do
  3941. 1632.22 s [opt-env-conf-test] let isLong = \case
  3942. 1632.22 s [opt-env-conf-test] DashedLong _ -> True
  3943. 1632.22 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completion.hs:402:38-43
  3944. 1632.22 s [opt-env-conf-test] @@ -399,7 +399,7 @@
  3945. 1632.22 s [opt-env-conf-test] let completeWithDasheds = do
  3946. 1632.22 s [opt-env-conf-test] let isLong = \case
  3947. 1632.22 s [opt-env-conf-test] DashedLong _ -> True
  3948. 1632.22 s [opt-env-conf-test] - DashedShort _ -> False
  3949. 1632.22 s [opt-env-conf-test] + DashedShort _ -> True
  3950. 1632.22 s [opt-env-conf-test] let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  3951. 1632.22 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  3952. 1632.22 s [opt-env-conf-test] let completions =
  3953. 1632.22 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completion.hs:401:37-41
  3954. 1632.22 s [opt-env-conf-test] @@ -398,7 +398,7 @@
  3955. 1632.22 s [opt-env-conf-test] if argsAtEnd as then completeWithCompleter else pure $ Just []
  3956. 1632.22 s [opt-env-conf-test] let completeWithDasheds = do
  3957. 1632.22 s [opt-env-conf-test] let isLong = \case
  3958. 1632.22 s [opt-env-conf-test] - DashedLong _ -> True
  3959. 1632.23 s [opt-env-conf-test] + DashedLong _ -> False
  3960. 1632.23 s [opt-env-conf-test] DashedShort _ -> False
  3961. 1632.23 s [opt-env-conf-test] let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  3962. 1632.23 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  3963. 1632.23 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
  3964. 1632.23 s [opt-env-conf-test] @@ -400,7 +400,7 @@
  3965. 1632.23 s [opt-env-conf-test] let isLong = \case
  3966. 1632.23 s [opt-env-conf-test] DashedLong _ -> True
  3967. 1632.23 s [opt-env-conf-test] DashedShort _ -> False
  3968. 1632.23 s [opt-env-conf-test] - let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  3969. 1632.23 s [opt-env-conf-test] + let favorableDasheds = if False then filter isLong settingDasheds else settingDasheds
  3970. 1632.23 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  3971. 1632.23 s [opt-env-conf-test] let completions =
  3972. 1632.23 s [opt-env-conf-test] map
  3973. 1632.23 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
  3974. 1632.23 s [opt-env-conf-test] @@ -400,7 +400,7 @@
  3975. 1632.23 s [opt-env-conf-test] let isLong = \case
  3976. 1632.23 s [opt-env-conf-test] DashedLong _ -> True
  3977. 1632.23 s [opt-env-conf-test] DashedShort _ -> False
  3978. 1632.23 s [opt-env-conf-test] - let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  3979. 1632.23 s [opt-env-conf-test] + let favorableDasheds = if True then filter isLong settingDasheds else settingDasheds
  3980. 1632.23 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  3981. 1632.23 s [opt-env-conf-test] let completions =
  3982. 1632.23 s [opt-env-conf-test] map
  3983. 1632.23 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:398:18-30
  3984. 1632.23 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  3985. 1632.23 s [opt-env-conf-test] pure Completion {..}
  3986. 1632.23 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  3987. 1632.23 s [opt-env-conf-test] as <- get
  3988. 1632.23 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  3989. 1632.23 s [opt-env-conf-test] + if not (argsAtEnd as) then completeWithCompleter else pure $ Just []
  3990. 1632.23 s [opt-env-conf-test] let completeWithDasheds = do
  3991. 1632.23 s [opt-env-conf-test] let isLong = \case
  3992. 1632.23 s [opt-env-conf-test] DashedLong _ -> True
  3993. 1632.23 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:403:41-66
  3994. 1632.23 s [opt-env-conf-test] @@ -400,7 +400,7 @@
  3995. 1632.23 s [opt-env-conf-test] let isLong = \case
  3996. 1632.23 s [opt-env-conf-test] DashedLong _ -> True
  3997. 1632.23 s [opt-env-conf-test] DashedShort _ -> False
  3998. 1632.24 s [opt-env-conf-test] - let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
  3999. 1632.24 s [opt-env-conf-test] + let favorableDasheds = if not (any isLong settingDasheds) then filter isLong settingDasheds else settingDasheds
  4000. 1632.24 s [opt-env-conf-test] let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
  4001. 1632.24 s [opt-env-conf-test] let completions =
  4002. 1632.24 s [opt-env-conf-test] map
  4003. 1632.24 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:413:22-38
  4004. 1632.24 s [opt-env-conf-test] @@ -410,7 +410,7 @@
  4005. 1632.24 s [opt-env-conf-test] . SuggestionBare
  4006. 1632.24 s [opt-env-conf-test] )
  4007. 1632.24 s [opt-env-conf-test] suggestions
  4008. 1632.24 s [opt-env-conf-test] - pure $ Just completions
  4009. 1632.24 s [opt-env-conf-test] + pure $ Nothing
  4010. 1632.24 s [opt-env-conf-test] if settingHidden
  4011. 1632.24 s [opt-env-conf-test] then pure $ Just []
  4012. 1632.24 s [opt-env-conf-test] else do
  4013. 1632.24 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
  4014. 1632.24 s [opt-env-conf-test] @@ -411,7 +411,7 @@
  4015. 1632.24 s [opt-env-conf-test] )
  4016. 1632.24 s [opt-env-conf-test] suggestions
  4017. 1632.24 s [opt-env-conf-test] pure $ Just completions
  4018. 1632.24 s [opt-env-conf-test] - if settingHidden
  4019. 1632.24 s [opt-env-conf-test] + if True
  4020. 1632.24 s [opt-env-conf-test] then pure $ Just []
  4021. 1632.24 s [opt-env-conf-test] else do
  4022. 1632.24 s [opt-env-conf-test] as <- get
  4023. 1632.24 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
  4024. 1632.24 s [opt-env-conf-test] @@ -375,7 +375,6 @@
  4025. 1632.24 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  4026. 1632.24 s [opt-env-conf-test] -- combine the explicit command listing with the default
  4027. 1632.24 s [opt-env-conf-test] -- command's completions.
  4028. 1632.24 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  4029. 1632.24 s [opt-env-conf-test] | otherwise -> do
  4030. 1632.24 s [opt-env-conf-test] -- The default command consumed args, so its
  4031. 1632.24 s [opt-env-conf-test] -- completions are valid. But we must restore
  4032. 1632.24 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:388:28-36
  4033. 1632.24 s [opt-env-conf-test] @@ -385,7 +385,7 @@
  4034. 1632.24 s [opt-env-conf-test] -- --archive-dir that the default command
  4035. 1632.24 s [opt-env-conf-test] -- swallowed as a positional argument.
  4036. 1632.24 s [opt-env-conf-test] put as
  4037. 1632.24 s [opt-env-conf-test] - pure $ Just dcs
  4038. 1632.24 s [opt-env-conf-test] + pure $ Nothing
  4039. 1632.24 s [opt-env-conf-test] ParserSetting _ Setting {..} -> do
  4040. 1632.24 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  4041. 1632.24 s [opt-env-conf-test] let completionDescription = settingHelp
  4042. 1632.24 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
  4043. 1632.24 s [opt-env-conf-test] @@ -357,11 +357,10 @@
  4044. 1632.24 s [opt-env-conf-test] -- name then the remaining args have nowhere to go.
  4045. 1638.90 s [opt-env-conf-test] pure Nothing
  4046. 1638.93 s [opt-env-conf-test] Just arg ->
  4047. 1638.93 s [opt-env-conf-test] case find ((== arg) . commandArg) cs of
  4048. 1638.93 s [opt-env-conf-test] Just c -> do
  4049. 1638.93 s [opt-env-conf-test] put rest
  4050. 1638.93 s [opt-env-conf-test] goCommand c
  4051. 1638.93 s [opt-env-conf-test] - Nothing -> pure Nothing
  4052. 1638.93 s [opt-env-conf-test] -- If there is a default command, also try completing within
  4053. 1638.93 s [opt-env-conf-test] -- the default command's parser, since that is what would run
  4054. 1638.93 s [opt-env-conf-test] -- if the user provides no command.
  4055. 1638.93 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:378:19-31
  4056. 1638.93 s [opt-env-conf-test] @@ -375,7 +375,7 @@
  4057. 1638.93 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  4058. 1638.93 s [opt-env-conf-test] -- combine the explicit command listing with the default
  4059. 1638.93 s [opt-env-conf-test] -- command's completions.
  4060. 1638.93 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  4061. 1638.93 s [opt-env-conf-test] + | not (argsAtEnd as) -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  4062. 1638.93 s [opt-env-conf-test] | otherwise -> do
  4063. 1638.93 s [opt-env-conf-test] -- The default command consumed args, so its
  4064. 1638.93 s [opt-env-conf-test] -- completions are valid. But we must restore
  4065. 1638.93 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:414:12-25
  4066. 1638.94 s [opt-env-conf-test] @@ -411,7 +411,7 @@
  4067. 1638.94 s [opt-env-conf-test] )
  4068. 1638.94 s [opt-env-conf-test] suggestions
  4069. 1638.94 s [opt-env-conf-test] pure $ Just completions
  4070. 1638.94 s [opt-env-conf-test] - if settingHidden
  4071. 1638.94 s [opt-env-conf-test] + if not (settingHidden)
  4072. 1638.94 s [opt-env-conf-test] then pure $ Just []
  4073. 1638.94 s [opt-env-conf-test] else do
  4074. 1638.94 s [opt-env-conf-test] as <- get
  4075. 1638.94 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:361:29-32
  4076. 1638.94 s [opt-env-conf-test] @@ -358,9 +358,8 @@
  4077. 1638.94 s [opt-env-conf-test] pure Nothing
  4078. 1638.94 s [opt-env-conf-test] Just arg ->
  4079. 1638.94 s [opt-env-conf-test] case find ((== arg) . commandArg) cs of
  4080. 1638.94 s [opt-env-conf-test] Just c -> do
  4081. 1638.94 s [opt-env-conf-test] - put rest
  4082. 1638.94 s [opt-env-conf-test] goCommand c
  4083. 1638.94 s [opt-env-conf-test] Nothing -> pure Nothing
  4084. 1638.94 s [opt-env-conf-test] -- If there is a default command, also try completing within
  4085. 1638.94 s [opt-env-conf-test] -- the default command's parser, since that is what would run
  4086. 1638.94 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:415:23-30
  4087. 1638.94 s [opt-env-conf-test] @@ -412,7 +412,7 @@
  4088. 1638.94 s [opt-env-conf-test] suggestions
  4089. 1638.94 s [opt-env-conf-test] pure $ Just completions
  4090. 1638.94 s [opt-env-conf-test] if settingHidden
  4091. 1638.94 s [opt-env-conf-test] - then pure $ Just []
  4092. 1638.94 s [opt-env-conf-test] + then pure $ Nothing
  4093. 1638.94 s [opt-env-conf-test] else do
  4094. 1638.94 s [opt-env-conf-test] as <- get
  4095. 1638.94 s [opt-env-conf-test] if settingTryArgument
  4096. 1638.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
  4097. 1638.94 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  4098. 1638.95 s [opt-env-conf-test] fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
  4099. 1638.95 s [opt-env-conf-test] case mArg of
  4100. 1638.95 s [opt-env-conf-test] Nothing -> do
  4101. 1638.95 s [opt-env-conf-test] - if argsAtEnd rest
  4102. 1638.95 s [opt-env-conf-test] + if True
  4103. 1638.95 s [opt-env-conf-test] then do
  4104. 1638.95 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  4105. 1638.95 s [opt-env-conf-test] let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
  4106. 1638.95 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:287:41-50
  4107. 1638.95 s [opt-env-conf-test] @@ -284,7 +284,7 @@
  4108. 1638.95 s [opt-env-conf-test] -- dashed suggestions (state didn't advance
  4109. 1638.95 s [opt-env-conf-test] -- further), prefer our completions which came
  4110. 1638.95 s [opt-env-conf-test] -- from the advancing iteration.
  4111. 1638.95 s [opt-env-conf-test] - | null os -> pure $ Just more
  4112. 1638.95 s [opt-env-conf-test] + | null os -> pure $ Nothing
  4113. 1638.95 s [opt-env-conf-test] | otherwise -> pure $ Just os
  4114. 1638.95 s [opt-env-conf-test]
  4115. 1638.95 s [opt-env-conf-test] orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  4116. 1638.95 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:378:86-94
  4117. 1638.95 s [opt-env-conf-test] @@ -375,7 +375,7 @@
  4118. 1638.95 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  4119. 1638.95 s [opt-env-conf-test] -- combine the explicit command listing with the default
  4120. 1638.95 s [opt-env-conf-test] -- command's completions.
  4121. 1638.95 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  4122. 1638.95 s [opt-env-conf-test] + | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Nothing]
  4123. 1638.95 s [opt-env-conf-test] | otherwise -> do
  4124. 1638.95 s [opt-env-conf-test] -- The default command consumed args, so its
  4125. 1638.95 s [opt-env-conf-test] -- completions are valid. But we must restore
  4126. 1638.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:378:19-31
  4127. 1638.95 s [opt-env-conf-test] @@ -375,7 +375,7 @@
  4128. 1638.95 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  4129. 1638.95 s [opt-env-conf-test] -- combine the explicit command listing with the default
  4130. 1638.95 s [opt-env-conf-test] -- command's completions.
  4131. 1638.95 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  4132. 1638.95 s [opt-env-conf-test] + | True -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  4133. 1638.95 s [opt-env-conf-test] | otherwise -> do
  4134. 1638.95 s [opt-env-conf-test] -- The default command consumed args, so its
  4135. 1638.95 s [opt-env-conf-test] -- completions are valid. But we must restore
  4136. 1638.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
  4137. 1638.96 s [opt-env-conf-test] @@ -415,7 +415,7 @@
  4138. 1638.96 s [opt-env-conf-test] then pure $ Just []
  4139. 1638.96 s [opt-env-conf-test] else do
  4140. 1638.96 s [opt-env-conf-test] as <- get
  4141. 1638.96 s [opt-env-conf-test] - if settingTryArgument
  4142. 1638.96 s [opt-env-conf-test] + if True
  4143. 1638.96 s [opt-env-conf-test] then do
  4144. 1638.96 s [opt-env-conf-test] let possibilities = Args.consumeArgument as
  4145. 1638.96 s [opt-env-conf-test] -- Try all possible consumptions of the argument.
  4146. 1638.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
  4147. 1638.96 s [opt-env-conf-test] @@ -411,7 +411,7 @@
  4148. 1638.96 s [opt-env-conf-test] )
  4149. 1638.96 s [opt-env-conf-test] suggestions
  4150. 1638.96 s [opt-env-conf-test] pure $ Just completions
  4151. 1638.96 s [opt-env-conf-test] - if settingHidden
  4152. 1638.96 s [opt-env-conf-test] + if False
  4153. 1638.96 s [opt-env-conf-test] then pure $ Just []
  4154. 1638.96 s [opt-env-conf-test] else do
  4155. 1638.96 s [opt-env-conf-test] as <- get
  4156. 1638.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
  4157. 1638.96 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  4158. 1638.96 s [opt-env-conf-test] pure Completion {..}
  4159. 1638.96 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  4160. 1638.96 s [opt-env-conf-test] as <- get
  4161. 1638.96 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  4162. 1638.97 s [opt-env-conf-test] + if True then completeWithCompleter else pure $ Just []
  4163. 1638.97 s [opt-env-conf-test] let completeWithDasheds = do
  4164. 1638.97 s [opt-env-conf-test] let isLong = \case
  4165. 1638.97 s [opt-env-conf-test] DashedLong _ -> True
  4166. 1638.97 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:379:32-36
  4167. 1638.97 s [opt-env-conf-test] @@ -376,16 +376,15 @@
  4168. 1638.97 s [opt-env-conf-test] -- combine the explicit command listing with the default
  4169. 1638.97 s [opt-env-conf-test] -- command's completions.
  4170. 1638.97 s [opt-env-conf-test] | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  4171. 1638.97 s [opt-env-conf-test] | otherwise -> do
  4172. 1638.97 s [opt-env-conf-test] -- The default command consumed args, so its
  4173. 1638.97 s [opt-env-conf-test] -- completions are valid. But we must restore
  4174. 1638.97 s [opt-env-conf-test] -- the state: the consumed args may also be
  4175. 1638.97 s [opt-env-conf-test] -- intended for sibling parsers in an
  4176. 1638.97 s [opt-env-conf-test] -- applicative (<*>), e.g. an option like
  4177. 1638.97 s [opt-env-conf-test] -- --archive-dir that the default command
  4178. 1638.97 s [opt-env-conf-test] -- swallowed as a positional argument.
  4179. 1638.97 s [opt-env-conf-test] - put as
  4180. 1638.97 s [opt-env-conf-test] pure $ Just dcs
  4181. 1638.97 s [opt-env-conf-test] ParserSetting _ Setting {..} -> do
  4182. 1638.98 s [opt-env-conf-test] let arg = fromMaybe "" mCursorArg
  4183. 1638.98 s [opt-env-conf-test] let completionDescription = settingHelp
  4184. 1638.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
  4185. 1638.98 s [opt-env-conf-test] @@ -375,7 +375,6 @@
  4186. 1646.14 s [opt-env-conf-test] -- If no args were consumed (we were already at end),
  4187. 1646.16 s [opt-env-conf-test] -- combine the explicit command listing with the default
  4188. 1646.16 s [opt-env-conf-test] -- command's completions.
  4189. 1646.16 s [opt-env-conf-test] - | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
  4190. 1646.16 s [opt-env-conf-test] | otherwise -> do
  4191. 1646.16 s [opt-env-conf-test] -- The default command consumed args, so its
  4192. 1646.16 s [opt-env-conf-test] -- completions are valid. But we must restore
  4193. 1646.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
  4194. 1646.16 s [opt-env-conf-test] @@ -438,7 +438,7 @@
  4195. 1646.16 s [opt-env-conf-test] put as'
  4196. 1646.16 s [opt-env-conf-test] completeWithCompleterAtEnd
  4197. 1646.16 s [opt-env-conf-test] else
  4198. 1646.16 s [opt-env-conf-test] - if isJust settingSwitchValue
  4199. 1646.16 s [opt-env-conf-test] + if True
  4200. 1646.16 s [opt-env-conf-test] then do
  4201. 1646.16 s [opt-env-conf-test] -- Try to parse the switch first, so we don't suggest it if
  4202. 1646.16 s [opt-env-conf-test] -- it's already been parsed.
  4203. 1646.16 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:451:32-39
  4204. 1646.16 s [opt-env-conf-test] @@ -448,7 +448,7 @@
  4205. 1646.17 s [opt-env-conf-test] completeWithDasheds
  4206. 1646.17 s [opt-env-conf-test] Just as' -> do
  4207. 1646.17 s [opt-env-conf-test] put as'
  4208. 1646.17 s [opt-env-conf-test] - pure $ Just []
  4209. 1646.17 s [opt-env-conf-test] + pure $ Nothing
  4210. 1646.17 s [opt-env-conf-test] else do
  4211. 1646.17 s [opt-env-conf-test] if settingTryOption
  4212. 1646.17 s [opt-env-conf-test] then do
  4213. 1646.17 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:441:20-45
  4214. 1646.17 s [opt-env-conf-test] @@ -438,7 +438,7 @@
  4215. 1646.17 s [opt-env-conf-test] put as'
  4216. 1646.17 s [opt-env-conf-test] completeWithCompleterAtEnd
  4217. 1646.17 s [opt-env-conf-test] else
  4218. 1646.17 s [opt-env-conf-test] - if isJust settingSwitchValue
  4219. 1646.17 s [opt-env-conf-test] + if not (isJust settingSwitchValue)
  4220. 1646.17 s [opt-env-conf-test] then do
  4221. 1646.17 s [opt-env-conf-test] -- Try to parse the switch first, so we don't suggest it if
  4222. 1646.17 s [opt-env-conf-test] -- it's already been parsed.
  4223. 1646.17 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:449:35-39
  4224. 1646.17 s [opt-env-conf-test] @@ -446,9 +446,8 @@
  4225. 1646.17 s [opt-env-conf-test] Nothing ->
  4226. 1646.17 s [opt-env-conf-test] -- A switch can be anywhere, doesn't need to be at the end.
  4227. 1646.17 s [opt-env-conf-test] completeWithDasheds
  4228. 1646.17 s [opt-env-conf-test] Just as' -> do
  4229. 1646.17 s [opt-env-conf-test] - put as'
  4230. 1646.17 s [opt-env-conf-test] pure $ Just []
  4231. 1646.17 s [opt-env-conf-test] else do
  4232. 1646.17 s [opt-env-conf-test] if settingTryOption
  4233. 1646.17 s [opt-env-conf-test] then do
  4234. 1646.17 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
  4235. 1646.17 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  4236. 1646.17 s [opt-env-conf-test] put as'
  4237. 1646.17 s [opt-env-conf-test] pure $ Just []
  4238. 1646.17 s [opt-env-conf-test] else do
  4239. 1646.17 s [opt-env-conf-test] - if settingTryOption
  4240. 1646.17 s [opt-env-conf-test] + if True
  4241. 1646.17 s [opt-env-conf-test] then do
  4242. 1646.17 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  4243. 1646.17 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  4244. 1646.17 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
  4245. 1646.17 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  4246. 1646.17 s [opt-env-conf-test] put as'
  4247. 1646.17 s [opt-env-conf-test] pure $ Just []
  4248. 1646.17 s [opt-env-conf-test] else do
  4249. 1646.17 s [opt-env-conf-test] - if settingTryOption
  4250. 1646.18 s [opt-env-conf-test] + if False
  4251. 1646.18 s [opt-env-conf-test] then do
  4252. 1646.18 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  4253. 1646.18 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  4254. 1646.18 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:453:24-40
  4255. 1646.18 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  4256. 1646.18 s [opt-env-conf-test] put as'
  4257. 1646.18 s [opt-env-conf-test] pure $ Just []
  4258. 1646.18 s [opt-env-conf-test] else do
  4259. 1646.18 s [opt-env-conf-test] - if settingTryOption
  4260. 1646.18 s [opt-env-conf-test] + if not (settingTryOption)
  4261. 1646.18 s [opt-env-conf-test] then do
  4262. 1646.18 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  4263. 1646.18 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  4264. 1646.18 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:459:36-43
  4265. 1646.18 s [opt-env-conf-test] @@ -456,7 +456,7 @@
  4266. 1646.18 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  4267. 1646.18 s [opt-env-conf-test] Just (_, as') -> do
  4268. 1646.18 s [opt-env-conf-test] put as'
  4269. 1646.18 s [opt-env-conf-test] - pure $ Just []
  4270. 1646.18 s [opt-env-conf-test] + pure $ Nothing
  4271. 1646.18 s [opt-env-conf-test] Nothing -> do
  4272. 1646.18 s [opt-env-conf-test] if argsAtEnd as
  4273. 1646.18 s [opt-env-conf-test] then completeWithDasheds
  4274. 1646.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
  4275. 1646.18 s [opt-env-conf-test] @@ -458,7 +458,7 @@
  4276. 1646.18 s [opt-env-conf-test] put as'
  4277. 1646.18 s [opt-env-conf-test] pure $ Just []
  4278. 1646.18 s [opt-env-conf-test] Nothing -> do
  4279. 1646.18 s [opt-env-conf-test] - if argsAtEnd as
  4280. 1646.18 s [opt-env-conf-test] + if True
  4281. 1646.18 s [opt-env-conf-test] then completeWithDasheds
  4282. 1646.18 s [opt-env-conf-test] else do
  4283. 1646.18 s [opt-env-conf-test] -- If we're not at the end, we may be between an option's
  4284. 1646.18 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:457:44-43
  4285. 1646.18 s [opt-env-conf-test] @@ -454,9 +454,8 @@
  4286. 1646.18 s [opt-env-conf-test] then do
  4287. 1646.18 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  4288. 1646.18 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  4289. 1646.18 s [opt-env-conf-test] Just (_, as') -> do
  4290. 1646.18 s [opt-env-conf-test] - put as'
  4291. 1646.18 s [opt-env-conf-test] pure $ Just []
  4292. 1646.18 s [opt-env-conf-test] Nothing -> do
  4293. 1646.18 s [opt-env-conf-test] if argsAtEnd as
  4294. 1646.18 s [opt-env-conf-test] then completeWithDasheds
  4295. 1646.18 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
  4296. 1646.18 s [opt-env-conf-test] @@ -458,7 +458,7 @@
  4297. 1646.18 s [opt-env-conf-test] put as'
  4298. 1646.18 s [opt-env-conf-test] pure $ Just []
  4299. 1646.18 s [opt-env-conf-test] Nothing -> do
  4300. 1646.18 s [opt-env-conf-test] - if argsAtEnd as
  4301. 1646.18 s [opt-env-conf-test] + if False
  4302. 1646.18 s [opt-env-conf-test] then completeWithDasheds
  4303. 1646.18 s [opt-env-conf-test] else do
  4304. 1646.18 s [opt-env-conf-test] -- If we're not at the end, we may be between an option's
  4305. 1646.18 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:461:32-44
  4306. 1646.18 s [opt-env-conf-test] @@ -458,7 +458,7 @@
  4307. 1646.18 s [opt-env-conf-test] put as'
  4308. 1646.18 s [opt-env-conf-test] pure $ Just []
  4309. 1646.18 s [opt-env-conf-test] Nothing -> do
  4310. 1646.18 s [opt-env-conf-test] - if argsAtEnd as
  4311. 1646.18 s [opt-env-conf-test] + if not (argsAtEnd as)
  4312. 1646.18 s [opt-env-conf-test] then completeWithDasheds
  4313. 1646.18 s [opt-env-conf-test] else do
  4314. 1646.18 s [opt-env-conf-test] -- If we're not at the end, we may be between an option's
  4315. 1646.19 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:473:53-60
  4316. 1646.19 s [opt-env-conf-test] @@ -470,7 +470,7 @@
  4317. 1646.19 s [opt-env-conf-test] -- the option because consumeOption would try to
  4318. 1646.19 s [opt-env-conf-test] -- consume the option argument too.
  4319. 1646.19 s [opt-env-conf-test] case Args.consumeSwitch settingDasheds as of
  4320. 1646.19 s [opt-env-conf-test] - Nothing -> pure $ Just []
  4321. 1646.19 s [opt-env-conf-test] + Nothing -> pure $ Nothing
  4322. 1646.19 s [opt-env-conf-test] Just as' -> do
  4323. 1646.19 s [opt-env-conf-test] put as'
  4324. 1646.19 s [opt-env-conf-test] completeWithCompleterAtEnd
  4325. 1646.19 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
  4326. 1646.19 s [opt-env-conf-test] @@ -160,7 +160,7 @@
  4327. 1646.19 s [opt-env-conf-test] --
  4328. 1649.07 s [opt-env-conf-test] -- We use 'drop 1' here because we don't care about the progname anymore.
  4329. 1649.07 s [opt-env-conf-test] let index = pred index'
  4330. 1649.07 s [opt-env-conf-test] - let ws = drop 1 ws'
  4331. 1649.07 s [opt-env-conf-test] + let ws = drop 0 ws'
  4332. 1649.07 s [opt-env-conf-test] let arg = fromMaybe "" $ listToMaybe $ drop index ws
  4333. 1649.07 s [opt-env-conf-test] let completions = pureCompletionQuery parser index ws
  4334. 1649.07 s [opt-env-conf-test] evaluatedCompletions <- evalCompletions arg completions
  4335. 1649.07 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:487:32-39
  4336. 1649.07 s [opt-env-conf-test] @@ -484,4 +484,4 @@
  4337. 1649.07 s [opt-env-conf-test] -- this branch, improving completions when one branch
  4338. 1649.07 s [opt-env-conf-test] -- is env/conf-only and the other has args/options.
  4339. 1649.07 s [opt-env-conf-test] -- This would require IO or an environment parameter.
  4340. 1649.07 s [opt-env-conf-test] - pure $ Just []
  4341. 1649.07 s [opt-env-conf-test] + pure $ Nothing
  4342. 1649.07 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
  4343. 1649.07 s [opt-env-conf-test] @@ -438,7 +438,7 @@
  4344. 1649.07 s [opt-env-conf-test] put as'
  4345. 1649.07 s [opt-env-conf-test] completeWithCompleterAtEnd
  4346. 1649.07 s [opt-env-conf-test] else
  4347. 1649.07 s [opt-env-conf-test] - if isJust settingSwitchValue
  4348. 1649.07 s [opt-env-conf-test] + if False
  4349. 1649.07 s [opt-env-conf-test] then do
  4350. 1649.08 s [opt-env-conf-test] -- Try to parse the switch first, so we don't suggest it if
  4351. 1649.08 s [opt-env-conf-test] -- it's already been parsed.
  4352. 1649.08 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:474:47-63
  4353. 1649.08 s [opt-env-conf-test] @@ -471,9 +471,8 @@
  4354. 1649.08 s [opt-env-conf-test] -- consume the option argument too.
  4355. 1649.08 s [opt-env-conf-test] case Args.consumeSwitch settingDasheds as of
  4356. 1649.08 s [opt-env-conf-test] Nothing -> pure $ Just []
  4357. 1649.08 s [opt-env-conf-test] Just as' -> do
  4358. 1649.08 s [opt-env-conf-test] - put as'
  4359. 1649.08 s [opt-env-conf-test] completeWithCompleterAtEnd
  4360. 1649.08 s [opt-env-conf-test] else do
  4361. 1649.08 s [opt-env-conf-test] -- We can't auto-complete settings parsed from env vars
  4362. 1649.08 s [opt-env-conf-test] -- or config values, but this path is still valid.
  4363. 1649.08 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:171:3-100
  4364. 1649.08 s [opt-env-conf-test] @@ -168,22 +168,6 @@
  4365. 1649.08 s [opt-env-conf-test] -- import System.IO
  4366. 1649.08 s [opt-env-conf-test] -- hPutStrLn stderr $ show (enriched, index, ws)
  4367. 1649.08 s [opt-env-conf-test] -- hPutStrLn stderr $ show evaluatedCompletions
  4368. 1649.08 s [opt-env-conf-test] - if enriched
  4369. 1649.08 s [opt-env-conf-test] - then
  4370. 1649.08 s [opt-env-conf-test] - putStr $
  4371. 1649.08 s [opt-env-conf-test] - unlines $
  4372. 1649.08 s [opt-env-conf-test] - map
  4373. 1649.08 s [opt-env-conf-test] - ( \Completion {..} ->
  4374. 1649.08 s [opt-env-conf-test] - let val = completionResultValue completionSuggestion
  4375. 1649.08 s [opt-env-conf-test] - notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  4376. 1649.08 s [opt-env-conf-test] - in case (notFinal, completionDescription) of
  4377. 1649.08 s [opt-env-conf-test] - (False, Nothing) -> val
  4378. 1649.08 s [opt-env-conf-test] - (False, Just d) -> val <> "\t" <> d
  4379. 1649.08 s [opt-env-conf-test] - (True, Nothing) -> val <> "\t\tN"
  4380. 1649.08 s [opt-env-conf-test] - (True, Just d) -> val <> "\t" <> d <> "\tN"
  4381. 1649.08 s [opt-env-conf-test] - )
  4382. 1649.08 s [opt-env-conf-test] - evaluatedCompletions
  4383. 1649.08 s [opt-env-conf-test] - else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  4384. 1649.08 s [opt-env-conf-test] pure ()
  4385. 1649.08 s [opt-env-conf-test]
  4386. 1649.08 s [opt-env-conf-test] -- Because the first arg has already been skipped we get input like this here:
  4387. 1649.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
  4388. 1649.08 s [opt-env-conf-test] @@ -113,27 +113,7 @@
  4389. 1649.08 s [opt-env-conf-test] fishCompletionScript progPath progname =
  4390. 1649.08 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  4391. 1649.09 s [opt-env-conf-test] in unlines
  4392. 1649.09 s [opt-env-conf-test] - [ " function " ++ functionName,
  4393. 1649.09 s [opt-env-conf-test] - " set -l cl (commandline --tokenize --current-process)",
  4394. 1649.09 s [opt-env-conf-test] - " # Hack around fish issue #3934",
  4395. 1649.09 s [opt-env-conf-test] - " set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
  4396. 1649.09 s [opt-env-conf-test] - " set -l cn (count $cn)",
  4397. 1649.09 s [opt-env-conf-test] - " set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
  4398. 1649.09 s [opt-env-conf-test] - " for arg in $cl",
  4399. 1649.09 s [opt-env-conf-test] - " set tmpline $tmpline --completion-word $arg",
  4400. 1649.09 s [opt-env-conf-test] - " end",
  4401. 1649.09 s [opt-env-conf-test] - " for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
  4402. 1649.09 s [opt-env-conf-test] - " set -l val (string split \\t -- $opt)[1]",
  4403. 1649.09 s [opt-env-conf-test] - " if test -d $val",
  4404. 1649.09 s [opt-env-conf-test] - " echo -E \"$val/\"",
  4405. 1649.09 s [opt-env-conf-test] - " else",
  4406. 1649.09 s [opt-env-conf-test] - " echo -E \"$val\"",
  4407. 1649.09 s [opt-env-conf-test] - " end",
  4408. 1649.09 s [opt-env-conf-test] - " end",
  4409. 1649.09 s [opt-env-conf-test] - "end",
  4410. 1649.09 s [opt-env-conf-test] - "",
  4411. 1649.09 s [opt-env-conf-test] - "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
  4412. 1649.09 s [opt-env-conf-test] ]
  4413. 1649.09 s [opt-env-conf-test]
  4414. 1649.09 s [opt-env-conf-test] -- This should be a name that a normal user would never want to define themselves.
  4415. 1649.09 s [opt-env-conf-test] progNameToFunctionName :: String -> String
  4416. 1649.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
  4417. 1649.09 s [opt-env-conf-test] @@ -113,27 +113,26 @@
  4418. 1649.09 s [opt-env-conf-test] fishCompletionScript progPath progname =
  4419. 1649.09 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  4420. 1649.09 s [opt-env-conf-test] in unlines
  4421. 1649.09 s [opt-env-conf-test] - [ " function " ++ functionName,
  4422. 1649.09 s [opt-env-conf-test] " set -l cl (commandline --tokenize --current-process)",
  4423. 1649.09 s [opt-env-conf-test] " # Hack around fish issue #3934",
  4424. 1649.09 s [opt-env-conf-test] " set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
  4425. 1649.09 s [opt-env-conf-test] " set -l cn (count $cn)",
  4426. 1649.09 s [opt-env-conf-test] " set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
  4427. 1649.09 s [opt-env-conf-test] " for arg in $cl",
  4428. 1649.09 s [opt-env-conf-test] " set tmpline $tmpline --completion-word $arg",
  4429. 1649.09 s [opt-env-conf-test] " end",
  4430. 1649.09 s [opt-env-conf-test] " for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
  4431. 1649.09 s [opt-env-conf-test] " set -l val (string split \\t -- $opt)[1]",
  4432. 1649.09 s [opt-env-conf-test] " if test -d $val",
  4433. 1649.09 s [opt-env-conf-test] " echo -E \"$val/\"",
  4434. 1649.09 s [opt-env-conf-test] " else",
  4435. 1649.09 s [opt-env-conf-test] " echo -E \"$val\"",
  4436. 1649.10 s [opt-env-conf-test] " end",
  4437. 1649.10 s [opt-env-conf-test] " end",
  4438. 1649.10 s [opt-env-conf-test] "end",
  4439. 1649.10 s [opt-env-conf-test] "",
  4440. 1649.10 s [opt-env-conf-test] "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
  4441. 1649.10 s [opt-env-conf-test] ]
  4442. 1649.10 s [opt-env-conf-test]
  4443. 1649.10 s [opt-env-conf-test] -- This should be a name that a normal user would never want to define themselves.
  4444. 1649.10 s [opt-env-conf-test] progNameToFunctionName :: String -> String
  4445. 1649.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
  4446. 1649.10 s [opt-env-conf-test] @@ -113,27 +113,26 @@
  4447. 1649.10 s [opt-env-conf-test] fishCompletionScript progPath progname =
  4448. 1649.10 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  4449. 1649.10 s [opt-env-conf-test] in unlines
  4450. 1649.10 s [opt-env-conf-test] [ " function " ++ functionName,
  4451. 1649.10 s [opt-env-conf-test] " set -l cl (commandline --tokenize --current-process)",
  4452. 1649.10 s [opt-env-conf-test] " # Hack around fish issue #3934",
  4453. 1649.10 s [opt-env-conf-test] " set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
  4454. 1649.10 s [opt-env-conf-test] " set -l cn (count $cn)",
  4455. 1649.10 s [opt-env-conf-test] " set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
  4456. 1649.10 s [opt-env-conf-test] " for arg in $cl",
  4457. 1649.10 s [opt-env-conf-test] " set tmpline $tmpline --completion-word $arg",
  4458. 1649.10 s [opt-env-conf-test] " end",
  4459. 1649.10 s [opt-env-conf-test] " for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
  4460. 1649.10 s [opt-env-conf-test] " set -l val (string split \\t -- $opt)[1]",
  4461. 1649.10 s [opt-env-conf-test] " if test -d $val",
  4462. 1649.10 s [opt-env-conf-test] " echo -E \"$val/\"",
  4463. 1649.10 s [opt-env-conf-test] " else",
  4464. 1649.10 s [opt-env-conf-test] " echo -E \"$val\"",
  4465. 1649.10 s [opt-env-conf-test] " end",
  4466. 1649.10 s [opt-env-conf-test] " end",
  4467. 1649.10 s [opt-env-conf-test] "end",
  4468. 1649.10 s [opt-env-conf-test] "",
  4469. 1649.10 s [opt-env-conf-test] - "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
  4470. 1649.10 s [opt-env-conf-test] ]
  4471. 1649.10 s [opt-env-conf-test]
  4472. 1649.10 s [opt-env-conf-test] -- This should be a name that a normal user would never want to define themselves.
  4473. 1649.10 s [opt-env-conf-test] progNameToFunctionName :: String -> String
  4474. 1649.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
  4475. 1649.10 s [opt-env-conf-test] @@ -64,46 +64,7 @@
  4476. 1649.10 s [opt-env-conf-test] zshCompletionScript :: Path Abs File -> String -> String
  4477. 1649.10 s [opt-env-conf-test] zshCompletionScript progPath progname =
  4478. 1649.10 s [opt-env-conf-test] unlines
  4479. 1649.10 s [opt-env-conf-test] - [ "#compdef " ++ progname,
  4480. 1649.10 s [opt-env-conf-test] - "",
  4481. 1649.10 s [opt-env-conf-test] - "local request",
  4482. 1649.10 s [opt-env-conf-test] - "local completions",
  4483. 1649.10 s [opt-env-conf-test] - "local word",
  4484. 1649.10 s [opt-env-conf-test] - "local index=$((CURRENT - 1))",
  4485. 1649.10 s [opt-env-conf-test] - "",
  4486. 1649.10 s [opt-env-conf-test] - "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
  4487. 1649.10 s [opt-env-conf-test] - "for arg in ${words[@]}; do",
  4488. 1649.10 s [opt-env-conf-test] - " request=(${request[@]} --completion-word $arg)",
  4489. 1649.10 s [opt-env-conf-test] - "done",
  4490. 1649.10 s [opt-env-conf-test] - "",
  4491. 1649.10 s [opt-env-conf-test] - "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
  4492. 1649.11 s [opt-env-conf-test] - "",
  4493. 1649.11 s [opt-env-conf-test] - "for word in $completions; do",
  4494. 1649.11 s [opt-env-conf-test] - " local -a parts",
  4495. 1649.11 s [opt-env-conf-test] - "",
  4496. 1649.11 s [opt-env-conf-test] - " # Split the line at a tab if there is one.",
  4497. 1649.11 s [opt-env-conf-test] - " IFS=$'\\t' parts=($( echo $word ))",
  4498. 1649.11 s [opt-env-conf-test] - "",
  4499. 1649.11 s [opt-env-conf-test] - " if [[ -n $parts[2] ]]; then",
  4500. 1649.11 s [opt-env-conf-test] - " if [[ $word[1] == \"-\" ]]; then",
  4501. 1649.11 s [opt-env-conf-test] - " local desc=(\"$parts[1] ($parts[2])\")",
  4502. 1649.11 s [opt-env-conf-test] - " compadd -d desc -- $parts[1]",
  4503. 1649.11 s [opt-env-conf-test] - " elif [[ $parts[3] == 'N' ]]; then",
  4504. 1649.11 s [opt-env-conf-test] - " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  4505. 1649.11 s [opt-env-conf-test] - " compadd -f -l -S '' -d desc -- $parts[1]",
  4506. 1649.11 s [opt-env-conf-test] - " else",
  4507. 1649.11 s [opt-env-conf-test] - " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  4508. 1649.11 s [opt-env-conf-test] - " compadd -f -l -d desc -- $parts[1]",
  4509. 1649.11 s [opt-env-conf-test] - " fi",
  4510. 1649.11 s [opt-env-conf-test] - " else",
  4511. 1649.11 s [opt-env-conf-test] - " if [[ $parts[3] == 'N' ]]; then",
  4512. 1649.11 s [opt-env-conf-test] - " compadd -f -S '' -- $parts[1]",
  4513. 1649.11 s [opt-env-conf-test] - " else",
  4514. 1649.11 s [opt-env-conf-test] - " compadd -f -- $parts[1]",
  4515. 1649.11 s [opt-env-conf-test] - " fi",
  4516. 1649.11 s [opt-env-conf-test] - " fi",
  4517. 1649.11 s [opt-env-conf-test] - "done"
  4518. 1649.11 s [opt-env-conf-test] ]
  4519. 1649.11 s [opt-env-conf-test]
  4520. 1649.11 s [opt-env-conf-test] generateFishCompletionScript :: Path Abs File -> String -> IO ()
  4521. 1652.86 s [opt-env-conf-test] generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
  4522. 1652.86 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
  4523. 1652.94 s [opt-env-conf-test] @@ -64,46 +64,45 @@
  4524. 1652.94 s [opt-env-conf-test] zshCompletionScript :: Path Abs File -> String -> String
  4525. 1652.94 s [opt-env-conf-test] zshCompletionScript progPath progname =
  4526. 1652.94 s [opt-env-conf-test] unlines
  4527. 1652.94 s [opt-env-conf-test] - [ "#compdef " ++ progname,
  4528. 1652.94 s [opt-env-conf-test] "",
  4529. 1652.94 s [opt-env-conf-test] "local request",
  4530. 1652.94 s [opt-env-conf-test] "local completions",
  4531. 1652.94 s [opt-env-conf-test] "local word",
  4532. 1652.94 s [opt-env-conf-test] "local index=$((CURRENT - 1))",
  4533. 1652.94 s [opt-env-conf-test] "",
  4534. 1652.94 s [opt-env-conf-test] "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
  4535. 1652.94 s [opt-env-conf-test] "for arg in ${words[@]}; do",
  4536. 1652.94 s [opt-env-conf-test] " request=(${request[@]} --completion-word $arg)",
  4537. 1652.94 s [opt-env-conf-test] "done",
  4538. 1652.94 s [opt-env-conf-test] "",
  4539. 1652.94 s [opt-env-conf-test] "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
  4540. 1652.94 s [opt-env-conf-test] "",
  4541. 1652.94 s [opt-env-conf-test] "for word in $completions; do",
  4542. 1652.94 s [opt-env-conf-test] " local -a parts",
  4543. 1652.94 s [opt-env-conf-test] "",
  4544. 1652.94 s [opt-env-conf-test] " # Split the line at a tab if there is one.",
  4545. 1652.94 s [opt-env-conf-test] " IFS=$'\\t' parts=($( echo $word ))",
  4546. 1652.94 s [opt-env-conf-test] "",
  4547. 1652.94 s [opt-env-conf-test] " if [[ -n $parts[2] ]]; then",
  4548. 1652.94 s [opt-env-conf-test] " if [[ $word[1] == \"-\" ]]; then",
  4549. 1652.94 s [opt-env-conf-test] " local desc=(\"$parts[1] ($parts[2])\")",
  4550. 1652.94 s [opt-env-conf-test] " compadd -d desc -- $parts[1]",
  4551. 1652.94 s [opt-env-conf-test] " elif [[ $parts[3] == 'N' ]]; then",
  4552. 1652.94 s [opt-env-conf-test] " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  4553. 1652.94 s [opt-env-conf-test] " compadd -f -l -S '' -d desc -- $parts[1]",
  4554. 1652.94 s [opt-env-conf-test] " else",
  4555. 1652.94 s [opt-env-conf-test] " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  4556. 1652.94 s [opt-env-conf-test] " compadd -f -l -d desc -- $parts[1]",
  4557. 1652.94 s [opt-env-conf-test] " fi",
  4558. 1652.94 s [opt-env-conf-test] " else",
  4559. 1652.94 s [opt-env-conf-test] " if [[ $parts[3] == 'N' ]]; then",
  4560. 1652.94 s [opt-env-conf-test] " compadd -f -S '' -- $parts[1]",
  4561. 1652.94 s [opt-env-conf-test] " else",
  4562. 1652.94 s [opt-env-conf-test] " compadd -f -- $parts[1]",
  4563. 1652.95 s [opt-env-conf-test] " fi",
  4564. 1652.95 s [opt-env-conf-test] " fi",
  4565. 1652.95 s [opt-env-conf-test] "done"
  4566. 1652.95 s [opt-env-conf-test] ]
  4567. 1652.95 s [opt-env-conf-test]
  4568. 1652.95 s [opt-env-conf-test] generateFishCompletionScript :: Path Abs File -> String -> IO ()
  4569. 1652.95 s [opt-env-conf-test] generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
  4570. 1652.95 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
  4571. 1652.95 s [opt-env-conf-test] @@ -64,46 +64,45 @@
  4572. 1652.95 s [opt-env-conf-test] zshCompletionScript :: Path Abs File -> String -> String
  4573. 1652.95 s [opt-env-conf-test] zshCompletionScript progPath progname =
  4574. 1652.95 s [opt-env-conf-test] unlines
  4575. 1652.95 s [opt-env-conf-test] [ "#compdef " ++ progname,
  4576. 1652.95 s [opt-env-conf-test] "",
  4577. 1652.95 s [opt-env-conf-test] "local request",
  4578. 1652.95 s [opt-env-conf-test] "local completions",
  4579. 1652.95 s [opt-env-conf-test] "local word",
  4580. 1652.95 s [opt-env-conf-test] "local index=$((CURRENT - 1))",
  4581. 1652.95 s [opt-env-conf-test] "",
  4582. 1652.95 s [opt-env-conf-test] "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
  4583. 1652.95 s [opt-env-conf-test] "for arg in ${words[@]}; do",
  4584. 1652.95 s [opt-env-conf-test] " request=(${request[@]} --completion-word $arg)",
  4585. 1652.95 s [opt-env-conf-test] "done",
  4586. 1652.95 s [opt-env-conf-test] "",
  4587. 1652.95 s [opt-env-conf-test] "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
  4588. 1652.95 s [opt-env-conf-test] "",
  4589. 1652.95 s [opt-env-conf-test] "for word in $completions; do",
  4590. 1652.95 s [opt-env-conf-test] " local -a parts",
  4591. 1652.95 s [opt-env-conf-test] "",
  4592. 1652.95 s [opt-env-conf-test] " # Split the line at a tab if there is one.",
  4593. 1652.95 s [opt-env-conf-test] " IFS=$'\\t' parts=($( echo $word ))",
  4594. 1652.95 s [opt-env-conf-test] "",
  4595. 1652.95 s [opt-env-conf-test] " if [[ -n $parts[2] ]]; then",
  4596. 1652.95 s [opt-env-conf-test] " if [[ $word[1] == \"-\" ]]; then",
  4597. 1652.95 s [opt-env-conf-test] " local desc=(\"$parts[1] ($parts[2])\")",
  4598. 1652.95 s [opt-env-conf-test] " compadd -d desc -- $parts[1]",
  4599. 1652.95 s [opt-env-conf-test] " elif [[ $parts[3] == 'N' ]]; then",
  4600. 1652.95 s [opt-env-conf-test] " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  4601. 1652.95 s [opt-env-conf-test] " compadd -f -l -S '' -d desc -- $parts[1]",
  4602. 1652.95 s [opt-env-conf-test] " else",
  4603. 1652.95 s [opt-env-conf-test] " local desc=($(print -f \"%-019s -- %s\" $parts[1] $parts[2]))",
  4604. 1652.95 s [opt-env-conf-test] " compadd -f -l -d desc -- $parts[1]",
  4605. 1652.95 s [opt-env-conf-test] " fi",
  4606. 1652.95 s [opt-env-conf-test] " else",
  4607. 1652.95 s [opt-env-conf-test] " if [[ $parts[3] == 'N' ]]; then",
  4608. 1652.95 s [opt-env-conf-test] " compadd -f -S '' -- $parts[1]",
  4609. 1652.95 s [opt-env-conf-test] " else",
  4610. 1652.95 s [opt-env-conf-test] " compadd -f -- $parts[1]",
  4611. 1652.95 s [opt-env-conf-test] " fi",
  4612. 1652.95 s [opt-env-conf-test] " fi",
  4613. 1652.95 s [opt-env-conf-test] - "done"
  4614. 1652.95 s [opt-env-conf-test] ]
  4615. 1652.95 s [opt-env-conf-test]
  4616. 1652.95 s [opt-env-conf-test] generateFishCompletionScript :: Path Abs File -> String -> IO ()
  4617. 1652.95 s [opt-env-conf-test] generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
  4618. 1652.95 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
  4619. 1652.95 s [opt-env-conf-test] @@ -40,22 +40,7 @@
  4620. 1652.95 s [opt-env-conf-test] bashCompletionScript progPath progname =
  4621. 1652.95 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  4622. 1652.95 s [opt-env-conf-test] in unlines
  4623. 1652.95 s [opt-env-conf-test] - [ functionName ++ "()",
  4624. 1652.95 s [opt-env-conf-test] - "{",
  4625. 1652.95 s [opt-env-conf-test] - " local CMDLINE",
  4626. 1652.95 s [opt-env-conf-test] - " local IFS=$'\\n'",
  4627. 1652.95 s [opt-env-conf-test] - " CMDLINE=(--query-opt-env-conf-completion)",
  4628. 1652.95 s [opt-env-conf-test] - " CMDLINE+=(--completion-index $COMP_CWORD)",
  4629. 1652.95 s [opt-env-conf-test] - "",
  4630. 1652.95 s [opt-env-conf-test] - " for arg in ${COMP_WORDS[@]}; do",
  4631. 1652.95 s [opt-env-conf-test] - " CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
  4632. 1652.95 s [opt-env-conf-test] - " done",
  4633. 1652.95 s [opt-env-conf-test] - "",
  4634. 1652.95 s [opt-env-conf-test] - " COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
  4635. 1652.95 s [opt-env-conf-test] - "}",
  4636. 1652.95 s [opt-env-conf-test] - "",
  4637. 1652.95 s [opt-env-conf-test] - "complete -o filenames -F " ++ functionName ++ " " ++ progname
  4638. 1652.95 s [opt-env-conf-test] ]
  4639. 1652.95 s [opt-env-conf-test]
  4640. 1652.95 s [opt-env-conf-test] generateZshCompletionScript :: Path Abs File -> String -> IO ()
  4641. 1652.95 s [opt-env-conf-test] generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
  4642. 1652.95 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
  4643. 1652.95 s [opt-env-conf-test] @@ -40,22 +40,21 @@
  4644. 1652.95 s [opt-env-conf-test] bashCompletionScript progPath progname =
  4645. 1652.95 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  4646. 1652.95 s [opt-env-conf-test] in unlines
  4647. 1652.95 s [opt-env-conf-test] - [ functionName ++ "()",
  4648. 1652.95 s [opt-env-conf-test] "{",
  4649. 1652.96 s [opt-env-conf-test] " local CMDLINE",
  4650. 1652.96 s [opt-env-conf-test] " local IFS=$'\\n'",
  4651. 1652.96 s [opt-env-conf-test] " CMDLINE=(--query-opt-env-conf-completion)",
  4652. 1652.96 s [opt-env-conf-test] " CMDLINE+=(--completion-index $COMP_CWORD)",
  4653. 1652.96 s [opt-env-conf-test] "",
  4654. 1652.96 s [opt-env-conf-test] " for arg in ${COMP_WORDS[@]}; do",
  4655. 1652.96 s [opt-env-conf-test] " CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
  4656. 1652.96 s [opt-env-conf-test] " done",
  4657. 1652.96 s [opt-env-conf-test] "",
  4658. 1652.96 s [opt-env-conf-test] " COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
  4659. 1652.96 s [opt-env-conf-test] "}",
  4660. 1652.96 s [opt-env-conf-test] "",
  4661. 1652.96 s [opt-env-conf-test] "complete -o filenames -F " ++ functionName ++ " " ++ progname
  4662. 1652.96 s [opt-env-conf-test] ]
  4663. 1652.96 s [opt-env-conf-test]
  4664. 1652.96 s [opt-env-conf-test] generateZshCompletionScript :: Path Abs File -> String -> IO ()
  4665. 1652.96 s [opt-env-conf-test] generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
  4666. 1652.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
  4667. 1652.96 s [opt-env-conf-test] @@ -40,22 +40,21 @@
  4668. 1652.96 s [opt-env-conf-test] bashCompletionScript progPath progname =
  4669. 1652.96 s [opt-env-conf-test] let functionName = progNameToFunctionName progname
  4670. 1652.96 s [opt-env-conf-test] in unlines
  4671. 1652.96 s [opt-env-conf-test] [ functionName ++ "()",
  4672. 1652.96 s [opt-env-conf-test] "{",
  4673. 1652.96 s [opt-env-conf-test] " local CMDLINE",
  4674. 1652.96 s [opt-env-conf-test] " local IFS=$'\\n'",
  4675. 1652.96 s [opt-env-conf-test] " CMDLINE=(--query-opt-env-conf-completion)",
  4676. 1652.96 s [opt-env-conf-test] " CMDLINE+=(--completion-index $COMP_CWORD)",
  4677. 1652.96 s [opt-env-conf-test] "",
  4678. 1652.96 s [opt-env-conf-test] " for arg in ${COMP_WORDS[@]}; do",
  4679. 1652.96 s [opt-env-conf-test] " CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
  4680. 1652.96 s [opt-env-conf-test] " done",
  4681. 1652.96 s [opt-env-conf-test] "",
  4682. 1652.96 s [opt-env-conf-test] " COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
  4683. 1652.96 s [opt-env-conf-test] "}",
  4684. 1652.96 s [opt-env-conf-test] "",
  4685. 1652.96 s [opt-env-conf-test] - "complete -o filenames -F " ++ functionName ++ " " ++ progname
  4686. 1652.96 s [opt-env-conf-test] ]
  4687. 1652.96 s [opt-env-conf-test]
  4688. 1652.96 s [opt-env-conf-test] generateZshCompletionScript :: Path Abs File -> String -> IO ()
  4689. 1652.96 s [opt-env-conf-test] generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
  4690. 1652.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
  4691. 1652.96 s [opt-env-conf-test] @@ -176,11 +176,10 @@
  4692. 1652.96 s [opt-env-conf-test] ( \Completion {..} ->
  4693. 1652.96 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  4694. 1652.96 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  4695. 1652.96 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  4696. 1652.96 s [opt-env-conf-test] (False, Nothing) -> val
  4697. 1652.96 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  4698. 1652.96 s [opt-env-conf-test] - (True, Nothing) -> val <> "\t\tN"
  4699. 1652.96 s [opt-env-conf-test] (True, Just d) -> val <> "\t" <> d <> "\tN"
  4700. 1652.96 s [opt-env-conf-test] )
  4701. 1652.96 s [opt-env-conf-test] evaluatedCompletions
  4702. 1652.96 s [opt-env-conf-test] else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  4703. 1652.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
  4704. 1652.96 s [opt-env-conf-test] @@ -176,11 +176,10 @@
  4705. 1652.96 s [opt-env-conf-test] ( \Completion {..} ->
  4706. 1652.96 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  4707. 1652.96 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  4708. 1652.96 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  4709. 1652.96 s [opt-env-conf-test] (False, Nothing) -> val
  4710. 1652.96 s [opt-env-conf-test] - (False, Just d) -> val <> "\t" <> d
  4711. 1652.96 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  4712. 1652.96 s [opt-env-conf-test] (True, Just d) -> val <> "\t" <> d <> "\tN"
  4713. 1652.96 s [opt-env-conf-test] )
  4714. 1655.37 s [opt-env-conf-test] evaluatedCompletions
  4715. 1655.37 s [opt-env-conf-test] else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  4716. 1655.37 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
  4717. 1655.38 s [opt-env-conf-test] @@ -1207,7 +1207,7 @@
  4718. 1655.38 s [opt-env-conf-test] ParserMany mLoc p -> ParserMany mLoc <$> go p
  4719. 1655.38 s [opt-env-conf-test] ParserSome mLoc p -> ParserSome mLoc <$> go p
  4720. 1655.38 s [opt-env-conf-test] ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
  4721. 1655.38 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
  4722. 1655.38 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc False caps f <$> go p
  4723. 1655.38 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
  4724. 1655.38 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
  4725. 1655.38 s [opt-env-conf-test] ParserSetting mLoc s -> ParserSetting mLoc <$> func s
  4726. 1655.38 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
  4727. 1655.38 s [opt-env-conf-test] @@ -1207,7 +1207,7 @@
  4728. 1655.38 s [opt-env-conf-test] ParserMany mLoc p -> ParserMany mLoc <$> go p
  4729. 1655.38 s [opt-env-conf-test] ParserSome mLoc p -> ParserSome mLoc <$> go p
  4730. 1655.38 s [opt-env-conf-test] ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
  4731. 1655.38 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
  4732. 1655.38 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc True caps f <$> go p
  4733. 1655.38 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
  4734. 1655.38 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
  4735. 1655.38 s [opt-env-conf-test] ParserSetting mLoc s -> ParserSetting mLoc <$> func s
  4736. 1655.38 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:171:6-14
  4737. 1655.38 s [opt-env-conf-test] @@ -168,7 +168,7 @@
  4738. 1655.38 s [opt-env-conf-test] -- import System.IO
  4739. 1655.38 s [opt-env-conf-test] -- hPutStrLn stderr $ show (enriched, index, ws)
  4740. 1655.38 s [opt-env-conf-test] -- hPutStrLn stderr $ show evaluatedCompletions
  4741. 1655.38 s [opt-env-conf-test] - if enriched
  4742. 1655.38 s [opt-env-conf-test] + if not (enriched)
  4743. 1655.38 s [opt-env-conf-test] then
  4744. 1655.38 s [opt-env-conf-test] putStr $
  4745. 1655.38 s [opt-env-conf-test] unlines $
  4746. 1655.38 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:1210:64-74
  4747. 1655.38 s [opt-env-conf-test] @@ -1207,7 +1207,7 @@
  4748. 1655.38 s [opt-env-conf-test] ParserMany mLoc p -> ParserMany mLoc <$> go p
  4749. 1655.38 s [opt-env-conf-test] ParserSome mLoc p -> ParserSome mLoc <$> go p
  4750. 1655.38 s [opt-env-conf-test] ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
  4751. 1655.39 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
  4752. 1655.39 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc not (forgivable) caps f <$> go p
  4753. 1655.39 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
  4754. 1655.39 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
  4755. 1655.39 s [opt-env-conf-test] ParserSetting mLoc s -> ParserSetting mLoc <$> func s
  4756. 1655.39 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
  4757. 1655.39 s [opt-env-conf-test] @@ -1170,7 +1170,7 @@
  4758. 1655.39 s [opt-env-conf-test] ParserMany _ p -> ParserMany Nothing (go p)
  4759. 1655.39 s [opt-env-conf-test] ParserSome _ p -> ParserSome Nothing (go p)
  4760. 1655.39 s [opt-env-conf-test] ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
  4761. 1655.39 s [opt-env-conf-test] - ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
  4762. 1655.39 s [opt-env-conf-test] + ParserCheck _ forgivable caps f p -> ParserCheck Nothing True caps f (go p)
  4763. 1655.39 s [opt-env-conf-test] ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
  4764. 1655.39 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
  4765. 1655.39 s [opt-env-conf-test] ParserSetting _ s -> ParserSetting Nothing s
  4766. 1655.39 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
  4767. 1655.39 s [opt-env-conf-test] @@ -1170,7 +1170,7 @@
  4768. 1655.39 s [opt-env-conf-test] ParserMany _ p -> ParserMany Nothing (go p)
  4769. 1655.39 s [opt-env-conf-test] ParserSome _ p -> ParserSome Nothing (go p)
  4770. 1655.39 s [opt-env-conf-test] ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
  4771. 1655.39 s [opt-env-conf-test] - ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
  4772. 1655.39 s [opt-env-conf-test] + ParserCheck _ forgivable caps f p -> ParserCheck Nothing False caps f (go p)
  4773. 1655.39 s [opt-env-conf-test] ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
  4774. 1655.39 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
  4775. 1655.39 s [opt-env-conf-test] ParserSetting _ s -> ParserSetting Nothing s
  4776. 1655.39 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
  4777. 1655.39 s [opt-env-conf-test] @@ -175,7 +175,7 @@
  4778. 1655.39 s [opt-env-conf-test] map
  4779. 1655.39 s [opt-env-conf-test] ( \Completion {..} ->
  4780. 1655.39 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  4781. 1655.39 s [opt-env-conf-test] - notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  4782. 1655.39 s [opt-env-conf-test] + notFinal = True
  4783. 1655.39 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  4784. 1655.39 s [opt-env-conf-test] (False, Nothing) -> val
  4785. 1655.39 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  4786. 1655.39 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
  4787. 1655.39 s [opt-env-conf-test] @@ -168,7 +168,7 @@
  4788. 1655.39 s [opt-env-conf-test] -- import System.IO
  4789. 1655.39 s [opt-env-conf-test] -- hPutStrLn stderr $ show (enriched, index, ws)
  4790. 1655.39 s [opt-env-conf-test] -- hPutStrLn stderr $ show evaluatedCompletions
  4791. 1655.39 s [opt-env-conf-test] - if enriched
  4792. 1655.39 s [opt-env-conf-test] + if False
  4793. 1655.39 s [opt-env-conf-test] then
  4794. 1655.39 s [opt-env-conf-test] putStr $
  4795. 1655.39 s [opt-env-conf-test] unlines $
  4796. 1655.39 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:179:27-35
  4797. 1655.39 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  4798. 1655.40 s [opt-env-conf-test] ( \Completion {..} ->
  4799. 1655.40 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  4800. 1655.40 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  4801. 1655.40 s [opt-env-conf-test] - in case (notFinal, completionDescription) of
  4802. 1655.40 s [opt-env-conf-test] + in case (not (notFinal), completionDescription) of
  4803. 1655.40 s [opt-env-conf-test] (False, Nothing) -> val
  4804. 1655.40 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  4805. 1655.40 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  4806. 1655.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
  4807. 1655.40 s [opt-env-conf-test] @@ -176,11 +176,10 @@
  4808. 1655.40 s [opt-env-conf-test] ( \Completion {..} ->
  4809. 1655.40 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  4810. 1655.40 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  4811. 1655.40 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  4812. 1655.40 s [opt-env-conf-test] (False, Nothing) -> val
  4813. 1655.40 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  4814. 1655.40 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  4815. 1655.40 s [opt-env-conf-test] - (True, Just d) -> val <> "\t" <> d <> "\tN"
  4816. 1655.40 s [opt-env-conf-test] )
  4817. 1655.40 s [opt-env-conf-test] evaluatedCompletions
  4818. 1655.40 s [opt-env-conf-test] else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  4819. 1655.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
  4820. 1655.40 s [opt-env-conf-test] @@ -432,11 +432,10 @@
  4821. 1655.40 s [opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
  4822. 1655.40 s [opt-env-conf-test] -- fallback matched. In both cases, offer the
  4823. 1655.40 s [opt-env-conf-test] -- completer if we are at the end.
  4824. 1655.40 s [opt-env-conf-test] case possibilities of
  4825. 1655.40 s [opt-env-conf-test] - [] -> completeWithCompleterAtEnd
  4826. 1655.40 s [opt-env-conf-test] (_, as') : _ -> do
  4827. 1655.40 s [opt-env-conf-test] put as'
  4828. 1655.40 s [opt-env-conf-test] completeWithCompleterAtEnd
  4829. 1655.40 s [opt-env-conf-test] else
  4830. 1655.40 s [opt-env-conf-test] if isJust settingSwitchValue
  4831. 1655.40 s [opt-env-conf-test] then do
  4832. 1655.40 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
  4833. 1655.40 s [opt-env-conf-test] @@ -700,9 +700,8 @@
  4834. 1655.40 s [opt-env-conf-test] [] -> (Nothing, [])
  4835. 1655.40 s [opt-env-conf-test] (b : bs) ->
  4836. 1655.40 s [opt-env-conf-test] let (mDefault, cs) = go bs
  4837. 1655.40 s [opt-env-conf-test] in case b of
  4838. 1655.40 s [opt-env-conf-test] - CommandsBuilderCommand c -> (mDefault, c : cs)
  4839. 1655.40 s [opt-env-conf-test] CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
  4840. 1661.09 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  4841. 1661.12 s [opt-env-conf-test]
  4842. 1661.12 s [opt-env-conf-test] -- | Declare a single command with a name, documentation and parser
  4843. 1661.12 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
  4844. 1661.12 s [opt-env-conf-test] @@ -700,9 +700,8 @@
  4845. 1661.12 s [opt-env-conf-test] [] -> (Nothing, [])
  4846. 1661.12 s [opt-env-conf-test] (b : bs) ->
  4847. 1661.12 s [opt-env-conf-test] let (mDefault, cs) = go bs
  4848. 1661.12 s [opt-env-conf-test] in case b of
  4849. 1661.12 s [opt-env-conf-test] CommandsBuilderCommand c -> (mDefault, c : cs)
  4850. 1661.12 s [opt-env-conf-test] - CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
  4851. 1661.12 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  4852. 1661.12 s [opt-env-conf-test]
  4853. 1661.12 s [opt-env-conf-test] -- | Declare a single command with a name, documentation and parser
  4854. 1661.12 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
  4855. 1661.12 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  4856. 1661.12 s [opt-env-conf-test] ( \Completion {..} ->
  4857. 1661.12 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  4858. 1661.12 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  4859. 1661.12 s [opt-env-conf-test] - in case (notFinal, completionDescription) of
  4860. 1661.12 s [opt-env-conf-test] + in case (False, completionDescription) of
  4861. 1661.12 s [opt-env-conf-test] (False, Nothing) -> val
  4862. 1661.12 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  4863. 1661.12 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  4864. 1661.12 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:426:35-35
  4865. 1661.12 s [opt-env-conf-test] @@ -423,9 +423,8 @@
  4866. 1661.12 s [opt-env-conf-test] -- that over the "don't consume" fallback, because a
  4867. 1661.12 s [opt-env-conf-test] -- consumed value means the user already provided input.
  4868. 1661.12 s [opt-env-conf-test] case filter (isJust . fst) possibilities of
  4869. 1661.12 s [opt-env-conf-test] (_, as') : _ -> do
  4870. 1661.12 s [opt-env-conf-test] - put as'
  4871. 1661.12 s [opt-env-conf-test] pure $ Just []
  4872. 1661.12 s [opt-env-conf-test] [] ->
  4873. 1661.12 s [opt-env-conf-test] -- No possibility consumed a value. This is either
  4874. 1661.12 s [opt-env-conf-test] -- because there are no args at all (the [] case from
  4875. 1661.13 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
  4876. 1661.13 s [opt-env-conf-test] @@ -671,9 +671,8 @@
  4877. 1661.13 s [opt-env-conf-test] checkMapMaybeForgivable func p =
  4878. 1661.13 s [opt-env-conf-test] withFrozenCallStack $
  4879. 1661.13 s [opt-env-conf-test] checkMapEitherForgivable
  4880. 1661.13 s [opt-env-conf-test] ( \a -> case func a of
  4881. 1661.13 s [opt-env-conf-test] - Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
  4882. 1661.13 s [opt-env-conf-test] Just b -> Right b
  4883. 1661.13 s [opt-env-conf-test] )
  4884. 1661.13 s [opt-env-conf-test] p
  4885. 1661.13 s [opt-env-conf-test]
  4886. 1661.13 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
  4887. 1661.13 s [opt-env-conf-test] @@ -432,11 +432,8 @@
  4888. 1661.13 s [opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
  4889. 1661.13 s [opt-env-conf-test] -- fallback matched. In both cases, offer the
  4890. 1661.13 s [opt-env-conf-test] -- completer if we are at the end.
  4891. 1661.13 s [opt-env-conf-test] case possibilities of
  4892. 1661.13 s [opt-env-conf-test] [] -> completeWithCompleterAtEnd
  4893. 1661.13 s [opt-env-conf-test] - (_, as') : _ -> do
  4894. 1661.13 s [opt-env-conf-test] - put as'
  4895. 1661.13 s [opt-env-conf-test] - completeWithCompleterAtEnd
  4896. 1661.13 s [opt-env-conf-test] else
  4897. 1661.13 s [opt-env-conf-test] if isJust settingSwitchValue
  4898. 1661.13 s [opt-env-conf-test] then do
  4899. 1661.13 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
  4900. 1661.13 s [opt-env-conf-test] @@ -660,7 +660,7 @@
  4901. 1661.13 s [opt-env-conf-test] checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
  4902. 1661.13 s [opt-env-conf-test] checkWithRequiredCapability capName = \case
  4903. 1661.13 s [opt-env-conf-test] ParserCheck mLoc' forgivable caps f p ->
  4904. 1661.13 s [opt-env-conf-test] - ParserCheck mLoc' forgivable (Set.insert cap caps) f p
  4905. 1661.13 s [opt-env-conf-test] + ParserCheck mLoc' True (Set.insert cap caps) f p
  4906. 1661.13 s [opt-env-conf-test] p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
  4907. 1661.13 s [opt-env-conf-test] where
  4908. 1661.13 s [opt-env-conf-test] cap = Capability (T.pack capName)
  4909. 1661.13 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:418:16-34
  4910. 1661.13 s [opt-env-conf-test] @@ -415,7 +415,7 @@
  4911. 1661.13 s [opt-env-conf-test] then pure $ Just []
  4912. 1661.13 s [opt-env-conf-test] else do
  4913. 1661.13 s [opt-env-conf-test] as <- get
  4914. 1661.13 s [opt-env-conf-test] - if settingTryArgument
  4915. 1661.13 s [opt-env-conf-test] + if not (settingTryArgument)
  4916. 1661.13 s [opt-env-conf-test] then do
  4917. 1661.14 s [opt-env-conf-test] let possibilities = Args.consumeArgument as
  4918. 1661.14 s [opt-env-conf-test] -- Try all possible consumptions of the argument.
  4919. 1661.14 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completion.hs:437:39-51
  4920. 1661.14 s [opt-env-conf-test] @@ -434,9 +434,8 @@
  4921. 1661.14 s [opt-env-conf-test] -- completer if we are at the end.
  4922. 1661.14 s [opt-env-conf-test] case possibilities of
  4923. 1661.14 s [opt-env-conf-test] [] -> completeWithCompleterAtEnd
  4924. 1661.14 s [opt-env-conf-test] (_, as') : _ -> do
  4925. 1661.14 s [opt-env-conf-test] - put as'
  4926. 1661.14 s [opt-env-conf-test] completeWithCompleterAtEnd
  4927. 1661.14 s [opt-env-conf-test] else
  4928. 1661.14 s [opt-env-conf-test] if isJust settingSwitchValue
  4929. 1661.14 s [opt-env-conf-test] then do
  4930. 1661.14 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
  4931. 1661.14 s [opt-env-conf-test] @@ -660,7 +660,7 @@
  4932. 1661.14 s [opt-env-conf-test] checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
  4933. 1661.14 s [opt-env-conf-test] checkWithRequiredCapability capName = \case
  4934. 1661.14 s [opt-env-conf-test] ParserCheck mLoc' forgivable caps f p ->
  4935. 1661.14 s [opt-env-conf-test] - ParserCheck mLoc' forgivable (Set.insert cap caps) f p
  4936. 1661.14 s [opt-env-conf-test] + ParserCheck mLoc' False (Set.insert cap caps) f p
  4937. 1661.14 s [opt-env-conf-test] p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
  4938. 1661.14 s [opt-env-conf-test] where
  4939. 1661.14 s [opt-env-conf-test] cap = Capability (T.pack capName)
  4940. 1661.14 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:663:23-33
  4941. 1661.14 s [opt-env-conf-test] @@ -660,7 +660,7 @@
  4942. 1661.14 s [opt-env-conf-test] checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
  4943. 1661.14 s [opt-env-conf-test] checkWithRequiredCapability capName = \case
  4944. 1661.14 s [opt-env-conf-test] ParserCheck mLoc' forgivable caps f p ->
  4945. 1661.14 s [opt-env-conf-test] - ParserCheck mLoc' forgivable (Set.insert cap caps) f p
  4946. 1661.14 s [opt-env-conf-test] + ParserCheck mLoc' not (forgivable) (Set.insert cap caps) f p
  4947. 1661.14 s [opt-env-conf-test] p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
  4948. 1661.14 s [opt-env-conf-test] where
  4949. 1661.14 s [opt-env-conf-test] cap = Capability (T.pack capName)
  4950. 1661.15 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:686:41-45
  4951. 1661.15 s [opt-env-conf-test] @@ -683,7 +683,7 @@
  4952. 1661.15 s [opt-env-conf-test]
  4953. 1661.15 s [opt-env-conf-test] -- | Like 'checkMapIO', but allow trying the other side of any alternative if the result is Nothing.
  4954. 1661.15 s [opt-env-conf-test] checkMapIOForgivable :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
  4955. 1661.15 s [opt-env-conf-test] -checkMapIOForgivable = ParserCheck mLoc True Set.empty
  4956. 1661.15 s [opt-env-conf-test] +checkMapIOForgivable = ParserCheck mLoc False Set.empty
  4957. 1661.15 s [opt-env-conf-test] where
  4958. 1661.15 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  4959. 1661.15 s [opt-env-conf-test]
  4960. 1661.15 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:1173:64-74
  4961. 1661.15 s [opt-env-conf-test] @@ -1170,7 +1170,7 @@
  4962. 1661.15 s [opt-env-conf-test] ParserMany _ p -> ParserMany Nothing (go p)
  4963. 1661.15 s [opt-env-conf-test] ParserSome _ p -> ParserSome Nothing (go p)
  4964. 1661.15 s [opt-env-conf-test] ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
  4965. 1661.15 s [opt-env-conf-test] - ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
  4966. 1661.15 s [opt-env-conf-test] + ParserCheck _ forgivable caps f p -> ParserCheck Nothing not (forgivable) caps f (go p)
  4967. 1661.15 s [opt-env-conf-test] ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
  4968. 1661.15 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
  4969. 1661.15 s [opt-env-conf-test] ParserSetting _ s -> ParserSetting Nothing s
  4970. 1661.15 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:705:57-63
  4971. 1661.15 s [opt-env-conf-test] @@ -702,7 +702,7 @@
  4972. 1661.15 s [opt-env-conf-test] let (mDefault, cs) = go bs
  4973. 1661.15 s [opt-env-conf-test] in case b of
  4974. 1661.15 s [opt-env-conf-test] CommandsBuilderCommand c -> (mDefault, c : cs)
  4975. 1661.15 s [opt-env-conf-test] - CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
  4976. 1661.15 s [opt-env-conf-test] + CommandsBuilderDefault d -> (mDefault <|> Nothing, cs)
  4977. 1661.15 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  4978. 1661.15 s [opt-env-conf-test]
  4979. 1661.16 s [opt-env-conf-test] -- | Declare a single command with a name, documentation and parser
  4980. 1661.16 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
  4981. 1661.16 s [opt-env-conf-test] @@ -175,7 +175,7 @@
  4982. 1661.16 s [opt-env-conf-test] map
  4983. 1661.16 s [opt-env-conf-test] ( \Completion {..} ->
  4984. 1661.16 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  4985. 1668.35 s [opt-env-conf-test] - notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  4986. 1668.38 s [opt-env-conf-test] + notFinal = False
  4987. 1668.38 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  4988. 1668.38 s [opt-env-conf-test] (False, Nothing) -> val
  4989. 1668.38 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  4990. 1668.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
  4991. 1668.38 s [opt-env-conf-test] @@ -1016,13 +1016,12 @@
  4992. 1668.38 s [opt-env-conf-test] withFrozenCallStack $
  4993. 1668.38 s [opt-env-conf-test] choice $
  4994. 1668.38 s [opt-env-conf-test] catMaybes
  4995. 1668.38 s [opt-env-conf-test] - [ bareOption,
  4996. 1668.38 s [opt-env-conf-test] fileOption,
  4997. 1668.38 s [opt-env-conf-test] bareEnv,
  4998. 1668.38 s [opt-env-conf-test] fileEnv,
  4999. 1668.38 s [opt-env-conf-test] bareConf,
  5000. 1668.38 s [opt-env-conf-test] fileConf
  5001. 1668.38 s [opt-env-conf-test] ]
  5002. 1668.38 s [opt-env-conf-test] where
  5003. 1668.38 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5004. 1668.38 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  5005. 1668.38 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
  5006. 1668.38 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  5007. 1668.38 s [opt-env-conf-test] ( \Completion {..} ->
  5008. 1668.38 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  5009. 1668.38 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  5010. 1668.38 s [opt-env-conf-test] - in case (notFinal, completionDescription) of
  5011. 1668.38 s [opt-env-conf-test] + in case (True, completionDescription) of
  5012. 1668.38 s [opt-env-conf-test] (False, Nothing) -> val
  5013. 1668.38 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  5014. 1668.38 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  5015. 1668.38 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
  5016. 1668.38 s [opt-env-conf-test] @@ -1016,13 +1016,12 @@
  5017. 1668.38 s [opt-env-conf-test] withFrozenCallStack $
  5018. 1668.38 s [opt-env-conf-test] choice $
  5019. 1668.38 s [opt-env-conf-test] catMaybes
  5020. 1668.38 s [opt-env-conf-test] [ bareOption,
  5021. 1668.38 s [opt-env-conf-test] fileOption,
  5022. 1668.38 s [opt-env-conf-test] bareEnv,
  5023. 1668.38 s [opt-env-conf-test] fileEnv,
  5024. 1668.38 s [opt-env-conf-test] bareConf,
  5025. 1668.38 s [opt-env-conf-test] - fileConf
  5026. 1668.38 s [opt-env-conf-test] ]
  5027. 1668.38 s [opt-env-conf-test] where
  5028. 1668.38 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5029. 1668.38 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  5030. 1668.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
  5031. 1668.39 s [opt-env-conf-test] @@ -176,11 +176,10 @@
  5032. 1668.39 s [opt-env-conf-test] ( \Completion {..} ->
  5033. 1668.39 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  5034. 1668.39 s [opt-env-conf-test] notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  5035. 1668.39 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  5036. 1668.39 s [opt-env-conf-test] - (False, Nothing) -> val
  5037. 1668.39 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  5038. 1668.39 s [opt-env-conf-test] (True, Nothing) -> val <> "\t\tN"
  5039. 1668.39 s [opt-env-conf-test] (True, Just d) -> val <> "\t" <> d <> "\tN"
  5040. 1668.39 s [opt-env-conf-test] )
  5041. 1668.39 s [opt-env-conf-test] evaluatedCompletions
  5042. 1668.39 s [opt-env-conf-test] else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
  5043. 1668.39 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
  5044. 1668.39 s [opt-env-conf-test] @@ -1027,7 +1027,6 @@
  5045. 1668.39 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5046. 1668.39 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  5047. 1668.39 s [opt-env-conf-test] bareSetting p f = do
  5048. 1668.39 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
  5049. 1668.39 s [opt-env-conf-test] guard $ p s
  5050. 1668.39 s [opt-env-conf-test] pure $
  5051. 1668.39 s [opt-env-conf-test] -- Require the capability for the entire setting because the secret may be
  5052. 1668.39 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
  5053. 1668.39 s [opt-env-conf-test] @@ -1027,7 +1027,6 @@
  5054. 1668.39 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5055. 1668.39 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  5056. 1668.39 s [opt-env-conf-test] bareSetting p f = do
  5057. 1668.39 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
  5058. 1668.39 s [opt-env-conf-test] guard $ p s
  5059. 1668.39 s [opt-env-conf-test] pure $
  5060. 1668.39 s [opt-env-conf-test] -- Require the capability for the entire setting because the secret may be
  5061. 1668.39 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
  5062. 1668.39 s [opt-env-conf-test] @@ -1027,7 +1027,6 @@
  5063. 1668.39 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5064. 1668.39 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  5065. 1668.39 s [opt-env-conf-test] bareSetting p f = do
  5066. 1668.39 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
  5067. 1668.39 s [opt-env-conf-test] guard $ p s
  5068. 1668.39 s [opt-env-conf-test] pure $
  5069. 1668.39 s [opt-env-conf-test] -- Require the capability for the entire setting because the secret may be
  5070. 1668.39 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
  5071. 1668.39 s [opt-env-conf-test] @@ -168,7 +168,7 @@
  5072. 1668.39 s [opt-env-conf-test] -- import System.IO
  5073. 1668.39 s [opt-env-conf-test] -- hPutStrLn stderr $ show (enriched, index, ws)
  5074. 1668.39 s [opt-env-conf-test] -- hPutStrLn stderr $ show evaluatedCompletions
  5075. 1668.39 s [opt-env-conf-test] - if enriched
  5076. 1668.39 s [opt-env-conf-test] + if True
  5077. 1668.39 s [opt-env-conf-test] then
  5078. 1668.39 s [opt-env-conf-test] putStr $
  5079. 1668.39 s [opt-env-conf-test] unlines $
  5080. 1668.39 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1055:12-18
  5081. 1668.39 s [opt-env-conf-test] @@ -1052,7 +1052,7 @@
  5082. 1668.39 s [opt-env-conf-test] BuildAddEnv _ -> Nothing
  5083. 1668.39 s [opt-env-conf-test] BuildAddConf _ -> Nothing
  5084. 1668.39 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  5085. 1668.39 s [opt-env-conf-test] - i -> Just i
  5086. 1668.39 s [opt-env-conf-test] + i -> Nothing
  5087. 1668.39 s [opt-env-conf-test] fileOption = fileSetting settingTryOption $ \case
  5088. 1668.39 s [opt-env-conf-test] BuildTryArgument -> Nothing
  5089. 1668.39 s [opt-env-conf-test] BuildAddShort _ -> Nothing
  5090. 1668.39 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1072:12-18
  5091. 1668.39 s [opt-env-conf-test] @@ -1069,7 +1069,7 @@
  5092. 1668.39 s [opt-env-conf-test] BuildAddEnv v -> Just $ BuildAddEnv v
  5093. 1668.39 s [opt-env-conf-test] BuildAddConf _ -> Nothing
  5094. 1668.39 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  5095. 1668.39 s [opt-env-conf-test] - i -> Just i
  5096. 1668.39 s [opt-env-conf-test] + i -> Nothing
  5097. 1668.39 s [opt-env-conf-test] fileEnv = fileSetting (isJust . settingEnvVars) $ \case
  5098. 1668.40 s [opt-env-conf-test] BuildTryArgument -> Nothing
  5099. 1668.40 s [opt-env-conf-test] BuildTryOption -> Nothing
  5100. 1668.40 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
  5101. 1668.40 s [opt-env-conf-test] @@ -160,7 +160,7 @@
  5102. 1668.40 s [opt-env-conf-test] --
  5103. 1668.40 s [opt-env-conf-test] -- We use 'drop 1' here because we don't care about the progname anymore.
  5104. 1668.40 s [opt-env-conf-test] let index = pred index'
  5105. 1668.40 s [opt-env-conf-test] - let ws = drop 1 ws'
  5106. 1668.40 s [opt-env-conf-test] + let ws = drop -1 ws'
  5107. 1668.40 s [opt-env-conf-test] let arg = fromMaybe "" $ listToMaybe $ drop index ws
  5108. 1668.40 s [opt-env-conf-test] let completions = pureCompletionQuery parser index ws
  5109. 1668.40 s [opt-env-conf-test] evaluatedCompletions <- evalCompletions arg completions
  5110. 1668.40 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1093:12-18
  5111. 1668.40 s [opt-env-conf-test] @@ -1090,7 +1090,7 @@
  5112. 1668.40 s [opt-env-conf-test] BuildAddEnv _ -> Nothing
  5113. 1668.40 s [opt-env-conf-test] BuildAddConf k -> Just $ BuildAddConf k
  5114. 1668.40 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  5115. 1668.40 s [opt-env-conf-test] - i -> Just i
  5116. 1668.40 s [opt-env-conf-test] + i -> Nothing
  5117. 1668.40 s [opt-env-conf-test] fileConf = fileSetting (isJust . settingConfigVals) $ \case
  5118. 1668.40 s [opt-env-conf-test] BuildTryArgument -> Nothing
  5119. 1668.40 s [opt-env-conf-test] BuildTryOption -> Nothing
  5120. 1668.40 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
  5121. 1668.40 s [opt-env-conf-test] @@ -1035,7 +1035,6 @@
  5122. 1668.40 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  5123. 1668.40 s [opt-env-conf-test] T.pack <$> ParserSetting mLoc s
  5124. 1668.40 s [opt-env-conf-test] fileSetting p f = do
  5125. 1668.40 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
  5126. 1668.40 s [opt-env-conf-test] guard $ p s
  5127. 1668.40 s [opt-env-conf-test] pure $
  5128. 1668.40 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  5129. 1668.40 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
  5130. 1668.40 s [opt-env-conf-test] @@ -415,7 +415,7 @@
  5131. 1668.40 s [opt-env-conf-test] then pure $ Just []
  5132. 1668.40 s [opt-env-conf-test] else do
  5133. 1668.40 s [opt-env-conf-test] as <- get
  5134. 1668.40 s [opt-env-conf-test] - if settingTryArgument
  5135. 1668.40 s [opt-env-conf-test] + if False
  5136. 1668.40 s [opt-env-conf-test] then do
  5137. 1668.40 s [opt-env-conf-test] let possibilities = Args.consumeArgument as
  5138. 1668.40 s [opt-env-conf-test] -- Try all possible consumptions of the argument.
  5139. 1668.40 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
  5140. 1668.40 s [opt-env-conf-test] @@ -1035,7 +1035,6 @@
  5141. 1668.40 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  5142. 1668.40 s [opt-env-conf-test] T.pack <$> ParserSetting mLoc s
  5143. 1668.40 s [opt-env-conf-test] fileSetting p f = do
  5144. 1668.40 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
  5145. 1668.40 s [opt-env-conf-test] guard $ p s
  5146. 1668.40 s [opt-env-conf-test] pure $
  5147. 1668.40 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  5148. 1668.40 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
  5149. 1668.40 s [opt-env-conf-test] @@ -1035,7 +1035,6 @@
  5150. 1668.40 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  5151. 1668.40 s [opt-env-conf-test] T.pack <$> ParserSetting mLoc s
  5152. 1668.40 s [opt-env-conf-test] fileSetting p f = do
  5153. 1668.40 s [opt-env-conf-test] - let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
  5154. 1668.40 s [opt-env-conf-test] guard $ p s
  5155. 1668.40 s [opt-env-conf-test] pure $
  5156. 1668.40 s [opt-env-conf-test] checkWithRequiredCapability readSecretCapability $
  5157. 1668.40 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1063:12-18
  5158. 1668.40 s [opt-env-conf-test] @@ -1060,7 +1060,7 @@
  5159. 1668.40 s [opt-env-conf-test] BuildAddEnv _ -> Nothing
  5160. 1668.40 s [opt-env-conf-test] BuildAddConf _ -> Nothing
  5161. 1668.40 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  5162. 1673.83 s [opt-env-conf-test] - i -> Just i
  5163. 1673.83 s [opt-env-conf-test] + i -> Nothing
  5164. 1673.85 s [opt-env-conf-test] bareEnv = bareSetting (isJust . settingEnvVars) $ \case
  5165. 1673.85 s [opt-env-conf-test] BuildTryArgument -> Nothing
  5166. 1673.85 s [opt-env-conf-test] BuildTryOption -> Nothing
  5167. 1673.85 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1084:12-18
  5168. 1673.85 s [opt-env-conf-test] @@ -1081,7 +1081,7 @@
  5169. 1673.85 s [opt-env-conf-test] suffixEnvVarSetting "_FILE" e
  5170. 1673.85 s [opt-env-conf-test] BuildAddConf _ -> Nothing
  5171. 1673.85 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  5172. 1673.85 s [opt-env-conf-test] - i -> Just i
  5173. 1673.85 s [opt-env-conf-test] + i -> Nothing
  5174. 1673.85 s [opt-env-conf-test] bareConf = bareSetting (isJust . settingConfigVals) $ \case
  5175. 1673.86 s [opt-env-conf-test] BuildTryArgument -> Nothing
  5176. 1673.86 s [opt-env-conf-test] BuildTryOption -> Nothing
  5177. 1673.86 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:1102:12-18
  5178. 1673.86 s [opt-env-conf-test] @@ -1099,7 +1099,7 @@
  5179. 1673.86 s [opt-env-conf-test] BuildAddEnv _ -> Nothing
  5180. 1673.86 s [opt-env-conf-test] BuildAddConf k -> Just $ BuildAddConf $ suffixConfigValSettingKey "-file" k
  5181. 1673.86 s [opt-env-conf-test] BuildSetDefault _ _ -> Nothing
  5182. 1673.86 s [opt-env-conf-test] - i -> Just i
  5183. 1673.86 s [opt-env-conf-test] + i -> Nothing
  5184. 1673.86 s [opt-env-conf-test]
  5185. 1673.86 s [opt-env-conf-test] -- | Prefix all 'long's and 'short's with a given 'String'.
  5186. 1673.86 s [opt-env-conf-test] {-# ANN subArgs ("NOCOVER" :: String) #-}
  5187. 1673.86 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:563:72-117
  5188. 1673.86 s [opt-env-conf-test] @@ -560,7 +560,7 @@
  5189. 1673.86 s [opt-env-conf-test] ParserCommands {} -> p'
  5190. 1673.86 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5191. 1673.86 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5192. 1673.86 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5193. 1673.86 s [opt-env-conf-test] + Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Nothing}
  5194. 1673.86 s [opt-env-conf-test] Just _ -> p
  5195. 1673.86 s [opt-env-conf-test]
  5196. 1673.86 s [opt-env-conf-test] -- | Try a list of parsers in order
  5197. 1673.86 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
  5198. 1673.86 s [opt-env-conf-test] @@ -1016,13 +1016,7 @@
  5199. 1673.86 s [opt-env-conf-test] withFrozenCallStack $
  5200. 1673.86 s [opt-env-conf-test] choice $
  5201. 1673.86 s [opt-env-conf-test] catMaybes
  5202. 1673.86 s [opt-env-conf-test] - [ bareOption,
  5203. 1673.86 s [opt-env-conf-test] - fileOption,
  5204. 1673.86 s [opt-env-conf-test] - bareEnv,
  5205. 1673.86 s [opt-env-conf-test] - fileEnv,
  5206. 1673.86 s [opt-env-conf-test] - bareConf,
  5207. 1673.86 s [opt-env-conf-test] - fileConf
  5208. 1673.86 s [opt-env-conf-test] ]
  5209. 1673.86 s [opt-env-conf-test] where
  5210. 1673.86 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5211. 1673.86 s [opt-env-conf-test] b = mconcat $ bs ++ [reader str]
  5212. 1673.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
  5213. 1673.86 s [opt-env-conf-test] @@ -599,9 +599,8 @@
  5214. 1673.86 s [opt-env-conf-test] checkMapMaybe func p =
  5215. 1673.86 s [opt-env-conf-test] withFrozenCallStack $
  5216. 1673.86 s [opt-env-conf-test] checkMapEither
  5217. 1673.86 s [opt-env-conf-test] ( \a -> case func a of
  5218. 1673.86 s [opt-env-conf-test] Nothing -> Left "checkMapMaybe failed without a helpful error message"
  5219. 1673.86 s [opt-env-conf-test] - Just b -> Right b
  5220. 1673.86 s [opt-env-conf-test] )
  5221. 1673.86 s [opt-env-conf-test] p
  5222. 1673.86 s [opt-env-conf-test]
  5223. 1673.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
  5224. 1673.86 s [opt-env-conf-test] @@ -599,9 +599,8 @@
  5225. 1673.86 s [opt-env-conf-test] checkMapMaybe func p =
  5226. 1673.86 s [opt-env-conf-test] withFrozenCallStack $
  5227. 1673.86 s [opt-env-conf-test] checkMapEither
  5228. 1673.86 s [opt-env-conf-test] ( \a -> case func a of
  5229. 1673.86 s [opt-env-conf-test] - Nothing -> Left "checkMapMaybe failed without a helpful error message"
  5230. 1673.86 s [opt-env-conf-test] Just b -> Right b
  5231. 1673.86 s [opt-env-conf-test] )
  5232. 1673.86 s [opt-env-conf-test] p
  5233. 1673.86 s [opt-env-conf-test]
  5234. 1673.86 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:618:31-36
  5235. 1673.86 s [opt-env-conf-test] @@ -615,7 +615,7 @@
  5236. 1673.86 s [opt-env-conf-test]
  5237. 1673.86 s [opt-env-conf-test] -- | Check a 'Parser' after the fact, allowing IO.
  5238. 1673.86 s [opt-env-conf-test] checkMapIO :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
  5239. 1673.86 s [opt-env-conf-test] -checkMapIO = ParserCheck mLoc False Set.empty
  5240. 1673.86 s [opt-env-conf-test] +checkMapIO = ParserCheck mLoc True Set.empty
  5241. 1673.86 s [opt-env-conf-test] where
  5242. 1673.86 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5243. 1673.86 s [opt-env-conf-test]
  5244. 1673.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  5245. 1673.86 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  5246. 1673.86 s [opt-env-conf-test] where
  5247. 1673.86 s [opt-env-conf-test] go p =
  5248. 1673.86 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  5249. 1673.86 s [opt-env-conf-test] in case p of
  5250. 1673.86 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  5251. 1673.86 s [opt-env-conf-test] ParserAp {} -> p'
  5252. 1673.86 s [opt-env-conf-test] ParserSelect {} -> p'
  5253. 1673.86 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  5254. 1673.86 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  5255. 1673.86 s [opt-env-conf-test] ParserMany {} -> p'
  5256. 1673.86 s [opt-env-conf-test] ParserSome {} -> p'
  5257. 1673.86 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  5258. 1673.86 s [opt-env-conf-test] ParserCheck {} -> p'
  5259. 1673.86 s [opt-env-conf-test] ParserCommands {} -> p'
  5260. 1673.86 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5261. 1673.86 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5262. 1673.86 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5263. 1673.86 s [opt-env-conf-test] Just _ -> p
  5264. 1673.86 s [opt-env-conf-test]
  5265. 1673.86 s [opt-env-conf-test] -- | Try a list of parsers in order
  5266. 1673.86 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5267. 1673.86 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:664:25-30
  5268. 1673.86 s [opt-env-conf-test] @@ -661,7 +661,7 @@
  5269. 1673.86 s [opt-env-conf-test] checkWithRequiredCapability capName = \case
  5270. 1673.86 s [opt-env-conf-test] ParserCheck mLoc' forgivable caps f p ->
  5271. 1673.86 s [opt-env-conf-test] ParserCheck mLoc' forgivable (Set.insert cap caps) f p
  5272. 1673.86 s [opt-env-conf-test] - p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
  5273. 1673.86 s [opt-env-conf-test] + p -> ParserCheck mLoc True (Set.singleton cap) (pure . Right) p
  5274. 1673.86 s [opt-env-conf-test] where
  5275. 1673.86 s [opt-env-conf-test] cap = Capability (T.pack capName)
  5276. 1673.86 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5277. 1673.86 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  5278. 1673.86 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  5279. 1673.86 s [opt-env-conf-test] where
  5280. 1673.86 s [opt-env-conf-test] go p =
  5281. 1673.86 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  5282. 1673.86 s [opt-env-conf-test] in case p of
  5283. 1673.86 s [opt-env-conf-test] ParserPure a -> ParserPure a
  5284. 1673.86 s [opt-env-conf-test] - ParserAp {} -> p'
  5285. 1673.86 s [opt-env-conf-test] ParserSelect {} -> p'
  5286. 1673.86 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  5287. 1673.86 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  5288. 1673.86 s [opt-env-conf-test] ParserMany {} -> p'
  5289. 1673.86 s [opt-env-conf-test] ParserSome {} -> p'
  5290. 1673.86 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  5291. 1673.86 s [opt-env-conf-test] ParserCheck {} -> p'
  5292. 1673.86 s [opt-env-conf-test] ParserCommands {} -> p'
  5293. 1673.86 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5294. 1673.86 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5295. 1673.86 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5296. 1673.87 s [opt-env-conf-test] Just _ -> p
  5297. 1673.87 s [opt-env-conf-test]
  5298. 1673.87 s [opt-env-conf-test] -- | Try a list of parsers in order
  5299. 1673.87 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5300. 1673.87 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:178:32-99
  5301. 1673.87 s [opt-env-conf-test] @@ -175,7 +175,7 @@
  5302. 1673.87 s [opt-env-conf-test] map
  5303. 1673.87 s [opt-env-conf-test] ( \Completion {..} ->
  5304. 1673.87 s [opt-env-conf-test] let val = completionResultValue completionSuggestion
  5305. 1673.87 s [opt-env-conf-test] - notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
  5306. 1673.87 s [opt-env-conf-test] + notFinal = not (completionResultFinality completionSuggestion == CompletionNotFinal)
  5307. 1673.87 s [opt-env-conf-test] in case (notFinal, completionDescription) of
  5308. 1673.87 s [opt-env-conf-test] (False, Nothing) -> val
  5309. 1673.87 s [opt-env-conf-test] (False, Just d) -> val <> "\t" <> d
  5310. 1673.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
  5311. 1673.87 s [opt-env-conf-test] @@ -671,9 +671,8 @@
  5312. 1673.87 s [opt-env-conf-test] checkMapMaybeForgivable func p =
  5313. 1673.87 s [opt-env-conf-test] withFrozenCallStack $
  5314. 1673.87 s [opt-env-conf-test] checkMapEitherForgivable
  5315. 1673.87 s [opt-env-conf-test] ( \a -> case func a of
  5316. 1673.87 s [opt-env-conf-test] Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
  5317. 1673.87 s [opt-env-conf-test] - Just b -> Right b
  5318. 1673.87 s [opt-env-conf-test] )
  5319. 1673.87 s [opt-env-conf-test] p
  5320. 1673.87 s [opt-env-conf-test]
  5321. 1673.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  5322. 1673.87 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  5323. 1673.87 s [opt-env-conf-test] where
  5324. 1673.87 s [opt-env-conf-test] go p =
  5325. 1673.87 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  5326. 1673.87 s [opt-env-conf-test] in case p of
  5327. 1673.87 s [opt-env-conf-test] ParserPure a -> ParserPure a
  5328. 1673.87 s [opt-env-conf-test] ParserAp {} -> p'
  5329. 1673.87 s [opt-env-conf-test] ParserSelect {} -> p'
  5330. 1673.87 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  5331. 1673.87 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  5332. 1673.87 s [opt-env-conf-test] ParserMany {} -> p'
  5333. 1673.87 s [opt-env-conf-test] ParserSome {} -> p'
  5334. 1673.87 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  5335. 1673.87 s [opt-env-conf-test] ParserCheck {} -> p'
  5336. 1673.87 s [opt-env-conf-test] ParserCommands {} -> p'
  5337. 1673.87 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5338. 1673.87 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5339. 1673.87 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5340. 1673.87 s [opt-env-conf-test] Just _ -> p
  5341. 1673.87 s [opt-env-conf-test]
  5342. 1673.87 s [opt-env-conf-test] -- | Try a list of parsers in order
  5343. 1673.87 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5344. 1673.87 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:350:59-75
  5345. 1673.87 s [opt-env-conf-test] @@ -347,7 +347,7 @@
  5346. 1673.87 s [opt-env-conf-test] ( \Command {..} ->
  5347. 1679.84 s [opt-env-conf-test] Completion
  5348. 1679.86 s [opt-env-conf-test] { completionSuggestion = SuggestionBare commandArg,
  5349. 1679.86 s [opt-env-conf-test] - completionDescription = Just commandHelp
  5350. 1679.87 s [opt-env-conf-test] + completionDescription = Nothing
  5351. 1679.87 s [opt-env-conf-test] }
  5352. 1679.87 s [opt-env-conf-test] )
  5353. 1679.87 s [opt-env-conf-test] matchingCommands
  5354. 1679.87 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  5355. 1679.87 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  5356. 1679.87 s [opt-env-conf-test] where
  5357. 1679.87 s [opt-env-conf-test] go p =
  5358. 1679.87 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  5359. 1679.87 s [opt-env-conf-test] in case p of
  5360. 1679.87 s [opt-env-conf-test] ParserPure a -> ParserPure a
  5361. 1679.87 s [opt-env-conf-test] ParserAp {} -> p'
  5362. 1679.87 s [opt-env-conf-test] ParserSelect {} -> p'
  5363. 1679.87 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  5364. 1679.87 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  5365. 1679.87 s [opt-env-conf-test] - ParserMany {} -> p'
  5366. 1679.87 s [opt-env-conf-test] ParserSome {} -> p'
  5367. 1679.87 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  5368. 1679.88 s [opt-env-conf-test] ParserCheck {} -> p'
  5369. 1679.88 s [opt-env-conf-test] ParserCommands {} -> p'
  5370. 1679.88 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5371. 1679.88 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5372. 1679.88 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5373. 1679.88 s [opt-env-conf-test] Just _ -> p
  5374. 1679.88 s [opt-env-conf-test]
  5375. 1679.88 s [opt-env-conf-test] -- | Try a list of parsers in order
  5376. 1679.88 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5377. 1679.88 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:428:28-35
  5378. 1679.88 s [opt-env-conf-test] @@ -425,7 +425,7 @@
  5379. 1679.88 s [opt-env-conf-test] case filter (isJust . fst) possibilities of
  5380. 1679.88 s [opt-env-conf-test] (_, as') : _ -> do
  5381. 1679.88 s [opt-env-conf-test] put as'
  5382. 1679.88 s [opt-env-conf-test] - pure $ Just []
  5383. 1679.88 s [opt-env-conf-test] + pure $ Nothing
  5384. 1679.88 s [opt-env-conf-test] [] ->
  5385. 1679.88 s [opt-env-conf-test] -- No possibility consumed a value. This is either
  5386. 1679.88 s [opt-env-conf-test] -- because there are no args at all (the [] case from
  5387. 1679.88 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:315:30-37
  5388. 1679.88 s [opt-env-conf-test] @@ -312,7 +312,7 @@
  5389. 1679.88 s [opt-env-conf-test] -- Just [] means "no completions"
  5390. 1679.88 s [opt-env-conf-test] go :: Parser a -> State Args (Maybe [Completion Suggestion])
  5391. 1679.88 s [opt-env-conf-test] go = \case
  5392. 1679.88 s [opt-env-conf-test] - ParserPure _ -> pure $ Just []
  5393. 1679.88 s [opt-env-conf-test] + ParserPure _ -> pure $ Nothing
  5394. 1679.88 s [opt-env-conf-test] -- Parse both and combine the result
  5395. 1679.88 s [opt-env-conf-test] ParserAp p1 p2 -> andCompletions p1 p2
  5396. 1679.88 s [opt-env-conf-test] -- Parse either: either completions are valid
  5397. 1679.88 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  5398. 1679.88 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  5399. 1679.89 s [opt-env-conf-test] where
  5400. 1679.89 s [opt-env-conf-test] go p =
  5401. 1679.89 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  5402. 1679.89 s [opt-env-conf-test] in case p of
  5403. 1679.89 s [opt-env-conf-test] ParserPure a -> ParserPure a
  5404. 1679.89 s [opt-env-conf-test] ParserAp {} -> p'
  5405. 1679.89 s [opt-env-conf-test] ParserSelect {} -> p'
  5406. 1679.89 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  5407. 1679.89 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  5408. 1679.89 s [opt-env-conf-test] ParserMany {} -> p'
  5409. 1679.89 s [opt-env-conf-test] ParserSome {} -> p'
  5410. 1679.89 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  5411. 1679.89 s [opt-env-conf-test] ParserCheck {} -> p'
  5412. 1679.89 s [opt-env-conf-test] ParserCommands {} -> p'
  5413. 1679.89 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5414. 1679.89 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5415. 1679.89 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5416. 1679.89 s [opt-env-conf-test] Just _ -> p
  5417. 1679.89 s [opt-env-conf-test]
  5418. 1679.89 s [opt-env-conf-test] -- | Try a list of parsers in order
  5419. 1679.89 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5420. 1679.89 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Completion.hs:288:43-50
  5421. 1679.89 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  5422. 1679.89 s [opt-env-conf-test] -- further), prefer our completions which came
  5423. 1679.89 s [opt-env-conf-test] -- from the advancing iteration.
  5424. 1679.89 s [opt-env-conf-test] | null os -> pure $ Just more
  5425. 1679.89 s [opt-env-conf-test] - | otherwise -> pure $ Just os
  5426. 1679.89 s [opt-env-conf-test] + | otherwise -> pure $ Nothing
  5427. 1679.89 s [opt-env-conf-test]
  5428. 1679.89 s [opt-env-conf-test] orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  5429. 1679.89 s [opt-env-conf-test] orCompletions p1 p2 = do
  5430. 1679.89 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:287:23-30
  5431. 1679.90 s [opt-env-conf-test] @@ -284,7 +284,7 @@
  5432. 1679.90 s [opt-env-conf-test] -- dashed suggestions (state didn't advance
  5433. 1679.90 s [opt-env-conf-test] -- further), prefer our completions which came
  5434. 1679.90 s [opt-env-conf-test] -- from the advancing iteration.
  5435. 1679.90 s [opt-env-conf-test] - | null os -> pure $ Just more
  5436. 1679.90 s [opt-env-conf-test] + | not (null os) -> pure $ Just more
  5437. 1679.90 s [opt-env-conf-test] | otherwise -> pure $ Just os
  5438. 1679.90 s [opt-env-conf-test]
  5439. 1679.90 s [opt-env-conf-test] orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
  5440. 1679.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  5441. 1679.90 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  5442. 1679.90 s [opt-env-conf-test] where
  5443. 1679.90 s [opt-env-conf-test] go p =
  5444. 1679.90 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  5445. 1679.90 s [opt-env-conf-test] in case p of
  5446. 1679.90 s [opt-env-conf-test] ParserPure a -> ParserPure a
  5447. 1679.90 s [opt-env-conf-test] ParserAp {} -> p'
  5448. 1679.90 s [opt-env-conf-test] ParserSelect {} -> p'
  5449. 1679.90 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  5450. 1679.90 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  5451. 1679.90 s [opt-env-conf-test] ParserMany {} -> p'
  5452. 1679.90 s [opt-env-conf-test] ParserSome {} -> p'
  5453. 1679.90 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  5454. 1679.90 s [opt-env-conf-test] ParserCheck {} -> p'
  5455. 1679.90 s [opt-env-conf-test] - ParserCommands {} -> p'
  5456. 1679.90 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5457. 1679.90 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5458. 1679.90 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5459. 1679.90 s [opt-env-conf-test] Just _ -> p
  5460. 1679.90 s [opt-env-conf-test]
  5461. 1679.90 s [opt-env-conf-test] -- | Try a list of parsers in order
  5462. 1679.90 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5463. 1679.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  5464. 1679.90 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  5465. 1679.90 s [opt-env-conf-test] where
  5466. 1679.90 s [opt-env-conf-test] go p =
  5467. 1679.90 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  5468. 1679.90 s [opt-env-conf-test] in case p of
  5469. 1679.90 s [opt-env-conf-test] ParserPure a -> ParserPure a
  5470. 1679.91 s [opt-env-conf-test] ParserAp {} -> p'
  5471. 1679.91 s [opt-env-conf-test] ParserSelect {} -> p'
  5472. 1679.91 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  5473. 1679.91 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  5474. 1679.91 s [opt-env-conf-test] ParserMany {} -> p'
  5475. 1679.91 s [opt-env-conf-test] ParserSome {} -> p'
  5476. 1679.91 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  5477. 1679.91 s [opt-env-conf-test] ParserCheck {} -> p'
  5478. 1679.91 s [opt-env-conf-test] ParserCommands {} -> p'
  5479. 1679.91 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  5480. 1679.91 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5481. 1679.91 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5482. 1679.91 s [opt-env-conf-test] Just _ -> p
  5483. 1679.91 s [opt-env-conf-test]
  5484. 1679.91 s [opt-env-conf-test] -- | Try a list of parsers in order
  5485. 1679.91 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5486. 1679.91 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  5487. 1679.91 s [opt-env-conf-test] @@ -547,21 +547,18 @@
  5488. 1679.91 s [opt-env-conf-test] where
  5489. 1679.91 s [opt-env-conf-test] go p =
  5490. 1679.91 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  5491. 1679.91 s [opt-env-conf-test] in case p of
  5492. 1679.91 s [opt-env-conf-test] ParserPure a -> ParserPure a
  5493. 1679.91 s [opt-env-conf-test] ParserAp {} -> p'
  5494. 1679.91 s [opt-env-conf-test] ParserSelect {} -> p'
  5495. 1679.91 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  5496. 1679.91 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  5497. 1679.91 s [opt-env-conf-test] ParserMany {} -> p'
  5498. 1679.91 s [opt-env-conf-test] ParserSome {} -> p'
  5499. 1679.91 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  5500. 1679.91 s [opt-env-conf-test] ParserCheck {} -> p'
  5501. 1679.91 s [opt-env-conf-test] ParserCommands {} -> p'
  5502. 1679.91 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5503. 1679.91 s [opt-env-conf-test] - ParserSetting mLoc s -> case settingDefaultValue s of
  5504. 1679.91 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5505. 1679.91 s [opt-env-conf-test] - Just _ -> p
  5506. 1679.91 s [opt-env-conf-test]
  5507. 1679.91 s [opt-env-conf-test] -- | Try a list of parsers in order
  5508. 1679.91 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5509. 1679.92 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:877:11-26
  5510. 1679.92 s [opt-env-conf-test] @@ -874,7 +874,7 @@
  5511. 1679.92 s [opt-env-conf-test] withFrozenCallStack $
  5512. 1679.92 s [opt-env-conf-test] choice $
  5513. 1679.92 s [opt-env-conf-test] catMaybes
  5514. 1679.92 s [opt-env-conf-test] - [ Just parseDummy,
  5515. 1679.92 s [opt-env-conf-test] + [ Nothing,
  5516. 1679.92 s [opt-env-conf-test] Just parseDisableSwitch,
  5517. 1679.92 s [opt-env-conf-test] Just parseEnableSwitch,
  5518. 1679.92 s [opt-env-conf-test] parseEnv,
  5519. 1679.92 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
  5520. 1679.92 s [opt-env-conf-test] @@ -874,13 +874,7 @@
  5521. 1679.92 s [opt-env-conf-test] withFrozenCallStack $
  5522. 1679.92 s [opt-env-conf-test] choice $
  5523. 1679.92 s [opt-env-conf-test] catMaybes
  5524. 1679.92 s [opt-env-conf-test] - [ Just parseDummy,
  5525. 1685.74 s [opt-env-conf-test] - Just parseDisableSwitch,
  5526. 1685.77 s [opt-env-conf-test] - Just parseEnableSwitch,
  5527. 1685.77 s [opt-env-conf-test] - parseEnv,
  5528. 1685.77 s [opt-env-conf-test] - parseConfigVal,
  5529. 1685.77 s [opt-env-conf-test] - parseDefaultVal
  5530. 1685.77 s [opt-env-conf-test] ]
  5531. 1685.77 s [opt-env-conf-test] where
  5532. 1685.77 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5533. 1685.77 s [opt-env-conf-test] s = buildSetting builders
  5534. 1685.77 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:879:11-33
  5535. 1685.77 s [opt-env-conf-test] @@ -876,7 +876,7 @@
  5536. 1685.77 s [opt-env-conf-test] catMaybes
  5537. 1685.77 s [opt-env-conf-test] [ Just parseDummy,
  5538. 1685.77 s [opt-env-conf-test] Just parseDisableSwitch,
  5539. 1685.77 s [opt-env-conf-test] - Just parseEnableSwitch,
  5540. 1685.78 s [opt-env-conf-test] + Nothing,
  5541. 1685.78 s [opt-env-conf-test] parseEnv,
  5542. 1685.78 s [opt-env-conf-test] parseConfigVal,
  5543. 1685.78 s [opt-env-conf-test] parseDefaultVal
  5544. 1685.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
  5545. 1685.78 s [opt-env-conf-test] @@ -874,13 +874,12 @@
  5546. 1685.78 s [opt-env-conf-test] withFrozenCallStack $
  5547. 1685.78 s [opt-env-conf-test] choice $
  5548. 1685.78 s [opt-env-conf-test] catMaybes
  5549. 1685.78 s [opt-env-conf-test] [ Just parseDummy,
  5550. 1685.78 s [opt-env-conf-test] Just parseDisableSwitch,
  5551. 1685.78 s [opt-env-conf-test] Just parseEnableSwitch,
  5552. 1685.78 s [opt-env-conf-test] parseEnv,
  5553. 1685.78 s [opt-env-conf-test] parseConfigVal,
  5554. 1685.78 s [opt-env-conf-test] - parseDefaultVal
  5555. 1685.78 s [opt-env-conf-test] ]
  5556. 1685.78 s [opt-env-conf-test] where
  5557. 1685.78 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5558. 1685.78 s [opt-env-conf-test] s = buildSetting builders
  5559. 1685.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
  5560. 1685.78 s [opt-env-conf-test] @@ -874,13 +874,12 @@
  5561. 1685.78 s [opt-env-conf-test] withFrozenCallStack $
  5562. 1685.78 s [opt-env-conf-test] choice $
  5563. 1685.78 s [opt-env-conf-test] catMaybes
  5564. 1685.78 s [opt-env-conf-test] - [ Just parseDummy,
  5565. 1685.78 s [opt-env-conf-test] Just parseDisableSwitch,
  5566. 1685.78 s [opt-env-conf-test] Just parseEnableSwitch,
  5567. 1685.78 s [opt-env-conf-test] parseEnv,
  5568. 1685.78 s [opt-env-conf-test] parseConfigVal,
  5569. 1685.78 s [opt-env-conf-test] parseDefaultVal
  5570. 1685.78 s [opt-env-conf-test] ]
  5571. 1685.78 s [opt-env-conf-test] where
  5572. 1685.78 s [opt-env-conf-test] mLoc = snd <$> listToMaybe (getCallStack callStack)
  5573. 1685.78 s [opt-env-conf-test] s = buildSetting builders
  5574. 1685.78 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
  5575. 1685.78 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  5576. 1685.78 s [opt-env-conf-test] ParserCheck {} -> p'
  5577. 1685.78 s [opt-env-conf-test] ParserCommands {} -> p'
  5578. 1685.78 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5579. 1685.79 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5580. 1685.79 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5581. 1685.79 s [opt-env-conf-test] - Just _ -> p
  5582. 1685.79 s [opt-env-conf-test]
  5583. 1685.79 s [opt-env-conf-test] -- | Try a list of parsers in order
  5584. 1685.79 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5585. 1685.79 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:878:11-34
  5586. 1685.79 s [opt-env-conf-test] @@ -875,7 +875,7 @@
  5587. 1685.79 s [opt-env-conf-test] choice $
  5588. 1685.79 s [opt-env-conf-test] catMaybes
  5589. 1685.79 s [opt-env-conf-test] [ Just parseDummy,
  5590. 1685.79 s [opt-env-conf-test] - Just parseDisableSwitch,
  5591. 1685.79 s [opt-env-conf-test] + Nothing,
  5592. 1685.79 s [opt-env-conf-test] Just parseEnableSwitch,
  5593. 1685.79 s [opt-env-conf-test] parseEnv,
  5594. 1685.79 s [opt-env-conf-test] parseConfigVal,
  5595. 1685.79 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
  5596. 1685.79 s [opt-env-conf-test] @@ -887,7 +887,7 @@
  5597. 1685.79 s [opt-env-conf-test] parseDefaultVal :: Maybe (Parser Bool)
  5598. 1685.79 s [opt-env-conf-test] parseDefaultVal = do
  5599. 1685.79 s [opt-env-conf-test] (dv, _) <- settingDefaultValue s
  5600. 1685.79 s [opt-env-conf-test] - pure $ pure dv
  5601. 1685.79 s [opt-env-conf-test] + pure $ pure True
  5602. 1685.79 s [opt-env-conf-test]
  5603. 1685.79 s [opt-env-conf-test] parseEnableSwitch :: Parser Bool
  5604. 1685.79 s [opt-env-conf-test] parseEnableSwitch =
  5605. 1685.79 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  5606. 1685.79 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  5607. 1685.79 s [opt-env-conf-test] where
  5608. 1685.79 s [opt-env-conf-test] go p =
  5609. 1685.79 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  5610. 1685.79 s [opt-env-conf-test] in case p of
  5611. 1685.79 s [opt-env-conf-test] ParserPure a -> ParserPure a
  5612. 1685.79 s [opt-env-conf-test] ParserAp {} -> p'
  5613. 1685.79 s [opt-env-conf-test] ParserSelect {} -> p'
  5614. 1685.79 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  5615. 1685.79 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  5616. 1685.79 s [opt-env-conf-test] ParserMany {} -> p'
  5617. 1685.79 s [opt-env-conf-test] ParserSome {} -> p'
  5618. 1685.79 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  5619. 1685.79 s [opt-env-conf-test] - ParserCheck {} -> p'
  5620. 1685.79 s [opt-env-conf-test] ParserCommands {} -> p'
  5621. 1685.79 s [opt-env-conf-test] ParserWithConfig {} -> p'
  5622. 1685.79 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  5623. 1685.79 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  5624. 1685.79 s [opt-env-conf-test] Just _ -> p
  5625. 1685.80 s [opt-env-conf-test]
  5626. 1685.80 s [opt-env-conf-test] -- | Try a list of parsers in order
  5627. 1685.80 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  5628. 1685.80 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
  5629. 1685.80 s [opt-env-conf-test] @@ -887,7 +887,7 @@
  5630. 1685.80 s [opt-env-conf-test] parseDefaultVal :: Maybe (Parser Bool)
  5631. 1685.80 s [opt-env-conf-test] parseDefaultVal = do
  5632. 1685.80 s [opt-env-conf-test] (dv, _) <- settingDefaultValue s
  5633. 1685.80 s [opt-env-conf-test] - pure $ pure dv
  5634. 1685.80 s [opt-env-conf-test] + pure $ pure False
  5635. 1685.80 s [opt-env-conf-test]
  5636. 1685.80 s [opt-env-conf-test] parseEnableSwitch :: Parser Bool
  5637. 1685.80 s [opt-env-conf-test] parseEnableSwitch =
  5638. 1685.80 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:942:32-39
  5639. 1685.80 s [opt-env-conf-test] @@ -939,7 +939,7 @@
  5640. 1685.80 s [opt-env-conf-test] settingTryArgument = False,
  5641. 1685.80 s [opt-env-conf-test] settingSwitchValue = Nothing,
  5642. 1685.80 s [opt-env-conf-test] settingTryOption = False,
  5643. 1685.80 s [opt-env-conf-test] - settingEnvVars = Just ne,
  5644. 1685.80 s [opt-env-conf-test] + settingEnvVars = Nothing,
  5645. 1685.80 s [opt-env-conf-test] settingConfigVals = Nothing,
  5646. 1685.80 s [opt-env-conf-test] settingDefaultValue = Nothing,
  5647. 1685.80 s [opt-env-conf-test] settingExamples = [],
  5648. 1685.80 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:980:34-43
  5649. 1685.80 s [opt-env-conf-test] @@ -977,7 +977,7 @@
  5650. 1685.80 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
  5651. 1685.80 s [opt-env-conf-test] settingReaders = [],
  5652. 1685.80 s [opt-env-conf-test] settingTryArgument = False,
  5653. 1685.80 s [opt-env-conf-test] - settingSwitchValue = Just True, -- Unused
  5654. 1685.80 s [opt-env-conf-test] + settingSwitchValue = Nothing, -- Unused
  5655. 1685.80 s [opt-env-conf-test] settingTryOption = False,
  5656. 1685.80 s [opt-env-conf-test] settingEnvVars = Nothing,
  5657. 1685.80 s [opt-env-conf-test] settingConfigVals = Nothing,
  5658. 1685.80 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:981:32-37
  5659. 1685.80 s [opt-env-conf-test] @@ -978,7 +978,7 @@
  5660. 1685.80 s [opt-env-conf-test] settingReaders = [],
  5661. 1685.80 s [opt-env-conf-test] settingTryArgument = False,
  5662. 1685.80 s [opt-env-conf-test] settingSwitchValue = Just True, -- Unused
  5663. 1685.80 s [opt-env-conf-test] - settingTryOption = False,
  5664. 1685.80 s [opt-env-conf-test] + settingTryOption = True,
  5665. 1685.80 s [opt-env-conf-test] settingEnvVars = Nothing,
  5666. 1685.80 s [opt-env-conf-test] settingConfigVals = Nothing,
  5667. 1685.80 s [opt-env-conf-test] settingDefaultValue = Nothing,
  5668. 1685.80 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:986:29-34
  5669. 1685.80 s [opt-env-conf-test] @@ -983,7 +983,7 @@
  5670. 1685.80 s [opt-env-conf-test] settingConfigVals = Nothing,
  5671. 1685.80 s [opt-env-conf-test] settingDefaultValue = Nothing,
  5672. 1685.80 s [opt-env-conf-test] settingExamples = [],
  5673. 1685.80 s [opt-env-conf-test] - settingHidden = False,
  5674. 1685.80 s [opt-env-conf-test] + settingHidden = True,
  5675. 1685.80 s [opt-env-conf-test] settingMetavar = Nothing,
  5676. 1685.80 s [opt-env-conf-test] settingHelp = settingHelp s,
  5677. 1685.81 s [opt-env-conf-test] settingCompleter = Nothing,
  5678. 1685.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
  5679. 1685.81 s [opt-env-conf-test] @@ -480,10 +480,7 @@
  5680. 1685.81 s [opt-env-conf-test] withFrozenCallStack $
  5681. 1685.81 s [opt-env-conf-test] setting $
  5682. 1685.81 s [opt-env-conf-test] builders
  5683. 1685.81 s [opt-env-conf-test] - ++ [ reader str,
  5684. 1685.81 s [opt-env-conf-test] - metavar "FILE_PATH",
  5685. 1685.81 s [opt-env-conf-test] - completer filePath
  5686. 1685.81 s [opt-env-conf-test] ]
  5687. 1685.81 s [opt-env-conf-test]
  5688. 1685.81 s [opt-env-conf-test] -- | A setting for @Path Abs dir@.
  5689. 1685.81 s [opt-env-conf-test] --
  5690. 1685.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
  5691. 1685.81 s [opt-env-conf-test] @@ -480,10 +480,9 @@
  5692. 1685.81 s [opt-env-conf-test] withFrozenCallStack $
  5693. 1685.81 s [opt-env-conf-test] setting $
  5694. 1685.81 s [opt-env-conf-test] builders
  5695. 1685.81 s [opt-env-conf-test] - ++ [ reader str,
  5696. 1685.81 s [opt-env-conf-test] metavar "FILE_PATH",
  5697. 1685.81 s [opt-env-conf-test] completer filePath
  5698. 1685.81 s [opt-env-conf-test] ]
  5699. 1685.81 s [opt-env-conf-test]
  5700. 1685.81 s [opt-env-conf-test] -- | A setting for @Path Abs dir@.
  5701. 1685.81 s [opt-env-conf-test] --
  5702. 1685.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
  5703. 1685.81 s [opt-env-conf-test] @@ -480,10 +480,9 @@
  5704. 1685.81 s [opt-env-conf-test] withFrozenCallStack $
  5705. 1685.81 s [opt-env-conf-test] setting $
  5706. 1685.81 s [opt-env-conf-test] builders
  5707. 1685.81 s [opt-env-conf-test] ++ [ reader str,
  5708. 1685.81 s [opt-env-conf-test] metavar "FILE_PATH",
  5709. 1685.81 s [opt-env-conf-test] - completer filePath
  5710. 1685.81 s [opt-env-conf-test] ]
  5711. 1685.81 s [opt-env-conf-test]
  5712. 1685.81 s [opt-env-conf-test] -- | A setting for @Path Abs dir@.
  5713. 1685.81 s [opt-env-conf-test] --
  5714. 1685.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
  5715. 1685.81 s [opt-env-conf-test] @@ -826,7 +826,6 @@
  5716. 1685.81 s [opt-env-conf-test] long "config-file",
  5717. 1685.81 s [opt-env-conf-test] env "CONFIG_FILE",
  5718. 1685.81 s [opt-env-conf-test] help "Path to the configuration file",
  5719. 1685.81 s [opt-env-conf-test] - completer (filePathWithExtensions [".yaml", ".yml"])
  5720. 1685.81 s [opt-env-conf-test] ]
  5721. 1685.81 s [opt-env-conf-test]
  5722. 1685.81 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  5723. 1685.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
  5724. 1685.81 s [opt-env-conf-test] @@ -826,7 +826,6 @@
  5725. 1685.81 s [opt-env-conf-test] long "config-file",
  5726. 1685.81 s [opt-env-conf-test] env "CONFIG_FILE",
  5727. 1685.81 s [opt-env-conf-test] help "Path to the configuration file",
  5728. 1685.81 s [opt-env-conf-test] - completer (filePathWithExtensions [".yaml", ".yml"])
  5729. 1685.81 s [opt-env-conf-test] ]
  5730. 1685.81 s [opt-env-conf-test]
  5731. 1685.81 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  5732. 1688.74 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
  5733. 1688.74 s [opt-env-conf-test] @@ -822,12 +822,7 @@
  5734. 1688.74 s [opt-env-conf-test] configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
  5735. 1688.74 s [opt-env-conf-test] configuredConfigFile =
  5736. 1688.74 s [opt-env-conf-test] filePathSetting
  5737. 1688.74 s [opt-env-conf-test] - [ option,
  5738. 1688.74 s [opt-env-conf-test] - long "config-file",
  5739. 1688.74 s [opt-env-conf-test] - env "CONFIG_FILE",
  5740. 1688.74 s [opt-env-conf-test] - help "Path to the configuration file",
  5741. 1688.74 s [opt-env-conf-test] - completer (filePathWithExtensions [".yaml", ".yml"])
  5742. 1688.74 s [opt-env-conf-test] ]
  5743. 1688.74 s [opt-env-conf-test]
  5744. 1688.74 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  5745. 1688.74 s [opt-env-conf-test] --
  5746. 1688.74 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
  5747. 1688.74 s [opt-env-conf-test] @@ -822,12 +822,11 @@
  5748. 1688.74 s [opt-env-conf-test] configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
  5749. 1688.75 s [opt-env-conf-test] configuredConfigFile =
  5750. 1688.75 s [opt-env-conf-test] filePathSetting
  5751. 1688.75 s [opt-env-conf-test] [ option,
  5752. 1688.75 s [opt-env-conf-test] long "config-file",
  5753. 1688.75 s [opt-env-conf-test] env "CONFIG_FILE",
  5754. 1688.75 s [opt-env-conf-test] help "Path to the configuration file",
  5755. 1688.75 s [opt-env-conf-test] - completer (filePathWithExtensions [".yaml", ".yml"])
  5756. 1688.75 s [opt-env-conf-test] ]
  5757. 1688.75 s [opt-env-conf-test]
  5758. 1688.75 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  5759. 1688.75 s [opt-env-conf-test] --
  5760. 1688.75 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:774:47-68
  5761. 1688.75 s [opt-env-conf-test] @@ -771,7 +771,7 @@
  5762. 1688.75 s [opt-env-conf-test] combineMaybeObjects :: Maybe JSON.Object -> Maybe JSON.Object -> Maybe JSON.Object
  5763. 1688.75 s [opt-env-conf-test] combineMaybeObjects Nothing mo = mo
  5764. 1688.75 s [opt-env-conf-test] combineMaybeObjects mo Nothing = mo
  5765. 1688.75 s [opt-env-conf-test] - combineMaybeObjects (Just o1) (Just o2) = Just (combiner o1 o2)
  5766. 1688.75 s [opt-env-conf-test] + combineMaybeObjects (Just o1) (Just o2) = Nothing
  5767. 1688.75 s [opt-env-conf-test]
  5768. 1688.75 s [opt-env-conf-test] combineConfigObjects :: JSON.Object -> JSON.Object -> JSON.Object
  5769. 1688.75 s [opt-env-conf-test] combineConfigObjects = KM.unionWith combineValues
  5770. 1688.75 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
  5771. 1688.75 s [opt-env-conf-test] @@ -497,10 +497,7 @@
  5772. 1688.75 s [opt-env-conf-test] withFrozenCallStack $
  5773. 1688.75 s [opt-env-conf-test] setting $
  5774. 1688.75 s [opt-env-conf-test] builders
  5775. 1688.75 s [opt-env-conf-test] - ++ [ reader str,
  5776. 1688.75 s [opt-env-conf-test] - metavar "DIRECTORY_PATH",
  5777. 1688.75 s [opt-env-conf-test] - completer directoryPath
  5778. 1688.75 s [opt-env-conf-test] ]
  5779. 1688.75 s [opt-env-conf-test]
  5780. 1688.75 s [opt-env-conf-test] -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
  5781. 1688.75 s [opt-env-conf-test] --
  5782. 1688.75 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
  5783. 1688.75 s [opt-env-conf-test] @@ -497,10 +497,9 @@
  5784. 1688.75 s [opt-env-conf-test] withFrozenCallStack $
  5785. 1688.75 s [opt-env-conf-test] setting $
  5786. 1688.75 s [opt-env-conf-test] builders
  5787. 1688.75 s [opt-env-conf-test] - ++ [ reader str,
  5788. 1688.75 s [opt-env-conf-test] metavar "DIRECTORY_PATH",
  5789. 1688.75 s [opt-env-conf-test] completer directoryPath
  5790. 1688.75 s [opt-env-conf-test] ]
  5791. 1688.75 s [opt-env-conf-test]
  5792. 1688.75 s [opt-env-conf-test] -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
  5793. 1688.75 s [opt-env-conf-test] --
  5794. 1688.75 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
  5795. 1688.75 s [opt-env-conf-test] @@ -497,10 +497,9 @@
  5796. 1688.75 s [opt-env-conf-test] withFrozenCallStack $
  5797. 1688.75 s [opt-env-conf-test] setting $
  5798. 1688.75 s [opt-env-conf-test] builders
  5799. 1688.75 s [opt-env-conf-test] ++ [ reader str,
  5800. 1688.75 s [opt-env-conf-test] metavar "DIRECTORY_PATH",
  5801. 1688.75 s [opt-env-conf-test] - completer directoryPath
  5802. 1688.75 s [opt-env-conf-test] ]
  5803. 1688.75 s [opt-env-conf-test]
  5804. 1688.75 s [opt-env-conf-test] -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
  5805. 1688.76 s [opt-env-conf-test] --
  5806. 1688.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
  5807. 1688.76 s [opt-env-conf-test] @@ -785,11 +785,10 @@
  5808. 1688.76 s [opt-env-conf-test] xdgYamlConfigFile subdir =
  5809. 1688.76 s [opt-env-conf-test] mapIO
  5810. 1688.76 s [opt-env-conf-test] ( \mXdgDir -> do
  5811. 1688.76 s [opt-env-conf-test] xdgDir <- case mXdgDir of
  5812. 1688.76 s [opt-env-conf-test] - Just d -> resolveDir' d
  5813. 1688.76 s [opt-env-conf-test] Nothing -> do
  5814. 1688.76 s [opt-env-conf-test] home <- getHomeDir
  5815. 1688.76 s [opt-env-conf-test] resolveDir home ".config"
  5816. 1688.76 s [opt-env-conf-test] configDir <- resolveDir xdgDir subdir
  5817. 1688.76 s [opt-env-conf-test] resolveFile configDir "config.yaml"
  5818. 1688.76 s [opt-env-conf-test] )
  5819. 1688.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
  5820. 1688.76 s [opt-env-conf-test] @@ -785,11 +785,8 @@
  5821. 1688.76 s [opt-env-conf-test] xdgYamlConfigFile subdir =
  5822. 1688.76 s [opt-env-conf-test] mapIO
  5823. 1688.76 s [opt-env-conf-test] ( \mXdgDir -> do
  5824. 1688.76 s [opt-env-conf-test] xdgDir <- case mXdgDir of
  5825. 1688.76 s [opt-env-conf-test] Just d -> resolveDir' d
  5826. 1688.76 s [opt-env-conf-test] - Nothing -> do
  5827. 1688.76 s [opt-env-conf-test] - home <- getHomeDir
  5828. 1688.76 s [opt-env-conf-test] - resolveDir home ".config"
  5829. 1688.76 s [opt-env-conf-test] configDir <- resolveDir xdgDir subdir
  5830. 1688.76 s [opt-env-conf-test] resolveFile configDir "config.yaml"
  5831. 1688.76 s [opt-env-conf-test] )
  5832. 1688.76 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
  5833. 1688.76 s [opt-env-conf-test] @@ -822,12 +822,11 @@
  5834. 1688.76 s [opt-env-conf-test] configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
  5835. 1688.76 s [opt-env-conf-test] configuredConfigFile =
  5836. 1688.76 s [opt-env-conf-test] filePathSetting
  5837. 1688.76 s [opt-env-conf-test] - [ option,
  5838. 1688.76 s [opt-env-conf-test] long "config-file",
  5839. 1688.76 s [opt-env-conf-test] env "CONFIG_FILE",
  5840. 1688.76 s [opt-env-conf-test] help "Path to the configuration file",
  5841. 1688.76 s [opt-env-conf-test] completer (filePathWithExtensions [".yaml", ".yml"])
  5842. 1688.76 s [opt-env-conf-test] ]
  5843. 1688.76 s [opt-env-conf-test]
  5844. 1688.76 s [opt-env-conf-test] -- | Define a setting for a 'Bool' with a given default value.
  5845. 1688.76 s [opt-env-conf-test] --
  5846. 1688.76 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
  5847. 1688.76 s [opt-env-conf-test] @@ -796,12 +796,7 @@
  5848. 1688.76 s [opt-env-conf-test] $ optional
  5849. 1688.76 s [opt-env-conf-test] $ withFrozenCallStack
  5850. 1688.76 s [opt-env-conf-test] $ setting
  5851. 1688.76 s [opt-env-conf-test] - [ help "Path to the XDG configuration directory",
  5852. 1688.76 s [opt-env-conf-test] - reader str,
  5853. 1688.76 s [opt-env-conf-test] - env "XDG_CONFIG_HOME",
  5854. 1688.76 s [opt-env-conf-test] - metavar "DIRECTORY",
  5855. 1688.76 s [opt-env-conf-test] - hidden
  5856. 1688.76 s [opt-env-conf-test] ]
  5857. 1688.76 s [opt-env-conf-test]
  5858. 1688.76 s [opt-env-conf-test] -- | Load a config file that is reconfigurable with an option and environment
  5859. 1688.76 s [opt-env-conf-test] -- variable but @config.yaml@ in the local working directory by default.
  5860. 1688.76 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
  5861. 1688.76 s [opt-env-conf-test] @@ -796,12 +796,11 @@
  5862. 1688.76 s [opt-env-conf-test] $ optional
  5863. 1688.76 s [opt-env-conf-test] $ withFrozenCallStack
  5864. 1688.76 s [opt-env-conf-test] $ setting
  5865. 1688.76 s [opt-env-conf-test] - [ help "Path to the XDG configuration directory",
  5866. 1688.76 s [opt-env-conf-test] reader str,
  5867. 1688.76 s [opt-env-conf-test] env "XDG_CONFIG_HOME",
  5868. 1688.76 s [opt-env-conf-test] metavar "DIRECTORY",
  5869. 1688.76 s [opt-env-conf-test] hidden
  5870. 1688.76 s [opt-env-conf-test] ]
  5871. 1688.76 s [opt-env-conf-test]
  5872. 1688.76 s [opt-env-conf-test] -- | Load a config file that is reconfigurable with an option and environment
  5873. 1688.76 s [opt-env-conf-test] -- variable but @config.yaml@ in the local working directory by default.
  5874. 1688.76 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
  5875. 1688.76 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5876. 1688.76 s [opt-env-conf-test] where
  5877. 1688.76 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5878. 1688.76 s [opt-env-conf-test] go d = \case
  5879. 1688.76 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5880. 1688.76 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 0) $ showString "Pure _"
  5881. 1688.76 s [opt-env-conf-test] ParserAp pf pa ->
  5882. 1688.76 s [opt-env-conf-test] showParen (d > 10) $
  5883. 1688.76 s [opt-env-conf-test] showString "Ap "
  5884. 1688.76 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
  5885. 1688.76 s [opt-env-conf-test] @@ -796,12 +796,11 @@
  5886. 1688.76 s [opt-env-conf-test] $ optional
  5887. 1688.76 s [opt-env-conf-test] $ withFrozenCallStack
  5888. 1688.76 s [opt-env-conf-test] $ setting
  5889. 1688.76 s [opt-env-conf-test] [ help "Path to the XDG configuration directory",
  5890. 1688.76 s [opt-env-conf-test] reader str,
  5891. 1688.76 s [opt-env-conf-test] env "XDG_CONFIG_HOME",
  5892. 1688.76 s [opt-env-conf-test] metavar "DIRECTORY",
  5893. 1688.76 s [opt-env-conf-test] - hidden
  5894. 1688.76 s [opt-env-conf-test] ]
  5895. 1688.76 s [opt-env-conf-test]
  5896. 1688.76 s [opt-env-conf-test] -- | Load a config file that is reconfigurable with an option and environment
  5897. 1688.76 s [opt-env-conf-test] -- variable but @config.yaml@ in the local working directory by default.
  5898. 1688.76 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
  5899. 1688.76 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5900. 1688.76 s [opt-env-conf-test] where
  5901. 1688.76 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5902. 1688.76 s [opt-env-conf-test] go d = \case
  5903. 1688.77 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5904. 1688.77 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 1) $ showString "Pure _"
  5905. 1688.77 s [opt-env-conf-test] ParserAp pf pa ->
  5906. 1688.77 s [opt-env-conf-test] showParen (d > 10) $
  5907. 1688.77 s [opt-env-conf-test] showString "Ap "
  5908. 1688.77 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
  5909. 1688.77 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5910. 1688.77 s [opt-env-conf-test] where
  5911. 1688.77 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5912. 1688.77 s [opt-env-conf-test] go d = \case
  5913. 1688.77 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5914. 1688.77 s [opt-env-conf-test] + ParserPure _ -> showParen (d > -10) $ showString "Pure _"
  5915. 1688.77 s [opt-env-conf-test] ParserAp pf pa ->
  5916. 1688.77 s [opt-env-conf-test] showParen (d > 10) $
  5917. 1688.77 s [opt-env-conf-test] showString "Ap "
  5918. 1688.77 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:304:34-40
  5919. 1688.77 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5920. 1688.77 s [opt-env-conf-test] where
  5921. 1688.77 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5922. 1688.77 s [opt-env-conf-test] go d = \case
  5923. 1688.77 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5924. 1688.77 s [opt-env-conf-test] + ParserPure _ -> showParen (d < 10) $ showString "Pure _"
  5925. 1688.77 s [opt-env-conf-test] ParserAp pf pa ->
  5926. 1688.77 s [opt-env-conf-test] showParen (d > 10) $
  5927. 1688.77 s [opt-env-conf-test] showString "Ap "
  5928. 1688.77 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:304:34-40
  5929. 1688.77 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5930. 1688.77 s [opt-env-conf-test] where
  5931. 1688.77 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5932. 1688.77 s [opt-env-conf-test] go d = \case
  5933. 1688.77 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5934. 1688.77 s [opt-env-conf-test] + ParserPure _ -> showParen (d <= 10) $ showString "Pure _"
  5935. 1688.77 s [opt-env-conf-test] ParserAp pf pa ->
  5936. 1688.77 s [opt-env-conf-test] showParen (d > 10) $
  5937. 1688.77 s [opt-env-conf-test] showString "Ap "
  5938. 1688.77 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:304:34-40
  5939. 1688.77 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5940. 1688.77 s [opt-env-conf-test] where
  5941. 1688.77 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5942. 1688.77 s [opt-env-conf-test] go d = \case
  5943. 1688.77 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5944. 1688.77 s [opt-env-conf-test] + ParserPure _ -> showParen (d >= 10) $ showString "Pure _"
  5945. 1688.77 s [opt-env-conf-test] ParserAp pf pa ->
  5946. 1688.77 s [opt-env-conf-test] showParen (d > 10) $
  5947. 1688.77 s [opt-env-conf-test] showString "Ap "
  5948. 1688.77 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
  5949. 1688.77 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5950. 1700.21 s [opt-env-conf-test] where
  5951. 1700.21 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5952. 1700.24 s [opt-env-conf-test] go d = \case
  5953. 1700.24 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5954. 1700.24 s [opt-env-conf-test] + ParserPure _ -> showParen (True) $ showString "Pure _"
  5955. 1700.24 s [opt-env-conf-test] ParserAp pf pa ->
  5956. 1700.24 s [opt-env-conf-test] showParen (d > 10) $
  5957. 1700.24 s [opt-env-conf-test] showString "Ap "
  5958. 1700.24 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
  5959. 1700.24 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5960. 1700.24 s [opt-env-conf-test] where
  5961. 1700.24 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5962. 1700.24 s [opt-env-conf-test] go d = \case
  5963. 1700.24 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5964. 1700.24 s [opt-env-conf-test] + ParserPure _ -> showParen (False) $ showString "Pure _"
  5965. 1700.24 s [opt-env-conf-test] ParserAp pf pa ->
  5966. 1700.24 s [opt-env-conf-test] showParen (d > 10) $
  5967. 1700.24 s [opt-env-conf-test] showString "Ap "
  5968. 1700.24 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:304:34-40
  5969. 1700.25 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5970. 1700.25 s [opt-env-conf-test] where
  5971. 1700.25 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5972. 1700.25 s [opt-env-conf-test] go d = \case
  5973. 1700.25 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5974. 1700.25 s [opt-env-conf-test] + ParserPure _ -> showParen (not (d > 10)) $ showString "Pure _"
  5975. 1700.25 s [opt-env-conf-test] ParserAp pf pa ->
  5976. 1700.25 s [opt-env-conf-test] showParen (d > 10) $
  5977. 1700.25 s [opt-env-conf-test] showString "Ap "
  5978. 1700.25 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
  5979. 1700.25 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5980. 1700.25 s [opt-env-conf-test] where
  5981. 1700.25 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5982. 1700.25 s [opt-env-conf-test] go d = \case
  5983. 1700.25 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5984. 1700.25 s [opt-env-conf-test] + ParserPure _ -> showParen True $ showString "Pure _"
  5985. 1700.25 s [opt-env-conf-test] ParserAp pf pa ->
  5986. 1700.25 s [opt-env-conf-test] showParen (d > 10) $
  5987. 1700.25 s [opt-env-conf-test] showString "Ap "
  5988. 1700.25 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
  5989. 1700.25 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  5990. 1700.25 s [opt-env-conf-test] where
  5991. 1700.25 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  5992. 1700.25 s [opt-env-conf-test] go d = \case
  5993. 1700.25 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  5994. 1700.25 s [opt-env-conf-test] + ParserPure _ -> showParen False $ showString "Pure _"
  5995. 1700.25 s [opt-env-conf-test] ParserAp pf pa ->
  5996. 1700.25 s [opt-env-conf-test] showParen (d > 10) $
  5997. 1700.25 s [opt-env-conf-test] showString "Ap "
  5998. 1700.25 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:304:33-41
  5999. 1700.25 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  6000. 1700.25 s [opt-env-conf-test] where
  6001. 1700.25 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  6002. 1700.25 s [opt-env-conf-test] go d = \case
  6003. 1700.26 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6004. 1700.26 s [opt-env-conf-test] + ParserPure _ -> showParen not ((d > 10)) $ showString "Pure _"
  6005. 1700.26 s [opt-env-conf-test] ParserAp pf pa ->
  6006. 1700.26 s [opt-env-conf-test] showParen (d > 10) $
  6007. 1700.26 s [opt-env-conf-test] showString "Ap "
  6008. 1700.26 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
  6009. 1700.26 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6010. 1700.26 s [opt-env-conf-test] go d = \case
  6011. 1700.26 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6012. 1700.26 s [opt-env-conf-test] ParserAp pf pa ->
  6013. 1700.26 s [opt-env-conf-test] - showParen (d > 10) $
  6014. 1700.26 s [opt-env-conf-test] + showParen (d > 0) $
  6015. 1700.26 s [opt-env-conf-test] showString "Ap "
  6016. 1700.26 s [opt-env-conf-test] . go 11 pf
  6017. 1700.26 s [opt-env-conf-test] . showString " "
  6018. 1700.26 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
  6019. 1700.26 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6020. 1700.26 s [opt-env-conf-test] go d = \case
  6021. 1700.26 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6022. 1700.26 s [opt-env-conf-test] ParserAp pf pa ->
  6023. 1700.26 s [opt-env-conf-test] - showParen (d > 10) $
  6024. 1700.26 s [opt-env-conf-test] + showParen (d > 1) $
  6025. 1700.26 s [opt-env-conf-test] showString "Ap "
  6026. 1700.26 s [opt-env-conf-test] . go 11 pf
  6027. 1700.26 s [opt-env-conf-test] . showString " "
  6028. 1700.26 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
  6029. 1700.26 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6030. 1700.26 s [opt-env-conf-test] go d = \case
  6031. 1700.26 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6032. 1700.26 s [opt-env-conf-test] ParserAp pf pa ->
  6033. 1700.26 s [opt-env-conf-test] - showParen (d > 10) $
  6034. 1700.26 s [opt-env-conf-test] + showParen (d > -10) $
  6035. 1700.26 s [opt-env-conf-test] showString "Ap "
  6036. 1700.26 s [opt-env-conf-test] . go 11 pf
  6037. 1700.26 s [opt-env-conf-test] . showString " "
  6038. 1700.26 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:306:20-26
  6039. 1700.26 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6040. 1700.26 s [opt-env-conf-test] go d = \case
  6041. 1700.26 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6042. 1700.26 s [opt-env-conf-test] ParserAp pf pa ->
  6043. 1700.26 s [opt-env-conf-test] - showParen (d > 10) $
  6044. 1700.26 s [opt-env-conf-test] + showParen (d < 10) $
  6045. 1700.26 s [opt-env-conf-test] showString "Ap "
  6046. 1700.26 s [opt-env-conf-test] . go 11 pf
  6047. 1700.27 s [opt-env-conf-test] . showString " "
  6048. 1700.27 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:306:20-26
  6049. 1700.27 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6050. 1700.27 s [opt-env-conf-test] go d = \case
  6051. 1700.27 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6052. 1700.27 s [opt-env-conf-test] ParserAp pf pa ->
  6053. 1700.27 s [opt-env-conf-test] - showParen (d > 10) $
  6054. 1700.27 s [opt-env-conf-test] + showParen (d <= 10) $
  6055. 1700.27 s [opt-env-conf-test] showString "Ap "
  6056. 1700.27 s [opt-env-conf-test] . go 11 pf
  6057. 1700.27 s [opt-env-conf-test] . showString " "
  6058. 1700.27 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:306:20-26
  6059. 1700.27 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6060. 1700.27 s [opt-env-conf-test] go d = \case
  6061. 1700.27 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6062. 1700.27 s [opt-env-conf-test] ParserAp pf pa ->
  6063. 1700.27 s [opt-env-conf-test] - showParen (d > 10) $
  6064. 1700.27 s [opt-env-conf-test] + showParen (d >= 10) $
  6065. 1700.27 s [opt-env-conf-test] showString "Ap "
  6066. 1700.27 s [opt-env-conf-test] . go 11 pf
  6067. 1700.27 s [opt-env-conf-test] . showString " "
  6068. 1700.27 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
  6069. 1700.27 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6070. 1700.27 s [opt-env-conf-test] go d = \case
  6071. 1700.27 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6072. 1700.27 s [opt-env-conf-test] ParserAp pf pa ->
  6073. 1700.27 s [opt-env-conf-test] - showParen (d > 10) $
  6074. 1700.27 s [opt-env-conf-test] + showParen (True) $
  6075. 1700.27 s [opt-env-conf-test] showString "Ap "
  6076. 1700.27 s [opt-env-conf-test] . go 11 pf
  6077. 1700.27 s [opt-env-conf-test] . showString " "
  6078. 1700.27 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
  6079. 1700.27 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6080. 1700.27 s [opt-env-conf-test] go d = \case
  6081. 1700.27 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6082. 1700.27 s [opt-env-conf-test] ParserAp pf pa ->
  6083. 1700.27 s [opt-env-conf-test] - showParen (d > 10) $
  6084. 1700.27 s [opt-env-conf-test] + showParen (False) $
  6085. 1700.27 s [opt-env-conf-test] showString "Ap "
  6086. 1700.27 s [opt-env-conf-test] . go 11 pf
  6087. 1700.27 s [opt-env-conf-test] . showString " "
  6088. 1700.27 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:306:20-26
  6089. 1700.28 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6090. 1700.28 s [opt-env-conf-test] go d = \case
  6091. 1700.28 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6092. 1700.28 s [opt-env-conf-test] ParserAp pf pa ->
  6093. 1700.28 s [opt-env-conf-test] - showParen (d > 10) $
  6094. 1700.28 s [opt-env-conf-test] + showParen (not (d > 10)) $
  6095. 1700.28 s [opt-env-conf-test] showString "Ap "
  6096. 1700.28 s [opt-env-conf-test] . go 11 pf
  6097. 1700.28 s [opt-env-conf-test] . showString " "
  6098. 1700.28 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
  6099. 1700.28 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6100. 1700.28 s [opt-env-conf-test] go d = \case
  6101. 1700.28 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6102. 1700.28 s [opt-env-conf-test] ParserAp pf pa ->
  6103. 1700.28 s [opt-env-conf-test] - showParen (d > 10) $
  6104. 1700.28 s [opt-env-conf-test] + showParen True $
  6105. 1700.28 s [opt-env-conf-test] showString "Ap "
  6106. 1700.28 s [opt-env-conf-test] . go 11 pf
  6107. 1700.28 s [opt-env-conf-test] . showString " "
  6108. 1700.28 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
  6109. 1700.28 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6110. 1700.29 s [opt-env-conf-test] go d = \case
  6111. 1700.29 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6112. 1700.29 s [opt-env-conf-test] ParserAp pf pa ->
  6113. 1700.29 s [opt-env-conf-test] - showParen (d > 10) $
  6114. 1700.29 s [opt-env-conf-test] + showParen False $
  6115. 1700.29 s [opt-env-conf-test] showString "Ap "
  6116. 1700.29 s [opt-env-conf-test] . go 11 pf
  6117. 1700.29 s [opt-env-conf-test] . showString " "
  6118. 1700.29 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:306:19-27
  6119. 1700.29 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  6120. 1700.29 s [opt-env-conf-test] go d = \case
  6121. 1700.29 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  6122. 1700.29 s [opt-env-conf-test] ParserAp pf pa ->
  6123. 1700.29 s [opt-env-conf-test] - showParen (d > 10) $
  6124. 1700.29 s [opt-env-conf-test] + showParen not ((d > 10)) $
  6125. 1700.29 s [opt-env-conf-test] showString "Ap "
  6126. 1700.29 s [opt-env-conf-test] . go 11 pf
  6127. 1700.29 s [opt-env-conf-test] . showString " "
  6128. 1700.29 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
  6129. 1700.29 s [opt-env-conf-test] @@ -305,7 +305,7 @@
  6130. 1700.29 s [opt-env-conf-test] ParserAp pf pa ->
  6131. 1701.94 s [opt-env-conf-test] showParen (d > 10) $
  6132. 1701.94 s [opt-env-conf-test] showString "Ap "
  6133. 1701.94 s [opt-env-conf-test] - . go 11 pf
  6134. 1701.94 s [opt-env-conf-test] + . go 1 pf
  6135. 1701.95 s [opt-env-conf-test] . showString " "
  6136. 1701.95 s [opt-env-conf-test] . go 11 pa
  6137. 1701.95 s [opt-env-conf-test] ParserSelect pe pf ->
  6138. 1701.95 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
  6139. 1701.95 s [opt-env-conf-test] @@ -305,7 +305,7 @@
  6140. 1701.95 s [opt-env-conf-test] ParserAp pf pa ->
  6141. 1701.95 s [opt-env-conf-test] showParen (d > 10) $
  6142. 1701.95 s [opt-env-conf-test] showString "Ap "
  6143. 1701.95 s [opt-env-conf-test] - . go 11 pf
  6144. 1701.95 s [opt-env-conf-test] + . go 0 pf
  6145. 1701.95 s [opt-env-conf-test] . showString " "
  6146. 1701.95 s [opt-env-conf-test] . go 11 pa
  6147. 1701.95 s [opt-env-conf-test] ParserSelect pe pf ->
  6148. 1701.95 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
  6149. 1701.95 s [opt-env-conf-test] @@ -305,7 +305,7 @@
  6150. 1701.95 s [opt-env-conf-test] ParserAp pf pa ->
  6151. 1701.95 s [opt-env-conf-test] showParen (d > 10) $
  6152. 1701.95 s [opt-env-conf-test] showString "Ap "
  6153. 1701.95 s [opt-env-conf-test] - . go 11 pf
  6154. 1701.95 s [opt-env-conf-test] + . go -11 pf
  6155. 1701.95 s [opt-env-conf-test] . showString " "
  6156. 1701.95 s [opt-env-conf-test] . go 11 pa
  6157. 1701.95 s [opt-env-conf-test] ParserSelect pe pf ->
  6158. 1701.95 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
  6159. 1701.95 s [opt-env-conf-test] @@ -307,7 +307,7 @@
  6160. 1701.95 s [opt-env-conf-test] showString "Ap "
  6161. 1701.95 s [opt-env-conf-test] . go 11 pf
  6162. 1701.95 s [opt-env-conf-test] . showString " "
  6163. 1701.95 s [opt-env-conf-test] - . go 11 pa
  6164. 1701.95 s [opt-env-conf-test] + . go 0 pa
  6165. 1701.95 s [opt-env-conf-test] ParserSelect pe pf ->
  6166. 1701.95 s [opt-env-conf-test] showParen (d > 10) $
  6167. 1701.95 s [opt-env-conf-test] showString "Select "
  6168. 1701.95 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
  6169. 1701.95 s [opt-env-conf-test] @@ -307,7 +307,7 @@
  6170. 1701.96 s [opt-env-conf-test] showString "Ap "
  6171. 1701.96 s [opt-env-conf-test] . go 11 pf
  6172. 1701.96 s [opt-env-conf-test] . showString " "
  6173. 1701.96 s [opt-env-conf-test] - . go 11 pa
  6174. 1701.96 s [opt-env-conf-test] + . go 1 pa
  6175. 1701.96 s [opt-env-conf-test] ParserSelect pe pf ->
  6176. 1701.96 s [opt-env-conf-test] showParen (d > 10) $
  6177. 1701.96 s [opt-env-conf-test] showString "Select "
  6178. 1701.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
  6179. 1701.96 s [opt-env-conf-test] @@ -307,7 +307,7 @@
  6180. 1701.96 s [opt-env-conf-test] showString "Ap "
  6181. 1701.96 s [opt-env-conf-test] . go 11 pf
  6182. 1701.96 s [opt-env-conf-test] . showString " "
  6183. 1701.96 s [opt-env-conf-test] - . go 11 pa
  6184. 1701.96 s [opt-env-conf-test] + . go -11 pa
  6185. 1701.96 s [opt-env-conf-test] ParserSelect pe pf ->
  6186. 1701.96 s [opt-env-conf-test] showParen (d > 10) $
  6187. 1701.96 s [opt-env-conf-test] showString "Select "
  6188. 1701.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
  6189. 1701.96 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6190. 1701.96 s [opt-env-conf-test] . showString " "
  6191. 1701.96 s [opt-env-conf-test] . go 11 pa
  6192. 1701.96 s [opt-env-conf-test] ParserSelect pe pf ->
  6193. 1701.96 s [opt-env-conf-test] - showParen (d > 10) $
  6194. 1701.96 s [opt-env-conf-test] + showParen (d > 0) $
  6195. 1701.96 s [opt-env-conf-test] showString "Select "
  6196. 1701.96 s [opt-env-conf-test] . go 11 pe
  6197. 1701.96 s [opt-env-conf-test] . showString " "
  6198. 1701.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
  6199. 1701.96 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6200. 1701.96 s [opt-env-conf-test] . showString " "
  6201. 1701.96 s [opt-env-conf-test] . go 11 pa
  6202. 1701.96 s [opt-env-conf-test] ParserSelect pe pf ->
  6203. 1701.96 s [opt-env-conf-test] - showParen (d > 10) $
  6204. 1701.96 s [opt-env-conf-test] + showParen (d > 1) $
  6205. 1701.96 s [opt-env-conf-test] showString "Select "
  6206. 1701.96 s [opt-env-conf-test] . go 11 pe
  6207. 1701.96 s [opt-env-conf-test] . showString " "
  6208. 1701.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
  6209. 1701.96 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6210. 1701.96 s [opt-env-conf-test] . showString " "
  6211. 1701.96 s [opt-env-conf-test] . go 11 pa
  6212. 1701.96 s [opt-env-conf-test] ParserSelect pe pf ->
  6213. 1701.96 s [opt-env-conf-test] - showParen (d > 10) $
  6214. 1701.97 s [opt-env-conf-test] + showParen (d > -10) $
  6215. 1701.97 s [opt-env-conf-test] showString "Select "
  6216. 1701.97 s [opt-env-conf-test] . go 11 pe
  6217. 1701.97 s [opt-env-conf-test] . showString " "
  6218. 1701.97 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:312:20-26
  6219. 1701.97 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6220. 1701.97 s [opt-env-conf-test] . showString " "
  6221. 1701.97 s [opt-env-conf-test] . go 11 pa
  6222. 1701.97 s [opt-env-conf-test] ParserSelect pe pf ->
  6223. 1701.97 s [opt-env-conf-test] - showParen (d > 10) $
  6224. 1701.97 s [opt-env-conf-test] + showParen (d < 10) $
  6225. 1701.97 s [opt-env-conf-test] showString "Select "
  6226. 1701.97 s [opt-env-conf-test] . go 11 pe
  6227. 1701.97 s [opt-env-conf-test] . showString " "
  6228. 1701.97 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:312:20-26
  6229. 1701.97 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6230. 1701.97 s [opt-env-conf-test] . showString " "
  6231. 1701.97 s [opt-env-conf-test] . go 11 pa
  6232. 1701.97 s [opt-env-conf-test] ParserSelect pe pf ->
  6233. 1701.97 s [opt-env-conf-test] - showParen (d > 10) $
  6234. 1701.97 s [opt-env-conf-test] + showParen (d <= 10) $
  6235. 1701.97 s [opt-env-conf-test] showString "Select "
  6236. 1701.97 s [opt-env-conf-test] . go 11 pe
  6237. 1701.97 s [opt-env-conf-test] . showString " "
  6238. 1701.97 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:312:20-26
  6239. 1701.97 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6240. 1701.97 s [opt-env-conf-test] . showString " "
  6241. 1701.97 s [opt-env-conf-test] . go 11 pa
  6242. 1701.97 s [opt-env-conf-test] ParserSelect pe pf ->
  6243. 1701.97 s [opt-env-conf-test] - showParen (d > 10) $
  6244. 1701.97 s [opt-env-conf-test] + showParen (d >= 10) $
  6245. 1701.97 s [opt-env-conf-test] showString "Select "
  6246. 1701.97 s [opt-env-conf-test] . go 11 pe
  6247. 1701.97 s [opt-env-conf-test] . showString " "
  6248. 1701.97 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:899:34-43
  6249. 1701.97 s [opt-env-conf-test] @@ -896,7 +896,7 @@
  6250. 1701.97 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
  6251. 1701.97 s [opt-env-conf-test] settingReaders = [],
  6252. 1701.97 s [opt-env-conf-test] settingTryArgument = False,
  6253. 1701.97 s [opt-env-conf-test] - settingSwitchValue = Just True,
  6254. 1701.97 s [opt-env-conf-test] + settingSwitchValue = Nothing,
  6255. 1701.97 s [opt-env-conf-test] settingTryOption = False,
  6256. 1701.97 s [opt-env-conf-test] settingEnvVars = Nothing,
  6257. 1701.97 s [opt-env-conf-test] settingConfigVals = Nothing,
  6258. 1701.98 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
  6259. 1701.98 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6260. 1701.98 s [opt-env-conf-test] . showString " "
  6261. 1701.98 s [opt-env-conf-test] . go 11 pa
  6262. 1701.98 s [opt-env-conf-test] ParserSelect pe pf ->
  6263. 1701.98 s [opt-env-conf-test] - showParen (d > 10) $
  6264. 1701.98 s [opt-env-conf-test] + showParen (False) $
  6265. 1701.98 s [opt-env-conf-test] showString "Select "
  6266. 1701.98 s [opt-env-conf-test] . go 11 pe
  6267. 1701.98 s [opt-env-conf-test] . showString " "
  6268. 1701.98 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:312:20-26
  6269. 1701.98 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6270. 1701.98 s [opt-env-conf-test] . showString " "
  6271. 1701.98 s [opt-env-conf-test] . go 11 pa
  6272. 1701.98 s [opt-env-conf-test] ParserSelect pe pf ->
  6273. 1701.98 s [opt-env-conf-test] - showParen (d > 10) $
  6274. 1701.98 s [opt-env-conf-test] + showParen (not (d > 10)) $
  6275. 1701.98 s [opt-env-conf-test] showString "Select "
  6276. 1701.98 s [opt-env-conf-test] . go 11 pe
  6277. 1701.98 s [opt-env-conf-test] . showString " "
  6278. 1701.98 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
  6279. 1701.98 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6280. 1701.98 s [opt-env-conf-test] . showString " "
  6281. 1701.98 s [opt-env-conf-test] . go 11 pa
  6282. 1701.98 s [opt-env-conf-test] ParserSelect pe pf ->
  6283. 1701.98 s [opt-env-conf-test] - showParen (d > 10) $
  6284. 1701.98 s [opt-env-conf-test] + showParen True $
  6285. 1701.98 s [opt-env-conf-test] showString "Select "
  6286. 1701.98 s [opt-env-conf-test] . go 11 pe
  6287. 1701.98 s [opt-env-conf-test] . showString " "
  6288. 1701.98 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
  6289. 1701.98 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6290. 1701.98 s [opt-env-conf-test] . showString " "
  6291. 1701.98 s [opt-env-conf-test] . go 11 pa
  6292. 1701.98 s [opt-env-conf-test] ParserSelect pe pf ->
  6293. 1701.98 s [opt-env-conf-test] - showParen (d > 10) $
  6294. 1701.98 s [opt-env-conf-test] + showParen False $
  6295. 1701.98 s [opt-env-conf-test] showString "Select "
  6296. 1701.98 s [opt-env-conf-test] . go 11 pe
  6297. 1701.98 s [opt-env-conf-test] . showString " "
  6298. 1701.98 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
  6299. 1701.98 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6300. 1701.98 s [opt-env-conf-test] . showString " "
  6301. 1701.98 s [opt-env-conf-test] . go 11 pa
  6302. 1701.98 s [opt-env-conf-test] ParserSelect pe pf ->
  6303. 1701.98 s [opt-env-conf-test] - showParen (d > 10) $
  6304. 1701.98 s [opt-env-conf-test] + showParen (True) $
  6305. 1701.98 s [opt-env-conf-test] showString "Select "
  6306. 1701.98 s [opt-env-conf-test] . go 11 pe
  6307. 1701.98 s [opt-env-conf-test] . showString " "
  6308. 1701.99 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:312:19-27
  6309. 1701.99 s [opt-env-conf-test] @@ -309,7 +309,7 @@
  6310. 1701.99 s [opt-env-conf-test] . showString " "
  6311. 1701.99 s [opt-env-conf-test] . go 11 pa
  6312. 1701.99 s [opt-env-conf-test] ParserSelect pe pf ->
  6313. 1701.99 s [opt-env-conf-test] - showParen (d > 10) $
  6314. 1701.99 s [opt-env-conf-test] + showParen not ((d > 10)) $
  6315. 1701.99 s [opt-env-conf-test] showString "Select "
  6316. 1701.99 s [opt-env-conf-test] . go 11 pe
  6317. 1701.99 s [opt-env-conf-test] . showString " "
  6318. 1701.99 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
  6319. 1701.99 s [opt-env-conf-test] @@ -311,7 +311,7 @@
  6320. 1701.99 s [opt-env-conf-test] ParserSelect pe pf ->
  6321. 1701.99 s [opt-env-conf-test] showParen (d > 10) $
  6322. 1701.99 s [opt-env-conf-test] showString "Select "
  6323. 1701.99 s [opt-env-conf-test] - . go 11 pe
  6324. 1701.99 s [opt-env-conf-test] + . go 0 pe
  6325. 1701.99 s [opt-env-conf-test] . showString " "
  6326. 1701.99 s [opt-env-conf-test] . go 11 pf
  6327. 1701.99 s [opt-env-conf-test] ParserEmpty mLoc ->
  6328. 1701.99 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
  6329. 1701.99 s [opt-env-conf-test] @@ -311,7 +311,7 @@
  6330. 1701.99 s [opt-env-conf-test] ParserSelect pe pf ->
  6331. 1701.99 s [opt-env-conf-test] showParen (d > 10) $
  6332. 1701.99 s [opt-env-conf-test] showString "Select "
  6333. 1709.86 s [opt-env-conf-test] - . go 11 pe
  6334. 1709.86 s [opt-env-conf-test] + . go -11 pe
  6335. 1709.88 s [opt-env-conf-test] . showString " "
  6336. 1709.88 s [opt-env-conf-test] . go 11 pf
  6337. 1709.88 s [opt-env-conf-test] ParserEmpty mLoc ->
  6338. 1709.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
  6339. 1709.89 s [opt-env-conf-test] @@ -311,7 +311,7 @@
  6340. 1709.89 s [opt-env-conf-test] ParserSelect pe pf ->
  6341. 1709.89 s [opt-env-conf-test] showParen (d > 10) $
  6342. 1709.89 s [opt-env-conf-test] showString "Select "
  6343. 1709.89 s [opt-env-conf-test] - . go 11 pe
  6344. 1709.89 s [opt-env-conf-test] + . go 1 pe
  6345. 1709.89 s [opt-env-conf-test] . showString " "
  6346. 1709.89 s [opt-env-conf-test] . go 11 pf
  6347. 1709.89 s [opt-env-conf-test] ParserEmpty mLoc ->
  6348. 1709.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
  6349. 1709.89 s [opt-env-conf-test] @@ -313,7 +313,7 @@
  6350. 1709.89 s [opt-env-conf-test] showString "Select "
  6351. 1709.89 s [opt-env-conf-test] . go 11 pe
  6352. 1709.89 s [opt-env-conf-test] . showString " "
  6353. 1709.89 s [opt-env-conf-test] - . go 11 pf
  6354. 1709.89 s [opt-env-conf-test] + . go 0 pf
  6355. 1709.89 s [opt-env-conf-test] ParserEmpty mLoc ->
  6356. 1709.89 s [opt-env-conf-test] showString "Empty "
  6357. 1709.89 s [opt-env-conf-test] . showsPrec 11 mLoc
  6358. 1709.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
  6359. 1709.89 s [opt-env-conf-test] @@ -313,7 +313,7 @@
  6360. 1709.89 s [opt-env-conf-test] showString "Select "
  6361. 1709.89 s [opt-env-conf-test] . go 11 pe
  6362. 1709.89 s [opt-env-conf-test] . showString " "
  6363. 1709.89 s [opt-env-conf-test] - . go 11 pf
  6364. 1709.89 s [opt-env-conf-test] + . go -11 pf
  6365. 1709.89 s [opt-env-conf-test] ParserEmpty mLoc ->
  6366. 1709.89 s [opt-env-conf-test] showString "Empty "
  6367. 1709.89 s [opt-env-conf-test] . showsPrec 11 mLoc
  6368. 1709.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
  6369. 1709.89 s [opt-env-conf-test] @@ -313,7 +313,7 @@
  6370. 1709.89 s [opt-env-conf-test] showString "Select "
  6371. 1709.89 s [opt-env-conf-test] . go 11 pe
  6372. 1709.89 s [opt-env-conf-test] . showString " "
  6373. 1709.89 s [opt-env-conf-test] - . go 11 pf
  6374. 1709.89 s [opt-env-conf-test] + . go 1 pf
  6375. 1709.89 s [opt-env-conf-test] ParserEmpty mLoc ->
  6376. 1709.89 s [opt-env-conf-test] showString "Empty "
  6377. 1709.89 s [opt-env-conf-test] . showsPrec 11 mLoc
  6378. 1709.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
  6379. 1709.89 s [opt-env-conf-test] @@ -316,7 +316,7 @@
  6380. 1709.89 s [opt-env-conf-test] . go 11 pf
  6381. 1709.89 s [opt-env-conf-test] ParserEmpty mLoc ->
  6382. 1709.89 s [opt-env-conf-test] showString "Empty "
  6383. 1709.89 s [opt-env-conf-test] - . showsPrec 11 mLoc
  6384. 1709.90 s [opt-env-conf-test] + . showsPrec 0 mLoc
  6385. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6386. 1709.90 s [opt-env-conf-test] showParen (d > 10) $
  6387. 1709.90 s [opt-env-conf-test] showString "Alt "
  6388. 1709.90 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
  6389. 1709.90 s [opt-env-conf-test] @@ -316,7 +316,7 @@
  6390. 1709.90 s [opt-env-conf-test] . go 11 pf
  6391. 1709.90 s [opt-env-conf-test] ParserEmpty mLoc ->
  6392. 1709.90 s [opt-env-conf-test] showString "Empty "
  6393. 1709.90 s [opt-env-conf-test] - . showsPrec 11 mLoc
  6394. 1709.90 s [opt-env-conf-test] + . showsPrec -11 mLoc
  6395. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6396. 1709.90 s [opt-env-conf-test] showParen (d > 10) $
  6397. 1709.90 s [opt-env-conf-test] showString "Alt "
  6398. 1709.90 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
  6399. 1709.90 s [opt-env-conf-test] @@ -316,7 +316,7 @@
  6400. 1709.90 s [opt-env-conf-test] . go 11 pf
  6401. 1709.90 s [opt-env-conf-test] ParserEmpty mLoc ->
  6402. 1709.90 s [opt-env-conf-test] showString "Empty "
  6403. 1709.90 s [opt-env-conf-test] - . showsPrec 11 mLoc
  6404. 1709.90 s [opt-env-conf-test] + . showsPrec 1 mLoc
  6405. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6406. 1709.90 s [opt-env-conf-test] showParen (d > 10) $
  6407. 1709.90 s [opt-env-conf-test] showString "Alt "
  6408. 1709.90 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
  6409. 1709.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6410. 1709.90 s [opt-env-conf-test] showString "Empty "
  6411. 1709.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  6412. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6413. 1709.90 s [opt-env-conf-test] - showParen (d > 10) $
  6414. 1709.90 s [opt-env-conf-test] + showParen (d > 1) $
  6415. 1709.90 s [opt-env-conf-test] showString "Alt "
  6416. 1709.90 s [opt-env-conf-test] . go 11 p1
  6417. 1709.90 s [opt-env-conf-test] . showString " "
  6418. 1709.90 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
  6419. 1709.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6420. 1709.90 s [opt-env-conf-test] showString "Empty "
  6421. 1709.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  6422. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6423. 1709.90 s [opt-env-conf-test] - showParen (d > 10) $
  6424. 1709.90 s [opt-env-conf-test] + showParen (d > -10) $
  6425. 1709.90 s [opt-env-conf-test] showString "Alt "
  6426. 1709.90 s [opt-env-conf-test] . go 11 p1
  6427. 1709.90 s [opt-env-conf-test] . showString " "
  6428. 1709.90 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:321:20-26
  6429. 1709.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6430. 1709.90 s [opt-env-conf-test] showString "Empty "
  6431. 1709.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  6432. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6433. 1709.90 s [opt-env-conf-test] - showParen (d > 10) $
  6434. 1709.90 s [opt-env-conf-test] + showParen (d < 10) $
  6435. 1709.90 s [opt-env-conf-test] showString "Alt "
  6436. 1709.90 s [opt-env-conf-test] . go 11 p1
  6437. 1709.90 s [opt-env-conf-test] . showString " "
  6438. 1709.90 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
  6439. 1709.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6440. 1709.90 s [opt-env-conf-test] showString "Empty "
  6441. 1709.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  6442. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6443. 1709.90 s [opt-env-conf-test] - showParen (d > 10) $
  6444. 1709.90 s [opt-env-conf-test] + showParen (d > 0) $
  6445. 1709.90 s [opt-env-conf-test] showString "Alt "
  6446. 1709.90 s [opt-env-conf-test] . go 11 p1
  6447. 1709.90 s [opt-env-conf-test] . showString " "
  6448. 1709.90 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:321:20-26
  6449. 1709.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6450. 1709.90 s [opt-env-conf-test] showString "Empty "
  6451. 1709.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  6452. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6453. 1709.90 s [opt-env-conf-test] - showParen (d > 10) $
  6454. 1709.90 s [opt-env-conf-test] + showParen (d >= 10) $
  6455. 1709.90 s [opt-env-conf-test] showString "Alt "
  6456. 1709.90 s [opt-env-conf-test] . go 11 p1
  6457. 1709.90 s [opt-env-conf-test] . showString " "
  6458. 1709.90 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
  6459. 1709.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6460. 1709.90 s [opt-env-conf-test] showString "Empty "
  6461. 1709.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  6462. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6463. 1709.90 s [opt-env-conf-test] - showParen (d > 10) $
  6464. 1709.90 s [opt-env-conf-test] + showParen (True) $
  6465. 1709.90 s [opt-env-conf-test] showString "Alt "
  6466. 1709.90 s [opt-env-conf-test] . go 11 p1
  6467. 1709.90 s [opt-env-conf-test] . showString " "
  6468. 1709.90 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
  6469. 1709.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6470. 1709.90 s [opt-env-conf-test] showString "Empty "
  6471. 1709.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  6472. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6473. 1709.90 s [opt-env-conf-test] - showParen (d > 10) $
  6474. 1709.90 s [opt-env-conf-test] + showParen (False) $
  6475. 1709.90 s [opt-env-conf-test] showString "Alt "
  6476. 1709.90 s [opt-env-conf-test] . go 11 p1
  6477. 1709.90 s [opt-env-conf-test] . showString " "
  6478. 1709.90 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:321:20-26
  6479. 1709.90 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6480. 1709.90 s [opt-env-conf-test] showString "Empty "
  6481. 1709.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  6482. 1709.90 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6483. 1709.90 s [opt-env-conf-test] - showParen (d > 10) $
  6484. 1709.90 s [opt-env-conf-test] + showParen (not (d > 10)) $
  6485. 1709.90 s [opt-env-conf-test] showString "Alt "
  6486. 1709.91 s [opt-env-conf-test] . go 11 p1
  6487. 1709.91 s [opt-env-conf-test] . showString " "
  6488. 1709.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
  6489. 1709.91 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6490. 1709.91 s [opt-env-conf-test] showString "Empty "
  6491. 1709.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  6492. 1709.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6493. 1709.91 s [opt-env-conf-test] - showParen (d > 10) $
  6494. 1709.91 s [opt-env-conf-test] + showParen True $
  6495. 1709.91 s [opt-env-conf-test] showString "Alt "
  6496. 1709.91 s [opt-env-conf-test] . go 11 p1
  6497. 1709.91 s [opt-env-conf-test] . showString " "
  6498. 1709.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
  6499. 1709.91 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6500. 1709.91 s [opt-env-conf-test] showString "Empty "
  6501. 1709.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  6502. 1709.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6503. 1709.91 s [opt-env-conf-test] - showParen (d > 10) $
  6504. 1709.91 s [opt-env-conf-test] + showParen False $
  6505. 1709.91 s [opt-env-conf-test] showString "Alt "
  6506. 1709.91 s [opt-env-conf-test] . go 11 p1
  6507. 1709.91 s [opt-env-conf-test] . showString " "
  6508. 1709.91 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:321:19-27
  6509. 1709.91 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6510. 1709.91 s [opt-env-conf-test] showString "Empty "
  6511. 1709.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  6512. 1709.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6513. 1709.91 s [opt-env-conf-test] - showParen (d > 10) $
  6514. 1709.91 s [opt-env-conf-test] + showParen not ((d > 10)) $
  6515. 1709.91 s [opt-env-conf-test] showString "Alt "
  6516. 1709.91 s [opt-env-conf-test] . go 11 p1
  6517. 1709.91 s [opt-env-conf-test] . showString " "
  6518. 1709.91 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:321:20-26
  6519. 1709.91 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  6520. 1709.91 s [opt-env-conf-test] showString "Empty "
  6521. 1709.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  6522. 1709.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6523. 1709.91 s [opt-env-conf-test] - showParen (d > 10) $
  6524. 1709.91 s [opt-env-conf-test] + showParen (d <= 10) $
  6525. 1709.91 s [opt-env-conf-test] showString "Alt "
  6526. 1709.91 s [opt-env-conf-test] . go 11 p1
  6527. 1709.91 s [opt-env-conf-test] . showString " "
  6528. 1709.91 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
  6529. 1709.91 s [opt-env-conf-test] @@ -320,7 +320,7 @@
  6530. 1709.91 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6531. 1709.91 s [opt-env-conf-test] showParen (d > 10) $
  6532. 1709.91 s [opt-env-conf-test] showString "Alt "
  6533. 1709.91 s [opt-env-conf-test] - . go 11 p1
  6534. 1709.91 s [opt-env-conf-test] + . go 1 p1
  6535. 1709.91 s [opt-env-conf-test] . showString " "
  6536. 1709.91 s [opt-env-conf-test] . go 11 p2
  6537. 1709.91 s [opt-env-conf-test] ParserMany mLoc p ->
  6538. 1709.91 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
  6539. 1720.97 s [opt-env-conf-test] @@ -320,7 +320,7 @@
  6540. 1720.97 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6541. 1721.00 s [opt-env-conf-test] showParen (d > 10) $
  6542. 1721.00 s [opt-env-conf-test] showString "Alt "
  6543. 1721.00 s [opt-env-conf-test] - . go 11 p1
  6544. 1721.00 s [opt-env-conf-test] + . go -11 p1
  6545. 1721.00 s [opt-env-conf-test] . showString " "
  6546. 1721.00 s [opt-env-conf-test] . go 11 p2
  6547. 1721.00 s [opt-env-conf-test] ParserMany mLoc p ->
  6548. 1721.00 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
  6549. 1721.00 s [opt-env-conf-test] @@ -322,7 +322,7 @@
  6550. 1721.00 s [opt-env-conf-test] showString "Alt "
  6551. 1721.00 s [opt-env-conf-test] . go 11 p1
  6552. 1721.00 s [opt-env-conf-test] . showString " "
  6553. 1721.00 s [opt-env-conf-test] - . go 11 p2
  6554. 1721.00 s [opt-env-conf-test] + . go 0 p2
  6555. 1721.00 s [opt-env-conf-test] ParserMany mLoc p ->
  6556. 1721.00 s [opt-env-conf-test] showParen (d > 10) $
  6557. 1721.01 s [opt-env-conf-test] showString "Many "
  6558. 1721.01 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
  6559. 1721.01 s [opt-env-conf-test] @@ -320,7 +320,7 @@
  6560. 1721.01 s [opt-env-conf-test] ParserAlt p1 p2 ->
  6561. 1721.01 s [opt-env-conf-test] showParen (d > 10) $
  6562. 1721.01 s [opt-env-conf-test] showString "Alt "
  6563. 1721.01 s [opt-env-conf-test] - . go 11 p1
  6564. 1721.01 s [opt-env-conf-test] + . go 0 p1
  6565. 1721.01 s [opt-env-conf-test] . showString " "
  6566. 1721.01 s [opt-env-conf-test] . go 11 p2
  6567. 1721.01 s [opt-env-conf-test] ParserMany mLoc p ->
  6568. 1721.01 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
  6569. 1721.01 s [opt-env-conf-test] @@ -322,7 +322,7 @@
  6570. 1721.01 s [opt-env-conf-test] showString "Alt "
  6571. 1721.01 s [opt-env-conf-test] . go 11 p1
  6572. 1721.01 s [opt-env-conf-test] . showString " "
  6573. 1721.01 s [opt-env-conf-test] - . go 11 p2
  6574. 1721.01 s [opt-env-conf-test] + . go 1 p2
  6575. 1721.01 s [opt-env-conf-test] ParserMany mLoc p ->
  6576. 1721.01 s [opt-env-conf-test] showParen (d > 10) $
  6577. 1721.01 s [opt-env-conf-test] showString "Many "
  6578. 1721.01 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
  6579. 1721.01 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6580. 1721.01 s [opt-env-conf-test] . showString " "
  6581. 1721.01 s [opt-env-conf-test] . go 11 p2
  6582. 1721.01 s [opt-env-conf-test] ParserMany mLoc p ->
  6583. 1721.01 s [opt-env-conf-test] - showParen (d > 10) $
  6584. 1721.01 s [opt-env-conf-test] + showParen (d > 0) $
  6585. 1721.01 s [opt-env-conf-test] showString "Many "
  6586. 1721.01 s [opt-env-conf-test] . showsPrec 11 mLoc
  6587. 1721.01 s [opt-env-conf-test] . showString " "
  6588. 1721.01 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
  6589. 1721.01 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6590. 1721.01 s [opt-env-conf-test] . showString " "
  6591. 1721.01 s [opt-env-conf-test] . go 11 p2
  6592. 1721.01 s [opt-env-conf-test] ParserMany mLoc p ->
  6593. 1721.01 s [opt-env-conf-test] - showParen (d > 10) $
  6594. 1721.01 s [opt-env-conf-test] + showParen (d > 1) $
  6595. 1721.01 s [opt-env-conf-test] showString "Many "
  6596. 1721.01 s [opt-env-conf-test] . showsPrec 11 mLoc
  6597. 1721.01 s [opt-env-conf-test] . showString " "
  6598. 1721.02 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
  6599. 1721.02 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6600. 1721.02 s [opt-env-conf-test] . showString " "
  6601. 1721.02 s [opt-env-conf-test] . go 11 p2
  6602. 1721.02 s [opt-env-conf-test] ParserMany mLoc p ->
  6603. 1721.02 s [opt-env-conf-test] - showParen (d > 10) $
  6604. 1721.02 s [opt-env-conf-test] + showParen (d > -10) $
  6605. 1721.02 s [opt-env-conf-test] showString "Many "
  6606. 1721.02 s [opt-env-conf-test] . showsPrec 11 mLoc
  6607. 1721.02 s [opt-env-conf-test] . showString " "
  6608. 1721.02 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:327:20-26
  6609. 1721.02 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6610. 1721.02 s [opt-env-conf-test] . showString " "
  6611. 1721.02 s [opt-env-conf-test] . go 11 p2
  6612. 1721.02 s [opt-env-conf-test] ParserMany mLoc p ->
  6613. 1721.02 s [opt-env-conf-test] - showParen (d > 10) $
  6614. 1721.02 s [opt-env-conf-test] + showParen (d < 10) $
  6615. 1721.02 s [opt-env-conf-test] showString "Many "
  6616. 1721.02 s [opt-env-conf-test] . showsPrec 11 mLoc
  6617. 1721.02 s [opt-env-conf-test] . showString " "
  6618. 1721.02 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:327:20-26
  6619. 1721.02 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6620. 1721.02 s [opt-env-conf-test] . showString " "
  6621. 1721.02 s [opt-env-conf-test] . go 11 p2
  6622. 1721.02 s [opt-env-conf-test] ParserMany mLoc p ->
  6623. 1721.02 s [opt-env-conf-test] - showParen (d > 10) $
  6624. 1721.02 s [opt-env-conf-test] + showParen (d <= 10) $
  6625. 1721.02 s [opt-env-conf-test] showString "Many "
  6626. 1721.02 s [opt-env-conf-test] . showsPrec 11 mLoc
  6627. 1721.02 s [opt-env-conf-test] . showString " "
  6628. 1721.02 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:327:20-26
  6629. 1721.02 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6630. 1721.02 s [opt-env-conf-test] . showString " "
  6631. 1721.02 s [opt-env-conf-test] . go 11 p2
  6632. 1721.02 s [opt-env-conf-test] ParserMany mLoc p ->
  6633. 1721.02 s [opt-env-conf-test] - showParen (d > 10) $
  6634. 1721.02 s [opt-env-conf-test] + showParen (d >= 10) $
  6635. 1721.02 s [opt-env-conf-test] showString "Many "
  6636. 1721.02 s [opt-env-conf-test] . showsPrec 11 mLoc
  6637. 1721.02 s [opt-env-conf-test] . showString " "
  6638. 1721.02 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
  6639. 1721.02 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6640. 1721.02 s [opt-env-conf-test] . showString " "
  6641. 1721.02 s [opt-env-conf-test] . go 11 p2
  6642. 1721.02 s [opt-env-conf-test] ParserMany mLoc p ->
  6643. 1721.02 s [opt-env-conf-test] - showParen (d > 10) $
  6644. 1721.02 s [opt-env-conf-test] + showParen (True) $
  6645. 1721.02 s [opt-env-conf-test] showString "Many "
  6646. 1721.02 s [opt-env-conf-test] . showsPrec 11 mLoc
  6647. 1721.02 s [opt-env-conf-test] . showString " "
  6648. 1721.03 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
  6649. 1721.03 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6650. 1721.03 s [opt-env-conf-test] . showString " "
  6651. 1721.03 s [opt-env-conf-test] . go 11 p2
  6652. 1721.03 s [opt-env-conf-test] ParserMany mLoc p ->
  6653. 1721.03 s [opt-env-conf-test] - showParen (d > 10) $
  6654. 1721.03 s [opt-env-conf-test] + showParen (False) $
  6655. 1721.03 s [opt-env-conf-test] showString "Many "
  6656. 1721.03 s [opt-env-conf-test] . showsPrec 11 mLoc
  6657. 1721.03 s [opt-env-conf-test] . showString " "
  6658. 1721.03 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:327:20-26
  6659. 1721.03 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6660. 1721.03 s [opt-env-conf-test] . showString " "
  6661. 1721.03 s [opt-env-conf-test] . go 11 p2
  6662. 1721.03 s [opt-env-conf-test] ParserMany mLoc p ->
  6663. 1721.03 s [opt-env-conf-test] - showParen (d > 10) $
  6664. 1721.03 s [opt-env-conf-test] + showParen (not (d > 10)) $
  6665. 1721.03 s [opt-env-conf-test] showString "Many "
  6666. 1721.03 s [opt-env-conf-test] . showsPrec 11 mLoc
  6667. 1721.03 s [opt-env-conf-test] . showString " "
  6668. 1721.03 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
  6669. 1721.03 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6670. 1721.03 s [opt-env-conf-test] . showString " "
  6671. 1721.03 s [opt-env-conf-test] . go 11 p2
  6672. 1721.03 s [opt-env-conf-test] ParserMany mLoc p ->
  6673. 1721.03 s [opt-env-conf-test] - showParen (d > 10) $
  6674. 1721.03 s [opt-env-conf-test] + showParen True $
  6675. 1721.03 s [opt-env-conf-test] showString "Many "
  6676. 1721.03 s [opt-env-conf-test] . showsPrec 11 mLoc
  6677. 1721.03 s [opt-env-conf-test] . showString " "
  6678. 1721.03 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
  6679. 1721.03 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6680. 1721.03 s [opt-env-conf-test] . showString " "
  6681. 1721.03 s [opt-env-conf-test] . go 11 p2
  6682. 1721.03 s [opt-env-conf-test] ParserMany mLoc p ->
  6683. 1721.03 s [opt-env-conf-test] - showParen (d > 10) $
  6684. 1721.03 s [opt-env-conf-test] + showParen False $
  6685. 1721.03 s [opt-env-conf-test] showString "Many "
  6686. 1721.03 s [opt-env-conf-test] . showsPrec 11 mLoc
  6687. 1721.03 s [opt-env-conf-test] . showString " "
  6688. 1721.03 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:327:19-27
  6689. 1721.03 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  6690. 1721.03 s [opt-env-conf-test] . showString " "
  6691. 1721.03 s [opt-env-conf-test] . go 11 p2
  6692. 1721.03 s [opt-env-conf-test] ParserMany mLoc p ->
  6693. 1721.03 s [opt-env-conf-test] - showParen (d > 10) $
  6694. 1721.03 s [opt-env-conf-test] + showParen not ((d > 10)) $
  6695. 1721.03 s [opt-env-conf-test] showString "Many "
  6696. 1721.03 s [opt-env-conf-test] . showsPrec 11 mLoc
  6697. 1721.03 s [opt-env-conf-test] . showString " "
  6698. 1721.03 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
  6699. 1721.03 s [opt-env-conf-test] @@ -326,7 +326,7 @@
  6700. 1721.03 s [opt-env-conf-test] ParserMany mLoc p ->
  6701. 1721.03 s [opt-env-conf-test] showParen (d > 10) $
  6702. 1721.03 s [opt-env-conf-test] showString "Many "
  6703. 1721.03 s [opt-env-conf-test] - . showsPrec 11 mLoc
  6704. 1721.03 s [opt-env-conf-test] + . showsPrec 0 mLoc
  6705. 1721.03 s [opt-env-conf-test] . showString " "
  6706. 1721.03 s [opt-env-conf-test] . go 11 p
  6707. 1721.03 s [opt-env-conf-test] ParserSome mLoc p ->
  6708. 1721.03 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
  6709. 1721.03 s [opt-env-conf-test] @@ -326,7 +326,7 @@
  6710. 1721.03 s [opt-env-conf-test] ParserMany mLoc p ->
  6711. 1721.03 s [opt-env-conf-test] showParen (d > 10) $
  6712. 1721.03 s [opt-env-conf-test] showString "Many "
  6713. 1721.03 s [opt-env-conf-test] - . showsPrec 11 mLoc
  6714. 1721.03 s [opt-env-conf-test] + . showsPrec 1 mLoc
  6715. 1721.03 s [opt-env-conf-test] . showString " "
  6716. 1721.03 s [opt-env-conf-test] . go 11 p
  6717. 1721.03 s [opt-env-conf-test] ParserSome mLoc p ->
  6718. 1721.03 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
  6719. 1721.03 s [opt-env-conf-test] @@ -326,7 +326,7 @@
  6720. 1721.03 s [opt-env-conf-test] ParserMany mLoc p ->
  6721. 1721.03 s [opt-env-conf-test] showParen (d > 10) $
  6722. 1721.03 s [opt-env-conf-test] showString "Many "
  6723. 1721.03 s [opt-env-conf-test] - . showsPrec 11 mLoc
  6724. 1721.03 s [opt-env-conf-test] + . showsPrec -11 mLoc
  6725. 1721.03 s [opt-env-conf-test] . showString " "
  6726. 1721.03 s [opt-env-conf-test] . go 11 p
  6727. 1721.03 s [opt-env-conf-test] ParserSome mLoc p ->
  6728. 1721.03 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
  6729. 1721.03 s [opt-env-conf-test] @@ -328,7 +328,7 @@
  6730. 1721.03 s [opt-env-conf-test] showString "Many "
  6731. 1721.04 s [opt-env-conf-test] . showsPrec 11 mLoc
  6732. 1721.04 s [opt-env-conf-test] . showString " "
  6733. 1721.04 s [opt-env-conf-test] - . go 11 p
  6734. 1721.04 s [opt-env-conf-test] + . go 0 p
  6735. 1721.04 s [opt-env-conf-test] ParserSome mLoc p ->
  6736. 1721.04 s [opt-env-conf-test] showParen (d > 10) $
  6737. 1721.04 s [opt-env-conf-test] showString "Some "
  6738. 1721.04 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
  6739. 1721.04 s [opt-env-conf-test] @@ -328,7 +328,7 @@
  6740. 1721.04 s [opt-env-conf-test] showString "Many "
  6741. 1721.04 s [opt-env-conf-test] . showsPrec 11 mLoc
  6742. 1721.04 s [opt-env-conf-test] . showString " "
  6743. 1732.80 s [opt-env-conf-test] - . go 11 p
  6744. 1732.80 s [opt-env-conf-test] + . go 1 p
  6745. 1732.82 s [opt-env-conf-test] ParserSome mLoc p ->
  6746. 1732.82 s [opt-env-conf-test] showParen (d > 10) $
  6747. 1732.82 s [opt-env-conf-test] showString "Some "
  6748. 1732.83 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
  6749. 1732.83 s [opt-env-conf-test] @@ -328,7 +328,7 @@
  6750. 1732.83 s [opt-env-conf-test] showString "Many "
  6751. 1732.83 s [opt-env-conf-test] . showsPrec 11 mLoc
  6752. 1732.83 s [opt-env-conf-test] . showString " "
  6753. 1732.83 s [opt-env-conf-test] - . go 11 p
  6754. 1732.83 s [opt-env-conf-test] + . go -11 p
  6755. 1732.83 s [opt-env-conf-test] ParserSome mLoc p ->
  6756. 1732.83 s [opt-env-conf-test] showParen (d > 10) $
  6757. 1732.83 s [opt-env-conf-test] showString "Some "
  6758. 1732.83 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
  6759. 1732.83 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6760. 1732.83 s [opt-env-conf-test] . showString " "
  6761. 1732.83 s [opt-env-conf-test] . go 11 p
  6762. 1732.83 s [opt-env-conf-test] ParserSome mLoc p ->
  6763. 1732.83 s [opt-env-conf-test] - showParen (d > 10) $
  6764. 1732.83 s [opt-env-conf-test] + showParen (d > 0) $
  6765. 1732.83 s [opt-env-conf-test] showString "Some "
  6766. 1732.83 s [opt-env-conf-test] . showsPrec 11 mLoc
  6767. 1732.83 s [opt-env-conf-test] . showString " "
  6768. 1732.83 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
  6769. 1732.83 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6770. 1732.83 s [opt-env-conf-test] . showString " "
  6771. 1732.83 s [opt-env-conf-test] . go 11 p
  6772. 1732.83 s [opt-env-conf-test] ParserSome mLoc p ->
  6773. 1732.83 s [opt-env-conf-test] - showParen (d > 10) $
  6774. 1732.83 s [opt-env-conf-test] + showParen (d > 1) $
  6775. 1732.83 s [opt-env-conf-test] showString "Some "
  6776. 1732.83 s [opt-env-conf-test] . showsPrec 11 mLoc
  6777. 1732.83 s [opt-env-conf-test] . showString " "
  6778. 1732.84 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
  6779. 1732.84 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6780. 1732.84 s [opt-env-conf-test] . showString " "
  6781. 1732.84 s [opt-env-conf-test] . go 11 p
  6782. 1732.84 s [opt-env-conf-test] ParserSome mLoc p ->
  6783. 1732.84 s [opt-env-conf-test] - showParen (d > 10) $
  6784. 1732.84 s [opt-env-conf-test] + showParen (d > -10) $
  6785. 1732.84 s [opt-env-conf-test] showString "Some "
  6786. 1732.84 s [opt-env-conf-test] . showsPrec 11 mLoc
  6787. 1732.84 s [opt-env-conf-test] . showString " "
  6788. 1732.84 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:333:20-26
  6789. 1732.84 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6790. 1732.84 s [opt-env-conf-test] . showString " "
  6791. 1732.84 s [opt-env-conf-test] . go 11 p
  6792. 1732.84 s [opt-env-conf-test] ParserSome mLoc p ->
  6793. 1732.84 s [opt-env-conf-test] - showParen (d > 10) $
  6794. 1732.84 s [opt-env-conf-test] + showParen (d < 10) $
  6795. 1732.84 s [opt-env-conf-test] showString "Some "
  6796. 1732.84 s [opt-env-conf-test] . showsPrec 11 mLoc
  6797. 1732.84 s [opt-env-conf-test] . showString " "
  6798. 1732.84 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:333:20-26
  6799. 1732.84 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6800. 1732.84 s [opt-env-conf-test] . showString " "
  6801. 1732.84 s [opt-env-conf-test] . go 11 p
  6802. 1732.84 s [opt-env-conf-test] ParserSome mLoc p ->
  6803. 1732.84 s [opt-env-conf-test] - showParen (d > 10) $
  6804. 1732.84 s [opt-env-conf-test] + showParen (d <= 10) $
  6805. 1732.84 s [opt-env-conf-test] showString "Some "
  6806. 1732.84 s [opt-env-conf-test] . showsPrec 11 mLoc
  6807. 1732.84 s [opt-env-conf-test] . showString " "
  6808. 1732.84 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:333:20-26
  6809. 1732.84 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6810. 1732.84 s [opt-env-conf-test] . showString " "
  6811. 1732.84 s [opt-env-conf-test] . go 11 p
  6812. 1732.84 s [opt-env-conf-test] ParserSome mLoc p ->
  6813. 1732.84 s [opt-env-conf-test] - showParen (d > 10) $
  6814. 1732.84 s [opt-env-conf-test] + showParen (d >= 10) $
  6815. 1732.84 s [opt-env-conf-test] showString "Some "
  6816. 1732.85 s [opt-env-conf-test] . showsPrec 11 mLoc
  6817. 1732.85 s [opt-env-conf-test] . showString " "
  6818. 1732.85 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
  6819. 1732.85 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6820. 1732.85 s [opt-env-conf-test] . showString " "
  6821. 1732.85 s [opt-env-conf-test] . go 11 p
  6822. 1732.85 s [opt-env-conf-test] ParserSome mLoc p ->
  6823. 1732.85 s [opt-env-conf-test] - showParen (d > 10) $
  6824. 1732.85 s [opt-env-conf-test] + showParen (True) $
  6825. 1732.85 s [opt-env-conf-test] showString "Some "
  6826. 1732.85 s [opt-env-conf-test] . showsPrec 11 mLoc
  6827. 1732.85 s [opt-env-conf-test] . showString " "
  6828. 1732.85 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
  6829. 1732.85 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6830. 1732.85 s [opt-env-conf-test] . showString " "
  6831. 1732.85 s [opt-env-conf-test] . go 11 p
  6832. 1732.85 s [opt-env-conf-test] ParserSome mLoc p ->
  6833. 1732.85 s [opt-env-conf-test] - showParen (d > 10) $
  6834. 1732.85 s [opt-env-conf-test] + showParen (False) $
  6835. 1732.85 s [opt-env-conf-test] showString "Some "
  6836. 1732.85 s [opt-env-conf-test] . showsPrec 11 mLoc
  6837. 1732.85 s [opt-env-conf-test] . showString " "
  6838. 1732.85 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:333:20-26
  6839. 1732.85 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6840. 1732.85 s [opt-env-conf-test] . showString " "
  6841. 1732.85 s [opt-env-conf-test] . go 11 p
  6842. 1732.85 s [opt-env-conf-test] ParserSome mLoc p ->
  6843. 1732.85 s [opt-env-conf-test] - showParen (d > 10) $
  6844. 1732.85 s [opt-env-conf-test] + showParen (not (d > 10)) $
  6845. 1732.85 s [opt-env-conf-test] showString "Some "
  6846. 1732.85 s [opt-env-conf-test] . showsPrec 11 mLoc
  6847. 1732.85 s [opt-env-conf-test] . showString " "
  6848. 1732.85 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
  6849. 1732.85 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6850. 1732.85 s [opt-env-conf-test] . showString " "
  6851. 1732.85 s [opt-env-conf-test] . go 11 p
  6852. 1732.85 s [opt-env-conf-test] ParserSome mLoc p ->
  6853. 1732.85 s [opt-env-conf-test] - showParen (d > 10) $
  6854. 1732.85 s [opt-env-conf-test] + showParen True $
  6855. 1732.85 s [opt-env-conf-test] showString "Some "
  6856. 1732.85 s [opt-env-conf-test] . showsPrec 11 mLoc
  6857. 1732.85 s [opt-env-conf-test] . showString " "
  6858. 1732.85 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
  6859. 1732.85 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6860. 1732.85 s [opt-env-conf-test] . showString " "
  6861. 1732.85 s [opt-env-conf-test] . go 11 p
  6862. 1732.85 s [opt-env-conf-test] ParserSome mLoc p ->
  6863. 1732.85 s [opt-env-conf-test] - showParen (d > 10) $
  6864. 1732.85 s [opt-env-conf-test] + showParen False $
  6865. 1732.85 s [opt-env-conf-test] showString "Some "
  6866. 1732.86 s [opt-env-conf-test] . showsPrec 11 mLoc
  6867. 1732.86 s [opt-env-conf-test] . showString " "
  6868. 1732.86 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:333:19-27
  6869. 1732.86 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  6870. 1732.86 s [opt-env-conf-test] . showString " "
  6871. 1732.86 s [opt-env-conf-test] . go 11 p
  6872. 1732.86 s [opt-env-conf-test] ParserSome mLoc p ->
  6873. 1732.86 s [opt-env-conf-test] - showParen (d > 10) $
  6874. 1732.86 s [opt-env-conf-test] + showParen not ((d > 10)) $
  6875. 1732.86 s [opt-env-conf-test] showString "Some "
  6876. 1732.86 s [opt-env-conf-test] . showsPrec 11 mLoc
  6877. 1732.86 s [opt-env-conf-test] . showString " "
  6878. 1732.86 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
  6879. 1732.86 s [opt-env-conf-test] @@ -332,7 +332,7 @@
  6880. 1732.86 s [opt-env-conf-test] ParserSome mLoc p ->
  6881. 1732.86 s [opt-env-conf-test] showParen (d > 10) $
  6882. 1732.86 s [opt-env-conf-test] showString "Some "
  6883. 1732.86 s [opt-env-conf-test] - . showsPrec 11 mLoc
  6884. 1732.86 s [opt-env-conf-test] + . showsPrec 0 mLoc
  6885. 1732.86 s [opt-env-conf-test] . showString " "
  6886. 1732.86 s [opt-env-conf-test] . go 11 p
  6887. 1732.86 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6888. 1732.86 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
  6889. 1732.86 s [opt-env-conf-test] @@ -332,7 +332,7 @@
  6890. 1732.86 s [opt-env-conf-test] ParserSome mLoc p ->
  6891. 1732.86 s [opt-env-conf-test] showParen (d > 10) $
  6892. 1732.86 s [opt-env-conf-test] showString "Some "
  6893. 1732.86 s [opt-env-conf-test] - . showsPrec 11 mLoc
  6894. 1732.86 s [opt-env-conf-test] + . showsPrec 1 mLoc
  6895. 1732.86 s [opt-env-conf-test] . showString " "
  6896. 1732.86 s [opt-env-conf-test] . go 11 p
  6897. 1732.86 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6898. 1732.86 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
  6899. 1732.86 s [opt-env-conf-test] @@ -332,7 +332,7 @@
  6900. 1732.86 s [opt-env-conf-test] ParserSome mLoc p ->
  6901. 1732.86 s [opt-env-conf-test] showParen (d > 10) $
  6902. 1732.86 s [opt-env-conf-test] showString "Some "
  6903. 1732.86 s [opt-env-conf-test] - . showsPrec 11 mLoc
  6904. 1732.86 s [opt-env-conf-test] + . showsPrec -11 mLoc
  6905. 1732.86 s [opt-env-conf-test] . showString " "
  6906. 1732.86 s [opt-env-conf-test] . go 11 p
  6907. 1732.86 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6908. 1732.86 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
  6909. 1732.86 s [opt-env-conf-test] @@ -334,7 +334,7 @@
  6910. 1732.86 s [opt-env-conf-test] showString "Some "
  6911. 1732.86 s [opt-env-conf-test] . showsPrec 11 mLoc
  6912. 1732.86 s [opt-env-conf-test] . showString " "
  6913. 1732.86 s [opt-env-conf-test] - . go 11 p
  6914. 1732.86 s [opt-env-conf-test] + . go 0 p
  6915. 1732.87 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6916. 1732.87 s [opt-env-conf-test] showParen (d > 10) $
  6917. 1732.87 s [opt-env-conf-test] showString "AllOrNothing "
  6918. 1732.87 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
  6919. 1732.87 s [opt-env-conf-test] @@ -334,7 +334,7 @@
  6920. 1732.87 s [opt-env-conf-test] showString "Some "
  6921. 1732.87 s [opt-env-conf-test] . showsPrec 11 mLoc
  6922. 1732.87 s [opt-env-conf-test] . showString " "
  6923. 1732.87 s [opt-env-conf-test] - . go 11 p
  6924. 1732.87 s [opt-env-conf-test] + . go 1 p
  6925. 1732.87 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6926. 1732.87 s [opt-env-conf-test] showParen (d > 10) $
  6927. 1732.87 s [opt-env-conf-test] showString "AllOrNothing "
  6928. 1732.87 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
  6929. 1732.87 s [opt-env-conf-test] @@ -334,7 +334,7 @@
  6930. 1732.87 s [opt-env-conf-test] showString "Some "
  6931. 1732.87 s [opt-env-conf-test] . showsPrec 11 mLoc
  6932. 1732.87 s [opt-env-conf-test] . showString " "
  6933. 1732.87 s [opt-env-conf-test] - . go 11 p
  6934. 1732.87 s [opt-env-conf-test] + . go -11 p
  6935. 1732.87 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6936. 1732.87 s [opt-env-conf-test] showParen (d > 10) $
  6937. 1732.87 s [opt-env-conf-test] showString "AllOrNothing "
  6938. 1732.87 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
  6939. 1732.87 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  6940. 1732.87 s [opt-env-conf-test] . showString " "
  6941. 1732.87 s [opt-env-conf-test] . go 11 p
  6942. 1732.87 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6943. 1732.87 s [opt-env-conf-test] - showParen (d > 10) $
  6944. 1732.94 s [opt-env-conf-test] + showParen (d > 0) $
  6945. 1732.94 s [opt-env-conf-test] showString "AllOrNothing "
  6946. 1732.94 s [opt-env-conf-test] . showsPrec 11 mLoc
  6947. 1732.94 s [opt-env-conf-test] . showString " "
  6948. 1732.94 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
  6949. 1732.94 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  6950. 1732.94 s [opt-env-conf-test] . showString " "
  6951. 1732.94 s [opt-env-conf-test] . go 11 p
  6952. 1732.95 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6953. 1732.95 s [opt-env-conf-test] - showParen (d > 10) $
  6954. 1732.95 s [opt-env-conf-test] + showParen (d > 1) $
  6955. 1732.95 s [opt-env-conf-test] showString "AllOrNothing "
  6956. 1732.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  6957. 1732.95 s [opt-env-conf-test] . showString " "
  6958. 1732.95 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
  6959. 1732.95 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  6960. 1732.95 s [opt-env-conf-test] . showString " "
  6961. 1732.95 s [opt-env-conf-test] . go 11 p
  6962. 1732.95 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6963. 1732.95 s [opt-env-conf-test] - showParen (d > 10) $
  6964. 1732.95 s [opt-env-conf-test] + showParen (d > -10) $
  6965. 1732.95 s [opt-env-conf-test] showString "AllOrNothing "
  6966. 1732.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  6967. 1732.95 s [opt-env-conf-test] . showString " "
  6968. 1732.95 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:339:20-26
  6969. 1732.95 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  6970. 1732.95 s [opt-env-conf-test] . showString " "
  6971. 1732.95 s [opt-env-conf-test] . go 11 p
  6972. 1732.95 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6973. 1732.95 s [opt-env-conf-test] - showParen (d > 10) $
  6974. 1732.95 s [opt-env-conf-test] + showParen (d < 10) $
  6975. 1732.95 s [opt-env-conf-test] showString "AllOrNothing "
  6976. 1732.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  6977. 1732.95 s [opt-env-conf-test] . showString " "
  6978. 1732.95 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:339:20-26
  6979. 1732.95 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  6980. 1732.95 s [opt-env-conf-test] . showString " "
  6981. 1732.95 s [opt-env-conf-test] . go 11 p
  6982. 1732.95 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6983. 1732.95 s [opt-env-conf-test] - showParen (d > 10) $
  6984. 1732.95 s [opt-env-conf-test] + showParen (d <= 10) $
  6985. 1732.95 s [opt-env-conf-test] showString "AllOrNothing "
  6986. 1732.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  6987. 1732.95 s [opt-env-conf-test] . showString " "
  6988. 1732.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
  6989. 1732.96 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  6990. 1732.96 s [opt-env-conf-test] . showString " "
  6991. 1732.96 s [opt-env-conf-test] . go 11 p
  6992. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  6993. 1732.96 s [opt-env-conf-test] - showParen (d > 10) $
  6994. 1732.96 s [opt-env-conf-test] + showParen (True) $
  6995. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  6996. 1732.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  6997. 1732.96 s [opt-env-conf-test] . showString " "
  6998. 1732.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
  6999. 1732.96 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  7000. 1732.96 s [opt-env-conf-test] . showString " "
  7001. 1732.96 s [opt-env-conf-test] . go 11 p
  7002. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  7003. 1732.96 s [opt-env-conf-test] - showParen (d > 10) $
  7004. 1732.96 s [opt-env-conf-test] + showParen (False) $
  7005. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7006. 1732.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  7007. 1732.96 s [opt-env-conf-test] . showString " "
  7008. 1732.96 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:339:20-26
  7009. 1732.96 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  7010. 1732.96 s [opt-env-conf-test] . showString " "
  7011. 1732.96 s [opt-env-conf-test] . go 11 p
  7012. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  7013. 1732.96 s [opt-env-conf-test] - showParen (d > 10) $
  7014. 1732.96 s [opt-env-conf-test] + showParen (not (d > 10)) $
  7015. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7016. 1732.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  7017. 1732.96 s [opt-env-conf-test] . showString " "
  7018. 1732.96 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:339:20-26
  7019. 1732.96 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  7020. 1732.96 s [opt-env-conf-test] . showString " "
  7021. 1732.96 s [opt-env-conf-test] . go 11 p
  7022. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  7023. 1732.96 s [opt-env-conf-test] - showParen (d > 10) $
  7024. 1732.96 s [opt-env-conf-test] + showParen (d >= 10) $
  7025. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7026. 1732.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  7027. 1732.96 s [opt-env-conf-test] . showString " "
  7028. 1732.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
  7029. 1732.96 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  7030. 1732.96 s [opt-env-conf-test] . showString " "
  7031. 1732.96 s [opt-env-conf-test] . go 11 p
  7032. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  7033. 1732.96 s [opt-env-conf-test] - showParen (d > 10) $
  7034. 1732.96 s [opt-env-conf-test] + showParen True $
  7035. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7036. 1732.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  7037. 1732.96 s [opt-env-conf-test] . showString " "
  7038. 1732.96 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:339:19-27
  7039. 1732.96 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  7040. 1732.96 s [opt-env-conf-test] . showString " "
  7041. 1732.96 s [opt-env-conf-test] . go 11 p
  7042. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  7043. 1732.96 s [opt-env-conf-test] - showParen (d > 10) $
  7044. 1732.96 s [opt-env-conf-test] + showParen not ((d > 10)) $
  7045. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7046. 1732.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  7047. 1732.96 s [opt-env-conf-test] . showString " "
  7048. 1732.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
  7049. 1732.96 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  7050. 1732.96 s [opt-env-conf-test] . showString " "
  7051. 1732.96 s [opt-env-conf-test] . go 11 p
  7052. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  7053. 1732.96 s [opt-env-conf-test] - showParen (d > 10) $
  7054. 1732.96 s [opt-env-conf-test] + showParen False $
  7055. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7056. 1732.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  7057. 1732.96 s [opt-env-conf-test] . showString " "
  7058. 1732.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
  7059. 1732.96 s [opt-env-conf-test] @@ -338,7 +338,7 @@
  7060. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  7061. 1732.96 s [opt-env-conf-test] showParen (d > 10) $
  7062. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7063. 1732.96 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7064. 1732.96 s [opt-env-conf-test] + . showsPrec 0 mLoc
  7065. 1732.96 s [opt-env-conf-test] . showString " "
  7066. 1732.96 s [opt-env-conf-test] . go 11 p
  7067. 1732.96 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7068. 1732.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
  7069. 1732.96 s [opt-env-conf-test] @@ -338,7 +338,7 @@
  7070. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  7071. 1732.96 s [opt-env-conf-test] showParen (d > 10) $
  7072. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7073. 1732.96 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7074. 1732.96 s [opt-env-conf-test] + . showsPrec -11 mLoc
  7075. 1732.96 s [opt-env-conf-test] . showString " "
  7076. 1732.96 s [opt-env-conf-test] . go 11 p
  7077. 1732.96 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7078. 1732.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
  7079. 1732.96 s [opt-env-conf-test] @@ -340,7 +340,7 @@
  7080. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7081. 1732.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  7082. 1732.96 s [opt-env-conf-test] . showString " "
  7083. 1732.96 s [opt-env-conf-test] - . go 11 p
  7084. 1732.96 s [opt-env-conf-test] + . go 0 p
  7085. 1732.96 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7086. 1732.96 s [opt-env-conf-test] showParen (d > 10) $
  7087. 1732.96 s [opt-env-conf-test] showString "Check "
  7088. 1732.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
  7089. 1732.96 s [opt-env-conf-test] @@ -338,7 +338,7 @@
  7090. 1732.96 s [opt-env-conf-test] ParserAllOrNothing mLoc p ->
  7091. 1732.96 s [opt-env-conf-test] showParen (d > 10) $
  7092. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7093. 1732.96 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7094. 1732.96 s [opt-env-conf-test] + . showsPrec 1 mLoc
  7095. 1732.96 s [opt-env-conf-test] . showString " "
  7096. 1732.96 s [opt-env-conf-test] . go 11 p
  7097. 1732.96 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7098. 1732.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
  7099. 1732.96 s [opt-env-conf-test] @@ -340,7 +340,7 @@
  7100. 1732.96 s [opt-env-conf-test] showString "AllOrNothing "
  7101. 1732.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  7102. 1732.96 s [opt-env-conf-test] . showString " "
  7103. 1732.96 s [opt-env-conf-test] - . go 11 p
  7104. 1732.96 s [opt-env-conf-test] + . go -11 p
  7105. 1732.96 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7106. 1732.96 s [opt-env-conf-test] showParen (d > 10) $
  7107. 1732.96 s [opt-env-conf-test] showString "Check "
  7108. 1732.96 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
  7109. 1732.96 s [opt-env-conf-test] @@ -340,7 +340,7 @@
  7110. 1732.97 s [opt-env-conf-test] showString "AllOrNothing "
  7111. 1732.97 s [opt-env-conf-test] . showsPrec 11 mLoc
  7112. 1732.97 s [opt-env-conf-test] . showString " "
  7113. 1732.97 s [opt-env-conf-test] - . go 11 p
  7114. 1732.97 s [opt-env-conf-test] + . go 1 p
  7115. 1732.97 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7116. 1732.97 s [opt-env-conf-test] showParen (d > 10) $
  7117. 1732.97 s [opt-env-conf-test] showString "Check "
  7118. 1732.97 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
  7119. 1732.97 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7120. 1732.97 s [opt-env-conf-test] . showString " "
  7121. 1732.97 s [opt-env-conf-test] . go 11 p
  7122. 1732.97 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7123. 1732.97 s [opt-env-conf-test] - showParen (d > 10) $
  7124. 1732.97 s [opt-env-conf-test] + showParen (d > 1) $
  7125. 1732.97 s [opt-env-conf-test] showString "Check "
  7126. 1732.97 s [opt-env-conf-test] . showsPrec 11 mLoc
  7127. 1732.97 s [opt-env-conf-test] . showString " "
  7128. 1732.97 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
  7129. 1732.97 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7130. 1732.97 s [opt-env-conf-test] . showString " "
  7131. 1732.97 s [opt-env-conf-test] . go 11 p
  7132. 1732.97 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7133. 1732.97 s [opt-env-conf-test] - showParen (d > 10) $
  7134. 1732.97 s [opt-env-conf-test] + showParen (d > -10) $
  7135. 1732.97 s [opt-env-conf-test] showString "Check "
  7136. 1732.97 s [opt-env-conf-test] . showsPrec 11 mLoc
  7137. 1738.36 s [opt-env-conf-test] . showString " "
  7138. 1738.36 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:345:20-26
  7139. 1738.39 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7140. 1738.39 s [opt-env-conf-test] . showString " "
  7141. 1738.39 s [opt-env-conf-test] . go 11 p
  7142. 1738.39 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7143. 1738.39 s [opt-env-conf-test] - showParen (d > 10) $
  7144. 1738.40 s [opt-env-conf-test] + showParen (d < 10) $
  7145. 1738.40 s [opt-env-conf-test] showString "Check "
  7146. 1738.40 s [opt-env-conf-test] . showsPrec 11 mLoc
  7147. 1738.40 s [opt-env-conf-test] . showString " "
  7148. 1738.40 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
  7149. 1738.40 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7150. 1738.40 s [opt-env-conf-test] . showString " "
  7151. 1738.40 s [opt-env-conf-test] . go 11 p
  7152. 1738.40 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7153. 1738.40 s [opt-env-conf-test] - showParen (d > 10) $
  7154. 1738.40 s [opt-env-conf-test] + showParen (d > 0) $
  7155. 1738.40 s [opt-env-conf-test] showString "Check "
  7156. 1738.40 s [opt-env-conf-test] . showsPrec 11 mLoc
  7157. 1738.40 s [opt-env-conf-test] . showString " "
  7158. 1738.40 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:345:20-26
  7159. 1738.40 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7160. 1738.40 s [opt-env-conf-test] . showString " "
  7161. 1738.40 s [opt-env-conf-test] . go 11 p
  7162. 1738.40 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7163. 1738.40 s [opt-env-conf-test] - showParen (d > 10) $
  7164. 1738.40 s [opt-env-conf-test] + showParen (d >= 10) $
  7165. 1738.40 s [opt-env-conf-test] showString "Check "
  7166. 1738.40 s [opt-env-conf-test] . showsPrec 11 mLoc
  7167. 1738.40 s [opt-env-conf-test] . showString " "
  7168. 1738.40 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:345:20-26
  7169. 1738.40 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7170. 1738.40 s [opt-env-conf-test] . showString " "
  7171. 1738.40 s [opt-env-conf-test] . go 11 p
  7172. 1738.40 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7173. 1738.40 s [opt-env-conf-test] - showParen (d > 10) $
  7174. 1738.40 s [opt-env-conf-test] + showParen (d <= 10) $
  7175. 1738.40 s [opt-env-conf-test] showString "Check "
  7176. 1738.40 s [opt-env-conf-test] . showsPrec 11 mLoc
  7177. 1738.40 s [opt-env-conf-test] . showString " "
  7178. 1738.40 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
  7179. 1738.40 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7180. 1738.40 s [opt-env-conf-test] . showString " "
  7181. 1738.40 s [opt-env-conf-test] . go 11 p
  7182. 1738.40 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7183. 1738.40 s [opt-env-conf-test] - showParen (d > 10) $
  7184. 1738.40 s [opt-env-conf-test] + showParen (True) $
  7185. 1738.40 s [opt-env-conf-test] showString "Check "
  7186. 1738.40 s [opt-env-conf-test] . showsPrec 11 mLoc
  7187. 1738.40 s [opt-env-conf-test] . showString " "
  7188. 1738.40 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
  7189. 1738.40 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7190. 1738.40 s [opt-env-conf-test] . showString " "
  7191. 1738.40 s [opt-env-conf-test] . go 11 p
  7192. 1738.40 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7193. 1738.40 s [opt-env-conf-test] - showParen (d > 10) $
  7194. 1738.41 s [opt-env-conf-test] + showParen (False) $
  7195. 1738.41 s [opt-env-conf-test] showString "Check "
  7196. 1738.41 s [opt-env-conf-test] . showsPrec 11 mLoc
  7197. 1738.41 s [opt-env-conf-test] . showString " "
  7198. 1738.41 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
  7199. 1738.41 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7200. 1738.41 s [opt-env-conf-test] . showString " "
  7201. 1738.41 s [opt-env-conf-test] . go 11 p
  7202. 1738.41 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7203. 1738.41 s [opt-env-conf-test] - showParen (d > 10) $
  7204. 1738.41 s [opt-env-conf-test] + showParen True $
  7205. 1738.41 s [opt-env-conf-test] showString "Check "
  7206. 1738.41 s [opt-env-conf-test] . showsPrec 11 mLoc
  7207. 1738.41 s [opt-env-conf-test] . showString " "
  7208. 1738.41 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:345:20-26
  7209. 1738.41 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7210. 1738.41 s [opt-env-conf-test] . showString " "
  7211. 1738.41 s [opt-env-conf-test] . go 11 p
  7212. 1738.41 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7213. 1738.41 s [opt-env-conf-test] - showParen (d > 10) $
  7214. 1738.41 s [opt-env-conf-test] + showParen (not (d > 10)) $
  7215. 1738.41 s [opt-env-conf-test] showString "Check "
  7216. 1738.41 s [opt-env-conf-test] . showsPrec 11 mLoc
  7217. 1738.41 s [opt-env-conf-test] . showString " "
  7218. 1738.41 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:345:19-27
  7219. 1738.41 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7220. 1738.41 s [opt-env-conf-test] . showString " "
  7221. 1738.41 s [opt-env-conf-test] . go 11 p
  7222. 1738.41 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7223. 1738.41 s [opt-env-conf-test] - showParen (d > 10) $
  7224. 1738.41 s [opt-env-conf-test] + showParen not ((d > 10)) $
  7225. 1738.41 s [opt-env-conf-test] showString "Check "
  7226. 1738.41 s [opt-env-conf-test] . showsPrec 11 mLoc
  7227. 1738.41 s [opt-env-conf-test] . showString " "
  7228. 1738.41 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
  7229. 1738.41 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  7230. 1738.41 s [opt-env-conf-test] . showString " "
  7231. 1738.41 s [opt-env-conf-test] . go 11 p
  7232. 1738.41 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7233. 1738.41 s [opt-env-conf-test] - showParen (d > 10) $
  7234. 1738.41 s [opt-env-conf-test] + showParen False $
  7235. 1738.41 s [opt-env-conf-test] showString "Check "
  7236. 1738.41 s [opt-env-conf-test] . showsPrec 11 mLoc
  7237. 1738.41 s [opt-env-conf-test] . showString " "
  7238. 1738.41 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
  7239. 1738.41 s [opt-env-conf-test] @@ -344,7 +344,7 @@
  7240. 1738.41 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7241. 1738.41 s [opt-env-conf-test] showParen (d > 10) $
  7242. 1738.41 s [opt-env-conf-test] showString "Check "
  7243. 1738.41 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7244. 1738.41 s [opt-env-conf-test] + . showsPrec 1 mLoc
  7245. 1738.41 s [opt-env-conf-test] . showString " "
  7246. 1738.41 s [opt-env-conf-test] . showsPrec 11 forgivable
  7247. 1738.41 s [opt-env-conf-test] . showString " "
  7248. 1738.41 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
  7249. 1738.41 s [opt-env-conf-test] @@ -344,7 +344,7 @@
  7250. 1738.41 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7251. 1738.41 s [opt-env-conf-test] showParen (d > 10) $
  7252. 1738.41 s [opt-env-conf-test] showString "Check "
  7253. 1738.41 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7254. 1738.41 s [opt-env-conf-test] + . showsPrec -11 mLoc
  7255. 1738.41 s [opt-env-conf-test] . showString " "
  7256. 1738.41 s [opt-env-conf-test] . showsPrec 11 forgivable
  7257. 1738.41 s [opt-env-conf-test] . showString " "
  7258. 1738.41 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
  7259. 1738.41 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  7260. 1738.41 s [opt-env-conf-test] showString "Check "
  7261. 1738.41 s [opt-env-conf-test] . showsPrec 11 mLoc
  7262. 1738.41 s [opt-env-conf-test] . showString " "
  7263. 1738.41 s [opt-env-conf-test] - . showsPrec 11 forgivable
  7264. 1738.41 s [opt-env-conf-test] + . showsPrec 0 forgivable
  7265. 1738.41 s [opt-env-conf-test] . showString " "
  7266. 1738.41 s [opt-env-conf-test] . showsPrec 11 caps
  7267. 1738.41 s [opt-env-conf-test] . showString " _ "
  7268. 1738.41 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
  7269. 1738.41 s [opt-env-conf-test] @@ -344,7 +344,7 @@
  7270. 1738.41 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  7271. 1738.42 s [opt-env-conf-test] showParen (d > 10) $
  7272. 1738.42 s [opt-env-conf-test] showString "Check "
  7273. 1738.42 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7274. 1738.42 s [opt-env-conf-test] + . showsPrec 0 mLoc
  7275. 1738.42 s [opt-env-conf-test] . showString " "
  7276. 1738.42 s [opt-env-conf-test] . showsPrec 11 forgivable
  7277. 1738.42 s [opt-env-conf-test] . showString " "
  7278. 1738.42 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
  7279. 1738.42 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  7280. 1738.42 s [opt-env-conf-test] showString "Check "
  7281. 1738.42 s [opt-env-conf-test] . showsPrec 11 mLoc
  7282. 1738.42 s [opt-env-conf-test] . showString " "
  7283. 1738.42 s [opt-env-conf-test] - . showsPrec 11 forgivable
  7284. 1738.42 s [opt-env-conf-test] + . showsPrec 1 forgivable
  7285. 1738.42 s [opt-env-conf-test] . showString " "
  7286. 1738.42 s [opt-env-conf-test] . showsPrec 11 caps
  7287. 1738.42 s [opt-env-conf-test] . showString " _ "
  7288. 1738.42 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
  7289. 1738.42 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  7290. 1738.42 s [opt-env-conf-test] showString "Check "
  7291. 1738.42 s [opt-env-conf-test] . showsPrec 11 mLoc
  7292. 1738.42 s [opt-env-conf-test] . showString " "
  7293. 1738.42 s [opt-env-conf-test] - . showsPrec 11 forgivable
  7294. 1738.42 s [opt-env-conf-test] + . showsPrec 11 True
  7295. 1738.42 s [opt-env-conf-test] . showString " "
  7296. 1738.42 s [opt-env-conf-test] . showsPrec 11 caps
  7297. 1738.42 s [opt-env-conf-test] . showString " _ "
  7298. 1738.42 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
  7299. 1738.42 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  7300. 1738.42 s [opt-env-conf-test] showString "Check "
  7301. 1738.42 s [opt-env-conf-test] . showsPrec 11 mLoc
  7302. 1738.42 s [opt-env-conf-test] . showString " "
  7303. 1738.42 s [opt-env-conf-test] - . showsPrec 11 forgivable
  7304. 1738.42 s [opt-env-conf-test] + . showsPrec 11 False
  7305. 1738.42 s [opt-env-conf-test] . showString " "
  7306. 1738.42 s [opt-env-conf-test] . showsPrec 11 caps
  7307. 1738.42 s [opt-env-conf-test] . showString " _ "
  7308. 1738.42 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:349:28-38
  7309. 1738.42 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  7310. 1738.42 s [opt-env-conf-test] showString "Check "
  7311. 1738.42 s [opt-env-conf-test] . showsPrec 11 mLoc
  7312. 1738.42 s [opt-env-conf-test] . showString " "
  7313. 1738.42 s [opt-env-conf-test] - . showsPrec 11 forgivable
  7314. 1738.42 s [opt-env-conf-test] + . showsPrec 11 not (forgivable)
  7315. 1738.42 s [opt-env-conf-test] . showString " "
  7316. 1738.42 s [opt-env-conf-test] . showsPrec 11 caps
  7317. 1738.42 s [opt-env-conf-test] . showString " _ "
  7318. 1738.42 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
  7319. 1738.42 s [opt-env-conf-test] @@ -348,7 +348,7 @@
  7320. 1738.42 s [opt-env-conf-test] . showString " "
  7321. 1738.42 s [opt-env-conf-test] . showsPrec 11 forgivable
  7322. 1751.29 s [opt-env-conf-test] . showString " "
  7323. 1751.29 s [opt-env-conf-test] - . showsPrec 11 caps
  7324. 1751.31 s [opt-env-conf-test] + . showsPrec 0 caps
  7325. 1751.31 s [opt-env-conf-test] . showString " _ "
  7326. 1751.31 s [opt-env-conf-test] . go 11 p
  7327. 1751.31 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7328. 1751.31 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
  7329. 1751.31 s [opt-env-conf-test] @@ -348,7 +348,7 @@
  7330. 1751.31 s [opt-env-conf-test] . showString " "
  7331. 1751.31 s [opt-env-conf-test] . showsPrec 11 forgivable
  7332. 1751.31 s [opt-env-conf-test] . showString " "
  7333. 1751.31 s [opt-env-conf-test] - . showsPrec 11 caps
  7334. 1751.31 s [opt-env-conf-test] + . showsPrec 1 caps
  7335. 1751.31 s [opt-env-conf-test] . showString " _ "
  7336. 1751.31 s [opt-env-conf-test] . go 11 p
  7337. 1751.31 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7338. 1751.32 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
  7339. 1751.32 s [opt-env-conf-test] @@ -348,7 +348,7 @@
  7340. 1751.32 s [opt-env-conf-test] . showString " "
  7341. 1751.32 s [opt-env-conf-test] . showsPrec 11 forgivable
  7342. 1751.32 s [opt-env-conf-test] . showString " "
  7343. 1751.32 s [opt-env-conf-test] - . showsPrec 11 caps
  7344. 1751.32 s [opt-env-conf-test] + . showsPrec -11 caps
  7345. 1751.32 s [opt-env-conf-test] . showString " _ "
  7346. 1751.32 s [opt-env-conf-test] . go 11 p
  7347. 1751.32 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7348. 1751.32 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
  7349. 1751.32 s [opt-env-conf-test] @@ -350,7 +350,7 @@
  7350. 1751.32 s [opt-env-conf-test] . showString " "
  7351. 1751.32 s [opt-env-conf-test] . showsPrec 11 caps
  7352. 1751.32 s [opt-env-conf-test] . showString " _ "
  7353. 1751.32 s [opt-env-conf-test] - . go 11 p
  7354. 1751.32 s [opt-env-conf-test] + . go 0 p
  7355. 1751.32 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7356. 1751.32 s [opt-env-conf-test] showParen (d > 10) $
  7357. 1751.32 s [opt-env-conf-test] showString "Commands "
  7358. 1751.32 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
  7359. 1751.32 s [opt-env-conf-test] @@ -350,7 +350,7 @@
  7360. 1751.32 s [opt-env-conf-test] . showString " "
  7361. 1751.32 s [opt-env-conf-test] . showsPrec 11 caps
  7362. 1751.32 s [opt-env-conf-test] . showString " _ "
  7363. 1751.32 s [opt-env-conf-test] - . go 11 p
  7364. 1751.32 s [opt-env-conf-test] + . go 1 p
  7365. 1751.32 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7366. 1751.32 s [opt-env-conf-test] showParen (d > 10) $
  7367. 1751.32 s [opt-env-conf-test] showString "Commands "
  7368. 1751.32 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
  7369. 1751.32 s [opt-env-conf-test] @@ -350,7 +350,7 @@
  7370. 1751.32 s [opt-env-conf-test] . showString " "
  7371. 1751.32 s [opt-env-conf-test] . showsPrec 11 caps
  7372. 1751.32 s [opt-env-conf-test] . showString " _ "
  7373. 1751.32 s [opt-env-conf-test] - . go 11 p
  7374. 1751.32 s [opt-env-conf-test] + . go -11 p
  7375. 1751.32 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7376. 1751.32 s [opt-env-conf-test] showParen (d > 10) $
  7377. 1751.32 s [opt-env-conf-test] showString "Commands "
  7378. 1751.32 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
  7379. 1751.32 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7380. 1751.32 s [opt-env-conf-test] . showString " _ "
  7381. 1751.32 s [opt-env-conf-test] . go 11 p
  7382. 1751.32 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7383. 1751.32 s [opt-env-conf-test] - showParen (d > 10) $
  7384. 1751.32 s [opt-env-conf-test] + showParen (d > 1) $
  7385. 1751.32 s [opt-env-conf-test] showString "Commands "
  7386. 1751.32 s [opt-env-conf-test] . showsPrec 11 mLoc
  7387. 1751.32 s [opt-env-conf-test] . showString " "
  7388. 1751.32 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
  7389. 1751.32 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7390. 1751.33 s [opt-env-conf-test] . showString " _ "
  7391. 1751.33 s [opt-env-conf-test] . go 11 p
  7392. 1751.33 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7393. 1751.33 s [opt-env-conf-test] - showParen (d > 10) $
  7394. 1751.33 s [opt-env-conf-test] + showParen (d > 0) $
  7395. 1751.33 s [opt-env-conf-test] showString "Commands "
  7396. 1751.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  7397. 1751.33 s [opt-env-conf-test] . showString " "
  7398. 1751.33 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
  7399. 1751.33 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7400. 1751.33 s [opt-env-conf-test] . showString " _ "
  7401. 1751.33 s [opt-env-conf-test] . go 11 p
  7402. 1751.33 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7403. 1751.33 s [opt-env-conf-test] - showParen (d > 10) $
  7404. 1751.33 s [opt-env-conf-test] + showParen (d > -10) $
  7405. 1751.33 s [opt-env-conf-test] showString "Commands "
  7406. 1751.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  7407. 1751.33 s [opt-env-conf-test] . showString " "
  7408. 1751.33 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:355:20-26
  7409. 1751.33 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7410. 1751.33 s [opt-env-conf-test] . showString " _ "
  7411. 1751.33 s [opt-env-conf-test] . go 11 p
  7412. 1751.33 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7413. 1751.33 s [opt-env-conf-test] - showParen (d > 10) $
  7414. 1751.33 s [opt-env-conf-test] + showParen (d < 10) $
  7415. 1751.33 s [opt-env-conf-test] showString "Commands "
  7416. 1751.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  7417. 1751.33 s [opt-env-conf-test] . showString " "
  7418. 1751.33 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:355:20-26
  7419. 1751.33 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7420. 1751.33 s [opt-env-conf-test] . showString " _ "
  7421. 1751.33 s [opt-env-conf-test] . go 11 p
  7422. 1751.33 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7423. 1751.33 s [opt-env-conf-test] - showParen (d > 10) $
  7424. 1751.33 s [opt-env-conf-test] + showParen (d <= 10) $
  7425. 1751.33 s [opt-env-conf-test] showString "Commands "
  7426. 1751.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  7427. 1751.33 s [opt-env-conf-test] . showString " "
  7428. 1751.33 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:355:20-26
  7429. 1751.33 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7430. 1751.33 s [opt-env-conf-test] . showString " _ "
  7431. 1751.33 s [opt-env-conf-test] . go 11 p
  7432. 1751.33 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7433. 1751.33 s [opt-env-conf-test] - showParen (d > 10) $
  7434. 1751.33 s [opt-env-conf-test] + showParen (d >= 10) $
  7435. 1751.33 s [opt-env-conf-test] showString "Commands "
  7436. 1751.33 s [opt-env-conf-test] . showsPrec 11 mLoc
  7437. 1751.33 s [opt-env-conf-test] . showString " "
  7438. 1751.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
  7439. 1751.33 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7440. 1751.33 s [opt-env-conf-test] . showString " _ "
  7441. 1751.33 s [opt-env-conf-test] . go 11 p
  7442. 1751.33 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7443. 1751.33 s [opt-env-conf-test] - showParen (d > 10) $
  7444. 1751.33 s [opt-env-conf-test] + showParen (True) $
  7445. 1751.33 s [opt-env-conf-test] showString "Commands "
  7446. 1751.34 s [opt-env-conf-test] . showsPrec 11 mLoc
  7447. 1751.34 s [opt-env-conf-test] . showString " "
  7448. 1751.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
  7449. 1751.34 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7450. 1751.34 s [opt-env-conf-test] . showString " _ "
  7451. 1751.34 s [opt-env-conf-test] . go 11 p
  7452. 1751.34 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7453. 1751.34 s [opt-env-conf-test] - showParen (d > 10) $
  7454. 1751.34 s [opt-env-conf-test] + showParen (False) $
  7455. 1751.34 s [opt-env-conf-test] showString "Commands "
  7456. 1751.34 s [opt-env-conf-test] . showsPrec 11 mLoc
  7457. 1751.34 s [opt-env-conf-test] . showString " "
  7458. 1751.34 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:355:20-26
  7459. 1751.34 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7460. 1751.34 s [opt-env-conf-test] . showString " _ "
  7461. 1751.34 s [opt-env-conf-test] . go 11 p
  7462. 1751.34 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7463. 1751.34 s [opt-env-conf-test] - showParen (d > 10) $
  7464. 1751.34 s [opt-env-conf-test] + showParen (not (d > 10)) $
  7465. 1751.34 s [opt-env-conf-test] showString "Commands "
  7466. 1751.34 s [opt-env-conf-test] . showsPrec 11 mLoc
  7467. 1751.34 s [opt-env-conf-test] . showString " "
  7468. 1751.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
  7469. 1751.34 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7470. 1751.34 s [opt-env-conf-test] . showString " _ "
  7471. 1751.34 s [opt-env-conf-test] . go 11 p
  7472. 1751.34 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7473. 1751.34 s [opt-env-conf-test] - showParen (d > 10) $
  7474. 1751.34 s [opt-env-conf-test] + showParen True $
  7475. 1751.34 s [opt-env-conf-test] showString "Commands "
  7476. 1751.34 s [opt-env-conf-test] . showsPrec 11 mLoc
  7477. 1751.34 s [opt-env-conf-test] . showString " "
  7478. 1751.34 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
  7479. 1751.34 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7480. 1751.34 s [opt-env-conf-test] . showString " _ "
  7481. 1751.34 s [opt-env-conf-test] . go 11 p
  7482. 1751.34 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7483. 1751.34 s [opt-env-conf-test] - showParen (d > 10) $
  7484. 1751.34 s [opt-env-conf-test] + showParen False $
  7485. 1751.34 s [opt-env-conf-test] showString "Commands "
  7486. 1751.34 s [opt-env-conf-test] . showsPrec 11 mLoc
  7487. 1751.34 s [opt-env-conf-test] . showString " "
  7488. 1751.34 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:355:19-27
  7489. 1751.34 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  7490. 1751.34 s [opt-env-conf-test] . showString " _ "
  7491. 1751.34 s [opt-env-conf-test] . go 11 p
  7492. 1751.34 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7493. 1751.34 s [opt-env-conf-test] - showParen (d > 10) $
  7494. 1751.34 s [opt-env-conf-test] + showParen not ((d > 10)) $
  7495. 1751.34 s [opt-env-conf-test] showString "Commands "
  7496. 1751.34 s [opt-env-conf-test] . showsPrec 11 mLoc
  7497. 1751.34 s [opt-env-conf-test] . showString " "
  7498. 1751.34 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
  7499. 1751.34 s [opt-env-conf-test] @@ -354,7 +354,7 @@
  7500. 1751.34 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7501. 1751.34 s [opt-env-conf-test] showParen (d > 10) $
  7502. 1751.34 s [opt-env-conf-test] showString "Commands "
  7503. 1751.34 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7504. 1751.34 s [opt-env-conf-test] + . showsPrec 0 mLoc
  7505. 1751.35 s [opt-env-conf-test] . showString " "
  7506. 1751.35 s [opt-env-conf-test] . showsPrec 11 mDefault
  7507. 1751.35 s [opt-env-conf-test] . showString " "
  7508. 1751.35 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
  7509. 1751.35 s [opt-env-conf-test] @@ -354,7 +354,7 @@
  7510. 1751.35 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7511. 1751.35 s [opt-env-conf-test] showParen (d > 10) $
  7512. 1751.35 s [opt-env-conf-test] showString "Commands "
  7513. 1758.71 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7514. 1758.74 s [opt-env-conf-test] + . showsPrec 1 mLoc
  7515. 1758.74 s [opt-env-conf-test] . showString " "
  7516. 1758.74 s [opt-env-conf-test] . showsPrec 11 mDefault
  7517. 1758.74 s [opt-env-conf-test] . showString " "
  7518. 1758.74 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
  7519. 1758.74 s [opt-env-conf-test] @@ -354,7 +354,7 @@
  7520. 1758.74 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  7521. 1758.74 s [opt-env-conf-test] showParen (d > 10) $
  7522. 1758.74 s [opt-env-conf-test] showString "Commands "
  7523. 1758.74 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7524. 1758.74 s [opt-env-conf-test] + . showsPrec -11 mLoc
  7525. 1758.74 s [opt-env-conf-test] . showString " "
  7526. 1758.74 s [opt-env-conf-test] . showsPrec 11 mDefault
  7527. 1758.74 s [opt-env-conf-test] . showString " "
  7528. 1758.74 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
  7529. 1758.74 s [opt-env-conf-test] @@ -356,7 +356,7 @@
  7530. 1758.74 s [opt-env-conf-test] showString "Commands "
  7531. 1758.74 s [opt-env-conf-test] . showsPrec 11 mLoc
  7532. 1758.74 s [opt-env-conf-test] . showString " "
  7533. 1758.74 s [opt-env-conf-test] - . showsPrec 11 mDefault
  7534. 1758.74 s [opt-env-conf-test] + . showsPrec 0 mDefault
  7535. 1758.74 s [opt-env-conf-test] . showString " "
  7536. 1758.74 s [opt-env-conf-test] . showListWith
  7537. 1758.75 s [opt-env-conf-test] showCommandABit
  7538. 1758.75 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
  7539. 1758.75 s [opt-env-conf-test] @@ -356,7 +356,7 @@
  7540. 1758.75 s [opt-env-conf-test] showString "Commands "
  7541. 1758.75 s [opt-env-conf-test] . showsPrec 11 mLoc
  7542. 1758.75 s [opt-env-conf-test] . showString " "
  7543. 1758.75 s [opt-env-conf-test] - . showsPrec 11 mDefault
  7544. 1758.75 s [opt-env-conf-test] + . showsPrec 1 mDefault
  7545. 1758.75 s [opt-env-conf-test] . showString " "
  7546. 1758.75 s [opt-env-conf-test] . showListWith
  7547. 1758.75 s [opt-env-conf-test] showCommandABit
  7548. 1758.75 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
  7549. 1758.75 s [opt-env-conf-test] @@ -356,7 +356,7 @@
  7550. 1758.75 s [opt-env-conf-test] showString "Commands "
  7551. 1758.75 s [opt-env-conf-test] . showsPrec 11 mLoc
  7552. 1758.75 s [opt-env-conf-test] . showString " "
  7553. 1758.75 s [opt-env-conf-test] - . showsPrec 11 mDefault
  7554. 1758.75 s [opt-env-conf-test] + . showsPrec -11 mDefault
  7555. 1758.75 s [opt-env-conf-test] . showString " "
  7556. 1758.75 s [opt-env-conf-test] . showListWith
  7557. 1758.75 s [opt-env-conf-test] showCommandABit
  7558. 1758.75 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
  7559. 1758.75 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7560. 1758.75 s [opt-env-conf-test] showCommandABit
  7561. 1758.75 s [opt-env-conf-test] cs
  7562. 1758.75 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7563. 1758.75 s [opt-env-conf-test] - showParen (d > 10) $
  7564. 1758.75 s [opt-env-conf-test] + showParen (d > 0) $
  7565. 1758.75 s [opt-env-conf-test] showString "WithConfig _ "
  7566. 1758.75 s [opt-env-conf-test] . showsPrec 11 mLoc
  7567. 1758.75 s [opt-env-conf-test] . showString " "
  7568. 1758.75 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
  7569. 1758.75 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7570. 1758.75 s [opt-env-conf-test] showCommandABit
  7571. 1758.75 s [opt-env-conf-test] cs
  7572. 1758.75 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7573. 1758.75 s [opt-env-conf-test] - showParen (d > 10) $
  7574. 1758.75 s [opt-env-conf-test] + showParen (d > 1) $
  7575. 1758.75 s [opt-env-conf-test] showString "WithConfig _ "
  7576. 1758.75 s [opt-env-conf-test] . showsPrec 11 mLoc
  7577. 1758.75 s [opt-env-conf-test] . showString " "
  7578. 1758.75 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
  7579. 1758.75 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7580. 1758.75 s [opt-env-conf-test] showCommandABit
  7581. 1758.75 s [opt-env-conf-test] cs
  7582. 1758.75 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7583. 1758.75 s [opt-env-conf-test] - showParen (d > 10) $
  7584. 1758.75 s [opt-env-conf-test] + showParen (d > -10) $
  7585. 1758.75 s [opt-env-conf-test] showString "WithConfig _ "
  7586. 1758.75 s [opt-env-conf-test] . showsPrec 11 mLoc
  7587. 1758.76 s [opt-env-conf-test] . showString " "
  7588. 1758.76 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:365:20-26
  7589. 1758.76 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7590. 1758.76 s [opt-env-conf-test] showCommandABit
  7591. 1758.76 s [opt-env-conf-test] cs
  7592. 1758.76 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7593. 1758.76 s [opt-env-conf-test] - showParen (d > 10) $
  7594. 1758.76 s [opt-env-conf-test] + showParen (d < 10) $
  7595. 1758.76 s [opt-env-conf-test] showString "WithConfig _ "
  7596. 1758.76 s [opt-env-conf-test] . showsPrec 11 mLoc
  7597. 1758.76 s [opt-env-conf-test] . showString " "
  7598. 1758.76 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:365:20-26
  7599. 1758.76 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7600. 1758.76 s [opt-env-conf-test] showCommandABit
  7601. 1758.76 s [opt-env-conf-test] cs
  7602. 1758.76 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7603. 1758.76 s [opt-env-conf-test] - showParen (d > 10) $
  7604. 1758.76 s [opt-env-conf-test] + showParen (d <= 10) $
  7605. 1758.76 s [opt-env-conf-test] showString "WithConfig _ "
  7606. 1758.76 s [opt-env-conf-test] . showsPrec 11 mLoc
  7607. 1758.76 s [opt-env-conf-test] . showString " "
  7608. 1758.76 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:365:20-26
  7609. 1758.76 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7610. 1758.76 s [opt-env-conf-test] showCommandABit
  7611. 1758.76 s [opt-env-conf-test] cs
  7612. 1758.76 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7613. 1758.76 s [opt-env-conf-test] - showParen (d > 10) $
  7614. 1758.76 s [opt-env-conf-test] + showParen (d >= 10) $
  7615. 1758.76 s [opt-env-conf-test] showString "WithConfig _ "
  7616. 1758.76 s [opt-env-conf-test] . showsPrec 11 mLoc
  7617. 1758.76 s [opt-env-conf-test] . showString " "
  7618. 1758.76 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  7619. 1758.76 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7620. 1758.76 s [opt-env-conf-test] showCommandABit
  7621. 1758.76 s [opt-env-conf-test] cs
  7622. 1758.76 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7623. 1758.76 s [opt-env-conf-test] - showParen (d > 10) $
  7624. 1758.76 s [opt-env-conf-test] + showParen (True) $
  7625. 1758.76 s [opt-env-conf-test] showString "WithConfig _ "
  7626. 1758.76 s [opt-env-conf-test] . showsPrec 11 mLoc
  7627. 1758.76 s [opt-env-conf-test] . showString " "
  7628. 1758.76 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  7629. 1758.76 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7630. 1758.76 s [opt-env-conf-test] showCommandABit
  7631. 1758.76 s [opt-env-conf-test] cs
  7632. 1758.76 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7633. 1758.76 s [opt-env-conf-test] - showParen (d > 10) $
  7634. 1758.76 s [opt-env-conf-test] + showParen (False) $
  7635. 1758.76 s [opt-env-conf-test] showString "WithConfig _ "
  7636. 1758.76 s [opt-env-conf-test] . showsPrec 11 mLoc
  7637. 1758.76 s [opt-env-conf-test] . showString " "
  7638. 1758.76 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:365:20-26
  7639. 1758.76 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7640. 1758.76 s [opt-env-conf-test] showCommandABit
  7641. 1758.76 s [opt-env-conf-test] cs
  7642. 1758.76 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7643. 1758.76 s [opt-env-conf-test] - showParen (d > 10) $
  7644. 1758.76 s [opt-env-conf-test] + showParen (not (d > 10)) $
  7645. 1758.76 s [opt-env-conf-test] showString "WithConfig _ "
  7646. 1758.77 s [opt-env-conf-test] . showsPrec 11 mLoc
  7647. 1758.77 s [opt-env-conf-test] . showString " "
  7648. 1758.77 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  7649. 1758.77 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7650. 1758.77 s [opt-env-conf-test] showCommandABit
  7651. 1758.77 s [opt-env-conf-test] cs
  7652. 1758.77 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7653. 1758.77 s [opt-env-conf-test] - showParen (d > 10) $
  7654. 1758.77 s [opt-env-conf-test] + showParen True $
  7655. 1758.77 s [opt-env-conf-test] showString "WithConfig _ "
  7656. 1758.77 s [opt-env-conf-test] . showsPrec 11 mLoc
  7657. 1758.77 s [opt-env-conf-test] . showString " "
  7658. 1758.77 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  7659. 1758.77 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7660. 1758.77 s [opt-env-conf-test] showCommandABit
  7661. 1758.77 s [opt-env-conf-test] cs
  7662. 1758.77 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7663. 1758.77 s [opt-env-conf-test] - showParen (d > 10) $
  7664. 1758.77 s [opt-env-conf-test] + showParen False $
  7665. 1758.77 s [opt-env-conf-test] showString "WithConfig _ "
  7666. 1758.77 s [opt-env-conf-test] . showsPrec 11 mLoc
  7667. 1758.77 s [opt-env-conf-test] . showString " "
  7668. 1758.77 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:365:19-27
  7669. 1758.77 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  7670. 1758.77 s [opt-env-conf-test] showCommandABit
  7671. 1758.77 s [opt-env-conf-test] cs
  7672. 1758.77 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7673. 1758.77 s [opt-env-conf-test] - showParen (d > 10) $
  7674. 1758.77 s [opt-env-conf-test] + showParen not ((d > 10)) $
  7675. 1758.77 s [opt-env-conf-test] showString "WithConfig _ "
  7676. 1758.77 s [opt-env-conf-test] . showsPrec 11 mLoc
  7677. 1758.77 s [opt-env-conf-test] . showString " "
  7678. 1758.77 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
  7679. 1758.77 s [opt-env-conf-test] @@ -364,7 +364,7 @@
  7680. 1758.77 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7681. 1758.77 s [opt-env-conf-test] showParen (d > 10) $
  7682. 1758.77 s [opt-env-conf-test] showString "WithConfig _ "
  7683. 1758.77 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7684. 1758.77 s [opt-env-conf-test] + . showsPrec 0 mLoc
  7685. 1758.77 s [opt-env-conf-test] . showString " "
  7686. 1758.77 s [opt-env-conf-test] . go 11 p1
  7687. 1758.77 s [opt-env-conf-test] . showString " "
  7688. 1758.77 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
  7689. 1758.77 s [opt-env-conf-test] @@ -364,7 +364,7 @@
  7690. 1758.77 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7691. 1758.77 s [opt-env-conf-test] showParen (d > 10) $
  7692. 1758.77 s [opt-env-conf-test] showString "WithConfig _ "
  7693. 1758.77 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7694. 1758.78 s [opt-env-conf-test] + . showsPrec 1 mLoc
  7695. 1758.78 s [opt-env-conf-test] . showString " "
  7696. 1758.78 s [opt-env-conf-test] . go 11 p1
  7697. 1758.78 s [opt-env-conf-test] . showString " "
  7698. 1758.78 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
  7699. 1758.78 s [opt-env-conf-test] @@ -364,7 +364,7 @@
  7700. 1758.78 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  7701. 1758.78 s [opt-env-conf-test] showParen (d > 10) $
  7702. 1758.78 s [opt-env-conf-test] showString "WithConfig _ "
  7703. 1758.78 s [opt-env-conf-test] - . showsPrec 11 mLoc
  7704. 1758.78 s [opt-env-conf-test] + . showsPrec -11 mLoc
  7705. 1758.78 s [opt-env-conf-test] . showString " "
  7706. 1769.04 s [opt-env-conf-test] . go 11 p1
  7707. 1769.04 s [opt-env-conf-test] . showString " "
  7708. 1769.04 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
  7709. 1769.06 s [opt-env-conf-test] @@ -366,7 +366,7 @@
  7710. 1769.06 s [opt-env-conf-test] showString "WithConfig _ "
  7711. 1769.07 s [opt-env-conf-test] . showsPrec 11 mLoc
  7712. 1769.07 s [opt-env-conf-test] . showString " "
  7713. 1769.07 s [opt-env-conf-test] - . go 11 p1
  7714. 1769.07 s [opt-env-conf-test] + . go 0 p1
  7715. 1769.07 s [opt-env-conf-test] . showString " "
  7716. 1769.07 s [opt-env-conf-test] . go 11 p2
  7717. 1769.07 s [opt-env-conf-test] ParserSetting mLoc p ->
  7718. 1769.07 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
  7719. 1769.07 s [opt-env-conf-test] @@ -366,7 +366,7 @@
  7720. 1769.07 s [opt-env-conf-test] showString "WithConfig _ "
  7721. 1769.07 s [opt-env-conf-test] . showsPrec 11 mLoc
  7722. 1769.07 s [opt-env-conf-test] . showString " "
  7723. 1769.07 s [opt-env-conf-test] - . go 11 p1
  7724. 1769.07 s [opt-env-conf-test] + . go 1 p1
  7725. 1769.07 s [opt-env-conf-test] . showString " "
  7726. 1769.07 s [opt-env-conf-test] . go 11 p2
  7727. 1769.07 s [opt-env-conf-test] ParserSetting mLoc p ->
  7728. 1769.07 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
  7729. 1769.07 s [opt-env-conf-test] @@ -366,7 +366,7 @@
  7730. 1769.07 s [opt-env-conf-test] showString "WithConfig _ "
  7731. 1769.07 s [opt-env-conf-test] . showsPrec 11 mLoc
  7732. 1769.07 s [opt-env-conf-test] . showString " "
  7733. 1769.07 s [opt-env-conf-test] - . go 11 p1
  7734. 1769.07 s [opt-env-conf-test] + . go -11 p1
  7735. 1769.07 s [opt-env-conf-test] . showString " "
  7736. 1769.07 s [opt-env-conf-test] . go 11 p2
  7737. 1769.07 s [opt-env-conf-test] ParserSetting mLoc p ->
  7738. 1769.07 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
  7739. 1769.07 s [opt-env-conf-test] @@ -368,7 +368,7 @@
  7740. 1769.07 s [opt-env-conf-test] . showString " "
  7741. 1769.07 s [opt-env-conf-test] . go 11 p1
  7742. 1769.07 s [opt-env-conf-test] . showString " "
  7743. 1769.07 s [opt-env-conf-test] - . go 11 p2
  7744. 1769.07 s [opt-env-conf-test] + . go 0 p2
  7745. 1769.07 s [opt-env-conf-test] ParserSetting mLoc p ->
  7746. 1769.07 s [opt-env-conf-test] showParen (d > 10) $
  7747. 1769.07 s [opt-env-conf-test] showString "Setting "
  7748. 1769.07 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
  7749. 1769.07 s [opt-env-conf-test] @@ -368,7 +368,7 @@
  7750. 1769.07 s [opt-env-conf-test] . showString " "
  7751. 1769.07 s [opt-env-conf-test] . go 11 p1
  7752. 1769.08 s [opt-env-conf-test] . showString " "
  7753. 1769.08 s [opt-env-conf-test] - . go 11 p2
  7754. 1769.08 s [opt-env-conf-test] + . go 1 p2
  7755. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7756. 1769.08 s [opt-env-conf-test] showParen (d > 10) $
  7757. 1769.08 s [opt-env-conf-test] showString "Setting "
  7758. 1769.08 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
  7759. 1769.08 s [opt-env-conf-test] @@ -368,7 +368,7 @@
  7760. 1769.08 s [opt-env-conf-test] . showString " "
  7761. 1769.08 s [opt-env-conf-test] . go 11 p1
  7762. 1769.08 s [opt-env-conf-test] . showString " "
  7763. 1769.08 s [opt-env-conf-test] - . go 11 p2
  7764. 1769.08 s [opt-env-conf-test] + . go -11 p2
  7765. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7766. 1769.08 s [opt-env-conf-test] showParen (d > 10) $
  7767. 1769.08 s [opt-env-conf-test] showString "Setting "
  7768. 1769.08 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
  7769. 1769.08 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7770. 1769.08 s [opt-env-conf-test] . showString " "
  7771. 1769.08 s [opt-env-conf-test] . go 11 p2
  7772. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7773. 1769.08 s [opt-env-conf-test] - showParen (d > 10) $
  7774. 1769.08 s [opt-env-conf-test] + showParen (d > 0) $
  7775. 1769.08 s [opt-env-conf-test] showString "Setting "
  7776. 1769.08 s [opt-env-conf-test] . showsPrec 11 mLoc
  7777. 1769.08 s [opt-env-conf-test] . showString " "
  7778. 1769.08 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
  7779. 1769.08 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7780. 1769.08 s [opt-env-conf-test] . showString " "
  7781. 1769.08 s [opt-env-conf-test] . go 11 p2
  7782. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7783. 1769.08 s [opt-env-conf-test] - showParen (d > 10) $
  7784. 1769.08 s [opt-env-conf-test] + showParen (d > 1) $
  7785. 1769.08 s [opt-env-conf-test] showString "Setting "
  7786. 1769.08 s [opt-env-conf-test] . showsPrec 11 mLoc
  7787. 1769.08 s [opt-env-conf-test] . showString " "
  7788. 1769.08 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
  7789. 1769.08 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7790. 1769.08 s [opt-env-conf-test] . showString " "
  7791. 1769.08 s [opt-env-conf-test] . go 11 p2
  7792. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7793. 1769.08 s [opt-env-conf-test] - showParen (d > 10) $
  7794. 1769.08 s [opt-env-conf-test] + showParen (d > -10) $
  7795. 1769.08 s [opt-env-conf-test] showString "Setting "
  7796. 1769.08 s [opt-env-conf-test] . showsPrec 11 mLoc
  7797. 1769.08 s [opt-env-conf-test] . showString " "
  7798. 1769.08 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:373:20-26
  7799. 1769.08 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7800. 1769.08 s [opt-env-conf-test] . showString " "
  7801. 1769.08 s [opt-env-conf-test] . go 11 p2
  7802. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7803. 1769.08 s [opt-env-conf-test] - showParen (d > 10) $
  7804. 1769.08 s [opt-env-conf-test] + showParen (d < 10) $
  7805. 1769.08 s [opt-env-conf-test] showString "Setting "
  7806. 1769.08 s [opt-env-conf-test] . showsPrec 11 mLoc
  7807. 1769.08 s [opt-env-conf-test] . showString " "
  7808. 1769.08 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:373:20-26
  7809. 1769.08 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7810. 1769.08 s [opt-env-conf-test] . showString " "
  7811. 1769.08 s [opt-env-conf-test] . go 11 p2
  7812. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7813. 1769.08 s [opt-env-conf-test] - showParen (d > 10) $
  7814. 1769.08 s [opt-env-conf-test] + showParen (d <= 10) $
  7815. 1769.08 s [opt-env-conf-test] showString "Setting "
  7816. 1769.08 s [opt-env-conf-test] . showsPrec 11 mLoc
  7817. 1769.08 s [opt-env-conf-test] . showString " "
  7818. 1769.08 s [opt-env-conf-test] Testing mutation Cmp at src/OptEnvConf/Parser.hs:373:20-26
  7819. 1769.08 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7820. 1769.08 s [opt-env-conf-test] . showString " "
  7821. 1769.08 s [opt-env-conf-test] . go 11 p2
  7822. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7823. 1769.08 s [opt-env-conf-test] - showParen (d > 10) $
  7824. 1769.08 s [opt-env-conf-test] + showParen (d >= 10) $
  7825. 1769.08 s [opt-env-conf-test] showString "Setting "
  7826. 1769.08 s [opt-env-conf-test] . showsPrec 11 mLoc
  7827. 1769.08 s [opt-env-conf-test] . showString " "
  7828. 1769.08 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
  7829. 1769.08 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7830. 1769.08 s [opt-env-conf-test] . showString " "
  7831. 1769.08 s [opt-env-conf-test] . go 11 p2
  7832. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7833. 1769.08 s [opt-env-conf-test] - showParen (d > 10) $
  7834. 1769.08 s [opt-env-conf-test] + showParen (True) $
  7835. 1769.08 s [opt-env-conf-test] showString "Setting "
  7836. 1769.08 s [opt-env-conf-test] . showsPrec 11 mLoc
  7837. 1769.08 s [opt-env-conf-test] . showString " "
  7838. 1769.08 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
  7839. 1769.08 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7840. 1769.08 s [opt-env-conf-test] . showString " "
  7841. 1769.08 s [opt-env-conf-test] . go 11 p2
  7842. 1769.08 s [opt-env-conf-test] ParserSetting mLoc p ->
  7843. 1769.08 s [opt-env-conf-test] - showParen (d > 10) $
  7844. 1769.08 s [opt-env-conf-test] + showParen (False) $
  7845. 1769.09 s [opt-env-conf-test] showString "Setting "
  7846. 1769.09 s [opt-env-conf-test] . showsPrec 11 mLoc
  7847. 1769.09 s [opt-env-conf-test] . showString " "
  7848. 1769.09 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:373:20-26
  7849. 1769.09 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7850. 1769.09 s [opt-env-conf-test] . showString " "
  7851. 1769.09 s [opt-env-conf-test] . go 11 p2
  7852. 1769.09 s [opt-env-conf-test] ParserSetting mLoc p ->
  7853. 1769.09 s [opt-env-conf-test] - showParen (d > 10) $
  7854. 1769.09 s [opt-env-conf-test] + showParen (not (d > 10)) $
  7855. 1769.09 s [opt-env-conf-test] showString "Setting "
  7856. 1769.09 s [opt-env-conf-test] . showsPrec 11 mLoc
  7857. 1769.09 s [opt-env-conf-test] . showString " "
  7858. 1769.09 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
  7859. 1769.09 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7860. 1769.09 s [opt-env-conf-test] . showString " "
  7861. 1769.09 s [opt-env-conf-test] . go 11 p2
  7862. 1769.09 s [opt-env-conf-test] ParserSetting mLoc p ->
  7863. 1769.09 s [opt-env-conf-test] - showParen (d > 10) $
  7864. 1769.09 s [opt-env-conf-test] + showParen True $
  7865. 1769.09 s [opt-env-conf-test] showString "Setting "
  7866. 1769.09 s [opt-env-conf-test] . showsPrec 11 mLoc
  7867. 1769.09 s [opt-env-conf-test] . showString " "
  7868. 1769.09 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:980:39-43
  7869. 1769.09 s [opt-env-conf-test] @@ -977,7 +977,7 @@
  7870. 1769.09 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
  7871. 1769.09 s [opt-env-conf-test] settingReaders = [],
  7872. 1769.09 s [opt-env-conf-test] settingTryArgument = False,
  7873. 1769.09 s [opt-env-conf-test] - settingSwitchValue = Just True, -- Unused
  7874. 1769.09 s [opt-env-conf-test] + settingSwitchValue = Just False, -- Unused
  7875. 1769.09 s [opt-env-conf-test] settingTryOption = False,
  7876. 1769.09 s [opt-env-conf-test] settingEnvVars = Nothing,
  7877. 1769.09 s [opt-env-conf-test] settingConfigVals = Nothing,
  7878. 1769.09 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:967:31-36
  7879. 1769.09 s [opt-env-conf-test] @@ -964,7 +964,7 @@
  7880. 1769.09 s [opt-env-conf-test] settingConfigVals = Just ne,
  7881. 1769.09 s [opt-env-conf-test] settingDefaultValue = Nothing,
  7882. 1769.09 s [opt-env-conf-test] settingExamples = [],
  7883. 1769.09 s [opt-env-conf-test] - settingHidden = False,
  7884. 1769.09 s [opt-env-conf-test] + settingHidden = True,
  7885. 1769.09 s [opt-env-conf-test] settingMetavar = Nothing,
  7886. 1769.09 s [opt-env-conf-test] settingHelp = settingHelp s,
  7887. 1769.09 s [opt-env-conf-test] settingCompleter = Nothing,
  7888. 1769.09 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
  7889. 1769.09 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7890. 1769.09 s [opt-env-conf-test] . showString " "
  7891. 1769.09 s [opt-env-conf-test] . go 11 p2
  7892. 1769.09 s [opt-env-conf-test] ParserSetting mLoc p ->
  7893. 1769.09 s [opt-env-conf-test] - showParen (d > 10) $
  7894. 1769.09 s [opt-env-conf-test] + showParen False $
  7895. 1769.09 s [opt-env-conf-test] showString "Setting "
  7896. 1769.09 s [opt-env-conf-test] . showsPrec 11 mLoc
  7897. 1769.09 s [opt-env-conf-test] . showString " "
  7898. 1769.09 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:373:19-27
  7899. 1769.09 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  7900. 1769.09 s [opt-env-conf-test] . showString " "
  7901. 1769.09 s [opt-env-conf-test] . go 11 p2
  7902. 1770.98 s [opt-env-conf-test] ParserSetting mLoc p ->
  7903. 1770.98 s [opt-env-conf-test] - showParen (d > 10) $
  7904. 1770.98 s [opt-env-conf-test] + showParen not ((d > 10)) $
  7905. 1770.98 s [opt-env-conf-test] showString "Setting "
  7906. 1770.98 s [opt-env-conf-test] . showsPrec 11 mLoc
  7907. 1770.98 s [opt-env-conf-test] . showString " "
  7908. 1770.98 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:939:36-41
  7909. 1770.98 s [opt-env-conf-test] @@ -936,7 +936,7 @@
  7910. 1770.98 s [opt-env-conf-test] Setting
  7911. 1770.98 s [opt-env-conf-test] { settingDasheds = [],
  7912. 1770.98 s [opt-env-conf-test] settingReaders = (auto :: Reader Bool) : settingReaders s,
  7913. 1770.98 s [opt-env-conf-test] - settingTryArgument = False,
  7914. 1770.98 s [opt-env-conf-test] + settingTryArgument = True,
  7915. 1770.99 s [opt-env-conf-test] settingSwitchValue = Nothing,
  7916. 1770.99 s [opt-env-conf-test] settingTryOption = False,
  7917. 1770.99 s [opt-env-conf-test] settingEnvVars = Just ne,
  7918. 1770.99 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
  7919. 1770.99 s [opt-env-conf-test] @@ -346,7 +346,7 @@
  7920. 1770.99 s [opt-env-conf-test] showString "Check "
  7921. 1770.99 s [opt-env-conf-test] . showsPrec 11 mLoc
  7922. 1770.99 s [opt-env-conf-test] . showString " "
  7923. 1770.99 s [opt-env-conf-test] - . showsPrec 11 forgivable
  7924. 1770.99 s [opt-env-conf-test] + . showsPrec -11 forgivable
  7925. 1770.99 s [opt-env-conf-test] . showString " "
  7926. 1770.99 s [opt-env-conf-test] . showsPrec 11 caps
  7927. 1770.99 s [opt-env-conf-test] . showString " _ "
  7928. 1770.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  7929. 1770.99 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  7930. 1770.99 s [opt-env-conf-test] where
  7931. 1770.99 s [opt-env-conf-test] go p =
  7932. 1770.99 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  7933. 1770.99 s [opt-env-conf-test] in case p of
  7934. 1770.99 s [opt-env-conf-test] ParserPure a -> ParserPure a
  7935. 1770.99 s [opt-env-conf-test] ParserAp {} -> p'
  7936. 1770.99 s [opt-env-conf-test] ParserSelect {} -> p'
  7937. 1770.99 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  7938. 1770.99 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  7939. 1770.99 s [opt-env-conf-test] ParserMany {} -> p'
  7940. 1770.99 s [opt-env-conf-test] - ParserSome {} -> p'
  7941. 1770.99 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  7942. 1770.99 s [opt-env-conf-test] ParserCheck {} -> p'
  7943. 1770.99 s [opt-env-conf-test] ParserCommands {} -> p'
  7944. 1770.99 s [opt-env-conf-test] ParserWithConfig {} -> p'
  7945. 1770.99 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  7946. 1770.99 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  7947. 1770.99 s [opt-env-conf-test] Just _ -> p
  7948. 1770.99 s [opt-env-conf-test]
  7949. 1770.99 s [opt-env-conf-test] -- | Try a list of parsers in order
  7950. 1770.99 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  7951. 1770.99 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:979:34-39
  7952. 1770.99 s [opt-env-conf-test] @@ -976,7 +976,7 @@
  7953. 1770.99 s [opt-env-conf-test] Setting
  7954. 1770.99 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
  7955. 1770.99 s [opt-env-conf-test] settingReaders = [],
  7956. 1770.99 s [opt-env-conf-test] - settingTryArgument = False,
  7957. 1770.99 s [opt-env-conf-test] + settingTryArgument = True,
  7958. 1770.99 s [opt-env-conf-test] settingSwitchValue = Just True, -- Unused
  7959. 1770.99 s [opt-env-conf-test] settingTryOption = False,
  7960. 1770.99 s [opt-env-conf-test] settingEnvVars = Nothing,
  7961. 1770.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  7962. 1770.99 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  7963. 1770.99 s [opt-env-conf-test] where
  7964. 1770.99 s [opt-env-conf-test] go p =
  7965. 1770.99 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  7966. 1770.99 s [opt-env-conf-test] in case p of
  7967. 1770.99 s [opt-env-conf-test] ParserPure a -> ParserPure a
  7968. 1770.99 s [opt-env-conf-test] ParserAp {} -> p'
  7969. 1770.99 s [opt-env-conf-test] ParserSelect {} -> p'
  7970. 1770.99 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  7971. 1770.99 s [opt-env-conf-test] - ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  7972. 1770.99 s [opt-env-conf-test] ParserMany {} -> p'
  7973. 1771.00 s [opt-env-conf-test] ParserSome {} -> p'
  7974. 1771.00 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  7975. 1771.00 s [opt-env-conf-test] ParserCheck {} -> p'
  7976. 1771.00 s [opt-env-conf-test] ParserCommands {} -> p'
  7977. 1771.00 s [opt-env-conf-test] ParserWithConfig {} -> p'
  7978. 1771.00 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  7979. 1771.00 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  7980. 1771.00 s [opt-env-conf-test] Just _ -> p
  7981. 1771.00 s [opt-env-conf-test]
  7982. 1771.00 s [opt-env-conf-test] -- | Try a list of parsers in order
  7983. 1771.00 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  7984. 1771.00 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:924:29-33
  7985. 1771.00 s [opt-env-conf-test] @@ -921,7 +921,7 @@
  7986. 1771.00 s [opt-env-conf-test] settingConfigVals = Nothing,
  7987. 1771.00 s [opt-env-conf-test] settingDefaultValue = Nothing,
  7988. 1771.00 s [opt-env-conf-test] settingExamples = [],
  7989. 1771.00 s [opt-env-conf-test] - settingHidden = True,
  7990. 1771.00 s [opt-env-conf-test] + settingHidden = False,
  7991. 1771.00 s [opt-env-conf-test] settingMetavar = Nothing,
  7992. 1771.00 s [opt-env-conf-test] settingHelp = Nothing,
  7993. 1771.00 s [opt-env-conf-test] settingCompleter = Nothing,
  7994. 1771.00 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
  7995. 1771.00 s [opt-env-conf-test] @@ -322,7 +322,7 @@
  7996. 1771.00 s [opt-env-conf-test] showString "Alt "
  7997. 1771.00 s [opt-env-conf-test] . go 11 p1
  7998. 1771.00 s [opt-env-conf-test] . showString " "
  7999. 1771.00 s [opt-env-conf-test] - . go 11 p2
  8000. 1771.00 s [opt-env-conf-test] + . go -11 p2
  8001. 1771.00 s [opt-env-conf-test] ParserMany mLoc p ->
  8002. 1771.00 s [opt-env-conf-test] showParen (d > 10) $
  8003. 1771.00 s [opt-env-conf-test] showString "Many "
  8004. 1771.00 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:960:36-41
  8005. 1771.00 s [opt-env-conf-test] @@ -957,7 +957,7 @@
  8006. 1771.00 s [opt-env-conf-test] Setting
  8007. 1771.00 s [opt-env-conf-test] { settingDasheds = [],
  8008. 1771.00 s [opt-env-conf-test] settingReaders = [],
  8009. 1771.00 s [opt-env-conf-test] - settingTryArgument = False,
  8010. 1771.00 s [opt-env-conf-test] + settingTryArgument = True,
  8011. 1771.00 s [opt-env-conf-test] settingSwitchValue = Nothing,
  8012. 1771.00 s [opt-env-conf-test] settingTryOption = False,
  8013. 1771.00 s [opt-env-conf-test] settingEnvVars = Nothing,
  8014. 1771.00 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:962:34-39
  8015. 1771.00 s [opt-env-conf-test] @@ -959,7 +959,7 @@
  8016. 1771.00 s [opt-env-conf-test] settingReaders = [],
  8017. 1771.00 s [opt-env-conf-test] settingTryArgument = False,
  8018. 1771.00 s [opt-env-conf-test] settingSwitchValue = Nothing,
  8019. 1771.00 s [opt-env-conf-test] - settingTryOption = False,
  8020. 1771.00 s [opt-env-conf-test] + settingTryOption = True,
  8021. 1771.00 s [opt-env-conf-test] settingEnvVars = Nothing,
  8022. 1771.00 s [opt-env-conf-test] settingConfigVals = Just ne,
  8023. 1771.00 s [opt-env-conf-test] settingDefaultValue = Nothing,
  8024. 1771.00 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:964:35-42
  8025. 1771.00 s [opt-env-conf-test] @@ -961,7 +961,7 @@
  8026. 1771.00 s [opt-env-conf-test] settingSwitchValue = Nothing,
  8027. 1771.00 s [opt-env-conf-test] settingTryOption = False,
  8028. 1771.00 s [opt-env-conf-test] settingEnvVars = Nothing,
  8029. 1771.00 s [opt-env-conf-test] - settingConfigVals = Just ne,
  8030. 1771.00 s [opt-env-conf-test] + settingConfigVals = Nothing,
  8031. 1771.00 s [opt-env-conf-test] settingDefaultValue = Nothing,
  8032. 1771.00 s [opt-env-conf-test] settingExamples = [],
  8033. 1771.00 s [opt-env-conf-test] settingHidden = False,
  8034. 1771.00 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:919:32-37
  8035. 1771.00 s [opt-env-conf-test] @@ -916,7 +916,7 @@
  8036. 1771.00 s [opt-env-conf-test] settingReaders = [],
  8037. 1771.00 s [opt-env-conf-test] settingTryArgument = False,
  8038. 1771.00 s [opt-env-conf-test] settingSwitchValue = Just False,
  8039. 1771.00 s [opt-env-conf-test] - settingTryOption = False,
  8040. 1771.00 s [opt-env-conf-test] + settingTryOption = True,
  8041. 1771.00 s [opt-env-conf-test] settingEnvVars = Nothing,
  8042. 1771.00 s [opt-env-conf-test] settingConfigVals = Nothing,
  8043. 1771.00 s [opt-env-conf-test] settingDefaultValue = Nothing,
  8044. 1771.00 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:947:32-43
  8045. 1771.00 s [opt-env-conf-test] @@ -944,7 +944,7 @@
  8046. 1771.01 s [opt-env-conf-test] settingDefaultValue = Nothing,
  8047. 1771.01 s [opt-env-conf-test] settingExamples = [],
  8048. 1771.01 s [opt-env-conf-test] settingHidden = False,
  8049. 1771.01 s [opt-env-conf-test] - settingMetavar = Just "BOOL",
  8050. 1771.01 s [opt-env-conf-test] + settingMetavar = Nothing,
  8051. 1771.01 s [opt-env-conf-test] settingHelp = settingHelp s,
  8052. 1771.01 s [opt-env-conf-test] settingCompleter = Nothing,
  8053. 1771.01 s [opt-env-conf-test] settingRequiredCapabilities = Set.empty
  8054. 1771.01 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:918:39-44
  8055. 1771.01 s [opt-env-conf-test] @@ -915,7 +915,7 @@
  8056. 1771.01 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
  8057. 1771.01 s [opt-env-conf-test] settingReaders = [],
  8058. 1771.01 s [opt-env-conf-test] settingTryArgument = False,
  8059. 1771.01 s [opt-env-conf-test] - settingSwitchValue = Just False,
  8060. 1771.01 s [opt-env-conf-test] + settingSwitchValue = Just True,
  8061. 1771.01 s [opt-env-conf-test] settingTryOption = False,
  8062. 1771.01 s [opt-env-conf-test] settingEnvVars = Nothing,
  8063. 1771.01 s [opt-env-conf-test] settingConfigVals = Nothing,
  8064. 1771.01 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:917:34-39
  8065. 1771.01 s [opt-env-conf-test] @@ -914,7 +914,7 @@
  8066. 1771.01 s [opt-env-conf-test] Setting
  8067. 1771.01 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
  8068. 1771.01 s [opt-env-conf-test] settingReaders = [],
  8069. 1771.01 s [opt-env-conf-test] - settingTryArgument = False,
  8070. 1771.01 s [opt-env-conf-test] + settingTryArgument = True,
  8071. 1771.01 s [opt-env-conf-test] settingSwitchValue = Just False,
  8072. 1771.01 s [opt-env-conf-test] settingTryOption = False,
  8073. 1774.79 s [opt-env-conf-test] settingEnvVars = Nothing,
  8074. 1774.79 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:905:29-33
  8075. 1774.87 s [opt-env-conf-test] @@ -902,7 +902,7 @@
  8076. 1774.87 s [opt-env-conf-test] settingConfigVals = Nothing,
  8077. 1774.87 s [opt-env-conf-test] settingDefaultValue = Nothing,
  8078. 1774.87 s [opt-env-conf-test] settingExamples = [],
  8079. 1774.87 s [opt-env-conf-test] - settingHidden = True,
  8080. 1774.87 s [opt-env-conf-test] + settingHidden = False,
  8081. 1774.87 s [opt-env-conf-test] settingMetavar = Nothing,
  8082. 1774.87 s [opt-env-conf-test] settingHelp = Nothing,
  8083. 1774.87 s [opt-env-conf-test] settingCompleter = Nothing,
  8084. 1774.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:946:31-36
  8085. 1774.87 s [opt-env-conf-test] @@ -943,7 +943,7 @@
  8086. 1774.87 s [opt-env-conf-test] settingConfigVals = Nothing,
  8087. 1774.87 s [opt-env-conf-test] settingDefaultValue = Nothing,
  8088. 1774.87 s [opt-env-conf-test] settingExamples = [],
  8089. 1774.87 s [opt-env-conf-test] - settingHidden = False,
  8090. 1774.87 s [opt-env-conf-test] + settingHidden = True,
  8091. 1774.87 s [opt-env-conf-test] settingMetavar = Just "BOOL",
  8092. 1774.87 s [opt-env-conf-test] settingHelp = settingHelp s,
  8093. 1774.87 s [opt-env-conf-test] settingCompleter = Nothing,
  8094. 1774.87 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:900:32-37
  8095. 1774.87 s [opt-env-conf-test] @@ -897,7 +897,7 @@
  8096. 1774.87 s [opt-env-conf-test] settingReaders = [],
  8097. 1774.87 s [opt-env-conf-test] settingTryArgument = False,
  8098. 1774.87 s [opt-env-conf-test] settingSwitchValue = Just True,
  8099. 1774.87 s [opt-env-conf-test] - settingTryOption = False,
  8100. 1774.87 s [opt-env-conf-test] + settingTryOption = True,
  8101. 1774.87 s [opt-env-conf-test] settingEnvVars = Nothing,
  8102. 1774.87 s [opt-env-conf-test] settingConfigVals = Nothing,
  8103. 1774.87 s [opt-env-conf-test] settingDefaultValue = Nothing,
  8104. 1774.87 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Parser.hs:918:34-44
  8105. 1774.87 s [opt-env-conf-test] @@ -915,7 +915,7 @@
  8106. 1774.87 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
  8107. 1774.88 s [opt-env-conf-test] settingReaders = [],
  8108. 1774.88 s [opt-env-conf-test] settingTryArgument = False,
  8109. 1774.88 s [opt-env-conf-test] - settingSwitchValue = Just False,
  8110. 1774.88 s [opt-env-conf-test] + settingSwitchValue = Nothing,
  8111. 1774.88 s [opt-env-conf-test] settingTryOption = False,
  8112. 1774.88 s [opt-env-conf-test] settingEnvVars = Nothing,
  8113. 1774.88 s [opt-env-conf-test] settingConfigVals = Nothing,
  8114. 1774.88 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:899:39-43
  8115. 1774.88 s [opt-env-conf-test] @@ -896,7 +896,7 @@
  8116. 1774.88 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
  8117. 1774.88 s [opt-env-conf-test] settingReaders = [],
  8118. 1774.88 s [opt-env-conf-test] settingTryArgument = False,
  8119. 1774.88 s [opt-env-conf-test] - settingSwitchValue = Just True,
  8120. 1774.88 s [opt-env-conf-test] + settingSwitchValue = Just False,
  8121. 1774.88 s [opt-env-conf-test] settingTryOption = False,
  8122. 1774.88 s [opt-env-conf-test] settingEnvVars = Nothing,
  8123. 1774.88 s [opt-env-conf-test] settingConfigVals = Nothing,
  8124. 1774.88 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:898:34-39
  8125. 1774.88 s [opt-env-conf-test] @@ -895,7 +895,7 @@
  8126. 1774.88 s [opt-env-conf-test] Setting
  8127. 1774.88 s [opt-env-conf-test] { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
  8128. 1774.88 s [opt-env-conf-test] settingReaders = [],
  8129. 1774.88 s [opt-env-conf-test] - settingTryArgument = False,
  8130. 1774.88 s [opt-env-conf-test] + settingTryArgument = True,
  8131. 1774.88 s [opt-env-conf-test] settingSwitchValue = Just True,
  8132. 1774.88 s [opt-env-conf-test] settingTryOption = False,
  8133. 1774.88 s [opt-env-conf-test] settingEnvVars = Nothing,
  8134. 1774.88 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:890:19-21
  8135. 1774.88 s [opt-env-conf-test] @@ -887,7 +887,7 @@
  8136. 1774.88 s [opt-env-conf-test] parseDefaultVal :: Maybe (Parser Bool)
  8137. 1774.88 s [opt-env-conf-test] parseDefaultVal = do
  8138. 1774.88 s [opt-env-conf-test] (dv, _) <- settingDefaultValue s
  8139. 1774.88 s [opt-env-conf-test] - pure $ pure dv
  8140. 1774.88 s [opt-env-conf-test] + pure $ pure not (dv)
  8141. 1774.88 s [opt-env-conf-test]
  8142. 1774.88 s [opt-env-conf-test] parseEnableSwitch :: Parser Bool
  8143. 1774.88 s [opt-env-conf-test] parseEnableSwitch =
  8144. 1774.88 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
  8145. 1774.88 s [opt-env-conf-test] @@ -372,7 +372,7 @@
  8146. 1774.88 s [opt-env-conf-test] ParserSetting mLoc p ->
  8147. 1774.88 s [opt-env-conf-test] showParen (d > 10) $
  8148. 1774.88 s [opt-env-conf-test] showString "Setting "
  8149. 1774.88 s [opt-env-conf-test] - . showsPrec 11 mLoc
  8150. 1774.88 s [opt-env-conf-test] + . showsPrec -11 mLoc
  8151. 1774.88 s [opt-env-conf-test] . showString " "
  8152. 1774.88 s [opt-env-conf-test] . showSettingABit p
  8153. 1774.88 s [opt-env-conf-test]
  8154. 1774.88 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
  8155. 1774.88 s [opt-env-conf-test] @@ -372,7 +372,7 @@
  8156. 1774.88 s [opt-env-conf-test] ParserSetting mLoc p ->
  8157. 1774.88 s [opt-env-conf-test] showParen (d > 10) $
  8158. 1774.88 s [opt-env-conf-test] showString "Setting "
  8159. 1774.88 s [opt-env-conf-test] - . showsPrec 11 mLoc
  8160. 1774.88 s [opt-env-conf-test] + . showsPrec 1 mLoc
  8161. 1774.88 s [opt-env-conf-test] . showString " "
  8162. 1774.88 s [opt-env-conf-test] . showSettingABit p
  8163. 1774.88 s [opt-env-conf-test]
  8164. 1774.88 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:941:34-39
  8165. 1774.88 s [opt-env-conf-test] @@ -938,7 +938,7 @@
  8166. 1774.88 s [opt-env-conf-test] settingReaders = (auto :: Reader Bool) : settingReaders s,
  8167. 1774.88 s [opt-env-conf-test] settingTryArgument = False,
  8168. 1774.88 s [opt-env-conf-test] settingSwitchValue = Nothing,
  8169. 1774.88 s [opt-env-conf-test] - settingTryOption = False,
  8170. 1774.89 s [opt-env-conf-test] + settingTryOption = True,
  8171. 1774.89 s [opt-env-conf-test] settingEnvVars = Just ne,
  8172. 1774.89 s [opt-env-conf-test] settingConfigVals = Nothing,
  8173. 1774.89 s [opt-env-conf-test] settingDefaultValue = Nothing,
  8174. 1774.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  8175. 1774.89 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  8176. 1774.89 s [opt-env-conf-test] where
  8177. 1774.89 s [opt-env-conf-test] go p =
  8178. 1774.89 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  8179. 1774.89 s [opt-env-conf-test] in case p of
  8180. 1774.89 s [opt-env-conf-test] ParserPure a -> ParserPure a
  8181. 1774.89 s [opt-env-conf-test] ParserAp {} -> p'
  8182. 1774.89 s [opt-env-conf-test] - ParserSelect {} -> p'
  8183. 1774.89 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  8184. 1774.89 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  8185. 1774.89 s [opt-env-conf-test] ParserMany {} -> p'
  8186. 1774.89 s [opt-env-conf-test] ParserSome {} -> p'
  8187. 1774.89 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  8188. 1774.89 s [opt-env-conf-test] ParserCheck {} -> p'
  8189. 1774.89 s [opt-env-conf-test] ParserCommands {} -> p'
  8190. 1774.89 s [opt-env-conf-test] ParserWithConfig {} -> p'
  8191. 1774.89 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  8192. 1774.89 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  8193. 1774.89 s [opt-env-conf-test] Just _ -> p
  8194. 1774.89 s [opt-env-conf-test]
  8195. 1774.89 s [opt-env-conf-test] -- | Try a list of parsers in order
  8196. 1774.89 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  8197. 1774.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
  8198. 1774.89 s [opt-env-conf-test] @@ -131,7 +131,7 @@
  8199. 1774.89 s [opt-env-conf-test] showCommandABit :: Command a -> ShowS
  8200. 1774.89 s [opt-env-conf-test] showCommandABit Command {..} =
  8201. 1774.89 s [opt-env-conf-test] showString "Command "
  8202. 1774.89 s [opt-env-conf-test] - . showsPrec 11 commandArg
  8203. 1774.89 s [opt-env-conf-test] + . showsPrec -11 commandArg
  8204. 1774.89 s [opt-env-conf-test] . showString " "
  8205. 1774.89 s [opt-env-conf-test] . showsPrec 11 commandHelp
  8206. 1774.89 s [opt-env-conf-test] . showString " "
  8207. 1774.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
  8208. 1774.89 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  8209. 1774.89 s [opt-env-conf-test] ParserCheck {} -> p'
  8210. 1774.89 s [opt-env-conf-test] ParserCommands {} -> p'
  8211. 1774.89 s [opt-env-conf-test] ParserWithConfig {} -> p'
  8212. 1774.89 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  8213. 1774.89 s [opt-env-conf-test] - Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  8214. 1774.89 s [opt-env-conf-test] Just _ -> p
  8215. 1774.89 s [opt-env-conf-test]
  8216. 1774.89 s [opt-env-conf-test] -- | Try a list of parsers in order
  8217. 1774.89 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  8218. 1774.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
  8219. 1774.89 s [opt-env-conf-test] @@ -372,7 +372,7 @@
  8220. 1774.89 s [opt-env-conf-test] ParserSetting mLoc p ->
  8221. 1774.89 s [opt-env-conf-test] showParen (d > 10) $
  8222. 1774.89 s [opt-env-conf-test] showString "Setting "
  8223. 1774.89 s [opt-env-conf-test] - . showsPrec 11 mLoc
  8224. 1774.89 s [opt-env-conf-test] + . showsPrec 0 mLoc
  8225. 1774.89 s [opt-env-conf-test] . showString " "
  8226. 1774.89 s [opt-env-conf-test] . showSettingABit p
  8227. 1774.89 s [opt-env-conf-test]
  8228. 1774.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
  8229. 1774.89 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  8230. 1774.89 s [opt-env-conf-test] showString "Command "
  8231. 1774.89 s [opt-env-conf-test] . showsPrec 11 commandArg
  8232. 1774.89 s [opt-env-conf-test] . showString " "
  8233. 1774.89 s [opt-env-conf-test] - . showsPrec 11 commandHelp
  8234. 1774.89 s [opt-env-conf-test] + . showsPrec -11 commandHelp
  8235. 1774.89 s [opt-env-conf-test] . showString " "
  8236. 1774.89 s [opt-env-conf-test] . showParserPrec 11 commandParser
  8237. 1774.89 s [opt-env-conf-test]
  8238. 1774.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
  8239. 1774.89 s [opt-env-conf-test] @@ -135,7 +135,7 @@
  8240. 1774.89 s [opt-env-conf-test] . showString " "
  8241. 1774.89 s [opt-env-conf-test] . showsPrec 11 commandHelp
  8242. 1774.89 s [opt-env-conf-test] . showString " "
  8243. 1774.89 s [opt-env-conf-test] - . showParserPrec 11 commandParser
  8244. 1774.89 s [opt-env-conf-test] + . showParserPrec 1 commandParser
  8245. 1774.89 s [opt-env-conf-test]
  8246. 1774.89 s [opt-env-conf-test] -- | A 'Parser' structure
  8247. 1774.89 s [opt-env-conf-test] --
  8248. 1774.89 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:297:39-40
  8249. 1774.89 s [opt-env-conf-test] @@ -294,7 +294,7 @@
  8250. 1774.89 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  8251. 1774.89 s [opt-env-conf-test]
  8252. 1774.89 s [opt-env-conf-test] showParserABit :: Parser a -> String
  8253. 1774.89 s [opt-env-conf-test] -showParserABit = flip (showParserPrec 0) ""
  8254. 1774.89 s [opt-env-conf-test] +showParserABit = flip (showParserPrec 1) ""
  8255. 1774.89 s [opt-env-conf-test]
  8256. 1780.18 s [opt-env-conf-test] showParserPrec :: Int -> Parser a -> ShowS
  8257. 1780.18 s [opt-env-conf-test] showParserPrec = go
  8258. 1780.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  8259. 1780.20 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  8260. 1780.20 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8261. 1780.20 s [opt-env-conf-test] isEmpty = \case
  8262. 1780.20 s [opt-env-conf-test] ParserPure _ -> False
  8263. 1780.20 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  8264. 1780.20 s [opt-env-conf-test] + ParserAp pf pa -> True && isEmpty pa
  8265. 1780.20 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8266. 1780.20 s [opt-env-conf-test] ParserEmpty _ -> True
  8267. 1780.20 s [opt-env-conf-test] ParserAlt _ _ -> False
  8268. 1780.20 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
  8269. 1780.20 s [opt-env-conf-test] @@ -135,7 +135,7 @@
  8270. 1780.20 s [opt-env-conf-test] . showString " "
  8271. 1780.20 s [opt-env-conf-test] . showsPrec 11 commandHelp
  8272. 1780.20 s [opt-env-conf-test] . showString " "
  8273. 1780.20 s [opt-env-conf-test] - . showParserPrec 11 commandParser
  8274. 1780.20 s [opt-env-conf-test] + . showParserPrec 0 commandParser
  8275. 1780.20 s [opt-env-conf-test]
  8276. 1780.20 s [opt-env-conf-test] -- | A 'Parser' structure
  8277. 1780.20 s [opt-env-conf-test] --
  8278. 1780.20 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:255:27-32
  8279. 1780.20 s [opt-env-conf-test] @@ -252,7 +252,7 @@
  8280. 1780.20 s [opt-env-conf-test] (<|>) p1 p2 =
  8281. 1780.20 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8282. 1780.20 s [opt-env-conf-test] isEmpty = \case
  8283. 1780.20 s [opt-env-conf-test] - ParserPure _ -> False
  8284. 1780.20 s [opt-env-conf-test] + ParserPure _ -> True
  8285. 1780.20 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8286. 1780.20 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8287. 1780.20 s [opt-env-conf-test] ParserEmpty _ -> True
  8288. 1780.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  8289. 1780.20 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  8290. 1780.20 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8291. 1780.20 s [opt-env-conf-test] isEmpty = \case
  8292. 1780.20 s [opt-env-conf-test] ParserPure _ -> False
  8293. 1780.20 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  8294. 1780.20 s [opt-env-conf-test] + ParserAp pf pa -> False && isEmpty pa
  8295. 1780.20 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8296. 1780.20 s [opt-env-conf-test] ParserEmpty _ -> True
  8297. 1780.20 s [opt-env-conf-test] ParserAlt _ _ -> False
  8298. 1780.21 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:257:33-43
  8299. 1780.21 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  8300. 1780.21 s [opt-env-conf-test] isEmpty = \case
  8301. 1780.21 s [opt-env-conf-test] ParserPure _ -> False
  8302. 1780.21 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8303. 1780.21 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8304. 1780.21 s [opt-env-conf-test] + ParserSelect pe pf -> not (isEmpty pe) && isEmpty pf
  8305. 1780.21 s [opt-env-conf-test] ParserEmpty _ -> True
  8306. 1780.21 s [opt-env-conf-test] ParserAlt _ _ -> False
  8307. 1780.21 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8308. 1780.21 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:257:47-57
  8309. 1780.21 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  8310. 1780.21 s [opt-env-conf-test] isEmpty = \case
  8311. 1780.21 s [opt-env-conf-test] ParserPure _ -> False
  8312. 1780.21 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8313. 1780.21 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8314. 1780.21 s [opt-env-conf-test] + ParserSelect pe pf -> isEmpty pe && not (isEmpty pf)
  8315. 1780.21 s [opt-env-conf-test] ParserEmpty _ -> True
  8316. 1780.21 s [opt-env-conf-test] ParserAlt _ _ -> False
  8317. 1780.21 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8318. 1780.21 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
  8319. 1780.21 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  8320. 1780.21 s [opt-env-conf-test] isEmpty = \case
  8321. 1780.21 s [opt-env-conf-test] ParserPure _ -> False
  8322. 1780.21 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8323. 1780.21 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8324. 1780.21 s [opt-env-conf-test] + ParserSelect pe pf -> True
  8325. 1780.21 s [opt-env-conf-test] ParserEmpty _ -> True
  8326. 1780.21 s [opt-env-conf-test] ParserAlt _ _ -> False
  8327. 1780.21 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8328. 1780.21 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Parser.hs:256:29-53
  8329. 1780.21 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  8330. 1780.21 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8331. 1780.21 s [opt-env-conf-test] isEmpty = \case
  8332. 1780.21 s [opt-env-conf-test] ParserPure _ -> False
  8333. 1780.21 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  8334. 1780.21 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf || isEmpty pa
  8335. 1780.21 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8336. 1780.21 s [opt-env-conf-test] ParserEmpty _ -> True
  8337. 1780.21 s [opt-env-conf-test] ParserAlt _ _ -> False
  8338. 1780.21 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:256:43-53
  8339. 1780.21 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  8340. 1780.21 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8341. 1780.21 s [opt-env-conf-test] isEmpty = \case
  8342. 1780.21 s [opt-env-conf-test] ParserPure _ -> False
  8343. 1780.21 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  8344. 1780.21 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
  8345. 1780.21 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8346. 1780.21 s [opt-env-conf-test] ParserEmpty _ -> True
  8347. 1780.21 s [opt-env-conf-test] ParserAlt _ _ -> False
  8348. 1780.21 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
  8349. 1780.21 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  8350. 1780.21 s [opt-env-conf-test] isEmpty = \case
  8351. 1780.21 s [opt-env-conf-test] ParserPure _ -> False
  8352. 1780.21 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8353. 1780.21 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8354. 1780.21 s [opt-env-conf-test] + ParserSelect pe pf -> False
  8355. 1780.21 s [opt-env-conf-test] ParserEmpty _ -> True
  8356. 1780.21 s [opt-env-conf-test] ParserAlt _ _ -> False
  8357. 1780.21 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8358. 1780.21 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Parser.hs:257:33-57
  8359. 1780.21 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  8360. 1780.21 s [opt-env-conf-test] isEmpty = \case
  8361. 1780.21 s [opt-env-conf-test] ParserPure _ -> False
  8362. 1780.21 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8363. 1780.21 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8364. 1780.21 s [opt-env-conf-test] + ParserSelect pe pf -> isEmpty pe || isEmpty pf
  8365. 1780.21 s [opt-env-conf-test] ParserEmpty _ -> True
  8366. 1780.21 s [opt-env-conf-test] ParserAlt _ _ -> False
  8367. 1780.21 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8368. 1780.22 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:257:33-57
  8369. 1780.22 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  8370. 1780.22 s [opt-env-conf-test] isEmpty = \case
  8371. 1780.22 s [opt-env-conf-test] ParserPure _ -> False
  8372. 1780.22 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8373. 1780.22 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8374. 1780.22 s [opt-env-conf-test] + ParserSelect pe pf -> not (isEmpty pe && isEmpty pf)
  8375. 1780.22 s [opt-env-conf-test] ParserEmpty _ -> True
  8376. 1780.22 s [opt-env-conf-test] ParserAlt _ _ -> False
  8377. 1780.22 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8378. 1780.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
  8379. 1780.22 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  8380. 1780.22 s [opt-env-conf-test] isEmpty = \case
  8381. 1780.22 s [opt-env-conf-test] ParserPure _ -> False
  8382. 1780.22 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8383. 1780.22 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8384. 1780.22 s [opt-env-conf-test] + ParserSelect pe pf -> isEmpty pe && True
  8385. 1780.22 s [opt-env-conf-test] ParserEmpty _ -> True
  8386. 1780.22 s [opt-env-conf-test] ParserAlt _ _ -> False
  8387. 1780.22 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8388. 1780.22 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:258:28-32
  8389. 1780.22 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  8390. 1780.22 s [opt-env-conf-test] ParserPure _ -> False
  8391. 1780.22 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8392. 1780.22 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8393. 1780.22 s [opt-env-conf-test] - ParserEmpty _ -> True
  8394. 1780.22 s [opt-env-conf-test] + ParserEmpty _ -> False
  8395. 1780.22 s [opt-env-conf-test] ParserAlt _ _ -> False
  8396. 1780.22 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8397. 1780.22 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8398. 1780.22 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:259:28-33
  8399. 1780.22 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  8400. 1780.22 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8401. 1780.22 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8402. 1780.22 s [opt-env-conf-test] ParserEmpty _ -> True
  8403. 1780.22 s [opt-env-conf-test] - ParserAlt _ _ -> False
  8404. 1780.22 s [opt-env-conf-test] + ParserAlt _ _ -> True
  8405. 1780.22 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8406. 1780.22 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8407. 1780.22 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8408. 1780.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
  8409. 1780.22 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  8410. 1780.22 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8411. 1780.22 s [opt-env-conf-test] isEmpty = \case
  8412. 1780.22 s [opt-env-conf-test] ParserPure _ -> False
  8413. 1780.22 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  8414. 1784.90 s [opt-env-conf-test] + ParserAp pf pa -> True
  8415. 1784.90 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8416. 1784.90 s [opt-env-conf-test] ParserEmpty _ -> True
  8417. 1784.90 s [opt-env-conf-test] ParserAlt _ _ -> False
  8418. 1784.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
  8419. 1784.91 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  8420. 1784.91 s [opt-env-conf-test] isEmpty = \case
  8421. 1784.91 s [opt-env-conf-test] ParserPure _ -> False
  8422. 1784.91 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  8423. 1784.91 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8424. 1784.91 s [opt-env-conf-test] + ParserSelect pe pf -> True && isEmpty pf
  8425. 1784.91 s [opt-env-conf-test] ParserEmpty _ -> True
  8426. 1784.91 s [opt-env-conf-test] ParserAlt _ _ -> False
  8427. 1784.91 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8428. 1784.91 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:256:29-53
  8429. 1784.91 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  8430. 1784.91 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8431. 1784.91 s [opt-env-conf-test] isEmpty = \case
  8432. 1784.91 s [opt-env-conf-test] ParserPure _ -> False
  8433. 1784.91 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  8434. 1784.91 s [opt-env-conf-test] + ParserAp pf pa -> not (isEmpty pf && isEmpty pa)
  8435. 1784.91 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8436. 1784.91 s [opt-env-conf-test] ParserEmpty _ -> True
  8437. 1784.91 s [opt-env-conf-test] ParserAlt _ _ -> False
  8438. 1784.91 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
  8439. 1784.92 s [opt-env-conf-test] @@ -135,7 +135,7 @@
  8440. 1784.92 s [opt-env-conf-test] . showString " "
  8441. 1784.92 s [opt-env-conf-test] . showsPrec 11 commandHelp
  8442. 1784.92 s [opt-env-conf-test] . showString " "
  8443. 1784.92 s [opt-env-conf-test] - . showParserPrec 11 commandParser
  8444. 1784.92 s [opt-env-conf-test] + . showParserPrec -11 commandParser
  8445. 1784.92 s [opt-env-conf-test]
  8446. 1784.92 s [opt-env-conf-test] -- | A 'Parser' structure
  8447. 1784.92 s [opt-env-conf-test] --
  8448. 1784.92 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
  8449. 1784.92 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  8450. 1784.92 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8451. 1784.92 s [opt-env-conf-test] isEmpty = \case
  8452. 1784.92 s [opt-env-conf-test] ParserPure _ -> False
  8453. 1784.92 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  8454. 1784.92 s [opt-env-conf-test] + ParserAp pf pa -> False
  8455. 1784.92 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8456. 1784.92 s [opt-env-conf-test] ParserEmpty _ -> True
  8457. 1784.92 s [opt-env-conf-test] ParserAlt _ _ -> False
  8458. 1784.92 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
  8459. 1784.92 s [opt-env-conf-test] @@ -258,7 +258,7 @@
  8460. 1784.92 s [opt-env-conf-test] ParserEmpty _ -> True
  8461. 1784.92 s [opt-env-conf-test] ParserAlt _ _ -> False
  8462. 1784.92 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8463. 1784.92 s [opt-env-conf-test] - ParserSome _ p -> isEmpty p
  8464. 1784.92 s [opt-env-conf-test] + ParserSome _ p -> True
  8465. 1784.92 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8466. 1784.92 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8467. 1784.92 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8468. 1784.92 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  8469. 1784.92 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  8470. 1784.92 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8471. 1784.92 s [opt-env-conf-test] isEmpty = \case
  8472. 1784.92 s [opt-env-conf-test] ParserPure _ -> False
  8473. 1784.92 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  8474. 1784.92 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && False
  8475. 1784.92 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8476. 1784.92 s [opt-env-conf-test] ParserEmpty _ -> True
  8477. 1784.92 s [opt-env-conf-test] ParserAlt _ _ -> False
  8478. 1784.92 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:260:29-38
  8479. 1784.92 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  8480. 1784.92 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8481. 1784.92 s [opt-env-conf-test] ParserEmpty _ -> True
  8482. 1784.92 s [opt-env-conf-test] ParserAlt _ _ -> False
  8483. 1784.92 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  8484. 1784.92 s [opt-env-conf-test] + ParserMany _ p -> not (isEmpty p)
  8485. 1784.92 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8486. 1784.92 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8487. 1784.92 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8488. 1784.92 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  8489. 1784.92 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  8490. 1784.92 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  8491. 1784.92 s [opt-env-conf-test] isEmpty = \case
  8492. 1784.92 s [opt-env-conf-test] ParserPure _ -> False
  8493. 1784.92 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  8494. 1784.93 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && True
  8495. 1784.93 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8496. 1784.93 s [opt-env-conf-test] ParserEmpty _ -> True
  8497. 1784.93 s [opt-env-conf-test] ParserAlt _ _ -> False
  8498. 1784.93 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
  8499. 1784.93 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  8500. 1784.93 s [opt-env-conf-test] showString "Command "
  8501. 1784.93 s [opt-env-conf-test] . showsPrec 11 commandArg
  8502. 1784.93 s [opt-env-conf-test] . showString " "
  8503. 1784.93 s [opt-env-conf-test] - . showsPrec 11 commandHelp
  8504. 1784.93 s [opt-env-conf-test] + . showsPrec 1 commandHelp
  8505. 1784.93 s [opt-env-conf-test] . showString " "
  8506. 1784.93 s [opt-env-conf-test] . showParserPrec 11 commandParser
  8507. 1784.93 s [opt-env-conf-test]
  8508. 1784.93 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
  8509. 1784.93 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  8510. 1784.93 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8511. 1784.93 s [opt-env-conf-test] ParserEmpty _ -> True
  8512. 1784.93 s [opt-env-conf-test] ParserAlt _ _ -> False
  8513. 1784.93 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  8514. 1784.93 s [opt-env-conf-test] + ParserMany _ p -> True
  8515. 1784.93 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8516. 1784.93 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8517. 1784.93 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8518. 1784.93 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
  8519. 1784.93 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  8520. 1784.93 s [opt-env-conf-test] showString "Command "
  8521. 1784.93 s [opt-env-conf-test] . showsPrec 11 commandArg
  8522. 1784.93 s [opt-env-conf-test] . showString " "
  8523. 1784.93 s [opt-env-conf-test] - . showsPrec 11 commandHelp
  8524. 1784.93 s [opt-env-conf-test] + . showsPrec 0 commandHelp
  8525. 1784.93 s [opt-env-conf-test] . showString " "
  8526. 1784.93 s [opt-env-conf-test] . showParserPrec 11 commandParser
  8527. 1784.93 s [opt-env-conf-test]
  8528. 1784.93 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
  8529. 1784.93 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  8530. 1784.93 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  8531. 1784.93 s [opt-env-conf-test] ParserEmpty _ -> True
  8532. 1784.93 s [opt-env-conf-test] ParserAlt _ _ -> False
  8533. 1784.93 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  8534. 1784.93 s [opt-env-conf-test] + ParserMany _ p -> False
  8535. 1784.93 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8536. 1784.93 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8537. 1784.93 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8538. 1784.93 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
  8539. 1784.93 s [opt-env-conf-test] @@ -131,7 +131,7 @@
  8540. 1784.93 s [opt-env-conf-test] showCommandABit :: Command a -> ShowS
  8541. 1784.93 s [opt-env-conf-test] showCommandABit Command {..} =
  8542. 1784.93 s [opt-env-conf-test] showString "Command "
  8543. 1784.93 s [opt-env-conf-test] - . showsPrec 11 commandArg
  8544. 1784.93 s [opt-env-conf-test] + . showsPrec 1 commandArg
  8545. 1784.93 s [opt-env-conf-test] . showString " "
  8546. 1784.93 s [opt-env-conf-test] . showsPrec 11 commandHelp
  8547. 1784.93 s [opt-env-conf-test] . showString " "
  8548. 1784.93 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
  8549. 1784.93 s [opt-env-conf-test] @@ -258,7 +258,7 @@
  8550. 1784.94 s [opt-env-conf-test] ParserEmpty _ -> True
  8551. 1784.94 s [opt-env-conf-test] ParserAlt _ _ -> False
  8552. 1784.94 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8553. 1784.94 s [opt-env-conf-test] - ParserSome _ p -> isEmpty p
  8554. 1784.94 s [opt-env-conf-test] + ParserSome _ p -> False
  8555. 1784.94 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8556. 1784.94 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8557. 1784.94 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8558. 1784.94 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
  8559. 1784.94 s [opt-env-conf-test] @@ -131,7 +131,7 @@
  8560. 1784.94 s [opt-env-conf-test] showCommandABit :: Command a -> ShowS
  8561. 1784.94 s [opt-env-conf-test] showCommandABit Command {..} =
  8562. 1784.94 s [opt-env-conf-test] showString "Command "
  8563. 1784.94 s [opt-env-conf-test] - . showsPrec 11 commandArg
  8564. 1784.94 s [opt-env-conf-test] + . showsPrec 0 commandArg
  8565. 1784.94 s [opt-env-conf-test] . showString " "
  8566. 1784.94 s [opt-env-conf-test] . showsPrec 11 commandHelp
  8567. 1784.94 s [opt-env-conf-test] . showString " "
  8568. 1784.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
  8569. 1784.94 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  8570. 1784.94 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8571. 1784.94 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8572. 1784.94 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8573. 1784.94 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8574. 1784.94 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> False
  8575. 1784.94 s [opt-env-conf-test] ParserSetting _ _ -> False
  8576. 1784.94 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  8577. 1784.94 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8578. 1784.94 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:261:29-38
  8579. 1784.94 s [opt-env-conf-test] @@ -258,7 +258,7 @@
  8580. 1784.94 s [opt-env-conf-test] ParserEmpty _ -> True
  8581. 1784.94 s [opt-env-conf-test] ParserAlt _ _ -> False
  8582. 1784.94 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8583. 1784.94 s [opt-env-conf-test] - ParserSome _ p -> isEmpty p
  8584. 1786.15 s [opt-env-conf-test] + ParserSome _ p -> not (isEmpty p)
  8585. 1786.22 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8586. 1786.22 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8587. 1786.22 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8588. 1786.22 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
  8589. 1786.22 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  8590. 1786.23 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8591. 1786.23 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8592. 1786.23 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8593. 1786.23 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8594. 1786.23 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> False && isEmpty ps
  8595. 1786.23 s [opt-env-conf-test] ParserSetting _ _ -> False
  8596. 1786.23 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  8597. 1786.23 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8598. 1786.23 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:265:39-63
  8599. 1786.23 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  8600. 1786.23 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8601. 1786.23 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8602. 1786.23 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8603. 1786.23 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8604. 1786.23 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> not (isEmpty pc && isEmpty ps)
  8605. 1786.23 s [opt-env-conf-test] ParserSetting _ _ -> False
  8606. 1786.23 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  8607. 1786.23 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8608. 1786.23 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
  8609. 1786.23 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  8610. 1786.23 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8611. 1786.23 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8612. 1786.23 s [opt-env-conf-test] ParserSetting _ _ -> False
  8613. 1786.23 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  8614. 1786.24 s [opt-env-conf-test] + in case (isEmpty p1, False) of
  8615. 1786.24 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8616. 1786.24 s [opt-env-conf-test] (True, False) -> p2
  8617. 1786.24 s [opt-env-conf-test] (False, True) -> p1
  8618. 1786.24 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
  8619. 1786.24 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  8620. 1786.24 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8621. 1786.24 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8622. 1786.24 s [opt-env-conf-test] ParserSetting _ _ -> False
  8623. 1786.24 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  8624. 1786.24 s [opt-env-conf-test] + in case (isEmpty p1, True) of
  8625. 1786.24 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8626. 1786.24 s [opt-env-conf-test] (True, False) -> p2
  8627. 1786.24 s [opt-env-conf-test] (False, True) -> p1
  8628. 1786.24 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Parser.hs:265:39-63
  8629. 1786.24 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  8630. 1786.24 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8631. 1786.24 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8632. 1786.24 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8633. 1786.24 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8634. 1786.24 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> isEmpty pc || isEmpty ps
  8635. 1786.24 s [opt-env-conf-test] ParserSetting _ _ -> False
  8636. 1786.24 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  8637. 1786.24 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8638. 1786.24 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:267:27-37
  8639. 1786.24 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  8640. 1786.24 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8641. 1786.24 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8642. 1786.24 s [opt-env-conf-test] ParserSetting _ _ -> False
  8643. 1786.25 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  8644. 1786.25 s [opt-env-conf-test] + in case (isEmpty p1, not (isEmpty p2)) of
  8645. 1786.25 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8646. 1786.25 s [opt-env-conf-test] (True, False) -> p2
  8647. 1786.25 s [opt-env-conf-test] (False, True) -> p1
  8648. 1786.25 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  8649. 1786.25 s [opt-env-conf-test] @@ -269,26 +269,24 @@
  8650. 1786.25 s [opt-env-conf-test] (True, False) -> p2
  8651. 1786.25 s [opt-env-conf-test] (False, True) -> p1
  8652. 1786.25 s [opt-env-conf-test] (False, False) ->
  8653. 1786.25 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  8654. 1786.25 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  8655. 1786.25 s [opt-env-conf-test] -- alts to always be right-leaning
  8656. 1786.25 s [opt-env-conf-test] --
  8657. 1786.25 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  8658. 1786.25 s [opt-env-conf-test] -- p
  8659. 1786.25 s [opt-env-conf-test] -- / \
  8660. 1786.25 s [opt-env-conf-test] -- p1 p2
  8661. 1786.25 s [opt-env-conf-test] -- / \
  8662. 1786.25 s [opt-env-conf-test] -- p3 p4
  8663. 1786.25 s [opt-env-conf-test] --
  8664. 1786.25 s [opt-env-conf-test] -- We need to rearrange it to
  8665. 1786.25 s [opt-env-conf-test] -- p
  8666. 1786.25 s [opt-env-conf-test] -- / \
  8667. 1786.25 s [opt-env-conf-test] -- p1 ++ p3 p4
  8668. 1786.25 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  8669. 1786.25 s [opt-env-conf-test] - go (go p1' p3') p4'
  8670. 1786.25 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  8671. 1786.25 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  8672. 1786.25 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  8673. 1786.25 s [opt-env-conf-test] in go p1 p2
  8674. 1786.25 s [opt-env-conf-test] many = ParserMany Nothing
  8675. 1786.25 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  8676. 1786.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  8677. 1786.26 s [opt-env-conf-test] @@ -269,26 +269,24 @@
  8678. 1786.26 s [opt-env-conf-test] (True, False) -> p2
  8679. 1786.26 s [opt-env-conf-test] (False, True) -> p1
  8680. 1786.26 s [opt-env-conf-test] (False, False) ->
  8681. 1786.26 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  8682. 1786.26 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  8683. 1786.26 s [opt-env-conf-test] -- alts to always be right-leaning
  8684. 1786.26 s [opt-env-conf-test] --
  8685. 1786.26 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  8686. 1786.26 s [opt-env-conf-test] -- p
  8687. 1786.26 s [opt-env-conf-test] -- / \
  8688. 1786.26 s [opt-env-conf-test] -- p1 p2
  8689. 1786.26 s [opt-env-conf-test] -- / \
  8690. 1786.26 s [opt-env-conf-test] -- p3 p4
  8691. 1786.26 s [opt-env-conf-test] --
  8692. 1786.26 s [opt-env-conf-test] -- We need to rearrange it to
  8693. 1786.26 s [opt-env-conf-test] -- p
  8694. 1786.26 s [opt-env-conf-test] -- / \
  8695. 1786.26 s [opt-env-conf-test] -- p1 ++ p3 p4
  8696. 1786.26 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  8697. 1786.26 s [opt-env-conf-test] go (go p1' p3') p4'
  8698. 1786.26 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  8699. 1786.26 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  8700. 1786.26 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  8701. 1786.26 s [opt-env-conf-test] in go p1 p2
  8702. 1786.26 s [opt-env-conf-test] many = ParserMany Nothing
  8703. 1786.26 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  8704. 1786.26 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  8705. 1786.26 s [opt-env-conf-test] @@ -269,26 +269,25 @@
  8706. 1786.26 s [opt-env-conf-test] (True, False) -> p2
  8707. 1786.26 s [opt-env-conf-test] (False, True) -> p1
  8708. 1786.26 s [opt-env-conf-test] (False, False) ->
  8709. 1786.26 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  8710. 1786.26 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  8711. 1786.26 s [opt-env-conf-test] -- alts to always be right-leaning
  8712. 1786.26 s [opt-env-conf-test] --
  8713. 1786.26 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  8714. 1786.26 s [opt-env-conf-test] -- p
  8715. 1786.26 s [opt-env-conf-test] -- / \
  8716. 1786.26 s [opt-env-conf-test] -- p1 p2
  8717. 1786.26 s [opt-env-conf-test] -- / \
  8718. 1786.27 s [opt-env-conf-test] -- p3 p4
  8719. 1786.27 s [opt-env-conf-test] --
  8720. 1786.27 s [opt-env-conf-test] -- We need to rearrange it to
  8721. 1786.27 s [opt-env-conf-test] -- p
  8722. 1786.27 s [opt-env-conf-test] -- / \
  8723. 1786.27 s [opt-env-conf-test] -- p1 ++ p3 p4
  8724. 1786.27 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  8725. 1786.27 s [opt-env-conf-test] go (go p1' p3') p4'
  8726. 1786.27 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  8727. 1786.27 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  8728. 1786.27 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  8729. 1786.27 s [opt-env-conf-test] in go p1 p2
  8730. 1786.27 s [opt-env-conf-test] many = ParserMany Nothing
  8731. 1786.27 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  8732. 1786.27 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  8733. 1786.27 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  8734. 1786.27 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8735. 1786.27 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8736. 1786.27 s [opt-env-conf-test] ParserSetting _ _ -> False
  8737. 1786.27 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  8738. 1786.27 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  8739. 1786.27 s [opt-env-conf-test] (True, False) -> p2
  8740. 1786.27 s [opt-env-conf-test] (False, True) -> p1
  8741. 1786.27 s [opt-env-conf-test] (False, False) ->
  8742. 1786.27 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  8743. 1786.27 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  8744. 1786.27 s [opt-env-conf-test] -- alts to always be right-leaning
  8745. 1786.27 s [opt-env-conf-test] --
  8746. 1793.28 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  8747. 1793.30 s [opt-env-conf-test] -- p
  8748. 1793.30 s [opt-env-conf-test] -- / \
  8749. 1793.30 s [opt-env-conf-test] -- p1 p2
  8750. 1793.30 s [opt-env-conf-test] -- / \
  8751. 1793.30 s [opt-env-conf-test] -- p3 p4
  8752. 1793.30 s [opt-env-conf-test] --
  8753. 1793.30 s [opt-env-conf-test] -- We need to rearrange it to
  8754. 1793.30 s [opt-env-conf-test] -- p
  8755. 1793.30 s [opt-env-conf-test] -- / \
  8756. 1793.30 s [opt-env-conf-test] -- p1 ++ p3 p4
  8757. 1793.30 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  8758. 1793.30 s [opt-env-conf-test] go (go p1' p3') p4'
  8759. 1793.30 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  8760. 1793.31 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  8761. 1793.31 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  8762. 1793.31 s [opt-env-conf-test] in go p1 p2
  8763. 1793.31 s [opt-env-conf-test] many = ParserMany Nothing
  8764. 1793.31 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  8765. 1793.31 s [opt-env-conf-test]
  8766. 1793.31 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  8767. 1793.31 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  8768. 1793.31 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8769. 1793.31 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8770. 1793.31 s [opt-env-conf-test] ParserSetting _ _ -> False
  8771. 1793.31 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  8772. 1793.31 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8773. 1793.31 s [opt-env-conf-test] - (True, False) -> p2
  8774. 1793.31 s [opt-env-conf-test] (False, True) -> p1
  8775. 1793.31 s [opt-env-conf-test] (False, False) ->
  8776. 1793.31 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  8777. 1793.31 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  8778. 1793.31 s [opt-env-conf-test] -- alts to always be right-leaning
  8779. 1793.31 s [opt-env-conf-test] --
  8780. 1793.31 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  8781. 1793.31 s [opt-env-conf-test] -- p
  8782. 1793.31 s [opt-env-conf-test] -- / \
  8783. 1793.31 s [opt-env-conf-test] -- p1 p2
  8784. 1793.31 s [opt-env-conf-test] -- / \
  8785. 1793.31 s [opt-env-conf-test] -- p3 p4
  8786. 1793.31 s [opt-env-conf-test] --
  8787. 1793.31 s [opt-env-conf-test] -- We need to rearrange it to
  8788. 1793.31 s [opt-env-conf-test] -- p
  8789. 1793.31 s [opt-env-conf-test] -- / \
  8790. 1793.31 s [opt-env-conf-test] -- p1 ++ p3 p4
  8791. 1793.31 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  8792. 1793.31 s [opt-env-conf-test] go (go p1' p3') p4'
  8793. 1793.31 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  8794. 1793.32 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  8795. 1793.32 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  8796. 1793.32 s [opt-env-conf-test] in go p1 p2
  8797. 1793.32 s [opt-env-conf-test] many = ParserMany Nothing
  8798. 1793.32 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  8799. 1793.32 s [opt-env-conf-test]
  8800. 1793.32 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:267:15-25
  8801. 1793.32 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  8802. 1793.32 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8803. 1793.32 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8804. 1793.32 s [opt-env-conf-test] ParserSetting _ _ -> False
  8805. 1793.32 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  8806. 1793.32 s [opt-env-conf-test] + in case (not (isEmpty p1), isEmpty p2) of
  8807. 1793.32 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8808. 1793.32 s [opt-env-conf-test] (True, False) -> p2
  8809. 1793.32 s [opt-env-conf-test] (False, True) -> p1
  8810. 1793.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
  8811. 1793.32 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  8812. 1793.32 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8813. 1793.32 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8814. 1793.32 s [opt-env-conf-test] ParserSetting _ _ -> False
  8815. 1793.32 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  8816. 1793.32 s [opt-env-conf-test] + in case (False, isEmpty p2) of
  8817. 1793.32 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8818. 1793.32 s [opt-env-conf-test] (True, False) -> p2
  8819. 1793.32 s [opt-env-conf-test] (False, True) -> p1
  8820. 1793.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
  8821. 1793.32 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  8822. 1793.32 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8823. 1793.32 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8824. 1793.32 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8825. 1793.32 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8826. 1793.32 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> True
  8827. 1793.32 s [opt-env-conf-test] ParserSetting _ _ -> False
  8828. 1793.32 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  8829. 1793.32 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8830. 1793.32 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:263:36-45
  8831. 1793.32 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  8832. 1793.32 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8833. 1793.32 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8834. 1793.32 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8835. 1793.32 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  8836. 1793.32 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> not (isEmpty p)
  8837. 1793.32 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8838. 1793.32 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8839. 1793.32 s [opt-env-conf-test] ParserSetting _ _ -> False
  8840. 1793.32 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:262:37-46
  8841. 1793.32 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  8842. 1793.32 s [opt-env-conf-test] ParserAlt _ _ -> False
  8843. 1793.32 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8844. 1793.32 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8845. 1793.32 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  8846. 1793.32 s [opt-env-conf-test] + ParserAllOrNothing _ p -> not (isEmpty p)
  8847. 1793.33 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8848. 1793.33 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8849. 1793.33 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8850. 1793.33 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
  8851. 1793.33 s [opt-env-conf-test] @@ -239,10 +239,9 @@
  8852. 1793.33 s [opt-env-conf-test]
  8853. 1793.33 s [opt-env-conf-test] instance Applicative Parser where
  8854. 1793.33 s [opt-env-conf-test] pure = ParserPure
  8855. 1793.33 s [opt-env-conf-test] (<*>) p1 p2 = case (p1, p2) of
  8856. 1793.33 s [opt-env-conf-test] -- Homomorphism law for applicative
  8857. 1793.33 s [opt-env-conf-test] (ParserPure f, ParserPure a) -> ParserPure (f a)
  8858. 1793.33 s [opt-env-conf-test] - _ -> ParserAp p1 p2
  8859. 1793.33 s [opt-env-conf-test]
  8860. 1793.33 s [opt-env-conf-test] instance Selective Parser where
  8861. 1793.33 s [opt-env-conf-test] select = ParserSelect
  8862. 1793.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
  8863. 1793.33 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  8864. 1793.33 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8865. 1793.33 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8866. 1793.33 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8867. 1793.33 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  8868. 1793.33 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> False
  8869. 1793.33 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8870. 1793.33 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8871. 1793.33 s [opt-env-conf-test] ParserSetting _ _ -> False
  8872. 1793.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
  8873. 1793.33 s [opt-env-conf-test] @@ -231,7 +231,7 @@
  8874. 1793.33 s [opt-env-conf-test] ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
  8875. 1793.33 s [opt-env-conf-test] ParserEmpty mLoc -> ParserEmpty mLoc
  8876. 1793.33 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
  8877. 1793.33 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
  8878. 1793.33 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc False caps (fmap (fmap f) . g) p
  8879. 1793.33 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
  8880. 1793.33 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
  8881. 1793.33 s [opt-env-conf-test] -- If we ever make Setting a functor, then we need to fmap here
  8882. 1793.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
  8883. 1793.33 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  8884. 1793.33 s [opt-env-conf-test] ParserAlt _ _ -> False
  8885. 1793.33 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8886. 1793.33 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8887. 1793.33 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  8888. 1793.33 s [opt-env-conf-test] + ParserAllOrNothing _ p -> False
  8889. 1793.33 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8890. 1793.33 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8891. 1793.33 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8892. 1793.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
  8893. 1793.33 s [opt-env-conf-test] @@ -231,7 +231,7 @@
  8894. 1793.33 s [opt-env-conf-test] ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
  8895. 1793.33 s [opt-env-conf-test] ParserEmpty mLoc -> ParserEmpty mLoc
  8896. 1793.33 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
  8897. 1793.34 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
  8898. 1793.34 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc True caps (fmap (fmap f) . g) p
  8899. 1797.90 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
  8900. 1797.90 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
  8901. 1797.91 s [opt-env-conf-test] -- If we ever make Setting a functor, then we need to fmap here
  8902. 1797.91 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:234:62-72
  8903. 1797.91 s [opt-env-conf-test] @@ -231,7 +231,7 @@
  8904. 1797.91 s [opt-env-conf-test] ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
  8905. 1797.91 s [opt-env-conf-test] ParserEmpty mLoc -> ParserEmpty mLoc
  8906. 1797.91 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
  8907. 1797.91 s [opt-env-conf-test] - ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
  8908. 1797.91 s [opt-env-conf-test] + ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc not (forgivable) caps (fmap (fmap f) . g) p
  8909. 1797.91 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
  8910. 1797.91 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
  8911. 1797.91 s [opt-env-conf-test] -- If we ever make Setting a functor, then we need to fmap here
  8912. 1797.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
  8913. 1797.91 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  8914. 1797.91 s [opt-env-conf-test] ParserAlt _ _ -> False
  8915. 1797.91 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8916. 1797.91 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8917. 1797.91 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  8918. 1797.91 s [opt-env-conf-test] + ParserAllOrNothing _ p -> True
  8919. 1797.91 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  8920. 1797.91 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8921. 1797.91 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8922. 1797.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
  8923. 1797.91 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  8924. 1797.91 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  8925. 1797.91 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  8926. 1797.91 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  8927. 1797.91 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  8928. 1797.92 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> True
  8929. 1797.92 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8930. 1797.92 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8931. 1797.92 s [opt-env-conf-test] ParserSetting _ _ -> False
  8932. 1797.92 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:238:30-34
  8933. 1797.92 s [opt-env-conf-test] @@ -235,7 +235,7 @@
  8934. 1797.92 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
  8935. 1797.92 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
  8936. 1797.92 s [opt-env-conf-test] -- If we ever make Setting a functor, then we need to fmap here
  8937. 1797.92 s [opt-env-conf-test] - p -> ParserCheck Nothing True Set.empty (pure . Right . f) p
  8938. 1797.92 s [opt-env-conf-test] + p -> ParserCheck Nothing False Set.empty (pure . Right . f) p
  8939. 1797.92 s [opt-env-conf-test]
  8940. 1797.92 s [opt-env-conf-test] instance Applicative Parser where
  8941. 1797.92 s [opt-env-conf-test] pure = ParserPure
  8942. 1797.92 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Lint.hs:238:20-25
  8943. 1797.92 s [opt-env-conf-test] @@ -235,7 +235,7 @@
  8944. 1797.92 s [opt-env-conf-test] lintParser =
  8945. 1797.92 s [opt-env-conf-test] either Just (const Nothing)
  8946. 1797.92 s [opt-env-conf-test] . validationToEither
  8947. 1797.92 s [opt-env-conf-test] - . (`runReader` False) -- Set to true for parsers that have a way to load conf
  8948. 1797.92 s [opt-env-conf-test] + . (`runReader` True) -- Set to true for parsers that have a way to load conf
  8949. 1797.92 s [opt-env-conf-test] . runValidationT
  8950. 1797.92 s [opt-env-conf-test] . go
  8951. 1797.92 s [opt-env-conf-test] where
  8952. 1797.92 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Lint.hs:246:28-33
  8953. 1797.92 s [opt-env-conf-test] @@ -243,7 +243,7 @@
  8954. 1797.92 s [opt-env-conf-test] -- 'many' is allowed only when every parse below consumes something.
  8955. 1797.92 s [opt-env-conf-test] go :: Parser a -> ValidationT LintError (Reader Bool) Bool
  8956. 1797.92 s [opt-env-conf-test] go = \case
  8957. 1797.92 s [opt-env-conf-test] - ParserPure _ -> pure False
  8958. 1797.92 s [opt-env-conf-test] + ParserPure _ -> pure True
  8959. 1797.92 s [opt-env-conf-test] ParserAp p1 p2 -> do
  8960. 1797.92 s [opt-env-conf-test] c1 <- go p1
  8961. 1797.92 s [opt-env-conf-test] c2 <- go p2
  8962. 1797.92 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
  8963. 1797.92 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  8964. 1797.92 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  8965. 1797.92 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  8966. 1797.92 s [opt-env-conf-test] ParserSetting _ _ -> False
  8967. 1797.92 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  8968. 1797.92 s [opt-env-conf-test] + in case (True, isEmpty p2) of
  8969. 1797.92 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  8970. 1797.92 s [opt-env-conf-test] (True, False) -> p2
  8971. 1797.92 s [opt-env-conf-test] (False, True) -> p1
  8972. 1797.92 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  8973. 1797.92 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  8974. 1797.92 s [opt-env-conf-test] ParserAp p1 p2 -> do
  8975. 1797.92 s [opt-env-conf-test] c1 <- go p1
  8976. 1797.92 s [opt-env-conf-test] c2 <- go p2
  8977. 1797.93 s [opt-env-conf-test] - pure (c1 || c2)
  8978. 1797.93 s [opt-env-conf-test] + pure (True || c2)
  8979. 1797.93 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  8980. 1797.93 s [opt-env-conf-test] c1 <- go p1
  8981. 1797.93 s [opt-env-conf-test] c2 <- go p2
  8982. 1797.93 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  8983. 1797.93 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  8984. 1797.93 s [opt-env-conf-test] ParserAp p1 p2 -> do
  8985. 1797.93 s [opt-env-conf-test] c1 <- go p1
  8986. 1797.93 s [opt-env-conf-test] c2 <- go p2
  8987. 1797.93 s [opt-env-conf-test] - pure (c1 || c2)
  8988. 1797.93 s [opt-env-conf-test] + pure (False || c2)
  8989. 1797.93 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  8990. 1797.93 s [opt-env-conf-test] c1 <- go p1
  8991. 1797.93 s [opt-env-conf-test] c2 <- go p2
  8992. 1797.93 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
  8993. 1797.93 s [opt-env-conf-test] @@ -239,10 +239,9 @@
  8994. 1797.93 s [opt-env-conf-test]
  8995. 1797.93 s [opt-env-conf-test] instance Applicative Parser where
  8996. 1797.93 s [opt-env-conf-test] pure = ParserPure
  8997. 1797.93 s [opt-env-conf-test] (<*>) p1 p2 = case (p1, p2) of
  8998. 1797.93 s [opt-env-conf-test] -- Homomorphism law for applicative
  8999. 1797.93 s [opt-env-conf-test] - (ParserPure f, ParserPure a) -> ParserPure (f a)
  9000. 1797.93 s [opt-env-conf-test] _ -> ParserAp p1 p2
  9001. 1797.93 s [opt-env-conf-test]
  9002. 1797.93 s [opt-env-conf-test] instance Selective Parser where
  9003. 1797.93 s [opt-env-conf-test] select = ParserSelect
  9004. 1797.93 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  9005. 1797.93 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  9006. 1797.93 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  9007. 1797.93 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9008. 1797.93 s [opt-env-conf-test] ParserSetting _ _ -> False
  9009. 1797.93 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9010. 1797.93 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  9011. 1797.93 s [opt-env-conf-test] (True, False) -> p2
  9012. 1797.93 s [opt-env-conf-test] - (False, True) -> p1
  9013. 1797.93 s [opt-env-conf-test] (False, False) ->
  9014. 1797.93 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  9015. 1797.93 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  9016. 1797.93 s [opt-env-conf-test] -- alts to always be right-leaning
  9017. 1797.93 s [opt-env-conf-test] --
  9018. 1797.93 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  9019. 1797.93 s [opt-env-conf-test] -- p
  9020. 1797.93 s [opt-env-conf-test] -- / \
  9021. 1797.93 s [opt-env-conf-test] -- p1 p2
  9022. 1797.93 s [opt-env-conf-test] -- / \
  9023. 1797.93 s [opt-env-conf-test] -- p3 p4
  9024. 1797.93 s [opt-env-conf-test] --
  9025. 1797.93 s [opt-env-conf-test] -- We need to rearrange it to
  9026. 1797.93 s [opt-env-conf-test] -- p
  9027. 1797.93 s [opt-env-conf-test] -- / \
  9028. 1797.93 s [opt-env-conf-test] -- p1 ++ p3 p4
  9029. 1797.93 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  9030. 1797.93 s [opt-env-conf-test] go (go p1' p3') p4'
  9031. 1797.93 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  9032. 1797.93 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  9033. 1797.93 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  9034. 1797.94 s [opt-env-conf-test] in go p1 p2
  9035. 1797.94 s [opt-env-conf-test] many = ParserMany Nothing
  9036. 1797.94 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  9037. 1797.94 s [opt-env-conf-test]
  9038. 1797.94 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  9039. 1797.94 s [opt-env-conf-test] @@ -264,32 +264,10 @@
  9040. 1797.94 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  9041. 1797.94 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9042. 1797.94 s [opt-env-conf-test] ParserSetting _ _ -> False
  9043. 1797.94 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9044. 1797.94 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  9045. 1797.94 s [opt-env-conf-test] (True, False) -> p2
  9046. 1797.94 s [opt-env-conf-test] (False, True) -> p1
  9047. 1797.94 s [opt-env-conf-test] - (False, False) ->
  9048. 1797.94 s [opt-env-conf-test] - let go p1' p2' = case (p1', p2') of
  9049. 1797.94 s [opt-env-conf-test] - -- <|> needs to be associative, so we need to reorder the
  9050. 1797.94 s [opt-env-conf-test] - -- alts to always be right-leaning
  9051. 1797.94 s [opt-env-conf-test] - --
  9052. 1797.94 s [opt-env-conf-test] - -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  9053. 1797.94 s [opt-env-conf-test] - -- p
  9054. 1797.94 s [opt-env-conf-test] - -- / \
  9055. 1797.94 s [opt-env-conf-test] - -- p1 p2
  9056. 1797.94 s [opt-env-conf-test] - -- / \
  9057. 1797.94 s [opt-env-conf-test] - -- p3 p4
  9058. 1797.94 s [opt-env-conf-test] - --
  9059. 1797.94 s [opt-env-conf-test] - -- We need to rearrange it to
  9060. 1797.94 s [opt-env-conf-test] - -- p
  9061. 1797.94 s [opt-env-conf-test] - -- / \
  9062. 1797.94 s [opt-env-conf-test] - -- p1 ++ p3 p4
  9063. 1797.95 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  9064. 1797.95 s [opt-env-conf-test] - go (go p1' p3') p4'
  9065. 1797.95 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  9066. 1802.24 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  9067. 1802.28 s [opt-env-conf-test] - _ -> ParserAlt p1' p2'
  9068. 1802.28 s [opt-env-conf-test] - in go p1 p2
  9069. 1802.28 s [opt-env-conf-test] many = ParserMany Nothing
  9070. 1802.28 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  9071. 1802.28 s [opt-env-conf-test]
  9072. 1802.28 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:265:53-63
  9073. 1802.28 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  9074. 1802.29 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  9075. 1802.29 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  9076. 1802.29 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  9077. 1802.29 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9078. 1802.29 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> isEmpty pc && not (isEmpty ps)
  9079. 1802.29 s [opt-env-conf-test] ParserSetting _ _ -> False
  9080. 1802.29 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9081. 1802.29 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  9082. 1802.29 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:266:32-37
  9083. 1802.29 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  9084. 1802.29 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  9085. 1802.29 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  9086. 1802.29 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9087. 1802.29 s [opt-env-conf-test] - ParserSetting _ _ -> False
  9088. 1802.29 s [opt-env-conf-test] + ParserSetting _ _ -> True
  9089. 1802.29 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9090. 1802.29 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  9091. 1802.29 s [opt-env-conf-test] (True, False) -> p2
  9092. 1802.29 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
  9093. 1802.29 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  9094. 1802.29 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  9095. 1802.29 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  9096. 1802.29 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  9097. 1802.29 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9098. 1802.30 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> True && isEmpty ps
  9099. 1802.30 s [opt-env-conf-test] ParserSetting _ _ -> False
  9100. 1802.30 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9101. 1802.30 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  9102. 1802.30 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
  9103. 1802.30 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  9104. 1802.30 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  9105. 1802.30 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  9106. 1802.30 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  9107. 1802.30 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9108. 1802.30 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> isEmpty pc && False
  9109. 1802.30 s [opt-env-conf-test] ParserSetting _ _ -> False
  9110. 1802.30 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9111. 1802.30 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  9112. 1802.30 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
  9113. 1802.30 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  9114. 1802.30 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  9115. 1802.30 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  9116. 1802.30 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  9117. 1802.30 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  9118. 1802.30 s [opt-env-conf-test] + ParserCommands _ _ cs -> False
  9119. 1802.30 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9120. 1802.30 s [opt-env-conf-test] ParserSetting _ _ -> False
  9121. 1802.30 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9122. 1802.30 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:265:39-49
  9123. 1802.30 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  9124. 1802.30 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  9125. 1802.30 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  9126. 1802.30 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  9127. 1802.30 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9128. 1802.30 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> not (isEmpty pc) && isEmpty ps
  9129. 1802.30 s [opt-env-conf-test] ParserSetting _ _ -> False
  9130. 1802.30 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9131. 1802.30 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  9132. 1802.30 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
  9133. 1802.30 s [opt-env-conf-test] @@ -262,7 +262,7 @@
  9134. 1802.30 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  9135. 1802.30 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  9136. 1802.31 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  9137. 1802.31 s [opt-env-conf-test] - ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9138. 1802.31 s [opt-env-conf-test] + ParserWithConfig _ pc ps -> isEmpty pc && True
  9139. 1802.31 s [opt-env-conf-test] ParserSetting _ _ -> False
  9140. 1802.31 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9141. 1802.31 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  9142. 1802.31 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:264:36-43
  9143. 1802.31 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  9144. 1802.31 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  9145. 1802.31 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  9146. 1802.31 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  9147. 1802.31 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  9148. 1802.31 s [opt-env-conf-test] + ParserCommands _ _ cs -> not (null cs)
  9149. 1802.31 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9150. 1802.31 s [opt-env-conf-test] ParserSetting _ _ -> False
  9151. 1802.31 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9152. 1802.31 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
  9153. 1802.31 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  9154. 1802.31 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  9155. 1802.31 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  9156. 1802.31 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  9157. 1802.31 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  9158. 1802.31 s [opt-env-conf-test] + ParserCommands _ _ cs -> True
  9159. 1802.31 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  9160. 1802.31 s [opt-env-conf-test] ParserSetting _ _ -> False
  9161. 1802.31 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  9162. 1802.31 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
  9163. 1802.31 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  9164. 1802.31 s [opt-env-conf-test] isEmpty = \case
  9165. 1802.31 s [opt-env-conf-test] ParserPure _ -> False
  9166. 1802.31 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  9167. 1802.31 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  9168. 1802.31 s [opt-env-conf-test] + ParserSelect pe pf -> False && isEmpty pf
  9169. 1802.31 s [opt-env-conf-test] ParserEmpty _ -> True
  9170. 1802.31 s [opt-env-conf-test] ParserAlt _ _ -> False
  9171. 1802.31 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  9172. 1802.31 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:256:29-39
  9173. 1802.31 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  9174. 1802.31 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  9175. 1802.32 s [opt-env-conf-test] isEmpty = \case
  9176. 1802.32 s [opt-env-conf-test] ParserPure _ -> False
  9177. 1802.32 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  9178. 1802.32 s [opt-env-conf-test] + ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
  9179. 1802.32 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  9180. 1802.32 s [opt-env-conf-test] ParserEmpty _ -> True
  9181. 1802.32 s [opt-env-conf-test] ParserAlt _ _ -> False
  9182. 1802.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
  9183. 1802.32 s [opt-env-conf-test] @@ -254,7 +254,7 @@
  9184. 1802.32 s [opt-env-conf-test] isEmpty = \case
  9185. 1802.32 s [opt-env-conf-test] ParserPure _ -> False
  9186. 1802.32 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  9187. 1802.32 s [opt-env-conf-test] - ParserSelect pe pf -> isEmpty pe && isEmpty pf
  9188. 1802.32 s [opt-env-conf-test] + ParserSelect pe pf -> isEmpty pe && False
  9189. 1802.32 s [opt-env-conf-test] ParserEmpty _ -> True
  9190. 1802.32 s [opt-env-conf-test] ParserAlt _ _ -> False
  9191. 1802.32 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  9192. 1802.32 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  9193. 1802.32 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9194. 1802.32 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9195. 1802.32 s [opt-env-conf-test] c1 <- go p1
  9196. 1802.32 s [opt-env-conf-test] c2 <- go p2
  9197. 1802.32 s [opt-env-conf-test] - pure (c1 || c2)
  9198. 1802.32 s [opt-env-conf-test] + pure (False)
  9199. 1802.32 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9200. 1802.32 s [opt-env-conf-test] c1 <- go p1
  9201. 1802.32 s [opt-env-conf-test] c2 <- go p2
  9202. 1802.32 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:250:15-23
  9203. 1802.32 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9204. 1802.32 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9205. 1802.32 s [opt-env-conf-test] c1 <- go p1
  9206. 1802.32 s [opt-env-conf-test] c2 <- go p2
  9207. 1802.32 s [opt-env-conf-test] - pure (c1 || c2)
  9208. 1802.32 s [opt-env-conf-test] + pure (not (c1 || c2))
  9209. 1802.32 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9210. 1802.32 s [opt-env-conf-test] c1 <- go p1
  9211. 1802.32 s [opt-env-conf-test] c2 <- go p2
  9212. 1802.33 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-17
  9213. 1802.33 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9214. 1802.33 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9215. 1802.33 s [opt-env-conf-test] c1 <- go p1
  9216. 1802.33 s [opt-env-conf-test] c2 <- go p2
  9217. 1802.33 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9218. 1804.98 s [opt-env-conf-test] + pure (True || c2) -- TODO: is this right?
  9219. 1804.98 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9220. 1804.98 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9221. 1804.98 s [opt-env-conf-test] c1 <- go p1
  9222. 1804.98 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-17
  9223. 1804.98 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9224. 1804.98 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9225. 1804.98 s [opt-env-conf-test] c1 <- go p1
  9226. 1804.98 s [opt-env-conf-test] c2 <- go p2
  9227. 1804.98 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9228. 1804.98 s [opt-env-conf-test] + pure (False || c2) -- TODO: is this right?
  9229. 1804.98 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9230. 1804.98 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9231. 1804.98 s [opt-env-conf-test] c1 <- go p1
  9232. 1804.98 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:254:15-17
  9233. 1804.98 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9234. 1804.98 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9235. 1804.98 s [opt-env-conf-test] c1 <- go p1
  9236. 1804.98 s [opt-env-conf-test] c2 <- go p2
  9237. 1804.98 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9238. 1804.98 s [opt-env-conf-test] + pure (not (c1) || c2) -- TODO: is this right?
  9239. 1804.98 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9240. 1804.98 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9241. 1804.98 s [opt-env-conf-test] c1 <- go p1
  9242. 1804.98 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:21-23
  9243. 1804.98 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9244. 1804.98 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9245. 1804.98 s [opt-env-conf-test] c1 <- go p1
  9246. 1804.98 s [opt-env-conf-test] c2 <- go p2
  9247. 1804.98 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9248. 1804.98 s [opt-env-conf-test] + pure (c1 || False) -- TODO: is this right?
  9249. 1804.98 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9250. 1804.98 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9251. 1804.98 s [opt-env-conf-test] c1 <- go p1
  9252. 1804.98 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:21-23
  9253. 1804.98 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9254. 1804.99 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9255. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9256. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9257. 1804.99 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9258. 1804.99 s [opt-env-conf-test] + pure (c1 || True) -- TODO: is this right?
  9259. 1804.99 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9260. 1804.99 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9261. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9262. 1804.99 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-23
  9263. 1804.99 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9264. 1804.99 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9265. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9266. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9267. 1804.99 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9268. 1804.99 s [opt-env-conf-test] + pure (False) -- TODO: is this right?
  9269. 1804.99 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9270. 1804.99 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9271. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9272. 1804.99 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  9273. 1804.99 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9274. 1804.99 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9275. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9276. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9277. 1804.99 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9278. 1804.99 s [opt-env-conf-test] + pure (c1 && True) -- TODO: is this right?
  9279. 1804.99 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9280. 1804.99 s [opt-env-conf-test] ParserMany mLoc p -> do
  9281. 1804.99 s [opt-env-conf-test] c <- go p
  9282. 1804.99 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:254:21-23
  9283. 1804.99 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9284. 1804.99 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9285. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9286. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9287. 1804.99 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9288. 1804.99 s [opt-env-conf-test] + pure (c1 || not (c2)) -- TODO: is this right?
  9289. 1804.99 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9290. 1804.99 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9291. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9292. 1804.99 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-23
  9293. 1804.99 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9294. 1804.99 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9295. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9296. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9297. 1804.99 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9298. 1804.99 s [opt-env-conf-test] + pure (True) -- TODO: is this right?
  9299. 1804.99 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9300. 1804.99 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9301. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9302. 1804.99 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:250:14-24
  9303. 1804.99 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9304. 1804.99 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9305. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9306. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9307. 1804.99 s [opt-env-conf-test] - pure (c1 || c2)
  9308. 1804.99 s [opt-env-conf-test] + pure not ((c1 || c2))
  9309. 1804.99 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9310. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9311. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9312. 1804.99 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  9313. 1804.99 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9314. 1804.99 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9315. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9316. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9317. 1804.99 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9318. 1804.99 s [opt-env-conf-test] + pure (False) -- TODO: is this right?
  9319. 1804.99 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9320. 1804.99 s [opt-env-conf-test] ParserMany mLoc p -> do
  9321. 1804.99 s [opt-env-conf-test] c <- go p
  9322. 1804.99 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  9323. 1804.99 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9324. 1804.99 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9325. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9326. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9327. 1804.99 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9328. 1804.99 s [opt-env-conf-test] + pure (True) -- TODO: is this right?
  9329. 1804.99 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9330. 1804.99 s [opt-env-conf-test] ParserMany mLoc p -> do
  9331. 1804.99 s [opt-env-conf-test] c <- go p
  9332. 1804.99 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Lint.hs:259:15-23
  9333. 1804.99 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9334. 1804.99 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9335. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9336. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9337. 1804.99 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9338. 1804.99 s [opt-env-conf-test] + pure (c1 || c2) -- TODO: is this right?
  9339. 1804.99 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9340. 1804.99 s [opt-env-conf-test] ParserMany mLoc p -> do
  9341. 1804.99 s [opt-env-conf-test] c <- go p
  9342. 1804.99 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:259:21-23
  9343. 1804.99 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9344. 1804.99 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9345. 1804.99 s [opt-env-conf-test] c1 <- go p1
  9346. 1804.99 s [opt-env-conf-test] c2 <- go p2
  9347. 1804.99 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9348. 1804.99 s [opt-env-conf-test] + pure (c1 && not (c2)) -- TODO: is this right?
  9349. 1804.99 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9350. 1804.99 s [opt-env-conf-test] ParserMany mLoc p -> do
  9351. 1805.00 s [opt-env-conf-test] c <- go p
  9352. 1805.00 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:259:15-23
  9353. 1805.00 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9354. 1805.00 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9355. 1805.00 s [opt-env-conf-test] c1 <- go p1
  9356. 1805.00 s [opt-env-conf-test] c2 <- go p2
  9357. 1805.00 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9358. 1805.00 s [opt-env-conf-test] + pure (not (c1 && c2)) -- TODO: is this right?
  9359. 1805.00 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9360. 1805.00 s [opt-env-conf-test] ParserMany mLoc p -> do
  9361. 1805.00 s [opt-env-conf-test] c <- go p
  9362. 1805.00 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  9363. 1805.00 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9364. 1805.00 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9365. 1805.00 s [opt-env-conf-test] c1 <- go p1
  9366. 1805.00 s [opt-env-conf-test] c2 <- go p2
  9367. 1805.00 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9368. 1805.00 s [opt-env-conf-test] + pure (True && c2) -- TODO: is this right?
  9369. 1805.00 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9370. 1805.00 s [opt-env-conf-test] ParserMany mLoc p -> do
  9371. 1805.00 s [opt-env-conf-test] c <- go p
  9372. 1805.00 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  9373. 1805.00 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9374. 1805.00 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9375. 1805.00 s [opt-env-conf-test] c1 <- go p1
  9376. 1805.00 s [opt-env-conf-test] c2 <- go p2
  9377. 1805.00 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9378. 1805.00 s [opt-env-conf-test] + pure (False && c2) -- TODO: is this right?
  9379. 1805.00 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9380. 1805.00 s [opt-env-conf-test] ParserMany mLoc p -> do
  9381. 1805.00 s [opt-env-conf-test] c <- go p
  9382. 1805.00 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Lint.hs:254:15-23
  9383. 1805.00 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9384. 1805.00 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9385. 1805.00 s [opt-env-conf-test] c1 <- go p1
  9386. 1805.00 s [opt-env-conf-test] c2 <- go p2
  9387. 1805.00 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9388. 1805.00 s [opt-env-conf-test] + pure (c1 && c2) -- TODO: is this right?
  9389. 1805.00 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9390. 1805.00 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9391. 1805.00 s [opt-env-conf-test] c1 <- go p1
  9392. 1805.00 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  9393. 1805.00 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9394. 1805.00 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9395. 1813.52 s [opt-env-conf-test] c1 <- go p1
  9396. 1813.52 s [opt-env-conf-test] c2 <- go p2
  9397. 1813.54 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9398. 1813.54 s [opt-env-conf-test] + pure True -- TODO: is this right?
  9399. 1813.55 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9400. 1813.55 s [opt-env-conf-test] ParserMany mLoc p -> do
  9401. 1813.55 s [opt-env-conf-test] c <- go p
  9402. 1813.55 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Lint.hs:255:29-33
  9403. 1813.55 s [opt-env-conf-test] @@ -252,7 +252,7 @@
  9404. 1813.55 s [opt-env-conf-test] c1 <- go p1
  9405. 1813.55 s [opt-env-conf-test] c2 <- go p2
  9406. 1813.55 s [opt-env-conf-test] pure (c1 || c2) -- TODO: is this right?
  9407. 1813.55 s [opt-env-conf-test] - ParserEmpty _ -> pure True
  9408. 1813.55 s [opt-env-conf-test] + ParserEmpty _ -> pure False
  9409. 1813.55 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9410. 1813.55 s [opt-env-conf-test] c1 <- go p1
  9411. 1813.55 s [opt-env-conf-test] c2 <- go p2
  9412. 1813.55 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  9413. 1813.55 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9414. 1813.55 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9415. 1813.55 s [opt-env-conf-test] c1 <- go p1
  9416. 1813.55 s [opt-env-conf-test] c2 <- go p2
  9417. 1813.55 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9418. 1813.55 s [opt-env-conf-test] + pure False -- TODO: is this right?
  9419. 1813.55 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9420. 1813.55 s [opt-env-conf-test] ParserMany mLoc p -> do
  9421. 1813.55 s [opt-env-conf-test] c <- go p
  9422. 1813.55 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:259:14-24
  9423. 1813.55 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9424. 1813.55 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9425. 1813.55 s [opt-env-conf-test] c1 <- go p1
  9426. 1813.55 s [opt-env-conf-test] c2 <- go p2
  9427. 1813.55 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9428. 1813.55 s [opt-env-conf-test] + pure not ((c1 && c2)) -- TODO: is this right?
  9429. 1813.55 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9430. 1813.55 s [opt-env-conf-test] ParserMany mLoc p -> do
  9431. 1813.55 s [opt-env-conf-test] c <- go p
  9432. 1813.55 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:266:14-15
  9433. 1813.56 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  9434. 1813.56 s [opt-env-conf-test] when (not c) $
  9435. 1813.56 s [opt-env-conf-test] mapValidationTFailure (LintError mLoc) $
  9436. 1813.56 s [opt-env-conf-test] validationTFailure LintErrorManyInfinite
  9437. 1813.56 s [opt-env-conf-test] - pure c
  9438. 1813.56 s [opt-env-conf-test] + pure True
  9439. 1813.56 s [opt-env-conf-test] ParserSome mLoc p -> do
  9440. 1813.56 s [opt-env-conf-test] c <- go p
  9441. 1813.56 s [opt-env-conf-test] when (not c) $
  9442. 1813.56 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:266:14-15
  9443. 1813.56 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  9444. 1813.56 s [opt-env-conf-test] when (not c) $
  9445. 1813.56 s [opt-env-conf-test] mapValidationTFailure (LintError mLoc) $
  9446. 1813.56 s [opt-env-conf-test] validationTFailure LintErrorManyInfinite
  9447. 1813.56 s [opt-env-conf-test] - pure c
  9448. 1813.56 s [opt-env-conf-test] + pure False
  9449. 1813.56 s [opt-env-conf-test] ParserSome mLoc p -> do
  9450. 1813.56 s [opt-env-conf-test] c <- go p
  9451. 1813.56 s [opt-env-conf-test] when (not c) $
  9452. 1813.56 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:266:14-15
  9453. 1813.56 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  9454. 1813.56 s [opt-env-conf-test] when (not c) $
  9455. 1813.56 s [opt-env-conf-test] mapValidationTFailure (LintError mLoc) $
  9456. 1813.56 s [opt-env-conf-test] validationTFailure LintErrorManyInfinite
  9457. 1813.56 s [opt-env-conf-test] - pure c
  9458. 1813.56 s [opt-env-conf-test] + pure not (c)
  9459. 1813.56 s [opt-env-conf-test] ParserSome mLoc p -> do
  9460. 1813.56 s [opt-env-conf-test] c <- go p
  9461. 1813.56 s [opt-env-conf-test] when (not c) $
  9462. 1813.56 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  9463. 1813.56 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9464. 1813.57 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9465. 1813.57 s [opt-env-conf-test] c1 <- go p1
  9466. 1813.57 s [opt-env-conf-test] c2 <- go p2
  9467. 1813.57 s [opt-env-conf-test] - pure (c1 || c2)
  9468. 1813.57 s [opt-env-conf-test] + pure False
  9469. 1813.57 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9470. 1813.57 s [opt-env-conf-test] c1 <- go p1
  9471. 1813.57 s [opt-env-conf-test] c2 <- go p2
  9472. 1813.57 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:272:14-15
  9473. 1813.57 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  9474. 1813.57 s [opt-env-conf-test] when (not c) $
  9475. 1813.57 s [opt-env-conf-test] mapValidationTFailure (LintError mLoc) $
  9476. 1813.57 s [opt-env-conf-test] validationTFailure LintErrorManyInfinite
  9477. 1813.57 s [opt-env-conf-test] - pure c
  9478. 1813.57 s [opt-env-conf-test] + pure True
  9479. 1813.57 s [opt-env-conf-test] ParserAllOrNothing _ p -> go p
  9480. 1813.57 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> go p
  9481. 1813.57 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  9482. 1813.57 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  9483. 1813.57 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  9484. 1813.57 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  9485. 1813.57 s [opt-env-conf-test] c1 <- go p1
  9486. 1813.57 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  9487. 1813.57 s [opt-env-conf-test] - pure $ c1 || c2
  9488. 1813.57 s [opt-env-conf-test] + pure $ False || c2
  9489. 1813.57 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  9490. 1813.57 s [opt-env-conf-test] case settingHelp of
  9491. 1813.57 s [opt-env-conf-test] Nothing ->
  9492. 1813.57 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:16-18
  9493. 1813.57 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  9494. 1813.57 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  9495. 1813.57 s [opt-env-conf-test] c1 <- go p1
  9496. 1813.57 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  9497. 1813.57 s [opt-env-conf-test] - pure $ c1 || c2
  9498. 1813.57 s [opt-env-conf-test] + pure $ not (c1) || c2
  9499. 1813.57 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  9500. 1813.57 s [opt-env-conf-test] case settingHelp of
  9501. 1813.57 s [opt-env-conf-test] Nothing ->
  9502. 1813.57 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  9503. 1813.57 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  9504. 1813.58 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  9505. 1813.58 s [opt-env-conf-test] c1 <- go p1
  9506. 1813.58 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  9507. 1813.58 s [opt-env-conf-test] - pure $ c1 || c2
  9508. 1813.58 s [opt-env-conf-test] + pure $ c1 || True
  9509. 1813.58 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  9510. 1813.58 s [opt-env-conf-test] case settingHelp of
  9511. 1813.58 s [opt-env-conf-test] Nothing ->
  9512. 1813.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  9513. 1813.58 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  9514. 1813.58 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  9515. 1813.58 s [opt-env-conf-test] c1 <- go p1
  9516. 1813.58 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  9517. 1813.58 s [opt-env-conf-test] - pure $ c1 || c2
  9518. 1813.58 s [opt-env-conf-test] + pure $ c1 || False
  9519. 1813.58 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  9520. 1813.58 s [opt-env-conf-test] case settingHelp of
  9521. 1813.58 s [opt-env-conf-test] Nothing ->
  9522. 1813.58 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:22-24
  9523. 1813.58 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  9524. 1813.58 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  9525. 1813.58 s [opt-env-conf-test] c1 <- go p1
  9526. 1813.58 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  9527. 1813.58 s [opt-env-conf-test] - pure $ c1 || c2
  9528. 1813.58 s [opt-env-conf-test] + pure $ c1 || not (c2)
  9529. 1813.58 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  9530. 1813.58 s [opt-env-conf-test] case settingHelp of
  9531. 1813.58 s [opt-env-conf-test] Nothing ->
  9532. 1813.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  9533. 1813.58 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  9534. 1813.58 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  9535. 1813.58 s [opt-env-conf-test] c1 <- go p1
  9536. 1813.58 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  9537. 1813.58 s [opt-env-conf-test] - pure $ c1 || c2
  9538. 1813.58 s [opt-env-conf-test] + pure $ True
  9539. 1813.58 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  9540. 1813.58 s [opt-env-conf-test] case settingHelp of
  9541. 1813.58 s [opt-env-conf-test] Nothing ->
  9542. 1813.58 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:272:14-15
  9543. 1813.58 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  9544. 1813.58 s [opt-env-conf-test] when (not c) $
  9545. 1813.58 s [opt-env-conf-test] mapValidationTFailure (LintError mLoc) $
  9546. 1813.58 s [opt-env-conf-test] validationTFailure LintErrorManyInfinite
  9547. 1813.58 s [opt-env-conf-test] - pure c
  9548. 1813.58 s [opt-env-conf-test] + pure not (c)
  9549. 1813.59 s [opt-env-conf-test] ParserAllOrNothing _ p -> go p
  9550. 1813.59 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> go p
  9551. 1813.59 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  9552. 1813.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:272:14-15
  9553. 1813.59 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  9554. 1813.59 s [opt-env-conf-test] when (not c) $
  9555. 1813.59 s [opt-env-conf-test] mapValidationTFailure (LintError mLoc) $
  9556. 1813.59 s [opt-env-conf-test] validationTFailure LintErrorManyInfinite
  9557. 1813.59 s [opt-env-conf-test] - pure c
  9558. 1813.59 s [opt-env-conf-test] + pure False
  9559. 1813.59 s [opt-env-conf-test] ParserAllOrNothing _ p -> go p
  9560. 1813.59 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> go p
  9561. 1813.59 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  9562. 1813.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  9563. 1813.59 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  9564. 1813.59 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  9565. 1813.59 s [opt-env-conf-test] c1 <- go p1
  9566. 1813.59 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  9567. 1813.59 s [opt-env-conf-test] - pure $ c1 || c2
  9568. 1813.59 s [opt-env-conf-test] + pure $ False
  9569. 1813.59 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  9570. 1813.59 s [opt-env-conf-test] case settingHelp of
  9571. 1813.59 s [opt-env-conf-test] Nothing ->
  9572. 1813.59 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Lint.hs:288:16-24
  9573. 1817.94 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  9574. 1817.94 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  9575. 1817.94 s [opt-env-conf-test] c1 <- go p1
  9576. 1817.94 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  9577. 1817.94 s [opt-env-conf-test] - pure $ c1 || c2
  9578. 1817.94 s [opt-env-conf-test] + pure $ c1 && c2
  9579. 1817.94 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  9580. 1817.94 s [opt-env-conf-test] case settingHelp of
  9581. 1817.94 s [opt-env-conf-test] Nothing ->
  9582. 1817.94 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:280:20-63
  9583. 1817.94 s [opt-env-conf-test] @@ -277,7 +277,7 @@
  9584. 1817.94 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  9585. 1817.94 s [opt-env-conf-test] else do
  9586. 1817.94 s [opt-env-conf-test] for_ mDefault $ \d ->
  9587. 1817.94 s [opt-env-conf-test] - when (isNothing (find ((== d) . commandArg) cs)) $
  9588. 1817.94 s [opt-env-conf-test] + when not ((isNothing (find ((== d) . commandArg) cs))) $
  9589. 1817.94 s [opt-env-conf-test] validationTFailure $
  9590. 1817.94 s [opt-env-conf-test] LintError mLoc $
  9591. 1817.94 s [opt-env-conf-test] LintErrorUnknownDefaultCommand d
  9592. 1817.94 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:16-24
  9593. 1817.94 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  9594. 1817.94 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  9595. 1817.94 s [opt-env-conf-test] c1 <- go p1
  9596. 1817.94 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  9597. 1817.94 s [opt-env-conf-test] - pure $ c1 || c2
  9598. 1817.94 s [opt-env-conf-test] + pure $ not (c1 || c2)
  9599. 1817.94 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  9600. 1817.94 s [opt-env-conf-test] case settingHelp of
  9601. 1817.94 s [opt-env-conf-test] Nothing ->
  9602. 1817.94 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  9603. 1817.94 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9604. 1817.94 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9605. 1817.94 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9606. 1817.94 s [opt-env-conf-test] and
  9607. 1817.94 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9608. 1817.94 s [opt-env-conf-test] + [ True || settingTryOption || isJust settingSwitchValue,
  9609. 1817.95 s [opt-env-conf-test] null settingEnvVars,
  9610. 1817.95 s [opt-env-conf-test] null settingConfigVals
  9611. 1817.95 s [opt-env-conf-test] ]
  9612. 1817.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  9613. 1817.95 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9614. 1817.95 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9615. 1817.95 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9616. 1817.95 s [opt-env-conf-test] and
  9617. 1817.95 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9618. 1817.95 s [opt-env-conf-test] + [ False || settingTryOption || isJust settingSwitchValue,
  9619. 1817.95 s [opt-env-conf-test] null settingEnvVars,
  9620. 1817.95 s [opt-env-conf-test] null settingConfigVals
  9621. 1817.95 s [opt-env-conf-test] ]
  9622. 1817.95 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:15-33
  9623. 1817.95 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9624. 1817.95 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9625. 1817.95 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9626. 1817.95 s [opt-env-conf-test] and
  9627. 1817.95 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9628. 1817.95 s [opt-env-conf-test] + [ not (settingTryArgument) || settingTryOption || isJust settingSwitchValue,
  9629. 1817.95 s [opt-env-conf-test] null settingEnvVars,
  9630. 1817.95 s [opt-env-conf-test] null settingConfigVals
  9631. 1817.95 s [opt-env-conf-test] ]
  9632. 1817.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  9633. 1817.95 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9634. 1817.95 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9635. 1817.95 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9636. 1817.95 s [opt-env-conf-test] and
  9637. 1817.95 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9638. 1817.95 s [opt-env-conf-test] + [ settingTryArgument || True || isJust settingSwitchValue,
  9639. 1817.95 s [opt-env-conf-test] null settingEnvVars,
  9640. 1817.95 s [opt-env-conf-test] null settingConfigVals
  9641. 1817.95 s [opt-env-conf-test] ]
  9642. 1817.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  9643. 1817.95 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9644. 1817.95 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9645. 1817.95 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9646. 1817.95 s [opt-env-conf-test] and
  9647. 1817.95 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9648. 1817.95 s [opt-env-conf-test] + [ settingTryArgument || False || isJust settingSwitchValue,
  9649. 1817.95 s [opt-env-conf-test] null settingEnvVars,
  9650. 1817.95 s [opt-env-conf-test] null settingConfigVals
  9651. 1817.95 s [opt-env-conf-test] ]
  9652. 1817.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:280:20-63
  9653. 1817.95 s [opt-env-conf-test] @@ -277,7 +277,7 @@
  9654. 1817.95 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  9655. 1817.95 s [opt-env-conf-test] else do
  9656. 1817.95 s [opt-env-conf-test] for_ mDefault $ \d ->
  9657. 1817.95 s [opt-env-conf-test] - when (isNothing (find ((== d) . commandArg) cs)) $
  9658. 1817.95 s [opt-env-conf-test] + when True $
  9659. 1817.95 s [opt-env-conf-test] validationTFailure $
  9660. 1817.95 s [opt-env-conf-test] LintError mLoc $
  9661. 1817.95 s [opt-env-conf-test] LintErrorUnknownDefaultCommand d
  9662. 1817.95 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:37-53
  9663. 1817.95 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9664. 1817.95 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9665. 1817.95 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9666. 1817.95 s [opt-env-conf-test] and
  9667. 1817.95 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9668. 1817.95 s [opt-env-conf-test] + [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
  9669. 1817.95 s [opt-env-conf-test] null settingEnvVars,
  9670. 1817.95 s [opt-env-conf-test] null settingConfigVals
  9671. 1817.95 s [opt-env-conf-test] ]
  9672. 1817.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
  9673. 1817.95 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9674. 1817.95 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9675. 1817.95 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9676. 1817.95 s [opt-env-conf-test] and
  9677. 1817.95 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9678. 1817.95 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || True,
  9679. 1817.95 s [opt-env-conf-test] null settingEnvVars,
  9680. 1817.95 s [opt-env-conf-test] null settingConfigVals
  9681. 1817.95 s [opt-env-conf-test] ]
  9682. 1817.95 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:14-24
  9683. 1817.96 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9684. 1817.96 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9685. 1817.96 s [opt-env-conf-test] c1 <- go p1
  9686. 1817.96 s [opt-env-conf-test] c2 <- go p2
  9687. 1817.96 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9688. 1817.96 s [opt-env-conf-test] + pure True -- TODO: is this right?
  9689. 1817.96 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9690. 1817.96 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9691. 1817.96 s [opt-env-conf-test] c1 <- go p1
  9692. 1817.96 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:57-82
  9693. 1817.96 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9694. 1817.96 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9695. 1817.96 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9696. 1817.96 s [opt-env-conf-test] and
  9697. 1817.96 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9698. 1817.96 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || not (isJust settingSwitchValue),
  9699. 1817.96 s [opt-env-conf-test] null settingEnvVars,
  9700. 1817.96 s [opt-env-conf-test] null settingConfigVals
  9701. 1817.96 s [opt-env-conf-test] ]
  9702. 1817.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
  9703. 1817.96 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9704. 1817.96 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9705. 1817.96 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9706. 1817.96 s [opt-env-conf-test] and
  9707. 1817.96 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9708. 1826.53 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || False,
  9709. 1826.58 s [opt-env-conf-test] null settingEnvVars,
  9710. 1826.58 s [opt-env-conf-test] null settingConfigVals
  9711. 1826.58 s [opt-env-conf-test] ]
  9712. 1826.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:14-24
  9713. 1826.58 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9714. 1826.58 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9715. 1826.58 s [opt-env-conf-test] c1 <- go p1
  9716. 1826.58 s [opt-env-conf-test] c2 <- go p2
  9717. 1826.58 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9718. 1826.58 s [opt-env-conf-test] + pure False -- TODO: is this right?
  9719. 1826.58 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9720. 1826.58 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9721. 1826.58 s [opt-env-conf-test] c1 <- go p1
  9722. 1826.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
  9723. 1826.58 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9724. 1826.58 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9725. 1826.58 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9726. 1826.58 s [opt-env-conf-test] and
  9727. 1826.58 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9728. 1826.58 s [opt-env-conf-test] + [ settingTryArgument || False,
  9729. 1826.58 s [opt-env-conf-test] null settingEnvVars,
  9730. 1826.58 s [opt-env-conf-test] null settingConfigVals
  9731. 1826.58 s [opt-env-conf-test] ]
  9732. 1826.58 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
  9733. 1826.58 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9734. 1826.58 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9735. 1826.58 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9736. 1826.58 s [opt-env-conf-test] and
  9737. 1826.58 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9738. 1826.58 s [opt-env-conf-test] + [ settingTryArgument || True,
  9739. 1826.58 s [opt-env-conf-test] null settingEnvVars,
  9740. 1826.58 s [opt-env-conf-test] null settingConfigVals
  9741. 1826.59 s [opt-env-conf-test] ]
  9742. 1826.59 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Lint.hs:340:37-82
  9743. 1826.59 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9744. 1826.59 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9745. 1826.59 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9746. 1826.59 s [opt-env-conf-test] and
  9747. 1826.59 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9748. 1826.59 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption && isJust settingSwitchValue,
  9749. 1826.59 s [opt-env-conf-test] null settingEnvVars,
  9750. 1826.59 s [opt-env-conf-test] null settingConfigVals
  9751. 1826.59 s [opt-env-conf-test] ]
  9752. 1826.59 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:37-82
  9753. 1826.59 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9754. 1826.59 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9755. 1826.59 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9756. 1826.59 s [opt-env-conf-test] and
  9757. 1826.59 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9758. 1826.59 s [opt-env-conf-test] + [ settingTryArgument || not (settingTryOption || isJust settingSwitchValue),
  9759. 1826.59 s [opt-env-conf-test] null settingEnvVars,
  9760. 1826.59 s [opt-env-conf-test] null settingConfigVals
  9761. 1826.59 s [opt-env-conf-test] ]
  9762. 1826.59 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Lint.hs:250:15-23
  9763. 1826.59 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9764. 1826.59 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9765. 1826.59 s [opt-env-conf-test] c1 <- go p1
  9766. 1826.59 s [opt-env-conf-test] c2 <- go p2
  9767. 1826.59 s [opt-env-conf-test] - pure (c1 || c2)
  9768. 1826.59 s [opt-env-conf-test] + pure (c1 && c2)
  9769. 1826.59 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9770. 1826.59 s [opt-env-conf-test] c1 <- go p1
  9771. 1826.59 s [opt-env-conf-test] c2 <- go p2
  9772. 1826.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
  9773. 1826.59 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9774. 1826.59 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9775. 1826.59 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9776. 1826.59 s [opt-env-conf-test] and
  9777. 1826.59 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9778. 1826.59 s [opt-env-conf-test] + [ True,
  9779. 1826.59 s [opt-env-conf-test] null settingEnvVars,
  9780. 1826.59 s [opt-env-conf-test] null settingConfigVals
  9781. 1826.59 s [opt-env-conf-test] ]
  9782. 1826.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
  9783. 1826.59 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9784. 1826.59 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9785. 1826.59 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9786. 1826.59 s [opt-env-conf-test] and
  9787. 1826.59 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9788. 1826.59 s [opt-env-conf-test] + [ False,
  9789. 1826.59 s [opt-env-conf-test] null settingEnvVars,
  9790. 1826.59 s [opt-env-conf-test] null settingConfigVals
  9791. 1826.59 s [opt-env-conf-test] ]
  9792. 1826.59 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  9793. 1826.59 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9794. 1826.59 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9795. 1826.59 s [opt-env-conf-test] c1 <- go p1
  9796. 1826.59 s [opt-env-conf-test] c2 <- go p2
  9797. 1826.59 s [opt-env-conf-test] - pure (c1 || c2)
  9798. 1826.59 s [opt-env-conf-test] + pure True
  9799. 1826.59 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9800. 1826.60 s [opt-env-conf-test] c1 <- go p1
  9801. 1826.60 s [opt-env-conf-test] c2 <- go p2
  9802. 1826.60 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:254:14-24
  9803. 1826.60 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9804. 1826.60 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9805. 1826.60 s [opt-env-conf-test] c1 <- go p1
  9806. 1826.60 s [opt-env-conf-test] c2 <- go p2
  9807. 1826.60 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9808. 1826.60 s [opt-env-conf-test] + pure not ((c1 || c2)) -- TODO: is this right?
  9809. 1826.60 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9810. 1826.60 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9811. 1826.60 s [opt-env-conf-test] c1 <- go p1
  9812. 1826.60 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  9813. 1826.60 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9814. 1826.60 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9815. 1826.60 s [opt-env-conf-test] c1 <- go p1
  9816. 1826.60 s [opt-env-conf-test] c2 <- go p2
  9817. 1826.60 s [opt-env-conf-test] - pure (c1 || c2)
  9818. 1826.60 s [opt-env-conf-test] + pure (True)
  9819. 1826.60 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9820. 1826.60 s [opt-env-conf-test] c1 <- go p1
  9821. 1826.60 s [opt-env-conf-test] c2 <- go p2
  9822. 1826.60 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  9823. 1826.60 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9824. 1826.60 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9825. 1826.60 s [opt-env-conf-test] c1 <- go p1
  9826. 1826.60 s [opt-env-conf-test] c2 <- go p2
  9827. 1826.60 s [opt-env-conf-test] - pure (c1 || c2)
  9828. 1826.60 s [opt-env-conf-test] + pure (c1 || False)
  9829. 1826.60 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9830. 1826.60 s [opt-env-conf-test] c1 <- go p1
  9831. 1826.60 s [opt-env-conf-test] c2 <- go p2
  9832. 1826.60 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  9833. 1826.60 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9834. 1826.60 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9835. 1826.60 s [opt-env-conf-test] c1 <- go p1
  9836. 1826.60 s [opt-env-conf-test] c2 <- go p2
  9837. 1826.60 s [opt-env-conf-test] - pure (c1 || c2)
  9838. 1826.60 s [opt-env-conf-test] + pure (c1 || True)
  9839. 1826.60 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9840. 1826.60 s [opt-env-conf-test] c1 <- go p1
  9841. 1826.60 s [opt-env-conf-test] c2 <- go p2
  9842. 1826.60 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:250:21-23
  9843. 1826.60 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9844. 1826.60 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9845. 1826.61 s [opt-env-conf-test] c1 <- go p1
  9846. 1826.61 s [opt-env-conf-test] c2 <- go p2
  9847. 1826.61 s [opt-env-conf-test] - pure (c1 || c2)
  9848. 1826.61 s [opt-env-conf-test] + pure (c1 || not (c2))
  9849. 1826.61 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9850. 1826.61 s [opt-env-conf-test] c1 <- go p1
  9851. 1826.61 s [opt-env-conf-test] c2 <- go p2
  9852. 1826.61 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:254:15-23
  9853. 1826.61 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  9854. 1826.61 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9855. 1826.61 s [opt-env-conf-test] c1 <- go p1
  9856. 1826.61 s [opt-env-conf-test] c2 <- go p2
  9857. 1826.61 s [opt-env-conf-test] - pure (c1 || c2) -- TODO: is this right?
  9858. 1826.61 s [opt-env-conf-test] + pure (not (c1 || c2)) -- TODO: is this right?
  9859. 1826.61 s [opt-env-conf-test] ParserEmpty _ -> pure True
  9860. 1826.61 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9861. 1826.61 s [opt-env-conf-test] c1 <- go p1
  9862. 1826.61 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:259:15-17
  9863. 1826.61 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9864. 1826.61 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9865. 1826.61 s [opt-env-conf-test] c1 <- go p1
  9866. 1826.61 s [opt-env-conf-test] c2 <- go p2
  9867. 1826.61 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9868. 1826.61 s [opt-env-conf-test] + pure (not (c1) && c2) -- TODO: is this right?
  9869. 1832.44 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9870. 1832.44 s [opt-env-conf-test] ParserMany mLoc p -> do
  9871. 1832.48 s [opt-env-conf-test] c <- go p
  9872. 1832.48 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  9873. 1832.48 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  9874. 1832.48 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  9875. 1832.48 s [opt-env-conf-test] c1 <- go p1
  9876. 1832.48 s [opt-env-conf-test] c2 <- go p2
  9877. 1832.48 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  9878. 1832.48 s [opt-env-conf-test] + pure (c1 && False) -- TODO: is this right?
  9879. 1832.48 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  9880. 1832.48 s [opt-env-conf-test] ParserMany mLoc p -> do
  9881. 1832.48 s [opt-env-conf-test] c <- go p
  9882. 1832.48 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:250:15-17
  9883. 1832.48 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  9884. 1832.48 s [opt-env-conf-test] ParserAp p1 p2 -> do
  9885. 1832.48 s [opt-env-conf-test] c1 <- go p1
  9886. 1832.48 s [opt-env-conf-test] c2 <- go p2
  9887. 1832.48 s [opt-env-conf-test] - pure (c1 || c2)
  9888. 1832.48 s [opt-env-conf-test] + pure (not (c1) || c2)
  9889. 1832.48 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  9890. 1832.48 s [opt-env-conf-test] c1 <- go p1
  9891. 1832.48 s [opt-env-conf-test] c2 <- go p2
  9892. 1832.48 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:15-82
  9893. 1832.48 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9894. 1832.48 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9895. 1832.48 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9896. 1832.49 s [opt-env-conf-test] and
  9897. 1832.49 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9898. 1832.49 s [opt-env-conf-test] + [ not (settingTryArgument || settingTryOption || isJust settingSwitchValue),
  9899. 1832.49 s [opt-env-conf-test] null settingEnvVars,
  9900. 1832.49 s [opt-env-conf-test] null settingConfigVals
  9901. 1832.49 s [opt-env-conf-test] ]
  9902. 1832.49 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
  9903. 1832.49 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  9904. 1832.49 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9905. 1832.49 s [opt-env-conf-test] and
  9906. 1832.49 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9907. 1832.49 s [opt-env-conf-test] - null settingEnvVars,
  9908. 1832.49 s [opt-env-conf-test] + True,
  9909. 1832.49 s [opt-env-conf-test] null settingConfigVals
  9910. 1832.49 s [opt-env-conf-test] ]
  9911. 1832.49 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Lint.hs:340:15-82
  9912. 1832.49 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  9913. 1832.49 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9914. 1832.49 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9915. 1832.49 s [opt-env-conf-test] and
  9916. 1832.49 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9917. 1832.49 s [opt-env-conf-test] + [ settingTryArgument && settingTryOption || isJust settingSwitchValue,
  9918. 1832.49 s [opt-env-conf-test] null settingEnvVars,
  9919. 1832.49 s [opt-env-conf-test] null settingConfigVals
  9920. 1832.49 s [opt-env-conf-test] ]
  9921. 1832.49 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
  9922. 1832.49 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  9923. 1832.49 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9924. 1832.49 s [opt-env-conf-test] and
  9925. 1832.49 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9926. 1832.49 s [opt-env-conf-test] - null settingEnvVars,
  9927. 1832.49 s [opt-env-conf-test] + False,
  9928. 1832.49 s [opt-env-conf-test] null settingConfigVals
  9929. 1832.49 s [opt-env-conf-test] ]
  9930. 1832.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
  9931. 1832.49 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  9932. 1832.49 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9933. 1832.49 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9934. 1832.49 s [opt-env-conf-test] and
  9935. 1832.49 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9936. 1832.49 s [opt-env-conf-test] null settingEnvVars,
  9937. 1832.49 s [opt-env-conf-test] null settingConfigVals
  9938. 1832.49 s [opt-env-conf-test] ]
  9939. 1832.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
  9940. 1832.49 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  9941. 1832.49 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9942. 1832.49 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9943. 1832.49 s [opt-env-conf-test] and
  9944. 1832.49 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9945. 1832.50 s [opt-env-conf-test] null settingEnvVars,
  9946. 1832.50 s [opt-env-conf-test] - null settingConfigVals
  9947. 1832.50 s [opt-env-conf-test] ]
  9948. 1832.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
  9949. 1832.50 s [opt-env-conf-test] @@ -336,8 +336,8 @@
  9950. 1832.50 s [opt-env-conf-test] pure $
  9951. 1832.50 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9952. 1832.50 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9953. 1832.50 s [opt-env-conf-test] - and
  9954. 1832.50 s [opt-env-conf-test] + False
  9955. 1832.50 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9956. 1832.50 s [opt-env-conf-test] null settingEnvVars,
  9957. 1832.50 s [opt-env-conf-test] null settingConfigVals
  9958. 1832.50 s [opt-env-conf-test] ]
  9959. 1832.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
  9960. 1832.50 s [opt-env-conf-test] @@ -336,8 +336,8 @@
  9961. 1832.50 s [opt-env-conf-test] pure $
  9962. 1832.50 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9963. 1832.50 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9964. 1832.50 s [opt-env-conf-test] - and
  9965. 1832.50 s [opt-env-conf-test] + True
  9966. 1832.50 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9967. 1832.50 s [opt-env-conf-test] null settingEnvVars,
  9968. 1832.50 s [opt-env-conf-test] null settingConfigVals
  9969. 1832.50 s [opt-env-conf-test] ]
  9970. 1832.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
  9971. 1832.50 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  9972. 1832.50 s [opt-env-conf-test] and
  9973. 1832.50 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9974. 1832.50 s [opt-env-conf-test] null settingEnvVars,
  9975. 1832.50 s [opt-env-conf-test] - null settingConfigVals
  9976. 1832.50 s [opt-env-conf-test] + False
  9977. 1832.50 s [opt-env-conf-test] ]
  9978. 1832.50 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
  9979. 1832.50 s [opt-env-conf-test] @@ -337,7 +337,4 @@
  9980. 1832.50 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  9981. 1832.50 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  9982. 1832.50 s [opt-env-conf-test] and
  9983. 1832.50 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9984. 1832.50 s [opt-env-conf-test] - null settingEnvVars,
  9985. 1832.50 s [opt-env-conf-test] - null settingConfigVals
  9986. 1832.50 s [opt-env-conf-test] ]
  9987. 1832.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
  9988. 1832.50 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  9989. 1832.50 s [opt-env-conf-test] and
  9990. 1832.50 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9991. 1832.50 s [opt-env-conf-test] null settingEnvVars,
  9992. 1832.50 s [opt-env-conf-test] - null settingConfigVals
  9993. 1832.50 s [opt-env-conf-test] + True
  9994. 1832.50 s [opt-env-conf-test] ]
  9995. 1832.50 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:342:15-37
  9996. 1832.51 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  9997. 1832.51 s [opt-env-conf-test] and
  9998. 1832.51 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  9999. 1832.51 s [opt-env-conf-test] null settingEnvVars,
  10000. 1832.51 s [opt-env-conf-test] - null settingConfigVals
  10001. 1832.51 s [opt-env-conf-test] + not (null settingConfigVals)
  10002. 1832.51 s [opt-env-conf-test] ]
  10003. 1832.51 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:341:15-34
  10004. 1832.51 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  10005. 1832.51 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  10006. 1832.51 s [opt-env-conf-test] and
  10007. 1832.51 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  10008. 1832.51 s [opt-env-conf-test] - null settingEnvVars,
  10009. 1832.51 s [opt-env-conf-test] + not (null settingEnvVars),
  10010. 1832.51 s [opt-env-conf-test] null settingConfigVals
  10011. 1832.51 s [opt-env-conf-test] ]
  10012. 1832.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
  10013. 1832.51 s [opt-env-conf-test] @@ -68,7 +68,6 @@
  10014. 1832.51 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  10015. 1832.51 s [opt-env-conf-test] case lintErrorMessage of
  10016. 1832.51 s [opt-env-conf-test] LintErrorUndocumented ->
  10017. 1832.51 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  10018. 1832.51 s [opt-env-conf-test] LintErrorEmptySetting ->
  10019. 1832.51 s [opt-env-conf-test] concat
  10020. 1832.51 s [opt-env-conf-test] [ [ [ "This ",
  10021. 1832.51 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:339:11-14
  10022. 1832.51 s [opt-env-conf-test] @@ -336,8 +336,8 @@
  10023. 1832.51 s [opt-env-conf-test] pure $
  10024. 1832.51 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  10025. 1832.51 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  10026. 1832.51 s [opt-env-conf-test] - and
  10027. 1832.51 s [opt-env-conf-test] + not (and
  10028. 1832.51 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  10029. 1832.51 s [opt-env-conf-test] null settingEnvVars,
  10030. 1832.51 s [opt-env-conf-test] null settingConfigVals
  10031. 1832.51 s [opt-env-conf-test] - ]
  10032. 1841.41 s [opt-env-conf-test] + ])
  10033. 1841.44 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
  10034. 1841.44 s [opt-env-conf-test] @@ -76,20 +76,19 @@
  10035. 1841.44 s [opt-env-conf-test] " parses nothing."
  10036. 1841.44 s [opt-env-conf-test] ]
  10037. 1841.44 s [opt-env-conf-test] ],
  10038. 1841.44 s [opt-env-conf-test] - [ [ "Add an ",
  10039. 1841.44 s [opt-env-conf-test] functionChunk "argument",
  10040. 1841.44 s [opt-env-conf-test] ", ",
  10041. 1841.44 s [opt-env-conf-test] functionChunk "switch",
  10042. 1841.44 s [opt-env-conf-test] ", ",
  10043. 1841.44 s [opt-env-conf-test] functionChunk "option",
  10044. 1841.44 s [opt-env-conf-test] ", ",
  10045. 1841.44 s [opt-env-conf-test] functionChunk "env",
  10046. 1841.44 s [opt-env-conf-test] ", ",
  10047. 1841.44 s [opt-env-conf-test] functionChunk "conf",
  10048. 1841.44 s [opt-env-conf-test] ", or ",
  10049. 1841.44 s [opt-env-conf-test] functionChunk "value",
  10050. 1841.44 s [opt-env-conf-test] "."
  10051. 1841.44 s [opt-env-conf-test] ]
  10052. 1841.44 s [opt-env-conf-test] ]
  10053. 1841.44 s [opt-env-conf-test] ]
  10054. 1841.44 s [opt-env-conf-test] LintErrorDashInShort ->
  10055. 1841.44 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
  10056. 1841.44 s [opt-env-conf-test] @@ -76,20 +76,19 @@
  10057. 1841.44 s [opt-env-conf-test] " parses nothing."
  10058. 1841.45 s [opt-env-conf-test] ]
  10059. 1841.45 s [opt-env-conf-test] ],
  10060. 1841.45 s [opt-env-conf-test] [ [ "Add an ",
  10061. 1841.45 s [opt-env-conf-test] functionChunk "argument",
  10062. 1841.45 s [opt-env-conf-test] ", ",
  10063. 1841.45 s [opt-env-conf-test] functionChunk "switch",
  10064. 1841.45 s [opt-env-conf-test] ", ",
  10065. 1841.45 s [opt-env-conf-test] functionChunk "option",
  10066. 1841.45 s [opt-env-conf-test] ", ",
  10067. 1841.45 s [opt-env-conf-test] functionChunk "env",
  10068. 1841.45 s [opt-env-conf-test] ", ",
  10069. 1841.45 s [opt-env-conf-test] functionChunk "conf",
  10070. 1841.45 s [opt-env-conf-test] ", or ",
  10071. 1841.45 s [opt-env-conf-test] functionChunk "value",
  10072. 1841.45 s [opt-env-conf-test] - "."
  10073. 1841.45 s [opt-env-conf-test] ]
  10074. 1841.45 s [opt-env-conf-test] ]
  10075. 1841.45 s [opt-env-conf-test] ]
  10076. 1841.45 s [opt-env-conf-test] LintErrorDashInShort ->
  10077. 1841.45 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
  10078. 1841.45 s [opt-env-conf-test] @@ -71,27 +71,7 @@
  10079. 1841.45 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  10080. 1841.45 s [opt-env-conf-test] LintErrorEmptySetting ->
  10081. 1841.45 s [opt-env-conf-test] concat
  10082. 1841.45 s [opt-env-conf-test] - [ [ [ "This ",
  10083. 1841.45 s [opt-env-conf-test] - functionChunk "setting",
  10084. 1841.45 s [opt-env-conf-test] - " parses nothing."
  10085. 1841.45 s [opt-env-conf-test] - ]
  10086. 1841.45 s [opt-env-conf-test] - ],
  10087. 1841.45 s [opt-env-conf-test] - [ [ "Add an ",
  10088. 1841.45 s [opt-env-conf-test] - functionChunk "argument",
  10089. 1841.45 s [opt-env-conf-test] - ", ",
  10090. 1841.45 s [opt-env-conf-test] - functionChunk "switch",
  10091. 1841.45 s [opt-env-conf-test] - ", ",
  10092. 1841.45 s [opt-env-conf-test] - functionChunk "option",
  10093. 1841.45 s [opt-env-conf-test] - ", ",
  10094. 1841.45 s [opt-env-conf-test] - functionChunk "env",
  10095. 1841.45 s [opt-env-conf-test] - ", ",
  10096. 1841.45 s [opt-env-conf-test] - functionChunk "conf",
  10097. 1841.45 s [opt-env-conf-test] - ", or ",
  10098. 1841.45 s [opt-env-conf-test] - functionChunk "value",
  10099. 1841.45 s [opt-env-conf-test] - "."
  10100. 1841.45 s [opt-env-conf-test] - ]
  10101. 1841.45 s [opt-env-conf-test] - ]
  10102. 1841.45 s [opt-env-conf-test] ]
  10103. 1841.45 s [opt-env-conf-test] LintErrorDashInShort ->
  10104. 1841.45 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  10105. 1841.45 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10106. 1841.45 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
  10107. 1841.45 s [opt-env-conf-test] @@ -71,27 +71,22 @@
  10108. 1841.45 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  10109. 1841.45 s [opt-env-conf-test] LintErrorEmptySetting ->
  10110. 1841.45 s [opt-env-conf-test] concat
  10111. 1841.45 s [opt-env-conf-test] - [ [ [ "This ",
  10112. 1841.45 s [opt-env-conf-test] - functionChunk "setting",
  10113. 1841.45 s [opt-env-conf-test] - " parses nothing."
  10114. 1841.45 s [opt-env-conf-test] - ]
  10115. 1841.45 s [opt-env-conf-test] - ],
  10116. 1841.45 s [opt-env-conf-test] [ [ "Add an ",
  10117. 1841.46 s [opt-env-conf-test] functionChunk "argument",
  10118. 1841.46 s [opt-env-conf-test] ", ",
  10119. 1841.46 s [opt-env-conf-test] functionChunk "switch",
  10120. 1841.46 s [opt-env-conf-test] ", ",
  10121. 1841.46 s [opt-env-conf-test] functionChunk "option",
  10122. 1841.46 s [opt-env-conf-test] ", ",
  10123. 1841.46 s [opt-env-conf-test] functionChunk "env",
  10124. 1841.46 s [opt-env-conf-test] ", ",
  10125. 1841.46 s [opt-env-conf-test] functionChunk "conf",
  10126. 1841.46 s [opt-env-conf-test] ", or ",
  10127. 1841.46 s [opt-env-conf-test] functionChunk "value",
  10128. 1841.46 s [opt-env-conf-test] "."
  10129. 1841.46 s [opt-env-conf-test] ]
  10130. 1841.46 s [opt-env-conf-test] ]
  10131. 1841.46 s [opt-env-conf-test] ]
  10132. 1841.46 s [opt-env-conf-test] LintErrorDashInShort ->
  10133. 1841.46 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  10134. 1841.46 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10135. 1841.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
  10136. 1841.46 s [opt-env-conf-test] @@ -93,7 +93,6 @@
  10137. 1841.46 s [opt-env-conf-test] ]
  10138. 1841.46 s [opt-env-conf-test] ]
  10139. 1841.46 s [opt-env-conf-test] LintErrorDashInShort ->
  10140. 1841.46 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  10141. 1841.46 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10142. 1841.46 s [opt-env-conf-test] ]
  10143. 1841.46 s [opt-env-conf-test] LintErrorDashInLong s ->
  10144. 1841.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
  10145. 1841.46 s [opt-env-conf-test] @@ -94,7 +94,6 @@
  10146. 1841.46 s [opt-env-conf-test] ]
  10147. 1841.46 s [opt-env-conf-test] LintErrorDashInShort ->
  10148. 1841.46 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  10149. 1841.46 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  10150. 1841.46 s [opt-env-conf-test] ]
  10151. 1841.46 s [opt-env-conf-test] LintErrorDashInLong s ->
  10152. 1841.46 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10153. 1841.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
  10154. 1841.46 s [opt-env-conf-test] @@ -94,7 +94,6 @@
  10155. 1841.46 s [opt-env-conf-test] ]
  10156. 1841.46 s [opt-env-conf-test] LintErrorDashInShort ->
  10157. 1841.46 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  10158. 1841.46 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  10159. 1841.46 s [opt-env-conf-test] ]
  10160. 1841.46 s [opt-env-conf-test] LintErrorDashInLong s ->
  10161. 1841.46 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10162. 1841.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
  10163. 1841.46 s [opt-env-conf-test] @@ -93,7 +93,6 @@
  10164. 1841.46 s [opt-env-conf-test] ]
  10165. 1841.46 s [opt-env-conf-test] ]
  10166. 1841.46 s [opt-env-conf-test] LintErrorDashInShort ->
  10167. 1841.46 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  10168. 1841.46 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10169. 1841.46 s [opt-env-conf-test] ]
  10170. 1841.46 s [opt-env-conf-test] LintErrorDashInLong s ->
  10171. 1841.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
  10172. 1841.46 s [opt-env-conf-test] @@ -93,9 +93,7 @@
  10173. 1841.46 s [opt-env-conf-test] ]
  10174. 1841.46 s [opt-env-conf-test] ]
  10175. 1841.46 s [opt-env-conf-test] LintErrorDashInShort ->
  10176. 1841.46 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  10177. 1841.46 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  10178. 1841.46 s [opt-env-conf-test] ]
  10179. 1841.46 s [opt-env-conf-test] LintErrorDashInLong s ->
  10180. 1841.46 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10181. 1841.46 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10182. 1841.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
  10183. 1841.46 s [opt-env-conf-test] @@ -94,7 +94,6 @@
  10184. 1841.46 s [opt-env-conf-test] ]
  10185. 1841.46 s [opt-env-conf-test] LintErrorDashInShort ->
  10186. 1841.46 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  10187. 1841.46 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  10188. 1841.46 s [opt-env-conf-test] ]
  10189. 1841.46 s [opt-env-conf-test] LintErrorDashInLong s ->
  10190. 1841.46 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10191. 1841.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
  10192. 1841.46 s [opt-env-conf-test] @@ -93,9 +93,8 @@
  10193. 1841.46 s [opt-env-conf-test] ]
  10194. 1841.46 s [opt-env-conf-test] ]
  10195. 1841.46 s [opt-env-conf-test] LintErrorDashInShort ->
  10196. 1841.46 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  10197. 1841.46 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10198. 1841.46 s [opt-env-conf-test] ]
  10199. 1841.46 s [opt-env-conf-test] LintErrorDashInLong s ->
  10200. 1841.46 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10201. 1841.46 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10202. 1841.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
  10203. 1841.46 s [opt-env-conf-test] @@ -97,7 +97,6 @@
  10204. 1841.46 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10205. 1841.46 s [opt-env-conf-test] ]
  10206. 1841.46 s [opt-env-conf-test] LintErrorDashInLong s ->
  10207. 1841.46 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  10208. 1841.46 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10209. 1841.46 s [opt-env-conf-test] [ "Try ",
  10210. 1841.46 s [opt-env-conf-test] functionChunk "long",
  10211. 1841.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
  10212. 1841.46 s [opt-env-conf-test] @@ -98,7 +98,6 @@
  10213. 1841.46 s [opt-env-conf-test] ]
  10214. 1841.46 s [opt-env-conf-test] LintErrorDashInLong s ->
  10215. 1841.47 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10216. 1841.47 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10217. 1841.47 s [opt-env-conf-test] [ "Try ",
  10218. 1841.47 s [opt-env-conf-test] functionChunk "long",
  10219. 1841.47 s [opt-env-conf-test] " ",
  10220. 1841.47 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:280:21-62
  10221. 1841.47 s [opt-env-conf-test] @@ -277,7 +277,7 @@
  10222. 1841.47 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  10223. 1841.47 s [opt-env-conf-test] else do
  10224. 1841.47 s [opt-env-conf-test] for_ mDefault $ \d ->
  10225. 1841.47 s [opt-env-conf-test] - when (isNothing (find ((== d) . commandArg) cs)) $
  10226. 1841.47 s [opt-env-conf-test] + when (not (isNothing (find ((== d) . commandArg) cs))) $
  10227. 1841.47 s [opt-env-conf-test] validationTFailure $
  10228. 1841.47 s [opt-env-conf-test] LintError mLoc $
  10229. 1841.47 s [opt-env-conf-test] LintErrorUnknownDefaultCommand d
  10230. 1841.47 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  10231. 1841.47 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  10232. 1841.47 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  10233. 1841.47 s [opt-env-conf-test] c1 <- go p1
  10234. 1841.47 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  10235. 1841.47 s [opt-env-conf-test] - pure $ c1 || c2
  10236. 1841.47 s [opt-env-conf-test] + pure $ True || c2
  10237. 1841.47 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  10238. 1841.47 s [opt-env-conf-test] case settingHelp of
  10239. 1848.04 s [opt-env-conf-test] Nothing ->
  10240. 1848.04 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
  10241. 1848.04 s [opt-env-conf-test] @@ -98,7 +98,6 @@
  10242. 1848.06 s [opt-env-conf-test] ]
  10243. 1848.06 s [opt-env-conf-test] LintErrorDashInLong s ->
  10244. 1848.06 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10245. 1848.06 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10246. 1848.06 s [opt-env-conf-test] [ "Try ",
  10247. 1848.07 s [opt-env-conf-test] functionChunk "long",
  10248. 1848.07 s [opt-env-conf-test] " ",
  10249. 1848.07 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Lint.hs:278:16-53
  10250. 1848.07 s [opt-env-conf-test] @@ -275,13 +275,8 @@
  10251. 1848.07 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  10252. 1848.07 s [opt-env-conf-test] if null cs
  10253. 1848.07 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  10254. 1848.07 s [opt-env-conf-test] else do
  10255. 1848.07 s [opt-env-conf-test] - for_ mDefault $ \d ->
  10256. 1848.07 s [opt-env-conf-test] - when (isNothing (find ((== d) . commandArg) cs)) $
  10257. 1848.07 s [opt-env-conf-test] - validationTFailure $
  10258. 1848.07 s [opt-env-conf-test] - LintError mLoc $
  10259. 1848.07 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand d
  10260. 1848.07 s [opt-env-conf-test] and <$> traverse (go . commandParser) cs -- TODO is this right?
  10261. 1848.07 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  10262. 1848.07 s [opt-env-conf-test] c1 <- go p1
  10263. 1848.07 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  10264. 1848.07 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
  10265. 1848.07 s [opt-env-conf-test] @@ -99,19 +99,18 @@
  10266. 1848.07 s [opt-env-conf-test] LintErrorDashInLong s ->
  10267. 1848.07 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10268. 1848.07 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10269. 1848.07 s [opt-env-conf-test] - [ "Try ",
  10270. 1848.07 s [opt-env-conf-test] functionChunk "long",
  10271. 1848.07 s [opt-env-conf-test] " ",
  10272. 1848.07 s [opt-env-conf-test] chunk $
  10273. 1848.07 s [opt-env-conf-test] T.pack $
  10274. 1848.07 s [opt-env-conf-test] show $
  10275. 1848.07 s [opt-env-conf-test] let go = \case
  10276. 1848.07 s [opt-env-conf-test] [] -> []
  10277. 1848.07 s [opt-env-conf-test] '-' : cs -> go cs
  10278. 1848.07 s [opt-env-conf-test] c : cs -> c : cs
  10279. 1848.07 s [opt-env-conf-test] in go $ NE.toList s,
  10280. 1848.07 s [opt-env-conf-test] " instead."
  10281. 1848.07 s [opt-env-conf-test] ]
  10282. 1848.07 s [opt-env-conf-test] ]
  10283. 1848.07 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  10284. 1848.07 s [opt-env-conf-test] [ [ functionChunk "argument",
  10285. 1848.07 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
  10286. 1848.07 s [opt-env-conf-test] @@ -99,19 +99,18 @@
  10287. 1848.07 s [opt-env-conf-test] LintErrorDashInLong s ->
  10288. 1848.07 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10289. 1848.07 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10290. 1848.07 s [opt-env-conf-test] [ "Try ",
  10291. 1848.07 s [opt-env-conf-test] functionChunk "long",
  10292. 1848.07 s [opt-env-conf-test] " ",
  10293. 1848.07 s [opt-env-conf-test] chunk $
  10294. 1848.07 s [opt-env-conf-test] T.pack $
  10295. 1848.07 s [opt-env-conf-test] show $
  10296. 1848.07 s [opt-env-conf-test] let go = \case
  10297. 1848.07 s [opt-env-conf-test] [] -> []
  10298. 1848.07 s [opt-env-conf-test] '-' : cs -> go cs
  10299. 1848.07 s [opt-env-conf-test] c : cs -> c : cs
  10300. 1848.07 s [opt-env-conf-test] in go $ NE.toList s,
  10301. 1848.07 s [opt-env-conf-test] - " instead."
  10302. 1848.07 s [opt-env-conf-test] ]
  10303. 1848.07 s [opt-env-conf-test] ]
  10304. 1848.07 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  10305. 1848.07 s [opt-env-conf-test] [ [ functionChunk "argument",
  10306. 1848.07 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
  10307. 1848.07 s [opt-env-conf-test] @@ -99,19 +99,7 @@
  10308. 1848.07 s [opt-env-conf-test] LintErrorDashInLong s ->
  10309. 1848.07 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10310. 1848.07 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10311. 1848.07 s [opt-env-conf-test] - [ "Try ",
  10312. 1848.07 s [opt-env-conf-test] - functionChunk "long",
  10313. 1848.07 s [opt-env-conf-test] - " ",
  10314. 1848.07 s [opt-env-conf-test] - chunk $
  10315. 1848.07 s [opt-env-conf-test] - T.pack $
  10316. 1848.07 s [opt-env-conf-test] - show $
  10317. 1848.07 s [opt-env-conf-test] - let go = \case
  10318. 1848.07 s [opt-env-conf-test] - [] -> []
  10319. 1848.07 s [opt-env-conf-test] - '-' : cs -> go cs
  10320. 1848.08 s [opt-env-conf-test] - c : cs -> c : cs
  10321. 1848.08 s [opt-env-conf-test] - in go $ NE.toList s,
  10322. 1848.08 s [opt-env-conf-test] - " instead."
  10323. 1848.08 s [opt-env-conf-test] ]
  10324. 1848.08 s [opt-env-conf-test] ]
  10325. 1848.08 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  10326. 1848.08 s [opt-env-conf-test] [ [ functionChunk "argument",
  10327. 1848.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
  10328. 1848.08 s [opt-env-conf-test] @@ -97,22 +97,7 @@
  10329. 1848.08 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10330. 1848.08 s [opt-env-conf-test] ]
  10331. 1848.08 s [opt-env-conf-test] LintErrorDashInLong s ->
  10332. 1848.08 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  10333. 1848.08 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10334. 1848.08 s [opt-env-conf-test] - [ "Try ",
  10335. 1848.08 s [opt-env-conf-test] - functionChunk "long",
  10336. 1848.08 s [opt-env-conf-test] - " ",
  10337. 1848.08 s [opt-env-conf-test] - chunk $
  10338. 1848.08 s [opt-env-conf-test] - T.pack $
  10339. 1848.08 s [opt-env-conf-test] - show $
  10340. 1848.08 s [opt-env-conf-test] - let go = \case
  10341. 1848.08 s [opt-env-conf-test] - [] -> []
  10342. 1848.08 s [opt-env-conf-test] - '-' : cs -> go cs
  10343. 1848.08 s [opt-env-conf-test] - c : cs -> c : cs
  10344. 1848.08 s [opt-env-conf-test] - in go $ NE.toList s,
  10345. 1848.08 s [opt-env-conf-test] - " instead."
  10346. 1848.08 s [opt-env-conf-test] - ]
  10347. 1848.08 s [opt-env-conf-test] ]
  10348. 1848.08 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  10349. 1848.08 s [opt-env-conf-test] [ [ functionChunk "argument",
  10350. 1848.08 s [opt-env-conf-test] " has no ",
  10351. 1848.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
  10352. 1848.08 s [opt-env-conf-test] @@ -114,11 +114,10 @@
  10353. 1848.08 s [opt-env-conf-test] ]
  10354. 1848.08 s [opt-env-conf-test] ]
  10355. 1848.08 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  10356. 1848.08 s [opt-env-conf-test] - [ [ functionChunk "argument",
  10357. 1848.08 s [opt-env-conf-test] " has no ",
  10358. 1848.08 s [opt-env-conf-test] functionChunk "reader",
  10359. 1848.08 s [opt-env-conf-test] "."
  10360. 1848.08 s [opt-env-conf-test] ]
  10361. 1848.08 s [opt-env-conf-test] ]
  10362. 1848.08 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  10363. 1848.08 s [opt-env-conf-test] [ [ functionChunk "argument",
  10364. 1848.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
  10365. 1848.08 s [opt-env-conf-test] @@ -76,20 +76,7 @@
  10366. 1848.08 s [opt-env-conf-test] " parses nothing."
  10367. 1848.08 s [opt-env-conf-test] ]
  10368. 1848.08 s [opt-env-conf-test] ],
  10369. 1848.08 s [opt-env-conf-test] - [ [ "Add an ",
  10370. 1848.08 s [opt-env-conf-test] - functionChunk "argument",
  10371. 1848.08 s [opt-env-conf-test] - ", ",
  10372. 1848.08 s [opt-env-conf-test] - functionChunk "switch",
  10373. 1848.08 s [opt-env-conf-test] - ", ",
  10374. 1848.08 s [opt-env-conf-test] - functionChunk "option",
  10375. 1848.08 s [opt-env-conf-test] - ", ",
  10376. 1848.08 s [opt-env-conf-test] - functionChunk "env",
  10377. 1848.08 s [opt-env-conf-test] - ", ",
  10378. 1848.08 s [opt-env-conf-test] - functionChunk "conf",
  10379. 1848.08 s [opt-env-conf-test] - ", or ",
  10380. 1848.08 s [opt-env-conf-test] - functionChunk "value",
  10381. 1848.08 s [opt-env-conf-test] - "."
  10382. 1848.08 s [opt-env-conf-test] ]
  10383. 1848.08 s [opt-env-conf-test] ]
  10384. 1848.08 s [opt-env-conf-test] ]
  10385. 1848.08 s [opt-env-conf-test] LintErrorDashInShort ->
  10386. 1848.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
  10387. 1848.08 s [opt-env-conf-test] @@ -114,11 +114,7 @@
  10388. 1848.08 s [opt-env-conf-test] ]
  10389. 1848.08 s [opt-env-conf-test] ]
  10390. 1848.08 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  10391. 1848.08 s [opt-env-conf-test] - [ [ functionChunk "argument",
  10392. 1848.08 s [opt-env-conf-test] - " has no ",
  10393. 1848.08 s [opt-env-conf-test] - functionChunk "reader",
  10394. 1848.08 s [opt-env-conf-test] - "."
  10395. 1848.08 s [opt-env-conf-test] ]
  10396. 1848.08 s [opt-env-conf-test] ]
  10397. 1848.08 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  10398. 1848.08 s [opt-env-conf-test] [ [ functionChunk "argument",
  10399. 1848.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
  10400. 1848.08 s [opt-env-conf-test] @@ -71,10 +71,9 @@
  10401. 1848.08 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  10402. 1848.08 s [opt-env-conf-test] LintErrorEmptySetting ->
  10403. 1848.08 s [opt-env-conf-test] concat
  10404. 1848.08 s [opt-env-conf-test] [ [ [ "This ",
  10405. 1848.08 s [opt-env-conf-test] functionChunk "setting",
  10406. 1848.08 s [opt-env-conf-test] - " parses nothing."
  10407. 1848.08 s [opt-env-conf-test] ]
  10408. 1848.08 s [opt-env-conf-test] ],
  10409. 1848.08 s [opt-env-conf-test] [ [ "Add an ",
  10410. 1848.08 s [opt-env-conf-test] functionChunk "argument",
  10411. 1848.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
  10412. 1848.08 s [opt-env-conf-test] @@ -71,10 +71,7 @@
  10413. 1848.08 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  10414. 1848.08 s [opt-env-conf-test] LintErrorEmptySetting ->
  10415. 1848.08 s [opt-env-conf-test] concat
  10416. 1848.08 s [opt-env-conf-test] - [ [ [ "This ",
  10417. 1848.08 s [opt-env-conf-test] - functionChunk "setting",
  10418. 1848.08 s [opt-env-conf-test] - " parses nothing."
  10419. 1848.08 s [opt-env-conf-test] ]
  10420. 1848.08 s [opt-env-conf-test] ],
  10421. 1848.08 s [opt-env-conf-test] [ [ "Add an ",
  10422. 1848.08 s [opt-env-conf-test] functionChunk "argument",
  10423. 1848.08 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
  10424. 1848.09 s [opt-env-conf-test] @@ -114,11 +114,10 @@
  10425. 1848.09 s [opt-env-conf-test] ]
  10426. 1848.09 s [opt-env-conf-test] ]
  10427. 1848.09 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  10428. 1848.09 s [opt-env-conf-test] [ [ functionChunk "argument",
  10429. 1848.09 s [opt-env-conf-test] " has no ",
  10430. 1848.09 s [opt-env-conf-test] functionChunk "reader",
  10431. 1848.09 s [opt-env-conf-test] - "."
  10432. 1848.09 s [opt-env-conf-test] ]
  10433. 1848.09 s [opt-env-conf-test] ]
  10434. 1848.09 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  10435. 1848.09 s [opt-env-conf-test] [ [ functionChunk "argument",
  10436. 1848.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
  10437. 1848.09 s [opt-env-conf-test] @@ -71,10 +71,9 @@
  10438. 1848.09 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  10439. 1848.09 s [opt-env-conf-test] LintErrorEmptySetting ->
  10440. 1848.09 s [opt-env-conf-test] concat
  10441. 1848.09 s [opt-env-conf-test] - [ [ [ "This ",
  10442. 1848.09 s [opt-env-conf-test] functionChunk "setting",
  10443. 1848.09 s [opt-env-conf-test] " parses nothing."
  10444. 1848.09 s [opt-env-conf-test] ]
  10445. 1848.09 s [opt-env-conf-test] ],
  10446. 1848.09 s [opt-env-conf-test] [ [ "Add an ",
  10447. 1848.09 s [opt-env-conf-test] functionChunk "argument",
  10448. 1848.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
  10449. 1848.09 s [opt-env-conf-test] @@ -68,7 +68,6 @@
  10450. 1848.09 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  10451. 1848.09 s [opt-env-conf-test] case lintErrorMessage of
  10452. 1848.09 s [opt-env-conf-test] LintErrorUndocumented ->
  10453. 1848.09 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  10454. 1848.09 s [opt-env-conf-test] LintErrorEmptySetting ->
  10455. 1848.09 s [opt-env-conf-test] concat
  10456. 1848.09 s [opt-env-conf-test] [ [ [ "This ",
  10457. 1857.73 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
  10458. 1857.73 s [opt-env-conf-test] @@ -68,7 +68,6 @@
  10459. 1857.73 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  10460. 1857.75 s [opt-env-conf-test] case lintErrorMessage of
  10461. 1857.75 s [opt-env-conf-test] LintErrorUndocumented ->
  10462. 1857.75 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  10463. 1857.75 s [opt-env-conf-test] LintErrorEmptySetting ->
  10464. 1857.75 s [opt-env-conf-test] concat
  10465. 1857.75 s [opt-env-conf-test] [ [ [ "This ",
  10466. 1857.75 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:280:21-62
  10467. 1857.76 s [opt-env-conf-test] @@ -277,7 +277,7 @@
  10468. 1857.76 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  10469. 1857.76 s [opt-env-conf-test] else do
  10470. 1857.76 s [opt-env-conf-test] for_ mDefault $ \d ->
  10471. 1857.76 s [opt-env-conf-test] - when (isNothing (find ((== d) . commandArg) cs)) $
  10472. 1857.76 s [opt-env-conf-test] + when (True) $
  10473. 1857.76 s [opt-env-conf-test] validationTFailure $
  10474. 1857.76 s [opt-env-conf-test] LintError mLoc $
  10475. 1857.76 s [opt-env-conf-test] LintErrorUnknownDefaultCommand d
  10476. 1857.76 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
  10477. 1857.76 s [opt-env-conf-test] @@ -128,13 +128,12 @@
  10478. 1857.76 s [opt-env-conf-test] ]
  10479. 1857.76 s [opt-env-conf-test] ]
  10480. 1857.76 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  10481. 1857.76 s [opt-env-conf-test] - [ [ functionChunk "option",
  10482. 1857.76 s [opt-env-conf-test] " or ",
  10483. 1857.76 s [opt-env-conf-test] functionChunk "name",
  10484. 1857.76 s [opt-env-conf-test] " has no ",
  10485. 1857.76 s [opt-env-conf-test] functionChunk "reader",
  10486. 1857.76 s [opt-env-conf-test] "."
  10487. 1857.76 s [opt-env-conf-test] ]
  10488. 1857.76 s [opt-env-conf-test] ]
  10489. 1857.76 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  10490. 1857.76 s [opt-env-conf-test] [ [ functionChunk "option",
  10491. 1857.76 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
  10492. 1857.76 s [opt-env-conf-test] @@ -137,13 +137,12 @@
  10493. 1857.76 s [opt-env-conf-test] ]
  10494. 1857.76 s [opt-env-conf-test] ]
  10495. 1857.76 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  10496. 1857.76 s [opt-env-conf-test] [ [ functionChunk "option",
  10497. 1857.76 s [opt-env-conf-test] " has no ",
  10498. 1857.76 s [opt-env-conf-test] functionChunk "long",
  10499. 1857.76 s [opt-env-conf-test] " or ",
  10500. 1857.76 s [opt-env-conf-test] functionChunk "short",
  10501. 1857.76 s [opt-env-conf-test] - "."
  10502. 1857.76 s [opt-env-conf-test] ]
  10503. 1857.76 s [opt-env-conf-test] ]
  10504. 1857.76 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  10505. 1857.76 s [opt-env-conf-test] [ [ functionChunk "option",
  10506. 1857.76 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
  10507. 1857.76 s [opt-env-conf-test] @@ -146,13 +146,12 @@
  10508. 1857.76 s [opt-env-conf-test] ]
  10509. 1857.76 s [opt-env-conf-test] ]
  10510. 1857.76 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  10511. 1857.76 s [opt-env-conf-test] [ [ functionChunk "option",
  10512. 1857.76 s [opt-env-conf-test] " or ",
  10513. 1857.77 s [opt-env-conf-test] functionChunk "name",
  10514. 1857.77 s [opt-env-conf-test] " has no ",
  10515. 1857.77 s [opt-env-conf-test] functionChunk "metavar",
  10516. 1857.77 s [opt-env-conf-test] - "."
  10517. 1857.77 s [opt-env-conf-test] ]
  10518. 1857.77 s [opt-env-conf-test] ]
  10519. 1857.77 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  10520. 1857.77 s [opt-env-conf-test] [ [ functionChunk "switch",
  10521. 1857.77 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
  10522. 1857.77 s [opt-env-conf-test] @@ -155,13 +155,12 @@
  10523. 1857.77 s [opt-env-conf-test] ]
  10524. 1857.77 s [opt-env-conf-test] ]
  10525. 1857.77 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  10526. 1857.77 s [opt-env-conf-test] - [ [ functionChunk "switch",
  10527. 1857.77 s [opt-env-conf-test] " has no ",
  10528. 1857.77 s [opt-env-conf-test] functionChunk "long",
  10529. 1857.77 s [opt-env-conf-test] " or ",
  10530. 1857.77 s [opt-env-conf-test] functionChunk "short",
  10531. 1857.77 s [opt-env-conf-test] "."
  10532. 1857.77 s [opt-env-conf-test] ]
  10533. 1857.77 s [opt-env-conf-test] ]
  10534. 1857.77 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  10535. 1857.77 s [opt-env-conf-test] [ [ functionChunk "long",
  10536. 1857.77 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
  10537. 1857.77 s [opt-env-conf-test] @@ -155,13 +155,12 @@
  10538. 1857.77 s [opt-env-conf-test] ]
  10539. 1857.77 s [opt-env-conf-test] ]
  10540. 1857.77 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  10541. 1857.77 s [opt-env-conf-test] [ [ functionChunk "switch",
  10542. 1857.77 s [opt-env-conf-test] " has no ",
  10543. 1857.77 s [opt-env-conf-test] functionChunk "long",
  10544. 1857.77 s [opt-env-conf-test] " or ",
  10545. 1857.77 s [opt-env-conf-test] functionChunk "short",
  10546. 1857.77 s [opt-env-conf-test] - "."
  10547. 1857.77 s [opt-env-conf-test] ]
  10548. 1857.77 s [opt-env-conf-test] ]
  10549. 1857.77 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  10550. 1857.77 s [opt-env-conf-test] [ [ functionChunk "long",
  10551. 1857.77 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
  10552. 1857.77 s [opt-env-conf-test] @@ -164,15 +164,7 @@
  10553. 1857.77 s [opt-env-conf-test] ]
  10554. 1857.77 s [opt-env-conf-test] ]
  10555. 1857.77 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  10556. 1857.77 s [opt-env-conf-test] - [ [ functionChunk "long",
  10557. 1857.77 s [opt-env-conf-test] - " or ",
  10558. 1857.77 s [opt-env-conf-test] - functionChunk "short",
  10559. 1857.77 s [opt-env-conf-test] - " has no ",
  10560. 1857.77 s [opt-env-conf-test] - functionChunk "option",
  10561. 1857.77 s [opt-env-conf-test] - " or ",
  10562. 1857.77 s [opt-env-conf-test] - functionChunk "switch",
  10563. 1857.77 s [opt-env-conf-test] - "."
  10564. 1857.78 s [opt-env-conf-test] ]
  10565. 1857.78 s [opt-env-conf-test] ]
  10566. 1857.78 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  10567. 1857.78 s [opt-env-conf-test] [ [ functionChunk "env",
  10568. 1857.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
  10569. 1857.78 s [opt-env-conf-test] @@ -121,11 +121,10 @@
  10570. 1857.78 s [opt-env-conf-test] ]
  10571. 1857.78 s [opt-env-conf-test] ]
  10572. 1857.78 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  10573. 1857.78 s [opt-env-conf-test] [ [ functionChunk "argument",
  10574. 1857.78 s [opt-env-conf-test] " has no ",
  10575. 1857.78 s [opt-env-conf-test] functionChunk "metavar",
  10576. 1857.78 s [opt-env-conf-test] - "."
  10577. 1857.78 s [opt-env-conf-test] ]
  10578. 1857.78 s [opt-env-conf-test] ]
  10579. 1857.78 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  10580. 1857.78 s [opt-env-conf-test] [ [ functionChunk "option",
  10581. 1857.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
  10582. 1857.78 s [opt-env-conf-test] @@ -128,13 +128,7 @@
  10583. 1857.78 s [opt-env-conf-test] ]
  10584. 1857.78 s [opt-env-conf-test] ]
  10585. 1857.78 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  10586. 1857.78 s [opt-env-conf-test] - [ [ functionChunk "option",
  10587. 1857.78 s [opt-env-conf-test] - " or ",
  10588. 1857.78 s [opt-env-conf-test] - functionChunk "name",
  10589. 1857.78 s [opt-env-conf-test] - " has no ",
  10590. 1857.78 s [opt-env-conf-test] - functionChunk "reader",
  10591. 1857.78 s [opt-env-conf-test] - "."
  10592. 1857.78 s [opt-env-conf-test] ]
  10593. 1857.78 s [opt-env-conf-test] ]
  10594. 1857.78 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  10595. 1857.78 s [opt-env-conf-test] [ [ functionChunk "option",
  10596. 1857.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
  10597. 1857.78 s [opt-env-conf-test] @@ -121,11 +121,10 @@
  10598. 1857.78 s [opt-env-conf-test] ]
  10599. 1857.78 s [opt-env-conf-test] ]
  10600. 1857.78 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  10601. 1857.78 s [opt-env-conf-test] - [ [ functionChunk "argument",
  10602. 1857.78 s [opt-env-conf-test] " has no ",
  10603. 1857.78 s [opt-env-conf-test] functionChunk "metavar",
  10604. 1857.78 s [opt-env-conf-test] "."
  10605. 1857.78 s [opt-env-conf-test] ]
  10606. 1857.78 s [opt-env-conf-test] ]
  10607. 1857.78 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  10608. 1857.78 s [opt-env-conf-test] [ [ functionChunk "option",
  10609. 1857.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
  10610. 1857.78 s [opt-env-conf-test] @@ -121,11 +121,7 @@
  10611. 1857.78 s [opt-env-conf-test] ]
  10612. 1857.78 s [opt-env-conf-test] ]
  10613. 1857.78 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  10614. 1857.78 s [opt-env-conf-test] - [ [ functionChunk "argument",
  10615. 1857.78 s [opt-env-conf-test] - " has no ",
  10616. 1857.78 s [opt-env-conf-test] - functionChunk "metavar",
  10617. 1857.78 s [opt-env-conf-test] - "."
  10618. 1857.78 s [opt-env-conf-test] ]
  10619. 1857.78 s [opt-env-conf-test] ]
  10620. 1857.78 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  10621. 1857.78 s [opt-env-conf-test] [ [ functionChunk "option",
  10622. 1857.78 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
  10623. 1857.78 s [opt-env-conf-test] @@ -137,13 +137,12 @@
  10624. 1857.78 s [opt-env-conf-test] ]
  10625. 1857.78 s [opt-env-conf-test] ]
  10626. 1857.78 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  10627. 1857.79 s [opt-env-conf-test] - [ [ functionChunk "option",
  10628. 1857.79 s [opt-env-conf-test] " has no ",
  10629. 1857.79 s [opt-env-conf-test] functionChunk "long",
  10630. 1857.79 s [opt-env-conf-test] " or ",
  10631. 1857.79 s [opt-env-conf-test] functionChunk "short",
  10632. 1857.79 s [opt-env-conf-test] "."
  10633. 1857.79 s [opt-env-conf-test] ]
  10634. 1857.79 s [opt-env-conf-test] ]
  10635. 1857.79 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  10636. 1857.79 s [opt-env-conf-test] [ [ functionChunk "option",
  10637. 1857.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
  10638. 1857.79 s [opt-env-conf-test] @@ -97,22 +97,9 @@
  10639. 1857.79 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10640. 1857.79 s [opt-env-conf-test] ]
  10641. 1857.79 s [opt-env-conf-test] LintErrorDashInLong s ->
  10642. 1857.79 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10643. 1857.79 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10644. 1857.79 s [opt-env-conf-test] - [ "Try ",
  10645. 1857.79 s [opt-env-conf-test] - functionChunk "long",
  10646. 1857.79 s [opt-env-conf-test] - " ",
  10647. 1857.79 s [opt-env-conf-test] - chunk $
  10648. 1857.79 s [opt-env-conf-test] - T.pack $
  10649. 1857.79 s [opt-env-conf-test] - show $
  10650. 1857.79 s [opt-env-conf-test] - let go = \case
  10651. 1857.79 s [opt-env-conf-test] - [] -> []
  10652. 1857.79 s [opt-env-conf-test] - '-' : cs -> go cs
  10653. 1857.79 s [opt-env-conf-test] - c : cs -> c : cs
  10654. 1857.79 s [opt-env-conf-test] - in go $ NE.toList s,
  10655. 1857.79 s [opt-env-conf-test] - " instead."
  10656. 1857.79 s [opt-env-conf-test] - ]
  10657. 1857.79 s [opt-env-conf-test] ]
  10658. 1857.79 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  10659. 1857.79 s [opt-env-conf-test] [ [ functionChunk "argument",
  10660. 1857.79 s [opt-env-conf-test] " has no ",
  10661. 1857.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
  10662. 1857.79 s [opt-env-conf-test] @@ -175,13 +175,12 @@
  10663. 1857.79 s [opt-env-conf-test] ]
  10664. 1857.79 s [opt-env-conf-test] ]
  10665. 1857.79 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  10666. 1857.79 s [opt-env-conf-test] - [ [ functionChunk "env",
  10667. 1857.79 s [opt-env-conf-test] " or ",
  10668. 1857.79 s [opt-env-conf-test] functionChunk "name",
  10669. 1857.79 s [opt-env-conf-test] " has no ",
  10670. 1857.79 s [opt-env-conf-test] functionChunk "reader",
  10671. 1857.79 s [opt-env-conf-test] "."
  10672. 1857.79 s [opt-env-conf-test] ]
  10673. 1857.79 s [opt-env-conf-test] ]
  10674. 1857.79 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  10675. 1857.79 s [opt-env-conf-test] [ [ functionChunk "env",
  10676. 1857.79 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
  10677. 1857.79 s [opt-env-conf-test] @@ -128,13 +128,12 @@
  10678. 1857.79 s [opt-env-conf-test] ]
  10679. 1857.79 s [opt-env-conf-test] ]
  10680. 1857.79 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  10681. 1857.79 s [opt-env-conf-test] [ [ functionChunk "option",
  10682. 1857.79 s [opt-env-conf-test] " or ",
  10683. 1857.79 s [opt-env-conf-test] functionChunk "name",
  10684. 1857.80 s [opt-env-conf-test] " has no ",
  10685. 1857.80 s [opt-env-conf-test] functionChunk "reader",
  10686. 1857.80 s [opt-env-conf-test] - "."
  10687. 1857.80 s [opt-env-conf-test] ]
  10688. 1857.80 s [opt-env-conf-test] ]
  10689. 1857.80 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  10690. 1857.80 s [opt-env-conf-test] [ [ functionChunk "option",
  10691. 1857.80 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
  10692. 1857.80 s [opt-env-conf-test] @@ -175,13 +175,7 @@
  10693. 1857.80 s [opt-env-conf-test] ]
  10694. 1857.80 s [opt-env-conf-test] ]
  10695. 1857.80 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  10696. 1857.80 s [opt-env-conf-test] - [ [ functionChunk "env",
  10697. 1857.80 s [opt-env-conf-test] - " or ",
  10698. 1864.66 s [opt-env-conf-test] - functionChunk "name",
  10699. 1864.69 s [opt-env-conf-test] - " has no ",
  10700. 1864.69 s [opt-env-conf-test] - functionChunk "reader",
  10701. 1864.69 s [opt-env-conf-test] - "."
  10702. 1864.69 s [opt-env-conf-test] ]
  10703. 1864.69 s [opt-env-conf-test] ]
  10704. 1864.69 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  10705. 1864.69 s [opt-env-conf-test] [ [ functionChunk "env",
  10706. 1864.69 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
  10707. 1864.69 s [opt-env-conf-test] @@ -97,22 +97,21 @@
  10708. 1864.69 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10709. 1864.69 s [opt-env-conf-test] ]
  10710. 1864.69 s [opt-env-conf-test] LintErrorDashInLong s ->
  10711. 1864.69 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  10712. 1864.69 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10713. 1864.69 s [opt-env-conf-test] [ "Try ",
  10714. 1864.69 s [opt-env-conf-test] functionChunk "long",
  10715. 1864.69 s [opt-env-conf-test] " ",
  10716. 1864.69 s [opt-env-conf-test] chunk $
  10717. 1864.69 s [opt-env-conf-test] T.pack $
  10718. 1864.69 s [opt-env-conf-test] show $
  10719. 1864.69 s [opt-env-conf-test] let go = \case
  10720. 1864.69 s [opt-env-conf-test] [] -> []
  10721. 1864.69 s [opt-env-conf-test] '-' : cs -> go cs
  10722. 1864.69 s [opt-env-conf-test] c : cs -> c : cs
  10723. 1864.69 s [opt-env-conf-test] in go $ NE.toList s,
  10724. 1864.69 s [opt-env-conf-test] " instead."
  10725. 1864.70 s [opt-env-conf-test] ]
  10726. 1864.70 s [opt-env-conf-test] ]
  10727. 1864.70 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  10728. 1864.70 s [opt-env-conf-test] [ [ functionChunk "argument",
  10729. 1864.70 s [opt-env-conf-test] " has no ",
  10730. 1864.70 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
  10731. 1864.70 s [opt-env-conf-test] @@ -97,7 +97,6 @@
  10732. 1864.70 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  10733. 1864.70 s [opt-env-conf-test] ]
  10734. 1864.70 s [opt-env-conf-test] LintErrorDashInLong s ->
  10735. 1864.70 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  10736. 1864.70 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10737. 1864.70 s [opt-env-conf-test] [ "Try ",
  10738. 1864.70 s [opt-env-conf-test] functionChunk "long",
  10739. 1864.70 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
  10740. 1864.70 s [opt-env-conf-test] @@ -146,13 +146,7 @@
  10741. 1864.70 s [opt-env-conf-test] ]
  10742. 1864.70 s [opt-env-conf-test] ]
  10743. 1864.70 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  10744. 1864.70 s [opt-env-conf-test] - [ [ functionChunk "option",
  10745. 1864.70 s [opt-env-conf-test] - " or ",
  10746. 1864.70 s [opt-env-conf-test] - functionChunk "name",
  10747. 1864.70 s [opt-env-conf-test] - " has no ",
  10748. 1864.70 s [opt-env-conf-test] - functionChunk "metavar",
  10749. 1864.70 s [opt-env-conf-test] - "."
  10750. 1864.70 s [opt-env-conf-test] ]
  10751. 1864.70 s [opt-env-conf-test] ]
  10752. 1864.70 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  10753. 1864.70 s [opt-env-conf-test] [ [ functionChunk "switch",
  10754. 1864.70 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
  10755. 1864.70 s [opt-env-conf-test] @@ -175,13 +175,12 @@
  10756. 1864.70 s [opt-env-conf-test] ]
  10757. 1864.70 s [opt-env-conf-test] ]
  10758. 1864.70 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  10759. 1864.70 s [opt-env-conf-test] [ [ functionChunk "env",
  10760. 1864.70 s [opt-env-conf-test] " or ",
  10761. 1864.70 s [opt-env-conf-test] functionChunk "name",
  10762. 1864.70 s [opt-env-conf-test] " has no ",
  10763. 1864.70 s [opt-env-conf-test] functionChunk "reader",
  10764. 1864.70 s [opt-env-conf-test] - "."
  10765. 1864.70 s [opt-env-conf-test] ]
  10766. 1864.70 s [opt-env-conf-test] ]
  10767. 1864.70 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  10768. 1864.70 s [opt-env-conf-test] [ [ functionChunk "env",
  10769. 1864.70 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
  10770. 1864.70 s [opt-env-conf-test] @@ -193,9 +193,7 @@
  10771. 1864.70 s [opt-env-conf-test] ]
  10772. 1864.70 s [opt-env-conf-test] ]
  10773. 1864.70 s [opt-env-conf-test] LintErrorNoCommands ->
  10774. 1864.70 s [opt-env-conf-test] - [ [ functionChunk "commands",
  10775. 1864.70 s [opt-env-conf-test] - " was called with an empty list."
  10776. 1864.70 s [opt-env-conf-test] ]
  10777. 1864.70 s [opt-env-conf-test] ]
  10778. 1864.70 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  10779. 1864.70 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  10780. 1864.70 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
  10781. 1864.70 s [opt-env-conf-test] @@ -184,13 +184,12 @@
  10782. 1864.70 s [opt-env-conf-test] ]
  10783. 1864.70 s [opt-env-conf-test] ]
  10784. 1864.70 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  10785. 1864.70 s [opt-env-conf-test] - [ [ functionChunk "env",
  10786. 1864.70 s [opt-env-conf-test] " or ",
  10787. 1864.70 s [opt-env-conf-test] functionChunk "name",
  10788. 1864.70 s [opt-env-conf-test] " has no ",
  10789. 1864.70 s [opt-env-conf-test] functionChunk "metavar",
  10790. 1864.70 s [opt-env-conf-test] "."
  10791. 1864.70 s [opt-env-conf-test] ]
  10792. 1864.70 s [opt-env-conf-test] ]
  10793. 1864.70 s [opt-env-conf-test] LintErrorNoCommands ->
  10794. 1864.70 s [opt-env-conf-test] [ [ functionChunk "commands",
  10795. 1864.70 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
  10796. 1864.70 s [opt-env-conf-test] @@ -184,13 +184,12 @@
  10797. 1864.70 s [opt-env-conf-test] ]
  10798. 1864.70 s [opt-env-conf-test] ]
  10799. 1864.70 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  10800. 1864.70 s [opt-env-conf-test] [ [ functionChunk "env",
  10801. 1864.70 s [opt-env-conf-test] " or ",
  10802. 1864.70 s [opt-env-conf-test] functionChunk "name",
  10803. 1864.70 s [opt-env-conf-test] " has no ",
  10804. 1864.70 s [opt-env-conf-test] functionChunk "metavar",
  10805. 1864.70 s [opt-env-conf-test] - "."
  10806. 1864.70 s [opt-env-conf-test] ]
  10807. 1864.70 s [opt-env-conf-test] ]
  10808. 1864.70 s [opt-env-conf-test] LintErrorNoCommands ->
  10809. 1864.70 s [opt-env-conf-test] [ [ functionChunk "commands",
  10810. 1864.70 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
  10811. 1864.70 s [opt-env-conf-test] @@ -193,9 +193,8 @@
  10812. 1864.70 s [opt-env-conf-test] ]
  10813. 1864.70 s [opt-env-conf-test] ]
  10814. 1864.70 s [opt-env-conf-test] LintErrorNoCommands ->
  10815. 1864.70 s [opt-env-conf-test] - [ [ functionChunk "commands",
  10816. 1864.70 s [opt-env-conf-test] " was called with an empty list."
  10817. 1864.70 s [opt-env-conf-test] ]
  10818. 1864.70 s [opt-env-conf-test] ]
  10819. 1864.70 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  10820. 1864.70 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  10821. 1864.70 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
  10822. 1864.70 s [opt-env-conf-test] @@ -184,13 +184,7 @@
  10823. 1864.70 s [opt-env-conf-test] ]
  10824. 1864.70 s [opt-env-conf-test] ]
  10825. 1864.70 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  10826. 1864.70 s [opt-env-conf-test] - [ [ functionChunk "env",
  10827. 1864.70 s [opt-env-conf-test] - " or ",
  10828. 1864.70 s [opt-env-conf-test] - functionChunk "name",
  10829. 1864.70 s [opt-env-conf-test] - " has no ",
  10830. 1864.70 s [opt-env-conf-test] - functionChunk "metavar",
  10831. 1864.70 s [opt-env-conf-test] - "."
  10832. 1864.70 s [opt-env-conf-test] ]
  10833. 1864.70 s [opt-env-conf-test] ]
  10834. 1864.71 s [opt-env-conf-test] LintErrorNoCommands ->
  10835. 1864.71 s [opt-env-conf-test] [ [ functionChunk "commands",
  10836. 1864.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
  10837. 1864.71 s [opt-env-conf-test] @@ -164,15 +164,14 @@
  10838. 1864.71 s [opt-env-conf-test] ]
  10839. 1864.71 s [opt-env-conf-test] ]
  10840. 1864.71 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  10841. 1864.71 s [opt-env-conf-test] [ [ functionChunk "long",
  10842. 1864.71 s [opt-env-conf-test] " or ",
  10843. 1864.71 s [opt-env-conf-test] functionChunk "short",
  10844. 1864.71 s [opt-env-conf-test] " has no ",
  10845. 1864.71 s [opt-env-conf-test] functionChunk "option",
  10846. 1864.71 s [opt-env-conf-test] " or ",
  10847. 1864.71 s [opt-env-conf-test] functionChunk "switch",
  10848. 1864.71 s [opt-env-conf-test] - "."
  10849. 1864.71 s [opt-env-conf-test] ]
  10850. 1864.71 s [opt-env-conf-test] ]
  10851. 1864.71 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  10852. 1864.71 s [opt-env-conf-test] [ [ functionChunk "env",
  10853. 1864.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
  10854. 1864.71 s [opt-env-conf-test] @@ -164,15 +164,14 @@
  10855. 1864.71 s [opt-env-conf-test] ]
  10856. 1864.71 s [opt-env-conf-test] ]
  10857. 1864.71 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  10858. 1864.71 s [opt-env-conf-test] - [ [ functionChunk "long",
  10859. 1864.71 s [opt-env-conf-test] " or ",
  10860. 1864.71 s [opt-env-conf-test] functionChunk "short",
  10861. 1864.71 s [opt-env-conf-test] " has no ",
  10862. 1864.71 s [opt-env-conf-test] functionChunk "option",
  10863. 1864.71 s [opt-env-conf-test] " or ",
  10864. 1864.71 s [opt-env-conf-test] functionChunk "switch",
  10865. 1864.71 s [opt-env-conf-test] "."
  10866. 1864.71 s [opt-env-conf-test] ]
  10867. 1864.71 s [opt-env-conf-test] ]
  10868. 1864.71 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  10869. 1864.71 s [opt-env-conf-test] [ [ functionChunk "env",
  10870. 1864.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
  10871. 1864.71 s [opt-env-conf-test] @@ -204,7 +204,6 @@
  10872. 1864.71 s [opt-env-conf-test] ]
  10873. 1864.71 s [opt-env-conf-test] ]
  10874. 1864.71 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  10875. 1864.71 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  10876. 1864.71 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  10877. 1864.71 s [opt-env-conf-test] ]
  10878. 1864.71 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  10879. 1864.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
  10880. 1864.71 s [opt-env-conf-test] @@ -204,7 +204,6 @@
  10881. 1864.71 s [opt-env-conf-test] ]
  10882. 1864.71 s [opt-env-conf-test] ]
  10883. 1864.71 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  10884. 1864.71 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  10885. 1864.71 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  10886. 1864.71 s [opt-env-conf-test] ]
  10887. 1864.71 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  10888. 1864.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
  10889. 1864.71 s [opt-env-conf-test] @@ -155,13 +155,7 @@
  10890. 1864.71 s [opt-env-conf-test] ]
  10891. 1864.71 s [opt-env-conf-test] ]
  10892. 1864.71 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  10893. 1864.71 s [opt-env-conf-test] - [ [ functionChunk "switch",
  10894. 1864.71 s [opt-env-conf-test] - " has no ",
  10895. 1864.71 s [opt-env-conf-test] - functionChunk "long",
  10896. 1864.71 s [opt-env-conf-test] - " or ",
  10897. 1864.71 s [opt-env-conf-test] - functionChunk "short",
  10898. 1864.71 s [opt-env-conf-test] - "."
  10899. 1864.71 s [opt-env-conf-test] ]
  10900. 1864.71 s [opt-env-conf-test] ]
  10901. 1864.71 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  10902. 1864.71 s [opt-env-conf-test] [ [ functionChunk "long",
  10903. 1864.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
  10904. 1864.71 s [opt-env-conf-test] @@ -198,10 +198,9 @@
  10905. 1864.71 s [opt-env-conf-test] ]
  10906. 1864.71 s [opt-env-conf-test] ]
  10907. 1864.71 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  10908. 1864.71 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  10909. 1864.71 s [opt-env-conf-test] " was called with an unknown command: ",
  10910. 1864.71 s [opt-env-conf-test] - commandChunk c
  10911. 1864.71 s [opt-env-conf-test] ]
  10912. 1864.71 s [opt-env-conf-test] ]
  10913. 1864.71 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  10914. 1864.71 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  10915. 1864.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
  10916. 1864.71 s [opt-env-conf-test] @@ -198,10 +198,9 @@
  10917. 1864.71 s [opt-env-conf-test] ]
  10918. 1864.71 s [opt-env-conf-test] ]
  10919. 1864.71 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  10920. 1864.71 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  10921. 1864.71 s [opt-env-conf-test] " was called with an unknown command: ",
  10922. 1864.71 s [opt-env-conf-test] commandChunk c
  10923. 1864.71 s [opt-env-conf-test] ]
  10924. 1864.71 s [opt-env-conf-test] ]
  10925. 1864.71 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  10926. 1864.71 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  10927. 1864.71 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:276:12-19
  10928. 1864.71 s [opt-env-conf-test] @@ -273,7 +273,7 @@
  10929. 1864.71 s [opt-env-conf-test] ParserAllOrNothing _ p -> go p
  10930. 1864.71 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> go p
  10931. 1873.92 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  10932. 1873.92 s [opt-env-conf-test] - if null cs
  10933. 1873.95 s [opt-env-conf-test] + if not (null cs)
  10934. 1873.95 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  10935. 1873.95 s [opt-env-conf-test] else do
  10936. 1873.95 s [opt-env-conf-test] for_ mDefault $ \d ->
  10937. 1873.95 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
  10938. 1873.95 s [opt-env-conf-test] @@ -204,7 +204,6 @@
  10939. 1873.95 s [opt-env-conf-test] ]
  10940. 1873.95 s [opt-env-conf-test] ]
  10941. 1873.95 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  10942. 1873.95 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  10943. 1873.95 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  10944. 1873.95 s [opt-env-conf-test] ]
  10945. 1873.95 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  10946. 1873.95 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
  10947. 1873.95 s [opt-env-conf-test] @@ -198,10 +198,7 @@
  10948. 1873.95 s [opt-env-conf-test] ]
  10949. 1873.95 s [opt-env-conf-test] ]
  10950. 1873.95 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  10951. 1873.95 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  10952. 1873.95 s [opt-env-conf-test] - " was called with an unknown command: ",
  10953. 1873.95 s [opt-env-conf-test] - commandChunk c
  10954. 1873.95 s [opt-env-conf-test] ]
  10955. 1873.95 s [opt-env-conf-test] ]
  10956. 1873.95 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  10957. 1873.95 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  10958. 1873.95 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
  10959. 1873.95 s [opt-env-conf-test] @@ -205,7 +205,6 @@
  10960. 1873.95 s [opt-env-conf-test] ]
  10961. 1873.95 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  10962. 1873.95 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  10963. 1873.95 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  10964. 1873.95 s [opt-env-conf-test] ]
  10965. 1873.96 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  10966. 1873.96 s [opt-env-conf-test] [ [ functionChunk "conf",
  10967. 1873.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
  10968. 1873.96 s [opt-env-conf-test] @@ -98,7 +98,6 @@
  10969. 1873.96 s [opt-env-conf-test] ]
  10970. 1873.96 s [opt-env-conf-test] LintErrorDashInLong s ->
  10971. 1873.96 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  10972. 1873.96 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  10973. 1873.96 s [opt-env-conf-test] [ "Try ",
  10974. 1873.96 s [opt-env-conf-test] functionChunk "long",
  10975. 1873.96 s [opt-env-conf-test] " ",
  10976. 1873.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
  10977. 1873.96 s [opt-env-conf-test] @@ -137,13 +137,7 @@
  10978. 1873.96 s [opt-env-conf-test] ]
  10979. 1873.96 s [opt-env-conf-test] ]
  10980. 1873.96 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  10981. 1873.96 s [opt-env-conf-test] - [ [ functionChunk "option",
  10982. 1873.96 s [opt-env-conf-test] - " has no ",
  10983. 1873.96 s [opt-env-conf-test] - functionChunk "long",
  10984. 1873.96 s [opt-env-conf-test] - " or ",
  10985. 1873.96 s [opt-env-conf-test] - functionChunk "short",
  10986. 1873.96 s [opt-env-conf-test] - "."
  10987. 1873.96 s [opt-env-conf-test] ]
  10988. 1873.96 s [opt-env-conf-test] ]
  10989. 1873.96 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  10990. 1873.96 s [opt-env-conf-test] [ [ functionChunk "option",
  10991. 1873.96 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:276:12-19
  10992. 1873.96 s [opt-env-conf-test] @@ -273,7 +273,7 @@
  10993. 1873.96 s [opt-env-conf-test] ParserAllOrNothing _ p -> go p
  10994. 1873.96 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> go p
  10995. 1873.96 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  10996. 1873.96 s [opt-env-conf-test] - if null cs
  10997. 1873.96 s [opt-env-conf-test] + if False
  10998. 1873.96 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  10999. 1873.96 s [opt-env-conf-test] else do
  11000. 1873.96 s [opt-env-conf-test] for_ mDefault $ \d ->
  11001. 1873.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  11002. 1873.96 s [opt-env-conf-test] @@ -208,11 +208,10 @@
  11003. 1873.96 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  11004. 1873.96 s [opt-env-conf-test] ]
  11005. 1873.96 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11006. 1873.96 s [opt-env-conf-test] - [ [ functionChunk "conf",
  11007. 1873.96 s [opt-env-conf-test] " or ",
  11008. 1873.96 s [opt-env-conf-test] functionChunk "name",
  11009. 1873.96 s [opt-env-conf-test] " was called with no way to load configuration."
  11010. 1873.96 s [opt-env-conf-test] ],
  11011. 1873.96 s [opt-env-conf-test] [ "You can load configuration with ",
  11012. 1873.96 s [opt-env-conf-test] functionChunk "withConfig",
  11013. 1873.97 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11014. 1873.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
  11015. 1873.97 s [opt-env-conf-test] @@ -204,9 +204,8 @@
  11016. 1873.97 s [opt-env-conf-test] ]
  11017. 1873.97 s [opt-env-conf-test] ]
  11018. 1873.97 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  11019. 1873.97 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  11020. 1873.97 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  11021. 1873.97 s [opt-env-conf-test] ]
  11022. 1873.97 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11023. 1873.97 s [opt-env-conf-test] [ [ functionChunk "conf",
  11024. 1873.97 s [opt-env-conf-test] " or ",
  11025. 1873.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
  11026. 1873.97 s [opt-env-conf-test] @@ -204,9 +204,7 @@
  11027. 1873.97 s [opt-env-conf-test] ]
  11028. 1873.97 s [opt-env-conf-test] ]
  11029. 1873.97 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  11030. 1873.97 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  11031. 1873.97 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  11032. 1873.97 s [opt-env-conf-test] ]
  11033. 1873.97 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11034. 1873.97 s [opt-env-conf-test] [ [ functionChunk "conf",
  11035. 1873.97 s [opt-env-conf-test] " or ",
  11036. 1873.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  11037. 1873.97 s [opt-env-conf-test] @@ -213,12 +213,7 @@
  11038. 1873.97 s [opt-env-conf-test] functionChunk "name",
  11039. 1873.97 s [opt-env-conf-test] " was called with no way to load configuration."
  11040. 1873.97 s [opt-env-conf-test] ],
  11041. 1873.97 s [opt-env-conf-test] - [ "You can load configuration with ",
  11042. 1873.97 s [opt-env-conf-test] - functionChunk "withConfig",
  11043. 1873.97 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  11044. 1873.97 s [opt-env-conf-test] - functionChunk "withoutConfig",
  11045. 1873.97 s [opt-env-conf-test] - "."
  11046. 1873.97 s [opt-env-conf-test] ]
  11047. 1873.97 s [opt-env-conf-test] ]
  11048. 1873.97 s [opt-env-conf-test] LintErrorManyInfinite ->
  11049. 1873.97 s [opt-env-conf-test] [ [ functionChunk "many",
  11050. 1873.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  11051. 1873.97 s [opt-env-conf-test] @@ -208,11 +208,10 @@
  11052. 1873.97 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  11053. 1873.97 s [opt-env-conf-test] ]
  11054. 1873.97 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11055. 1873.97 s [opt-env-conf-test] [ [ functionChunk "conf",
  11056. 1873.97 s [opt-env-conf-test] " or ",
  11057. 1873.97 s [opt-env-conf-test] functionChunk "name",
  11058. 1873.97 s [opt-env-conf-test] - " was called with no way to load configuration."
  11059. 1873.97 s [opt-env-conf-test] ],
  11060. 1873.97 s [opt-env-conf-test] [ "You can load configuration with ",
  11061. 1873.97 s [opt-env-conf-test] functionChunk "withConfig",
  11062. 1873.97 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11063. 1873.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  11064. 1873.97 s [opt-env-conf-test] @@ -213,12 +213,11 @@
  11065. 1873.97 s [opt-env-conf-test] functionChunk "name",
  11066. 1873.97 s [opt-env-conf-test] " was called with no way to load configuration."
  11067. 1873.97 s [opt-env-conf-test] ],
  11068. 1873.98 s [opt-env-conf-test] [ "You can load configuration with ",
  11069. 1873.98 s [opt-env-conf-test] functionChunk "withConfig",
  11070. 1873.98 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11071. 1873.98 s [opt-env-conf-test] functionChunk "withoutConfig",
  11072. 1873.98 s [opt-env-conf-test] - "."
  11073. 1873.98 s [opt-env-conf-test] ]
  11074. 1873.98 s [opt-env-conf-test] ]
  11075. 1873.98 s [opt-env-conf-test] LintErrorManyInfinite ->
  11076. 1873.98 s [opt-env-conf-test] [ [ functionChunk "many",
  11077. 1873.98 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:276:12-19
  11078. 1873.98 s [opt-env-conf-test] @@ -273,7 +273,7 @@
  11079. 1873.98 s [opt-env-conf-test] ParserAllOrNothing _ p -> go p
  11080. 1873.98 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> go p
  11081. 1873.98 s [opt-env-conf-test] ParserCommands mLoc mDefault cs -> do
  11082. 1873.98 s [opt-env-conf-test] - if null cs
  11083. 1873.98 s [opt-env-conf-test] + if True
  11084. 1873.98 s [opt-env-conf-test] then validationTFailure $ LintError mLoc LintErrorNoCommands
  11085. 1873.98 s [opt-env-conf-test] else do
  11086. 1873.98 s [opt-env-conf-test] for_ mDefault $ \d ->
  11087. 1873.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  11088. 1873.98 s [opt-env-conf-test] @@ -66,168 +66,151 @@
  11089. 1873.98 s [opt-env-conf-test] renderLintError LintError {..} =
  11090. 1873.98 s [opt-env-conf-test] concat
  11091. 1873.98 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  11092. 1873.98 s [opt-env-conf-test] case lintErrorMessage of
  11093. 1873.98 s [opt-env-conf-test] LintErrorUndocumented ->
  11094. 1873.98 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  11095. 1873.98 s [opt-env-conf-test] LintErrorEmptySetting ->
  11096. 1873.98 s [opt-env-conf-test] concat
  11097. 1873.98 s [opt-env-conf-test] [ [ [ "This ",
  11098. 1873.98 s [opt-env-conf-test] functionChunk "setting",
  11099. 1873.98 s [opt-env-conf-test] " parses nothing."
  11100. 1873.98 s [opt-env-conf-test] ]
  11101. 1873.98 s [opt-env-conf-test] ],
  11102. 1873.98 s [opt-env-conf-test] [ [ "Add an ",
  11103. 1873.98 s [opt-env-conf-test] functionChunk "argument",
  11104. 1873.98 s [opt-env-conf-test] ", ",
  11105. 1873.98 s [opt-env-conf-test] functionChunk "switch",
  11106. 1873.98 s [opt-env-conf-test] ", ",
  11107. 1873.98 s [opt-env-conf-test] functionChunk "option",
  11108. 1873.98 s [opt-env-conf-test] ", ",
  11109. 1873.98 s [opt-env-conf-test] functionChunk "env",
  11110. 1873.98 s [opt-env-conf-test] ", ",
  11111. 1873.98 s [opt-env-conf-test] functionChunk "conf",
  11112. 1873.98 s [opt-env-conf-test] ", or ",
  11113. 1873.98 s [opt-env-conf-test] functionChunk "value",
  11114. 1873.98 s [opt-env-conf-test] "."
  11115. 1873.98 s [opt-env-conf-test] ]
  11116. 1873.98 s [opt-env-conf-test] ]
  11117. 1873.98 s [opt-env-conf-test] ]
  11118. 1873.98 s [opt-env-conf-test] LintErrorDashInShort ->
  11119. 1873.98 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  11120. 1873.98 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  11121. 1873.98 s [opt-env-conf-test] ]
  11122. 1873.98 s [opt-env-conf-test] - LintErrorDashInLong s ->
  11123. 1873.98 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  11124. 1873.98 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  11125. 1873.99 s [opt-env-conf-test] - [ "Try ",
  11126. 1873.99 s [opt-env-conf-test] - functionChunk "long",
  11127. 1873.99 s [opt-env-conf-test] - " ",
  11128. 1873.99 s [opt-env-conf-test] - chunk $
  11129. 1873.99 s [opt-env-conf-test] - T.pack $
  11130. 1873.99 s [opt-env-conf-test] - show $
  11131. 1873.99 s [opt-env-conf-test] - let go = \case
  11132. 1873.99 s [opt-env-conf-test] - [] -> []
  11133. 1873.99 s [opt-env-conf-test] - '-' : cs -> go cs
  11134. 1873.99 s [opt-env-conf-test] - c : cs -> c : cs
  11135. 1873.99 s [opt-env-conf-test] - in go $ NE.toList s,
  11136. 1873.99 s [opt-env-conf-test] - " instead."
  11137. 1873.99 s [opt-env-conf-test] - ]
  11138. 1873.99 s [opt-env-conf-test] - ]
  11139. 1873.99 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  11140. 1873.99 s [opt-env-conf-test] [ [ functionChunk "argument",
  11141. 1873.99 s [opt-env-conf-test] " has no ",
  11142. 1873.99 s [opt-env-conf-test] functionChunk "reader",
  11143. 1873.99 s [opt-env-conf-test] "."
  11144. 1873.99 s [opt-env-conf-test] ]
  11145. 1873.99 s [opt-env-conf-test] ]
  11146. 1873.99 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  11147. 1873.99 s [opt-env-conf-test] [ [ functionChunk "argument",
  11148. 1873.99 s [opt-env-conf-test] " has no ",
  11149. 1873.99 s [opt-env-conf-test] functionChunk "metavar",
  11150. 1873.99 s [opt-env-conf-test] "."
  11151. 1873.99 s [opt-env-conf-test] ]
  11152. 1873.99 s [opt-env-conf-test] ]
  11153. 1873.99 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  11154. 1873.99 s [opt-env-conf-test] [ [ functionChunk "option",
  11155. 1873.99 s [opt-env-conf-test] " or ",
  11156. 1873.99 s [opt-env-conf-test] functionChunk "name",
  11157. 1873.99 s [opt-env-conf-test] " has no ",
  11158. 1873.99 s [opt-env-conf-test] functionChunk "reader",
  11159. 1873.99 s [opt-env-conf-test] "."
  11160. 1873.99 s [opt-env-conf-test] ]
  11161. 1873.99 s [opt-env-conf-test] ]
  11162. 1873.99 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  11163. 1873.99 s [opt-env-conf-test] [ [ functionChunk "option",
  11164. 1873.99 s [opt-env-conf-test] " has no ",
  11165. 1873.99 s [opt-env-conf-test] functionChunk "long",
  11166. 1873.99 s [opt-env-conf-test] " or ",
  11167. 1873.99 s [opt-env-conf-test] functionChunk "short",
  11168. 1873.99 s [opt-env-conf-test] "."
  11169. 1873.99 s [opt-env-conf-test] ]
  11170. 1873.99 s [opt-env-conf-test] ]
  11171. 1873.99 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  11172. 1873.99 s [opt-env-conf-test] [ [ functionChunk "option",
  11173. 1873.99 s [opt-env-conf-test] " or ",
  11174. 1873.99 s [opt-env-conf-test] functionChunk "name",
  11175. 1873.99 s [opt-env-conf-test] " has no ",
  11176. 1873.99 s [opt-env-conf-test] functionChunk "metavar",
  11177. 1873.99 s [opt-env-conf-test] "."
  11178. 1873.99 s [opt-env-conf-test] ]
  11179. 1874.00 s [opt-env-conf-test] ]
  11180. 1874.00 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  11181. 1874.00 s [opt-env-conf-test] [ [ functionChunk "switch",
  11182. 1874.00 s [opt-env-conf-test] " has no ",
  11183. 1874.00 s [opt-env-conf-test] functionChunk "long",
  11184. 1874.00 s [opt-env-conf-test] " or ",
  11185. 1874.00 s [opt-env-conf-test] functionChunk "short",
  11186. 1874.00 s [opt-env-conf-test] "."
  11187. 1874.00 s [opt-env-conf-test] ]
  11188. 1874.00 s [opt-env-conf-test] ]
  11189. 1874.00 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  11190. 1874.00 s [opt-env-conf-test] [ [ functionChunk "long",
  11191. 1874.00 s [opt-env-conf-test] " or ",
  11192. 1874.00 s [opt-env-conf-test] functionChunk "short",
  11193. 1874.00 s [opt-env-conf-test] " has no ",
  11194. 1874.00 s [opt-env-conf-test] functionChunk "option",
  11195. 1874.00 s [opt-env-conf-test] " or ",
  11196. 1874.00 s [opt-env-conf-test] functionChunk "switch",
  11197. 1874.00 s [opt-env-conf-test] "."
  11198. 1874.00 s [opt-env-conf-test] ]
  11199. 1874.00 s [opt-env-conf-test] ]
  11200. 1874.00 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  11201. 1874.00 s [opt-env-conf-test] [ [ functionChunk "env",
  11202. 1874.00 s [opt-env-conf-test] " or ",
  11203. 1874.00 s [opt-env-conf-test] functionChunk "name",
  11204. 1874.00 s [opt-env-conf-test] " has no ",
  11205. 1874.00 s [opt-env-conf-test] functionChunk "reader",
  11206. 1874.00 s [opt-env-conf-test] "."
  11207. 1874.00 s [opt-env-conf-test] ]
  11208. 1874.00 s [opt-env-conf-test] ]
  11209. 1874.00 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  11210. 1874.00 s [opt-env-conf-test] [ [ functionChunk "env",
  11211. 1874.00 s [opt-env-conf-test] " or ",
  11212. 1874.00 s [opt-env-conf-test] functionChunk "name",
  11213. 1874.00 s [opt-env-conf-test] " has no ",
  11214. 1874.00 s [opt-env-conf-test] functionChunk "metavar",
  11215. 1874.00 s [opt-env-conf-test] "."
  11216. 1874.00 s [opt-env-conf-test] ]
  11217. 1874.71 s [opt-env-conf-test] ]
  11218. 1874.71 s [opt-env-conf-test] LintErrorNoCommands ->
  11219. 1874.71 s [opt-env-conf-test] [ [ functionChunk "commands",
  11220. 1874.71 s [opt-env-conf-test] " was called with an empty list."
  11221. 1874.71 s [opt-env-conf-test] ]
  11222. 1874.71 s [opt-env-conf-test] ]
  11223. 1874.72 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  11224. 1874.72 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  11225. 1874.72 s [opt-env-conf-test] " was called with an unknown command: ",
  11226. 1874.72 s [opt-env-conf-test] commandChunk c
  11227. 1874.72 s [opt-env-conf-test] ]
  11228. 1874.72 s [opt-env-conf-test] ]
  11229. 1874.72 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  11230. 1874.72 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  11231. 1874.72 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  11232. 1874.72 s [opt-env-conf-test] ]
  11233. 1874.72 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11234. 1874.72 s [opt-env-conf-test] [ [ functionChunk "conf",
  11235. 1874.72 s [opt-env-conf-test] " or ",
  11236. 1874.72 s [opt-env-conf-test] functionChunk "name",
  11237. 1874.72 s [opt-env-conf-test] " was called with no way to load configuration."
  11238. 1874.72 s [opt-env-conf-test] ],
  11239. 1874.72 s [opt-env-conf-test] [ "You can load configuration with ",
  11240. 1874.72 s [opt-env-conf-test] functionChunk "withConfig",
  11241. 1874.72 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11242. 1874.72 s [opt-env-conf-test] functionChunk "withoutConfig",
  11243. 1874.72 s [opt-env-conf-test] "."
  11244. 1874.72 s [opt-env-conf-test] ]
  11245. 1874.72 s [opt-env-conf-test] ]
  11246. 1874.72 s [opt-env-conf-test] LintErrorManyInfinite ->
  11247. 1874.72 s [opt-env-conf-test] [ [ functionChunk "many",
  11248. 1874.72 s [opt-env-conf-test] " or ",
  11249. 1874.72 s [opt-env-conf-test] functionChunk "some",
  11250. 1874.72 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  11251. 1874.72 s [opt-env-conf-test] ],
  11252. 1874.72 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  11253. 1874.72 s [opt-env-conf-test] ],
  11254. 1874.72 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  11255. 1874.72 s [opt-env-conf-test] ]
  11256. 1874.73 s [opt-env-conf-test]
  11257. 1874.73 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  11258. 1874.73 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  11259. 1874.73 s [opt-env-conf-test] renderLintError LintError {..} =
  11260. 1874.73 s [opt-env-conf-test] concat
  11261. 1874.73 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  11262. 1874.73 s [opt-env-conf-test] case lintErrorMessage of
  11263. 1874.73 s [opt-env-conf-test] LintErrorUndocumented ->
  11264. 1874.73 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  11265. 1874.73 s [opt-env-conf-test] LintErrorEmptySetting ->
  11266. 1874.73 s [opt-env-conf-test] concat
  11267. 1874.73 s [opt-env-conf-test] [ [ [ "This ",
  11268. 1874.73 s [opt-env-conf-test] functionChunk "setting",
  11269. 1874.73 s [opt-env-conf-test] " parses nothing."
  11270. 1874.73 s [opt-env-conf-test] ]
  11271. 1874.73 s [opt-env-conf-test] ],
  11272. 1874.73 s [opt-env-conf-test] [ [ "Add an ",
  11273. 1874.73 s [opt-env-conf-test] functionChunk "argument",
  11274. 1874.73 s [opt-env-conf-test] ", ",
  11275. 1874.73 s [opt-env-conf-test] functionChunk "switch",
  11276. 1874.73 s [opt-env-conf-test] ", ",
  11277. 1874.73 s [opt-env-conf-test] functionChunk "option",
  11278. 1874.73 s [opt-env-conf-test] ", ",
  11279. 1874.73 s [opt-env-conf-test] functionChunk "env",
  11280. 1874.73 s [opt-env-conf-test] ", ",
  11281. 1874.73 s [opt-env-conf-test] functionChunk "conf",
  11282. 1874.73 s [opt-env-conf-test] ", or ",
  11283. 1874.73 s [opt-env-conf-test] functionChunk "value",
  11284. 1874.73 s [opt-env-conf-test] "."
  11285. 1874.73 s [opt-env-conf-test] ]
  11286. 1874.73 s [opt-env-conf-test] ]
  11287. 1874.73 s [opt-env-conf-test] ]
  11288. 1874.73 s [opt-env-conf-test] LintErrorDashInShort ->
  11289. 1874.73 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  11290. 1874.73 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  11291. 1874.73 s [opt-env-conf-test] ]
  11292. 1874.73 s [opt-env-conf-test] LintErrorDashInLong s ->
  11293. 1874.73 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  11294. 1874.73 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  11295. 1874.73 s [opt-env-conf-test] [ "Try ",
  11296. 1874.73 s [opt-env-conf-test] functionChunk "long",
  11297. 1874.73 s [opt-env-conf-test] " ",
  11298. 1874.73 s [opt-env-conf-test] chunk $
  11299. 1874.73 s [opt-env-conf-test] T.pack $
  11300. 1874.73 s [opt-env-conf-test] show $
  11301. 1874.73 s [opt-env-conf-test] let go = \case
  11302. 1874.74 s [opt-env-conf-test] [] -> []
  11303. 1874.74 s [opt-env-conf-test] '-' : cs -> go cs
  11304. 1874.74 s [opt-env-conf-test] c : cs -> c : cs
  11305. 1874.74 s [opt-env-conf-test] in go $ NE.toList s,
  11306. 1874.74 s [opt-env-conf-test] " instead."
  11307. 1874.74 s [opt-env-conf-test] ]
  11308. 1874.74 s [opt-env-conf-test] ]
  11309. 1874.74 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  11310. 1874.74 s [opt-env-conf-test] [ [ functionChunk "argument",
  11311. 1874.74 s [opt-env-conf-test] " has no ",
  11312. 1874.74 s [opt-env-conf-test] functionChunk "reader",
  11313. 1874.74 s [opt-env-conf-test] "."
  11314. 1874.74 s [opt-env-conf-test] ]
  11315. 1874.74 s [opt-env-conf-test] ]
  11316. 1874.74 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  11317. 1874.74 s [opt-env-conf-test] [ [ functionChunk "argument",
  11318. 1874.74 s [opt-env-conf-test] " has no ",
  11319. 1874.74 s [opt-env-conf-test] functionChunk "metavar",
  11320. 1874.74 s [opt-env-conf-test] "."
  11321. 1874.74 s [opt-env-conf-test] ]
  11322. 1874.74 s [opt-env-conf-test] ]
  11323. 1874.74 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  11324. 1874.74 s [opt-env-conf-test] - [ [ functionChunk "option",
  11325. 1874.74 s [opt-env-conf-test] - " or ",
  11326. 1874.74 s [opt-env-conf-test] - functionChunk "name",
  11327. 1874.74 s [opt-env-conf-test] - " has no ",
  11328. 1874.74 s [opt-env-conf-test] - functionChunk "reader",
  11329. 1874.74 s [opt-env-conf-test] - "."
  11330. 1874.74 s [opt-env-conf-test] - ]
  11331. 1874.74 s [opt-env-conf-test] - ]
  11332. 1874.74 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  11333. 1874.74 s [opt-env-conf-test] [ [ functionChunk "option",
  11334. 1874.74 s [opt-env-conf-test] " has no ",
  11335. 1874.74 s [opt-env-conf-test] functionChunk "long",
  11336. 1874.74 s [opt-env-conf-test] " or ",
  11337. 1874.74 s [opt-env-conf-test] functionChunk "short",
  11338. 1874.74 s [opt-env-conf-test] "."
  11339. 1874.74 s [opt-env-conf-test] ]
  11340. 1874.74 s [opt-env-conf-test] ]
  11341. 1874.74 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  11342. 1874.74 s [opt-env-conf-test] [ [ functionChunk "option",
  11343. 1874.74 s [opt-env-conf-test] " or ",
  11344. 1874.74 s [opt-env-conf-test] functionChunk "name",
  11345. 1874.74 s [opt-env-conf-test] " has no ",
  11346. 1874.74 s [opt-env-conf-test] functionChunk "metavar",
  11347. 1874.74 s [opt-env-conf-test] "."
  11348. 1874.74 s [opt-env-conf-test] ]
  11349. 1874.74 s [opt-env-conf-test] ]
  11350. 1874.74 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  11351. 1874.74 s [opt-env-conf-test] [ [ functionChunk "switch",
  11352. 1874.74 s [opt-env-conf-test] " has no ",
  11353. 1874.74 s [opt-env-conf-test] functionChunk "long",
  11354. 1874.74 s [opt-env-conf-test] " or ",
  11355. 1874.74 s [opt-env-conf-test] functionChunk "short",
  11356. 1874.74 s [opt-env-conf-test] "."
  11357. 1874.74 s [opt-env-conf-test] ]
  11358. 1874.74 s [opt-env-conf-test] ]
  11359. 1874.74 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  11360. 1874.74 s [opt-env-conf-test] [ [ functionChunk "long",
  11361. 1874.74 s [opt-env-conf-test] " or ",
  11362. 1874.74 s [opt-env-conf-test] functionChunk "short",
  11363. 1874.74 s [opt-env-conf-test] " has no ",
  11364. 1874.74 s [opt-env-conf-test] functionChunk "option",
  11365. 1874.74 s [opt-env-conf-test] " or ",
  11366. 1874.74 s [opt-env-conf-test] functionChunk "switch",
  11367. 1874.74 s [opt-env-conf-test] "."
  11368. 1874.74 s [opt-env-conf-test] ]
  11369. 1874.74 s [opt-env-conf-test] ]
  11370. 1874.74 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  11371. 1874.74 s [opt-env-conf-test] [ [ functionChunk "env",
  11372. 1874.74 s [opt-env-conf-test] " or ",
  11373. 1874.74 s [opt-env-conf-test] functionChunk "name",
  11374. 1874.74 s [opt-env-conf-test] " has no ",
  11375. 1874.74 s [opt-env-conf-test] functionChunk "reader",
  11376. 1874.74 s [opt-env-conf-test] "."
  11377. 1874.74 s [opt-env-conf-test] ]
  11378. 1874.74 s [opt-env-conf-test] ]
  11379. 1874.74 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  11380. 1874.74 s [opt-env-conf-test] [ [ functionChunk "env",
  11381. 1874.74 s [opt-env-conf-test] " or ",
  11382. 1874.74 s [opt-env-conf-test] functionChunk "name",
  11383. 1874.74 s [opt-env-conf-test] " has no ",
  11384. 1874.74 s [opt-env-conf-test] functionChunk "metavar",
  11385. 1874.74 s [opt-env-conf-test] "."
  11386. 1874.74 s [opt-env-conf-test] ]
  11387. 1874.74 s [opt-env-conf-test] ]
  11388. 1874.74 s [opt-env-conf-test] LintErrorNoCommands ->
  11389. 1874.75 s [opt-env-conf-test] [ [ functionChunk "commands",
  11390. 1874.76 s [opt-env-conf-test] " was called with an empty list."
  11391. 1874.76 s [opt-env-conf-test] ]
  11392. 1874.76 s [opt-env-conf-test] ]
  11393. 1874.76 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  11394. 1874.76 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  11395. 1874.76 s [opt-env-conf-test] " was called with an unknown command: ",
  11396. 1874.76 s [opt-env-conf-test] commandChunk c
  11397. 1874.76 s [opt-env-conf-test] ]
  11398. 1874.76 s [opt-env-conf-test] ]
  11399. 1874.76 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  11400. 1874.76 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  11401. 1874.76 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  11402. 1874.76 s [opt-env-conf-test] ]
  11403. 1874.76 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11404. 1874.76 s [opt-env-conf-test] [ [ functionChunk "conf",
  11405. 1874.76 s [opt-env-conf-test] " or ",
  11406. 1874.76 s [opt-env-conf-test] functionChunk "name",
  11407. 1874.76 s [opt-env-conf-test] " was called with no way to load configuration."
  11408. 1874.76 s [opt-env-conf-test] ],
  11409. 1874.76 s [opt-env-conf-test] [ "You can load configuration with ",
  11410. 1874.76 s [opt-env-conf-test] functionChunk "withConfig",
  11411. 1874.76 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11412. 1874.76 s [opt-env-conf-test] functionChunk "withoutConfig",
  11413. 1874.76 s [opt-env-conf-test] "."
  11414. 1874.76 s [opt-env-conf-test] ]
  11415. 1874.76 s [opt-env-conf-test] ]
  11416. 1874.76 s [opt-env-conf-test] LintErrorManyInfinite ->
  11417. 1874.76 s [opt-env-conf-test] [ [ functionChunk "many",
  11418. 1874.76 s [opt-env-conf-test] " or ",
  11419. 1874.76 s [opt-env-conf-test] functionChunk "some",
  11420. 1874.76 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  11421. 1874.76 s [opt-env-conf-test] ],
  11422. 1874.76 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  11423. 1874.76 s [opt-env-conf-test] ],
  11424. 1874.76 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  11425. 1874.76 s [opt-env-conf-test] ]
  11426. 1874.76 s [opt-env-conf-test]
  11427. 1874.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  11428. 1874.76 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  11429. 1874.76 s [opt-env-conf-test] renderLintError LintError {..} =
  11430. 1874.76 s [opt-env-conf-test] concat
  11431. 1874.76 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  11432. 1874.76 s [opt-env-conf-test] case lintErrorMessage of
  11433. 1874.76 s [opt-env-conf-test] LintErrorUndocumented ->
  11434. 1874.76 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  11435. 1874.76 s [opt-env-conf-test] LintErrorEmptySetting ->
  11436. 1874.76 s [opt-env-conf-test] concat
  11437. 1874.76 s [opt-env-conf-test] [ [ [ "This ",
  11438. 1874.76 s [opt-env-conf-test] functionChunk "setting",
  11439. 1874.76 s [opt-env-conf-test] " parses nothing."
  11440. 1874.77 s [opt-env-conf-test] ]
  11441. 1874.77 s [opt-env-conf-test] ],
  11442. 1874.77 s [opt-env-conf-test] [ [ "Add an ",
  11443. 1874.77 s [opt-env-conf-test] functionChunk "argument",
  11444. 1874.77 s [opt-env-conf-test] ", ",
  11445. 1874.77 s [opt-env-conf-test] functionChunk "switch",
  11446. 1874.77 s [opt-env-conf-test] ", ",
  11447. 1874.77 s [opt-env-conf-test] functionChunk "option",
  11448. 1874.77 s [opt-env-conf-test] ", ",
  11449. 1874.77 s [opt-env-conf-test] functionChunk "env",
  11450. 1874.77 s [opt-env-conf-test] ", ",
  11451. 1874.77 s [opt-env-conf-test] functionChunk "conf",
  11452. 1874.77 s [opt-env-conf-test] ", or ",
  11453. 1874.77 s [opt-env-conf-test] functionChunk "value",
  11454. 1874.77 s [opt-env-conf-test] "."
  11455. 1874.77 s [opt-env-conf-test] ]
  11456. 1874.77 s [opt-env-conf-test] ]
  11457. 1874.77 s [opt-env-conf-test] ]
  11458. 1874.77 s [opt-env-conf-test] LintErrorDashInShort ->
  11459. 1874.77 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  11460. 1874.77 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  11461. 1874.77 s [opt-env-conf-test] ]
  11462. 1874.77 s [opt-env-conf-test] LintErrorDashInLong s ->
  11463. 1874.77 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  11464. 1874.77 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  11465. 1874.77 s [opt-env-conf-test] [ "Try ",
  11466. 1874.77 s [opt-env-conf-test] functionChunk "long",
  11467. 1874.77 s [opt-env-conf-test] " ",
  11468. 1874.77 s [opt-env-conf-test] chunk $
  11469. 1874.77 s [opt-env-conf-test] T.pack $
  11470. 1874.77 s [opt-env-conf-test] show $
  11471. 1874.77 s [opt-env-conf-test] let go = \case
  11472. 1874.77 s [opt-env-conf-test] [] -> []
  11473. 1874.77 s [opt-env-conf-test] '-' : cs -> go cs
  11474. 1874.77 s [opt-env-conf-test] c : cs -> c : cs
  11475. 1874.77 s [opt-env-conf-test] in go $ NE.toList s,
  11476. 1874.77 s [opt-env-conf-test] " instead."
  11477. 1874.77 s [opt-env-conf-test] ]
  11478. 1874.77 s [opt-env-conf-test] ]
  11479. 1874.77 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  11480. 1874.77 s [opt-env-conf-test] [ [ functionChunk "argument",
  11481. 1874.77 s [opt-env-conf-test] " has no ",
  11482. 1874.77 s [opt-env-conf-test] functionChunk "reader",
  11483. 1874.77 s [opt-env-conf-test] "."
  11484. 1874.77 s [opt-env-conf-test] ]
  11485. 1874.77 s [opt-env-conf-test] ]
  11486. 1874.77 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  11487. 1874.77 s [opt-env-conf-test] [ [ functionChunk "argument",
  11488. 1874.77 s [opt-env-conf-test] " has no ",
  11489. 1874.77 s [opt-env-conf-test] functionChunk "metavar",
  11490. 1874.77 s [opt-env-conf-test] "."
  11491. 1874.77 s [opt-env-conf-test] ]
  11492. 1874.77 s [opt-env-conf-test] ]
  11493. 1874.77 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  11494. 1874.77 s [opt-env-conf-test] [ [ functionChunk "option",
  11495. 1874.77 s [opt-env-conf-test] " or ",
  11496. 1874.77 s [opt-env-conf-test] functionChunk "name",
  11497. 1874.77 s [opt-env-conf-test] " has no ",
  11498. 1874.77 s [opt-env-conf-test] functionChunk "reader",
  11499. 1874.77 s [opt-env-conf-test] "."
  11500. 1874.77 s [opt-env-conf-test] ]
  11501. 1874.77 s [opt-env-conf-test] ]
  11502. 1874.77 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  11503. 1874.78 s [opt-env-conf-test] - [ [ functionChunk "option",
  11504. 1874.78 s [opt-env-conf-test] - " has no ",
  11505. 1874.78 s [opt-env-conf-test] - functionChunk "long",
  11506. 1874.78 s [opt-env-conf-test] - " or ",
  11507. 1874.78 s [opt-env-conf-test] - functionChunk "short",
  11508. 1874.78 s [opt-env-conf-test] - "."
  11509. 1874.78 s [opt-env-conf-test] - ]
  11510. 1874.78 s [opt-env-conf-test] - ]
  11511. 1874.78 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  11512. 1874.78 s [opt-env-conf-test] [ [ functionChunk "option",
  11513. 1874.78 s [opt-env-conf-test] " or ",
  11514. 1874.78 s [opt-env-conf-test] functionChunk "name",
  11515. 1874.78 s [opt-env-conf-test] " has no ",
  11516. 1874.78 s [opt-env-conf-test] functionChunk "metavar",
  11517. 1874.78 s [opt-env-conf-test] "."
  11518. 1874.78 s [opt-env-conf-test] ]
  11519. 1874.78 s [opt-env-conf-test] ]
  11520. 1874.78 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  11521. 1874.78 s [opt-env-conf-test] [ [ functionChunk "switch",
  11522. 1874.78 s [opt-env-conf-test] " has no ",
  11523. 1874.78 s [opt-env-conf-test] functionChunk "long",
  11524. 1874.78 s [opt-env-conf-test] " or ",
  11525. 1874.78 s [opt-env-conf-test] functionChunk "short",
  11526. 1874.78 s [opt-env-conf-test] "."
  11527. 1874.78 s [opt-env-conf-test] ]
  11528. 1874.78 s [opt-env-conf-test] ]
  11529. 1874.78 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  11530. 1874.78 s [opt-env-conf-test] [ [ functionChunk "long",
  11531. 1874.78 s [opt-env-conf-test] " or ",
  11532. 1874.78 s [opt-env-conf-test] functionChunk "short",
  11533. 1874.78 s [opt-env-conf-test] " has no ",
  11534. 1874.78 s [opt-env-conf-test] functionChunk "option",
  11535. 1874.78 s [opt-env-conf-test] " or ",
  11536. 1874.78 s [opt-env-conf-test] functionChunk "switch",
  11537. 1874.78 s [opt-env-conf-test] "."
  11538. 1874.78 s [opt-env-conf-test] ]
  11539. 1874.78 s [opt-env-conf-test] ]
  11540. 1874.78 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  11541. 1874.78 s [opt-env-conf-test] [ [ functionChunk "env",
  11542. 1874.78 s [opt-env-conf-test] " or ",
  11543. 1874.78 s [opt-env-conf-test] functionChunk "name",
  11544. 1874.78 s [opt-env-conf-test] " has no ",
  11545. 1874.78 s [opt-env-conf-test] functionChunk "reader",
  11546. 1874.78 s [opt-env-conf-test] "."
  11547. 1874.78 s [opt-env-conf-test] ]
  11548. 1874.78 s [opt-env-conf-test] ]
  11549. 1874.78 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  11550. 1874.78 s [opt-env-conf-test] [ [ functionChunk "env",
  11551. 1874.78 s [opt-env-conf-test] " or ",
  11552. 1874.78 s [opt-env-conf-test] functionChunk "name",
  11553. 1874.78 s [opt-env-conf-test] " has no ",
  11554. 1874.78 s [opt-env-conf-test] functionChunk "metavar",
  11555. 1874.78 s [opt-env-conf-test] "."
  11556. 1874.78 s [opt-env-conf-test] ]
  11557. 1874.78 s [opt-env-conf-test] ]
  11558. 1874.78 s [opt-env-conf-test] LintErrorNoCommands ->
  11559. 1875.44 s [opt-env-conf-test] [ [ functionChunk "commands",
  11560. 1875.44 s [opt-env-conf-test] " was called with an empty list."
  11561. 1875.44 s [opt-env-conf-test] ]
  11562. 1875.44 s [opt-env-conf-test] ]
  11563. 1875.44 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  11564. 1875.44 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  11565. 1875.44 s [opt-env-conf-test] " was called with an unknown command: ",
  11566. 1875.44 s [opt-env-conf-test] commandChunk c
  11567. 1875.44 s [opt-env-conf-test] ]
  11568. 1875.45 s [opt-env-conf-test] ]
  11569. 1875.45 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  11570. 1875.45 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  11571. 1875.45 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  11572. 1875.45 s [opt-env-conf-test] ]
  11573. 1875.45 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11574. 1875.45 s [opt-env-conf-test] [ [ functionChunk "conf",
  11575. 1875.45 s [opt-env-conf-test] " or ",
  11576. 1875.45 s [opt-env-conf-test] functionChunk "name",
  11577. 1875.45 s [opt-env-conf-test] " was called with no way to load configuration."
  11578. 1875.45 s [opt-env-conf-test] ],
  11579. 1875.45 s [opt-env-conf-test] [ "You can load configuration with ",
  11580. 1875.45 s [opt-env-conf-test] functionChunk "withConfig",
  11581. 1875.45 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11582. 1875.45 s [opt-env-conf-test] functionChunk "withoutConfig",
  11583. 1875.45 s [opt-env-conf-test] "."
  11584. 1875.45 s [opt-env-conf-test] ]
  11585. 1875.45 s [opt-env-conf-test] ]
  11586. 1875.45 s [opt-env-conf-test] LintErrorManyInfinite ->
  11587. 1875.45 s [opt-env-conf-test] [ [ functionChunk "many",
  11588. 1875.45 s [opt-env-conf-test] " or ",
  11589. 1875.45 s [opt-env-conf-test] functionChunk "some",
  11590. 1875.45 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  11591. 1875.45 s [opt-env-conf-test] ],
  11592. 1875.45 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  11593. 1875.46 s [opt-env-conf-test] ],
  11594. 1875.46 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  11595. 1875.46 s [opt-env-conf-test] ]
  11596. 1875.46 s [opt-env-conf-test]
  11597. 1875.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
  11598. 1875.46 s [opt-env-conf-test] @@ -221,13 +221,8 @@
  11599. 1875.46 s [opt-env-conf-test] ]
  11600. 1875.46 s [opt-env-conf-test] ]
  11601. 1875.46 s [opt-env-conf-test] LintErrorManyInfinite ->
  11602. 1875.46 s [opt-env-conf-test] - [ [ functionChunk "many",
  11603. 1875.46 s [opt-env-conf-test] - " or ",
  11604. 1875.46 s [opt-env-conf-test] - functionChunk "some",
  11605. 1875.46 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  11606. 1875.46 s [opt-env-conf-test] - ],
  11607. 1875.46 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  11608. 1875.46 s [opt-env-conf-test] ],
  11609. 1875.46 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  11610. 1875.46 s [opt-env-conf-test] ]
  11611. 1875.46 s [opt-env-conf-test]
  11612. 1875.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
  11613. 1875.46 s [opt-env-conf-test] @@ -221,13 +221,7 @@
  11614. 1875.46 s [opt-env-conf-test] ]
  11615. 1875.46 s [opt-env-conf-test] ]
  11616. 1875.46 s [opt-env-conf-test] LintErrorManyInfinite ->
  11617. 1875.46 s [opt-env-conf-test] - [ [ functionChunk "many",
  11618. 1875.46 s [opt-env-conf-test] - " or ",
  11619. 1875.46 s [opt-env-conf-test] - functionChunk "some",
  11620. 1875.46 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  11621. 1875.46 s [opt-env-conf-test] - ],
  11622. 1875.46 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  11623. 1875.46 s [opt-env-conf-test] ],
  11624. 1875.46 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  11625. 1875.46 s [opt-env-conf-test] ]
  11626. 1875.46 s [opt-env-conf-test]
  11627. 1875.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  11628. 1875.46 s [opt-env-conf-test] @@ -66,168 +66,161 @@
  11629. 1875.46 s [opt-env-conf-test] renderLintError LintError {..} =
  11630. 1875.46 s [opt-env-conf-test] concat
  11631. 1875.47 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  11632. 1875.47 s [opt-env-conf-test] case lintErrorMessage of
  11633. 1875.47 s [opt-env-conf-test] LintErrorUndocumented ->
  11634. 1875.47 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  11635. 1875.47 s [opt-env-conf-test] LintErrorEmptySetting ->
  11636. 1875.47 s [opt-env-conf-test] concat
  11637. 1875.47 s [opt-env-conf-test] [ [ [ "This ",
  11638. 1875.47 s [opt-env-conf-test] functionChunk "setting",
  11639. 1875.47 s [opt-env-conf-test] " parses nothing."
  11640. 1875.47 s [opt-env-conf-test] ]
  11641. 1875.47 s [opt-env-conf-test] ],
  11642. 1875.47 s [opt-env-conf-test] [ [ "Add an ",
  11643. 1875.47 s [opt-env-conf-test] functionChunk "argument",
  11644. 1875.47 s [opt-env-conf-test] ", ",
  11645. 1875.47 s [opt-env-conf-test] functionChunk "switch",
  11646. 1875.47 s [opt-env-conf-test] ", ",
  11647. 1875.47 s [opt-env-conf-test] functionChunk "option",
  11648. 1875.47 s [opt-env-conf-test] ", ",
  11649. 1875.47 s [opt-env-conf-test] functionChunk "env",
  11650. 1875.47 s [opt-env-conf-test] ", ",
  11651. 1875.47 s [opt-env-conf-test] functionChunk "conf",
  11652. 1875.47 s [opt-env-conf-test] ", or ",
  11653. 1875.47 s [opt-env-conf-test] functionChunk "value",
  11654. 1875.47 s [opt-env-conf-test] "."
  11655. 1875.47 s [opt-env-conf-test] ]
  11656. 1875.47 s [opt-env-conf-test] ]
  11657. 1875.47 s [opt-env-conf-test] ]
  11658. 1875.47 s [opt-env-conf-test] LintErrorDashInShort ->
  11659. 1875.47 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  11660. 1875.47 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  11661. 1875.47 s [opt-env-conf-test] ]
  11662. 1875.47 s [opt-env-conf-test] LintErrorDashInLong s ->
  11663. 1875.47 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  11664. 1875.47 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  11665. 1875.47 s [opt-env-conf-test] [ "Try ",
  11666. 1875.47 s [opt-env-conf-test] functionChunk "long",
  11667. 1875.47 s [opt-env-conf-test] " ",
  11668. 1875.47 s [opt-env-conf-test] chunk $
  11669. 1875.47 s [opt-env-conf-test] T.pack $
  11670. 1875.47 s [opt-env-conf-test] show $
  11671. 1875.47 s [opt-env-conf-test] let go = \case
  11672. 1875.47 s [opt-env-conf-test] [] -> []
  11673. 1875.47 s [opt-env-conf-test] '-' : cs -> go cs
  11674. 1875.47 s [opt-env-conf-test] c : cs -> c : cs
  11675. 1875.47 s [opt-env-conf-test] in go $ NE.toList s,
  11676. 1875.47 s [opt-env-conf-test] " instead."
  11677. 1875.47 s [opt-env-conf-test] ]
  11678. 1875.47 s [opt-env-conf-test] ]
  11679. 1875.47 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  11680. 1875.47 s [opt-env-conf-test] [ [ functionChunk "argument",
  11681. 1875.47 s [opt-env-conf-test] " has no ",
  11682. 1875.47 s [opt-env-conf-test] functionChunk "reader",
  11683. 1875.47 s [opt-env-conf-test] "."
  11684. 1875.47 s [opt-env-conf-test] ]
  11685. 1875.47 s [opt-env-conf-test] ]
  11686. 1875.47 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  11687. 1875.47 s [opt-env-conf-test] - [ [ functionChunk "argument",
  11688. 1875.47 s [opt-env-conf-test] - " has no ",
  11689. 1875.47 s [opt-env-conf-test] - functionChunk "metavar",
  11690. 1875.47 s [opt-env-conf-test] - "."
  11691. 1875.47 s [opt-env-conf-test] - ]
  11692. 1875.47 s [opt-env-conf-test] - ]
  11693. 1875.48 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  11694. 1875.48 s [opt-env-conf-test] [ [ functionChunk "option",
  11695. 1875.48 s [opt-env-conf-test] " or ",
  11696. 1875.48 s [opt-env-conf-test] functionChunk "name",
  11697. 1875.48 s [opt-env-conf-test] " has no ",
  11698. 1875.48 s [opt-env-conf-test] functionChunk "reader",
  11699. 1875.48 s [opt-env-conf-test] "."
  11700. 1875.48 s [opt-env-conf-test] ]
  11701. 1875.48 s [opt-env-conf-test] ]
  11702. 1875.48 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  11703. 1875.48 s [opt-env-conf-test] [ [ functionChunk "option",
  11704. 1875.48 s [opt-env-conf-test] " has no ",
  11705. 1875.48 s [opt-env-conf-test] functionChunk "long",
  11706. 1875.48 s [opt-env-conf-test] " or ",
  11707. 1875.48 s [opt-env-conf-test] functionChunk "short",
  11708. 1875.48 s [opt-env-conf-test] "."
  11709. 1875.48 s [opt-env-conf-test] ]
  11710. 1875.48 s [opt-env-conf-test] ]
  11711. 1875.48 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  11712. 1875.48 s [opt-env-conf-test] [ [ functionChunk "option",
  11713. 1875.48 s [opt-env-conf-test] " or ",
  11714. 1875.48 s [opt-env-conf-test] functionChunk "name",
  11715. 1875.48 s [opt-env-conf-test] " has no ",
  11716. 1875.48 s [opt-env-conf-test] functionChunk "metavar",
  11717. 1875.48 s [opt-env-conf-test] "."
  11718. 1875.48 s [opt-env-conf-test] ]
  11719. 1875.48 s [opt-env-conf-test] ]
  11720. 1875.48 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  11721. 1875.48 s [opt-env-conf-test] [ [ functionChunk "switch",
  11722. 1875.48 s [opt-env-conf-test] " has no ",
  11723. 1875.48 s [opt-env-conf-test] functionChunk "long",
  11724. 1875.48 s [opt-env-conf-test] " or ",
  11725. 1875.48 s [opt-env-conf-test] functionChunk "short",
  11726. 1875.48 s [opt-env-conf-test] "."
  11727. 1875.48 s [opt-env-conf-test] ]
  11728. 1875.48 s [opt-env-conf-test] ]
  11729. 1875.48 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  11730. 1875.48 s [opt-env-conf-test] [ [ functionChunk "long",
  11731. 1875.48 s [opt-env-conf-test] " or ",
  11732. 1875.48 s [opt-env-conf-test] functionChunk "short",
  11733. 1875.48 s [opt-env-conf-test] " has no ",
  11734. 1875.48 s [opt-env-conf-test] functionChunk "option",
  11735. 1875.48 s [opt-env-conf-test] " or ",
  11736. 1875.48 s [opt-env-conf-test] functionChunk "switch",
  11737. 1875.48 s [opt-env-conf-test] "."
  11738. 1875.48 s [opt-env-conf-test] ]
  11739. 1875.48 s [opt-env-conf-test] ]
  11740. 1875.48 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  11741. 1875.48 s [opt-env-conf-test] [ [ functionChunk "env",
  11742. 1875.48 s [opt-env-conf-test] " or ",
  11743. 1875.48 s [opt-env-conf-test] functionChunk "name",
  11744. 1875.48 s [opt-env-conf-test] " has no ",
  11745. 1875.48 s [opt-env-conf-test] functionChunk "reader",
  11746. 1875.48 s [opt-env-conf-test] "."
  11747. 1875.48 s [opt-env-conf-test] ]
  11748. 1875.48 s [opt-env-conf-test] ]
  11749. 1875.48 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  11750. 1875.48 s [opt-env-conf-test] [ [ functionChunk "env",
  11751. 1875.48 s [opt-env-conf-test] " or ",
  11752. 1875.48 s [opt-env-conf-test] functionChunk "name",
  11753. 1875.48 s [opt-env-conf-test] " has no ",
  11754. 1875.48 s [opt-env-conf-test] functionChunk "metavar",
  11755. 1875.48 s [opt-env-conf-test] "."
  11756. 1875.48 s [opt-env-conf-test] ]
  11757. 1875.48 s [opt-env-conf-test] ]
  11758. 1875.48 s [opt-env-conf-test] LintErrorNoCommands ->
  11759. 1879.44 s [opt-env-conf-test] [ [ functionChunk "commands",
  11760. 1879.55 s [opt-env-conf-test] " was called with an empty list."
  11761. 1879.55 s [opt-env-conf-test] ]
  11762. 1879.55 s [opt-env-conf-test] ]
  11763. 1879.55 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  11764. 1879.55 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  11765. 1879.55 s [opt-env-conf-test] " was called with an unknown command: ",
  11766. 1879.55 s [opt-env-conf-test] commandChunk c
  11767. 1879.55 s [opt-env-conf-test] ]
  11768. 1879.55 s [opt-env-conf-test] ]
  11769. 1879.55 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  11770. 1879.55 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  11771. 1879.56 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  11772. 1879.56 s [opt-env-conf-test] ]
  11773. 1879.56 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11774. 1879.56 s [opt-env-conf-test] [ [ functionChunk "conf",
  11775. 1879.56 s [opt-env-conf-test] " or ",
  11776. 1879.56 s [opt-env-conf-test] functionChunk "name",
  11777. 1879.56 s [opt-env-conf-test] " was called with no way to load configuration."
  11778. 1879.56 s [opt-env-conf-test] ],
  11779. 1879.56 s [opt-env-conf-test] [ "You can load configuration with ",
  11780. 1879.56 s [opt-env-conf-test] functionChunk "withConfig",
  11781. 1879.56 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11782. 1879.56 s [opt-env-conf-test] functionChunk "withoutConfig",
  11783. 1879.56 s [opt-env-conf-test] "."
  11784. 1879.56 s [opt-env-conf-test] ]
  11785. 1879.56 s [opt-env-conf-test] ]
  11786. 1879.56 s [opt-env-conf-test] LintErrorManyInfinite ->
  11787. 1879.56 s [opt-env-conf-test] [ [ functionChunk "many",
  11788. 1879.56 s [opt-env-conf-test] " or ",
  11789. 1879.56 s [opt-env-conf-test] functionChunk "some",
  11790. 1879.56 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  11791. 1879.56 s [opt-env-conf-test] ],
  11792. 1879.56 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  11793. 1879.56 s [opt-env-conf-test] ],
  11794. 1879.56 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  11795. 1879.56 s [opt-env-conf-test] ]
  11796. 1879.56 s [opt-env-conf-test]
  11797. 1879.56 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  11798. 1879.56 s [opt-env-conf-test] @@ -221,11 +221,7 @@
  11799. 1879.56 s [opt-env-conf-test] ]
  11800. 1879.56 s [opt-env-conf-test] ]
  11801. 1879.56 s [opt-env-conf-test] LintErrorManyInfinite ->
  11802. 1879.56 s [opt-env-conf-test] - [ [ functionChunk "many",
  11803. 1879.56 s [opt-env-conf-test] - " or ",
  11804. 1879.56 s [opt-env-conf-test] - functionChunk "some",
  11805. 1879.56 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  11806. 1879.56 s [opt-env-conf-test] ],
  11807. 1879.56 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  11808. 1879.56 s [opt-env-conf-test] ],
  11809. 1879.56 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  11810. 1879.56 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  11811. 1879.56 s [opt-env-conf-test] @@ -221,11 +221,10 @@
  11812. 1879.56 s [opt-env-conf-test] ]
  11813. 1879.57 s [opt-env-conf-test] ]
  11814. 1879.57 s [opt-env-conf-test] LintErrorManyInfinite ->
  11815. 1879.57 s [opt-env-conf-test] - [ [ functionChunk "many",
  11816. 1879.57 s [opt-env-conf-test] " or ",
  11817. 1879.57 s [opt-env-conf-test] functionChunk "some",
  11818. 1879.57 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  11819. 1879.57 s [opt-env-conf-test] ],
  11820. 1879.57 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  11821. 1879.57 s [opt-env-conf-test] ],
  11822. 1879.57 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  11823. 1879.57 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
  11824. 1879.57 s [opt-env-conf-test] @@ -208,18 +208,13 @@
  11825. 1879.57 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  11826. 1879.57 s [opt-env-conf-test] ]
  11827. 1879.57 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11828. 1879.57 s [opt-env-conf-test] - [ [ functionChunk "conf",
  11829. 1879.57 s [opt-env-conf-test] - " or ",
  11830. 1879.57 s [opt-env-conf-test] - functionChunk "name",
  11831. 1879.57 s [opt-env-conf-test] - " was called with no way to load configuration."
  11832. 1879.57 s [opt-env-conf-test] - ],
  11833. 1879.57 s [opt-env-conf-test] [ "You can load configuration with ",
  11834. 1879.57 s [opt-env-conf-test] functionChunk "withConfig",
  11835. 1879.57 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11836. 1879.57 s [opt-env-conf-test] functionChunk "withoutConfig",
  11837. 1879.57 s [opt-env-conf-test] "."
  11838. 1879.57 s [opt-env-conf-test] ]
  11839. 1879.57 s [opt-env-conf-test] ]
  11840. 1879.57 s [opt-env-conf-test] LintErrorManyInfinite ->
  11841. 1879.57 s [opt-env-conf-test] [ [ functionChunk "many",
  11842. 1879.57 s [opt-env-conf-test] " or ",
  11843. 1879.57 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
  11844. 1879.57 s [opt-env-conf-test] @@ -213,12 +213,11 @@
  11845. 1879.57 s [opt-env-conf-test] functionChunk "name",
  11846. 1879.57 s [opt-env-conf-test] " was called with no way to load configuration."
  11847. 1879.57 s [opt-env-conf-test] ],
  11848. 1879.57 s [opt-env-conf-test] - [ "You can load configuration with ",
  11849. 1879.57 s [opt-env-conf-test] functionChunk "withConfig",
  11850. 1879.57 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11851. 1879.57 s [opt-env-conf-test] functionChunk "withoutConfig",
  11852. 1879.57 s [opt-env-conf-test] "."
  11853. 1879.57 s [opt-env-conf-test] ]
  11854. 1879.57 s [opt-env-conf-test] ]
  11855. 1879.57 s [opt-env-conf-test] LintErrorManyInfinite ->
  11856. 1879.57 s [opt-env-conf-test] [ [ functionChunk "many",
  11857. 1879.57 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
  11858. 1879.58 s [opt-env-conf-test] @@ -221,11 +221,10 @@
  11859. 1879.58 s [opt-env-conf-test] ]
  11860. 1879.58 s [opt-env-conf-test] ]
  11861. 1879.58 s [opt-env-conf-test] LintErrorManyInfinite ->
  11862. 1879.58 s [opt-env-conf-test] [ [ functionChunk "many",
  11863. 1879.58 s [opt-env-conf-test] " or ",
  11864. 1879.58 s [opt-env-conf-test] functionChunk "some",
  11865. 1879.58 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  11866. 1879.58 s [opt-env-conf-test] ],
  11867. 1879.58 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  11868. 1879.58 s [opt-env-conf-test] ],
  11869. 1879.58 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  11870. 1879.58 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
  11871. 1879.58 s [opt-env-conf-test] @@ -208,11 +208,7 @@
  11872. 1879.58 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  11873. 1879.58 s [opt-env-conf-test] ]
  11874. 1879.58 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11875. 1879.58 s [opt-env-conf-test] - [ [ functionChunk "conf",
  11876. 1879.58 s [opt-env-conf-test] - " or ",
  11877. 1879.58 s [opt-env-conf-test] - functionChunk "name",
  11878. 1879.58 s [opt-env-conf-test] - " was called with no way to load configuration."
  11879. 1879.58 s [opt-env-conf-test] ],
  11880. 1879.58 s [opt-env-conf-test] [ "You can load configuration with ",
  11881. 1879.58 s [opt-env-conf-test] functionChunk "withConfig",
  11882. 1879.58 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  11883. 1879.58 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
  11884. 1879.58 s [opt-env-conf-test] @@ -205,7 +205,6 @@
  11885. 1879.58 s [opt-env-conf-test] ]
  11886. 1879.58 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  11887. 1879.58 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  11888. 1879.58 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  11889. 1879.58 s [opt-env-conf-test] ]
  11890. 1879.58 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  11891. 1879.58 s [opt-env-conf-test] [ [ functionChunk "conf",
  11892. 1879.58 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  11893. 1879.58 s [opt-env-conf-test] @@ -66,168 +66,155 @@
  11894. 1879.58 s [opt-env-conf-test] renderLintError LintError {..} =
  11895. 1879.58 s [opt-env-conf-test] concat
  11896. 1879.58 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  11897. 1879.58 s [opt-env-conf-test] case lintErrorMessage of
  11898. 1879.58 s [opt-env-conf-test] LintErrorUndocumented ->
  11899. 1879.58 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  11900. 1879.58 s [opt-env-conf-test] LintErrorEmptySetting ->
  11901. 1879.58 s [opt-env-conf-test] concat
  11902. 1879.58 s [opt-env-conf-test] [ [ [ "This ",
  11903. 1879.58 s [opt-env-conf-test] functionChunk "setting",
  11904. 1879.58 s [opt-env-conf-test] " parses nothing."
  11905. 1879.59 s [opt-env-conf-test] ]
  11906. 1879.59 s [opt-env-conf-test] ],
  11907. 1879.59 s [opt-env-conf-test] [ [ "Add an ",
  11908. 1879.59 s [opt-env-conf-test] functionChunk "argument",
  11909. 1879.59 s [opt-env-conf-test] ", ",
  11910. 1879.59 s [opt-env-conf-test] functionChunk "switch",
  11911. 1879.59 s [opt-env-conf-test] ", ",
  11912. 1879.59 s [opt-env-conf-test] functionChunk "option",
  11913. 1879.59 s [opt-env-conf-test] ", ",
  11914. 1879.59 s [opt-env-conf-test] functionChunk "env",
  11915. 1879.59 s [opt-env-conf-test] ", ",
  11916. 1879.59 s [opt-env-conf-test] functionChunk "conf",
  11917. 1879.59 s [opt-env-conf-test] ", or ",
  11918. 1879.59 s [opt-env-conf-test] functionChunk "value",
  11919. 1879.59 s [opt-env-conf-test] "."
  11920. 1879.59 s [opt-env-conf-test] ]
  11921. 1879.59 s [opt-env-conf-test] ]
  11922. 1879.59 s [opt-env-conf-test] ]
  11923. 1879.59 s [opt-env-conf-test] LintErrorDashInShort ->
  11924. 1879.59 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  11925. 1879.59 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  11926. 1879.59 s [opt-env-conf-test] ]
  11927. 1879.59 s [opt-env-conf-test] LintErrorDashInLong s ->
  11928. 1879.59 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  11929. 1879.59 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  11930. 1879.59 s [opt-env-conf-test] [ "Try ",
  11931. 1879.59 s [opt-env-conf-test] functionChunk "long",
  11932. 1879.59 s [opt-env-conf-test] " ",
  11933. 1879.59 s [opt-env-conf-test] chunk $
  11934. 1879.59 s [opt-env-conf-test] T.pack $
  11935. 1879.59 s [opt-env-conf-test] show $
  11936. 1879.59 s [opt-env-conf-test] let go = \case
  11937. 1879.59 s [opt-env-conf-test] [] -> []
  11938. 1879.59 s [opt-env-conf-test] '-' : cs -> go cs
  11939. 1879.59 s [opt-env-conf-test] c : cs -> c : cs
  11940. 1879.59 s [opt-env-conf-test] in go $ NE.toList s,
  11941. 1879.59 s [opt-env-conf-test] " instead."
  11942. 1879.59 s [opt-env-conf-test] ]
  11943. 1879.59 s [opt-env-conf-test] ]
  11944. 1879.59 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  11945. 1879.59 s [opt-env-conf-test] [ [ functionChunk "argument",
  11946. 1879.59 s [opt-env-conf-test] " has no ",
  11947. 1879.59 s [opt-env-conf-test] functionChunk "reader",
  11948. 1879.59 s [opt-env-conf-test] "."
  11949. 1879.59 s [opt-env-conf-test] ]
  11950. 1879.59 s [opt-env-conf-test] ]
  11951. 1879.59 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  11952. 1879.59 s [opt-env-conf-test] [ [ functionChunk "argument",
  11953. 1879.59 s [opt-env-conf-test] " has no ",
  11954. 1879.59 s [opt-env-conf-test] functionChunk "metavar",
  11955. 1879.59 s [opt-env-conf-test] "."
  11956. 1879.59 s [opt-env-conf-test] ]
  11957. 1879.59 s [opt-env-conf-test] ]
  11958. 1879.59 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  11959. 1879.59 s [opt-env-conf-test] [ [ functionChunk "option",
  11960. 1879.59 s [opt-env-conf-test] " or ",
  11961. 1879.59 s [opt-env-conf-test] functionChunk "name",
  11962. 1879.60 s [opt-env-conf-test] " has no ",
  11963. 1879.60 s [opt-env-conf-test] functionChunk "reader",
  11964. 1879.60 s [opt-env-conf-test] "."
  11965. 1879.60 s [opt-env-conf-test] ]
  11966. 1879.60 s [opt-env-conf-test] ]
  11967. 1879.60 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  11968. 1879.60 s [opt-env-conf-test] [ [ functionChunk "option",
  11969. 1879.60 s [opt-env-conf-test] " has no ",
  11970. 1879.60 s [opt-env-conf-test] functionChunk "long",
  11971. 1879.60 s [opt-env-conf-test] " or ",
  11972. 1879.60 s [opt-env-conf-test] functionChunk "short",
  11973. 1879.60 s [opt-env-conf-test] "."
  11974. 1879.60 s [opt-env-conf-test] ]
  11975. 1879.60 s [opt-env-conf-test] ]
  11976. 1879.60 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  11977. 1879.60 s [opt-env-conf-test] [ [ functionChunk "option",
  11978. 1879.60 s [opt-env-conf-test] " or ",
  11979. 1879.60 s [opt-env-conf-test] functionChunk "name",
  11980. 1879.60 s [opt-env-conf-test] " has no ",
  11981. 1879.60 s [opt-env-conf-test] functionChunk "metavar",
  11982. 1879.60 s [opt-env-conf-test] "."
  11983. 1879.60 s [opt-env-conf-test] ]
  11984. 1879.60 s [opt-env-conf-test] ]
  11985. 1879.60 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  11986. 1879.60 s [opt-env-conf-test] [ [ functionChunk "switch",
  11987. 1879.60 s [opt-env-conf-test] " has no ",
  11988. 1879.60 s [opt-env-conf-test] functionChunk "long",
  11989. 1879.60 s [opt-env-conf-test] " or ",
  11990. 1879.60 s [opt-env-conf-test] functionChunk "short",
  11991. 1879.60 s [opt-env-conf-test] "."
  11992. 1879.60 s [opt-env-conf-test] ]
  11993. 1879.60 s [opt-env-conf-test] ]
  11994. 1879.60 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  11995. 1879.60 s [opt-env-conf-test] [ [ functionChunk "long",
  11996. 1879.60 s [opt-env-conf-test] " or ",
  11997. 1879.60 s [opt-env-conf-test] functionChunk "short",
  11998. 1879.60 s [opt-env-conf-test] " has no ",
  11999. 1879.60 s [opt-env-conf-test] functionChunk "option",
  12000. 1879.60 s [opt-env-conf-test] " or ",
  12001. 1879.60 s [opt-env-conf-test] functionChunk "switch",
  12002. 1879.60 s [opt-env-conf-test] "."
  12003. 1879.60 s [opt-env-conf-test] ]
  12004. 1879.60 s [opt-env-conf-test] ]
  12005. 1879.60 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  12006. 1879.60 s [opt-env-conf-test] [ [ functionChunk "env",
  12007. 1879.60 s [opt-env-conf-test] " or ",
  12008. 1879.60 s [opt-env-conf-test] functionChunk "name",
  12009. 1879.60 s [opt-env-conf-test] " has no ",
  12010. 1879.60 s [opt-env-conf-test] functionChunk "reader",
  12011. 1879.60 s [opt-env-conf-test] "."
  12012. 1879.60 s [opt-env-conf-test] ]
  12013. 1879.60 s [opt-env-conf-test] ]
  12014. 1879.60 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  12015. 1879.60 s [opt-env-conf-test] [ [ functionChunk "env",
  12016. 1879.60 s [opt-env-conf-test] " or ",
  12017. 1879.60 s [opt-env-conf-test] functionChunk "name",
  12018. 1879.60 s [opt-env-conf-test] " has no ",
  12019. 1879.60 s [opt-env-conf-test] functionChunk "metavar",
  12020. 1879.60 s [opt-env-conf-test] "."
  12021. 1879.60 s [opt-env-conf-test] ]
  12022. 1879.60 s [opt-env-conf-test] ]
  12023. 1879.60 s [opt-env-conf-test] LintErrorNoCommands ->
  12024. 1879.60 s [opt-env-conf-test] [ [ functionChunk "commands",
  12025. 1879.61 s [opt-env-conf-test] " was called with an empty list."
  12026. 1880.04 s [opt-env-conf-test] ]
  12027. 1880.04 s [opt-env-conf-test] ]
  12028. 1880.04 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  12029. 1880.04 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  12030. 1880.04 s [opt-env-conf-test] " was called with an unknown command: ",
  12031. 1880.04 s [opt-env-conf-test] commandChunk c
  12032. 1880.04 s [opt-env-conf-test] ]
  12033. 1880.04 s [opt-env-conf-test] ]
  12034. 1880.04 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  12035. 1880.04 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  12036. 1880.04 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  12037. 1880.04 s [opt-env-conf-test] ]
  12038. 1880.04 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  12039. 1880.04 s [opt-env-conf-test] - [ [ functionChunk "conf",
  12040. 1880.04 s [opt-env-conf-test] - " or ",
  12041. 1880.04 s [opt-env-conf-test] - functionChunk "name",
  12042. 1880.04 s [opt-env-conf-test] - " was called with no way to load configuration."
  12043. 1880.05 s [opt-env-conf-test] - ],
  12044. 1880.05 s [opt-env-conf-test] - [ "You can load configuration with ",
  12045. 1880.05 s [opt-env-conf-test] - functionChunk "withConfig",
  12046. 1880.05 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  12047. 1880.05 s [opt-env-conf-test] - functionChunk "withoutConfig",
  12048. 1880.05 s [opt-env-conf-test] - "."
  12049. 1880.05 s [opt-env-conf-test] - ]
  12050. 1880.05 s [opt-env-conf-test] - ]
  12051. 1880.05 s [opt-env-conf-test] LintErrorManyInfinite ->
  12052. 1880.05 s [opt-env-conf-test] [ [ functionChunk "many",
  12053. 1880.05 s [opt-env-conf-test] " or ",
  12054. 1880.05 s [opt-env-conf-test] functionChunk "some",
  12055. 1880.05 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  12056. 1880.05 s [opt-env-conf-test] ],
  12057. 1880.05 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  12058. 1880.05 s [opt-env-conf-test] ],
  12059. 1880.05 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  12060. 1880.05 s [opt-env-conf-test] ]
  12061. 1880.05 s [opt-env-conf-test]
  12062. 1880.05 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  12063. 1880.05 s [opt-env-conf-test] @@ -66,168 +66,160 @@
  12064. 1880.05 s [opt-env-conf-test] renderLintError LintError {..} =
  12065. 1880.05 s [opt-env-conf-test] concat
  12066. 1880.05 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  12067. 1880.05 s [opt-env-conf-test] case lintErrorMessage of
  12068. 1880.05 s [opt-env-conf-test] LintErrorUndocumented ->
  12069. 1880.05 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  12070. 1880.05 s [opt-env-conf-test] LintErrorEmptySetting ->
  12071. 1880.05 s [opt-env-conf-test] concat
  12072. 1880.05 s [opt-env-conf-test] [ [ [ "This ",
  12073. 1880.05 s [opt-env-conf-test] functionChunk "setting",
  12074. 1880.05 s [opt-env-conf-test] " parses nothing."
  12075. 1880.05 s [opt-env-conf-test] ]
  12076. 1880.05 s [opt-env-conf-test] ],
  12077. 1880.05 s [opt-env-conf-test] [ [ "Add an ",
  12078. 1880.05 s [opt-env-conf-test] functionChunk "argument",
  12079. 1880.05 s [opt-env-conf-test] ", ",
  12080. 1880.05 s [opt-env-conf-test] functionChunk "switch",
  12081. 1880.05 s [opt-env-conf-test] ", ",
  12082. 1880.05 s [opt-env-conf-test] functionChunk "option",
  12083. 1880.05 s [opt-env-conf-test] ", ",
  12084. 1880.05 s [opt-env-conf-test] functionChunk "env",
  12085. 1880.05 s [opt-env-conf-test] ", ",
  12086. 1880.05 s [opt-env-conf-test] functionChunk "conf",
  12087. 1880.05 s [opt-env-conf-test] ", or ",
  12088. 1880.05 s [opt-env-conf-test] functionChunk "value",
  12089. 1880.05 s [opt-env-conf-test] "."
  12090. 1880.05 s [opt-env-conf-test] ]
  12091. 1880.05 s [opt-env-conf-test] ]
  12092. 1880.05 s [opt-env-conf-test] ]
  12093. 1880.05 s [opt-env-conf-test] LintErrorDashInShort ->
  12094. 1880.05 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  12095. 1880.05 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  12096. 1880.05 s [opt-env-conf-test] ]
  12097. 1880.05 s [opt-env-conf-test] LintErrorDashInLong s ->
  12098. 1880.05 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  12099. 1880.05 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  12100. 1880.05 s [opt-env-conf-test] [ "Try ",
  12101. 1880.05 s [opt-env-conf-test] functionChunk "long",
  12102. 1880.05 s [opt-env-conf-test] " ",
  12103. 1880.05 s [opt-env-conf-test] chunk $
  12104. 1880.05 s [opt-env-conf-test] T.pack $
  12105. 1880.05 s [opt-env-conf-test] show $
  12106. 1880.05 s [opt-env-conf-test] let go = \case
  12107. 1880.05 s [opt-env-conf-test] [] -> []
  12108. 1880.05 s [opt-env-conf-test] '-' : cs -> go cs
  12109. 1880.05 s [opt-env-conf-test] c : cs -> c : cs
  12110. 1880.05 s [opt-env-conf-test] in go $ NE.toList s,
  12111. 1880.05 s [opt-env-conf-test] " instead."
  12112. 1880.05 s [opt-env-conf-test] ]
  12113. 1880.05 s [opt-env-conf-test] ]
  12114. 1880.05 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  12115. 1880.05 s [opt-env-conf-test] [ [ functionChunk "argument",
  12116. 1880.05 s [opt-env-conf-test] " has no ",
  12117. 1880.05 s [opt-env-conf-test] functionChunk "reader",
  12118. 1880.05 s [opt-env-conf-test] "."
  12119. 1880.06 s [opt-env-conf-test] ]
  12120. 1880.06 s [opt-env-conf-test] ]
  12121. 1880.06 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  12122. 1880.06 s [opt-env-conf-test] [ [ functionChunk "argument",
  12123. 1880.06 s [opt-env-conf-test] " has no ",
  12124. 1880.06 s [opt-env-conf-test] functionChunk "metavar",
  12125. 1880.06 s [opt-env-conf-test] "."
  12126. 1880.06 s [opt-env-conf-test] ]
  12127. 1880.06 s [opt-env-conf-test] ]
  12128. 1880.06 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  12129. 1880.06 s [opt-env-conf-test] [ [ functionChunk "option",
  12130. 1880.06 s [opt-env-conf-test] " or ",
  12131. 1880.06 s [opt-env-conf-test] functionChunk "name",
  12132. 1880.06 s [opt-env-conf-test] " has no ",
  12133. 1880.06 s [opt-env-conf-test] functionChunk "reader",
  12134. 1880.06 s [opt-env-conf-test] "."
  12135. 1880.06 s [opt-env-conf-test] ]
  12136. 1880.06 s [opt-env-conf-test] ]
  12137. 1880.06 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  12138. 1880.06 s [opt-env-conf-test] [ [ functionChunk "option",
  12139. 1880.06 s [opt-env-conf-test] " has no ",
  12140. 1880.06 s [opt-env-conf-test] functionChunk "long",
  12141. 1880.06 s [opt-env-conf-test] " or ",
  12142. 1880.06 s [opt-env-conf-test] functionChunk "short",
  12143. 1880.06 s [opt-env-conf-test] "."
  12144. 1880.06 s [opt-env-conf-test] ]
  12145. 1880.06 s [opt-env-conf-test] ]
  12146. 1880.06 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  12147. 1880.06 s [opt-env-conf-test] [ [ functionChunk "option",
  12148. 1880.06 s [opt-env-conf-test] " or ",
  12149. 1880.06 s [opt-env-conf-test] functionChunk "name",
  12150. 1880.06 s [opt-env-conf-test] " has no ",
  12151. 1880.06 s [opt-env-conf-test] functionChunk "metavar",
  12152. 1880.06 s [opt-env-conf-test] "."
  12153. 1880.06 s [opt-env-conf-test] ]
  12154. 1880.06 s [opt-env-conf-test] ]
  12155. 1880.06 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  12156. 1880.06 s [opt-env-conf-test] [ [ functionChunk "switch",
  12157. 1880.06 s [opt-env-conf-test] " has no ",
  12158. 1880.06 s [opt-env-conf-test] functionChunk "long",
  12159. 1880.06 s [opt-env-conf-test] " or ",
  12160. 1880.06 s [opt-env-conf-test] functionChunk "short",
  12161. 1880.06 s [opt-env-conf-test] "."
  12162. 1880.06 s [opt-env-conf-test] ]
  12163. 1880.06 s [opt-env-conf-test] ]
  12164. 1880.06 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  12165. 1880.06 s [opt-env-conf-test] [ [ functionChunk "long",
  12166. 1880.06 s [opt-env-conf-test] " or ",
  12167. 1880.06 s [opt-env-conf-test] functionChunk "short",
  12168. 1880.06 s [opt-env-conf-test] " has no ",
  12169. 1880.06 s [opt-env-conf-test] functionChunk "option",
  12170. 1880.06 s [opt-env-conf-test] " or ",
  12171. 1880.06 s [opt-env-conf-test] functionChunk "switch",
  12172. 1880.06 s [opt-env-conf-test] "."
  12173. 1880.06 s [opt-env-conf-test] ]
  12174. 1880.06 s [opt-env-conf-test] ]
  12175. 1880.06 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  12176. 1880.06 s [opt-env-conf-test] [ [ functionChunk "env",
  12177. 1880.06 s [opt-env-conf-test] " or ",
  12178. 1880.06 s [opt-env-conf-test] functionChunk "name",
  12179. 1880.06 s [opt-env-conf-test] " has no ",
  12180. 1880.06 s [opt-env-conf-test] functionChunk "reader",
  12181. 1880.06 s [opt-env-conf-test] "."
  12182. 1880.06 s [opt-env-conf-test] ]
  12183. 1880.06 s [opt-env-conf-test] ]
  12184. 1880.06 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  12185. 1880.06 s [opt-env-conf-test] [ [ functionChunk "env",
  12186. 1880.06 s [opt-env-conf-test] " or ",
  12187. 1880.06 s [opt-env-conf-test] functionChunk "name",
  12188. 1880.06 s [opt-env-conf-test] " has no ",
  12189. 1880.06 s [opt-env-conf-test] functionChunk "metavar",
  12190. 1880.06 s [opt-env-conf-test] "."
  12191. 1880.06 s [opt-env-conf-test] ]
  12192. 1880.06 s [opt-env-conf-test] ]
  12193. 1880.06 s [opt-env-conf-test] LintErrorNoCommands ->
  12194. 1880.06 s [opt-env-conf-test] [ [ functionChunk "commands",
  12195. 1880.06 s [opt-env-conf-test] " was called with an empty list."
  12196. 1882.01 s [opt-env-conf-test] ]
  12197. 1882.01 s [opt-env-conf-test] ]
  12198. 1882.01 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  12199. 1882.01 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  12200. 1882.01 s [opt-env-conf-test] " was called with an unknown command: ",
  12201. 1882.01 s [opt-env-conf-test] commandChunk c
  12202. 1882.01 s [opt-env-conf-test] ]
  12203. 1882.01 s [opt-env-conf-test] ]
  12204. 1882.01 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  12205. 1882.01 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  12206. 1882.01 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  12207. 1882.01 s [opt-env-conf-test] ]
  12208. 1882.01 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  12209. 1882.01 s [opt-env-conf-test] [ [ functionChunk "conf",
  12210. 1882.01 s [opt-env-conf-test] " or ",
  12211. 1882.01 s [opt-env-conf-test] functionChunk "name",
  12212. 1882.01 s [opt-env-conf-test] " was called with no way to load configuration."
  12213. 1882.01 s [opt-env-conf-test] ],
  12214. 1882.01 s [opt-env-conf-test] [ "You can load configuration with ",
  12215. 1882.01 s [opt-env-conf-test] functionChunk "withConfig",
  12216. 1882.01 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  12217. 1882.01 s [opt-env-conf-test] functionChunk "withoutConfig",
  12218. 1882.01 s [opt-env-conf-test] "."
  12219. 1882.02 s [opt-env-conf-test] ]
  12220. 1882.02 s [opt-env-conf-test] ]
  12221. 1882.02 s [opt-env-conf-test] - LintErrorManyInfinite ->
  12222. 1882.02 s [opt-env-conf-test] - [ [ functionChunk "many",
  12223. 1882.02 s [opt-env-conf-test] - " or ",
  12224. 1882.02 s [opt-env-conf-test] - functionChunk "some",
  12225. 1882.02 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  12226. 1882.02 s [opt-env-conf-test] - ],
  12227. 1882.02 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  12228. 1882.02 s [opt-env-conf-test] - ],
  12229. 1882.02 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  12230. 1882.02 s [opt-env-conf-test] ]
  12231. 1882.02 s [opt-env-conf-test]
  12232. 1882.02 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  12233. 1882.02 s [opt-env-conf-test] @@ -66,168 +66,163 @@
  12234. 1882.02 s [opt-env-conf-test] renderLintError LintError {..} =
  12235. 1882.02 s [opt-env-conf-test] concat
  12236. 1882.02 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  12237. 1882.02 s [opt-env-conf-test] case lintErrorMessage of
  12238. 1882.02 s [opt-env-conf-test] LintErrorUndocumented ->
  12239. 1882.02 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  12240. 1882.02 s [opt-env-conf-test] LintErrorEmptySetting ->
  12241. 1882.02 s [opt-env-conf-test] concat
  12242. 1882.02 s [opt-env-conf-test] [ [ [ "This ",
  12243. 1882.02 s [opt-env-conf-test] functionChunk "setting",
  12244. 1882.02 s [opt-env-conf-test] " parses nothing."
  12245. 1882.02 s [opt-env-conf-test] ]
  12246. 1882.02 s [opt-env-conf-test] ],
  12247. 1882.02 s [opt-env-conf-test] [ [ "Add an ",
  12248. 1882.02 s [opt-env-conf-test] functionChunk "argument",
  12249. 1882.02 s [opt-env-conf-test] ", ",
  12250. 1882.02 s [opt-env-conf-test] functionChunk "switch",
  12251. 1882.02 s [opt-env-conf-test] ", ",
  12252. 1882.02 s [opt-env-conf-test] functionChunk "option",
  12253. 1882.02 s [opt-env-conf-test] ", ",
  12254. 1882.02 s [opt-env-conf-test] functionChunk "env",
  12255. 1882.02 s [opt-env-conf-test] ", ",
  12256. 1882.02 s [opt-env-conf-test] functionChunk "conf",
  12257. 1882.02 s [opt-env-conf-test] ", or ",
  12258. 1882.02 s [opt-env-conf-test] functionChunk "value",
  12259. 1882.02 s [opt-env-conf-test] "."
  12260. 1882.03 s [opt-env-conf-test] ]
  12261. 1882.03 s [opt-env-conf-test] ]
  12262. 1882.03 s [opt-env-conf-test] ]
  12263. 1882.03 s [opt-env-conf-test] LintErrorDashInShort ->
  12264. 1882.03 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  12265. 1882.03 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  12266. 1882.03 s [opt-env-conf-test] ]
  12267. 1882.03 s [opt-env-conf-test] LintErrorDashInLong s ->
  12268. 1882.03 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  12269. 1882.03 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  12270. 1882.03 s [opt-env-conf-test] [ "Try ",
  12271. 1882.03 s [opt-env-conf-test] functionChunk "long",
  12272. 1882.03 s [opt-env-conf-test] " ",
  12273. 1882.03 s [opt-env-conf-test] chunk $
  12274. 1882.03 s [opt-env-conf-test] T.pack $
  12275. 1882.03 s [opt-env-conf-test] show $
  12276. 1882.03 s [opt-env-conf-test] let go = \case
  12277. 1882.03 s [opt-env-conf-test] [] -> []
  12278. 1882.03 s [opt-env-conf-test] '-' : cs -> go cs
  12279. 1882.03 s [opt-env-conf-test] c : cs -> c : cs
  12280. 1882.03 s [opt-env-conf-test] in go $ NE.toList s,
  12281. 1882.03 s [opt-env-conf-test] " instead."
  12282. 1882.03 s [opt-env-conf-test] ]
  12283. 1882.03 s [opt-env-conf-test] ]
  12284. 1882.03 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  12285. 1882.03 s [opt-env-conf-test] [ [ functionChunk "argument",
  12286. 1882.03 s [opt-env-conf-test] " has no ",
  12287. 1882.03 s [opt-env-conf-test] functionChunk "reader",
  12288. 1882.03 s [opt-env-conf-test] "."
  12289. 1882.03 s [opt-env-conf-test] ]
  12290. 1882.03 s [opt-env-conf-test] ]
  12291. 1882.03 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  12292. 1882.03 s [opt-env-conf-test] [ [ functionChunk "argument",
  12293. 1882.03 s [opt-env-conf-test] " has no ",
  12294. 1882.03 s [opt-env-conf-test] functionChunk "metavar",
  12295. 1882.03 s [opt-env-conf-test] "."
  12296. 1882.03 s [opt-env-conf-test] ]
  12297. 1882.03 s [opt-env-conf-test] ]
  12298. 1882.03 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  12299. 1882.03 s [opt-env-conf-test] [ [ functionChunk "option",
  12300. 1882.03 s [opt-env-conf-test] " or ",
  12301. 1882.03 s [opt-env-conf-test] functionChunk "name",
  12302. 1882.03 s [opt-env-conf-test] " has no ",
  12303. 1882.03 s [opt-env-conf-test] functionChunk "reader",
  12304. 1882.03 s [opt-env-conf-test] "."
  12305. 1882.03 s [opt-env-conf-test] ]
  12306. 1882.03 s [opt-env-conf-test] ]
  12307. 1882.03 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  12308. 1882.03 s [opt-env-conf-test] [ [ functionChunk "option",
  12309. 1882.03 s [opt-env-conf-test] " has no ",
  12310. 1882.03 s [opt-env-conf-test] functionChunk "long",
  12311. 1882.03 s [opt-env-conf-test] " or ",
  12312. 1882.03 s [opt-env-conf-test] functionChunk "short",
  12313. 1882.03 s [opt-env-conf-test] "."
  12314. 1882.03 s [opt-env-conf-test] ]
  12315. 1882.03 s [opt-env-conf-test] ]
  12316. 1882.03 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  12317. 1882.03 s [opt-env-conf-test] [ [ functionChunk "option",
  12318. 1882.03 s [opt-env-conf-test] " or ",
  12319. 1882.04 s [opt-env-conf-test] functionChunk "name",
  12320. 1882.04 s [opt-env-conf-test] " has no ",
  12321. 1882.04 s [opt-env-conf-test] functionChunk "metavar",
  12322. 1882.04 s [opt-env-conf-test] "."
  12323. 1882.04 s [opt-env-conf-test] ]
  12324. 1882.04 s [opt-env-conf-test] ]
  12325. 1882.04 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  12326. 1882.04 s [opt-env-conf-test] [ [ functionChunk "switch",
  12327. 1882.04 s [opt-env-conf-test] " has no ",
  12328. 1882.04 s [opt-env-conf-test] functionChunk "long",
  12329. 1882.04 s [opt-env-conf-test] " or ",
  12330. 1882.04 s [opt-env-conf-test] functionChunk "short",
  12331. 1882.04 s [opt-env-conf-test] "."
  12332. 1882.04 s [opt-env-conf-test] ]
  12333. 1882.04 s [opt-env-conf-test] ]
  12334. 1882.04 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  12335. 1882.04 s [opt-env-conf-test] [ [ functionChunk "long",
  12336. 1882.04 s [opt-env-conf-test] " or ",
  12337. 1882.04 s [opt-env-conf-test] functionChunk "short",
  12338. 1882.04 s [opt-env-conf-test] " has no ",
  12339. 1882.04 s [opt-env-conf-test] functionChunk "option",
  12340. 1882.04 s [opt-env-conf-test] " or ",
  12341. 1882.04 s [opt-env-conf-test] functionChunk "switch",
  12342. 1882.04 s [opt-env-conf-test] "."
  12343. 1882.04 s [opt-env-conf-test] ]
  12344. 1882.04 s [opt-env-conf-test] ]
  12345. 1882.04 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  12346. 1882.04 s [opt-env-conf-test] [ [ functionChunk "env",
  12347. 1882.04 s [opt-env-conf-test] " or ",
  12348. 1882.04 s [opt-env-conf-test] functionChunk "name",
  12349. 1882.04 s [opt-env-conf-test] " has no ",
  12350. 1882.04 s [opt-env-conf-test] functionChunk "reader",
  12351. 1882.04 s [opt-env-conf-test] "."
  12352. 1882.04 s [opt-env-conf-test] ]
  12353. 1882.04 s [opt-env-conf-test] ]
  12354. 1882.04 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  12355. 1882.04 s [opt-env-conf-test] [ [ functionChunk "env",
  12356. 1882.04 s [opt-env-conf-test] " or ",
  12357. 1882.04 s [opt-env-conf-test] functionChunk "name",
  12358. 1882.04 s [opt-env-conf-test] " has no ",
  12359. 1882.04 s [opt-env-conf-test] functionChunk "metavar",
  12360. 1882.04 s [opt-env-conf-test] "."
  12361. 1882.04 s [opt-env-conf-test] ]
  12362. 1882.04 s [opt-env-conf-test] ]
  12363. 1882.04 s [opt-env-conf-test] - LintErrorNoCommands ->
  12364. 1882.04 s [opt-env-conf-test] - [ [ functionChunk "commands",
  12365. 1882.91 s [opt-env-conf-test] - " was called with an empty list."
  12366. 1882.92 s [opt-env-conf-test] - ]
  12367. 1882.92 s [opt-env-conf-test] - ]
  12368. 1882.92 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  12369. 1882.92 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  12370. 1882.92 s [opt-env-conf-test] " was called with an unknown command: ",
  12371. 1882.92 s [opt-env-conf-test] commandChunk c
  12372. 1882.92 s [opt-env-conf-test] ]
  12373. 1882.92 s [opt-env-conf-test] ]
  12374. 1882.92 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  12375. 1882.92 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  12376. 1882.92 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  12377. 1882.92 s [opt-env-conf-test] ]
  12378. 1882.92 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  12379. 1882.92 s [opt-env-conf-test] [ [ functionChunk "conf",
  12380. 1882.92 s [opt-env-conf-test] " or ",
  12381. 1882.92 s [opt-env-conf-test] functionChunk "name",
  12382. 1882.92 s [opt-env-conf-test] " was called with no way to load configuration."
  12383. 1882.92 s [opt-env-conf-test] ],
  12384. 1882.92 s [opt-env-conf-test] [ "You can load configuration with ",
  12385. 1882.92 s [opt-env-conf-test] functionChunk "withConfig",
  12386. 1882.92 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  12387. 1882.92 s [opt-env-conf-test] functionChunk "withoutConfig",
  12388. 1882.92 s [opt-env-conf-test] "."
  12389. 1882.92 s [opt-env-conf-test] ]
  12390. 1882.92 s [opt-env-conf-test] ]
  12391. 1882.92 s [opt-env-conf-test] LintErrorManyInfinite ->
  12392. 1882.92 s [opt-env-conf-test] [ [ functionChunk "many",
  12393. 1882.92 s [opt-env-conf-test] " or ",
  12394. 1882.92 s [opt-env-conf-test] functionChunk "some",
  12395. 1882.93 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  12396. 1882.93 s [opt-env-conf-test] ],
  12397. 1882.93 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  12398. 1882.93 s [opt-env-conf-test] ],
  12399. 1882.93 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  12400. 1882.93 s [opt-env-conf-test] ]
  12401. 1882.93 s [opt-env-conf-test]
  12402. 1882.93 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  12403. 1882.93 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  12404. 1882.93 s [opt-env-conf-test] renderLintError LintError {..} =
  12405. 1882.93 s [opt-env-conf-test] concat
  12406. 1882.93 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  12407. 1882.93 s [opt-env-conf-test] case lintErrorMessage of
  12408. 1882.93 s [opt-env-conf-test] LintErrorUndocumented ->
  12409. 1882.93 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  12410. 1882.93 s [opt-env-conf-test] LintErrorEmptySetting ->
  12411. 1882.93 s [opt-env-conf-test] concat
  12412. 1882.93 s [opt-env-conf-test] [ [ [ "This ",
  12413. 1882.93 s [opt-env-conf-test] functionChunk "setting",
  12414. 1882.93 s [opt-env-conf-test] " parses nothing."
  12415. 1882.93 s [opt-env-conf-test] ]
  12416. 1882.93 s [opt-env-conf-test] ],
  12417. 1882.93 s [opt-env-conf-test] [ [ "Add an ",
  12418. 1882.93 s [opt-env-conf-test] functionChunk "argument",
  12419. 1882.93 s [opt-env-conf-test] ", ",
  12420. 1882.93 s [opt-env-conf-test] functionChunk "switch",
  12421. 1882.93 s [opt-env-conf-test] ", ",
  12422. 1882.93 s [opt-env-conf-test] functionChunk "option",
  12423. 1882.93 s [opt-env-conf-test] ", ",
  12424. 1882.93 s [opt-env-conf-test] functionChunk "env",
  12425. 1882.93 s [opt-env-conf-test] ", ",
  12426. 1882.93 s [opt-env-conf-test] functionChunk "conf",
  12427. 1882.93 s [opt-env-conf-test] ", or ",
  12428. 1882.93 s [opt-env-conf-test] functionChunk "value",
  12429. 1882.93 s [opt-env-conf-test] "."
  12430. 1882.93 s [opt-env-conf-test] ]
  12431. 1882.93 s [opt-env-conf-test] ]
  12432. 1882.93 s [opt-env-conf-test] ]
  12433. 1882.93 s [opt-env-conf-test] LintErrorDashInShort ->
  12434. 1882.93 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  12435. 1882.93 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  12436. 1882.93 s [opt-env-conf-test] ]
  12437. 1882.93 s [opt-env-conf-test] LintErrorDashInLong s ->
  12438. 1882.94 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  12439. 1882.94 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  12440. 1882.94 s [opt-env-conf-test] [ "Try ",
  12441. 1882.94 s [opt-env-conf-test] functionChunk "long",
  12442. 1882.94 s [opt-env-conf-test] " ",
  12443. 1882.94 s [opt-env-conf-test] chunk $
  12444. 1882.94 s [opt-env-conf-test] T.pack $
  12445. 1882.94 s [opt-env-conf-test] show $
  12446. 1882.94 s [opt-env-conf-test] let go = \case
  12447. 1882.94 s [opt-env-conf-test] [] -> []
  12448. 1882.94 s [opt-env-conf-test] '-' : cs -> go cs
  12449. 1882.94 s [opt-env-conf-test] c : cs -> c : cs
  12450. 1882.94 s [opt-env-conf-test] in go $ NE.toList s,
  12451. 1882.94 s [opt-env-conf-test] " instead."
  12452. 1882.94 s [opt-env-conf-test] ]
  12453. 1882.94 s [opt-env-conf-test] ]
  12454. 1882.94 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  12455. 1882.94 s [opt-env-conf-test] [ [ functionChunk "argument",
  12456. 1882.94 s [opt-env-conf-test] " has no ",
  12457. 1882.94 s [opt-env-conf-test] functionChunk "reader",
  12458. 1882.94 s [opt-env-conf-test] "."
  12459. 1882.94 s [opt-env-conf-test] ]
  12460. 1882.94 s [opt-env-conf-test] ]
  12461. 1882.94 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  12462. 1882.94 s [opt-env-conf-test] [ [ functionChunk "argument",
  12463. 1882.94 s [opt-env-conf-test] " has no ",
  12464. 1882.94 s [opt-env-conf-test] functionChunk "metavar",
  12465. 1882.94 s [opt-env-conf-test] "."
  12466. 1882.94 s [opt-env-conf-test] ]
  12467. 1882.94 s [opt-env-conf-test] ]
  12468. 1882.94 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  12469. 1882.94 s [opt-env-conf-test] [ [ functionChunk "option",
  12470. 1882.94 s [opt-env-conf-test] " or ",
  12471. 1882.94 s [opt-env-conf-test] functionChunk "name",
  12472. 1882.94 s [opt-env-conf-test] " has no ",
  12473. 1882.94 s [opt-env-conf-test] functionChunk "reader",
  12474. 1882.94 s [opt-env-conf-test] "."
  12475. 1882.94 s [opt-env-conf-test] ]
  12476. 1882.94 s [opt-env-conf-test] ]
  12477. 1882.94 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  12478. 1882.94 s [opt-env-conf-test] [ [ functionChunk "option",
  12479. 1882.94 s [opt-env-conf-test] " has no ",
  12480. 1882.95 s [opt-env-conf-test] functionChunk "long",
  12481. 1882.95 s [opt-env-conf-test] " or ",
  12482. 1882.95 s [opt-env-conf-test] functionChunk "short",
  12483. 1882.95 s [opt-env-conf-test] "."
  12484. 1882.95 s [opt-env-conf-test] ]
  12485. 1882.95 s [opt-env-conf-test] ]
  12486. 1882.95 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  12487. 1882.95 s [opt-env-conf-test] - [ [ functionChunk "option",
  12488. 1882.95 s [opt-env-conf-test] - " or ",
  12489. 1882.95 s [opt-env-conf-test] - functionChunk "name",
  12490. 1882.95 s [opt-env-conf-test] - " has no ",
  12491. 1882.95 s [opt-env-conf-test] - functionChunk "metavar",
  12492. 1882.95 s [opt-env-conf-test] - "."
  12493. 1882.95 s [opt-env-conf-test] - ]
  12494. 1882.95 s [opt-env-conf-test] - ]
  12495. 1882.95 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  12496. 1882.95 s [opt-env-conf-test] [ [ functionChunk "switch",
  12497. 1882.95 s [opt-env-conf-test] " has no ",
  12498. 1882.95 s [opt-env-conf-test] functionChunk "long",
  12499. 1882.95 s [opt-env-conf-test] " or ",
  12500. 1882.95 s [opt-env-conf-test] functionChunk "short",
  12501. 1882.95 s [opt-env-conf-test] "."
  12502. 1882.95 s [opt-env-conf-test] ]
  12503. 1882.95 s [opt-env-conf-test] ]
  12504. 1882.95 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  12505. 1882.95 s [opt-env-conf-test] [ [ functionChunk "long",
  12506. 1882.95 s [opt-env-conf-test] " or ",
  12507. 1882.95 s [opt-env-conf-test] functionChunk "short",
  12508. 1882.95 s [opt-env-conf-test] " has no ",
  12509. 1882.95 s [opt-env-conf-test] functionChunk "option",
  12510. 1882.95 s [opt-env-conf-test] " or ",
  12511. 1882.95 s [opt-env-conf-test] functionChunk "switch",
  12512. 1882.95 s [opt-env-conf-test] "."
  12513. 1882.95 s [opt-env-conf-test] ]
  12514. 1882.95 s [opt-env-conf-test] ]
  12515. 1882.95 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  12516. 1882.95 s [opt-env-conf-test] [ [ functionChunk "env",
  12517. 1882.95 s [opt-env-conf-test] " or ",
  12518. 1882.95 s [opt-env-conf-test] functionChunk "name",
  12519. 1882.95 s [opt-env-conf-test] " has no ",
  12520. 1882.95 s [opt-env-conf-test] functionChunk "reader",
  12521. 1882.95 s [opt-env-conf-test] "."
  12522. 1882.95 s [opt-env-conf-test] ]
  12523. 1882.95 s [opt-env-conf-test] ]
  12524. 1882.95 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  12525. 1882.95 s [opt-env-conf-test] [ [ functionChunk "env",
  12526. 1882.95 s [opt-env-conf-test] " or ",
  12527. 1882.95 s [opt-env-conf-test] functionChunk "name",
  12528. 1882.95 s [opt-env-conf-test] " has no ",
  12529. 1882.95 s [opt-env-conf-test] functionChunk "metavar",
  12530. 1882.95 s [opt-env-conf-test] "."
  12531. 1882.95 s [opt-env-conf-test] ]
  12532. 1882.95 s [opt-env-conf-test] ]
  12533. 1882.95 s [opt-env-conf-test] LintErrorNoCommands ->
  12534. 1883.65 s [opt-env-conf-test] [ [ functionChunk "commands",
  12535. 1883.65 s [opt-env-conf-test] " was called with an empty list."
  12536. 1883.65 s [opt-env-conf-test] ]
  12537. 1883.65 s [opt-env-conf-test] ]
  12538. 1883.65 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  12539. 1883.65 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  12540. 1883.65 s [opt-env-conf-test] " was called with an unknown command: ",
  12541. 1883.65 s [opt-env-conf-test] commandChunk c
  12542. 1883.65 s [opt-env-conf-test] ]
  12543. 1883.65 s [opt-env-conf-test] ]
  12544. 1883.65 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  12545. 1883.65 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  12546. 1883.65 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  12547. 1883.65 s [opt-env-conf-test] ]
  12548. 1883.65 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  12549. 1883.65 s [opt-env-conf-test] [ [ functionChunk "conf",
  12550. 1883.65 s [opt-env-conf-test] " or ",
  12551. 1883.65 s [opt-env-conf-test] functionChunk "name",
  12552. 1883.65 s [opt-env-conf-test] " was called with no way to load configuration."
  12553. 1883.65 s [opt-env-conf-test] ],
  12554. 1883.65 s [opt-env-conf-test] [ "You can load configuration with ",
  12555. 1883.65 s [opt-env-conf-test] functionChunk "withConfig",
  12556. 1883.65 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  12557. 1883.65 s [opt-env-conf-test] functionChunk "withoutConfig",
  12558. 1883.65 s [opt-env-conf-test] "."
  12559. 1883.65 s [opt-env-conf-test] ]
  12560. 1883.65 s [opt-env-conf-test] ]
  12561. 1883.65 s [opt-env-conf-test] LintErrorManyInfinite ->
  12562. 1883.65 s [opt-env-conf-test] [ [ functionChunk "many",
  12563. 1883.65 s [opt-env-conf-test] " or ",
  12564. 1883.65 s [opt-env-conf-test] functionChunk "some",
  12565. 1883.65 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  12566. 1883.65 s [opt-env-conf-test] ],
  12567. 1883.65 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  12568. 1883.65 s [opt-env-conf-test] ],
  12569. 1883.65 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  12570. 1883.65 s [opt-env-conf-test] ]
  12571. 1883.66 s [opt-env-conf-test]
  12572. 1883.66 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  12573. 1883.66 s [opt-env-conf-test] @@ -66,168 +66,157 @@
  12574. 1883.66 s [opt-env-conf-test] renderLintError LintError {..} =
  12575. 1883.66 s [opt-env-conf-test] concat
  12576. 1883.66 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  12577. 1883.66 s [opt-env-conf-test] case lintErrorMessage of
  12578. 1883.66 s [opt-env-conf-test] LintErrorUndocumented ->
  12579. 1883.66 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  12580. 1883.66 s [opt-env-conf-test] LintErrorEmptySetting ->
  12581. 1883.66 s [opt-env-conf-test] concat
  12582. 1883.66 s [opt-env-conf-test] [ [ [ "This ",
  12583. 1883.66 s [opt-env-conf-test] functionChunk "setting",
  12584. 1883.66 s [opt-env-conf-test] " parses nothing."
  12585. 1883.66 s [opt-env-conf-test] ]
  12586. 1883.66 s [opt-env-conf-test] ],
  12587. 1883.66 s [opt-env-conf-test] [ [ "Add an ",
  12588. 1883.66 s [opt-env-conf-test] functionChunk "argument",
  12589. 1883.66 s [opt-env-conf-test] ", ",
  12590. 1883.66 s [opt-env-conf-test] functionChunk "switch",
  12591. 1883.66 s [opt-env-conf-test] ", ",
  12592. 1883.66 s [opt-env-conf-test] functionChunk "option",
  12593. 1883.66 s [opt-env-conf-test] ", ",
  12594. 1883.66 s [opt-env-conf-test] functionChunk "env",
  12595. 1883.66 s [opt-env-conf-test] ", ",
  12596. 1883.66 s [opt-env-conf-test] functionChunk "conf",
  12597. 1883.66 s [opt-env-conf-test] ", or ",
  12598. 1883.66 s [opt-env-conf-test] functionChunk "value",
  12599. 1883.66 s [opt-env-conf-test] "."
  12600. 1883.66 s [opt-env-conf-test] ]
  12601. 1883.66 s [opt-env-conf-test] ]
  12602. 1883.66 s [opt-env-conf-test] ]
  12603. 1883.66 s [opt-env-conf-test] LintErrorDashInShort ->
  12604. 1883.66 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  12605. 1883.66 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  12606. 1883.66 s [opt-env-conf-test] ]
  12607. 1883.66 s [opt-env-conf-test] LintErrorDashInLong s ->
  12608. 1883.66 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  12609. 1883.66 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  12610. 1883.66 s [opt-env-conf-test] [ "Try ",
  12611. 1883.66 s [opt-env-conf-test] functionChunk "long",
  12612. 1883.66 s [opt-env-conf-test] " ",
  12613. 1883.66 s [opt-env-conf-test] chunk $
  12614. 1883.66 s [opt-env-conf-test] T.pack $
  12615. 1883.66 s [opt-env-conf-test] show $
  12616. 1883.66 s [opt-env-conf-test] let go = \case
  12617. 1883.66 s [opt-env-conf-test] [] -> []
  12618. 1883.66 s [opt-env-conf-test] '-' : cs -> go cs
  12619. 1883.66 s [opt-env-conf-test] c : cs -> c : cs
  12620. 1883.66 s [opt-env-conf-test] in go $ NE.toList s,
  12621. 1883.66 s [opt-env-conf-test] " instead."
  12622. 1883.66 s [opt-env-conf-test] ]
  12623. 1883.66 s [opt-env-conf-test] ]
  12624. 1883.66 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  12625. 1883.66 s [opt-env-conf-test] [ [ functionChunk "argument",
  12626. 1883.66 s [opt-env-conf-test] " has no ",
  12627. 1883.66 s [opt-env-conf-test] functionChunk "reader",
  12628. 1883.66 s [opt-env-conf-test] "."
  12629. 1883.66 s [opt-env-conf-test] ]
  12630. 1883.66 s [opt-env-conf-test] ]
  12631. 1883.66 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  12632. 1883.66 s [opt-env-conf-test] [ [ functionChunk "argument",
  12633. 1883.66 s [opt-env-conf-test] " has no ",
  12634. 1883.66 s [opt-env-conf-test] functionChunk "metavar",
  12635. 1883.66 s [opt-env-conf-test] "."
  12636. 1883.66 s [opt-env-conf-test] ]
  12637. 1883.66 s [opt-env-conf-test] ]
  12638. 1883.66 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  12639. 1883.66 s [opt-env-conf-test] [ [ functionChunk "option",
  12640. 1883.66 s [opt-env-conf-test] " or ",
  12641. 1883.66 s [opt-env-conf-test] functionChunk "name",
  12642. 1883.66 s [opt-env-conf-test] " has no ",
  12643. 1883.66 s [opt-env-conf-test] functionChunk "reader",
  12644. 1883.66 s [opt-env-conf-test] "."
  12645. 1883.66 s [opt-env-conf-test] ]
  12646. 1883.66 s [opt-env-conf-test] ]
  12647. 1883.66 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  12648. 1883.66 s [opt-env-conf-test] [ [ functionChunk "option",
  12649. 1883.66 s [opt-env-conf-test] " has no ",
  12650. 1883.66 s [opt-env-conf-test] functionChunk "long",
  12651. 1883.66 s [opt-env-conf-test] " or ",
  12652. 1883.66 s [opt-env-conf-test] functionChunk "short",
  12653. 1883.66 s [opt-env-conf-test] "."
  12654. 1883.66 s [opt-env-conf-test] ]
  12655. 1883.66 s [opt-env-conf-test] ]
  12656. 1883.66 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  12657. 1883.67 s [opt-env-conf-test] [ [ functionChunk "option",
  12658. 1883.67 s [opt-env-conf-test] " or ",
  12659. 1883.67 s [opt-env-conf-test] functionChunk "name",
  12660. 1883.67 s [opt-env-conf-test] " has no ",
  12661. 1883.67 s [opt-env-conf-test] functionChunk "metavar",
  12662. 1883.67 s [opt-env-conf-test] "."
  12663. 1883.67 s [opt-env-conf-test] ]
  12664. 1883.67 s [opt-env-conf-test] ]
  12665. 1883.67 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  12666. 1883.67 s [opt-env-conf-test] [ [ functionChunk "switch",
  12667. 1883.67 s [opt-env-conf-test] " has no ",
  12668. 1883.67 s [opt-env-conf-test] functionChunk "long",
  12669. 1883.67 s [opt-env-conf-test] " or ",
  12670. 1883.67 s [opt-env-conf-test] functionChunk "short",
  12671. 1883.67 s [opt-env-conf-test] "."
  12672. 1883.67 s [opt-env-conf-test] ]
  12673. 1883.67 s [opt-env-conf-test] ]
  12674. 1883.67 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  12675. 1883.67 s [opt-env-conf-test] - [ [ functionChunk "long",
  12676. 1883.67 s [opt-env-conf-test] - " or ",
  12677. 1883.67 s [opt-env-conf-test] - functionChunk "short",
  12678. 1883.67 s [opt-env-conf-test] - " has no ",
  12679. 1883.67 s [opt-env-conf-test] - functionChunk "option",
  12680. 1883.67 s [opt-env-conf-test] - " or ",
  12681. 1883.67 s [opt-env-conf-test] - functionChunk "switch",
  12682. 1883.67 s [opt-env-conf-test] - "."
  12683. 1883.67 s [opt-env-conf-test] - ]
  12684. 1883.67 s [opt-env-conf-test] - ]
  12685. 1883.67 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  12686. 1883.67 s [opt-env-conf-test] [ [ functionChunk "env",
  12687. 1883.67 s [opt-env-conf-test] " or ",
  12688. 1883.67 s [opt-env-conf-test] functionChunk "name",
  12689. 1883.67 s [opt-env-conf-test] " has no ",
  12690. 1883.67 s [opt-env-conf-test] functionChunk "reader",
  12691. 1883.67 s [opt-env-conf-test] "."
  12692. 1883.67 s [opt-env-conf-test] ]
  12693. 1883.67 s [opt-env-conf-test] ]
  12694. 1883.67 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  12695. 1883.67 s [opt-env-conf-test] [ [ functionChunk "env",
  12696. 1883.67 s [opt-env-conf-test] " or ",
  12697. 1883.67 s [opt-env-conf-test] functionChunk "name",
  12698. 1883.67 s [opt-env-conf-test] " has no ",
  12699. 1883.67 s [opt-env-conf-test] functionChunk "metavar",
  12700. 1883.67 s [opt-env-conf-test] "."
  12701. 1883.67 s [opt-env-conf-test] ]
  12702. 1883.67 s [opt-env-conf-test] ]
  12703. 1883.67 s [opt-env-conf-test] LintErrorNoCommands ->
  12704. 1883.67 s [opt-env-conf-test] [ [ functionChunk "commands",
  12705. 1883.67 s [opt-env-conf-test] " was called with an empty list."
  12706. 1883.67 s [opt-env-conf-test] ]
  12707. 1883.67 s [opt-env-conf-test] ]
  12708. 1883.67 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  12709. 1883.67 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  12710. 1883.67 s [opt-env-conf-test] " was called with an unknown command: ",
  12711. 1883.67 s [opt-env-conf-test] commandChunk c
  12712. 1883.67 s [opt-env-conf-test] ]
  12713. 1883.67 s [opt-env-conf-test] ]
  12714. 1883.67 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  12715. 1883.67 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  12716. 1883.67 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  12717. 1883.67 s [opt-env-conf-test] ]
  12718. 1883.67 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  12719. 1883.67 s [opt-env-conf-test] [ [ functionChunk "conf",
  12720. 1883.67 s [opt-env-conf-test] " or ",
  12721. 1883.67 s [opt-env-conf-test] functionChunk "name",
  12722. 1883.67 s [opt-env-conf-test] " was called with no way to load configuration."
  12723. 1883.67 s [opt-env-conf-test] ],
  12724. 1883.67 s [opt-env-conf-test] [ "You can load configuration with ",
  12725. 1883.67 s [opt-env-conf-test] functionChunk "withConfig",
  12726. 1883.67 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  12727. 1883.67 s [opt-env-conf-test] functionChunk "withoutConfig",
  12728. 1883.67 s [opt-env-conf-test] "."
  12729. 1883.68 s [opt-env-conf-test] ]
  12730. 1883.68 s [opt-env-conf-test] ]
  12731. 1883.68 s [opt-env-conf-test] LintErrorManyInfinite ->
  12732. 1883.68 s [opt-env-conf-test] [ [ functionChunk "many",
  12733. 1883.68 s [opt-env-conf-test] " or ",
  12734. 1883.68 s [opt-env-conf-test] functionChunk "some",
  12735. 1883.68 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  12736. 1883.68 s [opt-env-conf-test] ],
  12737. 1883.68 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  12738. 1883.68 s [opt-env-conf-test] ],
  12739. 1883.68 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  12740. 1883.68 s [opt-env-conf-test] ]
  12741. 1883.68 s [opt-env-conf-test]
  12742. 1883.68 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  12743. 1883.68 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  12744. 1883.68 s [opt-env-conf-test] renderLintError LintError {..} =
  12745. 1883.68 s [opt-env-conf-test] concat
  12746. 1883.68 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  12747. 1883.68 s [opt-env-conf-test] case lintErrorMessage of
  12748. 1883.68 s [opt-env-conf-test] LintErrorUndocumented ->
  12749. 1883.68 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  12750. 1883.68 s [opt-env-conf-test] LintErrorEmptySetting ->
  12751. 1883.68 s [opt-env-conf-test] concat
  12752. 1883.68 s [opt-env-conf-test] [ [ [ "This ",
  12753. 1883.68 s [opt-env-conf-test] functionChunk "setting",
  12754. 1883.68 s [opt-env-conf-test] " parses nothing."
  12755. 1883.68 s [opt-env-conf-test] ]
  12756. 1883.68 s [opt-env-conf-test] ],
  12757. 1883.68 s [opt-env-conf-test] [ [ "Add an ",
  12758. 1883.68 s [opt-env-conf-test] functionChunk "argument",
  12759. 1883.68 s [opt-env-conf-test] ", ",
  12760. 1883.68 s [opt-env-conf-test] functionChunk "switch",
  12761. 1883.68 s [opt-env-conf-test] ", ",
  12762. 1883.68 s [opt-env-conf-test] functionChunk "option",
  12763. 1883.68 s [opt-env-conf-test] ", ",
  12764. 1883.68 s [opt-env-conf-test] functionChunk "env",
  12765. 1883.68 s [opt-env-conf-test] ", ",
  12766. 1883.68 s [opt-env-conf-test] functionChunk "conf",
  12767. 1883.68 s [opt-env-conf-test] ", or ",
  12768. 1883.68 s [opt-env-conf-test] functionChunk "value",
  12769. 1883.68 s [opt-env-conf-test] "."
  12770. 1883.68 s [opt-env-conf-test] ]
  12771. 1883.68 s [opt-env-conf-test] ]
  12772. 1883.68 s [opt-env-conf-test] ]
  12773. 1883.68 s [opt-env-conf-test] LintErrorDashInShort ->
  12774. 1883.68 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  12775. 1883.68 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  12776. 1883.68 s [opt-env-conf-test] ]
  12777. 1883.68 s [opt-env-conf-test] LintErrorDashInLong s ->
  12778. 1883.68 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  12779. 1883.68 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  12780. 1883.68 s [opt-env-conf-test] [ "Try ",
  12781. 1883.68 s [opt-env-conf-test] functionChunk "long",
  12782. 1883.68 s [opt-env-conf-test] " ",
  12783. 1883.68 s [opt-env-conf-test] chunk $
  12784. 1883.68 s [opt-env-conf-test] T.pack $
  12785. 1883.68 s [opt-env-conf-test] show $
  12786. 1883.68 s [opt-env-conf-test] let go = \case
  12787. 1883.68 s [opt-env-conf-test] [] -> []
  12788. 1883.68 s [opt-env-conf-test] '-' : cs -> go cs
  12789. 1883.68 s [opt-env-conf-test] c : cs -> c : cs
  12790. 1883.68 s [opt-env-conf-test] in go $ NE.toList s,
  12791. 1883.68 s [opt-env-conf-test] " instead."
  12792. 1883.68 s [opt-env-conf-test] ]
  12793. 1883.68 s [opt-env-conf-test] ]
  12794. 1883.68 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  12795. 1883.68 s [opt-env-conf-test] [ [ functionChunk "argument",
  12796. 1883.68 s [opt-env-conf-test] " has no ",
  12797. 1883.68 s [opt-env-conf-test] functionChunk "reader",
  12798. 1883.68 s [opt-env-conf-test] "."
  12799. 1883.68 s [opt-env-conf-test] ]
  12800. 1883.69 s [opt-env-conf-test] ]
  12801. 1883.69 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  12802. 1883.69 s [opt-env-conf-test] [ [ functionChunk "argument",
  12803. 1883.69 s [opt-env-conf-test] " has no ",
  12804. 1883.69 s [opt-env-conf-test] functionChunk "metavar",
  12805. 1883.69 s [opt-env-conf-test] "."
  12806. 1883.69 s [opt-env-conf-test] ]
  12807. 1883.69 s [opt-env-conf-test] ]
  12808. 1883.69 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  12809. 1883.69 s [opt-env-conf-test] [ [ functionChunk "option",
  12810. 1883.69 s [opt-env-conf-test] " or ",
  12811. 1883.69 s [opt-env-conf-test] functionChunk "name",
  12812. 1883.69 s [opt-env-conf-test] " has no ",
  12813. 1883.69 s [opt-env-conf-test] functionChunk "reader",
  12814. 1883.69 s [opt-env-conf-test] "."
  12815. 1883.69 s [opt-env-conf-test] ]
  12816. 1883.69 s [opt-env-conf-test] ]
  12817. 1883.69 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  12818. 1883.69 s [opt-env-conf-test] [ [ functionChunk "option",
  12819. 1883.69 s [opt-env-conf-test] " has no ",
  12820. 1883.69 s [opt-env-conf-test] functionChunk "long",
  12821. 1883.69 s [opt-env-conf-test] " or ",
  12822. 1883.69 s [opt-env-conf-test] functionChunk "short",
  12823. 1883.69 s [opt-env-conf-test] "."
  12824. 1883.69 s [opt-env-conf-test] ]
  12825. 1883.69 s [opt-env-conf-test] ]
  12826. 1883.69 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  12827. 1883.69 s [opt-env-conf-test] [ [ functionChunk "option",
  12828. 1883.69 s [opt-env-conf-test] " or ",
  12829. 1883.69 s [opt-env-conf-test] functionChunk "name",
  12830. 1883.69 s [opt-env-conf-test] " has no ",
  12831. 1883.69 s [opt-env-conf-test] functionChunk "metavar",
  12832. 1883.69 s [opt-env-conf-test] "."
  12833. 1883.69 s [opt-env-conf-test] ]
  12834. 1883.69 s [opt-env-conf-test] ]
  12835. 1883.69 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  12836. 1883.69 s [opt-env-conf-test] [ [ functionChunk "switch",
  12837. 1883.69 s [opt-env-conf-test] " has no ",
  12838. 1883.69 s [opt-env-conf-test] functionChunk "long",
  12839. 1883.69 s [opt-env-conf-test] " or ",
  12840. 1883.69 s [opt-env-conf-test] functionChunk "short",
  12841. 1883.69 s [opt-env-conf-test] "."
  12842. 1883.69 s [opt-env-conf-test] ]
  12843. 1883.69 s [opt-env-conf-test] ]
  12844. 1883.69 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  12845. 1883.69 s [opt-env-conf-test] [ [ functionChunk "long",
  12846. 1883.69 s [opt-env-conf-test] " or ",
  12847. 1883.69 s [opt-env-conf-test] functionChunk "short",
  12848. 1883.69 s [opt-env-conf-test] " has no ",
  12849. 1883.69 s [opt-env-conf-test] functionChunk "option",
  12850. 1883.69 s [opt-env-conf-test] " or ",
  12851. 1883.69 s [opt-env-conf-test] functionChunk "switch",
  12852. 1883.69 s [opt-env-conf-test] "."
  12853. 1883.69 s [opt-env-conf-test] ]
  12854. 1883.69 s [opt-env-conf-test] ]
  12855. 1883.69 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  12856. 1883.69 s [opt-env-conf-test] - [ [ functionChunk "env",
  12857. 1883.69 s [opt-env-conf-test] - " or ",
  12858. 1883.69 s [opt-env-conf-test] - functionChunk "name",
  12859. 1883.69 s [opt-env-conf-test] - " has no ",
  12860. 1883.69 s [opt-env-conf-test] - functionChunk "reader",
  12861. 1883.69 s [opt-env-conf-test] - "."
  12862. 1883.69 s [opt-env-conf-test] - ]
  12863. 1883.69 s [opt-env-conf-test] - ]
  12864. 1883.69 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  12865. 1883.69 s [opt-env-conf-test] [ [ functionChunk "env",
  12866. 1883.69 s [opt-env-conf-test] " or ",
  12867. 1883.69 s [opt-env-conf-test] functionChunk "name",
  12868. 1883.69 s [opt-env-conf-test] " has no ",
  12869. 1883.69 s [opt-env-conf-test] functionChunk "metavar",
  12870. 1883.69 s [opt-env-conf-test] "."
  12871. 1883.69 s [opt-env-conf-test] ]
  12872. 1883.70 s [opt-env-conf-test] ]
  12873. 1883.70 s [opt-env-conf-test] LintErrorNoCommands ->
  12874. 1883.91 s [opt-env-conf-test] [ [ functionChunk "commands",
  12875. 1883.91 s [opt-env-conf-test] " was called with an empty list."
  12876. 1883.91 s [opt-env-conf-test] ]
  12877. 1883.91 s [opt-env-conf-test] ]
  12878. 1883.91 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  12879. 1883.91 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  12880. 1883.91 s [opt-env-conf-test] " was called with an unknown command: ",
  12881. 1883.91 s [opt-env-conf-test] commandChunk c
  12882. 1883.91 s [opt-env-conf-test] ]
  12883. 1883.91 s [opt-env-conf-test] ]
  12884. 1883.91 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  12885. 1883.91 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  12886. 1883.92 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  12887. 1883.92 s [opt-env-conf-test] ]
  12888. 1883.92 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  12889. 1883.92 s [opt-env-conf-test] [ [ functionChunk "conf",
  12890. 1883.92 s [opt-env-conf-test] " or ",
  12891. 1883.92 s [opt-env-conf-test] functionChunk "name",
  12892. 1883.92 s [opt-env-conf-test] " was called with no way to load configuration."
  12893. 1883.92 s [opt-env-conf-test] ],
  12894. 1883.92 s [opt-env-conf-test] [ "You can load configuration with ",
  12895. 1883.92 s [opt-env-conf-test] functionChunk "withConfig",
  12896. 1883.92 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  12897. 1883.92 s [opt-env-conf-test] functionChunk "withoutConfig",
  12898. 1883.92 s [opt-env-conf-test] "."
  12899. 1883.92 s [opt-env-conf-test] ]
  12900. 1883.92 s [opt-env-conf-test] ]
  12901. 1883.92 s [opt-env-conf-test] LintErrorManyInfinite ->
  12902. 1883.92 s [opt-env-conf-test] [ [ functionChunk "many",
  12903. 1883.92 s [opt-env-conf-test] " or ",
  12904. 1883.92 s [opt-env-conf-test] functionChunk "some",
  12905. 1883.92 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  12906. 1883.92 s [opt-env-conf-test] ],
  12907. 1883.92 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  12908. 1883.92 s [opt-env-conf-test] ],
  12909. 1883.92 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  12910. 1883.92 s [opt-env-conf-test] ]
  12911. 1883.92 s [opt-env-conf-test]
  12912. 1883.92 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  12913. 1883.92 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  12914. 1883.92 s [opt-env-conf-test] renderLintError LintError {..} =
  12915. 1883.92 s [opt-env-conf-test] concat
  12916. 1883.92 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  12917. 1883.92 s [opt-env-conf-test] case lintErrorMessage of
  12918. 1883.92 s [opt-env-conf-test] LintErrorUndocumented ->
  12919. 1883.93 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  12920. 1883.93 s [opt-env-conf-test] LintErrorEmptySetting ->
  12921. 1883.93 s [opt-env-conf-test] concat
  12922. 1883.93 s [opt-env-conf-test] [ [ [ "This ",
  12923. 1883.93 s [opt-env-conf-test] functionChunk "setting",
  12924. 1883.93 s [opt-env-conf-test] " parses nothing."
  12925. 1883.93 s [opt-env-conf-test] ]
  12926. 1883.93 s [opt-env-conf-test] ],
  12927. 1883.93 s [opt-env-conf-test] [ [ "Add an ",
  12928. 1883.93 s [opt-env-conf-test] functionChunk "argument",
  12929. 1883.93 s [opt-env-conf-test] ", ",
  12930. 1883.93 s [opt-env-conf-test] functionChunk "switch",
  12931. 1883.93 s [opt-env-conf-test] ", ",
  12932. 1883.93 s [opt-env-conf-test] functionChunk "option",
  12933. 1883.93 s [opt-env-conf-test] ", ",
  12934. 1883.93 s [opt-env-conf-test] functionChunk "env",
  12935. 1883.93 s [opt-env-conf-test] ", ",
  12936. 1883.93 s [opt-env-conf-test] functionChunk "conf",
  12937. 1883.93 s [opt-env-conf-test] ", or ",
  12938. 1883.93 s [opt-env-conf-test] functionChunk "value",
  12939. 1883.93 s [opt-env-conf-test] "."
  12940. 1883.93 s [opt-env-conf-test] ]
  12941. 1883.93 s [opt-env-conf-test] ]
  12942. 1883.93 s [opt-env-conf-test] ]
  12943. 1883.93 s [opt-env-conf-test] LintErrorDashInShort ->
  12944. 1883.93 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  12945. 1883.93 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  12946. 1883.93 s [opt-env-conf-test] ]
  12947. 1883.93 s [opt-env-conf-test] LintErrorDashInLong s ->
  12948. 1883.93 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  12949. 1883.93 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  12950. 1883.93 s [opt-env-conf-test] [ "Try ",
  12951. 1883.93 s [opt-env-conf-test] functionChunk "long",
  12952. 1883.93 s [opt-env-conf-test] " ",
  12953. 1883.93 s [opt-env-conf-test] chunk $
  12954. 1883.93 s [opt-env-conf-test] T.pack $
  12955. 1883.93 s [opt-env-conf-test] show $
  12956. 1883.93 s [opt-env-conf-test] let go = \case
  12957. 1883.93 s [opt-env-conf-test] [] -> []
  12958. 1883.93 s [opt-env-conf-test] '-' : cs -> go cs
  12959. 1883.93 s [opt-env-conf-test] c : cs -> c : cs
  12960. 1883.93 s [opt-env-conf-test] in go $ NE.toList s,
  12961. 1883.93 s [opt-env-conf-test] " instead."
  12962. 1883.93 s [opt-env-conf-test] ]
  12963. 1883.93 s [opt-env-conf-test] ]
  12964. 1883.93 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  12965. 1883.93 s [opt-env-conf-test] [ [ functionChunk "argument",
  12966. 1883.93 s [opt-env-conf-test] " has no ",
  12967. 1883.93 s [opt-env-conf-test] functionChunk "reader",
  12968. 1883.93 s [opt-env-conf-test] "."
  12969. 1883.93 s [opt-env-conf-test] ]
  12970. 1883.93 s [opt-env-conf-test] ]
  12971. 1883.93 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  12972. 1883.93 s [opt-env-conf-test] [ [ functionChunk "argument",
  12973. 1883.93 s [opt-env-conf-test] " has no ",
  12974. 1883.93 s [opt-env-conf-test] functionChunk "metavar",
  12975. 1883.94 s [opt-env-conf-test] "."
  12976. 1883.94 s [opt-env-conf-test] ]
  12977. 1883.94 s [opt-env-conf-test] ]
  12978. 1883.94 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  12979. 1883.94 s [opt-env-conf-test] [ [ functionChunk "option",
  12980. 1883.94 s [opt-env-conf-test] " or ",
  12981. 1883.94 s [opt-env-conf-test] functionChunk "name",
  12982. 1883.94 s [opt-env-conf-test] " has no ",
  12983. 1883.94 s [opt-env-conf-test] functionChunk "reader",
  12984. 1883.94 s [opt-env-conf-test] "."
  12985. 1883.94 s [opt-env-conf-test] ]
  12986. 1883.94 s [opt-env-conf-test] ]
  12987. 1883.94 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  12988. 1883.94 s [opt-env-conf-test] [ [ functionChunk "option",
  12989. 1883.94 s [opt-env-conf-test] " has no ",
  12990. 1883.94 s [opt-env-conf-test] functionChunk "long",
  12991. 1883.94 s [opt-env-conf-test] " or ",
  12992. 1883.94 s [opt-env-conf-test] functionChunk "short",
  12993. 1883.94 s [opt-env-conf-test] "."
  12994. 1883.94 s [opt-env-conf-test] ]
  12995. 1883.94 s [opt-env-conf-test] ]
  12996. 1883.94 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  12997. 1883.94 s [opt-env-conf-test] [ [ functionChunk "option",
  12998. 1883.94 s [opt-env-conf-test] " or ",
  12999. 1883.94 s [opt-env-conf-test] functionChunk "name",
  13000. 1883.94 s [opt-env-conf-test] " has no ",
  13001. 1883.94 s [opt-env-conf-test] functionChunk "metavar",
  13002. 1883.94 s [opt-env-conf-test] "."
  13003. 1883.94 s [opt-env-conf-test] ]
  13004. 1883.94 s [opt-env-conf-test] ]
  13005. 1883.94 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  13006. 1883.94 s [opt-env-conf-test] [ [ functionChunk "switch",
  13007. 1883.94 s [opt-env-conf-test] " has no ",
  13008. 1883.94 s [opt-env-conf-test] functionChunk "long",
  13009. 1883.94 s [opt-env-conf-test] " or ",
  13010. 1883.94 s [opt-env-conf-test] functionChunk "short",
  13011. 1883.94 s [opt-env-conf-test] "."
  13012. 1883.94 s [opt-env-conf-test] ]
  13013. 1883.94 s [opt-env-conf-test] ]
  13014. 1883.94 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  13015. 1883.94 s [opt-env-conf-test] [ [ functionChunk "long",
  13016. 1883.94 s [opt-env-conf-test] " or ",
  13017. 1883.94 s [opt-env-conf-test] functionChunk "short",
  13018. 1883.94 s [opt-env-conf-test] " has no ",
  13019. 1883.94 s [opt-env-conf-test] functionChunk "option",
  13020. 1883.94 s [opt-env-conf-test] " or ",
  13021. 1883.94 s [opt-env-conf-test] functionChunk "switch",
  13022. 1883.94 s [opt-env-conf-test] "."
  13023. 1883.94 s [opt-env-conf-test] ]
  13024. 1883.94 s [opt-env-conf-test] ]
  13025. 1883.94 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  13026. 1883.94 s [opt-env-conf-test] [ [ functionChunk "env",
  13027. 1883.94 s [opt-env-conf-test] " or ",
  13028. 1883.94 s [opt-env-conf-test] functionChunk "name",
  13029. 1883.94 s [opt-env-conf-test] " has no ",
  13030. 1883.94 s [opt-env-conf-test] functionChunk "reader",
  13031. 1883.94 s [opt-env-conf-test] "."
  13032. 1883.94 s [opt-env-conf-test] ]
  13033. 1883.94 s [opt-env-conf-test] ]
  13034. 1883.95 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  13035. 1883.95 s [opt-env-conf-test] - [ [ functionChunk "env",
  13036. 1883.95 s [opt-env-conf-test] - " or ",
  13037. 1883.95 s [opt-env-conf-test] - functionChunk "name",
  13038. 1883.95 s [opt-env-conf-test] - " has no ",
  13039. 1883.95 s [opt-env-conf-test] - functionChunk "metavar",
  13040. 1883.95 s [opt-env-conf-test] - "."
  13041. 1883.95 s [opt-env-conf-test] - ]
  13042. 1883.95 s [opt-env-conf-test] - ]
  13043. 1883.95 s [opt-env-conf-test] LintErrorNoCommands ->
  13044. 1883.99 s [opt-env-conf-test] [ [ functionChunk "commands",
  13045. 1883.99 s [opt-env-conf-test] " was called with an empty list."
  13046. 1883.99 s [opt-env-conf-test] ]
  13047. 1883.99 s [opt-env-conf-test] ]
  13048. 1883.99 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  13049. 1883.99 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  13050. 1883.99 s [opt-env-conf-test] " was called with an unknown command: ",
  13051. 1883.99 s [opt-env-conf-test] commandChunk c
  13052. 1883.99 s [opt-env-conf-test] ]
  13053. 1883.99 s [opt-env-conf-test] ]
  13054. 1883.99 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  13055. 1883.99 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  13056. 1883.99 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  13057. 1883.99 s [opt-env-conf-test] ]
  13058. 1883.99 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  13059. 1883.99 s [opt-env-conf-test] [ [ functionChunk "conf",
  13060. 1883.99 s [opt-env-conf-test] " or ",
  13061. 1883.99 s [opt-env-conf-test] functionChunk "name",
  13062. 1883.99 s [opt-env-conf-test] " was called with no way to load configuration."
  13063. 1883.99 s [opt-env-conf-test] ],
  13064. 1883.99 s [opt-env-conf-test] [ "You can load configuration with ",
  13065. 1883.99 s [opt-env-conf-test] functionChunk "withConfig",
  13066. 1883.99 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  13067. 1883.99 s [opt-env-conf-test] functionChunk "withoutConfig",
  13068. 1883.99 s [opt-env-conf-test] "."
  13069. 1883.99 s [opt-env-conf-test] ]
  13070. 1884.00 s [opt-env-conf-test] ]
  13071. 1884.00 s [opt-env-conf-test] LintErrorManyInfinite ->
  13072. 1884.00 s [opt-env-conf-test] [ [ functionChunk "many",
  13073. 1884.00 s [opt-env-conf-test] " or ",
  13074. 1884.00 s [opt-env-conf-test] functionChunk "some",
  13075. 1884.00 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  13076. 1884.00 s [opt-env-conf-test] ],
  13077. 1884.00 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  13078. 1884.00 s [opt-env-conf-test] ],
  13079. 1884.00 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  13080. 1884.00 s [opt-env-conf-test] ]
  13081. 1884.00 s [opt-env-conf-test]
  13082. 1884.00 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  13083. 1884.00 s [opt-env-conf-test] @@ -66,168 +66,164 @@
  13084. 1884.00 s [opt-env-conf-test] renderLintError LintError {..} =
  13085. 1884.00 s [opt-env-conf-test] concat
  13086. 1884.00 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  13087. 1884.00 s [opt-env-conf-test] case lintErrorMessage of
  13088. 1884.00 s [opt-env-conf-test] LintErrorUndocumented ->
  13089. 1884.00 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  13090. 1884.00 s [opt-env-conf-test] LintErrorEmptySetting ->
  13091. 1884.00 s [opt-env-conf-test] concat
  13092. 1884.00 s [opt-env-conf-test] [ [ [ "This ",
  13093. 1884.00 s [opt-env-conf-test] functionChunk "setting",
  13094. 1884.00 s [opt-env-conf-test] " parses nothing."
  13095. 1884.00 s [opt-env-conf-test] ]
  13096. 1884.00 s [opt-env-conf-test] ],
  13097. 1884.00 s [opt-env-conf-test] [ [ "Add an ",
  13098. 1884.00 s [opt-env-conf-test] functionChunk "argument",
  13099. 1884.00 s [opt-env-conf-test] ", ",
  13100. 1884.00 s [opt-env-conf-test] functionChunk "switch",
  13101. 1884.00 s [opt-env-conf-test] ", ",
  13102. 1884.00 s [opt-env-conf-test] functionChunk "option",
  13103. 1884.00 s [opt-env-conf-test] ", ",
  13104. 1884.00 s [opt-env-conf-test] functionChunk "env",
  13105. 1884.00 s [opt-env-conf-test] ", ",
  13106. 1884.00 s [opt-env-conf-test] functionChunk "conf",
  13107. 1884.00 s [opt-env-conf-test] ", or ",
  13108. 1884.00 s [opt-env-conf-test] functionChunk "value",
  13109. 1884.00 s [opt-env-conf-test] "."
  13110. 1884.01 s [opt-env-conf-test] ]
  13111. 1884.01 s [opt-env-conf-test] ]
  13112. 1884.01 s [opt-env-conf-test] ]
  13113. 1884.01 s [opt-env-conf-test] - LintErrorDashInShort ->
  13114. 1884.01 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  13115. 1884.01 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  13116. 1884.01 s [opt-env-conf-test] - ]
  13117. 1884.01 s [opt-env-conf-test] LintErrorDashInLong s ->
  13118. 1884.01 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  13119. 1884.01 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  13120. 1884.01 s [opt-env-conf-test] [ "Try ",
  13121. 1884.01 s [opt-env-conf-test] functionChunk "long",
  13122. 1884.01 s [opt-env-conf-test] " ",
  13123. 1884.01 s [opt-env-conf-test] chunk $
  13124. 1884.01 s [opt-env-conf-test] T.pack $
  13125. 1884.01 s [opt-env-conf-test] show $
  13126. 1884.01 s [opt-env-conf-test] let go = \case
  13127. 1884.01 s [opt-env-conf-test] [] -> []
  13128. 1884.01 s [opt-env-conf-test] '-' : cs -> go cs
  13129. 1884.01 s [opt-env-conf-test] c : cs -> c : cs
  13130. 1884.01 s [opt-env-conf-test] in go $ NE.toList s,
  13131. 1884.01 s [opt-env-conf-test] " instead."
  13132. 1884.01 s [opt-env-conf-test] ]
  13133. 1884.01 s [opt-env-conf-test] ]
  13134. 1884.01 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  13135. 1884.01 s [opt-env-conf-test] [ [ functionChunk "argument",
  13136. 1884.01 s [opt-env-conf-test] " has no ",
  13137. 1884.01 s [opt-env-conf-test] functionChunk "reader",
  13138. 1884.01 s [opt-env-conf-test] "."
  13139. 1884.01 s [opt-env-conf-test] ]
  13140. 1884.01 s [opt-env-conf-test] ]
  13141. 1884.01 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  13142. 1884.01 s [opt-env-conf-test] [ [ functionChunk "argument",
  13143. 1884.01 s [opt-env-conf-test] " has no ",
  13144. 1884.01 s [opt-env-conf-test] functionChunk "metavar",
  13145. 1884.01 s [opt-env-conf-test] "."
  13146. 1884.01 s [opt-env-conf-test] ]
  13147. 1884.01 s [opt-env-conf-test] ]
  13148. 1884.01 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  13149. 1884.01 s [opt-env-conf-test] [ [ functionChunk "option",
  13150. 1884.01 s [opt-env-conf-test] " or ",
  13151. 1884.01 s [opt-env-conf-test] functionChunk "name",
  13152. 1884.01 s [opt-env-conf-test] " has no ",
  13153. 1884.01 s [opt-env-conf-test] functionChunk "reader",
  13154. 1884.01 s [opt-env-conf-test] "."
  13155. 1884.01 s [opt-env-conf-test] ]
  13156. 1884.01 s [opt-env-conf-test] ]
  13157. 1884.01 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  13158. 1884.01 s [opt-env-conf-test] [ [ functionChunk "option",
  13159. 1884.01 s [opt-env-conf-test] " has no ",
  13160. 1884.01 s [opt-env-conf-test] functionChunk "long",
  13161. 1884.01 s [opt-env-conf-test] " or ",
  13162. 1884.01 s [opt-env-conf-test] functionChunk "short",
  13163. 1884.01 s [opt-env-conf-test] "."
  13164. 1884.01 s [opt-env-conf-test] ]
  13165. 1884.02 s [opt-env-conf-test] ]
  13166. 1884.02 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  13167. 1884.02 s [opt-env-conf-test] [ [ functionChunk "option",
  13168. 1884.02 s [opt-env-conf-test] " or ",
  13169. 1884.02 s [opt-env-conf-test] functionChunk "name",
  13170. 1884.02 s [opt-env-conf-test] " has no ",
  13171. 1884.02 s [opt-env-conf-test] functionChunk "metavar",
  13172. 1884.02 s [opt-env-conf-test] "."
  13173. 1884.02 s [opt-env-conf-test] ]
  13174. 1884.02 s [opt-env-conf-test] ]
  13175. 1884.02 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  13176. 1884.02 s [opt-env-conf-test] [ [ functionChunk "switch",
  13177. 1884.02 s [opt-env-conf-test] " has no ",
  13178. 1884.02 s [opt-env-conf-test] functionChunk "long",
  13179. 1884.02 s [opt-env-conf-test] " or ",
  13180. 1884.02 s [opt-env-conf-test] functionChunk "short",
  13181. 1884.02 s [opt-env-conf-test] "."
  13182. 1884.02 s [opt-env-conf-test] ]
  13183. 1884.02 s [opt-env-conf-test] ]
  13184. 1884.02 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  13185. 1884.02 s [opt-env-conf-test] [ [ functionChunk "long",
  13186. 1884.02 s [opt-env-conf-test] " or ",
  13187. 1884.02 s [opt-env-conf-test] functionChunk "short",
  13188. 1884.02 s [opt-env-conf-test] " has no ",
  13189. 1884.02 s [opt-env-conf-test] functionChunk "option",
  13190. 1884.02 s [opt-env-conf-test] " or ",
  13191. 1884.02 s [opt-env-conf-test] functionChunk "switch",
  13192. 1884.02 s [opt-env-conf-test] "."
  13193. 1884.02 s [opt-env-conf-test] ]
  13194. 1884.02 s [opt-env-conf-test] ]
  13195. 1884.02 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  13196. 1884.02 s [opt-env-conf-test] [ [ functionChunk "env",
  13197. 1884.02 s [opt-env-conf-test] " or ",
  13198. 1884.02 s [opt-env-conf-test] functionChunk "name",
  13199. 1884.02 s [opt-env-conf-test] " has no ",
  13200. 1884.02 s [opt-env-conf-test] functionChunk "reader",
  13201. 1884.02 s [opt-env-conf-test] "."
  13202. 1884.02 s [opt-env-conf-test] ]
  13203. 1884.02 s [opt-env-conf-test] ]
  13204. 1884.02 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  13205. 1884.02 s [opt-env-conf-test] [ [ functionChunk "env",
  13206. 1884.02 s [opt-env-conf-test] " or ",
  13207. 1884.02 s [opt-env-conf-test] functionChunk "name",
  13208. 1884.02 s [opt-env-conf-test] " has no ",
  13209. 1884.02 s [opt-env-conf-test] functionChunk "metavar",
  13210. 1884.02 s [opt-env-conf-test] "."
  13211. 1884.02 s [opt-env-conf-test] ]
  13212. 1884.02 s [opt-env-conf-test] ]
  13213. 1884.02 s [opt-env-conf-test] LintErrorNoCommands ->
  13214. 1884.02 s [opt-env-conf-test] [ [ functionChunk "commands",
  13215. 1884.65 s [opt-env-conf-test] " was called with an empty list."
  13216. 1884.65 s [opt-env-conf-test] ]
  13217. 1884.65 s [opt-env-conf-test] ]
  13218. 1884.81 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  13219. 1884.81 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  13220. 1884.81 s [opt-env-conf-test] " was called with an unknown command: ",
  13221. 1884.81 s [opt-env-conf-test] commandChunk c
  13222. 1884.81 s [opt-env-conf-test] ]
  13223. 1884.81 s [opt-env-conf-test] ]
  13224. 1884.81 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  13225. 1884.81 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  13226. 1884.81 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  13227. 1884.81 s [opt-env-conf-test] ]
  13228. 1884.81 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  13229. 1884.82 s [opt-env-conf-test] [ [ functionChunk "conf",
  13230. 1884.82 s [opt-env-conf-test] " or ",
  13231. 1884.82 s [opt-env-conf-test] functionChunk "name",
  13232. 1884.82 s [opt-env-conf-test] " was called with no way to load configuration."
  13233. 1884.82 s [opt-env-conf-test] ],
  13234. 1884.82 s [opt-env-conf-test] [ "You can load configuration with ",
  13235. 1884.82 s [opt-env-conf-test] functionChunk "withConfig",
  13236. 1884.82 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  13237. 1884.82 s [opt-env-conf-test] functionChunk "withoutConfig",
  13238. 1884.82 s [opt-env-conf-test] "."
  13239. 1884.82 s [opt-env-conf-test] ]
  13240. 1884.82 s [opt-env-conf-test] ]
  13241. 1884.82 s [opt-env-conf-test] LintErrorManyInfinite ->
  13242. 1884.82 s [opt-env-conf-test] [ [ functionChunk "many",
  13243. 1884.82 s [opt-env-conf-test] " or ",
  13244. 1884.82 s [opt-env-conf-test] functionChunk "some",
  13245. 1884.82 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  13246. 1884.82 s [opt-env-conf-test] ],
  13247. 1884.82 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  13248. 1884.82 s [opt-env-conf-test] ],
  13249. 1884.82 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  13250. 1884.82 s [opt-env-conf-test] ]
  13251. 1884.82 s [opt-env-conf-test]
  13252. 1884.82 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  13253. 1884.82 s [opt-env-conf-test] @@ -66,168 +66,162 @@
  13254. 1884.82 s [opt-env-conf-test] renderLintError LintError {..} =
  13255. 1884.82 s [opt-env-conf-test] concat
  13256. 1884.82 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  13257. 1884.82 s [opt-env-conf-test] case lintErrorMessage of
  13258. 1884.82 s [opt-env-conf-test] LintErrorUndocumented ->
  13259. 1884.82 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  13260. 1884.82 s [opt-env-conf-test] LintErrorEmptySetting ->
  13261. 1884.82 s [opt-env-conf-test] concat
  13262. 1884.82 s [opt-env-conf-test] [ [ [ "This ",
  13263. 1884.82 s [opt-env-conf-test] functionChunk "setting",
  13264. 1884.83 s [opt-env-conf-test] " parses nothing."
  13265. 1884.83 s [opt-env-conf-test] ]
  13266. 1884.83 s [opt-env-conf-test] ],
  13267. 1884.83 s [opt-env-conf-test] [ [ "Add an ",
  13268. 1884.83 s [opt-env-conf-test] functionChunk "argument",
  13269. 1884.83 s [opt-env-conf-test] ", ",
  13270. 1884.83 s [opt-env-conf-test] functionChunk "switch",
  13271. 1884.83 s [opt-env-conf-test] ", ",
  13272. 1884.83 s [opt-env-conf-test] functionChunk "option",
  13273. 1884.83 s [opt-env-conf-test] ", ",
  13274. 1884.83 s [opt-env-conf-test] functionChunk "env",
  13275. 1884.83 s [opt-env-conf-test] ", ",
  13276. 1884.83 s [opt-env-conf-test] functionChunk "conf",
  13277. 1884.83 s [opt-env-conf-test] ", or ",
  13278. 1884.83 s [opt-env-conf-test] functionChunk "value",
  13279. 1884.83 s [opt-env-conf-test] "."
  13280. 1884.83 s [opt-env-conf-test] ]
  13281. 1884.83 s [opt-env-conf-test] ]
  13282. 1884.83 s [opt-env-conf-test] ]
  13283. 1884.83 s [opt-env-conf-test] LintErrorDashInShort ->
  13284. 1884.83 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  13285. 1884.83 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  13286. 1884.83 s [opt-env-conf-test] ]
  13287. 1884.83 s [opt-env-conf-test] LintErrorDashInLong s ->
  13288. 1884.83 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  13289. 1884.83 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  13290. 1884.83 s [opt-env-conf-test] [ "Try ",
  13291. 1884.83 s [opt-env-conf-test] functionChunk "long",
  13292. 1884.83 s [opt-env-conf-test] " ",
  13293. 1884.83 s [opt-env-conf-test] chunk $
  13294. 1884.83 s [opt-env-conf-test] T.pack $
  13295. 1884.83 s [opt-env-conf-test] show $
  13296. 1884.83 s [opt-env-conf-test] let go = \case
  13297. 1884.83 s [opt-env-conf-test] [] -> []
  13298. 1884.83 s [opt-env-conf-test] '-' : cs -> go cs
  13299. 1884.83 s [opt-env-conf-test] c : cs -> c : cs
  13300. 1884.83 s [opt-env-conf-test] in go $ NE.toList s,
  13301. 1884.83 s [opt-env-conf-test] " instead."
  13302. 1884.83 s [opt-env-conf-test] ]
  13303. 1884.83 s [opt-env-conf-test] ]
  13304. 1884.83 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  13305. 1884.83 s [opt-env-conf-test] [ [ functionChunk "argument",
  13306. 1884.83 s [opt-env-conf-test] " has no ",
  13307. 1884.83 s [opt-env-conf-test] functionChunk "reader",
  13308. 1884.83 s [opt-env-conf-test] "."
  13309. 1884.83 s [opt-env-conf-test] ]
  13310. 1884.83 s [opt-env-conf-test] ]
  13311. 1884.83 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  13312. 1884.83 s [opt-env-conf-test] [ [ functionChunk "argument",
  13313. 1884.83 s [opt-env-conf-test] " has no ",
  13314. 1884.83 s [opt-env-conf-test] functionChunk "metavar",
  13315. 1884.83 s [opt-env-conf-test] "."
  13316. 1884.84 s [opt-env-conf-test] ]
  13317. 1884.84 s [opt-env-conf-test] ]
  13318. 1884.84 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  13319. 1884.84 s [opt-env-conf-test] [ [ functionChunk "option",
  13320. 1884.84 s [opt-env-conf-test] " or ",
  13321. 1884.84 s [opt-env-conf-test] functionChunk "name",
  13322. 1884.84 s [opt-env-conf-test] " has no ",
  13323. 1884.84 s [opt-env-conf-test] functionChunk "reader",
  13324. 1884.84 s [opt-env-conf-test] "."
  13325. 1884.84 s [opt-env-conf-test] ]
  13326. 1884.84 s [opt-env-conf-test] ]
  13327. 1884.84 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  13328. 1884.84 s [opt-env-conf-test] [ [ functionChunk "option",
  13329. 1884.84 s [opt-env-conf-test] " has no ",
  13330. 1884.84 s [opt-env-conf-test] functionChunk "long",
  13331. 1884.84 s [opt-env-conf-test] " or ",
  13332. 1884.84 s [opt-env-conf-test] functionChunk "short",
  13333. 1884.84 s [opt-env-conf-test] "."
  13334. 1884.84 s [opt-env-conf-test] ]
  13335. 1884.84 s [opt-env-conf-test] ]
  13336. 1884.84 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  13337. 1884.84 s [opt-env-conf-test] [ [ functionChunk "option",
  13338. 1884.84 s [opt-env-conf-test] " or ",
  13339. 1884.84 s [opt-env-conf-test] functionChunk "name",
  13340. 1884.84 s [opt-env-conf-test] " has no ",
  13341. 1884.84 s [opt-env-conf-test] functionChunk "metavar",
  13342. 1884.84 s [opt-env-conf-test] "."
  13343. 1884.84 s [opt-env-conf-test] ]
  13344. 1884.84 s [opt-env-conf-test] ]
  13345. 1884.84 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  13346. 1884.84 s [opt-env-conf-test] [ [ functionChunk "switch",
  13347. 1884.84 s [opt-env-conf-test] " has no ",
  13348. 1884.84 s [opt-env-conf-test] functionChunk "long",
  13349. 1884.84 s [opt-env-conf-test] " or ",
  13350. 1884.84 s [opt-env-conf-test] functionChunk "short",
  13351. 1884.84 s [opt-env-conf-test] "."
  13352. 1884.84 s [opt-env-conf-test] ]
  13353. 1884.84 s [opt-env-conf-test] ]
  13354. 1884.84 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  13355. 1884.84 s [opt-env-conf-test] [ [ functionChunk "long",
  13356. 1884.84 s [opt-env-conf-test] " or ",
  13357. 1884.84 s [opt-env-conf-test] functionChunk "short",
  13358. 1884.84 s [opt-env-conf-test] " has no ",
  13359. 1884.84 s [opt-env-conf-test] functionChunk "option",
  13360. 1884.84 s [opt-env-conf-test] " or ",
  13361. 1884.84 s [opt-env-conf-test] functionChunk "switch",
  13362. 1884.84 s [opt-env-conf-test] "."
  13363. 1884.84 s [opt-env-conf-test] ]
  13364. 1884.84 s [opt-env-conf-test] ]
  13365. 1884.84 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  13366. 1884.84 s [opt-env-conf-test] [ [ functionChunk "env",
  13367. 1884.84 s [opt-env-conf-test] " or ",
  13368. 1884.84 s [opt-env-conf-test] functionChunk "name",
  13369. 1884.84 s [opt-env-conf-test] " has no ",
  13370. 1884.84 s [opt-env-conf-test] functionChunk "reader",
  13371. 1884.84 s [opt-env-conf-test] "."
  13372. 1884.84 s [opt-env-conf-test] ]
  13373. 1884.84 s [opt-env-conf-test] ]
  13374. 1884.84 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  13375. 1884.84 s [opt-env-conf-test] [ [ functionChunk "env",
  13376. 1884.84 s [opt-env-conf-test] " or ",
  13377. 1884.84 s [opt-env-conf-test] functionChunk "name",
  13378. 1884.84 s [opt-env-conf-test] " has no ",
  13379. 1884.84 s [opt-env-conf-test] functionChunk "metavar",
  13380. 1884.84 s [opt-env-conf-test] "."
  13381. 1884.84 s [opt-env-conf-test] ]
  13382. 1884.85 s [opt-env-conf-test] ]
  13383. 1884.85 s [opt-env-conf-test] LintErrorNoCommands ->
  13384. 1884.85 s [opt-env-conf-test] [ [ functionChunk "commands",
  13385. 1884.85 s [opt-env-conf-test] " was called with an empty list."
  13386. 1886.15 s [opt-env-conf-test] - ]
  13387. 1886.15 s [opt-env-conf-test] - ]
  13388. 1886.15 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  13389. 1886.15 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  13390. 1886.15 s [opt-env-conf-test] - " was called with an unknown command: ",
  13391. 1886.15 s [opt-env-conf-test] - commandChunk c
  13392. 1886.15 s [opt-env-conf-test] ]
  13393. 1886.15 s [opt-env-conf-test] ]
  13394. 1886.15 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  13395. 1886.15 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  13396. 1886.15 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  13397. 1886.15 s [opt-env-conf-test] ]
  13398. 1886.15 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  13399. 1886.15 s [opt-env-conf-test] [ [ functionChunk "conf",
  13400. 1886.15 s [opt-env-conf-test] " or ",
  13401. 1886.15 s [opt-env-conf-test] functionChunk "name",
  13402. 1886.15 s [opt-env-conf-test] " was called with no way to load configuration."
  13403. 1886.15 s [opt-env-conf-test] ],
  13404. 1886.15 s [opt-env-conf-test] [ "You can load configuration with ",
  13405. 1886.15 s [opt-env-conf-test] functionChunk "withConfig",
  13406. 1886.15 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  13407. 1886.15 s [opt-env-conf-test] functionChunk "withoutConfig",
  13408. 1886.15 s [opt-env-conf-test] "."
  13409. 1886.15 s [opt-env-conf-test] ]
  13410. 1886.15 s [opt-env-conf-test] ]
  13411. 1886.15 s [opt-env-conf-test] LintErrorManyInfinite ->
  13412. 1886.15 s [opt-env-conf-test] [ [ functionChunk "many",
  13413. 1886.16 s [opt-env-conf-test] " or ",
  13414. 1886.16 s [opt-env-conf-test] functionChunk "some",
  13415. 1886.16 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  13416. 1886.16 s [opt-env-conf-test] ],
  13417. 1886.16 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  13418. 1886.16 s [opt-env-conf-test] ],
  13419. 1886.16 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  13420. 1886.16 s [opt-env-conf-test] ]
  13421. 1886.16 s [opt-env-conf-test]
  13422. 1886.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
  13423. 1886.16 s [opt-env-conf-test] @@ -59,9 +59,8 @@
  13424. 1886.16 s [opt-env-conf-test] --
  13425. 1886.16 s [opt-env-conf-test] -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
  13426. 1886.16 s [opt-env-conf-test] auto :: (Read a) => Reader a
  13427. 1886.16 s [opt-env-conf-test] auto = Reader $ \s -> case readMaybe s of
  13428. 1886.16 s [opt-env-conf-test] Nothing -> Left $ "Un-Read-able value: " <> show s
  13429. 1886.16 s [opt-env-conf-test] - Just a -> Right a
  13430. 1886.16 s [opt-env-conf-test]
  13431. 1886.16 s [opt-env-conf-test] -- | Always return True
  13432. 1886.16 s [opt-env-conf-test] --
  13433. 1886.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  13434. 1886.16 s [opt-env-conf-test] @@ -66,168 +66,145 @@
  13435. 1886.16 s [opt-env-conf-test] renderLintError LintError {..} =
  13436. 1886.16 s [opt-env-conf-test] concat
  13437. 1886.16 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  13438. 1886.16 s [opt-env-conf-test] case lintErrorMessage of
  13439. 1886.16 s [opt-env-conf-test] LintErrorUndocumented ->
  13440. 1886.16 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  13441. 1886.16 s [opt-env-conf-test] - LintErrorEmptySetting ->
  13442. 1886.16 s [opt-env-conf-test] - concat
  13443. 1886.16 s [opt-env-conf-test] - [ [ [ "This ",
  13444. 1886.16 s [opt-env-conf-test] - functionChunk "setting",
  13445. 1886.16 s [opt-env-conf-test] - " parses nothing."
  13446. 1886.16 s [opt-env-conf-test] - ]
  13447. 1886.16 s [opt-env-conf-test] - ],
  13448. 1886.16 s [opt-env-conf-test] - [ [ "Add an ",
  13449. 1886.16 s [opt-env-conf-test] - functionChunk "argument",
  13450. 1886.16 s [opt-env-conf-test] - ", ",
  13451. 1886.16 s [opt-env-conf-test] - functionChunk "switch",
  13452. 1886.16 s [opt-env-conf-test] - ", ",
  13453. 1886.16 s [opt-env-conf-test] - functionChunk "option",
  13454. 1886.16 s [opt-env-conf-test] - ", ",
  13455. 1886.16 s [opt-env-conf-test] - functionChunk "env",
  13456. 1886.16 s [opt-env-conf-test] - ", ",
  13457. 1886.16 s [opt-env-conf-test] - functionChunk "conf",
  13458. 1886.16 s [opt-env-conf-test] - ", or ",
  13459. 1886.17 s [opt-env-conf-test] - functionChunk "value",
  13460. 1886.17 s [opt-env-conf-test] - "."
  13461. 1886.17 s [opt-env-conf-test] - ]
  13462. 1886.17 s [opt-env-conf-test] - ]
  13463. 1886.17 s [opt-env-conf-test] - ]
  13464. 1886.17 s [opt-env-conf-test] LintErrorDashInShort ->
  13465. 1886.17 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  13466. 1886.17 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  13467. 1886.17 s [opt-env-conf-test] ]
  13468. 1886.17 s [opt-env-conf-test] LintErrorDashInLong s ->
  13469. 1886.17 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  13470. 1886.17 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  13471. 1886.17 s [opt-env-conf-test] [ "Try ",
  13472. 1886.17 s [opt-env-conf-test] functionChunk "long",
  13473. 1886.17 s [opt-env-conf-test] " ",
  13474. 1886.17 s [opt-env-conf-test] chunk $
  13475. 1886.17 s [opt-env-conf-test] T.pack $
  13476. 1886.17 s [opt-env-conf-test] show $
  13477. 1886.17 s [opt-env-conf-test] let go = \case
  13478. 1886.17 s [opt-env-conf-test] [] -> []
  13479. 1886.17 s [opt-env-conf-test] '-' : cs -> go cs
  13480. 1886.17 s [opt-env-conf-test] c : cs -> c : cs
  13481. 1886.17 s [opt-env-conf-test] in go $ NE.toList s,
  13482. 1886.17 s [opt-env-conf-test] " instead."
  13483. 1886.17 s [opt-env-conf-test] ]
  13484. 1886.17 s [opt-env-conf-test] ]
  13485. 1886.17 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  13486. 1886.17 s [opt-env-conf-test] [ [ functionChunk "argument",
  13487. 1886.17 s [opt-env-conf-test] " has no ",
  13488. 1886.17 s [opt-env-conf-test] functionChunk "reader",
  13489. 1886.17 s [opt-env-conf-test] "."
  13490. 1886.17 s [opt-env-conf-test] ]
  13491. 1886.17 s [opt-env-conf-test] ]
  13492. 1886.17 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  13493. 1886.17 s [opt-env-conf-test] [ [ functionChunk "argument",
  13494. 1886.17 s [opt-env-conf-test] " has no ",
  13495. 1886.17 s [opt-env-conf-test] functionChunk "metavar",
  13496. 1886.17 s [opt-env-conf-test] "."
  13497. 1886.17 s [opt-env-conf-test] ]
  13498. 1886.17 s [opt-env-conf-test] ]
  13499. 1886.17 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  13500. 1886.17 s [opt-env-conf-test] [ [ functionChunk "option",
  13501. 1886.17 s [opt-env-conf-test] " or ",
  13502. 1886.17 s [opt-env-conf-test] functionChunk "name",
  13503. 1886.17 s [opt-env-conf-test] " has no ",
  13504. 1886.17 s [opt-env-conf-test] functionChunk "reader",
  13505. 1886.17 s [opt-env-conf-test] "."
  13506. 1886.18 s [opt-env-conf-test] ]
  13507. 1886.18 s [opt-env-conf-test] ]
  13508. 1886.18 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  13509. 1886.18 s [opt-env-conf-test] [ [ functionChunk "option",
  13510. 1886.18 s [opt-env-conf-test] " has no ",
  13511. 1886.18 s [opt-env-conf-test] functionChunk "long",
  13512. 1886.18 s [opt-env-conf-test] " or ",
  13513. 1886.18 s [opt-env-conf-test] functionChunk "short",
  13514. 1886.18 s [opt-env-conf-test] "."
  13515. 1886.18 s [opt-env-conf-test] ]
  13516. 1886.18 s [opt-env-conf-test] ]
  13517. 1886.18 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  13518. 1886.18 s [opt-env-conf-test] [ [ functionChunk "option",
  13519. 1886.18 s [opt-env-conf-test] " or ",
  13520. 1886.18 s [opt-env-conf-test] functionChunk "name",
  13521. 1886.18 s [opt-env-conf-test] " has no ",
  13522. 1886.18 s [opt-env-conf-test] functionChunk "metavar",
  13523. 1886.18 s [opt-env-conf-test] "."
  13524. 1886.18 s [opt-env-conf-test] ]
  13525. 1886.18 s [opt-env-conf-test] ]
  13526. 1886.18 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  13527. 1886.18 s [opt-env-conf-test] [ [ functionChunk "switch",
  13528. 1886.18 s [opt-env-conf-test] " has no ",
  13529. 1886.18 s [opt-env-conf-test] functionChunk "long",
  13530. 1886.18 s [opt-env-conf-test] " or ",
  13531. 1886.18 s [opt-env-conf-test] functionChunk "short",
  13532. 1886.18 s [opt-env-conf-test] "."
  13533. 1886.18 s [opt-env-conf-test] ]
  13534. 1886.18 s [opt-env-conf-test] ]
  13535. 1886.18 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  13536. 1886.18 s [opt-env-conf-test] [ [ functionChunk "long",
  13537. 1886.18 s [opt-env-conf-test] " or ",
  13538. 1886.18 s [opt-env-conf-test] functionChunk "short",
  13539. 1886.18 s [opt-env-conf-test] " has no ",
  13540. 1886.18 s [opt-env-conf-test] functionChunk "option",
  13541. 1886.18 s [opt-env-conf-test] " or ",
  13542. 1886.18 s [opt-env-conf-test] functionChunk "switch",
  13543. 1886.18 s [opt-env-conf-test] "."
  13544. 1886.18 s [opt-env-conf-test] ]
  13545. 1886.18 s [opt-env-conf-test] ]
  13546. 1886.18 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  13547. 1886.18 s [opt-env-conf-test] [ [ functionChunk "env",
  13548. 1886.18 s [opt-env-conf-test] " or ",
  13549. 1886.18 s [opt-env-conf-test] functionChunk "name",
  13550. 1886.18 s [opt-env-conf-test] " has no ",
  13551. 1886.18 s [opt-env-conf-test] functionChunk "reader",
  13552. 1886.18 s [opt-env-conf-test] "."
  13553. 1886.18 s [opt-env-conf-test] ]
  13554. 1886.18 s [opt-env-conf-test] ]
  13555. 1886.18 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  13556. 1886.18 s [opt-env-conf-test] [ [ functionChunk "env",
  13557. 1886.18 s [opt-env-conf-test] " or ",
  13558. 1886.18 s [opt-env-conf-test] functionChunk "name",
  13559. 1886.18 s [opt-env-conf-test] " has no ",
  13560. 1890.89 s [opt-env-conf-test] functionChunk "metavar",
  13561. 1890.89 s [opt-env-conf-test] "."
  13562. 1890.89 s [opt-env-conf-test] ]
  13563. 1890.96 s [opt-env-conf-test] ]
  13564. 1890.96 s [opt-env-conf-test] LintErrorNoCommands ->
  13565. 1890.96 s [opt-env-conf-test] [ [ functionChunk "commands",
  13566. 1890.96 s [opt-env-conf-test] " was called with an empty list."
  13567. 1890.96 s [opt-env-conf-test] ]
  13568. 1890.96 s [opt-env-conf-test] ]
  13569. 1890.96 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  13570. 1890.96 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  13571. 1890.96 s [opt-env-conf-test] " was called with an unknown command: ",
  13572. 1890.96 s [opt-env-conf-test] commandChunk c
  13573. 1890.96 s [opt-env-conf-test] ]
  13574. 1890.96 s [opt-env-conf-test] ]
  13575. 1890.97 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  13576. 1890.97 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  13577. 1890.97 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  13578. 1890.97 s [opt-env-conf-test] ]
  13579. 1890.97 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  13580. 1890.97 s [opt-env-conf-test] [ [ functionChunk "conf",
  13581. 1890.97 s [opt-env-conf-test] " or ",
  13582. 1890.97 s [opt-env-conf-test] functionChunk "name",
  13583. 1890.97 s [opt-env-conf-test] " was called with no way to load configuration."
  13584. 1890.97 s [opt-env-conf-test] ],
  13585. 1890.97 s [opt-env-conf-test] [ "You can load configuration with ",
  13586. 1890.97 s [opt-env-conf-test] functionChunk "withConfig",
  13587. 1890.97 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  13588. 1890.97 s [opt-env-conf-test] functionChunk "withoutConfig",
  13589. 1890.97 s [opt-env-conf-test] "."
  13590. 1890.97 s [opt-env-conf-test] ]
  13591. 1890.97 s [opt-env-conf-test] ]
  13592. 1890.97 s [opt-env-conf-test] LintErrorManyInfinite ->
  13593. 1890.97 s [opt-env-conf-test] [ [ functionChunk "many",
  13594. 1890.97 s [opt-env-conf-test] " or ",
  13595. 1890.97 s [opt-env-conf-test] functionChunk "some",
  13596. 1890.97 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  13597. 1890.97 s [opt-env-conf-test] ],
  13598. 1890.97 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  13599. 1890.97 s [opt-env-conf-test] ],
  13600. 1890.97 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  13601. 1890.97 s [opt-env-conf-test] ]
  13602. 1890.97 s [opt-env-conf-test]
  13603. 1890.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
  13604. 1890.97 s [opt-env-conf-test] @@ -93,6 +93,5 @@
  13605. 1890.97 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  13606. 1890.97 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  13607. 1890.97 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  13608. 1890.97 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  13609. 1890.97 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  13610. 1890.97 s [opt-env-conf-test] goCommand = go . commandParser
  13611. 1890.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  13612. 1890.97 s [opt-env-conf-test] @@ -91,8 +91,7 @@
  13613. 1890.97 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  13614. 1890.97 s [opt-env-conf-test]
  13615. 1890.97 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  13616. 1890.97 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  13617. 1890.97 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  13618. 1890.97 s [opt-env-conf-test] _ -> OptionTypeOneOf [ot1, ot2]
  13619. 1890.97 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  13620. 1890.97 s [opt-env-conf-test] goCommand = go . commandParser
  13621. 1890.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  13622. 1890.97 s [opt-env-conf-test] @@ -91,8 +91,7 @@
  13623. 1890.97 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  13624. 1890.97 s [opt-env-conf-test]
  13625. 1890.97 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  13626. 1890.97 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  13627. 1890.98 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  13628. 1890.98 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  13629. 1890.98 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  13630. 1890.98 s [opt-env-conf-test] goCommand = go . commandParser
  13631. 1890.98 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Nix.hs:90:47-55
  13632. 1890.98 s [opt-env-conf-test] @@ -87,7 +87,7 @@
  13633. 1890.98 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  13634. 1890.98 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  13635. 1890.98 s [opt-env-conf-test] (Nothing, _) -> o2
  13636. 1890.98 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  13637. 1890.98 s [opt-env-conf-test] + (Just ot1, Nothing) -> o2 {optionType = Nothing}
  13638. 1890.98 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  13639. 1890.98 s [opt-env-conf-test]
  13640. 1890.98 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  13641. 1890.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  13642. 1890.98 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  13643. 1890.98 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  13644. 1890.98 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  13645. 1890.98 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  13646. 1890.98 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  13647. 1890.98 s [opt-env-conf-test] - (Nothing, _) -> o2
  13648. 1890.98 s [opt-env-conf-test] (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  13649. 1890.98 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  13650. 1890.98 s [opt-env-conf-test]
  13651. 1890.98 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  13652. 1890.98 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  13653. 1890.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  13654. 1890.98 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  13655. 1890.98 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  13656. 1890.98 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  13657. 1890.98 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  13658. 1890.98 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  13659. 1890.98 s [opt-env-conf-test] (Nothing, _) -> o2
  13660. 1890.98 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  13661. 1890.98 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  13662. 1890.98 s [opt-env-conf-test]
  13663. 1890.98 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  13664. 1890.98 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  13665. 1890.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  13666. 1890.98 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  13667. 1890.98 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  13668. 1890.98 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  13669. 1890.98 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  13670. 1890.98 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  13671. 1890.98 s [opt-env-conf-test] (Nothing, _) -> o2
  13672. 1890.98 s [opt-env-conf-test] (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  13673. 1890.98 s [opt-env-conf-test] - (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  13674. 1890.98 s [opt-env-conf-test]
  13675. 1890.98 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  13676. 1890.98 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  13677. 1890.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
  13678. 1890.98 s [opt-env-conf-test] @@ -146,13 +146,12 @@
  13679. 1890.98 s [opt-env-conf-test] ]
  13680. 1890.98 s [opt-env-conf-test] ]
  13681. 1890.98 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  13682. 1890.98 s [opt-env-conf-test] - [ [ functionChunk "option",
  13683. 1890.98 s [opt-env-conf-test] " or ",
  13684. 1890.98 s [opt-env-conf-test] functionChunk "name",
  13685. 1890.98 s [opt-env-conf-test] " has no ",
  13686. 1890.98 s [opt-env-conf-test] functionChunk "metavar",
  13687. 1890.98 s [opt-env-conf-test] "."
  13688. 1890.98 s [opt-env-conf-test] ]
  13689. 1890.98 s [opt-env-conf-test] ]
  13690. 1890.98 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  13691. 1890.98 s [opt-env-conf-test] [ [ functionChunk "switch",
  13692. 1890.98 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Nix.hs:85:69-97
  13693. 1890.98 s [opt-env-conf-test] @@ -82,7 +82,7 @@
  13694. 1890.98 s [opt-env-conf-test] in objectCodecNixOptions oc
  13695. 1890.99 s [opt-env-conf-test] Just rest ->
  13696. 1890.99 s [opt-env-conf-test] let m = go' rest
  13697. 1890.99 s [opt-env-conf-test] - in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  13698. 1890.99 s [opt-env-conf-test] + in M.singleton p $ emptyOption {optionType = Nothing}
  13699. 1890.99 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  13700. 1890.99 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  13701. 1890.99 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  13702. 1890.99 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
  13703. 1890.99 s [opt-env-conf-test] @@ -72,17 +72,10 @@
  13704. 1890.99 s [opt-env-conf-test] let codecTups = maybe [] NE.toList (settingConfigVals s)
  13705. 1890.99 s [opt-env-conf-test] in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
  13706. 1890.99 s [opt-env-conf-test] let go' :: NonEmpty Text -> Map Text Option
  13707. 1890.99 s [opt-env-conf-test] go' (p :| ps) = case NE.nonEmpty ps of
  13708. 1890.99 s [opt-env-conf-test] - Nothing ->
  13709. 1890.99 s [opt-env-conf-test] - let oc =
  13710. 1890.99 s [opt-env-conf-test] - maybe
  13711. 1890.99 s [opt-env-conf-test] - (optionalFieldWith' p configValSettingCodec)
  13712. 1890.99 s [opt-env-conf-test] - (optionalFieldWith p configValSettingCodec)
  13713. 1890.99 s [opt-env-conf-test] - (T.pack <$> settingHelp s)
  13714. 1890.99 s [opt-env-conf-test] - in objectCodecNixOptions oc
  13715. 1890.99 s [opt-env-conf-test] Just rest ->
  13716. 1890.99 s [opt-env-conf-test] let m = go' rest
  13717. 1890.99 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  13718. 1890.99 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  13719. 1890.99 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  13720. 1890.99 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  13721. 1891.15 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Reader.hs:70:32-36
  13722. 1891.15 s [opt-env-conf-test] @@ -67,7 +67,7 @@
  13723. 1891.15 s [opt-env-conf-test] --
  13724. 1891.15 s [opt-env-conf-test] -- > exists = Reader $ const $ pure True
  13725. 1891.15 s [opt-env-conf-test] exists :: Reader Bool
  13726. 1891.15 s [opt-env-conf-test] -exists = Reader $ const $ pure True
  13727. 1891.16 s [opt-env-conf-test] +exists = Reader $ const $ pure False
  13728. 1891.16 s [opt-env-conf-test]
  13729. 1891.16 s [opt-env-conf-test] -- | Read a value as if it were specified as a 'String' and parsed via the given 'Codec'.
  13730. 1891.16 s [opt-env-conf-test] viaStringCodec :: (HasCodec a) => Reader a
  13731. 1891.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
  13732. 1891.16 s [opt-env-conf-test] @@ -93,6 +93,5 @@
  13733. 1891.16 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  13734. 1891.16 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  13735. 1891.16 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  13736. 1891.16 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  13737. 1891.16 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  13738. 1891.16 s [opt-env-conf-test] goCommand = go . commandParser
  13739. 1891.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
  13740. 1891.16 s [opt-env-conf-test] @@ -75,9 +75,8 @@
  13741. 1891.16 s [opt-env-conf-test]
  13742. 1891.16 s [opt-env-conf-test] -- | Turn a 'Maybe' parsing function into a 'Reader'
  13743. 1891.16 s [opt-env-conf-test] maybeReader :: (String -> Maybe a) -> Reader a
  13744. 1891.16 s [opt-env-conf-test] maybeReader func = eitherReader $ \s -> case func s of
  13745. 1891.16 s [opt-env-conf-test] - Nothing -> Left $ "Unparseable value: " <> show s
  13746. 1891.16 s [opt-env-conf-test] Just a -> Right a
  13747. 1891.16 s [opt-env-conf-test]
  13748. 1891.16 s [opt-env-conf-test] -- | Turn an 'Either' parsing function into a 'Reader'
  13749. 1891.16 s [opt-env-conf-test] --
  13750. 1891.16 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  13751. 1891.16 s [opt-env-conf-test] @@ -65,171 +65,170 @@
  13752. 1891.16 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  13753. 1891.16 s [opt-env-conf-test] renderLintError LintError {..} =
  13754. 1891.16 s [opt-env-conf-test] concat
  13755. 1891.16 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  13756. 1891.16 s [opt-env-conf-test] case lintErrorMessage of
  13757. 1891.16 s [opt-env-conf-test] LintErrorUndocumented ->
  13758. 1891.16 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  13759. 1891.16 s [opt-env-conf-test] LintErrorEmptySetting ->
  13760. 1891.16 s [opt-env-conf-test] concat
  13761. 1891.16 s [opt-env-conf-test] [ [ [ "This ",
  13762. 1891.16 s [opt-env-conf-test] functionChunk "setting",
  13763. 1891.16 s [opt-env-conf-test] " parses nothing."
  13764. 1891.16 s [opt-env-conf-test] ]
  13765. 1891.16 s [opt-env-conf-test] ],
  13766. 1891.16 s [opt-env-conf-test] [ [ "Add an ",
  13767. 1891.16 s [opt-env-conf-test] functionChunk "argument",
  13768. 1891.16 s [opt-env-conf-test] ", ",
  13769. 1891.17 s [opt-env-conf-test] functionChunk "switch",
  13770. 1891.17 s [opt-env-conf-test] ", ",
  13771. 1891.17 s [opt-env-conf-test] functionChunk "option",
  13772. 1891.17 s [opt-env-conf-test] ", ",
  13773. 1891.17 s [opt-env-conf-test] functionChunk "env",
  13774. 1891.17 s [opt-env-conf-test] ", ",
  13775. 1891.17 s [opt-env-conf-test] functionChunk "conf",
  13776. 1891.17 s [opt-env-conf-test] ", or ",
  13777. 1891.17 s [opt-env-conf-test] functionChunk "value",
  13778. 1891.17 s [opt-env-conf-test] "."
  13779. 1891.17 s [opt-env-conf-test] ]
  13780. 1891.17 s [opt-env-conf-test] ]
  13781. 1891.17 s [opt-env-conf-test] ]
  13782. 1891.17 s [opt-env-conf-test] LintErrorDashInShort ->
  13783. 1891.17 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  13784. 1891.17 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  13785. 1891.17 s [opt-env-conf-test] ]
  13786. 1891.17 s [opt-env-conf-test] LintErrorDashInLong s ->
  13787. 1891.17 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  13788. 1891.17 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  13789. 1891.17 s [opt-env-conf-test] [ "Try ",
  13790. 1891.17 s [opt-env-conf-test] functionChunk "long",
  13791. 1891.17 s [opt-env-conf-test] " ",
  13792. 1891.17 s [opt-env-conf-test] chunk $
  13793. 1891.17 s [opt-env-conf-test] T.pack $
  13794. 1891.17 s [opt-env-conf-test] show $
  13795. 1891.17 s [opt-env-conf-test] let go = \case
  13796. 1891.17 s [opt-env-conf-test] [] -> []
  13797. 1891.17 s [opt-env-conf-test] '-' : cs -> go cs
  13798. 1891.17 s [opt-env-conf-test] c : cs -> c : cs
  13799. 1891.17 s [opt-env-conf-test] in go $ NE.toList s,
  13800. 1891.17 s [opt-env-conf-test] " instead."
  13801. 1891.17 s [opt-env-conf-test] ]
  13802. 1891.17 s [opt-env-conf-test] ]
  13803. 1891.17 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  13804. 1891.17 s [opt-env-conf-test] [ [ functionChunk "argument",
  13805. 1891.17 s [opt-env-conf-test] " has no ",
  13806. 1891.17 s [opt-env-conf-test] functionChunk "reader",
  13807. 1891.17 s [opt-env-conf-test] "."
  13808. 1891.17 s [opt-env-conf-test] ]
  13809. 1891.17 s [opt-env-conf-test] ]
  13810. 1891.17 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  13811. 1891.17 s [opt-env-conf-test] [ [ functionChunk "argument",
  13812. 1891.17 s [opt-env-conf-test] " has no ",
  13813. 1891.17 s [opt-env-conf-test] functionChunk "metavar",
  13814. 1891.17 s [opt-env-conf-test] "."
  13815. 1891.17 s [opt-env-conf-test] ]
  13816. 1891.17 s [opt-env-conf-test] ]
  13817. 1891.17 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  13818. 1891.17 s [opt-env-conf-test] [ [ functionChunk "option",
  13819. 1891.17 s [opt-env-conf-test] " or ",
  13820. 1891.17 s [opt-env-conf-test] functionChunk "name",
  13821. 1891.17 s [opt-env-conf-test] " has no ",
  13822. 1891.17 s [opt-env-conf-test] functionChunk "reader",
  13823. 1891.17 s [opt-env-conf-test] "."
  13824. 1891.17 s [opt-env-conf-test] ]
  13825. 1891.17 s [opt-env-conf-test] ]
  13826. 1891.17 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  13827. 1891.17 s [opt-env-conf-test] [ [ functionChunk "option",
  13828. 1891.17 s [opt-env-conf-test] " has no ",
  13829. 1891.17 s [opt-env-conf-test] functionChunk "long",
  13830. 1891.17 s [opt-env-conf-test] " or ",
  13831. 1891.17 s [opt-env-conf-test] functionChunk "short",
  13832. 1891.17 s [opt-env-conf-test] "."
  13833. 1891.17 s [opt-env-conf-test] ]
  13834. 1891.17 s [opt-env-conf-test] ]
  13835. 1891.17 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  13836. 1891.17 s [opt-env-conf-test] [ [ functionChunk "option",
  13837. 1891.17 s [opt-env-conf-test] " or ",
  13838. 1891.17 s [opt-env-conf-test] functionChunk "name",
  13839. 1891.17 s [opt-env-conf-test] " has no ",
  13840. 1891.17 s [opt-env-conf-test] functionChunk "metavar",
  13841. 1891.17 s [opt-env-conf-test] "."
  13842. 1891.17 s [opt-env-conf-test] ]
  13843. 1891.17 s [opt-env-conf-test] ]
  13844. 1891.17 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  13845. 1891.17 s [opt-env-conf-test] [ [ functionChunk "switch",
  13846. 1891.18 s [opt-env-conf-test] " has no ",
  13847. 1891.18 s [opt-env-conf-test] functionChunk "long",
  13848. 1891.18 s [opt-env-conf-test] " or ",
  13849. 1891.18 s [opt-env-conf-test] functionChunk "short",
  13850. 1891.18 s [opt-env-conf-test] "."
  13851. 1891.18 s [opt-env-conf-test] ]
  13852. 1891.18 s [opt-env-conf-test] ]
  13853. 1891.18 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  13854. 1891.18 s [opt-env-conf-test] [ [ functionChunk "long",
  13855. 1891.18 s [opt-env-conf-test] " or ",
  13856. 1891.18 s [opt-env-conf-test] functionChunk "short",
  13857. 1891.18 s [opt-env-conf-test] " has no ",
  13858. 1891.18 s [opt-env-conf-test] functionChunk "option",
  13859. 1891.18 s [opt-env-conf-test] " or ",
  13860. 1891.18 s [opt-env-conf-test] functionChunk "switch",
  13861. 1891.18 s [opt-env-conf-test] "."
  13862. 1891.18 s [opt-env-conf-test] ]
  13863. 1891.18 s [opt-env-conf-test] ]
  13864. 1891.18 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  13865. 1891.18 s [opt-env-conf-test] [ [ functionChunk "env",
  13866. 1891.18 s [opt-env-conf-test] " or ",
  13867. 1891.18 s [opt-env-conf-test] functionChunk "name",
  13868. 1891.18 s [opt-env-conf-test] " has no ",
  13869. 1891.18 s [opt-env-conf-test] functionChunk "reader",
  13870. 1891.18 s [opt-env-conf-test] "."
  13871. 1891.18 s [opt-env-conf-test] ]
  13872. 1891.18 s [opt-env-conf-test] ]
  13873. 1891.18 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  13874. 1891.18 s [opt-env-conf-test] [ [ functionChunk "env",
  13875. 1891.18 s [opt-env-conf-test] " or ",
  13876. 1891.18 s [opt-env-conf-test] functionChunk "name",
  13877. 1891.18 s [opt-env-conf-test] " has no ",
  13878. 1891.18 s [opt-env-conf-test] functionChunk "metavar",
  13879. 1891.18 s [opt-env-conf-test] "."
  13880. 1891.18 s [opt-env-conf-test] ]
  13881. 1891.18 s [opt-env-conf-test] ]
  13882. 1891.18 s [opt-env-conf-test] LintErrorNoCommands ->
  13883. 1891.18 s [opt-env-conf-test] [ [ functionChunk "commands",
  13884. 1891.74 s [opt-env-conf-test] " was called with an empty list."
  13885. 1891.74 s [opt-env-conf-test] ]
  13886. 1891.74 s [opt-env-conf-test] ]
  13887. 1891.74 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  13888. 1891.74 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  13889. 1891.74 s [opt-env-conf-test] " was called with an unknown command: ",
  13890. 1891.74 s [opt-env-conf-test] commandChunk c
  13891. 1891.74 s [opt-env-conf-test] ]
  13892. 1891.74 s [opt-env-conf-test] ]
  13893. 1891.74 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  13894. 1891.74 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  13895. 1891.74 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  13896. 1891.74 s [opt-env-conf-test] ]
  13897. 1891.74 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  13898. 1891.75 s [opt-env-conf-test] [ [ functionChunk "conf",
  13899. 1891.75 s [opt-env-conf-test] " or ",
  13900. 1891.75 s [opt-env-conf-test] functionChunk "name",
  13901. 1891.75 s [opt-env-conf-test] " was called with no way to load configuration."
  13902. 1891.75 s [opt-env-conf-test] ],
  13903. 1891.75 s [opt-env-conf-test] [ "You can load configuration with ",
  13904. 1891.75 s [opt-env-conf-test] functionChunk "withConfig",
  13905. 1891.75 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  13906. 1891.75 s [opt-env-conf-test] functionChunk "withoutConfig",
  13907. 1891.75 s [opt-env-conf-test] "."
  13908. 1891.75 s [opt-env-conf-test] ]
  13909. 1891.75 s [opt-env-conf-test] ]
  13910. 1891.75 s [opt-env-conf-test] LintErrorManyInfinite ->
  13911. 1891.75 s [opt-env-conf-test] [ [ functionChunk "many",
  13912. 1891.75 s [opt-env-conf-test] " or ",
  13913. 1891.75 s [opt-env-conf-test] functionChunk "some",
  13914. 1891.75 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  13915. 1891.75 s [opt-env-conf-test] ],
  13916. 1891.75 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  13917. 1891.75 s [opt-env-conf-test] ],
  13918. 1891.75 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  13919. 1891.75 s [opt-env-conf-test] ]
  13920. 1891.75 s [opt-env-conf-test]
  13921. 1891.75 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  13922. 1891.75 s [opt-env-conf-test] lintParser =
  13923. 1891.75 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  13924. 1891.75 s [opt-env-conf-test] @@ -65,171 +65,170 @@
  13925. 1891.75 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  13926. 1891.75 s [opt-env-conf-test] renderLintError LintError {..} =
  13927. 1891.75 s [opt-env-conf-test] concat
  13928. 1891.75 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  13929. 1891.75 s [opt-env-conf-test] case lintErrorMessage of
  13930. 1891.75 s [opt-env-conf-test] LintErrorUndocumented ->
  13931. 1891.75 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  13932. 1891.75 s [opt-env-conf-test] LintErrorEmptySetting ->
  13933. 1891.75 s [opt-env-conf-test] concat
  13934. 1891.75 s [opt-env-conf-test] [ [ [ "This ",
  13935. 1891.75 s [opt-env-conf-test] functionChunk "setting",
  13936. 1891.75 s [opt-env-conf-test] " parses nothing."
  13937. 1891.75 s [opt-env-conf-test] ]
  13938. 1891.75 s [opt-env-conf-test] ],
  13939. 1891.75 s [opt-env-conf-test] [ [ "Add an ",
  13940. 1891.75 s [opt-env-conf-test] functionChunk "argument",
  13941. 1891.75 s [opt-env-conf-test] ", ",
  13942. 1891.75 s [opt-env-conf-test] functionChunk "switch",
  13943. 1891.75 s [opt-env-conf-test] ", ",
  13944. 1891.75 s [opt-env-conf-test] functionChunk "option",
  13945. 1891.75 s [opt-env-conf-test] ", ",
  13946. 1891.76 s [opt-env-conf-test] functionChunk "env",
  13947. 1891.76 s [opt-env-conf-test] ", ",
  13948. 1891.76 s [opt-env-conf-test] functionChunk "conf",
  13949. 1891.76 s [opt-env-conf-test] ", or ",
  13950. 1891.76 s [opt-env-conf-test] functionChunk "value",
  13951. 1891.76 s [opt-env-conf-test] "."
  13952. 1891.76 s [opt-env-conf-test] ]
  13953. 1891.76 s [opt-env-conf-test] ]
  13954. 1891.76 s [opt-env-conf-test] ]
  13955. 1891.76 s [opt-env-conf-test] LintErrorDashInShort ->
  13956. 1891.76 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  13957. 1891.76 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  13958. 1891.76 s [opt-env-conf-test] ]
  13959. 1891.76 s [opt-env-conf-test] LintErrorDashInLong s ->
  13960. 1891.76 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  13961. 1891.76 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  13962. 1891.76 s [opt-env-conf-test] [ "Try ",
  13963. 1891.76 s [opt-env-conf-test] functionChunk "long",
  13964. 1891.76 s [opt-env-conf-test] " ",
  13965. 1891.76 s [opt-env-conf-test] chunk $
  13966. 1891.76 s [opt-env-conf-test] T.pack $
  13967. 1891.76 s [opt-env-conf-test] show $
  13968. 1891.76 s [opt-env-conf-test] let go = \case
  13969. 1891.76 s [opt-env-conf-test] [] -> []
  13970. 1891.76 s [opt-env-conf-test] '-' : cs -> go cs
  13971. 1891.76 s [opt-env-conf-test] c : cs -> c : cs
  13972. 1891.76 s [opt-env-conf-test] in go $ NE.toList s,
  13973. 1891.76 s [opt-env-conf-test] " instead."
  13974. 1891.76 s [opt-env-conf-test] ]
  13975. 1891.76 s [opt-env-conf-test] ]
  13976. 1891.76 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  13977. 1891.76 s [opt-env-conf-test] [ [ functionChunk "argument",
  13978. 1891.76 s [opt-env-conf-test] " has no ",
  13979. 1891.76 s [opt-env-conf-test] functionChunk "reader",
  13980. 1891.76 s [opt-env-conf-test] "."
  13981. 1891.76 s [opt-env-conf-test] ]
  13982. 1891.76 s [opt-env-conf-test] ]
  13983. 1891.76 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  13984. 1891.76 s [opt-env-conf-test] [ [ functionChunk "argument",
  13985. 1891.76 s [opt-env-conf-test] " has no ",
  13986. 1891.76 s [opt-env-conf-test] functionChunk "metavar",
  13987. 1891.76 s [opt-env-conf-test] "."
  13988. 1891.76 s [opt-env-conf-test] ]
  13989. 1891.76 s [opt-env-conf-test] ]
  13990. 1891.76 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  13991. 1891.76 s [opt-env-conf-test] [ [ functionChunk "option",
  13992. 1891.76 s [opt-env-conf-test] " or ",
  13993. 1891.76 s [opt-env-conf-test] functionChunk "name",
  13994. 1891.76 s [opt-env-conf-test] " has no ",
  13995. 1891.76 s [opt-env-conf-test] functionChunk "reader",
  13996. 1891.76 s [opt-env-conf-test] "."
  13997. 1891.76 s [opt-env-conf-test] ]
  13998. 1891.76 s [opt-env-conf-test] ]
  13999. 1891.76 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  14000. 1891.76 s [opt-env-conf-test] [ [ functionChunk "option",
  14001. 1891.76 s [opt-env-conf-test] " has no ",
  14002. 1891.76 s [opt-env-conf-test] functionChunk "long",
  14003. 1891.76 s [opt-env-conf-test] " or ",
  14004. 1891.76 s [opt-env-conf-test] functionChunk "short",
  14005. 1891.76 s [opt-env-conf-test] "."
  14006. 1891.77 s [opt-env-conf-test] ]
  14007. 1891.77 s [opt-env-conf-test] ]
  14008. 1891.77 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  14009. 1891.77 s [opt-env-conf-test] [ [ functionChunk "option",
  14010. 1891.77 s [opt-env-conf-test] " or ",
  14011. 1891.77 s [opt-env-conf-test] functionChunk "name",
  14012. 1891.77 s [opt-env-conf-test] " has no ",
  14013. 1891.77 s [opt-env-conf-test] functionChunk "metavar",
  14014. 1891.77 s [opt-env-conf-test] "."
  14015. 1891.77 s [opt-env-conf-test] ]
  14016. 1891.77 s [opt-env-conf-test] ]
  14017. 1891.77 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  14018. 1891.77 s [opt-env-conf-test] [ [ functionChunk "switch",
  14019. 1891.77 s [opt-env-conf-test] " has no ",
  14020. 1891.77 s [opt-env-conf-test] functionChunk "long",
  14021. 1891.77 s [opt-env-conf-test] " or ",
  14022. 1891.77 s [opt-env-conf-test] functionChunk "short",
  14023. 1891.77 s [opt-env-conf-test] "."
  14024. 1891.77 s [opt-env-conf-test] ]
  14025. 1891.77 s [opt-env-conf-test] ]
  14026. 1891.77 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  14027. 1891.77 s [opt-env-conf-test] [ [ functionChunk "long",
  14028. 1891.77 s [opt-env-conf-test] " or ",
  14029. 1891.77 s [opt-env-conf-test] functionChunk "short",
  14030. 1891.77 s [opt-env-conf-test] " has no ",
  14031. 1891.77 s [opt-env-conf-test] functionChunk "option",
  14032. 1891.77 s [opt-env-conf-test] " or ",
  14033. 1891.77 s [opt-env-conf-test] functionChunk "switch",
  14034. 1891.77 s [opt-env-conf-test] "."
  14035. 1891.77 s [opt-env-conf-test] ]
  14036. 1891.77 s [opt-env-conf-test] ]
  14037. 1891.77 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  14038. 1891.77 s [opt-env-conf-test] [ [ functionChunk "env",
  14039. 1891.77 s [opt-env-conf-test] " or ",
  14040. 1891.77 s [opt-env-conf-test] functionChunk "name",
  14041. 1891.77 s [opt-env-conf-test] " has no ",
  14042. 1891.77 s [opt-env-conf-test] functionChunk "reader",
  14043. 1891.77 s [opt-env-conf-test] "."
  14044. 1891.77 s [opt-env-conf-test] ]
  14045. 1891.77 s [opt-env-conf-test] ]
  14046. 1891.77 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  14047. 1891.77 s [opt-env-conf-test] [ [ functionChunk "env",
  14048. 1891.77 s [opt-env-conf-test] " or ",
  14049. 1891.77 s [opt-env-conf-test] functionChunk "name",
  14050. 1891.77 s [opt-env-conf-test] " has no ",
  14051. 1891.77 s [opt-env-conf-test] functionChunk "metavar",
  14052. 1891.77 s [opt-env-conf-test] "."
  14053. 1891.77 s [opt-env-conf-test] ]
  14054. 1891.77 s [opt-env-conf-test] ]
  14055. 1891.77 s [opt-env-conf-test] LintErrorNoCommands ->
  14056. 1891.77 s [opt-env-conf-test] [ [ functionChunk "commands",
  14057. 1891.80 s [opt-env-conf-test] " was called with an empty list."
  14058. 1891.80 s [opt-env-conf-test] ]
  14059. 1891.80 s [opt-env-conf-test] ]
  14060. 1891.80 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  14061. 1891.80 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  14062. 1891.80 s [opt-env-conf-test] " was called with an unknown command: ",
  14063. 1891.80 s [opt-env-conf-test] commandChunk c
  14064. 1891.80 s [opt-env-conf-test] ]
  14065. 1891.80 s [opt-env-conf-test] ]
  14066. 1891.80 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  14067. 1891.80 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  14068. 1891.80 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  14069. 1891.80 s [opt-env-conf-test] ]
  14070. 1891.80 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  14071. 1891.80 s [opt-env-conf-test] [ [ functionChunk "conf",
  14072. 1891.80 s [opt-env-conf-test] " or ",
  14073. 1891.80 s [opt-env-conf-test] functionChunk "name",
  14074. 1891.80 s [opt-env-conf-test] " was called with no way to load configuration."
  14075. 1891.80 s [opt-env-conf-test] ],
  14076. 1891.80 s [opt-env-conf-test] [ "You can load configuration with ",
  14077. 1891.80 s [opt-env-conf-test] functionChunk "withConfig",
  14078. 1891.80 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  14079. 1891.80 s [opt-env-conf-test] functionChunk "withoutConfig",
  14080. 1891.80 s [opt-env-conf-test] "."
  14081. 1891.80 s [opt-env-conf-test] ]
  14082. 1891.80 s [opt-env-conf-test] ]
  14083. 1891.80 s [opt-env-conf-test] LintErrorManyInfinite ->
  14084. 1891.80 s [opt-env-conf-test] [ [ functionChunk "many",
  14085. 1891.80 s [opt-env-conf-test] " or ",
  14086. 1891.80 s [opt-env-conf-test] functionChunk "some",
  14087. 1891.80 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  14088. 1891.80 s [opt-env-conf-test] ],
  14089. 1891.80 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  14090. 1891.81 s [opt-env-conf-test] ],
  14091. 1891.81 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  14092. 1891.81 s [opt-env-conf-test] ]
  14093. 1891.81 s [opt-env-conf-test]
  14094. 1891.81 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  14095. 1891.81 s [opt-env-conf-test] lintParser =
  14096. 1891.81 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
  14097. 1891.81 s [opt-env-conf-test] @@ -65,171 +65,7 @@
  14098. 1891.81 s [opt-env-conf-test] renderLintError :: LintError -> [[Chunk]]
  14099. 1891.81 s [opt-env-conf-test] renderLintError LintError {..} =
  14100. 1891.81 s [opt-env-conf-test] concat
  14101. 1891.81 s [opt-env-conf-test] - [ [[fore red "Invalid Setting:"]],
  14102. 1891.81 s [opt-env-conf-test] - case lintErrorMessage of
  14103. 1891.81 s [opt-env-conf-test] - LintErrorUndocumented ->
  14104. 1891.81 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  14105. 1891.81 s [opt-env-conf-test] - LintErrorEmptySetting ->
  14106. 1891.81 s [opt-env-conf-test] - concat
  14107. 1891.81 s [opt-env-conf-test] - [ [ [ "This ",
  14108. 1891.81 s [opt-env-conf-test] - functionChunk "setting",
  14109. 1891.81 s [opt-env-conf-test] - " parses nothing."
  14110. 1891.81 s [opt-env-conf-test] - ]
  14111. 1891.81 s [opt-env-conf-test] - ],
  14112. 1891.81 s [opt-env-conf-test] - [ [ "Add an ",
  14113. 1891.81 s [opt-env-conf-test] - functionChunk "argument",
  14114. 1891.81 s [opt-env-conf-test] - ", ",
  14115. 1891.81 s [opt-env-conf-test] - functionChunk "switch",
  14116. 1891.81 s [opt-env-conf-test] - ", ",
  14117. 1891.81 s [opt-env-conf-test] - functionChunk "option",
  14118. 1891.81 s [opt-env-conf-test] - ", ",
  14119. 1891.81 s [opt-env-conf-test] - functionChunk "env",
  14120. 1891.81 s [opt-env-conf-test] - ", ",
  14121. 1891.81 s [opt-env-conf-test] - functionChunk "conf",
  14122. 1891.81 s [opt-env-conf-test] - ", or ",
  14123. 1891.81 s [opt-env-conf-test] - functionChunk "value",
  14124. 1891.81 s [opt-env-conf-test] - "."
  14125. 1891.81 s [opt-env-conf-test] - ]
  14126. 1891.81 s [opt-env-conf-test] - ]
  14127. 1891.81 s [opt-env-conf-test] - ]
  14128. 1891.81 s [opt-env-conf-test] - LintErrorDashInShort ->
  14129. 1891.81 s [opt-env-conf-test] - [ [functionChunk "short", " may not contain a '-'."],
  14130. 1891.81 s [opt-env-conf-test] - ["Found ", functionChunk "short", " '-'."]
  14131. 1891.81 s [opt-env-conf-test] - ]
  14132. 1891.81 s [opt-env-conf-test] - LintErrorDashInLong s ->
  14133. 1891.81 s [opt-env-conf-test] - [ [functionChunk "long", " may not start with a '-'."],
  14134. 1891.81 s [opt-env-conf-test] - ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  14135. 1891.81 s [opt-env-conf-test] - [ "Try ",
  14136. 1891.81 s [opt-env-conf-test] - functionChunk "long",
  14137. 1891.81 s [opt-env-conf-test] - " ",
  14138. 1891.81 s [opt-env-conf-test] - chunk $
  14139. 1891.81 s [opt-env-conf-test] - T.pack $
  14140. 1891.81 s [opt-env-conf-test] - show $
  14141. 1891.82 s [opt-env-conf-test] - let go = \case
  14142. 1891.82 s [opt-env-conf-test] - [] -> []
  14143. 1891.82 s [opt-env-conf-test] - '-' : cs -> go cs
  14144. 1891.82 s [opt-env-conf-test] - c : cs -> c : cs
  14145. 1891.82 s [opt-env-conf-test] - in go $ NE.toList s,
  14146. 1891.82 s [opt-env-conf-test] - " instead."
  14147. 1891.82 s [opt-env-conf-test] - ]
  14148. 1891.82 s [opt-env-conf-test] - ]
  14149. 1891.82 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  14150. 1891.82 s [opt-env-conf-test] - [ [ functionChunk "argument",
  14151. 1891.82 s [opt-env-conf-test] - " has no ",
  14152. 1891.82 s [opt-env-conf-test] - functionChunk "reader",
  14153. 1891.82 s [opt-env-conf-test] - "."
  14154. 1891.82 s [opt-env-conf-test] - ]
  14155. 1891.82 s [opt-env-conf-test] - ]
  14156. 1891.82 s [opt-env-conf-test] - LintErrorNoMetavarForArgument ->
  14157. 1891.82 s [opt-env-conf-test] - [ [ functionChunk "argument",
  14158. 1891.82 s [opt-env-conf-test] - " has no ",
  14159. 1891.82 s [opt-env-conf-test] - functionChunk "metavar",
  14160. 1891.82 s [opt-env-conf-test] - "."
  14161. 1891.82 s [opt-env-conf-test] - ]
  14162. 1891.82 s [opt-env-conf-test] - ]
  14163. 1891.82 s [opt-env-conf-test] - LintErrorNoReaderForOption ->
  14164. 1891.82 s [opt-env-conf-test] - [ [ functionChunk "option",
  14165. 1891.82 s [opt-env-conf-test] - " or ",
  14166. 1891.82 s [opt-env-conf-test] - functionChunk "name",
  14167. 1891.82 s [opt-env-conf-test] - " has no ",
  14168. 1891.82 s [opt-env-conf-test] - functionChunk "reader",
  14169. 1891.82 s [opt-env-conf-test] - "."
  14170. 1891.82 s [opt-env-conf-test] - ]
  14171. 1891.82 s [opt-env-conf-test] - ]
  14172. 1891.82 s [opt-env-conf-test] - LintErrorNoDashedForOption ->
  14173. 1891.82 s [opt-env-conf-test] - [ [ functionChunk "option",
  14174. 1891.82 s [opt-env-conf-test] - " has no ",
  14175. 1891.82 s [opt-env-conf-test] - functionChunk "long",
  14176. 1891.82 s [opt-env-conf-test] - " or ",
  14177. 1891.82 s [opt-env-conf-test] - functionChunk "short",
  14178. 1891.82 s [opt-env-conf-test] - "."
  14179. 1891.82 s [opt-env-conf-test] - ]
  14180. 1891.82 s [opt-env-conf-test] - ]
  14181. 1891.82 s [opt-env-conf-test] - LintErrorNoMetavarForOption ->
  14182. 1891.82 s [opt-env-conf-test] - [ [ functionChunk "option",
  14183. 1891.82 s [opt-env-conf-test] - " or ",
  14184. 1891.82 s [opt-env-conf-test] - functionChunk "name",
  14185. 1891.82 s [opt-env-conf-test] - " has no ",
  14186. 1891.82 s [opt-env-conf-test] - functionChunk "metavar",
  14187. 1891.82 s [opt-env-conf-test] - "."
  14188. 1891.82 s [opt-env-conf-test] - ]
  14189. 1891.82 s [opt-env-conf-test] - ]
  14190. 1891.82 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  14191. 1891.82 s [opt-env-conf-test] - [ [ functionChunk "switch",
  14192. 1891.82 s [opt-env-conf-test] - " has no ",
  14193. 1891.82 s [opt-env-conf-test] - functionChunk "long",
  14194. 1891.82 s [opt-env-conf-test] - " or ",
  14195. 1891.82 s [opt-env-conf-test] - functionChunk "short",
  14196. 1891.82 s [opt-env-conf-test] - "."
  14197. 1891.82 s [opt-env-conf-test] - ]
  14198. 1891.82 s [opt-env-conf-test] - ]
  14199. 1891.82 s [opt-env-conf-test] - LintErrorNoOptionOrSwitchForDashed ->
  14200. 1891.82 s [opt-env-conf-test] - [ [ functionChunk "long",
  14201. 1891.82 s [opt-env-conf-test] - " or ",
  14202. 1891.82 s [opt-env-conf-test] - functionChunk "short",
  14203. 1891.82 s [opt-env-conf-test] - " has no ",
  14204. 1891.82 s [opt-env-conf-test] - functionChunk "option",
  14205. 1891.82 s [opt-env-conf-test] - " or ",
  14206. 1891.82 s [opt-env-conf-test] - functionChunk "switch",
  14207. 1891.83 s [opt-env-conf-test] - "."
  14208. 1891.83 s [opt-env-conf-test] - ]
  14209. 1891.83 s [opt-env-conf-test] - ]
  14210. 1891.83 s [opt-env-conf-test] - LintErrorNoReaderForEnvVar ->
  14211. 1891.83 s [opt-env-conf-test] - [ [ functionChunk "env",
  14212. 1891.83 s [opt-env-conf-test] - " or ",
  14213. 1891.83 s [opt-env-conf-test] - functionChunk "name",
  14214. 1891.83 s [opt-env-conf-test] - " has no ",
  14215. 1891.83 s [opt-env-conf-test] - functionChunk "reader",
  14216. 1891.83 s [opt-env-conf-test] - "."
  14217. 1891.83 s [opt-env-conf-test] - ]
  14218. 1891.83 s [opt-env-conf-test] - ]
  14219. 1891.83 s [opt-env-conf-test] - LintErrorNoMetavarForEnvVar ->
  14220. 1891.83 s [opt-env-conf-test] - [ [ functionChunk "env",
  14221. 1891.83 s [opt-env-conf-test] - " or ",
  14222. 1891.83 s [opt-env-conf-test] - functionChunk "name",
  14223. 1891.83 s [opt-env-conf-test] - " has no ",
  14224. 1891.83 s [opt-env-conf-test] - functionChunk "metavar",
  14225. 1891.83 s [opt-env-conf-test] - "."
  14226. 1891.83 s [opt-env-conf-test] - ]
  14227. 1891.83 s [opt-env-conf-test] - ]
  14228. 1891.83 s [opt-env-conf-test] - LintErrorNoCommands ->
  14229. 1891.83 s [opt-env-conf-test] - [ [ functionChunk "commands",
  14230. 1891.83 s [opt-env-conf-test] - " was called with an empty list."
  14231. 1891.83 s [opt-env-conf-test] - ]
  14232. 1891.83 s [opt-env-conf-test] - ]
  14233. 1891.83 s [opt-env-conf-test] - LintErrorUnknownDefaultCommand c ->
  14234. 1891.83 s [opt-env-conf-test] - [ [ functionChunk "defaultCommand",
  14235. 1891.83 s [opt-env-conf-test] - " was called with an unknown command: ",
  14236. 1891.83 s [opt-env-conf-test] - commandChunk c
  14237. 1891.83 s [opt-env-conf-test] - ]
  14238. 1891.83 s [opt-env-conf-test] - ]
  14239. 1891.83 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  14240. 1891.83 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  14241. 1891.83 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  14242. 1891.83 s [opt-env-conf-test] - ]
  14243. 1891.83 s [opt-env-conf-test] - LintErrorConfigWithoutLoad ->
  14244. 1891.83 s [opt-env-conf-test] - [ [ functionChunk "conf",
  14245. 1891.83 s [opt-env-conf-test] - " or ",
  14246. 1891.83 s [opt-env-conf-test] - functionChunk "name",
  14247. 1891.83 s [opt-env-conf-test] - " was called with no way to load configuration."
  14248. 1891.83 s [opt-env-conf-test] - ],
  14249. 1891.83 s [opt-env-conf-test] - [ "You can load configuration with ",
  14250. 1891.83 s [opt-env-conf-test] - functionChunk "withConfig",
  14251. 1891.83 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  14252. 1891.83 s [opt-env-conf-test] - functionChunk "withoutConfig",
  14253. 1891.83 s [opt-env-conf-test] - "."
  14254. 1891.83 s [opt-env-conf-test] - ]
  14255. 1891.83 s [opt-env-conf-test] - ]
  14256. 1891.83 s [opt-env-conf-test] - LintErrorManyInfinite ->
  14257. 1891.83 s [opt-env-conf-test] - [ [ functionChunk "many",
  14258. 1891.83 s [opt-env-conf-test] - " or ",
  14259. 1891.83 s [opt-env-conf-test] - functionChunk "some",
  14260. 1891.83 s [opt-env-conf-test] - " was called with a parser that may succeed without consuming anything."
  14261. 1891.83 s [opt-env-conf-test] - ],
  14262. 1891.83 s [opt-env-conf-test] - ["This is not allowed because the parser would run infinitely."]
  14263. 1891.83 s [opt-env-conf-test] - ],
  14264. 1891.83 s [opt-env-conf-test] - maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  14265. 1891.83 s [opt-env-conf-test] ]
  14266. 1891.83 s [opt-env-conf-test]
  14267. 1891.83 s [opt-env-conf-test] lintParser :: Parser a -> Maybe (NonEmpty LintError)
  14268. 1891.83 s [opt-env-conf-test] lintParser =
  14269. 1891.83 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  14270. 1891.83 s [opt-env-conf-test] @@ -66,168 +66,164 @@
  14271. 1891.83 s [opt-env-conf-test] renderLintError LintError {..} =
  14272. 1891.83 s [opt-env-conf-test] concat
  14273. 1891.83 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  14274. 1891.83 s [opt-env-conf-test] case lintErrorMessage of
  14275. 1891.83 s [opt-env-conf-test] LintErrorUndocumented ->
  14276. 1891.83 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  14277. 1891.83 s [opt-env-conf-test] LintErrorEmptySetting ->
  14278. 1891.83 s [opt-env-conf-test] concat
  14279. 1891.83 s [opt-env-conf-test] [ [ [ "This ",
  14280. 1891.83 s [opt-env-conf-test] functionChunk "setting",
  14281. 1891.83 s [opt-env-conf-test] " parses nothing."
  14282. 1891.83 s [opt-env-conf-test] ]
  14283. 1891.83 s [opt-env-conf-test] ],
  14284. 1891.83 s [opt-env-conf-test] [ [ "Add an ",
  14285. 1891.83 s [opt-env-conf-test] functionChunk "argument",
  14286. 1891.83 s [opt-env-conf-test] ", ",
  14287. 1891.83 s [opt-env-conf-test] functionChunk "switch",
  14288. 1891.83 s [opt-env-conf-test] ", ",
  14289. 1891.83 s [opt-env-conf-test] functionChunk "option",
  14290. 1891.83 s [opt-env-conf-test] ", ",
  14291. 1891.83 s [opt-env-conf-test] functionChunk "env",
  14292. 1891.83 s [opt-env-conf-test] ", ",
  14293. 1891.84 s [opt-env-conf-test] functionChunk "conf",
  14294. 1891.84 s [opt-env-conf-test] ", or ",
  14295. 1891.84 s [opt-env-conf-test] functionChunk "value",
  14296. 1891.84 s [opt-env-conf-test] "."
  14297. 1891.84 s [opt-env-conf-test] ]
  14298. 1891.84 s [opt-env-conf-test] ]
  14299. 1891.84 s [opt-env-conf-test] ]
  14300. 1891.84 s [opt-env-conf-test] LintErrorDashInShort ->
  14301. 1891.84 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  14302. 1891.84 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  14303. 1891.84 s [opt-env-conf-test] ]
  14304. 1891.84 s [opt-env-conf-test] LintErrorDashInLong s ->
  14305. 1891.84 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  14306. 1891.84 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  14307. 1891.84 s [opt-env-conf-test] [ "Try ",
  14308. 1891.84 s [opt-env-conf-test] functionChunk "long",
  14309. 1891.84 s [opt-env-conf-test] " ",
  14310. 1891.84 s [opt-env-conf-test] chunk $
  14311. 1891.84 s [opt-env-conf-test] T.pack $
  14312. 1891.84 s [opt-env-conf-test] show $
  14313. 1891.84 s [opt-env-conf-test] let go = \case
  14314. 1891.84 s [opt-env-conf-test] [] -> []
  14315. 1891.84 s [opt-env-conf-test] '-' : cs -> go cs
  14316. 1891.84 s [opt-env-conf-test] c : cs -> c : cs
  14317. 1891.84 s [opt-env-conf-test] in go $ NE.toList s,
  14318. 1891.84 s [opt-env-conf-test] " instead."
  14319. 1891.84 s [opt-env-conf-test] ]
  14320. 1891.84 s [opt-env-conf-test] ]
  14321. 1891.84 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  14322. 1891.84 s [opt-env-conf-test] [ [ functionChunk "argument",
  14323. 1891.84 s [opt-env-conf-test] " has no ",
  14324. 1891.84 s [opt-env-conf-test] functionChunk "reader",
  14325. 1891.84 s [opt-env-conf-test] "."
  14326. 1891.84 s [opt-env-conf-test] ]
  14327. 1891.84 s [opt-env-conf-test] ]
  14328. 1891.84 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  14329. 1891.84 s [opt-env-conf-test] [ [ functionChunk "argument",
  14330. 1891.84 s [opt-env-conf-test] " has no ",
  14331. 1891.84 s [opt-env-conf-test] functionChunk "metavar",
  14332. 1891.84 s [opt-env-conf-test] "."
  14333. 1891.84 s [opt-env-conf-test] ]
  14334. 1891.84 s [opt-env-conf-test] ]
  14335. 1891.84 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  14336. 1891.84 s [opt-env-conf-test] [ [ functionChunk "option",
  14337. 1891.84 s [opt-env-conf-test] " or ",
  14338. 1891.84 s [opt-env-conf-test] functionChunk "name",
  14339. 1891.84 s [opt-env-conf-test] " has no ",
  14340. 1891.84 s [opt-env-conf-test] functionChunk "reader",
  14341. 1891.84 s [opt-env-conf-test] "."
  14342. 1891.84 s [opt-env-conf-test] ]
  14343. 1891.84 s [opt-env-conf-test] ]
  14344. 1891.84 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  14345. 1891.84 s [opt-env-conf-test] [ [ functionChunk "option",
  14346. 1891.84 s [opt-env-conf-test] " has no ",
  14347. 1891.84 s [opt-env-conf-test] functionChunk "long",
  14348. 1891.84 s [opt-env-conf-test] " or ",
  14349. 1891.84 s [opt-env-conf-test] functionChunk "short",
  14350. 1891.84 s [opt-env-conf-test] "."
  14351. 1891.84 s [opt-env-conf-test] ]
  14352. 1891.84 s [opt-env-conf-test] ]
  14353. 1891.84 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  14354. 1891.84 s [opt-env-conf-test] [ [ functionChunk "option",
  14355. 1891.84 s [opt-env-conf-test] " or ",
  14356. 1891.84 s [opt-env-conf-test] functionChunk "name",
  14357. 1891.84 s [opt-env-conf-test] " has no ",
  14358. 1891.84 s [opt-env-conf-test] functionChunk "metavar",
  14359. 1891.84 s [opt-env-conf-test] "."
  14360. 1891.84 s [opt-env-conf-test] ]
  14361. 1891.84 s [opt-env-conf-test] ]
  14362. 1891.84 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  14363. 1891.84 s [opt-env-conf-test] [ [ functionChunk "switch",
  14364. 1891.84 s [opt-env-conf-test] " has no ",
  14365. 1891.84 s [opt-env-conf-test] functionChunk "long",
  14366. 1891.84 s [opt-env-conf-test] " or ",
  14367. 1891.84 s [opt-env-conf-test] functionChunk "short",
  14368. 1891.84 s [opt-env-conf-test] "."
  14369. 1891.84 s [opt-env-conf-test] ]
  14370. 1891.84 s [opt-env-conf-test] ]
  14371. 1891.84 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  14372. 1891.84 s [opt-env-conf-test] [ [ functionChunk "long",
  14373. 1891.84 s [opt-env-conf-test] " or ",
  14374. 1891.84 s [opt-env-conf-test] functionChunk "short",
  14375. 1891.84 s [opt-env-conf-test] " has no ",
  14376. 1891.84 s [opt-env-conf-test] functionChunk "option",
  14377. 1891.84 s [opt-env-conf-test] " or ",
  14378. 1891.84 s [opt-env-conf-test] functionChunk "switch",
  14379. 1891.84 s [opt-env-conf-test] "."
  14380. 1891.84 s [opt-env-conf-test] ]
  14381. 1891.84 s [opt-env-conf-test] ]
  14382. 1891.84 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  14383. 1891.84 s [opt-env-conf-test] [ [ functionChunk "env",
  14384. 1891.84 s [opt-env-conf-test] " or ",
  14385. 1891.84 s [opt-env-conf-test] functionChunk "name",
  14386. 1891.84 s [opt-env-conf-test] " has no ",
  14387. 1891.84 s [opt-env-conf-test] functionChunk "reader",
  14388. 1891.84 s [opt-env-conf-test] "."
  14389. 1891.84 s [opt-env-conf-test] ]
  14390. 1891.84 s [opt-env-conf-test] ]
  14391. 1891.84 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  14392. 1891.84 s [opt-env-conf-test] [ [ functionChunk "env",
  14393. 1891.84 s [opt-env-conf-test] " or ",
  14394. 1891.84 s [opt-env-conf-test] functionChunk "name",
  14395. 1891.84 s [opt-env-conf-test] " has no ",
  14396. 1891.84 s [opt-env-conf-test] functionChunk "metavar",
  14397. 1891.84 s [opt-env-conf-test] "."
  14398. 1891.84 s [opt-env-conf-test] ]
  14399. 1891.84 s [opt-env-conf-test] ]
  14400. 1891.84 s [opt-env-conf-test] LintErrorNoCommands ->
  14401. 1891.84 s [opt-env-conf-test] [ [ functionChunk "commands",
  14402. 1891.85 s [opt-env-conf-test] " was called with an empty list."
  14403. 1898.61 s [opt-env-conf-test] ]
  14404. 1898.61 s [opt-env-conf-test] ]
  14405. 1898.63 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  14406. 1898.63 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  14407. 1898.63 s [opt-env-conf-test] " was called with an unknown command: ",
  14408. 1898.63 s [opt-env-conf-test] commandChunk c
  14409. 1898.63 s [opt-env-conf-test] ]
  14410. 1898.64 s [opt-env-conf-test] - ]
  14411. 1898.64 s [opt-env-conf-test] - LintErrorUnreadableExample e ->
  14412. 1898.64 s [opt-env-conf-test] - [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  14413. 1898.64 s [opt-env-conf-test] - ["Example: ", chunk $ T.pack e]
  14414. 1898.64 s [opt-env-conf-test] ]
  14415. 1898.64 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  14416. 1898.64 s [opt-env-conf-test] [ [ functionChunk "conf",
  14417. 1898.64 s [opt-env-conf-test] " or ",
  14418. 1898.64 s [opt-env-conf-test] functionChunk "name",
  14419. 1898.64 s [opt-env-conf-test] " was called with no way to load configuration."
  14420. 1898.64 s [opt-env-conf-test] ],
  14421. 1898.64 s [opt-env-conf-test] [ "You can load configuration with ",
  14422. 1898.64 s [opt-env-conf-test] functionChunk "withConfig",
  14423. 1898.64 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  14424. 1898.64 s [opt-env-conf-test] functionChunk "withoutConfig",
  14425. 1898.64 s [opt-env-conf-test] "."
  14426. 1898.64 s [opt-env-conf-test] ]
  14427. 1898.64 s [opt-env-conf-test] ]
  14428. 1898.64 s [opt-env-conf-test] LintErrorManyInfinite ->
  14429. 1898.64 s [opt-env-conf-test] [ [ functionChunk "many",
  14430. 1898.64 s [opt-env-conf-test] " or ",
  14431. 1898.64 s [opt-env-conf-test] functionChunk "some",
  14432. 1898.64 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  14433. 1898.65 s [opt-env-conf-test] ],
  14434. 1898.65 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  14435. 1898.65 s [opt-env-conf-test] ],
  14436. 1898.65 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  14437. 1898.65 s [opt-env-conf-test] ]
  14438. 1898.65 s [opt-env-conf-test]
  14439. 1898.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
  14440. 1898.65 s [opt-env-conf-test] @@ -120,5 +120,4 @@
  14441. 1898.65 s [opt-env-conf-test] parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
  14442. 1898.65 s [opt-env-conf-test]
  14443. 1898.65 s [opt-env-conf-test] bracketise :: [Chunk] -> [Chunk]
  14444. 1898.65 s [opt-env-conf-test] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
  14445. 1898.65 s [opt-env-conf-test] bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
  14446. 1898.65 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
  14447. 1898.65 s [opt-env-conf-test] @@ -120,5 +120,4 @@
  14448. 1898.65 s [opt-env-conf-test] parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
  14449. 1898.65 s [opt-env-conf-test]
  14450. 1898.65 s [opt-env-conf-test] bracketise :: [Chunk] -> [Chunk]
  14451. 1898.65 s [opt-env-conf-test] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
  14452. 1898.65 s [opt-env-conf-test] bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
  14453. 1898.65 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Validation.hs:69:32-20
  14454. 1898.65 s [opt-env-conf-test] @@ -66,9 +66,8 @@
  14455. 1898.65 s [opt-env-conf-test]
  14456. 1898.65 s [opt-env-conf-test] instance Applicative (Validation e) where
  14457. 1898.65 s [opt-env-conf-test] pure = Success
  14458. 1898.65 s [opt-env-conf-test] Failure e1 <*> b = Failure $ case b of
  14459. 1898.65 s [opt-env-conf-test] Failure e2 -> e1 `NE.append` e2
  14460. 1898.65 s [opt-env-conf-test] - Success _ -> e1
  14461. 1898.65 s [opt-env-conf-test] Success _ <*> Failure e2 = Failure e2
  14462. 1898.66 s [opt-env-conf-test] Success f <*> Success a = Success (f a)
  14463. 1898.66 s [opt-env-conf-test]
  14464. 1898.66 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Validation.hs:81:46-17
  14465. 1898.66 s [opt-env-conf-test] @@ -78,9 +78,8 @@
  14466. 1898.66 s [opt-env-conf-test] -- We could chose to skip the failures here if the first argument was a
  14467. 1898.66 s [opt-env-conf-test] -- Right, but we'd prefer to see as many errors as possible.
  14468. 1898.66 s [opt-env-conf-test] select (Success _) (Failure ne) = Failure ne
  14469. 1898.66 s [opt-env-conf-test] select (Success e) (Success f) = Success $ case e of
  14470. 1898.66 s [opt-env-conf-test] Left a -> f a
  14471. 1898.66 s [opt-env-conf-test] - Right b -> b
  14472. 1898.66 s [opt-env-conf-test]
  14473. 1898.66 s [opt-env-conf-test] validationFailure :: e -> Validation e a
  14474. 1898.66 s [opt-env-conf-test] validationFailure e = Failure (e :| [])
  14475. 1898.66 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
  14476. 1898.66 s [opt-env-conf-test] @@ -35,7 +35,6 @@
  14477. 1898.66 s [opt-env-conf-test] ("# " <>)
  14478. 1898.66 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  14479. 1898.66 s [opt-env-conf-test] "This file was generated by running",
  14480. 1898.66 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  14481. 1898.66 s [opt-env-conf-test] T.unpack content
  14482. 1898.66 s [opt-env-conf-test] ]
  14483. 1898.66 s [opt-env-conf-test]
  14484. 1898.66 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Validation.hs:69:32-20
  14485. 1898.66 s [opt-env-conf-test] @@ -66,9 +66,8 @@
  14486. 1898.66 s [opt-env-conf-test]
  14487. 1898.66 s [opt-env-conf-test] instance Applicative (Validation e) where
  14488. 1898.66 s [opt-env-conf-test] pure = Success
  14489. 1898.66 s [opt-env-conf-test] Failure e1 <*> b = Failure $ case b of
  14490. 1898.66 s [opt-env-conf-test] - Failure e2 -> e1 `NE.append` e2
  14491. 1898.66 s [opt-env-conf-test] Success _ -> e1
  14492. 1898.66 s [opt-env-conf-test] Success _ <*> Failure e2 = Failure e2
  14493. 1898.66 s [opt-env-conf-test] Success f <*> Success a = Success (f a)
  14494. 1898.66 s [opt-env-conf-test]
  14495. 1898.67 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  14496. 1898.67 s [opt-env-conf-test] @@ -33,11 +33,10 @@
  14497. 1898.67 s [opt-env-conf-test] unlines $
  14498. 1898.67 s [opt-env-conf-test] map
  14499. 1898.67 s [opt-env-conf-test] ("# " <>)
  14500. 1898.67 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  14501. 1898.67 s [opt-env-conf-test] "This file was generated by running",
  14502. 1898.67 s [opt-env-conf-test] unwords [progname, "--render-nix-options"],
  14503. 1898.67 s [opt-env-conf-test] T.unpack content
  14504. 1898.67 s [opt-env-conf-test] ]
  14505. 1898.67 s [opt-env-conf-test]
  14506. 1898.67 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  14507. 1898.67 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  14508. 1898.67 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Validation.hs:81:46-17
  14509. 1898.67 s [opt-env-conf-test] @@ -78,9 +78,8 @@
  14510. 1898.67 s [opt-env-conf-test] -- We could chose to skip the failures here if the first argument was a
  14511. 1898.67 s [opt-env-conf-test] -- Right, but we'd prefer to see as many errors as possible.
  14512. 1898.67 s [opt-env-conf-test] select (Success _) (Failure ne) = Failure ne
  14513. 1898.67 s [opt-env-conf-test] select (Success e) (Success f) = Success $ case e of
  14514. 1898.67 s [opt-env-conf-test] - Left a -> f a
  14515. 1898.67 s [opt-env-conf-test] Right b -> b
  14516. 1898.67 s [opt-env-conf-test]
  14517. 1898.67 s [opt-env-conf-test] validationFailure :: e -> Validation e a
  14518. 1898.67 s [opt-env-conf-test] validationFailure e = Failure (e :| [])
  14519. 1898.67 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
  14520. 1898.67 s [opt-env-conf-test] @@ -120,5 +120,4 @@
  14521. 1898.67 s [opt-env-conf-test] parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
  14522. 1898.67 s [opt-env-conf-test]
  14523. 1898.67 s [opt-env-conf-test] bracketise :: [Chunk] -> [Chunk]
  14524. 1898.67 s [opt-env-conf-test] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
  14525. 1898.67 s [opt-env-conf-test] bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
  14526. 1898.67 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
  14527. 1898.67 s [opt-env-conf-test] @@ -35,7 +35,6 @@
  14528. 1898.67 s [opt-env-conf-test] ("# " <>)
  14529. 1898.67 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  14530. 1898.67 s [opt-env-conf-test] "This file was generated by running",
  14531. 1898.67 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  14532. 1898.67 s [opt-env-conf-test] T.unpack content
  14533. 1898.68 s [opt-env-conf-test] ]
  14534. 1898.68 s [opt-env-conf-test]
  14535. 1898.68 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  14536. 1898.68 s [opt-env-conf-test] @@ -33,11 +33,10 @@
  14537. 1898.68 s [opt-env-conf-test] unlines $
  14538. 1898.68 s [opt-env-conf-test] map
  14539. 1898.68 s [opt-env-conf-test] ("# " <>)
  14540. 1898.68 s [opt-env-conf-test] [ "DO NOT EDIT THIS FILE DIRECTLY",
  14541. 1898.68 s [opt-env-conf-test] "This file was generated by running",
  14542. 1898.68 s [opt-env-conf-test] unwords [progname, "--render-nix-options"],
  14543. 1898.68 s [opt-env-conf-test] - T.unpack content
  14544. 1898.68 s [opt-env-conf-test] ]
  14545. 1898.68 s [opt-env-conf-test]
  14546. 1898.68 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  14547. 1898.68 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  14548. 1898.68 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
  14549. 1898.68 s [opt-env-conf-test] @@ -33,11 +33,7 @@
  14550. 1898.68 s [opt-env-conf-test] unlines $
  14551. 1898.68 s [opt-env-conf-test] map
  14552. 1898.68 s [opt-env-conf-test] ("# " <>)
  14553. 1898.68 s [opt-env-conf-test] - [ "DO NOT EDIT THIS FILE DIRECTLY",
  14554. 1898.68 s [opt-env-conf-test] - "This file was generated by running",
  14555. 1898.68 s [opt-env-conf-test] - unwords [progname, "--render-nix-options"],
  14556. 1898.68 s [opt-env-conf-test] - T.unpack content
  14557. 1898.68 s [opt-env-conf-test] ]
  14558. 1898.68 s [opt-env-conf-test]
  14559. 1898.68 s [opt-env-conf-test] renderSettingsNixOptions :: forall a. (HasParser a) => Text
  14560. 1898.68 s [opt-env-conf-test] renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
  14561. 1898.68 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
  14562. 1898.68 s [opt-env-conf-test] @@ -72,17 +72,14 @@
  14563. 1898.68 s [opt-env-conf-test] let codecTups = maybe [] NE.toList (settingConfigVals s)
  14564. 1898.68 s [opt-env-conf-test] in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
  14565. 1898.68 s [opt-env-conf-test] let go' :: NonEmpty Text -> Map Text Option
  14566. 1898.68 s [opt-env-conf-test] go' (p :| ps) = case NE.nonEmpty ps of
  14567. 1898.68 s [opt-env-conf-test] Nothing ->
  14568. 1898.68 s [opt-env-conf-test] let oc =
  14569. 1898.68 s [opt-env-conf-test] maybe
  14570. 1898.68 s [opt-env-conf-test] (optionalFieldWith' p configValSettingCodec)
  14571. 1898.68 s [opt-env-conf-test] (optionalFieldWith p configValSettingCodec)
  14572. 1898.68 s [opt-env-conf-test] (T.pack <$> settingHelp s)
  14573. 1898.68 s [opt-env-conf-test] in objectCodecNixOptions oc
  14574. 1898.69 s [opt-env-conf-test] - Just rest ->
  14575. 1898.69 s [opt-env-conf-test] - let m = go' rest
  14576. 1898.69 s [opt-env-conf-test] - in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  14577. 1898.69 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  14578. 1898.69 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  14579. 1898.69 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  14580. 1898.69 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  14581. 1898.69 s [opt-env-conf-test] @@ -66,168 +66,159 @@
  14582. 1898.69 s [opt-env-conf-test] renderLintError LintError {..} =
  14583. 1898.69 s [opt-env-conf-test] concat
  14584. 1898.69 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  14585. 1898.69 s [opt-env-conf-test] case lintErrorMessage of
  14586. 1898.69 s [opt-env-conf-test] LintErrorUndocumented ->
  14587. 1898.69 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  14588. 1898.69 s [opt-env-conf-test] LintErrorEmptySetting ->
  14589. 1898.69 s [opt-env-conf-test] concat
  14590. 1898.69 s [opt-env-conf-test] [ [ [ "This ",
  14591. 1898.69 s [opt-env-conf-test] functionChunk "setting",
  14592. 1898.69 s [opt-env-conf-test] " parses nothing."
  14593. 1898.69 s [opt-env-conf-test] ]
  14594. 1898.69 s [opt-env-conf-test] ],
  14595. 1898.69 s [opt-env-conf-test] [ [ "Add an ",
  14596. 1898.69 s [opt-env-conf-test] functionChunk "argument",
  14597. 1898.69 s [opt-env-conf-test] ", ",
  14598. 1898.69 s [opt-env-conf-test] functionChunk "switch",
  14599. 1898.69 s [opt-env-conf-test] ", ",
  14600. 1898.69 s [opt-env-conf-test] functionChunk "option",
  14601. 1898.69 s [opt-env-conf-test] ", ",
  14602. 1898.69 s [opt-env-conf-test] functionChunk "env",
  14603. 1898.69 s [opt-env-conf-test] ", ",
  14604. 1898.69 s [opt-env-conf-test] functionChunk "conf",
  14605. 1898.69 s [opt-env-conf-test] ", or ",
  14606. 1898.69 s [opt-env-conf-test] functionChunk "value",
  14607. 1898.69 s [opt-env-conf-test] "."
  14608. 1898.69 s [opt-env-conf-test] ]
  14609. 1898.69 s [opt-env-conf-test] ]
  14610. 1898.69 s [opt-env-conf-test] ]
  14611. 1898.69 s [opt-env-conf-test] LintErrorDashInShort ->
  14612. 1898.69 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  14613. 1898.69 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  14614. 1898.69 s [opt-env-conf-test] ]
  14615. 1898.69 s [opt-env-conf-test] LintErrorDashInLong s ->
  14616. 1898.69 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  14617. 1898.69 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  14618. 1898.69 s [opt-env-conf-test] [ "Try ",
  14619. 1898.69 s [opt-env-conf-test] functionChunk "long",
  14620. 1898.69 s [opt-env-conf-test] " ",
  14621. 1898.69 s [opt-env-conf-test] chunk $
  14622. 1898.70 s [opt-env-conf-test] T.pack $
  14623. 1898.70 s [opt-env-conf-test] show $
  14624. 1898.70 s [opt-env-conf-test] let go = \case
  14625. 1898.70 s [opt-env-conf-test] [] -> []
  14626. 1898.70 s [opt-env-conf-test] '-' : cs -> go cs
  14627. 1898.70 s [opt-env-conf-test] c : cs -> c : cs
  14628. 1898.70 s [opt-env-conf-test] in go $ NE.toList s,
  14629. 1898.70 s [opt-env-conf-test] " instead."
  14630. 1898.70 s [opt-env-conf-test] ]
  14631. 1898.70 s [opt-env-conf-test] ]
  14632. 1898.70 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  14633. 1898.70 s [opt-env-conf-test] [ [ functionChunk "argument",
  14634. 1898.70 s [opt-env-conf-test] " has no ",
  14635. 1898.70 s [opt-env-conf-test] functionChunk "reader",
  14636. 1898.70 s [opt-env-conf-test] "."
  14637. 1898.70 s [opt-env-conf-test] ]
  14638. 1898.70 s [opt-env-conf-test] ]
  14639. 1898.70 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  14640. 1898.70 s [opt-env-conf-test] [ [ functionChunk "argument",
  14641. 1898.70 s [opt-env-conf-test] " has no ",
  14642. 1898.70 s [opt-env-conf-test] functionChunk "metavar",
  14643. 1898.70 s [opt-env-conf-test] "."
  14644. 1898.70 s [opt-env-conf-test] ]
  14645. 1898.70 s [opt-env-conf-test] ]
  14646. 1898.70 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  14647. 1898.70 s [opt-env-conf-test] [ [ functionChunk "option",
  14648. 1898.70 s [opt-env-conf-test] " or ",
  14649. 1898.70 s [opt-env-conf-test] functionChunk "name",
  14650. 1898.70 s [opt-env-conf-test] " has no ",
  14651. 1898.70 s [opt-env-conf-test] functionChunk "reader",
  14652. 1898.70 s [opt-env-conf-test] "."
  14653. 1898.70 s [opt-env-conf-test] ]
  14654. 1898.70 s [opt-env-conf-test] ]
  14655. 1898.70 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  14656. 1898.70 s [opt-env-conf-test] [ [ functionChunk "option",
  14657. 1898.70 s [opt-env-conf-test] " has no ",
  14658. 1898.70 s [opt-env-conf-test] functionChunk "long",
  14659. 1898.70 s [opt-env-conf-test] " or ",
  14660. 1898.70 s [opt-env-conf-test] functionChunk "short",
  14661. 1898.70 s [opt-env-conf-test] "."
  14662. 1898.70 s [opt-env-conf-test] ]
  14663. 1898.70 s [opt-env-conf-test] ]
  14664. 1898.70 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  14665. 1898.70 s [opt-env-conf-test] [ [ functionChunk "option",
  14666. 1898.70 s [opt-env-conf-test] " or ",
  14667. 1898.70 s [opt-env-conf-test] functionChunk "name",
  14668. 1898.70 s [opt-env-conf-test] " has no ",
  14669. 1898.70 s [opt-env-conf-test] functionChunk "metavar",
  14670. 1898.70 s [opt-env-conf-test] "."
  14671. 1898.70 s [opt-env-conf-test] ]
  14672. 1898.70 s [opt-env-conf-test] ]
  14673. 1898.70 s [opt-env-conf-test] - LintErrorNoDashedForSwitch ->
  14674. 1898.70 s [opt-env-conf-test] - [ [ functionChunk "switch",
  14675. 1898.70 s [opt-env-conf-test] - " has no ",
  14676. 1898.70 s [opt-env-conf-test] - functionChunk "long",
  14677. 1898.70 s [opt-env-conf-test] - " or ",
  14678. 1898.70 s [opt-env-conf-test] - functionChunk "short",
  14679. 1898.70 s [opt-env-conf-test] - "."
  14680. 1898.70 s [opt-env-conf-test] - ]
  14681. 1898.70 s [opt-env-conf-test] - ]
  14682. 1898.70 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  14683. 1898.71 s [opt-env-conf-test] [ [ functionChunk "long",
  14684. 1898.71 s [opt-env-conf-test] " or ",
  14685. 1898.71 s [opt-env-conf-test] functionChunk "short",
  14686. 1898.71 s [opt-env-conf-test] " has no ",
  14687. 1898.71 s [opt-env-conf-test] functionChunk "option",
  14688. 1898.71 s [opt-env-conf-test] " or ",
  14689. 1898.71 s [opt-env-conf-test] functionChunk "switch",
  14690. 1898.71 s [opt-env-conf-test] "."
  14691. 1898.71 s [opt-env-conf-test] ]
  14692. 1898.71 s [opt-env-conf-test] ]
  14693. 1898.71 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  14694. 1898.71 s [opt-env-conf-test] [ [ functionChunk "env",
  14695. 1898.71 s [opt-env-conf-test] " or ",
  14696. 1898.71 s [opt-env-conf-test] functionChunk "name",
  14697. 1898.71 s [opt-env-conf-test] " has no ",
  14698. 1898.71 s [opt-env-conf-test] functionChunk "reader",
  14699. 1898.71 s [opt-env-conf-test] "."
  14700. 1898.71 s [opt-env-conf-test] ]
  14701. 1898.71 s [opt-env-conf-test] ]
  14702. 1898.71 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  14703. 1898.71 s [opt-env-conf-test] [ [ functionChunk "env",
  14704. 1898.71 s [opt-env-conf-test] " or ",
  14705. 1898.71 s [opt-env-conf-test] functionChunk "name",
  14706. 1898.71 s [opt-env-conf-test] " has no ",
  14707. 1898.71 s [opt-env-conf-test] functionChunk "metavar",
  14708. 1898.71 s [opt-env-conf-test] "."
  14709. 1898.71 s [opt-env-conf-test] ]
  14710. 1898.71 s [opt-env-conf-test] ]
  14711. 1898.71 s [opt-env-conf-test] LintErrorNoCommands ->
  14712. 1899.29 s [opt-env-conf-test] [ [ functionChunk "commands",
  14713. 1899.29 s [opt-env-conf-test] " was called with an empty list."
  14714. 1899.29 s [opt-env-conf-test] ]
  14715. 1899.29 s [opt-env-conf-test] ]
  14716. 1899.30 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  14717. 1899.30 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  14718. 1899.30 s [opt-env-conf-test] " was called with an unknown command: ",
  14719. 1899.30 s [opt-env-conf-test] commandChunk c
  14720. 1899.30 s [opt-env-conf-test] ]
  14721. 1899.30 s [opt-env-conf-test] ]
  14722. 1899.30 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  14723. 1899.30 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  14724. 1899.30 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  14725. 1899.30 s [opt-env-conf-test] ]
  14726. 1899.30 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  14727. 1899.30 s [opt-env-conf-test] [ [ functionChunk "conf",
  14728. 1899.30 s [opt-env-conf-test] " or ",
  14729. 1899.30 s [opt-env-conf-test] functionChunk "name",
  14730. 1899.30 s [opt-env-conf-test] " was called with no way to load configuration."
  14731. 1899.30 s [opt-env-conf-test] ],
  14732. 1899.30 s [opt-env-conf-test] [ "You can load configuration with ",
  14733. 1899.30 s [opt-env-conf-test] functionChunk "withConfig",
  14734. 1899.30 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  14735. 1899.30 s [opt-env-conf-test] functionChunk "withoutConfig",
  14736. 1899.30 s [opt-env-conf-test] "."
  14737. 1899.30 s [opt-env-conf-test] ]
  14738. 1899.30 s [opt-env-conf-test] ]
  14739. 1899.30 s [opt-env-conf-test] LintErrorManyInfinite ->
  14740. 1899.30 s [opt-env-conf-test] [ [ functionChunk "many",
  14741. 1899.30 s [opt-env-conf-test] " or ",
  14742. 1899.30 s [opt-env-conf-test] functionChunk "some",
  14743. 1899.30 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  14744. 1899.30 s [opt-env-conf-test] ],
  14745. 1899.31 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  14746. 1899.31 s [opt-env-conf-test] ],
  14747. 1899.31 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  14748. 1899.31 s [opt-env-conf-test] ]
  14749. 1899.31 s [opt-env-conf-test]
  14750. 1899.31 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  14751. 1899.31 s [opt-env-conf-test] @@ -66,168 +66,166 @@
  14752. 1899.31 s [opt-env-conf-test] renderLintError LintError {..} =
  14753. 1899.31 s [opt-env-conf-test] concat
  14754. 1899.31 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  14755. 1899.31 s [opt-env-conf-test] case lintErrorMessage of
  14756. 1899.31 s [opt-env-conf-test] - LintErrorUndocumented ->
  14757. 1899.31 s [opt-env-conf-test] - [["missing ", functionChunk "help", "."]]
  14758. 1899.31 s [opt-env-conf-test] LintErrorEmptySetting ->
  14759. 1899.31 s [opt-env-conf-test] concat
  14760. 1899.31 s [opt-env-conf-test] [ [ [ "This ",
  14761. 1899.31 s [opt-env-conf-test] functionChunk "setting",
  14762. 1899.31 s [opt-env-conf-test] " parses nothing."
  14763. 1899.31 s [opt-env-conf-test] ]
  14764. 1899.31 s [opt-env-conf-test] ],
  14765. 1899.31 s [opt-env-conf-test] [ [ "Add an ",
  14766. 1899.31 s [opt-env-conf-test] functionChunk "argument",
  14767. 1899.31 s [opt-env-conf-test] ", ",
  14768. 1899.31 s [opt-env-conf-test] functionChunk "switch",
  14769. 1899.31 s [opt-env-conf-test] ", ",
  14770. 1899.31 s [opt-env-conf-test] functionChunk "option",
  14771. 1899.31 s [opt-env-conf-test] ", ",
  14772. 1899.31 s [opt-env-conf-test] functionChunk "env",
  14773. 1899.31 s [opt-env-conf-test] ", ",
  14774. 1899.31 s [opt-env-conf-test] functionChunk "conf",
  14775. 1899.31 s [opt-env-conf-test] ", or ",
  14776. 1899.31 s [opt-env-conf-test] functionChunk "value",
  14777. 1899.31 s [opt-env-conf-test] "."
  14778. 1899.31 s [opt-env-conf-test] ]
  14779. 1899.31 s [opt-env-conf-test] ]
  14780. 1899.31 s [opt-env-conf-test] ]
  14781. 1899.31 s [opt-env-conf-test] LintErrorDashInShort ->
  14782. 1899.31 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  14783. 1899.31 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  14784. 1899.31 s [opt-env-conf-test] ]
  14785. 1899.31 s [opt-env-conf-test] LintErrorDashInLong s ->
  14786. 1899.32 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  14787. 1899.32 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  14788. 1899.32 s [opt-env-conf-test] [ "Try ",
  14789. 1899.32 s [opt-env-conf-test] functionChunk "long",
  14790. 1899.32 s [opt-env-conf-test] " ",
  14791. 1899.32 s [opt-env-conf-test] chunk $
  14792. 1899.32 s [opt-env-conf-test] T.pack $
  14793. 1899.32 s [opt-env-conf-test] show $
  14794. 1899.32 s [opt-env-conf-test] let go = \case
  14795. 1899.32 s [opt-env-conf-test] [] -> []
  14796. 1899.32 s [opt-env-conf-test] '-' : cs -> go cs
  14797. 1899.32 s [opt-env-conf-test] c : cs -> c : cs
  14798. 1899.32 s [opt-env-conf-test] in go $ NE.toList s,
  14799. 1899.32 s [opt-env-conf-test] " instead."
  14800. 1899.32 s [opt-env-conf-test] ]
  14801. 1899.32 s [opt-env-conf-test] ]
  14802. 1899.32 s [opt-env-conf-test] LintErrorNoReaderForArgument ->
  14803. 1899.32 s [opt-env-conf-test] [ [ functionChunk "argument",
  14804. 1899.32 s [opt-env-conf-test] " has no ",
  14805. 1899.32 s [opt-env-conf-test] functionChunk "reader",
  14806. 1899.32 s [opt-env-conf-test] "."
  14807. 1899.32 s [opt-env-conf-test] ]
  14808. 1899.32 s [opt-env-conf-test] ]
  14809. 1899.32 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  14810. 1899.32 s [opt-env-conf-test] [ [ functionChunk "argument",
  14811. 1899.32 s [opt-env-conf-test] " has no ",
  14812. 1899.32 s [opt-env-conf-test] functionChunk "metavar",
  14813. 1899.32 s [opt-env-conf-test] "."
  14814. 1899.32 s [opt-env-conf-test] ]
  14815. 1899.32 s [opt-env-conf-test] ]
  14816. 1899.32 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  14817. 1899.32 s [opt-env-conf-test] [ [ functionChunk "option",
  14818. 1899.32 s [opt-env-conf-test] " or ",
  14819. 1899.32 s [opt-env-conf-test] functionChunk "name",
  14820. 1899.32 s [opt-env-conf-test] " has no ",
  14821. 1899.32 s [opt-env-conf-test] functionChunk "reader",
  14822. 1899.32 s [opt-env-conf-test] "."
  14823. 1899.32 s [opt-env-conf-test] ]
  14824. 1899.32 s [opt-env-conf-test] ]
  14825. 1899.32 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  14826. 1899.32 s [opt-env-conf-test] [ [ functionChunk "option",
  14827. 1899.32 s [opt-env-conf-test] " has no ",
  14828. 1899.32 s [opt-env-conf-test] functionChunk "long",
  14829. 1899.32 s [opt-env-conf-test] " or ",
  14830. 1899.32 s [opt-env-conf-test] functionChunk "short",
  14831. 1899.32 s [opt-env-conf-test] "."
  14832. 1899.32 s [opt-env-conf-test] ]
  14833. 1899.32 s [opt-env-conf-test] ]
  14834. 1899.32 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  14835. 1899.32 s [opt-env-conf-test] [ [ functionChunk "option",
  14836. 1899.32 s [opt-env-conf-test] " or ",
  14837. 1899.33 s [opt-env-conf-test] functionChunk "name",
  14838. 1899.33 s [opt-env-conf-test] " has no ",
  14839. 1899.33 s [opt-env-conf-test] functionChunk "metavar",
  14840. 1899.33 s [opt-env-conf-test] "."
  14841. 1899.33 s [opt-env-conf-test] ]
  14842. 1899.33 s [opt-env-conf-test] ]
  14843. 1899.33 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  14844. 1899.33 s [opt-env-conf-test] [ [ functionChunk "switch",
  14845. 1899.33 s [opt-env-conf-test] " has no ",
  14846. 1899.33 s [opt-env-conf-test] functionChunk "long",
  14847. 1899.33 s [opt-env-conf-test] " or ",
  14848. 1899.33 s [opt-env-conf-test] functionChunk "short",
  14849. 1899.33 s [opt-env-conf-test] "."
  14850. 1899.33 s [opt-env-conf-test] ]
  14851. 1899.33 s [opt-env-conf-test] ]
  14852. 1899.33 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  14853. 1899.33 s [opt-env-conf-test] [ [ functionChunk "long",
  14854. 1899.33 s [opt-env-conf-test] " or ",
  14855. 1899.33 s [opt-env-conf-test] functionChunk "short",
  14856. 1899.33 s [opt-env-conf-test] " has no ",
  14857. 1899.33 s [opt-env-conf-test] functionChunk "option",
  14858. 1899.33 s [opt-env-conf-test] " or ",
  14859. 1899.33 s [opt-env-conf-test] functionChunk "switch",
  14860. 1899.33 s [opt-env-conf-test] "."
  14861. 1899.33 s [opt-env-conf-test] ]
  14862. 1899.33 s [opt-env-conf-test] ]
  14863. 1899.33 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  14864. 1899.33 s [opt-env-conf-test] [ [ functionChunk "env",
  14865. 1899.34 s [opt-env-conf-test] " or ",
  14866. 1899.34 s [opt-env-conf-test] functionChunk "name",
  14867. 1899.34 s [opt-env-conf-test] " has no ",
  14868. 1899.34 s [opt-env-conf-test] functionChunk "reader",
  14869. 1899.34 s [opt-env-conf-test] "."
  14870. 1899.34 s [opt-env-conf-test] ]
  14871. 1899.34 s [opt-env-conf-test] ]
  14872. 1899.34 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  14873. 1899.34 s [opt-env-conf-test] [ [ functionChunk "env",
  14874. 1899.34 s [opt-env-conf-test] " or ",
  14875. 1899.34 s [opt-env-conf-test] functionChunk "name",
  14876. 1899.34 s [opt-env-conf-test] " has no ",
  14877. 1899.34 s [opt-env-conf-test] functionChunk "metavar",
  14878. 1899.34 s [opt-env-conf-test] "."
  14879. 1899.34 s [opt-env-conf-test] ]
  14880. 1899.34 s [opt-env-conf-test] ]
  14881. 1899.34 s [opt-env-conf-test] LintErrorNoCommands ->
  14882. 1899.34 s [opt-env-conf-test] [ [ functionChunk "commands",
  14883. 1900.03 s [opt-env-conf-test] " was called with an empty list."
  14884. 1900.03 s [opt-env-conf-test] ]
  14885. 1900.03 s [opt-env-conf-test] ]
  14886. 1900.03 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  14887. 1900.03 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  14888. 1900.03 s [opt-env-conf-test] " was called with an unknown command: ",
  14889. 1900.03 s [opt-env-conf-test] commandChunk c
  14890. 1900.03 s [opt-env-conf-test] ]
  14891. 1900.03 s [opt-env-conf-test] ]
  14892. 1900.03 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  14893. 1900.03 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  14894. 1900.03 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  14895. 1900.03 s [opt-env-conf-test] ]
  14896. 1900.03 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  14897. 1900.04 s [opt-env-conf-test] [ [ functionChunk "conf",
  14898. 1900.04 s [opt-env-conf-test] " or ",
  14899. 1900.04 s [opt-env-conf-test] functionChunk "name",
  14900. 1900.04 s [opt-env-conf-test] " was called with no way to load configuration."
  14901. 1900.04 s [opt-env-conf-test] ],
  14902. 1900.04 s [opt-env-conf-test] [ "You can load configuration with ",
  14903. 1900.04 s [opt-env-conf-test] functionChunk "withConfig",
  14904. 1900.04 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  14905. 1900.04 s [opt-env-conf-test] functionChunk "withoutConfig",
  14906. 1900.04 s [opt-env-conf-test] "."
  14907. 1900.04 s [opt-env-conf-test] ]
  14908. 1900.04 s [opt-env-conf-test] ]
  14909. 1900.04 s [opt-env-conf-test] LintErrorManyInfinite ->
  14910. 1900.04 s [opt-env-conf-test] [ [ functionChunk "many",
  14911. 1900.04 s [opt-env-conf-test] " or ",
  14912. 1900.04 s [opt-env-conf-test] functionChunk "some",
  14913. 1900.04 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  14914. 1900.04 s [opt-env-conf-test] ],
  14915. 1900.04 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  14916. 1900.04 s [opt-env-conf-test] ],
  14917. 1900.04 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  14918. 1900.04 s [opt-env-conf-test] ]
  14919. 1900.04 s [opt-env-conf-test]
  14920. 1900.04 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
  14921. 1900.04 s [opt-env-conf-test] @@ -66,168 +66,161 @@
  14922. 1900.04 s [opt-env-conf-test] renderLintError LintError {..} =
  14923. 1900.04 s [opt-env-conf-test] concat
  14924. 1900.04 s [opt-env-conf-test] [ [[fore red "Invalid Setting:"]],
  14925. 1900.04 s [opt-env-conf-test] case lintErrorMessage of
  14926. 1900.04 s [opt-env-conf-test] LintErrorUndocumented ->
  14927. 1900.04 s [opt-env-conf-test] [["missing ", functionChunk "help", "."]]
  14928. 1900.04 s [opt-env-conf-test] LintErrorEmptySetting ->
  14929. 1900.04 s [opt-env-conf-test] concat
  14930. 1900.04 s [opt-env-conf-test] [ [ [ "This ",
  14931. 1900.04 s [opt-env-conf-test] functionChunk "setting",
  14932. 1900.04 s [opt-env-conf-test] " parses nothing."
  14933. 1900.04 s [opt-env-conf-test] ]
  14934. 1900.04 s [opt-env-conf-test] ],
  14935. 1900.04 s [opt-env-conf-test] [ [ "Add an ",
  14936. 1900.04 s [opt-env-conf-test] functionChunk "argument",
  14937. 1900.04 s [opt-env-conf-test] ", ",
  14938. 1900.04 s [opt-env-conf-test] functionChunk "switch",
  14939. 1900.05 s [opt-env-conf-test] ", ",
  14940. 1900.05 s [opt-env-conf-test] functionChunk "option",
  14941. 1900.05 s [opt-env-conf-test] ", ",
  14942. 1900.05 s [opt-env-conf-test] functionChunk "env",
  14943. 1900.05 s [opt-env-conf-test] ", ",
  14944. 1900.05 s [opt-env-conf-test] functionChunk "conf",
  14945. 1900.05 s [opt-env-conf-test] ", or ",
  14946. 1900.05 s [opt-env-conf-test] functionChunk "value",
  14947. 1900.05 s [opt-env-conf-test] "."
  14948. 1900.05 s [opt-env-conf-test] ]
  14949. 1900.05 s [opt-env-conf-test] ]
  14950. 1900.05 s [opt-env-conf-test] ]
  14951. 1900.05 s [opt-env-conf-test] LintErrorDashInShort ->
  14952. 1900.05 s [opt-env-conf-test] [ [functionChunk "short", " may not contain a '-'."],
  14953. 1900.05 s [opt-env-conf-test] ["Found ", functionChunk "short", " '-'."]
  14954. 1900.05 s [opt-env-conf-test] ]
  14955. 1900.05 s [opt-env-conf-test] LintErrorDashInLong s ->
  14956. 1900.05 s [opt-env-conf-test] [ [functionChunk "long", " may not start with a '-'."],
  14957. 1900.05 s [opt-env-conf-test] ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
  14958. 1900.05 s [opt-env-conf-test] [ "Try ",
  14959. 1900.05 s [opt-env-conf-test] functionChunk "long",
  14960. 1900.05 s [opt-env-conf-test] " ",
  14961. 1900.05 s [opt-env-conf-test] chunk $
  14962. 1900.05 s [opt-env-conf-test] T.pack $
  14963. 1900.05 s [opt-env-conf-test] show $
  14964. 1900.05 s [opt-env-conf-test] let go = \case
  14965. 1900.05 s [opt-env-conf-test] [] -> []
  14966. 1900.05 s [opt-env-conf-test] '-' : cs -> go cs
  14967. 1900.05 s [opt-env-conf-test] c : cs -> c : cs
  14968. 1900.05 s [opt-env-conf-test] in go $ NE.toList s,
  14969. 1900.05 s [opt-env-conf-test] " instead."
  14970. 1900.05 s [opt-env-conf-test] ]
  14971. 1900.05 s [opt-env-conf-test] ]
  14972. 1900.05 s [opt-env-conf-test] - LintErrorNoReaderForArgument ->
  14973. 1900.05 s [opt-env-conf-test] - [ [ functionChunk "argument",
  14974. 1900.05 s [opt-env-conf-test] - " has no ",
  14975. 1900.05 s [opt-env-conf-test] - functionChunk "reader",
  14976. 1900.05 s [opt-env-conf-test] - "."
  14977. 1900.05 s [opt-env-conf-test] - ]
  14978. 1900.05 s [opt-env-conf-test] - ]
  14979. 1900.05 s [opt-env-conf-test] LintErrorNoMetavarForArgument ->
  14980. 1900.05 s [opt-env-conf-test] [ [ functionChunk "argument",
  14981. 1900.05 s [opt-env-conf-test] " has no ",
  14982. 1900.05 s [opt-env-conf-test] functionChunk "metavar",
  14983. 1900.05 s [opt-env-conf-test] "."
  14984. 1900.05 s [opt-env-conf-test] ]
  14985. 1900.05 s [opt-env-conf-test] ]
  14986. 1900.05 s [opt-env-conf-test] LintErrorNoReaderForOption ->
  14987. 1900.06 s [opt-env-conf-test] [ [ functionChunk "option",
  14988. 1900.06 s [opt-env-conf-test] " or ",
  14989. 1900.06 s [opt-env-conf-test] functionChunk "name",
  14990. 1900.06 s [opt-env-conf-test] " has no ",
  14991. 1900.06 s [opt-env-conf-test] functionChunk "reader",
  14992. 1900.06 s [opt-env-conf-test] "."
  14993. 1900.06 s [opt-env-conf-test] ]
  14994. 1900.06 s [opt-env-conf-test] ]
  14995. 1900.06 s [opt-env-conf-test] LintErrorNoDashedForOption ->
  14996. 1900.06 s [opt-env-conf-test] [ [ functionChunk "option",
  14997. 1900.06 s [opt-env-conf-test] " has no ",
  14998. 1900.06 s [opt-env-conf-test] functionChunk "long",
  14999. 1900.06 s [opt-env-conf-test] " or ",
  15000. 1900.06 s [opt-env-conf-test] functionChunk "short",
  15001. 1900.06 s [opt-env-conf-test] "."
  15002. 1900.06 s [opt-env-conf-test] ]
  15003. 1900.06 s [opt-env-conf-test] ]
  15004. 1900.06 s [opt-env-conf-test] LintErrorNoMetavarForOption ->
  15005. 1900.06 s [opt-env-conf-test] [ [ functionChunk "option",
  15006. 1900.06 s [opt-env-conf-test] " or ",
  15007. 1900.06 s [opt-env-conf-test] functionChunk "name",
  15008. 1900.06 s [opt-env-conf-test] " has no ",
  15009. 1900.06 s [opt-env-conf-test] functionChunk "metavar",
  15010. 1900.06 s [opt-env-conf-test] "."
  15011. 1900.06 s [opt-env-conf-test] ]
  15012. 1900.06 s [opt-env-conf-test] ]
  15013. 1900.06 s [opt-env-conf-test] LintErrorNoDashedForSwitch ->
  15014. 1900.06 s [opt-env-conf-test] [ [ functionChunk "switch",
  15015. 1900.06 s [opt-env-conf-test] " has no ",
  15016. 1900.06 s [opt-env-conf-test] functionChunk "long",
  15017. 1900.06 s [opt-env-conf-test] " or ",
  15018. 1900.06 s [opt-env-conf-test] functionChunk "short",
  15019. 1900.06 s [opt-env-conf-test] "."
  15020. 1900.06 s [opt-env-conf-test] ]
  15021. 1900.06 s [opt-env-conf-test] ]
  15022. 1900.06 s [opt-env-conf-test] LintErrorNoOptionOrSwitchForDashed ->
  15023. 1900.06 s [opt-env-conf-test] [ [ functionChunk "long",
  15024. 1900.06 s [opt-env-conf-test] " or ",
  15025. 1900.06 s [opt-env-conf-test] functionChunk "short",
  15026. 1900.06 s [opt-env-conf-test] " has no ",
  15027. 1900.06 s [opt-env-conf-test] functionChunk "option",
  15028. 1900.06 s [opt-env-conf-test] " or ",
  15029. 1900.06 s [opt-env-conf-test] functionChunk "switch",
  15030. 1900.06 s [opt-env-conf-test] "."
  15031. 1900.06 s [opt-env-conf-test] ]
  15032. 1900.06 s [opt-env-conf-test] ]
  15033. 1900.06 s [opt-env-conf-test] LintErrorNoReaderForEnvVar ->
  15034. 1900.06 s [opt-env-conf-test] [ [ functionChunk "env",
  15035. 1900.06 s [opt-env-conf-test] " or ",
  15036. 1900.06 s [opt-env-conf-test] functionChunk "name",
  15037. 1900.06 s [opt-env-conf-test] " has no ",
  15038. 1900.06 s [opt-env-conf-test] functionChunk "reader",
  15039. 1900.06 s [opt-env-conf-test] "."
  15040. 1900.06 s [opt-env-conf-test] ]
  15041. 1900.06 s [opt-env-conf-test] ]
  15042. 1900.06 s [opt-env-conf-test] LintErrorNoMetavarForEnvVar ->
  15043. 1900.06 s [opt-env-conf-test] [ [ functionChunk "env",
  15044. 1900.06 s [opt-env-conf-test] " or ",
  15045. 1900.06 s [opt-env-conf-test] functionChunk "name",
  15046. 1900.06 s [opt-env-conf-test] " has no ",
  15047. 1900.06 s [opt-env-conf-test] functionChunk "metavar",
  15048. 1900.06 s [opt-env-conf-test] "."
  15049. 1900.06 s [opt-env-conf-test] ]
  15050. 1900.06 s [opt-env-conf-test] ]
  15051. 1900.06 s [opt-env-conf-test] LintErrorNoCommands ->
  15052. 1906.42 s [opt-env-conf-test] [ [ functionChunk "commands",
  15053. 1906.45 s [opt-env-conf-test] " was called with an empty list."
  15054. 1906.45 s [opt-env-conf-test] ]
  15055. 1906.45 s [opt-env-conf-test] ]
  15056. 1906.45 s [opt-env-conf-test] LintErrorUnknownDefaultCommand c ->
  15057. 1906.45 s [opt-env-conf-test] [ [ functionChunk "defaultCommand",
  15058. 1906.45 s [opt-env-conf-test] " was called with an unknown command: ",
  15059. 1906.45 s [opt-env-conf-test] commandChunk c
  15060. 1906.45 s [opt-env-conf-test] ]
  15061. 1906.45 s [opt-env-conf-test] ]
  15062. 1906.45 s [opt-env-conf-test] LintErrorUnreadableExample e ->
  15063. 1906.45 s [opt-env-conf-test] [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
  15064. 1906.45 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  15065. 1906.45 s [opt-env-conf-test] ]
  15066. 1906.45 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  15067. 1906.45 s [opt-env-conf-test] [ [ functionChunk "conf",
  15068. 1906.45 s [opt-env-conf-test] " or ",
  15069. 1906.45 s [opt-env-conf-test] functionChunk "name",
  15070. 1906.45 s [opt-env-conf-test] " was called with no way to load configuration."
  15071. 1906.45 s [opt-env-conf-test] ],
  15072. 1906.45 s [opt-env-conf-test] [ "You can load configuration with ",
  15073. 1906.46 s [opt-env-conf-test] functionChunk "withConfig",
  15074. 1906.46 s [opt-env-conf-test] ", or explicitly not load any configuration with ",
  15075. 1906.46 s [opt-env-conf-test] functionChunk "withoutConfig",
  15076. 1906.46 s [opt-env-conf-test] "."
  15077. 1906.46 s [opt-env-conf-test] ]
  15078. 1906.46 s [opt-env-conf-test] ]
  15079. 1906.46 s [opt-env-conf-test] LintErrorManyInfinite ->
  15080. 1906.46 s [opt-env-conf-test] [ [ functionChunk "many",
  15081. 1906.46 s [opt-env-conf-test] " or ",
  15082. 1906.46 s [opt-env-conf-test] functionChunk "some",
  15083. 1906.46 s [opt-env-conf-test] " was called with a parser that may succeed without consuming anything."
  15084. 1906.46 s [opt-env-conf-test] ],
  15085. 1906.46 s [opt-env-conf-test] ["This is not allowed because the parser would run infinitely."]
  15086. 1906.46 s [opt-env-conf-test] ],
  15087. 1906.46 s [opt-env-conf-test] maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
  15088. 1906.46 s [opt-env-conf-test] ]
  15089. 1906.46 s [opt-env-conf-test]
  15090. 1906.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
  15091. 1906.46 s [opt-env-conf-test] @@ -208,18 +208,7 @@
  15092. 1906.46 s [opt-env-conf-test] ["Example: ", chunk $ T.pack e]
  15093. 1906.46 s [opt-env-conf-test] ]
  15094. 1906.46 s [opt-env-conf-test] LintErrorConfigWithoutLoad ->
  15095. 1906.46 s [opt-env-conf-test] - [ [ functionChunk "conf",
  15096. 1906.46 s [opt-env-conf-test] - " or ",
  15097. 1906.46 s [opt-env-conf-test] - functionChunk "name",
  15098. 1906.46 s [opt-env-conf-test] - " was called with no way to load configuration."
  15099. 1906.46 s [opt-env-conf-test] - ],
  15100. 1906.46 s [opt-env-conf-test] - [ "You can load configuration with ",
  15101. 1906.46 s [opt-env-conf-test] - functionChunk "withConfig",
  15102. 1906.46 s [opt-env-conf-test] - ", or explicitly not load any configuration with ",
  15103. 1906.46 s [opt-env-conf-test] - functionChunk "withoutConfig",
  15104. 1906.46 s [opt-env-conf-test] - "."
  15105. 1906.46 s [opt-env-conf-test] - ]
  15106. 1906.46 s [opt-env-conf-test] ]
  15107. 1906.46 s [opt-env-conf-test] LintErrorManyInfinite ->
  15108. 1906.46 s [opt-env-conf-test] [ [ functionChunk "many",
  15109. 1906.46 s [opt-env-conf-test] " or ",
  15110. 1906.46 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:71:12-59
  15111. 1906.46 s [opt-env-conf-test] @@ -68,7 +68,6 @@
  15112. 1906.46 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  15113. 1906.46 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  15114. 1906.47 s [opt-env-conf-test] [] -> []
  15115. 1906.47 s [opt-env-conf-test] - [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  15116. 1906.47 s [opt-env-conf-test] _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  15117. 1906.47 s [opt-env-conf-test]
  15118. 1906.47 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  15119. 1906.47 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:71:12-59
  15120. 1906.47 s [opt-env-conf-test] @@ -68,7 +68,6 @@
  15121. 1906.47 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  15122. 1906.47 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  15123. 1906.47 s [opt-env-conf-test] [] -> []
  15124. 1906.47 s [opt-env-conf-test] - [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  15125. 1906.47 s [opt-env-conf-test] _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  15126. 1906.47 s [opt-env-conf-test]
  15127. 1906.47 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  15128. 1906.47 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:66:26-73
  15129. 1906.47 s [opt-env-conf-test] @@ -63,7 +63,6 @@
  15130. 1906.47 s [opt-env-conf-test] confValChunk = fore white . chunk . T.pack . intercalate "." . NE.toList
  15131. 1906.47 s [opt-env-conf-test]
  15132. 1906.47 s [opt-env-conf-test] defaultValueChunks :: String -> [Chunk]
  15133. 1906.47 s [opt-env-conf-test] -defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  15134. 1906.47 s [opt-env-conf-test]
  15135. 1906.47 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  15136. 1906.47 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  15137. 1906.47 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:81:18-44
  15138. 1906.47 s [opt-env-conf-test] @@ -78,7 +78,6 @@
  15139. 1906.47 s [opt-env-conf-test] helpChunk = fore blue . chunk . T.pack
  15140. 1906.47 s [opt-env-conf-test]
  15141. 1906.47 s [opt-env-conf-test] headerChunks :: Text -> [Chunk]
  15142. 1906.47 s [opt-env-conf-test] -headerChunks t = [fore cyan (chunk t), ":"]
  15143. 1906.47 s [opt-env-conf-test]
  15144. 1906.47 s [opt-env-conf-test] syntaxChunk :: String -> Chunk
  15145. 1906.47 s [opt-env-conf-test] syntaxChunk = fore blue . chunk . T.pack
  15146. 1906.47 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  15147. 1906.47 s [opt-env-conf-test] @@ -66,10 +66,9 @@
  15148. 1906.47 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  15149. 1906.47 s [opt-env-conf-test]
  15150. 1906.47 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  15151. 1906.47 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  15152. 1906.47 s [opt-env-conf-test] - [] -> []
  15153. 1906.47 s [opt-env-conf-test] [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  15154. 1906.47 s [opt-env-conf-test] _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  15155. 1906.47 s [opt-env-conf-test]
  15156. 1906.47 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  15157. 1906.47 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  15158. 1906.47 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:66:26-73
  15159. 1906.47 s [opt-env-conf-test] @@ -63,7 +63,6 @@
  15160. 1906.47 s [opt-env-conf-test] confValChunk = fore white . chunk . T.pack . intercalate "." . NE.toList
  15161. 1906.47 s [opt-env-conf-test]
  15162. 1906.48 s [opt-env-conf-test] defaultValueChunks :: String -> [Chunk]
  15163. 1906.48 s [opt-env-conf-test] -defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  15164. 1906.48 s [opt-env-conf-test]
  15165. 1906.48 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  15166. 1906.48 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  15167. 1906.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:87:27-50
  15168. 1906.48 s [opt-env-conf-test] @@ -84,9 +84,8 @@
  15169. 1906.48 s [opt-env-conf-test] syntaxChunk = fore blue . chunk . T.pack
  15170. 1906.48 s [opt-env-conf-test]
  15171. 1906.48 s [opt-env-conf-test] capabilitiesChunks :: Set Capability -> [Chunk]
  15172. 1906.48 s [opt-env-conf-test] capabilitiesChunks caps = case Set.toList caps of
  15173. 1906.48 s [opt-env-conf-test] - [] -> []
  15174. 1906.48 s [opt-env-conf-test] cs -> intersperse ", " (map capabilityChunk cs)
  15175. 1906.48 s [opt-env-conf-test]
  15176. 1906.48 s [opt-env-conf-test] capabilityChunk :: Capability -> Chunk
  15177. 1906.48 s [opt-env-conf-test] capabilityChunk = fore green . chunk . unCapability
  15178. 1906.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  15179. 1906.48 s [opt-env-conf-test] @@ -66,10 +66,9 @@
  15180. 1906.48 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  15181. 1906.48 s [opt-env-conf-test]
  15182. 1906.48 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  15183. 1906.48 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  15184. 1906.48 s [opt-env-conf-test] [] -> []
  15185. 1906.48 s [opt-env-conf-test] [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  15186. 1906.48 s [opt-env-conf-test] - _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  15187. 1906.48 s [opt-env-conf-test]
  15188. 1906.48 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  15189. 1906.48 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  15190. 1906.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:72:8-91
  15191. 1906.48 s [opt-env-conf-test] @@ -69,7 +69,6 @@
  15192. 1906.48 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  15193. 1906.48 s [opt-env-conf-test] [] -> []
  15194. 1906.48 s [opt-env-conf-test] [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  15195. 1906.48 s [opt-env-conf-test] - _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  15196. 1906.48 s [opt-env-conf-test]
  15197. 1906.48 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  15198. 1906.48 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  15199. 1906.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:87:27-50
  15200. 1906.48 s [opt-env-conf-test] @@ -84,9 +84,8 @@
  15201. 1906.48 s [opt-env-conf-test] syntaxChunk = fore blue . chunk . T.pack
  15202. 1906.48 s [opt-env-conf-test]
  15203. 1906.48 s [opt-env-conf-test] capabilitiesChunks :: Set Capability -> [Chunk]
  15204. 1906.48 s [opt-env-conf-test] capabilitiesChunks caps = case Set.toList caps of
  15205. 1906.48 s [opt-env-conf-test] [] -> []
  15206. 1906.48 s [opt-env-conf-test] - cs -> intersperse ", " (map capabilityChunk cs)
  15207. 1906.48 s [opt-env-conf-test]
  15208. 1906.48 s [opt-env-conf-test] capabilityChunk :: Capability -> Chunk
  15209. 1906.48 s [opt-env-conf-test] capabilityChunk = fore green . chunk . unCapability
  15210. 1906.48 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:81:18-44
  15211. 1906.48 s [opt-env-conf-test] @@ -78,7 +78,6 @@
  15212. 1906.48 s [opt-env-conf-test] helpChunk = fore blue . chunk . T.pack
  15213. 1906.48 s [opt-env-conf-test]
  15214. 1906.48 s [opt-env-conf-test] headerChunks :: Text -> [Chunk]
  15215. 1906.48 s [opt-env-conf-test] -headerChunks t = [fore cyan (chunk t), ":"]
  15216. 1906.48 s [opt-env-conf-test]
  15217. 1906.48 s [opt-env-conf-test] syntaxChunk :: String -> Chunk
  15218. 1906.48 s [opt-env-conf-test] syntaxChunk = fore blue . chunk . T.pack
  15219. 1906.48 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Output.hs:112:34-39
  15220. 1906.48 s [opt-env-conf-test] @@ -109,7 +109,7 @@
  15221. 1906.49 s [opt-env-conf-test] cleanPackage pkg =
  15222. 1906.49 s [opt-env-conf-test] T.unpack $
  15223. 1906.49 s [opt-env-conf-test] T.intercalate "-" $
  15224. 1906.49 s [opt-env-conf-test] - takeWhile (not . maybe False (Char.isDigit . fst) . T.uncons) $
  15225. 1906.49 s [opt-env-conf-test] + takeWhile (not . maybe True (Char.isDigit . fst) . T.uncons) $
  15226. 1906.49 s [opt-env-conf-test] T.splitOn "-" (T.pack pkg)
  15227. 1906.49 s [opt-env-conf-test]
  15228. 1906.49 s [opt-env-conf-test] indent :: [[Chunk]] -> [[Chunk]]
  15229. 1906.49 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:72:8-91
  15230. 1906.49 s [opt-env-conf-test] @@ -69,7 +69,6 @@
  15231. 1906.49 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  15232. 1906.49 s [opt-env-conf-test] [] -> []
  15233. 1906.49 s [opt-env-conf-test] [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  15234. 1906.49 s [opt-env-conf-test] - _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  15235. 1906.49 s [opt-env-conf-test]
  15236. 1906.49 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  15237. 1906.49 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  15238. 1906.49 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:267:33-43
  15239. 1906.49 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  15240. 1906.49 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  15241. 1906.49 s [opt-env-conf-test] in case rest of
  15242. 1906.49 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  15243. 1906.49 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  15244. 1906.49 s [opt-env-conf-test] + _ : rest' -> [seg | not True] <> splitOnSlash rest'
  15245. 1906.49 s [opt-env-conf-test]
  15246. 1906.49 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15247. 1906.49 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  15248. 1906.49 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completer.hs:267:22-44
  15249. 1906.49 s [opt-env-conf-test] @@ -264,7 +264,6 @@
  15250. 1906.49 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  15251. 1906.49 s [opt-env-conf-test] in case rest of
  15252. 1906.49 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  15253. 1913.45 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  15254. 1913.45 s [opt-env-conf-test]
  15255. 1913.45 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15256. 1913.48 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  15257. 1913.48 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:267:29-43
  15258. 1913.48 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  15259. 1913.48 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  15260. 1913.48 s [opt-env-conf-test] in case rest of
  15261. 1913.48 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  15262. 1913.48 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  15263. 1913.48 s [opt-env-conf-test] + _ : rest' -> [seg | not (not (null seg))] <> splitOnSlash rest'
  15264. 1913.48 s [opt-env-conf-test]
  15265. 1913.48 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15266. 1913.48 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  15267. 1913.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:265:7-66
  15268. 1913.48 s [opt-env-conf-test] @@ -262,9 +262,8 @@
  15269. 1913.48 s [opt-env-conf-test] splitOnSlash [] = []
  15270. 1913.48 s [opt-env-conf-test] splitOnSlash s =
  15271. 1913.48 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  15272. 1913.48 s [opt-env-conf-test] in case rest of
  15273. 1913.48 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  15274. 1913.49 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  15275. 1913.49 s [opt-env-conf-test]
  15276. 1913.49 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15277. 1913.49 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  15278. 1913.49 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completer.hs:246:27-28
  15279. 1913.49 s [opt-env-conf-test] @@ -243,7 +243,7 @@
  15280. 1913.49 s [opt-env-conf-test] lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  15281. 1913.49 s [opt-env-conf-test] [] -> 0
  15282. 1913.49 s [opt-env-conf-test] ixs -> maximum ixs
  15283. 1913.49 s [opt-env-conf-test] - in if lastDotDotIdx == 0
  15284. 1913.49 s [opt-env-conf-test] + in if lastDotDotIdx == 1
  15285. 1913.49 s [opt-env-conf-test] then (curDirPrefix, afterCurDir, here)
  15286. 1913.49 s [opt-env-conf-test] else
  15287. 1913.49 s [opt-env-conf-test] let prefixComponents = take lastDotDotIdx components
  15288. 1913.49 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:246:10-28
  15289. 1913.49 s [opt-env-conf-test] @@ -243,7 +243,7 @@
  15290. 1913.49 s [opt-env-conf-test] lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  15291. 1913.49 s [opt-env-conf-test] [] -> 0
  15292. 1913.49 s [opt-env-conf-test] ixs -> maximum ixs
  15293. 1913.49 s [opt-env-conf-test] - in if lastDotDotIdx == 0
  15294. 1913.49 s [opt-env-conf-test] + in if True
  15295. 1913.49 s [opt-env-conf-test] then (curDirPrefix, afterCurDir, here)
  15296. 1913.49 s [opt-env-conf-test] else
  15297. 1913.49 s [opt-env-conf-test] let prefixComponents = take lastDotDotIdx components
  15298. 1913.49 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:246:10-28
  15299. 1913.49 s [opt-env-conf-test] @@ -243,7 +243,7 @@
  15300. 1913.49 s [opt-env-conf-test] lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  15301. 1913.49 s [opt-env-conf-test] [] -> 0
  15302. 1913.49 s [opt-env-conf-test] ixs -> maximum ixs
  15303. 1913.49 s [opt-env-conf-test] - in if lastDotDotIdx == 0
  15304. 1913.49 s [opt-env-conf-test] + in if False
  15305. 1913.49 s [opt-env-conf-test] then (curDirPrefix, afterCurDir, here)
  15306. 1913.49 s [opt-env-conf-test] else
  15307. 1913.49 s [opt-env-conf-test] let prefixComponents = take lastDotDotIdx components
  15308. 1913.49 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:246:10-28
  15309. 1913.49 s [opt-env-conf-test] @@ -243,7 +243,7 @@
  15310. 1913.49 s [opt-env-conf-test] lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  15311. 1913.49 s [opt-env-conf-test] [] -> 0
  15312. 1913.49 s [opt-env-conf-test] ixs -> maximum ixs
  15313. 1913.49 s [opt-env-conf-test] - in if lastDotDotIdx == 0
  15314. 1913.49 s [opt-env-conf-test] + in if not (lastDotDotIdx == 0)
  15315. 1913.50 s [opt-env-conf-test] then (curDirPrefix, afterCurDir, here)
  15316. 1913.50 s [opt-env-conf-test] else
  15317. 1913.50 s [opt-env-conf-test] let prefixComponents = take lastDotDotIdx components
  15318. 1913.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:254:19-47
  15319. 1913.50 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  15320. 1913.50 s [opt-env-conf-test] prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
  15321. 1913.50 s [opt-env-conf-test] -- Preserve trailing slash from the original input
  15322. 1913.50 s [opt-env-conf-test] trailingSlash
  15323. 1913.50 s [opt-env-conf-test] - | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
  15324. 1913.50 s [opt-env-conf-test] + | True, not (null remainderComponents) = "/"
  15325. 1913.50 s [opt-env-conf-test] | otherwise = ""
  15326. 1913.50 s [opt-env-conf-test] remainder = intercalate "/" remainderComponents <> trailingSlash
  15327. 1913.50 s [opt-env-conf-test] baseDir = foldl' applyComponent here prefixComponents
  15328. 1913.50 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:254:19-47
  15329. 1913.50 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  15330. 1913.50 s [opt-env-conf-test] prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
  15331. 1913.50 s [opt-env-conf-test] -- Preserve trailing slash from the original input
  15332. 1913.50 s [opt-env-conf-test] trailingSlash
  15333. 1913.50 s [opt-env-conf-test] - | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
  15334. 1913.50 s [opt-env-conf-test] + | not ("/" `isSuffixOf` afterCurDir), not (null remainderComponents) = "/"
  15335. 1913.50 s [opt-env-conf-test] | otherwise = ""
  15336. 1913.50 s [opt-env-conf-test] remainder = intercalate "/" remainderComponents <> trailingSlash
  15337. 1913.50 s [opt-env-conf-test] baseDir = foldl' applyComponent here prefixComponents
  15338. 1913.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:254:54-78
  15339. 1913.50 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  15340. 1913.50 s [opt-env-conf-test] prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
  15341. 1913.50 s [opt-env-conf-test] -- Preserve trailing slash from the original input
  15342. 1913.50 s [opt-env-conf-test] trailingSlash
  15343. 1913.50 s [opt-env-conf-test] - | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
  15344. 1913.50 s [opt-env-conf-test] + | "/" `isSuffixOf` afterCurDir, not (True) = "/"
  15345. 1913.50 s [opt-env-conf-test] | otherwise = ""
  15346. 1913.50 s [opt-env-conf-test] remainder = intercalate "/" remainderComponents <> trailingSlash
  15347. 1913.50 s [opt-env-conf-test] baseDir = foldl' applyComponent here prefixComponents
  15348. 1913.50 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:254:54-78
  15349. 1913.50 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  15350. 1913.50 s [opt-env-conf-test] prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
  15351. 1913.50 s [opt-env-conf-test] -- Preserve trailing slash from the original input
  15352. 1913.50 s [opt-env-conf-test] trailingSlash
  15353. 1913.50 s [opt-env-conf-test] - | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
  15354. 1913.50 s [opt-env-conf-test] + | "/" `isSuffixOf` afterCurDir, not (not (null remainderComponents)) = "/"
  15355. 1913.50 s [opt-env-conf-test] | otherwise = ""
  15356. 1913.50 s [opt-env-conf-test] remainder = intercalate "/" remainderComponents <> trailingSlash
  15357. 1913.50 s [opt-env-conf-test] baseDir = foldl' applyComponent here prefixComponents
  15358. 1913.50 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:254:53-79
  15359. 1913.50 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  15360. 1913.50 s [opt-env-conf-test] prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
  15361. 1913.50 s [opt-env-conf-test] -- Preserve trailing slash from the original input
  15362. 1913.50 s [opt-env-conf-test] trailingSlash
  15363. 1913.50 s [opt-env-conf-test] - | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
  15364. 1913.50 s [opt-env-conf-test] + | "/" `isSuffixOf` afterCurDir, not True = "/"
  15365. 1913.50 s [opt-env-conf-test] | otherwise = ""
  15366. 1913.50 s [opt-env-conf-test] remainder = intercalate "/" remainderComponents <> trailingSlash
  15367. 1913.50 s [opt-env-conf-test] baseDir = foldl' applyComponent here prefixComponents
  15368. 1913.50 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:254:53-79
  15369. 1913.50 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  15370. 1913.50 s [opt-env-conf-test] prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
  15371. 1913.50 s [opt-env-conf-test] -- Preserve trailing slash from the original input
  15372. 1913.50 s [opt-env-conf-test] trailingSlash
  15373. 1913.51 s [opt-env-conf-test] - | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
  15374. 1913.51 s [opt-env-conf-test] + | "/" `isSuffixOf` afterCurDir, not not ((null remainderComponents)) = "/"
  15375. 1913.51 s [opt-env-conf-test] | otherwise = ""
  15376. 1913.51 s [opt-env-conf-test] remainder = intercalate "/" remainderComponents <> trailingSlash
  15377. 1913.51 s [opt-env-conf-test] baseDir = foldl' applyComponent here prefixComponents
  15378. 1913.51 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:254:49-79
  15379. 1913.51 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  15380. 1913.51 s [opt-env-conf-test] prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
  15381. 1913.51 s [opt-env-conf-test] -- Preserve trailing slash from the original input
  15382. 1913.51 s [opt-env-conf-test] trailingSlash
  15383. 1920.63 s [opt-env-conf-test] - | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
  15384. 1920.65 s [opt-env-conf-test] + | "/" `isSuffixOf` afterCurDir, True = "/"
  15385. 1920.65 s [opt-env-conf-test] | otherwise = ""
  15386. 1920.65 s [opt-env-conf-test] remainder = intercalate "/" remainderComponents <> trailingSlash
  15387. 1920.65 s [opt-env-conf-test] baseDir = foldl' applyComponent here prefixComponents
  15388. 1920.65 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:254:49-79
  15389. 1920.65 s [opt-env-conf-test] @@ -251,7 +251,7 @@
  15390. 1920.65 s [opt-env-conf-test] prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
  15391. 1920.65 s [opt-env-conf-test] -- Preserve trailing slash from the original input
  15392. 1920.65 s [opt-env-conf-test] trailingSlash
  15393. 1920.66 s [opt-env-conf-test] - | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
  15394. 1920.66 s [opt-env-conf-test] + | "/" `isSuffixOf` afterCurDir, not (not (null remainderComponents)) = "/"
  15395. 1920.66 s [opt-env-conf-test] | otherwise = ""
  15396. 1920.66 s [opt-env-conf-test] remainder = intercalate "/" remainderComponents <> trailingSlash
  15397. 1920.66 s [opt-env-conf-test] baseDir = foldl' applyComponent here prefixComponents
  15398. 1920.66 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completer.hs:215:16-20
  15399. 1920.66 s [opt-env-conf-test] @@ -212,7 +212,7 @@
  15400. 1920.66 s [opt-env-conf-test]
  15401. 1920.66 s [opt-env-conf-test] hiddenRel :: Path Rel f -> Bool
  15402. 1920.66 s [opt-env-conf-test] hiddenRel p = case toFilePath p of
  15403. 1920.66 s [opt-env-conf-test] - ('.' : _) -> True
  15404. 1920.66 s [opt-env-conf-test] + ('.' : _) -> False
  15405. 1920.66 s [opt-env-conf-test] _ -> False
  15406. 1920.66 s [opt-env-conf-test]
  15407. 1920.66 s [opt-env-conf-test] stripCurDir :: FilePath -> (FilePath, FilePath)
  15408. 1920.66 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completer.hs:216:8-13
  15409. 1920.66 s [opt-env-conf-test] @@ -213,7 +213,7 @@
  15410. 1920.66 s [opt-env-conf-test] hiddenRel :: Path Rel f -> Bool
  15411. 1920.66 s [opt-env-conf-test] hiddenRel p = case toFilePath p of
  15412. 1920.66 s [opt-env-conf-test] ('.' : _) -> True
  15413. 1920.66 s [opt-env-conf-test] - _ -> False
  15414. 1920.66 s [opt-env-conf-test] + _ -> True
  15415. 1920.66 s [opt-env-conf-test]
  15416. 1920.66 s [opt-env-conf-test] stripCurDir :: FilePath -> (FilePath, FilePath)
  15417. 1920.66 s [opt-env-conf-test] stripCurDir = \case
  15418. 1920.66 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:214:15-13
  15419. 1920.66 s [opt-env-conf-test] @@ -211,9 +211,9 @@
  15420. 1920.66 s [opt-env-conf-test] }
  15421. 1920.66 s [opt-env-conf-test]
  15422. 1920.66 s [opt-env-conf-test] hiddenRel :: Path Rel f -> Bool
  15423. 1920.66 s [opt-env-conf-test] -hiddenRel p = case toFilePath p of
  15424. 1920.66 s [opt-env-conf-test] +hiddenRel p = True= case toFilePath p of
  15425. 1920.66 s [opt-env-conf-test] ('.' : _) -> True
  15426. 1920.66 s [opt-env-conf-test] _ -> False
  15427. 1920.66 s [opt-env-conf-test]
  15428. 1920.66 s [opt-env-conf-test] stripCurDir :: FilePath -> (FilePath, FilePath)
  15429. 1920.66 s [opt-env-conf-test] stripCurDir = \case
  15430. 1920.66 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:214:15-13
  15431. 1920.67 s [opt-env-conf-test] @@ -211,9 +211,9 @@
  15432. 1920.67 s [opt-env-conf-test] }
  15433. 1920.67 s [opt-env-conf-test]
  15434. 1920.67 s [opt-env-conf-test] hiddenRel :: Path Rel f -> Bool
  15435. 1920.67 s [opt-env-conf-test] -hiddenRel p = case toFilePath p of
  15436. 1920.67 s [opt-env-conf-test] +hiddenRel p = False= case toFilePath p of
  15437. 1920.67 s [opt-env-conf-test] ('.' : _) -> True
  15438. 1920.67 s [opt-env-conf-test] _ -> False
  15439. 1920.67 s [opt-env-conf-test]
  15440. 1920.67 s [opt-env-conf-test] stripCurDir :: FilePath -> (FilePath, FilePath)
  15441. 1920.67 s [opt-env-conf-test] stripCurDir = \case
  15442. 1920.67 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:214:15-13
  15443. 1920.67 s [opt-env-conf-test] @@ -211,9 +211,9 @@
  15444. 1920.67 s [opt-env-conf-test] }
  15445. 1920.67 s [opt-env-conf-test]
  15446. 1920.67 s [opt-env-conf-test] hiddenRel :: Path Rel f -> Bool
  15447. 1920.67 s [opt-env-conf-test] -hiddenRel p = case toFilePath p of
  15448. 1920.67 s [opt-env-conf-test] +hiddenRel p = not (case toFilePath p of
  15449. 1920.67 s [opt-env-conf-test] ('.' : _) -> True
  15450. 1920.67 s [opt-env-conf-test] - _ -> False
  15451. 1920.67 s [opt-env-conf-test] + _ -> False)
  15452. 1920.67 s [opt-env-conf-test]
  15453. 1920.67 s [opt-env-conf-test] stripCurDir :: FilePath -> (FilePath, FilePath)
  15454. 1920.67 s [opt-env-conf-test] stripCurDir = \case
  15455. 1920.67 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:266:27-35
  15456. 1920.67 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  15457. 1920.67 s [opt-env-conf-test] splitOnSlash s =
  15458. 1920.67 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  15459. 1920.67 s [opt-env-conf-test] in case rest of
  15460. 1920.67 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  15461. 1920.67 s [opt-env-conf-test] + [] -> [seg | not (True)]
  15462. 1920.67 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  15463. 1920.67 s [opt-env-conf-test]
  15464. 1920.67 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15465. 1920.67 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:214:15-13
  15466. 1920.67 s [opt-env-conf-test] @@ -211,9 +211,8 @@
  15467. 1920.67 s [opt-env-conf-test] }
  15468. 1920.67 s [opt-env-conf-test]
  15469. 1920.67 s [opt-env-conf-test] hiddenRel :: Path Rel f -> Bool
  15470. 1920.67 s [opt-env-conf-test] hiddenRel p = case toFilePath p of
  15471. 1920.67 s [opt-env-conf-test] - ('.' : _) -> True
  15472. 1920.67 s [opt-env-conf-test] _ -> False
  15473. 1920.67 s [opt-env-conf-test]
  15474. 1920.67 s [opt-env-conf-test] stripCurDir :: FilePath -> (FilePath, FilePath)
  15475. 1920.67 s [opt-env-conf-test] stripCurDir = \case
  15476. 1920.67 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:272:22-22
  15477. 1920.67 s [opt-env-conf-test] @@ -269,9 +269,8 @@
  15478. 1920.67 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15479. 1920.67 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  15480. 1920.67 s [opt-env-conf-test] applyComponent d ".." = parent d
  15481. 1920.67 s [opt-env-conf-test] applyComponent d c = case parseRelDir c of
  15482. 1920.67 s [opt-env-conf-test] Nothing -> d
  15483. 1920.67 s [opt-env-conf-test] - Just rd -> d </> rd
  15484. 1920.68 s [opt-env-conf-test]
  15485. 1920.68 s [opt-env-conf-test] filterPrefix :: String -> [CompletionResult] -> [CompletionResult]
  15486. 1920.68 s [opt-env-conf-test] filterPrefix s = filter ((s `isPrefixOf`) . completionResultValue)
  15487. 1920.68 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
  15488. 1920.68 s [opt-env-conf-test] @@ -155,11 +155,8 @@
  15489. 1920.68 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  15490. 1920.68 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  15491. 1920.68 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  15492. 1920.68 s [opt-env-conf-test] Nothing -> case fp of
  15493. 1920.68 s [opt-env-conf-test] - [] -> do
  15494. 1920.68 s [opt-env-conf-test] - (ds, _) <- listDirRel baseDir
  15495. 1920.68 s [opt-env-conf-test] - pure (map fromRelDir $ filter (not . hiddenRel) ds)
  15496. 1920.68 s [opt-env-conf-test] _ -> pure []
  15497. 1920.68 s [opt-env-conf-test] Just (Abs ad) -> do
  15498. 1920.68 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15499. 1920.68 s [opt-env-conf-test] pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  15500. 1920.68 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:266:22-36
  15501. 1920.68 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  15502. 1920.68 s [opt-env-conf-test] splitOnSlash s =
  15503. 1920.68 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  15504. 1920.68 s [opt-env-conf-test] in case rest of
  15505. 1920.68 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  15506. 1920.68 s [opt-env-conf-test] + [] -> [seg | True]
  15507. 1920.68 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  15508. 1920.68 s [opt-env-conf-test]
  15509. 1920.68 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15510. 1920.68 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
  15511. 1920.68 s [opt-env-conf-test] @@ -154,19 +154,16 @@
  15512. 1920.68 s [opt-env-conf-test] directoryPathFromDir baseDir prefix fp fp' = do
  15513. 1920.68 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  15514. 1920.68 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  15515. 1920.68 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  15516. 1920.68 s [opt-env-conf-test] Nothing -> case fp of
  15517. 1920.68 s [opt-env-conf-test] [] -> do
  15518. 1920.68 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  15519. 1920.68 s [opt-env-conf-test] pure (map fromRelDir $ filter (not . hiddenRel) ds)
  15520. 1920.68 s [opt-env-conf-test] _ -> pure []
  15521. 1920.68 s [opt-env-conf-test] - Just (Abs ad) -> do
  15522. 1920.68 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  15523. 1920.68 s [opt-env-conf-test] - pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  15524. 1920.68 s [opt-env-conf-test] Just (Rel rd) -> do
  15525. 1920.68 s [opt-env-conf-test] let ad = baseDir </> rd
  15526. 1920.68 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15527. 1920.68 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  15528. 1920.68 s [opt-env-conf-test]
  15529. 1920.68 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  15530. 1920.68 s [opt-env-conf-test] Nothing -> pure []
  15531. 1920.68 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
  15532. 1920.68 s [opt-env-conf-test] @@ -154,19 +154,15 @@
  15533. 1920.68 s [opt-env-conf-test] directoryPathFromDir baseDir prefix fp fp' = do
  15534. 1920.68 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  15535. 1920.68 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  15536. 1920.68 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  15537. 1920.68 s [opt-env-conf-test] Nothing -> case fp of
  15538. 1920.68 s [opt-env-conf-test] [] -> do
  15539. 1920.68 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  15540. 1920.68 s [opt-env-conf-test] pure (map fromRelDir $ filter (not . hiddenRel) ds)
  15541. 1920.68 s [opt-env-conf-test] _ -> pure []
  15542. 1920.68 s [opt-env-conf-test] Just (Abs ad) -> do
  15543. 1920.68 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15544. 1920.68 s [opt-env-conf-test] pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  15545. 1920.68 s [opt-env-conf-test] - Just (Rel rd) -> do
  15546. 1920.68 s [opt-env-conf-test] - let ad = baseDir </> rd
  15547. 1920.68 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  15548. 1920.68 s [opt-env-conf-test] - pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  15549. 1920.68 s [opt-env-conf-test]
  15550. 1920.68 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  15551. 1920.68 s [opt-env-conf-test] Nothing -> pure []
  15552. 1920.68 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:266:27-35
  15553. 1920.68 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  15554. 1920.68 s [opt-env-conf-test] splitOnSlash s =
  15555. 1920.68 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  15556. 1920.68 s [opt-env-conf-test] in case rest of
  15557. 1920.68 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  15558. 1920.68 s [opt-env-conf-test] + [] -> [seg | not (not (null seg))]
  15559. 1920.68 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  15560. 1920.68 s [opt-env-conf-test]
  15561. 1920.68 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15562. 1926.65 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:175:31-53
  15563. 1926.65 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  15564. 1926.67 s [opt-env-conf-test] Nothing -> pure []
  15565. 1926.67 s [opt-env-conf-test] Just (Abs af) -> do
  15566. 1926.67 s [opt-env-conf-test] let dir = parent af
  15567. 1926.68 s [opt-env-conf-test] - let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  15568. 1926.68 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  15569. 1926.68 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  15570. 1926.68 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  15571. 1926.68 s [opt-env-conf-test] Just (Rel rf) ->
  15572. 1926.68 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:179:12-21
  15573. 1926.68 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  15574. 1926.68 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  15575. 1926.68 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  15576. 1926.68 s [opt-env-conf-test] Just (Rel rf) ->
  15577. 1926.68 s [opt-env-conf-test] - if fp == "."
  15578. 1926.68 s [opt-env-conf-test] + if True
  15579. 1926.68 s [opt-env-conf-test] then do
  15580. 1926.68 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  15581. 1926.68 s [opt-env-conf-test] pure (map fromRelDir ds)
  15582. 1926.68 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:175:31-53
  15583. 1926.68 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  15584. 1926.68 s [opt-env-conf-test] Nothing -> pure []
  15585. 1926.68 s [opt-env-conf-test] Just (Abs af) -> do
  15586. 1926.68 s [opt-env-conf-test] let dir = parent af
  15587. 1926.68 s [opt-env-conf-test] - let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  15588. 1926.68 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  15589. 1926.68 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  15590. 1926.68 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  15591. 1926.68 s [opt-env-conf-test] Just (Rel rf) ->
  15592. 1926.68 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:179:12-21
  15593. 1926.68 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  15594. 1926.68 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  15595. 1926.68 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  15596. 1926.68 s [opt-env-conf-test] Just (Rel rf) ->
  15597. 1926.68 s [opt-env-conf-test] - if fp == "."
  15598. 1926.68 s [opt-env-conf-test] + if False
  15599. 1926.68 s [opt-env-conf-test] then do
  15600. 1926.68 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  15601. 1926.68 s [opt-env-conf-test] pure (map fromRelDir ds)
  15602. 1926.68 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:179:12-21
  15603. 1926.68 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  15604. 1926.69 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  15605. 1926.69 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  15606. 1926.69 s [opt-env-conf-test] Just (Rel rf) ->
  15607. 1926.69 s [opt-env-conf-test] - if fp == "."
  15608. 1926.69 s [opt-env-conf-test] + if not (fp == ".")
  15609. 1926.69 s [opt-env-conf-test] then do
  15610. 1926.69 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  15611. 1926.69 s [opt-env-conf-test] pure (map fromRelDir ds)
  15612. 1926.69 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  15613. 1926.69 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  15614. 1926.69 s [opt-env-conf-test] else do
  15615. 1926.69 s [opt-env-conf-test] let dir = parent rf
  15616. 1926.69 s [opt-env-conf-test] let ad = baseDir </> dir
  15617. 1926.69 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  15618. 1926.69 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  15619. 1926.69 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15620. 1926.69 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  15621. 1926.69 s [opt-env-conf-test]
  15622. 1926.69 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  15623. 1926.69 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  15624. 1926.69 s [opt-env-conf-test] else do
  15625. 1926.69 s [opt-env-conf-test] let dir = parent rf
  15626. 1926.69 s [opt-env-conf-test] let ad = baseDir </> dir
  15627. 1926.69 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  15628. 1926.69 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  15629. 1926.69 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15630. 1926.69 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  15631. 1926.69 s [opt-env-conf-test]
  15632. 1926.69 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:186:35-47
  15633. 1926.69 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  15634. 1926.69 s [opt-env-conf-test] else do
  15635. 1926.69 s [opt-env-conf-test] let dir = parent rf
  15636. 1926.69 s [opt-env-conf-test] let ad = baseDir </> dir
  15637. 1926.69 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  15638. 1926.69 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  15639. 1926.69 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15640. 1926.69 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  15641. 1926.69 s [opt-env-conf-test]
  15642. 1926.69 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:175:31-53
  15643. 1926.69 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  15644. 1926.69 s [opt-env-conf-test] Nothing -> pure []
  15645. 1926.69 s [opt-env-conf-test] Just (Abs af) -> do
  15646. 1926.69 s [opt-env-conf-test] let dir = parent af
  15647. 1926.69 s [opt-env-conf-test] - let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  15648. 1926.69 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel (dirname af)) then id else filter (not . hiddenRel)
  15649. 1926.69 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  15650. 1926.70 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  15651. 1926.70 s [opt-env-conf-test] Just (Rel rf) ->
  15652. 1926.70 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
  15653. 1926.70 s [opt-env-conf-test] @@ -168,24 +168,19 @@
  15654. 1926.70 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15655. 1926.70 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  15656. 1926.70 s [opt-env-conf-test]
  15657. 1926.70 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  15658. 1926.70 s [opt-env-conf-test] Nothing -> pure []
  15659. 1926.70 s [opt-env-conf-test] - Just (Abs af) -> do
  15660. 1926.70 s [opt-env-conf-test] - let dir = parent af
  15661. 1926.70 s [opt-env-conf-test] - let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  15662. 1926.70 s [opt-env-conf-test] - (ds, _) <- listDirForgiving dir
  15663. 1926.70 s [opt-env-conf-test] - pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  15664. 1926.70 s [opt-env-conf-test] Just (Rel rf) ->
  15665. 1926.70 s [opt-env-conf-test] if fp == "."
  15666. 1926.70 s [opt-env-conf-test] then do
  15667. 1926.70 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  15668. 1926.70 s [opt-env-conf-test] pure (map fromRelDir ds)
  15669. 1926.70 s [opt-env-conf-test] else do
  15670. 1926.70 s [opt-env-conf-test] let dir = parent rf
  15671. 1926.70 s [opt-env-conf-test] let ad = baseDir </> dir
  15672. 1926.70 s [opt-env-conf-test] let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  15673. 1926.70 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15674. 1926.70 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  15675. 1926.70 s [opt-env-conf-test]
  15676. 1926.70 s [opt-env-conf-test] pure $
  15677. 1926.70 s [opt-env-conf-test] concat
  15678. 1926.70 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
  15679. 1926.70 s [opt-env-conf-test] @@ -168,24 +168,13 @@
  15680. 1926.70 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15681. 1926.70 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  15682. 1926.70 s [opt-env-conf-test]
  15683. 1926.70 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  15684. 1926.70 s [opt-env-conf-test] Nothing -> pure []
  15685. 1926.71 s [opt-env-conf-test] Just (Abs af) -> do
  15686. 1926.71 s [opt-env-conf-test] let dir = parent af
  15687. 1926.71 s [opt-env-conf-test] let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  15688. 1926.71 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  15689. 1926.71 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  15690. 1926.71 s [opt-env-conf-test] - Just (Rel rf) ->
  15691. 1926.71 s [opt-env-conf-test] - if fp == "."
  15692. 1926.71 s [opt-env-conf-test] - then do
  15693. 1926.71 s [opt-env-conf-test] - (ds, _) <- listDirRel baseDir
  15694. 1926.71 s [opt-env-conf-test] - pure (map fromRelDir ds)
  15695. 1926.71 s [opt-env-conf-test] - else do
  15696. 1926.71 s [opt-env-conf-test] - let dir = parent rf
  15697. 1926.71 s [opt-env-conf-test] - let ad = baseDir </> dir
  15698. 1926.71 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  15699. 1926.71 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  15700. 1926.71 s [opt-env-conf-test] - pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  15701. 1926.71 s [opt-env-conf-test]
  15702. 1926.71 s [opt-env-conf-test] pure $
  15703. 1926.71 s [opt-env-conf-test] concat
  15704. 1926.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:192:9-10
  15705. 1926.71 s [opt-env-conf-test] @@ -189,9 +189,7 @@
  15706. 1926.71 s [opt-env-conf-test]
  15707. 1926.71 s [opt-env-conf-test] pure $
  15708. 1926.71 s [opt-env-conf-test] concat
  15709. 1926.71 s [opt-env-conf-test] - [ dirsFromPartialListing,
  15710. 1926.71 s [opt-env-conf-test] - dirsFromParentListing
  15711. 1926.71 s [opt-env-conf-test] ]
  15712. 1926.71 s [opt-env-conf-test] where
  15713. 1926.71 s [opt-env-conf-test] addPrefix :: String -> CompletionResult -> CompletionResult
  15714. 1926.71 s [opt-env-conf-test] addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
  15715. 1926.71 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:192:9-10
  15716. 1926.71 s [opt-env-conf-test] @@ -189,9 +189,8 @@
  15717. 1926.71 s [opt-env-conf-test]
  15718. 1926.71 s [opt-env-conf-test] pure $
  15719. 1926.71 s [opt-env-conf-test] concat
  15720. 1926.71 s [opt-env-conf-test] - [ dirsFromPartialListing,
  15721. 1926.71 s [opt-env-conf-test] dirsFromParentListing
  15722. 1926.71 s [opt-env-conf-test] ]
  15723. 1926.71 s [opt-env-conf-test] where
  15724. 1926.71 s [opt-env-conf-test] addPrefix :: String -> CompletionResult -> CompletionResult
  15725. 1926.71 s [opt-env-conf-test] addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
  15726. 1926.71 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:74:18-27
  15727. 1926.71 s [opt-env-conf-test] @@ -71,14 +71,8 @@
  15728. 1931.93 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
  15729. 1931.93 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  15730. 1931.95 s [opt-env-conf-test] (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
  15731. 1931.95 s [opt-env-conf-test] Nothing -> case fp of
  15732. 1931.95 s [opt-env-conf-test] - [] -> do
  15733. 1931.95 s [opt-env-conf-test] - (ds, fs) <- listDirRel baseDir
  15734. 1931.95 s [opt-env-conf-test] - pure
  15735. 1931.95 s [opt-env-conf-test] - ( map fromRelDir $ filter (not . hiddenRel) ds,
  15736. 1931.95 s [opt-env-conf-test] - map fromRelFile $ filter (not . hiddenRel) fs
  15737. 1931.95 s [opt-env-conf-test] - )
  15738. 1931.95 s [opt-env-conf-test] _ -> pure ([], [])
  15739. 1931.95 s [opt-env-conf-test] Just (Abs ad) -> do
  15740. 1931.95 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  15741. 1931.95 s [opt-env-conf-test] pure
  15742. 1931.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:74:18-27
  15743. 1931.95 s [opt-env-conf-test] @@ -71,14 +71,13 @@
  15744. 1931.95 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
  15745. 1931.95 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  15746. 1931.95 s [opt-env-conf-test] (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
  15747. 1931.95 s [opt-env-conf-test] Nothing -> case fp of
  15748. 1931.95 s [opt-env-conf-test] [] -> do
  15749. 1931.95 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  15750. 1931.95 s [opt-env-conf-test] pure
  15751. 1931.95 s [opt-env-conf-test] ( map fromRelDir $ filter (not . hiddenRel) ds,
  15752. 1931.95 s [opt-env-conf-test] map fromRelFile $ filter (not . hiddenRel) fs
  15753. 1931.95 s [opt-env-conf-test] )
  15754. 1931.95 s [opt-env-conf-test] - _ -> pure ([], [])
  15755. 1931.95 s [opt-env-conf-test] Just (Abs ad) -> do
  15756. 1931.95 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  15757. 1931.95 s [opt-env-conf-test] pure
  15758. 1931.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
  15759. 1931.95 s [opt-env-conf-test] @@ -70,28 +70,20 @@
  15760. 1931.95 s [opt-env-conf-test] filePathFromDir baseDir prefix fp fp' = do
  15761. 1931.95 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
  15762. 1931.95 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  15763. 1931.95 s [opt-env-conf-test] (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
  15764. 1931.95 s [opt-env-conf-test] - Nothing -> case fp of
  15765. 1931.95 s [opt-env-conf-test] - [] -> do
  15766. 1931.95 s [opt-env-conf-test] - (ds, fs) <- listDirRel baseDir
  15767. 1931.96 s [opt-env-conf-test] - pure
  15768. 1931.96 s [opt-env-conf-test] - ( map fromRelDir $ filter (not . hiddenRel) ds,
  15769. 1931.96 s [opt-env-conf-test] - map fromRelFile $ filter (not . hiddenRel) fs
  15770. 1931.96 s [opt-env-conf-test] - )
  15771. 1931.96 s [opt-env-conf-test] - _ -> pure ([], [])
  15772. 1931.96 s [opt-env-conf-test] Just (Abs ad) -> do
  15773. 1931.96 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  15774. 1931.96 s [opt-env-conf-test] pure
  15775. 1931.96 s [opt-env-conf-test] ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
  15776. 1931.96 s [opt-env-conf-test] map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
  15777. 1931.96 s [opt-env-conf-test] )
  15778. 1931.96 s [opt-env-conf-test] Just (Rel rd) -> do
  15779. 1931.96 s [opt-env-conf-test] let ad = baseDir </> rd
  15780. 1931.96 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  15781. 1931.96 s [opt-env-conf-test] pure
  15782. 1931.96 s [opt-env-conf-test] ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
  15783. 1931.96 s [opt-env-conf-test] map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
  15784. 1931.96 s [opt-env-conf-test] )
  15785. 1931.96 s [opt-env-conf-test]
  15786. 1931.96 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  15787. 1931.96 s [opt-env-conf-test] Nothing ->
  15788. 1931.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
  15789. 1931.96 s [opt-env-conf-test] @@ -168,24 +168,23 @@
  15790. 1931.96 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15791. 1931.96 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  15792. 1931.96 s [opt-env-conf-test]
  15793. 1931.96 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  15794. 1931.96 s [opt-env-conf-test] - Nothing -> pure []
  15795. 1931.96 s [opt-env-conf-test] Just (Abs af) -> do
  15796. 1931.96 s [opt-env-conf-test] let dir = parent af
  15797. 1931.96 s [opt-env-conf-test] let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  15798. 1931.96 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  15799. 1931.96 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  15800. 1931.96 s [opt-env-conf-test] Just (Rel rf) ->
  15801. 1931.96 s [opt-env-conf-test] if fp == "."
  15802. 1931.96 s [opt-env-conf-test] then do
  15803. 1931.96 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  15804. 1931.96 s [opt-env-conf-test] pure (map fromRelDir ds)
  15805. 1931.96 s [opt-env-conf-test] else do
  15806. 1931.96 s [opt-env-conf-test] let dir = parent rf
  15807. 1931.96 s [opt-env-conf-test] let ad = baseDir </> dir
  15808. 1931.96 s [opt-env-conf-test] let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  15809. 1931.96 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15810. 1931.96 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  15811. 1931.96 s [opt-env-conf-test]
  15812. 1931.96 s [opt-env-conf-test] pure $
  15813. 1931.96 s [opt-env-conf-test] concat
  15814. 1931.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
  15815. 1931.96 s [opt-env-conf-test] @@ -70,28 +70,22 @@
  15816. 1931.96 s [opt-env-conf-test] filePathFromDir baseDir prefix fp fp' = do
  15817. 1931.96 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
  15818. 1931.96 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  15819. 1931.96 s [opt-env-conf-test] (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
  15820. 1931.96 s [opt-env-conf-test] Nothing -> case fp of
  15821. 1931.96 s [opt-env-conf-test] [] -> do
  15822. 1931.96 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  15823. 1931.96 s [opt-env-conf-test] pure
  15824. 1931.96 s [opt-env-conf-test] ( map fromRelDir $ filter (not . hiddenRel) ds,
  15825. 1931.96 s [opt-env-conf-test] map fromRelFile $ filter (not . hiddenRel) fs
  15826. 1931.96 s [opt-env-conf-test] )
  15827. 1931.96 s [opt-env-conf-test] _ -> pure ([], [])
  15828. 1931.96 s [opt-env-conf-test] - Just (Abs ad) -> do
  15829. 1931.96 s [opt-env-conf-test] - (ds, fs) <- listDirForgiving ad
  15830. 1931.96 s [opt-env-conf-test] - pure
  15831. 1931.96 s [opt-env-conf-test] - ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
  15832. 1931.96 s [opt-env-conf-test] - map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
  15833. 1931.96 s [opt-env-conf-test] - )
  15834. 1931.96 s [opt-env-conf-test] Just (Rel rd) -> do
  15835. 1931.96 s [opt-env-conf-test] let ad = baseDir </> rd
  15836. 1931.96 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  15837. 1931.96 s [opt-env-conf-test] pure
  15838. 1931.96 s [opt-env-conf-test] ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
  15839. 1931.96 s [opt-env-conf-test] map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
  15840. 1931.96 s [opt-env-conf-test] )
  15841. 1931.96 s [opt-env-conf-test]
  15842. 1931.96 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  15843. 1931.96 s [opt-env-conf-test] Nothing ->
  15844. 1931.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
  15845. 1931.96 s [opt-env-conf-test] @@ -154,19 +154,14 @@
  15846. 1931.96 s [opt-env-conf-test] directoryPathFromDir baseDir prefix fp fp' = do
  15847. 1931.96 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  15848. 1931.96 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  15849. 1931.96 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  15850. 1931.96 s [opt-env-conf-test] - Nothing -> case fp of
  15851. 1931.96 s [opt-env-conf-test] - [] -> do
  15852. 1931.96 s [opt-env-conf-test] - (ds, _) <- listDirRel baseDir
  15853. 1931.96 s [opt-env-conf-test] - pure (map fromRelDir $ filter (not . hiddenRel) ds)
  15854. 1931.96 s [opt-env-conf-test] - _ -> pure []
  15855. 1931.96 s [opt-env-conf-test] Just (Abs ad) -> do
  15856. 1931.96 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15857. 1931.96 s [opt-env-conf-test] pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  15858. 1931.96 s [opt-env-conf-test] Just (Rel rd) -> do
  15859. 1931.96 s [opt-env-conf-test] let ad = baseDir </> rd
  15860. 1931.96 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15861. 1931.96 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  15862. 1931.96 s [opt-env-conf-test]
  15863. 1931.96 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  15864. 1931.96 s [opt-env-conf-test] Nothing -> pure []
  15865. 1931.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:214:15-13
  15866. 1931.96 s [opt-env-conf-test] @@ -211,9 +211,8 @@
  15867. 1931.96 s [opt-env-conf-test] }
  15868. 1931.96 s [opt-env-conf-test]
  15869. 1931.96 s [opt-env-conf-test] hiddenRel :: Path Rel f -> Bool
  15870. 1931.96 s [opt-env-conf-test] hiddenRel p = case toFilePath p of
  15871. 1931.96 s [opt-env-conf-test] ('.' : _) -> True
  15872. 1931.96 s [opt-env-conf-test] - _ -> False
  15873. 1931.96 s [opt-env-conf-test]
  15874. 1931.96 s [opt-env-conf-test] stripCurDir :: FilePath -> (FilePath, FilePath)
  15875. 1931.96 s [opt-env-conf-test] stripCurDir = \case
  15876. 1931.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:243:23-27
  15877. 1931.96 s [opt-env-conf-test] @@ -240,9 +240,8 @@
  15878. 1931.96 s [opt-env-conf-test] let (curDirPrefix, afterCurDir) = stripCurDir fp'
  15879. 1931.96 s [opt-env-conf-test] components = splitOnSlash afterCurDir
  15880. 1931.96 s [opt-env-conf-test] -- Find the index after the last "../" component
  15881. 1931.96 s [opt-env-conf-test] lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  15882. 1931.96 s [opt-env-conf-test] - [] -> 0
  15883. 1931.96 s [opt-env-conf-test] ixs -> maximum ixs
  15884. 1931.96 s [opt-env-conf-test] in if lastDotDotIdx == 0
  15885. 1931.96 s [opt-env-conf-test] then (curDirPrefix, afterCurDir, here)
  15886. 1931.96 s [opt-env-conf-test] else
  15887. 1931.96 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
  15888. 1931.96 s [opt-env-conf-test] @@ -155,11 +155,10 @@
  15889. 1931.96 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  15890. 1931.97 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  15891. 1931.97 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  15892. 1931.97 s [opt-env-conf-test] Nothing -> case fp of
  15893. 1931.97 s [opt-env-conf-test] [] -> do
  15894. 1931.97 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  15895. 1931.97 s [opt-env-conf-test] pure (map fromRelDir $ filter (not . hiddenRel) ds)
  15896. 1931.97 s [opt-env-conf-test] - _ -> pure []
  15897. 1931.97 s [opt-env-conf-test] Just (Abs ad) -> do
  15898. 1931.97 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  15899. 1931.97 s [opt-env-conf-test] pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  15900. 1931.97 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:243:66-75
  15901. 1931.97 s [opt-env-conf-test] @@ -240,7 +240,7 @@
  15902. 1931.97 s [opt-env-conf-test] let (curDirPrefix, afterCurDir) = stripCurDir fp'
  15903. 1931.97 s [opt-env-conf-test] components = splitOnSlash afterCurDir
  15904. 1931.97 s [opt-env-conf-test] -- Find the index after the last "../" component
  15905. 1931.97 s [opt-env-conf-test] - lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  15906. 1931.97 s [opt-env-conf-test] + lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, not (c == "..")] of
  15907. 1931.97 s [opt-env-conf-test] [] -> 0
  15908. 1931.97 s [opt-env-conf-test] ixs -> maximum ixs
  15909. 1931.97 s [opt-env-conf-test] in if lastDotDotIdx == 0
  15910. 1931.97 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completer.hs:243:28-76
  15911. 1931.97 s [opt-env-conf-test] @@ -240,7 +240,6 @@
  15912. 1931.97 s [opt-env-conf-test] let (curDirPrefix, afterCurDir) = stripCurDir fp'
  15913. 1931.97 s [opt-env-conf-test] components = splitOnSlash afterCurDir
  15914. 1931.97 s [opt-env-conf-test] -- Find the index after the last "../" component
  15915. 1937.04 s [opt-env-conf-test] - lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  15916. 1937.07 s [opt-env-conf-test] [] -> 0
  15917. 1937.07 s [opt-env-conf-test] ixs -> maximum ixs
  15918. 1937.07 s [opt-env-conf-test] in if lastDotDotIdx == 0
  15919. 1937.07 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:243:23-27
  15920. 1937.07 s [opt-env-conf-test] @@ -240,9 +240,8 @@
  15921. 1937.07 s [opt-env-conf-test] let (curDirPrefix, afterCurDir) = stripCurDir fp'
  15922. 1937.07 s [opt-env-conf-test] components = splitOnSlash afterCurDir
  15923. 1937.07 s [opt-env-conf-test] -- Find the index after the last "../" component
  15924. 1937.07 s [opt-env-conf-test] lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  15925. 1937.07 s [opt-env-conf-test] [] -> 0
  15926. 1937.07 s [opt-env-conf-test] - ixs -> maximum ixs
  15927. 1937.07 s [opt-env-conf-test] in if lastDotDotIdx == 0
  15928. 1937.07 s [opt-env-conf-test] then (curDirPrefix, afterCurDir, here)
  15929. 1937.07 s [opt-env-conf-test] else
  15930. 1937.07 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:265:7-66
  15931. 1937.07 s [opt-env-conf-test] @@ -262,9 +262,8 @@
  15932. 1937.07 s [opt-env-conf-test] splitOnSlash [] = []
  15933. 1937.07 s [opt-env-conf-test] splitOnSlash s =
  15934. 1937.07 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  15935. 1937.07 s [opt-env-conf-test] in case rest of
  15936. 1937.07 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  15937. 1937.07 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  15938. 1937.07 s [opt-env-conf-test]
  15939. 1937.07 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15940. 1937.07 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  15941. 1937.08 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:243:66-75
  15942. 1937.08 s [opt-env-conf-test] @@ -240,7 +240,7 @@
  15943. 1937.08 s [opt-env-conf-test] let (curDirPrefix, afterCurDir) = stripCurDir fp'
  15944. 1937.08 s [opt-env-conf-test] components = splitOnSlash afterCurDir
  15945. 1937.08 s [opt-env-conf-test] -- Find the index after the last "../" component
  15946. 1937.08 s [opt-env-conf-test] - lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  15947. 1937.08 s [opt-env-conf-test] + lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, True] of
  15948. 1937.08 s [opt-env-conf-test] [] -> 0
  15949. 1937.08 s [opt-env-conf-test] ixs -> maximum ixs
  15950. 1937.08 s [opt-env-conf-test] in if lastDotDotIdx == 0
  15951. 1937.08 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
  15952. 1937.08 s [opt-env-conf-test] @@ -93,33 +93,25 @@
  15953. 1937.08 s [opt-env-conf-test] map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
  15954. 1937.08 s [opt-env-conf-test] )
  15955. 1937.08 s [opt-env-conf-test]
  15956. 1937.08 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  15957. 1937.08 s [opt-env-conf-test] Nothing ->
  15958. 1937.08 s [opt-env-conf-test] if fp == "."
  15959. 1937.08 s [opt-env-conf-test] then do
  15960. 1937.08 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  15961. 1937.08 s [opt-env-conf-test] pure
  15962. 1937.08 s [opt-env-conf-test] ( map fromRelDir ds,
  15963. 1937.08 s [opt-env-conf-test] map fromRelFile fs
  15964. 1937.08 s [opt-env-conf-test] )
  15965. 1937.08 s [opt-env-conf-test] else pure ([], [])
  15966. 1937.08 s [opt-env-conf-test] - Just (Abs af) -> do
  15967. 1937.08 s [opt-env-conf-test] - let dir = parent af
  15968. 1937.08 s [opt-env-conf-test] - let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
  15969. 1937.08 s [opt-env-conf-test] - (ds, fs) <- listDirForgiving dir
  15970. 1937.08 s [opt-env-conf-test] - pure
  15971. 1937.08 s [opt-env-conf-test] - ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
  15972. 1937.08 s [opt-env-conf-test] - map (fromAbsFile . (dir </>)) $ filterHidden fs
  15973. 1937.08 s [opt-env-conf-test] - )
  15974. 1937.08 s [opt-env-conf-test] Just (Rel rf) -> do
  15975. 1937.08 s [opt-env-conf-test] let dir = parent rf
  15976. 1937.08 s [opt-env-conf-test] let ad = baseDir </> dir
  15977. 1937.08 s [opt-env-conf-test] let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  15978. 1937.08 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  15979. 1937.08 s [opt-env-conf-test] pure
  15980. 1937.08 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  15981. 1937.08 s [opt-env-conf-test] map (fromRelFile . (dir </>)) $ filterHidden fs
  15982. 1937.08 s [opt-env-conf-test] )
  15983. 1937.08 s [opt-env-conf-test]
  15984. 1937.08 s [opt-env-conf-test] pure $
  15985. 1937.09 s [opt-env-conf-test] concat
  15986. 1937.09 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:267:34-42
  15987. 1937.09 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  15988. 1937.09 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  15989. 1937.09 s [opt-env-conf-test] in case rest of
  15990. 1937.09 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  15991. 1937.09 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  15992. 1937.09 s [opt-env-conf-test] + _ : rest' -> [seg | not (True)] <> splitOnSlash rest'
  15993. 1937.09 s [opt-env-conf-test]
  15994. 1937.09 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  15995. 1937.09 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  15996. 1937.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
  15997. 1937.09 s [opt-env-conf-test] @@ -93,33 +93,24 @@
  15998. 1937.09 s [opt-env-conf-test] map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
  15999. 1937.09 s [opt-env-conf-test] )
  16000. 1937.09 s [opt-env-conf-test]
  16001. 1937.09 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  16002. 1937.09 s [opt-env-conf-test] Nothing ->
  16003. 1937.09 s [opt-env-conf-test] if fp == "."
  16004. 1937.09 s [opt-env-conf-test] then do
  16005. 1937.09 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  16006. 1937.09 s [opt-env-conf-test] pure
  16007. 1937.09 s [opt-env-conf-test] ( map fromRelDir ds,
  16008. 1937.09 s [opt-env-conf-test] map fromRelFile fs
  16009. 1937.09 s [opt-env-conf-test] )
  16010. 1937.09 s [opt-env-conf-test] else pure ([], [])
  16011. 1937.09 s [opt-env-conf-test] Just (Abs af) -> do
  16012. 1937.09 s [opt-env-conf-test] let dir = parent af
  16013. 1937.09 s [opt-env-conf-test] let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
  16014. 1937.09 s [opt-env-conf-test] (ds, fs) <- listDirForgiving dir
  16015. 1937.09 s [opt-env-conf-test] pure
  16016. 1937.09 s [opt-env-conf-test] ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
  16017. 1937.09 s [opt-env-conf-test] map (fromAbsFile . (dir </>)) $ filterHidden fs
  16018. 1937.09 s [opt-env-conf-test] )
  16019. 1937.09 s [opt-env-conf-test] - Just (Rel rf) -> do
  16020. 1937.09 s [opt-env-conf-test] - let dir = parent rf
  16021. 1937.09 s [opt-env-conf-test] - let ad = baseDir </> dir
  16022. 1937.09 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  16023. 1937.09 s [opt-env-conf-test] - (ds, fs) <- listDirForgiving ad
  16024. 1937.09 s [opt-env-conf-test] - pure
  16025. 1937.09 s [opt-env-conf-test] - ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  16026. 1937.09 s [opt-env-conf-test] - map (fromRelFile . (dir </>)) $ filterHidden fs
  16027. 1937.09 s [opt-env-conf-test] - )
  16028. 1937.09 s [opt-env-conf-test]
  16029. 1937.09 s [opt-env-conf-test] pure $
  16030. 1937.09 s [opt-env-conf-test] concat
  16031. 1937.09 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
  16032. 1937.09 s [opt-env-conf-test] @@ -123,11 +123,7 @@
  16033. 1937.09 s [opt-env-conf-test]
  16034. 1937.09 s [opt-env-conf-test] pure $
  16035. 1937.09 s [opt-env-conf-test] concat
  16036. 1937.09 s [opt-env-conf-test] - [ map fileResult filesFromPartialListing,
  16037. 1937.09 s [opt-env-conf-test] - map fileResult filesFromParentListing,
  16038. 1937.09 s [opt-env-conf-test] - map dirResult dirsFromPartialListing,
  16039. 1937.09 s [opt-env-conf-test] - map dirResult dirsFromParentListing
  16040. 1937.10 s [opt-env-conf-test] ]
  16041. 1937.10 s [opt-env-conf-test] where
  16042. 1937.10 s [opt-env-conf-test] addPrefix :: String -> CompletionResult -> CompletionResult
  16043. 1937.10 s [opt-env-conf-test] addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
  16044. 1937.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
  16045. 1937.10 s [opt-env-conf-test] @@ -123,11 +123,10 @@
  16046. 1937.10 s [opt-env-conf-test]
  16047. 1937.10 s [opt-env-conf-test] pure $
  16048. 1937.10 s [opt-env-conf-test] concat
  16049. 1937.10 s [opt-env-conf-test] - [ map fileResult filesFromPartialListing,
  16050. 1937.10 s [opt-env-conf-test] map fileResult filesFromParentListing,
  16051. 1937.10 s [opt-env-conf-test] map dirResult dirsFromPartialListing,
  16052. 1937.10 s [opt-env-conf-test] map dirResult dirsFromParentListing
  16053. 1937.10 s [opt-env-conf-test] ]
  16054. 1937.10 s [opt-env-conf-test] where
  16055. 1937.10 s [opt-env-conf-test] addPrefix :: String -> CompletionResult -> CompletionResult
  16056. 1937.10 s [opt-env-conf-test] addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
  16057. 1937.10 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
  16058. 1937.10 s [opt-env-conf-test] @@ -123,11 +123,10 @@
  16059. 1937.10 s [opt-env-conf-test]
  16060. 1937.10 s [opt-env-conf-test] pure $
  16061. 1937.10 s [opt-env-conf-test] concat
  16062. 1937.10 s [opt-env-conf-test] [ map fileResult filesFromPartialListing,
  16063. 1937.10 s [opt-env-conf-test] map fileResult filesFromParentListing,
  16064. 1937.10 s [opt-env-conf-test] map dirResult dirsFromPartialListing,
  16065. 1937.10 s [opt-env-conf-test] - map dirResult dirsFromParentListing
  16066. 1937.10 s [opt-env-conf-test] ]
  16067. 1937.10 s [opt-env-conf-test] where
  16068. 1937.10 s [opt-env-conf-test] addPrefix :: String -> CompletionResult -> CompletionResult
  16069. 1937.10 s [opt-env-conf-test] addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
  16070. 1937.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:144:9-50
  16071. 1937.10 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  16072. 1937.10 s [opt-env-conf-test] pure $ filter matchesExtension results
  16073. 1937.10 s [opt-env-conf-test] where
  16074. 1937.10 s [opt-env-conf-test] matchesExtension cr
  16075. 1937.10 s [opt-env-conf-test] - | "/" `isSuffixOf` completionResultValue cr = True
  16076. 1937.10 s [opt-env-conf-test] + | True = True
  16077. 1937.10 s [opt-env-conf-test] | otherwise = any (`isSuffixOf` completionResultValue cr) exts
  16078. 1937.10 s [opt-env-conf-test]
  16079. 1937.10 s [opt-env-conf-test] directoryPath :: Completer
  16080. 1937.10 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completer.hs:144:53-57
  16081. 1937.10 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  16082. 1937.10 s [opt-env-conf-test] pure $ filter matchesExtension results
  16083. 1937.10 s [opt-env-conf-test] where
  16084. 1937.10 s [opt-env-conf-test] matchesExtension cr
  16085. 1937.10 s [opt-env-conf-test] - | "/" `isSuffixOf` completionResultValue cr = True
  16086. 1937.10 s [opt-env-conf-test] + | "/" `isSuffixOf` completionResultValue cr = False
  16087. 1937.10 s [opt-env-conf-test] | otherwise = any (`isSuffixOf` completionResultValue cr) exts
  16088. 1937.10 s [opt-env-conf-test]
  16089. 1937.10 s [opt-env-conf-test] directoryPath :: Completer
  16090. 1937.10 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:144:9-50
  16091. 1937.10 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  16092. 1937.10 s [opt-env-conf-test] pure $ filter matchesExtension results
  16093. 1937.10 s [opt-env-conf-test] where
  16094. 1937.11 s [opt-env-conf-test] matchesExtension cr
  16095. 1937.11 s [opt-env-conf-test] - | "/" `isSuffixOf` completionResultValue cr = True
  16096. 1937.11 s [opt-env-conf-test] + | not ("/" `isSuffixOf` completionResultValue cr) = True
  16097. 1937.11 s [opt-env-conf-test] | otherwise = any (`isSuffixOf` completionResultValue cr) exts
  16098. 1937.11 s [opt-env-conf-test]
  16099. 1937.11 s [opt-env-conf-test] directoryPath :: Completer
  16100. 1937.11 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:145:21-69
  16101. 1937.11 s [opt-env-conf-test] @@ -142,7 +142,7 @@
  16102. 1937.11 s [opt-env-conf-test] where
  16103. 1937.11 s [opt-env-conf-test] matchesExtension cr
  16104. 1937.11 s [opt-env-conf-test] | "/" `isSuffixOf` completionResultValue cr = True
  16105. 1945.50 s [opt-env-conf-test] - | otherwise = any (`isSuffixOf` completionResultValue cr) exts
  16106. 1945.53 s [opt-env-conf-test] + | otherwise = True
  16107. 1945.53 s [opt-env-conf-test]
  16108. 1945.53 s [opt-env-conf-test] directoryPath :: Completer
  16109. 1945.53 s [opt-env-conf-test] directoryPath = Completer $ \fp' -> do
  16110. 1945.53 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:145:21-69
  16111. 1945.53 s [opt-env-conf-test] @@ -142,7 +142,7 @@
  16112. 1945.53 s [opt-env-conf-test] where
  16113. 1945.53 s [opt-env-conf-test] matchesExtension cr
  16114. 1945.53 s [opt-env-conf-test] | "/" `isSuffixOf` completionResultValue cr = True
  16115. 1945.53 s [opt-env-conf-test] - | otherwise = any (`isSuffixOf` completionResultValue cr) exts
  16116. 1945.53 s [opt-env-conf-test] + | otherwise = not (any (`isSuffixOf` completionResultValue cr) exts)
  16117. 1945.53 s [opt-env-conf-test]
  16118. 1945.53 s [opt-env-conf-test] directoryPath :: Completer
  16119. 1945.53 s [opt-env-conf-test] directoryPath = Completer $ \fp' -> do
  16120. 1945.53 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:145:21-69
  16121. 1945.53 s [opt-env-conf-test] @@ -142,7 +142,7 @@
  16122. 1945.53 s [opt-env-conf-test] where
  16123. 1945.53 s [opt-env-conf-test] matchesExtension cr
  16124. 1945.53 s [opt-env-conf-test] | "/" `isSuffixOf` completionResultValue cr = True
  16125. 1945.53 s [opt-env-conf-test] - | otherwise = any (`isSuffixOf` completionResultValue cr) exts
  16126. 1945.53 s [opt-env-conf-test] + | otherwise = False
  16127. 1945.53 s [opt-env-conf-test]
  16128. 1945.53 s [opt-env-conf-test] directoryPath :: Completer
  16129. 1945.53 s [opt-env-conf-test] directoryPath = Completer $ \fp' -> do
  16130. 1945.54 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Check.hs:80:42-56
  16131. 1945.54 s [opt-env-conf-test] @@ -77,7 +77,7 @@
  16132. 1945.54 s [opt-env-conf-test] Maybe JSON.Object ->
  16133. 1945.54 s [opt-env-conf-test] IO (CheckResult a)
  16134. 1945.54 s [opt-env-conf-test] runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
  16135. 1945.54 s [opt-env-conf-test] - errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
  16136. 1945.54 s [opt-env-conf-test] + errOrSets <- runParserOn capabilities (Nothing) p args envVars mConfig
  16137. 1945.54 s [opt-env-conf-test] pure $ case errOrSets of
  16138. 1945.54 s [opt-env-conf-test] Right a -> CheckSucceeded a
  16139. 1945.54 s [opt-env-conf-test] Left errs ->
  16140. 1945.54 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Check.hs:91:72-105
  16141. 1945.54 s [opt-env-conf-test] @@ -88,7 +88,7 @@
  16142. 1945.54 s [opt-env-conf-test] -- ALL errors are missing capability errors
  16143. 1945.54 s [opt-env-conf-test] mapM
  16144. 1945.54 s [opt-env-conf-test] ( \case
  16145. 1945.54 s [opt-env-conf-test] - ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
  16146. 1945.54 s [opt-env-conf-test] + ParseError mLoc (ParseErrorMissingCapability cap) -> Nothing
  16147. 1945.54 s [opt-env-conf-test] _ -> Nothing
  16148. 1945.54 s [opt-env-conf-test] )
  16149. 1945.54 s [opt-env-conf-test] errs
  16150. 1945.54 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Check.hs:95:11-40
  16151. 1945.54 s [opt-env-conf-test] @@ -92,6 +92,5 @@
  16152. 1945.54 s [opt-env-conf-test] _ -> Nothing
  16153. 1945.54 s [opt-env-conf-test] )
  16154. 1945.54 s [opt-env-conf-test] errs
  16155. 1945.54 s [opt-env-conf-test] in case mMissingCaps of
  16156. 1945.54 s [opt-env-conf-test] - Just ne -> CheckIncapable ne
  16157. 1945.54 s [opt-env-conf-test] Nothing -> CheckFailed errs
  16158. 1945.55 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Check.hs:95:11-40
  16159. 1945.55 s [opt-env-conf-test] @@ -92,6 +92,5 @@
  16160. 1945.55 s [opt-env-conf-test] _ -> Nothing
  16161. 1945.55 s [opt-env-conf-test] )
  16162. 1945.55 s [opt-env-conf-test] errs
  16163. 1945.55 s [opt-env-conf-test] in case mMissingCaps of
  16164. 1945.55 s [opt-env-conf-test] Just ne -> CheckIncapable ne
  16165. 1945.55 s [opt-env-conf-test] - Nothing -> CheckFailed errs
  16166. 1945.55 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Check.hs:81:10-40
  16167. 1945.55 s [opt-env-conf-test] @@ -78,20 +78,19 @@
  16168. 1945.55 s [opt-env-conf-test] IO (CheckResult a)
  16169. 1945.55 s [opt-env-conf-test] runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
  16170. 1945.55 s [opt-env-conf-test] errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
  16171. 1945.55 s [opt-env-conf-test] pure $ case errOrSets of
  16172. 1945.55 s [opt-env-conf-test] - Right a -> CheckSucceeded a
  16173. 1945.55 s [opt-env-conf-test] Left errs ->
  16174. 1945.55 s [opt-env-conf-test] -- If all the errors are missing capability errors, return
  16175. 1945.55 s [opt-env-conf-test] -- CheckIncapable, otherwise CheckFailed
  16176. 1945.55 s [opt-env-conf-test] let mMissingCaps =
  16177. 1945.55 s [opt-env-conf-test] -- This MUST be mapM instead of mapMaybe because we need to ensure
  16178. 1945.55 s [opt-env-conf-test] -- ALL errors are missing capability errors
  16179. 1945.55 s [opt-env-conf-test] mapM
  16180. 1945.55 s [opt-env-conf-test] ( \case
  16181. 1945.55 s [opt-env-conf-test] ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
  16182. 1945.55 s [opt-env-conf-test] _ -> Nothing
  16183. 1945.55 s [opt-env-conf-test] )
  16184. 1945.55 s [opt-env-conf-test] errs
  16185. 1945.55 s [opt-env-conf-test] in case mMissingCaps of
  16186. 1945.55 s [opt-env-conf-test] Just ne -> CheckIncapable ne
  16187. 1945.56 s [opt-env-conf-test] Nothing -> CheckFailed errs
  16188. 1945.56 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Check.hs:81:10-40
  16189. 1945.56 s [opt-env-conf-test] @@ -78,20 +78,5 @@
  16190. 1945.56 s [opt-env-conf-test] IO (CheckResult a)
  16191. 1945.56 s [opt-env-conf-test] runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
  16192. 1945.56 s [opt-env-conf-test] errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
  16193. 1945.56 s [opt-env-conf-test] pure $ case errOrSets of
  16194. 1945.56 s [opt-env-conf-test] Right a -> CheckSucceeded a
  16195. 1945.56 s [opt-env-conf-test] - Left errs ->
  16196. 1945.56 s [opt-env-conf-test] - -- If all the errors are missing capability errors, return
  16197. 1945.56 s [opt-env-conf-test] - -- CheckIncapable, otherwise CheckFailed
  16198. 1945.56 s [opt-env-conf-test] - let mMissingCaps =
  16199. 1945.56 s [opt-env-conf-test] - -- This MUST be mapM instead of mapMaybe because we need to ensure
  16200. 1945.56 s [opt-env-conf-test] - -- ALL errors are missing capability errors
  16201. 1945.56 s [opt-env-conf-test] - mapM
  16202. 1945.56 s [opt-env-conf-test] - ( \case
  16203. 1945.56 s [opt-env-conf-test] - ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
  16204. 1945.56 s [opt-env-conf-test] - _ -> Nothing
  16205. 1945.56 s [opt-env-conf-test] - )
  16206. 1945.56 s [opt-env-conf-test] - errs
  16207. 1945.56 s [opt-env-conf-test] - in case mMissingCaps of
  16208. 1945.56 s [opt-env-conf-test] - Just ne -> CheckIncapable ne
  16209. 1945.56 s [opt-env-conf-test] - Nothing -> CheckFailed errs
  16210. 1945.56 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Check.hs:34:25-18
  16211. 1945.56 s [opt-env-conf-test] @@ -31,9 +31,8 @@
  16212. 1945.56 s [opt-env-conf-test] stderrTc <- getTerminalCapabilitiesFromHandle stderr
  16213. 1945.56 s [opt-env-conf-test] errOrSets <- runSettingsCheckOn capabilities stderrTc p args envVars mConfig
  16214. 1945.56 s [opt-env-conf-test] case errOrSets of
  16215. 1945.56 s [opt-env-conf-test] CheckFailed errs -> do
  16216. 1945.56 s [opt-env-conf-test] - hPutChunksLocaleWith stderrTc stderr $ renderErrors errs
  16217. 1945.56 s [opt-env-conf-test] exitFailure
  16218. 1945.56 s [opt-env-conf-test] CheckIncapable missingCaps -> do
  16219. 1945.56 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  16220. 1945.56 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout ["Could not complete parsing settings because of missing capabilities, but no errors were found so far."]
  16221. 1945.56 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Check.hs:40:7-83
  16222. 1945.56 s [opt-env-conf-test] @@ -37,7 +37,6 @@
  16223. 1945.56 s [opt-env-conf-test] CheckIncapable missingCaps -> do
  16224. 1945.56 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  16225. 1945.57 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout ["Could not complete parsing settings because of missing capabilities, but no errors were found so far."]
  16226. 1945.57 s [opt-env-conf-test] - hPutChunksLocaleWith stderrTc stderr $ renderMissingCapabilities missingCaps
  16227. 1945.57 s [opt-env-conf-test] exitSuccess
  16228. 1945.57 s [opt-env-conf-test] CheckSucceeded _ -> do
  16229. 1945.57 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  16230. 1945.57 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Check.hs:39:7-143
  16231. 1945.57 s [opt-env-conf-test] @@ -36,7 +36,6 @@
  16232. 1945.57 s [opt-env-conf-test] exitFailure
  16233. 1945.57 s [opt-env-conf-test] CheckIncapable missingCaps -> do
  16234. 1945.57 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  16235. 1945.57 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout ["Could not complete parsing settings because of missing capabilities, but no errors were found so far."]
  16236. 1945.57 s [opt-env-conf-test] hPutChunksLocaleWith stderrTc stderr $ renderMissingCapabilities missingCaps
  16237. 1945.57 s [opt-env-conf-test] exitSuccess
  16238. 1945.57 s [opt-env-conf-test] CheckSucceeded _ -> do
  16239. 1945.57 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Check.hs:44:7-71
  16240. 1945.57 s [opt-env-conf-test] @@ -41,7 +41,6 @@
  16241. 1945.57 s [opt-env-conf-test] exitSuccess
  16242. 1945.57 s [opt-env-conf-test] CheckSucceeded _ -> do
  16243. 1945.57 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  16244. 1945.57 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout ["Settings parsed successfully."]
  16245. 1945.57 s [opt-env-conf-test] exitSuccess
  16246. 1945.57 s [opt-env-conf-test]
  16247. 1945.57 s [opt-env-conf-test] renderMissingCapabilities :: NonEmpty MissingCapability -> [Chunk]
  16248. 1945.57 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:426:25-31
  16249. 1945.57 s [opt-env-conf-test] @@ -423,6 +423,6 @@
  16250. 1945.57 s [opt-env-conf-test] longDasheds =
  16251. 1945.57 s [opt-env-conf-test] mapMaybe
  16252. 1945.57 s [opt-env-conf-test] ( \case
  16253. 1945.57 s [opt-env-conf-test] - DashedLong l -> Just l
  16254. 1945.57 s [opt-env-conf-test] + DashedLong l -> Nothing
  16255. 1945.57 s [opt-env-conf-test] DashedShort _ -> Nothing
  16256. 1945.57 s [opt-env-conf-test] )
  16257. 1945.57 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:418:26-32
  16258. 1945.57 s [opt-env-conf-test] @@ -415,7 +415,7 @@
  16259. 1945.57 s [opt-env-conf-test] shortDasheds =
  16260. 1945.57 s [opt-env-conf-test] mapMaybe
  16261. 1945.57 s [opt-env-conf-test] ( \case
  16262. 1945.57 s [opt-env-conf-test] - DashedShort c -> Just c
  16263. 1945.57 s [opt-env-conf-test] + DashedShort c -> Nothing
  16264. 1945.57 s [opt-env-conf-test] DashedLong _ -> Nothing
  16265. 1945.57 s [opt-env-conf-test] )
  16266. 1945.57 s [opt-env-conf-test]
  16267. 1945.57 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  16268. 1945.57 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  16269. 1945.57 s [opt-env-conf-test] Just (Rel rf) -> do
  16270. 1945.57 s [opt-env-conf-test] let dir = parent rf
  16271. 1945.57 s [opt-env-conf-test] let ad = baseDir </> dir
  16272. 1945.57 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  16273. 1950.69 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  16274. 1950.72 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  16275. 1950.72 s [opt-env-conf-test] pure
  16276. 1950.72 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  16277. 1950.72 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
  16278. 1950.72 s [opt-env-conf-test] @@ -93,33 +93,24 @@
  16279. 1950.72 s [opt-env-conf-test] map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
  16280. 1950.72 s [opt-env-conf-test] )
  16281. 1950.72 s [opt-env-conf-test]
  16282. 1950.72 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  16283. 1950.72 s [opt-env-conf-test] - Nothing ->
  16284. 1950.72 s [opt-env-conf-test] - if fp == "."
  16285. 1950.72 s [opt-env-conf-test] - then do
  16286. 1950.72 s [opt-env-conf-test] - (ds, fs) <- listDirRel baseDir
  16287. 1950.72 s [opt-env-conf-test] - pure
  16288. 1950.72 s [opt-env-conf-test] - ( map fromRelDir ds,
  16289. 1950.72 s [opt-env-conf-test] - map fromRelFile fs
  16290. 1950.72 s [opt-env-conf-test] - )
  16291. 1950.72 s [opt-env-conf-test] - else pure ([], [])
  16292. 1950.72 s [opt-env-conf-test] Just (Abs af) -> do
  16293. 1950.72 s [opt-env-conf-test] let dir = parent af
  16294. 1950.72 s [opt-env-conf-test] let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
  16295. 1950.73 s [opt-env-conf-test] (ds, fs) <- listDirForgiving dir
  16296. 1950.73 s [opt-env-conf-test] pure
  16297. 1950.73 s [opt-env-conf-test] ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
  16298. 1950.73 s [opt-env-conf-test] map (fromAbsFile . (dir </>)) $ filterHidden fs
  16299. 1950.73 s [opt-env-conf-test] )
  16300. 1950.73 s [opt-env-conf-test] Just (Rel rf) -> do
  16301. 1950.73 s [opt-env-conf-test] let dir = parent rf
  16302. 1950.73 s [opt-env-conf-test] let ad = baseDir </> dir
  16303. 1950.73 s [opt-env-conf-test] let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  16304. 1950.73 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  16305. 1950.73 s [opt-env-conf-test] pure
  16306. 1950.73 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  16307. 1950.73 s [opt-env-conf-test] map (fromRelFile . (dir </>)) $ filterHidden fs
  16308. 1950.73 s [opt-env-conf-test] )
  16309. 1950.73 s [opt-env-conf-test]
  16310. 1950.73 s [opt-env-conf-test] pure $
  16311. 1950.73 s [opt-env-conf-test] concat
  16312. 1950.73 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:117:31-43
  16313. 1950.73 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  16314. 1950.73 s [opt-env-conf-test] Just (Rel rf) -> do
  16315. 1950.73 s [opt-env-conf-test] let dir = parent rf
  16316. 1950.73 s [opt-env-conf-test] let ad = baseDir </> dir
  16317. 1950.73 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  16318. 1950.73 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  16319. 1950.73 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  16320. 1950.73 s [opt-env-conf-test] pure
  16321. 1950.73 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  16322. 1950.73 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:108:31-54
  16323. 1950.73 s [opt-env-conf-test] @@ -105,7 +105,7 @@
  16324. 1950.73 s [opt-env-conf-test] else pure ([], [])
  16325. 1950.73 s [opt-env-conf-test] Just (Abs af) -> do
  16326. 1950.73 s [opt-env-conf-test] let dir = parent af
  16327. 1950.73 s [opt-env-conf-test] - let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
  16328. 1950.73 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  16329. 1950.73 s [opt-env-conf-test] (ds, fs) <- listDirForgiving dir
  16330. 1950.73 s [opt-env-conf-test] pure
  16331. 1950.73 s [opt-env-conf-test] ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
  16332. 1950.73 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  16333. 1950.73 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  16334. 1950.73 s [opt-env-conf-test] Just (Rel rf) -> do
  16335. 1950.73 s [opt-env-conf-test] let dir = parent rf
  16336. 1950.74 s [opt-env-conf-test] let ad = baseDir </> dir
  16337. 1950.74 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  16338. 1950.74 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  16339. 1950.74 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  16340. 1950.74 s [opt-env-conf-test] pure
  16341. 1950.74 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  16342. 1950.74 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:98:12-21
  16343. 1950.74 s [opt-env-conf-test] @@ -95,7 +95,7 @@
  16344. 1950.74 s [opt-env-conf-test]
  16345. 1950.74 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  16346. 1950.74 s [opt-env-conf-test] Nothing ->
  16347. 1950.74 s [opt-env-conf-test] - if fp == "."
  16348. 1950.74 s [opt-env-conf-test] + if not (fp == ".")
  16349. 1950.74 s [opt-env-conf-test] then do
  16350. 1950.74 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  16351. 1950.74 s [opt-env-conf-test] pure
  16352. 1950.74 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:267:29-43
  16353. 1950.74 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  16354. 1950.74 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  16355. 1950.74 s [opt-env-conf-test] in case rest of
  16356. 1950.74 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  16357. 1950.74 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  16358. 1950.74 s [opt-env-conf-test] + _ : rest' -> [seg | True] <> splitOnSlash rest'
  16359. 1950.74 s [opt-env-conf-test]
  16360. 1950.74 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  16361. 1950.74 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  16362. 1950.74 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:108:31-54
  16363. 1950.74 s [opt-env-conf-test] @@ -105,7 +105,7 @@
  16364. 1950.74 s [opt-env-conf-test] else pure ([], [])
  16365. 1950.74 s [opt-env-conf-test] Just (Abs af) -> do
  16366. 1950.74 s [opt-env-conf-test] let dir = parent af
  16367. 1950.74 s [opt-env-conf-test] - let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
  16368. 1950.74 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel (filename af)) then id else filter (not . hiddenRel)
  16369. 1950.74 s [opt-env-conf-test] (ds, fs) <- listDirForgiving dir
  16370. 1950.74 s [opt-env-conf-test] pure
  16371. 1950.74 s [opt-env-conf-test] ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
  16372. 1950.74 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:98:12-21
  16373. 1950.74 s [opt-env-conf-test] @@ -95,7 +95,7 @@
  16374. 1950.74 s [opt-env-conf-test]
  16375. 1950.74 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  16376. 1950.74 s [opt-env-conf-test] Nothing ->
  16377. 1950.74 s [opt-env-conf-test] - if fp == "."
  16378. 1950.74 s [opt-env-conf-test] + if False
  16379. 1950.74 s [opt-env-conf-test] then do
  16380. 1950.74 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  16381. 1950.74 s [opt-env-conf-test] pure
  16382. 1950.74 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
  16383. 1950.75 s [opt-env-conf-test] @@ -59,9 +59,8 @@
  16384. 1950.75 s [opt-env-conf-test] --
  16385. 1950.75 s [opt-env-conf-test] -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
  16386. 1950.75 s [opt-env-conf-test] auto :: (Read a) => Reader a
  16387. 1950.75 s [opt-env-conf-test] auto = Reader $ \s -> case readMaybe s of
  16388. 1950.75 s [opt-env-conf-test] - Nothing -> Left $ "Un-Read-able value: " <> show s
  16389. 1950.75 s [opt-env-conf-test] Just a -> Right a
  16390. 1950.75 s [opt-env-conf-test]
  16391. 1950.75 s [opt-env-conf-test] -- | Always return True
  16392. 1950.75 s [opt-env-conf-test] --
  16393. 1950.75 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:98:12-21
  16394. 1950.75 s [opt-env-conf-test] @@ -95,7 +95,7 @@
  16395. 1950.75 s [opt-env-conf-test]
  16396. 1950.75 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  16397. 1950.75 s [opt-env-conf-test] Nothing ->
  16398. 1950.75 s [opt-env-conf-test] - if fp == "."
  16399. 1950.75 s [opt-env-conf-test] + if True
  16400. 1950.75 s [opt-env-conf-test] then do
  16401. 1950.75 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  16402. 1950.75 s [opt-env-conf-test] pure
  16403. 1950.75 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
  16404. 1950.75 s [opt-env-conf-test] @@ -75,9 +75,8 @@
  16405. 1950.75 s [opt-env-conf-test]
  16406. 1950.75 s [opt-env-conf-test] -- | Turn a 'Maybe' parsing function into a 'Reader'
  16407. 1950.75 s [opt-env-conf-test] maybeReader :: (String -> Maybe a) -> Reader a
  16408. 1950.75 s [opt-env-conf-test] maybeReader func = eitherReader $ \s -> case func s of
  16409. 1950.75 s [opt-env-conf-test] Nothing -> Left $ "Unparseable value: " <> show s
  16410. 1950.75 s [opt-env-conf-test] - Just a -> Right a
  16411. 1950.75 s [opt-env-conf-test]
  16412. 1950.75 s [opt-env-conf-test] -- | Turn an 'Either' parsing function into a 'Reader'
  16413. 1950.75 s [opt-env-conf-test] --
  16414. 1950.75 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:267:34-42
  16415. 1950.75 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  16416. 1950.75 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  16417. 1950.75 s [opt-env-conf-test] in case rest of
  16418. 1950.75 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  16419. 1950.75 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  16420. 1950.75 s [opt-env-conf-test] + _ : rest' -> [seg | not (not (null seg))] <> splitOnSlash rest'
  16421. 1950.75 s [opt-env-conf-test]
  16422. 1950.75 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  16423. 1950.75 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  16424. 1950.75 s [opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completer.hs:266:15-37
  16425. 1950.75 s [opt-env-conf-test] @@ -263,7 +263,6 @@
  16426. 1950.75 s [opt-env-conf-test] splitOnSlash s =
  16427. 1950.75 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  16428. 1950.75 s [opt-env-conf-test] in case rest of
  16429. 1950.75 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  16430. 1950.75 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  16431. 1950.76 s [opt-env-conf-test]
  16432. 1950.76 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  16433. 1950.76 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:266:22-36
  16434. 1950.76 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  16435. 1950.76 s [opt-env-conf-test] splitOnSlash s =
  16436. 1950.76 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  16437. 1950.76 s [opt-env-conf-test] in case rest of
  16438. 1950.76 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  16439. 1950.76 s [opt-env-conf-test] + [] -> [seg | not (not (null seg))]
  16440. 1950.76 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  16441. 1950.76 s [opt-env-conf-test]
  16442. 1950.76 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  16443. 1950.76 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
  16444. 1950.76 s [opt-env-conf-test] @@ -321,9 +321,8 @@
  16445. 1950.76 s [opt-env-conf-test] consumeSwitch dasheds as = do
  16446. 1950.76 s [opt-env-conf-test] case go (argsBefore as) of
  16447. 1959.43 s [opt-env-conf-test] Just newBefores -> Just $ as {argsBefore = newBefores}
  16448. 1959.46 s [opt-env-conf-test] Nothing -> case go (argsAfter as) of
  16449. 1959.46 s [opt-env-conf-test] - Just newAfters -> Just $ as {argsAfter = newAfters}
  16450. 1959.46 s [opt-env-conf-test] Nothing -> Nothing
  16451. 1959.46 s [opt-env-conf-test] where
  16452. 1959.46 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe [Tomb Arg]
  16453. 1959.46 s [opt-env-conf-test] go = \case
  16454. 1959.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
  16455. 1959.46 s [opt-env-conf-test] @@ -321,9 +321,8 @@
  16456. 1959.46 s [opt-env-conf-test] consumeSwitch dasheds as = do
  16457. 1959.46 s [opt-env-conf-test] case go (argsBefore as) of
  16458. 1959.46 s [opt-env-conf-test] Just newBefores -> Just $ as {argsBefore = newBefores}
  16459. 1959.46 s [opt-env-conf-test] Nothing -> case go (argsAfter as) of
  16460. 1959.46 s [opt-env-conf-test] Just newAfters -> Just $ as {argsAfter = newAfters}
  16461. 1959.46 s [opt-env-conf-test] - Nothing -> Nothing
  16462. 1959.46 s [opt-env-conf-test] where
  16463. 1959.46 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe [Tomb Arg]
  16464. 1959.46 s [opt-env-conf-test] go = \case
  16465. 1959.46 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
  16466. 1959.46 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  16467. 1959.46 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16468. 1959.46 s [opt-env-conf-test] (Live o : rest) -> case o of
  16469. 1959.46 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16470. 1959.46 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16471. 1959.46 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds True cs of
  16472. 1959.46 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16473. 1959.46 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16474. 1959.46 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16475. 1959.46 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
  16476. 1959.46 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  16477. 1959.46 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16478. 1959.46 s [opt-env-conf-test] (Live o : rest) -> case o of
  16479. 1959.47 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16480. 1959.47 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16481. 1959.47 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds False cs of
  16482. 1959.47 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16483. 1959.47 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16484. 1959.47 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16485. 1959.47 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:334:65-71
  16486. 1959.47 s [opt-env-conf-test] @@ -331,7 +331,7 @@
  16487. 1959.47 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16488. 1959.47 s [opt-env-conf-test] (Live o : rest) -> case o of
  16489. 1959.47 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16490. 1959.47 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16491. 1959.47 s [opt-env-conf-test] + ArgDashed isLong cs -> case consumeDashedSwitch dasheds not (isLong) cs of
  16492. 1959.47 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16493. 1959.47 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16494. 1959.47 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16495. 1959.47 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
  16496. 1959.47 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  16497. 1959.47 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16498. 1959.47 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16499. 1959.47 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16500. 1959.47 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16501. 1959.47 s [opt-env-conf-test] + let rest' = if True then Dead : rest else rest
  16502. 1959.47 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16503. 1959.47 s [opt-env-conf-test] _ -> do
  16504. 1959.47 s [opt-env-conf-test] os <- go rest
  16505. 1959.47 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
  16506. 1959.47 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  16507. 1959.47 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16508. 1959.47 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16509. 1959.47 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16510. 1959.47 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16511. 1959.47 s [opt-env-conf-test] + let rest' = if False then Dead : rest else rest
  16512. 1959.47 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16513. 1959.47 s [opt-env-conf-test] _ -> do
  16514. 1959.47 s [opt-env-conf-test] os <- go rest
  16515. 1959.47 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:338:28-41
  16516. 1959.48 s [opt-env-conf-test] @@ -335,7 +335,7 @@
  16517. 1959.48 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16518. 1959.48 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16519. 1959.48 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16520. 1959.48 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16521. 1959.48 s [opt-env-conf-test] + let rest' = if not (needTombstone) then Dead : rest else rest
  16522. 1959.48 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16523. 1959.48 s [opt-env-conf-test] _ -> do
  16524. 1959.48 s [opt-env-conf-test] os <- go rest
  16525. 1959.48 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
  16526. 1959.48 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  16527. 1959.48 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16528. 1959.48 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16529. 1959.48 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16530. 1959.48 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16531. 1959.48 s [opt-env-conf-test] + in Just $ Live (ArgDashed True cs') : rest'
  16532. 1959.48 s [opt-env-conf-test] _ -> do
  16533. 1959.48 s [opt-env-conf-test] os <- go rest
  16534. 1959.48 s [opt-env-conf-test] pure $ Live o : os
  16535. 1959.48 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
  16536. 1959.48 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  16537. 1959.48 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16538. 1959.48 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16539. 1959.48 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16540. 1959.48 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16541. 1959.48 s [opt-env-conf-test] + in Just $ Live (ArgDashed False cs') : rest'
  16542. 1959.48 s [opt-env-conf-test] _ -> do
  16543. 1959.48 s [opt-env-conf-test] os <- go rest
  16544. 1959.48 s [opt-env-conf-test] pure $ Live o : os
  16545. 1959.48 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:339:40-46
  16546. 1959.48 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  16547. 1959.48 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16548. 1959.48 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16549. 1959.48 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16550. 1959.48 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16551. 1959.48 s [opt-env-conf-test] + in Just $ Live (ArgDashed not (isLong) cs') : rest'
  16552. 1959.48 s [opt-env-conf-test] _ -> do
  16553. 1959.48 s [opt-env-conf-test] os <- go rest
  16554. 1959.48 s [opt-env-conf-test] pure $ Live o : os
  16555. 1959.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  16556. 1959.48 s [opt-env-conf-test] @@ -331,12 +331,11 @@
  16557. 1959.48 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16558. 1959.48 s [opt-env-conf-test] (Live o : rest) -> case o of
  16559. 1959.48 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16560. 1959.49 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16561. 1959.49 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  16562. 1959.49 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16563. 1959.49 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16564. 1959.49 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16565. 1959.49 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16566. 1959.49 s [opt-env-conf-test] _ -> do
  16567. 1959.49 s [opt-env-conf-test] os <- go rest
  16568. 1959.49 s [opt-env-conf-test] pure $ Live o : os
  16569. 1959.49 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  16570. 1959.49 s [opt-env-conf-test] @@ -331,12 +331,11 @@
  16571. 1959.49 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16572. 1959.49 s [opt-env-conf-test] (Live o : rest) -> case o of
  16573. 1959.49 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16574. 1959.49 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16575. 1959.49 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16576. 1959.49 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  16577. 1959.49 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16578. 1959.49 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16579. 1959.49 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16580. 1959.49 s [opt-env-conf-test] _ -> do
  16581. 1959.49 s [opt-env-conf-test] os <- go rest
  16582. 1959.49 s [opt-env-conf-test] pure $ Live o : os
  16583. 1959.49 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
  16584. 1959.49 s [opt-env-conf-test] @@ -331,12 +331,9 @@
  16585. 1959.49 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16586. 1959.49 s [opt-env-conf-test] (Live o : rest) -> case o of
  16587. 1959.49 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16588. 1959.49 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16589. 1959.49 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16590. 1959.49 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16591. 1959.49 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  16592. 1959.49 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16593. 1959.49 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16594. 1959.49 s [opt-env-conf-test] _ -> do
  16595. 1959.49 s [opt-env-conf-test] os <- go rest
  16596. 1959.49 s [opt-env-conf-test] pure $ Live o : os
  16597. 1959.49 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  16598. 1959.49 s [opt-env-conf-test] @@ -329,17 +329,16 @@
  16599. 1959.49 s [opt-env-conf-test] go = \case
  16600. 1959.49 s [opt-env-conf-test] [] -> Nothing
  16601. 1959.49 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16602. 1959.49 s [opt-env-conf-test] (Live o : rest) -> case o of
  16603. 1966.06 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  16604. 1966.06 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16605. 1966.08 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16606. 1966.08 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16607. 1966.08 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16608. 1966.08 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16609. 1966.08 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16610. 1966.08 s [opt-env-conf-test] _ -> do
  16611. 1966.09 s [opt-env-conf-test] os <- go rest
  16612. 1966.09 s [opt-env-conf-test] pure $ Live o : os
  16613. 1966.09 s [opt-env-conf-test]
  16614. 1966.09 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  16615. 1966.09 s [opt-env-conf-test] -- character because then we need a tombstone.
  16616. 1966.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  16617. 1966.09 s [opt-env-conf-test] @@ -329,17 +329,11 @@
  16618. 1966.09 s [opt-env-conf-test] go = \case
  16619. 1966.09 s [opt-env-conf-test] [] -> Nothing
  16620. 1966.09 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16621. 1966.09 s [opt-env-conf-test] (Live o : rest) -> case o of
  16622. 1966.09 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16623. 1966.09 s [opt-env-conf-test] - ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16624. 1966.09 s [opt-env-conf-test] - Nothing -> (Live o :) <$> go rest
  16625. 1966.09 s [opt-env-conf-test] - Just Nothing -> Just $ Dead : rest
  16626. 1966.09 s [opt-env-conf-test] - Just (Just (cs', needTombstone)) ->
  16627. 1966.09 s [opt-env-conf-test] - let rest' = if needTombstone then Dead : rest else rest
  16628. 1966.09 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  16629. 1966.09 s [opt-env-conf-test] _ -> do
  16630. 1966.09 s [opt-env-conf-test] os <- go rest
  16631. 1966.09 s [opt-env-conf-test] pure $ Live o : os
  16632. 1966.09 s [opt-env-conf-test]
  16633. 1966.09 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  16634. 1966.09 s [opt-env-conf-test] -- character because then we need a tombstone.
  16635. 1966.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
  16636. 1966.09 s [opt-env-conf-test] @@ -329,17 +329,14 @@
  16637. 1966.09 s [opt-env-conf-test] go = \case
  16638. 1966.09 s [opt-env-conf-test] [] -> Nothing
  16639. 1966.09 s [opt-env-conf-test] (Dead : rest) -> (Dead :) <$> go rest
  16640. 1966.09 s [opt-env-conf-test] (Live o : rest) -> case o of
  16641. 1966.09 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  16642. 1966.09 s [opt-env-conf-test] ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
  16643. 1966.09 s [opt-env-conf-test] Nothing -> (Live o :) <$> go rest
  16644. 1966.09 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  16645. 1966.09 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  16646. 1966.09 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  16647. 1966.09 s [opt-env-conf-test] in Just $ Live (ArgDashed isLong cs') : rest'
  16648. 1966.09 s [opt-env-conf-test] - _ -> do
  16649. 1966.09 s [opt-env-conf-test] - os <- go rest
  16650. 1966.09 s [opt-env-conf-test] - pure $ Live o : os
  16651. 1966.09 s [opt-env-conf-test]
  16652. 1966.09 s [opt-env-conf-test] -- Can consume anywhere in a folded dashed, return True if it was the last
  16653. 1966.09 s [opt-env-conf-test] -- character because then we need a tombstone.
  16654. 1966.09 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
  16655. 1966.09 s [opt-env-conf-test] @@ -306,9 +306,8 @@
  16656. 1966.09 s [opt-env-conf-test] where
  16657. 1966.09 s [opt-env-conf-test] go acc ne =
  16658. 1966.09 s [opt-env-conf-test] let (a, mRest) = NE.uncons ne
  16659. 1966.09 s [opt-env-conf-test] in case mRest of
  16660. 1966.09 s [opt-env-conf-test] - Nothing -> (NE.nonEmpty $ reverse acc, a)
  16661. 1966.10 s [opt-env-conf-test] Just rest -> go (a : acc) rest
  16662. 1966.10 s [opt-env-conf-test]
  16663. 1966.10 s [opt-env-conf-test] -- | Consume a switch.
  16664. 1966.10 s [opt-env-conf-test] --
  16665. 1966.10 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
  16666. 1966.10 s [opt-env-conf-test] @@ -306,9 +306,8 @@
  16667. 1966.10 s [opt-env-conf-test] where
  16668. 1966.10 s [opt-env-conf-test] go acc ne =
  16669. 1966.10 s [opt-env-conf-test] let (a, mRest) = NE.uncons ne
  16670. 1966.10 s [opt-env-conf-test] in case mRest of
  16671. 1966.10 s [opt-env-conf-test] Nothing -> (NE.nonEmpty $ reverse acc, a)
  16672. 1966.10 s [opt-env-conf-test] - Just rest -> go (a : acc) rest
  16673. 1966.10 s [opt-env-conf-test]
  16674. 1966.10 s [opt-env-conf-test] -- | Consume a switch.
  16675. 1966.10 s [opt-env-conf-test] --
  16676. 1966.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
  16677. 1966.10 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  16678. 1966.10 s [opt-env-conf-test] NonEmpty Char ->
  16679. 1966.10 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  16680. 1966.10 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16681. 1966.10 s [opt-env-conf-test] - if isLong
  16682. 1966.10 s [opt-env-conf-test] + if True
  16683. 1966.10 s [opt-env-conf-test] then
  16684. 1966.10 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  16685. 1966.10 s [opt-env-conf-test] then Just Nothing
  16686. 1966.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
  16687. 1966.10 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  16688. 1966.10 s [opt-env-conf-test] NonEmpty Char ->
  16689. 1966.10 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  16690. 1966.10 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16691. 1966.10 s [opt-env-conf-test] - if isLong
  16692. 1966.10 s [opt-env-conf-test] + if False
  16693. 1966.10 s [opt-env-conf-test] then
  16694. 1966.10 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  16695. 1966.10 s [opt-env-conf-test] then Just Nothing
  16696. 1966.10 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:293:6-12
  16697. 1966.10 s [opt-env-conf-test] @@ -290,7 +290,7 @@
  16698. 1966.10 s [opt-env-conf-test] NonEmpty Char ->
  16699. 1966.10 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char))
  16700. 1966.10 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16701. 1966.10 s [opt-env-conf-test] - if isLong
  16702. 1966.10 s [opt-env-conf-test] + if not (isLong)
  16703. 1966.10 s [opt-env-conf-test] then
  16704. 1966.10 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  16705. 1966.10 s [opt-env-conf-test] then Just Nothing
  16706. 1966.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
  16707. 1966.10 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  16708. 1966.10 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16709. 1966.10 s [opt-env-conf-test] if isLong
  16710. 1966.10 s [opt-env-conf-test] then
  16711. 1966.10 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16712. 1966.10 s [opt-env-conf-test] + if True
  16713. 1966.10 s [opt-env-conf-test] then Just Nothing
  16714. 1966.10 s [opt-env-conf-test] else Nothing
  16715. 1966.10 s [opt-env-conf-test] else
  16716. 1966.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
  16717. 1966.10 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  16718. 1966.10 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16719. 1966.10 s [opt-env-conf-test] if isLong
  16720. 1966.10 s [opt-env-conf-test] then
  16721. 1966.10 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16722. 1966.10 s [opt-env-conf-test] + if False
  16723. 1966.10 s [opt-env-conf-test] then Just Nothing
  16724. 1966.10 s [opt-env-conf-test] else Nothing
  16725. 1966.10 s [opt-env-conf-test] else
  16726. 1966.10 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:295:10-38
  16727. 1966.10 s [opt-env-conf-test] @@ -292,7 +292,7 @@
  16728. 1966.10 s [opt-env-conf-test] consumeDashedOption dasheds isLong cs =
  16729. 1966.10 s [opt-env-conf-test] if isLong
  16730. 1966.10 s [opt-env-conf-test] then
  16731. 1966.10 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  16732. 1966.10 s [opt-env-conf-test] + if not (DashedLong cs `elem` dasheds)
  16733. 1966.10 s [opt-env-conf-test] then Just Nothing
  16734. 1966.10 s [opt-env-conf-test] else Nothing
  16735. 1966.10 s [opt-env-conf-test] else
  16736. 1966.10 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:296:14-26
  16737. 1966.10 s [opt-env-conf-test] @@ -293,7 +293,7 @@
  16738. 1966.10 s [opt-env-conf-test] if isLong
  16739. 1966.10 s [opt-env-conf-test] then
  16740. 1966.10 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  16741. 1966.10 s [opt-env-conf-test] - then Just Nothing
  16742. 1966.10 s [opt-env-conf-test] + then Nothing
  16743. 1966.10 s [opt-env-conf-test] else Nothing
  16744. 1966.10 s [opt-env-conf-test] else
  16745. 1966.10 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16746. 1966.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
  16747. 1966.10 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  16748. 1966.10 s [opt-env-conf-test] else Nothing
  16749. 1966.10 s [opt-env-conf-test] else
  16750. 1966.10 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16751. 1966.10 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16752. 1966.10 s [opt-env-conf-test] + in if True
  16753. 1966.10 s [opt-env-conf-test] then Just mRest
  16754. 1966.10 s [opt-env-conf-test] else Nothing
  16755. 1966.10 s [opt-env-conf-test]
  16756. 1966.10 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
  16757. 1966.10 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  16758. 1966.10 s [opt-env-conf-test] else Nothing
  16759. 1966.10 s [opt-env-conf-test] else
  16760. 1966.10 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16761. 1966.10 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16762. 1966.10 s [opt-env-conf-test] + in if False
  16763. 1966.10 s [opt-env-conf-test] then Just mRest
  16764. 1966.10 s [opt-env-conf-test] else Nothing
  16765. 1966.10 s [opt-env-conf-test]
  16766. 1966.10 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:300:14-42
  16767. 1966.10 s [opt-env-conf-test] @@ -297,7 +297,7 @@
  16768. 1966.11 s [opt-env-conf-test] else Nothing
  16769. 1966.11 s [opt-env-conf-test] else
  16770. 1966.11 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16771. 1966.11 s [opt-env-conf-test] - in if DashedShort c `elem` dasheds
  16772. 1966.11 s [opt-env-conf-test] + in if not (DashedShort c `elem` dasheds)
  16773. 1966.11 s [opt-env-conf-test] then Just mRest
  16774. 1966.11 s [opt-env-conf-test] else Nothing
  16775. 1966.11 s [opt-env-conf-test]
  16776. 1966.11 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:301:18-28
  16777. 1966.11 s [opt-env-conf-test] @@ -298,7 +298,7 @@
  16778. 1966.11 s [opt-env-conf-test] else
  16779. 1966.11 s [opt-env-conf-test] let (mRest, c) = unsnocNE cs
  16780. 1966.11 s [opt-env-conf-test] in if DashedShort c `elem` dasheds
  16781. 1966.11 s [opt-env-conf-test] - then Just mRest
  16782. 1966.11 s [opt-env-conf-test] + then Nothing
  16783. 1966.11 s [opt-env-conf-test] else Nothing
  16784. 1966.11 s [opt-env-conf-test]
  16785. 1966.11 s [opt-env-conf-test] unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
  16786. 1966.11 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-23
  16787. 1966.11 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16788. 1966.11 s [opt-env-conf-test] Maybe String
  16789. 1966.11 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16790. 1966.11 s [opt-env-conf-test] (c :| rest)
  16791. 1966.11 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16792. 1966.11 s [opt-env-conf-test] + | True && not (null rest) ->
  16793. 1966.11 s [opt-env-conf-test] Just rest
  16794. 1966.11 s [opt-env-conf-test] _ -> Nothing
  16795. 1966.11 s [opt-env-conf-test]
  16796. 1966.11 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-23
  16797. 1966.11 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16798. 1966.11 s [opt-env-conf-test] Maybe String
  16799. 1966.11 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16800. 1966.11 s [opt-env-conf-test] (c :| rest)
  16801. 1966.11 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16802. 1975.75 s [opt-env-conf-test] + | not (c `elem` dasheds) && not (null rest) ->
  16803. 1975.77 s [opt-env-conf-test] Just rest
  16804. 1975.77 s [opt-env-conf-test] _ -> Nothing
  16805. 1975.77 s [opt-env-conf-test]
  16806. 1975.78 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:32-41
  16807. 1975.78 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16808. 1975.78 s [opt-env-conf-test] Maybe String
  16809. 1975.78 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16810. 1975.78 s [opt-env-conf-test] (c :| rest)
  16811. 1975.78 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16812. 1975.78 s [opt-env-conf-test] + | c `elem` dasheds && not (True) ->
  16813. 1975.78 s [opt-env-conf-test] Just rest
  16814. 1975.78 s [opt-env-conf-test] _ -> Nothing
  16815. 1975.78 s [opt-env-conf-test]
  16816. 1975.78 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:32-41
  16817. 1975.78 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16818. 1975.78 s [opt-env-conf-test] Maybe String
  16819. 1975.78 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16820. 1975.78 s [opt-env-conf-test] (c :| rest)
  16821. 1975.78 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16822. 1975.78 s [opt-env-conf-test] + | c `elem` dasheds && not (not (null rest)) ->
  16823. 1975.78 s [opt-env-conf-test] Just rest
  16824. 1975.78 s [opt-env-conf-test] _ -> Nothing
  16825. 1975.78 s [opt-env-conf-test]
  16826. 1975.78 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:31-42
  16827. 1975.78 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16828. 1975.78 s [opt-env-conf-test] Maybe String
  16829. 1975.78 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16830. 1975.78 s [opt-env-conf-test] (c :| rest)
  16831. 1975.78 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16832. 1975.78 s [opt-env-conf-test] + | c `elem` dasheds && not not ((null rest)) ->
  16833. 1975.78 s [opt-env-conf-test] Just rest
  16834. 1975.78 s [opt-env-conf-test] _ -> Nothing
  16835. 1975.78 s [opt-env-conf-test]
  16836. 1975.78 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:31-42
  16837. 1975.78 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16838. 1975.78 s [opt-env-conf-test] Maybe String
  16839. 1975.78 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16840. 1975.78 s [opt-env-conf-test] (c :| rest)
  16841. 1975.78 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16842. 1975.78 s [opt-env-conf-test] + | c `elem` dasheds && not True ->
  16843. 1975.78 s [opt-env-conf-test] Just rest
  16844. 1975.78 s [opt-env-conf-test] _ -> Nothing
  16845. 1975.78 s [opt-env-conf-test]
  16846. 1975.78 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:27-42
  16847. 1975.78 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16848. 1975.78 s [opt-env-conf-test] Maybe String
  16849. 1975.78 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16850. 1975.78 s [opt-env-conf-test] (c :| rest)
  16851. 1975.78 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16852. 1975.79 s [opt-env-conf-test] + | c `elem` dasheds && True ->
  16853. 1975.79 s [opt-env-conf-test] Just rest
  16854. 1975.79 s [opt-env-conf-test] _ -> Nothing
  16855. 1975.79 s [opt-env-conf-test]
  16856. 1975.79 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:27-42
  16857. 1975.79 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16858. 1975.79 s [opt-env-conf-test] Maybe String
  16859. 1975.79 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16860. 1975.79 s [opt-env-conf-test] (c :| rest)
  16861. 1975.79 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16862. 1975.79 s [opt-env-conf-test] + | c `elem` dasheds && not (not (null rest)) ->
  16863. 1975.79 s [opt-env-conf-test] Just rest
  16864. 1975.79 s [opt-env-conf-test] _ -> Nothing
  16865. 1975.79 s [opt-env-conf-test]
  16866. 1975.79 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-42
  16867. 1975.79 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16868. 1975.79 s [opt-env-conf-test] Maybe String
  16869. 1975.79 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16870. 1975.79 s [opt-env-conf-test] (c :| rest)
  16871. 1975.79 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16872. 1975.79 s [opt-env-conf-test] + | True ->
  16873. 1975.79 s [opt-env-conf-test] Just rest
  16874. 1975.79 s [opt-env-conf-test] _ -> Nothing
  16875. 1975.79 s [opt-env-conf-test]
  16876. 1975.79 s [opt-env-conf-test] Testing mutation LogicOp at src/OptEnvConf/Args.hs:282:7-42
  16877. 1975.79 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16878. 1975.79 s [opt-env-conf-test] Maybe String
  16879. 1975.79 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16880. 1975.79 s [opt-env-conf-test] (c :| rest)
  16881. 1975.79 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16882. 1975.79 s [opt-env-conf-test] + | c `elem` dasheds || not (null rest) ->
  16883. 1975.79 s [opt-env-conf-test] Just rest
  16884. 1975.79 s [opt-env-conf-test] _ -> Nothing
  16885. 1975.79 s [opt-env-conf-test]
  16886. 1975.79 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-42
  16887. 1975.79 s [opt-env-conf-test] @@ -279,7 +279,7 @@
  16888. 1975.79 s [opt-env-conf-test] Maybe String
  16889. 1975.79 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16890. 1975.79 s [opt-env-conf-test] (c :| rest)
  16891. 1975.79 s [opt-env-conf-test] - | c `elem` dasheds && not (null rest) ->
  16892. 1975.79 s [opt-env-conf-test] + | not (c `elem` dasheds && not (null rest)) ->
  16893. 1975.79 s [opt-env-conf-test] Just rest
  16894. 1975.79 s [opt-env-conf-test] _ -> Nothing
  16895. 1975.79 s [opt-env-conf-test]
  16896. 1975.79 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:283:9-18
  16897. 1975.79 s [opt-env-conf-test] @@ -280,7 +280,7 @@
  16898. 1975.79 s [opt-env-conf-test] consumeShortDashedShorthandOption dasheds = \case
  16899. 1975.79 s [opt-env-conf-test] (c :| rest)
  16900. 1975.79 s [opt-env-conf-test] | c `elem` dasheds && not (null rest) ->
  16901. 1975.79 s [opt-env-conf-test] - Just rest
  16902. 1975.79 s [opt-env-conf-test] + Nothing
  16903. 1975.79 s [opt-env-conf-test] _ -> Nothing
  16904. 1975.79 s [opt-env-conf-test]
  16905. 1975.79 s [opt-env-conf-test] -- Can consume only the last in a folded dashed
  16906. 1975.79 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
  16907. 1975.79 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  16908. 1975.79 s [opt-env-conf-test] NonEmpty Char ->
  16909. 1975.79 s [opt-env-conf-test] Maybe String
  16910. 1975.79 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  16911. 1975.79 s [opt-env-conf-test] - if isLong
  16912. 1975.79 s [opt-env-conf-test] + if True
  16913. 1975.79 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  16914. 1975.79 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  16915. 1975.79 s [opt-env-conf-test]
  16916. 1975.79 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
  16917. 1975.79 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  16918. 1975.79 s [opt-env-conf-test] NonEmpty Char ->
  16919. 1975.79 s [opt-env-conf-test] Maybe String
  16920. 1975.79 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  16921. 1975.79 s [opt-env-conf-test] - if isLong
  16922. 1975.79 s [opt-env-conf-test] + if False
  16923. 1975.79 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  16924. 1975.79 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  16925. 1975.79 s [opt-env-conf-test]
  16926. 1975.79 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:258:6-12
  16927. 1975.79 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  16928. 1975.79 s [opt-env-conf-test] NonEmpty Char ->
  16929. 1975.79 s [opt-env-conf-test] Maybe String
  16930. 1975.79 s [opt-env-conf-test] consumeDashedShorthandOption dasheds isLong cs =
  16931. 1975.79 s [opt-env-conf-test] - if isLong
  16932. 1975.79 s [opt-env-conf-test] + if not (isLong)
  16933. 1975.79 s [opt-env-conf-test] then consumeLongDashedShorthandOption (longDasheds dasheds) cs
  16934. 1975.79 s [opt-env-conf-test] else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
  16935. 1975.79 s [opt-env-conf-test]
  16936. 1975.79 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
  16937. 1975.79 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16938. 1975.79 s [opt-env-conf-test] renderArg = \case
  16939. 1975.79 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16940. 1975.79 s [opt-env-conf-test] ArgBareDash -> "-"
  16941. 1975.79 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16942. 1975.79 s [opt-env-conf-test] + ArgDashed l cs -> (if True then "--" else "-") <> NE.toList cs
  16943. 1975.79 s [opt-env-conf-test] ArgPlain a -> a
  16944. 1975.79 s [opt-env-conf-test]
  16945. 1975.79 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16946. 1975.79 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
  16947. 1975.79 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16948. 1975.79 s [opt-env-conf-test] renderArg = \case
  16949. 1975.79 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16950. 1975.79 s [opt-env-conf-test] ArgBareDash -> "-"
  16951. 1975.79 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16952. 1975.79 s [opt-env-conf-test] + ArgDashed l cs -> (if False then "--" else "-") <> NE.toList cs
  16953. 1975.79 s [opt-env-conf-test] ArgPlain a -> a
  16954. 1975.79 s [opt-env-conf-test]
  16955. 1975.79 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16956. 1975.79 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:89:25-26
  16957. 1975.79 s [opt-env-conf-test] @@ -86,7 +86,7 @@
  16958. 1975.79 s [opt-env-conf-test] renderArg = \case
  16959. 1975.79 s [opt-env-conf-test] ArgBareDoubleDash -> "--"
  16960. 1975.79 s [opt-env-conf-test] ArgBareDash -> "-"
  16961. 1975.79 s [opt-env-conf-test] - ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
  16962. 1975.79 s [opt-env-conf-test] + ArgDashed l cs -> (if not (l) then "--" else "-") <> NE.toList cs
  16963. 1975.79 s [opt-env-conf-test] ArgPlain a -> a
  16964. 1975.79 s [opt-env-conf-test]
  16965. 1975.79 s [opt-env-conf-test] -- | An abstraction over '[String]' that makes it easier to implement
  16966. 1975.79 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
  16967. 1975.79 s [opt-env-conf-test] @@ -70,28 +70,21 @@
  16968. 1975.79 s [opt-env-conf-test] filePathFromDir baseDir prefix fp fp' = do
  16969. 1975.79 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
  16970. 1975.79 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  16971. 1975.79 s [opt-env-conf-test] (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
  16972. 1975.79 s [opt-env-conf-test] Nothing -> case fp of
  16973. 1975.79 s [opt-env-conf-test] [] -> do
  16974. 1975.79 s [opt-env-conf-test] (ds, fs) <- listDirRel baseDir
  16975. 1975.79 s [opt-env-conf-test] pure
  16976. 1975.79 s [opt-env-conf-test] ( map fromRelDir $ filter (not . hiddenRel) ds,
  16977. 1975.79 s [opt-env-conf-test] map fromRelFile $ filter (not . hiddenRel) fs
  16978. 1975.79 s [opt-env-conf-test] )
  16979. 1975.79 s [opt-env-conf-test] _ -> pure ([], [])
  16980. 1975.79 s [opt-env-conf-test] Just (Abs ad) -> do
  16981. 1975.79 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  16982. 1975.79 s [opt-env-conf-test] pure
  16983. 1975.79 s [opt-env-conf-test] ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
  16984. 1975.79 s [opt-env-conf-test] map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
  16985. 1975.79 s [opt-env-conf-test] )
  16986. 1985.95 s [opt-env-conf-test] - Just (Rel rd) -> do
  16987. 1985.97 s [opt-env-conf-test] - let ad = baseDir </> rd
  16988. 1985.97 s [opt-env-conf-test] - (ds, fs) <- listDirForgiving ad
  16989. 1985.97 s [opt-env-conf-test] - pure
  16990. 1985.98 s [opt-env-conf-test] - ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
  16991. 1985.98 s [opt-env-conf-test] - map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
  16992. 1985.98 s [opt-env-conf-test] - )
  16993. 1985.98 s [opt-env-conf-test]
  16994. 1985.98 s [opt-env-conf-test] (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
  16995. 1985.98 s [opt-env-conf-test] Nothing ->
  16996. 1985.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
  16997. 1985.98 s [opt-env-conf-test] @@ -130,10 +130,9 @@
  16998. 1985.98 s [opt-env-conf-test] -- things like a default command.
  16999. 1985.98 s [opt-env-conf-test] let addConsumeNothing = \case
  17000. 1985.98 s [opt-env-conf-test] [] -> [(Nothing, as)]
  17001. 1985.98 s [opt-env-conf-test] r@(t@(mA, _) : rest) -> case mA of
  17002. 1985.98 s [opt-env-conf-test] -- If not consuming anything is already an option, don't add it to the end.
  17003. 1985.98 s [opt-env-conf-test] Nothing -> r
  17004. 1985.98 s [opt-env-conf-test] - Just _ -> t : addConsumeNothing rest
  17005. 1985.98 s [opt-env-conf-test]
  17006. 1985.98 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  17007. 1985.98 s [opt-env-conf-test] [] -> []
  17008. 1985.98 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
  17009. 1985.98 s [opt-env-conf-test] @@ -130,10 +130,9 @@
  17010. 1985.98 s [opt-env-conf-test] -- things like a default command.
  17011. 1985.98 s [opt-env-conf-test] let addConsumeNothing = \case
  17012. 1985.98 s [opt-env-conf-test] [] -> [(Nothing, as)]
  17013. 1985.98 s [opt-env-conf-test] r@(t@(mA, _) : rest) -> case mA of
  17014. 1985.98 s [opt-env-conf-test] -- If not consuming anything is already an option, don't add it to the end.
  17015. 1985.98 s [opt-env-conf-test] - Nothing -> r
  17016. 1985.98 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  17017. 1985.98 s [opt-env-conf-test]
  17018. 1985.98 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  17019. 1985.98 s [opt-env-conf-test] [] -> []
  17020. 1985.98 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:352:6-12
  17021. 1985.98 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  17022. 1985.98 s [opt-env-conf-test] NonEmpty Char ->
  17023. 1985.98 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  17024. 1985.99 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  17025. 1985.99 s [opt-env-conf-test] - if isLong
  17026. 1985.99 s [opt-env-conf-test] + if not (isLong)
  17027. 1985.99 s [opt-env-conf-test] then
  17028. 1985.99 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  17029. 1985.99 s [opt-env-conf-test] then Just Nothing
  17030. 1985.99 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:365:34-43
  17031. 1985.99 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  17032. 1985.99 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  17033. 1985.99 s [opt-env-conf-test] go (c :| rest) =
  17034. 1985.99 s [opt-env-conf-test] if c `elem` cs
  17035. 1985.99 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  17036. 1985.99 s [opt-env-conf-test] + then Just $ (\ne -> (ne, not (null rest))) <$> NE.nonEmpty rest
  17037. 1985.99 s [opt-env-conf-test] else do
  17038. 1985.99 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  17039. 1985.99 s [opt-env-conf-test] new <- go rest'
  17040. 1985.99 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
  17041. 1985.99 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  17042. 1985.99 s [opt-env-conf-test] where
  17043. 1985.99 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  17044. 1985.99 s [opt-env-conf-test] go (c :| rest) =
  17045. 1985.99 s [opt-env-conf-test] - if c `elem` cs
  17046. 1985.99 s [opt-env-conf-test] + if True
  17047. 1985.99 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  17048. 1985.99 s [opt-env-conf-test] else do
  17049. 1985.99 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  17050. 1985.99 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:148:35-45
  17051. 1985.99 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  17052. 1985.99 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17053. 1985.99 s [opt-env-conf-test] Live a -> case a of
  17054. 1985.99 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  17055. 1985.99 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17056. 1985.99 s [opt-env-conf-test] + ArgPlain plain -> [(Nothing, consumed)]
  17057. 1985.99 s [opt-env-conf-test] -- A single dash is always an argument
  17058. 1985.99 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  17059. 1985.99 s [opt-env-conf-test] -- Bare double-dash
  17060. 1985.99 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
  17061. 1986.00 s [opt-env-conf-test] @@ -403,7 +403,6 @@
  17062. 1986.00 s [opt-env-conf-test]
  17063. 1986.00 s [opt-env-conf-test] renderDashed :: Dashed -> String
  17064. 1986.00 s [opt-env-conf-test] renderDashed = \case
  17065. 1986.00 s [opt-env-conf-test] - DashedShort c -> ['-', c]
  17066. 1986.00 s [opt-env-conf-test] DashedLong cs -> '-' : '-' : NE.toList cs
  17067. 1986.00 s [opt-env-conf-test]
  17068. 1986.00 s [opt-env-conf-test] prefixDashed :: String -> Dashed -> Dashed
  17069. 1986.00 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
  17070. 1986.00 s [opt-env-conf-test] @@ -403,7 +403,6 @@
  17071. 1986.00 s [opt-env-conf-test]
  17072. 1986.00 s [opt-env-conf-test] renderDashed :: Dashed -> String
  17073. 1986.00 s [opt-env-conf-test] renderDashed = \case
  17074. 1986.00 s [opt-env-conf-test] - DashedShort c -> ['-', c]
  17075. 1986.00 s [opt-env-conf-test] DashedLong cs -> '-' : '-' : NE.toList cs
  17076. 1986.00 s [opt-env-conf-test]
  17077. 1986.00 s [opt-env-conf-test] prefixDashed :: String -> Dashed -> Dashed
  17078. 1986.00 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:272:22-22
  17079. 1986.00 s [opt-env-conf-test] @@ -269,9 +269,8 @@
  17080. 1986.00 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  17081. 1986.00 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  17082. 1986.00 s [opt-env-conf-test] applyComponent d ".." = parent d
  17083. 1986.00 s [opt-env-conf-test] applyComponent d c = case parseRelDir c of
  17084. 1986.00 s [opt-env-conf-test] - Nothing -> d
  17085. 1986.00 s [opt-env-conf-test] Just rd -> d </> rd
  17086. 1986.00 s [opt-env-conf-test]
  17087. 1986.00 s [opt-env-conf-test] filterPrefix :: String -> [CompletionResult] -> [CompletionResult]
  17088. 1986.01 s [opt-env-conf-test] filterPrefix s = filter ((s `isPrefixOf`) . completionResultValue)
  17089. 1986.01 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
  17090. 1986.01 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  17091. 1986.01 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  17092. 1986.01 s [opt-env-conf-test] if isLong
  17093. 1986.01 s [opt-env-conf-test] then
  17094. 1986.01 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  17095. 1986.01 s [opt-env-conf-test] + if False
  17096. 1986.01 s [opt-env-conf-test] then Just Nothing
  17097. 1986.01 s [opt-env-conf-test] else Nothing
  17098. 1986.02 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  17099. 1986.02 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:355:14-26
  17100. 1986.02 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  17101. 1986.02 s [opt-env-conf-test] if isLong
  17102. 1986.02 s [opt-env-conf-test] then
  17103. 1986.02 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  17104. 1986.02 s [opt-env-conf-test] - then Just Nothing
  17105. 1986.02 s [opt-env-conf-test] + then Nothing
  17106. 1986.02 s [opt-env-conf-test] else Nothing
  17107. 1986.02 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  17108. 1986.02 s [opt-env-conf-test]
  17109. 1986.02 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
  17110. 1986.02 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  17111. 1986.02 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  17112. 1986.02 s [opt-env-conf-test] if isLong
  17113. 1986.02 s [opt-env-conf-test] then
  17114. 1986.02 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  17115. 1986.02 s [opt-env-conf-test] + if True
  17116. 1986.02 s [opt-env-conf-test] then Just Nothing
  17117. 1986.02 s [opt-env-conf-test] else Nothing
  17118. 1986.02 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  17119. 1986.02 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
  17120. 1986.02 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  17121. 1986.02 s [opt-env-conf-test] NonEmpty Char ->
  17122. 1986.02 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  17123. 1986.02 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  17124. 1986.02 s [opt-env-conf-test] - if isLong
  17125. 1986.02 s [opt-env-conf-test] + if False
  17126. 1986.02 s [opt-env-conf-test] then
  17127. 1986.03 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  17128. 1986.03 s [opt-env-conf-test] then Just Nothing
  17129. 1986.03 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:372:27-31
  17130. 1986.03 s [opt-env-conf-test] @@ -369,7 +369,7 @@
  17131. 1986.03 s [opt-env-conf-test] pure $
  17132. 1986.03 s [opt-env-conf-test] Just $
  17133. 1986.03 s [opt-env-conf-test] maybe
  17134. 1986.03 s [opt-env-conf-test] - (c :| [], True)
  17135. 1986.03 s [opt-env-conf-test] + (c :| [], False)
  17136. 1986.03 s [opt-env-conf-test] (first (c NE.<|))
  17137. 1986.03 s [opt-env-conf-test] new
  17138. 1986.03 s [opt-env-conf-test]
  17139. 1986.03 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
  17140. 1986.03 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  17141. 1986.03 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  17142. 1986.03 s [opt-env-conf-test] go (c :| rest) =
  17143. 1986.03 s [opt-env-conf-test] if c `elem` cs
  17144. 1986.03 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  17145. 1986.03 s [opt-env-conf-test] + then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
  17146. 1986.03 s [opt-env-conf-test] else do
  17147. 1986.03 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  17148. 1986.03 s [opt-env-conf-test] new <- go rest'
  17149. 1986.03 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:354:10-38
  17150. 1986.03 s [opt-env-conf-test] @@ -351,7 +351,7 @@
  17151. 1986.03 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  17152. 1986.04 s [opt-env-conf-test] if isLong
  17153. 1986.04 s [opt-env-conf-test] then
  17154. 1986.04 s [opt-env-conf-test] - if DashedLong cs `elem` dasheds
  17155. 1986.04 s [opt-env-conf-test] + if not (DashedLong cs `elem` dasheds)
  17156. 1986.04 s [opt-env-conf-test] then Just Nothing
  17157. 1986.04 s [opt-env-conf-test] else Nothing
  17158. 1986.04 s [opt-env-conf-test] else consumeChar (shortDasheds dasheds) cs
  17159. 1986.04 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
  17160. 1986.04 s [opt-env-conf-test] @@ -349,7 +349,7 @@
  17161. 1986.04 s [opt-env-conf-test] NonEmpty Char ->
  17162. 1986.04 s [opt-env-conf-test] Maybe (Maybe (NonEmpty Char, Bool))
  17163. 1986.04 s [opt-env-conf-test] consumeDashedSwitch dasheds isLong cs =
  17164. 1986.04 s [opt-env-conf-test] - if isLong
  17165. 1986.04 s [opt-env-conf-test] + if True
  17166. 1986.04 s [opt-env-conf-test] then
  17167. 1986.04 s [opt-env-conf-test] if DashedLong cs `elem` dasheds
  17168. 1986.04 s [opt-env-conf-test] then Just Nothing
  17169. 1986.04 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  17170. 1986.04 s [opt-env-conf-test] @@ -149,34 +149,33 @@
  17171. 1986.04 s [opt-env-conf-test] -- A single dash is always an argument
  17172. 1986.04 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  17173. 1986.04 s [opt-env-conf-test] -- Bare double-dash
  17174. 1986.04 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  17175. 1986.04 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  17176. 1986.04 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  17177. 1986.04 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  17178. 1986.04 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  17179. 1986.04 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  17180. 1986.04 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17181. 1986.04 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17182. 1986.04 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  17183. 1986.04 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  17184. 1986.04 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  17185. 1986.05 s [opt-env-conf-test] -- pop the args as they come.
  17186. 1986.05 s [opt-env-conf-test] _ ->
  17187. 1986.05 s [opt-env-conf-test] let go = \case
  17188. 1986.05 s [opt-env-conf-test] [] -> Nothing
  17189. 1986.05 s [opt-env-conf-test] (Dead : rest) -> go rest
  17190. 1986.05 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  17191. 1986.05 s [opt-env-conf-test] in case go afters of
  17192. 1986.05 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  17193. 1986.05 s [opt-env-conf-test] Just (firstLive, rest) ->
  17194. 1986.05 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  17195. 1986.05 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  17196. 1986.05 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  17197. 1986.05 s [opt-env-conf-test] -- arguments.
  17198. 1986.05 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  17199. 1986.05 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  17200. 1986.05 s [opt-env-conf-test] )
  17201. 1986.05 s [opt-env-conf-test] ]
  17202. 1986.05 s [opt-env-conf-test] ArgDashed {} ->
  17203. 1990.86 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17204. 1990.87 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17205. 1990.87 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:205:39-58
  17206. 1990.87 s [opt-env-conf-test] @@ -202,7 +202,7 @@
  17207. 1990.87 s [opt-env-conf-test] ]
  17208. 1990.87 s [opt-env-conf-test] _ ->
  17209. 1990.87 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17210. 1990.87 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17211. 1990.87 s [opt-env-conf-test] + ++ [ (Nothing, Args (befores ++ [Live a, Dead]) rest),
  17212. 1990.87 s [opt-env-conf-test] (Just (renderArg a), consumed)
  17213. 1990.87 s [opt-env-conf-test] ]
  17214. 1990.87 s [opt-env-conf-test] )
  17215. 1990.87 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:187:31-49
  17216. 1990.87 s [opt-env-conf-test] @@ -184,7 +184,7 @@
  17217. 1990.87 s [opt-env-conf-test] -- TODO we need to continue looking too
  17218. 1990.87 s [opt-env-conf-test] let switchCase =
  17219. 1990.87 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  17220. 1990.87 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17221. 1990.87 s [opt-env-conf-test] + ++ [ (Nothing, consumed)
  17222. 1990.87 s [opt-env-conf-test] ]
  17223. 1990.87 s [opt-env-conf-test] in case afters of
  17224. 1990.87 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  17225. 1990.87 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
  17226. 1990.87 s [opt-env-conf-test] @@ -202,7 +202,6 @@
  17227. 1990.87 s [opt-env-conf-test] ]
  17228. 1990.87 s [opt-env-conf-test] _ ->
  17229. 1990.87 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17230. 1990.87 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17231. 1990.87 s [opt-env-conf-test] (Just (renderArg a), consumed)
  17232. 1990.88 s [opt-env-conf-test] ]
  17233. 1990.88 s [opt-env-conf-test] )
  17234. 1990.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
  17235. 1990.88 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  17236. 1990.88 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  17237. 1990.88 s [opt-env-conf-test] go (c :| rest) =
  17238. 1990.88 s [opt-env-conf-test] if c `elem` cs
  17239. 1990.88 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  17240. 1990.88 s [opt-env-conf-test] + then Just $ (\ne -> (ne, True)) <$> NE.nonEmpty rest
  17241. 1990.88 s [opt-env-conf-test] else do
  17242. 1990.88 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  17243. 1990.88 s [opt-env-conf-test] new <- go rest'
  17244. 1990.88 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:364:10-21
  17245. 1990.88 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  17246. 1990.88 s [opt-env-conf-test] where
  17247. 1990.88 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  17248. 1990.88 s [opt-env-conf-test] go (c :| rest) =
  17249. 1990.88 s [opt-env-conf-test] - if c `elem` cs
  17250. 1990.88 s [opt-env-conf-test] + if not (c `elem` cs)
  17251. 1990.88 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  17252. 1990.88 s [opt-env-conf-test] else do
  17253. 1990.88 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  17254. 1990.88 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:201:39-57
  17255. 1990.88 s [opt-env-conf-test] @@ -198,7 +198,7 @@
  17256. 1990.88 s [opt-env-conf-test] ( case a' of
  17257. 1990.88 s [opt-env-conf-test] ArgDashed {} ->
  17258. 1990.88 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  17259. 1990.88 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  17260. 1990.88 s [opt-env-conf-test] + ++ [ (Nothing, consumed)
  17261. 1990.88 s [opt-env-conf-test] ]
  17262. 1990.88 s [opt-env-conf-test] _ ->
  17263. 1990.88 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17264. 1990.88 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
  17265. 1990.88 s [opt-env-conf-test] @@ -361,7 +361,7 @@
  17266. 1990.88 s [opt-env-conf-test] where
  17267. 1990.88 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  17268. 1990.88 s [opt-env-conf-test] go (c :| rest) =
  17269. 1990.88 s [opt-env-conf-test] - if c `elem` cs
  17270. 1990.88 s [opt-env-conf-test] + if False
  17271. 1990.88 s [opt-env-conf-test] then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  17272. 1990.88 s [opt-env-conf-test] else do
  17273. 1990.88 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  17274. 1990.88 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
  17275. 1990.88 s [opt-env-conf-test] @@ -202,7 +202,6 @@
  17276. 1990.88 s [opt-env-conf-test] ]
  17277. 1990.88 s [opt-env-conf-test] _ ->
  17278. 1990.88 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17279. 1990.89 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17280. 1990.89 s [opt-env-conf-test] (Just (renderArg a), consumed)
  17281. 1990.89 s [opt-env-conf-test] ]
  17282. 1990.89 s [opt-env-conf-test] )
  17283. 1990.89 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
  17284. 1990.89 s [opt-env-conf-test] @@ -202,9 +202,8 @@
  17285. 1990.89 s [opt-env-conf-test] ]
  17286. 1990.89 s [opt-env-conf-test] _ ->
  17287. 1990.89 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17288. 1990.89 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17289. 1990.89 s [opt-env-conf-test] (Just (renderArg a), consumed)
  17290. 1990.89 s [opt-env-conf-test] ]
  17291. 1990.89 s [opt-env-conf-test] )
  17292. 1990.89 s [opt-env-conf-test]
  17293. 1990.89 s [opt-env-conf-test] -- | Consume an option.
  17294. 1990.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  17295. 1990.89 s [opt-env-conf-test] @@ -186,26 +186,25 @@
  17296. 1990.89 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  17297. 1990.89 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  17298. 1990.89 s [opt-env-conf-test] ]
  17299. 1990.89 s [opt-env-conf-test] in case afters of
  17300. 1990.89 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  17301. 1990.89 s [opt-env-conf-test] [] -> switchCase
  17302. 1990.89 s [opt-env-conf-test] - (Dead : _) -> switchCase
  17303. 1990.89 s [opt-env-conf-test] (Live a' : rest) ->
  17304. 1990.89 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  17305. 1990.89 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  17306. 1990.89 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  17307. 1990.89 s [opt-env-conf-test] -- * The dashed is an argument
  17308. 1990.89 s [opt-env-conf-test] ( case a' of
  17309. 1990.89 s [opt-env-conf-test] ArgDashed {} ->
  17310. 1990.89 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  17311. 1990.89 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  17312. 1990.89 s [opt-env-conf-test] ]
  17313. 1990.89 s [opt-env-conf-test] _ ->
  17314. 1990.89 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17315. 1990.89 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17316. 1990.89 s [opt-env-conf-test] (Just (renderArg a), consumed)
  17317. 1990.89 s [opt-env-conf-test] ]
  17318. 1990.89 s [opt-env-conf-test] )
  17319. 1990.89 s [opt-env-conf-test]
  17320. 1990.89 s [opt-env-conf-test] -- | Consume an option.
  17321. 1990.89 s [opt-env-conf-test] --
  17322. 1990.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17323. 1990.89 s [opt-env-conf-test] @@ -143,69 +143,68 @@
  17324. 1990.89 s [opt-env-conf-test] in case firstArg of
  17325. 1990.89 s [opt-env-conf-test] -- Skip any dead argument
  17326. 1990.89 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17327. 1990.89 s [opt-env-conf-test] Live a -> case a of
  17328. 1990.89 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  17329. 1990.89 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  17330. 1990.89 s [opt-env-conf-test] -- A single dash is always an argument
  17331. 1990.89 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  17332. 1990.89 s [opt-env-conf-test] -- Bare double-dash
  17333. 1990.89 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  17334. 1990.89 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  17335. 1990.89 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  17336. 1990.89 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  17337. 1990.89 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  17338. 1990.89 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  17339. 1990.89 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17340. 1990.89 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  17341. 1990.89 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  17342. 1990.89 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  17343. 1990.89 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  17344. 1990.90 s [opt-env-conf-test] -- pop the args as they come.
  17345. 1990.90 s [opt-env-conf-test] _ ->
  17346. 1990.90 s [opt-env-conf-test] let go = \case
  17347. 1990.90 s [opt-env-conf-test] [] -> Nothing
  17348. 1990.90 s [opt-env-conf-test] (Dead : rest) -> go rest
  17349. 1990.90 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  17350. 1990.90 s [opt-env-conf-test] in case go afters of
  17351. 1990.90 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  17352. 1990.90 s [opt-env-conf-test] Just (firstLive, rest) ->
  17353. 1990.90 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  17354. 1990.90 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  17355. 1990.90 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  17356. 1990.90 s [opt-env-conf-test] -- arguments.
  17357. 1993.40 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  17358. 1993.48 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  17359. 1993.48 s [opt-env-conf-test] )
  17360. 1993.48 s [opt-env-conf-test] ]
  17361. 1993.48 s [opt-env-conf-test] ArgDashed {} ->
  17362. 1993.48 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17363. 1993.48 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17364. 1993.48 s [opt-env-conf-test] -- * The dashed is an argument
  17365. 1993.48 s [opt-env-conf-test] -- TODO we need to continue looking too
  17366. 1993.49 s [opt-env-conf-test] let switchCase =
  17367. 1993.49 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  17368. 1993.49 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  17369. 1993.49 s [opt-env-conf-test] ]
  17370. 1993.49 s [opt-env-conf-test] in case afters of
  17371. 1993.49 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  17372. 1993.49 s [opt-env-conf-test] [] -> switchCase
  17373. 1993.49 s [opt-env-conf-test] (Dead : _) -> switchCase
  17374. 1993.49 s [opt-env-conf-test] (Live a' : rest) ->
  17375. 1993.49 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  17376. 1993.49 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  17377. 1993.49 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  17378. 1993.49 s [opt-env-conf-test] -- * The dashed is an argument
  17379. 1993.49 s [opt-env-conf-test] ( case a' of
  17380. 1993.49 s [opt-env-conf-test] ArgDashed {} ->
  17381. 1993.49 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  17382. 1993.49 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  17383. 1993.49 s [opt-env-conf-test] ]
  17384. 1993.49 s [opt-env-conf-test] _ ->
  17385. 1993.49 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17386. 1993.49 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17387. 1993.49 s [opt-env-conf-test] (Just (renderArg a), consumed)
  17388. 1993.49 s [opt-env-conf-test] ]
  17389. 1993.49 s [opt-env-conf-test] )
  17390. 1993.49 s [opt-env-conf-test]
  17391. 1993.49 s [opt-env-conf-test] -- | Consume an option.
  17392. 1993.49 s [opt-env-conf-test] --
  17393. 1993.49 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:267:33-43
  17394. 1993.49 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  17395. 1993.49 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  17396. 1993.49 s [opt-env-conf-test] in case rest of
  17397. 1993.49 s [opt-env-conf-test] [] -> [seg | not (null seg)]
  17398. 1993.50 s [opt-env-conf-test] - _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  17399. 1993.50 s [opt-env-conf-test] + _ : rest' -> [seg | not not ((null seg))] <> splitOnSlash rest'
  17400. 1993.50 s [opt-env-conf-test]
  17401. 1993.50 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  17402. 1993.50 s [opt-env-conf-test] applyComponent :: Path Abs Dir -> String -> Path Abs Dir
  17403. 1993.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  17404. 1993.50 s [opt-env-conf-test] @@ -66,10 +66,9 @@
  17405. 1993.50 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  17406. 1993.50 s [opt-env-conf-test]
  17407. 1993.50 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  17408. 1993.50 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  17409. 1993.50 s [opt-env-conf-test] [] -> []
  17410. 1993.50 s [opt-env-conf-test] - [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  17411. 1993.50 s [opt-env-conf-test] _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  17412. 1993.50 s [opt-env-conf-test]
  17413. 1993.50 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  17414. 1993.50 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  17415. 1993.50 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:154:25-34
  17416. 1993.50 s [opt-env-conf-test] @@ -151,7 +151,7 @@
  17417. 1993.50 s [opt-env-conf-test] -- Bare double-dash
  17418. 1993.50 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  17419. 1993.50 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  17420. 1993.50 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17421. 1993.50 s [opt-env-conf-test] + [] -> [(Nothing, consumed)]
  17422. 1993.50 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  17423. 1993.50 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  17424. 1993.50 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  17425. 1993.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  17426. 1993.50 s [opt-env-conf-test] @@ -166,17 +166,16 @@
  17427. 1993.50 s [opt-env-conf-test] [] -> Nothing
  17428. 1993.50 s [opt-env-conf-test] (Dead : rest) -> go rest
  17429. 1993.50 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  17430. 1993.50 s [opt-env-conf-test] in case go afters of
  17431. 1993.50 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17432. 1993.50 s [opt-env-conf-test] Just (firstLive, rest) ->
  17433. 1993.50 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  17434. 1993.50 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  17435. 1993.50 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  17436. 1993.50 s [opt-env-conf-test] -- arguments.
  17437. 1993.50 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  17438. 1993.50 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  17439. 1993.50 s [opt-env-conf-test] )
  17440. 1993.50 s [opt-env-conf-test] ]
  17441. 1993.50 s [opt-env-conf-test] ArgDashed {} ->
  17442. 1993.50 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17443. 1993.50 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17444. 1993.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  17445. 1993.51 s [opt-env-conf-test] @@ -166,17 +166,8 @@
  17446. 1993.51 s [opt-env-conf-test] [] -> Nothing
  17447. 1993.51 s [opt-env-conf-test] (Dead : rest) -> go rest
  17448. 1993.51 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  17449. 1993.51 s [opt-env-conf-test] in case go afters of
  17450. 1993.51 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  17451. 1993.51 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17452. 1993.51 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17453. 1993.51 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17454. 1993.51 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17455. 1993.51 s [opt-env-conf-test] - -- arguments.
  17456. 1993.51 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17457. 1993.51 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17458. 1993.51 s [opt-env-conf-test] - )
  17459. 1993.51 s [opt-env-conf-test] - ]
  17460. 1993.51 s [opt-env-conf-test] ArgDashed {} ->
  17461. 1993.51 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17462. 1993.51 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17463. 1993.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  17464. 1993.51 s [opt-env-conf-test] @@ -149,34 +149,33 @@
  17465. 1993.51 s [opt-env-conf-test] -- A single dash is always an argument
  17466. 1993.51 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  17467. 1993.51 s [opt-env-conf-test] -- Bare double-dash
  17468. 1993.51 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  17469. 1993.51 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  17470. 1993.51 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17471. 1993.51 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  17472. 1993.51 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  17473. 1993.51 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  17474. 1993.51 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17475. 1993.51 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  17476. 1993.51 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  17477. 1993.51 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  17478. 1993.51 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  17479. 1993.51 s [opt-env-conf-test] -- pop the args as they come.
  17480. 1993.51 s [opt-env-conf-test] _ ->
  17481. 1993.51 s [opt-env-conf-test] let go = \case
  17482. 1993.51 s [opt-env-conf-test] [] -> Nothing
  17483. 1993.51 s [opt-env-conf-test] (Dead : rest) -> go rest
  17484. 1993.51 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  17485. 1993.51 s [opt-env-conf-test] in case go afters of
  17486. 1993.51 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  17487. 1993.51 s [opt-env-conf-test] Just (firstLive, rest) ->
  17488. 1993.51 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  17489. 1993.51 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  17490. 1993.52 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  17491. 1993.52 s [opt-env-conf-test] -- arguments.
  17492. 1993.52 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  17493. 1993.52 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  17494. 1993.52 s [opt-env-conf-test] )
  17495. 1993.52 s [opt-env-conf-test] ]
  17496. 1993.52 s [opt-env-conf-test] ArgDashed {} ->
  17497. 1994.37 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17498. 1994.37 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17499. 1994.37 s [opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completer.hs:244:15-16
  17500. 1994.37 s [opt-env-conf-test] @@ -241,7 +241,7 @@
  17501. 1994.37 s [opt-env-conf-test] components = splitOnSlash afterCurDir
  17502. 1994.37 s [opt-env-conf-test] -- Find the index after the last "../" component
  17503. 1994.37 s [opt-env-conf-test] lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
  17504. 1994.37 s [opt-env-conf-test] - [] -> 0
  17505. 1994.37 s [opt-env-conf-test] + [] -> 1
  17506. 1994.37 s [opt-env-conf-test] ixs -> maximum ixs
  17507. 1994.37 s [opt-env-conf-test] in if lastDotDotIdx == 0
  17508. 1994.37 s [opt-env-conf-test] then (curDirPrefix, afterCurDir, here)
  17509. 1994.37 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:168:45-60
  17510. 1994.37 s [opt-env-conf-test] @@ -165,7 +165,7 @@
  17511. 1994.37 s [opt-env-conf-test] let go = \case
  17512. 1994.37 s [opt-env-conf-test] [] -> Nothing
  17513. 1994.37 s [opt-env-conf-test] (Dead : rest) -> go rest
  17514. 1994.37 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17515. 1994.37 s [opt-env-conf-test] + (Live a' : rest) -> Nothing
  17516. 1994.37 s [opt-env-conf-test] in case go afters of
  17517. 1994.37 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  17518. 1994.37 s [opt-env-conf-test] Just (firstLive, rest) ->
  17519. 1994.37 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:266:26-36
  17520. 1994.38 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  17521. 1994.38 s [opt-env-conf-test] splitOnSlash s =
  17522. 1994.38 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  17523. 1994.38 s [opt-env-conf-test] in case rest of
  17524. 1994.38 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  17525. 1994.38 s [opt-env-conf-test] + [] -> [seg | not True]
  17526. 1994.38 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  17527. 1994.38 s [opt-env-conf-test]
  17528. 1994.38 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  17529. 1994.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  17530. 1994.38 s [opt-env-conf-test] @@ -143,69 +143,41 @@
  17531. 1994.38 s [opt-env-conf-test] in case firstArg of
  17532. 1994.38 s [opt-env-conf-test] -- Skip any dead argument
  17533. 1994.38 s [opt-env-conf-test] Dead -> consumeArgument consumed
  17534. 1994.38 s [opt-env-conf-test] Live a -> case a of
  17535. 1994.38 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  17536. 1994.38 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  17537. 1994.38 s [opt-env-conf-test] -- A single dash is always an argument
  17538. 1994.38 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  17539. 1994.38 s [opt-env-conf-test] -- Bare double-dash
  17540. 1994.38 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  17541. 1994.38 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  17542. 1994.38 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  17543. 1994.38 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  17544. 1994.38 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  17545. 1994.38 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  17546. 1994.38 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  17547. 1994.38 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  17548. 1994.38 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  17549. 1994.38 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  17550. 1994.38 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  17551. 1994.38 s [opt-env-conf-test] - -- pop the args as they come.
  17552. 1994.38 s [opt-env-conf-test] - _ ->
  17553. 1994.38 s [opt-env-conf-test] - let go = \case
  17554. 1994.38 s [opt-env-conf-test] - [] -> Nothing
  17555. 1994.38 s [opt-env-conf-test] - (Dead : rest) -> go rest
  17556. 1994.38 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  17557. 1994.38 s [opt-env-conf-test] - in case go afters of
  17558. 1994.38 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  17559. 1994.38 s [opt-env-conf-test] - Just (firstLive, rest) ->
  17560. 1994.38 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  17561. 1994.38 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  17562. 1994.38 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  17563. 1994.38 s [opt-env-conf-test] - -- arguments.
  17564. 1994.38 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  17565. 1994.38 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  17566. 1994.39 s [opt-env-conf-test] - )
  17567. 1994.39 s [opt-env-conf-test] - ]
  17568. 1994.39 s [opt-env-conf-test] ArgDashed {} ->
  17569. 1994.39 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  17570. 1994.39 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  17571. 1994.39 s [opt-env-conf-test] -- * The dashed is an argument
  17572. 1994.39 s [opt-env-conf-test] -- TODO we need to continue looking too
  17573. 1994.39 s [opt-env-conf-test] let switchCase =
  17574. 1994.39 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  17575. 1994.39 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  17576. 1994.39 s [opt-env-conf-test] ]
  17577. 1994.39 s [opt-env-conf-test] in case afters of
  17578. 1994.39 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  17579. 1994.39 s [opt-env-conf-test] [] -> switchCase
  17580. 1994.39 s [opt-env-conf-test] (Dead : _) -> switchCase
  17581. 1994.39 s [opt-env-conf-test] (Live a' : rest) ->
  17582. 1994.39 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  17583. 1994.39 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  17584. 1994.39 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  17585. 1994.39 s [opt-env-conf-test] -- * The dashed is an argument
  17586. 1994.39 s [opt-env-conf-test] ( case a' of
  17587. 1994.39 s [opt-env-conf-test] ArgDashed {} ->
  17588. 1994.39 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  17589. 1994.39 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  17590. 1994.39 s [opt-env-conf-test] ]
  17591. 1994.39 s [opt-env-conf-test] _ ->
  17592. 1994.39 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  17593. 1994.39 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  17594. 1994.39 s [opt-env-conf-test] (Just (renderArg a), consumed)
  17595. 2002.26 s [opt-env-conf-test] ]
  17596. 2002.26 s [opt-env-conf-test] )
  17597. 2002.26 s [opt-env-conf-test]
  17598. 2002.29 s [opt-env-conf-test] -- | Consume an option.
  17599. 2002.29 s [opt-env-conf-test] --
  17600. 2002.29 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:266:26-36
  17601. 2002.29 s [opt-env-conf-test] @@ -263,7 +263,7 @@
  17602. 2002.29 s [opt-env-conf-test] splitOnSlash s =
  17603. 2002.29 s [opt-env-conf-test] let (seg, rest) = break (== '/') s
  17604. 2002.29 s [opt-env-conf-test] in case rest of
  17605. 2002.29 s [opt-env-conf-test] - [] -> [seg | not (null seg)]
  17606. 2002.29 s [opt-env-conf-test] + [] -> [seg | not not ((null seg))]
  17607. 2002.29 s [opt-env-conf-test] _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
  17608. 2002.29 s [opt-env-conf-test]
  17609. 2002.29 s [opt-env-conf-test] -- | Apply a single path component to an absolute directory.
  17610. 2002.29 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:108:31-54
  17611. 2002.29 s [opt-env-conf-test] @@ -105,7 +105,7 @@
  17612. 2002.29 s [opt-env-conf-test] else pure ([], [])
  17613. 2002.29 s [opt-env-conf-test] Just (Abs af) -> do
  17614. 2002.29 s [opt-env-conf-test] let dir = parent af
  17615. 2002.29 s [opt-env-conf-test] - let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
  17616. 2002.29 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  17617. 2002.30 s [opt-env-conf-test] (ds, fs) <- listDirForgiving dir
  17618. 2002.30 s [opt-env-conf-test] pure
  17619. 2002.30 s [opt-env-conf-test] ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
  17620. 2002.30 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:150:32-40
  17621. 2002.30 s [opt-env-conf-test] @@ -147,7 +147,7 @@
  17622. 2002.30 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  17623. 2002.30 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  17624. 2002.30 s [opt-env-conf-test] -- A single dash is always an argument
  17625. 2002.30 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  17626. 2002.30 s [opt-env-conf-test] + ArgBareDash -> [(Nothing, consumed)]
  17627. 2002.30 s [opt-env-conf-test] -- Bare double-dash
  17628. 2002.30 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  17629. 2002.30 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  17630. 2002.30 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:247:39-71
  17631. 2002.30 s [opt-env-conf-test] @@ -244,7 +244,7 @@
  17632. 2002.30 s [opt-env-conf-test] (Live v : rest') ->
  17633. 2002.30 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17634. 2002.30 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17635. 2002.30 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  17636. 2002.30 s [opt-env-conf-test] + Just Nothing -> Nothing
  17637. 2002.30 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17638. 2002.30 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17639. 2002.30 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17640. 2002.30 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
  17641. 2002.30 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  17642. 2002.30 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17643. 2002.30 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17644. 2002.30 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17645. 2002.30 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17646. 2002.30 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed True cs') : Dead : rest')
  17647. 2002.30 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17648. 2002.30 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17649. 2002.30 s [opt-env-conf-test]
  17650. 2002.30 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
  17651. 2002.30 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  17652. 2002.30 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17653. 2002.30 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17654. 2002.30 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17655. 2002.30 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17656. 2002.30 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
  17657. 2002.30 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17658. 2002.30 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17659. 2002.30 s [opt-env-conf-test]
  17660. 2002.30 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:248:77-83
  17661. 2002.30 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  17662. 2002.30 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17663. 2002.30 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17664. 2002.30 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17665. 2002.30 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17666. 2002.30 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed not (isLong) cs') : Dead : rest')
  17667. 2002.30 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17668. 2002.30 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17669. 2002.30 s [opt-env-conf-test]
  17670. 2002.30 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:248:42-104
  17671. 2002.30 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  17672. 2002.30 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17673. 2002.31 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17674. 2002.31 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17675. 2002.31 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17676. 2002.31 s [opt-env-conf-test] + Just (Just cs') -> Nothing
  17677. 2002.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17678. 2002.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17679. 2002.31 s [opt-env-conf-test]
  17680. 2002.31 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  17681. 2002.31 s [opt-env-conf-test] @@ -242,10 +242,9 @@
  17682. 2002.31 s [opt-env-conf-test] Nothing ->
  17683. 2002.31 s [opt-env-conf-test] case rest of
  17684. 2002.31 s [opt-env-conf-test] (Live v : rest') ->
  17685. 2002.31 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17686. 2002.31 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  17687. 2002.31 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17688. 2002.31 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17689. 2002.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17690. 2002.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17691. 2002.31 s [opt-env-conf-test]
  17692. 2002.31 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  17693. 2002.31 s [opt-env-conf-test] @@ -242,10 +242,9 @@
  17694. 2002.31 s [opt-env-conf-test] Nothing ->
  17695. 2002.31 s [opt-env-conf-test] case rest of
  17696. 2002.31 s [opt-env-conf-test] (Live v : rest') ->
  17697. 2002.31 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17698. 2002.31 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17699. 2002.31 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  17700. 2002.31 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17701. 2002.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17702. 2002.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17703. 2002.31 s [opt-env-conf-test]
  17704. 2002.31 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
  17705. 2002.31 s [opt-env-conf-test] @@ -242,10 +242,9 @@
  17706. 2002.31 s [opt-env-conf-test] Nothing ->
  17707. 2002.31 s [opt-env-conf-test] case rest of
  17708. 2002.31 s [opt-env-conf-test] (Live v : rest') ->
  17709. 2002.31 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17710. 2002.31 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17711. 2002.31 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17712. 2002.31 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17713. 2002.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17714. 2002.31 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17715. 2002.31 s [opt-env-conf-test]
  17716. 2002.31 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
  17717. 2002.31 s [opt-env-conf-test] @@ -240,13 +240,8 @@
  17718. 2002.31 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  17719. 2002.31 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  17720. 2002.31 s [opt-env-conf-test] Nothing ->
  17721. 2002.31 s [opt-env-conf-test] case rest of
  17722. 2002.31 s [opt-env-conf-test] - (Live v : rest') ->
  17723. 2002.31 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  17724. 2002.31 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  17725. 2002.31 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  17726. 2002.31 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17727. 2006.48 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17728. 2006.48 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17729. 2006.48 s [opt-env-conf-test]
  17730. 2006.48 s [opt-env-conf-test] consumeDashedShorthandOption ::
  17731. 2006.48 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
  17732. 2006.48 s [opt-env-conf-test] @@ -240,13 +240,12 @@
  17733. 2006.48 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  17734. 2006.48 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  17735. 2006.48 s [opt-env-conf-test] Nothing ->
  17736. 2006.48 s [opt-env-conf-test] case rest of
  17737. 2006.48 s [opt-env-conf-test] (Live v : rest') ->
  17738. 2006.48 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17739. 2006.49 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17740. 2006.49 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17741. 2006.49 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17742. 2006.49 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  17743. 2006.49 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17744. 2006.49 s [opt-env-conf-test]
  17745. 2006.49 s [opt-env-conf-test] consumeDashedShorthandOption ::
  17746. 2006.49 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
  17747. 2006.49 s [opt-env-conf-test] @@ -237,16 +237,15 @@
  17748. 2006.49 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  17749. 2006.49 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  17750. 2006.49 s [opt-env-conf-test] ArgDashed isLong cs ->
  17751. 2006.49 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  17752. 2006.49 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  17753. 2006.49 s [opt-env-conf-test] Nothing ->
  17754. 2006.49 s [opt-env-conf-test] case rest of
  17755. 2006.49 s [opt-env-conf-test] (Live v : rest') ->
  17756. 2006.49 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17757. 2006.49 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17758. 2006.49 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17759. 2006.49 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17760. 2006.49 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17761. 2006.49 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17762. 2006.49 s [opt-env-conf-test]
  17763. 2006.49 s [opt-env-conf-test] consumeDashedShorthandOption ::
  17764. 2006.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
  17765. 2006.50 s [opt-env-conf-test] @@ -237,16 +237,8 @@
  17766. 2006.50 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  17767. 2006.50 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  17768. 2006.50 s [opt-env-conf-test] ArgDashed isLong cs ->
  17769. 2006.50 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  17770. 2006.50 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  17771. 2006.50 s [opt-env-conf-test] - Nothing ->
  17772. 2006.50 s [opt-env-conf-test] - case rest of
  17773. 2006.50 s [opt-env-conf-test] - (Live v : rest') ->
  17774. 2006.50 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  17775. 2006.50 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  17776. 2006.50 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  17777. 2006.50 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17778. 2006.50 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  17779. 2006.50 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17780. 2006.50 s [opt-env-conf-test]
  17781. 2006.50 s [opt-env-conf-test] consumeDashedShorthandOption ::
  17782. 2006.50 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  17783. 2006.50 s [opt-env-conf-test] @@ -233,21 +233,20 @@
  17784. 2006.50 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  17785. 2006.50 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  17786. 2006.50 s [opt-env-conf-test] (Live k : rest) ->
  17787. 2006.50 s [opt-env-conf-test] case k of
  17788. 2006.50 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  17789. 2006.50 s [opt-env-conf-test] - ArgBareDoubleDash -> Nothing
  17790. 2006.50 s [opt-env-conf-test] ArgDashed isLong cs ->
  17791. 2006.50 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  17792. 2006.50 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  17793. 2006.50 s [opt-env-conf-test] Nothing ->
  17794. 2006.50 s [opt-env-conf-test] case rest of
  17795. 2006.50 s [opt-env-conf-test] (Live v : rest') ->
  17796. 2006.50 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17797. 2006.50 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17798. 2006.50 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17799. 2006.50 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17800. 2006.51 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17801. 2006.51 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17802. 2006.51 s [opt-env-conf-test]
  17803. 2006.51 s [opt-env-conf-test] consumeDashedShorthandOption ::
  17804. 2006.51 s [opt-env-conf-test] [Dashed] ->
  17805. 2006.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  17806. 2006.51 s [opt-env-conf-test] @@ -233,21 +233,10 @@
  17807. 2006.51 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  17808. 2006.51 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  17809. 2006.51 s [opt-env-conf-test] (Live k : rest) ->
  17810. 2006.51 s [opt-env-conf-test] case k of
  17811. 2006.51 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  17812. 2006.51 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  17813. 2006.51 s [opt-env-conf-test] - ArgDashed isLong cs ->
  17814. 2006.51 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  17815. 2006.51 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  17816. 2006.51 s [opt-env-conf-test] - Nothing ->
  17817. 2006.51 s [opt-env-conf-test] - case rest of
  17818. 2006.51 s [opt-env-conf-test] - (Live v : rest') ->
  17819. 2006.51 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  17820. 2006.51 s [opt-env-conf-test] - Nothing -> second (Live k :) <$> go rest
  17821. 2006.51 s [opt-env-conf-test] - Just Nothing -> Just (renderArg v, Dead : rest')
  17822. 2006.51 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17823. 2006.51 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  17824. 2006.51 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17825. 2006.51 s [opt-env-conf-test]
  17826. 2006.51 s [opt-env-conf-test] consumeDashedShorthandOption ::
  17827. 2006.51 s [opt-env-conf-test] [Dashed] ->
  17828. 2006.51 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
  17829. 2006.51 s [opt-env-conf-test] @@ -233,21 +233,20 @@
  17830. 2006.51 s [opt-env-conf-test] (Dead : rest) -> second (Dead :) <$> go rest
  17831. 2006.51 s [opt-env-conf-test] -- If we find a live key, try to consume it.
  17832. 2006.51 s [opt-env-conf-test] (Live k : rest) ->
  17833. 2006.51 s [opt-env-conf-test] case k of
  17834. 2006.51 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  17835. 2006.51 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  17836. 2006.51 s [opt-env-conf-test] ArgDashed isLong cs ->
  17837. 2006.51 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  17838. 2006.51 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  17839. 2006.51 s [opt-env-conf-test] Nothing ->
  17840. 2006.51 s [opt-env-conf-test] case rest of
  17841. 2006.51 s [opt-env-conf-test] (Live v : rest') ->
  17842. 2006.52 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  17843. 2006.52 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  17844. 2006.52 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  17845. 2006.52 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  17846. 2006.52 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  17847. 2006.52 s [opt-env-conf-test] - _ -> second (Live k :) <$> go rest
  17848. 2006.52 s [opt-env-conf-test]
  17849. 2006.52 s [opt-env-conf-test] consumeDashedShorthandOption ::
  17850. 2006.52 s [opt-env-conf-test] [Dashed] ->
  17851. 2006.52 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:387:23-41
  17852. 2006.52 s [opt-env-conf-test] @@ -384,7 +384,7 @@
  17853. 2006.52 s [opt-env-conf-test] live =
  17854. 2006.52 s [opt-env-conf-test] mapMaybe
  17855. 2006.52 s [opt-env-conf-test] ( \case
  17856. 2006.52 s [opt-env-conf-test] - Live a -> Just (renderArg a)
  17857. 2006.52 s [opt-env-conf-test] + Live a -> Nothing
  17858. 2006.52 s [opt-env-conf-test] Dead -> Nothing
  17859. 2006.52 s [opt-env-conf-test] )
  17860. 2006.52 s [opt-env-conf-test]
  17861. 2006.52 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:79:26-30
  17862. 2006.52 s [opt-env-conf-test] @@ -76,7 +76,7 @@
  17863. 2006.52 s [opt-env-conf-test] parseArg = \case
  17864. 2006.52 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  17865. 2006.52 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  17866. 2006.52 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  17867. 2006.52 s [opt-env-conf-test] + Just ne -> ArgDashed False ne
  17868. 2006.52 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  17869. 2006.52 s [opt-env-conf-test] Nothing -> ArgBareDash
  17870. 2006.52 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  17871. 2006.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
  17872. 2006.52 s [opt-env-conf-test] @@ -74,9 +74,8 @@
  17873. 2006.52 s [opt-env-conf-test]
  17874. 2006.52 s [opt-env-conf-test] parseArg :: String -> Arg
  17875. 2006.52 s [opt-env-conf-test] parseArg = \case
  17876. 2006.52 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  17877. 2006.52 s [opt-env-conf-test] - Nothing -> ArgBareDoubleDash
  17878. 2006.52 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  17879. 2006.52 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  17880. 2006.52 s [opt-env-conf-test] Nothing -> ArgBareDash
  17881. 2006.52 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  17882. 2006.52 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
  17883. 2006.52 s [opt-env-conf-test] @@ -74,9 +74,8 @@
  17884. 2006.52 s [opt-env-conf-test]
  17885. 2006.53 s [opt-env-conf-test] parseArg :: String -> Arg
  17886. 2006.53 s [opt-env-conf-test] parseArg = \case
  17887. 2006.53 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  17888. 2006.53 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  17889. 2006.53 s [opt-env-conf-test] - Just ne -> ArgDashed True ne
  17890. 2006.53 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  17891. 2006.53 s [opt-env-conf-test] Nothing -> ArgBareDash
  17892. 2006.53 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  17893. 2006.53 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:82:26-31
  17894. 2006.53 s [opt-env-conf-test] @@ -79,7 +79,7 @@
  17895. 2006.53 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  17896. 2006.53 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  17897. 2006.53 s [opt-env-conf-test] Nothing -> ArgBareDash
  17898. 2006.53 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  17899. 2006.53 s [opt-env-conf-test] + Just ne -> ArgDashed True ne
  17900. 2006.53 s [opt-env-conf-test] s -> ArgPlain s
  17901. 2006.53 s [opt-env-conf-test]
  17902. 2006.53 s [opt-env-conf-test] renderArg :: Arg -> String
  17903. 2006.53 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
  17904. 2006.53 s [opt-env-conf-test] @@ -77,9 +77,8 @@
  17905. 2006.53 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  17906. 2006.53 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  17907. 2006.53 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  17908. 2015.39 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  17909. 2015.39 s [opt-env-conf-test] - Nothing -> ArgBareDash
  17910. 2015.41 s [opt-env-conf-test] Just ne -> ArgDashed False ne
  17911. 2015.41 s [opt-env-conf-test] s -> ArgPlain s
  17912. 2015.41 s [opt-env-conf-test]
  17913. 2015.41 s [opt-env-conf-test] renderArg :: Arg -> String
  17914. 2015.41 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
  17915. 2015.41 s [opt-env-conf-test] @@ -77,9 +77,8 @@
  17916. 2015.42 s [opt-env-conf-test] '-' : '-' : rest -> case NE.nonEmpty rest of
  17917. 2015.42 s [opt-env-conf-test] Nothing -> ArgBareDoubleDash
  17918. 2015.42 s [opt-env-conf-test] Just ne -> ArgDashed True ne
  17919. 2015.42 s [opt-env-conf-test] '-' : rest -> case NE.nonEmpty rest of
  17920. 2015.42 s [opt-env-conf-test] Nothing -> ArgBareDash
  17921. 2015.42 s [opt-env-conf-test] - Just ne -> ArgDashed False ne
  17922. 2015.42 s [opt-env-conf-test] s -> ArgPlain s
  17923. 2015.42 s [opt-env-conf-test]
  17924. 2015.42 s [opt-env-conf-test] renderArg :: Arg -> String
  17925. 2015.42 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  17926. 2015.42 s [opt-env-conf-test] @@ -396,10 +396,9 @@
  17927. 2015.42 s [opt-env-conf-test] instance Validity Dashed
  17928. 2015.42 s [opt-env-conf-test]
  17929. 2015.42 s [opt-env-conf-test] instance IsString Dashed where
  17930. 2015.42 s [opt-env-conf-test] fromString s = case fromString s of
  17931. 2015.42 s [opt-env-conf-test] - ArgDashed True cs -> DashedLong cs
  17932. 2015.42 s [opt-env-conf-test] ArgDashed False (c :| []) -> DashedShort c
  17933. 2015.42 s [opt-env-conf-test] _ -> error "Invalid dashed"
  17934. 2015.42 s [opt-env-conf-test]
  17935. 2015.42 s [opt-env-conf-test] renderDashed :: Dashed -> String
  17936. 2015.42 s [opt-env-conf-test] renderDashed = \case
  17937. 2015.42 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  17938. 2015.42 s [opt-env-conf-test] @@ -396,10 +396,9 @@
  17939. 2015.42 s [opt-env-conf-test] instance Validity Dashed
  17940. 2015.42 s [opt-env-conf-test]
  17941. 2015.42 s [opt-env-conf-test] instance IsString Dashed where
  17942. 2015.42 s [opt-env-conf-test] fromString s = case fromString s of
  17943. 2015.42 s [opt-env-conf-test] ArgDashed True cs -> DashedLong cs
  17944. 2015.42 s [opt-env-conf-test] - ArgDashed False (c :| []) -> DashedShort c
  17945. 2015.42 s [opt-env-conf-test] _ -> error "Invalid dashed"
  17946. 2015.42 s [opt-env-conf-test]
  17947. 2015.42 s [opt-env-conf-test] renderDashed :: Dashed -> String
  17948. 2015.42 s [opt-env-conf-test] renderDashed = \case
  17949. 2015.42 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  17950. 2015.43 s [opt-env-conf-test] @@ -396,10 +396,9 @@
  17951. 2015.43 s [opt-env-conf-test] instance Validity Dashed
  17952. 2015.43 s [opt-env-conf-test]
  17953. 2015.43 s [opt-env-conf-test] instance IsString Dashed where
  17954. 2015.43 s [opt-env-conf-test] fromString s = case fromString s of
  17955. 2015.43 s [opt-env-conf-test] ArgDashed True cs -> DashedLong cs
  17956. 2015.43 s [opt-env-conf-test] ArgDashed False (c :| []) -> DashedShort c
  17957. 2015.43 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  17958. 2015.43 s [opt-env-conf-test]
  17959. 2015.43 s [opt-env-conf-test] renderDashed :: Dashed -> String
  17960. 2015.43 s [opt-env-conf-test] renderDashed = \case
  17961. 2015.43 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
  17962. 2015.43 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  17963. 2015.43 s [opt-env-conf-test] mconcat
  17964. 2015.43 s [opt-env-conf-test] [ genericValidate arg,
  17965. 2015.43 s [opt-env-conf-test] case arg of
  17966. 2015.43 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  17967. 2015.43 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
  17968. 2015.43 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  17969. 2015.43 s [opt-env-conf-test] ('-' : _) -> False
  17970. 2015.43 s [opt-env-conf-test] _ -> True
  17971. 2015.43 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
  17972. 2015.43 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  17973. 2015.43 s [opt-env-conf-test] mconcat
  17974. 2015.43 s [opt-env-conf-test] [ genericValidate arg,
  17975. 2015.43 s [opt-env-conf-test] case arg of
  17976. 2015.43 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  17977. 2015.43 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ False
  17978. 2015.43 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  17979. 2015.43 s [opt-env-conf-test] ('-' : _) -> False
  17980. 2015.43 s [opt-env-conf-test] _ -> True
  17981. 2015.43 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:65:103-111
  17982. 2015.43 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  17983. 2015.43 s [opt-env-conf-test] mconcat
  17984. 2015.43 s [opt-env-conf-test] [ genericValidate arg,
  17985. 2015.43 s [opt-env-conf-test] case arg of
  17986. 2015.43 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  17987. 2015.43 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ not (c /= '-')
  17988. 2015.43 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  17989. 2015.43 s [opt-env-conf-test] ('-' : _) -> False
  17990. 2015.43 s [opt-env-conf-test] _ -> True
  17991. 2015.43 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:67:26-31
  17992. 2015.43 s [opt-env-conf-test] @@ -64,7 +64,7 @@
  17993. 2015.44 s [opt-env-conf-test] case arg of
  17994. 2015.44 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  17995. 2015.44 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  17996. 2015.44 s [opt-env-conf-test] - ('-' : _) -> False
  17997. 2015.44 s [opt-env-conf-test] + ('-' : _) -> True
  17998. 2015.44 s [opt-env-conf-test] _ -> True
  17999. 2015.44 s [opt-env-conf-test] _ -> valid
  18000. 2015.44 s [opt-env-conf-test] ]
  18001. 2015.44 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:68:18-22
  18002. 2015.44 s [opt-env-conf-test] @@ -65,7 +65,7 @@
  18003. 2015.44 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18004. 2015.44 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18005. 2015.44 s [opt-env-conf-test] ('-' : _) -> False
  18006. 2015.44 s [opt-env-conf-test] - _ -> True
  18007. 2015.44 s [opt-env-conf-test] + _ -> False
  18008. 2015.44 s [opt-env-conf-test] _ -> valid
  18009. 2015.44 s [opt-env-conf-test] ]
  18010. 2015.44 s [opt-env-conf-test]
  18011. 2015.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
  18012. 2015.44 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  18013. 2015.44 s [opt-env-conf-test] [ genericValidate arg,
  18014. 2015.44 s [opt-env-conf-test] case arg of
  18015. 2015.44 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18016. 2015.44 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  18017. 2015.44 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ True-> declare "does not start with a dash" $ case s of
  18018. 2015.44 s [opt-env-conf-test] ('-' : _) -> False
  18019. 2015.44 s [opt-env-conf-test] _ -> True
  18020. 2015.44 s [opt-env-conf-test] _ -> valid
  18021. 2015.44 s [opt-env-conf-test] ]
  18022. 2015.44 s [opt-env-conf-test]
  18023. 2015.44 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
  18024. 2015.44 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  18025. 2015.44 s [opt-env-conf-test] [ genericValidate arg,
  18026. 2015.44 s [opt-env-conf-test] case arg of
  18027. 2015.44 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18028. 2015.44 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  18029. 2015.44 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ False-> declare "does not start with a dash" $ case s of
  18030. 2015.44 s [opt-env-conf-test] ('-' : _) -> False
  18031. 2015.44 s [opt-env-conf-test] _ -> True
  18032. 2015.44 s [opt-env-conf-test] _ -> valid
  18033. 2015.44 s [opt-env-conf-test] ]
  18034. 2015.44 s [opt-env-conf-test]
  18035. 2015.44 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:66:64-22
  18036. 2015.44 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  18037. 2015.44 s [opt-env-conf-test] [ genericValidate arg,
  18038. 2015.44 s [opt-env-conf-test] case arg of
  18039. 2015.44 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18040. 2015.44 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  18041. 2015.44 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ not (case s of
  18042. 2015.44 s [opt-env-conf-test] ('-' : _) -> False
  18043. 2015.44 s [opt-env-conf-test] - _ -> True
  18044. 2015.44 s [opt-env-conf-test] + _ -> True)
  18045. 2015.44 s [opt-env-conf-test] _ -> valid
  18046. 2015.44 s [opt-env-conf-test] ]
  18047. 2015.44 s [opt-env-conf-test]
  18048. 2015.44 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  18049. 2015.44 s [opt-env-conf-test] @@ -63,9 +63,8 @@
  18050. 2015.44 s [opt-env-conf-test] [ genericValidate arg,
  18051. 2015.44 s [opt-env-conf-test] case arg of
  18052. 2015.44 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18053. 2015.45 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18054. 2015.45 s [opt-env-conf-test] - ('-' : _) -> False
  18055. 2015.45 s [opt-env-conf-test] _ -> True
  18056. 2015.45 s [opt-env-conf-test] _ -> valid
  18057. 2015.45 s [opt-env-conf-test] ]
  18058. 2015.45 s [opt-env-conf-test]
  18059. 2015.45 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  18060. 2015.45 s [opt-env-conf-test] @@ -63,9 +63,8 @@
  18061. 2015.45 s [opt-env-conf-test] [ genericValidate arg,
  18062. 2015.45 s [opt-env-conf-test] case arg of
  18063. 2015.45 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18064. 2015.45 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18065. 2015.45 s [opt-env-conf-test] ('-' : _) -> False
  18066. 2015.45 s [opt-env-conf-test] - _ -> True
  18067. 2015.45 s [opt-env-conf-test] _ -> valid
  18068. 2015.45 s [opt-env-conf-test] ]
  18069. 2015.45 s [opt-env-conf-test]
  18070. 2015.45 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  18071. 2015.45 s [opt-env-conf-test] @@ -61,12 +61,11 @@
  18072. 2015.45 s [opt-env-conf-test] validate arg =
  18073. 2015.45 s [opt-env-conf-test] mconcat
  18074. 2015.45 s [opt-env-conf-test] [ genericValidate arg,
  18075. 2015.45 s [opt-env-conf-test] case arg of
  18076. 2015.45 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18077. 2015.45 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18078. 2015.45 s [opt-env-conf-test] ('-' : _) -> False
  18079. 2015.45 s [opt-env-conf-test] _ -> True
  18080. 2015.45 s [opt-env-conf-test] _ -> valid
  18081. 2015.45 s [opt-env-conf-test] ]
  18082. 2015.45 s [opt-env-conf-test]
  18083. 2015.45 s [opt-env-conf-test] instance IsString Arg where
  18084. 2015.45 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  18085. 2015.45 s [opt-env-conf-test] @@ -61,12 +61,9 @@
  18086. 2015.45 s [opt-env-conf-test] validate arg =
  18087. 2015.45 s [opt-env-conf-test] mconcat
  18088. 2015.45 s [opt-env-conf-test] [ genericValidate arg,
  18089. 2015.45 s [opt-env-conf-test] case arg of
  18090. 2021.92 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18091. 2021.95 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  18092. 2021.95 s [opt-env-conf-test] - ('-' : _) -> False
  18093. 2021.95 s [opt-env-conf-test] - _ -> True
  18094. 2021.95 s [opt-env-conf-test] _ -> valid
  18095. 2021.95 s [opt-env-conf-test] ]
  18096. 2021.95 s [opt-env-conf-test]
  18097. 2021.95 s [opt-env-conf-test] instance IsString Arg where
  18098. 2021.95 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  18099. 2021.95 s [opt-env-conf-test] @@ -61,12 +61,11 @@
  18100. 2021.95 s [opt-env-conf-test] validate arg =
  18101. 2021.95 s [opt-env-conf-test] mconcat
  18102. 2021.95 s [opt-env-conf-test] [ genericValidate arg,
  18103. 2021.96 s [opt-env-conf-test] case arg of
  18104. 2021.96 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18105. 2021.96 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18106. 2021.96 s [opt-env-conf-test] ('-' : _) -> False
  18107. 2021.96 s [opt-env-conf-test] _ -> True
  18108. 2021.96 s [opt-env-conf-test] - _ -> valid
  18109. 2021.96 s [opt-env-conf-test] ]
  18110. 2021.96 s [opt-env-conf-test]
  18111. 2021.96 s [opt-env-conf-test] instance IsString Arg where
  18112. 2021.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
  18113. 2021.96 s [opt-env-conf-test] @@ -60,14 +60,7 @@
  18114. 2021.96 s [opt-env-conf-test] instance Validity Arg where
  18115. 2021.96 s [opt-env-conf-test] validate arg =
  18116. 2021.96 s [opt-env-conf-test] mconcat
  18117. 2021.96 s [opt-env-conf-test] - [ genericValidate arg,
  18118. 2021.96 s [opt-env-conf-test] - case arg of
  18119. 2021.96 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18120. 2021.96 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  18121. 2021.96 s [opt-env-conf-test] - ('-' : _) -> False
  18122. 2021.96 s [opt-env-conf-test] - _ -> True
  18123. 2021.96 s [opt-env-conf-test] - _ -> valid
  18124. 2021.96 s [opt-env-conf-test] ]
  18125. 2021.96 s [opt-env-conf-test]
  18126. 2021.96 s [opt-env-conf-test] instance IsString Arg where
  18127. 2021.96 s [opt-env-conf-test] fromString = parseArg
  18128. 2021.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
  18129. 2021.96 s [opt-env-conf-test] @@ -60,14 +60,13 @@
  18130. 2021.96 s [opt-env-conf-test] instance Validity Arg where
  18131. 2021.96 s [opt-env-conf-test] validate arg =
  18132. 2021.96 s [opt-env-conf-test] mconcat
  18133. 2021.96 s [opt-env-conf-test] - [ genericValidate arg,
  18134. 2021.96 s [opt-env-conf-test] case arg of
  18135. 2021.96 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  18136. 2021.96 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  18137. 2021.96 s [opt-env-conf-test] ('-' : _) -> False
  18138. 2021.96 s [opt-env-conf-test] _ -> True
  18139. 2021.96 s [opt-env-conf-test] _ -> valid
  18140. 2021.96 s [opt-env-conf-test] ]
  18141. 2021.96 s [opt-env-conf-test]
  18142. 2021.96 s [opt-env-conf-test] instance IsString Arg where
  18143. 2021.96 s [opt-env-conf-test] fromString = parseArg
  18144. 2021.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
  18145. 2021.96 s [opt-env-conf-test] @@ -142,7 +142,4 @@
  18146. 2021.96 s [opt-env-conf-test]
  18147. 2021.96 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  18148. 2021.96 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  18149. 2021.96 s [opt-env-conf-test] - [ commandChunk commandDocArgument,
  18150. 2021.96 s [opt-env-conf-test] - ": ",
  18151. 2021.96 s [opt-env-conf-test] - helpChunk commandDocHelp
  18152. 2021.96 s [opt-env-conf-test] ]
  18153. 2021.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
  18154. 2021.96 s [opt-env-conf-test] @@ -142,7 +142,6 @@
  18155. 2021.96 s [opt-env-conf-test]
  18156. 2021.96 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  18157. 2021.96 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  18158. 2021.96 s [opt-env-conf-test] - [ commandChunk commandDocArgument,
  18159. 2021.96 s [opt-env-conf-test] ": ",
  18160. 2021.96 s [opt-env-conf-test] helpChunk commandDocHelp
  18161. 2021.96 s [opt-env-conf-test] ]
  18162. 2021.96 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
  18163. 2021.96 s [opt-env-conf-test] @@ -142,7 +142,6 @@
  18164. 2021.96 s [opt-env-conf-test]
  18165. 2021.97 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  18166. 2021.97 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  18167. 2021.97 s [opt-env-conf-test] [ commandChunk commandDocArgument,
  18168. 2021.97 s [opt-env-conf-test] ": ",
  18169. 2021.97 s [opt-env-conf-test] - helpChunk commandDocHelp
  18170. 2021.97 s [opt-env-conf-test] ]
  18171. 2021.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
  18172. 2021.97 s [opt-env-conf-test] @@ -86,9 +86,7 @@
  18173. 2021.97 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18174. 2021.97 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18175. 2021.97 s [opt-env-conf-test] ParseErrorNoReaders ->
  18176. 2021.97 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  18177. 2021.97 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  18178. 2021.97 s [opt-env-conf-test] ]
  18179. 2021.97 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18180. 2021.97 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18181. 2021.97 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18182. 2021.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
  18183. 2021.97 s [opt-env-conf-test] @@ -86,9 +86,8 @@
  18184. 2021.97 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18185. 2021.97 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18186. 2021.97 s [opt-env-conf-test] ParseErrorNoReaders ->
  18187. 2021.97 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  18188. 2021.97 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18189. 2021.97 s [opt-env-conf-test] ]
  18190. 2021.97 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18191. 2021.97 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18192. 2021.97 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18193. 2021.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
  18194. 2021.97 s [opt-env-conf-test] @@ -90,7 +90,6 @@
  18195. 2021.97 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18196. 2021.97 s [opt-env-conf-test] ]
  18197. 2021.97 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18198. 2021.97 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  18199. 2021.97 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18200. 2021.97 s [opt-env-conf-test] [ "Missing argument: "
  18201. 2021.97 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18202. 2021.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
  18203. 2021.97 s [opt-env-conf-test] @@ -90,7 +90,6 @@
  18204. 2021.97 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18205. 2021.97 s [opt-env-conf-test] ]
  18206. 2021.97 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18207. 2021.97 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  18208. 2021.97 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18209. 2021.97 s [opt-env-conf-test] [ "Missing argument: "
  18210. 2021.97 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18211. 2021.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
  18212. 2021.97 s [opt-env-conf-test] @@ -124,7 +124,6 @@
  18213. 2021.97 s [opt-env-conf-test] ["Missing command, available commands:"]
  18214. 2021.97 s [opt-env-conf-test] : availableCommandsLines cs
  18215. 2021.97 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18216. 2021.97 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18217. 2021.97 s [opt-env-conf-test] [fore blue "available commands:"]
  18218. 2021.97 s [opt-env-conf-test] ]
  18219. 2021.97 s [opt-env-conf-test] ++ availableCommandsLines cs
  18220. 2021.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
  18221. 2021.97 s [opt-env-conf-test] @@ -124,7 +124,6 @@
  18222. 2021.97 s [opt-env-conf-test] ["Missing command, available commands:"]
  18223. 2021.97 s [opt-env-conf-test] : availableCommandsLines cs
  18224. 2021.97 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18225. 2021.97 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18226. 2021.97 s [opt-env-conf-test] [fore blue "available commands:"]
  18227. 2021.97 s [opt-env-conf-test] ]
  18228. 2021.97 s [opt-env-conf-test] ++ availableCommandsLines cs
  18229. 2021.97 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
  18230. 2021.97 s [opt-env-conf-test] @@ -124,9 +124,7 @@
  18231. 2021.97 s [opt-env-conf-test] ["Missing command, available commands:"]
  18232. 2021.97 s [opt-env-conf-test] : availableCommandsLines cs
  18233. 2021.97 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18234. 2021.97 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18235. 2021.97 s [opt-env-conf-test] - [fore blue "available commands:"]
  18236. 2021.97 s [opt-env-conf-test] ]
  18237. 2021.97 s [opt-env-conf-test] ++ availableCommandsLines cs
  18238. 2021.97 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18239. 2021.98 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."],
  18240. 2021.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
  18241. 2021.98 s [opt-env-conf-test] @@ -124,9 +124,8 @@
  18242. 2021.98 s [opt-env-conf-test] ["Missing command, available commands:"]
  18243. 2021.98 s [opt-env-conf-test] : availableCommandsLines cs
  18244. 2021.98 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18245. 2021.98 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18246. 2021.98 s [opt-env-conf-test] [fore blue "available commands:"]
  18247. 2021.98 s [opt-env-conf-test] ]
  18248. 2021.98 s [opt-env-conf-test] ++ availableCommandsLines cs
  18249. 2021.98 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18250. 2021.98 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."],
  18251. 2021.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
  18252. 2021.98 s [opt-env-conf-test] @@ -129,9 +129,7 @@
  18253. 2021.98 s [opt-env-conf-test] ]
  18254. 2021.98 s [opt-env-conf-test] ++ availableCommandsLines cs
  18255. 2021.98 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18256. 2021.98 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."],
  18257. 2021.98 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  18258. 2021.98 s [opt-env-conf-test] ]
  18259. 2021.98 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18260. 2021.98 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18261. 2021.98 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18262. 2021.98 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
  18263. 2021.98 s [opt-env-conf-test] @@ -129,9 +129,8 @@
  18264. 2021.98 s [opt-env-conf-test] ]
  18265. 2021.98 s [opt-env-conf-test] ++ availableCommandsLines cs
  18266. 2021.98 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18267. 2021.98 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."],
  18268. 2021.98 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18269. 2021.98 s [opt-env-conf-test] ]
  18270. 2021.98 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18271. 2021.98 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18272. 2021.98 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18273. 2022.57 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
  18274. 2022.57 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  18275. 2022.57 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18276. 2022.57 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18277. 2022.57 s [opt-env-conf-test] ArgDashed isLong cs ->
  18278. 2022.57 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18279. 2022.57 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds False cs of
  18280. 2022.57 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18281. 2022.57 s [opt-env-conf-test] Nothing ->
  18282. 2022.57 s [opt-env-conf-test] case rest of
  18283. 2022.57 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
  18284. 2022.57 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  18285. 2022.57 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  18286. 2022.57 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  18287. 2022.57 s [opt-env-conf-test] ArgDashed isLong cs ->
  18288. 2022.57 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  18289. 2022.57 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds True cs of
  18290. 2022.57 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  18291. 2022.57 s [opt-env-conf-test] Nothing ->
  18292. 2022.57 s [opt-env-conf-test] case rest of
  18293. 2022.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18294. 2022.57 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  18295. 2022.57 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18296. 2022.57 s [opt-env-conf-test] renderError ParseError {..} =
  18297. 2022.57 s [opt-env-conf-test] concat
  18298. 2022.57 s [opt-env-conf-test] [ case parseErrorMessage of
  18299. 2022.57 s [opt-env-conf-test] ParseErrorEmpty ->
  18300. 2022.57 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18301. 2022.57 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  18302. 2022.57 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  18303. 2022.57 s [opt-env-conf-test] ParseErrorNoReaders ->
  18304. 2022.57 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18305. 2022.57 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18306. 2022.57 s [opt-env-conf-test] ]
  18307. 2022.57 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18308. 2022.57 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18309. 2022.57 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18310. 2022.58 s [opt-env-conf-test] [ "Missing argument: "
  18311. 2022.58 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18312. 2022.58 s [opt-env-conf-test] ]
  18313. 2022.58 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18314. 2022.58 s [opt-env-conf-test] ["Failed to read argument: "]
  18315. 2022.58 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18316. 2022.58 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18317. 2022.58 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18318. 2022.58 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18319. 2022.58 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18320. 2022.58 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18321. 2022.58 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18322. 2022.58 s [opt-env-conf-test] ["Failed to read option: "]
  18323. 2022.58 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18324. 2022.58 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18325. 2022.58 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18326. 2022.58 s [opt-env-conf-test] ["Missing env var: "]
  18327. 2022.58 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18328. 2022.58 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18329. 2022.58 s [opt-env-conf-test] ["Failed to read env var: "]
  18330. 2022.58 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18331. 2022.58 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18332. 2022.58 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18333. 2022.58 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18334. 2022.58 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18335. 2022.58 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18336. 2022.58 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18337. 2022.58 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18338. 2022.58 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18339. 2022.58 s [opt-env-conf-test] ["Missing command, available commands:"]
  18340. 2022.58 s [opt-env-conf-test] : availableCommandsLines cs
  18341. 2022.58 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18342. 2022.58 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18343. 2022.58 s [opt-env-conf-test] [fore blue "available commands:"]
  18344. 2022.58 s [opt-env-conf-test] ]
  18345. 2022.58 s [opt-env-conf-test] ++ availableCommandsLines cs
  18346. 2022.58 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18347. 2022.58 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."],
  18348. 2022.58 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18349. 2022.58 s [opt-env-conf-test] ]
  18350. 2022.58 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18351. 2022.58 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18352. 2022.58 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18353. 2022.58 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18354. 2022.58 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18355. 2022.58 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18356. 2022.58 s [opt-env-conf-test] ]
  18357. 2022.58 s [opt-env-conf-test]
  18358. 2022.58 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18359. 2022.58 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  18360. 2022.58 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18361. 2022.58 s [opt-env-conf-test] renderError ParseError {..} =
  18362. 2022.58 s [opt-env-conf-test] concat
  18363. 2022.58 s [opt-env-conf-test] [ case parseErrorMessage of
  18364. 2022.58 s [opt-env-conf-test] ParseErrorEmpty ->
  18365. 2022.58 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18366. 2022.58 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18367. 2022.58 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18368. 2022.58 s [opt-env-conf-test] - ParseErrorNoReaders ->
  18369. 2022.58 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  18370. 2022.58 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  18371. 2022.58 s [opt-env-conf-test] - ]
  18372. 2022.58 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18373. 2022.58 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18374. 2022.58 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18375. 2022.58 s [opt-env-conf-test] [ "Missing argument: "
  18376. 2022.58 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18377. 2022.58 s [opt-env-conf-test] ]
  18378. 2022.58 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18379. 2022.58 s [opt-env-conf-test] ["Failed to read argument: "]
  18380. 2022.58 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18381. 2022.58 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18382. 2022.58 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18383. 2022.58 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18384. 2022.59 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18385. 2022.59 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18386. 2022.59 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18387. 2022.59 s [opt-env-conf-test] ["Failed to read option: "]
  18388. 2022.59 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18389. 2022.59 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18390. 2022.59 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18391. 2022.59 s [opt-env-conf-test] ["Missing env var: "]
  18392. 2022.59 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18393. 2022.59 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18394. 2022.59 s [opt-env-conf-test] ["Failed to read env var: "]
  18395. 2022.59 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18396. 2022.59 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18397. 2022.59 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18398. 2022.59 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18399. 2022.59 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18400. 2023.38 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18401. 2023.38 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18402. 2023.38 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18403. 2023.38 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18404. 2023.38 s [opt-env-conf-test] ["Missing command, available commands:"]
  18405. 2023.38 s [opt-env-conf-test] : availableCommandsLines cs
  18406. 2023.38 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18407. 2023.38 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18408. 2023.38 s [opt-env-conf-test] [fore blue "available commands:"]
  18409. 2023.38 s [opt-env-conf-test] ]
  18410. 2023.38 s [opt-env-conf-test] ++ availableCommandsLines cs
  18411. 2023.38 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18412. 2023.38 s [opt-env-conf-test] [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
  18413. 2023.38 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18414. 2023.38 s [opt-env-conf-test] ]
  18415. 2023.38 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18416. 2023.38 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18417. 2023.38 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18418. 2023.38 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18419. 2023.38 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18420. 2023.38 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18421. 2023.38 s [opt-env-conf-test] ]
  18422. 2023.38 s [opt-env-conf-test]
  18423. 2023.38 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18424. 2023.38 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  18425. 2023.38 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18426. 2023.38 s [opt-env-conf-test] renderError ParseError {..} =
  18427. 2023.38 s [opt-env-conf-test] concat
  18428. 2023.38 s [opt-env-conf-test] [ case parseErrorMessage of
  18429. 2023.38 s [opt-env-conf-test] ParseErrorEmpty ->
  18430. 2023.38 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18431. 2023.38 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18432. 2023.39 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18433. 2023.39 s [opt-env-conf-test] ParseErrorNoReaders ->
  18434. 2023.39 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18435. 2023.39 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18436. 2023.39 s [opt-env-conf-test] ]
  18437. 2023.39 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  18438. 2023.39 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  18439. 2023.39 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18440. 2023.39 s [opt-env-conf-test] [ "Missing argument: "
  18441. 2023.39 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18442. 2023.39 s [opt-env-conf-test] ]
  18443. 2023.39 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18444. 2023.39 s [opt-env-conf-test] ["Failed to read argument: "]
  18445. 2023.39 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18446. 2023.39 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18447. 2023.39 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18448. 2023.39 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18449. 2023.39 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18450. 2023.39 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18451. 2023.39 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18452. 2023.39 s [opt-env-conf-test] ["Failed to read option: "]
  18453. 2023.39 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18454. 2023.39 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18455. 2023.39 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18456. 2023.39 s [opt-env-conf-test] ["Missing env var: "]
  18457. 2023.39 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18458. 2023.39 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18459. 2023.39 s [opt-env-conf-test] ["Failed to read env var: "]
  18460. 2023.39 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18461. 2023.39 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18462. 2023.39 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18463. 2023.39 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18464. 2023.39 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18465. 2023.45 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18466. 2023.45 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18467. 2023.45 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18468. 2023.45 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18469. 2023.45 s [opt-env-conf-test] ["Missing command, available commands:"]
  18470. 2023.45 s [opt-env-conf-test] : availableCommandsLines cs
  18471. 2023.45 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18472. 2023.45 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18473. 2023.45 s [opt-env-conf-test] [fore blue "available commands:"]
  18474. 2023.45 s [opt-env-conf-test] ]
  18475. 2023.45 s [opt-env-conf-test] ++ availableCommandsLines cs
  18476. 2023.45 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18477. 2023.45 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."],
  18478. 2023.45 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18479. 2023.45 s [opt-env-conf-test] ]
  18480. 2023.46 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18481. 2023.46 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18482. 2023.46 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18483. 2023.46 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18484. 2023.46 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18485. 2023.46 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18486. 2023.46 s [opt-env-conf-test] ]
  18487. 2023.46 s [opt-env-conf-test]
  18488. 2023.46 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18489. 2023.46 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  18490. 2023.46 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18491. 2023.46 s [opt-env-conf-test] renderError ParseError {..} =
  18492. 2023.46 s [opt-env-conf-test] concat
  18493. 2023.46 s [opt-env-conf-test] [ case parseErrorMessage of
  18494. 2023.46 s [opt-env-conf-test] ParseErrorEmpty ->
  18495. 2023.46 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18496. 2023.46 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18497. 2023.46 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18498. 2023.46 s [opt-env-conf-test] ParseErrorNoReaders ->
  18499. 2023.46 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18500. 2023.46 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18501. 2023.46 s [opt-env-conf-test] ]
  18502. 2023.46 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18503. 2023.46 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18504. 2023.46 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  18505. 2023.46 s [opt-env-conf-test] - [ "Missing argument: "
  18506. 2023.46 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  18507. 2023.46 s [opt-env-conf-test] - ]
  18508. 2023.46 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18509. 2023.46 s [opt-env-conf-test] ["Failed to read argument: "]
  18510. 2023.46 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18511. 2023.46 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18512. 2023.46 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18513. 2023.46 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18514. 2023.46 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18515. 2023.46 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18516. 2023.46 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18517. 2023.46 s [opt-env-conf-test] ["Failed to read option: "]
  18518. 2023.46 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18519. 2023.46 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18520. 2023.46 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18521. 2023.46 s [opt-env-conf-test] ["Missing env var: "]
  18522. 2023.46 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18523. 2023.46 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18524. 2023.46 s [opt-env-conf-test] ["Failed to read env var: "]
  18525. 2023.46 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18526. 2023.46 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18527. 2023.46 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18528. 2023.46 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18529. 2023.46 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18530. 2025.56 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18531. 2025.56 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18532. 2025.56 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18533. 2025.56 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18534. 2025.56 s [opt-env-conf-test] ["Missing command, available commands:"]
  18535. 2025.56 s [opt-env-conf-test] : availableCommandsLines cs
  18536. 2025.56 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18537. 2025.56 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18538. 2025.57 s [opt-env-conf-test] [fore blue "available commands:"]
  18539. 2025.57 s [opt-env-conf-test] ]
  18540. 2025.57 s [opt-env-conf-test] ++ availableCommandsLines cs
  18541. 2025.57 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18542. 2025.57 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."],
  18543. 2025.57 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18544. 2025.57 s [opt-env-conf-test] ]
  18545. 2025.57 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18546. 2025.57 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18547. 2025.57 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18548. 2025.57 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18549. 2025.57 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18550. 2025.57 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18551. 2025.57 s [opt-env-conf-test] ]
  18552. 2025.57 s [opt-env-conf-test]
  18553. 2025.57 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:245:54-60
  18554. 2025.57 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  18555. 2025.57 s [opt-env-conf-test] Nothing ->
  18556. 2025.57 s [opt-env-conf-test] case rest of
  18557. 2025.57 s [opt-env-conf-test] (Live v : rest') ->
  18558. 2025.57 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  18559. 2025.57 s [opt-env-conf-test] + case consumeDashedOption dasheds not (isLong) cs of
  18560. 2025.57 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  18561. 2025.57 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  18562. 2025.57 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  18563. 2025.57 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18564. 2025.57 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  18565. 2025.57 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18566. 2025.57 s [opt-env-conf-test] renderError ParseError {..} =
  18567. 2025.57 s [opt-env-conf-test] concat
  18568. 2025.57 s [opt-env-conf-test] [ case parseErrorMessage of
  18569. 2025.57 s [opt-env-conf-test] ParseErrorEmpty ->
  18570. 2025.57 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18571. 2025.57 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18572. 2025.57 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18573. 2025.57 s [opt-env-conf-test] ParseErrorNoReaders ->
  18574. 2025.57 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18575. 2025.57 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18576. 2025.57 s [opt-env-conf-test] ]
  18577. 2025.57 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18578. 2025.57 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18579. 2025.57 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18580. 2025.57 s [opt-env-conf-test] [ "Missing argument: "
  18581. 2025.57 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18582. 2025.58 s [opt-env-conf-test] ]
  18583. 2025.58 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18584. 2025.58 s [opt-env-conf-test] ["Failed to read argument: "]
  18585. 2025.58 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18586. 2025.58 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18587. 2025.58 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  18588. 2025.58 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18589. 2025.58 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18590. 2025.58 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18591. 2025.58 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18592. 2025.58 s [opt-env-conf-test] ["Failed to read option: "]
  18593. 2025.58 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18594. 2025.58 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18595. 2025.58 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18596. 2025.58 s [opt-env-conf-test] ["Missing env var: "]
  18597. 2025.58 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18598. 2025.58 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18599. 2025.58 s [opt-env-conf-test] ["Failed to read env var: "]
  18600. 2025.58 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18601. 2025.58 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18602. 2025.58 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18603. 2025.58 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18604. 2025.58 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18605. 2025.73 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18606. 2025.73 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18607. 2025.73 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18608. 2025.73 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18609. 2025.73 s [opt-env-conf-test] ["Missing command, available commands:"]
  18610. 2025.74 s [opt-env-conf-test] : availableCommandsLines cs
  18611. 2025.74 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18612. 2025.74 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18613. 2025.74 s [opt-env-conf-test] [fore blue "available commands:"]
  18614. 2025.74 s [opt-env-conf-test] ]
  18615. 2025.74 s [opt-env-conf-test] ++ availableCommandsLines cs
  18616. 2025.74 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18617. 2025.74 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."],
  18618. 2025.74 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18619. 2025.74 s [opt-env-conf-test] ]
  18620. 2025.74 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18621. 2025.74 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18622. 2025.74 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18623. 2025.74 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18624. 2025.74 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18625. 2025.74 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18626. 2025.74 s [opt-env-conf-test] ]
  18627. 2025.74 s [opt-env-conf-test]
  18628. 2025.74 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18629. 2025.74 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  18630. 2025.74 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18631. 2025.74 s [opt-env-conf-test] renderError ParseError {..} =
  18632. 2025.74 s [opt-env-conf-test] concat
  18633. 2025.74 s [opt-env-conf-test] [ case parseErrorMessage of
  18634. 2025.74 s [opt-env-conf-test] ParseErrorEmpty ->
  18635. 2025.74 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18636. 2025.74 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18637. 2025.74 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18638. 2025.74 s [opt-env-conf-test] ParseErrorNoReaders ->
  18639. 2025.74 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18640. 2025.74 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18641. 2025.74 s [opt-env-conf-test] ]
  18642. 2025.74 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18643. 2025.74 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18644. 2025.74 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18645. 2025.74 s [opt-env-conf-test] [ "Missing argument: "
  18646. 2025.75 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18647. 2025.75 s [opt-env-conf-test] ]
  18648. 2025.75 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  18649. 2025.75 s [opt-env-conf-test] - ["Failed to read argument: "]
  18650. 2025.75 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  18651. 2025.75 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18652. 2025.75 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18653. 2025.75 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18654. 2025.75 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18655. 2025.75 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18656. 2025.75 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18657. 2025.75 s [opt-env-conf-test] ["Failed to read option: "]
  18658. 2025.75 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18659. 2025.75 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18660. 2025.75 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18661. 2025.75 s [opt-env-conf-test] ["Missing env var: "]
  18662. 2025.75 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18663. 2025.75 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18664. 2025.75 s [opt-env-conf-test] ["Failed to read env var: "]
  18665. 2025.75 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18666. 2025.75 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18667. 2025.75 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18668. 2025.75 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18669. 2025.75 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18670. 2028.06 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18671. 2028.06 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18672. 2028.15 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18673. 2028.15 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18674. 2028.15 s [opt-env-conf-test] ["Missing command, available commands:"]
  18675. 2028.15 s [opt-env-conf-test] : availableCommandsLines cs
  18676. 2028.15 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18677. 2028.16 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18678. 2028.16 s [opt-env-conf-test] [fore blue "available commands:"]
  18679. 2028.16 s [opt-env-conf-test] ]
  18680. 2028.16 s [opt-env-conf-test] ++ availableCommandsLines cs
  18681. 2028.16 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18682. 2028.16 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."],
  18683. 2028.16 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18684. 2028.16 s [opt-env-conf-test] ]
  18685. 2028.16 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18686. 2028.16 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18687. 2028.16 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18688. 2028.16 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18689. 2028.16 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18690. 2028.16 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18691. 2028.16 s [opt-env-conf-test] ]
  18692. 2028.16 s [opt-env-conf-test]
  18693. 2028.16 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18694. 2028.16 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  18695. 2028.16 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18696. 2028.16 s [opt-env-conf-test] renderError ParseError {..} =
  18697. 2028.16 s [opt-env-conf-test] concat
  18698. 2028.16 s [opt-env-conf-test] [ case parseErrorMessage of
  18699. 2028.16 s [opt-env-conf-test] ParseErrorEmpty ->
  18700. 2028.16 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18701. 2028.16 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18702. 2028.16 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18703. 2028.16 s [opt-env-conf-test] ParseErrorNoReaders ->
  18704. 2028.16 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18705. 2028.16 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18706. 2028.16 s [opt-env-conf-test] ]
  18707. 2028.16 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18708. 2028.16 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18709. 2028.16 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18710. 2028.16 s [opt-env-conf-test] [ "Missing argument: "
  18711. 2028.16 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18712. 2028.16 s [opt-env-conf-test] ]
  18713. 2028.17 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18714. 2028.17 s [opt-env-conf-test] ["Failed to read argument: "]
  18715. 2028.17 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18716. 2028.17 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18717. 2028.17 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18718. 2028.17 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18719. 2028.17 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  18720. 2028.17 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18721. 2028.17 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18722. 2028.17 s [opt-env-conf-test] ["Failed to read option: "]
  18723. 2028.17 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18724. 2028.17 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18725. 2028.17 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18726. 2028.17 s [opt-env-conf-test] ["Missing env var: "]
  18727. 2028.17 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18728. 2028.17 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18729. 2028.17 s [opt-env-conf-test] ["Failed to read env var: "]
  18730. 2028.17 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18731. 2028.17 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18732. 2028.17 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18733. 2028.17 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18734. 2028.17 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18735. 2028.96 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18736. 2028.96 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18737. 2028.96 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18738. 2028.96 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18739. 2028.96 s [opt-env-conf-test] ["Missing command, available commands:"]
  18740. 2028.96 s [opt-env-conf-test] : availableCommandsLines cs
  18741. 2028.96 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18742. 2028.96 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18743. 2028.96 s [opt-env-conf-test] [fore blue "available commands:"]
  18744. 2028.96 s [opt-env-conf-test] ]
  18745. 2028.96 s [opt-env-conf-test] ++ availableCommandsLines cs
  18746. 2028.96 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18747. 2028.96 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."],
  18748. 2028.96 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18749. 2028.96 s [opt-env-conf-test] ]
  18750. 2028.96 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18751. 2028.97 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18752. 2028.97 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18753. 2028.97 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18754. 2028.97 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18755. 2028.97 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18756. 2028.97 s [opt-env-conf-test] ]
  18757. 2028.97 s [opt-env-conf-test]
  18758. 2028.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18759. 2028.97 s [opt-env-conf-test] @@ -80,63 +80,60 @@
  18760. 2028.97 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18761. 2028.97 s [opt-env-conf-test] renderError ParseError {..} =
  18762. 2028.97 s [opt-env-conf-test] concat
  18763. 2028.97 s [opt-env-conf-test] [ case parseErrorMessage of
  18764. 2028.97 s [opt-env-conf-test] ParseErrorEmpty ->
  18765. 2028.97 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18766. 2028.97 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18767. 2028.97 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18768. 2028.97 s [opt-env-conf-test] ParseErrorNoReaders ->
  18769. 2028.97 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18770. 2028.97 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18771. 2028.97 s [opt-env-conf-test] ]
  18772. 2028.97 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18773. 2028.97 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18774. 2028.97 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18775. 2028.97 s [opt-env-conf-test] [ "Missing argument: "
  18776. 2028.97 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18777. 2028.97 s [opt-env-conf-test] ]
  18778. 2028.97 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18779. 2028.97 s [opt-env-conf-test] ["Failed to read argument: "]
  18780. 2028.98 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18781. 2028.98 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18782. 2028.98 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18783. 2028.98 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18784. 2028.98 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18785. 2028.98 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18786. 2028.98 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18787. 2028.98 s [opt-env-conf-test] ["Failed to read option: "]
  18788. 2028.98 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18789. 2028.98 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18790. 2028.98 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  18791. 2028.98 s [opt-env-conf-test] - ["Missing env var: "]
  18792. 2028.98 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  18793. 2028.98 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18794. 2028.98 s [opt-env-conf-test] ["Failed to read env var: "]
  18795. 2028.98 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18796. 2028.98 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18797. 2028.98 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18798. 2028.98 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18799. 2028.98 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18800. 2029.29 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18801. 2029.29 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18802. 2029.29 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18803. 2029.29 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18804. 2029.29 s [opt-env-conf-test] ["Missing command, available commands:"]
  18805. 2029.29 s [opt-env-conf-test] : availableCommandsLines cs
  18806. 2029.29 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18807. 2029.29 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18808. 2029.29 s [opt-env-conf-test] [fore blue "available commands:"]
  18809. 2029.29 s [opt-env-conf-test] ]
  18810. 2029.29 s [opt-env-conf-test] ++ availableCommandsLines cs
  18811. 2029.29 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18812. 2029.29 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."],
  18813. 2029.29 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18814. 2029.29 s [opt-env-conf-test] ]
  18815. 2029.29 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18816. 2029.29 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18817. 2029.29 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18818. 2029.29 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18819. 2029.29 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18820. 2029.29 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18821. 2029.29 s [opt-env-conf-test] ]
  18822. 2029.29 s [opt-env-conf-test]
  18823. 2029.29 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18824. 2029.29 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  18825. 2029.29 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18826. 2029.29 s [opt-env-conf-test] renderError ParseError {..} =
  18827. 2029.29 s [opt-env-conf-test] concat
  18828. 2029.29 s [opt-env-conf-test] [ case parseErrorMessage of
  18829. 2029.29 s [opt-env-conf-test] ParseErrorEmpty ->
  18830. 2029.29 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18831. 2029.29 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18832. 2029.29 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18833. 2029.30 s [opt-env-conf-test] ParseErrorNoReaders ->
  18834. 2029.30 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18835. 2029.30 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18836. 2029.30 s [opt-env-conf-test] ]
  18837. 2029.30 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18838. 2029.30 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18839. 2029.30 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18840. 2029.30 s [opt-env-conf-test] [ "Missing argument: "
  18841. 2029.30 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18842. 2029.30 s [opt-env-conf-test] ]
  18843. 2029.30 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18844. 2029.30 s [opt-env-conf-test] ["Failed to read argument: "]
  18845. 2029.30 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18846. 2029.30 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18847. 2029.30 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18848. 2029.30 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18849. 2029.30 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18850. 2029.30 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18851. 2029.30 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  18852. 2029.30 s [opt-env-conf-test] - ["Failed to read option: "]
  18853. 2029.30 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  18854. 2029.30 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18855. 2029.30 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18856. 2029.30 s [opt-env-conf-test] ["Missing env var: "]
  18857. 2029.30 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18858. 2029.30 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18859. 2029.30 s [opt-env-conf-test] ["Failed to read env var: "]
  18860. 2029.30 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18861. 2029.30 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18862. 2029.30 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18863. 2029.30 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18864. 2029.30 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18865. 2029.35 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18866. 2029.35 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18867. 2029.35 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18868. 2029.35 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18869. 2029.35 s [opt-env-conf-test] ["Missing command, available commands:"]
  18870. 2029.35 s [opt-env-conf-test] : availableCommandsLines cs
  18871. 2029.35 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18872. 2029.35 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18873. 2029.35 s [opt-env-conf-test] [fore blue "available commands:"]
  18874. 2029.35 s [opt-env-conf-test] ]
  18875. 2029.35 s [opt-env-conf-test] ++ availableCommandsLines cs
  18876. 2029.35 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18877. 2029.35 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."],
  18878. 2029.35 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18879. 2029.35 s [opt-env-conf-test] ]
  18880. 2029.35 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18881. 2029.35 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18882. 2029.35 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18883. 2029.35 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18884. 2029.35 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18885. 2029.35 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18886. 2029.35 s [opt-env-conf-test] ]
  18887. 2029.35 s [opt-env-conf-test]
  18888. 2029.35 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18889. 2029.35 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  18890. 2029.35 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18891. 2029.35 s [opt-env-conf-test] renderError ParseError {..} =
  18892. 2029.35 s [opt-env-conf-test] concat
  18893. 2029.35 s [opt-env-conf-test] [ case parseErrorMessage of
  18894. 2029.35 s [opt-env-conf-test] ParseErrorEmpty ->
  18895. 2029.35 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18896. 2029.35 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18897. 2029.36 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18898. 2029.36 s [opt-env-conf-test] ParseErrorNoReaders ->
  18899. 2029.36 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18900. 2029.36 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18901. 2029.36 s [opt-env-conf-test] ]
  18902. 2029.36 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18903. 2029.36 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18904. 2029.36 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18905. 2029.36 s [opt-env-conf-test] [ "Missing argument: "
  18906. 2029.36 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18907. 2029.36 s [opt-env-conf-test] ]
  18908. 2029.36 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18909. 2029.36 s [opt-env-conf-test] ["Failed to read argument: "]
  18910. 2029.36 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18911. 2029.36 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18912. 2029.36 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18913. 2029.36 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18914. 2029.36 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18915. 2029.36 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18916. 2029.36 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18917. 2029.36 s [opt-env-conf-test] ["Failed to read option: "]
  18918. 2029.36 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18919. 2029.36 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18920. 2029.36 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18921. 2029.36 s [opt-env-conf-test] ["Missing env var: "]
  18922. 2029.36 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  18923. 2029.36 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  18924. 2029.36 s [opt-env-conf-test] - ["Failed to read env var: "]
  18925. 2029.36 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18926. 2029.36 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18927. 2029.36 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18928. 2029.36 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18929. 2029.36 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18930. 2029.39 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18931. 2029.39 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18932. 2029.39 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18933. 2029.39 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18934. 2029.39 s [opt-env-conf-test] ["Missing command, available commands:"]
  18935. 2029.39 s [opt-env-conf-test] : availableCommandsLines cs
  18936. 2029.39 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  18937. 2029.39 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  18938. 2029.39 s [opt-env-conf-test] [fore blue "available commands:"]
  18939. 2029.39 s [opt-env-conf-test] ]
  18940. 2029.39 s [opt-env-conf-test] ++ availableCommandsLines cs
  18941. 2029.39 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  18942. 2029.39 s [opt-env-conf-test] [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
  18943. 2029.39 s [opt-env-conf-test] ["The following settings have been parsed:"]
  18944. 2029.39 s [opt-env-conf-test] ]
  18945. 2029.39 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  18946. 2029.39 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  18947. 2029.39 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  18948. 2029.39 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  18949. 2029.39 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  18950. 2029.39 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  18951. 2029.39 s [opt-env-conf-test] ]
  18952. 2029.39 s [opt-env-conf-test]
  18953. 2029.39 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  18954. 2029.39 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  18955. 2029.39 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  18956. 2029.39 s [opt-env-conf-test] renderError ParseError {..} =
  18957. 2029.39 s [opt-env-conf-test] concat
  18958. 2029.39 s [opt-env-conf-test] [ case parseErrorMessage of
  18959. 2029.39 s [opt-env-conf-test] - ParseErrorEmpty ->
  18960. 2029.39 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  18961. 2029.39 s [opt-env-conf-test] ParseErrorEmptySetting ->
  18962. 2029.39 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  18963. 2029.39 s [opt-env-conf-test] ParseErrorNoReaders ->
  18964. 2029.39 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  18965. 2029.39 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  18966. 2029.39 s [opt-env-conf-test] ]
  18967. 2029.39 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  18968. 2029.39 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  18969. 2029.39 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  18970. 2029.39 s [opt-env-conf-test] [ "Missing argument: "
  18971. 2029.39 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  18972. 2029.39 s [opt-env-conf-test] ]
  18973. 2029.39 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  18974. 2029.39 s [opt-env-conf-test] ["Failed to read argument: "]
  18975. 2029.39 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18976. 2029.39 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18977. 2029.39 s [opt-env-conf-test] ParseErrorMissingOption o ->
  18978. 2029.39 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18979. 2029.39 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  18980. 2029.39 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  18981. 2029.39 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  18982. 2029.39 s [opt-env-conf-test] ["Failed to read option: "]
  18983. 2029.39 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  18984. 2029.39 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18985. 2029.39 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  18986. 2029.39 s [opt-env-conf-test] ["Missing env var: "]
  18987. 2029.39 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18988. 2029.39 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  18989. 2029.39 s [opt-env-conf-test] ["Failed to read env var: "]
  18990. 2029.39 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  18991. 2029.39 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  18992. 2029.39 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  18993. 2029.40 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  18994. 2029.40 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  18995. 2029.57 s [opt-env-conf-test] ["Failed to parse configuration: "]
  18996. 2029.57 s [opt-env-conf-test] : maybe [] renderConfDoc md
  18997. 2029.57 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  18998. 2029.57 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  18999. 2029.58 s [opt-env-conf-test] ["Missing command, available commands:"]
  19000. 2029.58 s [opt-env-conf-test] : availableCommandsLines cs
  19001. 2029.58 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  19002. 2029.58 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19003. 2029.58 s [opt-env-conf-test] [fore blue "available commands:"]
  19004. 2029.58 s [opt-env-conf-test] ]
  19005. 2029.58 s [opt-env-conf-test] ++ availableCommandsLines cs
  19006. 2029.58 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  19007. 2029.58 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."],
  19008. 2029.58 s [opt-env-conf-test] ["The following settings have been parsed:"]
  19009. 2029.58 s [opt-env-conf-test] ]
  19010. 2029.58 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  19011. 2029.58 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  19012. 2029.58 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19013. 2029.58 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  19014. 2029.58 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19015. 2029.58 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19016. 2029.58 s [opt-env-conf-test] ]
  19017. 2029.58 s [opt-env-conf-test]
  19018. 2029.58 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  19019. 2029.58 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  19020. 2029.58 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  19021. 2029.58 s [opt-env-conf-test] renderError ParseError {..} =
  19022. 2029.58 s [opt-env-conf-test] concat
  19023. 2029.58 s [opt-env-conf-test] [ case parseErrorMessage of
  19024. 2029.58 s [opt-env-conf-test] ParseErrorEmpty ->
  19025. 2029.58 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  19026. 2029.58 s [opt-env-conf-test] ParseErrorEmptySetting ->
  19027. 2029.58 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  19028. 2029.58 s [opt-env-conf-test] ParseErrorNoReaders ->
  19029. 2029.59 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  19030. 2029.59 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  19031. 2029.59 s [opt-env-conf-test] ]
  19032. 2029.59 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  19033. 2029.59 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  19034. 2029.59 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  19035. 2029.59 s [opt-env-conf-test] [ "Missing argument: "
  19036. 2029.59 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  19037. 2029.59 s [opt-env-conf-test] ]
  19038. 2029.59 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  19039. 2029.59 s [opt-env-conf-test] ["Failed to read argument: "]
  19040. 2029.59 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19041. 2029.59 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19042. 2029.59 s [opt-env-conf-test] ParseErrorMissingOption o ->
  19043. 2029.59 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19044. 2029.59 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  19045. 2029.59 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19046. 2029.59 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  19047. 2029.59 s [opt-env-conf-test] ["Failed to read option: "]
  19048. 2029.59 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19049. 2029.59 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19050. 2029.59 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  19051. 2029.59 s [opt-env-conf-test] ["Missing env var: "]
  19052. 2029.59 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19053. 2029.59 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  19054. 2029.59 s [opt-env-conf-test] ["Failed to read env var: "]
  19055. 2029.59 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19056. 2029.59 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19057. 2029.59 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  19058. 2029.59 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  19059. 2029.59 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  19060. 2031.32 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  19061. 2031.32 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  19062. 2031.32 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  19063. 2031.32 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  19064. 2031.32 s [opt-env-conf-test] ["Missing command, available commands:"]
  19065. 2031.32 s [opt-env-conf-test] : availableCommandsLines cs
  19066. 2031.32 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  19067. 2031.32 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19068. 2031.32 s [opt-env-conf-test] [fore blue "available commands:"]
  19069. 2031.32 s [opt-env-conf-test] ]
  19070. 2031.32 s [opt-env-conf-test] ++ availableCommandsLines cs
  19071. 2031.32 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  19072. 2031.32 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."],
  19073. 2031.32 s [opt-env-conf-test] ["The following settings have been parsed:"]
  19074. 2031.32 s [opt-env-conf-test] ]
  19075. 2031.32 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  19076. 2031.32 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  19077. 2031.32 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19078. 2031.32 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  19079. 2031.32 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19080. 2031.32 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19081. 2031.32 s [opt-env-conf-test] ]
  19082. 2031.32 s [opt-env-conf-test]
  19083. 2031.32 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  19084. 2031.32 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  19085. 2031.32 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  19086. 2031.32 s [opt-env-conf-test] renderError ParseError {..} =
  19087. 2031.32 s [opt-env-conf-test] concat
  19088. 2031.32 s [opt-env-conf-test] [ case parseErrorMessage of
  19089. 2031.32 s [opt-env-conf-test] ParseErrorEmpty ->
  19090. 2031.32 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  19091. 2031.32 s [opt-env-conf-test] ParseErrorEmptySetting ->
  19092. 2031.32 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  19093. 2031.32 s [opt-env-conf-test] ParseErrorNoReaders ->
  19094. 2031.32 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  19095. 2031.32 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  19096. 2031.32 s [opt-env-conf-test] ]
  19097. 2031.32 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  19098. 2031.32 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  19099. 2031.32 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  19100. 2031.32 s [opt-env-conf-test] [ "Missing argument: "
  19101. 2031.32 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  19102. 2031.32 s [opt-env-conf-test] ]
  19103. 2031.32 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  19104. 2031.32 s [opt-env-conf-test] ["Failed to read argument: "]
  19105. 2031.33 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19106. 2031.33 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19107. 2031.33 s [opt-env-conf-test] ParseErrorMissingOption o ->
  19108. 2031.33 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19109. 2031.33 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  19110. 2031.33 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19111. 2031.33 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  19112. 2031.33 s [opt-env-conf-test] ["Failed to read option: "]
  19113. 2031.33 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19114. 2031.33 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19115. 2031.33 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  19116. 2031.33 s [opt-env-conf-test] ["Missing env var: "]
  19117. 2031.33 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19118. 2031.33 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  19119. 2031.33 s [opt-env-conf-test] ["Failed to read env var: "]
  19120. 2031.33 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19121. 2031.33 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19122. 2031.33 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  19123. 2031.33 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  19124. 2031.33 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  19125. 2031.37 s [opt-env-conf-test] ["Failed to parse configuration: "]
  19126. 2031.37 s [opt-env-conf-test] : maybe [] renderConfDoc md
  19127. 2031.37 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  19128. 2031.37 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  19129. 2031.37 s [opt-env-conf-test] ["Missing command, available commands:"]
  19130. 2031.37 s [opt-env-conf-test] : availableCommandsLines cs
  19131. 2031.37 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  19132. 2031.37 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19133. 2031.37 s [opt-env-conf-test] [fore blue "available commands:"]
  19134. 2031.37 s [opt-env-conf-test] ]
  19135. 2031.37 s [opt-env-conf-test] ++ availableCommandsLines cs
  19136. 2031.37 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  19137. 2031.37 s [opt-env-conf-test] [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
  19138. 2031.37 s [opt-env-conf-test] ["The following settings have been parsed:"]
  19139. 2031.37 s [opt-env-conf-test] ]
  19140. 2031.37 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  19141. 2031.37 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  19142. 2031.37 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19143. 2031.37 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  19144. 2031.37 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19145. 2031.37 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19146. 2031.37 s [opt-env-conf-test] ]
  19147. 2031.37 s [opt-env-conf-test]
  19148. 2031.37 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  19149. 2031.37 s [opt-env-conf-test] @@ -80,63 +80,60 @@
  19150. 2031.37 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  19151. 2031.38 s [opt-env-conf-test] renderError ParseError {..} =
  19152. 2031.38 s [opt-env-conf-test] concat
  19153. 2031.38 s [opt-env-conf-test] [ case parseErrorMessage of
  19154. 2031.38 s [opt-env-conf-test] ParseErrorEmpty ->
  19155. 2031.38 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  19156. 2031.38 s [opt-env-conf-test] ParseErrorEmptySetting ->
  19157. 2031.38 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  19158. 2031.38 s [opt-env-conf-test] ParseErrorNoReaders ->
  19159. 2031.38 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  19160. 2031.38 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  19161. 2031.38 s [opt-env-conf-test] ]
  19162. 2031.38 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  19163. 2031.38 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  19164. 2031.38 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  19165. 2031.38 s [opt-env-conf-test] [ "Missing argument: "
  19166. 2031.38 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  19167. 2031.38 s [opt-env-conf-test] ]
  19168. 2031.38 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  19169. 2031.38 s [opt-env-conf-test] ["Failed to read argument: "]
  19170. 2031.38 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19171. 2031.38 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19172. 2031.38 s [opt-env-conf-test] ParseErrorMissingOption o ->
  19173. 2031.38 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19174. 2031.38 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  19175. 2031.38 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19176. 2031.38 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  19177. 2031.38 s [opt-env-conf-test] ["Failed to read option: "]
  19178. 2031.38 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19179. 2031.38 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19180. 2031.38 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  19181. 2031.38 s [opt-env-conf-test] ["Missing env var: "]
  19182. 2031.38 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19183. 2031.38 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  19184. 2031.38 s [opt-env-conf-test] ["Failed to read env var: "]
  19185. 2031.38 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19186. 2031.38 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19187. 2031.38 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  19188. 2031.38 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  19189. 2031.38 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  19190. 2031.38 s [opt-env-conf-test] ["Failed to parse configuration: "]
  19191. 2031.69 s [opt-env-conf-test] : maybe [] renderConfDoc md
  19192. 2031.69 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  19193. 2031.69 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  19194. 2031.69 s [opt-env-conf-test] - ["Missing command, available commands:"]
  19195. 2031.69 s [opt-env-conf-test] - : availableCommandsLines cs
  19196. 2031.69 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  19197. 2031.69 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19198. 2031.69 s [opt-env-conf-test] [fore blue "available commands:"]
  19199. 2031.69 s [opt-env-conf-test] ]
  19200. 2031.69 s [opt-env-conf-test] ++ availableCommandsLines cs
  19201. 2031.69 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  19202. 2031.69 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."],
  19203. 2031.69 s [opt-env-conf-test] ["The following settings have been parsed:"]
  19204. 2031.69 s [opt-env-conf-test] ]
  19205. 2031.69 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  19206. 2031.69 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  19207. 2031.69 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19208. 2031.69 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  19209. 2031.69 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19210. 2031.69 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19211. 2031.69 s [opt-env-conf-test] ]
  19212. 2031.69 s [opt-env-conf-test]
  19213. 2031.69 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  19214. 2031.69 s [opt-env-conf-test] @@ -80,63 +80,58 @@
  19215. 2031.69 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  19216. 2031.69 s [opt-env-conf-test] renderError ParseError {..} =
  19217. 2031.69 s [opt-env-conf-test] concat
  19218. 2031.69 s [opt-env-conf-test] [ case parseErrorMessage of
  19219. 2031.69 s [opt-env-conf-test] ParseErrorEmpty ->
  19220. 2031.69 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  19221. 2031.69 s [opt-env-conf-test] ParseErrorEmptySetting ->
  19222. 2031.70 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  19223. 2031.70 s [opt-env-conf-test] ParseErrorNoReaders ->
  19224. 2031.70 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  19225. 2031.70 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  19226. 2031.70 s [opt-env-conf-test] ]
  19227. 2031.70 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  19228. 2031.70 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  19229. 2031.70 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  19230. 2031.70 s [opt-env-conf-test] [ "Missing argument: "
  19231. 2031.70 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  19232. 2031.70 s [opt-env-conf-test] ]
  19233. 2031.70 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  19234. 2031.70 s [opt-env-conf-test] ["Failed to read argument: "]
  19235. 2031.70 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19236. 2031.70 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19237. 2031.70 s [opt-env-conf-test] ParseErrorMissingOption o ->
  19238. 2031.70 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19239. 2031.70 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  19240. 2031.70 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19241. 2031.70 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  19242. 2031.70 s [opt-env-conf-test] ["Failed to read option: "]
  19243. 2031.70 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19244. 2031.70 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19245. 2031.70 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  19246. 2031.70 s [opt-env-conf-test] ["Missing env var: "]
  19247. 2031.70 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19248. 2031.70 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  19249. 2031.70 s [opt-env-conf-test] ["Failed to read env var: "]
  19250. 2031.70 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19251. 2031.70 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19252. 2031.70 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  19253. 2031.70 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  19254. 2031.70 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  19255. 2031.70 s [opt-env-conf-test] ["Failed to parse configuration: "]
  19256. 2032.76 s [opt-env-conf-test] : maybe [] renderConfDoc md
  19257. 2032.76 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  19258. 2032.76 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  19259. 2032.76 s [opt-env-conf-test] ["Missing command, available commands:"]
  19260. 2032.76 s [opt-env-conf-test] : availableCommandsLines cs
  19261. 2032.76 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  19262. 2032.76 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19263. 2032.76 s [opt-env-conf-test] - [fore blue "available commands:"]
  19264. 2032.76 s [opt-env-conf-test] - ]
  19265. 2032.76 s [opt-env-conf-test] - ++ availableCommandsLines cs
  19266. 2032.76 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  19267. 2032.76 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."],
  19268. 2032.76 s [opt-env-conf-test] ["The following settings have been parsed:"]
  19269. 2032.76 s [opt-env-conf-test] ]
  19270. 2032.76 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  19271. 2032.76 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  19272. 2032.76 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19273. 2032.76 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  19274. 2032.76 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19275. 2032.76 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19276. 2032.76 s [opt-env-conf-test] ]
  19277. 2032.76 s [opt-env-conf-test]
  19278. 2032.76 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:222:31-71
  19279. 2032.76 s [opt-env-conf-test] @@ -219,7 +219,7 @@
  19280. 2032.76 s [opt-env-conf-test] consumeOption :: [Dashed] -> Args -> Maybe (String, Args)
  19281. 2032.77 s [opt-env-conf-test] consumeOption dasheds as = do
  19282. 2032.77 s [opt-env-conf-test] case go (argsBefore as) of
  19283. 2032.77 s [opt-env-conf-test] - Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  19284. 2032.77 s [opt-env-conf-test] + Just (val, newBefores) -> Nothing
  19285. 2032.77 s [opt-env-conf-test] Nothing ->
  19286. 2032.77 s [opt-env-conf-test] -- TODO option value on the border
  19287. 2032.77 s [opt-env-conf-test] case go (argsAfter as) of
  19288. 2032.77 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
  19289. 2032.77 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  19290. 2032.77 s [opt-env-conf-test] Nothing ->
  19291. 2032.77 s [opt-env-conf-test] case rest of
  19292. 2032.77 s [opt-env-conf-test] (Live v : rest') ->
  19293. 2032.77 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  19294. 2032.77 s [opt-env-conf-test] + case consumeDashedOption dasheds True cs of
  19295. 2032.77 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  19296. 2032.77 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  19297. 2032.77 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  19298. 2032.77 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  19299. 2032.77 s [opt-env-conf-test] @@ -80,63 +80,58 @@
  19300. 2032.77 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  19301. 2032.77 s [opt-env-conf-test] renderError ParseError {..} =
  19302. 2032.77 s [opt-env-conf-test] concat
  19303. 2032.77 s [opt-env-conf-test] [ case parseErrorMessage of
  19304. 2032.77 s [opt-env-conf-test] ParseErrorEmpty ->
  19305. 2032.77 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  19306. 2032.77 s [opt-env-conf-test] ParseErrorEmptySetting ->
  19307. 2032.77 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  19308. 2032.77 s [opt-env-conf-test] ParseErrorNoReaders ->
  19309. 2032.77 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  19310. 2032.77 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  19311. 2032.77 s [opt-env-conf-test] ]
  19312. 2032.77 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  19313. 2032.77 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  19314. 2032.77 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  19315. 2032.77 s [opt-env-conf-test] [ "Missing argument: "
  19316. 2032.77 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  19317. 2032.77 s [opt-env-conf-test] ]
  19318. 2032.77 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  19319. 2032.77 s [opt-env-conf-test] ["Failed to read argument: "]
  19320. 2032.77 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19321. 2032.77 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19322. 2032.77 s [opt-env-conf-test] ParseErrorMissingOption o ->
  19323. 2032.77 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19324. 2032.77 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  19325. 2032.77 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19326. 2032.77 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  19327. 2032.77 s [opt-env-conf-test] ["Failed to read option: "]
  19328. 2032.77 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19329. 2032.77 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19330. 2032.77 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  19331. 2032.77 s [opt-env-conf-test] ["Missing env var: "]
  19332. 2032.77 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19333. 2032.77 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  19334. 2032.77 s [opt-env-conf-test] ["Failed to read env var: "]
  19335. 2032.77 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19336. 2032.77 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19337. 2032.77 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  19338. 2032.77 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  19339. 2032.77 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  19340. 2032.77 s [opt-env-conf-test] ["Failed to parse configuration: "]
  19341. 2033.39 s [opt-env-conf-test] : maybe [] renderConfDoc md
  19342. 2033.48 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  19343. 2033.48 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  19344. 2033.48 s [opt-env-conf-test] ["Missing command, available commands:"]
  19345. 2033.48 s [opt-env-conf-test] : availableCommandsLines cs
  19346. 2033.48 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  19347. 2033.48 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19348. 2033.48 s [opt-env-conf-test] [fore blue "available commands:"]
  19349. 2033.48 s [opt-env-conf-test] ]
  19350. 2033.48 s [opt-env-conf-test] ++ availableCommandsLines cs
  19351. 2033.48 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  19352. 2033.48 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."],
  19353. 2033.48 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  19354. 2033.48 s [opt-env-conf-test] - ]
  19355. 2033.48 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  19356. 2033.48 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  19357. 2033.48 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19358. 2033.48 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  19359. 2033.48 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19360. 2033.48 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19361. 2033.48 s [opt-env-conf-test] ]
  19362. 2033.48 s [opt-env-conf-test]
  19363. 2033.48 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:54:26-31
  19364. 2033.48 s [opt-env-conf-test] @@ -51,7 +51,7 @@
  19365. 2033.48 s [opt-env-conf-test] errorMessageIsForgivable = \case
  19366. 2033.48 s [opt-env-conf-test] ParseErrorEmpty -> True
  19367. 2033.48 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  19368. 2033.48 s [opt-env-conf-test] - ParseErrorNoReaders -> False
  19369. 2033.49 s [opt-env-conf-test] + ParseErrorNoReaders -> True
  19370. 2033.49 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  19371. 2033.49 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  19372. 2033.49 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  19373. 2033.49 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
  19374. 2033.49 s [opt-env-conf-test] @@ -52,7 +52,7 @@
  19375. 2033.49 s [opt-env-conf-test] ParseErrorEmpty -> True
  19376. 2033.49 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  19377. 2033.49 s [opt-env-conf-test] ParseErrorNoReaders -> False
  19378. 2033.49 s [opt-env-conf-test] - ParseErrorCheckFailed forgivable _ -> forgivable
  19379. 2033.49 s [opt-env-conf-test] + ParseErrorCheckFailed forgivable _ -> True
  19380. 2033.49 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  19381. 2033.49 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  19382. 2033.49 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  19383. 2033.49 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
  19384. 2033.49 s [opt-env-conf-test] @@ -52,7 +52,7 @@
  19385. 2033.49 s [opt-env-conf-test] ParseErrorEmpty -> True
  19386. 2033.49 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  19387. 2033.49 s [opt-env-conf-test] ParseErrorNoReaders -> False
  19388. 2033.49 s [opt-env-conf-test] - ParseErrorCheckFailed forgivable _ -> forgivable
  19389. 2033.49 s [opt-env-conf-test] + ParseErrorCheckFailed forgivable _ -> False
  19390. 2033.49 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  19391. 2033.49 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  19392. 2033.49 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  19393. 2033.49 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Error.hs:55:41-51
  19394. 2033.49 s [opt-env-conf-test] @@ -52,7 +52,7 @@
  19395. 2033.49 s [opt-env-conf-test] ParseErrorEmpty -> True
  19396. 2033.49 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  19397. 2033.49 s [opt-env-conf-test] ParseErrorNoReaders -> False
  19398. 2033.49 s [opt-env-conf-test] - ParseErrorCheckFailed forgivable _ -> forgivable
  19399. 2033.49 s [opt-env-conf-test] + ParseErrorCheckFailed forgivable _ -> not (forgivable)
  19400. 2033.49 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  19401. 2033.49 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  19402. 2033.49 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  19403. 2033.49 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:56:34-38
  19404. 2033.49 s [opt-env-conf-test] @@ -53,7 +53,7 @@
  19405. 2033.49 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  19406. 2033.49 s [opt-env-conf-test] ParseErrorNoReaders -> False
  19407. 2033.49 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  19408. 2033.49 s [opt-env-conf-test] - ParseErrorMissingArgument _ -> True
  19409. 2033.49 s [opt-env-conf-test] + ParseErrorMissingArgument _ -> False
  19410. 2033.49 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  19411. 2033.49 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  19412. 2033.49 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  19413. 2033.49 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:57:33-38
  19414. 2033.49 s [opt-env-conf-test] @@ -54,7 +54,7 @@
  19415. 2033.49 s [opt-env-conf-test] ParseErrorNoReaders -> False
  19416. 2033.49 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  19417. 2033.49 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  19418. 2033.49 s [opt-env-conf-test] - ParseErrorArgumentRead _ _ -> False
  19419. 2033.49 s [opt-env-conf-test] + ParseErrorArgumentRead _ _ -> True
  19420. 2033.49 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  19421. 2033.50 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  19422. 2033.50 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  19423. 2033.50 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
  19424. 2033.50 s [opt-env-conf-test] @@ -80,65 +80,7 @@
  19425. 2033.50 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  19426. 2033.50 s [opt-env-conf-test] renderError ParseError {..} =
  19427. 2033.50 s [opt-env-conf-test] concat
  19428. 2033.50 s [opt-env-conf-test] - [ case parseErrorMessage of
  19429. 2033.50 s [opt-env-conf-test] - ParseErrorEmpty ->
  19430. 2033.50 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  19431. 2033.50 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  19432. 2033.50 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  19433. 2033.50 s [opt-env-conf-test] - ParseErrorNoReaders ->
  19434. 2033.50 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  19435. 2033.50 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  19436. 2033.50 s [opt-env-conf-test] - ]
  19437. 2033.50 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  19438. 2033.50 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  19439. 2033.50 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  19440. 2033.50 s [opt-env-conf-test] - [ "Missing argument: "
  19441. 2033.50 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  19442. 2033.50 s [opt-env-conf-test] - ]
  19443. 2033.50 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  19444. 2033.50 s [opt-env-conf-test] - ["Failed to read argument: "]
  19445. 2033.50 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  19446. 2033.50 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19447. 2033.50 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  19448. 2033.50 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19449. 2033.50 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  19450. 2033.50 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19451. 2033.50 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  19452. 2033.50 s [opt-env-conf-test] - ["Failed to read option: "]
  19453. 2033.50 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  19454. 2033.50 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19455. 2033.50 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  19456. 2033.50 s [opt-env-conf-test] - ["Missing env var: "]
  19457. 2033.50 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  19458. 2033.50 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  19459. 2033.50 s [opt-env-conf-test] - ["Failed to read env var: "]
  19460. 2033.50 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  19461. 2033.50 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19462. 2033.50 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  19463. 2033.50 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  19464. 2033.50 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  19465. 2033.50 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  19466. 2033.50 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  19467. 2033.50 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  19468. 2033.50 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  19469. 2033.50 s [opt-env-conf-test] - ["Missing command, available commands:"]
  19470. 2033.50 s [opt-env-conf-test] - : availableCommandsLines cs
  19471. 2033.50 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  19472. 2033.50 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19473. 2033.50 s [opt-env-conf-test] - [fore blue "available commands:"]
  19474. 2033.50 s [opt-env-conf-test] - ]
  19475. 2033.50 s [opt-env-conf-test] - ++ availableCommandsLines cs
  19476. 2033.50 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  19477. 2033.50 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."],
  19478. 2033.50 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  19479. 2033.50 s [opt-env-conf-test] - ]
  19480. 2033.50 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  19481. 2033.50 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  19482. 2033.50 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19483. 2033.50 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  19484. 2033.50 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19485. 2033.50 s [opt-env-conf-test] - maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19486. 2033.50 s [opt-env-conf-test] ]
  19487. 2033.50 s [opt-env-conf-test]
  19488. 2033.51 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  19489. 2033.51 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  19490. 2033.51 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
  19491. 2033.51 s [opt-env-conf-test] @@ -80,65 +80,8 @@
  19492. 2033.51 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  19493. 2033.51 s [opt-env-conf-test] renderError ParseError {..} =
  19494. 2033.51 s [opt-env-conf-test] concat
  19495. 2033.51 s [opt-env-conf-test] - [ case parseErrorMessage of
  19496. 2033.51 s [opt-env-conf-test] - ParseErrorEmpty ->
  19497. 2033.51 s [opt-env-conf-test] - [["Hit the 'empty' case of the Parser type, this should not happen."]]
  19498. 2033.51 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  19499. 2033.51 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  19500. 2033.51 s [opt-env-conf-test] - ParseErrorNoReaders ->
  19501. 2033.51 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  19502. 2033.51 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  19503. 2033.51 s [opt-env-conf-test] - ]
  19504. 2033.51 s [opt-env-conf-test] - ParseErrorCheckFailed _ err ->
  19505. 2033.51 s [opt-env-conf-test] - [["Check failed: "], [chunk $ T.pack err]]
  19506. 2033.51 s [opt-env-conf-test] - ParseErrorMissingArgument o ->
  19507. 2033.51 s [opt-env-conf-test] - [ "Missing argument: "
  19508. 2033.51 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong o)
  19509. 2033.51 s [opt-env-conf-test] - ]
  19510. 2033.51 s [opt-env-conf-test] - ParseErrorArgumentRead md errs ->
  19511. 2033.51 s [opt-env-conf-test] - ["Failed to read argument: "]
  19512. 2033.51 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  19513. 2033.51 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19514. 2033.51 s [opt-env-conf-test] - ParseErrorMissingOption o ->
  19515. 2033.51 s [opt-env-conf-test] - ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19516. 2033.51 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  19517. 2033.51 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19518. 2033.51 s [opt-env-conf-test] - ParseErrorOptionRead md errs ->
  19519. 2033.51 s [opt-env-conf-test] - ["Failed to read option: "]
  19520. 2033.51 s [opt-env-conf-test] - : unwordsChunks (maybe [] renderOptDocLong md)
  19521. 2033.51 s [opt-env-conf-test] - : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19522. 2033.51 s [opt-env-conf-test] - ParseErrorMissingEnvVar md ->
  19523. 2033.51 s [opt-env-conf-test] - ["Missing env var: "]
  19524. 2033.51 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  19525. 2033.51 s [opt-env-conf-test] - ParseErrorEnvRead md errs ->
  19526. 2033.51 s [opt-env-conf-test] - ["Failed to read env var: "]
  19527. 2033.51 s [opt-env-conf-test] - : maybe [] renderEnvDoc md
  19528. 2033.98 s [opt-env-conf-test] - ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19529. 2033.98 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  19530. 2033.98 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  19531. 2033.98 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  19532. 2033.98 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  19533. 2033.98 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  19534. 2033.98 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  19535. 2033.98 s [opt-env-conf-test] - ParseErrorMissingCommand cs ->
  19536. 2033.98 s [opt-env-conf-test] - ["Missing command, available commands:"]
  19537. 2033.98 s [opt-env-conf-test] - : availableCommandsLines cs
  19538. 2033.99 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand c cs ->
  19539. 2033.99 s [opt-env-conf-test] - [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19540. 2033.99 s [opt-env-conf-test] - [fore blue "available commands:"]
  19541. 2033.99 s [opt-env-conf-test] - ]
  19542. 2033.99 s [opt-env-conf-test] - ++ availableCommandsLines cs
  19543. 2033.99 s [opt-env-conf-test] - ParseErrorAllOrNothing locs ->
  19544. 2033.99 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."],
  19545. 2033.99 s [opt-env-conf-test] - ["The following settings have been parsed:"]
  19546. 2033.99 s [opt-env-conf-test] - ]
  19547. 2033.99 s [opt-env-conf-test] - ++ map (pure . srcLocChunk) (M.elems locs)
  19548. 2033.99 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  19549. 2033.99 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19550. 2033.99 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  19551. 2033.99 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19552. 2033.99 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19553. 2033.99 s [opt-env-conf-test] ]
  19554. 2033.99 s [opt-env-conf-test]
  19555. 2033.99 s [opt-env-conf-test] availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
  19556. 2033.99 s [opt-env-conf-test] availableCommandsLines = map $ \CommandDoc {..} ->
  19557. 2033.99 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:58:32-36
  19558. 2033.99 s [opt-env-conf-test] @@ -55,7 +55,7 @@
  19559. 2033.99 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  19560. 2033.99 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  19561. 2033.99 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  19562. 2033.99 s [opt-env-conf-test] - ParseErrorMissingSwitch _ -> True
  19563. 2033.99 s [opt-env-conf-test] + ParseErrorMissingSwitch _ -> False
  19564. 2033.99 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  19565. 2033.99 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  19566. 2033.99 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  19567. 2033.99 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:53:29-34
  19568. 2033.99 s [opt-env-conf-test] @@ -50,7 +50,7 @@
  19569. 2033.99 s [opt-env-conf-test] errorMessageIsForgivable :: ParseErrorMessage -> Bool
  19570. 2033.99 s [opt-env-conf-test] errorMessageIsForgivable = \case
  19571. 2033.99 s [opt-env-conf-test] ParseErrorEmpty -> True
  19572. 2033.99 s [opt-env-conf-test] - ParseErrorEmptySetting -> False
  19573. 2034.00 s [opt-env-conf-test] + ParseErrorEmptySetting -> True
  19574. 2034.00 s [opt-env-conf-test] ParseErrorNoReaders -> False
  19575. 2034.00 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  19576. 2034.00 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  19577. 2034.00 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:59:31-36
  19578. 2034.00 s [opt-env-conf-test] @@ -56,7 +56,7 @@
  19579. 2034.00 s [opt-env-conf-test] ParseErrorMissingArgument _ -> True
  19580. 2034.00 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  19581. 2034.00 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  19582. 2034.00 s [opt-env-conf-test] - ParseErrorOptionRead _ _ -> False
  19583. 2034.00 s [opt-env-conf-test] + ParseErrorOptionRead _ _ -> True
  19584. 2034.00 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  19585. 2034.00 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  19586. 2034.00 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  19587. 2034.00 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:60:32-36
  19588. 2034.00 s [opt-env-conf-test] @@ -57,7 +57,7 @@
  19589. 2034.00 s [opt-env-conf-test] ParseErrorArgumentRead _ _ -> False
  19590. 2034.00 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  19591. 2034.00 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  19592. 2034.00 s [opt-env-conf-test] - ParseErrorMissingOption _ -> True
  19593. 2034.00 s [opt-env-conf-test] + ParseErrorMissingOption _ -> False
  19594. 2034.00 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  19595. 2034.00 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  19596. 2034.00 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  19597. 2034.00 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  19598. 2034.00 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  19599. 2034.00 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  19600. 2034.00 s [opt-env-conf-test] renderError ParseError {..} =
  19601. 2034.00 s [opt-env-conf-test] concat
  19602. 2034.00 s [opt-env-conf-test] [ case parseErrorMessage of
  19603. 2034.00 s [opt-env-conf-test] ParseErrorEmpty ->
  19604. 2034.00 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  19605. 2034.00 s [opt-env-conf-test] ParseErrorEmptySetting ->
  19606. 2034.00 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  19607. 2034.00 s [opt-env-conf-test] ParseErrorNoReaders ->
  19608. 2034.00 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  19609. 2034.00 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  19610. 2034.00 s [opt-env-conf-test] ]
  19611. 2034.00 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  19612. 2034.00 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  19613. 2034.00 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  19614. 2034.00 s [opt-env-conf-test] [ "Missing argument: "
  19615. 2034.00 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  19616. 2034.00 s [opt-env-conf-test] ]
  19617. 2034.00 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  19618. 2034.00 s [opt-env-conf-test] ["Failed to read argument: "]
  19619. 2034.00 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19620. 2034.00 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19621. 2034.00 s [opt-env-conf-test] ParseErrorMissingOption o ->
  19622. 2034.00 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19623. 2034.01 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  19624. 2034.01 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19625. 2034.01 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  19626. 2034.01 s [opt-env-conf-test] ["Failed to read option: "]
  19627. 2034.01 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19628. 2034.01 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19629. 2034.01 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  19630. 2034.01 s [opt-env-conf-test] ["Missing env var: "]
  19631. 2034.01 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19632. 2034.01 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  19633. 2034.01 s [opt-env-conf-test] ["Failed to read env var: "]
  19634. 2034.01 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19635. 2034.01 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19636. 2034.01 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  19637. 2034.01 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  19638. 2034.01 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  19639. 2034.01 s [opt-env-conf-test] ["Failed to parse configuration: "]
  19640. 2035.29 s [opt-env-conf-test] : maybe [] renderConfDoc md
  19641. 2035.30 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  19642. 2035.30 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  19643. 2035.30 s [opt-env-conf-test] ["Missing command, available commands:"]
  19644. 2035.30 s [opt-env-conf-test] : availableCommandsLines cs
  19645. 2035.30 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  19646. 2035.30 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19647. 2035.30 s [opt-env-conf-test] [fore blue "available commands:"]
  19648. 2035.30 s [opt-env-conf-test] ]
  19649. 2035.30 s [opt-env-conf-test] ++ availableCommandsLines cs
  19650. 2035.30 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  19651. 2035.30 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."],
  19652. 2035.30 s [opt-env-conf-test] ["The following settings have been parsed:"]
  19653. 2035.30 s [opt-env-conf-test] ]
  19654. 2035.30 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  19655. 2035.30 s [opt-env-conf-test] - ParseErrorUnrecognised leftovers ->
  19656. 2035.30 s [opt-env-conf-test] - ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19657. 2035.30 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  19658. 2035.30 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19659. 2035.30 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19660. 2035.30 s [opt-env-conf-test] ]
  19661. 2035.30 s [opt-env-conf-test]
  19662. 2035.30 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:61:32-36
  19663. 2035.30 s [opt-env-conf-test] @@ -58,7 +58,7 @@
  19664. 2035.30 s [opt-env-conf-test] ParseErrorMissingSwitch _ -> True
  19665. 2035.30 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  19666. 2035.30 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  19667. 2035.30 s [opt-env-conf-test] - ParseErrorMissingEnvVar _ -> True
  19668. 2035.30 s [opt-env-conf-test] + ParseErrorMissingEnvVar _ -> False
  19669. 2035.31 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  19670. 2035.31 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  19671. 2035.31 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  19672. 2035.31 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:62:28-33
  19673. 2035.31 s [opt-env-conf-test] @@ -59,7 +59,7 @@
  19674. 2035.31 s [opt-env-conf-test] ParseErrorOptionRead _ _ -> False
  19675. 2035.31 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  19676. 2035.31 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  19677. 2035.31 s [opt-env-conf-test] - ParseErrorEnvRead _ _ -> False
  19678. 2035.31 s [opt-env-conf-test] + ParseErrorEnvRead _ _ -> True
  19679. 2035.31 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  19680. 2035.31 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  19681. 2035.31 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  19682. 2035.31 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  19683. 2035.31 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  19684. 2035.31 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  19685. 2035.31 s [opt-env-conf-test] renderError ParseError {..} =
  19686. 2035.31 s [opt-env-conf-test] concat
  19687. 2035.31 s [opt-env-conf-test] [ case parseErrorMessage of
  19688. 2035.31 s [opt-env-conf-test] ParseErrorEmpty ->
  19689. 2035.31 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  19690. 2035.31 s [opt-env-conf-test] ParseErrorEmptySetting ->
  19691. 2035.31 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  19692. 2035.31 s [opt-env-conf-test] ParseErrorNoReaders ->
  19693. 2035.31 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  19694. 2035.31 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  19695. 2035.31 s [opt-env-conf-test] ]
  19696. 2035.31 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  19697. 2035.31 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  19698. 2035.32 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  19699. 2035.32 s [opt-env-conf-test] [ "Missing argument: "
  19700. 2035.32 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  19701. 2035.32 s [opt-env-conf-test] ]
  19702. 2035.32 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  19703. 2035.32 s [opt-env-conf-test] ["Failed to read argument: "]
  19704. 2035.32 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19705. 2035.32 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19706. 2035.32 s [opt-env-conf-test] ParseErrorMissingOption o ->
  19707. 2035.32 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19708. 2035.32 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  19709. 2035.32 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  19710. 2035.32 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  19711. 2035.32 s [opt-env-conf-test] ["Failed to read option: "]
  19712. 2035.32 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  19713. 2035.32 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19714. 2035.32 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  19715. 2035.32 s [opt-env-conf-test] ["Missing env var: "]
  19716. 2035.32 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19717. 2035.32 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  19718. 2035.32 s [opt-env-conf-test] ["Failed to read env var: "]
  19719. 2035.32 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  19720. 2035.32 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  19721. 2035.32 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  19722. 2035.32 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  19723. 2035.32 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  19724. 2035.32 s [opt-env-conf-test] ["Failed to parse configuration: "]
  19725. 2035.77 s [opt-env-conf-test] : maybe [] renderConfDoc md
  19726. 2035.77 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  19727. 2035.77 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  19728. 2035.77 s [opt-env-conf-test] ["Missing command, available commands:"]
  19729. 2035.77 s [opt-env-conf-test] : availableCommandsLines cs
  19730. 2035.77 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  19731. 2035.77 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  19732. 2035.77 s [opt-env-conf-test] [fore blue "available commands:"]
  19733. 2035.78 s [opt-env-conf-test] ]
  19734. 2035.78 s [opt-env-conf-test] ++ availableCommandsLines cs
  19735. 2035.78 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  19736. 2035.78 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."],
  19737. 2035.78 s [opt-env-conf-test] ["The following settings have been parsed:"]
  19738. 2035.78 s [opt-env-conf-test] ]
  19739. 2035.78 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  19740. 2035.78 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  19741. 2035.78 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  19742. 2035.78 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  19743. 2035.78 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  19744. 2035.78 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  19745. 2035.78 s [opt-env-conf-test] ]
  19746. 2035.78 s [opt-env-conf-test]
  19747. 2035.78 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:206:39-57
  19748. 2035.78 s [opt-env-conf-test] @@ -203,7 +203,7 @@
  19749. 2035.78 s [opt-env-conf-test] _ ->
  19750. 2035.78 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  19751. 2035.78 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  19752. 2035.78 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  19753. 2035.78 s [opt-env-conf-test] + (Nothing, consumed)
  19754. 2035.78 s [opt-env-conf-test] ]
  19755. 2035.78 s [opt-env-conf-test] )
  19756. 2035.78 s [opt-env-conf-test]
  19757. 2035.78 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  19758. 2035.78 s [opt-env-conf-test] @@ -186,26 +186,10 @@
  19759. 2035.78 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  19760. 2035.78 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  19761. 2035.78 s [opt-env-conf-test] ]
  19762. 2035.78 s [opt-env-conf-test] in case afters of
  19763. 2035.78 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  19764. 2035.78 s [opt-env-conf-test] [] -> switchCase
  19765. 2035.78 s [opt-env-conf-test] (Dead : _) -> switchCase
  19766. 2035.78 s [opt-env-conf-test] - (Live a' : rest) ->
  19767. 2035.78 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  19768. 2035.78 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  19769. 2035.78 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  19770. 2035.78 s [opt-env-conf-test] - -- * The dashed is an argument
  19771. 2035.79 s [opt-env-conf-test] - ( case a' of
  19772. 2035.79 s [opt-env-conf-test] - ArgDashed {} ->
  19773. 2035.79 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  19774. 2035.79 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  19775. 2035.79 s [opt-env-conf-test] - ]
  19776. 2035.79 s [opt-env-conf-test] - _ ->
  19777. 2035.79 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  19778. 2035.79 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  19779. 2035.79 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  19780. 2035.79 s [opt-env-conf-test] - ]
  19781. 2035.79 s [opt-env-conf-test] - )
  19782. 2035.79 s [opt-env-conf-test]
  19783. 2035.79 s [opt-env-conf-test] -- | Consume an option.
  19784. 2035.79 s [opt-env-conf-test] --
  19785. 2035.79 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  19786. 2035.79 s [opt-env-conf-test] @@ -143,69 +143,40 @@
  19787. 2035.79 s [opt-env-conf-test] in case firstArg of
  19788. 2035.79 s [opt-env-conf-test] -- Skip any dead argument
  19789. 2035.79 s [opt-env-conf-test] Dead -> consumeArgument consumed
  19790. 2035.79 s [opt-env-conf-test] Live a -> case a of
  19791. 2035.79 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  19792. 2035.79 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  19793. 2035.79 s [opt-env-conf-test] -- A single dash is always an argument
  19794. 2035.79 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  19795. 2035.79 s [opt-env-conf-test] -- Bare double-dash
  19796. 2035.79 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  19797. 2035.79 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  19798. 2035.79 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  19799. 2035.79 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  19800. 2035.79 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  19801. 2035.79 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  19802. 2035.79 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  19803. 2035.79 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  19804. 2035.79 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  19805. 2035.79 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  19806. 2035.79 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  19807. 2035.79 s [opt-env-conf-test] -- pop the args as they come.
  19808. 2035.79 s [opt-env-conf-test] _ ->
  19809. 2035.79 s [opt-env-conf-test] let go = \case
  19810. 2035.79 s [opt-env-conf-test] [] -> Nothing
  19811. 2035.79 s [opt-env-conf-test] (Dead : rest) -> go rest
  19812. 2035.79 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  19813. 2035.80 s [opt-env-conf-test] in case go afters of
  19814. 2035.80 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  19815. 2035.80 s [opt-env-conf-test] Just (firstLive, rest) ->
  19816. 2035.80 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  19817. 2035.80 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  19818. 2035.80 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  19819. 2035.80 s [opt-env-conf-test] -- arguments.
  19820. 2035.80 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  19821. 2035.80 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  19822. 2035.80 s [opt-env-conf-test] )
  19823. 2035.80 s [opt-env-conf-test] ]
  19824. 2035.80 s [opt-env-conf-test] - ArgDashed {} ->
  19825. 2035.80 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  19826. 2035.80 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  19827. 2035.80 s [opt-env-conf-test] - -- * The dashed is an argument
  19828. 2035.80 s [opt-env-conf-test] - -- TODO we need to continue looking too
  19829. 2035.80 s [opt-env-conf-test] - let switchCase =
  19830. 2035.80 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  19831. 2035.80 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  19832. 2035.80 s [opt-env-conf-test] - ]
  19833. 2035.80 s [opt-env-conf-test] - in case afters of
  19834. 2035.80 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  19835. 2035.80 s [opt-env-conf-test] - [] -> switchCase
  19836. 2035.80 s [opt-env-conf-test] - (Dead : _) -> switchCase
  19837. 2035.80 s [opt-env-conf-test] - (Live a' : rest) ->
  19838. 2035.80 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  19839. 2035.80 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  19840. 2035.80 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  19841. 2035.80 s [opt-env-conf-test] - -- * The dashed is an argument
  19842. 2035.80 s [opt-env-conf-test] - ( case a' of
  19843. 2035.80 s [opt-env-conf-test] - ArgDashed {} ->
  19844. 2035.80 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  19845. 2035.80 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  19846. 2035.80 s [opt-env-conf-test] - ]
  19847. 2035.80 s [opt-env-conf-test] - _ ->
  19848. 2035.80 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  19849. 2035.80 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  19850. 2035.80 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  19851. 2036.20 s [opt-env-conf-test] - ]
  19852. 2036.20 s [opt-env-conf-test] - )
  19853. 2036.20 s [opt-env-conf-test]
  19854. 2036.20 s [opt-env-conf-test] -- | Consume an option.
  19855. 2036.20 s [opt-env-conf-test] --
  19856. 2036.20 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
  19857. 2036.20 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  19858. 2036.20 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  19859. 2036.20 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  19860. 2036.20 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  19861. 2036.20 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  19862. 2036.20 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ False
  19863. 2036.20 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  19864. 2036.20 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  19865. 2036.20 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  19866. 2036.20 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
  19867. 2036.20 s [opt-env-conf-test] @@ -202,9 +202,7 @@
  19868. 2036.20 s [opt-env-conf-test] ]
  19869. 2036.20 s [opt-env-conf-test] _ ->
  19870. 2036.21 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  19871. 2036.21 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  19872. 2036.21 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  19873. 2036.21 s [opt-env-conf-test] ]
  19874. 2036.21 s [opt-env-conf-test] )
  19875. 2036.21 s [opt-env-conf-test]
  19876. 2036.21 s [opt-env-conf-test] -- | Consume an option.
  19877. 2036.21 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
  19878. 2036.21 s [opt-env-conf-test] @@ -140,72 +140,9 @@
  19879. 2036.21 s [opt-env-conf-test] (firstArg : afters) ->
  19880. 2036.21 s [opt-env-conf-test] let befores = argsBefore as
  19881. 2036.21 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  19882. 2036.21 s [opt-env-conf-test] in case firstArg of
  19883. 2036.21 s [opt-env-conf-test] -- Skip any dead argument
  19884. 2036.21 s [opt-env-conf-test] Dead -> consumeArgument consumed
  19885. 2036.21 s [opt-env-conf-test] - Live a -> case a of
  19886. 2036.21 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  19887. 2036.21 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  19888. 2036.21 s [opt-env-conf-test] - -- A single dash is always an argument
  19889. 2036.21 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  19890. 2036.21 s [opt-env-conf-test] - -- Bare double-dash
  19891. 2036.21 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  19892. 2036.21 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  19893. 2036.21 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  19894. 2036.21 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  19895. 2036.21 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  19896. 2036.21 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  19897. 2036.21 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  19898. 2036.21 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  19899. 2036.21 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  19900. 2036.21 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  19901. 2036.21 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  19902. 2036.21 s [opt-env-conf-test] - -- pop the args as they come.
  19903. 2036.21 s [opt-env-conf-test] - _ ->
  19904. 2036.21 s [opt-env-conf-test] - let go = \case
  19905. 2036.22 s [opt-env-conf-test] - [] -> Nothing
  19906. 2036.22 s [opt-env-conf-test] - (Dead : rest) -> go rest
  19907. 2036.22 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  19908. 2036.22 s [opt-env-conf-test] - in case go afters of
  19909. 2036.22 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  19910. 2036.22 s [opt-env-conf-test] - Just (firstLive, rest) ->
  19911. 2036.22 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  19912. 2036.22 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  19913. 2036.22 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  19914. 2036.22 s [opt-env-conf-test] - -- arguments.
  19915. 2036.22 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  19916. 2036.22 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  19917. 2036.22 s [opt-env-conf-test] - )
  19918. 2036.22 s [opt-env-conf-test] - ]
  19919. 2036.22 s [opt-env-conf-test] - ArgDashed {} ->
  19920. 2036.22 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  19921. 2036.22 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  19922. 2036.22 s [opt-env-conf-test] - -- * The dashed is an argument
  19923. 2036.22 s [opt-env-conf-test] - -- TODO we need to continue looking too
  19924. 2036.22 s [opt-env-conf-test] - let switchCase =
  19925. 2036.22 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  19926. 2036.22 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  19927. 2036.22 s [opt-env-conf-test] - ]
  19928. 2036.22 s [opt-env-conf-test] - in case afters of
  19929. 2036.22 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  19930. 2036.22 s [opt-env-conf-test] - [] -> switchCase
  19931. 2036.22 s [opt-env-conf-test] - (Dead : _) -> switchCase
  19932. 2036.22 s [opt-env-conf-test] - (Live a' : rest) ->
  19933. 2036.22 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  19934. 2036.22 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  19935. 2036.22 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  19936. 2036.22 s [opt-env-conf-test] - -- * The dashed is an argument
  19937. 2036.22 s [opt-env-conf-test] - ( case a' of
  19938. 2036.22 s [opt-env-conf-test] - ArgDashed {} ->
  19939. 2036.23 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  19940. 2036.96 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  19941. 2036.96 s [opt-env-conf-test] - ]
  19942. 2036.96 s [opt-env-conf-test] - _ ->
  19943. 2036.96 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  19944. 2036.96 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  19945. 2036.96 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  19946. 2036.96 s [opt-env-conf-test] - ]
  19947. 2036.96 s [opt-env-conf-test] - )
  19948. 2036.96 s [opt-env-conf-test]
  19949. 2036.96 s [opt-env-conf-test] -- | Consume an option.
  19950. 2036.96 s [opt-env-conf-test] --
  19951. 2036.96 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:68:31-36
  19952. 2036.96 s [opt-env-conf-test] @@ -65,7 +65,7 @@
  19953. 2036.96 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  19954. 2036.96 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  19955. 2036.96 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  19956. 2036.96 s [opt-env-conf-test] - ParseErrorUnrecognised _ -> False
  19957. 2036.96 s [opt-env-conf-test] + ParseErrorUnrecognised _ -> True
  19958. 2036.96 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  19959. 2036.96 s [opt-env-conf-test]
  19960. 2036.96 s [opt-env-conf-test] eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
  19961. 2036.96 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:69:36-41
  19962. 2036.96 s [opt-env-conf-test] @@ -66,7 +66,7 @@
  19963. 2036.96 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  19964. 2036.96 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  19965. 2036.96 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  19966. 2036.97 s [opt-env-conf-test] - ParseErrorMissingCapability _ -> False
  19967. 2036.97 s [opt-env-conf-test] + ParseErrorMissingCapability _ -> True
  19968. 2036.97 s [opt-env-conf-test]
  19969. 2036.97 s [opt-env-conf-test] eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
  19970. 2036.97 s [opt-env-conf-test] eraseErrorSrcLocs = fmap eraseErrorSrcLoc
  19971. 2036.97 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/NonDet.hs:74:24-42
  19972. 2036.97 s [opt-env-conf-test] @@ -71,7 +71,7 @@
  19973. 2036.97 s [opt-env-conf-test] runListTLazy = fmap g . unListT
  19974. 2036.97 s [opt-env-conf-test] where
  19975. 2036.97 s [opt-env-conf-test] g MNil = Nothing
  19976. 2036.97 s [opt-env-conf-test] - g (x `MCons` xs) = Just (x, ListT xs)
  19977. 2036.97 s [opt-env-conf-test] + g (x `MCons` xs) = Nothing
  19978. 2036.97 s [opt-env-conf-test]
  19979. 2036.97 s [opt-env-conf-test] runListTComplete :: (Monad m) => ListT m a -> m [a]
  19980. 2036.97 s [opt-env-conf-test] runListTComplete = unListT >=> go
  19981. 2036.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  19982. 2036.97 s [opt-env-conf-test] @@ -149,34 +149,18 @@
  19983. 2036.97 s [opt-env-conf-test] -- A single dash is always an argument
  19984. 2036.97 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  19985. 2036.97 s [opt-env-conf-test] -- Bare double-dash
  19986. 2036.97 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  19987. 2036.97 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  19988. 2036.97 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  19989. 2036.97 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  19990. 2036.97 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  19991. 2036.97 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  19992. 2036.97 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  19993. 2036.97 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  19994. 2036.97 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  19995. 2036.97 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  19996. 2036.97 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  19997. 2036.97 s [opt-env-conf-test] -- pop the args as they come.
  19998. 2036.98 s [opt-env-conf-test] - _ ->
  19999. 2036.98 s [opt-env-conf-test] - let go = \case
  20000. 2036.98 s [opt-env-conf-test] - [] -> Nothing
  20001. 2036.98 s [opt-env-conf-test] - (Dead : rest) -> go rest
  20002. 2036.98 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  20003. 2036.98 s [opt-env-conf-test] - in case go afters of
  20004. 2036.98 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  20005. 2036.98 s [opt-env-conf-test] - Just (firstLive, rest) ->
  20006. 2036.98 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  20007. 2036.98 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  20008. 2036.98 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  20009. 2036.98 s [opt-env-conf-test] - -- arguments.
  20010. 2036.98 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  20011. 2036.98 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  20012. 2036.98 s [opt-env-conf-test] - )
  20013. 2043.88 s [opt-env-conf-test] - ]
  20014. 2043.88 s [opt-env-conf-test] ArgDashed {} ->
  20015. 2043.88 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  20016. 2043.90 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  20017. 2043.90 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:67:31-36
  20018. 2043.90 s [opt-env-conf-test] @@ -64,7 +64,7 @@
  20019. 2043.90 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20020. 2043.90 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  20021. 2043.90 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20022. 2043.90 s [opt-env-conf-test] - ParseErrorAllOrNothing _ -> False
  20023. 2043.90 s [opt-env-conf-test] + ParseErrorAllOrNothing _ -> True
  20024. 2043.90 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20025. 2043.90 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  20026. 2043.90 s [opt-env-conf-test]
  20027. 2043.90 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:64:31-36
  20028. 2043.90 s [opt-env-conf-test] @@ -61,7 +61,7 @@
  20029. 2043.90 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  20030. 2043.90 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  20031. 2043.91 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20032. 2043.91 s [opt-env-conf-test] - ParseErrorConfigRead _ _ -> False
  20033. 2043.91 s [opt-env-conf-test] + ParseErrorConfigRead _ _ -> True
  20034. 2043.91 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  20035. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20036. 2043.91 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20037. 2043.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
  20038. 2043.91 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  20039. 2043.91 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  20040. 2043.91 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20041. 2043.91 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20042. 2043.91 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  20043. 2043.91 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> True
  20044. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20045. 2043.91 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20046. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20047. 2043.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
  20048. 2043.91 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  20049. 2043.91 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  20050. 2043.91 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20051. 2043.91 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20052. 2043.91 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  20053. 2043.91 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ True
  20054. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20055. 2043.91 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20056. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20057. 2043.91 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
  20058. 2043.91 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  20059. 2043.91 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  20060. 2043.91 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20061. 2043.91 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20062. 2043.91 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  20063. 2043.91 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> False
  20064. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20065. 2043.91 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20066. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20067. 2043.91 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Error.hs:65:34-47
  20068. 2043.91 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  20069. 2043.91 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  20070. 2043.91 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20071. 2043.91 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20072. 2043.91 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  20073. 2043.91 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not (not $ null cs)
  20074. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20075. 2043.91 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20076. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20077. 2043.91 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:66:40-45
  20078. 2043.91 s [opt-env-conf-test] @@ -63,7 +63,7 @@
  20079. 2043.91 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20080. 2043.91 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20081. 2043.91 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  20082. 2043.91 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand _ _ -> False
  20083. 2043.91 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand _ _ -> True
  20084. 2043.91 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20085. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20086. 2043.91 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  20087. 2043.91 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:63:33-37
  20088. 2043.91 s [opt-env-conf-test] @@ -60,7 +60,7 @@
  20089. 2043.91 s [opt-env-conf-test] ParseErrorMissingOption _ -> True
  20090. 2043.91 s [opt-env-conf-test] ParseErrorMissingEnvVar _ -> True
  20091. 2043.91 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  20092. 2043.91 s [opt-env-conf-test] - ParseErrorMissingConfVal _ -> True
  20093. 2043.91 s [opt-env-conf-test] + ParseErrorMissingConfVal _ -> False
  20094. 2043.91 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20095. 2043.91 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  20096. 2043.91 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20097. 2043.92 s [opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:52:22-26
  20098. 2043.92 s [opt-env-conf-test] @@ -49,7 +49,7 @@
  20099. 2043.92 s [opt-env-conf-test]
  20100. 2043.92 s [opt-env-conf-test] errorMessageIsForgivable :: ParseErrorMessage -> Bool
  20101. 2043.92 s [opt-env-conf-test] errorMessageIsForgivable = \case
  20102. 2043.92 s [opt-env-conf-test] - ParseErrorEmpty -> True
  20103. 2043.92 s [opt-env-conf-test] + ParseErrorEmpty -> False
  20104. 2043.92 s [opt-env-conf-test] ParseErrorEmptySetting -> False
  20105. 2043.92 s [opt-env-conf-test] ParseErrorNoReaders -> False
  20106. 2043.92 s [opt-env-conf-test] ParseErrorCheckFailed forgivable _ -> forgivable
  20107. 2043.92 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Error.hs:65:40-47
  20108. 2043.92 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  20109. 2043.92 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  20110. 2043.92 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20111. 2043.92 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20112. 2043.92 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  20113. 2043.92 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ not (null cs)
  20114. 2043.92 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20115. 2043.92 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20116. 2043.92 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20117. 2043.92 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
  20118. 2043.92 s [opt-env-conf-test] @@ -143,69 +143,68 @@
  20119. 2043.92 s [opt-env-conf-test] in case firstArg of
  20120. 2043.92 s [opt-env-conf-test] -- Skip any dead argument
  20121. 2043.92 s [opt-env-conf-test] Dead -> consumeArgument consumed
  20122. 2043.92 s [opt-env-conf-test] Live a -> case a of
  20123. 2043.92 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  20124. 2043.92 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  20125. 2043.92 s [opt-env-conf-test] -- A single dash is always an argument
  20126. 2043.92 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  20127. 2043.92 s [opt-env-conf-test] -- Bare double-dash
  20128. 2043.92 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  20129. 2043.92 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  20130. 2043.92 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  20131. 2043.92 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  20132. 2043.92 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  20133. 2043.92 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  20134. 2043.92 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  20135. 2043.92 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  20136. 2043.92 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  20137. 2043.92 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  20138. 2043.92 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  20139. 2043.92 s [opt-env-conf-test] -- pop the args as they come.
  20140. 2043.92 s [opt-env-conf-test] _ ->
  20141. 2043.92 s [opt-env-conf-test] let go = \case
  20142. 2043.92 s [opt-env-conf-test] [] -> Nothing
  20143. 2043.92 s [opt-env-conf-test] (Dead : rest) -> go rest
  20144. 2043.92 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  20145. 2043.92 s [opt-env-conf-test] in case go afters of
  20146. 2043.92 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  20147. 2043.92 s [opt-env-conf-test] Just (firstLive, rest) ->
  20148. 2043.92 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  20149. 2043.92 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  20150. 2043.92 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  20151. 2043.92 s [opt-env-conf-test] -- arguments.
  20152. 2045.53 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  20153. 2045.53 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  20154. 2045.53 s [opt-env-conf-test] )
  20155. 2045.53 s [opt-env-conf-test] ]
  20156. 2045.53 s [opt-env-conf-test] ArgDashed {} ->
  20157. 2045.53 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  20158. 2045.53 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  20159. 2045.53 s [opt-env-conf-test] -- * The dashed is an argument
  20160. 2045.54 s [opt-env-conf-test] -- TODO we need to continue looking too
  20161. 2045.54 s [opt-env-conf-test] let switchCase =
  20162. 2045.54 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  20163. 2045.54 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20164. 2045.54 s [opt-env-conf-test] ]
  20165. 2045.54 s [opt-env-conf-test] in case afters of
  20166. 2045.54 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  20167. 2045.54 s [opt-env-conf-test] [] -> switchCase
  20168. 2045.54 s [opt-env-conf-test] (Dead : _) -> switchCase
  20169. 2045.54 s [opt-env-conf-test] (Live a' : rest) ->
  20170. 2045.54 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  20171. 2045.54 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  20172. 2045.54 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  20173. 2045.54 s [opt-env-conf-test] -- * The dashed is an argument
  20174. 2045.54 s [opt-env-conf-test] ( case a' of
  20175. 2045.54 s [opt-env-conf-test] ArgDashed {} ->
  20176. 2045.54 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  20177. 2045.54 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20178. 2045.54 s [opt-env-conf-test] ]
  20179. 2045.54 s [opt-env-conf-test] _ ->
  20180. 2045.54 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  20181. 2045.54 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  20182. 2045.54 s [opt-env-conf-test] (Just (renderArg a), consumed)
  20183. 2045.54 s [opt-env-conf-test] ]
  20184. 2045.54 s [opt-env-conf-test] )
  20185. 2045.54 s [opt-env-conf-test]
  20186. 2045.54 s [opt-env-conf-test] -- | Consume an option.
  20187. 2045.54 s [opt-env-conf-test] --
  20188. 2045.54 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:241:25-46
  20189. 2045.54 s [opt-env-conf-test] @@ -238,7 +238,7 @@
  20190. 2045.54 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  20191. 2045.54 s [opt-env-conf-test] ArgDashed isLong cs ->
  20192. 2045.54 s [opt-env-conf-test] case consumeDashedShorthandOption dasheds isLong cs of
  20193. 2045.54 s [opt-env-conf-test] - Just v -> Just (v, Dead : rest)
  20194. 2045.55 s [opt-env-conf-test] + Just v -> Nothing
  20195. 2045.55 s [opt-env-conf-test] Nothing ->
  20196. 2045.55 s [opt-env-conf-test] case rest of
  20197. 2045.55 s [opt-env-conf-test] (Live v : rest') ->
  20198. 2045.55 s [opt-env-conf-test] Testing mutation MaybeOp at src/OptEnvConf/Args.hs:226:34-72
  20199. 2045.55 s [opt-env-conf-test] @@ -223,7 +223,7 @@
  20200. 2045.55 s [opt-env-conf-test] Nothing ->
  20201. 2045.55 s [opt-env-conf-test] -- TODO option value on the border
  20202. 2045.55 s [opt-env-conf-test] case go (argsAfter as) of
  20203. 2045.55 s [opt-env-conf-test] - Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  20204. 2045.55 s [opt-env-conf-test] + Just (val, newAfters) -> Nothing
  20205. 2045.55 s [opt-env-conf-test] Nothing -> Nothing
  20206. 2045.55 s [opt-env-conf-test] where
  20207. 2045.55 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  20208. 2045.55 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  20209. 2045.55 s [opt-env-conf-test] @@ -222,9 +222,8 @@
  20210. 2045.55 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  20211. 2045.55 s [opt-env-conf-test] Nothing ->
  20212. 2045.55 s [opt-env-conf-test] -- TODO option value on the border
  20213. 2045.55 s [opt-env-conf-test] case go (argsAfter as) of
  20214. 2045.55 s [opt-env-conf-test] Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  20215. 2045.55 s [opt-env-conf-test] - Nothing -> Nothing
  20216. 2045.55 s [opt-env-conf-test] where
  20217. 2045.55 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  20218. 2045.55 s [opt-env-conf-test] go = \case
  20219. 2045.55 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
  20220. 2045.55 s [opt-env-conf-test] @@ -140,72 +140,71 @@
  20221. 2045.55 s [opt-env-conf-test] (firstArg : afters) ->
  20222. 2045.55 s [opt-env-conf-test] let befores = argsBefore as
  20223. 2045.55 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  20224. 2045.55 s [opt-env-conf-test] in case firstArg of
  20225. 2045.55 s [opt-env-conf-test] -- Skip any dead argument
  20226. 2045.56 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  20227. 2045.56 s [opt-env-conf-test] Live a -> case a of
  20228. 2045.56 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  20229. 2045.56 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  20230. 2045.56 s [opt-env-conf-test] -- A single dash is always an argument
  20231. 2045.56 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  20232. 2045.56 s [opt-env-conf-test] -- Bare double-dash
  20233. 2045.56 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  20234. 2045.56 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  20235. 2045.56 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  20236. 2045.56 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  20237. 2045.56 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  20238. 2045.56 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  20239. 2045.56 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  20240. 2045.56 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  20241. 2045.56 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  20242. 2045.56 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  20243. 2045.56 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  20244. 2045.56 s [opt-env-conf-test] -- pop the args as they come.
  20245. 2045.56 s [opt-env-conf-test] _ ->
  20246. 2045.56 s [opt-env-conf-test] let go = \case
  20247. 2045.56 s [opt-env-conf-test] [] -> Nothing
  20248. 2045.56 s [opt-env-conf-test] (Dead : rest) -> go rest
  20249. 2045.56 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  20250. 2045.56 s [opt-env-conf-test] in case go afters of
  20251. 2045.56 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  20252. 2045.56 s [opt-env-conf-test] Just (firstLive, rest) ->
  20253. 2045.56 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  20254. 2045.56 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  20255. 2049.82 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  20256. 2049.88 s [opt-env-conf-test] -- arguments.
  20257. 2049.88 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  20258. 2049.88 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  20259. 2049.88 s [opt-env-conf-test] )
  20260. 2049.88 s [opt-env-conf-test] ]
  20261. 2049.88 s [opt-env-conf-test] ArgDashed {} ->
  20262. 2049.88 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  20263. 2049.88 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  20264. 2049.88 s [opt-env-conf-test] -- * The dashed is an argument
  20265. 2049.88 s [opt-env-conf-test] -- TODO we need to continue looking too
  20266. 2049.88 s [opt-env-conf-test] let switchCase =
  20267. 2049.88 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  20268. 2049.88 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20269. 2049.88 s [opt-env-conf-test] ]
  20270. 2049.88 s [opt-env-conf-test] in case afters of
  20271. 2049.88 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  20272. 2049.89 s [opt-env-conf-test] [] -> switchCase
  20273. 2049.89 s [opt-env-conf-test] (Dead : _) -> switchCase
  20274. 2049.89 s [opt-env-conf-test] (Live a' : rest) ->
  20275. 2049.89 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  20276. 2049.89 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  20277. 2049.89 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  20278. 2049.89 s [opt-env-conf-test] -- * The dashed is an argument
  20279. 2049.89 s [opt-env-conf-test] ( case a' of
  20280. 2049.89 s [opt-env-conf-test] ArgDashed {} ->
  20281. 2049.89 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  20282. 2049.89 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20283. 2049.89 s [opt-env-conf-test] ]
  20284. 2049.89 s [opt-env-conf-test] _ ->
  20285. 2049.89 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  20286. 2049.89 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  20287. 2049.89 s [opt-env-conf-test] (Just (renderArg a), consumed)
  20288. 2049.89 s [opt-env-conf-test] ]
  20289. 2049.89 s [opt-env-conf-test] )
  20290. 2049.89 s [opt-env-conf-test]
  20291. 2049.89 s [opt-env-conf-test] -- | Consume an option.
  20292. 2049.89 s [opt-env-conf-test] --
  20293. 2049.89 s [opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
  20294. 2049.89 s [opt-env-conf-test] @@ -242,7 +242,7 @@
  20295. 2049.89 s [opt-env-conf-test] Nothing ->
  20296. 2049.89 s [opt-env-conf-test] case rest of
  20297. 2049.89 s [opt-env-conf-test] (Live v : rest') ->
  20298. 2049.89 s [opt-env-conf-test] - case consumeDashedOption dasheds isLong cs of
  20299. 2049.89 s [opt-env-conf-test] + case consumeDashedOption dasheds False cs of
  20300. 2049.89 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  20301. 2049.89 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  20302. 2049.89 s [opt-env-conf-test] Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  20303. 2049.89 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
  20304. 2049.89 s [opt-env-conf-test] @@ -186,26 +186,25 @@
  20305. 2049.89 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  20306. 2049.89 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20307. 2049.90 s [opt-env-conf-test] ]
  20308. 2049.90 s [opt-env-conf-test] in case afters of
  20309. 2049.90 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  20310. 2049.90 s [opt-env-conf-test] - [] -> switchCase
  20311. 2049.90 s [opt-env-conf-test] (Dead : _) -> switchCase
  20312. 2049.90 s [opt-env-conf-test] (Live a' : rest) ->
  20313. 2049.90 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  20314. 2049.90 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  20315. 2049.90 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  20316. 2049.90 s [opt-env-conf-test] -- * The dashed is an argument
  20317. 2049.90 s [opt-env-conf-test] ( case a' of
  20318. 2049.90 s [opt-env-conf-test] ArgDashed {} ->
  20319. 2049.90 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  20320. 2049.90 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20321. 2049.90 s [opt-env-conf-test] ]
  20322. 2049.90 s [opt-env-conf-test] _ ->
  20323. 2049.90 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  20324. 2049.90 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  20325. 2049.90 s [opt-env-conf-test] (Just (renderArg a), consumed)
  20326. 2049.90 s [opt-env-conf-test] ]
  20327. 2049.90 s [opt-env-conf-test] )
  20328. 2049.90 s [opt-env-conf-test]
  20329. 2049.90 s [opt-env-conf-test] -- | Consume an option.
  20330. 2049.90 s [opt-env-conf-test] --
  20331. 2049.90 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
  20332. 2049.90 s [opt-env-conf-test] @@ -195,16 +195,11 @@
  20333. 2049.90 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  20334. 2049.90 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  20335. 2049.90 s [opt-env-conf-test] -- * The dashed is an argument
  20336. 2049.90 s [opt-env-conf-test] ( case a' of
  20337. 2049.90 s [opt-env-conf-test] ArgDashed {} ->
  20338. 2049.90 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  20339. 2049.90 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20340. 2049.90 s [opt-env-conf-test] ]
  20341. 2049.90 s [opt-env-conf-test] - _ ->
  20342. 2049.90 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  20343. 2049.90 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  20344. 2049.90 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  20345. 2049.90 s [opt-env-conf-test] - ]
  20346. 2049.90 s [opt-env-conf-test] )
  20347. 2049.91 s [opt-env-conf-test]
  20348. 2049.91 s [opt-env-conf-test] -- | Consume an option.
  20349. 2049.91 s [opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:240:55-61
  20350. 2049.91 s [opt-env-conf-test] @@ -237,7 +237,7 @@
  20351. 2049.91 s [opt-env-conf-test] -- We can either consume it as-is, or as a shorthand option.
  20352. 2049.91 s [opt-env-conf-test] ArgBareDoubleDash -> Nothing
  20353. 2049.91 s [opt-env-conf-test] ArgDashed isLong cs ->
  20354. 2049.91 s [opt-env-conf-test] - case consumeDashedShorthandOption dasheds isLong cs of
  20355. 2049.91 s [opt-env-conf-test] + case consumeDashedShorthandOption dasheds not (isLong) cs of
  20356. 2049.91 s [opt-env-conf-test] Just v -> Just (v, Dead : rest)
  20357. 2049.91 s [opt-env-conf-test] Nothing ->
  20358. 2049.91 s [opt-env-conf-test] case rest of
  20359. 2049.91 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
  20360. 2049.91 s [opt-env-conf-test] @@ -195,16 +195,12 @@
  20361. 2049.91 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  20362. 2049.91 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  20363. 2049.91 s [opt-env-conf-test] -- * The dashed is an argument
  20364. 2049.91 s [opt-env-conf-test] ( case a' of
  20365. 2049.91 s [opt-env-conf-test] - ArgDashed {} ->
  20366. 2049.91 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  20367. 2049.91 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  20368. 2049.91 s [opt-env-conf-test] - ]
  20369. 2049.91 s [opt-env-conf-test] _ ->
  20370. 2049.91 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  20371. 2049.91 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  20372. 2049.91 s [opt-env-conf-test] (Just (renderArg a), consumed)
  20373. 2049.91 s [opt-env-conf-test] ]
  20374. 2049.91 s [opt-env-conf-test] )
  20375. 2049.91 s [opt-env-conf-test]
  20376. 2049.91 s [opt-env-conf-test] -- | Consume an option.
  20377. 2049.91 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
  20378. 2049.91 s [opt-env-conf-test] @@ -201,7 +201,6 @@
  20379. 2049.91 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20380. 2049.91 s [opt-env-conf-test] ]
  20381. 2049.91 s [opt-env-conf-test] _ ->
  20382. 2049.91 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  20383. 2049.91 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  20384. 2049.91 s [opt-env-conf-test] (Just (renderArg a), consumed)
  20385. 2049.91 s [opt-env-conf-test] ]
  20386. 2049.91 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
  20387. 2049.91 s [opt-env-conf-test] @@ -135,77 +135,8 @@
  20388. 2049.91 s [opt-env-conf-test] Nothing -> r
  20389. 2049.91 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  20390. 2049.91 s [opt-env-conf-test]
  20391. 2049.91 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  20392. 2049.91 s [opt-env-conf-test] [] -> []
  20393. 2049.91 s [opt-env-conf-test] - (firstArg : afters) ->
  20394. 2049.91 s [opt-env-conf-test] - let befores = argsBefore as
  20395. 2049.91 s [opt-env-conf-test] - consumed = Args (befores ++ [Dead]) afters
  20396. 2049.91 s [opt-env-conf-test] - in case firstArg of
  20397. 2049.91 s [opt-env-conf-test] - -- Skip any dead argument
  20398. 2049.91 s [opt-env-conf-test] - Dead -> consumeArgument consumed
  20399. 2049.91 s [opt-env-conf-test] - Live a -> case a of
  20400. 2049.92 s [opt-env-conf-test] - -- Plain argument: that's the only option, consume it.
  20401. 2049.92 s [opt-env-conf-test] - ArgPlain plain -> [(Just plain, consumed)]
  20402. 2049.92 s [opt-env-conf-test] - -- A single dash is always an argument
  20403. 2049.92 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  20404. 2049.92 s [opt-env-conf-test] - -- Bare double-dash
  20405. 2049.92 s [opt-env-conf-test] - ArgBareDoubleDash -> case afters of
  20406. 2049.92 s [opt-env-conf-test] - -- If it's the last argument, consume it as an argument
  20407. 2049.92 s [opt-env-conf-test] - [] -> [(Just "--", consumed)]
  20408. 2049.92 s [opt-env-conf-test] - -- If there's only a dead argument after the double dash, that
  20409. 2049.92 s [opt-env-conf-test] - -- means we've been parsing bare args and are now done.
  20410. 2049.92 s [opt-env-conf-test] - -- We can stop consuming but get rid of the tombstone as well.
  20411. 2049.92 s [opt-env-conf-test] - -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  20412. 2049.92 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  20413. 2049.92 s [opt-env-conf-test] - -- If it's not the last argument, anything after here is an argument.
  20414. 2049.92 s [opt-env-conf-test] - -- In order to not have to maintain whether the cursor is after
  20415. 2049.92 s [opt-env-conf-test] - -- a bare double dash already, we keep the cursor here and just
  20416. 2049.92 s [opt-env-conf-test] - -- pop the args as they come.
  20417. 2049.92 s [opt-env-conf-test] - _ ->
  20418. 2049.92 s [opt-env-conf-test] - let go = \case
  20419. 2049.92 s [opt-env-conf-test] - [] -> Nothing
  20420. 2049.92 s [opt-env-conf-test] - (Dead : rest) -> go rest
  20421. 2049.92 s [opt-env-conf-test] - (Live a' : rest) -> Just (a', rest)
  20422. 2049.92 s [opt-env-conf-test] - in case go afters of
  20423. 2049.92 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  20424. 2049.92 s [opt-env-conf-test] - Just (firstLive, rest) ->
  20425. 2049.92 s [opt-env-conf-test] - -- We need to leave the dead argument there so that
  20426. 2049.92 s [opt-env-conf-test] - -- we don't consume the double-dash as an argument
  20427. 2049.92 s [opt-env-conf-test] - -- after consuming all the arguments after it as bare
  20428. 2049.92 s [opt-env-conf-test] - -- arguments.
  20429. 2049.92 s [opt-env-conf-test] - [ ( Just $ renderArg firstLive,
  20430. 2049.92 s [opt-env-conf-test] - Args befores (Live ArgBareDoubleDash : Dead : rest)
  20431. 2049.92 s [opt-env-conf-test] - )
  20432. 2049.92 s [opt-env-conf-test] - ]
  20433. 2049.92 s [opt-env-conf-test] - ArgDashed {} ->
  20434. 2049.92 s [opt-env-conf-test] - -- Dead after dashed, two options, in order that they should be considered:
  20435. 2049.92 s [opt-env-conf-test] - -- * The dashed is a switch (don't consume an arg)
  20436. 2049.92 s [opt-env-conf-test] - -- * The dashed is an argument
  20437. 2049.92 s [opt-env-conf-test] - -- TODO we need to continue looking too
  20438. 2049.92 s [opt-env-conf-test] - let switchCase =
  20439. 2049.92 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [firstArg]) afters)
  20440. 2049.92 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  20441. 2049.92 s [opt-env-conf-test] - ]
  20442. 2049.92 s [opt-env-conf-test] - in case afters of
  20443. 2049.92 s [opt-env-conf-test] - -- Last argument is is dashed, that's the same as being followed by a dead argument
  20444. 2049.92 s [opt-env-conf-test] - [] -> switchCase
  20445. 2049.93 s [opt-env-conf-test] - (Dead : _) -> switchCase
  20446. 2049.93 s [opt-env-conf-test] - (Live a' : rest) ->
  20447. 2049.93 s [opt-env-conf-test] - -- Live after dashed, three options, in order that they should be considered:
  20448. 2049.93 s [opt-env-conf-test] - -- * The dashed is an option and the live is the value
  20449. 2049.93 s [opt-env-conf-test] - -- * The dashed is a switch and the live is an argument
  20450. 2049.93 s [opt-env-conf-test] - -- * The dashed is an argument
  20451. 2049.93 s [opt-env-conf-test] - ( case a' of
  20452. 2049.96 s [opt-env-conf-test] - ArgDashed {} ->
  20453. 2049.96 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a]) afters)
  20454. 2049.96 s [opt-env-conf-test] - ++ [ (Just (renderArg a), consumed)
  20455. 2049.96 s [opt-env-conf-test] - ]
  20456. 2049.96 s [opt-env-conf-test] - _ ->
  20457. 2049.96 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  20458. 2049.97 s [opt-env-conf-test] - ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  20459. 2049.97 s [opt-env-conf-test] - (Just (renderArg a), consumed)
  20460. 2049.97 s [opt-env-conf-test] - ]
  20461. 2049.97 s [opt-env-conf-test] - )
  20462. 2049.97 s [opt-env-conf-test]
  20463. 2049.97 s [opt-env-conf-test] -- | Consume an option.
  20464. 2049.97 s [opt-env-conf-test] --
  20465. 2049.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
  20466. 2049.97 s [opt-env-conf-test] @@ -222,9 +222,8 @@
  20467. 2049.97 s [opt-env-conf-test] Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
  20468. 2049.97 s [opt-env-conf-test] Nothing ->
  20469. 2049.97 s [opt-env-conf-test] -- TODO option value on the border
  20470. 2049.97 s [opt-env-conf-test] case go (argsAfter as) of
  20471. 2049.97 s [opt-env-conf-test] - Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
  20472. 2049.97 s [opt-env-conf-test] Nothing -> Nothing
  20473. 2049.97 s [opt-env-conf-test] where
  20474. 2049.97 s [opt-env-conf-test] go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
  20475. 2049.97 s [opt-env-conf-test] go = \case
  20476. 2049.97 s [opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
  20477. 2049.97 s [opt-env-conf-test] @@ -135,77 +135,76 @@
  20478. 2049.97 s [opt-env-conf-test] Nothing -> r
  20479. 2049.97 s [opt-env-conf-test] Just _ -> t : addConsumeNothing rest
  20480. 2049.97 s [opt-env-conf-test]
  20481. 2049.97 s [opt-env-conf-test] addConsumeNothing $ case argsAfter as of
  20482. 2049.97 s [opt-env-conf-test] - [] -> []
  20483. 2049.97 s [opt-env-conf-test] (firstArg : afters) ->
  20484. 2049.97 s [opt-env-conf-test] let befores = argsBefore as
  20485. 2049.97 s [opt-env-conf-test] consumed = Args (befores ++ [Dead]) afters
  20486. 2049.97 s [opt-env-conf-test] in case firstArg of
  20487. 2049.97 s [opt-env-conf-test] -- Skip any dead argument
  20488. 2049.97 s [opt-env-conf-test] Dead -> consumeArgument consumed
  20489. 2049.97 s [opt-env-conf-test] Live a -> case a of
  20490. 2049.97 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  20491. 2049.97 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  20492. 2049.97 s [opt-env-conf-test] -- A single dash is always an argument
  20493. 2049.97 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  20494. 2049.97 s [opt-env-conf-test] -- Bare double-dash
  20495. 2049.97 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  20496. 2049.97 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  20497. 2049.97 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  20498. 2049.97 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  20499. 2049.98 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  20500. 2049.98 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  20501. 2049.98 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  20502. 2049.98 s [opt-env-conf-test] [Dead] -> [(Nothing, Args befores [])]
  20503. 2049.98 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  20504. 2049.98 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  20505. 2049.98 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  20506. 2049.98 s [opt-env-conf-test] -- pop the args as they come.
  20507. 2049.98 s [opt-env-conf-test] _ ->
  20508. 2049.98 s [opt-env-conf-test] let go = \case
  20509. 2049.98 s [opt-env-conf-test] [] -> Nothing
  20510. 2049.98 s [opt-env-conf-test] (Dead : rest) -> go rest
  20511. 2049.98 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  20512. 2049.98 s [opt-env-conf-test] in case go afters of
  20513. 2049.98 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  20514. 2049.98 s [opt-env-conf-test] Just (firstLive, rest) ->
  20515. 2049.98 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  20516. 2049.98 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  20517. 2049.98 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  20518. 2049.98 s [opt-env-conf-test] -- arguments.
  20519. 2049.98 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  20520. 2049.98 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  20521. 2049.98 s [opt-env-conf-test] )
  20522. 2049.98 s [opt-env-conf-test] ]
  20523. 2049.98 s [opt-env-conf-test] ArgDashed {} ->
  20524. 2049.98 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  20525. 2049.98 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  20526. 2049.98 s [opt-env-conf-test] -- * The dashed is an argument
  20527. 2049.98 s [opt-env-conf-test] -- TODO we need to continue looking too
  20528. 2049.98 s [opt-env-conf-test] let switchCase =
  20529. 2049.98 s [opt-env-conf-test] consumeArgument (Args (befores ++ [firstArg]) afters)
  20530. 2049.98 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20531. 2049.98 s [opt-env-conf-test] ]
  20532. 2049.98 s [opt-env-conf-test] in case afters of
  20533. 2049.98 s [opt-env-conf-test] -- Last argument is is dashed, that's the same as being followed by a dead argument
  20534. 2049.98 s [opt-env-conf-test] [] -> switchCase
  20535. 2049.98 s [opt-env-conf-test] (Dead : _) -> switchCase
  20536. 2049.98 s [opt-env-conf-test] (Live a' : rest) ->
  20537. 2049.98 s [opt-env-conf-test] -- Live after dashed, three options, in order that they should be considered:
  20538. 2049.98 s [opt-env-conf-test] -- * The dashed is an option and the live is the value
  20539. 2049.98 s [opt-env-conf-test] -- * The dashed is a switch and the live is an argument
  20540. 2049.98 s [opt-env-conf-test] -- * The dashed is an argument
  20541. 2049.98 s [opt-env-conf-test] ( case a' of
  20542. 2049.98 s [opt-env-conf-test] ArgDashed {} ->
  20543. 2049.98 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a]) afters)
  20544. 2049.98 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  20545. 2049.98 s [opt-env-conf-test] ]
  20546. 2049.98 s [opt-env-conf-test] _ ->
  20547. 2049.98 s [opt-env-conf-test] consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  20548. 2049.98 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  20549. 2060.66 s [opt-env-conf-test] (JusKilled: 1235
  20550. 2060.68 s [opt-env-conf-test] (of which timed out: 1)
  20551. 2060.68 s [opt-env-conf-test] Survived: 294
  20552. 2060.68 s [opt-env-conf-test] Uncovered: 381
  20553. 2060.69 s [opt-env-conf-test]
  20554. 2060.69 s [opt-env-conf-test] Timed-out mutations:
  20555. 2060.69 s [opt-env-conf-test]
  20556. 2060.69 s [opt-env-conf-test] [timed out after 30.27777s]
  20557. 2060.69 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completion.hs:272:14-29
  20558. 2060.69 s [opt-env-conf-test] @@ -269,7 +269,7 @@
  20559. 2060.69 s [opt-env-conf-test] Nothing -> pure Nothing
  20560. 2060.69 s [opt-env-conf-test] Just os -> do
  20561. 2060.69 s [opt-env-conf-test] after <- get
  20562. 2060.69 s [opt-env-conf-test] - if after == before
  20563. 2060.69 s [opt-env-conf-test] + if False
  20564. 2060.69 s [opt-env-conf-test] then -- State did not advance; return these completions.
  20565. 2060.69 s [opt-env-conf-test] pure $ Just os
  20566. 2060.69 s [opt-env-conf-test] else -- State advanced: something was consumed. Try the
  20567. 2060.69 s [opt-env-conf-test]
  20568. 2060.69 s [opt-env-conf-test] Surviving mutations:
  20569. 2060.69 s [opt-env-conf-test]
  20570. 2060.69 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Error.hs:66:40-45
  20571. 2060.69 s [opt-env-conf-test] @@ -63,7 +63,7 @@
  20572. 2060.69 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20573. 2060.69 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20574. 2060.69 s [opt-env-conf-test] ParseErrorMissingCommand cs -> not $ null cs
  20575. 2060.69 s [opt-env-conf-test] - ParseErrorUnrecognisedCommand _ _ -> False
  20576. 2060.69 s [opt-env-conf-test] + ParseErrorUnrecognisedCommand _ _ -> True
  20577. 2060.69 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20578. 2060.69 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20579. 2060.69 s [opt-env-conf-test] ParseErrorMissingCapability _ -> False
  20580. 2060.69 s [opt-env-conf-test]
  20581. 2060.69 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:34-47
  20582. 2060.69 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  20583. 2060.69 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  20584. 2060.69 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20585. 2060.69 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20586. 2060.69 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  20587. 2060.69 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> True
  20588. 2060.69 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20589. 2060.69 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20590. 2060.69 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20591. 2060.69 s [opt-env-conf-test]
  20592. 2060.69 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:40-47
  20593. 2060.69 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  20594. 2060.69 s [opt-env-conf-test] ParseErrorEnvRead _ _ -> False
  20595. 2060.69 s [opt-env-conf-test] ParseErrorMissingConfVal _ -> True
  20596. 2060.69 s [opt-env-conf-test] ParseErrorConfigRead _ _ -> False
  20597. 2060.69 s [opt-env-conf-test] - ParseErrorMissingCommand cs -> not $ null cs
  20598. 2060.69 s [opt-env-conf-test] + ParseErrorMissingCommand cs -> not $ False
  20599. 2060.69 s [opt-env-conf-test] ParseErrorUnrecognisedCommand _ _ -> False
  20600. 2060.70 s [opt-env-conf-test] ParseErrorAllOrNothing _ -> False
  20601. 2060.70 s [opt-env-conf-test] ParseErrorUnrecognised _ -> False
  20602. 2060.70 s [opt-env-conf-test]
  20603. 2060.70 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  20604. 2060.70 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  20605. 2060.70 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  20606. 2060.70 s [opt-env-conf-test] renderError ParseError {..} =
  20607. 2060.70 s [opt-env-conf-test] concat
  20608. 2060.70 s [opt-env-conf-test] [ case parseErrorMessage of
  20609. 2060.70 s [opt-env-conf-test] ParseErrorEmpty ->
  20610. 2060.70 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  20611. 2060.70 s [opt-env-conf-test] ParseErrorEmptySetting ->
  20612. 2060.70 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  20613. 2060.70 s [opt-env-conf-test] ParseErrorNoReaders ->
  20614. 2060.70 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  20615. 2060.70 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  20616. 2060.70 s [opt-env-conf-test] ]
  20617. 2060.70 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  20618. 2060.70 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  20619. 2060.70 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  20620. 2060.70 s [opt-env-conf-test] [ "Missing argument: "
  20621. 2060.70 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  20622. 2060.70 s [opt-env-conf-test] ]
  20623. 2060.70 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  20624. 2060.70 s [opt-env-conf-test] ["Failed to read argument: "]
  20625. 2060.70 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20626. 2060.70 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20627. 2060.70 s [opt-env-conf-test] ParseErrorMissingOption o ->
  20628. 2060.70 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20629. 2060.70 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  20630. 2060.70 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20631. 2060.70 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  20632. 2060.70 s [opt-env-conf-test] ["Failed to read option: "]
  20633. 2060.70 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20634. 2060.70 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20635. 2060.70 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  20636. 2060.70 s [opt-env-conf-test] ["Missing env var: "]
  20637. 2060.70 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20638. 2060.70 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  20639. 2060.70 s [opt-env-conf-test] ["Failed to read env var: "]
  20640. 2060.70 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20641. 2060.70 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20642. 2060.70 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  20643. 2060.70 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  20644. 2060.70 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  20645. 2060.70 s [opt-env-conf-test] ["Failed to parse configuration: "]
  20646. 2060.70 s [opt-env-conf-test] : maybe [] renderConfDoc md
  20647. 2060.70 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  20648. 2060.70 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  20649. 2060.70 s [opt-env-conf-test] ["Missing command, available commands:"]
  20650. 2060.71 s [opt-env-conf-test] : availableCommandsLines cs
  20651. 2060.71 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  20652. 2060.71 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  20653. 2060.71 s [opt-env-conf-test] [fore blue "available commands:"]
  20654. 2060.71 s [opt-env-conf-test] ]
  20655. 2060.71 s [opt-env-conf-test] ++ availableCommandsLines cs
  20656. 2060.71 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  20657. 2060.71 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."],
  20658. 2060.71 s [opt-env-conf-test] ["The following settings have been parsed:"]
  20659. 2060.71 s [opt-env-conf-test] ]
  20660. 2060.71 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  20661. 2060.71 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  20662. 2060.71 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  20663. 2060.71 s [opt-env-conf-test] - ParseErrorMissingCapability cap ->
  20664. 2060.71 s [opt-env-conf-test] - ["Missing capability: " : [chunk $ T.pack $ show cap]],
  20665. 2060.71 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  20666. 2060.71 s [opt-env-conf-test] ]
  20667. 2060.71 s [opt-env-conf-test]
  20668. 2060.71 s [opt-env-conf-test]
  20669. 2060.71 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  20670. 2060.71 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  20671. 2060.71 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  20672. 2060.71 s [opt-env-conf-test] renderError ParseError {..} =
  20673. 2060.71 s [opt-env-conf-test] concat
  20674. 2060.71 s [opt-env-conf-test] [ case parseErrorMessage of
  20675. 2060.71 s [opt-env-conf-test] ParseErrorEmpty ->
  20676. 2060.71 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  20677. 2060.71 s [opt-env-conf-test] ParseErrorEmptySetting ->
  20678. 2060.71 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  20679. 2060.71 s [opt-env-conf-test] ParseErrorNoReaders ->
  20680. 2060.71 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  20681. 2060.71 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  20682. 2060.71 s [opt-env-conf-test] ]
  20683. 2060.71 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  20684. 2060.71 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  20685. 2060.71 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  20686. 2060.71 s [opt-env-conf-test] [ "Missing argument: "
  20687. 2060.71 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  20688. 2060.71 s [opt-env-conf-test] ]
  20689. 2060.71 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  20690. 2060.71 s [opt-env-conf-test] ["Failed to read argument: "]
  20691. 2060.71 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20692. 2060.71 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20693. 2060.71 s [opt-env-conf-test] ParseErrorMissingOption o ->
  20694. 2060.71 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20695. 2060.71 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  20696. 2060.71 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20697. 2060.71 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  20698. 2060.71 s [opt-env-conf-test] ["Failed to read option: "]
  20699. 2060.71 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20700. 2060.71 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20701. 2060.71 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  20702. 2060.71 s [opt-env-conf-test] ["Missing env var: "]
  20703. 2060.71 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20704. 2060.72 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  20705. 2060.72 s [opt-env-conf-test] ["Failed to read env var: "]
  20706. 2060.72 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20707. 2060.72 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20708. 2060.72 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  20709. 2060.72 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  20710. 2060.72 s [opt-env-conf-test] - ParseErrorConfigRead md s ->
  20711. 2060.72 s [opt-env-conf-test] - ["Failed to parse configuration: "]
  20712. 2060.72 s [opt-env-conf-test] - : maybe [] renderConfDoc md
  20713. 2060.72 s [opt-env-conf-test] - ++ [[chunk $ T.pack s]]
  20714. 2060.72 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  20715. 2060.72 s [opt-env-conf-test] ["Missing command, available commands:"]
  20716. 2060.72 s [opt-env-conf-test] : availableCommandsLines cs
  20717. 2060.72 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  20718. 2060.72 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  20719. 2060.72 s [opt-env-conf-test] [fore blue "available commands:"]
  20720. 2060.72 s [opt-env-conf-test] ]
  20721. 2060.72 s [opt-env-conf-test] ++ availableCommandsLines cs
  20722. 2060.72 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  20723. 2060.72 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."],
  20724. 2060.72 s [opt-env-conf-test] ["The following settings have been parsed:"]
  20725. 2060.72 s [opt-env-conf-test] ]
  20726. 2060.72 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  20727. 2060.72 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  20728. 2060.72 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  20729. 2060.72 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  20730. 2060.72 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  20731. 2060.72 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  20732. 2060.72 s [opt-env-conf-test] ]
  20733. 2060.72 s [opt-env-conf-test]
  20734. 2060.72 s [opt-env-conf-test]
  20735. 2060.72 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  20736. 2060.72 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  20737. 2060.72 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  20738. 2060.72 s [opt-env-conf-test] renderError ParseError {..} =
  20739. 2060.72 s [opt-env-conf-test] concat
  20740. 2060.72 s [opt-env-conf-test] [ case parseErrorMessage of
  20741. 2060.72 s [opt-env-conf-test] ParseErrorEmpty ->
  20742. 2060.72 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  20743. 2060.72 s [opt-env-conf-test] ParseErrorEmptySetting ->
  20744. 2060.72 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  20745. 2060.72 s [opt-env-conf-test] ParseErrorNoReaders ->
  20746. 2060.72 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  20747. 2060.72 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  20748. 2060.72 s [opt-env-conf-test] ]
  20749. 2060.72 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  20750. 2060.72 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  20751. 2060.72 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  20752. 2060.73 s [opt-env-conf-test] [ "Missing argument: "
  20753. 2060.73 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  20754. 2060.73 s [opt-env-conf-test] ]
  20755. 2060.73 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  20756. 2060.73 s [opt-env-conf-test] ["Failed to read argument: "]
  20757. 2060.73 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20758. 2060.73 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20759. 2060.73 s [opt-env-conf-test] ParseErrorMissingOption o ->
  20760. 2060.73 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20761. 2060.73 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  20762. 2060.73 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20763. 2060.73 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  20764. 2060.73 s [opt-env-conf-test] ["Failed to read option: "]
  20765. 2060.73 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20766. 2060.73 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20767. 2060.73 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  20768. 2060.73 s [opt-env-conf-test] ["Missing env var: "]
  20769. 2060.73 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20770. 2060.73 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  20771. 2060.73 s [opt-env-conf-test] ["Failed to read env var: "]
  20772. 2060.73 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20773. 2060.73 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20774. 2060.73 s [opt-env-conf-test] - ParseErrorMissingConfVal md ->
  20775. 2060.73 s [opt-env-conf-test] - ["Missing config value: "] : maybe [] renderConfDoc md
  20776. 2060.73 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  20777. 2060.73 s [opt-env-conf-test] ["Failed to parse configuration: "]
  20778. 2060.73 s [opt-env-conf-test] : maybe [] renderConfDoc md
  20779. 2060.73 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  20780. 2060.73 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  20781. 2060.73 s [opt-env-conf-test] ["Missing command, available commands:"]
  20782. 2060.73 s [opt-env-conf-test] : availableCommandsLines cs
  20783. 2060.73 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  20784. 2060.73 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  20785. 2060.73 s [opt-env-conf-test] [fore blue "available commands:"]
  20786. 2060.73 s [opt-env-conf-test] ]
  20787. 2060.73 s [opt-env-conf-test] ++ availableCommandsLines cs
  20788. 2060.73 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  20789. 2060.73 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."],
  20790. 2060.73 s [opt-env-conf-test] ["The following settings have been parsed:"]
  20791. 2060.73 s [opt-env-conf-test] ]
  20792. 2060.73 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  20793. 2060.73 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  20794. 2060.73 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  20795. 2060.73 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  20796. 2060.73 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  20797. 2060.73 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  20798. 2060.73 s [opt-env-conf-test] ]
  20799. 2060.73 s [opt-env-conf-test]
  20800. 2060.73 s [opt-env-conf-test]
  20801. 2060.73 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  20802. 2060.73 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  20803. 2060.73 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  20804. 2060.73 s [opt-env-conf-test] renderError ParseError {..} =
  20805. 2060.73 s [opt-env-conf-test] concat
  20806. 2060.73 s [opt-env-conf-test] [ case parseErrorMessage of
  20807. 2060.73 s [opt-env-conf-test] ParseErrorEmpty ->
  20808. 2060.73 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  20809. 2060.73 s [opt-env-conf-test] ParseErrorEmptySetting ->
  20810. 2060.73 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  20811. 2060.73 s [opt-env-conf-test] ParseErrorNoReaders ->
  20812. 2060.73 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  20813. 2060.73 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  20814. 2060.74 s [opt-env-conf-test] ]
  20815. 2060.74 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  20816. 2060.74 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  20817. 2060.74 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  20818. 2060.74 s [opt-env-conf-test] [ "Missing argument: "
  20819. 2060.74 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  20820. 2060.74 s [opt-env-conf-test] ]
  20821. 2060.74 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  20822. 2060.74 s [opt-env-conf-test] ["Failed to read argument: "]
  20823. 2060.74 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20824. 2060.74 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20825. 2060.74 s [opt-env-conf-test] ParseErrorMissingOption o ->
  20826. 2060.74 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20827. 2060.74 s [opt-env-conf-test] - ParseErrorMissingSwitch o ->
  20828. 2060.74 s [opt-env-conf-test] - ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20829. 2060.74 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  20830. 2060.74 s [opt-env-conf-test] ["Failed to read option: "]
  20831. 2060.74 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20832. 2060.74 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20833. 2060.74 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  20834. 2060.74 s [opt-env-conf-test] ["Missing env var: "]
  20835. 2060.74 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20836. 2060.74 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  20837. 2060.74 s [opt-env-conf-test] ["Failed to read env var: "]
  20838. 2060.74 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20839. 2060.74 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20840. 2060.74 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  20841. 2060.74 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  20842. 2060.74 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  20843. 2060.74 s [opt-env-conf-test] ["Failed to parse configuration: "]
  20844. 2060.74 s [opt-env-conf-test] : maybe [] renderConfDoc md
  20845. 2060.74 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  20846. 2060.74 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  20847. 2060.74 s [opt-env-conf-test] ["Missing command, available commands:"]
  20848. 2060.74 s [opt-env-conf-test] : availableCommandsLines cs
  20849. 2060.74 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  20850. 2060.74 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  20851. 2060.74 s [opt-env-conf-test] [fore blue "available commands:"]
  20852. 2060.74 s [opt-env-conf-test] ]
  20853. 2060.74 s [opt-env-conf-test] ++ availableCommandsLines cs
  20854. 2060.74 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  20855. 2060.74 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."],
  20856. 2060.74 s [opt-env-conf-test] ["The following settings have been parsed:"]
  20857. 2060.74 s [opt-env-conf-test] ]
  20858. 2060.74 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  20859. 2060.74 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  20860. 2060.74 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  20861. 2060.74 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  20862. 2060.74 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  20863. 2060.74 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  20864. 2060.74 s [opt-env-conf-test] ]
  20865. 2060.74 s [opt-env-conf-test]
  20866. 2060.74 s [opt-env-conf-test]
  20867. 2060.74 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  20868. 2060.74 s [opt-env-conf-test] @@ -80,63 +80,59 @@
  20869. 2060.74 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  20870. 2060.74 s [opt-env-conf-test] renderError ParseError {..} =
  20871. 2060.74 s [opt-env-conf-test] concat
  20872. 2060.74 s [opt-env-conf-test] [ case parseErrorMessage of
  20873. 2060.74 s [opt-env-conf-test] ParseErrorEmpty ->
  20874. 2060.74 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  20875. 2060.74 s [opt-env-conf-test] ParseErrorEmptySetting ->
  20876. 2060.74 s [opt-env-conf-test] [["This setting has not been configured to be able to parse anything."]]
  20877. 2060.74 s [opt-env-conf-test] - ParseErrorNoReaders ->
  20878. 2060.74 s [opt-env-conf-test] - [ ["No readers were configured for an argument, option, or env."],
  20879. 2060.74 s [opt-env-conf-test] - ["You should not be seeing this error because the linting phase should have caught it."]
  20880. 2060.74 s [opt-env-conf-test] - ]
  20881. 2060.74 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  20882. 2060.74 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  20883. 2060.74 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  20884. 2060.74 s [opt-env-conf-test] [ "Missing argument: "
  20885. 2060.74 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  20886. 2060.74 s [opt-env-conf-test] ]
  20887. 2060.74 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  20888. 2060.74 s [opt-env-conf-test] ["Failed to read argument: "]
  20889. 2060.74 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20890. 2060.74 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20891. 2060.74 s [opt-env-conf-test] ParseErrorMissingOption o ->
  20892. 2060.74 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20893. 2060.74 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  20894. 2060.74 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20895. 2060.74 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  20896. 2060.74 s [opt-env-conf-test] ["Failed to read option: "]
  20897. 2060.74 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20898. 2060.74 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20899. 2060.74 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  20900. 2060.74 s [opt-env-conf-test] ["Missing env var: "]
  20901. 2060.74 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20902. 2060.74 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  20903. 2060.74 s [opt-env-conf-test] ["Failed to read env var: "]
  20904. 2060.74 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20905. 2060.74 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20906. 2060.74 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  20907. 2060.74 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  20908. 2060.75 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  20909. 2060.75 s [opt-env-conf-test] ["Failed to parse configuration: "]
  20910. 2060.75 s [opt-env-conf-test] : maybe [] renderConfDoc md
  20911. 2060.75 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  20912. 2060.75 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  20913. 2060.75 s [opt-env-conf-test] ["Missing command, available commands:"]
  20914. 2060.75 s [opt-env-conf-test] : availableCommandsLines cs
  20915. 2060.75 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  20916. 2060.75 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  20917. 2060.75 s [opt-env-conf-test] [fore blue "available commands:"]
  20918. 2060.75 s [opt-env-conf-test] ]
  20919. 2060.75 s [opt-env-conf-test] ++ availableCommandsLines cs
  20920. 2060.75 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  20921. 2060.75 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."],
  20922. 2060.75 s [opt-env-conf-test] ["The following settings have been parsed:"]
  20923. 2060.75 s [opt-env-conf-test] ]
  20924. 2060.75 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  20925. 2060.75 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  20926. 2060.75 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  20927. 2060.75 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  20928. 2060.75 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  20929. 2060.75 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  20930. 2060.75 s [opt-env-conf-test] ]
  20931. 2060.75 s [opt-env-conf-test]
  20932. 2060.75 s [opt-env-conf-test]
  20933. 2060.75 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
  20934. 2060.75 s [opt-env-conf-test] @@ -80,63 +80,61 @@
  20935. 2060.75 s [opt-env-conf-test] renderError :: ParseError -> [[Chunk]]
  20936. 2060.75 s [opt-env-conf-test] renderError ParseError {..} =
  20937. 2060.75 s [opt-env-conf-test] concat
  20938. 2060.75 s [opt-env-conf-test] [ case parseErrorMessage of
  20939. 2060.75 s [opt-env-conf-test] ParseErrorEmpty ->
  20940. 2060.75 s [opt-env-conf-test] [["Hit the 'empty' case of the Parser type, this should not happen."]]
  20941. 2060.75 s [opt-env-conf-test] - ParseErrorEmptySetting ->
  20942. 2060.75 s [opt-env-conf-test] - [["This setting has not been configured to be able to parse anything."]]
  20943. 2060.75 s [opt-env-conf-test] ParseErrorNoReaders ->
  20944. 2060.75 s [opt-env-conf-test] [ ["No readers were configured for an argument, option, or env."],
  20945. 2060.75 s [opt-env-conf-test] ["You should not be seeing this error because the linting phase should have caught it."]
  20946. 2060.75 s [opt-env-conf-test] ]
  20947. 2060.75 s [opt-env-conf-test] ParseErrorCheckFailed _ err ->
  20948. 2060.75 s [opt-env-conf-test] [["Check failed: "], [chunk $ T.pack err]]
  20949. 2060.75 s [opt-env-conf-test] ParseErrorMissingArgument o ->
  20950. 2060.75 s [opt-env-conf-test] [ "Missing argument: "
  20951. 2060.75 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong o)
  20952. 2060.75 s [opt-env-conf-test] ]
  20953. 2060.75 s [opt-env-conf-test] ParseErrorArgumentRead md errs ->
  20954. 2060.75 s [opt-env-conf-test] ["Failed to read argument: "]
  20955. 2060.75 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20956. 2060.75 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20957. 2060.75 s [opt-env-conf-test] ParseErrorMissingOption o ->
  20958. 2060.75 s [opt-env-conf-test] ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20959. 2060.75 s [opt-env-conf-test] ParseErrorMissingSwitch o ->
  20960. 2060.75 s [opt-env-conf-test] ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
  20961. 2060.75 s [opt-env-conf-test] ParseErrorOptionRead md errs ->
  20962. 2060.75 s [opt-env-conf-test] ["Failed to read option: "]
  20963. 2060.75 s [opt-env-conf-test] : unwordsChunks (maybe [] renderOptDocLong md)
  20964. 2060.75 s [opt-env-conf-test] : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20965. 2060.75 s [opt-env-conf-test] ParseErrorMissingEnvVar md ->
  20966. 2060.75 s [opt-env-conf-test] ["Missing env var: "]
  20967. 2060.75 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20968. 2060.75 s [opt-env-conf-test] ParseErrorEnvRead md errs ->
  20969. 2060.75 s [opt-env-conf-test] ["Failed to read env var: "]
  20970. 2060.75 s [opt-env-conf-test] : maybe [] renderEnvDoc md
  20971. 2060.75 s [opt-env-conf-test] ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
  20972. 2060.75 s [opt-env-conf-test] ParseErrorMissingConfVal md ->
  20973. 2060.75 s [opt-env-conf-test] ["Missing config value: "] : maybe [] renderConfDoc md
  20974. 2060.75 s [opt-env-conf-test] ParseErrorConfigRead md s ->
  20975. 2060.75 s [opt-env-conf-test] ["Failed to parse configuration: "]
  20976. 2060.75 s [opt-env-conf-test] : maybe [] renderConfDoc md
  20977. 2060.75 s [opt-env-conf-test] ++ [[chunk $ T.pack s]]
  20978. 2060.75 s [opt-env-conf-test] ParseErrorMissingCommand cs ->
  20979. 2060.75 s [opt-env-conf-test] ["Missing command, available commands:"]
  20980. 2060.75 s [opt-env-conf-test] : availableCommandsLines cs
  20981. 2060.75 s [opt-env-conf-test] ParseErrorUnrecognisedCommand c cs ->
  20982. 2060.75 s [opt-env-conf-test] [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
  20983. 2060.75 s [opt-env-conf-test] [fore blue "available commands:"]
  20984. 2060.75 s [opt-env-conf-test] ]
  20985. 2060.75 s [opt-env-conf-test] ++ availableCommandsLines cs
  20986. 2060.75 s [opt-env-conf-test] ParseErrorAllOrNothing locs ->
  20987. 2060.75 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."],
  20988. 2060.75 s [opt-env-conf-test] ["The following settings have been parsed:"]
  20989. 2060.75 s [opt-env-conf-test] ]
  20990. 2060.75 s [opt-env-conf-test] ++ map (pure . srcLocChunk) (M.elems locs)
  20991. 2060.75 s [opt-env-conf-test] ParseErrorUnrecognised leftovers ->
  20992. 2060.75 s [opt-env-conf-test] ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
  20993. 2060.75 s [opt-env-conf-test] ParseErrorMissingCapability cap ->
  20994. 2060.75 s [opt-env-conf-test] ["Missing capability: " : [chunk $ T.pack $ show cap]],
  20995. 2060.75 s [opt-env-conf-test] maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
  20996. 2060.75 s [opt-env-conf-test] ]
  20997. 2060.75 s [opt-env-conf-test]
  20998. 2060.75 s [opt-env-conf-test]
  20999. 2060.75 s [opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
  21000. 2060.75 s [opt-env-conf-test] @@ -60,14 +60,13 @@
  21001. 2060.75 s [opt-env-conf-test] instance Validity Arg where
  21002. 2060.75 s [opt-env-conf-test] validate arg =
  21003. 2060.75 s [opt-env-conf-test] mconcat
  21004. 2060.75 s [opt-env-conf-test] - [ genericValidate arg,
  21005. 2060.75 s [opt-env-conf-test] case arg of
  21006. 2060.75 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  21007. 2060.75 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  21008. 2060.75 s [opt-env-conf-test] ('-' : _) -> False
  21009. 2060.75 s [opt-env-conf-test] _ -> True
  21010. 2060.75 s [opt-env-conf-test] _ -> valid
  21011. 2060.75 s [opt-env-conf-test] ]
  21012. 2060.75 s [opt-env-conf-test]
  21013. 2060.75 s [opt-env-conf-test] instance IsString Arg where
  21014. 2060.75 s [opt-env-conf-test] fromString = parseArg
  21015. 2060.75 s [opt-env-conf-test]
  21016. 2060.75 s [opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
  21017. 2060.75 s [opt-env-conf-test] @@ -60,14 +60,7 @@
  21018. 2060.75 s [opt-env-conf-test] instance Validity Arg where
  21019. 2060.75 s [opt-env-conf-test] validate arg =
  21020. 2060.76 s [opt-env-conf-test] mconcat
  21021. 2060.76 s [opt-env-conf-test] - [ genericValidate arg,
  21022. 2060.76 s [opt-env-conf-test] - case arg of
  21023. 2060.76 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  21024. 2060.76 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  21025. 2060.76 s [opt-env-conf-test] - ('-' : _) -> False
  21026. 2060.76 s [opt-env-conf-test] - _ -> True
  21027. 2060.76 s [opt-env-conf-test] - _ -> valid
  21028. 2060.76 s [opt-env-conf-test] ]
  21029. 2060.76 s [opt-env-conf-test]
  21030. 2060.76 s [opt-env-conf-test] instance IsString Arg where
  21031. 2060.76 s [opt-env-conf-test] fromString = parseArg
  21032. 2060.76 s [opt-env-conf-test]
  21033. 2060.76 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  21034. 2060.76 s [opt-env-conf-test] @@ -61,12 +61,9 @@
  21035. 2060.76 s [opt-env-conf-test] validate arg =
  21036. 2060.76 s [opt-env-conf-test] mconcat
  21037. 2060.76 s [opt-env-conf-test] [ genericValidate arg,
  21038. 2060.76 s [opt-env-conf-test] case arg of
  21039. 2060.76 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  21040. 2060.76 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  21041. 2060.76 s [opt-env-conf-test] - ('-' : _) -> False
  21042. 2060.76 s [opt-env-conf-test] - _ -> True
  21043. 2060.76 s [opt-env-conf-test] _ -> valid
  21044. 2060.76 s [opt-env-conf-test] ]
  21045. 2060.76 s [opt-env-conf-test]
  21046. 2060.76 s [opt-env-conf-test] instance IsString Arg where
  21047. 2060.76 s [opt-env-conf-test]
  21048. 2060.76 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
  21049. 2060.76 s [opt-env-conf-test] @@ -61,12 +61,11 @@
  21050. 2060.76 s [opt-env-conf-test] validate arg =
  21051. 2060.76 s [opt-env-conf-test] mconcat
  21052. 2060.76 s [opt-env-conf-test] [ genericValidate arg,
  21053. 2060.76 s [opt-env-conf-test] case arg of
  21054. 2060.76 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  21055. 2060.76 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  21056. 2060.76 s [opt-env-conf-test] ('-' : _) -> False
  21057. 2060.76 s [opt-env-conf-test] _ -> True
  21058. 2060.76 s [opt-env-conf-test] _ -> valid
  21059. 2060.76 s [opt-env-conf-test] ]
  21060. 2060.76 s [opt-env-conf-test]
  21061. 2060.76 s [opt-env-conf-test] instance IsString Arg where
  21062. 2060.76 s [opt-env-conf-test]
  21063. 2060.76 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:66:64-22
  21064. 2060.76 s [opt-env-conf-test] @@ -63,9 +63,8 @@
  21065. 2060.76 s [opt-env-conf-test] [ genericValidate arg,
  21066. 2060.76 s [opt-env-conf-test] case arg of
  21067. 2060.76 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  21068. 2060.76 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  21069. 2060.76 s [opt-env-conf-test] - ('-' : _) -> False
  21070. 2060.76 s [opt-env-conf-test] _ -> True
  21071. 2060.76 s [opt-env-conf-test] _ -> valid
  21072. 2060.76 s [opt-env-conf-test] ]
  21073. 2060.76 s [opt-env-conf-test]
  21074. 2060.76 s [opt-env-conf-test]
  21075. 2060.76 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:66:64-22
  21076. 2060.76 s [opt-env-conf-test] @@ -63,9 +63,9 @@
  21077. 2060.76 s [opt-env-conf-test] [ genericValidate arg,
  21078. 2060.76 s [opt-env-conf-test] case arg of
  21079. 2060.76 s [opt-env-conf-test] ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  21080. 2060.76 s [opt-env-conf-test] - ArgPlain s -> declare "does not start with a dash" $ case s of
  21081. 2060.76 s [opt-env-conf-test] + ArgPlain s -> declare "does not start with a dash" $ True-> declare "does not start with a dash" $ case s of
  21082. 2060.76 s [opt-env-conf-test] ('-' : _) -> False
  21083. 2060.76 s [opt-env-conf-test] _ -> True
  21084. 2060.76 s [opt-env-conf-test] _ -> valid
  21085. 2060.76 s [opt-env-conf-test] ]
  21086. 2060.76 s [opt-env-conf-test]
  21087. 2060.76 s [opt-env-conf-test]
  21088. 2060.76 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:65:103-111
  21089. 2060.76 s [opt-env-conf-test] @@ -62,7 +62,7 @@
  21090. 2060.76 s [opt-env-conf-test] mconcat
  21091. 2060.76 s [opt-env-conf-test] [ genericValidate arg,
  21092. 2060.76 s [opt-env-conf-test] case arg of
  21093. 2060.76 s [opt-env-conf-test] - ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
  21094. 2060.76 s [opt-env-conf-test] + ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
  21095. 2060.76 s [opt-env-conf-test] ArgPlain s -> declare "does not start with a dash" $ case s of
  21096. 2060.76 s [opt-env-conf-test] ('-' : _) -> False
  21097. 2060.76 s [opt-env-conf-test] _ -> True
  21098. 2060.76 s [opt-env-conf-test]
  21099. 2060.76 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:399:18-32
  21100. 2060.76 s [opt-env-conf-test] @@ -396,10 +396,9 @@
  21101. 2060.76 s [opt-env-conf-test] instance Validity Dashed
  21102. 2060.76 s [opt-env-conf-test]
  21103. 2060.76 s [opt-env-conf-test] instance IsString Dashed where
  21104. 2060.76 s [opt-env-conf-test] fromString s = case fromString s of
  21105. 2060.77 s [opt-env-conf-test] ArgDashed True cs -> DashedLong cs
  21106. 2060.77 s [opt-env-conf-test] ArgDashed False (c :| []) -> DashedShort c
  21107. 2060.77 s [opt-env-conf-test] - _ -> error "Invalid dashed"
  21108. 2060.77 s [opt-env-conf-test]
  21109. 2060.77 s [opt-env-conf-test] renderDashed :: Dashed -> String
  21110. 2060.77 s [opt-env-conf-test] renderDashed = \case
  21111. 2060.77 s [opt-env-conf-test]
  21112. 2060.77 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:248:77-83
  21113. 2060.77 s [opt-env-conf-test] @@ -245,7 +245,7 @@
  21114. 2060.77 s [opt-env-conf-test] case consumeDashedOption dasheds isLong cs of
  21115. 2060.77 s [opt-env-conf-test] Nothing -> second (Live k :) <$> go rest
  21116. 2060.77 s [opt-env-conf-test] Just Nothing -> Just (renderArg v, Dead : rest')
  21117. 2060.77 s [opt-env-conf-test] - Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
  21118. 2060.77 s [opt-env-conf-test] + Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
  21119. 2060.77 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  21120. 2060.77 s [opt-env-conf-test] _ -> second (Live k :) <$> go rest
  21121. 2060.77 s [opt-env-conf-test]
  21122. 2060.77 s [opt-env-conf-test]
  21123. 2060.77 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:152:36-28
  21124. 2060.77 s [opt-env-conf-test] @@ -149,34 +149,33 @@
  21125. 2060.77 s [opt-env-conf-test] -- A single dash is always an argument
  21126. 2060.77 s [opt-env-conf-test] ArgBareDash -> [(Just "-", consumed)]
  21127. 2060.77 s [opt-env-conf-test] -- Bare double-dash
  21128. 2060.77 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  21129. 2060.77 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  21130. 2060.77 s [opt-env-conf-test] [] -> [(Just "--", consumed)]
  21131. 2060.77 s [opt-env-conf-test] -- If there's only a dead argument after the double dash, that
  21132. 2060.77 s [opt-env-conf-test] -- means we've been parsing bare args and are now done.
  21133. 2060.77 s [opt-env-conf-test] -- We can stop consuming but get rid of the tombstone as well.
  21134. 2060.77 s [opt-env-conf-test] -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
  21135. 2060.77 s [opt-env-conf-test] - [Dead] -> [(Nothing, Args befores [])]
  21136. 2060.77 s [opt-env-conf-test] -- If it's not the last argument, anything after here is an argument.
  21137. 2060.77 s [opt-env-conf-test] -- In order to not have to maintain whether the cursor is after
  21138. 2060.77 s [opt-env-conf-test] -- a bare double dash already, we keep the cursor here and just
  21139. 2060.77 s [opt-env-conf-test] -- pop the args as they come.
  21140. 2060.77 s [opt-env-conf-test] _ ->
  21141. 2060.77 s [opt-env-conf-test] let go = \case
  21142. 2060.77 s [opt-env-conf-test] [] -> Nothing
  21143. 2060.77 s [opt-env-conf-test] (Dead : rest) -> go rest
  21144. 2060.77 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  21145. 2060.77 s [opt-env-conf-test] in case go afters of
  21146. 2060.77 s [opt-env-conf-test] Nothing -> [(Nothing, as)]
  21147. 2060.77 s [opt-env-conf-test] Just (firstLive, rest) ->
  21148. 2060.77 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  21149. 2060.77 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  21150. 2060.77 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  21151. 2060.77 s [opt-env-conf-test] -- arguments.
  21152. 2060.77 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  21153. 2060.77 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  21154. 2060.77 s [opt-env-conf-test] )
  21155. 2060.77 s [opt-env-conf-test] ]
  21156. 2060.77 s [opt-env-conf-test] ArgDashed {} ->
  21157. 2060.77 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  21158. 2060.77 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  21159. 2060.77 s [opt-env-conf-test]
  21160. 2060.77 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:169:23-28
  21161. 2060.77 s [opt-env-conf-test] @@ -166,17 +166,16 @@
  21162. 2060.77 s [opt-env-conf-test] [] -> Nothing
  21163. 2060.77 s [opt-env-conf-test] (Dead : rest) -> go rest
  21164. 2060.77 s [opt-env-conf-test] (Live a' : rest) -> Just (a', rest)
  21165. 2060.78 s [opt-env-conf-test] in case go afters of
  21166. 2060.78 s [opt-env-conf-test] - Nothing -> [(Nothing, as)]
  21167. 2060.78 s [opt-env-conf-test] Just (firstLive, rest) ->
  21168. 2060.78 s [opt-env-conf-test] -- We need to leave the dead argument there so that
  21169. 2060.78 s [opt-env-conf-test] -- we don't consume the double-dash as an argument
  21170. 2060.78 s [opt-env-conf-test] -- after consuming all the arguments after it as bare
  21171. 2060.78 s [opt-env-conf-test] -- arguments.
  21172. 2060.78 s [opt-env-conf-test] [ ( Just $ renderArg firstLive,
  21173. 2060.78 s [opt-env-conf-test] Args befores (Live ArgBareDoubleDash : Dead : rest)
  21174. 2060.78 s [opt-env-conf-test] )
  21175. 2060.78 s [opt-env-conf-test] ]
  21176. 2060.78 s [opt-env-conf-test] ArgDashed {} ->
  21177. 2060.78 s [opt-env-conf-test] -- Dead after dashed, two options, in order that they should be considered:
  21178. 2060.78 s [opt-env-conf-test] -- * The dashed is a switch (don't consume an arg)
  21179. 2060.78 s [opt-env-conf-test]
  21180. 2060.78 s [opt-env-conf-test] MaybeOp at src/OptEnvConf/Args.hs:150:32-40
  21181. 2060.78 s [opt-env-conf-test] @@ -147,7 +147,7 @@
  21182. 2060.78 s [opt-env-conf-test] -- Plain argument: that's the only option, consume it.
  21183. 2060.78 s [opt-env-conf-test] ArgPlain plain -> [(Just plain, consumed)]
  21184. 2060.78 s [opt-env-conf-test] -- A single dash is always an argument
  21185. 2060.78 s [opt-env-conf-test] - ArgBareDash -> [(Just "-", consumed)]
  21186. 2060.78 s [opt-env-conf-test] + ArgBareDash -> [(Nothing, consumed)]
  21187. 2060.78 s [opt-env-conf-test] -- Bare double-dash
  21188. 2060.78 s [opt-env-conf-test] ArgBareDoubleDash -> case afters of
  21189. 2060.78 s [opt-env-conf-test] -- If it's the last argument, consume it as an argument
  21190. 2060.78 s [opt-env-conf-test]
  21191. 2060.78 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:339:40-46
  21192. 2060.78 s [opt-env-conf-test] @@ -336,7 +336,7 @@
  21193. 2060.78 s [opt-env-conf-test] Just Nothing -> Just $ Dead : rest
  21194. 2060.78 s [opt-env-conf-test] Just (Just (cs', needTombstone)) ->
  21195. 2060.78 s [opt-env-conf-test] let rest' = if needTombstone then Dead : rest else rest
  21196. 2060.78 s [opt-env-conf-test] - in Just $ Live (ArgDashed isLong cs') : rest'
  21197. 2060.78 s [opt-env-conf-test] + in Just $ Live (ArgDashed False cs') : rest'
  21198. 2060.78 s [opt-env-conf-test] _ -> do
  21199. 2060.78 s [opt-env-conf-test] os <- go rest
  21200. 2060.78 s [opt-env-conf-test] pure $ Live o : os
  21201. 2060.78 s [opt-env-conf-test]
  21202. 2060.78 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:365:34-43
  21203. 2060.78 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  21204. 2060.78 s [opt-env-conf-test] go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
  21205. 2060.78 s [opt-env-conf-test] go (c :| rest) =
  21206. 2060.78 s [opt-env-conf-test] if c `elem` cs
  21207. 2060.78 s [opt-env-conf-test] - then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
  21208. 2060.78 s [opt-env-conf-test] + then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
  21209. 2060.78 s [opt-env-conf-test] else do
  21210. 2060.78 s [opt-env-conf-test] rest' <- NE.nonEmpty rest
  21211. 2060.78 s [opt-env-conf-test] new <- go rest'
  21212. 2060.78 s [opt-env-conf-test]
  21213. 2060.78 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Check.hs:44:7-71
  21214. 2060.78 s [opt-env-conf-test] @@ -41,7 +41,6 @@
  21215. 2060.78 s [opt-env-conf-test] exitSuccess
  21216. 2060.78 s [opt-env-conf-test] CheckSucceeded _ -> do
  21217. 2060.78 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  21218. 2060.78 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout ["Settings parsed successfully."]
  21219. 2060.78 s [opt-env-conf-test] exitSuccess
  21220. 2060.78 s [opt-env-conf-test]
  21221. 2060.78 s [opt-env-conf-test] renderMissingCapabilities :: NonEmpty MissingCapability -> [Chunk]
  21222. 2060.78 s [opt-env-conf-test]
  21223. 2060.78 s [opt-env-conf-test] MaybeOp at src/OptEnvConf/Check.hs:80:42-56
  21224. 2060.78 s [opt-env-conf-test] @@ -77,7 +77,7 @@
  21225. 2060.78 s [opt-env-conf-test] Maybe JSON.Object ->
  21226. 2060.78 s [opt-env-conf-test] IO (CheckResult a)
  21227. 2060.78 s [opt-env-conf-test] runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
  21228. 2060.78 s [opt-env-conf-test] - errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
  21229. 2060.78 s [opt-env-conf-test] + errOrSets <- runParserOn capabilities (Nothing) p args envVars mConfig
  21230. 2060.78 s [opt-env-conf-test] pure $ case errOrSets of
  21231. 2060.78 s [opt-env-conf-test] Right a -> CheckSucceeded a
  21232. 2060.78 s [opt-env-conf-test] Left errs ->
  21233. 2060.78 s [opt-env-conf-test]
  21234. 2060.78 s [opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:117:31-43
  21235. 2060.78 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  21236. 2060.78 s [opt-env-conf-test] Just (Rel rf) -> do
  21237. 2060.78 s [opt-env-conf-test] let dir = parent rf
  21238. 2060.78 s [opt-env-conf-test] let ad = baseDir </> dir
  21239. 2060.78 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  21240. 2060.78 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  21241. 2060.78 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  21242. 2060.78 s [opt-env-conf-test] pure
  21243. 2060.78 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  21244. 2060.78 s [opt-env-conf-test]
  21245. 2060.78 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  21246. 2060.78 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  21247. 2060.78 s [opt-env-conf-test] Just (Rel rf) -> do
  21248. 2060.78 s [opt-env-conf-test] let dir = parent rf
  21249. 2060.78 s [opt-env-conf-test] let ad = baseDir </> dir
  21250. 2060.78 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  21251. 2060.78 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  21252. 2060.79 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  21253. 2060.79 s [opt-env-conf-test] pure
  21254. 2060.79 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  21255. 2060.79 s [opt-env-conf-test]
  21256. 2060.79 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
  21257. 2060.79 s [opt-env-conf-test] @@ -114,7 +114,7 @@
  21258. 2060.79 s [opt-env-conf-test] Just (Rel rf) -> do
  21259. 2060.79 s [opt-env-conf-test] let dir = parent rf
  21260. 2060.79 s [opt-env-conf-test] let ad = baseDir </> dir
  21261. 2060.79 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  21262. 2060.79 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  21263. 2060.79 s [opt-env-conf-test] (ds, fs) <- listDirForgiving ad
  21264. 2060.79 s [opt-env-conf-test] pure
  21265. 2060.79 s [opt-env-conf-test] ( map (fromRelDir . (dir </>)) $ filterHidden ds,
  21266. 2060.79 s [opt-env-conf-test]
  21267. 2060.79 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
  21268. 2060.79 s [opt-env-conf-test] @@ -168,24 +168,19 @@
  21269. 2060.79 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  21270. 2060.79 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  21271. 2060.79 s [opt-env-conf-test]
  21272. 2060.79 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  21273. 2060.79 s [opt-env-conf-test] Nothing -> pure []
  21274. 2060.79 s [opt-env-conf-test] - Just (Abs af) -> do
  21275. 2060.79 s [opt-env-conf-test] - let dir = parent af
  21276. 2060.79 s [opt-env-conf-test] - let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
  21277. 2060.79 s [opt-env-conf-test] - (ds, _) <- listDirForgiving dir
  21278. 2060.79 s [opt-env-conf-test] - pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  21279. 2060.79 s [opt-env-conf-test] Just (Rel rf) ->
  21280. 2060.79 s [opt-env-conf-test] if fp == "."
  21281. 2060.79 s [opt-env-conf-test] then do
  21282. 2060.79 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  21283. 2060.79 s [opt-env-conf-test] pure (map fromRelDir ds)
  21284. 2060.79 s [opt-env-conf-test] else do
  21285. 2060.79 s [opt-env-conf-test] let dir = parent rf
  21286. 2060.79 s [opt-env-conf-test] let ad = baseDir </> dir
  21287. 2060.79 s [opt-env-conf-test] let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  21288. 2060.79 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  21289. 2060.79 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  21290. 2060.79 s [opt-env-conf-test]
  21291. 2060.79 s [opt-env-conf-test] pure $
  21292. 2060.79 s [opt-env-conf-test] concat
  21293. 2060.79 s [opt-env-conf-test]
  21294. 2060.79 s [opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:186:35-47
  21295. 2060.79 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  21296. 2060.79 s [opt-env-conf-test] else do
  21297. 2060.79 s [opt-env-conf-test] let dir = parent rf
  21298. 2060.79 s [opt-env-conf-test] let ad = baseDir </> dir
  21299. 2060.79 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  21300. 2060.79 s [opt-env-conf-test] + let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
  21301. 2060.79 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  21302. 2060.79 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  21303. 2060.79 s [opt-env-conf-test]
  21304. 2060.79 s [opt-env-conf-test]
  21305. 2060.79 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  21306. 2060.79 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  21307. 2060.79 s [opt-env-conf-test] else do
  21308. 2060.79 s [opt-env-conf-test] let dir = parent rf
  21309. 2060.79 s [opt-env-conf-test] let ad = baseDir </> dir
  21310. 2060.79 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  21311. 2060.79 s [opt-env-conf-test] + let filterHidden = if False then id else filter (not . hiddenRel)
  21312. 2060.79 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  21313. 2060.79 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  21314. 2060.79 s [opt-env-conf-test]
  21315. 2060.79 s [opt-env-conf-test]
  21316. 2060.79 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
  21317. 2060.79 s [opt-env-conf-test] @@ -183,7 +183,7 @@
  21318. 2060.79 s [opt-env-conf-test] else do
  21319. 2060.79 s [opt-env-conf-test] let dir = parent rf
  21320. 2060.79 s [opt-env-conf-test] let ad = baseDir </> dir
  21321. 2060.79 s [opt-env-conf-test] - let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
  21322. 2060.79 s [opt-env-conf-test] + let filterHidden = if True then id else filter (not . hiddenRel)
  21323. 2060.79 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  21324. 2060.79 s [opt-env-conf-test] pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
  21325. 2060.79 s [opt-env-conf-test]
  21326. 2060.79 s [opt-env-conf-test]
  21327. 2060.79 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:179:12-21
  21328. 2060.79 s [opt-env-conf-test] @@ -176,7 +176,7 @@
  21329. 2060.79 s [opt-env-conf-test] (ds, _) <- listDirForgiving dir
  21330. 2060.79 s [opt-env-conf-test] pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
  21331. 2060.79 s [opt-env-conf-test] Just (Rel rf) ->
  21332. 2060.79 s [opt-env-conf-test] - if fp == "."
  21333. 2060.79 s [opt-env-conf-test] + if False
  21334. 2060.79 s [opt-env-conf-test] then do
  21335. 2060.79 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  21336. 2060.79 s [opt-env-conf-test] pure (map fromRelDir ds)
  21337. 2060.79 s [opt-env-conf-test]
  21338. 2060.79 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
  21339. 2060.79 s [opt-env-conf-test] @@ -154,19 +154,16 @@
  21340. 2060.79 s [opt-env-conf-test] directoryPathFromDir baseDir prefix fp fp' = do
  21341. 2060.79 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  21342. 2060.79 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  21343. 2060.79 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  21344. 2060.79 s [opt-env-conf-test] Nothing -> case fp of
  21345. 2060.79 s [opt-env-conf-test] [] -> do
  21346. 2060.79 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  21347. 2060.79 s [opt-env-conf-test] pure (map fromRelDir $ filter (not . hiddenRel) ds)
  21348. 2060.79 s [opt-env-conf-test] _ -> pure []
  21349. 2060.79 s [opt-env-conf-test] - Just (Abs ad) -> do
  21350. 2060.80 s [opt-env-conf-test] - (ds, _) <- listDirForgiving ad
  21351. 2060.80 s [opt-env-conf-test] - pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  21352. 2060.80 s [opt-env-conf-test] Just (Rel rd) -> do
  21353. 2060.80 s [opt-env-conf-test] let ad = baseDir </> rd
  21354. 2060.80 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  21355. 2060.80 s [opt-env-conf-test] pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
  21356. 2060.80 s [opt-env-conf-test]
  21357. 2060.80 s [opt-env-conf-test] dirsFromPartialListing <- case parseSomeDir fp of
  21358. 2060.80 s [opt-env-conf-test] Nothing -> pure []
  21359. 2060.80 s [opt-env-conf-test]
  21360. 2060.80 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
  21361. 2060.80 s [opt-env-conf-test] @@ -155,11 +155,10 @@
  21362. 2060.80 s [opt-env-conf-test] fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
  21363. 2060.80 s [opt-env-conf-test] let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
  21364. 2060.80 s [opt-env-conf-test] dirsFromParentListing <- case parseSomeDir fp of
  21365. 2060.80 s [opt-env-conf-test] Nothing -> case fp of
  21366. 2060.80 s [opt-env-conf-test] [] -> do
  21367. 2060.80 s [opt-env-conf-test] (ds, _) <- listDirRel baseDir
  21368. 2060.80 s [opt-env-conf-test] pure (map fromRelDir $ filter (not . hiddenRel) ds)
  21369. 2060.80 s [opt-env-conf-test] - _ -> pure []
  21370. 2060.80 s [opt-env-conf-test] Just (Abs ad) -> do
  21371. 2060.80 s [opt-env-conf-test] (ds, _) <- listDirForgiving ad
  21372. 2060.80 s [opt-env-conf-test] pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
  21373. 2060.80 s [opt-env-conf-test]
  21374. 2060.80 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  21375. 2060.80 s [opt-env-conf-test] @@ -66,10 +66,9 @@
  21376. 2060.80 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  21377. 2060.80 s [opt-env-conf-test]
  21378. 2060.80 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  21379. 2060.80 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  21380. 2060.80 s [opt-env-conf-test] [] -> []
  21381. 2060.80 s [opt-env-conf-test] [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  21382. 2060.80 s [opt-env-conf-test] - _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  21383. 2060.80 s [opt-env-conf-test]
  21384. 2060.80 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  21385. 2060.80 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  21386. 2060.80 s [opt-env-conf-test]
  21387. 2060.80 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
  21388. 2060.80 s [opt-env-conf-test] @@ -66,10 +66,9 @@
  21389. 2060.80 s [opt-env-conf-test] defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
  21390. 2060.80 s [opt-env-conf-test]
  21391. 2060.80 s [opt-env-conf-test] exampleValuesChunks :: [String] -> [Chunk]
  21392. 2060.80 s [opt-env-conf-test] exampleValuesChunks vals = case vals of
  21393. 2060.80 s [opt-env-conf-test] - [] -> []
  21394. 2060.80 s [opt-env-conf-test] [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
  21395. 2060.80 s [opt-env-conf-test] _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
  21396. 2060.80 s [opt-env-conf-test]
  21397. 2060.80 s [opt-env-conf-test] mHelpChunk :: Maybe Help -> Chunk
  21398. 2060.80 s [opt-env-conf-test] mHelpChunk = maybe (fore red "undocumented") helpChunk
  21399. 2060.80 s [opt-env-conf-test]
  21400. 2060.80 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:87:27-50
  21401. 2060.80 s [opt-env-conf-test] @@ -84,9 +84,8 @@
  21402. 2060.80 s [opt-env-conf-test] syntaxChunk = fore blue . chunk . T.pack
  21403. 2060.80 s [opt-env-conf-test]
  21404. 2060.80 s [opt-env-conf-test] capabilitiesChunks :: Set Capability -> [Chunk]
  21405. 2060.80 s [opt-env-conf-test] capabilitiesChunks caps = case Set.toList caps of
  21406. 2060.80 s [opt-env-conf-test] - [] -> []
  21407. 2060.80 s [opt-env-conf-test] cs -> intersperse ", " (map capabilityChunk cs)
  21408. 2060.80 s [opt-env-conf-test]
  21409. 2060.80 s [opt-env-conf-test] capabilityChunk :: Capability -> Chunk
  21410. 2060.80 s [opt-env-conf-test] capabilityChunk = fore green . chunk . unCapability
  21411. 2060.80 s [opt-env-conf-test]
  21412. 2060.80 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  21413. 2060.80 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  21414. 2060.80 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  21415. 2060.80 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  21416. 2060.80 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  21417. 2060.80 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  21418. 2060.80 s [opt-env-conf-test] (Nothing, _) -> o2
  21419. 2060.80 s [opt-env-conf-test] - (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  21420. 2060.80 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  21421. 2060.80 s [opt-env-conf-test]
  21422. 2060.80 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  21423. 2060.80 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  21424. 2060.80 s [opt-env-conf-test]
  21425. 2060.80 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
  21426. 2060.80 s [opt-env-conf-test] @@ -85,10 +85,9 @@
  21427. 2060.81 s [opt-env-conf-test] in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
  21428. 2060.81 s [opt-env-conf-test] in go' $ NE.map T.pack configValSettingPath
  21429. 2060.81 s [opt-env-conf-test] combineOption :: Option -> Option -> Option
  21430. 2060.81 s [opt-env-conf-test] combineOption o1 o2 = case (optionType o1, optionType o2) of
  21431. 2060.81 s [opt-env-conf-test] - (Nothing, _) -> o2
  21432. 2060.81 s [opt-env-conf-test] (Just ot1, Nothing) -> o2 {optionType = Just ot1}
  21433. 2060.81 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  21434. 2060.81 s [opt-env-conf-test]
  21435. 2060.81 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  21436. 2060.81 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  21437. 2060.81 s [opt-env-conf-test]
  21438. 2060.81 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
  21439. 2060.81 s [opt-env-conf-test] @@ -91,8 +91,7 @@
  21440. 2060.81 s [opt-env-conf-test] (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
  21441. 2060.81 s [opt-env-conf-test]
  21442. 2060.81 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  21443. 2060.81 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  21444. 2060.81 s [opt-env-conf-test] - (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  21445. 2060.81 s [opt-env-conf-test] _ -> OptionTypeOneOf [ot1, ot2]
  21446. 2060.81 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  21447. 2060.81 s [opt-env-conf-test] goCommand = go . commandParser
  21448. 2060.81 s [opt-env-conf-test]
  21449. 2060.81 s [opt-env-conf-test] ListLit at src/OptEnvConf/Nix.hs:96:28-38
  21450. 2060.81 s [opt-env-conf-test] @@ -93,6 +93,5 @@
  21451. 2060.81 s [opt-env-conf-test] combineOptionType :: OptionType -> OptionType -> OptionType
  21452. 2060.81 s [opt-env-conf-test] combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
  21453. 2060.81 s [opt-env-conf-test] (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
  21454. 2060.81 s [opt-env-conf-test] - _ -> OptionTypeOneOf [ot1, ot2]
  21455. 2060.81 s [opt-env-conf-test] goCommand :: Command a -> Map Text Option
  21456. 2060.81 s [opt-env-conf-test] goCommand = go . commandParser
  21457. 2060.81 s [opt-env-conf-test]
  21458. 2060.81 s [opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
  21459. 2060.81 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  21460. 2060.81 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21461. 2060.81 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21462. 2060.81 s [opt-env-conf-test] and
  21463. 2060.81 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21464. 2060.81 s [opt-env-conf-test] null settingEnvVars,
  21465. 2060.81 s [opt-env-conf-test] - null settingConfigVals
  21466. 2060.81 s [opt-env-conf-test] ]
  21467. 2060.81 s [opt-env-conf-test]
  21468. 2060.81 s [opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
  21469. 2060.81 s [opt-env-conf-test] @@ -337,7 +337,6 @@
  21470. 2060.81 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21471. 2060.81 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21472. 2060.81 s [opt-env-conf-test] and
  21473. 2060.81 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21474. 2060.81 s [opt-env-conf-test] null settingEnvVars,
  21475. 2060.81 s [opt-env-conf-test] null settingConfigVals
  21476. 2060.81 s [opt-env-conf-test] ]
  21477. 2060.81 s [opt-env-conf-test]
  21478. 2060.81 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:342:15-37
  21479. 2060.81 s [opt-env-conf-test] @@ -339,5 +339,5 @@
  21480. 2060.81 s [opt-env-conf-test] and
  21481. 2060.81 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21482. 2060.81 s [opt-env-conf-test] null settingEnvVars,
  21483. 2060.81 s [opt-env-conf-test] - null settingConfigVals
  21484. 2060.81 s [opt-env-conf-test] + True
  21485. 2060.81 s [opt-env-conf-test] ]
  21486. 2060.81 s [opt-env-conf-test]
  21487. 2060.81 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:341:15-34
  21488. 2060.82 s [opt-env-conf-test] @@ -338,6 +338,6 @@
  21489. 2060.82 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21490. 2060.82 s [opt-env-conf-test] and
  21491. 2060.82 s [opt-env-conf-test] [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21492. 2060.82 s [opt-env-conf-test] - null settingEnvVars,
  21493. 2060.82 s [opt-env-conf-test] + True,
  21494. 2060.82 s [opt-env-conf-test] null settingConfigVals
  21495. 2060.82 s [opt-env-conf-test] ]
  21496. 2060.82 s [opt-env-conf-test]
  21497. 2060.82 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-82
  21498. 2060.82 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21499. 2060.82 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21500. 2060.82 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21501. 2060.82 s [opt-env-conf-test] and
  21502. 2060.82 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21503. 2060.82 s [opt-env-conf-test] + [ True,
  21504. 2060.82 s [opt-env-conf-test] null settingEnvVars,
  21505. 2060.82 s [opt-env-conf-test] null settingConfigVals
  21506. 2060.82 s [opt-env-conf-test] ]
  21507. 2060.82 s [opt-env-conf-test]
  21508. 2060.82 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-82
  21509. 2060.82 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21510. 2060.82 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21511. 2060.82 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21512. 2060.82 s [opt-env-conf-test] and
  21513. 2060.82 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21514. 2060.82 s [opt-env-conf-test] + [ settingTryArgument || True,
  21515. 2060.82 s [opt-env-conf-test] null settingEnvVars,
  21516. 2060.82 s [opt-env-conf-test] null settingConfigVals
  21517. 2060.82 s [opt-env-conf-test] ]
  21518. 2060.82 s [opt-env-conf-test]
  21519. 2060.82 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:57-82
  21520. 2060.82 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21521. 2060.82 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21522. 2060.82 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21523. 2060.82 s [opt-env-conf-test] and
  21524. 2060.82 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21525. 2060.82 s [opt-env-conf-test] + [ settingTryArgument || settingTryOption || True,
  21526. 2060.82 s [opt-env-conf-test] null settingEnvVars,
  21527. 2060.82 s [opt-env-conf-test] null settingConfigVals
  21528. 2060.82 s [opt-env-conf-test] ]
  21529. 2060.82 s [opt-env-conf-test]
  21530. 2060.82 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:340:37-53
  21531. 2060.82 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21532. 2060.82 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21533. 2060.82 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21534. 2060.82 s [opt-env-conf-test] and
  21535. 2060.82 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21536. 2060.82 s [opt-env-conf-test] + [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
  21537. 2060.82 s [opt-env-conf-test] null settingEnvVars,
  21538. 2060.82 s [opt-env-conf-test] null settingConfigVals
  21539. 2060.82 s [opt-env-conf-test] ]
  21540. 2060.82 s [opt-env-conf-test]
  21541. 2060.82 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  21542. 2060.82 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21543. 2060.82 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21544. 2060.82 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21545. 2060.82 s [opt-env-conf-test] and
  21546. 2060.82 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21547. 2060.82 s [opt-env-conf-test] + [ settingTryArgument || False || isJust settingSwitchValue,
  21548. 2060.82 s [opt-env-conf-test] null settingEnvVars,
  21549. 2060.82 s [opt-env-conf-test] null settingConfigVals
  21550. 2060.82 s [opt-env-conf-test] ]
  21551. 2060.82 s [opt-env-conf-test]
  21552. 2060.82 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
  21553. 2060.82 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21554. 2060.82 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21555. 2060.82 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21556. 2060.82 s [opt-env-conf-test] and
  21557. 2060.82 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21558. 2060.82 s [opt-env-conf-test] + [ settingTryArgument || True || isJust settingSwitchValue,
  21559. 2060.82 s [opt-env-conf-test] null settingEnvVars,
  21560. 2060.82 s [opt-env-conf-test] null settingConfigVals
  21561. 2060.82 s [opt-env-conf-test] ]
  21562. 2060.82 s [opt-env-conf-test]
  21563. 2060.83 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-33
  21564. 2060.83 s [opt-env-conf-test] @@ -337,7 +337,7 @@
  21565. 2060.83 s [opt-env-conf-test] -- 'many' is only allowed if something is being consumed and it's
  21566. 2060.83 s [opt-env-conf-test] -- impossible for nothing to be consumed.
  21567. 2060.83 s [opt-env-conf-test] and
  21568. 2060.83 s [opt-env-conf-test] - [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
  21569. 2060.83 s [opt-env-conf-test] + [ True || settingTryOption || isJust settingSwitchValue,
  21570. 2060.83 s [opt-env-conf-test] null settingEnvVars,
  21571. 2060.83 s [opt-env-conf-test] null settingConfigVals
  21572. 2060.83 s [opt-env-conf-test] ]
  21573. 2060.83 s [opt-env-conf-test]
  21574. 2060.83 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-24
  21575. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21576. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21577. 2060.83 s [opt-env-conf-test] c1 <- go p1
  21578. 2060.83 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21579. 2060.83 s [opt-env-conf-test] - pure $ c1 || c2
  21580. 2060.83 s [opt-env-conf-test] + pure $ not (c1 || c2)
  21581. 2060.83 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21582. 2060.83 s [opt-env-conf-test] case settingHelp of
  21583. 2060.83 s [opt-env-conf-test] Nothing ->
  21584. 2060.83 s [opt-env-conf-test]
  21585. 2060.83 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Lint.hs:288:16-24
  21586. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21587. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21588. 2060.83 s [opt-env-conf-test] c1 <- go p1
  21589. 2060.83 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21590. 2060.83 s [opt-env-conf-test] - pure $ c1 || c2
  21591. 2060.83 s [opt-env-conf-test] + pure $ c1 && c2
  21592. 2060.83 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21593. 2060.83 s [opt-env-conf-test] case settingHelp of
  21594. 2060.83 s [opt-env-conf-test] Nothing ->
  21595. 2060.83 s [opt-env-conf-test]
  21596. 2060.83 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  21597. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21598. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21599. 2060.83 s [opt-env-conf-test] c1 <- go p1
  21600. 2060.83 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21601. 2060.83 s [opt-env-conf-test] - pure $ c1 || c2
  21602. 2060.83 s [opt-env-conf-test] + pure $ False
  21603. 2060.83 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21604. 2060.83 s [opt-env-conf-test] case settingHelp of
  21605. 2060.83 s [opt-env-conf-test] Nothing ->
  21606. 2060.83 s [opt-env-conf-test]
  21607. 2060.83 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
  21608. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21609. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21610. 2060.83 s [opt-env-conf-test] c1 <- go p1
  21611. 2060.83 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21612. 2060.83 s [opt-env-conf-test] - pure $ c1 || c2
  21613. 2060.83 s [opt-env-conf-test] + pure $ True
  21614. 2060.83 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21615. 2060.83 s [opt-env-conf-test] case settingHelp of
  21616. 2060.83 s [opt-env-conf-test] Nothing ->
  21617. 2060.83 s [opt-env-conf-test]
  21618. 2060.83 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:22-24
  21619. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21620. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21621. 2060.83 s [opt-env-conf-test] c1 <- go p1
  21622. 2060.83 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21623. 2060.83 s [opt-env-conf-test] - pure $ c1 || c2
  21624. 2060.83 s [opt-env-conf-test] + pure $ c1 || not (c2)
  21625. 2060.83 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21626. 2060.83 s [opt-env-conf-test] case settingHelp of
  21627. 2060.83 s [opt-env-conf-test] Nothing ->
  21628. 2060.83 s [opt-env-conf-test]
  21629. 2060.83 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  21630. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21631. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21632. 2060.83 s [opt-env-conf-test] c1 <- go p1
  21633. 2060.83 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21634. 2060.83 s [opt-env-conf-test] - pure $ c1 || c2
  21635. 2060.83 s [opt-env-conf-test] + pure $ c1 || False
  21636. 2060.83 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21637. 2060.83 s [opt-env-conf-test] case settingHelp of
  21638. 2060.83 s [opt-env-conf-test] Nothing ->
  21639. 2060.83 s [opt-env-conf-test]
  21640. 2060.83 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
  21641. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21642. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21643. 2060.83 s [opt-env-conf-test] c1 <- go p1
  21644. 2060.83 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21645. 2060.83 s [opt-env-conf-test] - pure $ c1 || c2
  21646. 2060.83 s [opt-env-conf-test] + pure $ c1 || True
  21647. 2060.83 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21648. 2060.83 s [opt-env-conf-test] case settingHelp of
  21649. 2060.83 s [opt-env-conf-test] Nothing ->
  21650. 2060.83 s [opt-env-conf-test]
  21651. 2060.83 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-18
  21652. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21653. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21654. 2060.83 s [opt-env-conf-test] c1 <- go p1
  21655. 2060.83 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21656. 2060.83 s [opt-env-conf-test] - pure $ c1 || c2
  21657. 2060.83 s [opt-env-conf-test] + pure $ not (c1) || c2
  21658. 2060.83 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21659. 2060.83 s [opt-env-conf-test] case settingHelp of
  21660. 2060.83 s [opt-env-conf-test] Nothing ->
  21661. 2060.83 s [opt-env-conf-test]
  21662. 2060.83 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  21663. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21664. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21665. 2060.83 s [opt-env-conf-test] c1 <- go p1
  21666. 2060.83 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21667. 2060.83 s [opt-env-conf-test] - pure $ c1 || c2
  21668. 2060.83 s [opt-env-conf-test] + pure $ False || c2
  21669. 2060.83 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21670. 2060.83 s [opt-env-conf-test] case settingHelp of
  21671. 2060.83 s [opt-env-conf-test] Nothing ->
  21672. 2060.83 s [opt-env-conf-test]
  21673. 2060.83 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
  21674. 2060.83 s [opt-env-conf-test] @@ -285,7 +285,7 @@
  21675. 2060.83 s [opt-env-conf-test] ParserWithConfig _ p1 p2 -> do
  21676. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21677. 2060.84 s [opt-env-conf-test] c2 <- local (const True) (go p2)
  21678. 2060.84 s [opt-env-conf-test] - pure $ c1 || c2
  21679. 2060.84 s [opt-env-conf-test] + pure $ True || c2
  21680. 2060.84 s [opt-env-conf-test] ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
  21681. 2060.84 s [opt-env-conf-test] case settingHelp of
  21682. 2060.84 s [opt-env-conf-test] Nothing ->
  21683. 2060.84 s [opt-env-conf-test]
  21684. 2060.84 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:14-24
  21685. 2060.84 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21686. 2060.84 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21687. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21688. 2060.84 s [opt-env-conf-test] c2 <- go p2
  21689. 2060.84 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21690. 2060.84 s [opt-env-conf-test] + pure not ((c1 && c2)) -- TODO: is this right?
  21691. 2060.84 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21692. 2060.84 s [opt-env-conf-test] ParserMany mLoc p -> do
  21693. 2060.84 s [opt-env-conf-test] c <- go p
  21694. 2060.84 s [opt-env-conf-test]
  21695. 2060.84 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  21696. 2060.84 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21697. 2060.84 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21698. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21699. 2060.84 s [opt-env-conf-test] c2 <- go p2
  21700. 2060.84 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21701. 2060.84 s [opt-env-conf-test] + pure False -- TODO: is this right?
  21702. 2060.84 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21703. 2060.84 s [opt-env-conf-test] ParserMany mLoc p -> do
  21704. 2060.84 s [opt-env-conf-test] c <- go p
  21705. 2060.84 s [opt-env-conf-test]
  21706. 2060.84 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
  21707. 2060.84 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21708. 2060.84 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21709. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21710. 2060.84 s [opt-env-conf-test] c2 <- go p2
  21711. 2060.84 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21712. 2060.84 s [opt-env-conf-test] + pure True -- TODO: is this right?
  21713. 2060.84 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21714. 2060.84 s [opt-env-conf-test] ParserMany mLoc p -> do
  21715. 2060.84 s [opt-env-conf-test] c <- go p
  21716. 2060.84 s [opt-env-conf-test]
  21717. 2060.84 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-23
  21718. 2060.84 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21719. 2060.84 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21720. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21721. 2060.84 s [opt-env-conf-test] c2 <- go p2
  21722. 2060.84 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21723. 2060.84 s [opt-env-conf-test] + pure (not (c1 && c2)) -- TODO: is this right?
  21724. 2060.84 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21725. 2060.84 s [opt-env-conf-test] ParserMany mLoc p -> do
  21726. 2060.84 s [opt-env-conf-test] c <- go p
  21727. 2060.84 s [opt-env-conf-test]
  21728. 2060.84 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Lint.hs:259:15-23
  21729. 2060.84 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21730. 2060.84 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21731. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21732. 2060.84 s [opt-env-conf-test] c2 <- go p2
  21733. 2060.84 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21734. 2060.84 s [opt-env-conf-test] + pure (c1 || c2) -- TODO: is this right?
  21735. 2060.84 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21736. 2060.84 s [opt-env-conf-test] ParserMany mLoc p -> do
  21737. 2060.84 s [opt-env-conf-test] c <- go p
  21738. 2060.84 s [opt-env-conf-test]
  21739. 2060.84 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  21740. 2060.84 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21741. 2060.84 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21742. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21743. 2060.84 s [opt-env-conf-test] c2 <- go p2
  21744. 2060.84 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21745. 2060.84 s [opt-env-conf-test] + pure (False) -- TODO: is this right?
  21746. 2060.84 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21747. 2060.84 s [opt-env-conf-test] ParserMany mLoc p -> do
  21748. 2060.84 s [opt-env-conf-test] c <- go p
  21749. 2060.84 s [opt-env-conf-test]
  21750. 2060.84 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
  21751. 2060.84 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21752. 2060.84 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21753. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21754. 2060.84 s [opt-env-conf-test] c2 <- go p2
  21755. 2060.84 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21756. 2060.84 s [opt-env-conf-test] + pure (True) -- TODO: is this right?
  21757. 2060.84 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21758. 2060.84 s [opt-env-conf-test] ParserMany mLoc p -> do
  21759. 2060.84 s [opt-env-conf-test] c <- go p
  21760. 2060.84 s [opt-env-conf-test]
  21761. 2060.84 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:21-23
  21762. 2060.84 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21763. 2060.84 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21764. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21765. 2060.84 s [opt-env-conf-test] c2 <- go p2
  21766. 2060.84 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21767. 2060.84 s [opt-env-conf-test] + pure (c1 && not (c2)) -- TODO: is this right?
  21768. 2060.84 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21769. 2060.84 s [opt-env-conf-test] ParserMany mLoc p -> do
  21770. 2060.84 s [opt-env-conf-test] c <- go p
  21771. 2060.84 s [opt-env-conf-test]
  21772. 2060.84 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  21773. 2060.84 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21774. 2060.84 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21775. 2060.84 s [opt-env-conf-test] c1 <- go p1
  21776. 2060.84 s [opt-env-conf-test] c2 <- go p2
  21777. 2060.84 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21778. 2060.85 s [opt-env-conf-test] + pure (c1 && False) -- TODO: is this right?
  21779. 2060.85 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21780. 2060.85 s [opt-env-conf-test] ParserMany mLoc p -> do
  21781. 2060.85 s [opt-env-conf-test] c <- go p
  21782. 2060.85 s [opt-env-conf-test]
  21783. 2060.85 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
  21784. 2060.85 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21785. 2060.85 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21786. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21787. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21788. 2060.85 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21789. 2060.85 s [opt-env-conf-test] + pure (c1 && True) -- TODO: is this right?
  21790. 2060.85 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21791. 2060.85 s [opt-env-conf-test] ParserMany mLoc p -> do
  21792. 2060.85 s [opt-env-conf-test] c <- go p
  21793. 2060.85 s [opt-env-conf-test]
  21794. 2060.85 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-17
  21795. 2060.85 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21796. 2060.85 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21797. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21798. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21799. 2060.85 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21800. 2060.85 s [opt-env-conf-test] + pure (not (c1) && c2) -- TODO: is this right?
  21801. 2060.85 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21802. 2060.85 s [opt-env-conf-test] ParserMany mLoc p -> do
  21803. 2060.85 s [opt-env-conf-test] c <- go p
  21804. 2060.85 s [opt-env-conf-test]
  21805. 2060.85 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  21806. 2060.85 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21807. 2060.85 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21808. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21809. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21810. 2060.85 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21811. 2060.85 s [opt-env-conf-test] + pure (False && c2) -- TODO: is this right?
  21812. 2060.85 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21813. 2060.85 s [opt-env-conf-test] ParserMany mLoc p -> do
  21814. 2060.85 s [opt-env-conf-test] c <- go p
  21815. 2060.85 s [opt-env-conf-test]
  21816. 2060.85 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
  21817. 2060.85 s [opt-env-conf-test] @@ -256,7 +256,7 @@
  21818. 2060.85 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  21819. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21820. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21821. 2060.85 s [opt-env-conf-test] - pure (c1 && c2) -- TODO: is this right?
  21822. 2060.85 s [opt-env-conf-test] + pure (True && c2) -- TODO: is this right?
  21823. 2060.85 s [opt-env-conf-test] -- TODO lint if we don't try to parse anything consuming under many.
  21824. 2060.85 s [opt-env-conf-test] ParserMany mLoc p -> do
  21825. 2060.85 s [opt-env-conf-test] c <- go p
  21826. 2060.85 s [opt-env-conf-test]
  21827. 2060.85 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:14-24
  21828. 2060.85 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21829. 2060.85 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21830. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21831. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21832. 2060.85 s [opt-env-conf-test] - pure (c1 || c2)
  21833. 2060.85 s [opt-env-conf-test] + pure not ((c1 || c2))
  21834. 2060.85 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21835. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21836. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21837. 2060.85 s [opt-env-conf-test]
  21838. 2060.85 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  21839. 2060.85 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21840. 2060.85 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21841. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21842. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21843. 2060.85 s [opt-env-conf-test] - pure (c1 || c2)
  21844. 2060.85 s [opt-env-conf-test] + pure False
  21845. 2060.85 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21846. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21847. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21848. 2060.85 s [opt-env-conf-test]
  21849. 2060.85 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
  21850. 2060.85 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21851. 2060.85 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21852. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21853. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21854. 2060.85 s [opt-env-conf-test] - pure (c1 || c2)
  21855. 2060.85 s [opt-env-conf-test] + pure True
  21856. 2060.85 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21857. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21858. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21859. 2060.85 s [opt-env-conf-test]
  21860. 2060.85 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-23
  21861. 2060.85 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21862. 2060.85 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21863. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21864. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21865. 2060.85 s [opt-env-conf-test] - pure (c1 || c2)
  21866. 2060.85 s [opt-env-conf-test] + pure (not (c1 || c2))
  21867. 2060.85 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21868. 2060.85 s [opt-env-conf-test] c1 <- go p1
  21869. 2060.85 s [opt-env-conf-test] c2 <- go p2
  21870. 2060.85 s [opt-env-conf-test]
  21871. 2060.85 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Lint.hs:250:15-23
  21872. 2060.85 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21873. 2060.85 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21874. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21875. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21876. 2060.86 s [opt-env-conf-test] - pure (c1 || c2)
  21877. 2060.86 s [opt-env-conf-test] + pure (c1 && c2)
  21878. 2060.86 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21879. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21880. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21881. 2060.86 s [opt-env-conf-test]
  21882. 2060.86 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  21883. 2060.86 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21884. 2060.86 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21885. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21886. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21887. 2060.86 s [opt-env-conf-test] - pure (c1 || c2)
  21888. 2060.86 s [opt-env-conf-test] + pure (False)
  21889. 2060.86 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21890. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21891. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21892. 2060.86 s [opt-env-conf-test]
  21893. 2060.86 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
  21894. 2060.86 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21895. 2060.86 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21896. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21897. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21898. 2060.86 s [opt-env-conf-test] - pure (c1 || c2)
  21899. 2060.86 s [opt-env-conf-test] + pure (True)
  21900. 2060.86 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21901. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21902. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21903. 2060.86 s [opt-env-conf-test]
  21904. 2060.86 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:21-23
  21905. 2060.86 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21906. 2060.86 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21907. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21908. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21909. 2060.86 s [opt-env-conf-test] - pure (c1 || c2)
  21910. 2060.86 s [opt-env-conf-test] + pure (c1 || not (c2))
  21911. 2060.86 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21912. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21913. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21914. 2060.86 s [opt-env-conf-test]
  21915. 2060.86 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  21916. 2060.86 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21917. 2060.86 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21918. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21919. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21920. 2060.86 s [opt-env-conf-test] - pure (c1 || c2)
  21921. 2060.86 s [opt-env-conf-test] + pure (c1 || False)
  21922. 2060.86 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21923. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21924. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21925. 2060.86 s [opt-env-conf-test]
  21926. 2060.86 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
  21927. 2060.86 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21928. 2060.86 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21929. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21930. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21931. 2060.86 s [opt-env-conf-test] - pure (c1 || c2)
  21932. 2060.86 s [opt-env-conf-test] + pure (c1 || True)
  21933. 2060.86 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21934. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21935. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21936. 2060.86 s [opt-env-conf-test]
  21937. 2060.86 s [opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-17
  21938. 2060.86 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21939. 2060.86 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21940. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21941. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21942. 2060.86 s [opt-env-conf-test] - pure (c1 || c2)
  21943. 2060.86 s [opt-env-conf-test] + pure (not (c1) || c2)
  21944. 2060.86 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21945. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21946. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21947. 2060.86 s [opt-env-conf-test]
  21948. 2060.86 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  21949. 2060.86 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21950. 2060.86 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21951. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21952. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21953. 2060.86 s [opt-env-conf-test] - pure (c1 || c2)
  21954. 2060.86 s [opt-env-conf-test] + pure (False || c2)
  21955. 2060.86 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21956. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21957. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21958. 2060.86 s [opt-env-conf-test]
  21959. 2060.86 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
  21960. 2060.86 s [opt-env-conf-test] @@ -247,7 +247,7 @@
  21961. 2060.86 s [opt-env-conf-test] ParserAp p1 p2 -> do
  21962. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21963. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21964. 2060.86 s [opt-env-conf-test] - pure (c1 || c2)
  21965. 2060.86 s [opt-env-conf-test] + pure (True || c2)
  21966. 2060.86 s [opt-env-conf-test] ParserSelect p1 p2 -> do
  21967. 2060.86 s [opt-env-conf-test] c1 <- go p1
  21968. 2060.86 s [opt-env-conf-test] c2 <- go p2
  21969. 2060.86 s [opt-env-conf-test]
  21970. 2060.86 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
  21971. 2060.86 s [opt-env-conf-test] @@ -239,10 +239,9 @@
  21972. 2060.86 s [opt-env-conf-test]
  21973. 2060.86 s [opt-env-conf-test] instance Applicative Parser where
  21974. 2060.86 s [opt-env-conf-test] pure = ParserPure
  21975. 2060.86 s [opt-env-conf-test] (<*>) p1 p2 = case (p1, p2) of
  21976. 2060.86 s [opt-env-conf-test] -- Homomorphism law for applicative
  21977. 2060.86 s [opt-env-conf-test] - (ParserPure f, ParserPure a) -> ParserPure (f a)
  21978. 2060.86 s [opt-env-conf-test] _ -> ParserAp p1 p2
  21979. 2060.86 s [opt-env-conf-test]
  21980. 2060.86 s [opt-env-conf-test] instance Selective Parser where
  21981. 2060.86 s [opt-env-conf-test] select = ParserSelect
  21982. 2060.86 s [opt-env-conf-test]
  21983. 2060.86 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  21984. 2060.86 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  21985. 2060.86 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  21986. 2060.86 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  21987. 2060.86 s [opt-env-conf-test] ParserSetting _ _ -> False
  21988. 2060.86 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  21989. 2060.86 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  21990. 2060.86 s [opt-env-conf-test] (True, False) -> p2
  21991. 2060.86 s [opt-env-conf-test] - (False, True) -> p1
  21992. 2060.86 s [opt-env-conf-test] (False, False) ->
  21993. 2060.86 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  21994. 2060.86 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  21995. 2060.87 s [opt-env-conf-test] -- alts to always be right-leaning
  21996. 2060.87 s [opt-env-conf-test] --
  21997. 2060.87 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  21998. 2060.87 s [opt-env-conf-test] -- p
  21999. 2060.87 s [opt-env-conf-test] -- / \
  22000. 2060.87 s [opt-env-conf-test] -- p1 p2
  22001. 2060.87 s [opt-env-conf-test] -- / \
  22002. 2060.87 s [opt-env-conf-test] -- p3 p4
  22003. 2060.87 s [opt-env-conf-test] --
  22004. 2060.87 s [opt-env-conf-test] -- We need to rearrange it to
  22005. 2060.87 s [opt-env-conf-test] -- p
  22006. 2060.87 s [opt-env-conf-test] -- / \
  22007. 2060.87 s [opt-env-conf-test] -- p1 ++ p3 p4
  22008. 2060.87 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22009. 2060.87 s [opt-env-conf-test] go (go p1' p3') p4'
  22010. 2060.87 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22011. 2060.87 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22012. 2060.87 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  22013. 2060.87 s [opt-env-conf-test] in go p1 p2
  22014. 2060.87 s [opt-env-conf-test] many = ParserMany Nothing
  22015. 2060.87 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22016. 2060.87 s [opt-env-conf-test]
  22017. 2060.87 s [opt-env-conf-test]
  22018. 2060.87 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  22019. 2060.87 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  22020. 2060.87 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22021. 2060.87 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22022. 2060.87 s [opt-env-conf-test] ParserSetting _ _ -> False
  22023. 2060.87 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  22024. 2060.87 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  22025. 2060.87 s [opt-env-conf-test] - (True, False) -> p2
  22026. 2060.87 s [opt-env-conf-test] (False, True) -> p1
  22027. 2060.87 s [opt-env-conf-test] (False, False) ->
  22028. 2060.87 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  22029. 2060.87 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  22030. 2060.87 s [opt-env-conf-test] -- alts to always be right-leaning
  22031. 2060.87 s [opt-env-conf-test] --
  22032. 2060.87 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22033. 2060.87 s [opt-env-conf-test] -- p
  22034. 2060.87 s [opt-env-conf-test] -- / \
  22035. 2060.87 s [opt-env-conf-test] -- p1 p2
  22036. 2060.87 s [opt-env-conf-test] -- / \
  22037. 2060.87 s [opt-env-conf-test] -- p3 p4
  22038. 2060.87 s [opt-env-conf-test] --
  22039. 2060.87 s [opt-env-conf-test] -- We need to rearrange it to
  22040. 2060.87 s [opt-env-conf-test] -- p
  22041. 2060.87 s [opt-env-conf-test] -- / \
  22042. 2060.87 s [opt-env-conf-test] -- p1 ++ p3 p4
  22043. 2060.87 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22044. 2060.87 s [opt-env-conf-test] go (go p1' p3') p4'
  22045. 2060.87 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22046. 2060.87 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22047. 2060.87 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  22048. 2060.87 s [opt-env-conf-test] in go p1 p2
  22049. 2060.87 s [opt-env-conf-test] many = ParserMany Nothing
  22050. 2060.87 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22051. 2060.87 s [opt-env-conf-test]
  22052. 2060.87 s [opt-env-conf-test]
  22053. 2060.87 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
  22054. 2060.87 s [opt-env-conf-test] @@ -264,32 +264,31 @@
  22055. 2060.87 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22056. 2060.87 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22057. 2060.87 s [opt-env-conf-test] ParserSetting _ _ -> False
  22058. 2060.87 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  22059. 2060.87 s [opt-env-conf-test] - (True, True) -> ParserEmpty Nothing
  22060. 2060.87 s [opt-env-conf-test] (True, False) -> p2
  22061. 2060.87 s [opt-env-conf-test] (False, True) -> p1
  22062. 2060.87 s [opt-env-conf-test] (False, False) ->
  22063. 2060.87 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  22064. 2060.87 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  22065. 2060.87 s [opt-env-conf-test] -- alts to always be right-leaning
  22066. 2060.87 s [opt-env-conf-test] --
  22067. 2060.87 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22068. 2060.87 s [opt-env-conf-test] -- p
  22069. 2060.87 s [opt-env-conf-test] -- / \
  22070. 2060.87 s [opt-env-conf-test] -- p1 p2
  22071. 2060.87 s [opt-env-conf-test] -- / \
  22072. 2060.87 s [opt-env-conf-test] -- p3 p4
  22073. 2060.87 s [opt-env-conf-test] --
  22074. 2060.87 s [opt-env-conf-test] -- We need to rearrange it to
  22075. 2060.87 s [opt-env-conf-test] -- p
  22076. 2060.87 s [opt-env-conf-test] -- / \
  22077. 2060.87 s [opt-env-conf-test] -- p1 ++ p3 p4
  22078. 2060.87 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22079. 2060.87 s [opt-env-conf-test] go (go p1' p3') p4'
  22080. 2060.87 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22081. 2060.87 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22082. 2060.87 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  22083. 2060.87 s [opt-env-conf-test] in go p1 p2
  22084. 2060.87 s [opt-env-conf-test] many = ParserMany Nothing
  22085. 2060.87 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22086. 2060.87 s [opt-env-conf-test]
  22087. 2060.87 s [opt-env-conf-test]
  22088. 2060.87 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  22089. 2060.87 s [opt-env-conf-test] @@ -269,26 +269,24 @@
  22090. 2060.87 s [opt-env-conf-test] (True, False) -> p2
  22091. 2060.87 s [opt-env-conf-test] (False, True) -> p1
  22092. 2060.87 s [opt-env-conf-test] (False, False) ->
  22093. 2060.87 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  22094. 2060.87 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  22095. 2060.87 s [opt-env-conf-test] -- alts to always be right-leaning
  22096. 2060.87 s [opt-env-conf-test] --
  22097. 2060.87 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22098. 2060.87 s [opt-env-conf-test] -- p
  22099. 2060.87 s [opt-env-conf-test] -- / \
  22100. 2060.87 s [opt-env-conf-test] -- p1 p2
  22101. 2060.87 s [opt-env-conf-test] -- / \
  22102. 2060.87 s [opt-env-conf-test] -- p3 p4
  22103. 2060.87 s [opt-env-conf-test] --
  22104. 2060.87 s [opt-env-conf-test] -- We need to rearrange it to
  22105. 2060.87 s [opt-env-conf-test] -- p
  22106. 2060.87 s [opt-env-conf-test] -- / \
  22107. 2060.87 s [opt-env-conf-test] -- p1 ++ p3 p4
  22108. 2060.87 s [opt-env-conf-test] (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22109. 2060.87 s [opt-env-conf-test] go (go p1' p3') p4'
  22110. 2060.87 s [opt-env-conf-test] - (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22111. 2060.87 s [opt-env-conf-test] - ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22112. 2060.87 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  22113. 2060.87 s [opt-env-conf-test] in go p1 p2
  22114. 2060.87 s [opt-env-conf-test] many = ParserMany Nothing
  22115. 2060.87 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22116. 2060.87 s [opt-env-conf-test]
  22117. 2060.87 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
  22118. 2060.87 s [opt-env-conf-test] @@ -269,26 +269,24 @@
  22119. 2060.87 s [opt-env-conf-test] (True, False) -> p2
  22120. 2060.87 s [opt-env-conf-test] (False, True) -> p1
  22121. 2060.87 s [opt-env-conf-test] (False, False) ->
  22122. 2060.87 s [opt-env-conf-test] let go p1' p2' = case (p1', p2') of
  22123. 2060.87 s [opt-env-conf-test] -- <|> needs to be associative, so we need to reorder the
  22124. 2060.87 s [opt-env-conf-test] -- alts to always be right-leaning
  22125. 2060.87 s [opt-env-conf-test] --
  22126. 2060.87 s [opt-env-conf-test] -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
  22127. 2060.88 s [opt-env-conf-test] -- p
  22128. 2060.88 s [opt-env-conf-test] -- / \
  22129. 2060.88 s [opt-env-conf-test] -- p1 p2
  22130. 2060.88 s [opt-env-conf-test] -- / \
  22131. 2060.88 s [opt-env-conf-test] -- p3 p4
  22132. 2060.88 s [opt-env-conf-test] --
  22133. 2060.88 s [opt-env-conf-test] -- We need to rearrange it to
  22134. 2060.88 s [opt-env-conf-test] -- p
  22135. 2060.88 s [opt-env-conf-test] -- / \
  22136. 2060.88 s [opt-env-conf-test] -- p1 ++ p3 p4
  22137. 2060.88 s [opt-env-conf-test] - (ParserCommands _ _ _, ParserAlt p3' p4') ->
  22138. 2060.88 s [opt-env-conf-test] - go (go p1' p3') p4'
  22139. 2060.88 s [opt-env-conf-test] (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
  22140. 2060.88 s [opt-env-conf-test] ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
  22141. 2060.88 s [opt-env-conf-test] _ -> ParserAlt p1' p2'
  22142. 2060.88 s [opt-env-conf-test] in go p1 p2
  22143. 2060.88 s [opt-env-conf-test] many = ParserMany Nothing
  22144. 2060.88 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22145. 2060.88 s [opt-env-conf-test]
  22146. 2060.88 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:27-37
  22147. 2060.88 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  22148. 2060.88 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22149. 2060.88 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22150. 2060.88 s [opt-env-conf-test] ParserSetting _ _ -> False
  22151. 2060.88 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22152. 2060.88 s [opt-env-conf-test] + in case (isEmpty p1, False) of
  22153. 2060.88 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  22154. 2060.88 s [opt-env-conf-test] (True, False) -> p2
  22155. 2060.88 s [opt-env-conf-test] (False, True) -> p1
  22156. 2060.88 s [opt-env-conf-test]
  22157. 2060.88 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:15-25
  22158. 2060.88 s [opt-env-conf-test] @@ -264,7 +264,7 @@
  22159. 2060.88 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22160. 2060.88 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22161. 2060.88 s [opt-env-conf-test] ParserSetting _ _ -> False
  22162. 2060.88 s [opt-env-conf-test] - in case (isEmpty p1, isEmpty p2) of
  22163. 2060.88 s [opt-env-conf-test] + in case (False, isEmpty p2) of
  22164. 2060.88 s [opt-env-conf-test] (True, True) -> ParserEmpty Nothing
  22165. 2060.88 s [opt-env-conf-test] (True, False) -> p2
  22166. 2060.88 s [opt-env-conf-test] (False, True) -> p1
  22167. 2060.88 s [opt-env-conf-test]
  22168. 2060.88 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:264:36-43
  22169. 2060.88 s [opt-env-conf-test] @@ -261,7 +261,7 @@
  22170. 2060.88 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22171. 2060.88 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  22172. 2060.88 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  22173. 2060.88 s [opt-env-conf-test] - ParserCommands _ _ cs -> null cs
  22174. 2060.88 s [opt-env-conf-test] + ParserCommands _ _ cs -> False
  22175. 2060.88 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22176. 2060.88 s [opt-env-conf-test] ParserSetting _ _ -> False
  22177. 2060.88 s [opt-env-conf-test] in case (isEmpty p1, isEmpty p2) of
  22178. 2060.88 s [opt-env-conf-test]
  22179. 2060.88 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:263:36-45
  22180. 2060.88 s [opt-env-conf-test] @@ -260,7 +260,7 @@
  22181. 2060.88 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  22182. 2060.88 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22183. 2060.88 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  22184. 2060.88 s [opt-env-conf-test] - ParserCheck _ _ _ _ p -> isEmpty p
  22185. 2060.88 s [opt-env-conf-test] + ParserCheck _ _ _ _ p -> False
  22186. 2060.88 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22187. 2060.88 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22188. 2060.88 s [opt-env-conf-test] ParserSetting _ _ -> False
  22189. 2060.88 s [opt-env-conf-test]
  22190. 2060.88 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:262:37-46
  22191. 2060.88 s [opt-env-conf-test] @@ -259,7 +259,7 @@
  22192. 2060.88 s [opt-env-conf-test] ParserAlt _ _ -> False
  22193. 2060.88 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  22194. 2060.88 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22195. 2060.88 s [opt-env-conf-test] - ParserAllOrNothing _ p -> isEmpty p
  22196. 2060.88 s [opt-env-conf-test] + ParserAllOrNothing _ p -> False
  22197. 2060.88 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  22198. 2060.88 s [opt-env-conf-test] ParserCommands _ _ cs -> null cs
  22199. 2060.88 s [opt-env-conf-test] ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
  22200. 2060.88 s [opt-env-conf-test]
  22201. 2060.88 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:260:29-38
  22202. 2060.88 s [opt-env-conf-test] @@ -257,7 +257,7 @@
  22203. 2060.88 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22204. 2060.88 s [opt-env-conf-test] ParserEmpty _ -> True
  22205. 2060.88 s [opt-env-conf-test] ParserAlt _ _ -> False
  22206. 2060.88 s [opt-env-conf-test] - ParserMany _ p -> isEmpty p
  22207. 2060.88 s [opt-env-conf-test] + ParserMany _ p -> False
  22208. 2060.88 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22209. 2060.88 s [opt-env-conf-test] ParserAllOrNothing _ p -> isEmpty p
  22210. 2060.88 s [opt-env-conf-test] ParserCheck _ _ _ _ p -> isEmpty p
  22211. 2060.88 s [opt-env-conf-test]
  22212. 2060.88 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Parser.hs:258:28-32
  22213. 2060.88 s [opt-env-conf-test] @@ -255,7 +255,7 @@
  22214. 2060.88 s [opt-env-conf-test] ParserPure _ -> False
  22215. 2060.88 s [opt-env-conf-test] ParserAp pf pa -> isEmpty pf && isEmpty pa
  22216. 2060.88 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22217. 2060.88 s [opt-env-conf-test] - ParserEmpty _ -> True
  22218. 2060.88 s [opt-env-conf-test] + ParserEmpty _ -> False
  22219. 2060.88 s [opt-env-conf-test] ParserAlt _ _ -> False
  22220. 2060.88 s [opt-env-conf-test] ParserMany _ p -> isEmpty p
  22221. 2060.88 s [opt-env-conf-test] ParserSome _ p -> isEmpty p
  22222. 2060.88 s [opt-env-conf-test]
  22223. 2060.88 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Parser.hs:256:29-53
  22224. 2060.88 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22225. 2060.88 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22226. 2060.88 s [opt-env-conf-test] isEmpty = \case
  22227. 2060.88 s [opt-env-conf-test] ParserPure _ -> False
  22228. 2060.88 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22229. 2060.88 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf || isEmpty pa
  22230. 2060.88 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22231. 2060.88 s [opt-env-conf-test] ParserEmpty _ -> True
  22232. 2060.89 s [opt-env-conf-test] ParserAlt _ _ -> False
  22233. 2060.89 s [opt-env-conf-test]
  22234. 2060.89 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-53
  22235. 2060.89 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22236. 2060.89 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22237. 2060.89 s [opt-env-conf-test] isEmpty = \case
  22238. 2060.89 s [opt-env-conf-test] ParserPure _ -> False
  22239. 2060.89 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22240. 2060.89 s [opt-env-conf-test] + ParserAp pf pa -> False
  22241. 2060.89 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22242. 2060.89 s [opt-env-conf-test] ParserEmpty _ -> True
  22243. 2060.89 s [opt-env-conf-test] ParserAlt _ _ -> False
  22244. 2060.89 s [opt-env-conf-test]
  22245. 2060.89 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:43-53
  22246. 2060.89 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22247. 2060.89 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22248. 2060.89 s [opt-env-conf-test] isEmpty = \case
  22249. 2060.89 s [opt-env-conf-test] ParserPure _ -> False
  22250. 2060.89 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22251. 2060.89 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
  22252. 2060.89 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22253. 2060.89 s [opt-env-conf-test] ParserEmpty _ -> True
  22254. 2060.89 s [opt-env-conf-test] ParserAlt _ _ -> False
  22255. 2060.89 s [opt-env-conf-test]
  22256. 2060.89 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  22257. 2060.89 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22258. 2060.89 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22259. 2060.89 s [opt-env-conf-test] isEmpty = \case
  22260. 2060.89 s [opt-env-conf-test] ParserPure _ -> False
  22261. 2060.89 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22262. 2060.89 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && False
  22263. 2060.89 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22264. 2060.89 s [opt-env-conf-test] ParserEmpty _ -> True
  22265. 2060.89 s [opt-env-conf-test] ParserAlt _ _ -> False
  22266. 2060.89 s [opt-env-conf-test]
  22267. 2060.89 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
  22268. 2060.89 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22269. 2060.89 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22270. 2060.89 s [opt-env-conf-test] isEmpty = \case
  22271. 2060.89 s [opt-env-conf-test] ParserPure _ -> False
  22272. 2060.89 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22273. 2060.89 s [opt-env-conf-test] + ParserAp pf pa -> isEmpty pf && True
  22274. 2060.89 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22275. 2060.89 s [opt-env-conf-test] ParserEmpty _ -> True
  22276. 2060.89 s [opt-env-conf-test] ParserAlt _ _ -> False
  22277. 2060.89 s [opt-env-conf-test]
  22278. 2060.89 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:29-39
  22279. 2060.89 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22280. 2060.89 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22281. 2060.89 s [opt-env-conf-test] isEmpty = \case
  22282. 2060.89 s [opt-env-conf-test] ParserPure _ -> False
  22283. 2060.89 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22284. 2060.89 s [opt-env-conf-test] + ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
  22285. 2060.89 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22286. 2060.89 s [opt-env-conf-test] ParserEmpty _ -> True
  22287. 2060.89 s [opt-env-conf-test] ParserAlt _ _ -> False
  22288. 2060.89 s [opt-env-conf-test]
  22289. 2060.89 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  22290. 2060.89 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22291. 2060.89 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22292. 2060.89 s [opt-env-conf-test] isEmpty = \case
  22293. 2060.89 s [opt-env-conf-test] ParserPure _ -> False
  22294. 2060.89 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22295. 2060.89 s [opt-env-conf-test] + ParserAp pf pa -> False && isEmpty pa
  22296. 2060.89 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22297. 2060.90 s [opt-env-conf-test] ParserEmpty _ -> True
  22298. 2060.90 s [opt-env-conf-test] ParserAlt _ _ -> False
  22299. 2060.90 s [opt-env-conf-test]
  22300. 2060.90 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
  22301. 2060.90 s [opt-env-conf-test] @@ -253,7 +253,7 @@
  22302. 2060.90 s [opt-env-conf-test] let isEmpty :: Parser a -> Bool
  22303. 2060.90 s [opt-env-conf-test] isEmpty = \case
  22304. 2060.90 s [opt-env-conf-test] ParserPure _ -> False
  22305. 2060.90 s [opt-env-conf-test] - ParserAp pf pa -> isEmpty pf && isEmpty pa
  22306. 2060.90 s [opt-env-conf-test] + ParserAp pf pa -> True && isEmpty pa
  22307. 2060.90 s [opt-env-conf-test] ParserSelect pe pf -> isEmpty pe && isEmpty pf
  22308. 2060.90 s [opt-env-conf-test] ParserEmpty _ -> True
  22309. 2060.90 s [opt-env-conf-test] ParserAlt _ _ -> False
  22310. 2060.90 s [opt-env-conf-test]
  22311. 2060.90 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:297:39-40
  22312. 2060.90 s [opt-env-conf-test] @@ -294,7 +294,7 @@
  22313. 2060.90 s [opt-env-conf-test] some = fmap NE.toList . ParserSome Nothing
  22314. 2060.90 s [opt-env-conf-test]
  22315. 2060.90 s [opt-env-conf-test] showParserABit :: Parser a -> String
  22316. 2060.90 s [opt-env-conf-test] -showParserABit = flip (showParserPrec 0) ""
  22317. 2060.90 s [opt-env-conf-test] +showParserABit = flip (showParserPrec 1) ""
  22318. 2060.90 s [opt-env-conf-test]
  22319. 2060.90 s [opt-env-conf-test] showParserPrec :: Int -> Parser a -> ShowS
  22320. 2060.90 s [opt-env-conf-test] showParserPrec = go
  22321. 2060.90 s [opt-env-conf-test]
  22322. 2060.90 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:19-27
  22323. 2060.90 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22324. 2060.90 s [opt-env-conf-test] . showString " "
  22325. 2060.90 s [opt-env-conf-test] . go 11 p2
  22326. 2060.90 s [opt-env-conf-test] ParserSetting mLoc p ->
  22327. 2060.90 s [opt-env-conf-test] - showParen (d > 10) $
  22328. 2060.90 s [opt-env-conf-test] + showParen True $
  22329. 2060.90 s [opt-env-conf-test] showString "Setting "
  22330. 2060.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  22331. 2060.90 s [opt-env-conf-test] . showString " "
  22332. 2060.90 s [opt-env-conf-test]
  22333. 2060.90 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:20-26
  22334. 2060.90 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22335. 2060.90 s [opt-env-conf-test] . showString " "
  22336. 2060.90 s [opt-env-conf-test] . go 11 p2
  22337. 2060.90 s [opt-env-conf-test] ParserSetting mLoc p ->
  22338. 2060.90 s [opt-env-conf-test] - showParen (d > 10) $
  22339. 2060.90 s [opt-env-conf-test] + showParen (True) $
  22340. 2060.90 s [opt-env-conf-test] showString "Setting "
  22341. 2060.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  22342. 2060.90 s [opt-env-conf-test] . showString " "
  22343. 2060.90 s [opt-env-conf-test]
  22344. 2060.90 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:373:20-26
  22345. 2060.90 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22346. 2060.90 s [opt-env-conf-test] . showString " "
  22347. 2060.90 s [opt-env-conf-test] . go 11 p2
  22348. 2060.90 s [opt-env-conf-test] ParserSetting mLoc p ->
  22349. 2060.90 s [opt-env-conf-test] - showParen (d > 10) $
  22350. 2060.90 s [opt-env-conf-test] + showParen (d >= 10) $
  22351. 2060.90 s [opt-env-conf-test] showString "Setting "
  22352. 2060.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  22353. 2060.90 s [opt-env-conf-test] . showString " "
  22354. 2060.90 s [opt-env-conf-test]
  22355. 2060.90 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  22356. 2060.90 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22357. 2060.90 s [opt-env-conf-test] . showString " "
  22358. 2060.90 s [opt-env-conf-test] . go 11 p2
  22359. 2060.90 s [opt-env-conf-test] ParserSetting mLoc p ->
  22360. 2060.90 s [opt-env-conf-test] - showParen (d > 10) $
  22361. 2060.90 s [opt-env-conf-test] + showParen (d > -10) $
  22362. 2060.90 s [opt-env-conf-test] showString "Setting "
  22363. 2060.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  22364. 2060.90 s [opt-env-conf-test] . showString " "
  22365. 2060.90 s [opt-env-conf-test]
  22366. 2060.90 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  22367. 2060.90 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22368. 2060.90 s [opt-env-conf-test] . showString " "
  22369. 2060.90 s [opt-env-conf-test] . go 11 p2
  22370. 2060.90 s [opt-env-conf-test] ParserSetting mLoc p ->
  22371. 2060.90 s [opt-env-conf-test] - showParen (d > 10) $
  22372. 2060.90 s [opt-env-conf-test] + showParen (d > 1) $
  22373. 2060.90 s [opt-env-conf-test] showString "Setting "
  22374. 2060.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  22375. 2060.90 s [opt-env-conf-test] . showString " "
  22376. 2060.90 s [opt-env-conf-test]
  22377. 2060.90 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
  22378. 2060.90 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  22379. 2060.90 s [opt-env-conf-test] . showString " "
  22380. 2060.90 s [opt-env-conf-test] . go 11 p2
  22381. 2060.90 s [opt-env-conf-test] ParserSetting mLoc p ->
  22382. 2060.90 s [opt-env-conf-test] - showParen (d > 10) $
  22383. 2060.90 s [opt-env-conf-test] + showParen (d > 0) $
  22384. 2060.90 s [opt-env-conf-test] showString "Setting "
  22385. 2060.90 s [opt-env-conf-test] . showsPrec 11 mLoc
  22386. 2060.90 s [opt-env-conf-test] . showString " "
  22387. 2060.90 s [opt-env-conf-test]
  22388. 2060.90 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:19-27
  22389. 2060.90 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22390. 2060.90 s [opt-env-conf-test] showCommandABit
  22391. 2060.90 s [opt-env-conf-test] cs
  22392. 2060.91 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22393. 2060.91 s [opt-env-conf-test] - showParen (d > 10) $
  22394. 2060.91 s [opt-env-conf-test] + showParen not ((d > 10)) $
  22395. 2060.91 s [opt-env-conf-test] showString "WithConfig _ "
  22396. 2060.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  22397. 2060.91 s [opt-env-conf-test] . showString " "
  22398. 2060.91 s [opt-env-conf-test]
  22399. 2060.91 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  22400. 2060.91 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22401. 2060.91 s [opt-env-conf-test] showCommandABit
  22402. 2060.91 s [opt-env-conf-test] cs
  22403. 2060.91 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22404. 2060.91 s [opt-env-conf-test] - showParen (d > 10) $
  22405. 2060.91 s [opt-env-conf-test] + showParen False $
  22406. 2060.91 s [opt-env-conf-test] showString "WithConfig _ "
  22407. 2060.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  22408. 2060.91 s [opt-env-conf-test] . showString " "
  22409. 2060.91 s [opt-env-conf-test]
  22410. 2060.91 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
  22411. 2060.91 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22412. 2060.91 s [opt-env-conf-test] showCommandABit
  22413. 2060.91 s [opt-env-conf-test] cs
  22414. 2060.91 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22415. 2060.91 s [opt-env-conf-test] - showParen (d > 10) $
  22416. 2060.91 s [opt-env-conf-test] + showParen True $
  22417. 2060.91 s [opt-env-conf-test] showString "WithConfig _ "
  22418. 2060.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  22419. 2060.91 s [opt-env-conf-test] . showString " "
  22420. 2060.91 s [opt-env-conf-test]
  22421. 2060.91 s [opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:20-26
  22422. 2060.91 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22423. 2060.91 s [opt-env-conf-test] showCommandABit
  22424. 2060.91 s [opt-env-conf-test] cs
  22425. 2060.91 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22426. 2060.91 s [opt-env-conf-test] - showParen (d > 10) $
  22427. 2060.91 s [opt-env-conf-test] + showParen (not (d > 10)) $
  22428. 2060.91 s [opt-env-conf-test] showString "WithConfig _ "
  22429. 2060.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  22430. 2060.91 s [opt-env-conf-test] . showString " "
  22431. 2060.91 s [opt-env-conf-test]
  22432. 2060.91 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  22433. 2060.91 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22434. 2060.91 s [opt-env-conf-test] showCommandABit
  22435. 2060.91 s [opt-env-conf-test] cs
  22436. 2060.91 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22437. 2060.91 s [opt-env-conf-test] - showParen (d > 10) $
  22438. 2060.91 s [opt-env-conf-test] + showParen (False) $
  22439. 2060.91 s [opt-env-conf-test] showString "WithConfig _ "
  22440. 2060.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  22441. 2060.91 s [opt-env-conf-test] . showString " "
  22442. 2060.91 s [opt-env-conf-test]
  22443. 2060.91 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
  22444. 2060.91 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22445. 2060.91 s [opt-env-conf-test] showCommandABit
  22446. 2060.91 s [opt-env-conf-test] cs
  22447. 2060.91 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22448. 2060.91 s [opt-env-conf-test] - showParen (d > 10) $
  22449. 2060.91 s [opt-env-conf-test] + showParen (True) $
  22450. 2060.91 s [opt-env-conf-test] showString "WithConfig _ "
  22451. 2060.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  22452. 2060.91 s [opt-env-conf-test] . showString " "
  22453. 2060.91 s [opt-env-conf-test]
  22454. 2060.91 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:365:20-26
  22455. 2060.91 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22456. 2060.91 s [opt-env-conf-test] showCommandABit
  22457. 2060.91 s [opt-env-conf-test] cs
  22458. 2060.91 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22459. 2060.91 s [opt-env-conf-test] - showParen (d > 10) $
  22460. 2060.91 s [opt-env-conf-test] + showParen (d >= 10) $
  22461. 2060.91 s [opt-env-conf-test] showString "WithConfig _ "
  22462. 2060.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  22463. 2060.91 s [opt-env-conf-test] . showString " "
  22464. 2060.91 s [opt-env-conf-test]
  22465. 2060.91 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:365:20-26
  22466. 2060.91 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22467. 2060.91 s [opt-env-conf-test] showCommandABit
  22468. 2060.91 s [opt-env-conf-test] cs
  22469. 2060.91 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22470. 2060.91 s [opt-env-conf-test] - showParen (d > 10) $
  22471. 2060.91 s [opt-env-conf-test] + showParen (d <= 10) $
  22472. 2060.91 s [opt-env-conf-test] showString "WithConfig _ "
  22473. 2060.91 s [opt-env-conf-test] . showsPrec 11 mLoc
  22474. 2060.91 s [opt-env-conf-test] . showString " "
  22475. 2060.91 s [opt-env-conf-test]
  22476. 2060.92 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:365:20-26
  22477. 2060.92 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22478. 2060.92 s [opt-env-conf-test] showCommandABit
  22479. 2060.92 s [opt-env-conf-test] cs
  22480. 2060.92 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22481. 2060.92 s [opt-env-conf-test] - showParen (d > 10) $
  22482. 2060.92 s [opt-env-conf-test] + showParen (d < 10) $
  22483. 2060.92 s [opt-env-conf-test] showString "WithConfig _ "
  22484. 2060.92 s [opt-env-conf-test] . showsPrec 11 mLoc
  22485. 2060.92 s [opt-env-conf-test] . showString " "
  22486. 2060.92 s [opt-env-conf-test]
  22487. 2060.92 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  22488. 2060.92 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22489. 2060.92 s [opt-env-conf-test] showCommandABit
  22490. 2060.92 s [opt-env-conf-test] cs
  22491. 2060.92 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22492. 2060.92 s [opt-env-conf-test] - showParen (d > 10) $
  22493. 2060.92 s [opt-env-conf-test] + showParen (d > -10) $
  22494. 2060.92 s [opt-env-conf-test] showString "WithConfig _ "
  22495. 2060.92 s [opt-env-conf-test] . showsPrec 11 mLoc
  22496. 2060.92 s [opt-env-conf-test] . showString " "
  22497. 2060.92 s [opt-env-conf-test]
  22498. 2060.92 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  22499. 2060.92 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22500. 2060.92 s [opt-env-conf-test] showCommandABit
  22501. 2060.92 s [opt-env-conf-test] cs
  22502. 2060.92 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22503. 2060.92 s [opt-env-conf-test] - showParen (d > 10) $
  22504. 2060.92 s [opt-env-conf-test] + showParen (d > 1) $
  22505. 2060.92 s [opt-env-conf-test] showString "WithConfig _ "
  22506. 2060.92 s [opt-env-conf-test] . showsPrec 11 mLoc
  22507. 2060.92 s [opt-env-conf-test] . showString " "
  22508. 2060.92 s [opt-env-conf-test]
  22509. 2060.92 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
  22510. 2060.92 s [opt-env-conf-test] @@ -362,7 +362,7 @@
  22511. 2060.92 s [opt-env-conf-test] showCommandABit
  22512. 2060.92 s [opt-env-conf-test] cs
  22513. 2060.92 s [opt-env-conf-test] ParserWithConfig mLoc p1 p2 ->
  22514. 2060.92 s [opt-env-conf-test] - showParen (d > 10) $
  22515. 2060.92 s [opt-env-conf-test] + showParen (d > 0) $
  22516. 2060.92 s [opt-env-conf-test] showString "WithConfig _ "
  22517. 2060.92 s [opt-env-conf-test] . showsPrec 11 mLoc
  22518. 2060.92 s [opt-env-conf-test] . showString " "
  22519. 2060.92 s [opt-env-conf-test]
  22520. 2060.92 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:19-27
  22521. 2060.92 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22522. 2060.92 s [opt-env-conf-test] . showString " _ "
  22523. 2060.92 s [opt-env-conf-test] . go 11 p
  22524. 2060.92 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22525. 2060.92 s [opt-env-conf-test] - showParen (d > 10) $
  22526. 2060.92 s [opt-env-conf-test] + showParen True $
  22527. 2060.92 s [opt-env-conf-test] showString "Commands "
  22528. 2060.92 s [opt-env-conf-test] . showsPrec 11 mLoc
  22529. 2060.92 s [opt-env-conf-test] . showString " "
  22530. 2060.92 s [opt-env-conf-test]
  22531. 2060.92 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:20-26
  22532. 2060.92 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22533. 2060.92 s [opt-env-conf-test] . showString " _ "
  22534. 2060.92 s [opt-env-conf-test] . go 11 p
  22535. 2060.92 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22536. 2060.92 s [opt-env-conf-test] - showParen (d > 10) $
  22537. 2060.92 s [opt-env-conf-test] + showParen (True) $
  22538. 2060.92 s [opt-env-conf-test] showString "Commands "
  22539. 2060.92 s [opt-env-conf-test] . showsPrec 11 mLoc
  22540. 2060.92 s [opt-env-conf-test] . showString " "
  22541. 2060.92 s [opt-env-conf-test]
  22542. 2060.92 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:355:20-26
  22543. 2060.92 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22544. 2060.92 s [opt-env-conf-test] . showString " _ "
  22545. 2060.92 s [opt-env-conf-test] . go 11 p
  22546. 2060.92 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22547. 2060.92 s [opt-env-conf-test] - showParen (d > 10) $
  22548. 2060.92 s [opt-env-conf-test] + showParen (d >= 10) $
  22549. 2060.92 s [opt-env-conf-test] showString "Commands "
  22550. 2060.92 s [opt-env-conf-test] . showsPrec 11 mLoc
  22551. 2060.92 s [opt-env-conf-test] . showString " "
  22552. 2060.92 s [opt-env-conf-test]
  22553. 2060.92 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  22554. 2060.92 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22555. 2060.92 s [opt-env-conf-test] . showString " _ "
  22556. 2060.92 s [opt-env-conf-test] . go 11 p
  22557. 2060.92 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22558. 2060.92 s [opt-env-conf-test] - showParen (d > 10) $
  22559. 2060.92 s [opt-env-conf-test] + showParen (d > -10) $
  22560. 2060.92 s [opt-env-conf-test] showString "Commands "
  22561. 2060.92 s [opt-env-conf-test] . showsPrec 11 mLoc
  22562. 2060.92 s [opt-env-conf-test] . showString " "
  22563. 2060.92 s [opt-env-conf-test]
  22564. 2060.92 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  22565. 2060.92 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22566. 2060.92 s [opt-env-conf-test] . showString " _ "
  22567. 2060.92 s [opt-env-conf-test] . go 11 p
  22568. 2060.92 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22569. 2060.92 s [opt-env-conf-test] - showParen (d > 10) $
  22570. 2060.92 s [opt-env-conf-test] + showParen (d > 1) $
  22571. 2060.92 s [opt-env-conf-test] showString "Commands "
  22572. 2060.92 s [opt-env-conf-test] . showsPrec 11 mLoc
  22573. 2060.93 s [opt-env-conf-test] . showString " "
  22574. 2060.93 s [opt-env-conf-test]
  22575. 2060.93 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
  22576. 2060.93 s [opt-env-conf-test] @@ -352,7 +352,7 @@
  22577. 2060.93 s [opt-env-conf-test] . showString " _ "
  22578. 2060.93 s [opt-env-conf-test] . go 11 p
  22579. 2060.93 s [opt-env-conf-test] ParserCommands mLoc mDefault cs ->
  22580. 2060.93 s [opt-env-conf-test] - showParen (d > 10) $
  22581. 2060.93 s [opt-env-conf-test] + showParen (d > 0) $
  22582. 2060.93 s [opt-env-conf-test] showString "Commands "
  22583. 2060.93 s [opt-env-conf-test] . showsPrec 11 mLoc
  22584. 2060.93 s [opt-env-conf-test] . showString " "
  22585. 2060.93 s [opt-env-conf-test]
  22586. 2060.93 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:19-27
  22587. 2060.93 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22588. 2060.93 s [opt-env-conf-test] . showString " "
  22589. 2060.93 s [opt-env-conf-test] . go 11 p
  22590. 2060.93 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22591. 2060.93 s [opt-env-conf-test] - showParen (d > 10) $
  22592. 2060.93 s [opt-env-conf-test] + showParen True $
  22593. 2060.93 s [opt-env-conf-test] showString "Check "
  22594. 2060.93 s [opt-env-conf-test] . showsPrec 11 mLoc
  22595. 2060.93 s [opt-env-conf-test] . showString " "
  22596. 2060.93 s [opt-env-conf-test]
  22597. 2060.93 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:20-26
  22598. 2060.93 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22599. 2060.93 s [opt-env-conf-test] . showString " "
  22600. 2060.93 s [opt-env-conf-test] . go 11 p
  22601. 2060.93 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22602. 2060.93 s [opt-env-conf-test] - showParen (d > 10) $
  22603. 2060.93 s [opt-env-conf-test] + showParen (True) $
  22604. 2060.93 s [opt-env-conf-test] showString "Check "
  22605. 2060.93 s [opt-env-conf-test] . showsPrec 11 mLoc
  22606. 2060.93 s [opt-env-conf-test] . showString " "
  22607. 2060.93 s [opt-env-conf-test]
  22608. 2060.93 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:345:20-26
  22609. 2060.93 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22610. 2060.93 s [opt-env-conf-test] . showString " "
  22611. 2060.93 s [opt-env-conf-test] . go 11 p
  22612. 2060.93 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22613. 2060.93 s [opt-env-conf-test] - showParen (d > 10) $
  22614. 2060.93 s [opt-env-conf-test] + showParen (d >= 10) $
  22615. 2060.93 s [opt-env-conf-test] showString "Check "
  22616. 2060.93 s [opt-env-conf-test] . showsPrec 11 mLoc
  22617. 2060.93 s [opt-env-conf-test] . showString " "
  22618. 2060.93 s [opt-env-conf-test]
  22619. 2060.93 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  22620. 2060.93 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22621. 2060.93 s [opt-env-conf-test] . showString " "
  22622. 2060.93 s [opt-env-conf-test] . go 11 p
  22623. 2060.93 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22624. 2060.93 s [opt-env-conf-test] - showParen (d > 10) $
  22625. 2060.93 s [opt-env-conf-test] + showParen (d > -10) $
  22626. 2060.94 s [opt-env-conf-test] showString "Check "
  22627. 2060.94 s [opt-env-conf-test] . showsPrec 11 mLoc
  22628. 2060.94 s [opt-env-conf-test] . showString " "
  22629. 2060.94 s [opt-env-conf-test]
  22630. 2060.94 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  22631. 2060.94 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22632. 2060.94 s [opt-env-conf-test] . showString " "
  22633. 2060.94 s [opt-env-conf-test] . go 11 p
  22634. 2060.94 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22635. 2060.94 s [opt-env-conf-test] - showParen (d > 10) $
  22636. 2060.94 s [opt-env-conf-test] + showParen (d > 1) $
  22637. 2060.94 s [opt-env-conf-test] showString "Check "
  22638. 2060.94 s [opt-env-conf-test] . showsPrec 11 mLoc
  22639. 2060.94 s [opt-env-conf-test] . showString " "
  22640. 2060.94 s [opt-env-conf-test]
  22641. 2060.94 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
  22642. 2060.94 s [opt-env-conf-test] @@ -342,7 +342,7 @@
  22643. 2060.94 s [opt-env-conf-test] . showString " "
  22644. 2060.94 s [opt-env-conf-test] . go 11 p
  22645. 2060.94 s [opt-env-conf-test] ParserCheck mLoc forgivable caps _ p ->
  22646. 2060.94 s [opt-env-conf-test] - showParen (d > 10) $
  22647. 2060.94 s [opt-env-conf-test] + showParen (d > 0) $
  22648. 2060.94 s [opt-env-conf-test] showString "Check "
  22649. 2060.94 s [opt-env-conf-test] . showsPrec 11 mLoc
  22650. 2060.94 s [opt-env-conf-test] . showString " "
  22651. 2060.94 s [opt-env-conf-test]
  22652. 2060.94 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:19-27
  22653. 2060.94 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22654. 2060.94 s [opt-env-conf-test] . showString " "
  22655. 2060.94 s [opt-env-conf-test] . go 11 p
  22656. 2060.94 s [opt-env-conf-test] ParserSome mLoc p ->
  22657. 2060.94 s [opt-env-conf-test] - showParen (d > 10) $
  22658. 2060.94 s [opt-env-conf-test] + showParen True $
  22659. 2060.94 s [opt-env-conf-test] showString "Some "
  22660. 2060.94 s [opt-env-conf-test] . showsPrec 11 mLoc
  22661. 2060.94 s [opt-env-conf-test] . showString " "
  22662. 2060.94 s [opt-env-conf-test]
  22663. 2060.94 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:20-26
  22664. 2060.94 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22665. 2060.94 s [opt-env-conf-test] . showString " "
  22666. 2060.94 s [opt-env-conf-test] . go 11 p
  22667. 2060.94 s [opt-env-conf-test] ParserSome mLoc p ->
  22668. 2060.94 s [opt-env-conf-test] - showParen (d > 10) $
  22669. 2060.94 s [opt-env-conf-test] + showParen (True) $
  22670. 2060.94 s [opt-env-conf-test] showString "Some "
  22671. 2060.94 s [opt-env-conf-test] . showsPrec 11 mLoc
  22672. 2060.94 s [opt-env-conf-test] . showString " "
  22673. 2060.94 s [opt-env-conf-test]
  22674. 2060.94 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:333:20-26
  22675. 2060.94 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22676. 2060.94 s [opt-env-conf-test] . showString " "
  22677. 2060.94 s [opt-env-conf-test] . go 11 p
  22678. 2060.94 s [opt-env-conf-test] ParserSome mLoc p ->
  22679. 2060.94 s [opt-env-conf-test] - showParen (d > 10) $
  22680. 2060.94 s [opt-env-conf-test] + showParen (d >= 10) $
  22681. 2060.94 s [opt-env-conf-test] showString "Some "
  22682. 2060.94 s [opt-env-conf-test] . showsPrec 11 mLoc
  22683. 2060.94 s [opt-env-conf-test] . showString " "
  22684. 2060.94 s [opt-env-conf-test]
  22685. 2060.94 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  22686. 2060.94 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22687. 2060.94 s [opt-env-conf-test] . showString " "
  22688. 2060.94 s [opt-env-conf-test] . go 11 p
  22689. 2060.94 s [opt-env-conf-test] ParserSome mLoc p ->
  22690. 2060.94 s [opt-env-conf-test] - showParen (d > 10) $
  22691. 2060.94 s [opt-env-conf-test] + showParen (d > -10) $
  22692. 2060.94 s [opt-env-conf-test] showString "Some "
  22693. 2060.94 s [opt-env-conf-test] . showsPrec 11 mLoc
  22694. 2060.94 s [opt-env-conf-test] . showString " "
  22695. 2060.94 s [opt-env-conf-test]
  22696. 2060.94 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  22697. 2060.94 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22698. 2060.94 s [opt-env-conf-test] . showString " "
  22699. 2060.94 s [opt-env-conf-test] . go 11 p
  22700. 2060.94 s [opt-env-conf-test] ParserSome mLoc p ->
  22701. 2060.94 s [opt-env-conf-test] - showParen (d > 10) $
  22702. 2060.94 s [opt-env-conf-test] + showParen (d > 1) $
  22703. 2060.95 s [opt-env-conf-test] showString "Some "
  22704. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22705. 2060.95 s [opt-env-conf-test] . showString " "
  22706. 2060.95 s [opt-env-conf-test]
  22707. 2060.95 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
  22708. 2060.95 s [opt-env-conf-test] @@ -330,7 +330,7 @@
  22709. 2060.95 s [opt-env-conf-test] . showString " "
  22710. 2060.95 s [opt-env-conf-test] . go 11 p
  22711. 2060.95 s [opt-env-conf-test] ParserSome mLoc p ->
  22712. 2060.95 s [opt-env-conf-test] - showParen (d > 10) $
  22713. 2060.95 s [opt-env-conf-test] + showParen (d > 0) $
  22714. 2060.95 s [opt-env-conf-test] showString "Some "
  22715. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22716. 2060.95 s [opt-env-conf-test] . showString " "
  22717. 2060.95 s [opt-env-conf-test]
  22718. 2060.95 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:19-27
  22719. 2060.95 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22720. 2060.95 s [opt-env-conf-test] . showString " "
  22721. 2060.95 s [opt-env-conf-test] . go 11 p2
  22722. 2060.95 s [opt-env-conf-test] ParserMany mLoc p ->
  22723. 2060.95 s [opt-env-conf-test] - showParen (d > 10) $
  22724. 2060.95 s [opt-env-conf-test] + showParen True $
  22725. 2060.95 s [opt-env-conf-test] showString "Many "
  22726. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22727. 2060.95 s [opt-env-conf-test] . showString " "
  22728. 2060.95 s [opt-env-conf-test]
  22729. 2060.95 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:20-26
  22730. 2060.95 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22731. 2060.95 s [opt-env-conf-test] . showString " "
  22732. 2060.95 s [opt-env-conf-test] . go 11 p2
  22733. 2060.95 s [opt-env-conf-test] ParserMany mLoc p ->
  22734. 2060.95 s [opt-env-conf-test] - showParen (d > 10) $
  22735. 2060.95 s [opt-env-conf-test] + showParen (True) $
  22736. 2060.95 s [opt-env-conf-test] showString "Many "
  22737. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22738. 2060.95 s [opt-env-conf-test] . showString " "
  22739. 2060.95 s [opt-env-conf-test]
  22740. 2060.95 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:327:20-26
  22741. 2060.95 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22742. 2060.95 s [opt-env-conf-test] . showString " "
  22743. 2060.95 s [opt-env-conf-test] . go 11 p2
  22744. 2060.95 s [opt-env-conf-test] ParserMany mLoc p ->
  22745. 2060.95 s [opt-env-conf-test] - showParen (d > 10) $
  22746. 2060.95 s [opt-env-conf-test] + showParen (d >= 10) $
  22747. 2060.95 s [opt-env-conf-test] showString "Many "
  22748. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22749. 2060.95 s [opt-env-conf-test] . showString " "
  22750. 2060.95 s [opt-env-conf-test]
  22751. 2060.95 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  22752. 2060.95 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22753. 2060.95 s [opt-env-conf-test] . showString " "
  22754. 2060.95 s [opt-env-conf-test] . go 11 p2
  22755. 2060.95 s [opt-env-conf-test] ParserMany mLoc p ->
  22756. 2060.95 s [opt-env-conf-test] - showParen (d > 10) $
  22757. 2060.95 s [opt-env-conf-test] + showParen (d > -10) $
  22758. 2060.95 s [opt-env-conf-test] showString "Many "
  22759. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22760. 2060.95 s [opt-env-conf-test] . showString " "
  22761. 2060.95 s [opt-env-conf-test]
  22762. 2060.95 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  22763. 2060.95 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22764. 2060.95 s [opt-env-conf-test] . showString " "
  22765. 2060.95 s [opt-env-conf-test] . go 11 p2
  22766. 2060.95 s [opt-env-conf-test] ParserMany mLoc p ->
  22767. 2060.95 s [opt-env-conf-test] - showParen (d > 10) $
  22768. 2060.95 s [opt-env-conf-test] + showParen (d > 1) $
  22769. 2060.95 s [opt-env-conf-test] showString "Many "
  22770. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22771. 2060.95 s [opt-env-conf-test] . showString " "
  22772. 2060.95 s [opt-env-conf-test]
  22773. 2060.95 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
  22774. 2060.95 s [opt-env-conf-test] @@ -324,7 +324,7 @@
  22775. 2060.95 s [opt-env-conf-test] . showString " "
  22776. 2060.95 s [opt-env-conf-test] . go 11 p2
  22777. 2060.95 s [opt-env-conf-test] ParserMany mLoc p ->
  22778. 2060.95 s [opt-env-conf-test] - showParen (d > 10) $
  22779. 2060.95 s [opt-env-conf-test] + showParen (d > 0) $
  22780. 2060.95 s [opt-env-conf-test] showString "Many "
  22781. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22782. 2060.95 s [opt-env-conf-test] . showString " "
  22783. 2060.95 s [opt-env-conf-test]
  22784. 2060.95 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:19-27
  22785. 2060.95 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22786. 2060.95 s [opt-env-conf-test] showString "Empty "
  22787. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22788. 2060.95 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22789. 2060.95 s [opt-env-conf-test] - showParen (d > 10) $
  22790. 2060.95 s [opt-env-conf-test] + showParen True $
  22791. 2060.95 s [opt-env-conf-test] showString "Alt "
  22792. 2060.95 s [opt-env-conf-test] . go 11 p1
  22793. 2060.95 s [opt-env-conf-test] . showString " "
  22794. 2060.95 s [opt-env-conf-test]
  22795. 2060.95 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:20-26
  22796. 2060.95 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22797. 2060.95 s [opt-env-conf-test] showString "Empty "
  22798. 2060.95 s [opt-env-conf-test] . showsPrec 11 mLoc
  22799. 2060.95 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22800. 2060.95 s [opt-env-conf-test] - showParen (d > 10) $
  22801. 2060.95 s [opt-env-conf-test] + showParen (True) $
  22802. 2060.95 s [opt-env-conf-test] showString "Alt "
  22803. 2060.95 s [opt-env-conf-test] . go 11 p1
  22804. 2060.96 s [opt-env-conf-test] . showString " "
  22805. 2060.96 s [opt-env-conf-test]
  22806. 2060.96 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:321:20-26
  22807. 2060.96 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22808. 2060.96 s [opt-env-conf-test] showString "Empty "
  22809. 2060.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  22810. 2060.96 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22811. 2060.96 s [opt-env-conf-test] - showParen (d > 10) $
  22812. 2060.96 s [opt-env-conf-test] + showParen (d >= 10) $
  22813. 2060.96 s [opt-env-conf-test] showString "Alt "
  22814. 2060.96 s [opt-env-conf-test] . go 11 p1
  22815. 2060.96 s [opt-env-conf-test] . showString " "
  22816. 2060.96 s [opt-env-conf-test]
  22817. 2060.96 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  22818. 2060.96 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22819. 2060.96 s [opt-env-conf-test] showString "Empty "
  22820. 2060.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  22821. 2060.96 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22822. 2060.96 s [opt-env-conf-test] - showParen (d > 10) $
  22823. 2060.96 s [opt-env-conf-test] + showParen (d > -10) $
  22824. 2060.96 s [opt-env-conf-test] showString "Alt "
  22825. 2060.96 s [opt-env-conf-test] . go 11 p1
  22826. 2060.96 s [opt-env-conf-test] . showString " "
  22827. 2060.96 s [opt-env-conf-test]
  22828. 2060.96 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  22829. 2060.96 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22830. 2060.96 s [opt-env-conf-test] showString "Empty "
  22831. 2060.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  22832. 2060.96 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22833. 2060.96 s [opt-env-conf-test] - showParen (d > 10) $
  22834. 2060.96 s [opt-env-conf-test] + showParen (d > 1) $
  22835. 2060.96 s [opt-env-conf-test] showString "Alt "
  22836. 2060.96 s [opt-env-conf-test] . go 11 p1
  22837. 2060.96 s [opt-env-conf-test] . showString " "
  22838. 2060.96 s [opt-env-conf-test]
  22839. 2060.96 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
  22840. 2060.96 s [opt-env-conf-test] @@ -318,7 +318,7 @@
  22841. 2060.96 s [opt-env-conf-test] showString "Empty "
  22842. 2060.96 s [opt-env-conf-test] . showsPrec 11 mLoc
  22843. 2060.96 s [opt-env-conf-test] ParserAlt p1 p2 ->
  22844. 2060.96 s [opt-env-conf-test] - showParen (d > 10) $
  22845. 2060.96 s [opt-env-conf-test] + showParen (d > 0) $
  22846. 2060.96 s [opt-env-conf-test] showString "Alt "
  22847. 2060.96 s [opt-env-conf-test] . go 11 p1
  22848. 2060.96 s [opt-env-conf-test] . showString " "
  22849. 2060.96 s [opt-env-conf-test]
  22850. 2060.96 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:19-27
  22851. 2060.96 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22852. 2060.96 s [opt-env-conf-test] go d = \case
  22853. 2060.96 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22854. 2060.96 s [opt-env-conf-test] ParserAp pf pa ->
  22855. 2060.96 s [opt-env-conf-test] - showParen (d > 10) $
  22856. 2060.96 s [opt-env-conf-test] + showParen True $
  22857. 2060.96 s [opt-env-conf-test] showString "Ap "
  22858. 2060.96 s [opt-env-conf-test] . go 11 pf
  22859. 2060.96 s [opt-env-conf-test] . showString " "
  22860. 2060.96 s [opt-env-conf-test]
  22861. 2060.96 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:20-26
  22862. 2060.96 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22863. 2060.96 s [opt-env-conf-test] go d = \case
  22864. 2060.96 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22865. 2060.96 s [opt-env-conf-test] ParserAp pf pa ->
  22866. 2060.96 s [opt-env-conf-test] - showParen (d > 10) $
  22867. 2060.96 s [opt-env-conf-test] + showParen (True) $
  22868. 2060.96 s [opt-env-conf-test] showString "Ap "
  22869. 2060.96 s [opt-env-conf-test] . go 11 pf
  22870. 2060.96 s [opt-env-conf-test] . showString " "
  22871. 2060.96 s [opt-env-conf-test]
  22872. 2060.96 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:306:20-26
  22873. 2060.96 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22874. 2060.96 s [opt-env-conf-test] go d = \case
  22875. 2060.96 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22876. 2060.96 s [opt-env-conf-test] ParserAp pf pa ->
  22877. 2060.96 s [opt-env-conf-test] - showParen (d > 10) $
  22878. 2060.96 s [opt-env-conf-test] + showParen (d >= 10) $
  22879. 2060.96 s [opt-env-conf-test] showString "Ap "
  22880. 2060.96 s [opt-env-conf-test] . go 11 pf
  22881. 2060.96 s [opt-env-conf-test] . showString " "
  22882. 2060.96 s [opt-env-conf-test]
  22883. 2060.96 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  22884. 2060.96 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22885. 2060.96 s [opt-env-conf-test] go d = \case
  22886. 2060.96 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22887. 2060.96 s [opt-env-conf-test] ParserAp pf pa ->
  22888. 2060.96 s [opt-env-conf-test] - showParen (d > 10) $
  22889. 2060.96 s [opt-env-conf-test] + showParen (d > -10) $
  22890. 2060.96 s [opt-env-conf-test] showString "Ap "
  22891. 2060.96 s [opt-env-conf-test] . go 11 pf
  22892. 2060.96 s [opt-env-conf-test] . showString " "
  22893. 2060.96 s [opt-env-conf-test]
  22894. 2060.96 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  22895. 2060.96 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22896. 2060.96 s [opt-env-conf-test] go d = \case
  22897. 2060.96 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22898. 2060.96 s [opt-env-conf-test] ParserAp pf pa ->
  22899. 2060.96 s [opt-env-conf-test] - showParen (d > 10) $
  22900. 2060.96 s [opt-env-conf-test] + showParen (d > 1) $
  22901. 2060.96 s [opt-env-conf-test] showString "Ap "
  22902. 2060.96 s [opt-env-conf-test] . go 11 pf
  22903. 2060.96 s [opt-env-conf-test] . showString " "
  22904. 2060.96 s [opt-env-conf-test]
  22905. 2060.96 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
  22906. 2060.96 s [opt-env-conf-test] @@ -303,7 +303,7 @@
  22907. 2060.97 s [opt-env-conf-test] go d = \case
  22908. 2060.97 s [opt-env-conf-test] ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22909. 2060.97 s [opt-env-conf-test] ParserAp pf pa ->
  22910. 2060.97 s [opt-env-conf-test] - showParen (d > 10) $
  22911. 2060.97 s [opt-env-conf-test] + showParen (d > 0) $
  22912. 2060.97 s [opt-env-conf-test] showString "Ap "
  22913. 2060.97 s [opt-env-conf-test] . go 11 pf
  22914. 2060.97 s [opt-env-conf-test] . showString " "
  22915. 2060.97 s [opt-env-conf-test]
  22916. 2060.97 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:33-41
  22917. 2060.97 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  22918. 2060.97 s [opt-env-conf-test] where
  22919. 2060.97 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  22920. 2060.97 s [opt-env-conf-test] go d = \case
  22921. 2060.97 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22922. 2060.97 s [opt-env-conf-test] + ParserPure _ -> showParen True $ showString "Pure _"
  22923. 2060.97 s [opt-env-conf-test] ParserAp pf pa ->
  22924. 2060.97 s [opt-env-conf-test] showParen (d > 10) $
  22925. 2060.97 s [opt-env-conf-test] showString "Ap "
  22926. 2060.97 s [opt-env-conf-test]
  22927. 2060.97 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:34-40
  22928. 2060.97 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  22929. 2060.97 s [opt-env-conf-test] where
  22930. 2060.97 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  22931. 2060.97 s [opt-env-conf-test] go d = \case
  22932. 2060.97 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22933. 2060.97 s [opt-env-conf-test] + ParserPure _ -> showParen (True) $ showString "Pure _"
  22934. 2060.97 s [opt-env-conf-test] ParserAp pf pa ->
  22935. 2060.97 s [opt-env-conf-test] showParen (d > 10) $
  22936. 2060.97 s [opt-env-conf-test] showString "Ap "
  22937. 2060.97 s [opt-env-conf-test]
  22938. 2060.97 s [opt-env-conf-test] Cmp at src/OptEnvConf/Parser.hs:304:34-40
  22939. 2060.97 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  22940. 2060.97 s [opt-env-conf-test] where
  22941. 2060.97 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  22942. 2060.97 s [opt-env-conf-test] go d = \case
  22943. 2060.97 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22944. 2060.97 s [opt-env-conf-test] + ParserPure _ -> showParen (d >= 10) $ showString "Pure _"
  22945. 2060.97 s [opt-env-conf-test] ParserAp pf pa ->
  22946. 2060.97 s [opt-env-conf-test] showParen (d > 10) $
  22947. 2060.97 s [opt-env-conf-test] showString "Ap "
  22948. 2060.97 s [opt-env-conf-test]
  22949. 2060.97 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  22950. 2060.97 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  22951. 2060.97 s [opt-env-conf-test] where
  22952. 2060.97 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  22953. 2060.97 s [opt-env-conf-test] go d = \case
  22954. 2060.97 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22955. 2060.97 s [opt-env-conf-test] + ParserPure _ -> showParen (d > -10) $ showString "Pure _"
  22956. 2060.97 s [opt-env-conf-test] ParserAp pf pa ->
  22957. 2060.97 s [opt-env-conf-test] showParen (d > 10) $
  22958. 2060.97 s [opt-env-conf-test] showString "Ap "
  22959. 2060.97 s [opt-env-conf-test]
  22960. 2060.97 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  22961. 2060.97 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  22962. 2060.97 s [opt-env-conf-test] where
  22963. 2060.97 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  22964. 2060.97 s [opt-env-conf-test] go d = \case
  22965. 2060.97 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22966. 2060.97 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 1) $ showString "Pure _"
  22967. 2060.97 s [opt-env-conf-test] ParserAp pf pa ->
  22968. 2060.97 s [opt-env-conf-test] showParen (d > 10) $
  22969. 2060.97 s [opt-env-conf-test] showString "Ap "
  22970. 2060.97 s [opt-env-conf-test]
  22971. 2060.97 s [opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
  22972. 2060.97 s [opt-env-conf-test] @@ -301,7 +301,7 @@
  22973. 2060.97 s [opt-env-conf-test] where
  22974. 2060.97 s [opt-env-conf-test] go :: Int -> Parser a -> ShowS
  22975. 2060.97 s [opt-env-conf-test] go d = \case
  22976. 2060.97 s [opt-env-conf-test] - ParserPure _ -> showParen (d > 10) $ showString "Pure _"
  22977. 2060.97 s [opt-env-conf-test] + ParserPure _ -> showParen (d > 0) $ showString "Pure _"
  22978. 2060.97 s [opt-env-conf-test] ParserAp pf pa ->
  22979. 2060.97 s [opt-env-conf-test] showParen (d > 10) $
  22980. 2060.97 s [opt-env-conf-test] showString "Ap "
  22981. 2060.97 s [opt-env-conf-test]
  22982. 2060.97 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  22983. 2060.97 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  22984. 2060.97 s [opt-env-conf-test] where
  22985. 2060.97 s [opt-env-conf-test] go p =
  22986. 2060.97 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  22987. 2060.97 s [opt-env-conf-test] in case p of
  22988. 2060.97 s [opt-env-conf-test] ParserPure a -> ParserPure a
  22989. 2060.97 s [opt-env-conf-test] ParserAp {} -> p'
  22990. 2060.97 s [opt-env-conf-test] ParserSelect {} -> p'
  22991. 2060.97 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  22992. 2060.97 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  22993. 2060.97 s [opt-env-conf-test] ParserMany {} -> p'
  22994. 2060.97 s [opt-env-conf-test] ParserSome {} -> p'
  22995. 2060.97 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  22996. 2060.97 s [opt-env-conf-test] ParserCheck {} -> p'
  22997. 2060.97 s [opt-env-conf-test] ParserCommands {} -> p'
  22998. 2060.97 s [opt-env-conf-test] - ParserWithConfig {} -> p'
  22999. 2060.97 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23000. 2060.97 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23001. 2060.97 s [opt-env-conf-test] Just _ -> p
  23002. 2060.97 s [opt-env-conf-test]
  23003. 2060.97 s [opt-env-conf-test] -- | Try a list of parsers in order
  23004. 2060.97 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23005. 2060.97 s [opt-env-conf-test]
  23006. 2060.97 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23007. 2060.97 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  23008. 2060.97 s [opt-env-conf-test] where
  23009. 2060.97 s [opt-env-conf-test] go p =
  23010. 2060.97 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23011. 2060.97 s [opt-env-conf-test] in case p of
  23012. 2060.97 s [opt-env-conf-test] ParserPure a -> ParserPure a
  23013. 2060.97 s [opt-env-conf-test] ParserAp {} -> p'
  23014. 2060.97 s [opt-env-conf-test] ParserSelect {} -> p'
  23015. 2060.97 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  23016. 2060.97 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23017. 2060.97 s [opt-env-conf-test] ParserMany {} -> p'
  23018. 2060.97 s [opt-env-conf-test] ParserSome {} -> p'
  23019. 2060.97 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  23020. 2060.97 s [opt-env-conf-test] ParserCheck {} -> p'
  23021. 2060.97 s [opt-env-conf-test] - ParserCommands {} -> p'
  23022. 2060.97 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23023. 2060.97 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23024. 2060.97 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23025. 2060.98 s [opt-env-conf-test] Just _ -> p
  23026. 2060.98 s [opt-env-conf-test]
  23027. 2060.98 s [opt-env-conf-test] -- | Try a list of parsers in order
  23028. 2060.98 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23029. 2060.98 s [opt-env-conf-test]
  23030. 2060.98 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23031. 2060.98 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  23032. 2060.98 s [opt-env-conf-test] where
  23033. 2060.98 s [opt-env-conf-test] go p =
  23034. 2060.98 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23035. 2060.98 s [opt-env-conf-test] in case p of
  23036. 2060.98 s [opt-env-conf-test] ParserPure a -> ParserPure a
  23037. 2060.98 s [opt-env-conf-test] ParserAp {} -> p'
  23038. 2060.98 s [opt-env-conf-test] ParserSelect {} -> p'
  23039. 2060.98 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  23040. 2060.98 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23041. 2060.98 s [opt-env-conf-test] ParserMany {} -> p'
  23042. 2060.98 s [opt-env-conf-test] ParserSome {} -> p'
  23043. 2060.98 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  23044. 2060.98 s [opt-env-conf-test] - ParserCheck {} -> p'
  23045. 2060.98 s [opt-env-conf-test] ParserCommands {} -> p'
  23046. 2060.98 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23047. 2060.98 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23048. 2060.98 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23049. 2060.98 s [opt-env-conf-test] Just _ -> p
  23050. 2060.98 s [opt-env-conf-test]
  23051. 2060.98 s [opt-env-conf-test] -- | Try a list of parsers in order
  23052. 2060.98 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23053. 2060.98 s [opt-env-conf-test]
  23054. 2060.98 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23055. 2060.98 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  23056. 2060.98 s [opt-env-conf-test] where
  23057. 2060.98 s [opt-env-conf-test] go p =
  23058. 2060.98 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23059. 2060.98 s [opt-env-conf-test] in case p of
  23060. 2060.98 s [opt-env-conf-test] ParserPure a -> ParserPure a
  23061. 2060.98 s [opt-env-conf-test] ParserAp {} -> p'
  23062. 2060.98 s [opt-env-conf-test] ParserSelect {} -> p'
  23063. 2060.98 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  23064. 2060.98 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23065. 2060.98 s [opt-env-conf-test] ParserMany {} -> p'
  23066. 2060.98 s [opt-env-conf-test] ParserSome {} -> p'
  23067. 2060.98 s [opt-env-conf-test] - ParserAllOrNothing {} -> p'
  23068. 2060.98 s [opt-env-conf-test] ParserCheck {} -> p'
  23069. 2060.98 s [opt-env-conf-test] ParserCommands {} -> p'
  23070. 2060.98 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23071. 2060.98 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23072. 2060.98 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23073. 2060.98 s [opt-env-conf-test] Just _ -> p
  23074. 2060.98 s [opt-env-conf-test]
  23075. 2060.98 s [opt-env-conf-test] -- | Try a list of parsers in order
  23076. 2060.98 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23077. 2060.98 s [opt-env-conf-test]
  23078. 2060.98 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23079. 2060.98 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  23080. 2060.98 s [opt-env-conf-test] where
  23081. 2060.98 s [opt-env-conf-test] go p =
  23082. 2060.98 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23083. 2060.98 s [opt-env-conf-test] in case p of
  23084. 2060.98 s [opt-env-conf-test] ParserPure a -> ParserPure a
  23085. 2060.98 s [opt-env-conf-test] ParserAp {} -> p'
  23086. 2060.98 s [opt-env-conf-test] ParserSelect {} -> p'
  23087. 2060.98 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  23088. 2060.98 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23089. 2060.98 s [opt-env-conf-test] ParserMany {} -> p'
  23090. 2060.98 s [opt-env-conf-test] - ParserSome {} -> p'
  23091. 2060.98 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  23092. 2060.98 s [opt-env-conf-test] ParserCheck {} -> p'
  23093. 2060.98 s [opt-env-conf-test] ParserCommands {} -> p'
  23094. 2060.98 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23095. 2060.98 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23096. 2060.98 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23097. 2060.98 s [opt-env-conf-test] Just _ -> p
  23098. 2060.98 s [opt-env-conf-test]
  23099. 2060.98 s [opt-env-conf-test] -- | Try a list of parsers in order
  23100. 2060.98 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23101. 2060.98 s [opt-env-conf-test]
  23102. 2060.98 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23103. 2060.98 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  23104. 2060.98 s [opt-env-conf-test] where
  23105. 2060.98 s [opt-env-conf-test] go p =
  23106. 2060.98 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23107. 2060.98 s [opt-env-conf-test] in case p of
  23108. 2060.98 s [opt-env-conf-test] ParserPure a -> ParserPure a
  23109. 2060.98 s [opt-env-conf-test] ParserAp {} -> p'
  23110. 2060.98 s [opt-env-conf-test] ParserSelect {} -> p'
  23111. 2060.98 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  23112. 2060.98 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23113. 2060.98 s [opt-env-conf-test] - ParserMany {} -> p'
  23114. 2060.98 s [opt-env-conf-test] ParserSome {} -> p'
  23115. 2060.98 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  23116. 2060.98 s [opt-env-conf-test] ParserCheck {} -> p'
  23117. 2060.98 s [opt-env-conf-test] ParserCommands {} -> p'
  23118. 2060.98 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23119. 2060.98 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23120. 2060.98 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23121. 2060.98 s [opt-env-conf-test] Just _ -> p
  23122. 2060.98 s [opt-env-conf-test]
  23123. 2060.98 s [opt-env-conf-test] -- | Try a list of parsers in order
  23124. 2060.98 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23125. 2060.98 s [opt-env-conf-test]
  23126. 2060.98 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23127. 2060.98 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  23128. 2060.98 s [opt-env-conf-test] where
  23129. 2060.98 s [opt-env-conf-test] go p =
  23130. 2060.98 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23131. 2060.98 s [opt-env-conf-test] in case p of
  23132. 2060.98 s [opt-env-conf-test] ParserPure a -> ParserPure a
  23133. 2060.98 s [opt-env-conf-test] ParserAp {} -> p'
  23134. 2060.98 s [opt-env-conf-test] ParserSelect {} -> p'
  23135. 2060.98 s [opt-env-conf-test] - ParserEmpty _ -> ParserPure defaultValue
  23136. 2060.98 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23137. 2060.98 s [opt-env-conf-test] ParserMany {} -> p'
  23138. 2060.98 s [opt-env-conf-test] ParserSome {} -> p'
  23139. 2060.98 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  23140. 2060.98 s [opt-env-conf-test] ParserCheck {} -> p'
  23141. 2060.98 s [opt-env-conf-test] ParserCommands {} -> p'
  23142. 2060.98 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23143. 2060.98 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23144. 2060.98 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23145. 2060.98 s [opt-env-conf-test] Just _ -> p
  23146. 2060.98 s [opt-env-conf-test]
  23147. 2060.98 s [opt-env-conf-test] -- | Try a list of parsers in order
  23148. 2060.98 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23149. 2060.98 s [opt-env-conf-test]
  23150. 2060.98 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23151. 2060.98 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  23152. 2060.98 s [opt-env-conf-test] where
  23153. 2060.99 s [opt-env-conf-test] go p =
  23154. 2060.99 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23155. 2060.99 s [opt-env-conf-test] in case p of
  23156. 2060.99 s [opt-env-conf-test] ParserPure a -> ParserPure a
  23157. 2060.99 s [opt-env-conf-test] ParserAp {} -> p'
  23158. 2060.99 s [opt-env-conf-test] - ParserSelect {} -> p'
  23159. 2060.99 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  23160. 2060.99 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23161. 2060.99 s [opt-env-conf-test] ParserMany {} -> p'
  23162. 2060.99 s [opt-env-conf-test] ParserSome {} -> p'
  23163. 2060.99 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  23164. 2060.99 s [opt-env-conf-test] ParserCheck {} -> p'
  23165. 2060.99 s [opt-env-conf-test] ParserCommands {} -> p'
  23166. 2060.99 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23167. 2060.99 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23168. 2060.99 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23169. 2060.99 s [opt-env-conf-test] Just _ -> p
  23170. 2060.99 s [opt-env-conf-test]
  23171. 2060.99 s [opt-env-conf-test] -- | Try a list of parsers in order
  23172. 2060.99 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23173. 2060.99 s [opt-env-conf-test]
  23174. 2060.99 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23175. 2060.99 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  23176. 2060.99 s [opt-env-conf-test] where
  23177. 2060.99 s [opt-env-conf-test] go p =
  23178. 2060.99 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23179. 2060.99 s [opt-env-conf-test] in case p of
  23180. 2060.99 s [opt-env-conf-test] ParserPure a -> ParserPure a
  23181. 2060.99 s [opt-env-conf-test] - ParserAp {} -> p'
  23182. 2060.99 s [opt-env-conf-test] ParserSelect {} -> p'
  23183. 2060.99 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  23184. 2060.99 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23185. 2060.99 s [opt-env-conf-test] ParserMany {} -> p'
  23186. 2060.99 s [opt-env-conf-test] ParserSome {} -> p'
  23187. 2060.99 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  23188. 2060.99 s [opt-env-conf-test] ParserCheck {} -> p'
  23189. 2060.99 s [opt-env-conf-test] ParserCommands {} -> p'
  23190. 2060.99 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23191. 2060.99 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23192. 2060.99 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23193. 2060.99 s [opt-env-conf-test] Just _ -> p
  23194. 2060.99 s [opt-env-conf-test]
  23195. 2060.99 s [opt-env-conf-test] -- | Try a list of parsers in order
  23196. 2060.99 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23197. 2060.99 s [opt-env-conf-test]
  23198. 2060.99 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
  23199. 2060.99 s [opt-env-conf-test] @@ -547,21 +547,20 @@
  23200. 2060.99 s [opt-env-conf-test] where
  23201. 2060.99 s [opt-env-conf-test] go p =
  23202. 2060.99 s [opt-env-conf-test] let p' = p <|> pure defaultValue
  23203. 2060.99 s [opt-env-conf-test] in case p of
  23204. 2060.99 s [opt-env-conf-test] - ParserPure a -> ParserPure a
  23205. 2060.99 s [opt-env-conf-test] ParserAp {} -> p'
  23206. 2060.99 s [opt-env-conf-test] ParserSelect {} -> p'
  23207. 2060.99 s [opt-env-conf-test] ParserEmpty _ -> ParserPure defaultValue
  23208. 2060.99 s [opt-env-conf-test] ParserAlt p1 p2 -> ParserAlt p1 (go p2)
  23209. 2060.99 s [opt-env-conf-test] ParserMany {} -> p'
  23210. 2060.99 s [opt-env-conf-test] ParserSome {} -> p'
  23211. 2060.99 s [opt-env-conf-test] ParserAllOrNothing {} -> p'
  23212. 2060.99 s [opt-env-conf-test] ParserCheck {} -> p'
  23213. 2060.99 s [opt-env-conf-test] ParserCommands {} -> p'
  23214. 2060.99 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23215. 2060.99 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23216. 2060.99 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23217. 2060.99 s [opt-env-conf-test] Just _ -> p
  23218. 2060.99 s [opt-env-conf-test]
  23219. 2060.99 s [opt-env-conf-test] -- | Try a list of parsers in order
  23220. 2060.99 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23221. 2060.99 s [opt-env-conf-test]
  23222. 2060.99 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
  23223. 2060.99 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  23224. 2060.99 s [opt-env-conf-test] ParserCheck {} -> p'
  23225. 2060.99 s [opt-env-conf-test] ParserCommands {} -> p'
  23226. 2060.99 s [opt-env-conf-test] ParserWithConfig {} -> p'
  23227. 2060.99 s [opt-env-conf-test] ParserSetting mLoc s -> case settingDefaultValue s of
  23228. 2060.99 s [opt-env-conf-test] Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
  23229. 2060.99 s [opt-env-conf-test] - Just _ -> p
  23230. 2060.99 s [opt-env-conf-test]
  23231. 2060.99 s [opt-env-conf-test] -- | Try a list of parsers in order
  23232. 2060.99 s [opt-env-conf-test] choice :: (HasCallStack) => [Parser a] -> Parser a
  23233. 2060.99 s [opt-env-conf-test]
  23234. 2060.99 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
  23235. 2060.99 s [opt-env-conf-test] @@ -599,9 +599,8 @@
  23236. 2060.99 s [opt-env-conf-test] checkMapMaybe func p =
  23237. 2060.99 s [opt-env-conf-test] withFrozenCallStack $
  23238. 2060.99 s [opt-env-conf-test] checkMapEither
  23239. 2060.99 s [opt-env-conf-test] ( \a -> case func a of
  23240. 2060.99 s [opt-env-conf-test] Nothing -> Left "checkMapMaybe failed without a helpful error message"
  23241. 2060.99 s [opt-env-conf-test] - Just b -> Right b
  23242. 2060.99 s [opt-env-conf-test] )
  23243. 2060.99 s [opt-env-conf-test] p
  23244. 2060.99 s [opt-env-conf-test]
  23245. 2060.99 s [opt-env-conf-test]
  23246. 2060.99 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Completion.hs:453:24-40
  23247. 2060.99 s [opt-env-conf-test] @@ -450,7 +450,7 @@
  23248. 2060.99 s [opt-env-conf-test] put as'
  23249. 2060.99 s [opt-env-conf-test] pure $ Just []
  23250. 2060.99 s [opt-env-conf-test] else do
  23251. 2060.99 s [opt-env-conf-test] - if settingTryOption
  23252. 2060.99 s [opt-env-conf-test] + if True
  23253. 2060.99 s [opt-env-conf-test] then do
  23254. 2060.99 s [opt-env-conf-test] -- First we try to consume the option so we don't suggest it if it's already been parsed
  23255. 2060.99 s [opt-env-conf-test] case Args.consumeOption settingDasheds as of
  23256. 2060.99 s [opt-env-conf-test]
  23257. 2060.99 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
  23258. 2060.99 s [opt-env-conf-test] @@ -432,11 +432,10 @@
  23259. 2060.99 s [opt-env-conf-test] -- consumeArgument) or because only the consume-nothing
  23260. 2060.99 s [opt-env-conf-test] -- fallback matched. In both cases, offer the
  23261. 2060.99 s [opt-env-conf-test] -- completer if we are at the end.
  23262. 2060.99 s [opt-env-conf-test] case possibilities of
  23263. 2060.99 s [opt-env-conf-test] - [] -> completeWithCompleterAtEnd
  23264. 2060.99 s [opt-env-conf-test] (_, as') : _ -> do
  23265. 2060.99 s [opt-env-conf-test] put as'
  23266. 2060.99 s [opt-env-conf-test] completeWithCompleterAtEnd
  23267. 2060.99 s [opt-env-conf-test] else
  23268. 2060.99 s [opt-env-conf-test] if isJust settingSwitchValue
  23269. 2060.99 s [opt-env-conf-test] then do
  23270. 2060.99 s [opt-env-conf-test]
  23271. 2060.99 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Completion.hs:437:39-51
  23272. 2060.99 s [opt-env-conf-test] @@ -434,9 +434,8 @@
  23273. 2060.99 s [opt-env-conf-test] -- completer if we are at the end.
  23274. 2060.99 s [opt-env-conf-test] case possibilities of
  23275. 2060.99 s [opt-env-conf-test] [] -> completeWithCompleterAtEnd
  23276. 2060.99 s [opt-env-conf-test] (_, as') : _ -> do
  23277. 2060.99 s [opt-env-conf-test] - put as'
  23278. 2060.99 s [opt-env-conf-test] completeWithCompleterAtEnd
  23279. 2061.00 s [opt-env-conf-test] else
  23280. 2061.00 s [opt-env-conf-test] if isJust settingSwitchValue
  23281. 2061.00 s [opt-env-conf-test] then do
  23282. 2061.00 s [opt-env-conf-test]
  23283. 2061.00 s [opt-env-conf-test] MaybeOp at src/OptEnvConf/Completion.hs:398:70-77
  23284. 2061.00 s [opt-env-conf-test] @@ -395,7 +395,7 @@
  23285. 2061.00 s [opt-env-conf-test] pure Completion {..}
  23286. 2061.00 s [opt-env-conf-test] let completeWithCompleterAtEnd = do
  23287. 2061.00 s [opt-env-conf-test] as <- get
  23288. 2061.00 s [opt-env-conf-test] - if argsAtEnd as then completeWithCompleter else pure $ Just []
  23289. 2061.00 s [opt-env-conf-test] + if argsAtEnd as then completeWithCompleter else pure $ Nothing
  23290. 2061.00 s [opt-env-conf-test] let completeWithDasheds = do
  23291. 2061.00 s [opt-env-conf-test] let isLong = \case
  23292. 2061.00 s [opt-env-conf-test] DashedLong _ -> True
  23293. 2061.00 s [opt-env-conf-test]
  23294. 2061.00 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Completion.hs:254:20-23
  23295. 2061.00 s [opt-env-conf-test] @@ -251,9 +251,8 @@
  23296. 2061.00 s [opt-env-conf-test] before <- get
  23297. 2061.00 s [opt-env-conf-test] mA <- func
  23298. 2061.00 s [opt-env-conf-test] case mA of
  23299. 2061.00 s [opt-env-conf-test] Nothing -> do
  23300. 2061.00 s [opt-env-conf-test] - put before
  23301. 2061.00 s [opt-env-conf-test] pure Nothing
  23302. 2061.00 s [opt-env-conf-test] Just a -> pure (Just a)
  23303. 2061.00 s [opt-env-conf-test]
  23304. 2061.00 s [opt-env-conf-test] -- Completions for many/some: try the parser repeatedly.
  23305. 2061.00 s [opt-env-conf-test]
  23306. 2061.00 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23307. 2061.00 s [opt-env-conf-test] @@ -125,42 +125,41 @@
  23308. 2061.00 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23309. 2061.00 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23310. 2061.00 s [opt-env-conf-test] exitFailure
  23311. 2061.00 s [opt-env-conf-test] Right i -> case i of
  23312. 2061.00 s [opt-env-conf-test] ShowVersion -> do
  23313. 2061.00 s [opt-env-conf-test] progname <- getProgName
  23314. 2061.00 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23315. 2061.00 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23316. 2061.00 s [opt-env-conf-test] exitSuccess
  23317. 2061.00 s [opt-env-conf-test] RenderMan -> do
  23318. 2061.00 s [opt-env-conf-test] progname <- getProgName
  23319. 2061.00 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23320. 2061.00 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23321. 2061.00 s [opt-env-conf-test] exitSuccess
  23322. 2061.00 s [opt-env-conf-test] RenderDocumentation -> do
  23323. 2061.00 s [opt-env-conf-test] progname <- getProgName
  23324. 2061.00 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23325. 2061.00 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23326. 2061.00 s [opt-env-conf-test] exitSuccess
  23327. 2061.00 s [opt-env-conf-test] RenderNixosOptions -> do
  23328. 2061.00 s [opt-env-conf-test] progname <- getProgName
  23329. 2061.00 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23330. 2061.00 s [opt-env-conf-test] exitSuccess
  23331. 2061.00 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23332. 2061.00 s [opt-env-conf-test] progname <- getProgName
  23333. 2061.00 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23334. 2061.00 s [opt-env-conf-test] exitSuccess
  23335. 2061.00 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23336. 2061.00 s [opt-env-conf-test] progname <- getProgName
  23337. 2061.00 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23338. 2061.00 s [opt-env-conf-test] exitSuccess
  23339. 2061.00 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23340. 2061.00 s [opt-env-conf-test] progname <- getProgName
  23341. 2061.00 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23342. 2061.00 s [opt-env-conf-test] exitSuccess
  23343. 2061.00 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23344. 2061.00 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23345. 2061.00 s [opt-env-conf-test] exitSuccess
  23346. 2061.00 s [opt-env-conf-test] - ParsedNormally a -> pure a
  23347. 2061.00 s [opt-env-conf-test]
  23348. 2061.00 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  23349. 2061.01 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23350. 2061.01 s [opt-env-conf-test]
  23351. 2061.01 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23352. 2061.01 s [opt-env-conf-test] @@ -125,42 +125,39 @@
  23353. 2061.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23354. 2061.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23355. 2061.01 s [opt-env-conf-test] exitFailure
  23356. 2061.01 s [opt-env-conf-test] Right i -> case i of
  23357. 2061.01 s [opt-env-conf-test] ShowVersion -> do
  23358. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23359. 2061.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23360. 2061.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23361. 2061.01 s [opt-env-conf-test] exitSuccess
  23362. 2061.01 s [opt-env-conf-test] RenderMan -> do
  23363. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23364. 2061.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23365. 2061.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23366. 2061.01 s [opt-env-conf-test] exitSuccess
  23367. 2061.01 s [opt-env-conf-test] RenderDocumentation -> do
  23368. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23369. 2061.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23370. 2061.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23371. 2061.01 s [opt-env-conf-test] exitSuccess
  23372. 2061.01 s [opt-env-conf-test] RenderNixosOptions -> do
  23373. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23374. 2061.01 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23375. 2061.01 s [opt-env-conf-test] exitSuccess
  23376. 2061.01 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23377. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23378. 2061.01 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23379. 2061.01 s [opt-env-conf-test] exitSuccess
  23380. 2061.01 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23381. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23382. 2061.01 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23383. 2061.01 s [opt-env-conf-test] exitSuccess
  23384. 2061.01 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23385. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23386. 2061.01 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23387. 2061.01 s [opt-env-conf-test] exitSuccess
  23388. 2061.01 s [opt-env-conf-test] - CompletionQuery enriched index ws -> do
  23389. 2061.01 s [opt-env-conf-test] - runCompletionQuery p' enriched index ws
  23390. 2061.01 s [opt-env-conf-test] - exitSuccess
  23391. 2061.01 s [opt-env-conf-test] ParsedNormally a -> pure a
  23392. 2061.01 s [opt-env-conf-test]
  23393. 2061.01 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  23394. 2061.01 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23395. 2061.01 s [opt-env-conf-test]
  23396. 2061.01 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23397. 2061.01 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  23398. 2061.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23399. 2061.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23400. 2061.01 s [opt-env-conf-test] exitFailure
  23401. 2061.01 s [opt-env-conf-test] Right i -> case i of
  23402. 2061.01 s [opt-env-conf-test] ShowVersion -> do
  23403. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23404. 2061.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23405. 2061.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23406. 2061.01 s [opt-env-conf-test] exitSuccess
  23407. 2061.01 s [opt-env-conf-test] RenderMan -> do
  23408. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23409. 2061.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23410. 2061.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23411. 2061.01 s [opt-env-conf-test] exitSuccess
  23412. 2061.01 s [opt-env-conf-test] RenderDocumentation -> do
  23413. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23414. 2061.01 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23415. 2061.01 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23416. 2061.01 s [opt-env-conf-test] exitSuccess
  23417. 2061.01 s [opt-env-conf-test] RenderNixosOptions -> do
  23418. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23419. 2061.01 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23420. 2061.01 s [opt-env-conf-test] exitSuccess
  23421. 2061.01 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23422. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23423. 2061.01 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23424. 2061.01 s [opt-env-conf-test] exitSuccess
  23425. 2061.01 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23426. 2061.01 s [opt-env-conf-test] progname <- getProgName
  23427. 2061.01 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23428. 2061.01 s [opt-env-conf-test] - exitSuccess
  23429. 2061.01 s [opt-env-conf-test] - FishCompletionScript progPath -> do
  23430. 2061.01 s [opt-env-conf-test] - progname <- getProgName
  23431. 2061.01 s [opt-env-conf-test] - generateFishCompletionScript progPath progname
  23432. 2061.01 s [opt-env-conf-test] exitSuccess
  23433. 2061.01 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23434. 2061.01 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23435. 2061.01 s [opt-env-conf-test] exitSuccess
  23436. 2061.01 s [opt-env-conf-test] ParsedNormally a -> pure a
  23437. 2061.01 s [opt-env-conf-test]
  23438. 2061.01 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  23439. 2061.01 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23440. 2061.02 s [opt-env-conf-test]
  23441. 2061.02 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23442. 2061.02 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  23443. 2061.02 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23444. 2061.02 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23445. 2061.02 s [opt-env-conf-test] exitFailure
  23446. 2061.02 s [opt-env-conf-test] Right i -> case i of
  23447. 2061.02 s [opt-env-conf-test] ShowVersion -> do
  23448. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23449. 2061.02 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23450. 2061.02 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23451. 2061.02 s [opt-env-conf-test] exitSuccess
  23452. 2061.02 s [opt-env-conf-test] RenderMan -> do
  23453. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23454. 2061.02 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23455. 2061.02 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23456. 2061.02 s [opt-env-conf-test] exitSuccess
  23457. 2061.02 s [opt-env-conf-test] RenderDocumentation -> do
  23458. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23459. 2061.02 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23460. 2061.02 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23461. 2061.02 s [opt-env-conf-test] exitSuccess
  23462. 2061.02 s [opt-env-conf-test] RenderNixosOptions -> do
  23463. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23464. 2061.02 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23465. 2061.02 s [opt-env-conf-test] exitSuccess
  23466. 2061.02 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23467. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23468. 2061.02 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23469. 2061.02 s [opt-env-conf-test] - exitSuccess
  23470. 2061.02 s [opt-env-conf-test] - ZshCompletionScript progPath -> do
  23471. 2061.02 s [opt-env-conf-test] - progname <- getProgName
  23472. 2061.02 s [opt-env-conf-test] - generateZshCompletionScript progPath progname
  23473. 2061.02 s [opt-env-conf-test] exitSuccess
  23474. 2061.02 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23475. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23476. 2061.02 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23477. 2061.02 s [opt-env-conf-test] exitSuccess
  23478. 2061.02 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23479. 2061.02 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23480. 2061.02 s [opt-env-conf-test] exitSuccess
  23481. 2061.02 s [opt-env-conf-test] ParsedNormally a -> pure a
  23482. 2061.02 s [opt-env-conf-test]
  23483. 2061.02 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  23484. 2061.02 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23485. 2061.02 s [opt-env-conf-test]
  23486. 2061.02 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23487. 2061.02 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  23488. 2061.02 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23489. 2061.02 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23490. 2061.02 s [opt-env-conf-test] exitFailure
  23491. 2061.02 s [opt-env-conf-test] Right i -> case i of
  23492. 2061.02 s [opt-env-conf-test] ShowVersion -> do
  23493. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23494. 2061.02 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23495. 2061.02 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23496. 2061.02 s [opt-env-conf-test] exitSuccess
  23497. 2061.02 s [opt-env-conf-test] RenderMan -> do
  23498. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23499. 2061.02 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23500. 2061.02 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23501. 2061.02 s [opt-env-conf-test] exitSuccess
  23502. 2061.02 s [opt-env-conf-test] RenderDocumentation -> do
  23503. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23504. 2061.02 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23505. 2061.02 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23506. 2061.02 s [opt-env-conf-test] exitSuccess
  23507. 2061.02 s [opt-env-conf-test] RenderNixosOptions -> do
  23508. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23509. 2061.02 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23510. 2061.02 s [opt-env-conf-test] - exitSuccess
  23511. 2061.02 s [opt-env-conf-test] - BashCompletionScript progPath -> do
  23512. 2061.02 s [opt-env-conf-test] - progname <- getProgName
  23513. 2061.02 s [opt-env-conf-test] - generateBashCompletionScript progPath progname
  23514. 2061.02 s [opt-env-conf-test] exitSuccess
  23515. 2061.02 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23516. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23517. 2061.02 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23518. 2061.02 s [opt-env-conf-test] exitSuccess
  23519. 2061.02 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23520. 2061.02 s [opt-env-conf-test] progname <- getProgName
  23521. 2061.02 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23522. 2061.02 s [opt-env-conf-test] exitSuccess
  23523. 2061.03 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23524. 2061.03 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23525. 2061.03 s [opt-env-conf-test] exitSuccess
  23526. 2061.03 s [opt-env-conf-test] ParsedNormally a -> pure a
  23527. 2061.03 s [opt-env-conf-test]
  23528. 2061.03 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  23529. 2061.03 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23530. 2061.03 s [opt-env-conf-test]
  23531. 2061.03 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23532. 2061.03 s [opt-env-conf-test] @@ -125,42 +125,38 @@
  23533. 2061.03 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23534. 2061.03 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23535. 2061.03 s [opt-env-conf-test] exitFailure
  23536. 2061.03 s [opt-env-conf-test] Right i -> case i of
  23537. 2061.03 s [opt-env-conf-test] ShowVersion -> do
  23538. 2061.03 s [opt-env-conf-test] progname <- getProgName
  23539. 2061.03 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23540. 2061.03 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23541. 2061.03 s [opt-env-conf-test] exitSuccess
  23542. 2061.03 s [opt-env-conf-test] RenderMan -> do
  23543. 2061.03 s [opt-env-conf-test] progname <- getProgName
  23544. 2061.03 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23545. 2061.03 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23546. 2061.03 s [opt-env-conf-test] exitSuccess
  23547. 2061.03 s [opt-env-conf-test] RenderDocumentation -> do
  23548. 2061.03 s [opt-env-conf-test] progname <- getProgName
  23549. 2061.03 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23550. 2061.03 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23551. 2061.03 s [opt-env-conf-test] - exitSuccess
  23552. 2061.03 s [opt-env-conf-test] - RenderNixosOptions -> do
  23553. 2061.03 s [opt-env-conf-test] - progname <- getProgName
  23554. 2061.03 s [opt-env-conf-test] - putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23555. 2061.03 s [opt-env-conf-test] exitSuccess
  23556. 2061.03 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23557. 2061.03 s [opt-env-conf-test] progname <- getProgName
  23558. 2061.03 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23559. 2061.03 s [opt-env-conf-test] exitSuccess
  23560. 2061.03 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23561. 2061.03 s [opt-env-conf-test] progname <- getProgName
  23562. 2061.03 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23563. 2061.03 s [opt-env-conf-test] exitSuccess
  23564. 2061.03 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23565. 2061.03 s [opt-env-conf-test] progname <- getProgName
  23566. 2061.03 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23567. 2061.03 s [opt-env-conf-test] exitSuccess
  23568. 2061.03 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23569. 2061.03 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23570. 2061.03 s [opt-env-conf-test] exitSuccess
  23571. 2061.03 s [opt-env-conf-test] ParsedNormally a -> pure a
  23572. 2061.03 s [opt-env-conf-test]
  23573. 2061.03 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  23574. 2061.03 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23575. 2061.03 s [opt-env-conf-test]
  23576. 2061.03 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23577. 2061.03 s [opt-env-conf-test] @@ -125,42 +125,37 @@
  23578. 2061.03 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23579. 2061.03 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23580. 2061.03 s [opt-env-conf-test] exitFailure
  23581. 2061.03 s [opt-env-conf-test] Right i -> case i of
  23582. 2061.03 s [opt-env-conf-test] ShowVersion -> do
  23583. 2061.03 s [opt-env-conf-test] progname <- getProgName
  23584. 2061.03 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23585. 2061.03 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23586. 2061.03 s [opt-env-conf-test] exitSuccess
  23587. 2061.03 s [opt-env-conf-test] RenderMan -> do
  23588. 2061.03 s [opt-env-conf-test] progname <- getProgName
  23589. 2061.03 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23590. 2061.03 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23591. 2061.04 s [opt-env-conf-test] exitSuccess
  23592. 2061.04 s [opt-env-conf-test] - RenderDocumentation -> do
  23593. 2061.04 s [opt-env-conf-test] - progname <- getProgName
  23594. 2061.04 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  23595. 2061.04 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23596. 2061.04 s [opt-env-conf-test] - exitSuccess
  23597. 2061.04 s [opt-env-conf-test] RenderNixosOptions -> do
  23598. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23599. 2061.04 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23600. 2061.04 s [opt-env-conf-test] exitSuccess
  23601. 2061.04 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23602. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23603. 2061.04 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23604. 2061.04 s [opt-env-conf-test] exitSuccess
  23605. 2061.04 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23606. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23607. 2061.04 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23608. 2061.04 s [opt-env-conf-test] exitSuccess
  23609. 2061.04 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23610. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23611. 2061.04 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23612. 2061.04 s [opt-env-conf-test] exitSuccess
  23613. 2061.04 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23614. 2061.04 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23615. 2061.04 s [opt-env-conf-test] exitSuccess
  23616. 2061.04 s [opt-env-conf-test] ParsedNormally a -> pure a
  23617. 2061.04 s [opt-env-conf-test]
  23618. 2061.04 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  23619. 2061.04 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23620. 2061.04 s [opt-env-conf-test]
  23621. 2061.04 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
  23622. 2061.04 s [opt-env-conf-test] @@ -125,42 +125,37 @@
  23623. 2061.04 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23624. 2061.04 s [opt-env-conf-test] hPutChunksLocaleWith tc stderr $ renderErrors errs
  23625. 2061.04 s [opt-env-conf-test] exitFailure
  23626. 2061.04 s [opt-env-conf-test] Right i -> case i of
  23627. 2061.04 s [opt-env-conf-test] ShowVersion -> do
  23628. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23629. 2061.04 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23630. 2061.04 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23631. 2061.04 s [opt-env-conf-test] exitSuccess
  23632. 2061.04 s [opt-env-conf-test] - RenderMan -> do
  23633. 2061.04 s [opt-env-conf-test] - progname <- getProgName
  23634. 2061.04 s [opt-env-conf-test] - tc <- getTerminalCapabilitiesFromHandle stdout
  23635. 2061.04 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
  23636. 2061.04 s [opt-env-conf-test] - exitSuccess
  23637. 2061.04 s [opt-env-conf-test] RenderDocumentation -> do
  23638. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23639. 2061.04 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23640. 2061.04 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
  23641. 2061.04 s [opt-env-conf-test] exitSuccess
  23642. 2061.04 s [opt-env-conf-test] RenderNixosOptions -> do
  23643. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23644. 2061.04 s [opt-env-conf-test] putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
  23645. 2061.04 s [opt-env-conf-test] exitSuccess
  23646. 2061.04 s [opt-env-conf-test] BashCompletionScript progPath -> do
  23647. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23648. 2061.04 s [opt-env-conf-test] generateBashCompletionScript progPath progname
  23649. 2061.04 s [opt-env-conf-test] exitSuccess
  23650. 2061.04 s [opt-env-conf-test] ZshCompletionScript progPath -> do
  23651. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23652. 2061.04 s [opt-env-conf-test] generateZshCompletionScript progPath progname
  23653. 2061.04 s [opt-env-conf-test] exitSuccess
  23654. 2061.04 s [opt-env-conf-test] FishCompletionScript progPath -> do
  23655. 2061.04 s [opt-env-conf-test] progname <- getProgName
  23656. 2061.05 s [opt-env-conf-test] generateFishCompletionScript progPath progname
  23657. 2061.05 s [opt-env-conf-test] exitSuccess
  23658. 2061.05 s [opt-env-conf-test] CompletionQuery enriched index ws -> do
  23659. 2061.05 s [opt-env-conf-test] runCompletionQuery p' enriched index ws
  23660. 2061.05 s [opt-env-conf-test] exitSuccess
  23661. 2061.05 s [opt-env-conf-test] ParsedNormally a -> pure a
  23662. 2061.05 s [opt-env-conf-test]
  23663. 2061.05 s [opt-env-conf-test] -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
  23664. 2061.05 s [opt-env-conf-test] consumeExactArg :: String -> [String] -> (Bool, [String])
  23665. 2061.05 s [opt-env-conf-test]
  23666. 2061.05 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Main.hs:132:21-88
  23667. 2061.05 s [opt-env-conf-test] @@ -129,7 +129,6 @@
  23668. 2061.05 s [opt-env-conf-test] ShowVersion -> do
  23669. 2061.05 s [opt-env-conf-test] progname <- getProgName
  23670. 2061.05 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23671. 2061.05 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
  23672. 2061.05 s [opt-env-conf-test] exitSuccess
  23673. 2061.05 s [opt-env-conf-test] RenderMan -> do
  23674. 2061.05 s [opt-env-conf-test] progname <- getProgName
  23675. 2061.05 s [opt-env-conf-test]
  23676. 2061.05 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Main.hs:126:19-69
  23677. 2061.05 s [opt-env-conf-test] @@ -123,7 +123,6 @@
  23678. 2061.05 s [opt-env-conf-test] case errOrResult of
  23679. 2061.05 s [opt-env-conf-test] Left errs -> do
  23680. 2061.05 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stderr
  23681. 2061.05 s [opt-env-conf-test] - hPutChunksLocaleWith tc stderr $ renderErrors errs
  23682. 2061.05 s [opt-env-conf-test] exitFailure
  23683. 2061.05 s [opt-env-conf-test] Right i -> case i of
  23684. 2061.05 s [opt-env-conf-test] ShowVersion -> do
  23685. 2061.05 s [opt-env-conf-test]
  23686. 2061.05 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Main.hs:100:15-78
  23687. 2061.05 s [opt-env-conf-test] @@ -97,9 +97,6 @@
  23688. 2061.05 s [opt-env-conf-test] exitFailure
  23689. 2061.05 s [opt-env-conf-test] Right mCommandDoc -> do
  23690. 2061.05 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23691. 2061.05 s [opt-env-conf-test] - hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  23692. 2061.05 s [opt-env-conf-test] - Nothing -> renderHelpPage progname version progDesc docs
  23693. 2061.05 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  23694. 2061.05 s [opt-env-conf-test] exitSuccess
  23695. 2061.05 s [opt-env-conf-test] else do
  23696. 2061.05 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  23697. 2061.05 s [opt-env-conf-test]
  23698. 2061.05 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:100:48-78
  23699. 2061.05 s [opt-env-conf-test] @@ -97,9 +97,8 @@
  23700. 2061.05 s [opt-env-conf-test] exitFailure
  23701. 2061.05 s [opt-env-conf-test] Right mCommandDoc -> do
  23702. 2061.05 s [opt-env-conf-test] tc <- getTerminalCapabilitiesFromHandle stdout
  23703. 2061.05 s [opt-env-conf-test] hPutChunksLocaleWith tc stdout $ case mCommandDoc of
  23704. 2061.05 s [opt-env-conf-test] Nothing -> renderHelpPage progname version progDesc docs
  23705. 2061.05 s [opt-env-conf-test] - Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
  23706. 2061.05 s [opt-env-conf-test] exitSuccess
  23707. 2061.05 s [opt-env-conf-test] else do
  23708. 2061.05 s [opt-env-conf-test] let (capabilities, args'') = consumeCapabilities args'
  23709. 2061.05 s [opt-env-conf-test]
  23710. 2061.05 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:83:12-21
  23711. 2061.05 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  23712. 2061.05 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  23713. 2061.05 s [opt-env-conf-test]
  23714. 2061.05 s [opt-env-conf-test] mDebugMode <-
  23715. 2061.05 s [opt-env-conf-test] - if debugMode
  23716. 2061.05 s [opt-env-conf-test] + if not (debugMode)
  23717. 2061.05 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  23718. 2061.05 s [opt-env-conf-test] else pure Nothing
  23719. 2061.05 s [opt-env-conf-test]
  23720. 2061.05 s [opt-env-conf-test]
  23721. 2061.05 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  23722. 2061.05 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  23723. 2061.05 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  23724. 2061.05 s [opt-env-conf-test]
  23725. 2061.05 s [opt-env-conf-test] mDebugMode <-
  23726. 2061.05 s [opt-env-conf-test] - if debugMode
  23727. 2061.05 s [opt-env-conf-test] + if False
  23728. 2061.05 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  23729. 2061.05 s [opt-env-conf-test] else pure Nothing
  23730. 2061.05 s [opt-env-conf-test]
  23731. 2061.05 s [opt-env-conf-test]
  23732. 2061.05 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
  23733. 2061.05 s [opt-env-conf-test] @@ -80,7 +80,7 @@
  23734. 2061.05 s [opt-env-conf-test] let (debugMode, args) = consumeDebugMode allArgs
  23735. 2061.05 s [opt-env-conf-test]
  23736. 2061.05 s [opt-env-conf-test] mDebugMode <-
  23737. 2061.05 s [opt-env-conf-test] - if debugMode
  23738. 2061.05 s [opt-env-conf-test] + if True
  23739. 2061.05 s [opt-env-conf-test] then Just <$> getTerminalCapabilitiesFromHandle stderr
  23740. 2061.05 s [opt-env-conf-test] else pure Nothing
  23741. 2061.05 s [opt-env-conf-test]
  23742. 2061.05 s [opt-env-conf-test]
  23743. 2061.05 s [opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:175:18-23
  23744. 2061.05 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  23745. 2061.05 s [opt-env-conf-test] | x == arg -> (True, xs)
  23746. 2061.05 s [opt-env-conf-test] | otherwise ->
  23747. 2061.05 s [opt-env-conf-test] let (found, rest) = go xs
  23748. 2061.05 s [opt-env-conf-test] - in (found, x : rest)
  23749. 2061.05 s [opt-env-conf-test] + in (not (found), x : rest)
  23750. 2061.05 s [opt-env-conf-test]
  23751. 2061.05 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  23752. 2061.05 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  23753. 2061.05 s [opt-env-conf-test]
  23754. 2061.05 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:175:18-23
  23755. 2061.06 s [opt-env-conf-test] @@ -172,7 +172,7 @@
  23756. 2061.06 s [opt-env-conf-test] | x == arg -> (True, xs)
  23757. 2061.06 s [opt-env-conf-test] | otherwise ->
  23758. 2061.06 s [opt-env-conf-test] let (found, rest) = go xs
  23759. 2061.06 s [opt-env-conf-test] - in (found, x : rest)
  23760. 2061.06 s [opt-env-conf-test] + in (False, x : rest)
  23761. 2061.06 s [opt-env-conf-test]
  23762. 2061.06 s [opt-env-conf-test] consumeDebugMode :: [String] -> (Bool, [String])
  23763. 2061.06 s [opt-env-conf-test] consumeDebugMode = consumeExactArg "--debug-optparse"
  23764. 2061.06 s [opt-env-conf-test]
  23765. 2061.06 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:199:13-44
  23766. 2061.06 s [opt-env-conf-test] @@ -196,13 +196,12 @@
  23767. 2061.06 s [opt-env-conf-test] [] -> (caps, [])
  23768. 2061.06 s [opt-env-conf-test] (x : xs) ->
  23769. 2061.06 s [opt-env-conf-test] let t = T.pack x
  23770. 2061.06 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  23771. 2061.06 s [opt-env-conf-test] - Just capName -> go (disableCapability (Capability capName) caps) xs
  23772. 2061.06 s [opt-env-conf-test] Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  23773. 2061.06 s [opt-env-conf-test] Just capName -> go (enableCapability (Capability capName) caps) xs
  23774. 2061.06 s [opt-env-conf-test] Nothing ->
  23775. 2061.06 s [opt-env-conf-test] let (finalCaps, rest) = go caps xs
  23776. 2061.06 s [opt-env-conf-test] in (finalCaps, x : rest)
  23777. 2061.06 s [opt-env-conf-test]
  23778. 2061.06 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  23779. 2061.06 s [opt-env-conf-test] -- is supposed to.
  23780. 2061.06 s [opt-env-conf-test]
  23781. 2061.06 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:201:26-44
  23782. 2061.06 s [opt-env-conf-test] @@ -198,11 +198,10 @@
  23783. 2061.06 s [opt-env-conf-test] let t = T.pack x
  23784. 2061.06 s [opt-env-conf-test] in case T.stripPrefix "--settings-capabilities-disable-" t of
  23785. 2061.06 s [opt-env-conf-test] Just capName -> go (disableCapability (Capability capName) caps) xs
  23786. 2061.06 s [opt-env-conf-test] Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
  23787. 2061.06 s [opt-env-conf-test] - Just capName -> go (enableCapability (Capability capName) caps) xs
  23788. 2061.06 s [opt-env-conf-test] Nothing ->
  23789. 2061.06 s [opt-env-conf-test] let (finalCaps, rest) = go caps xs
  23790. 2061.06 s [opt-env-conf-test] in (finalCaps, x : rest)
  23791. 2061.06 s [opt-env-conf-test]
  23792. 2061.06 s [opt-env-conf-test] -- Internal structure to help us do what the framework
  23793. 2061.06 s [opt-env-conf-test] -- is supposed to.
  23794. 2061.06 s [opt-env-conf-test]
  23795. 2061.06 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:440:44-42
  23796. 2061.06 s [opt-env-conf-test] @@ -437,21 +437,20 @@
  23797. 2061.06 s [opt-env-conf-test] Just (a, _) -> do
  23798. 2061.06 s [opt-env-conf-test] debug ["set to default value"]
  23799. 2061.06 s [opt-env-conf-test] pure a -- Don't mark as parsed
  23800. 2061.06 s [opt-env-conf-test] Nothing -> do
  23801. 2061.06 s [opt-env-conf-test] let parseResultError e res = case res of
  23802. 2061.06 s [opt-env-conf-test] NotRun -> Nothing
  23803. 2061.06 s [opt-env-conf-test] NotFound -> Just e
  23804. 2061.06 s [opt-env-conf-test] Found _ -> Nothing -- Should not happen.
  23805. 2061.06 s [opt-env-conf-test] - debug ["not found"]
  23806. 2061.06 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  23807. 2061.06 s [opt-env-conf-test] NE.nonEmpty $
  23808. 2061.06 s [opt-env-conf-test] catMaybes
  23809. 2061.06 s [opt-env-conf-test] [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
  23810. 2061.06 s [opt-env-conf-test] parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
  23811. 2061.06 s [opt-env-conf-test] parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
  23812. 2061.06 s [opt-env-conf-test] parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
  23813. 2061.06 s [opt-env-conf-test] parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
  23814. 2061.06 s [opt-env-conf-test] ]
  23815. 2061.06 s [opt-env-conf-test]
  23816. 2061.06 s [opt-env-conf-test] withCapabilities ::
  23817. 2061.06 s [opt-env-conf-test] Maybe SrcLoc ->
  23818. 2061.06 s [opt-env-conf-test]
  23819. 2061.06 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:441:64-59
  23820. 2061.06 s [opt-env-conf-test] @@ -438,10 +438,9 @@
  23821. 2061.06 s [opt-env-conf-test] debug ["set to default value"]
  23822. 2061.06 s [opt-env-conf-test] pure a -- Don't mark as parsed
  23823. 2061.06 s [opt-env-conf-test] Nothing -> do
  23824. 2061.06 s [opt-env-conf-test] let parseResultError e res = case res of
  23825. 2061.06 s [opt-env-conf-test] NotRun -> Nothing
  23826. 2061.06 s [opt-env-conf-test] NotFound -> Just e
  23827. 2061.06 s [opt-env-conf-test] - Found _ -> Nothing -- Should not happen.
  23828. 2061.06 s [opt-env-conf-test] debug ["not found"]
  23829. 2061.06 s [opt-env-conf-test] maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
  23830. 2061.06 s [opt-env-conf-test] NE.nonEmpty $
  23831. 2061.06 s [opt-env-conf-test]
  23832. 2061.06 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:396:41-64
  23833. 2061.06 s [opt-env-conf-test] @@ -393,30 +393,29 @@
  23834. 2061.06 s [opt-env-conf-test] case mO' of
  23835. 2061.06 s [opt-env-conf-test] Nothing -> pure Nothing
  23836. 2061.06 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  23837. 2061.06 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  23838. 2061.06 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  23839. 2061.06 s [opt-env-conf-test] Right mV -> case mV of
  23840. 2061.06 s [opt-env-conf-test] Nothing -> do
  23841. 2061.06 s [opt-env-conf-test] debug
  23842. 2061.06 s [opt-env-conf-test] [ "could not set based on config value, not configured: ",
  23843. 2061.06 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  23844. 2061.06 s [opt-env-conf-test] ]
  23845. 2061.06 s [opt-env-conf-test] pure Nothing
  23846. 2061.06 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  23847. 2061.06 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  23848. 2061.06 s [opt-env-conf-test] Right mA -> case mA of
  23849. 2061.06 s [opt-env-conf-test] Nothing -> do
  23850. 2061.06 s [opt-env-conf-test] debug
  23851. 2061.06 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  23852. 2061.06 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  23853. 2061.06 s [opt-env-conf-test] ]
  23854. 2061.06 s [opt-env-conf-test] pure Nothing
  23855. 2061.06 s [opt-env-conf-test] Just a -> do
  23856. 2061.06 s [opt-env-conf-test] debug
  23857. 2061.06 s [opt-env-conf-test] [ "set based on config value: ",
  23858. 2061.06 s [opt-env-conf-test] chunk $ T.pack $ show v
  23859. 2061.06 s [opt-env-conf-test] ]
  23860. 2061.06 s [opt-env-conf-test] pure $ Just a
  23861. 2061.06 s [opt-env-conf-test] let toRes = \case
  23862. 2061.06 s [opt-env-conf-test] Nothing -> NotFound
  23863. 2061.06 s [opt-env-conf-test] Just a -> Found a
  23864. 2061.06 s [opt-env-conf-test]
  23865. 2061.06 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:405:55-64
  23866. 2061.06 s [opt-env-conf-test] @@ -402,21 +402,20 @@
  23867. 2061.06 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  23868. 2061.06 s [opt-env-conf-test] ]
  23869. 2061.06 s [opt-env-conf-test] pure Nothing
  23870. 2061.06 s [opt-env-conf-test] Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
  23871. 2061.06 s [opt-env-conf-test] - Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  23872. 2061.06 s [opt-env-conf-test] Right mA -> case mA of
  23873. 2061.06 s [opt-env-conf-test] Nothing -> do
  23874. 2061.06 s [opt-env-conf-test] debug
  23875. 2061.06 s [opt-env-conf-test] [ "could not set based on config value, configured to nothing: ",
  23876. 2061.06 s [opt-env-conf-test] chunk $ T.pack $ show $ NE.toList configValSettingPath
  23877. 2061.06 s [opt-env-conf-test] ]
  23878. 2061.06 s [opt-env-conf-test] pure Nothing
  23879. 2061.06 s [opt-env-conf-test] Just a -> do
  23880. 2061.06 s [opt-env-conf-test] debug
  23881. 2061.06 s [opt-env-conf-test] [ "set based on config value: ",
  23882. 2061.06 s [opt-env-conf-test] chunk $ T.pack $ show v
  23883. 2061.06 s [opt-env-conf-test] ]
  23884. 2061.06 s [opt-env-conf-test] pure $ Just a
  23885. 2061.06 s [opt-env-conf-test] let toRes = \case
  23886. 2061.06 s [opt-env-conf-test] Nothing -> NotFound
  23887. 2061.06 s [opt-env-conf-test] Just a -> Found a
  23888. 2061.06 s [opt-env-conf-test]
  23889. 2061.06 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:393:49-82
  23890. 2061.06 s [opt-env-conf-test] @@ -390,9 +390,8 @@
  23891. 2061.06 s [opt-env-conf-test] Just v -> Just <$> parseJSON v
  23892. 2061.06 s [opt-env-conf-test] Just neRest -> do
  23893. 2061.07 s [opt-env-conf-test] mO' <- o .:? Key.fromString k
  23894. 2061.07 s [opt-env-conf-test] case mO' of
  23895. 2061.07 s [opt-env-conf-test] - Nothing -> pure Nothing
  23896. 2061.07 s [opt-env-conf-test] Just o' -> jsonParser o' neRest
  23897. 2061.07 s [opt-env-conf-test] case JSON.parseEither (jsonParser obj) configValSettingPath of
  23898. 2061.07 s [opt-env-conf-test] Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
  23899. 2061.07 s [opt-env-conf-test] t (renderArg a), consumed)
  23900. 2061.07 s [opt-env-conf-test] ]
  23901. 2061.07 s [opt-env-conf-test] )
  23902. 2061.07 s [opt-env-conf-test]
  23903. 2061.07 s [opt-env-conf-test] -- | Consume an option.
  23904. 2061.07 s [opt-env-conf-test] --
  23905. 2061.07 s [opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
  23906. 2061.07 s [opt-env-conf-test] @@ -201,7 +201,6 @@
  23907. 2061.07 s [opt-env-conf-test] ++ [ (Just (renderArg a), consumed)
  23908. 2061.07 s [opt-env-conf-test] ]
  23909. 2061.07 s [opt-env-conf-test] _ ->
  23910. 2061.07 s [opt-env-conf-test] - consumeArgument (Args (befores ++ [Live a, Live a']) rest)
  23911. 2061.07 s [opt-env-conf-test] ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
  23912. 2061.07 s [opt-env-conf-test] (Just (renderArg a), consumed)
  23913. 2061.07 s [opt-env-conf-test] ]
  23914. 2061.07 s [opt-env-conf-test] Right mV -> case mV of
  23915. 2061.07 s [opt-env-conf-test]
  23916. 2061.07 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:224:38-20
  23917. 2061.07 s [opt-env-conf-test] @@ -221,15 +221,14 @@
  23918. 2061.07 s [opt-env-conf-test] Just c -> do
  23919. 2061.07 s [opt-env-conf-test] debug ["Set command to ", commandChunk (commandArg c)]
  23920. 2061.07 s [opt-env-conf-test] go $ commandParser c
  23921. 2061.07 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  23922. 2061.07 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  23923. 2061.07 s [opt-env-conf-test] ppIndent $ do
  23924. 2061.07 s [opt-env-conf-test] debug ["loading config"]
  23925. 2061.07 s [opt-env-conf-test] mNewConfig <- ppIndent $ go pc
  23926. 2061.07 s [opt-env-conf-test] debug ["with loaded config"]
  23927. 2061.07 s [opt-env-conf-test] ppIndent $
  23928. 2061.07 s [opt-env-conf-test] local (\e -> e {ppEnvConf = mNewConfig}) $
  23929. 2061.07 s [opt-env-conf-test] go pa
  23930. 2061.07 s [opt-env-conf-test] ParserSetting mLoc set@Setting {..} -> do
  23931. 2061.07 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  23932. 2061.07 s [opt-env-conf-test] when (not (Set.null settingRequiredCapabilities)) $
  23933. 2061.07 s [opt-env-conf-test]
  23934. 2061.07 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:221:27-39
  23935. 2061.07 s [opt-env-conf-test] @@ -218,9 +218,8 @@
  23936. 2061.07 s [opt-env-conf-test] Just s -> do
  23937. 2061.07 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  23938. 2061.07 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  23939. 2061.07 s [opt-env-conf-test] Just c -> do
  23940. 2061.07 s [opt-env-conf-test] - debug ["Set command to ", commandChunk (commandArg c)]
  23941. 2061.07 s [opt-env-conf-test] go $ commandParser c
  23942. 2061.07 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  23943. 2061.07 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  23944. 2061.07 s [opt-env-conf-test] ppIndent $ do
  23945. 2061.07 s [opt-env-conf-test]
  23946. 2061.07 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:215:28-40
  23947. 2061.07 s [opt-env-conf-test] @@ -212,9 +212,8 @@
  23948. 2061.07 s [opt-env-conf-test] find ((== d) . commandArg) cs
  23949. 2061.07 s [opt-env-conf-test] case mDefaultCommand of
  23950. 2061.07 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
  23951. 2061.07 s [opt-env-conf-test] Just dc -> do
  23952. 2061.07 s [opt-env-conf-test] - debug ["Choosing default command: ", commandChunk (commandArg dc)]
  23953. 2061.07 s [opt-env-conf-test] go $ commandParser dc
  23954. 2061.07 s [opt-env-conf-test] Just s -> do
  23955. 2061.07 s [opt-env-conf-test] case find ((== s) . commandArg) cs of
  23956. 2061.07 s [opt-env-conf-test] Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
  23957. 2061.07 s [opt-env-conf-test]
  23958. 2061.07 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:195:29-70
  23959. 2061.07 s [opt-env-conf-test] @@ -192,9 +192,8 @@
  23960. 2061.07 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities $ do
  23961. 2061.07 s [opt-env-conf-test] errOrB <- liftIO $ f a
  23962. 2061.07 s [opt-env-conf-test] case errOrB of
  23963. 2061.07 s [opt-env-conf-test] Left err -> do
  23964. 2061.07 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  23965. 2061.07 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  23966. 2061.07 s [opt-env-conf-test] Right b -> do
  23967. 2061.07 s [opt-env-conf-test] debug ["succeeded"]
  23968. 2061.07 s [opt-env-conf-test] pure b
  23969. 2061.07 s [opt-env-conf-test]
  23970. 2061.07 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:197:56-66
  23971. 2061.07 s [opt-env-conf-test] @@ -194,7 +194,7 @@
  23972. 2061.07 s [opt-env-conf-test] case errOrB of
  23973. 2061.07 s [opt-env-conf-test] Left err -> do
  23974. 2061.07 s [opt-env-conf-test] debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  23975. 2061.07 s [opt-env-conf-test] - ppError mLoc $ ParseErrorCheckFailed forgivable err
  23976. 2061.07 s [opt-env-conf-test] + ppError mLoc $ ParseErrorCheckFailed False err
  23977. 2061.07 s [opt-env-conf-test] Right b -> do
  23978. 2061.07 s [opt-env-conf-test] debug ["succeeded"]
  23979. 2061.07 s [opt-env-conf-test] pure b
  23980. 2061.07 s [opt-env-conf-test]
  23981. 2061.07 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  23982. 2061.07 s [opt-env-conf-test] @@ -193,7 +193,6 @@
  23983. 2061.07 s [opt-env-conf-test] errOrB <- liftIO $ f a
  23984. 2061.07 s [opt-env-conf-test] case errOrB of
  23985. 2061.07 s [opt-env-conf-test] Left err -> do
  23986. 2061.07 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  23987. 2061.07 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  23988. 2061.07 s [opt-env-conf-test] Right b -> do
  23989. 2061.07 s [opt-env-conf-test] debug ["succeeded"]
  23990. 2061.07 s [opt-env-conf-test]
  23991. 2061.07 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
  23992. 2061.07 s [opt-env-conf-test] @@ -193,7 +193,6 @@
  23993. 2061.07 s [opt-env-conf-test] errOrB <- liftIO $ f a
  23994. 2061.07 s [opt-env-conf-test] case errOrB of
  23995. 2061.07 s [opt-env-conf-test] Left err -> do
  23996. 2061.07 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  23997. 2061.07 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  23998. 2061.07 s [opt-env-conf-test] Right b -> do
  23999. 2061.07 s [opt-env-conf-test] debug ["succeeded"]
  24000. 2061.07 s [opt-env-conf-test]
  24001. 2061.07 s [opt-env-conf-test] Negate at src/OptEnvConf/Run.hs:196:72-82
  24002. 2061.07 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  24003. 2061.07 s [opt-env-conf-test] errOrB <- liftIO $ f a
  24004. 2061.07 s [opt-env-conf-test] case errOrB of
  24005. 2061.07 s [opt-env-conf-test] Left err -> do
  24006. 2061.07 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  24007. 2061.07 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
  24008. 2061.07 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  24009. 2061.07 s [opt-env-conf-test] Right b -> do
  24010. 2061.07 s [opt-env-conf-test] debug ["succeeded"]
  24011. 2061.07 s [opt-env-conf-test]
  24012. 2061.07 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:196:72-82
  24013. 2061.07 s [opt-env-conf-test] @@ -193,7 +193,7 @@
  24014. 2061.07 s [opt-env-conf-test] errOrB <- liftIO $ f a
  24015. 2061.07 s [opt-env-conf-test] case errOrB of
  24016. 2061.07 s [opt-env-conf-test] Left err -> do
  24017. 2061.07 s [opt-env-conf-test] - debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
  24018. 2061.07 s [opt-env-conf-test] + debug ["failed, forgivable: ", chunk $ T.pack $ show True]
  24019. 2061.07 s [opt-env-conf-test] ppError mLoc $ ParseErrorCheckFailed forgivable err
  24020. 2061.07 s [opt-env-conf-test] Right b -> do
  24021. 2061.07 s [opt-env-conf-test] debug ["succeeded"]
  24022. 2061.07 s [opt-env-conf-test]
  24023. 2061.07 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:150:37-112
  24024. 2061.07 s [opt-env-conf-test] @@ -147,34 +147,33 @@
  24025. 2061.07 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  24026. 2061.07 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  24027. 2061.07 s [opt-env-conf-test] pure (a :| as)
  24028. 2061.07 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  24029. 2061.07 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  24030. 2061.07 s [opt-env-conf-test] ppIndent $ do
  24031. 2061.07 s [opt-env-conf-test] e <- ask
  24032. 2061.07 s [opt-env-conf-test] s <- get
  24033. 2061.07 s [opt-env-conf-test] results <- liftIO $ runPP (go p') s e
  24034. 2061.07 s [opt-env-conf-test] (result, s') <- ppNonDetList results
  24035. 2061.07 s [opt-env-conf-test] put s'
  24036. 2061.07 s [opt-env-conf-test] case result of
  24037. 2061.07 s [opt-env-conf-test] Success a -> pure a
  24038. 2061.07 s [opt-env-conf-test] Failure errs -> do
  24039. 2061.07 s [opt-env-conf-test] if not $ all errorIsForgivable errs
  24040. 2061.07 s [opt-env-conf-test] then ppErrors' errs
  24041. 2061.07 s [opt-env-conf-test] else do
  24042. 2061.07 s [opt-env-conf-test] -- Settings available below
  24043. 2061.07 s [opt-env-conf-test] let settingsMap = parserSettingsMap p'
  24044. 2061.07 s [opt-env-conf-test] -- Settings that have been parsed
  24045. 2061.07 s [opt-env-conf-test] parsedMap <- gets ppStateParsedSettings
  24046. 2061.07 s [opt-env-conf-test] -- Settings that have been parsed below
  24047. 2061.07 s [opt-env-conf-test] let parsedSettingsMap = settingsMap `M.intersection` parsedMap
  24048. 2061.07 s [opt-env-conf-test] -- If any settings have been parsed below, and parsing still failed
  24049. 2061.07 s [opt-env-conf-test] -- (this is the case because we're in the failure branch)
  24050. 2061.07 s [opt-env-conf-test] -- with only forgivable errors
  24051. 2061.07 s [opt-env-conf-test] -- (this is the case because we're in the branch where that's been checked)
  24052. 2061.07 s [opt-env-conf-test] -- then this should be an unforgivable error.
  24053. 2061.07 s [opt-env-conf-test] if null parsedSettingsMap
  24054. 2061.07 s [opt-env-conf-test] then ppErrors' errs
  24055. 2061.07 s [opt-env-conf-test] else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
  24056. 2061.07 s [opt-env-conf-test] ParserCheck mLoc forgivable requiredCapabilities f p' -> do
  24057. 2061.07 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  24058. 2061.07 s [opt-env-conf-test] when (not (Set.null requiredCapabilities)) $
  24059. 2061.07 s [opt-env-conf-test]
  24060. 2061.07 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:18-50
  24061. 2061.07 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  24062. 2061.07 s [opt-env-conf-test] case result of
  24063. 2061.07 s [opt-env-conf-test] Success a -> pure a
  24064. 2061.07 s [opt-env-conf-test] Failure errs -> do
  24065. 2061.07 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  24066. 2061.07 s [opt-env-conf-test] + if False
  24067. 2061.07 s [opt-env-conf-test] then ppErrors' errs
  24068. 2061.07 s [opt-env-conf-test] else do
  24069. 2061.07 s [opt-env-conf-test] -- Settings available below
  24070. 2061.07 s [opt-env-conf-test]
  24071. 2061.07 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:24-50
  24072. 2061.07 s [opt-env-conf-test] @@ -158,7 +158,7 @@
  24073. 2061.07 s [opt-env-conf-test] case result of
  24074. 2061.07 s [opt-env-conf-test] Success a -> pure a
  24075. 2061.07 s [opt-env-conf-test] Failure errs -> do
  24076. 2061.08 s [opt-env-conf-test] - if not $ all errorIsForgivable errs
  24077. 2061.08 s [opt-env-conf-test] + if not $ True
  24078. 2061.08 s [opt-env-conf-test] then ppErrors' errs
  24079. 2061.08 s [opt-env-conf-test] else do
  24080. 2061.08 s [opt-env-conf-test] -- Settings available below
  24081. 2061.08 s [opt-env-conf-test]
  24082. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:143:29-25
  24083. 2061.08 s [opt-env-conf-test] @@ -140,13 +140,12 @@
  24084. 2061.08 s [opt-env-conf-test] Just a -> do
  24085. 2061.08 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  24086. 2061.08 s [opt-env-conf-test] pure (a : as)
  24087. 2061.08 s [opt-env-conf-test] ParserSome mLoc p' -> do
  24088. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  24089. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24090. 2061.08 s [opt-env-conf-test] a <- go p'
  24091. 2061.08 s [opt-env-conf-test] debug ["First element of some succeeded, continuing with Many"]
  24092. 2061.08 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  24093. 2061.08 s [opt-env-conf-test] pure (a :| as)
  24094. 2061.08 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  24095. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  24096. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24097. 2061.08 s [opt-env-conf-test]
  24098. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:134:29-28
  24099. 2061.08 s [opt-env-conf-test] @@ -131,15 +131,14 @@
  24100. 2061.08 s [opt-env-conf-test] Nothing -> do
  24101. 2061.08 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  24102. 2061.08 s [opt-env-conf-test] ppIndent $ go p2
  24103. 2061.08 s [opt-env-conf-test] ParserMany mLoc p' -> do
  24104. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  24105. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24106. 2061.08 s [opt-env-conf-test] eor <- tryPP $ go p'
  24107. 2061.08 s [opt-env-conf-test] case eor of
  24108. 2061.08 s [opt-env-conf-test] Nothing -> pure []
  24109. 2061.08 s [opt-env-conf-test] Just a -> do
  24110. 2061.08 s [opt-env-conf-test] as <- go (ParserMany mLoc p')
  24111. 2061.08 s [opt-env-conf-test] pure (a : as)
  24112. 2061.08 s [opt-env-conf-test] ParserSome mLoc p' -> do
  24113. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  24114. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24115. 2061.08 s [opt-env-conf-test]
  24116. 2061.08 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  24117. 2061.08 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  24118. 2061.08 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  24119. 2061.08 s [opt-env-conf-test] ppIndent $ go p2
  24120. 2061.08 s [opt-env-conf-test] ParserMany mLoc p' -> do
  24121. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  24122. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24123. 2061.08 s [opt-env-conf-test] eor <- tryPP $ go p'
  24124. 2061.08 s [opt-env-conf-test] case eor of
  24125. 2061.08 s [opt-env-conf-test]
  24126. 2061.08 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  24127. 2061.08 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  24128. 2061.08 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  24129. 2061.08 s [opt-env-conf-test] ppIndent $ go p2
  24130. 2061.08 s [opt-env-conf-test] ParserMany mLoc p' -> do
  24131. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  24132. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24133. 2061.08 s [opt-env-conf-test] eor <- tryPP $ go p'
  24134. 2061.08 s [opt-env-conf-test] case eor of
  24135. 2061.08 s [opt-env-conf-test]
  24136. 2061.08 s [opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
  24137. 2061.08 s [opt-env-conf-test] @@ -132,7 +132,6 @@
  24138. 2061.08 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  24139. 2061.08 s [opt-env-conf-test] ppIndent $ go p2
  24140. 2061.08 s [opt-env-conf-test] ParserMany mLoc p' -> do
  24141. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  24142. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24143. 2061.08 s [opt-env-conf-test] eor <- tryPP $ go p'
  24144. 2061.08 s [opt-env-conf-test] case eor of
  24145. 2061.08 s [opt-env-conf-test]
  24146. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:122:26-31
  24147. 2061.08 s [opt-env-conf-test] @@ -119,18 +119,17 @@
  24148. 2061.08 s [opt-env-conf-test] ParserSelect fe ff -> do
  24149. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  24150. 2061.08 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  24151. 2061.08 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  24152. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  24153. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24154. 2061.08 s [opt-env-conf-test] debug ["Trying left side."]
  24155. 2061.08 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  24156. 2061.08 s [opt-env-conf-test] case eor of
  24157. 2061.08 s [opt-env-conf-test] Just a -> do
  24158. 2061.08 s [opt-env-conf-test] debug ["Left side succeeded."]
  24159. 2061.08 s [opt-env-conf-test] pure a
  24160. 2061.08 s [opt-env-conf-test] Nothing -> do
  24161. 2061.08 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  24162. 2061.08 s [opt-env-conf-test] ppIndent $ go p2
  24163. 2061.08 s [opt-env-conf-test] ParserMany mLoc p' -> do
  24164. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  24165. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24166. 2061.08 s [opt-env-conf-test]
  24167. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:131:24-31
  24168. 2061.08 s [opt-env-conf-test] @@ -128,9 +128,8 @@
  24169. 2061.08 s [opt-env-conf-test] Just a -> do
  24170. 2061.08 s [opt-env-conf-test] debug ["Left side succeeded."]
  24171. 2061.08 s [opt-env-conf-test] pure a
  24172. 2061.08 s [opt-env-conf-test] Nothing -> do
  24173. 2061.08 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  24174. 2061.08 s [opt-env-conf-test] ppIndent $ go p2
  24175. 2061.08 s [opt-env-conf-test] ParserMany mLoc p' -> do
  24176. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  24177. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24178. 2061.08 s [opt-env-conf-test]
  24179. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:119:29-42
  24180. 2061.08 s [opt-env-conf-test] @@ -116,9 +116,8 @@
  24181. 2061.08 s [opt-env-conf-test] ParserEmpty mLoc -> do
  24182. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  24183. 2061.08 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  24184. 2061.08 s [opt-env-conf-test] ParserSelect fe ff -> do
  24185. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Select"]
  24186. 2061.08 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  24187. 2061.08 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  24188. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Alt"]
  24189. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24190. 2061.08 s [opt-env-conf-test]
  24191. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:116:27-37
  24192. 2061.08 s [opt-env-conf-test] @@ -113,9 +113,8 @@
  24193. 2061.08 s [opt-env-conf-test] ParserAp ff fa -> do
  24194. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Ap"]
  24195. 2061.08 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  24196. 2061.08 s [opt-env-conf-test] ParserEmpty mLoc -> do
  24197. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  24198. 2061.08 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  24199. 2061.08 s [opt-env-conf-test] ParserSelect fe ff -> do
  24200. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  24201. 2061.08 s [opt-env-conf-test] ppIndent $ select (go fe) (go ff)
  24202. 2061.08 s [opt-env-conf-test]
  24203. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:113:25-35
  24204. 2061.08 s [opt-env-conf-test] @@ -110,9 +110,8 @@
  24205. 2061.08 s [opt-env-conf-test] ParserPure a -> do
  24206. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  24207. 2061.08 s [opt-env-conf-test] pure a
  24208. 2061.08 s [opt-env-conf-test] ParserAp ff fa -> do
  24209. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  24210. 2061.08 s [opt-env-conf-test] ppIndent $ go ff <*> go fa
  24211. 2061.08 s [opt-env-conf-test] ParserEmpty mLoc -> do
  24212. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  24213. 2061.08 s [opt-env-conf-test] ppError mLoc ParseErrorEmpty
  24214. 2061.08 s [opt-env-conf-test]
  24215. 2061.08 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:84:3-26
  24216. 2061.08 s [opt-env-conf-test] @@ -81,27 +81,26 @@
  24217. 2061.08 s [opt-env-conf-test] Nothing -> pure result
  24218. 2061.08 s [opt-env-conf-test] Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
  24219. 2061.08 s [opt-env-conf-test] mTup <- runPPLazy go' ppState ppEnv
  24220. 2061.08 s [opt-env-conf-test] case mTup of
  24221. 2061.08 s [opt-env-conf-test] - Nothing -> error "TODO figure out when this list can be empty"
  24222. 2061.08 s [opt-env-conf-test] Just ((errOrRes, _), nexts) -> case errOrRes of
  24223. 2061.08 s [opt-env-conf-test] Success a -> pure (Right a)
  24224. 2061.08 s [opt-env-conf-test] Failure firstErrors ->
  24225. 2061.08 s [opt-env-conf-test] let goNexts ns = do
  24226. 2061.08 s [opt-env-conf-test] -- TODO: Consider keeping around all errors?
  24227. 2061.08 s [opt-env-conf-test] mNext <- runNonDetTLazy ns
  24228. 2061.08 s [opt-env-conf-test] case mNext of
  24229. 2061.08 s [opt-env-conf-test] Nothing ->
  24230. 2061.08 s [opt-env-conf-test] pure $
  24231. 2061.08 s [opt-env-conf-test] Left $
  24232. 2061.08 s [opt-env-conf-test] -- Only show source locations in debug mode.
  24233. 2061.08 s [opt-env-conf-test] let f = case mDebugMode of
  24234. 2061.08 s [opt-env-conf-test] Nothing -> eraseErrorSrcLocs
  24235. 2061.08 s [opt-env-conf-test] Just _ -> id
  24236. 2061.08 s [opt-env-conf-test] in f firstErrors
  24237. 2061.08 s [opt-env-conf-test] Just ((eOR, _), ns') -> case eOR of
  24238. 2061.08 s [opt-env-conf-test] Success a -> pure (Right a)
  24239. 2061.08 s [opt-env-conf-test] Failure _ -> goNexts ns'
  24240. 2061.08 s [opt-env-conf-test] in goNexts nexts
  24241. 2061.08 s [opt-env-conf-test] where
  24242. 2061.08 s [opt-env-conf-test] go ::
  24243. 2061.08 s [opt-env-conf-test] Parser a ->
  24244. 2061.08 s [opt-env-conf-test]
  24245. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:464:22-66
  24246. 2061.08 s [opt-env-conf-test] @@ -461,11 +461,8 @@
  24247. 2061.08 s [opt-env-conf-test] PP a
  24248. 2061.08 s [opt-env-conf-test] withCapabilities mLoc requiredCapabilities capabilities func =
  24249. 2061.08 s [opt-env-conf-test] case missingCapabilities capabilities requiredCapabilities of
  24250. 2061.08 s [opt-env-conf-test] Just missings -> do
  24251. 2061.08 s [opt-env-conf-test] - debug $
  24252. 2061.08 s [opt-env-conf-test] - "Missing capabilities: "
  24253. 2061.08 s [opt-env-conf-test] - : capabilitiesChunks (Set.fromList (NE.toList missings))
  24254. 2061.08 s [opt-env-conf-test] ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
  24255. 2061.08 s [opt-env-conf-test] Nothing -> func
  24256. 2061.08 s [opt-env-conf-test]
  24257. 2061.08 s [opt-env-conf-test] data ParseResult a
  24258. 2061.08 s [opt-env-conf-test]
  24259. 2061.08 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:477:21-21
  24260. 2061.08 s [opt-env-conf-test] @@ -474,9 +474,8 @@
  24261. 2061.08 s [opt-env-conf-test] | Found a
  24262. 2061.08 s [opt-env-conf-test]
  24263. 2061.08 s [opt-env-conf-test] requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
  24264. 2061.08 s [opt-env-conf-test] requireReaders rs = case NE.nonEmpty rs of
  24265. 2061.08 s [opt-env-conf-test] - Nothing -> ppError Nothing ParseErrorNoReaders
  24266. 2061.08 s [opt-env-conf-test] Just ne -> pure ne
  24267. 2061.08 s [opt-env-conf-test]
  24268. 2061.08 s [opt-env-conf-test] -- Try the readers in order
  24269. 2061.08 s [opt-env-conf-test] tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
  24270. 2061.08 s [opt-env-conf-test]
  24271. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:568:44-43
  24272. 2061.08 s [opt-env-conf-test] @@ -565,12 +565,11 @@
  24273. 2061.08 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  24274. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  24275. 2061.08 s [opt-env-conf-test] ppIndent $ go p'
  24276. 2061.08 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  24277. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  24278. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24279. 2061.08 s [opt-env-conf-test] mNewConfig <- go pc
  24280. 2061.08 s [opt-env-conf-test] mRes <- go pa
  24281. 2061.08 s [opt-env-conf-test] pure $ mRes <|> mNewConfig -- Reverse order
  24282. 2061.08 s [opt-env-conf-test] ParserSetting mLoc _ -> do
  24283. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
  24284. 2061.08 s [opt-env-conf-test] pure Nothing
  24285. 2061.08 s [opt-env-conf-test]
  24286. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:565:42-31
  24287. 2061.08 s [opt-env-conf-test] @@ -562,9 +562,8 @@
  24288. 2061.08 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  24289. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  24290. 2061.08 s [opt-env-conf-test] ppIndent $ go p'
  24291. 2061.08 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  24292. 2061.08 s [opt-env-conf-test] - debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  24293. 2061.08 s [opt-env-conf-test] ppIndent $ go p'
  24294. 2061.08 s [opt-env-conf-test] ParserWithConfig mLoc pc pa -> do
  24295. 2061.08 s [opt-env-conf-test] debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
  24296. 2061.08 s [opt-env-conf-test] ppIndent $ do
  24297. 2061.08 s [opt-env-conf-test]
  24298. 2061.08 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:562:43-31
  24299. 2061.08 s [opt-env-conf-test] @@ -559,9 +559,8 @@
  24300. 2061.09 s [opt-env-conf-test] ParserSome mLoc p' -> do
  24301. 2061.09 s [opt-env-conf-test] debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
  24302. 2061.09 s [opt-env-conf-test] ppIndent $ go p'
  24303. 2061.09 s [opt-env-conf-test] ParserAllOrNothing mLoc p' -> do
  24304. 2061.09 s [opt-env-conf-test] - debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
  24305. 2061.09 s [opt-env-conf-test] ppIndent $ go p'
  24306. 2061.09 s [opt-env-conf-test] ParserCheck mLoc _ _ _ p' -> do
  24307. 2061.09 s [opt-env-conf-test] debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
  24308. 2061.09 s [opt-env-conf-test] ppIndent $ go p'
  24309. 2061.09 s [opt-env-conf-test]
  24310. 2061.09 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:544:32-37
  24311. 2061.09 s [opt-env-conf-test] @@ -541,18 +541,17 @@
  24312. 2061.09 s [opt-env-conf-test] ParserEmpty mLoc -> do
  24313. 2061.09 s [opt-env-conf-test] debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
  24314. 2061.09 s [opt-env-conf-test] pure Nothing
  24315. 2061.09 s [opt-env-conf-test] ParserAlt p1 p2 -> do
  24316. 2061.09 s [opt-env-conf-test] - debug [syntaxChunk "Alt"]
  24317. 2061.09 s [opt-env-conf-test] ppIndent $ do
  24318. 2061.09 s [opt-env-conf-test] debug ["Trying left side."]
  24319. 2061.09 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  24320. 2061.09 s [opt-env-conf-test] case eor of
  24321. 2061.09 s [opt-env-conf-test] Just a -> do
  24322. 2061.09 s [opt-env-conf-test] debug ["Left side succeeded."]
  24323. 2061.09 s [opt-env-conf-test] pure a
  24324. 2061.09 s [opt-env-conf-test] Nothing -> do
  24325. 2061.09 s [opt-env-conf-test] debug ["Left side failed, trying right side."]
  24326. 2061.09 s [opt-env-conf-test] ppIndent $ go p2
  24327. 2061.09 s [opt-env-conf-test] ParserMany mLoc p' -> do
  24328. 2061.09 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  24329. 2061.09 s [opt-env-conf-test] ppIndent $ go p'
  24330. 2061.09 s [opt-env-conf-test]
  24331. 2061.09 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:549:17-37
  24332. 2061.09 s [opt-env-conf-test] @@ -546,13 +546,10 @@
  24333. 2061.09 s [opt-env-conf-test] ppIndent $ do
  24334. 2061.09 s [opt-env-conf-test] debug ["Trying left side."]
  24335. 2061.09 s [opt-env-conf-test] eor <- ppIndent $ tryPP (go p1)
  24336. 2061.09 s [opt-env-conf-test] case eor of
  24337. 2061.09 s [opt-env-conf-test] Just a -> do
  24338. 2061.09 s [opt-env-conf-test] debug ["Left side succeeded."]
  24339. 2061.09 s [opt-env-conf-test] pure a
  24340. 2061.09 s [opt-env-conf-test] - Nothing -> do
  24341. 2061.09 s [opt-env-conf-test] - debug ["Left side failed, trying right side."]
  24342. 2061.09 s [opt-env-conf-test] - ppIndent $ go p2
  24343. 2061.09 s [opt-env-conf-test] ParserMany mLoc p' -> do
  24344. 2061.09 s [opt-env-conf-test] debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
  24345. 2061.09 s [opt-env-conf-test] ppIndent $ go p'
  24346. 2061.09 s [opt-env-conf-test]
  24347. 2061.09 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:529:31-33
  24348. 2061.09 s [opt-env-conf-test] @@ -526,12 +526,11 @@
  24349. 2061.09 s [opt-env-conf-test] ParserPure _ -> do
  24350. 2061.09 s [opt-env-conf-test] debug [syntaxChunk "pure value"]
  24351. 2061.09 s [opt-env-conf-test] pure Nothing
  24352. 2061.09 s [opt-env-conf-test] ParserAp ff fa -> do
  24353. 2061.09 s [opt-env-conf-test] - debug [syntaxChunk "Ap"]
  24354. 2061.09 s [opt-env-conf-test] ppIndent $ do
  24355. 2061.09 s [opt-env-conf-test] mf <- go ff
  24356. 2061.09 s [opt-env-conf-test] ma <- go fa
  24357. 2061.09 s [opt-env-conf-test] pure $ ma <|> mf -- Reverse order
  24358. 2061.09 s [opt-env-conf-test] ParserSelect fe ff -> do
  24359. 2061.09 s [opt-env-conf-test] debug [syntaxChunk "Select"]
  24360. 2061.09 s [opt-env-conf-test] ppIndent $ do
  24361. 2061.09 s [opt-env-conf-test]
  24362. 2061.09 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:514:3-35
  24363. 2061.09 s [opt-env-conf-test] @@ -511,11 +511,10 @@
  24364. 2061.09 s [opt-env-conf-test] ppEnvIndent = 0
  24365. 2061.09 s [opt-env-conf-test] }
  24366. 2061.09 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  24367. 2061.09 s [opt-env-conf-test] case mResOrNext of
  24368. 2061.09 s [opt-env-conf-test] - Nothing -> pure $ Right Nothing
  24369. 2061.09 s [opt-env-conf-test] Just ((result, _), _) -> pure $ case result of
  24370. 2061.09 s [opt-env-conf-test] Failure errs -> Left errs
  24371. 2061.09 s [opt-env-conf-test] Success mDocs -> Right mDocs
  24372. 2061.09 s [opt-env-conf-test] where
  24373. 2061.09 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  24374. 2061.09 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  24375. 2061.09 s [opt-env-conf-test]
  24376. 2061.09 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:516:37-35
  24377. 2061.09 s [opt-env-conf-test] @@ -513,9 +513,8 @@
  24378. 2061.09 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  24379. 2061.09 s [opt-env-conf-test] case mResOrNext of
  24380. 2061.09 s [opt-env-conf-test] Nothing -> pure $ Right Nothing
  24381. 2061.09 s [opt-env-conf-test] Just ((result, _), _) -> pure $ case result of
  24382. 2061.09 s [opt-env-conf-test] - Failure errs -> Left errs
  24383. 2061.09 s [opt-env-conf-test] Success mDocs -> Right mDocs
  24384. 2061.09 s [opt-env-conf-test] where
  24385. 2061.09 s [opt-env-conf-test] -- We try to parse the commands as deep as possible and ignore everything else.
  24386. 2061.09 s [opt-env-conf-test] go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
  24387. 2061.09 s [opt-env-conf-test]
  24388. 2061.09 s [opt-env-conf-test] IntLit at src/OptEnvConf/Run.hs:511:27-28
  24389. 2061.09 s [opt-env-conf-test] @@ -508,7 +508,7 @@
  24390. 2061.09 s [opt-env-conf-test] { ppEnvEnv = EnvMap.empty,
  24391. 2061.09 s [opt-env-conf-test] ppEnvConf = Nothing,
  24392. 2061.09 s [opt-env-conf-test] ppEnvDebug = mDebugMode,
  24393. 2061.09 s [opt-env-conf-test] - ppEnvIndent = 0
  24394. 2061.09 s [opt-env-conf-test] + ppEnvIndent = 1
  24395. 2061.09 s [opt-env-conf-test] }
  24396. 2061.09 s [opt-env-conf-test] mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
  24397. 2061.09 s [opt-env-conf-test] case mResOrNext of
  24398. 2061.09 s [opt-env-conf-test]
  24399. 2061.09 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
  24400. 2061.09 s [opt-env-conf-test] @@ -367,11 +367,10 @@
  24401. 2061.09 s [opt-env-conf-test] | not (null commandDocs)
  24402. 2061.09 s [opt-env-conf-test] ],
  24403. 2061.09 s [opt-env-conf-test] concat
  24404. 2061.09 s [opt-env-conf-test] [ [ headerChunks "Options",
  24405. 2061.09 s [opt-env-conf-test] renderLongOptDocs optDocs
  24406. 2061.09 s [opt-env-conf-test] ]
  24407. 2061.09 s [opt-env-conf-test] - | not (nullDocs optDocs)
  24408. 2061.09 s [opt-env-conf-test] ],
  24409. 2061.09 s [opt-env-conf-test] concat
  24410. 2061.09 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  24411. 2061.09 s [opt-env-conf-test] renderEnvDocs envDocs
  24412. 2061.09 s [opt-env-conf-test]
  24413. 2061.09 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:373:17-39
  24414. 2061.09 s [opt-env-conf-test] @@ -370,7 +370,7 @@
  24415. 2061.09 s [opt-env-conf-test] [ [ headerChunks "Options",
  24416. 2061.09 s [opt-env-conf-test] renderLongOptDocs optDocs
  24417. 2061.09 s [opt-env-conf-test] ]
  24418. 2061.09 s [opt-env-conf-test] - | not (nullDocs optDocs)
  24419. 2061.09 s [opt-env-conf-test] + | True
  24420. 2061.09 s [opt-env-conf-test] ],
  24421. 2061.09 s [opt-env-conf-test] concat
  24422. 2061.09 s [opt-env-conf-test] [ [ headerChunks "Environment Variables",
  24423. 2061.09 s [opt-env-conf-test]
  24424. 2061.09 s [opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
  24425. 2061.09 s [opt-env-conf-test] @@ -326,11 +326,10 @@
  24426. 2061.09 s [opt-env-conf-test] | not (null commandDocs)
  24427. 2061.09 s [opt-env-conf-test] ],
  24428. 2061.09 s [opt-env-conf-test] concat
  24429. 2061.09 s [opt-env-conf-test] [ [ [".Sh ", "OPTIONS"],
  24430. 2061.09 s [opt-env-conf-test] renderLongOptDocs optDocs
  24431. 2061.09 s [opt-env-conf-test] ]
  24432. 2061.09 s [opt-env-conf-test] - | not (nullDocs optDocs)
  24433. 2061.09 s [opt-env-conf-test] ],
  24434. 2061.09 s [opt-env-conf-test] concat
  24435. 2061.09 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  24436. 2061.09 s [opt-env-conf-test] renderEnvDocs envDocs
  24437. 2061.09 s [opt-env-conf-test]
  24438. 2061.09 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:332:17-39
  24439. 2061.09 s [opt-env-conf-test] @@ -329,7 +329,7 @@
  24440. 2061.09 s [opt-env-conf-test] [ [ [".Sh ", "OPTIONS"],
  24441. 2061.09 s [opt-env-conf-test] renderLongOptDocs optDocs
  24442. 2061.09 s [opt-env-conf-test] ]
  24443. 2061.09 s [opt-env-conf-test] - | not (nullDocs optDocs)
  24444. 2061.09 s [opt-env-conf-test] + | True
  24445. 2061.09 s [opt-env-conf-test] ],
  24446. 2061.09 s [opt-env-conf-test] concat
  24447. 2061.09 s [opt-env-conf-test] [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
  24448. 2061.09 s [opt-env-conf-test]
  24449. 2061.09 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
  24450. 2061.09 s [opt-env-conf-test] @@ -565,21 +565,20 @@
  24451. 2061.09 s [opt-env-conf-test] [] -> []
  24452. 2061.09 s [opt-env-conf-test] [d] -> go isTopLevel d
  24453. 2061.09 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24454. 2061.09 s [opt-env-conf-test] case setDocHelp d of
  24455. 2061.09 s [opt-env-conf-test] - Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  24456. 2061.09 s [opt-env-conf-test] Just h ->
  24457. 2061.09 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  24458. 2061.09 s [opt-env-conf-test] in concat
  24459. 2061.09 s [opt-env-conf-test] [ concat
  24460. 2061.09 s [opt-env-conf-test] [ concat
  24461. 2061.09 s [opt-env-conf-test] [ indent $ renderSetDocHeader (Just h),
  24462. 2061.09 s [opt-env-conf-test] indent $ concatMap renderSetDocWithoutHeader $ d : sds,
  24463. 2061.09 s [opt-env-conf-test] [[]]
  24464. 2061.09 s [opt-env-conf-test] ]
  24465. 2061.09 s [opt-env-conf-test] | not isTopLevel
  24466. 2061.09 s [opt-env-conf-test] ],
  24467. 2061.09 s [opt-env-conf-test] goOr isTopLevel rest
  24468. 2061.09 s [opt-env-conf-test] ]
  24469. 2061.09 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  24470. 2061.09 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  24471. 2061.09 s [opt-env-conf-test] goSameHelp h = \case
  24472. 2061.09 s [opt-env-conf-test]
  24473. 2061.09 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:581:26-36
  24474. 2061.09 s [opt-env-conf-test] @@ -578,7 +578,7 @@
  24475. 2061.09 s [opt-env-conf-test] ]
  24476. 2061.09 s [opt-env-conf-test] | not isTopLevel
  24477. 2061.09 s [opt-env-conf-test] ],
  24478. 2061.09 s [opt-env-conf-test] - goOr isTopLevel rest
  24479. 2061.09 s [opt-env-conf-test] + goOr True rest
  24480. 2061.09 s [opt-env-conf-test] ]
  24481. 2061.09 s [opt-env-conf-test] (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
  24482. 2061.09 s [opt-env-conf-test] goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
  24483. 2061.09 s [opt-env-conf-test]
  24484. 2061.09 s [opt-env-conf-test] Negate at src/OptEnvConf/Doc.hs:566:17-27
  24485. 2061.09 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  24486. 2061.09 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  24487. 2061.09 s [opt-env-conf-test] goOr isTopLevel = \case
  24488. 2061.09 s [opt-env-conf-test] [] -> []
  24489. 2061.09 s [opt-env-conf-test] - [d] -> go isTopLevel d
  24490. 2061.09 s [opt-env-conf-test] + [d] -> go not (isTopLevel) d
  24491. 2061.09 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24492. 2061.09 s [opt-env-conf-test] case setDocHelp d of
  24493. 2061.09 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  24494. 2061.09 s [opt-env-conf-test]
  24495. 2061.09 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:566:17-27
  24496. 2061.09 s [opt-env-conf-test] @@ -563,7 +563,7 @@
  24497. 2061.09 s [opt-env-conf-test] goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
  24498. 2061.09 s [opt-env-conf-test] goOr isTopLevel = \case
  24499. 2061.09 s [opt-env-conf-test] [] -> []
  24500. 2061.09 s [opt-env-conf-test] - [d] -> go isTopLevel d
  24501. 2061.09 s [opt-env-conf-test] + [d] -> go True d
  24502. 2061.09 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24503. 2061.09 s [opt-env-conf-test] case setDocHelp d of
  24504. 2061.09 s [opt-env-conf-test] Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
  24505. 2061.09 s [opt-env-conf-test]
  24506. 2061.09 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:588:12-34
  24507. 2061.09 s [opt-env-conf-test] @@ -585,7 +585,7 @@
  24508. 2061.09 s [opt-env-conf-test] goSameHelp h = \case
  24509. 2061.09 s [opt-env-conf-test] [] -> ([], [])
  24510. 2061.09 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24511. 2061.09 s [opt-env-conf-test] - if setDocHelp d == Just h
  24512. 2061.09 s [opt-env-conf-test] + if True
  24513. 2061.09 s [opt-env-conf-test] then
  24514. 2061.09 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  24515. 2061.09 s [opt-env-conf-test] in (d : sds, rest)
  24516. 2061.09 s [opt-env-conf-test]
  24517. 2061.09 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
  24518. 2061.09 s [opt-env-conf-test] @@ -529,12 +529,11 @@
  24519. 2061.09 s [opt-env-conf-test] [] -> []
  24520. 2061.09 s [opt-env-conf-test] [d] -> [go' d]
  24521. 2061.09 s [opt-env-conf-test] (AnyDocsSingle d : ds) ->
  24522. 2061.09 s [opt-env-conf-test] case setDocHelp d of
  24523. 2061.09 s [opt-env-conf-test] - Nothing -> go' (AnyDocsSingle d) : goOr' ds
  24524. 2061.09 s [opt-env-conf-test] Just h ->
  24525. 2061.09 s [opt-env-conf-test] let (sds, rest) = goSameHelp h ds
  24526. 2061.09 s [opt-env-conf-test] ne = d :| sds
  24527. 2061.09 s [opt-env-conf-test] in AnyDocsSingle ne : goOr' rest
  24528. 2061.09 s [opt-env-conf-test] (d : ds) -> go' d : goOr' ds
  24529. 2061.09 s [opt-env-conf-test]
  24530. 2061.09 s [opt-env-conf-test] renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
  24531. 2061.09 s [opt-env-conf-test]
  24532. 2061.09 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
  24533. 2061.09 s [opt-env-conf-test] @@ -256,18 +256,16 @@
  24534. 2061.09 s [opt-env-conf-test] concat
  24535. 2061.09 s [opt-env-conf-test] [ concatMap
  24536. 2061.09 s [opt-env-conf-test] ( \(key, schema) ->
  24537. 2061.09 s [opt-env-conf-test] case jsonSchemaChunkLines schema of
  24538. 2061.09 s [opt-env-conf-test] - [line] ->
  24539. 2061.09 s [opt-env-conf-test] - [["config: ", confValChunk key, ": "] ++ line]
  24540. 2061.09 s [opt-env-conf-test] ls ->
  24541. 2061.10 s [opt-env-conf-test] ["config:"]
  24542. 2061.10 s [opt-env-conf-test] : indent
  24543. 2061.10 s [opt-env-conf-test] ( case ls of
  24544. 2061.10 s [opt-env-conf-test] [] -> [["TODO"]]
  24545. 2061.10 s [opt-env-conf-test] (l : ll) ->
  24546. 2061.10 s [opt-env-conf-test] ([confValChunk key, ": "] ++ l)
  24547. 2061.10 s [opt-env-conf-test] : indent ll
  24548. 2061.10 s [opt-env-conf-test] )
  24549. 2061.10 s [opt-env-conf-test] )
  24550. 2061.10 s [opt-env-conf-test] (NE.toList confs)
  24551. 2061.10 s [opt-env-conf-test] | confs <- maybeToList setDocConfKeys
  24552. 2061.10 s [opt-env-conf-test]
  24553. 2061.10 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
  24554. 2061.10 s [opt-env-conf-test] @@ -262,11 +262,10 @@
  24555. 2061.10 s [opt-env-conf-test] ls ->
  24556. 2061.10 s [opt-env-conf-test] ["config:"]
  24557. 2061.10 s [opt-env-conf-test] : indent
  24558. 2061.10 s [opt-env-conf-test] ( case ls of
  24559. 2061.10 s [opt-env-conf-test] - [] -> [["TODO"]]
  24560. 2061.10 s [opt-env-conf-test] (l : ll) ->
  24561. 2061.10 s [opt-env-conf-test] ([confValChunk key, ": "] ++ l)
  24562. 2061.10 s [opt-env-conf-test] : indent ll
  24563. 2061.10 s [opt-env-conf-test] )
  24564. 2061.10 s [opt-env-conf-test] )
  24565. 2061.10 s [opt-env-conf-test] (NE.toList confs)
  24566. 2061.10 s [opt-env-conf-test]
  24567. 2061.10 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
  24568. 2061.10 s [opt-env-conf-test] @@ -658,29 +658,28 @@
  24569. 2061.10 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24570. 2061.10 s [opt-env-conf-test] [] -> Nothing
  24571. 2061.10 s [opt-env-conf-test] cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
  24572. 2061.10 s [opt-env-conf-test] AnyDocsSingle mOd -> case mOd of
  24573. 2061.10 s [opt-env-conf-test] - Nothing -> Nothing
  24574. 2061.10 s [opt-env-conf-test] Just OptDoc {..} ->
  24575. 2061.10 s [opt-env-conf-test] Just
  24576. 2061.10 s [opt-env-conf-test] $ ( if isJust optDocDefault
  24577. 2061.10 s [opt-env-conf-test] then bracketise
  24578. 2061.10 s [opt-env-conf-test] else id
  24579. 2061.10 s [opt-env-conf-test] )
  24580. 2061.10 s [opt-env-conf-test] $ unwordsChunks
  24581. 2061.10 s [opt-env-conf-test] $ concat
  24582. 2061.10 s [opt-env-conf-test] [ [ [mMetavarChunk optDocMetavar]
  24583. 2061.10 s [opt-env-conf-test] | optDocTryArgument
  24584. 2061.10 s [opt-env-conf-test] ],
  24585. 2061.10 s [opt-env-conf-test] [ concat $ maybeToList $ dashedChunks optDocDasheds
  24586. 2061.10 s [opt-env-conf-test] | optDocTrySwitch
  24587. 2061.10 s [opt-env-conf-test] ],
  24588. 2061.10 s [opt-env-conf-test] [ concat
  24589. 2061.10 s [opt-env-conf-test] [ concat $ maybeToList $ dashedChunks optDocDasheds,
  24590. 2061.10 s [opt-env-conf-test] [" ", mMetavarChunk optDocMetavar]
  24591. 2061.10 s [opt-env-conf-test] ]
  24592. 2061.10 s [opt-env-conf-test] | optDocTryOption
  24593. 2061.10 s [opt-env-conf-test] ]
  24594. 2061.10 s [opt-env-conf-test] ]
  24595. 2061.10 s [opt-env-conf-test]
  24596. 2061.10 s [opt-env-conf-test] orChunk :: Chunk
  24597. 2061.10 s [opt-env-conf-test] orChunk = fore cyan "|"
  24598. 2061.10 s [opt-env-conf-test]
  24599. 2061.10 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  24600. 2061.10 s [opt-env-conf-test] @@ -650,10 +650,9 @@
  24601. 2061.10 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  24602. 2061.10 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  24603. 2061.10 s [opt-env-conf-test] AnyDocsAnd ds ->
  24604. 2061.10 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24605. 2061.10 s [opt-env-conf-test] [] -> Nothing
  24606. 2061.10 s [opt-env-conf-test] - [c] -> Just c
  24607. 2061.10 s [opt-env-conf-test] cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24608. 2061.10 s [opt-env-conf-test] AnyDocsOr ds ->
  24609. 2061.10 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24610. 2061.10 s [opt-env-conf-test] [] -> Nothing
  24611. 2061.10 s [opt-env-conf-test]
  24612. 2061.10 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
  24613. 2061.10 s [opt-env-conf-test] @@ -650,10 +650,9 @@
  24614. 2061.10 s [opt-env-conf-test] Nothing -> Just ["COMMAND"]
  24615. 2061.10 s [opt-env-conf-test] Just _ -> Just ["[COMMAND]"]
  24616. 2061.10 s [opt-env-conf-test] AnyDocsAnd ds ->
  24617. 2061.10 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24618. 2061.10 s [opt-env-conf-test] - [] -> Nothing
  24619. 2061.10 s [opt-env-conf-test] [c] -> Just c
  24620. 2061.10 s [opt-env-conf-test] cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24621. 2061.10 s [opt-env-conf-test] AnyDocsOr ds ->
  24622. 2061.10 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24623. 2061.10 s [opt-env-conf-test] [] -> Nothing
  24624. 2061.10 s [opt-env-conf-test]
  24625. 2061.10 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:656:30-31
  24626. 2061.10 s [opt-env-conf-test] @@ -653,7 +653,7 @@
  24627. 2061.10 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24628. 2061.10 s [opt-env-conf-test] [] -> Nothing
  24629. 2061.10 s [opt-env-conf-test] [c] -> Just c
  24630. 2061.10 s [opt-env-conf-test] - cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
  24631. 2061.10 s [opt-env-conf-test] + cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
  24632. 2061.10 s [opt-env-conf-test] AnyDocsOr ds ->
  24633. 2061.10 s [opt-env-conf-test] case mapMaybe (go False) (withoutNothings ds) of
  24634. 2061.10 s [opt-env-conf-test] [] -> Nothing
  24635. 2061.10 s [opt-env-conf-test]
  24636. 2061.10 s [opt-env-conf-test] BoolLit at src/OptEnvConf/Doc.hs:637:38-43
  24637. 2061.10 s [opt-env-conf-test] @@ -634,7 +634,7 @@
  24638. 2061.10 s [opt-env-conf-test] withoutNothings =
  24639. 2061.10 s [opt-env-conf-test] filter
  24640. 2061.10 s [opt-env-conf-test] ( \case
  24641. 2061.10 s [opt-env-conf-test] - AnyDocsSingle Nothing -> False
  24642. 2061.10 s [opt-env-conf-test] + AnyDocsSingle Nothing -> True
  24643. 2061.10 s [opt-env-conf-test] AnyDocsAnd [] -> False
  24644. 2061.10 s [opt-env-conf-test] AnyDocsOr [] -> False
  24645. 2061.10 s [opt-env-conf-test] _ -> True
  24646. 2061.10 s [opt-env-conf-test]
  24647. 2061.10 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
  24648. 2061.10 s [opt-env-conf-test] @@ -819,11 +819,9 @@
  24649. 2061.10 s [opt-env-conf-test] [exampleValuesChunks confDocExamples | not (null confDocExamples)],
  24650. 2061.10 s [opt-env-conf-test] concatMap
  24651. 2061.10 s [opt-env-conf-test] ( \(key, schema) ->
  24652. 2061.10 s [opt-env-conf-test] case jsonSchemaChunkLines schema of
  24653. 2061.10 s [opt-env-conf-test] - [line] ->
  24654. 2061.10 s [opt-env-conf-test] - [[confValChunk key, ": "] ++ line]
  24655. 2061.10 s [opt-env-conf-test] ls ->
  24656. 2061.10 s [opt-env-conf-test] [confValChunk key, ":"] : indent ls
  24657. 2061.10 s [opt-env-conf-test] )
  24658. 2061.10 s [opt-env-conf-test] (NE.toList confDocKeys)
  24659. 2061.10 s [opt-env-conf-test] ]
  24660. 2061.10 s [opt-env-conf-test]
  24661. 2061.10 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:144:22-46
  24662. 2061.10 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  24663. 2061.10 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  24664. 2061.10 s [opt-env-conf-test] salt
  24665. 2061.10 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  24666. 2061.10 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  24667. 2061.10 s [opt-env-conf-test] + `hashWithSalt` not (envVarSettingAllowPrefix)
  24668. 2061.10 s [opt-env-conf-test]
  24669. 2061.10 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  24670. 2061.10 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  24671. 2061.10 s [opt-env-conf-test]
  24672. 2061.10 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  24673. 2061.10 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  24674. 2061.10 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  24675. 2061.10 s [opt-env-conf-test] salt
  24676. 2061.10 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  24677. 2061.10 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  24678. 2061.10 s [opt-env-conf-test] + `hashWithSalt` False
  24679. 2061.10 s [opt-env-conf-test]
  24680. 2061.10 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  24681. 2061.10 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  24682. 2061.10 s [opt-env-conf-test]
  24683. 2061.10 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
  24684. 2061.10 s [opt-env-conf-test] @@ -141,7 +141,7 @@
  24685. 2061.10 s [opt-env-conf-test] hashWithSalt salt EnvVarSetting {..} =
  24686. 2061.10 s [opt-env-conf-test] salt
  24687. 2061.10 s [opt-env-conf-test] `hashWithSalt` envVarSettingVar
  24688. 2061.10 s [opt-env-conf-test] - `hashWithSalt` envVarSettingAllowPrefix
  24689. 2061.10 s [opt-env-conf-test] + `hashWithSalt` True
  24690. 2061.10 s [opt-env-conf-test]
  24691. 2061.10 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  24692. 2061.10 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  24693. 2061.10 s [opt-env-conf-test]
  24694. 2061.10 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:136:5-29
  24695. 2061.10 s [opt-env-conf-test] @@ -133,7 +133,7 @@
  24696. 2061.10 s [opt-env-conf-test]
  24697. 2061.10 s [opt-env-conf-test] data EnvVarSetting = EnvVarSetting
  24698. 2061.10 s [opt-env-conf-test] { envVarSettingVar :: !String,
  24699. 2061.10 s [opt-env-conf-test] - envVarSettingAllowPrefix :: !Bool
  24700. 2061.10 s [opt-env-conf-test] + True :: !Bool
  24701. 2061.10 s [opt-env-conf-test] }
  24702. 2061.10 s [opt-env-conf-test] deriving (Show, Eq)
  24703. 2061.10 s [opt-env-conf-test]
  24704. 2061.10 s [opt-env-conf-test]
  24705. 2061.10 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:159:5-32
  24706. 2061.10 s [opt-env-conf-test] @@ -156,7 +156,7 @@
  24707. 2061.10 s [opt-env-conf-test] = forall void.
  24708. 2061.10 s [opt-env-conf-test] ConfigValSetting
  24709. 2061.11 s [opt-env-conf-test] { configValSettingPath :: !(NonEmpty String),
  24710. 2061.11 s [opt-env-conf-test] - configValSettingAllowPrefix :: !Bool,
  24711. 2061.11 s [opt-env-conf-test] + True :: !Bool,
  24712. 2061.11 s [opt-env-conf-test] configValSettingCodec :: !(ValueCodec void (Maybe a))
  24713. 2061.11 s [opt-env-conf-test] }
  24714. 2061.11 s [opt-env-conf-test]
  24715. 2061.11 s [opt-env-conf-test]
  24716. 2061.11 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:128:24-40
  24717. 2061.11 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  24718. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  24719. 2061.11 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  24720. 2061.11 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  24721. 2061.11 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  24722. 2061.11 s [opt-env-conf-test] + `hashWithSalt` not (settingTryOption)
  24723. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  24724. 2061.11 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  24725. 2061.11 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  24726. 2061.11 s [opt-env-conf-test]
  24727. 2061.11 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  24728. 2061.11 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  24729. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  24730. 2061.11 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  24731. 2061.11 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  24732. 2061.11 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  24733. 2061.11 s [opt-env-conf-test] + `hashWithSalt` False
  24734. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  24735. 2061.11 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  24736. 2061.11 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  24737. 2061.11 s [opt-env-conf-test]
  24738. 2061.11 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
  24739. 2061.11 s [opt-env-conf-test] @@ -125,7 +125,7 @@
  24740. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  24741. 2061.11 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  24742. 2061.11 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  24743. 2061.11 s [opt-env-conf-test] - `hashWithSalt` settingTryOption
  24744. 2061.11 s [opt-env-conf-test] + `hashWithSalt` True
  24745. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  24746. 2061.11 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  24747. 2061.11 s [opt-env-conf-test] `hashWithSalt` (snd <$> settingDefaultValue)
  24748. 2061.11 s [opt-env-conf-test]
  24749. 2061.11 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:127:24-49
  24750. 2061.11 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  24751. 2061.11 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  24752. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  24753. 2061.11 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  24754. 2061.11 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  24755. 2061.11 s [opt-env-conf-test] + `hashWithSalt` not (isJust settingSwitchValue)
  24756. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  24757. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  24758. 2061.11 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  24759. 2061.11 s [opt-env-conf-test]
  24760. 2061.11 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  24761. 2061.11 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  24762. 2061.11 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  24763. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  24764. 2061.11 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  24765. 2061.11 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  24766. 2061.11 s [opt-env-conf-test] + `hashWithSalt` False
  24767. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  24768. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  24769. 2061.11 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  24770. 2061.11 s [opt-env-conf-test]
  24771. 2061.11 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
  24772. 2061.11 s [opt-env-conf-test] @@ -124,7 +124,7 @@
  24773. 2061.11 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  24774. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryArgument
  24775. 2061.11 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  24776. 2061.11 s [opt-env-conf-test] - `hashWithSalt` isJust settingSwitchValue
  24777. 2061.11 s [opt-env-conf-test] + `hashWithSalt` True
  24778. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  24779. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingEnvVars
  24780. 2061.11 s [opt-env-conf-test] `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
  24781. 2061.11 s [opt-env-conf-test]
  24782. 2061.11 s [opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:125:24-42
  24783. 2061.11 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  24784. 2061.11 s [opt-env-conf-test] SettingHash
  24785. 2061.11 s [opt-env-conf-test] ( 42
  24786. 2061.11 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  24787. 2061.11 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  24788. 2061.11 s [opt-env-conf-test] + `hashWithSalt` not (settingTryArgument)
  24789. 2061.11 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  24790. 2061.11 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  24791. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  24792. 2061.11 s [opt-env-conf-test]
  24793. 2061.11 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  24794. 2061.11 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  24795. 2061.11 s [opt-env-conf-test] SettingHash
  24796. 2061.11 s [opt-env-conf-test] ( 42
  24797. 2061.11 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  24798. 2061.11 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  24799. 2061.11 s [opt-env-conf-test] + `hashWithSalt` False
  24800. 2061.11 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  24801. 2061.11 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  24802. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  24803. 2061.11 s [opt-env-conf-test]
  24804. 2061.11 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
  24805. 2061.11 s [opt-env-conf-test] @@ -122,7 +122,7 @@
  24806. 2061.11 s [opt-env-conf-test] SettingHash
  24807. 2061.11 s [opt-env-conf-test] ( 42
  24808. 2061.11 s [opt-env-conf-test] `hashWithSalt` map renderDashed settingDasheds
  24809. 2061.11 s [opt-env-conf-test] - `hashWithSalt` settingTryArgument
  24810. 2061.11 s [opt-env-conf-test] + `hashWithSalt` True
  24811. 2061.11 s [opt-env-conf-test] `hashWithSalt` length settingReaders
  24812. 2061.11 s [opt-env-conf-test] `hashWithSalt` isJust settingSwitchValue
  24813. 2061.11 s [opt-env-conf-test] `hashWithSalt` settingTryOption
  24814. 2061.11 s [opt-env-conf-test]
  24815. 2061.11 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:148:6-32
  24816. 2061.11 s [opt-env-conf-test] @@ -145,7 +145,7 @@
  24817. 2061.11 s [opt-env-conf-test]
  24818. 2061.11 s [opt-env-conf-test] prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
  24819. 2061.11 s [opt-env-conf-test] prefixEnvVarSetting prefix e =
  24820. 2061.11 s [opt-env-conf-test] - if envVarSettingAllowPrefix e
  24821. 2061.11 s [opt-env-conf-test] + if True
  24822. 2061.11 s [opt-env-conf-test] then e {envVarSettingVar = prefix <> envVarSettingVar e}
  24823. 2061.11 s [opt-env-conf-test] else e
  24824. 2061.11 s [opt-env-conf-test]
  24825. 2061.11 s [opt-env-conf-test]
  24826. 2061.11 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:165:6-35
  24827. 2061.11 s [opt-env-conf-test] @@ -162,7 +162,7 @@
  24828. 2061.11 s [opt-env-conf-test]
  24829. 2061.11 s [opt-env-conf-test] prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
  24830. 2061.11 s [opt-env-conf-test] prefixConfigValSetting prefix c =
  24831. 2061.11 s [opt-env-conf-test] - if configValSettingAllowPrefix c
  24832. 2061.11 s [opt-env-conf-test] + if True
  24833. 2061.11 s [opt-env-conf-test] then c {configValSettingPath = prefix NE.<| configValSettingPath c}
  24834. 2061.11 s [opt-env-conf-test] else c
  24835. 2061.11 s [opt-env-conf-test]
  24836. 2061.11 s [opt-env-conf-test]
  24837. 2061.11 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
  24838. 2061.11 s [opt-env-conf-test] @@ -170,9 +170,8 @@
  24839. 2061.11 s [opt-env-conf-test] suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
  24840. 2061.11 s [opt-env-conf-test] where
  24841. 2061.11 s [opt-env-conf-test] suffixPath :: NonEmpty String -> NonEmpty String
  24842. 2061.11 s [opt-env-conf-test] suffixPath (f :| rest) = case NE.nonEmpty rest of
  24843. 2061.11 s [opt-env-conf-test] Nothing -> (f <> suffix) :| []
  24844. 2061.11 s [opt-env-conf-test] - Just ne -> f NE.<| suffixPath ne
  24845. 2061.11 s [opt-env-conf-test]
  24846. 2061.11 s [opt-env-conf-test] -- | A 'mempty' 'Setting' to build up a setting from.
  24847. 2061.11 s [opt-env-conf-test] emptySetting :: Setting a
  24848. 2061.11 s [opt-env-conf-test]
  24849. 2061.11 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:67:3-96
  24850. 2061.11 s [opt-env-conf-test] @@ -64,10 +64,8 @@
  24851. 2061.11 s [opt-env-conf-test]
  24852. 2061.11 s [opt-env-conf-test] parserLintTest :: Parser a -> IO ()
  24853. 2061.11 s [opt-env-conf-test] parserLintTest parser =
  24854. 2061.11 s [opt-env-conf-test] case lintParser parser of
  24855. 2061.11 s [opt-env-conf-test] Nothing -> pure ()
  24856. 2061.11 s [opt-env-conf-test] - Just errs ->
  24857. 2061.11 s [opt-env-conf-test] - expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
  24858. 2061.11 s [opt-env-conf-test]
  24859. 2061.12 s [opt-env-conf-test] settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
  24860. 2061.12 s [opt-env-conf-test] settingsParserArgsTest = parserArgsTest settingsParser
  24861. 2061.12 s [opt-env-conf-test]
  24862. 2061.12 s [opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:149:13-24
  24863. 2061.12 s [opt-env-conf-test] @@ -146,14 +146,13 @@
  24864. 2061.12 s [opt-env-conf-test]
  24865. 2061.12 s [opt-env-conf-test] generatedFileComment :: CallStack -> T.Text
  24866. 2061.12 s [opt-env-conf-test] generatedFileComment cs =
  24867. 2061.12 s [opt-env-conf-test] let loc = case getCallStack cs of
  24868. 2061.12 s [opt-env-conf-test] (_, srcLoc) : _ ->
  24869. 2061.12 s [opt-env-conf-test] packageName (Stack.srcLocPackage srcLoc)
  24870. 2061.12 s [opt-env-conf-test] <> ":"
  24871. 2061.12 s [opt-env-conf-test] <> Stack.srcLocFile srcLoc
  24872. 2061.12 s [opt-env-conf-test] <> ":"
  24873. 2061.12 s [opt-env-conf-test] <> show (Stack.srcLocStartLine srcLoc)
  24874. 2061.12 s [opt-env-conf-test] - [] -> "unknown"
  24875. 2061.12 s [opt-env-conf-test] in T.pack $
  24876. 2061.12 s [opt-env-conf-test] unlines $
  24877. 2061.12 s [opt-env-conf-test] map
  24878. 2061.12 s [opt-env-conf-test]
  24879. 2061.12 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Test.hs:180:19-84
  24880. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24881. 2061.12 s [opt-env-conf-test] where
  24882. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24883. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24884. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24885. 2061.12 s [opt-env-conf-test] + isVersion v = not (null v) || elem '.' v && all (\c -> isDigit c || c == '.') v
  24886. 2061.12 s [opt-env-conf-test]
  24887. 2061.12 s [opt-env-conf-test] LogicOp at src/OptEnvConf/Test.hs:180:35-84
  24888. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24889. 2061.12 s [opt-env-conf-test] where
  24890. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24891. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24892. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24893. 2061.12 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v || all (\c -> isDigit c || c == '.') v
  24894. 2061.12 s [opt-env-conf-test]
  24895. 2061.12 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-84
  24896. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24897. 2061.12 s [opt-env-conf-test] where
  24898. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24899. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24900. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24901. 2061.12 s [opt-env-conf-test] + isVersion v = not (null v) && True
  24902. 2061.12 s [opt-env-conf-test]
  24903. 2061.12 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:49-84
  24904. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24905. 2061.12 s [opt-env-conf-test] where
  24906. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24907. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24908. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24909. 2061.12 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && True
  24910. 2061.12 s [opt-env-conf-test]
  24911. 2061.12 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-81
  24912. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24913. 2061.12 s [opt-env-conf-test] where
  24914. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24915. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24916. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24917. 2061.12 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True) v
  24918. 2061.12 s [opt-env-conf-test]
  24919. 2061.12 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:73-81
  24920. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24921. 2061.12 s [opt-env-conf-test] where
  24922. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24923. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24924. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24925. 2061.12 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
  24926. 2061.12 s [opt-env-conf-test]
  24927. 2061.12 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-69
  24928. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24929. 2061.12 s [opt-env-conf-test] where
  24930. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24931. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24932. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24933. 2061.12 s [opt-env-conf-test] + isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
  24934. 2061.12 s [opt-env-conf-test]
  24935. 2061.12 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-45
  24936. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24937. 2061.12 s [opt-env-conf-test] where
  24938. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24939. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24940. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24941. 2061.12 s [opt-env-conf-test] + isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
  24942. 2061.12 s [opt-env-conf-test]
  24943. 2061.12 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:19-31
  24944. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24945. 2061.12 s [opt-env-conf-test] where
  24946. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24947. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24948. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24949. 2061.12 s [opt-env-conf-test] + isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
  24950. 2061.12 s [opt-env-conf-test]
  24951. 2061.12 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:23-31
  24952. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24953. 2061.12 s [opt-env-conf-test] where
  24954. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24955. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24956. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24957. 2061.12 s [opt-env-conf-test] + isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
  24958. 2061.12 s [opt-env-conf-test]
  24959. 2061.12 s [opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:24-30
  24960. 2061.12 s [opt-env-conf-test] @@ -177,4 +177,4 @@
  24961. 2061.12 s [opt-env-conf-test] where
  24962. 2061.12 s [opt-env-conf-test] version = takeWhile (\c -> isDigit c || c == '.') rest
  24963. 2061.12 s [opt-env-conf-test] go (c : rest) = c : go rest
  24964. 2061.12 s [opt-env-conf-test] - isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24965. 2061.12 s [opt-env-conf-test] + isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
  24966. 2061.12 s [opt-env-conf-test] checkPhase completed in 27 minutes 14 seconds
  24967. 2061.12 s [opt-env-conf-test] Phase: haddockPhase
  24968. 2061.12 s [opt-env-conf-test] Phase: installPhase
  24969. 2061.12 s [opt-env-conf-test] Installing library in /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4-3WilUK79pGbKEOnYVCQCp5
  24970. 2061.75 s [opt-env-conf-test] Phase: fixupPhase
  24971. 2061.79 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4
  24972. 2061.80 s [opt-env-conf-test] shrinking /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSopt-env-conf-test-0.0.0.4-3WilUK79pGbKEOnYVCQCp5-ghc9.10.3.so
  24973. 2061.86 s [opt-env-conf-test] shrinking /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4/bin/opt-env-conf-test
  24974. 2061.92 s [opt-env-conf-test] checking for references to /build/ in /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4...
  24975. 2062.00 s [opt-env-conf-test] patching script interpreter paths in /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4
  24976. 2062.01 s [opt-env-conf-test] stripping (with command strip and flags -S -p) in /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4/lib /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4/bin
  24977. 2062.21 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/yci3h85gq46pjcdai8vnijc204hc845f-opt-env-conf-test-0.0.0.4-manifest
  24978. 2062.21 s [opt-env-conf-test] checking for references to /build/ in /nix/store/yci3h85gq46pjcdai8vnijc204hc845f-opt-env-conf-test-0.0.0.4-manifest...
  24979. 2062.23 s [opt-env-conf-test] patching script interpreter paths in /nix/store/yci3h85gq46pjcdai8vnijc204hc845f-opt-env-conf-test-0.0.0.4-manifest
  24980. 2062.24 s [opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/vqn3rbxp2rl90lrjiir4b9glp5pm0h7g-opt-env-conf-test-0.0.0.4-report
  24981. 2062.32 s [opt-env-conf-test] checking for references to /build/ in /nix/store/vqn3rbxp2rl90lrjiir4b9glp5pm0h7g-opt-env-conf-test-0.0.0.4-report...
  24982. 2062.44 s [opt-env-conf-test] patching script interpreter paths in /nix/store/vqn3rbxp2rl90lrjiir4b9glp5pm0h7g-opt-env-conf-test-0.0.0.4-report
  24983. 2062.72 s [post-build-hook] Uploading to cachix cache "sydtest": /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4 /nix/store/vqn3rbxp2rl90lrjiir4b9glp5pm0h7g-opt-env-conf-test-0.0.0.4-report /nix/store/yci3h85gq46pjcdai8vnijc204hc845f-opt-env-conf-test-0.0.0.4-manifest
  24984. 2063.46 s [post-build-hook] Pushing 3 paths (268 are already present) using zstd to cache sydtest ⏳
  24985. 2063.46 s [post-build-hook]
  24986. 2063.82 s [post-build-hook] Pushing /nix/store/yci3h85gq46pjcdai8vnijc204hc845f-opt-env-conf-test-0.0.0.4-manifest (33.58 KiB)
  24987. 2063.85 s [post-build-hook] Pushing /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4 (15.02 MiB)
  24988. 2063.89 s [post-build-hook] Pushing /nix/store/vqn3rbxp2rl90lrjiir4b9glp5pm0h7g-opt-env-conf-test-0.0.0.4-report (2.88 MiB)
  24989. 2065.64 s [post-build-hook]
  24990. 2065.64 s [post-build-hook] All done.
  24991. 2065.68 s [post-build-hook] Uploading to the NixCI staging cache: /nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4 /nix/store/vqn3rbxp2rl90lrjiir4b9glp5pm0h7g-opt-env-conf-test-0.0.0.4-report /nix/store/yci3h85gq46pjcdai8vnijc204hc845f-opt-env-conf-test-0.0.0.4-manifest
  24992. 2066.09 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  24993. 2066.10 s [post-build-hook] copying 3 paths...
  24994. 2066.10 s [post-build-hook] copying path '/nix/store/vqn3rbxp2rl90lrjiir4b9glp5pm0h7g-opt-env-conf-test-0.0.0.4-report' to 'https://cache.staging.nix-ci.com'...
  24995. 2066.10 s [post-build-hook] copying path '/nix/store/yci3h85gq46pjcdai8vnijc204hc845f-opt-env-conf-test-0.0.0.4-manifest' to 'https://cache.staging.nix-ci.com'...
  24996. 2066.10 s [post-build-hook] copying path '/nix/store/jzgkwsik0lz8m69s0b97m6s4qz150is0-opt-env-conf-test-0.0.0.4' to 'https://cache.staging.nix-ci.com'...
  24997. 2073.09 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  24998. 2073.34 s [post-build-hook] copying 1 paths...
  24999. 2073.36 s [post-build-hook] copying path '/nix/store/1vm51s8iha5xgsq2dn1icclpcp6x96r2-opt-env-conf-test-0.0.0.4.drv' to 'https://cache.staging.nix-ci.com'...
  25000. 2073.56 s Progress: 8 of 9 built
Tail Raw Logs