Expose (some) span information in TTY output
This commit is contained in:
parent
9d3e79b576
commit
7138abff4b
|
@ -78,7 +78,14 @@ outputForFile color sys comments = do
|
||||||
cuteIndent :: PositionedComment -> String
|
cuteIndent :: PositionedComment -> String
|
||||||
cuteIndent comment =
|
cuteIndent comment =
|
||||||
replicate (fromIntegral $ colNo comment - 1) ' ' ++
|
replicate (fromIntegral $ colNo comment - 1) ' ' ++
|
||||||
"^-- " ++ code (codeNo comment) ++ ": " ++ messageText comment
|
makeArrow ++ " " ++ code (codeNo comment) ++ ": " ++ messageText comment
|
||||||
|
where
|
||||||
|
arrow n = '^' : replicate (fromIntegral $ n-2) '-' ++ "^"
|
||||||
|
makeArrow =
|
||||||
|
let sameLine = lineNo comment == endLineNo comment
|
||||||
|
delta = endColNo comment - colNo comment
|
||||||
|
in
|
||||||
|
if sameLine && delta > 2 && delta < 32 then arrow delta else "^--"
|
||||||
|
|
||||||
code code = "SC" ++ show code
|
code code = "SC" ++ show code
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue