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

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

Agent Instructions

Wait for completion, without logs:

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/9aeafc09-29be-4111-8f3a-0a56228e1118/wait

Latest logs, with timestamps (streams while running):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/9aeafc09-29be-4111-8f3a-0a56228e1118/tail

All logs, with timestamps (available after completion):

curl --netrc https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/9aeafc09-29be-4111-8f3a-0a56228e1118/logs

Raw logs, from the start (no timestamps):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/9aeafc09-29be-4111-8f3a-0a56228e1118/raw-logs

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

Example:

curl --netrc -H "Accept: text/csv" https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/9aeafc09-29be-4111-8f3a-0a56228e1118/logs

Reproduce locally: https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/9aeafc09-29be-4111-8f3a-0a56228e1118/repro

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