1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
local a = require "mason-core.async"
local _ = require "mason-core.functional"
local Pkg = require "mason-core.package"
local std = require "mason-core.managers.std"
local github_client = require "mason-core.managers.github.client"
local path = require "mason-core.path"
local platform = require "mason-core.platform"
return Pkg.new {
name = "haskell-language-server",
desc = [[Official Haskell Language Server implementation.]],
homepage = "https://haskell-language-server.readthedocs.io/en/latest/",
languages = { Pkg.Lang.Haskell },
categories = { Pkg.Cat.LSP },
---@async
---@param ctx InstallContext
install = function(ctx)
local repo = "haskell/haskell-language-server"
local release = ctx.requested_version:or_else_get(function()
return github_client
.fetch_latest_release(repo)
:map(
---@param release GitHubRelease
function(release)
return release.tag_name
end
)
:get_or_throw()
end)
std.ensure_executable("ghcup", { help_url = "https://www.haskell.org/ghcup/" })
ctx:promote_cwd()
ctx.spawn.ghcup { "install", "hls", release, "-i", ctx.cwd:get() }
ctx.receipt:with_primary_source(ctx.receipt.github_release(repo, release))
platform.when {
unix = function()
ctx:link_bin(
"haskell-language-server-wrapper",
path.concat { "bin", "haskell-language-server-wrapper" }
)
a.scheduler()
for _, executable_abs_path in
ipairs(
vim.fn.glob(path.concat { ctx.cwd:get(), "bin", "haskell-language-server-[0-9]*" }, true, true)
)
do
local executable = vim.fn.fnamemodify(executable_abs_path, ":t")
ctx:link_bin(executable, path.concat { "bin", executable })
end
end,
win = function()
ctx:link_bin("haskell-language-server-wrapper", "haskell-language-server-wrapper.exe")
a.scheduler()
for _, executable_abs_path in
ipairs(vim.fn.glob(path.concat { ctx.cwd:get(), "haskell-language-server-[0-9]*" }, true, true))
do
local executable = vim.fn.fnamemodify(executable_abs_path, ":t:r")
ctx:link_bin(executable, ("%s.exe"):format(executable))
end
end,
}
end,
}
|
