Commit 6e794d15 authored by Dave Cooper's avatar Dave Cooper
Browse files

give proper error for missing static folder

parent 3d0d75c7
Pipeline #7357 passed with stages
in 5 minutes and 19 seconds
......@@ -125,10 +125,10 @@ give to this object.
(the static-folders)
(probe-file (the application-source-home))
(mapcar #'(lambda(subdir)
(let ((path (probe-file
(merge-pathnames (format nil "~a/" subdir)
(the application-source-home)))))
(or path (error "~s does not exist.~%" path))))(the static-folders))))
(let ((path (merge-pathnames (format nil "~a/" subdir)
(the application-source-home))))
(or (probe-file path)
(error "~s does not exist.~%" path))))(the static-folders))))
(deploy-target-toplevel "/opt/")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment