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

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

Latest logs, with timestamps (streams while running):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/2aa891b8e0ed1e8d53d86f81dc66d2c1953f7fc2/703df4d7-293d-496b-bff2-6cd41f6a5dd4/tail

All logs, with timestamps (available after completion):

curl --netrc https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/2aa891b8e0ed1e8d53d86f81dc66d2c1953f7fc2/703df4d7-293d-496b-bff2-6cd41f6a5dd4/logs

Raw logs, from the start (no timestamps):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/2aa891b8e0ed1e8d53d86f81dc66d2c1953f7fc2/703df4d7-293d-496b-bff2-6cd41f6a5dd4/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/2aa891b8e0ed1e8d53d86f81dc66d2c1953f7fc2/703df4d7-293d-496b-bff2-6cd41f6a5dd4/logs

Reproduce locally: https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/2aa891b8e0ed1e8d53d86f81dc66d2c1953f7fc2/703df4d7-293d-496b-bff2-6cd41f6a5dd4/repro

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