build checks.x86_64-linux.mutation-safe-coloured-text

Reproduce this run
  1. 944.51 s [safe-coloured-text-gen] - | p >= 90 && p <= 97 =
  2. 944.51 s [safe-coloured-text-gen] + | True =
  3. 944.51 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  4. 944.51 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  5. 944.51 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  6. 944.51 s [safe-coloured-text-gen] Testing mutation LogicOp at src/Text/Colour/Chunk/Parsing.hs:249:5-23
  7. 944.51 s [safe-coloured-text-gen] @@ -246,7 +246,7 @@
  8. 944.51 s [safe-coloured-text-gen] | p == 53 = goSGR (s {chunkStyleOverlined = Just True}) ps
  9. 944.51 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  10. 944.51 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  11. 944.51 s [safe-coloured-text-gen] - | p >= 90 && p <= 97 =
  12. 944.51 s [safe-coloured-text-gen] + | p >= 90 || p <= 97 =
  13. 944.51 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  14. 944.51 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  15. 944.51 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  16. 944.51 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:249:5-23
  17. 944.51 s [safe-coloured-text-gen] @@ -246,7 +246,7 @@
  18. 944.51 s [safe-coloured-text-gen] | p == 53 = goSGR (s {chunkStyleOverlined = Just True}) ps
  19. 944.51 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  20. 944.51 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  21. 944.51 s [safe-coloured-text-gen] - | p >= 90 && p <= 97 =
  22. 944.51 s [safe-coloured-text-gen] + | not (p >= 90 && p <= 97) =
  23. 944.51 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  24. 944.51 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  25. 944.51 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  26. 944.52 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Chunk/Parsing.hs:250:41-43
  27. 944.52 s [safe-coloured-text-gen] @@ -247,7 +247,7 @@
  28. 944.52 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  29. 944.52 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  30. 944.52 s [safe-coloured-text-gen] | p >= 90 && p <= 97 =
  31. 944.52 s [safe-coloured-text-gen] - case terminalColourFromIndex (p - 90) of
  32. 944.52 s [safe-coloured-text-gen] + case terminalColourFromIndex (p - 0) of
  33. 944.52 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  34. 944.52 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  35. 944.52 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  36. 944.52 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Chunk/Parsing.hs:250:41-43
  37. 944.52 s [safe-coloured-text-gen] @@ -247,7 +247,7 @@
  38. 944.52 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  39. 944.52 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  40. 944.52 s [safe-coloured-text-gen] | p >= 90 && p <= 97 =
  41. 944.52 s [safe-coloured-text-gen] - case terminalColourFromIndex (p - 90) of
  42. 944.52 s [safe-coloured-text-gen] + case terminalColourFromIndex (p - 1) of
  43. 944.52 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  44. 944.52 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  45. 944.52 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  46. 944.52 s [safe-coloured-text-gen] Testing mutation MaybeOp at src/Text/Colour/Chunk/Parsing.hs:251:53-77
  47. 944.52 s [safe-coloured-text-gen] @@ -248,7 +248,7 @@
  48. 944.52 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  49. 944.52 s [safe-coloured-text-gen] | p >= 90 && p <= 97 =
  50. 944.52 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  51. 944.52 s [safe-coloured-text-gen] - Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  52. 944.52 s [safe-coloured-text-gen] + Just tc -> goSGR (s {chunkStyleForeground = Nothing}) ps
  53. 944.52 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  54. 944.52 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  55. 944.52 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  56. 944.52 s [safe-coloured-text-gen] Testing mutation Arith at src/Text/Colour/Chunk/Parsing.hs:250:37-43
  57. 944.52 s [safe-coloured-text-gen] @@ -247,7 +247,7 @@
  58. 972.18 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  59. 972.20 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  60. 972.20 s [safe-coloured-text-gen] | p >= 90 && p <= 97 =
  61. 972.20 s [safe-coloured-text-gen] - case terminalColourFromIndex (p - 90) of
  62. 972.20 s [safe-coloured-text-gen] + case terminalColourFromIndex (p * 90) of
  63. 972.20 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  64. 972.20 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  65. 972.20 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  66. 972.20 s [safe-coloured-text-gen] Testing mutation Arith at src/Text/Colour/Chunk/Parsing.hs:250:37-43
  67. 972.20 s [safe-coloured-text-gen] @@ -247,7 +247,7 @@
  68. 972.20 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  69. 972.21 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  70. 972.21 s [safe-coloured-text-gen] | p >= 90 && p <= 97 =
  71. 972.21 s [safe-coloured-text-gen] - case terminalColourFromIndex (p - 90) of
  72. 972.21 s [safe-coloured-text-gen] + case terminalColourFromIndex (p + 90) of
  73. 972.21 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  74. 972.21 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  75. 972.21 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  76. 972.21 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:250:7-30
  77. 972.21 s [safe-coloured-text-gen] @@ -247,9 +247,8 @@
  78. 972.21 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  79. 972.21 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  80. 972.21 s [safe-coloured-text-gen] | p >= 90 && p <= 97 =
  81. 972.21 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  82. 972.21 s [safe-coloured-text-gen] - Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  83. 972.21 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  84. 972.21 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  85. 972.21 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  86. 972.21 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  87. 972.21 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Chunk/Parsing.hs:254:10-13
  88. 972.21 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  89. 972.21 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  90. 972.21 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  91. 972.21 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  92. 972.21 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  93. 972.22 s [safe-coloured-text-gen] + | p >= 0 && p <= 107 =
  94. 972.22 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  95. 972.22 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  96. 972.22 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  97. 972.22 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:250:7-30
  98. 972.22 s [safe-coloured-text-gen] @@ -247,9 +247,8 @@
  99. 972.22 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  100. 972.22 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  101. 972.22 s [safe-coloured-text-gen] | p >= 90 && p <= 97 =
  102. 972.22 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  103. 972.22 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  104. 972.22 s [safe-coloured-text-gen] - Nothing -> goSGR s ps
  105. 972.22 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  106. 972.22 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  107. 972.22 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  108. 972.22 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Chunk/Parsing.hs:254:10-13
  109. 972.22 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  110. 972.22 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  111. 972.22 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  112. 972.22 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  113. 972.22 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  114. 972.22 s [safe-coloured-text-gen] + | p >= 1 && p <= 107 =
  115. 972.22 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  116. 972.22 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  117. 972.22 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  118. 972.22 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:254:5-13
  119. 972.22 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  120. 972.22 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  121. 972.22 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  122. 972.22 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  123. 972.22 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  124. 972.22 s [safe-coloured-text-gen] + | p < 100 && p <= 107 =
  125. 972.22 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  126. 972.22 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  127. 972.22 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  128. 972.22 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:254:5-13
  129. 972.22 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  130. 972.22 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  131. 972.22 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  132. 972.22 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  133. 972.22 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  134. 972.22 s [safe-coloured-text-gen] + | p <= 100 && p <= 107 =
  135. 972.22 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  136. 972.22 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  137. 972.22 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  138. 972.23 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:254:5-13
  139. 972.23 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  140. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  141. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  142. 972.23 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  143. 972.23 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  144. 972.23 s [safe-coloured-text-gen] + | p > 100 && p <= 107 =
  145. 972.23 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  146. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  147. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  148. 972.23 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:254:5-13
  149. 972.23 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  150. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  151. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  152. 972.23 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  153. 972.23 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  154. 972.23 s [safe-coloured-text-gen] + | True && p <= 107 =
  155. 972.23 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  156. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  157. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  158. 972.23 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Chunk/Parsing.hs:254:22-25
  159. 972.23 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  160. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  161. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  162. 972.23 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  163. 972.23 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  164. 972.23 s [safe-coloured-text-gen] + | p >= 100 && p <= 0 =
  165. 972.23 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  166. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  167. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  168. 972.23 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Chunk/Parsing.hs:254:22-25
  169. 972.23 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  170. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  171. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  172. 972.23 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  173. 972.23 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  174. 972.23 s [safe-coloured-text-gen] + | p >= 100 && p <= 1 =
  175. 972.23 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  176. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  177. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  178. 972.23 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:254:5-13
  179. 972.23 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  180. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  181. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  182. 972.23 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  183. 972.23 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  184. 972.23 s [safe-coloured-text-gen] + | not (p >= 100) && p <= 107 =
  185. 972.23 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  186. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  187. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  188. 972.23 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:254:17-25
  189. 972.23 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  190. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  191. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  192. 972.23 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  193. 972.23 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  194. 972.23 s [safe-coloured-text-gen] + | p >= 100 && p < 107 =
  195. 972.23 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  196. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  197. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  198. 972.23 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:254:17-25
  199. 972.23 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  200. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  201. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  202. 972.23 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  203. 972.23 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  204. 972.23 s [safe-coloured-text-gen] + | p >= 100 && p > 107 =
  205. 972.23 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  206. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  207. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  208. 972.23 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:254:17-25
  209. 972.23 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  210. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  211. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  212. 972.23 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  213. 972.23 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  214. 972.23 s [safe-coloured-text-gen] + | p >= 100 && p >= 107 =
  215. 972.23 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  216. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  217. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  218. 972.23 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:254:17-25
  219. 972.23 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  220. 972.23 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  221. 972.23 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  222. 972.24 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  223. 972.24 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  224. 972.24 s [safe-coloured-text-gen] + | p >= 100 && True =
  225. 972.24 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  226. 972.24 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  227. 982.69 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  228. 982.71 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:254:17-25
  229. 982.71 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  230. 982.71 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  231. 982.71 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  232. 982.71 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  233. 982.71 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  234. 982.71 s [safe-coloured-text-gen] + | p >= 100 && not (p <= 107) =
  235. 982.71 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  236. 982.71 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  237. 982.72 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  238. 982.72 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:254:5-25
  239. 982.72 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  240. 982.72 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  241. 982.72 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  242. 982.72 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  243. 982.72 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  244. 982.72 s [safe-coloured-text-gen] + | True =
  245. 982.72 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  246. 982.72 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  247. 982.72 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  248. 982.72 s [safe-coloured-text-gen] Testing mutation LogicOp at src/Text/Colour/Chunk/Parsing.hs:254:5-25
  249. 982.72 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  250. 982.72 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  251. 982.72 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  252. 982.72 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  253. 982.72 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  254. 982.72 s [safe-coloured-text-gen] + | p >= 100 || p <= 107 =
  255. 982.72 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  256. 982.72 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  257. 982.72 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  258. 982.72 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Chunk/Parsing.hs:255:41-44
  259. 982.72 s [safe-coloured-text-gen] @@ -252,7 +252,7 @@
  260. 982.72 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  261. 982.72 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  262. 982.72 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  263. 982.72 s [safe-coloured-text-gen] - case terminalColourFromIndex (p - 100) of
  264. 982.72 s [safe-coloured-text-gen] + case terminalColourFromIndex (p - 0) of
  265. 982.72 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  266. 982.72 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  267. 982.72 s [safe-coloured-text-gen] -- Unknown code, skip
  268. 982.72 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:254:5-25
  269. 982.73 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  270. 982.73 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  271. 982.73 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  272. 982.73 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  273. 982.73 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  274. 982.73 s [safe-coloured-text-gen] + | not (p >= 100 && p <= 107) =
  275. 982.73 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  276. 982.73 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  277. 982.73 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  278. 982.73 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Chunk/Parsing.hs:255:41-44
  279. 982.73 s [safe-coloured-text-gen] @@ -252,7 +252,7 @@
  280. 982.73 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  281. 982.73 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  282. 982.73 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  283. 982.73 s [safe-coloured-text-gen] - case terminalColourFromIndex (p - 100) of
  284. 982.73 s [safe-coloured-text-gen] + case terminalColourFromIndex (p - 1) of
  285. 982.73 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  286. 982.73 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  287. 982.73 s [safe-coloured-text-gen] -- Unknown code, skip
  288. 982.73 s [safe-coloured-text-gen] Testing mutation Arith at src/Text/Colour/Chunk/Parsing.hs:255:37-44
  289. 982.73 s [safe-coloured-text-gen] @@ -252,7 +252,7 @@
  290. 982.73 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  291. 982.73 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  292. 982.73 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  293. 982.73 s [safe-coloured-text-gen] - case terminalColourFromIndex (p - 100) of
  294. 982.73 s [safe-coloured-text-gen] + case terminalColourFromIndex (p + 100) of
  295. 982.73 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  296. 982.73 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  297. 982.73 s [safe-coloured-text-gen] -- Unknown code, skip
  298. 982.73 s [safe-coloured-text-gen] Testing mutation Arith at src/Text/Colour/Chunk/Parsing.hs:255:37-44
  299. 982.73 s [safe-coloured-text-gen] @@ -252,7 +252,7 @@
  300. 982.73 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  301. 982.73 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  302. 982.73 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  303. 982.73 s [safe-coloured-text-gen] - case terminalColourFromIndex (p - 100) of
  304. 982.73 s [safe-coloured-text-gen] + case terminalColourFromIndex (p * 100) of
  305. 982.73 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  306. 982.73 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  307. 982.73 s [safe-coloured-text-gen] -- Unknown code, skip
  308. 982.73 s [safe-coloured-text-gen] Testing mutation MaybeOp at src/Text/Colour/Chunk/Parsing.hs:256:53-77
  309. 982.73 s [safe-coloured-text-gen] @@ -253,7 +253,7 @@
  310. 982.73 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  311. 982.73 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  312. 982.73 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  313. 982.73 s [safe-coloured-text-gen] - Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  314. 982.74 s [safe-coloured-text-gen] + Just tc -> goSGR (s {chunkStyleBackground = Nothing}) ps
  315. 982.74 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  316. 982.74 s [safe-coloured-text-gen] -- Unknown code, skip
  317. 982.74 s [safe-coloured-text-gen] | otherwise = goSGR s ps
  318. 982.74 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:255:7-30
  319. 982.74 s [safe-coloured-text-gen] @@ -252,8 +252,7 @@
  320. 982.74 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  321. 982.74 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  322. 982.74 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  323. 982.74 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  324. 982.74 s [safe-coloured-text-gen] - Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  325. 982.74 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  326. 982.74 s [safe-coloured-text-gen] -- Unknown code, skip
  327. 982.74 s [safe-coloured-text-gen] | otherwise = goSGR s ps
  328. 982.74 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:255:7-30
  329. 982.74 s [safe-coloured-text-gen] @@ -252,8 +252,7 @@
  330. 982.74 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  331. 982.74 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  332. 982.74 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  333. 982.74 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  334. 982.74 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  335. 982.74 s [safe-coloured-text-gen] - Nothing -> goSGR s ps
  336. 982.74 s [safe-coloured-text-gen] -- Unknown code, skip
  337. 982.74 s [safe-coloured-text-gen] | otherwise = goSGR s ps
  338. 982.74 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:168:11-22
  339. 982.74 s [safe-coloured-text-gen] @@ -165,7 +165,7 @@
  340. 982.74 s [safe-coloured-text-gen] go s [] = (s, [])
  341. 982.74 s [safe-coloured-text-gen] go s (token : rest) = case token of
  342. 982.74 s [safe-coloured-text-gen] PlainText t
  343. 982.74 s [safe-coloured-text-gen] - | Text.null t -> go s rest
  344. 982.74 s [safe-coloured-text-gen] + | True -> go s rest
  345. 982.74 s [safe-coloured-text-gen] | otherwise ->
  346. 982.74 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  347. 982.74 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = t, chunkStyle = s} : restChunks)
  348. 982.74 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:168:11-22
  349. 982.74 s [safe-coloured-text-gen] @@ -165,7 +165,7 @@
  350. 982.74 s [safe-coloured-text-gen] go s [] = (s, [])
  351. 982.74 s [safe-coloured-text-gen] go s (token : rest) = case token of
  352. 982.74 s [safe-coloured-text-gen] PlainText t
  353. 982.74 s [safe-coloured-text-gen] - | Text.null t -> go s rest
  354. 982.74 s [safe-coloured-text-gen] + | not (Text.null t) -> go s rest
  355. 982.74 s [safe-coloured-text-gen] | otherwise ->
  356. 982.74 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  357. 982.74 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = t, chunkStyle = s} : restChunks)
  358. 982.74 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:175:9-25
  359. 982.74 s [safe-coloured-text-gen] @@ -172,11 +172,8 @@
  360. 982.74 s [safe-coloured-text-gen] SgrSequence params -> go (applySGRParams s params) rest
  361. 982.74 s [safe-coloured-text-gen] OtherCsiSequence -> go s rest
  362. 982.74 s [safe-coloured-text-gen] CarriageReturn ->
  363. 982.74 s [safe-coloured-text-gen] case rest of
  364. 982.74 s [safe-coloured-text-gen] - (PlainText _ : _) ->
  365. 982.74 s [safe-coloured-text-gen] - let (finalS, restChunks) = go s rest
  366. 982.75 s [safe-coloured-text-gen] - in (finalS, Chunk {chunkText = "\n", chunkStyle = s} : restChunks)
  367. 982.75 s [safe-coloured-text-gen] _ -> go s rest
  368. 982.75 s [safe-coloured-text-gen]
  369. 982.75 s [safe-coloured-text-gen] -- | Parse strict 'Text' containing ANSI escape codes into styled 'Chunk's.
  370. 982.75 s [safe-coloured-text-gen] --
  371. 982.75 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:166:27-25
  372. 982.75 s [safe-coloured-text-gen] @@ -163,20 +163,15 @@
  373. 982.75 s [safe-coloured-text-gen] where
  374. 982.75 s [safe-coloured-text-gen] go :: ChunkStyle -> [AnsiToken] -> (ChunkStyle, [Chunk])
  375. 982.75 s [safe-coloured-text-gen] go s [] = (s, [])
  376. 982.75 s [safe-coloured-text-gen] go s (token : rest) = case token of
  377. 982.75 s [safe-coloured-text-gen] - PlainText t
  378. 982.75 s [safe-coloured-text-gen] - | Text.null t -> go s rest
  379. 982.75 s [safe-coloured-text-gen] - | otherwise ->
  380. 982.75 s [safe-coloured-text-gen] - let (finalS, restChunks) = go s rest
  381. 982.75 s [safe-coloured-text-gen] - in (finalS, Chunk {chunkText = t, chunkStyle = s} : restChunks)
  382. 982.75 s [safe-coloured-text-gen] SgrSequence params -> go (applySGRParams s params) rest
  383. 982.75 s [safe-coloured-text-gen] OtherCsiSequence -> go s rest
  384. 982.75 s [safe-coloured-text-gen] CarriageReturn ->
  385. 982.75 s [safe-coloured-text-gen] case rest of
  386. 982.75 s [safe-coloured-text-gen] (PlainText _ : _) ->
  387. 982.75 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  388. 982.75 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = "\n", chunkStyle = s} : restChunks)
  389. 982.75 s [safe-coloured-text-gen] _ -> go s rest
  390. 982.75 s [safe-coloured-text-gen]
  391. 982.75 s [safe-coloured-text-gen] -- | Parse strict 'Text' containing ANSI escape codes into styled 'Chunk's.
  392. 982.75 s [safe-coloured-text-gen] --
  393. 982.75 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:175:9-25
  394. 982.75 s [safe-coloured-text-gen] @@ -172,11 +172,10 @@
  395. 982.75 s [safe-coloured-text-gen] SgrSequence params -> go (applySGRParams s params) rest
  396. 982.75 s [safe-coloured-text-gen] OtherCsiSequence -> go s rest
  397. 982.75 s [safe-coloured-text-gen] CarriageReturn ->
  398. 982.75 s [safe-coloured-text-gen] case rest of
  399. 982.75 s [safe-coloured-text-gen] (PlainText _ : _) ->
  400. 982.75 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  401. 982.75 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = "\n", chunkStyle = s} : restChunks)
  402. 982.75 s [safe-coloured-text-gen] - _ -> go s rest
  403. 982.75 s [safe-coloured-text-gen]
  404. 982.75 s [safe-coloured-text-gen] -- | Parse strict 'Text' containing ANSI escape codes into styled 'Chunk's.
  405. 982.75 s [safe-coloured-text-gen] --
  406. 982.75 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:166:27-25
  407. 982.75 s [safe-coloured-text-gen] @@ -163,20 +163,19 @@
  408. 982.75 s [safe-coloured-text-gen] where
  409. 982.75 s [safe-coloured-text-gen] go :: ChunkStyle -> [AnsiToken] -> (ChunkStyle, [Chunk])
  410. 982.75 s [safe-coloured-text-gen] go s [] = (s, [])
  411. 982.75 s [safe-coloured-text-gen] go s (token : rest) = case token of
  412. 982.75 s [safe-coloured-text-gen] PlainText t
  413. 1012.60 s [safe-coloured-text-gen] | Text.null t -> go s rest
  414. 1012.62 s [safe-coloured-text-gen] | otherwise ->
  415. 1012.62 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  416. 1012.62 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = t, chunkStyle = s} : restChunks)
  417. 1012.62 s [safe-coloured-text-gen] - SgrSequence params -> go (applySGRParams s params) rest
  418. 1012.62 s [safe-coloured-text-gen] OtherCsiSequence -> go s rest
  419. 1012.62 s [safe-coloured-text-gen] CarriageReturn ->
  420. 1012.62 s [safe-coloured-text-gen] case rest of
  421. 1012.63 s [safe-coloured-text-gen] (PlainText _ : _) ->
  422. 1012.63 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  423. 1012.63 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = "\n", chunkStyle = s} : restChunks)
  424. 1012.63 s [safe-coloured-text-gen] _ -> go s rest
  425. 1012.63 s [safe-coloured-text-gen]
  426. 1012.63 s [safe-coloured-text-gen] -- | Parse strict 'Text' containing ANSI escape codes into styled 'Chunk's.
  427. 1012.63 s [safe-coloured-text-gen] --
  428. 1012.63 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:166:27-25
  429. 1012.63 s [safe-coloured-text-gen] @@ -163,20 +163,19 @@
  430. 1012.63 s [safe-coloured-text-gen] where
  431. 1012.63 s [safe-coloured-text-gen] go :: ChunkStyle -> [AnsiToken] -> (ChunkStyle, [Chunk])
  432. 1012.63 s [safe-coloured-text-gen] go s [] = (s, [])
  433. 1012.63 s [safe-coloured-text-gen] go s (token : rest) = case token of
  434. 1012.63 s [safe-coloured-text-gen] PlainText t
  435. 1012.63 s [safe-coloured-text-gen] | Text.null t -> go s rest
  436. 1012.63 s [safe-coloured-text-gen] | otherwise ->
  437. 1012.63 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  438. 1012.63 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = t, chunkStyle = s} : restChunks)
  439. 1012.63 s [safe-coloured-text-gen] SgrSequence params -> go (applySGRParams s params) rest
  440. 1012.63 s [safe-coloured-text-gen] - OtherCsiSequence -> go s rest
  441. 1012.63 s [safe-coloured-text-gen] CarriageReturn ->
  442. 1012.63 s [safe-coloured-text-gen] case rest of
  443. 1012.63 s [safe-coloured-text-gen] (PlainText _ : _) ->
  444. 1012.63 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  445. 1012.63 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = "\n", chunkStyle = s} : restChunks)
  446. 1012.63 s [safe-coloured-text-gen] _ -> go s rest
  447. 1012.63 s [safe-coloured-text-gen]
  448. 1012.63 s [safe-coloured-text-gen] -- | Parse strict 'Text' containing ANSI escape codes into styled 'Chunk's.
  449. 1012.63 s [safe-coloured-text-gen] --
  450. 1012.63 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:166:27-25
  451. 1012.63 s [safe-coloured-text-gen] @@ -163,20 +163,14 @@
  452. 1012.63 s [safe-coloured-text-gen] where
  453. 1012.63 s [safe-coloured-text-gen] go :: ChunkStyle -> [AnsiToken] -> (ChunkStyle, [Chunk])
  454. 1012.63 s [safe-coloured-text-gen] go s [] = (s, [])
  455. 1012.63 s [safe-coloured-text-gen] go s (token : rest) = case token of
  456. 1012.63 s [safe-coloured-text-gen] PlainText t
  457. 1012.63 s [safe-coloured-text-gen] | Text.null t -> go s rest
  458. 1012.63 s [safe-coloured-text-gen] | otherwise ->
  459. 1012.63 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  460. 1012.63 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = t, chunkStyle = s} : restChunks)
  461. 1012.63 s [safe-coloured-text-gen] SgrSequence params -> go (applySGRParams s params) rest
  462. 1012.63 s [safe-coloured-text-gen] OtherCsiSequence -> go s rest
  463. 1012.63 s [safe-coloured-text-gen] - CarriageReturn ->
  464. 1012.63 s [safe-coloured-text-gen] - case rest of
  465. 1012.63 s [safe-coloured-text-gen] - (PlainText _ : _) ->
  466. 1012.64 s [safe-coloured-text-gen] - let (finalS, restChunks) = go s rest
  467. 1012.64 s [safe-coloured-text-gen] - in (finalS, Chunk {chunkText = "\n", chunkStyle = s} : restChunks)
  468. 1012.64 s [safe-coloured-text-gen] - _ -> go s rest
  469. 1012.64 s [safe-coloured-text-gen]
  470. 1012.64 s [safe-coloured-text-gen] -- | Parse strict 'Text' containing ANSI escape codes into styled 'Chunk's.
  471. 1012.64 s [safe-coloured-text-gen] --
  472. 1012.64 s [safe-coloured-text-gen] Testing mutation BoolLit at src/Text/Colour/Chunk/Parsing.hs:130:38-43
  473. 1012.64 s [safe-coloured-text-gen] @@ -127,7 +127,7 @@
  474. 1012.64 s [safe-coloured-text-gen]
  475. 1012.64 s [safe-coloured-text-gen] csiParamsP :: Parser ([Word8], Bool)
  476. 1012.64 s [safe-coloured-text-gen] csiParamsP = do
  477. 1012.64 s [safe-coloured-text-gen] - (revAcc, hasIntermediate) <- go [] False
  478. 1012.64 s [safe-coloured-text-gen] + (revAcc, hasIntermediate) <- go [] True
  479. 1012.64 s [safe-coloured-text-gen] pure (reverse revAcc, hasIntermediate)
  480. 1012.64 s [safe-coloured-text-gen] where
  481. 1012.64 s [safe-coloured-text-gen] go :: [Word8] -> Bool -> Parser ([Word8], Bool)
  482. 1012.64 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:131:25-40
  483. 1012.64 s [safe-coloured-text-gen] @@ -128,7 +128,7 @@
  484. 1012.64 s [safe-coloured-text-gen] csiParamsP :: Parser ([Word8], Bool)
  485. 1012.64 s [safe-coloured-text-gen] csiParamsP = do
  486. 1012.64 s [safe-coloured-text-gen] (revAcc, hasIntermediate) <- go [] False
  487. 1012.64 s [safe-coloured-text-gen] - pure (reverse revAcc, hasIntermediate)
  488. 1012.64 s [safe-coloured-text-gen] + pure (reverse revAcc, True)
  489. 1012.64 s [safe-coloured-text-gen] where
  490. 1012.64 s [safe-coloured-text-gen] go :: [Word8] -> Bool -> Parser ([Word8], Bool)
  491. 1012.64 s [safe-coloured-text-gen] go acc hasIntermediate = do
  492. 1012.64 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:131:25-40
  493. 1012.64 s [safe-coloured-text-gen] @@ -128,7 +128,7 @@
  494. 1012.64 s [safe-coloured-text-gen] csiParamsP :: Parser ([Word8], Bool)
  495. 1012.64 s [safe-coloured-text-gen] csiParamsP = do
  496. 1012.64 s [safe-coloured-text-gen] (revAcc, hasIntermediate) <- go [] False
  497. 1012.64 s [safe-coloured-text-gen] - pure (reverse revAcc, hasIntermediate)
  498. 1012.64 s [safe-coloured-text-gen] + pure (reverse revAcc, False)
  499. 1012.64 s [safe-coloured-text-gen] where
  500. 1012.64 s [safe-coloured-text-gen] go :: [Word8] -> Bool -> Parser ([Word8], Bool)
  501. 1012.64 s [safe-coloured-text-gen] go acc hasIntermediate = do
  502. 1012.64 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:131:25-40
  503. 1012.64 s [safe-coloured-text-gen] @@ -128,7 +128,7 @@
  504. 1012.64 s [safe-coloured-text-gen] csiParamsP :: Parser ([Word8], Bool)
  505. 1012.64 s [safe-coloured-text-gen] csiParamsP = do
  506. 1012.64 s [safe-coloured-text-gen] (revAcc, hasIntermediate) <- go [] False
  507. 1012.64 s [safe-coloured-text-gen] - pure (reverse revAcc, hasIntermediate)
  508. 1012.64 s [safe-coloured-text-gen] + pure (reverse revAcc, not (hasIntermediate))
  509. 1012.64 s [safe-coloured-text-gen] where
  510. 1012.64 s [safe-coloured-text-gen] go :: [Word8] -> Bool -> Parser ([Word8], Bool)
  511. 1012.65 s [safe-coloured-text-gen] go acc hasIntermediate = do
  512. 1012.65 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:136:10-19
  513. 1012.65 s [safe-coloured-text-gen] @@ -133,7 +133,7 @@
  514. 1012.65 s [safe-coloured-text-gen] go :: [Word8] -> Bool -> Parser ([Word8], Bool)
  515. 1012.65 s [safe-coloured-text-gen] go acc hasIntermediate = do
  516. 1012.65 s [safe-coloured-text-gen] c <- peekChar'
  517. 1012.65 s [safe-coloured-text-gen] - if isDigit c
  518. 1012.65 s [safe-coloured-text-gen] + if False
  519. 1012.65 s [safe-coloured-text-gen] then do
  520. 1012.65 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  521. 1012.65 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  522. 1012.65 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:136:10-19
  523. 1012.65 s [safe-coloured-text-gen] @@ -133,7 +133,7 @@
  524. 1012.65 s [safe-coloured-text-gen] go :: [Word8] -> Bool -> Parser ([Word8], Bool)
  525. 1012.65 s [safe-coloured-text-gen] go acc hasIntermediate = do
  526. 1012.65 s [safe-coloured-text-gen] c <- peekChar'
  527. 1012.65 s [safe-coloured-text-gen] - if isDigit c
  528. 1012.65 s [safe-coloured-text-gen] + if True
  529. 1012.65 s [safe-coloured-text-gen] then do
  530. 1012.65 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  531. 1012.65 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  532. 1012.65 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:136:10-19
  533. 1012.65 s [safe-coloured-text-gen] @@ -133,7 +133,7 @@
  534. 1012.65 s [safe-coloured-text-gen] go :: [Word8] -> Bool -> Parser ([Word8], Bool)
  535. 1012.65 s [safe-coloured-text-gen] go acc hasIntermediate = do
  536. 1012.65 s [safe-coloured-text-gen] c <- peekChar'
  537. 1012.65 s [safe-coloured-text-gen] - if isDigit c
  538. 1012.65 s [safe-coloured-text-gen] + if not (isDigit c)
  539. 1012.65 s [safe-coloured-text-gen] then do
  540. 1012.65 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  541. 1012.65 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  542. 1012.65 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:141:17-35
  543. 1012.65 s [safe-coloured-text-gen] @@ -138,7 +138,7 @@
  544. 1012.65 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  545. 1012.65 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  546. 1012.65 s [safe-coloured-text-gen] Just n
  547. 1012.65 s [safe-coloured-text-gen] - | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  548. 1012.65 s [safe-coloured-text-gen] + | n < (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  549. 1012.65 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  550. 1012.65 s [safe-coloured-text-gen] else
  551. 1012.65 s [safe-coloured-text-gen] if c == ';'
  552. 1012.65 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:141:17-35
  553. 1012.65 s [safe-coloured-text-gen] @@ -138,7 +138,7 @@
  554. 1012.65 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  555. 1012.65 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  556. 1012.65 s [safe-coloured-text-gen] Just n
  557. 1012.65 s [safe-coloured-text-gen] - | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  558. 1012.65 s [safe-coloured-text-gen] + | n > (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  559. 1012.65 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  560. 1012.65 s [safe-coloured-text-gen] else
  561. 1012.65 s [safe-coloured-text-gen] if c == ';'
  562. 1012.65 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:141:17-35
  563. 1012.65 s [safe-coloured-text-gen] @@ -138,7 +138,7 @@
  564. 1012.65 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  565. 1012.65 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  566. 1012.65 s [safe-coloured-text-gen] Just n
  567. 1012.65 s [safe-coloured-text-gen] - | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  568. 1012.65 s [safe-coloured-text-gen] + | n >= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  569. 1012.65 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  570. 1012.65 s [safe-coloured-text-gen] else
  571. 1012.65 s [safe-coloured-text-gen] if c == ';'
  572. 1012.65 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:141:17-35
  573. 1012.65 s [safe-coloured-text-gen] @@ -138,7 +138,7 @@
  574. 1012.65 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  575. 1012.65 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  576. 1012.65 s [safe-coloured-text-gen] Just n
  577. 1012.65 s [safe-coloured-text-gen] - | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  578. 1012.66 s [safe-coloured-text-gen] + | True -> go (fromIntegral n : acc) hasIntermediate
  579. 1012.66 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  580. 1012.66 s [safe-coloured-text-gen] else
  581. 1012.66 s [safe-coloured-text-gen] if c == ';'
  582. 1012.66 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:141:17-35
  583. 1012.66 s [safe-coloured-text-gen] @@ -138,7 +138,7 @@
  584. 1012.66 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  585. 1012.66 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  586. 1012.66 s [safe-coloured-text-gen] Just n
  587. 1012.66 s [safe-coloured-text-gen] - | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  588. 1012.66 s [safe-coloured-text-gen] + | not (n <= (255 :: Word)) -> go (fromIntegral n : acc) hasIntermediate
  589. 1012.66 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  590. 1012.66 s [safe-coloured-text-gen] else
  591. 1012.66 s [safe-coloured-text-gen] if c == ';'
  592. 1012.66 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:141:65-80
  593. 1012.66 s [safe-coloured-text-gen] @@ -138,7 +138,7 @@
  594. 1012.66 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  595. 1012.66 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  596. 1012.66 s [safe-coloured-text-gen] Just n
  597. 1012.66 s [safe-coloured-text-gen] - | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  598. 1012.66 s [safe-coloured-text-gen] + | n <= (255 :: Word) -> go (fromIntegral n : acc) True
  599. 1012.66 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  600. 1012.66 s [safe-coloured-text-gen] else
  601. 1012.66 s [safe-coloured-text-gen] if c == ';'
  602. 1012.66 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:141:65-80
  603. 1012.66 s [safe-coloured-text-gen] @@ -138,7 +138,7 @@
  604. 1012.66 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  605. 1012.66 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  606. 1012.66 s [safe-coloured-text-gen] Just n
  607. 1012.66 s [safe-coloured-text-gen] - | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  608. 1012.66 s [safe-coloured-text-gen] + | n <= (255 :: Word) -> go (fromIntegral n : acc) False
  609. 1039.77 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  610. 1039.79 s [safe-coloured-text-gen] else
  611. 1039.79 s [safe-coloured-text-gen] if c == ';'
  612. 1039.79 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:141:65-80
  613. 1039.79 s [safe-coloured-text-gen] @@ -138,7 +138,7 @@
  614. 1039.79 s [safe-coloured-text-gen] digits <- takeWhile1 isDigit
  615. 1039.79 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  616. 1039.79 s [safe-coloured-text-gen] Just n
  617. 1039.79 s [safe-coloured-text-gen] - | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  618. 1039.79 s [safe-coloured-text-gen] + | n <= (255 :: Word) -> go (fromIntegral n : acc) not (hasIntermediate)
  619. 1039.79 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  620. 1039.79 s [safe-coloured-text-gen] else
  621. 1039.79 s [safe-coloured-text-gen] if c == ';'
  622. 1039.79 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:142:25-40
  623. 1039.79 s [safe-coloured-text-gen] @@ -139,7 +139,7 @@
  624. 1039.79 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  625. 1039.79 s [safe-coloured-text-gen] Just n
  626. 1039.80 s [safe-coloured-text-gen] | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  627. 1039.80 s [safe-coloured-text-gen] - _ -> go acc hasIntermediate
  628. 1039.80 s [safe-coloured-text-gen] + _ -> go acc True
  629. 1039.80 s [safe-coloured-text-gen] else
  630. 1039.80 s [safe-coloured-text-gen] if c == ';'
  631. 1039.80 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  632. 1039.80 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:142:25-40
  633. 1039.80 s [safe-coloured-text-gen] @@ -139,7 +139,7 @@
  634. 1039.80 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  635. 1039.80 s [safe-coloured-text-gen] Just n
  636. 1039.80 s [safe-coloured-text-gen] | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  637. 1039.80 s [safe-coloured-text-gen] - _ -> go acc hasIntermediate
  638. 1039.80 s [safe-coloured-text-gen] + _ -> go acc False
  639. 1039.80 s [safe-coloured-text-gen] else
  640. 1039.80 s [safe-coloured-text-gen] if c == ';'
  641. 1039.80 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  642. 1039.80 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:142:25-40
  643. 1039.80 s [safe-coloured-text-gen] @@ -139,7 +139,7 @@
  644. 1039.80 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  645. 1039.80 s [safe-coloured-text-gen] Just n
  646. 1039.80 s [safe-coloured-text-gen] | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  647. 1039.80 s [safe-coloured-text-gen] - _ -> go acc hasIntermediate
  648. 1039.80 s [safe-coloured-text-gen] + _ -> go acc not (hasIntermediate)
  649. 1039.80 s [safe-coloured-text-gen] else
  650. 1039.80 s [safe-coloured-text-gen] if c == ';'
  651. 1039.80 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  652. 1039.80 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:144:14-22
  653. 1039.80 s [safe-coloured-text-gen] @@ -141,7 +141,7 @@
  654. 1039.80 s [safe-coloured-text-gen] | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  655. 1039.80 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  656. 1039.80 s [safe-coloured-text-gen] else
  657. 1039.80 s [safe-coloured-text-gen] - if c == ';'
  658. 1039.80 s [safe-coloured-text-gen] + if True
  659. 1039.80 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  660. 1039.80 s [safe-coloured-text-gen] else
  661. 1039.80 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  662. 1039.80 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:144:14-22
  663. 1039.80 s [safe-coloured-text-gen] @@ -141,7 +141,7 @@
  664. 1039.80 s [safe-coloured-text-gen] | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  665. 1039.80 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  666. 1039.80 s [safe-coloured-text-gen] else
  667. 1039.80 s [safe-coloured-text-gen] - if c == ';'
  668. 1039.80 s [safe-coloured-text-gen] + if False
  669. 1039.80 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  670. 1039.80 s [safe-coloured-text-gen] else
  671. 1039.80 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  672. 1039.80 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:144:14-22
  673. 1039.80 s [safe-coloured-text-gen] @@ -141,7 +141,7 @@
  674. 1039.80 s [safe-coloured-text-gen] | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  675. 1039.80 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  676. 1039.80 s [safe-coloured-text-gen] else
  677. 1039.80 s [safe-coloured-text-gen] - if c == ';'
  678. 1039.80 s [safe-coloured-text-gen] + if not (c == ';')
  679. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  680. 1039.81 s [safe-coloured-text-gen] else
  681. 1039.81 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  682. 1039.81 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:145:36-51
  683. 1039.81 s [safe-coloured-text-gen] @@ -142,7 +142,7 @@
  684. 1039.81 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  685. 1039.81 s [safe-coloured-text-gen] else
  686. 1039.81 s [safe-coloured-text-gen] if c == ';'
  687. 1039.81 s [safe-coloured-text-gen] - then anyChar >> go acc hasIntermediate
  688. 1039.81 s [safe-coloured-text-gen] + then anyChar >> go acc True
  689. 1039.81 s [safe-coloured-text-gen] else
  690. 1039.81 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  691. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc True
  692. 1039.81 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:145:36-51
  693. 1039.81 s [safe-coloured-text-gen] @@ -142,7 +142,7 @@
  694. 1039.81 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  695. 1039.81 s [safe-coloured-text-gen] else
  696. 1039.81 s [safe-coloured-text-gen] if c == ';'
  697. 1039.81 s [safe-coloured-text-gen] - then anyChar >> go acc hasIntermediate
  698. 1039.81 s [safe-coloured-text-gen] + then anyChar >> go acc False
  699. 1039.81 s [safe-coloured-text-gen] else
  700. 1039.81 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  701. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc True
  702. 1039.81 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:145:36-51
  703. 1039.81 s [safe-coloured-text-gen] @@ -142,7 +142,7 @@
  704. 1039.81 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  705. 1039.81 s [safe-coloured-text-gen] else
  706. 1039.81 s [safe-coloured-text-gen] if c == ';'
  707. 1039.81 s [safe-coloured-text-gen] - then anyChar >> go acc hasIntermediate
  708. 1039.81 s [safe-coloured-text-gen] + then anyChar >> go acc not (hasIntermediate)
  709. 1039.81 s [safe-coloured-text-gen] else
  710. 1039.81 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  711. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc True
  712. 1039.81 s [safe-coloured-text-gen] Testing mutation RemoveAction at src/Text/Colour/Chunk/Parsing.hs:145:18-51
  713. 1039.81 s [safe-coloured-text-gen] @@ -142,7 +142,6 @@
  714. 1039.81 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  715. 1039.81 s [safe-coloured-text-gen] else
  716. 1039.81 s [safe-coloured-text-gen] if c == ';'
  717. 1039.81 s [safe-coloured-text-gen] - then anyChar >> go acc hasIntermediate
  718. 1039.81 s [safe-coloured-text-gen] else
  719. 1039.81 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  720. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc True
  721. 1039.81 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:147:18-29
  722. 1039.81 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  723. 1039.81 s [safe-coloured-text-gen] if c == ';'
  724. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  725. 1039.81 s [safe-coloured-text-gen] else
  726. 1039.81 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  727. 1039.81 s [safe-coloured-text-gen] + if c < '\x20' && c <= '\x2F'
  728. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc True
  729. 1039.81 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  730. 1039.81 s [safe-coloured-text-gen]
  731. 1039.81 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:147:18-29
  732. 1039.81 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  733. 1039.81 s [safe-coloured-text-gen] if c == ';'
  734. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  735. 1039.81 s [safe-coloured-text-gen] else
  736. 1039.81 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  737. 1039.81 s [safe-coloured-text-gen] + if c <= '\x20' && c <= '\x2F'
  738. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc True
  739. 1039.81 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  740. 1039.81 s [safe-coloured-text-gen]
  741. 1039.81 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:147:18-29
  742. 1039.81 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  743. 1039.81 s [safe-coloured-text-gen] if c == ';'
  744. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  745. 1039.81 s [safe-coloured-text-gen] else
  746. 1039.81 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  747. 1039.81 s [safe-coloured-text-gen] + if c > '\x20' && c <= '\x2F'
  748. 1039.81 s [safe-coloured-text-gen] then anyChar >> go acc True
  749. 1039.81 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  750. 1039.82 s [safe-coloured-text-gen]
  751. 1039.82 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:147:18-29
  752. 1039.82 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  753. 1039.82 s [safe-coloured-text-gen] if c == ';'
  754. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  755. 1039.82 s [safe-coloured-text-gen] else
  756. 1039.82 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  757. 1039.82 s [safe-coloured-text-gen] + if True && c <= '\x2F'
  758. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc True
  759. 1039.82 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  760. 1039.82 s [safe-coloured-text-gen]
  761. 1039.82 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:147:18-29
  762. 1039.82 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  763. 1039.82 s [safe-coloured-text-gen] if c == ';'
  764. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  765. 1039.82 s [safe-coloured-text-gen] else
  766. 1039.82 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  767. 1039.82 s [safe-coloured-text-gen] + if False && c <= '\x2F'
  768. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc True
  769. 1039.82 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  770. 1039.82 s [safe-coloured-text-gen]
  771. 1039.82 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:147:18-29
  772. 1039.82 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  773. 1039.82 s [safe-coloured-text-gen] if c == ';'
  774. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  775. 1039.82 s [safe-coloured-text-gen] else
  776. 1039.82 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  777. 1039.82 s [safe-coloured-text-gen] + if not (c >= '\x20') && c <= '\x2F'
  778. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc True
  779. 1039.82 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  780. 1039.82 s [safe-coloured-text-gen]
  781. 1039.82 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:147:33-44
  782. 1039.82 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  783. 1039.82 s [safe-coloured-text-gen] if c == ';'
  784. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  785. 1039.82 s [safe-coloured-text-gen] else
  786. 1039.82 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  787. 1039.82 s [safe-coloured-text-gen] + if c >= '\x20' && c < '\x2F'
  788. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc True
  789. 1039.82 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  790. 1039.82 s [safe-coloured-text-gen]
  791. 1039.82 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:147:33-44
  792. 1039.82 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  793. 1039.82 s [safe-coloured-text-gen] if c == ';'
  794. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  795. 1039.82 s [safe-coloured-text-gen] else
  796. 1039.82 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  797. 1039.82 s [safe-coloured-text-gen] + if c >= '\x20' && c > '\x2F'
  798. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc True
  799. 1039.82 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  800. 1039.82 s [safe-coloured-text-gen]
  801. 1039.82 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:147:33-44
  802. 1039.82 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  803. 1039.82 s [safe-coloured-text-gen] if c == ';'
  804. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  805. 1039.82 s [safe-coloured-text-gen] else
  806. 1039.82 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  807. 1039.82 s [safe-coloured-text-gen] + if c >= '\x20' && c >= '\x2F'
  808. 1039.82 s [safe-coloured-text-gen] then anyChar >> go acc True
  809. 1039.82 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  810. 1039.82 s [safe-coloured-text-gen]
  811. 1072.01 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:147:33-44
  812. 1072.01 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  813. 1072.03 s [safe-coloured-text-gen] if c == ';'
  814. 1072.03 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  815. 1072.04 s [safe-coloured-text-gen] else
  816. 1072.04 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  817. 1072.04 s [safe-coloured-text-gen] + if c >= '\x20' && False
  818. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc True
  819. 1072.04 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  820. 1072.04 s [safe-coloured-text-gen]
  821. 1072.04 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:147:33-44
  822. 1072.04 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  823. 1072.04 s [safe-coloured-text-gen] if c == ';'
  824. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  825. 1072.04 s [safe-coloured-text-gen] else
  826. 1072.04 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  827. 1072.04 s [safe-coloured-text-gen] + if c >= '\x20' && True
  828. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc True
  829. 1072.04 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  830. 1072.04 s [safe-coloured-text-gen]
  831. 1072.04 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:147:33-44
  832. 1072.04 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  833. 1072.04 s [safe-coloured-text-gen] if c == ';'
  834. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  835. 1072.04 s [safe-coloured-text-gen] else
  836. 1072.04 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  837. 1072.04 s [safe-coloured-text-gen] + if c >= '\x20' && not (c <= '\x2F')
  838. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc True
  839. 1072.04 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  840. 1072.04 s [safe-coloured-text-gen]
  841. 1072.04 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:147:18-44
  842. 1072.04 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  843. 1072.04 s [safe-coloured-text-gen] if c == ';'
  844. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  845. 1072.04 s [safe-coloured-text-gen] else
  846. 1072.04 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  847. 1072.04 s [safe-coloured-text-gen] + if True
  848. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc True
  849. 1072.04 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  850. 1072.04 s [safe-coloured-text-gen]
  851. 1072.04 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:147:18-44
  852. 1072.04 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  853. 1072.04 s [safe-coloured-text-gen] if c == ';'
  854. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  855. 1072.04 s [safe-coloured-text-gen] else
  856. 1072.04 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  857. 1072.04 s [safe-coloured-text-gen] + if False
  858. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc True
  859. 1072.04 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  860. 1072.04 s [safe-coloured-text-gen]
  861. 1072.04 s [safe-coloured-text-gen] Testing mutation LogicOp at src/Text/Colour/Chunk/Parsing.hs:147:18-44
  862. 1072.04 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  863. 1072.04 s [safe-coloured-text-gen] if c == ';'
  864. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  865. 1072.04 s [safe-coloured-text-gen] else
  866. 1072.04 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  867. 1072.04 s [safe-coloured-text-gen] + if c >= '\x20' || c <= '\x2F'
  868. 1072.04 s [safe-coloured-text-gen] then anyChar >> go acc True
  869. 1072.04 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  870. 1072.04 s [safe-coloured-text-gen]
  871. 1072.04 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:147:18-44
  872. 1072.04 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  873. 1072.04 s [safe-coloured-text-gen] if c == ';'
  874. 1072.05 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  875. 1072.05 s [safe-coloured-text-gen] else
  876. 1072.05 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  877. 1072.05 s [safe-coloured-text-gen] + if not (c >= '\x20' && c <= '\x2F')
  878. 1072.05 s [safe-coloured-text-gen] then anyChar >> go acc True
  879. 1072.05 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  880. 1072.05 s [safe-coloured-text-gen]
  881. 1072.05 s [safe-coloured-text-gen] Testing mutation BoolLit at src/Text/Colour/Chunk/Parsing.hs:148:40-44
  882. 1072.05 s [safe-coloured-text-gen] @@ -145,7 +145,7 @@
  883. 1072.05 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  884. 1072.05 s [safe-coloured-text-gen] else
  885. 1072.05 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  886. 1072.05 s [safe-coloured-text-gen] - then anyChar >> go acc True
  887. 1072.05 s [safe-coloured-text-gen] + then anyChar >> go acc False
  888. 1072.05 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  889. 1072.05 s [safe-coloured-text-gen]
  890. 1072.05 s [safe-coloured-text-gen] -- | Convert a stream of 'AnsiToken's into styled 'Chunk's.
  891. 1072.05 s [safe-coloured-text-gen] Testing mutation RemoveAction at src/Text/Colour/Chunk/Parsing.hs:148:22-44
  892. 1072.05 s [safe-coloured-text-gen] @@ -145,7 +145,6 @@
  893. 1072.05 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  894. 1072.05 s [safe-coloured-text-gen] else
  895. 1072.05 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  896. 1072.05 s [safe-coloured-text-gen] - then anyChar >> go acc True
  897. 1072.05 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  898. 1072.05 s [safe-coloured-text-gen]
  899. 1072.05 s [safe-coloured-text-gen] -- | Convert a stream of 'AnsiToken's into styled 'Chunk's.
  900. 1072.05 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:149:33-48
  901. 1072.05 s [safe-coloured-text-gen] @@ -146,7 +146,7 @@
  902. 1072.05 s [safe-coloured-text-gen] else
  903. 1072.05 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  904. 1072.05 s [safe-coloured-text-gen] then anyChar >> go acc True
  905. 1072.05 s [safe-coloured-text-gen] - else pure (acc, hasIntermediate)
  906. 1072.05 s [safe-coloured-text-gen] + else pure (acc, True)
  907. 1072.05 s [safe-coloured-text-gen]
  908. 1072.05 s [safe-coloured-text-gen] -- | Convert a stream of 'AnsiToken's into styled 'Chunk's.
  909. 1072.05 s [safe-coloured-text-gen] --
  910. 1072.05 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:149:33-48
  911. 1072.05 s [safe-coloured-text-gen] @@ -146,7 +146,7 @@
  912. 1072.05 s [safe-coloured-text-gen] else
  913. 1072.05 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  914. 1072.05 s [safe-coloured-text-gen] then anyChar >> go acc True
  915. 1072.05 s [safe-coloured-text-gen] - else pure (acc, hasIntermediate)
  916. 1072.05 s [safe-coloured-text-gen] + else pure (acc, False)
  917. 1072.05 s [safe-coloured-text-gen]
  918. 1072.05 s [safe-coloured-text-gen] -- | Convert a stream of 'AnsiToken's into styled 'Chunk's.
  919. 1072.05 s [safe-coloured-text-gen] --
  920. 1072.05 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:149:33-48
  921. 1072.05 s [safe-coloured-text-gen] @@ -146,7 +146,7 @@
  922. 1072.05 s [safe-coloured-text-gen] else
  923. 1072.05 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  924. 1072.05 s [safe-coloured-text-gen] then anyChar >> go acc True
  925. 1072.05 s [safe-coloured-text-gen] - else pure (acc, hasIntermediate)
  926. 1072.05 s [safe-coloured-text-gen] + else pure (acc, not (hasIntermediate))
  927. 1072.05 s [safe-coloured-text-gen]
  928. 1072.05 s [safe-coloured-text-gen] -- | Convert a stream of 'AnsiToken's into styled 'Chunk's.
  929. 1072.05 s [safe-coloured-text-gen] --
  930. 1072.05 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:122:31-42
  931. 1072.05 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  932. 1072.05 s [safe-coloured-text-gen] _ <- char '\ESC'
  933. 1072.05 s [safe-coloured-text-gen] _ <- char '['
  934. 1072.05 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  935. 1072.05 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  936. 1072.05 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c <= '\x40' && c <= '\x7E')
  937. 1072.05 s [safe-coloured-text-gen] pure $
  938. 1072.05 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  939. 1072.05 s [safe-coloured-text-gen] then SgrSequence params
  940. 1072.05 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:122:31-42
  941. 1072.05 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  942. 1072.05 s [safe-coloured-text-gen] _ <- char '\ESC'
  943. 1072.05 s [safe-coloured-text-gen] _ <- char '['
  944. 1072.05 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  945. 1072.05 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  946. 1072.05 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c < '\x40' && c <= '\x7E')
  947. 1072.05 s [safe-coloured-text-gen] pure $
  948. 1072.05 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  949. 1072.05 s [safe-coloured-text-gen] then SgrSequence params
  950. 1072.05 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:122:31-42
  951. 1072.05 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  952. 1072.05 s [safe-coloured-text-gen] _ <- char '\ESC'
  953. 1072.05 s [safe-coloured-text-gen] _ <- char '['
  954. 1072.05 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  955. 1072.05 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  956. 1072.05 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> True && c <= '\x7E')
  957. 1072.05 s [safe-coloured-text-gen] pure $
  958. 1072.05 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  959. 1072.05 s [safe-coloured-text-gen] then SgrSequence params
  960. 1072.05 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:122:31-42
  961. 1072.05 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  962. 1072.05 s [safe-coloured-text-gen] _ <- char '\ESC'
  963. 1072.05 s [safe-coloured-text-gen] _ <- char '['
  964. 1072.05 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  965. 1072.05 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  966. 1072.05 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> False && c <= '\x7E')
  967. 1072.05 s [safe-coloured-text-gen] pure $
  968. 1072.05 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  969. 1072.05 s [safe-coloured-text-gen] then SgrSequence params
  970. 1072.05 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:122:31-42
  971. 1072.05 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  972. 1072.05 s [safe-coloured-text-gen] _ <- char '\ESC'
  973. 1072.05 s [safe-coloured-text-gen] _ <- char '['
  974. 1072.05 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  975. 1072.05 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  976. 1072.05 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c > '\x40' && c <= '\x7E')
  977. 1072.05 s [safe-coloured-text-gen] pure $
  978. 1072.05 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  979. 1072.06 s [safe-coloured-text-gen] then SgrSequence params
  980. 1072.06 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:122:31-42
  981. 1072.06 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  982. 1072.06 s [safe-coloured-text-gen] _ <- char '\ESC'
  983. 1072.06 s [safe-coloured-text-gen] _ <- char '['
  984. 1072.06 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  985. 1072.06 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  986. 1072.06 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> not (c >= '\x40') && c <= '\x7E')
  987. 1072.06 s [safe-coloured-text-gen] pure $
  988. 1072.06 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  989. 1072.06 s [safe-coloured-text-gen] then SgrSequence params
  990. 1072.06 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:122:46-57
  991. 1072.06 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  992. 1072.06 s [safe-coloured-text-gen] _ <- char '\ESC'
  993. 1072.06 s [safe-coloured-text-gen] _ <- char '['
  994. 1072.06 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  995. 1072.06 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  996. 1072.06 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' && c < '\x7E')
  997. 1072.06 s [safe-coloured-text-gen] pure $
  998. 1072.06 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  999. 1072.06 s [safe-coloured-text-gen] then SgrSequence params
  1000. 1072.06 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:122:46-57
  1001. 1072.06 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1002. 1072.06 s [safe-coloured-text-gen] _ <- char '\ESC'
  1003. 1072.06 s [safe-coloured-text-gen] _ <- char '['
  1004. 1072.06 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1005. 1072.06 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1006. 1072.06 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' && c > '\x7E')
  1007. 1072.06 s [safe-coloured-text-gen] pure $
  1008. 1072.06 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1009. 1072.06 s [safe-coloured-text-gen] then SgrSequence params
  1010. 1072.06 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Chunk/Parsing.hs:122:46-57
  1011. 1072.06 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1012. 1072.06 s [safe-coloured-text-gen] _ <- char '\ESC'
  1013. 1072.06 s [safe-coloured-text-gen] _ <- char '['
  1014. 1072.06 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1015. 1072.06 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1016. 1107.26 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' && c >= '\x7E')
  1017. 1107.29 s [safe-coloured-text-gen] pure $
  1018. 1107.29 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1019. 1107.29 s [safe-coloured-text-gen] then SgrSequence params
  1020. 1107.29 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:122:46-57
  1021. 1107.29 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1022. 1107.29 s [safe-coloured-text-gen] _ <- char '\ESC'
  1023. 1107.29 s [safe-coloured-text-gen] _ <- char '['
  1024. 1107.29 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1025. 1107.29 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1026. 1107.30 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' && True)
  1027. 1107.30 s [safe-coloured-text-gen] pure $
  1028. 1107.30 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1029. 1107.30 s [safe-coloured-text-gen] then SgrSequence params
  1030. 1107.30 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:122:46-57
  1031. 1107.30 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1032. 1107.30 s [safe-coloured-text-gen] _ <- char '\ESC'
  1033. 1107.30 s [safe-coloured-text-gen] _ <- char '['
  1034. 1107.30 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1035. 1107.30 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1036. 1107.30 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' && False)
  1037. 1107.30 s [safe-coloured-text-gen] pure $
  1038. 1107.30 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1039. 1107.30 s [safe-coloured-text-gen] then SgrSequence params
  1040. 1107.30 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:122:46-57
  1041. 1107.30 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1042. 1107.30 s [safe-coloured-text-gen] _ <- char '\ESC'
  1043. 1107.30 s [safe-coloured-text-gen] _ <- char '['
  1044. 1107.30 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1045. 1107.30 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1046. 1107.30 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' && not (c <= '\x7E'))
  1047. 1107.30 s [safe-coloured-text-gen] pure $
  1048. 1107.30 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1049. 1107.30 s [safe-coloured-text-gen] then SgrSequence params
  1050. 1107.30 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:122:31-57
  1051. 1107.30 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1052. 1107.30 s [safe-coloured-text-gen] _ <- char '\ESC'
  1053. 1107.30 s [safe-coloured-text-gen] _ <- char '['
  1054. 1107.30 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1055. 1107.30 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1056. 1107.30 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> True)
  1057. 1107.30 s [safe-coloured-text-gen] pure $
  1058. 1107.30 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1059. 1107.30 s [safe-coloured-text-gen] then SgrSequence params
  1060. 1107.30 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:122:31-57
  1061. 1107.30 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1062. 1107.30 s [safe-coloured-text-gen] _ <- char '\ESC'
  1063. 1107.30 s [safe-coloured-text-gen] _ <- char '['
  1064. 1107.30 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1065. 1107.30 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1066. 1107.30 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> False)
  1067. 1107.30 s [safe-coloured-text-gen] pure $
  1068. 1107.30 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1069. 1107.30 s [safe-coloured-text-gen] then SgrSequence params
  1070. 1107.30 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:122:31-57
  1071. 1107.30 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1072. 1107.30 s [safe-coloured-text-gen] _ <- char '\ESC'
  1073. 1107.30 s [safe-coloured-text-gen] _ <- char '['
  1074. 1107.30 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1075. 1107.30 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1076. 1107.30 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> not (c >= '\x40' && c <= '\x7E'))
  1077. 1107.30 s [safe-coloured-text-gen] pure $
  1078. 1107.30 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1079. 1107.30 s [safe-coloured-text-gen] then SgrSequence params
  1080. 1107.31 s [safe-coloured-text-gen] Testing mutation LogicOp at src/Text/Colour/Chunk/Parsing.hs:122:31-57
  1081. 1107.31 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1082. 1107.31 s [safe-coloured-text-gen] _ <- char '\ESC'
  1083. 1107.31 s [safe-coloured-text-gen] _ <- char '['
  1084. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1085. 1107.31 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1086. 1107.31 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' || c <= '\x7E')
  1087. 1107.31 s [safe-coloured-text-gen] pure $
  1088. 1107.31 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1089. 1107.31 s [safe-coloured-text-gen] then SgrSequence params
  1090. 1107.31 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:124:8-24
  1091. 1107.31 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1092. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1093. 1107.31 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1094. 1107.31 s [safe-coloured-text-gen] pure $
  1095. 1107.31 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1096. 1107.31 s [safe-coloured-text-gen] + if True && not hasIntermediateBytes
  1097. 1107.31 s [safe-coloured-text-gen] then SgrSequence params
  1098. 1107.31 s [safe-coloured-text-gen] else OtherCsiSequence
  1099. 1107.31 s [safe-coloured-text-gen]
  1100. 1107.31 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:124:8-24
  1101. 1107.31 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1102. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1103. 1107.31 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1104. 1107.31 s [safe-coloured-text-gen] pure $
  1105. 1107.31 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1106. 1107.31 s [safe-coloured-text-gen] + if False && not hasIntermediateBytes
  1107. 1107.31 s [safe-coloured-text-gen] then SgrSequence params
  1108. 1107.31 s [safe-coloured-text-gen] else OtherCsiSequence
  1109. 1107.31 s [safe-coloured-text-gen]
  1110. 1107.31 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:124:8-24
  1111. 1107.31 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1112. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1113. 1107.31 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1114. 1107.31 s [safe-coloured-text-gen] pure $
  1115. 1107.31 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1116. 1107.31 s [safe-coloured-text-gen] + if not (finalByte == 'm') && not hasIntermediateBytes
  1117. 1107.31 s [safe-coloured-text-gen] then SgrSequence params
  1118. 1107.31 s [safe-coloured-text-gen] else OtherCsiSequence
  1119. 1107.31 s [safe-coloured-text-gen]
  1120. 1107.31 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:124:32-52
  1121. 1107.31 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1122. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1123. 1107.31 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1124. 1107.31 s [safe-coloured-text-gen] pure $
  1125. 1107.31 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1126. 1107.31 s [safe-coloured-text-gen] + if finalByte == 'm' && not True
  1127. 1107.31 s [safe-coloured-text-gen] then SgrSequence params
  1128. 1107.31 s [safe-coloured-text-gen] else OtherCsiSequence
  1129. 1107.31 s [safe-coloured-text-gen]
  1130. 1107.31 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:124:32-52
  1131. 1107.31 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1132. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1133. 1107.31 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1134. 1107.31 s [safe-coloured-text-gen] pure $
  1135. 1107.31 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1136. 1107.31 s [safe-coloured-text-gen] + if finalByte == 'm' && not False
  1137. 1107.31 s [safe-coloured-text-gen] then SgrSequence params
  1138. 1107.31 s [safe-coloured-text-gen] else OtherCsiSequence
  1139. 1107.31 s [safe-coloured-text-gen]
  1140. 1107.31 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:124:32-52
  1141. 1107.31 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1142. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1143. 1107.31 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1144. 1107.31 s [safe-coloured-text-gen] pure $
  1145. 1107.31 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1146. 1107.31 s [safe-coloured-text-gen] + if finalByte == 'm' && not not (hasIntermediateBytes)
  1147. 1107.31 s [safe-coloured-text-gen] then SgrSequence params
  1148. 1107.31 s [safe-coloured-text-gen] else OtherCsiSequence
  1149. 1107.31 s [safe-coloured-text-gen]
  1150. 1107.31 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:124:28-52
  1151. 1107.31 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1152. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1153. 1107.31 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1154. 1107.31 s [safe-coloured-text-gen] pure $
  1155. 1107.31 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1156. 1107.31 s [safe-coloured-text-gen] + if finalByte == 'm' && False
  1157. 1107.31 s [safe-coloured-text-gen] then SgrSequence params
  1158. 1107.31 s [safe-coloured-text-gen] else OtherCsiSequence
  1159. 1107.31 s [safe-coloured-text-gen]
  1160. 1107.31 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:124:28-52
  1161. 1107.31 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1162. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1163. 1107.31 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1164. 1107.31 s [safe-coloured-text-gen] pure $
  1165. 1107.31 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1166. 1107.31 s [safe-coloured-text-gen] + if finalByte == 'm' && True
  1167. 1107.31 s [safe-coloured-text-gen] then SgrSequence params
  1168. 1107.31 s [safe-coloured-text-gen] else OtherCsiSequence
  1169. 1107.31 s [safe-coloured-text-gen]
  1170. 1107.31 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:124:8-52
  1171. 1107.31 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1172. 1107.31 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1173. 1107.32 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1174. 1107.32 s [safe-coloured-text-gen] pure $
  1175. 1107.32 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1176. 1107.32 s [safe-coloured-text-gen] + if True
  1177. 1107.32 s [safe-coloured-text-gen] then SgrSequence params
  1178. 1107.32 s [safe-coloured-text-gen] else OtherCsiSequence
  1179. 1107.32 s [safe-coloured-text-gen]
  1180. 1107.32 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:124:28-52
  1181. 1107.32 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1182. 1107.32 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1183. 1107.32 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1184. 1107.32 s [safe-coloured-text-gen] pure $
  1185. 1107.32 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1186. 1107.32 s [safe-coloured-text-gen] + if finalByte == 'm' && not (not hasIntermediateBytes)
  1187. 1107.32 s [safe-coloured-text-gen] then SgrSequence params
  1188. 1107.32 s [safe-coloured-text-gen] else OtherCsiSequence
  1189. 1107.32 s [safe-coloured-text-gen]
  1190. 1107.32 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:124:8-52
  1191. 1107.32 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1192. 1107.32 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1193. 1107.32 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1194. 1107.32 s [safe-coloured-text-gen] pure $
  1195. 1107.32 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1196. 1107.32 s [safe-coloured-text-gen] + if False
  1197. 1107.32 s [safe-coloured-text-gen] then SgrSequence params
  1198. 1107.32 s [safe-coloured-text-gen] else OtherCsiSequence
  1199. 1107.32 s [safe-coloured-text-gen]
  1200. 1107.32 s [safe-coloured-text-gen] Testing mutation LogicOp at src/Text/Colour/Chunk/Parsing.hs:124:8-52
  1201. 1107.32 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1202. 1107.32 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1203. 1107.32 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1204. 1107.32 s [safe-coloured-text-gen] pure $
  1205. 1107.32 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1206. 1107.32 s [safe-coloured-text-gen] + if finalByte == 'm' || not hasIntermediateBytes
  1207. 1107.32 s [safe-coloured-text-gen] then SgrSequence params
  1208. 1107.32 s [safe-coloured-text-gen] else OtherCsiSequence
  1209. 1107.32 s [safe-coloured-text-gen]
  1210. 1107.32 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:124:8-52
  1211. 1107.32 s [safe-coloured-text-gen] @@ -121,7 +121,7 @@
  1212. 1107.32 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1213. 1107.32 s [safe-coloured-text-gen] finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1214. 1107.32 s [safe-coloured-text-gen] pure $
  1215. 1107.32 s [safe-coloured-text-gen] - if finalByte == 'm' && not hasIntermediateBytes
  1216. 1107.32 s [safe-coloured-text-gen] + if not (finalByte == 'm' && not hasIntermediateBytes)
  1217. 1107.32 s [safe-coloured-text-gen] then SgrSequence params
  1218. 1107.32 s [safe-coloured-text-gen] else OtherCsiSequence
  1219. 1107.32 s [safe-coloured-text-gen]
  1220. 1107.32 s [safe-coloured-text-gen] Testing mutation BoolLit at src/Text/Colour/Chunk/Parsing.hs:114:33-37
  1221. 1107.32 s [safe-coloured-text-gen] @@ -111,7 +111,7 @@
  1222. 1107.32 s [safe-coloured-text-gen] incompleteEscapeP :: Parser AnsiToken
  1223. 1107.32 s [safe-coloured-text-gen] incompleteEscapeP = do
  1224. 1122.09 s [safe-coloured-text-gen] _ <- char '\ESC'
  1225. 1122.11 s [safe-coloured-text-gen] - mBracket <- (char '[' >> pure True) <|> pure False
  1226. 1122.12 s [safe-coloured-text-gen] + mBracket <- (char '[' >> pure False) <|> pure False
  1227. 1122.12 s [safe-coloured-text-gen] pure $ PlainText $ if mBracket then "\ESC[" else "\ESC"
  1228. 1122.12 s [safe-coloured-text-gen]
  1229. 1122.12 s [safe-coloured-text-gen] csiSequenceP :: Parser AnsiToken
  1230. 1122.12 s [safe-coloured-text-gen] Testing mutation BoolLit at src/Text/Colour/Chunk/Parsing.hs:114:48-53
  1231. 1122.12 s [safe-coloured-text-gen] @@ -111,7 +111,7 @@
  1232. 1122.12 s [safe-coloured-text-gen] incompleteEscapeP :: Parser AnsiToken
  1233. 1122.12 s [safe-coloured-text-gen] incompleteEscapeP = do
  1234. 1122.12 s [safe-coloured-text-gen] _ <- char '\ESC'
  1235. 1122.12 s [safe-coloured-text-gen] - mBracket <- (char '[' >> pure True) <|> pure False
  1236. 1122.12 s [safe-coloured-text-gen] + mBracket <- (char '[' >> pure True) <|> pure True
  1237. 1122.12 s [safe-coloured-text-gen] pure $ PlainText $ if mBracket then "\ESC[" else "\ESC"
  1238. 1122.12 s [safe-coloured-text-gen]
  1239. 1122.12 s [safe-coloured-text-gen] csiSequenceP :: Parser AnsiToken
  1240. 1122.12 s [safe-coloured-text-gen] Testing mutation RemoveAction at src/Text/Colour/Chunk/Parsing.hs:114:16-37
  1241. 1122.12 s [safe-coloured-text-gen] @@ -111,7 +111,6 @@
  1242. 1122.12 s [safe-coloured-text-gen] incompleteEscapeP :: Parser AnsiToken
  1243. 1122.12 s [safe-coloured-text-gen] incompleteEscapeP = do
  1244. 1122.12 s [safe-coloured-text-gen] _ <- char '\ESC'
  1245. 1122.12 s [safe-coloured-text-gen] - mBracket <- (char '[' >> pure True) <|> pure False
  1246. 1122.12 s [safe-coloured-text-gen] pure $ PlainText $ if mBracket then "\ESC[" else "\ESC"
  1247. 1122.12 s [safe-coloured-text-gen]
  1248. 1122.12 s [safe-coloured-text-gen] csiSequenceP :: Parser AnsiToken
  1249. 1122.12 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:115:25-33
  1250. 1122.12 s [safe-coloured-text-gen] @@ -112,7 +112,7 @@
  1251. 1122.12 s [safe-coloured-text-gen] incompleteEscapeP = do
  1252. 1122.12 s [safe-coloured-text-gen] _ <- char '\ESC'
  1253. 1122.12 s [safe-coloured-text-gen] mBracket <- (char '[' >> pure True) <|> pure False
  1254. 1122.12 s [safe-coloured-text-gen] - pure $ PlainText $ if mBracket then "\ESC[" else "\ESC"
  1255. 1122.12 s [safe-coloured-text-gen] + pure $ PlainText $ if True then "\ESC[" else "\ESC"
  1256. 1122.12 s [safe-coloured-text-gen]
  1257. 1122.12 s [safe-coloured-text-gen] csiSequenceP :: Parser AnsiToken
  1258. 1122.12 s [safe-coloured-text-gen] csiSequenceP = do
  1259. 1122.12 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:115:25-33
  1260. 1122.12 s [safe-coloured-text-gen] @@ -112,7 +112,7 @@
  1261. 1122.12 s [safe-coloured-text-gen] incompleteEscapeP = do
  1262. 1122.12 s [safe-coloured-text-gen] _ <- char '\ESC'
  1263. 1122.12 s [safe-coloured-text-gen] mBracket <- (char '[' >> pure True) <|> pure False
  1264. 1122.12 s [safe-coloured-text-gen] - pure $ PlainText $ if mBracket then "\ESC[" else "\ESC"
  1265. 1122.12 s [safe-coloured-text-gen] + pure $ PlainText $ if False then "\ESC[" else "\ESC"
  1266. 1122.12 s [safe-coloured-text-gen]
  1267. 1122.12 s [safe-coloured-text-gen] csiSequenceP :: Parser AnsiToken
  1268. 1122.12 s [safe-coloured-text-gen] csiSequenceP = do
  1269. 1122.12 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:115:25-33
  1270. 1122.12 s [safe-coloured-text-gen] @@ -112,7 +112,7 @@
  1271. 1122.12 s [safe-coloured-text-gen] incompleteEscapeP = do
  1272. 1122.12 s [safe-coloured-text-gen] _ <- char '\ESC'
  1273. 1122.12 s [safe-coloured-text-gen] mBracket <- (char '[' >> pure True) <|> pure False
  1274. 1122.12 s [safe-coloured-text-gen] - pure $ PlainText $ if mBracket then "\ESC[" else "\ESC"
  1275. 1122.12 s [safe-coloured-text-gen] + pure $ PlainText $ if not (mBracket) then "\ESC[" else "\ESC"
  1276. 1122.12 s [safe-coloured-text-gen]
  1277. 1122.12 s [safe-coloured-text-gen] csiSequenceP :: Parser AnsiToken
  1278. 1122.12 s [safe-coloured-text-gen] csiSequenceP = do
  1279. 1122.12 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:103:46-57
  1280. 1122.12 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1281. 1122.12 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1282. 1122.12 s [safe-coloured-text-gen]
  1283. 1122.12 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1284. 1122.12 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1285. 1122.12 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> True && c /= '\r')
  1286. 1122.12 s [safe-coloured-text-gen]
  1287. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1288. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1289. 1122.13 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:103:46-57
  1290. 1122.13 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1291. 1122.13 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1292. 1122.13 s [safe-coloured-text-gen]
  1293. 1122.13 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1294. 1122.13 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1295. 1122.13 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> False && c /= '\r')
  1296. 1122.13 s [safe-coloured-text-gen]
  1297. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1298. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1299. 1122.13 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:103:46-57
  1300. 1122.13 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1301. 1122.13 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1302. 1122.13 s [safe-coloured-text-gen]
  1303. 1122.13 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1304. 1122.13 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1305. 1122.13 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> not (c /= '\ESC') && c /= '\r')
  1306. 1122.13 s [safe-coloured-text-gen]
  1307. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1308. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1309. 1122.13 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:103:61-70
  1310. 1122.13 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1311. 1122.13 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1312. 1122.13 s [safe-coloured-text-gen]
  1313. 1122.13 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1314. 1122.13 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1315. 1122.13 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && True)
  1316. 1122.13 s [safe-coloured-text-gen]
  1317. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1318. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1319. 1122.13 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:103:61-70
  1320. 1122.13 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1321. 1122.13 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1322. 1122.13 s [safe-coloured-text-gen]
  1323. 1122.13 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1324. 1122.13 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1325. 1122.13 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && False)
  1326. 1122.13 s [safe-coloured-text-gen]
  1327. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1328. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1329. 1122.13 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:103:61-70
  1330. 1122.13 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1331. 1122.13 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1332. 1122.13 s [safe-coloured-text-gen]
  1333. 1122.13 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1334. 1122.13 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1335. 1122.13 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && not (c /= '\r'))
  1336. 1122.13 s [safe-coloured-text-gen]
  1337. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1338. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1339. 1122.13 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:103:46-70
  1340. 1122.13 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1341. 1122.13 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1342. 1122.13 s [safe-coloured-text-gen]
  1343. 1122.13 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1344. 1122.13 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1345. 1122.13 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> True)
  1346. 1122.13 s [safe-coloured-text-gen]
  1347. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1348. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1349. 1122.13 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:103:46-70
  1350. 1122.13 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1351. 1122.13 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1352. 1122.13 s [safe-coloured-text-gen]
  1353. 1122.13 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1354. 1122.13 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1355. 1122.13 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> False)
  1356. 1122.13 s [safe-coloured-text-gen]
  1357. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1358. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1359. 1122.13 s [safe-coloured-text-gen] Testing mutation LogicOp at src/Text/Colour/Chunk/Parsing.hs:103:46-70
  1360. 1122.13 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1361. 1122.13 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1362. 1122.13 s [safe-coloured-text-gen]
  1363. 1122.13 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1364. 1122.13 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1365. 1122.13 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' || c /= '\r')
  1366. 1122.13 s [safe-coloured-text-gen]
  1367. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1368. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1369. 1122.13 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Chunk/Parsing.hs:88:9-28
  1370. 1122.13 s [safe-coloured-text-gen] @@ -85,7 +85,7 @@
  1371. 1122.13 s [safe-coloured-text-gen] parseAnsiTokensLazy = go
  1372. 1122.13 s [safe-coloured-text-gen] where
  1373. 1122.13 s [safe-coloured-text-gen] go remaining
  1374. 1122.13 s [safe-coloured-text-gen] - | Lazy.null remaining = []
  1375. 1122.13 s [safe-coloured-text-gen] + | True = []
  1376. 1122.13 s [safe-coloured-text-gen] | otherwise =
  1377. 1122.13 s [safe-coloured-text-gen] case AL.parse ansiTokenP remaining of
  1378. 1122.13 s [safe-coloured-text-gen] AL.Done rest token -> token : go rest
  1379. 1122.13 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:90:11-52
  1380. 1122.13 s [safe-coloured-text-gen] @@ -87,12 +87,11 @@
  1381. 1122.13 s [safe-coloured-text-gen] go remaining
  1382. 1122.13 s [safe-coloured-text-gen] | Lazy.null remaining = []
  1383. 1122.13 s [safe-coloured-text-gen] | otherwise =
  1384. 1122.13 s [safe-coloured-text-gen] case AL.parse ansiTokenP remaining of
  1385. 1122.13 s [safe-coloured-text-gen] - AL.Done rest token -> token : go rest
  1386. 1122.13 s [safe-coloured-text-gen] AL.Fail _ _ _ ->
  1387. 1122.13 s [safe-coloured-text-gen] -- This shouldn't happen since ansiTokenP always succeeds on
  1388. 1122.13 s [safe-coloured-text-gen] -- non-empty input (incompleteEscapeP and plainTextP are catch-alls).
  1389. 1122.13 s [safe-coloured-text-gen] [PlainText (Lazy.toStrict remaining)]
  1390. 1122.13 s [safe-coloured-text-gen]
  1391. 1122.13 s [safe-coloured-text-gen] -- | Parse a single ANSI token: a CSI sequence, a bare ESC, a carriage
  1392. 1122.13 s [safe-coloured-text-gen] -- return, or plain text.
  1393. 1122.13 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:88:9-28
  1394. 1122.13 s [safe-coloured-text-gen] @@ -85,7 +85,7 @@
  1395. 1122.13 s [safe-coloured-text-gen] parseAnsiTokensLazy = go
  1396. 1122.13 s [safe-coloured-text-gen] where
  1397. 1122.13 s [safe-coloured-text-gen] go remaining
  1398. 1122.13 s [safe-coloured-text-gen] - | Lazy.null remaining = []
  1399. 1122.13 s [safe-coloured-text-gen] + | not (Lazy.null remaining) = []
  1400. 1122.13 s [safe-coloured-text-gen] | otherwise =
  1401. 1122.13 s [safe-coloured-text-gen] case AL.parse ansiTokenP remaining of
  1402. 1122.13 s [safe-coloured-text-gen] AL.Done rest token -> token : go rest
  1403. 1122.13 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Chunk/Parsing.hs:103:46-70
  1404. 1122.13 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1405. 1122.13 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1406. 1122.13 s [safe-coloured-text-gen]
  1407. 1122.13 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1408. 1122.13 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1409. 1122.13 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> not (c /= '\ESC' && c /= '\r'))
  1410. 1122.13 s [safe-coloured-text-gen]
  1411. 1122.13 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1412. 1122.13 s [safe-coloured-text-gen] carriageReturnP = do
  1413. 1122.13 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:78:3-27
  1414. 1122.13 s [safe-coloured-text-gen] @@ -75,9 +75,8 @@
  1415. 1122.13 s [safe-coloured-text-gen] -- Any incomplete escape sequence at the end of input is emitted as 'PlainText'.
  1416. 1122.14 s [safe-coloured-text-gen] parseAnsiTokens :: Text -> [AnsiToken]
  1417. 1122.14 s [safe-coloured-text-gen] parseAnsiTokens t =
  1418. 1122.14 s [safe-coloured-text-gen] case parseOnly (many' ansiTokenP <* endOfInput) t of
  1419. 1122.14 s [safe-coloured-text-gen] - Left _ -> [PlainText t]
  1420. 1122.14 s [safe-coloured-text-gen] Right tokens -> tokens
  1421. 1122.14 s [safe-coloured-text-gen]
  1422. 1123.53 s [safe-coloured-text-gen] -- | Parse lazy 'Lazy.Text' into a list of 'AnsiToken's, produced lazily.
  1423. 1123.53 s [safe-coloured-text-gen] -- Tokens are yielded as soon as enough input has been consumed to complete them.
  1424. 1123.53 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:90:11-52
  1425. 1123.53 s [safe-coloured-text-gen] @@ -87,12 +87,8 @@
  1426. 1123.53 s [safe-coloured-text-gen] go remaining
  1427. 1123.53 s [safe-coloured-text-gen] | Lazy.null remaining = []
  1428. 1123.53 s [safe-coloured-text-gen] | otherwise =
  1429. 1123.53 s [safe-coloured-text-gen] case AL.parse ansiTokenP remaining of
  1430. 1123.53 s [safe-coloured-text-gen] AL.Done rest token -> token : go rest
  1431. 1123.53 s [safe-coloured-text-gen] - AL.Fail _ _ _ ->
  1432. 1123.53 s [safe-coloured-text-gen] - -- This shouldn't happen since ansiTokenP always succeeds on
  1433. 1123.53 s [safe-coloured-text-gen] - -- non-empty input (incompleteEscapeP and plainTextP are catch-alls).
  1434. 1123.53 s [safe-coloured-text-gen] - [PlainText (Lazy.toStrict remaining)]
  1435. 1123.53 s [safe-coloured-text-gen]
  1436. 1123.53 s [safe-coloured-text-gen] -- | Parse a single ANSI token: a CSI sequence, a bare ESC, a carriage
  1437. 1123.53 s [safe-coloured-text-gen] -- return, or plain text.
  1438. 1123.53 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Capabilities/FromEnv.hs:36:25-28
  1439. 1123.53 s [safe-coloured-text-gen] @@ -33,7 +33,7 @@
  1440. 1123.53 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1441. 1123.53 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1442. 1123.53 s [safe-coloured-text-gen] Just c
  1443. 1123.53 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1444. 1123.53 s [safe-coloured-text-gen] + | c > 0 -> With24BitColours
  1445. 1123.53 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1446. 1123.53 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1447. 1123.53 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1448. 1123.53 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Capabilities/FromEnv.hs:36:25-28
  1449. 1123.54 s [safe-coloured-text-gen] @@ -33,7 +33,7 @@
  1450. 1123.54 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1451. 1123.54 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1452. 1123.54 s [safe-coloured-text-gen] Just c
  1453. 1123.54 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1454. 1123.54 s [safe-coloured-text-gen] + | c > 1 -> With24BitColours
  1455. 1123.54 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1456. 1123.54 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1457. 1123.54 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1458. 1123.54 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Chunk/Parsing.hs:78:3-27
  1459. 1123.54 s [safe-coloured-text-gen] @@ -75,9 +75,8 @@
  1460. 1123.54 s [safe-coloured-text-gen] -- Any incomplete escape sequence at the end of input is emitted as 'PlainText'.
  1461. 1123.54 s [safe-coloured-text-gen] parseAnsiTokens :: Text -> [AnsiToken]
  1462. 1123.54 s [safe-coloured-text-gen] parseAnsiTokens t =
  1463. 1123.54 s [safe-coloured-text-gen] case parseOnly (many' ansiTokenP <* endOfInput) t of
  1464. 1123.54 s [safe-coloured-text-gen] Left _ -> [PlainText t]
  1465. 1123.54 s [safe-coloured-text-gen] - Right tokens -> tokens
  1466. 1123.54 s [safe-coloured-text-gen]
  1467. 1123.54 s [safe-coloured-text-gen] -- | Parse lazy 'Lazy.Text' into a list of 'AnsiToken's, produced lazily.
  1468. 1123.54 s [safe-coloured-text-gen] -- Tokens are yielded as soon as enough input has been consumed to complete them.
  1469. 1123.54 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Capabilities/FromEnv.hs:36:25-28
  1470. 1123.54 s [safe-coloured-text-gen] @@ -33,7 +33,7 @@
  1471. 1123.54 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1472. 1123.54 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1473. 1123.54 s [safe-coloured-text-gen] Just c
  1474. 1123.54 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1475. 1123.54 s [safe-coloured-text-gen] + | c > -256 -> With24BitColours
  1476. 1123.54 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1477. 1123.54 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1478. 1123.54 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1479. 1123.54 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Capabilities/FromEnv.hs:36:21-28
  1480. 1123.54 s [safe-coloured-text-gen] @@ -33,7 +33,7 @@
  1481. 1123.54 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1482. 1123.54 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1483. 1123.54 s [safe-coloured-text-gen] Just c
  1484. 1123.54 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1485. 1123.54 s [safe-coloured-text-gen] + | c < 256 -> With24BitColours
  1486. 1123.54 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1487. 1123.54 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1488. 1123.54 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1489. 1123.54 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Capabilities/FromEnv.hs:36:21-28
  1490. 1123.54 s [safe-coloured-text-gen] @@ -33,7 +33,7 @@
  1491. 1123.54 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1492. 1123.54 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1493. 1123.54 s [safe-coloured-text-gen] Just c
  1494. 1123.54 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1495. 1123.54 s [safe-coloured-text-gen] + | c <= 256 -> With24BitColours
  1496. 1123.54 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1497. 1123.54 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1498. 1123.54 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1499. 1123.54 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Capabilities/FromEnv.hs:36:21-28
  1500. 1123.54 s [safe-coloured-text-gen] @@ -33,7 +33,7 @@
  1501. 1123.54 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1502. 1123.54 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1503. 1123.54 s [safe-coloured-text-gen] Just c
  1504. 1123.54 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1505. 1123.54 s [safe-coloured-text-gen] + | c >= 256 -> With24BitColours
  1506. 1123.54 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1507. 1123.54 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1508. 1123.54 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1509. 1123.54 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Capabilities/FromEnv.hs:36:21-28
  1510. 1123.54 s [safe-coloured-text-gen] @@ -33,7 +33,7 @@
  1511. 1123.54 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1512. 1123.54 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1513. 1123.55 s [safe-coloured-text-gen] Just c
  1514. 1123.55 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1515. 1123.55 s [safe-coloured-text-gen] + | True -> With24BitColours
  1516. 1123.55 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1517. 1123.55 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1518. 1123.55 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1519. 1123.55 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Capabilities/FromEnv.hs:36:21-28
  1520. 1123.55 s [safe-coloured-text-gen] @@ -33,7 +33,7 @@
  1521. 1123.55 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1522. 1123.55 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1523. 1123.55 s [safe-coloured-text-gen] Just c
  1524. 1123.55 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1525. 1123.55 s [safe-coloured-text-gen] + | not (c > 256) -> With24BitColours
  1526. 1123.55 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1527. 1123.55 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1528. 1123.55 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1529. 1123.55 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Capabilities/FromEnv.hs:37:26-29
  1530. 1123.55 s [safe-coloured-text-gen] @@ -34,7 +34,7 @@
  1531. 1123.55 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1532. 1123.55 s [safe-coloured-text-gen] Just c
  1533. 1123.55 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1534. 1123.55 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1535. 1123.55 s [safe-coloured-text-gen] + | c >= 0 -> With8BitColours
  1536. 1123.55 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1537. 1123.55 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1538. 1123.55 s [safe-coloured-text-gen]
  1539. 1123.55 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Capabilities/FromEnv.hs:37:26-29
  1540. 1123.55 s [safe-coloured-text-gen] @@ -34,7 +34,7 @@
  1541. 1123.55 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1542. 1123.55 s [safe-coloured-text-gen] Just c
  1543. 1123.55 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1544. 1123.55 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1545. 1123.55 s [safe-coloured-text-gen] + | c >= 1 -> With8BitColours
  1546. 1123.55 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1547. 1123.55 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1548. 1123.55 s [safe-coloured-text-gen]
  1549. 1123.55 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Capabilities/FromEnv.hs:37:26-29
  1550. 1123.55 s [safe-coloured-text-gen] @@ -34,7 +34,7 @@
  1551. 1123.55 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1552. 1123.55 s [safe-coloured-text-gen] Just c
  1553. 1123.55 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1554. 1123.55 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1555. 1123.55 s [safe-coloured-text-gen] + | c >= -256 -> With8BitColours
  1556. 1123.55 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1557. 1123.55 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1558. 1123.55 s [safe-coloured-text-gen]
  1559. 1123.55 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Capabilities/FromEnv.hs:37:21-29
  1560. 1123.55 s [safe-coloured-text-gen] @@ -34,7 +34,7 @@
  1561. 1123.55 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1562. 1123.55 s [safe-coloured-text-gen] Just c
  1563. 1123.55 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1564. 1123.55 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1565. 1123.55 s [safe-coloured-text-gen] + | c < 256 -> With8BitColours
  1566. 1123.55 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1567. 1123.55 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1568. 1123.55 s [safe-coloured-text-gen]
  1569. 1123.55 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Capabilities/FromEnv.hs:37:21-29
  1570. 1123.55 s [safe-coloured-text-gen] @@ -34,7 +34,7 @@
  1571. 1123.55 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1572. 1123.55 s [safe-coloured-text-gen] Just c
  1573. 1123.55 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1574. 1123.55 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1575. 1123.55 s [safe-coloured-text-gen] + | c <= 256 -> With8BitColours
  1576. 1123.55 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1577. 1123.55 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1578. 1123.55 s [safe-coloured-text-gen]
  1579. 1123.55 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Capabilities/FromEnv.hs:37:21-29
  1580. 1123.55 s [safe-coloured-text-gen] @@ -34,7 +34,7 @@
  1581. 1123.55 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1582. 1123.55 s [safe-coloured-text-gen] Just c
  1583. 1123.55 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1584. 1123.55 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1585. 1123.55 s [safe-coloured-text-gen] + | True -> With8BitColours
  1586. 1123.55 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1587. 1123.55 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1588. 1123.55 s [safe-coloured-text-gen]
  1589. 1123.55 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Capabilities/FromEnv.hs:37:21-29
  1590. 1123.55 s [safe-coloured-text-gen] @@ -34,7 +34,7 @@
  1591. 1123.55 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1592. 1123.55 s [safe-coloured-text-gen] Just c
  1593. 1123.55 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1594. 1123.55 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1595. 1123.55 s [safe-coloured-text-gen] + | c > 256 -> With8BitColours
  1596. 1123.55 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1597. 1123.55 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1598. 1123.55 s [safe-coloured-text-gen]
  1599. 1123.55 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Capabilities/FromEnv.hs:38:26-27
  1600. 1123.56 s [safe-coloured-text-gen] @@ -35,7 +35,7 @@
  1601. 1123.56 s [safe-coloured-text-gen] Just c
  1602. 1123.56 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1603. 1123.56 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1604. 1123.56 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1605. 1123.56 s [safe-coloured-text-gen] + | c >= 0 -> With8Colours
  1606. 1123.56 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1607. 1123.56 s [safe-coloured-text-gen]
  1608. 1123.56 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1609. 1123.56 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Capabilities/FromEnv.hs:37:21-29
  1610. 1123.56 s [safe-coloured-text-gen] @@ -34,7 +34,7 @@
  1611. 1123.56 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1612. 1123.56 s [safe-coloured-text-gen] Just c
  1613. 1123.56 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1614. 1123.56 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1615. 1123.56 s [safe-coloured-text-gen] + | not (c >= 256) -> With8BitColours
  1616. 1123.56 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1617. 1123.56 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1618. 1123.56 s [safe-coloured-text-gen]
  1619. 1123.56 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Capabilities/FromEnv.hs:38:26-27
  1620. 1123.56 s [safe-coloured-text-gen] @@ -35,7 +35,7 @@
  1621. 1123.56 s [safe-coloured-text-gen] Just c
  1622. 1123.56 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1623. 1123.56 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1624. 1123.56 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1625. 1123.56 s [safe-coloured-text-gen] + | c >= -8 -> With8Colours
  1626. 1123.56 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1627. 1123.56 s [safe-coloured-text-gen]
  1628. 1123.56 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1629. 1123.56 s [safe-coloured-text-gen] Testing mutation IntLit at src/Text/Colour/Capabilities/FromEnv.hs:38:26-27
  1630. 1123.56 s [safe-coloured-text-gen] @@ -35,7 +35,7 @@
  1631. 1123.56 s [safe-coloured-text-gen] Just c
  1632. 1123.56 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1633. 1123.56 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1634. 1123.56 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1635. 1123.56 s [safe-coloured-text-gen] + | c >= 1 -> With8Colours
  1636. 1123.56 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1637. 1123.56 s [safe-coloured-text-gen]
  1638. 1123.56 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1639. 1123.56 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Capabilities/FromEnv.hs:38:21-27
  1640. 1123.56 s [safe-coloured-text-gen] @@ -35,7 +35,7 @@
  1641. 1123.56 s [safe-coloured-text-gen] Just c
  1642. 1123.56 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1643. 1123.56 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1644. 1123.56 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1645. 1123.56 s [safe-coloured-text-gen] + | c < 8 -> With8Colours
  1646. 1123.56 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1647. 1123.56 s [safe-coloured-text-gen]
  1648. 1123.56 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1649. 1123.56 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Capabilities/FromEnv.hs:38:21-27
  1650. 1123.56 s [safe-coloured-text-gen] @@ -35,7 +35,7 @@
  1651. 1123.56 s [safe-coloured-text-gen] Just c
  1652. 1123.56 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1653. 1123.56 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1654. 1123.56 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1655. 1123.56 s [safe-coloured-text-gen] + | c <= 8 -> With8Colours
  1656. 1123.56 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1657. 1123.56 s [safe-coloured-text-gen]
  1658. 1123.56 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1659. 1123.56 s [safe-coloured-text-gen] Testing mutation Cmp at src/Text/Colour/Capabilities/FromEnv.hs:38:21-27
  1660. 1123.56 s [safe-coloured-text-gen] @@ -35,7 +35,7 @@
  1661. 1123.56 s [safe-coloured-text-gen] Just c
  1662. 1123.56 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1663. 1123.56 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1664. 1123.56 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1665. 1123.56 s [safe-coloured-text-gen] + | c > 8 -> With8Colours
  1666. 1123.56 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1667. 1123.56 s [safe-coloured-text-gen]
  1668. 1123.56 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1669. 1123.56 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Capabilities/FromEnv.hs:38:21-27
  1670. 1123.56 s [safe-coloured-text-gen] @@ -35,7 +35,7 @@
  1671. 1123.56 s [safe-coloured-text-gen] Just c
  1672. 1123.56 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1673. 1123.56 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1674. 1123.56 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1675. 1123.56 s [safe-coloured-text-gen] + | True -> With8Colours
  1676. 1123.56 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1677. 1123.56 s [safe-coloured-text-gen]
  1678. 1123.56 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1679. 1123.56 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Capabilities/FromEnv.hs:38:21-27
  1680. 1123.56 s [safe-coloured-text-gen] @@ -35,7 +35,7 @@
  1681. 1123.56 s [safe-coloured-text-gen] Just c
  1682. 1123.56 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1683. 1123.56 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1684. 1123.56 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1685. 1123.56 s [safe-coloured-text-gen] + | not (c >= 8) -> With8Colours
  1686. 1123.56 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1687. 1123.56 s [safe-coloured-text-gen]
  1688. 1123.56 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1689. 1123.56 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Capabilities/FromEnv.hs:33:15-48
  1690. 1123.56 s [safe-coloured-text-gen] @@ -30,13 +30,12 @@
  1691. 1123.56 s [safe-coloured-text-gen] Just "truecolor" -> With24BitColours
  1692. 1123.56 s [safe-coloured-text-gen] Just "24bit" -> With24BitColours
  1693. 1123.56 s [safe-coloured-text-gen] _ ->
  1694. 1123.56 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1695. 1123.56 s [safe-coloured-text-gen] - Nothing -> WithoutColours
  1696. 1123.57 s [safe-coloured-text-gen] Just c
  1697. 1123.57 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1698. 1123.57 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1699. 1123.57 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1700. 1123.57 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1701. 1123.57 s [safe-coloured-text-gen]
  1702. 1123.57 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1703. 1123.57 s [safe-coloured-text-gen] --
  1704. 1123.57 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Capabilities/FromEnv.hs:33:15-48
  1705. 1123.57 s [safe-coloured-text-gen] @@ -30,13 +30,8 @@
  1706. 1123.57 s [safe-coloured-text-gen] Just "truecolor" -> With24BitColours
  1707. 1123.57 s [safe-coloured-text-gen] Just "24bit" -> With24BitColours
  1708. 1123.57 s [safe-coloured-text-gen] _ ->
  1709. 1123.57 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1710. 1123.57 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1711. 1123.57 s [safe-coloured-text-gen] - Just c
  1712. 1123.57 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1713. 1123.57 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1714. 1123.57 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1715. 1123.57 s [safe-coloured-text-gen] - | otherwise -> WithoutColours
  1716. 1123.57 s [safe-coloured-text-gen]
  1717. 1123.57 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1718. 1123.57 s [safe-coloured-text-gen] --
  1719. 1123.57 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Capabilities/FromEnv.hs:29:18-48
  1720. 1123.57 s [safe-coloured-text-gen] @@ -26,17 +26,16 @@
  1721. 1123.57 s [safe-coloured-text-gen] -- To support 24-bit colour:
  1722. 1123.57 s [safe-coloured-text-gen] -- https://unix.stackexchange.com/questions/450365/check-if-terminal-supports-24-bit-true-color
  1723. 1123.57 s [safe-coloured-text-gen] mct <- lookupEnv "COLORTERM"
  1724. 1123.57 s [safe-coloured-text-gen] pure $ case mct of
  1725. 1123.57 s [safe-coloured-text-gen] - Just "truecolor" -> With24BitColours
  1726. 1123.57 s [safe-coloured-text-gen] Just "24bit" -> With24BitColours
  1727. 1123.57 s [safe-coloured-text-gen] _ ->
  1728. 1123.57 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1729. 1123.57 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1730. 1123.57 s [safe-coloured-text-gen] Just c
  1731. 1123.57 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1732. 1123.57 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1733. 1123.57 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1734. 1123.57 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1735. 1123.57 s [safe-coloured-text-gen]
  1736. 1123.57 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1737. 1123.57 s [safe-coloured-text-gen] --
  1738. 1123.57 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Capabilities/FromEnv.hs:29:18-48
  1739. 1123.57 s [safe-coloured-text-gen] @@ -26,17 +26,16 @@
  1740. 1123.57 s [safe-coloured-text-gen] -- To support 24-bit colour:
  1741. 1123.57 s [safe-coloured-text-gen] -- https://unix.stackexchange.com/questions/450365/check-if-terminal-supports-24-bit-true-color
  1742. 1123.57 s [safe-coloured-text-gen] mct <- lookupEnv "COLORTERM"
  1743. 1123.57 s [safe-coloured-text-gen] pure $ case mct of
  1744. 1123.57 s [safe-coloured-text-gen] Just "truecolor" -> With24BitColours
  1745. 1123.57 s [safe-coloured-text-gen] - Just "24bit" -> With24BitColours
  1746. 1123.57 s [safe-coloured-text-gen] _ ->
  1747. 1123.57 s [safe-coloured-text-gen] case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1748. 1123.57 s [safe-coloured-text-gen] Nothing -> WithoutColours
  1749. 1123.57 s [safe-coloured-text-gen] Just c
  1750. 1123.57 s [safe-coloured-text-gen] | c > 256 -> With24BitColours
  1751. 1123.57 s [safe-coloured-text-gen] | c >= 256 -> With8BitColours
  1752. 1123.57 s [safe-coloured-text-gen] | c >= 8 -> With8Colours
  1753. 1123.57 s [safe-coloured-text-gen] | otherwise -> WithoutColours
  1754. 1123.57 s [safe-coloured-text-gen]
  1755. 1123.57 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1756. 1123.57 s [safe-coloured-text-gen] --
  1757. 1123.57 s [safe-coloured-text-gen] Testing mutation RemoveCase at src/Text/Colour/Capabilities/FromEnv.hs:29:18-48
  1758. 1123.57 s [safe-coloured-text-gen] @@ -26,17 +26,9 @@
  1759. 1123.57 s [safe-coloured-text-gen] -- To support 24-bit colour:
  1760. 1123.57 s [safe-coloured-text-gen] -- https://unix.stackexchange.com/questions/450365/check-if-terminal-supports-24-bit-true-color
  1761. 1123.57 s [safe-coloured-text-gen] mct <- lookupEnv "COLORTERM"
  1762. 1123.57 s [safe-coloured-text-gen] pure $ case mct of
  1763. 1123.57 s [safe-coloured-text-gen] Just "truecolor" -> With24BitColours
  1764. 1123.57 s [safe-coloured-text-gen] Just "24bit" -> With24BitColours
  1765. 1123.57 s [safe-coloured-text-gen] - _ ->
  1766. 1123.57 s [safe-coloured-text-gen] - case Terminfo.getCapability term (Terminfo.tiGetNum "colors") of
  1767. 1123.57 s [safe-coloured-text-gen] - Nothing -> WithoutColours
  1768. 1123.57 s [safe-coloured-text-gen] - Just c
  1769. 1123.57 s [safe-coloured-text-gen] - | c > 256 -> With24BitColours
  1770. 1123.57 s [safe-coloured-text-gen] - | c >= 256 -> With8BitColours
  1771. 1123.57 s [safe-coloured-text-gen] - | c >= 8 -> With8Colours
  1772. 1123.57 s [safe-coloured-text-gen] - | otherwise -> WithoutColours
  1773. 1123.57 s [safe-coloured-text-gen]
  1774. 1123.57 s [safe-coloured-text-gen] -- | Try to detect how many colours a given handle can handle.
  1775. 1123.57 s [safe-coloured-text-gen] --
  1776. 1123.57 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Capabilities/FromEnv.hs:47:6-12
  1777. 1123.57 s [safe-coloured-text-gen] @@ -44,6 +44,6 @@
  1778. 1170.50 s [safe-coloured-text-gen] getTerminalCapabilitiesFromHandle :: Handle -> IO TerminalCaKilled: 492
  1779. 1170.50 s [safe-coloured-text-gen] Survived: 54
  1780. 1170.52 s [safe-coloured-text-gen] Uncovered: 59
  1781. 1170.52 s [safe-coloured-text-gen]
  1782. 1170.52 s [safe-coloured-text-gen] Surviving mutations:
  1783. 1170.52 s [safe-coloured-text-gen]
  1784. 1170.52 s [safe-coloured-text-gen] RemoveCase at src/Text/Colour/Chunk/Parsing.hs:78:3-27
  1785. 1170.52 s [safe-coloured-text-gen] @@ -75,9 +75,8 @@
  1786. 1170.52 s [safe-coloured-text-gen] -- Any incomplete escape sequence at the end of input is emitted as 'PlainText'.
  1787. 1170.52 s [safe-coloured-text-gen] parseAnsiTokens :: Text -> [AnsiToken]
  1788. 1170.52 s [safe-coloured-text-gen] parseAnsiTokens t =
  1789. 1170.52 s [safe-coloured-text-gen] case parseOnly (many' ansiTokenP <* endOfInput) t of
  1790. 1170.52 s [safe-coloured-text-gen] - Left _ -> [PlainText t]
  1791. 1170.52 s [safe-coloured-text-gen] Right tokens -> tokens
  1792. 1170.52 s [safe-coloured-text-gen]
  1793. 1170.52 s [safe-coloured-text-gen] -- | Parse lazy 'Lazy.Text' into a list of 'AnsiToken's, produced lazily.
  1794. 1170.52 s [safe-coloured-text-gen] -- Tokens are yielded as soon as enough input has been consumed to complete them.
  1795. 1170.52 s [safe-coloured-text-gen]
  1796. 1170.52 s [safe-coloured-text-gen] RemoveCase at src/Text/Colour/Chunk/Parsing.hs:90:11-52
  1797. 1170.52 s [safe-coloured-text-gen] @@ -87,12 +87,8 @@
  1798. 1170.52 s [safe-coloured-text-gen] go remaining
  1799. 1170.52 s [safe-coloured-text-gen] | Lazy.null remaining = []
  1800. 1170.52 s [safe-coloured-text-gen] | otherwise =
  1801. 1170.52 s [safe-coloured-text-gen] case AL.parse ansiTokenP remaining of
  1802. 1170.52 s [safe-coloured-text-gen] AL.Done rest token -> token : go rest
  1803. 1170.52 s [safe-coloured-text-gen] - AL.Fail _ _ _ ->
  1804. 1170.52 s [safe-coloured-text-gen] - -- This shouldn't happen since ansiTokenP always succeeds on
  1805. 1170.52 s [safe-coloured-text-gen] - -- non-empty input (incompleteEscapeP and plainTextP are catch-alls).
  1806. 1170.52 s [safe-coloured-text-gen] - [PlainText (Lazy.toStrict remaining)]
  1807. 1170.52 s [safe-coloured-text-gen]
  1808. 1170.52 s [safe-coloured-text-gen] -- | Parse a single ANSI token: a CSI sequence, a bare ESC, a carriage
  1809. 1170.52 s [safe-coloured-text-gen] -- return, or plain text.
  1810. 1170.52 s [safe-coloured-text-gen]
  1811. 1170.52 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:103:61-70
  1812. 1170.52 s [safe-coloured-text-gen] @@ -100,7 +100,7 @@
  1813. 1170.52 s [safe-coloured-text-gen] ansiTokenP = csiSequenceP <|> incompleteEscapeP <|> carriageReturnP <|> plainTextP
  1814. 1170.52 s [safe-coloured-text-gen]
  1815. 1170.52 s [safe-coloured-text-gen] plainTextP :: Parser AnsiToken
  1816. 1170.52 s [safe-coloured-text-gen] -plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && c /= '\r')
  1817. 1170.52 s [safe-coloured-text-gen] +plainTextP = PlainText <$> takeWhile1 (\c -> c /= '\ESC' && True)
  1818. 1170.52 s [safe-coloured-text-gen]
  1819. 1170.52 s [safe-coloured-text-gen] carriageReturnP :: Parser AnsiToken
  1820. 1170.52 s [safe-coloured-text-gen] carriageReturnP = do
  1821. 1170.52 s [safe-coloured-text-gen]
  1822. 1170.52 s [safe-coloured-text-gen] LogicOp at src/Text/Colour/Chunk/Parsing.hs:122:31-57
  1823. 1170.52 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1824. 1170.52 s [safe-coloured-text-gen] _ <- char '\ESC'
  1825. 1170.52 s [safe-coloured-text-gen] _ <- char '['
  1826. 1170.52 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1827. 1170.52 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1828. 1170.52 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' || c <= '\x7E')
  1829. 1170.52 s [safe-coloured-text-gen] pure $
  1830. 1170.52 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1831. 1170.52 s [safe-coloured-text-gen] then SgrSequence params
  1832. 1170.52 s [safe-coloured-text-gen]
  1833. 1170.52 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:122:31-57
  1834. 1170.52 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1835. 1170.52 s [safe-coloured-text-gen] _ <- char '\ESC'
  1836. 1170.52 s [safe-coloured-text-gen] _ <- char '['
  1837. 1170.52 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1838. 1170.52 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1839. 1170.52 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> True)
  1840. 1170.52 s [safe-coloured-text-gen] pure $
  1841. 1170.52 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1842. 1170.52 s [safe-coloured-text-gen] then SgrSequence params
  1843. 1170.52 s [safe-coloured-text-gen]
  1844. 1170.52 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:122:46-57
  1845. 1170.52 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1846. 1170.52 s [safe-coloured-text-gen] _ <- char '\ESC'
  1847. 1170.52 s [safe-coloured-text-gen] _ <- char '['
  1848. 1170.52 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1849. 1170.52 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1850. 1170.52 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' && True)
  1851. 1170.52 s [safe-coloured-text-gen] pure $
  1852. 1170.52 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1853. 1170.52 s [safe-coloured-text-gen] then SgrSequence params
  1854. 1170.52 s [safe-coloured-text-gen]
  1855. 1170.52 s [safe-coloured-text-gen] Cmp at src/Text/Colour/Chunk/Parsing.hs:122:46-57
  1856. 1170.52 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1857. 1170.52 s [safe-coloured-text-gen] _ <- char '\ESC'
  1858. 1170.52 s [safe-coloured-text-gen] _ <- char '['
  1859. 1170.52 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1860. 1170.52 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1861. 1170.52 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c >= '\x40' && c < '\x7E')
  1862. 1170.52 s [safe-coloured-text-gen] pure $
  1863. 1170.52 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1864. 1170.52 s [safe-coloured-text-gen] then SgrSequence params
  1865. 1170.52 s [safe-coloured-text-gen]
  1866. 1170.52 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:122:31-42
  1867. 1170.52 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1868. 1170.52 s [safe-coloured-text-gen] _ <- char '\ESC'
  1869. 1170.52 s [safe-coloured-text-gen] _ <- char '['
  1870. 1170.52 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1871. 1170.52 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1872. 1170.52 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> True && c <= '\x7E')
  1873. 1170.52 s [safe-coloured-text-gen] pure $
  1874. 1170.52 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1875. 1170.52 s [safe-coloured-text-gen] then SgrSequence params
  1876. 1170.52 s [safe-coloured-text-gen]
  1877. 1170.52 s [safe-coloured-text-gen] Cmp at src/Text/Colour/Chunk/Parsing.hs:122:31-42
  1878. 1170.52 s [safe-coloured-text-gen] @@ -119,7 +119,7 @@
  1879. 1170.52 s [safe-coloured-text-gen] _ <- char '\ESC'
  1880. 1170.52 s [safe-coloured-text-gen] _ <- char '['
  1881. 1170.52 s [safe-coloured-text-gen] (params, hasIntermediateBytes) <- csiParamsP
  1882. 1170.52 s [safe-coloured-text-gen] - finalByte <- satisfy (\c -> c >= '\x40' && c <= '\x7E')
  1883. 1170.52 s [safe-coloured-text-gen] + finalByte <- satisfy (\c -> c > '\x40' && c <= '\x7E')
  1884. 1170.52 s [safe-coloured-text-gen] pure $
  1885. 1170.52 s [safe-coloured-text-gen] if finalByte == 'm' && not hasIntermediateBytes
  1886. 1170.52 s [safe-coloured-text-gen] then SgrSequence params
  1887. 1170.52 s [safe-coloured-text-gen]
  1888. 1170.52 s [safe-coloured-text-gen] Cmp at src/Text/Colour/Chunk/Parsing.hs:147:33-44
  1889. 1170.52 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  1890. 1170.52 s [safe-coloured-text-gen] if c == ';'
  1891. 1170.52 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  1892. 1170.52 s [safe-coloured-text-gen] else
  1893. 1170.52 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  1894. 1170.52 s [safe-coloured-text-gen] + if c >= '\x20' && c < '\x2F'
  1895. 1170.52 s [safe-coloured-text-gen] then anyChar >> go acc True
  1896. 1170.52 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  1897. 1170.52 s [safe-coloured-text-gen]
  1898. 1170.52 s [safe-coloured-text-gen]
  1899. 1170.52 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:147:18-29
  1900. 1170.52 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  1901. 1170.52 s [safe-coloured-text-gen] if c == ';'
  1902. 1170.52 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  1903. 1170.52 s [safe-coloured-text-gen] else
  1904. 1170.52 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  1905. 1170.52 s [safe-coloured-text-gen] + if True && c <= '\x2F'
  1906. 1170.52 s [safe-coloured-text-gen] then anyChar >> go acc True
  1907. 1170.52 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  1908. 1170.52 s [safe-coloured-text-gen]
  1909. 1170.52 s [safe-coloured-text-gen]
  1910. 1170.52 s [safe-coloured-text-gen] Cmp at src/Text/Colour/Chunk/Parsing.hs:147:18-29
  1911. 1170.52 s [safe-coloured-text-gen] @@ -144,7 +144,7 @@
  1912. 1170.52 s [safe-coloured-text-gen] if c == ';'
  1913. 1170.52 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  1914. 1170.52 s [safe-coloured-text-gen] else
  1915. 1170.52 s [safe-coloured-text-gen] - if c >= '\x20' && c <= '\x2F'
  1916. 1170.52 s [safe-coloured-text-gen] + if c <= '\x20' && c <= '\x2F'
  1917. 1170.52 s [safe-coloured-text-gen] then anyChar >> go acc True
  1918. 1170.52 s [safe-coloured-text-gen] else pure (acc, hasIntermediate)
  1919. 1170.52 s [safe-coloured-text-gen]
  1920. 1170.52 s [safe-coloured-text-gen]
  1921. 1170.52 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:145:36-51
  1922. 1170.52 s [safe-coloured-text-gen] @@ -142,7 +142,7 @@
  1923. 1170.52 s [safe-coloured-text-gen] _ -> go acc hasIntermediate
  1924. 1170.52 s [safe-coloured-text-gen] else
  1925. 1170.52 s [safe-coloured-text-gen] if c == ';'
  1926. 1170.52 s [safe-coloured-text-gen] - then anyChar >> go acc hasIntermediate
  1927. 1170.52 s [safe-coloured-text-gen] + then anyChar >> go acc False
  1928. 1170.52 s [safe-coloured-text-gen] else
  1929. 1170.52 s [safe-coloured-text-gen] if c >= '\x20' && c <= '\x2F'
  1930. 1170.52 s [safe-coloured-text-gen] then anyChar >> go acc True
  1931. 1170.52 s [safe-coloured-text-gen]
  1932. 1170.52 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:142:25-40
  1933. 1170.52 s [safe-coloured-text-gen] @@ -139,7 +139,7 @@
  1934. 1170.52 s [safe-coloured-text-gen] case readMaybe (Text.unpack digits) of
  1935. 1170.52 s [safe-coloured-text-gen] Just n
  1936. 1170.52 s [safe-coloured-text-gen] | n <= (255 :: Word) -> go (fromIntegral n : acc) hasIntermediate
  1937. 1170.52 s [safe-coloured-text-gen] - _ -> go acc hasIntermediate
  1938. 1170.52 s [safe-coloured-text-gen] + _ -> go acc False
  1939. 1170.52 s [safe-coloured-text-gen] else
  1940. 1170.52 s [safe-coloured-text-gen] if c == ';'
  1941. 1170.52 s [safe-coloured-text-gen] then anyChar >> go acc hasIntermediate
  1942. 1170.52 s [safe-coloured-text-gen]
  1943. 1170.52 s [safe-coloured-text-gen] RemoveCase at src/Text/Colour/Chunk/Parsing.hs:166:27-25
  1944. 1170.52 s [safe-coloured-text-gen] @@ -163,20 +163,14 @@
  1945. 1170.52 s [safe-coloured-text-gen] where
  1946. 1170.52 s [safe-coloured-text-gen] go :: ChunkStyle -> [AnsiToken] -> (ChunkStyle, [Chunk])
  1947. 1170.52 s [safe-coloured-text-gen] go s [] = (s, [])
  1948. 1170.52 s [safe-coloured-text-gen] go s (token : rest) = case token of
  1949. 1170.52 s [safe-coloured-text-gen] PlainText t
  1950. 1170.52 s [safe-coloured-text-gen] | Text.null t -> go s rest
  1951. 1170.52 s [safe-coloured-text-gen] | otherwise ->
  1952. 1170.52 s [safe-coloured-text-gen] let (finalS, restChunks) = go s rest
  1953. 1170.52 s [safe-coloured-text-gen] in (finalS, Chunk {chunkText = t, chunkStyle = s} : restChunks)
  1954. 1170.52 s [safe-coloured-text-gen] SgrSequence params -> go (applySGRParams s params) rest
  1955. 1170.52 s [safe-coloured-text-gen] OtherCsiSequence -> go s rest
  1956. 1170.52 s [safe-coloured-text-gen] - CarriageReturn ->
  1957. 1170.52 s [safe-coloured-text-gen] - case rest of
  1958. 1170.52 s [safe-coloured-text-gen] - (PlainText _ : _) ->
  1959. 1170.52 s [safe-coloured-text-gen] - let (finalS, restChunks) = go s rest
  1960. 1170.52 s [safe-coloured-text-gen] - in (finalS, Chunk {chunkText = "\n", chunkStyle = s} : restChunks)
  1961. 1170.52 s [safe-coloured-text-gen] - _ -> go s rest
  1962. 1170.52 s [safe-coloured-text-gen]
  1963. 1170.52 s [safe-coloured-text-gen] -- | Parse strict 'Text' containing ANSI escape codes into styled 'Chunk's.
  1964. 1170.52 s [safe-coloured-text-gen] --
  1965. 1170.52 s [safe-coloured-text-gen]
  1966. 1170.52 s [safe-coloured-text-gen] RemoveCase at src/Text/Colour/Chunk/Parsing.hs:255:7-30
  1967. 1170.52 s [safe-coloured-text-gen] @@ -252,8 +252,7 @@
  1968. 1170.52 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  1969. 1170.52 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  1970. 1170.52 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  1971. 1170.52 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  1972. 1170.52 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  1973. 1170.52 s [safe-coloured-text-gen] - Nothing -> goSGR s ps
  1974. 1170.52 s [safe-coloured-text-gen] -- Unknown code, skip
  1975. 1170.52 s [safe-coloured-text-gen] | otherwise = goSGR s ps
  1976. 1170.52 s [safe-coloured-text-gen]
  1977. 1170.53 s [safe-coloured-text-gen] LogicOp at src/Text/Colour/Chunk/Parsing.hs:254:5-25
  1978. 1170.53 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  1979. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  1980. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  1981. 1170.53 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  1982. 1170.53 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  1983. 1170.53 s [safe-coloured-text-gen] + | p >= 100 || p <= 107 =
  1984. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  1985. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  1986. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  1987. 1170.53 s [safe-coloured-text-gen]
  1988. 1170.53 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:254:5-25
  1989. 1170.53 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  1990. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  1991. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  1992. 1170.53 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  1993. 1170.53 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  1994. 1170.53 s [safe-coloured-text-gen] + | True =
  1995. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  1996. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  1997. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  1998. 1170.53 s [safe-coloured-text-gen]
  1999. 1170.53 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:254:17-25
  2000. 1170.53 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  2001. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  2002. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2003. 1170.53 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  2004. 1170.53 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  2005. 1170.53 s [safe-coloured-text-gen] + | p >= 100 && True =
  2006. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  2007. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  2008. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2009. 1170.53 s [safe-coloured-text-gen]
  2010. 1170.53 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:254:5-13
  2011. 1170.53 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  2012. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  2013. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2014. 1170.53 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  2015. 1170.53 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  2016. 1170.53 s [safe-coloured-text-gen] + | True && p <= 107 =
  2017. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  2018. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  2019. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2020. 1170.53 s [safe-coloured-text-gen]
  2021. 1170.53 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:254:10-13
  2022. 1170.53 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  2023. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  2024. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2025. 1170.53 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  2026. 1170.53 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  2027. 1170.53 s [safe-coloured-text-gen] + | p >= 1 && p <= 107 =
  2028. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  2029. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  2030. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2031. 1170.53 s [safe-coloured-text-gen]
  2032. 1170.53 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:254:10-13
  2033. 1170.53 s [safe-coloured-text-gen] @@ -251,7 +251,7 @@
  2034. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  2035. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2036. 1170.53 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  2037. 1170.53 s [safe-coloured-text-gen] - | p >= 100 && p <= 107 =
  2038. 1170.53 s [safe-coloured-text-gen] + | p >= 0 && p <= 107 =
  2039. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  2040. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Bright tc)}) ps
  2041. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2042. 1170.53 s [safe-coloured-text-gen]
  2043. 1170.53 s [safe-coloured-text-gen] RemoveCase at src/Text/Colour/Chunk/Parsing.hs:250:7-30
  2044. 1170.53 s [safe-coloured-text-gen] @@ -247,9 +247,8 @@
  2045. 1170.53 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  2046. 1170.53 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  2047. 1170.53 s [safe-coloured-text-gen] | p >= 90 && p <= 97 =
  2048. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  2049. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  2050. 1170.53 s [safe-coloured-text-gen] - Nothing -> goSGR s ps
  2051. 1170.53 s [safe-coloured-text-gen] -- Bright background colours (100-107)
  2052. 1170.53 s [safe-coloured-text-gen] | p >= 100 && p <= 107 =
  2053. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 100) of
  2054. 1170.53 s [safe-coloured-text-gen]
  2055. 1170.53 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:249:5-12
  2056. 1170.53 s [safe-coloured-text-gen] @@ -246,7 +246,7 @@
  2057. 1170.53 s [safe-coloured-text-gen] | p == 53 = goSGR (s {chunkStyleOverlined = Just True}) ps
  2058. 1170.53 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  2059. 1170.53 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  2060. 1170.53 s [safe-coloured-text-gen] - | p >= 90 && p <= 97 =
  2061. 1170.53 s [safe-coloured-text-gen] + | True && p <= 97 =
  2062. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  2063. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  2064. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2065. 1170.53 s [safe-coloured-text-gen]
  2066. 1170.53 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:249:10-12
  2067. 1170.53 s [safe-coloured-text-gen] @@ -246,7 +246,7 @@
  2068. 1170.53 s [safe-coloured-text-gen] | p == 53 = goSGR (s {chunkStyleOverlined = Just True}) ps
  2069. 1170.53 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  2070. 1170.53 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  2071. 1170.53 s [safe-coloured-text-gen] - | p >= 90 && p <= 97 =
  2072. 1170.53 s [safe-coloured-text-gen] + | p >= 1 && p <= 97 =
  2073. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  2074. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  2075. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2076. 1170.53 s [safe-coloured-text-gen]
  2077. 1170.53 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:249:10-12
  2078. 1170.53 s [safe-coloured-text-gen] @@ -246,7 +246,7 @@
  2079. 1170.53 s [safe-coloured-text-gen] | p == 53 = goSGR (s {chunkStyleOverlined = Just True}) ps
  2080. 1170.53 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  2081. 1170.53 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  2082. 1170.53 s [safe-coloured-text-gen] - | p >= 90 && p <= 97 =
  2083. 1170.53 s [safe-coloured-text-gen] + | p >= 0 && p <= 97 =
  2084. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 90) of
  2085. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Bright tc)}) ps
  2086. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2087. 1170.53 s [safe-coloured-text-gen]
  2088. 1170.53 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:245:10-12
  2089. 1170.53 s [safe-coloured-text-gen] @@ -242,7 +242,7 @@
  2090. 1170.53 s [safe-coloured-text-gen] 2 : r : g : b : rest -> goSGR (s {chunkStyleBackground = Just (Colour24Bit r g b)}) rest
  2091. 1170.53 s [safe-coloured-text-gen] _ -> goSGR s ps
  2092. 1170.53 s [safe-coloured-text-gen] -- Default background
  2093. 1170.53 s [safe-coloured-text-gen] - | p == 49 = goSGR (s {chunkStyleBackground = Nothing}) ps
  2094. 1170.53 s [safe-coloured-text-gen] + | p == 1 = goSGR (s {chunkStyleBackground = Nothing}) ps
  2095. 1170.53 s [safe-coloured-text-gen] | p == 53 = goSGR (s {chunkStyleOverlined = Just True}) ps
  2096. 1170.53 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  2097. 1170.53 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  2098. 1170.53 s [safe-coloured-text-gen]
  2099. 1170.53 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:245:10-12
  2100. 1170.53 s [safe-coloured-text-gen] @@ -242,7 +242,7 @@
  2101. 1170.53 s [safe-coloured-text-gen] 2 : r : g : b : rest -> goSGR (s {chunkStyleBackground = Just (Colour24Bit r g b)}) rest
  2102. 1170.53 s [safe-coloured-text-gen] _ -> goSGR s ps
  2103. 1170.53 s [safe-coloured-text-gen] -- Default background
  2104. 1170.53 s [safe-coloured-text-gen] - | p == 49 = goSGR (s {chunkStyleBackground = Nothing}) ps
  2105. 1170.53 s [safe-coloured-text-gen] + | p == 0 = goSGR (s {chunkStyleBackground = Nothing}) ps
  2106. 1170.53 s [safe-coloured-text-gen] | p == 53 = goSGR (s {chunkStyleOverlined = Just True}) ps
  2107. 1170.53 s [safe-coloured-text-gen] | p == 55 = goSGR (s {chunkStyleOverlined = Just False}) ps
  2108. 1170.53 s [safe-coloured-text-gen] -- Bright foreground colours (90-97)
  2109. 1170.53 s [safe-coloured-text-gen]
  2110. 1170.53 s [safe-coloured-text-gen] RemoveCase at src/Text/Colour/Chunk/Parsing.hs:240:15-22
  2111. 1170.53 s [safe-coloured-text-gen] @@ -237,10 +237,9 @@
  2112. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Dull tc)}) ps
  2113. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2114. 1170.53 s [safe-coloured-text-gen] -- Extended background colour
  2115. 1170.53 s [safe-coloured-text-gen] | p == 48 = case ps of
  2116. 1170.53 s [safe-coloured-text-gen] 5 : n : rest -> goSGR (s {chunkStyleBackground = Just (Colour8Bit n)}) rest
  2117. 1170.53 s [safe-coloured-text-gen] 2 : r : g : b : rest -> goSGR (s {chunkStyleBackground = Just (Colour24Bit r g b)}) rest
  2118. 1170.53 s [safe-coloured-text-gen] - _ -> goSGR s ps
  2119. 1170.53 s [safe-coloured-text-gen] -- Default background
  2120. 1170.53 s [safe-coloured-text-gen] | p == 49 = goSGR (s {chunkStyleBackground = Nothing}) ps
  2121. 1170.53 s [safe-coloured-text-gen] | p == 53 = goSGR (s {chunkStyleOverlined = Just True}) ps
  2122. 1170.53 s [safe-coloured-text-gen]
  2123. 1170.53 s [safe-coloured-text-gen] RemoveCase at src/Text/Colour/Chunk/Parsing.hs:236:7-30
  2124. 1170.53 s [safe-coloured-text-gen] @@ -233,9 +233,8 @@
  2125. 1170.53 s [safe-coloured-text-gen] | p == 39 = goSGR (s {chunkStyleForeground = Nothing}) ps
  2126. 1170.53 s [safe-coloured-text-gen] -- Standard background colours (40-47)
  2127. 1170.53 s [safe-coloured-text-gen] | p >= 40 && p <= 47 =
  2128. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 40) of
  2129. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Dull tc)}) ps
  2130. 1170.53 s [safe-coloured-text-gen] - Nothing -> goSGR s ps
  2131. 1170.53 s [safe-coloured-text-gen] -- Extended background colour
  2132. 1170.53 s [safe-coloured-text-gen] | p == 48 = case ps of
  2133. 1170.53 s [safe-coloured-text-gen] 5 : n : rest -> goSGR (s {chunkStyleBackground = Just (Colour8Bit n)}) rest
  2134. 1170.53 s [safe-coloured-text-gen]
  2135. 1170.53 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:235:5-12
  2136. 1170.53 s [safe-coloured-text-gen] @@ -232,7 +232,7 @@
  2137. 1170.53 s [safe-coloured-text-gen] -- Default foreground
  2138. 1170.53 s [safe-coloured-text-gen] | p == 39 = goSGR (s {chunkStyleForeground = Nothing}) ps
  2139. 1170.53 s [safe-coloured-text-gen] -- Standard background colours (40-47)
  2140. 1170.53 s [safe-coloured-text-gen] - | p >= 40 && p <= 47 =
  2141. 1170.53 s [safe-coloured-text-gen] + | True && p <= 47 =
  2142. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 40) of
  2143. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Dull tc)}) ps
  2144. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2145. 1170.53 s [safe-coloured-text-gen]
  2146. 1170.53 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:235:10-12
  2147. 1170.53 s [safe-coloured-text-gen] @@ -232,7 +232,7 @@
  2148. 1170.53 s [safe-coloured-text-gen] -- Default foreground
  2149. 1170.53 s [safe-coloured-text-gen] | p == 39 = goSGR (s {chunkStyleForeground = Nothing}) ps
  2150. 1170.53 s [safe-coloured-text-gen] -- Standard background colours (40-47)
  2151. 1170.53 s [safe-coloured-text-gen] - | p >= 40 && p <= 47 =
  2152. 1170.53 s [safe-coloured-text-gen] + | p >= 1 && p <= 47 =
  2153. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 40) of
  2154. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Dull tc)}) ps
  2155. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2156. 1170.53 s [safe-coloured-text-gen]
  2157. 1170.53 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:235:10-12
  2158. 1170.53 s [safe-coloured-text-gen] @@ -232,7 +232,7 @@
  2159. 1170.53 s [safe-coloured-text-gen] -- Default foreground
  2160. 1170.53 s [safe-coloured-text-gen] | p == 39 = goSGR (s {chunkStyleForeground = Nothing}) ps
  2161. 1170.53 s [safe-coloured-text-gen] -- Standard background colours (40-47)
  2162. 1170.53 s [safe-coloured-text-gen] - | p >= 40 && p <= 47 =
  2163. 1170.53 s [safe-coloured-text-gen] + | p >= 0 && p <= 47 =
  2164. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 40) of
  2165. 1170.53 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleBackground = Just (Colour8 Dull tc)}) ps
  2166. 1170.53 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2167. 1170.53 s [safe-coloured-text-gen]
  2168. 1170.53 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:233:10-12
  2169. 1170.53 s [safe-coloured-text-gen] @@ -230,7 +230,7 @@
  2170. 1170.53 s [safe-coloured-text-gen] 2 : r : g : b : rest -> goSGR (s {chunkStyleForeground = Just (Colour24Bit r g b)}) rest
  2171. 1170.53 s [safe-coloured-text-gen] _ -> goSGR s ps
  2172. 1170.53 s [safe-coloured-text-gen] -- Default foreground
  2173. 1170.53 s [safe-coloured-text-gen] - | p == 39 = goSGR (s {chunkStyleForeground = Nothing}) ps
  2174. 1170.53 s [safe-coloured-text-gen] + | p == 1 = goSGR (s {chunkStyleForeground = Nothing}) ps
  2175. 1170.53 s [safe-coloured-text-gen] -- Standard background colours (40-47)
  2176. 1170.53 s [safe-coloured-text-gen] | p >= 40 && p <= 47 =
  2177. 1170.53 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 40) of
  2178. 1170.53 s [safe-coloured-text-gen]
  2179. 1170.54 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:233:10-12
  2180. 1170.54 s [safe-coloured-text-gen] @@ -230,7 +230,7 @@
  2181. 1170.54 s [safe-coloured-text-gen] 2 : r : g : b : rest -> goSGR (s {chunkStyleForeground = Just (Colour24Bit r g b)}) rest
  2182. 1170.54 s [safe-coloured-text-gen] _ -> goSGR s ps
  2183. 1170.54 s [safe-coloured-text-gen] -- Default foreground
  2184. 1170.54 s [safe-coloured-text-gen] - | p == 39 = goSGR (s {chunkStyleForeground = Nothing}) ps
  2185. 1170.54 s [safe-coloured-text-gen] + | p == 0 = goSGR (s {chunkStyleForeground = Nothing}) ps
  2186. 1170.54 s [safe-coloured-text-gen] -- Standard background colours (40-47)
  2187. 1170.54 s [safe-coloured-text-gen] | p >= 40 && p <= 47 =
  2188. 1170.54 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 40) of
  2189. 1170.54 s [safe-coloured-text-gen]
  2190. 1170.54 s [safe-coloured-text-gen] RemoveCase at src/Text/Colour/Chunk/Parsing.hs:228:15-22
  2191. 1170.54 s [safe-coloured-text-gen] @@ -225,10 +225,9 @@
  2192. 1170.54 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Dull tc)}) ps
  2193. 1170.54 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2194. 1170.54 s [safe-coloured-text-gen] -- Extended foreground colour
  2195. 1170.54 s [safe-coloured-text-gen] | p == 38 = case ps of
  2196. 1170.54 s [safe-coloured-text-gen] 5 : n : rest -> goSGR (s {chunkStyleForeground = Just (Colour8Bit n)}) rest
  2197. 1170.54 s [safe-coloured-text-gen] 2 : r : g : b : rest -> goSGR (s {chunkStyleForeground = Just (Colour24Bit r g b)}) rest
  2198. 1170.54 s [safe-coloured-text-gen] - _ -> goSGR s ps
  2199. 1170.54 s [safe-coloured-text-gen] -- Default foreground
  2200. 1170.54 s [safe-coloured-text-gen] | p == 39 = goSGR (s {chunkStyleForeground = Nothing}) ps
  2201. 1170.54 s [safe-coloured-text-gen] -- Standard background colours (40-47)
  2202. 1170.54 s [safe-coloured-text-gen]
  2203. 1170.54 s [safe-coloured-text-gen] RemoveCase at src/Text/Colour/Chunk/Parsing.hs:224:7-30
  2204. 1170.54 s [safe-coloured-text-gen] @@ -221,9 +221,8 @@
  2205. 1170.54 s [safe-coloured-text-gen] | p == 29 = goSGR (s {chunkStyleStrikethrough = Just False}) ps
  2206. 1170.54 s [safe-coloured-text-gen] -- Standard foreground colours (30-37)
  2207. 1170.54 s [safe-coloured-text-gen] | p >= 30 && p <= 37 =
  2208. 1170.54 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 30) of
  2209. 1170.54 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Dull tc)}) ps
  2210. 1170.54 s [safe-coloured-text-gen] - Nothing -> goSGR s ps
  2211. 1170.54 s [safe-coloured-text-gen] -- Extended foreground colour
  2212. 1170.54 s [safe-coloured-text-gen] | p == 38 = case ps of
  2213. 1170.54 s [safe-coloured-text-gen] 5 : n : rest -> goSGR (s {chunkStyleForeground = Just (Colour8Bit n)}) rest
  2214. 1170.54 s [safe-coloured-text-gen]
  2215. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk/Parsing.hs:223:5-12
  2216. 1170.54 s [safe-coloured-text-gen] @@ -220,7 +220,7 @@
  2217. 1170.54 s [safe-coloured-text-gen] | p == 28 = goSGR (s {chunkStyleConcealed = Just False}) ps
  2218. 1170.54 s [safe-coloured-text-gen] | p == 29 = goSGR (s {chunkStyleStrikethrough = Just False}) ps
  2219. 1170.54 s [safe-coloured-text-gen] -- Standard foreground colours (30-37)
  2220. 1170.54 s [safe-coloured-text-gen] - | p >= 30 && p <= 37 =
  2221. 1170.54 s [safe-coloured-text-gen] + | True && p <= 37 =
  2222. 1170.54 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 30) of
  2223. 1170.54 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Dull tc)}) ps
  2224. 1170.54 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2225. 1170.54 s [safe-coloured-text-gen]
  2226. 1170.54 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:223:10-12
  2227. 1170.54 s [safe-coloured-text-gen] @@ -220,7 +220,7 @@
  2228. 1170.54 s [safe-coloured-text-gen] | p == 28 = goSGR (s {chunkStyleConcealed = Just False}) ps
  2229. 1170.54 s [safe-coloured-text-gen] | p == 29 = goSGR (s {chunkStyleStrikethrough = Just False}) ps
  2230. 1170.54 s [safe-coloured-text-gen] -- Standard foreground colours (30-37)
  2231. 1170.54 s [safe-coloured-text-gen] - | p >= 30 && p <= 37 =
  2232. 1170.54 s [safe-coloured-text-gen] + | p >= 1 && p <= 37 =
  2233. 1170.54 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 30) of
  2234. 1170.54 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Dull tc)}) ps
  2235. 1170.54 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2236. 1170.54 s [safe-coloured-text-gen]
  2237. 1170.54 s [safe-coloured-text-gen] IntLit at src/Text/Colour/Chunk/Parsing.hs:223:10-12
  2238. 1170.54 s [safe-coloured-text-gen] @@ -220,7 +220,7 @@
  2239. 1170.54 s [safe-coloured-text-gen] | p == 28 = goSGR (s {chunkStyleConcealed = Just False}) ps
  2240. 1170.54 s [safe-coloured-text-gen] | p == 29 = goSGR (s {chunkStyleStrikethrough = Just False}) ps
  2241. 1170.54 s [safe-coloured-text-gen] -- Standard foreground colours (30-37)
  2242. 1170.54 s [safe-coloured-text-gen] - | p >= 30 && p <= 37 =
  2243. 1170.54 s [safe-coloured-text-gen] + | p >= 0 && p <= 37 =
  2244. 1170.54 s [safe-coloured-text-gen] case terminalColourFromIndex (p - 30) of
  2245. 1170.54 s [safe-coloured-text-gen] Just tc -> goSGR (s {chunkStyleForeground = Just (Colour8 Dull tc)}) ps
  2246. 1170.54 s [safe-coloured-text-gen] Nothing -> goSGR s ps
  2247. 1170.54 s [safe-coloured-text-gen]
  2248. 1170.54 s [safe-coloured-text-gen] ListLit at src/Text/Colour/Chunk.hs:62:9-10
  2249. 1170.54 s [safe-coloured-text-gen] @@ -59,17 +59,16 @@
  2250. 1170.54 s [safe-coloured-text-gen] plainStyle tc ChunkStyle {..} =
  2251. 1170.54 s [safe-coloured-text-gen] let ChunkStyle _ _ _ _ _ _ _ _ _ _ = undefined
  2252. 1170.54 s [safe-coloured-text-gen] in and
  2253. 1170.54 s [safe-coloured-text-gen] [ isNothing chunkStyleItalic,
  2254. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleStrikethrough,
  2255. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleSwapForegroundBackground,
  2256. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConcealed,
  2257. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleOverlined,
  2258. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConsoleIntensity,
  2259. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleUnderlining,
  2260. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleBlinking,
  2261. 1170.54 s [safe-coloured-text-gen] maybe True (plainColour tc) chunkStyleForeground,
  2262. 1170.54 s [safe-coloured-text-gen] - maybe True (plainColour tc) chunkStyleBackground
  2263. 1170.54 s [safe-coloured-text-gen] ]
  2264. 1170.54 s [safe-coloured-text-gen]
  2265. 1170.54 s [safe-coloured-text-gen] plainChunk :: TerminalCapabilities -> Chunk -> Bool
  2266. 1170.54 s [safe-coloured-text-gen] plainChunk tc Chunk {..} =
  2267. 1170.54 s [safe-coloured-text-gen]
  2268. 1170.54 s [safe-coloured-text-gen] ListLit at src/Text/Colour/Chunk.hs:62:9-10
  2269. 1170.54 s [safe-coloured-text-gen] @@ -59,17 +59,16 @@
  2270. 1170.54 s [safe-coloured-text-gen] plainStyle tc ChunkStyle {..} =
  2271. 1170.54 s [safe-coloured-text-gen] let ChunkStyle _ _ _ _ _ _ _ _ _ _ = undefined
  2272. 1170.54 s [safe-coloured-text-gen] in and
  2273. 1170.54 s [safe-coloured-text-gen] - [ isNothing chunkStyleItalic,
  2274. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleStrikethrough,
  2275. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleSwapForegroundBackground,
  2276. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConcealed,
  2277. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleOverlined,
  2278. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConsoleIntensity,
  2279. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleUnderlining,
  2280. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleBlinking,
  2281. 1170.54 s [safe-coloured-text-gen] maybe True (plainColour tc) chunkStyleForeground,
  2282. 1170.54 s [safe-coloured-text-gen] maybe True (plainColour tc) chunkStyleBackground
  2283. 1170.54 s [safe-coloured-text-gen] ]
  2284. 1170.54 s [safe-coloured-text-gen]
  2285. 1170.54 s [safe-coloured-text-gen] plainChunk :: TerminalCapabilities -> Chunk -> Bool
  2286. 1170.54 s [safe-coloured-text-gen] plainChunk tc Chunk {..} =
  2287. 1170.54 s [safe-coloured-text-gen]
  2288. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:70:11-59
  2289. 1170.54 s [safe-coloured-text-gen] @@ -67,7 +67,7 @@
  2290. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConsoleIntensity,
  2291. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleUnderlining,
  2292. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleBlinking,
  2293. 1170.54 s [safe-coloured-text-gen] - maybe True (plainColour tc) chunkStyleForeground,
  2294. 1170.54 s [safe-coloured-text-gen] + True,
  2295. 1170.54 s [safe-coloured-text-gen] maybe True (plainColour tc) chunkStyleBackground
  2296. 1170.54 s [safe-coloured-text-gen] ]
  2297. 1170.54 s [safe-coloured-text-gen]
  2298. 1170.54 s [safe-coloured-text-gen]
  2299. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:69:11-39
  2300. 1170.54 s [safe-coloured-text-gen] @@ -66,7 +66,7 @@
  2301. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleOverlined,
  2302. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConsoleIntensity,
  2303. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleUnderlining,
  2304. 1170.54 s [safe-coloured-text-gen] - isNothing chunkStyleBlinking,
  2305. 1170.54 s [safe-coloured-text-gen] + True,
  2306. 1170.54 s [safe-coloured-text-gen] maybe True (plainColour tc) chunkStyleForeground,
  2307. 1170.54 s [safe-coloured-text-gen] maybe True (plainColour tc) chunkStyleBackground
  2308. 1170.54 s [safe-coloured-text-gen] ]
  2309. 1170.54 s [safe-coloured-text-gen]
  2310. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:68:11-42
  2311. 1170.54 s [safe-coloured-text-gen] @@ -65,7 +65,7 @@
  2312. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConcealed,
  2313. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleOverlined,
  2314. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConsoleIntensity,
  2315. 1170.54 s [safe-coloured-text-gen] - isNothing chunkStyleUnderlining,
  2316. 1170.54 s [safe-coloured-text-gen] + True,
  2317. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleBlinking,
  2318. 1170.54 s [safe-coloured-text-gen] maybe True (plainColour tc) chunkStyleForeground,
  2319. 1170.54 s [safe-coloured-text-gen] maybe True (plainColour tc) chunkStyleBackground
  2320. 1170.54 s [safe-coloured-text-gen]
  2321. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:67:11-47
  2322. 1170.54 s [safe-coloured-text-gen] @@ -64,7 +64,7 @@
  2323. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleSwapForegroundBackground,
  2324. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConcealed,
  2325. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleOverlined,
  2326. 1170.54 s [safe-coloured-text-gen] - isNothing chunkStyleConsoleIntensity,
  2327. 1170.54 s [safe-coloured-text-gen] + True,
  2328. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleUnderlining,
  2329. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleBlinking,
  2330. 1170.54 s [safe-coloured-text-gen] maybe True (plainColour tc) chunkStyleForeground,
  2331. 1170.54 s [safe-coloured-text-gen]
  2332. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:66:11-40
  2333. 1170.54 s [safe-coloured-text-gen] @@ -63,7 +63,7 @@
  2334. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleStrikethrough,
  2335. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleSwapForegroundBackground,
  2336. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConcealed,
  2337. 1170.54 s [safe-coloured-text-gen] - isNothing chunkStyleOverlined,
  2338. 1170.54 s [safe-coloured-text-gen] + True,
  2339. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConsoleIntensity,
  2340. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleUnderlining,
  2341. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleBlinking,
  2342. 1170.54 s [safe-coloured-text-gen]
  2343. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:65:11-40
  2344. 1170.54 s [safe-coloured-text-gen] @@ -62,7 +62,7 @@
  2345. 1170.54 s [safe-coloured-text-gen] [ isNothing chunkStyleItalic,
  2346. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleStrikethrough,
  2347. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleSwapForegroundBackground,
  2348. 1170.54 s [safe-coloured-text-gen] - isNothing chunkStyleConcealed,
  2349. 1170.54 s [safe-coloured-text-gen] + True,
  2350. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleOverlined,
  2351. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConsoleIntensity,
  2352. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleUnderlining,
  2353. 1170.54 s [safe-coloured-text-gen]
  2354. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:64:11-55
  2355. 1170.54 s [safe-coloured-text-gen] @@ -61,7 +61,7 @@
  2356. 1170.54 s [safe-coloured-text-gen] in and
  2357. 1170.54 s [safe-coloured-text-gen] [ isNothing chunkStyleItalic,
  2358. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleStrikethrough,
  2359. 1170.54 s [safe-coloured-text-gen] - isNothing chunkStyleSwapForegroundBackground,
  2360. 1170.54 s [safe-coloured-text-gen] + True,
  2361. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConcealed,
  2362. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleOverlined,
  2363. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConsoleIntensity,
  2364. 1170.54 s [safe-coloured-text-gen]
  2365. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:63:11-44
  2366. 1170.54 s [safe-coloured-text-gen] @@ -60,7 +60,7 @@
  2367. 1170.54 s [safe-coloured-text-gen] let ChunkStyle _ _ _ _ _ _ _ _ _ _ = undefined
  2368. 1170.54 s [safe-coloured-text-gen] in and
  2369. 1170.54 s [safe-coloured-text-gen] [ isNothing chunkStyleItalic,
  2370. 1170.54 s [safe-coloured-text-gen] - isNothing chunkStyleStrikethrough,
  2371. 1170.54 s [safe-coloured-text-gen] + True,
  2372. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleSwapForegroundBackground,
  2373. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConcealed,
  2374. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleOverlined,
  2375. 1170.54 s [safe-coloured-text-gen]
  2376. 1170.54 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:62:11-37
  2377. 1170.54 s [safe-coloured-text-gen] @@ -59,7 +59,7 @@
  2378. 1170.54 s [safe-coloured-text-gen] plainStyle tc ChunkStyle {..} =
  2379. 1170.54 s [safe-coloured-text-gen] let ChunkStyle _ _ _ _ _ _ _ _ _ _ = undefined
  2380. 1170.54 s [safe-coloured-text-gen] in and
  2381. 1170.54 s [safe-coloured-text-gen] - [ isNothing chunkStyleItalic,
  2382. 1170.54 s [safe-coloured-text-gen] + [ True,
  2383. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleStrikethrough,
  2384. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleSwapForegroundBackground,
  2385. 1170.54 s [safe-coloured-text-gen] isNothing chunkStyleConcealed,
  2386. 1170.54 s [safe-coloured-text-gen]
  2387. 1170.54 s [safe-coloured-text-gen] Cmp at src/Text/Colour/Chunk.hs:82:20-40
  2388. 1170.54 s [safe-coloured-text-gen] @@ -79,7 +79,7 @@
  2389. 1170.54 s [safe-coloured-text-gen] plainColour :: TerminalCapabilities -> Colour -> Bool
  2390. 1170.54 s [safe-coloured-text-gen] plainColour tc = \case
  2391. 1170.54 s [safe-coloured-text-gen] Colour8 {} -> tc < With8Colours
  2392. 1170.54 s [safe-coloured-text-gen] - Colour8Bit {} -> tc < With8BitColours
  2393. 1170.54 s [safe-coloured-text-gen] + Colour8Bit {} -> tc <= With8BitColours
  2394. 1170.54 s [safe-coloured-text-gen] Colour24Bit {} -> tc < With24BitColours
  2395. 1170.54 s [safe-coloured-text-gen]
  2396. 1170.54 s [safe-coloured-text-gen] -- | Render chunks directly to a UTF8-encoded 'Bytestring'.
  2397. 1170.54 s [safe-coloured-text-gen]
  2398. 1170.54 s [safe-coloured-text-gen] Cmp at src/Text/Colour/Chunk.hs:81:17-34
  2399. 1170.54 s [safe-coloured-text-gen] @@ -78,7 +78,7 @@
  2400. 1170.54 s [safe-coloured-text-gen]
  2401. 1170.54 s [safe-coloured-text-gen] plainColour :: TerminalCapabilities -> Colour -> Bool
  2402. 1170.54 s [safe-coloured-text-gen] plainColour tc = \case
  2403. 1170.54 s [safe-coloured-text-gen] - Colour8 {} -> tc < With8Colours
  2404. 1170.55 s [safe-coloured-text-gen] + Colour8 {} -> tc <= With8Colours
  2405. 1170.55 s [safe-coloured-text-gen] Colour8Bit {} -> tc < With8BitColours
  2406. 1170.55 s [safe-coloured-text-gen] Colour24Bit {} -> tc < With24BitColours
  2407. 1170.55 s [safe-coloured-text-gen]
  2408. 1170.55 s [safe-coloured-text-gen]
  2409. 1170.55 s [safe-coloured-text-gen] ConstBool at src/Text/Colour/Chunk.hs:228:24-33
  2410. 1170.55 s [safe-coloured-text-gen] @@ -225,7 +225,7 @@
  2411. 1170.55 s [safe-coloured-text-gen]
  2412. 1170.55 s [safe-coloured-text-gen] colourSGR :: TerminalCapabilities -> ConsoleLayer -> Colour -> Maybe SGR
  2413. 1170.55 s [safe-coloured-text-gen] colourSGR tc layer =
  2414. 1170.55 s [safe-coloured-text-gen] - let cap tc' sgr = if tc >= tc' then Just sgr else Nothing
  2415. 1170.55 s [safe-coloured-text-gen] + let cap tc' sgr = if True then Just sgr else Nothing
  2416. 1170.55 s [safe-coloured-text-gen] in \case
  2417. 1170.55 s [safe-coloured-text-gen] Colour8 intensity terminalColour -> cap With8Colours $ SetColour intensity layer terminalColour
  2418. 1170.55 s [safe-coloured-text-gen] Colour8Bit w -> cap With8BitColours $ Set8BitColour layer w
  2419. 1170.55 s [safe-coloured-text-gen] pabilities
  2420. 1170.55 s [safe-coloured-text-gen] getTerminalCapabilitiesFromHandle h = do
  2421. 1170.55 s [safe-coloured-text-gen] isTerm <- hIsTerminalDevice h
  2422. 1170.55 s [safe-coloured-text-gen] - if isTerm
  2423. 1170.55 s [safe-coloured-text-gen] + if True
  2424. 1170.55 s [safe-coloured-text-gen] then getTerminalCapabilitiesFromEnv
  2425. 1170.55 s [safe-coloured-text-gen] else pure WithoutColours
  2426. 1170.55 s [safe-coloured-text-gen] Testing mutation ConstBool at src/Text/Colour/Capabilities/FromEnv.hs:47:6-12
  2427. 1170.55 s [safe-coloured-text-gen] @@ -44,6 +44,6 @@
  2428. 1170.55 s [safe-coloured-text-gen] getTerminalCapabilitiesFromHandle :: Handle -> IO TerminalCapabilities
  2429. 1170.55 s [safe-coloured-text-gen] getTerminalCapabilitiesFromHandle h = do
  2430. 1170.55 s [safe-coloured-text-gen] isTerm <- hIsTerminalDevice h
  2431. 1170.55 s [safe-coloured-text-gen] - if isTerm
  2432. 1170.55 s [safe-coloured-text-gen] + if False
  2433. 1170.55 s [safe-coloured-text-gen] then getTerminalCapabilitiesFromEnv
  2434. 1170.55 s [safe-coloured-text-gen] else pure WithoutColours
  2435. 1170.55 s [safe-coloured-text-gen] Testing mutation Negate at src/Text/Colour/Capabilities/FromEnv.hs:47:6-12
  2436. 1170.55 s [safe-coloured-text-gen] @@ -44,6 +44,6 @@
  2437. 1170.55 s [safe-coloured-text-gen] getTerminalCapabilitiesFromHandle :: Handle -> IO TerminalCapabilities
  2438. 1170.55 s [safe-coloured-text-gen] getTerminalCapabilitiesFromHandle h = do
  2439. 1170.55 s [safe-coloured-text-gen] isTerm <- hIsTerminalDevice h
  2440. 1170.55 s [safe-coloured-text-gen] - if isTerm
  2441. 1170.55 s [safe-coloured-text-gen] + if not (isTerm)
  2442. 1170.55 s [safe-coloured-text-gen] then getTerminalCapabilitiesFromEnv
  2443. 1170.55 s [safe-coloured-text-gen] else pure WithoutColours
  2444. 1170.96 s [safe-coloured-text-gen] checkPhase completed in 19 minutes 19 seconds
  2445. 1170.97 s [safe-coloured-text-gen] Phase: haddockPhase
  2446. 1171.09 s [safe-coloured-text-gen] Preprocessing library for safe-coloured-text-gen-0.0.0.5...
  2447. 1171.09 s [safe-coloured-text-gen] Running Haddock on library for safe-coloured-text-gen-0.0.0.5...
  2448. 1171.09 s [safe-coloured-text-gen] Warning: The documentation for the following packages are not installed. No
  2449. 1171.09 s [safe-coloured-text-gen] links will be generated to these packages: safe-coloured-text-0.5.0.0
  2450. 1171.24 s [safe-coloured-text-gen] [1 of 2] Compiling Paths_safe_coloured_text_gen ( dist/build/autogen/Paths_safe_coloured_text_gen.hs, nothing )
  2451. 1171.27 s [safe-coloured-text-gen] [2 of 2] Compiling Text.Colour.Gen ( src/Text/Colour/Gen.hs, nothing )
  2452. 1171.36 s [safe-coloured-text-gen] Haddock coverage:
  2453. 1171.36 s [safe-coloured-text-gen] 0% ( 0 / 1) in 'Text.Colour.Gen'
  2454. 1171.36 s [safe-coloured-text-gen] Missing documentation for:
  2455. 1171.36 s [safe-coloured-text-gen] Module header
  2456. 1171.42 s [safe-coloured-text-gen] Warning: Text.Colour.Gen: could not find link destinations for:
  2457. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Chunk.Chunk
  2458. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Chunk.ChunkStyle
  2459. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Chunk.Colour
  2460. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Code.Blinking
  2461. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Code.CSI
  2462. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Code.ColourIntensity
  2463. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Code.ConsoleIntensity
  2464. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Code.ConsoleLayer
  2465. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Code.SGR
  2466. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Code.TerminalColour
  2467. 1171.42 s [safe-coloured-text-gen] - Text.Colour.Code.Underlining
  2468. 1174.68 s [safe-coloured-text-gen] Documentation created: dist/doc/html/safe-coloured-text-gen/,
  2469. 1174.68 s [safe-coloured-text-gen] dist/doc/html/safe-coloured-text-gen/safe-coloured-text-gen.txt
  2470. 1174.74 s [safe-coloured-text-gen] Preprocessing test suite 'safe-coloured-text-test' for safe-coloured-text-gen-0.0.0.5...
  2471. 1174.75 s [safe-coloured-text-gen] Phase: installPhase
  2472. 1174.83 s [safe-coloured-text-gen] Installing library in /nix/store/2wgbrl75pfvq46xwkkm7gd6cjy5mb7k0-safe-coloured-text-gen-0.0.0.5/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/safe-coloured-text-gen-0.0.0.5-GqYG0S9NpbAKEdEqIS0gtZ
  2473. 1175.03 s [safe-coloured-text-gen] Phase: fixupPhase
  2474. 1175.05 s [safe-coloured-text-gen] shrinking RPATHs of ELF executables and libraries in /nix/store/2wgbrl75pfvq46xwkkm7gd6cjy5mb7k0-safe-coloured-text-gen-0.0.0.5
  2475. 1175.05 s [safe-coloured-text-gen] shrinking /nix/store/2wgbrl75pfvq46xwkkm7gd6cjy5mb7k0-safe-coloured-text-gen-0.0.0.5/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSsafe-coloured-text-gen-0.0.0.5-GqYG0S9NpbAKEdEqIS0gtZ-ghc9.10.3.so
  2476. 1175.06 s [safe-coloured-text-gen] checking for references to /build/ in /nix/store/2wgbrl75pfvq46xwkkm7gd6cjy5mb7k0-safe-coloured-text-gen-0.0.0.5...
  2477. 1175.07 s [safe-coloured-text-gen] patching script interpreter paths in /nix/store/2wgbrl75pfvq46xwkkm7gd6cjy5mb7k0-safe-coloured-text-gen-0.0.0.5
  2478. 1175.08 s [safe-coloured-text-gen] stripping (with command strip and flags -S -p) in /nix/store/2wgbrl75pfvq46xwkkm7gd6cjy5mb7k0-safe-coloured-text-gen-0.0.0.5/lib
  2479. 1175.11 s [safe-coloured-text-gen] shrinking RPATHs of ELF executables and libraries in /nix/store/kbxhhfd5w6zs7v5ly3n6f2z5ld5bab2a-safe-coloured-text-gen-0.0.0.5-doc
  2480. 1175.12 s [safe-coloured-text-gen] checking for references to /build/ in /nix/store/kbxhhfd5w6zs7v5ly3n6f2z5ld5bab2a-safe-coloured-text-gen-0.0.0.5-doc...
  2481. 1175.13 s [safe-coloured-text-gen] patching script interpreter paths in /nix/store/kbxhhfd5w6zs7v5ly3n6f2z5ld5bab2a-safe-coloured-text-gen-0.0.0.5-doc
  2482. 1175.14 s [safe-coloured-text-gen] shrinking RPATHs of ELF executables and libraries in /nix/store/3q91g2rp92rpmwxfgkj4sivlk3h8anp8-safe-coloured-text-gen-0.0.0.5-report
  2483. 1175.17 s [safe-coloured-text-gen] checking for references to /build/ in /nix/store/3q91g2rp92rpmwxfgkj4sivlk3h8anp8-safe-coloured-text-gen-0.0.0.5-report...
  2484. 1175.21 s [safe-coloured-text-gen] patching script interpreter paths in /nix/store/3q91g2rp92rpmwxfgkj4sivlk3h8anp8-safe-coloured-text-gen-0.0.0.5-report
  2485. 1175.33 s [post-build-hook] Uploading to cachix cache "sydtest": /nix/store/2wgbrl75pfvq46xwkkm7gd6cjy5mb7k0-safe-coloured-text-gen-0.0.0.5 /nix/store/3q91g2rp92rpmwxfgkj4sivlk3h8anp8-safe-coloured-text-gen-0.0.0.5-report /nix/store/kbxhhfd5w6zs7v5ly3n6f2z5ld5bab2a-safe-coloured-text-gen-0.0.0.5-doc
  2486. 1175.91 s [post-build-hook] Pushing 4 paths (199 are already present) using zstd to cache sydtest ⏳
  2487. 1175.91 s [post-build-hook]
  2488. 1176.32 s [post-build-hook] Pushing /nix/store/2wgbrl75pfvq46xwkkm7gd6cjy5mb7k0-safe-coloured-text-gen-0.0.0.5 (2.78 MiB)
  2489. 1176.39 s [post-build-hook] Pushing /nix/store/3q91g2rp92rpmwxfgkj4sivlk3h8anp8-safe-coloured-text-gen-0.0.0.5-report (1.53 MiB)
  2490. 1176.39 s [post-build-hook] Pushing /nix/store/kbxhhfd5w6zs7v5ly3n6f2z5ld5bab2a-safe-coloured-text-gen-0.0.0.5-doc (182.34 KiB)
  2491. 1176.42 s [post-build-hook] Pushing /nix/store/yiy472m7z9h1kxr2pqx8ipfc4mcq6zqq-safe-coloured-text-0.5.0.0 (12.00 MiB)
  2492. 1178.25 s [post-build-hook]
  2493. 1178.25 s [post-build-hook] All done.
  2494. 1178.27 s [post-build-hook] Uploading to the NixCI staging cache: /nix/store/2wgbrl75pfvq46xwkkm7gd6cjy5mb7k0-safe-coloured-text-gen-0.0.0.5 /nix/store/3q91g2rp92rpmwxfgkj4sivlk3h8anp8-safe-coloured-text-gen-0.0.0.5-report /nix/store/kbxhhfd5w6zs7v5ly3n6f2z5ld5bab2a-safe-coloured-text-gen-0.0.0.5-doc
  2495. 1178.30 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  2496. 1178.46 s [post-build-hook] copying 1 paths...
  2497. 1178.46 s [post-build-hook] copying path '/nix/store/3q91g2rp92rpmwxfgkj4sivlk3h8anp8-safe-coloured-text-gen-0.0.0.5-report' to 'https://cache.staging.nix-ci.com'...
  2498. 1178.86 s [post-build-hook] warning: 'warn-short-path-literals' is deprecated, use 'lint-short-path-literals = ignore' instead
  2499. 1178.97 s [post-build-hook] copying 0 paths...
  2500. 1178.99 s Progress: 1 of 2 built, 23 of 23 downloaded from cache
More Logs Raw Logs

Agent Instructions

Wait for completion, without logs:

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/005f0daebea888c43c983d9be46fc636a7b09795/338c406f-a0a8-4ae3-87a6-88b525a7782b/wait

Latest logs, with timestamps (streams while running):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/005f0daebea888c43c983d9be46fc636a7b09795/338c406f-a0a8-4ae3-87a6-88b525a7782b/tail

All logs, with timestamps (available after completion):

curl --netrc https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/005f0daebea888c43c983d9be46fc636a7b09795/338c406f-a0a8-4ae3-87a6-88b525a7782b/logs

Raw logs, from the start (no timestamps):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/005f0daebea888c43c983d9be46fc636a7b09795/338c406f-a0a8-4ae3-87a6-88b525a7782b/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/005f0daebea888c43c983d9be46fc636a7b09795/338c406f-a0a8-4ae3-87a6-88b525a7782b/logs

Reproduce locally: https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/005f0daebea888c43c983d9be46fc636a7b09795/338c406f-a0a8-4ae3-87a6-88b525a7782b/repro

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