@@ -171,19 +171,19 @@ toFancyHint chunks =
174−link :: P.Doc -> String -> String -> String -> P.Doc
174+link :: String -> String -> String -> String -> P.Doc
175link word before fileName after =
175link word before fileName after =
176 P.fillSep $
176 P.fillSep $
177− (P.underline word <> ":")
177+ (P.underline (P.text word) <> ":")
178 : map P.text (words before)
178 : map P.text (words before)
179 ++ P.text (makeLink fileName)
179 ++ P.text (makeLink fileName)
180 : map P.text (words after)
180 : map P.text (words after)
183−fancyLink :: P.Doc -> [P.Doc] -> String -> [P.Doc] -> P.Doc
183+fancyLink :: String -> [P.Doc] -> String -> [P.Doc] -> P.Doc
184fancyLink word before fileName after =
184fancyLink word before fileName after =
185 P.fillSep $
185 P.fillSep $
186− (P.underline word <> ":") : before ++ P.text (makeLink fileName) : after
186+ (P.underline (P.text word) <> ":") : before ++ P.text (makeLink fileName) : after
189makeLink :: [Char] -> [Char]
189makeLink :: [Char] -> [Char]