From 21b17211af64d538f3c1fa316f7b58b8e57506c2 Mon Sep 17 00:00:00 2001 From: Elis Odenhage Date: Sat, 28 Sep 2024 21:58:15 +0200 Subject: [PATCH] latest --- package-updates-exporter.ros | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/package-updates-exporter.ros b/package-updates-exporter.ros index 9dc4a4a..9eb4f94 100755 --- a/package-updates-exporter.ros +++ b/package-updates-exporter.ros @@ -40,10 +40,10 @@ exec ros -Q -- $0 "$@" (error "Unknown package manager: ~A" package-manager))))) (defun main (&rest argv) - (let* ((architecture (uiop:run-program "sh" :args '("-c" "uname -m | tr -d '\n'") :output :string)) + (let* ((architecture (uiop:run-program '("uname" "-m") :output :string)) (upgradable (get-upgradable *package-manager*))) (format t "# HELP ~a_upgrades_pending Packages pending updates by origin~%" *package-manager*) (format t "# TYPE ~a_upgrades_pending gauge~%" *package-manager*) - (format t "~a_package_pending_update{arch=\"~a\"} ~d~%" *package-manager* architecture upgradable))) + (format t "~a_package_pending_update{arch=\"~a\"} ~d~%" *package-manager* (string-trim '(#\Newline) architecture) upgradable))) ;;; vim: set ft=lisp lisp: