From 6dc8bbfa043d6e25927df17e66aaf47bb40db555 Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Thu, 1 Dec 2022 22:47:18 +0800
Subject: [PATCH] services: cloudflare-tunnel-configuration: Define with
 `define-configuration`.

* rosenthal/services/child-error.scm (cloudflare-tunnel-configuration): Change
to `define-configuration` form.
---
 rosenthal/services/child-error.scm | 51 ++++++++++++++++++------------
 1 file changed, 31 insertions(+), 20 deletions(-)

diff --git a/rosenthal/services/child-error.scm b/rosenthal/services/child-error.scm
index 1f99d52..52157b4 100644
--- a/rosenthal/services/child-error.scm
+++ b/rosenthal/services/child-error.scm
@@ -27,27 +27,38 @@
 ;;
 
 
-(define-record-type* <cloudflare-tunnel-configuration>
-  cloudflare-tunnel-configuration make-cloudflare-tunnel-configuration
-  cloudflare-tunnel-configuration?
-  (cloudflared   cloudflare-tunnel-configuration-cloudflared   ;string
-                 (default "/bin/cloudflared"))
-  ;; Tunnel command options
-  (metrics       cloudflare-tunnel-configuration-metrics       ;string
-                 (default "localhost:"))
-  (log-level     cloudflare-tunnel-configuration-log-level     ;string
-                 (default "info"))
-  (log-file      cloudflare-tunnel-configuration-log-file      ;string
-                 (default "/var/log/cloudflared.log"))
+(define-configuration/no-serialization cloudflare-tunnel-configuration
+  (cloudflared
+   (string "/bin/cloudflared")
+   "The cloudflared executable.")
+
+  ;; Tunnel options
+  (metrics
+   (string "localhost:")
+   "Listen address for metrics reporting.")
+  (log-level
+   (string "info")
+   "Application logging level (@code{debug}, @code{info}, @code{warn},
+@code{error}, @code{fatal}).  At debug level cloudflared will log request URL,
+method, protocol, content length, as well as, all request and response
+headers.  This can expose sensitive information in your logs.")
+  (log-file
+   (string "/var/log/cloudflared.log")
+   "File path to store logs.")
+
   ;; Subcommand options
-  (token         cloudflare-tunnel-configuration-token         ;string
-                 (default #f))
-  (http2-origin? cloudflare-tunnel-configuration-http2-origin? ;boolean
-                 (default #f))
-  (post-quantum? cloudflare-tunnel-configuration-post-quantum? ;boolean
-                 (default #f))
-  (extra-options cloudflare-tunnel-configuration-extra-options ;list of string
-                 (default '())))
+  (token
+   (string "")
+   "The Tunnel token.")
+  (http2-origin?
+   (boolean #f)
+   "Enable HTTP/2 origin servers.")
+  (post-quantum?
+   (boolean #f)
+   "Create an experimental post-quantum secure tunnel.")
+  (extra-options
+   (list-of-strings '())
+   "List of extra options."))
 
 (define %cloudflare-tunnel-accounts
   (list (user-group (name "cloudflared") (system? #t))