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

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

Latest logs, with timestamps (streams while running):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/3c4e5a31-0e62-48d4-a497-251dec85625c/tail

All logs, with timestamps (available after completion):

curl --netrc https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/3c4e5a31-0e62-48d4-a497-251dec85625c/logs

Raw logs, from the start (no timestamps):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/3c4e5a31-0e62-48d4-a497-251dec85625c/raw-logs

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

Example:

curl --netrc -H "Accept: text/csv" https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/3c4e5a31-0e62-48d4-a497-251dec85625c/logs

Reproduce locally: https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/0b774cd71b385f2210b2cbb42429a4492d30527a/3c4e5a31-0e62-48d4-a497-251dec85625c/repro

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