diff --git a/compiler/src/Reporting/Doc.hs b/compiler/src/Reporting/Doc.hs index 65188fb0..3bb2dd6e 100644 --- a/compiler/src/Reporting/Doc.hs +++ b/compiler/src/Reporting/Doc.hs @@ -182,11 +182,15 @@ fancyLink word before fileName after = makeLink :: [Char] -> [Char] makeLink fileName = - " V.toChars V.compiler <> "/" <> fileName <> ">" + "<" <> makeNakedLink fileName <> ">" makeNakedLink :: [Char] -> [Char] makeNakedLink fileName = - "https://gren-lang.org/" <> V.toChars V.compiler <> "/" <> fileName + "https://github.com/gren-lang/compiler/blob/" + <> V.toChars V.compiler + <> "/hints/" + <> fileName + <> ".md" reflowLink :: [Char] -> [Char] -> [Char] -> P.Doc reflowLink before fileName after =