eaa4b1f · elk · git.iko.soy

git.iko.soy/elk

do not allow styling when creating certain parts of links

commiteaa4b1feff050bc15a93142babf6783589e9a06d authorEvan Czaplicki <evancz@users.noreply.github.com> dateWed 12 Jun 2019, 16:30 (7 years ago) parente35fa44

1 file changed+4−4

compare with master

unifiedsplit

compiler/src/Reporting/Doc.hs+4−4

compiler/src/Reporting/Doc.hs+4−4

@@ -171,19 +171,19 @@ toFancyHint chunks =

171171-- LINKS

172172

173173

174−link :: P.Doc -> String -> String -> String -> P.Doc

174+link :: String -> String -> String -> String -> P.Doc

175175link word before fileName after =

176176 P.fillSep $

177− (P.underline word <> ":")

177+ (P.underline (P.text word) <> ":")

178178 : map P.text (words before)

179179 ++ P.text (makeLink fileName)

180180 : map P.text (words after)

181181

182182

183−fancyLink :: P.Doc -> [P.Doc] -> String -> [P.Doc] -> P.Doc

183+fancyLink :: String -> [P.Doc] -> String -> [P.Doc] -> P.Doc

184184fancyLink word before fileName after =

185185 P.fillSep $

186− (P.underline word <> ":") : before ++ P.text (makeLink fileName) : after

186+ (P.underline (P.text word) <> ":") : before ++ P.text (makeLink fileName) : after

187187

188188

189189makeLink :: [Char] -> [Char]