git.iko.soy/haskell-nova
on master help sign in
swap
788241516 ahead, 0 behind
5 files changed+557−422
since splitsnapshots
unifiedsplit
Haskell Language Server.novaextension/Scripts/download.js+42−1 Haskell Language Server.novaextension/Scripts/main.js+6−7 Haskell Language Server.novaextension/Scripts/utils.js+92−1 Haskell Language Server.novaextension/Syntaxes/Haskell.xml+217−254 Haskell Language Server.novaextension/extension.json+200−159
Haskell Language Server.novaextension/Scripts/download.js+42−1
@@ -5,6 +5,8 @@ const {
55const {
66 readStream,
77 getStorage,
8+ call,
9+ hasCustomEnv
810} = require("utils");
911
1012exports.getHLS = getHLS;
@@ -43,6 +45,9 @@ async function downloadTool(name) {
4345 const storagePath = getStorageForTool(name);
4446 console.log("Downloading " + storagePath);
4547 const urls = await getHLSAssets();
48+ if (!(name in urls)) {
49+ sendPermanentNotification("There is no pre-built HLS for GHC " + name ,"There is no pre-built version of HLS for GHC " + name + ". You can either build HLS yourself or update your project to one of the pre-built versions: https://github.com/haskell/haskell-language-server/releases")
50+ }
4651 const response = await fetch(urls[name]);
4752 if (!response.ok) {
4853 console.error(response.statusText);
@@ -128,7 +133,7 @@ async function getGHCVersion() {
128133 sendPermanentNotification(
129134 tool + " not installed!",
130135 "Please install " + tool +
131− " and restart Haskell Language Server.",
136+ " and restart Haskell Language Server.",
132137 );
133138 } else {
134139 sendPermanentNotification("Couldn't detect GHC version", x);
@@ -141,7 +146,28 @@ async function getGHCVersion() {
141146 return promise;
142147}
143148async function getHLS() {
149+ const explicitPath = nova.workspace.config.get("haskell-language-server-path")
150+ if (explicitPath) {
151+ sendNotification("HLS path specified in settings", "Using the path to haskell-language-server specified in settings.")
152+ return explicitPath
153+ }
154+
155+ const localHLSPath = await which("haskell-language-server").catch((_) => null)
156+ if (hasCustomEnv() && localHLSPath) {
157+ return localHLSPath
158+ }
159+
144160 const version = await getGHCVersion();
161+ if (localHLSPath) {
162+ sendNotification("Found HLS", "Found haskell-language-server in PATH. Checking if it is the right version.")
163+ const v = await getHLSVersion(localHLSPath)
164+ if (v === version) {
165+ sendNotification("Using local HLS", "The haskell-language-server in PATH has the right version. Using it.")
166+ return localHLSPath
167+ } else {
168+ sendNotification("Not using local HLS", "The haskell-language-server in PATH is built fot GHC " + v + " but we need GHC " + version + ". Trying other alternatives.")
169+ }
170+ }
145171 return await getTool(version);
146172}
147173
@@ -156,3 +182,18 @@ function getToolName(name) {
156182function notifyToolDownloading(name) {
157183 sendNotification("Downloading tool", "Downloading " + getToolName(name));
158184}
185+
186+function getHLSVersion(path) {
187+ return call(path, {
188+ args: ["--version"],
189+ })
190+ .then((x) => x.match(/\(GHC: (\S+)\)/)[1].trim())
191+ .catch((err) => sendPermanentNotification("HLS version check failed", err))
192+}
193+
194+function which(name) {
195+ return call("/usr/bin/which", {
196+ args: [name],
197+ shell: true,
198+ }).then((p) => p.trim())
199+}
Haskell Language Server.novaextension/Scripts/main.js+6−7
@@ -9,8 +9,9 @@ const {
99 getHLSConfig,
1010} = require("configuration");
1111const {
12− getFileName,
12+ getFileName, createEnv, getEnv
1313} = require("utils");
14+
1415exports.activate = function () {
1516 nova.commands.register("stop", (_workspace) => {
1617 stopServer();
@@ -23,7 +24,7 @@ exports.activate = function () {
2324 startServer();
2425 });
2526 nova.commands.register("format", formatFile);
26− startServer();
27+ // startServer();
2728};
2829exports.deactivate = function () {
2930 // Clean up state before the extension is deactivated
@@ -107,10 +108,12 @@ function applyAllLSPEdits(edits, text) {
107108}
108109let lspClient = null;
109110async function startServer() {
111+ await createEnv()
110112 stopServer();
111113 const path = await getServerPath();
114+ const env = await getEnv()
112115 const serverOptions = {
113− path: path,
116+ path, env,
114117 args: ["lsp", "--cwd", nova.workspace.path],
115118 };
116119 const clientOptions = {
@@ -137,7 +140,3 @@ function stopServer() {
137140function getServerPath() {
138141 return getHLS();
139142}
140−
141−// function getLogPath() {
142−// return getStorage() + "/haskell-language-server.log";
143−// }
Haskell Language Server.novaextension/Scripts/utils.js+92−1
@@ -1,3 +1,8 @@
1+const {
2+ sendNotification,
3+ sendPermanentNotification,
4+} = require("notifications");
5+
16function readStream(readableStream) {
27 return new Promise((resolve, _reject) => {
38 const reader = readableStream.getReader();
@@ -48,4 +53,90 @@ function traceRaw(x) {
4853 return x;
4954}
5055
51−module.exports = { readStream, getStorage, getFileName, trace, traceRaw };
56+async function call(path, args) {
57+ const env = await getEnv()
58+ const process = new Process(path, {...args, ...{env}});
59+ const promise = new Promise((resolve, reject) => {
60+ process.onDidExit((exitCode) => {
61+ console.log(exitCode)
62+ if (exitCode == 0) {
63+ readStream(process.stdout).then((x) => {
64+ resolve(x);
65+ });
66+ } else {
67+ readStream(process.stderr).then((x) => {
68+ reject(x)
69+ });
70+ }
71+ });
72+ })
73+ process.start()
74+ return promise
75+}
76+
77+
78+function parseEnvs(x) {
79+ const env = {}
80+ for (line of x.split("\n")) {
81+ const res = line.match(/(.*?)=(.*)/)
82+ if (res) {
83+ env[res[1]] = res[2]
84+ }
85+ }
86+
87+ console.log(JSON.stringify(env))
88+
89+ return env
90+}
91+
92+let envCache = null
93+
94+async function createEnv() {
95+ const generator = nova.workspace.config.get("env-generator")
96+ if (generator) {
97+ const [prog, ...args] = generator.split(/\s+/)
98+ sendNotification("Generating environment", "Executing " + generator + ".")
99+ const process = new Process(prog, {
100+ shell: true,
101+ args,
102+ cwd: nova.workspace.path
103+ });
104+ const promise = new Promise((resolve, reject) => {
105+ process.onDidExit((exitCode) => {
106+ console.log(exitCode)
107+ if (exitCode == 0) {
108+ readStream(process.stdout).then((x) => {
109+ resolve(x);
110+ });
111+ } else {
112+ readStream(process.stderr).then((x) => {
113+ reject(x)
114+ });
115+ }
116+ });
117+ })
118+ process.start()
119+
120+ const envStr = await promise
121+ .catch((err) => sendPermanentNotification("Generating environment failed", err))
122+ envCache = parseEnvs(envStr)
123+ } else {
124+ envCache = {}
125+ }
126+}
127+
128+async function getEnv() {
129+ console.log(JSON.stringify(envCache))
130+ if (!envCache) {
131+ await createEnv()
132+ }
133+ return envCache
134+}
135+
136+
137+function hasCustomEnv() {
138+ return (nova.workspace.config.get("env-generator") !== null)
139+}
140+
141+module.exports = { readStream, getStorage, getFileName, trace, traceRaw, call, createEnv, hasCustomEnv, getEnv };
142+
Haskell Language Server.novaextension/Syntaxes/Haskell.xml+217−254
@@ -1,9 +1,9 @@
11<?xml version="1.0" encoding="UTF-8"?>
22<syntax name="haskell">
33 <meta>
4− <name>Haskell</name>
5− <type>compiled</type>
6− <preferred-file-extension>hs</preferred-file-extension>
4+ <name>Haskell</name>
5+ <type>compiled</type>
6+ <preferred-file-extension>hs</preferred-file-extension>
77 </meta>
88
99 <detectors>
@@ -57,8 +57,6 @@
5757 <include syntax="self" collection="type-family-definition" />
5858 <include syntax="self" collection="pattern-definition" />
5959 <include syntax="self" collection="type-definition" />
60− <!-- <include syntax="self" collection="type-annotation" /> -->
61− <include syntax="self" collection="data-definition" />
6260 <include syntax="self" collection="GADT-definition" />
6361 <include syntax="self" collection="instance" />
6462 <include syntax="self" collection="typeclass" />
@@ -67,7 +65,6 @@
6765
6866 <template-scopes>
6967 <include syntax="self" collection="Quote" />
70− <include syntax="self" collection="comments" />
7168 </template-scopes>
7269
7370 <collections>
@@ -80,51 +77,27 @@
8077 </collection>
8178
8279 <collection name="expressions">
83− <include syntax="self" collection="do-bind" />
80+ <scope name="haskell.construct.keyword.at">
81+ <expression>@</expression>
82+ </scope>
83+ <scope name="haskell.construct.keyword.case-arrow">
84+ <expression>-&gt;</expression>
85+ </scope>
86+ <scope name="haskell.construct.keyword.bind-arrow">
87+ <expression>&lt;-</expression>
88+ </scope>
89+ <include syntax="self" collection="keywords" />
8490 <include syntax="self" collection="literal" />
8591 <include syntax="self" collection="operators" />
92+ <include syntax="self" collection="record-match" />
8693 <include syntax="self" collection="list" />
94+ <include syntax="self" collection="view-pattern" />
8795 <include syntax="self" collection="lambda-case" />
8896 <include syntax="self" collection="lambda-head" />
89− <include syntax="self" collection="type-applications" />
90− <include syntax="self" collection="outer-case-expression" />
97+ <include syntax="self" collection="case-expression" />
98+ <include syntax="self" collection="qconid" />
9199 <include syntax="self" collection="qvarid" />
92100 <include syntax="self" collection="tuple" />
93−
94−
95− <!-- Needed for do binds -->
96− <!-- <include syntax="self" collection="pattern-match" /> -->
97− </collection>
98−
99− <collection name="pattern-match">
100− <include syntax="self" collection="literal" />
101− <include syntax="self" collection="tuple-match" />
102− <!-- <include syntax="self" collection="at-pattern" /> -->
103− <include syntax="self" collection="varid" />
104− <include syntax="self" collection="qconid" />
105− <include syntax="self" collection="record-match" />
106− <include syntax="self" collection="list-pattern" />
107− <include syntax="self" collection="view-pattern" />
108− </collection>
109−
110− <collection name="type-applications">
111− <scope name="type-applications">
112− <starts-with>
113− <expression>(\s@)\(</expression>
114− <capture number="1" name="haskell.keyword.operator.typeapplication" />
115− </starts-with>
116− <ends-with>
117− <expression>)</expression>
118− </ends-with>
119− <subscopes>
120− <include syntax="self" collection="type" />
121− </subscopes>
122− </scope>
123− <scope name="type-applications-single">
124− <expression>(@)(\w+)</expression>
125− <capture number="1" name="haskell.keyword.operator.typeapplication" />
126− <capture number="2" name="haskell.identifier.type" />
127− </scope>
128101 </collection>
129102
130103 <collection name="Quote">
@@ -163,8 +136,8 @@
163136 <capture number="1" name="haskell.pattern.record.bracket" />
164137 </ends-with>
165138 <subscopes>
166− <include syntax="self" collection="pattern-match" />
167− <include syntax="self" collection="varid" />
139+ <include syntax="self" collection="comments" />
140+ <include syntax="self" collection="expressions" />
168141 <scope name="record-sep">
169142 <expression>=</expression>
170143 </scope>
@@ -186,6 +159,7 @@
186159 <capture number="1" name="haskell.pattern.record.bracket" />
187160 </ends-with>
188161 <subscopes>
162+ <include syntax="self" collection="comments" />
189163 <scope name="haskell.pattern.record.wildcard">
190164 <expression>\.\.</expression>
191165 </scope>
@@ -212,29 +186,12 @@
212186 <capture number="1" name="haskell.list.bracket" />
213187 </ends-with>
214188 <subscopes>
189+ <include syntax="self" collection="comments" />
215190 <include syntax="self" collection="expressions" />
216191 </subscopes>
217192 </scope>
218193 </collection>
219194
220− <collection name="list-pattern">
221− <symbol type="expression" />
222− <scope name="haskell.pattern.list">
223− <starts-with>
224− <expression>(\[)</expression>
225− <capture number="1" name="haskell.pattern.list.bracket" />
226− </starts-with>
227− <ends-with>
228− <expression>(\])</expression>
229− <capture number="1" name="haskell.pattern.list.bracket" />
230− </ends-with>
231− <subscopes>
232− <include syntax="self" collection="pattern-match" />
233− </subscopes>
234− </scope>
235− </collection>
236−
237−
238195 <collection name="view-pattern">
239196 <scope name="haskell.pattern.view">
240197 <symbol type="expression" />
@@ -251,24 +208,7 @@
251208 <scope name="haskell.pattern.view.operator.arrow">
252209 <expression>-&gt;</expression>
253210 </scope>
254− <include syntax="self" collection="pattern-match" />
255− </subscopes>
256− </scope>
257− </collection>
258−
259− <collection name="tuple-match">
260− <symbol type="expression" />
261− <scope name="haskell.pattern.tuple">
262− <starts-with>
263− <expression>(\()</expression>
264− <capture number="1" name="haskell.pattern.tuple.bracket" />
265− </starts-with>
266− <ends-with>
267− <expression>(\))</expression>
268− <capture number="1" name="haskell.pattern.tuple.bracket" />
269− </ends-with>
270− <subscopes>
271− <include syntax="self" collection="pattern-match" />
211+ <include syntax="self" collection="expressions" />
272212 </subscopes>
273213 </scope>
274214 </collection>
@@ -284,53 +224,11 @@
284224 <capture number="1" name="haskell.case.keyword.condition" />
285225 </ends-with>
286226 <subscopes anchored="true">
287− <include syntax="self" collection="pattern-match" />
288− </subscopes>
289− </scope>
290− </collection>
291−
292− <collection name="case-match">
293− <scope name="case-match">
294− <starts-with>
295− <expression>(?=((\h*)\S.*-&gt;($|\h)))</expression>
296− </starts-with>
297− <ends-with>
298− <expression>-&gt;</expression>
299− </ends-with>
300− <subscopes anchored="true">
301− <include syntax="self" collection="pattern-match" />
302− </subscopes>
303− </scope>
304− </collection>
305−
306− <collection name="inner-case-expressions">
307− <scope name="inner-case-expressions">
308− <starts-with>
309− <expression>(?=((\h*)\S.*-&gt;($|\h)))</expression>
310− </starts-with>
311− <ends-with>
312− <template>^(?!\1)(?!\2\h)(?!\s*$)</template>
313− </ends-with>
314− <subscopes>
315− <include syntax="self" collection="case-match" />
316227 <include syntax="self" collection="expressions" />
317228 </subscopes>
318229 </scope>
319230 </collection>
320231
321− <collection name="outer-case-expression">
322− <scope name="outer-case-expression">
323− <starts-with>
324− <expression>(?=case)</expression>
325− </starts-with>
326− <ends-with />
327− <subscopes anchored="true" skip-whitespace="false">
328− <include syntax="self" collection="case-expression" />
329− <include syntax="self" collection="inner-case-expressions" repeat="true" />
330− </subscopes>
331− </scope>
332− </collection>
333−
334232 <collection name="tuple">
335233 <symbol type="expression" />
336234 <scope name="haskell.tuple">
@@ -343,136 +241,144 @@
343241 <capture number="1" name="haskell.tuple.bracket" />
344242 </ends-with>
345243 <subscopes>
244+ <include syntax="self" collection="comments" />
346245 <include syntax="self" collection="expressions" />
347246 </subscopes>
348247 </scope>
349248 </collection>
350249
351250 <collection name="typeclass">
352− <symbol type="interface" />
353− <scope name="haskell.definition.class">
251+ <scope name="haskell.definition.class.head">
252+ <symbol type="class" scope="global" name-selector="haskell.keyword.construct.class.name">
253+ <context behavior="whitespace" foldable="true" />
254+ </symbol>
354255 <starts-with>
355256 <expression>^(\h*)(class)($|\h)</expression>
356257 <capture number="2" name="haskell.keyword.construct.class" />
357258 </starts-with>
358− <ends-with>
359− <template>^(?!\s+\1\S)(?!\s*$)</template>
360− </ends-with>
361− <subscopes>
362− <scope name="haskell.keyword.construct.where">
259+ <ends-with />
260+ <subscopes anchored="true">
261+ <scope name="haskell.keyword.construct.class.name">
262+ <starts-with>
263+ <expression></expression>
264+ </starts-with>
265+ <ends-with>
266+ <expression>(?=(where|^\s*$))</expression>
267+ </ends-with>
268+ <subscopes>
269+ <include syntax="self" collection="comments" />
270+ <include syntax="self" collection="type" />
271+ </subscopes>
272+ </scope>
273+ <scope name="haskell.keyword.construct.where" optional="true">
363274 <expression>where</expression>
364275 </scope>
365− <include syntax="self" collection="type" />
366− <include syntax="self" collection="type-definition" />
367− <!-- <include syntax="self" collection="type-annotation" /> -->
368− <include syntax="self" collection="definition" />
369276 </subscopes>
370277 </scope>
371278 </collection>
372279
373280 <collection name="instance">
374281 <scope name="haskell.instance">
375− <symbol type="category" />
282+ <symbol type="category" name-selector="haskell.keyword.construct.instance.name">
283+ <context behavior="whitespace" foldable="true" />
284+ </symbol>
376285 <starts-with>
377286 <expression>^(\h*)(instance)($|\h)</expression>
378287 <capture number="2" name="haskell.keyword.construct.instance" />
379288 </starts-with>
380− <ends-with>
381− <template>^(?!\s+\1\S)(?!\s*$)</template>
382− </ends-with>
383− <subscopes>
384− <scope name="haskell.keyword.construct.where">
289+ <ends-with />
290+ <subscopes anchored="true">
291+ <scope name="haskell.keyword.construct.instance.name">
292+ <starts-with>
293+ <expression></expression>
294+ </starts-with>
295+ <ends-with>
296+ <expression>(?=(where|^\s*$))</expression>
297+ </ends-with>
298+ <subscopes>
299+ <include syntax="self" collection="type" />
300+ </subscopes>
301+ </scope>
302+ <scope name="haskell.keyword.construct.where" optional="true">
385303 <expression>where</expression>
386304 </scope>
387− <include syntax="self" collection="type" />
388− <include syntax="self" collection="type-definition" />
389− <include syntax="self" collection="type-annotation" />
390− <include syntax="self" collection="definition" />
391305 </subscopes>
392306 </scope>
393307 </collection>
394308
395309 <collection name="type-family-definition">
396− <scope name="haskell.definition.type.type-family">
397− <symbol type="type" />
310+ <scope name="haskell.definition.type-family.type">
398311 <starts-with>
399− <expression>^(\h*)(type\h+family)\h+`?(\w(\w|')*)`?($|\h)</expression>
312+ <expression>^(\h*)(type\h+family)</expression>
400313 <capture number="2" name="haskell.keyword.construct.type-family" />
401314 </starts-with>
402315 <ends-with>
403316 <template>^(?!\s+\1\S)(?!\s*$)</template>
404317 </ends-with>
405− <subscopes>
406− <scope name="haskell.keyword.construct.where">
407− <expression>where</expression>
318+ <subscopes anchored="true" skip-whitespace="false">
319+ <scope name="haskell.type-family.head">
320+ <starts-with>
321+ <expression></expression>
322+ </starts-with>
323+ <ends-with>
324+ <expression>where</expression>
325+ <capture number="0" name="haskell.keyword.construct.where" />
326+ </ends-with>
327+ <subscopes anchored="true">
328+ <scope name="haskell.identifier.type-family.type.name">
329+ <expression>\S+</expression>
330+ </scope>
331+ <include syntax="self" collection="type" repeat="true" optional="true" />
332+ </subscopes>
408333 </scope>
409− <include syntax="self" collection="type" />
410− </subscopes>
411− </scope>
412− </collection>
413−
414− <collection name="definition">
415− <scope name="haskell.definition.type.function">
416− <symbol type="function">
417− <display-name>
418− <component selector="haskell.definition.type.function" />
419− </display-name>
420334
421− </symbol>
422− <starts-with>
423− <expression>^(?=(\h*)(default\h+)?`?(\w(\w|')*)`?($|\h))</expression>
424− <capture number="2" name="haskell.keyword.construct.default" />
425− <capture number="3" name="haskell.identifier.function" />
426− </starts-with>
427− <ends-with>
428− <template>^(?!\1\3\s)(?!\s+\1\S)(?!\s*$)</template>
429− </ends-with>
430− <subscopes>
431− <include syntax="self" collection="type-annotation" />
432− <include syntax="self" collection="implementation" />
335+ <include syntax="self" collection="type-family-case-definition" optional="true" repeat="true" />
433336 </subscopes>
434337 </scope>
435338 </collection>
436339
437− <collection name="do-bind">
438− <scope name="do-bind">
340+ <collection name="type-family-case-definition">
341+ <scope name="haskell.definition.type-family.type.case">
439342 <starts-with>
440− <expression>^(?=((\h*)\S.+&lt;-($|\h)))</expression>
343+ <expression>^(\h*)(?=\S)</expression>
441344 </starts-with>
442345 <ends-with>
443− <template>^(?!\1)(?!\2\h)(?!\s*$)</template>
346+ <template>^(?!\s+\1\S)(?!\s*$)</template>
444347 </ends-with>
445348 <subscopes>
446− <include syntax="self" collection="do-pattern" />
447− <include syntax="self" collection="expressions" />
448− <!-- <scope name="bind-arrow">
449− <expression>&lt;-</expression>
450− </scope> -->
349+ <include syntax="self" collection="comments" />
350+ <include syntax="self" collection="type" optional="true" repeat="true" />
351+ <scope>
352+ <expression>=</expression>
353+ </scope>
354+ <include syntax="self" collection="type" optional="true" repeat="true" />
451355 </subscopes>
452356 </scope>
453357 </collection>
454358
455− <collection name="do-pattern">
456− <scope name="do-pattern">
359+ <collection name="definition">
360+ <scope name="haskell.definition.type.function">
361+ <symbol type="function">
362+ <context behavior="whitespace" foldable="true" />
363+ </symbol>
457364 <starts-with>
458− <expression>^(?=((\h*)\S.+&lt;-($|\h)))</expression>
365+ <expression>^(?=(\h*)(default\h+)?`?(\w(\w|')*)`?($|\h))</expression>
366+ <capture number="2" name="haskell.keyword.construct.default" />
367+ <capture number="3" name="haskell.identifier.function.name" />
459368 </starts-with>
460369 <ends-with>
461− <expression>&lt;-</expression>
370+ <template>^(?!\1\3\s)(?!\s+\1\S)(?!\s*$)</template>
462371 </ends-with>
463372 <subscopes>
464− <include syntax="self" collection="pattern-match" />
465− <!-- <scope name="bind-arrow">
466− <expression>&lt;-</expression>
467− </scope>
468− <include syntax="self" collection="expressions" repeat="true" /> -->
373+ <include syntax="self" collection="comments" />
374+ <include syntax="self" collection="type-annotation" />
375+ <include syntax="self" collection="implementation" />
469376 </subscopes>
470377 </scope>
471378 </collection>
472379
473380 <collection name="implementation">
474− <scope name="haskell.definition.type.function">
475− <local scope="within-construct" />
381+ <scope name="haskell.definition.type.function.implementation">
476382 <starts-with>
477383 <expression>^(\h*)(default\h+)?`?(\w(\w|')*)`?($|\h)</expression>
478384 <capture number="2" name="haskell.keyword.construct.default" />
@@ -482,14 +388,20 @@
482388 <template>^(?!\1\3\s)(?!\s+\1\S)(?!\s*$)</template>
483389 </ends-with>
484390 <subscopes>
485− <include syntax="self" collection="where-clause" />
486− <include syntax="self" collection="expressions" />
391+ <include syntax="self" collection="comments" />
392+ <include syntax="self" collection="pattern-match" optional="true" repeat="true" />
393+ <scope>
394+ <expression>=</expression>
395+ <capture number="0" name="haskell.construct.function.keyword.eq" />
396+ </scope>
397+ <include syntax="self" collection="expressions" optional="true" repeat="true" />
398+ <include syntax="self" collection="where-clause" optional="true" />
487399 </subscopes>
488400 </scope>
489401 </collection>
490402
491403 <collection name="type-annotation">
492− <scope name="haskell.definition.type.function">
404+ <scope name="haskell.definition.type.function.type-signature">
493405 <starts-with>
494406 <expression>^(\h*)`?(\w(\w|')*)`?\h*::($|\h)</expression>
495407 <capture number="2" name="haskell.identifier.function" />
@@ -498,6 +410,7 @@
498410 <template>^(?!\s+\1\S)(?!\s*$)</template>
499411 </ends-with>
500412 <subscopes>
413+ <include syntax="self" collection="comments" />
501414 <include syntax="self" collection="type" />
502415 </subscopes>
503416 </scope>
@@ -505,15 +418,19 @@
505418
506419 <collection name="type-definition">
507420 <scope name="haskell.definition.type">
421+ <symbol type="type" scope="global">
422+ <context behavior="whitespace" foldable="true" />
423+ </symbol>
508424 <starts-with>
509425 <expression>^(\h*)(type)\h+(\w(\w|')*)</expression>
510426 <capture number="2" name="haskell.keyword.construct.type" />
511− <capture number="3" name="haskell.identifier.type" />
427+ <capture number="3" name="haskell.identifier.type.name" />
512428 </starts-with>
513429 <ends-with>
514430 <template>^(?!\s+\1\S)(?!\s*$)</template>
515431 </ends-with>
516432 <subscopes>
433+ <include syntax="self" collection="comments" />
517434 <include syntax="self" collection="type" />
518435 </subscopes>
519436 </scope>
@@ -521,66 +438,72 @@
521438
522439 <collection name="GADT-definition">
523440 <scope name="haskell.definition.struct.GADT">
441+ <symbol type="struct" scope="global">
442+ <context behavior="subtree" foldable="false" />
443+ </symbol>
524444 <starts-with>
525− <expression>^(\h*)(data)\h+(\w(\w|')*)</expression>
445+ <expression>^(\h*)(data|newtype)\h+(\w(\w|')*)</expression>
526446 <capture number="2" name="haskell.keyword.construct.data.GADT" />
447+ <capture number="3" name="haskell.identifier.data.type.name" />
527448 </starts-with>
528449 <ends-with>
529450 <template>^(?!\s+\1\S)(?!\s*$)</template>
530451 </ends-with>
531452 <subscopes>
453+ <include syntax="self" collection="comments" />
454+ <scope name="haskell.keyword.construct.where">
455+ <expression>where</expression>
456+ </scope>
457+
458+ <include syntax="self" collection="deriving-clause" />
459+ <include syntax="self" collection="record-definition" />
532460 <include syntax="self" collection="gadt-constructor" />
533461 <include syntax="self" collection="type" />
534− <include syntax="self" collection="record-definition" />
535− <include syntax="self" collection="record-definition-field-name" />
536462 </subscopes>
537463 </scope>
538464 </collection>
539465
540466 <collection name="gadt-constructor">
541− <scope name="identifier.type.struct.GADT.constructor">
542− <expression>^\h+[A-Z](\w|')*</expression>
543− </scope>
544− </collection>
545−
546− <collection name="data-definition">
547− <scope name="haskell.definition.struct.data">
467+ <scope name="haskell.identifier.type.struct.data.constructor">
468+ <symbol type="constructor">
469+ <context behavior="subtree" foldable="true" />
470+ </symbol>
548471 <starts-with>
549− <expression>^(\h*)(data|newtype)\h+(\w(\w|')*)</expression>
550− <capture number="2" name="haskell.keyword.construct.data.newtype" />
551− <capture number="3" name="haskell.identifier.type" />
472+ <expression>(^|=|\||^)\h+([A-Z](\w|')*)</expression>
473+ <capture number="2" name="haskell.identifier.data.name" />
552474 </starts-with>
553− <ends-with>
554− <template>^(?!\s+\1\S)(?!\s*$)</template>
555− </ends-with>
556− <subscopes>
475+ <ends-with />
476+ <subscopes anchored="true">
557477 <include syntax="self" collection="record-definition" />
558− <include syntax="self" collection="data-constructor" />
559− <include syntax="self" collection="type" />
560478 </subscopes>
561479 </scope>
562480 </collection>
563481
564− <collection name="data-constructor">
565− <scope name="haskell.identifier.type.struct.data.constructor">
566− <expression>=\h+[A-Z](\w|')*</expression>
482+ <collection name="deriving-clause">
483+ <scope name="haskell.record.construct.deriving.keyword">
484+ <expression>deriving(\h+(newtype|stock|anyclass))?</expression>
567485 </scope>
568− <scope name="haskell.identifier.type.struct.data.constructor">
569− <expression>\|\h+[A-Z](\w|')*</expression>
486+ <scope name="haskell.record.construct.deriving.keyword">
487+ <include syntax="self" collection="comments" />
488+ <expression>via</expression>
570489 </scope>
571490 </collection>
572491
573492 <collection name="record-definition">
574493 <scope name="haskell.record">
494+ <symbol>
495+ <context behavior="subtree" foldable="true" />
496+ </symbol>
575497 <starts-with>
576− <expression>(\{)</expression>
577− <capture number="1" name="haskell.record.bracket" />
498+ <expression>(?=\{)</expression>
499+ <capture number="0" name="haskell.record.bracket" />
578500 </starts-with>
579501 <ends-with>
580502 <expression>(\})</expression>
581503 <capture number="1" name="haskell.record.bracket" />
582504 </ends-with>
583505 <subscopes>
506+ <include syntax="self" collection="comments" />
584507 <include syntax="self" collection="record-definition-field-name" />
585508 <include syntax="self" collection="type" />
586509 </subscopes>
@@ -589,26 +512,65 @@
589512
590513 <collection name="record-definition-field-name">
591514 <scope name="haskell.record.definition.property">
592− <expression>\w(\w|')*\h*::</expression>
515+ <symbol type="property" />
516+ <expression>(((?![A-Z])\w(\w|')*)\h*::|(^|\{|,)\h*((?![A-Z])\w(\w|')*))</expression>
517+ <capture number="5" name="haskell.record.definition.property.field.property.name" />
518+ <capture number="2" name="haskell.record.definition.property.field.property.name" />
593519 </scope>
594520 </collection>
595521
596522 <collection name="type">
523+ <scope name="haskell.keyword.construct.function-arrow">
524+ <expression>-&gt;</expression>
525+ </scope>
526+ <scope name="haskell.keyword.construct.fat-arrow">
527+ <expression>=&gt;</expression>
528+ </scope>
529+ <include syntax="self" collection="strings" />
530+ <scope name="haskell.type.construct.tuple">
531+ <starts-with>
532+ <expression>\(</expression>
533+ </starts-with>
534+ <ends-with>
535+ <expression>\)</expression>
536+ </ends-with>
537+ <subscopes>
538+ <include syntax="self" collection="comments" />
539+ <scope name="haskell.construct.type.typle.comma">
540+ <expression>\,</expression>
541+ </scope>
542+ <include syntax="self" collection="type" />
543+ </subscopes>
544+ </scope>
545+ <scope name="haskell.type.list">
546+ <starts-with>
547+ <expression>'?\[</expression>
548+ </starts-with>
549+ <ends-with>
550+ <expression>\]</expression>
551+ </ends-with>
552+ <subscopes>
553+ <include syntax="self" collection="comments" />
554+ <include syntax="self" collection="type" />
555+ </subscopes>
556+ </scope>
557+ <scope name="haskell.type.star">
558+ <expression>\*</expression>
559+ </scope>
560+ <scope name="haskell.keyword.construct.type-annotation-operator">
561+ <expression>::</expression>
562+ </scope>
597563 <include syntax="self" collection="type-list" />
598− <scope name="haskell.identifier.type">
599− <expression>([A-Z](\w|')*\.)*[A-Z](\w|')*</expression>
564+ <scope>
565+ <expression>(([A-Z](\w|')*\.)*)'*\!?([A-Z](\w|')*)</expression>
566+ <capture number="1" name="haskell.identifier.package.module" />
567+ <capture number="4" name="haskell.identifier.type" />
600568 </scope>
601569 <scope name="haskell.keyword.construct.forall">
602570 <expression>forall</expression>
603571 </scope>
604572 <scope name="haskell.identifier.type.variable">
605− <expression>\w(\w|')*</expression>
606− </scope>
607− <scope name="haskell.keyword.construct.function-arrow">
608− <expression>-&gt;</expression>
609− </scope>
610− <scope name="haskell.keyword.construct.fat-arrow">
611− <expression>=&gt;</expression>
573+ <expression>(?!where)(?!=)((?!(\(|\)|\,|\!))\S)((?!(\(|\)|\,))\w)*</expression>
612574 </scope>
613575 </collection>
614576
@@ -623,6 +585,7 @@
623585 <template>^(?!\s+\1\S)(?!\s*$)</template>
624586 </ends-with>
625587 <subscopes>
588+ <include syntax="self" collection="comments" />
626589 <scope name="haskell.keyword.construct.where">
627590 <expression>where</expression>
628591 </scope>
@@ -642,6 +605,7 @@
642605 <capture number="1" name="haskell.type-list.bracket" />
643606 </ends-with>
644607 <subscopes>
608+ <include syntax="self" collection="comments" />
645609 <include syntax="self" collection="type" />
646610 </subscopes>
647611 </scope>
@@ -658,6 +622,7 @@
658622 <capture number="1" name="haskell.keyword.construct.lambda" />
659623 </ends-with>
660624 <subscopes>
625+ <include syntax="self" collection="comments" />
661626 <include syntax="self" collection="pattern-match" />
662627 </subscopes>
663628 </scope>
@@ -671,7 +636,6 @@
671636
672637 <collection name="where-clause">
673638 <scope name="haskell.construct.where">
674− <local scope="within-parent" />
675639 <starts-with>
676640 <expression>^(\h*)(where)</expression>
677641 <capture number="2" name="haskell.construct.keyword.where" />
@@ -680,6 +644,7 @@
680644 <template>^(?!\1\s*\S)(?!s*$)</template>
681645 </ends-with>
682646 <subscopes>
647+ <include syntax="self" collection="comments" />
683648 <include syntax="self" collection="definition" />
684649 </subscopes>
685650 </scope>
@@ -688,7 +653,9 @@
688653
689654 <collection name="qvarid">
690655 <scope name="haskell.identifier.function">
691− <expression>([A-Z](\w|')*\.)*\w(\w|')*</expression>
656+ <expression>(([A-Z](\w|')*\.)*)(\w(\w|')*)</expression>
657+ <capture number="1" name="haskell.identifier.package.module" />
658+ <capture number="4" name="haskell.identifier.type" />
692659 </scope>
693660 </collection>
694661
@@ -717,12 +684,12 @@
717684
718685
719686 <collection name="strings">
720− <scope name="haskell.string.double-quoted">
687+ <scope name="haskell.string.double-quoted" spell-check="true">
721688 <starts-with>
722− <expression>"</expression>
689+ <expression>&quot;</expression>
723690 </starts-with>
724691 <ends-with>
725− <expression>"</expression>
692+ <expression>&quot;</expression>
726693 </ends-with>
727694 <subscopes>
728695 <scope name="haskell.string.escape-sequences">
@@ -759,6 +726,7 @@
759726 </ends-with>
760727 <subscopes>
761728 <scope name="identifier.haskell.type">
729+ <symbol type="expression" />
762730 <symbol type="expression" />
763731 <expression>([A-Z](\w|')*)\h*(\(\h*\.\.\h*\))?</expression>
764732 <capture number="1" name="identifier.type" />
@@ -783,6 +751,7 @@
783751 </ends-with>
784752 <subscopes>
785753 <scope name="haskell.construct.qualified">
754+ <symbol type="expression" />
786755 <expression>qualified</expression>
787756 <capture number="0" name="haskell.construct.keyword.qualified" />
788757 </scope>
@@ -800,6 +769,7 @@
800769 </ends-with>
801770 <subscopes anchored="true">
802771 <include syntax="self" collection="import-list" />
772+ <symbol type="expression" />
803773 </subscopes>
804774 </scope>
805775
@@ -833,6 +803,7 @@
833803 </ends-with>
834804 <subscopes>
835805 <scope name="haskell.identifier.struct">
806+ <symbol type="expression" />
836807 <symbol type="reference" scope="local" />
837808 <expression>([A-Z](\w|')*)\h*(\(\h*\.\.\h*\))?</expression>
838809 <capture number="1" name="haskell.import-list.identifier.type.name" />
@@ -846,13 +817,6 @@
846817 </scope>
847818 </collection>
848819
849− <!-- <collection name="special">
850− <scope>
851− <expression>(;|,)</expression>
852− </scope>
853− </collection> -->
854−
855−
856820 <collection name="reservedop">
857821 <scope name="keyword.operator">
858822 <expression>(\.\.|:|::|=|\\|\||&lt;-|-&gt;|@|~|=>)</expression>
@@ -860,10 +824,11 @@
860824 </collection>
861825
862826 <collection name="keywords">
863− <scope name="haskell.keyword.modifier">
827+ <scope name="haskell.keyword.self">
864828 <symbol type="keyword" />
865829 <strings>
866830 <string>do</string>
831+ <string>mdo</string>
867832 <string>in</string>
868833 <string>infix</string>
869834 <string>infixl</string>
@@ -901,20 +866,18 @@
901866 <strings>
902867 <string>undefined</string>
903868 <string>_</string>
869+ <string>@</string>
904870 </strings>
905871 </scope>
906872 </collection>
907873
908874 <collection name="comments">
909875 <scope name="haskell.comment.single" spell-check="true">
910− <starts-with>
911− <expression>--</expression>
912− </starts-with>
913− <ends-with>
914− <expression>$</expression>
915− </ends-with>
876+ <symbol type="comment" />
877+ <expression> --.*$</expression>
916878 </scope>
917879 <scope name="haskell.comment.block" spell-check="true">
880+ <symbol type="comment" />
918881 <starts-with>
919882 <expression>{-</expression>
920883 </starts-with>
@@ -926,4 +889,4 @@
926889
927890
928891 </collections>
929−</syntax>
892+</syntax>
Haskell Language Server.novaextension/extension.json+200−159
@@ -6,292 +6,333 @@
66 "version": "1.0",
77 "categories": ["languages", "formatters"],
88 "main": "main.js",
9− "entitlements": {
9+ "entitlements":
10+ {
1011 "process": true,
1112 "filesystem": "readwrite",
1213 "requests": true
1314 },
14− "configWorkspace": [{
15+ "configWorkspace": [
16+ {
1517 "key": "haskell-language-server-path",
1618 "title": "Haskell Language Server path",
1719 "description": "If you want to use a custom HLS build for this project, then specify the path to it here.",
1820 "type": "path",
1921 "placeholder": "/usr/local/bin/example"
20− }, {
22+ },
23+ {
24+ "key": "env-generator",
25+ "title": "Environment generator",
26+ "description": "You can specify a shell command which will be used to generate the environment, in which the extension will be executes. This is useful if you want to utilize `nix-shell`, `direnv` or any similar command.\n\nExpects the command to have the same stdout as the `env` command.",
27+ "type": "enum",
28+ "allowsCustom": true,
29+ "values": ["nix-shell --run env", "direnv exec env"]
30+ },
31+ {
2132 "type": "section",
2233 "title": "Haskell Language Server settings",
23− "children": [{
24− "key": "haskell.formattingProvider",
25− "title": "Code formatter",
26− "type": "enum",
27− "values": [
28− "brittany",
29− "floskell",
30− "fourmolu",
31− "ormolu",
32− "stylish-haskell",
33− "none"
34− ],
35− "default": "ormolu",
36− "description": "The formatter to use when formatting a document or range. Ensure the plugin is enabled."
37− }, {
38− "key": "haskell.checkProject",
39− "title": "Check whole project",
40− "type": "boolean",
41− "default": false,
42− "description": "Whether to typecheck the entire project on load. It could drive to bad perfomance in large projects."
43− }, {
44− "key": "haskell.maxCompletions",
45− "type": "number",
46− "title": "Maximum number of completions",
47− "description": "Maximum number of completions sent to the editor.",
48− "default": 40
49− }, {
50− "type": "section",
51− "title": "Plugin settings",
52− "children": [{
34+ "description":"Some of the features are not supported in Nova. Some of them are explicitly marked as not supported, but it is not exhaustive.",
35+ "children": [
36+ {
37+ "key": "haskell.formattingProvider",
38+ "title": "Code formatter",
39+ "type": "enum",
40+ "values": [
41+ "brittany",
42+ "floskell",
43+ "fourmolu",
44+ "ormolu",
45+ "stylish-haskell",
46+ "none"
47+ ],
48+ "default": "ormolu",
49+ "description": "The formatter to use when formatting a document or range. Ensure the plugin is enabled."
50+ },
51+ {
52+ "key": "haskell.checkProject",
53+ "title": "Check whole project",
54+ "type": "boolean",
55+ "default": false,
56+ "description": "Whether to typecheck the entire project on load. It could lead to bad perfomance in large projects."
57+ },
58+ {
59+ "title": "Completions",
5360 "type": "section",
54− "title": "Import lens",
55− "description": "Not currently implemented in Nova",
56− "children": [{
57− "key": "haskell.plugin.importLens.codeActionsOn",
58− "title": "Enable code actions",
59− "type": "boolean",
61+ "children": [
62+ {
63+ "key": "haskell.plugin.ghcide-completions.config.autoExtendOn",
64+ "title": "Extend with out-of-scope identifiers",
65+ "description": "Extends the import list automatically when completing a out-of-scope identifier",
6066 "default": true,
61− "description": "Enables explicit imports code actions"
62− }, {
63− "key": "haskell.plugin.importLens.codeLensOn",
64− "title": "Enable code lens",
65− "type": "boolean",
67+ "type": "boolean"
68+ },
69+ {
70+ "key": "haskell.plugin.ghcide-completions.config.snippetsOn",
71+ "title": "Insert snippets",
72+ "description": "Inserts snippets when using code completions",
6673 "default": true,
67− "description": "Enables explicit imports code lenses"
74+ "type": "boolean"
75+ },
76+ {
77+ "key": "haskell.maxCompletions",
78+ "type": "number",
79+ "title": "Maximum number of completions",
80+ "description": "Maximum number of completions sent to the editor.",
81+ "default": 40
6882 }]
69− }, {
83+ },
84+ {
7085 "title": "HLint",
7186 "type": "section",
72− "children": [{
87+ "children": [
88+ {
7389 "key": "haskell.plugin.hlint.codeActionsOn",
7490 "title": "Enable code actions",
7591 "type": "boolean",
7692 "default": true,
7793 "description": "Enables hlint code actions (apply hints)"
78− }, {
94+ },
95+ {
7996 "key": "haskell.plugin.hlint.diagnosticsOn",
8097 "title": "Enable diagnostics",
8198 "type": "boolean",
8299 "default": true,
83100 "description": "Enables hlint diagnostics"
84− }, {
85− "title": "Configuration",
86− "type": "section",
87− "children": [{
88− "key": "haskell.plugin.hlint.config.flags",
89− "title": "Flags",
90− "description": "Flags used by hlint",
91− "default": [],
92− "type": "stringArray"
93− }]
101+ },
102+ {
103+ "key": "haskell.plugin.hlint.config.flags",
104+ "title": "Flags",
105+ "description": "Flags used by hlint",
106+ "default": [],
107+ "type": "stringArray"
108+ }]
109+ },
110+ {
111+ "type": "section",
112+ "title": "Import lens",
113+ "description": "Not currently implemented in Nova",
114+ "children": [
115+ {
116+ "key": "haskell.plugin.importLens.codeActionsOn",
117+ "title": "Enable code actions",
118+ "type": "boolean",
119+ "default": true,
120+ "description": "Enables explicit imports code actions"
121+ },
122+ {
123+ "key": "haskell.plugin.importLens.codeLensOn",
124+ "title": "Enable code lens",
125+ "type": "boolean",
126+ "default": true,
127+ "description": "Enables explicit imports code lenses"
94128 }]
95− }, {
129+ },
130+
131+ {
96132 "title": "Eval",
97133 "type": "section",
98− "children": [{
134+ "children": [
135+ {
99136 "key": "haskell.plugin.eval.globalOn",
100137 "title": "Enable",
101138 "type": "boolean",
102139 "default": true,
103140 "description": "Enables eval plugin"
104141 }]
105− }, {
142+ },
143+ {
106144 "title": "Module name",
107145 "type": "section",
108− "children": [{
146+ "children": [
147+ {
109148 "key": "haskell.plugin.moduleName.globalOn",
110149 "title": "Enable",
111150 "type": "boolean",
112151 "default": true,
113152 "description": "Enables module name plugin"
114153 }]
115− }, {
154+ },
155+ {
116156 "title": "Splice",
117157 "type": "section",
118− "children": [{
158+ "children": [
159+ {
119160 "key": "haskell.plugin.splice.globalOn",
120161 "title": "Enable",
121162 "type": "boolean",
122163 "default": true,
123164 "description": "Enables splice plugin (expand template haskell definitions)"
124165 }]
125− }, {
166+ },
167+ {
126168 "title": "Haddock comments",
127169 "type": "section",
128− "children": [{
170+ "children": [
171+ {
129172 "key": "haskell.plugin.haddockComments.globalOn",
130173 "title": "Enable",
131174 "type": "boolean",
132175 "default": true,
133176 "description": "Enables haddock comments plugin"
134177 }]
135− }, {
178+ },
179+ {
136180 "title": "Class",
137181 "type": "section",
138− "children": [{
182+ "children": [
183+ {
139184 "key": "haskell.plugin.class.globalOn",
140185 "title": "Enable",
141186 "type": "boolean",
142187 "default": true,
143188 "description": "Enables type class plugin"
144189 }]
145− }, {
190+ },
191+ {
146192 "title": "Retrie",
147193 "type": "section",
148− "children": [{
194+ "children": [
195+ {
149196 "key": "haskell.plugin.retrie.globalOn",
150197 "title": "Enable",
151198 "type": "boolean",
152199 "default": true,
153200 "description": "Enables retrie plugin"
154201 }]
155− }, {
202+ },
203+ {
156204 "title": "Wingman",
157205 "type": "section",
158− "children": [{
206+ "children": [
207+ {
159208 "key": "haskell.plugin.tactics.globalOn",
160209 "title": "Enable",
161210 "type": "boolean",
162211 "default": true,
163212 "description": "Enables Wingman (tactics) plugin"
164− }, {
165− "title": "Configuration",
166− "type": "section",
167− "children": [{
168− "key": "haskell.plugin.tactics.config.auto_gas",
169− "title": "Gas",
170− "description": "The depth of the search tree when performing \"Attempt to fill hole\". Bigger values will be able to derive more solutions, but will take exponentially more time.",
171− "default": 4,
172− "type": "number"
173− }, {
174− "key": "haskell.plugin.tactics.config.hole_severity",
175− "title": "Hole severity",
176− "description": "The severity to use when showing hole diagnostics.",
177− "values": [
178− 1,
179− 2,
180− 3,
181− 4,
182− null
183− ],
184− "default": null,
185− "type": "enum"
186− }, {
187− "key": "haskell.plugin.tactics.config.max_use_ctor_actions",
188− "title": "Max number of constructors",
189− "type": "number",
190− "default": 5,
191− "description": "Maximum number of `Use constructor <x>` code actions that can appear"
192− }, {
193− "key": "haskell.plugin.tactics.config.timeout_duration",
194− "title": "Timeout",
195− "description": "The timeout for Wingman actions, in seconds",
196− "default": 2,
197− "type": "number"
198− }, {
199− "key": "haskell.plugin.tactics.config.proofstate_styling",
200− "title": "Proof states",
201− "description": "Should Wingman emit styling markup when showing metaprogram proof states?",
202− "default": true,
203− "type": "boolean"
204− }]
213+ },
214+ {
215+ "key": "haskell.plugin.tactics.config.auto_gas",
216+ "title": "Gas",
217+ "description": "The depth of the search tree when performing \"Attempt to fill hole\". Bigger values will be able to derive more solutions, but will take exponentially more time.",
218+ "default": 4,
219+ "type": "number"
220+ },
221+ {
222+ "key": "haskell.plugin.tactics.config.hole_severity",
223+ "title": "Hole severity",
224+ "description": "The severity to use when showing hole diagnostics.",
225+ "values": [
226+ 1,
227+ 2,
228+ 3,
229+ 4,
230+ null
231+ ],
232+ "default": null,
233+ "type": "enum"
234+ },
235+ {
236+ "key": "haskell.plugin.tactics.config.max_use_ctor_actions",
237+ "title": "Max number of constructors",
238+ "type": "number",
239+ "default": 5,
240+ "description": "Maximum number of `Use constructor <x>` code actions that can appear"
241+ },
242+ {
243+ "key": "haskell.plugin.tactics.config.timeout_duration",
244+ "title": "Timeout",
245+ "description": "The timeout for Wingman actions, in seconds",
246+ "default": 2,
247+ "type": "number"
248+ },
249+ {
250+ "key": "haskell.plugin.tactics.config.proofstate_styling",
251+ "title": "Proof states",
252+ "description": "Should Wingman emit styling markup when showing metaprogram proof states?",
253+ "default": true,
254+ "type": "boolean"
205255 }]
206− }, {
256+ },
257+ {
207258 "title": "Pragmas",
208259 "type": "section",
209− "children": [{
260+ "children": [
261+ {
210262 "key": "haskell.plugin.pragmas.codeActionsOn",
211263 "title": "Enable code actions",
212264 "type": "boolean",
213265 "default": true,
214266 "description": "Enables pragmas code actions"
215− }, {
267+ },
268+ {
216269 "key": "haskell.plugin.pragmas.completionOn",
217270 "title": "Enable completions",
218271 "type": "boolean",
219272 "default": true,
220273 "description": "Enables pragmas completions"
221274 }]
222− }, {
223− "title": "Completions",
224− "type": "section",
225− "children": [{
226− "title": "Configuration",
227− "type": "section",
228− "children": [{
229− "key": "haskell.plugin.ghcide-completions.config.autoExtendOn",
230− "title": "Extend with out-of-scope identifiers",
231− "description": "Extends the import list automatically when completing a out-of-scope identifier",
232− "default": true,
233− "type": "boolean"
234− }, {
235− "key": "haskell.plugin.ghcide-completions.config.snippetsOn",
236− "title": "Insert snippets",
237− "description": "Inserts snippets when using code completions",
238− "default": true,
239− "type": "boolean"
240− }]
241− }]
242− }, {
275+ },
276+ {
277+ "title": "Type lenses",
243278 "description": "Not currently implemented in Nova",
244279 "type": "section",
245− "children": [{
280+ "children": [
281+ {
246282 "key": "haskell.plugin.ghcide-type-lenses.globalOn",
247283 "title": "Enable",
248284 "type": "boolean",
249285 "default": true,
250286 "description": "Enables type lenses plugin"
251− }, {
252− "title": "Configuration",
253− "type": "section",
254− "children": [{
255− "key": "haskell.plugin.ghcide-type-lenses.config.mode",
256− "title": "Mode",
257− "type": "enum",
258− "default": true,
259− "description": "Control how type lenses are shown",
260− "values": ["always", "exported", "diagnostics"]
261− }]
287+ },
288+ {
289+ "key": "haskell.plugin.ghcide-type-lenses.config.mode",
290+ "title": "Mode",
291+ "type": "enum",
292+ "default": true,
293+ "description": "Control how type lenses are shown",
294+ "values": ["always", "exported", "diagnostics"]
262295 }]
263− }, {
296+ },
297+ {
264298 "title": "Refine imports",
265299 "type": "section",
266− "children": [{
300+ "children": [
301+ {
267302 "key": "haskell.plugin.refineImports.globalOn",
268303 "title": "Enable",
269304 "type": "boolean",
270305 "default": true,
271306 "description": "Enables refine imports plugin"
272307 }]
273− }]
274− }]
308+ }
309+ ]
275310 }],
276311 "activationEvents": ["onLanguage:haskell", "onLanguage:hs"],
277− "commands": {
278− "editor": [{
312+ "commands":
313+ {
314+ "editor": [
315+ {
279316 "title": "Format file with Haskell Language Server",
280317 "command": "format",
281318 "when": "editorSyntax == 'haskell' && editorHasFocus",
282− "filters": {
319+ "filters":
320+ {
283321 "syntaxes": ["haskell"]
284322 }
285323 }],
286− "extensions": [{
324+ "extensions": [
325+ {
287326 "title": "Stop",
288327 "paletteTitle": "Stop Haskell Language Server",
289328 "command": "stop"
290− }, {
329+ },
330+ {
291331 "title": "Restart",
292332 "paletteTitle": "Restart Haskell Language Server",
293333 "command": "restart"
294− }, {
334+ },
335+ {
295336 "title": "Clear cached versions",
296337 "paletteTitle": "Clear cached versions of Haskell Language Server",
297338 "command": "clear-cache"