git.iko.soy/elk
on master help sign in
make underlines pop more by switching dullred to red
249e595Evan Czaplicki
compiler/src/Reporting/Render/Code.hs+4−4
compare with master
unifiedsplit
@@ -122,7 +122,7 @@ makeUnderline width realEndLine (A.Region (A.Position start c1) (A.Position end
122 spaces = replicate (fromIntegral c1 + width + 1) ' '
122 spaces = replicate (fromIntegral c1 + width + 1) ' '
123 zigzag = replicate (max 1 (fromIntegral (c2 - c1))) '^'
123 zigzag = replicate (max 1 (fromIntegral (c2 - c1))) '^'
124 in
124 in
125− Just (D.fromChars spaces <> D.dullred (D.fromChars zigzag))
125+ Just (D.fromChars spaces <> D.red (D.fromChars zigzag))
126
126
127
127
128drawLines :: Bool -> Int -> A.Region -> [(Word16, String)] -> Doc -> Doc
128drawLines :: Bool -> Int -> A.Region -> [(Word16, String)] -> Doc -> Doc
@@ -148,7 +148,7 @@ addLineNumber addZigZag width start end n line =
148
148
149 spacer =
149 spacer =
150 if addZigZag && start <= n && n <= end then
150 if addZigZag && start <= n && n <= end then
151− D.dullred ">"
151+ D.red ">"
152 else
152 else
153 " "
153 " "
154 in
154 in
@@ -183,8 +183,8 @@ renderPair source@(Source sourceLines) region1 region2 =
183 OneLine $
183 OneLine $
184 D.vcat
184 D.vcat
185 [ D.fromChars lineNumber <> "| " <> D.fromChars line
185 [ D.fromChars lineNumber <> "| " <> D.fromChars line
186− , D.fromChars spaces1 <> D.dullred (D.fromChars zigzag1) <>
186+ , D.fromChars spaces1 <> D.red (D.fromChars zigzag1) <>
187− D.fromChars spaces2 <> D.dullred (D.fromChars zigzag2)
187+ D.fromChars spaces2 <> D.red (D.fromChars zigzag2)
188 ]
188 ]
189
189
190 else
190 else