From 4c95f057493ad4bc080e34efec8d022132404260 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 20 Aug 2022 13:01:56 -0700 Subject: APT:PROXY: make unapplicable Signed-off-by: Sean Whitton --- src/property/apt.lisp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/property/apt.lisp b/src/property/apt.lisp index d73dbdb..f79f87c 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -199,13 +199,11 @@ only upgrade Debian stable." (:desc #?"Uses parent's apt mirror(s), if any") (aand (get-parent-hostattrs :apt.mirrors) `(mirrors ,@it))) -(defprop proxy :posix (uri) +(defproplist proxy :posix (uri) (:desc #?"${uri} apt proxy selected") - (:hostattrs - (pushnew-hostattr :apt.proxy uri)) - (:apply - (file:has-content "/etc/apt/apt.conf.d/20proxy" - (format nil "Acquire::HTTP::Proxy \"~A\";~%" uri)))) + (:hostattrs (pushnew-hostattr :apt.proxy uri)) + (file:exists-with-content "/etc/apt/apt.conf.d/20proxy" + (format nil "Acquire::HTTP::Proxy \"~A\";~%" uri))) (defproplist uses-parent-proxy :posix () (:desc #?"Uses parent's apt proxy") -- cgit v1.2.3