From 15d2d539a19e6305b5ae7a6819e90288e48d4e96 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Sat, 11 Sep 2021 01:44:14 +0900
Subject: monitoring: Remove current-df-command parameter.

---
 tojo-tokyo/monitoring.scm | 3 +--
 1 file changed, 1 insertion(+), 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)
-- 
cgit v1.2.3