diff options
| -rw-r--r-- | tojo-tokyo/monitoring.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tojo-tokyo/monitoring.scm b/tojo-tokyo/monitoring.scm index 4f8ecf7..c9e34a1 100644 --- a/tojo-tokyo/monitoring.scm +++ b/tojo-tokyo/monitoring.scm @@ -23,7 +23,6 @@ #:use-module ((srfi srfi-1) #:select (any)) #:use-module (web client)) -(define-public current-df-command (make-parameter "df")) (define-public current-heartbeat-url (make-parameter (let ((heartbeat-file "/etc/heartbeat-url")) @@ -32,7 +31,7 @@ "https://heartbeat.test")))) (define (df) - (let ((port (open-input-pipe (current-df-command)))) + (let ((port (open-input-pipe "df"))) (get-line port) (let f ((line (get-line port))) (cond ((eof-object? line) |