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

@@ -27,27 +27,38 @@
 ;;
 
 
-(define-record-type* <cloudflare-tunnel-configuration>
+(define-configuration/no-serialization cloudflare-tunnel-configuration
-  cloudflare-tunnel-configuration make-cloudflare-tunnel-configuration
+  (cloudflared
-  cloudflare-tunnel-configuration?
+   (string "/bin/cloudflared")
-  (cloudflared   cloudflare-tunnel-configuration-cloudflared   ;string
+   "The cloudflared executable.")
-                 (default "/bin/cloudflared"))
+
-  ;; Tunnel command options
+  ;; Tunnel options
-  (metrics       cloudflare-tunnel-configuration-metrics       ;string
+  (metrics
-                 (default "localhost:"))
+   (string "localhost:")
-  (log-level     cloudflare-tunnel-configuration-log-level     ;string
+   "Listen address for metrics reporting.")
-                 (default "info"))
+  (log-level
-  (log-file      cloudflare-tunnel-configuration-log-file      ;string
+   (string "info")
-                 (default "/var/log/cloudflared.log"))
+   "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
+  (token
-                 (default #f))
+   (string "")
-  (http2-origin? cloudflare-tunnel-configuration-http2-origin? ;boolean
+   "The Tunnel token.")
-                 (default #f))
+  (http2-origin?
-  (post-quantum? cloudflare-tunnel-configuration-post-quantum? ;boolean
+   (boolean #f)
-                 (default #f))
+   "Enable HTTP/2 origin servers.")
-  (extra-options cloudflare-tunnel-configuration-extra-options ;list of string
+  (post-quantum?
-                 (default '())))
+   (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))