git.iko.soy/haskell-nova
on 2eda210 help sign in
7882415
swap
0 ahead, 3 behind
3 files changed+11−34
since splitsnapshots
unifiedsplit
Haskell Language Server.novaextension/Scripts/download.js+1−3 Haskell Language Server.novaextension/Scripts/utils.js−2 Haskell Language Server.novaextension/Syntaxes/Haskell.xml+10−29
Haskell Language Server.novaextension/Scripts/download.js+1−3
@@ -45,9 +45,6 @@ async function downloadTool(name) {
4545 const storagePath = getStorageForTool(name);
4646 console.log("Downloading " + storagePath);
4747 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− }
5148 const response = await fetch(urls[name]);
5249 if (!response.ok) {
5350 console.error(response.statusText);
@@ -197,3 +194,4 @@ function which(name) {
197194 shell: true,
198195 }).then((p) => p.trim())
199196}
197+
Haskell Language Server.novaextension/Scripts/utils.js−2
@@ -120,8 +120,6 @@ async function createEnv() {
120120 const envStr = await promise
121121 .catch((err) => sendPermanentNotification("Generating environment failed", err))
122122 envCache = parseEnvs(envStr)
123− } else {
124− envCache = {}
125123 }
126124}
127125
Haskell Language Server.novaextension/Syntaxes/Haskell.xml+10−29
@@ -65,6 +65,7 @@
6565
6666 <template-scopes>
6767 <include syntax="self" collection="Quote" />
68+ <include syntax="self" collection="comments" />
6869 </template-scopes>
6970
7071 <collections>
@@ -136,7 +137,6 @@
136137 <capture number="1" name="haskell.pattern.record.bracket" />
137138 </ends-with>
138139 <subscopes>
139− <include syntax="self" collection="comments" />
140140 <include syntax="self" collection="expressions" />
141141 <scope name="record-sep">
142142 <expression>=</expression>
@@ -159,7 +159,6 @@
159159 <capture number="1" name="haskell.pattern.record.bracket" />
160160 </ends-with>
161161 <subscopes>
162− <include syntax="self" collection="comments" />
163162 <scope name="haskell.pattern.record.wildcard">
164163 <expression>\.\.</expression>
165164 </scope>
@@ -186,7 +185,6 @@
186185 <capture number="1" name="haskell.list.bracket" />
187186 </ends-with>
188187 <subscopes>
189− <include syntax="self" collection="comments" />
190188 <include syntax="self" collection="expressions" />
191189 </subscopes>
192190 </scope>
@@ -241,7 +239,6 @@
241239 <capture number="1" name="haskell.tuple.bracket" />
242240 </ends-with>
243241 <subscopes>
244− <include syntax="self" collection="comments" />
245242 <include syntax="self" collection="expressions" />
246243 </subscopes>
247244 </scope>
@@ -266,7 +263,6 @@
266263 <expression>(?=(where|^\s*$))</expression>
267264 </ends-with>
268265 <subscopes>
269− <include syntax="self" collection="comments" />
270266 <include syntax="self" collection="type" />
271267 </subscopes>
272268 </scope>
@@ -346,7 +342,6 @@
346342 <template>^(?!\s+\1\S)(?!\s*$)</template>
347343 </ends-with>
348344 <subscopes>
349− <include syntax="self" collection="comments" />
350345 <include syntax="self" collection="type" optional="true" repeat="true" />
351346 <scope>
352347 <expression>=</expression>
@@ -370,7 +365,6 @@
370365 <template>^(?!\1\3\s)(?!\s+\1\S)(?!\s*$)</template>
371366 </ends-with>
372367 <subscopes>
373− <include syntax="self" collection="comments" />
374368 <include syntax="self" collection="type-annotation" />
375369 <include syntax="self" collection="implementation" />
376370 </subscopes>
@@ -388,7 +382,6 @@
388382 <template>^(?!\1\3\s)(?!\s+\1\S)(?!\s*$)</template>
389383 </ends-with>
390384 <subscopes>
391− <include syntax="self" collection="comments" />
392385 <include syntax="self" collection="pattern-match" optional="true" repeat="true" />
393386 <scope>
394387 <expression>=</expression>
@@ -410,7 +403,6 @@
410403 <template>^(?!\s+\1\S)(?!\s*$)</template>
411404 </ends-with>
412405 <subscopes>
413− <include syntax="self" collection="comments" />
414406 <include syntax="self" collection="type" />
415407 </subscopes>
416408 </scope>
@@ -430,7 +422,6 @@
430422 <template>^(?!\s+\1\S)(?!\s*$)</template>
431423 </ends-with>
432424 <subscopes>
433− <include syntax="self" collection="comments" />
434425 <include syntax="self" collection="type" />
435426 </subscopes>
436427 </scope>
@@ -450,7 +441,6 @@
450441 <template>^(?!\s+\1\S)(?!\s*$)</template>
451442 </ends-with>
452443 <subscopes>
453− <include syntax="self" collection="comments" />
454444 <scope name="haskell.keyword.construct.where">
455445 <expression>where</expression>
456446 </scope>
@@ -484,7 +474,6 @@
484474 <expression>deriving(\h+(newtype|stock|anyclass))?</expression>
485475 </scope>
486476 <scope name="haskell.record.construct.deriving.keyword">
487− <include syntax="self" collection="comments" />
488477 <expression>via</expression>
489478 </scope>
490479 </collection>
@@ -503,7 +492,6 @@
503492 <capture number="1" name="haskell.record.bracket" />
504493 </ends-with>
505494 <subscopes>
506− <include syntax="self" collection="comments" />
507495 <include syntax="self" collection="record-definition-field-name" />
508496 <include syntax="self" collection="type" />
509497 </subscopes>
@@ -535,7 +523,6 @@
535523 <expression>\)</expression>
536524 </ends-with>
537525 <subscopes>
538− <include syntax="self" collection="comments" />
539526 <scope name="haskell.construct.type.typle.comma">
540527 <expression>\,</expression>
541528 </scope>
@@ -550,7 +537,6 @@
550537 <expression>\]</expression>
551538 </ends-with>
552539 <subscopes>
553− <include syntax="self" collection="comments" />
554540 <include syntax="self" collection="type" />
555541 </subscopes>
556542 </scope>
@@ -585,7 +571,6 @@
585571 <template>^(?!\s+\1\S)(?!\s*$)</template>
586572 </ends-with>
587573 <subscopes>
588− <include syntax="self" collection="comments" />
589574 <scope name="haskell.keyword.construct.where">
590575 <expression>where</expression>
591576 </scope>
@@ -605,7 +590,6 @@
605590 <capture number="1" name="haskell.type-list.bracket" />
606591 </ends-with>
607592 <subscopes>
608− <include syntax="self" collection="comments" />
609593 <include syntax="self" collection="type" />
610594 </subscopes>
611595 </scope>
@@ -622,7 +606,6 @@
622606 <capture number="1" name="haskell.keyword.construct.lambda" />
623607 </ends-with>
624608 <subscopes>
625− <include syntax="self" collection="comments" />
626609 <include syntax="self" collection="pattern-match" />
627610 </subscopes>
628611 </scope>
@@ -644,7 +627,6 @@
644627 <template>^(?!\1\s*\S)(?!s*$)</template>
645628 </ends-with>
646629 <subscopes>
647− <include syntax="self" collection="comments" />
648630 <include syntax="self" collection="definition" />
649631 </subscopes>
650632 </scope>
@@ -684,12 +666,12 @@
684666
685667
686668 <collection name="strings">
687− <scope name="haskell.string.double-quoted" spell-check="true">
669+ <scope name="haskell.string.double-quoted">
688670 <starts-with>
689− <expression>&quot;</expression>
671+ <expression>"</expression>
690672 </starts-with>
691673 <ends-with>
692− <expression>&quot;</expression>
674+ <expression>"</expression>
693675 </ends-with>
694676 <subscopes>
695677 <scope name="haskell.string.escape-sequences">
@@ -726,7 +708,6 @@
726708 </ends-with>
727709 <subscopes>
728710 <scope name="identifier.haskell.type">
729− <symbol type="expression" />
730711 <symbol type="expression" />
731712 <expression>([A-Z](\w|')*)\h*(\(\h*\.\.\h*\))?</expression>
732713 <capture number="1" name="identifier.type" />
@@ -751,7 +732,6 @@
751732 </ends-with>
752733 <subscopes>
753734 <scope name="haskell.construct.qualified">
754− <symbol type="expression" />
755735 <expression>qualified</expression>
756736 <capture number="0" name="haskell.construct.keyword.qualified" />
757737 </scope>
@@ -769,7 +749,6 @@
769749 </ends-with>
770750 <subscopes anchored="true">
771751 <include syntax="self" collection="import-list" />
772− <symbol type="expression" />
773752 </subscopes>
774753 </scope>
775754
@@ -803,7 +782,6 @@
803782 </ends-with>
804783 <subscopes>
805784 <scope name="haskell.identifier.struct">
806− <symbol type="expression" />
807785 <symbol type="reference" scope="local" />
808786 <expression>([A-Z](\w|')*)\h*(\(\h*\.\.\h*\))?</expression>
809787 <capture number="1" name="haskell.import-list.identifier.type.name" />
@@ -873,11 +851,14 @@
873851
874852 <collection name="comments">
875853 <scope name="haskell.comment.single" spell-check="true">
876− <symbol type="comment" />
877− <expression> --.*$</expression>
854+ <starts-with>
855+ <expression>--</expression>
856+ </starts-with>
857+ <ends-with>
858+ <expression>$</expression>
859+ </ends-with>
878860 </scope>
879861 <scope name="haskell.comment.block" spell-check="true">
880− <symbol type="comment" />
881862 <starts-with>
882863 <expression>{-</expression>
883864 </starts-with>