diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:40:25 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:40:25 -0700 |
commit | be461462885b987222eef811fef4cd3551a14527 (patch) | |
tree | 8e7fcffc2a50a5ddf325df1b9dd750ee300dd081 /src/data.lisp | |
parent | e969e942985c7a5afdeda3c1d8334c9aa5b2d3d5 (diff) | |
download | consfigurator-be461462885b987222eef811fef4cd3551a14527.tar.gz |
attempt to fix streaming data into remote sudo
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/data.lisp b/src/data.lisp index 48d4142..310ffe0 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -266,7 +266,7 @@ appropriate. Falls back to CONNECTION-WRITEFILE." (mapcar #'find-class (list *connection* t t)) nil)) (connection-upload *connection* from to) - (with-open-file (s from) + (with-open-file (s from :element-type '(unsigned-byte 8)) (connection-writefile *connection* to s)))) (defmethod connection-upload-data :around ((data data)) |