@@ -110,27 +110,27 @@ async function getProjectGhcVersion(
110110 return window . withProgress (
111111 {
112112 location : ProgressLocation . Notification ,
113- title : title ,
113+ title : ` ${ title } ` ,
114114 cancellable : true ,
115115 } ,
116116 async ( progress , token ) => {
117117 return new Promise < string > ( ( resolve , reject ) => {
118118 const command : string = wrapper + ' --project-ghc-version' ;
119- logger . info ( ' Executing ` ${command}` in cwd ${dir} to get the project ghc version' ) ;
119+ logger . info ( ` Executing ' ${ command } ' in cwd ${ dir } to get the project ghc version` ) ;
120120 token . onCancellationRequested ( ( ) => {
121- logger . warn ( ' User canceled the executon of ` ${command}`' ) ;
121+ logger . warn ( ` User canceled the executon of ' ${ command } '` ) ;
122122 } ) ;
123123 // Need to set the encoding to 'utf8' in order to get back a string
124124 // We execute the command in a shell for windows, to allow use cmd or bat scripts
125- let childProcess = child_process
125+ const childProcess = child_process
126126 . execFile (
127127 command ,
128- { encoding : 'utf8' , cwd : dir , shell : getGithubOS ( ) == 'Windows' } ,
128+ { encoding : 'utf8' , cwd : dir , shell : getGithubOS ( ) === 'Windows' } ,
129129 ( err , stdout , stderr ) => {
130130 if ( err ) {
131- logger . error ( ' Error executing ` ${command}` with error code ${err.code}' ) ;
132- logger . error ( ' stderr: ${stderr}' ) ;
133- logger . error ( ' stdout: ${stdout}' ) ;
131+ logger . error ( ` Error executing ' ${ command } ' with error code ${ err . code } ` ) ;
132+ logger . error ( ` stderr: ${ stderr } ` ) ;
133+ logger . error ( ` stdout: ${ stdout } ` ) ;
134134 const regex = / C r a d l e r e q u i r e s ( .+ ) b u t c o u l d n ' t f i n d i t / ;
135135 const res = regex . exec ( stderr ) ;
136136 if ( res ) {
@@ -144,10 +144,10 @@ async function getProjectGhcVersion(
144144 }
145145 )
146146 . on ( 'close' , ( code , signal ) => {
147- logger . info ( ' Execution of ` ${command}` closed with code ${err. code} and signal ${signal}' ) ;
147+ logger . info ( ` Execution of ' ${ command } ' closed with code ${ code } and signal ${ signal } ` ) ;
148148 } )
149149 . on ( 'error' , ( err ) => {
150- logger . error ( ' Error execution ` ${command}` : name = ${err.name}, message = ${err.message}' ) ;
150+ logger . error ( ` Error executing ' ${ command } ' : name = ${ err . name } , message = ${ err . message } ` ) ;
151151 throw err ;
152152 } ) ;
153153 token . onCancellationRequested ( ( _ ) => childProcess . kill ( ) ) ;
@@ -305,8 +305,8 @@ export async function downloadHaskellLanguageServer(
305305 window . showErrorMessage ( message ) ;
306306 return null ;
307307 }
308- logger . info ( ' The latest release is ${release.tag_name}' ) ;
309- logger . info ( ' Figure out the ghc version to use or advertise an installation link for missing components' ) ;
308+ logger . info ( ` The latest release is ${ release . tag_name } ` ) ;
309+ logger . info ( ` Figure out the ghc version to use or advertise an installation link for missing components` ) ;
310310 const dir : string = folder ?. uri ?. fsPath ?? path . dirname ( resource . fsPath ) ;
311311 let ghcVersion : string ;
312312 try {
@@ -333,10 +333,12 @@ export async function downloadHaskellLanguageServer(
333333 // When searching for binaries, use startsWith because the compression may differ
334334 // between .zip and .gz
335335 const assetName = `haskell-language-server-${ githubOS } -${ ghcVersion } ${ exeExt } ` ;
336- logger . info ( ' Search for binary ${assetName} in release assests' ) ;
336+ logger . info ( ` Search for binary ${ assetName } in release assests` ) ;
337337 const asset = release ?. assets . find ( ( x ) => x . name . startsWith ( assetName ) ) ;
338338 if ( ! asset ) {
339- logger . error ( 'No binary ${assetName} found in the release assets: ' + release ?. assets . map ( ( value ) => value . name ) ) ;
339+ logger . error (
340+ `No binary ${ assetName } found in the release assets: ${ release ?. assets . map ( ( value ) => value . name ) . join ( ',' ) } `
341+ ) ;
340342 window . showInformationMessage ( new NoBinariesError ( release . tag_name , ghcVersion ) . message ) ;
341343 return null ;
342344 }
@@ -348,7 +350,7 @@ export async function downloadHaskellLanguageServer(
348350 logger . info ( title ) ;
349351 await downloadFile ( title , asset . browser_download_url , binaryDest ) ;
350352 if ( ghcVersion . startsWith ( '9.' ) ) {
351- let warning =
353+ const warning =
352354 'Currently, HLS supports GHC 9 only partially. ' +
353355 'See [issue #297](https://github.com/haskell/haskell-language-server/issues/297) for more detail.' ;
354356 logger . warn ( warning ) ;
0 commit comments