Pseudomata
030ff0acf3
This change will work without any configuration and assume the user will install the Haskell Language Server using `ghcup`
56 lines
1.4 KiB
Rust
56 lines
1.4 KiB
Rust
use anyhow::{anyhow, Result};
|
|
use async_trait::async_trait;
|
|
use language::{LanguageServerName, LspAdapter, LspAdapterDelegate};
|
|
use lsp::LanguageServerBinary;
|
|
use std::{any::Any, path::PathBuf};
|
|
|
|
pub struct HaskellLanguageServer;
|
|
|
|
#[async_trait]
|
|
impl LspAdapter for HaskellLanguageServer {
|
|
fn name(&self) -> LanguageServerName {
|
|
LanguageServerName("hls".into())
|
|
}
|
|
|
|
fn short_name(&self) -> &'static str {
|
|
"hls"
|
|
}
|
|
|
|
async fn fetch_latest_server_version(
|
|
&self,
|
|
_: &dyn LspAdapterDelegate,
|
|
) -> Result<Box<dyn 'static + Any + Send>> {
|
|
Ok(Box::new(()))
|
|
}
|
|
|
|
async fn fetch_server_binary(
|
|
&self,
|
|
_version: Box<dyn 'static + Send + Any>,
|
|
_container_dir: PathBuf,
|
|
_: &dyn LspAdapterDelegate,
|
|
) -> Result<LanguageServerBinary> {
|
|
Err(anyhow!(
|
|
"hls (haskell language server) must be installed via ghcup"
|
|
))
|
|
}
|
|
|
|
async fn cached_server_binary(
|
|
&self,
|
|
_: PathBuf,
|
|
_: &dyn LspAdapterDelegate,
|
|
) -> Option<LanguageServerBinary> {
|
|
Some(LanguageServerBinary {
|
|
path: "haskell-language-server-wrapper".into(),
|
|
arguments: vec!["lsp".into()],
|
|
})
|
|
}
|
|
|
|
fn can_be_reinstalled(&self) -> bool {
|
|
false
|
|
}
|
|
|
|
async fn installation_test_binary(&self, _: PathBuf) -> Option<LanguageServerBinary> {
|
|
None
|
|
}
|
|
}
|