File tree Expand file tree Collapse file tree 1 file changed +10
-0
lines changed Expand file tree Collapse file tree 1 file changed +10
-0
lines changed Original file line number Diff line number Diff line change @@ -205,6 +205,15 @@ current runtime."
205
205
" fsautocomplete.netcore.zip"
206
206
" fsautocomplete.zip" )))
207
207
208
+ (defun lsp-fsharp--change-permissions (install-dir-full )
209
+ (unless (eq system-type 'windows-nt ) ; Windows does not have chmod
210
+ (lsp--info " Altering permissions" )
211
+ (dolist (file (directory-files-recursively install-dir-full " " ))
212
+ (if (file-directory-p file)
213
+ (chmod file #o755 )
214
+ (chmod file #o644 )))
215
+ (lsp--info " Finished altering permissions" )))
216
+
208
217
(defun lsp-fsharp--fsac-install (_client callback _error-callback _update? )
209
218
" Download the latest version of fsautocomplete and extract it to `lsp-fsharp-server-install-dir' ."
210
219
(let* ((temp-file (make-temp-file " fsautocomplete" nil " .zip" ))
@@ -216,6 +225,7 @@ current runtime."
216
225
(server-download-url (lsp-fsharp--server-download-url latest-version)))
217
226
(url-copy-file server-download-url temp-file t )
218
227
(shell-command unzip-script)
228
+ (lsp-fsharp--change-permissions install-dir-full)
219
229
(shell-command (format " %s %s --version" (lsp-fsharp--fsac-runtime-cmd) (lsp-fsharp--fsac-cmd)))
220
230
(funcall callback)))
221
231
You can’t perform that action at this time.
0 commit comments