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

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

Agent Instructions

Wait for completion, without logs:

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/f4e3b1708494f4658b32dcbaa6a779a0860b2840/6fd4affe-e695-4908-a2ff-b443484eb4f0/wait

Latest logs, with timestamps (streams while running):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/f4e3b1708494f4658b32dcbaa6a779a0860b2840/6fd4affe-e695-4908-a2ff-b443484eb4f0/tail

All logs, with timestamps (available after completion):

curl --netrc https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/f4e3b1708494f4658b32dcbaa6a779a0860b2840/6fd4affe-e695-4908-a2ff-b443484eb4f0/logs

Raw logs, from the start (no timestamps):

curl --netrc -N https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/f4e3b1708494f4658b32dcbaa6a779a0860b2840/6fd4affe-e695-4908-a2ff-b443484eb4f0/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/f4e3b1708494f4658b32dcbaa6a779a0860b2840/6fd4affe-e695-4908-a2ff-b443484eb4f0/logs

Reproduce locally: https://staging.nix-ci.com/gh:NorfairKing:sydtest/mutation-testing/f4e3b1708494f4658b32dcbaa6a779a0860b2840/6fd4affe-e695-4908-a2ff-b443484eb4f0/repro

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