fix: hint links

hint links points directly to github file
This commit is contained in:
Revath S Kumar 2023-10-03 21:56:26 +02:00
parent 58ba88c002
commit e777f77fa4
No known key found for this signature in database
GPG Key ID: 5938AD6CCB200939

View File

@ -182,11 +182,15 @@ fancyLink word before fileName after =
makeLink :: [Char] -> [Char]
makeLink fileName =
"<https://gren-lang.org/" <> 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 =