diff options
Diffstat (limited to 'px')
| -rw-r--r-- | px/services/device.scm | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/px/services/device.scm b/px/services/device.scm index 64036fc..b9150fa 100644 --- a/px/services/device.scm +++ b/px/services/device.scm @@ -29,8 +29,6 @@ px-user-identity-configuration? px-user-identity-service-type - px-enterprise-channels-service - px-device-runner-configuration px-device-runner-service-type @@ -123,40 +121,6 @@ (default-value (px-user-identity-configuration)))) ;; -;; Pantherx Enterprise Channels Service -;; - -(define (px-enterprise-channels-service channels) - (let ((channel-conf (call-with-output-string (lambda (port) - (pretty-print channels port))))) - (simple-service 'enterprise-channels special-files-service-type - `(("/etc/guix/channels.scm" ,(computed-file "channels.scm" - (with-imported-modules '((guix - build - utils)) - #~(begin - (use-modules - (guix - build - utils)) - (let - ( - (base-dir - (dirname #$output))) - - - (mkdir-p - base-dir) - (call-with-output-file #$output - (lambda - (port) - - - (format - port - #$channel-conf)))))))))))) - -;; ;; Device Runner Service ;; |