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

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

Latest logs, with timestamps (streams while running):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/f65777c0537c8094028e8af851150d01fcc726a9/93503e10-f622-4bb0-afcf-58cf0cbf2394/tail

All logs, with timestamps (available after completion):

curl --netrc https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/f65777c0537c8094028e8af851150d01fcc726a9/93503e10-f622-4bb0-afcf-58cf0cbf2394/logs

Raw logs, from the start (no timestamps):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/f65777c0537c8094028e8af851150d01fcc726a9/93503e10-f622-4bb0-afcf-58cf0cbf2394/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/f65777c0537c8094028e8af851150d01fcc726a9/93503e10-f622-4bb0-afcf-58cf0cbf2394/logs

Reproduce locally: https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/f65777c0537c8094028e8af851150d01fcc726a9/93503e10-f622-4bb0-afcf-58cf0cbf2394/repro

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