diff options
-rw-r--r-- | src/property/locale.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/property/locale.lisp b/src/property/locale.lisp index 08d8b0f..524a0dc 100644 --- a/src/property/locale.lisp +++ b/src/property/locale.lisp @@ -69,10 +69,10 @@ because it might be required for other applications of this property." (os:required 'os:debianlike)) (:apply (ignoring-hostattrs (available locale)) - (with-change-if-changes-file ("/etc/default/locale") - (run "update-locale" - (mapcar (lambda (v) (strcat v "=" locale)) locale-variables)))) + (with-change-if-changes-file-content ("/etc/default/locale") + (mrun "update-locale" + (mapcar (lambda (v) (strcat v "=" locale)) locale-variables)))) (:unapply (declare (ignore locale)) - (with-change-if-changes-file ("/etc/default/locale") - (run "update-locale" locale-variables)))) + (with-change-if-changes-file-content ("/etc/default/locale") + (mrun "update-locale" locale-variables)))) |