@@ -122,7 +122,7 @@ makeUnderline width realEndLine (A.Region (A.Position start c1) (A.Position end
122122 spaces = replicate (fromIntegral c1 + width + 1) ' '
123123 zigzag = replicate (max 1 (fromIntegral (c2 - c1))) '^'
124124 in
125− Just (D.fromChars spaces <> D.dullred (D.fromChars zigzag))
125+ Just (D.fromChars spaces <> D.red (D.fromChars zigzag))
126126
127127
128128drawLines :: Bool -> Int -> A.Region -> [(Word16, String)] -> Doc -> Doc
@@ -148,7 +148,7 @@ addLineNumber addZigZag width start end n line =
148148
149149 spacer =
150150 if addZigZag && start <= n && n <= end then
151− D.dullred ">"
151+ D.red ">"
152152 else
153153 " "
154154 in
@@ -183,8 +183,8 @@ renderPair source@(Source sourceLines) region1 region2 =
183183 OneLine $
184184 D.vcat
185185 [ D.fromChars lineNumber <> "| " <> D.fromChars line
186− , D.fromChars spaces1 <> D.dullred (D.fromChars zigzag1) <>
187− D.fromChars spaces2 <> D.dullred (D.fromChars zigzag2)
186+ , D.fromChars spaces1 <> D.red (D.fromChars zigzag1) <>
187+ D.fromChars spaces2 <> D.red (D.fromChars zigzag2)
188188 ]
189189
190190 else