Fix max path issues on windows with 'ghcup run'

lib/GHCup/Utils/Dirs.hs

@@ -339,7 +339,9 @@ useXDG = isJust <$> lookupEnv "GHCUP_USE_XDG_DIRS"
 relativeSymlink :: FilePath  -- ^ the path in which to create the symlink
                 -> FilePath  -- ^ the symlink destination
                 -> FilePath
-relativeSymlink p1 p2 =
+relativeSymlink p1 p2
+  | isWindows = p2 -- windows quickly gets into MAX_PATH issues so we don't care about relative symlinks
+  | otherwise =
     let d1      = splitDirectories p1
         d2      = splitDirectories p2
         common  = takeWhile (\(x, y) -> x == y) $ zip d1 d2