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
67
68
|
local server = require "nvim-lsp-installer.server"
local path = require "nvim-lsp-installer.core.path"
local process = require "nvim-lsp-installer.core.process"
local platform = require "nvim-lsp-installer.core.platform"
local _ = require "nvim-lsp-installer.core.functional"
local std = require "nvim-lsp-installer.core.managers.std"
local github_client = require "nvim-lsp-installer.core.managers.github.client"
local Optional = require "nvim-lsp-installer.core.optional"
return function(name, root_dir)
return server.Server:new {
name = name,
root_dir = root_dir,
homepage = "https://dhall-lang.org/",
languages = { "dhall" },
---@param ctx InstallContext
installer = function(ctx)
local repo = "dhall-lang/dhall-haskell"
---@type GitHubRelease
local gh_release = ctx.requested_version
:map(function(version)
return github_client.fetch_release(repo, version)
end)
:or_else_get(function()
return github_client.fetch_latest_release(repo)
end)
:get_or_throw()
local asset_name_pattern = assert(
_.coalesce(
_.when(platform.is.mac, "dhall%-lsp%-server%-.+%-x86_64%-macos.tar.bz2"),
_.when(platform.is.linux_x64, "dhall%-lsp%-server%-.+%-x86_64%-linux.tar.bz2"),
_.when(platform.is.win_x64, "dhall%-lsp%-server%-.+%-x86_64%-windows.zip")
)
)
local dhall_lsp_server_asset = _.find_first(
_.prop_satisfies(_.matches(asset_name_pattern), "name"),
gh_release.assets
)
Optional.of_nilable(dhall_lsp_server_asset)
:if_present(
---@param asset GitHubReleaseAsset
function(asset)
if platform.is_win then
std.download_file(asset.browser_download_url, "dhall-lsp-server.zip")
std.unzip("dhall-lsp-server.zip", ".")
else
std.download_file(asset.browser_download_url, "dhall-lsp-server.tar.bz2")
std.untar "dhall-lsp-server.tar.bz2"
std.chmod("+x", { path.concat { "bin", "dhall-lsp-server" } })
end
ctx.receipt:with_primary_source {
type = "github_release_file",
repo = repo,
file = asset.browser_download_url,
release = gh_release.tag_name,
}
end
)
:or_else_throw "Unable to find the dhall-lsp-server release asset in the GitHub release."
end,
default_options = {
cmd_env = {
PATH = process.extend_path { path.concat { root_dir, "bin" } },
},
},
}
end
|
