diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-05 12:44:33 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-05 12:44:33 -0700 |
commit | 8b94832ca03015061f4bc43ddcc52d6b2fb39919 (patch) | |
tree | ce0b68d3edd35e0104af2871b980d0aaecd8a0fc /src/property/apt.lisp | |
parent | 86d66d10eb4db322082eb741e19ea27d6741022d (diff) | |
download | consfigurator-8b94832ca03015061f4bc43ddcc52d6b2fb39919.tar.gz |
APT:USES-PARENT-{PROXY,MIRROR}: error if parent has no proxy/mirror
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/apt.lisp')
-rw-r--r-- | src/property/apt.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/property/apt.lisp b/src/property/apt.lisp index e38fa85..2ba27bd 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -145,7 +145,8 @@ only upgrade Debian stable." (defproplist uses-parent-mirror :posix () (:desc #?"Uses parent's apt mirror") - (mirror (get-parent-hostattrs-car :apt.mirror))) + (mirror (or (get-parent-hostattrs-car :apt.mirror) + (failed-change "Parent has no apt mirror")))) (defprop proxy :posix (uri) (:desc #?"${uri} apt proxy selected") @@ -157,7 +158,8 @@ only upgrade Debian stable." (defproplist uses-parent-proxy :posix () (:desc #?"Uses parent's apt proxy") - (proxy (get-parent-hostattrs-car :apt.proxy))) + (proxy (or (get-parent-hostattrs-car :apt.proxy) + (failed-change "Parent has no apt proxy")))) (defproplist uses-local-cacher :posix () (:desc "apt uses local apt cacher") |