aboutsummaryrefslogtreecommitdiff
path: root/src/data.lisp
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-03-27 16:45:33 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-03-27 17:04:28 -0700
commit563ecad0707ff24709e87e7c2fee4d86e5d33444 (patch)
treeedcbd0521311c3cd97966d24be65e276dd1a72b4 /src/data.lisp
parentbbf1e525bcefddf079f78da23639d40a71b5db00 (diff)
downloadconsfigurator-563ecad0707ff24709e87e7c2fee4d86e5d33444.tar.gz
convert "upload to root Lisp" error into a warning
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r--src/data.lisp5
1 files changed, 0 insertions, 5 deletions
diff --git a/src/data.lisp b/src/data.lisp
index 52bc652..b6feb34 100644
--- a/src/data.lisp
+++ b/src/data.lisp
@@ -254,11 +254,6 @@ calling CONTINUE-DEPLOY* or CONTINUE-DEPLOY*-PROGRAM will need their own
implementation."))
(defmethod connection-upload ((connection connection) (data data))
- (when (subtypep (class-of connection)
- 'consfigurator.connection.local:local-connection)
- (error
- "Attempt to upload data to the root Lisp or reupload to remote Lisp.
-This is not allowed for security reasons."))
(flet ((upload (from to)
(with-open-file (stream from :element-type '(unsigned-byte 8))
(writefile to stream))))