don't set permissions on windows, for now

(at some point hopefully we'll figure out
what's the right behavior here)

This is related to pull request #1060
This commit is contained in:
Robby Findler 2015-09-22 09:00:55 -05:00
parent 35a0f0c71c
commit 45b635f707

View File

@ -955,9 +955,8 @@
(copy-file (build-path (tmp-info-dir tmp) location)
dest-file
#t)])
(if (eq? 'windows (system-type 'os))
(file-or-directory-permissions dest-file #o755)
(file-or-directory-permissions dest-file perms)))
(unless (equal? 'windows (system-type 'os))
(file-or-directory-permissions dest-file perms)))
;; object->bytes : tmp-info location -> bytes
(define (object->bytes tmp location)