monitoring: Remove current-df-command parameter.

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)