From e777f77fa42aee7274b0c3bca5e488cbb88893a1 Mon Sep 17 00:00:00 2001
From: Revath S Kumar <rsk@revathskumar.com>
Date: Tue, 3 Oct 2023 21:56:26 +0200
Subject: [PATCH] fix: hint links

hint links points directly to github file
---
 compiler/src/Reporting/Doc.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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 =
-  "<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 =