modules/rosenthal/packages/networking.scm

@@ -15,7 +15,7 @@
 (define-public cloudflared
   (package
     (name "cloudflared")
-    (version "2025.4.2")
+    (version "2025.4.0")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -27,7 +27,7 @@
               ;; (snippet '(delete-file-recursively "vendor"))
               (sha256
                (base32
-                "0mblq1zvl7722k3515yc99ym18li39anlcmj8s10m7kkp9yfc596"))))
+                "03bhkd5cgrw2srgh82xv1y95zkpx4v2rqdy9azhv4y7fzz07p89w"))))
     (build-system go-build-system)
     (arguments
      (list #:go go-1.23

modules/rosenthal/services/child-error.scm

@@ -127,8 +127,6 @@
 ;;
 
 
-(define-maybe string)
-
 (define-configuration cloudflare-tunnel-configuration
   (cloudflared
    (file-like cloudflared)
@@ -150,11 +148,8 @@ headers.  This can expose sensitive information in your logs.")
 
   ;; Subcommand options
   (token
-   maybe-string
+   (string "")
    "The Tunnel token.")
-  (token-file
-   maybe-string
-   "Secert file for the Tunnel token.")
   (extra-options
    (list-of-strings '())
    "List of extra options.")
@@ -163,7 +158,7 @@ headers.  This can expose sensitive information in your logs.")
 (define cloudflare-tunnel-shepherd-service
   (match-record-lambda <cloudflare-tunnel-configuration>
       (cloudflared log-level log-file extra-tunnel-options
-                   token token-file extra-options)
+                   token extra-options)
     (list (shepherd-service
            (documentation "Run cloudflared.")
            (provision '(cloudflare-tunnel))
@@ -180,14 +175,7 @@ headers.  This can expose sensitive information in your logs.")
                      #:group "nogroup"
                      #:log-file #$log-file
                      #:environment-variables
-                     (list #$@(if (maybe-value-set? token)
-                                  (list (format #f "TUNNEL_TOKEN=~a"
-                                                token))
-                                  '())
-                           #$@(if (maybe-value-set? token-file)
-                                  (list (format #f "TUNNEL_TOKEN_FILE=~a"
-                                                token-file))
-                                  '()))))
+                     (list (format #f "TUNNEL_TOKEN=~a" #$token))))
            (stop #~(make-kill-destructor))))))
 
 (define cloudflare-tunnel-service-type