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

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

Latest logs, with timestamps (streams while running):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/e94460ff-ed28-4268-993b-1e7b10adb153/tail

All logs, with timestamps (available after completion):

curl --netrc https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/e94460ff-ed28-4268-993b-1e7b10adb153/logs

Raw logs, from the start (no timestamps):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/e94460ff-ed28-4268-993b-1e7b10adb153/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/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/e94460ff-ed28-4268-993b-1e7b10adb153/logs

Reproduce locally: https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/ea6f1381292a87ea3f7ed6cc8a6c7421a790fa7d/e94460ff-ed28-4268-993b-1e7b10adb153/repro

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