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

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

Agent Instructions

Wait for completion, without logs:

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/c2b84fad445f4111b58c4341a68ae4acab44e6e1/1e0ce843-cd4d-497b-8a23-a534dce51a7f/wait

Latest logs, with timestamps (streams while running):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/c2b84fad445f4111b58c4341a68ae4acab44e6e1/1e0ce843-cd4d-497b-8a23-a534dce51a7f/tail

All logs, with timestamps (available after completion):

curl --netrc https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/c2b84fad445f4111b58c4341a68ae4acab44e6e1/1e0ce843-cd4d-497b-8a23-a534dce51a7f/logs

Raw logs, from the start (no timestamps):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/c2b84fad445f4111b58c4341a68ae4acab44e6e1/1e0ce843-cd4d-497b-8a23-a534dce51a7f/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/c2b84fad445f4111b58c4341a68ae4acab44e6e1/1e0ce843-cd4d-497b-8a23-a534dce51a7f/logs

Reproduce locally: https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/c2b84fad445f4111b58c4341a68ae4acab44e6e1/1e0ce843-cd4d-497b-8a23-a534dce51a7f/repro

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