summaryrefslogtreecommitdiff
path: root/suweren/trezor.scm
diff options
context:
space:
mode:
authorMarek Paśnikowski <marek@marekpasnikowski.pl>2025-03-21 11:40:25 +0100
committerMarek Paśnikowski <marek@marekpasnikowski.pl>2025-03-21 11:42:11 +0100
commit4df0a5e10b23f14e22cfa5b6ca7b129e4111ce5f (patch)
tree8fd465ffb44d747d6dbb7c6b1f382d99cc480daf /suweren/trezor.scm
parent6cb6c1e090f43d3cdd46b9697f23d50ec547da60 (diff)
trezor: clean up formatting
Diffstat (limited to 'suweren/trezor.scm')
-rw-r--r--suweren/trezor.scm45
1 files changed, 24 insertions, 21 deletions
diff --git a/suweren/trezor.scm b/suweren/trezor.scm
index d0227a9..8448bdf 100644
--- a/suweren/trezor.scm
+++ b/suweren/trezor.scm
@@ -6,30 +6,33 @@
#:use-module (guix gexp))
(define-public trezor-bridge
- (let* ((service-executable (file-append trezord
- "/bin/trezord-go"))
+ (let*
+ ( (service-executable (file-append trezord
+ "/bin/trezord-go"))
- (start-command #~ (list #$ service-executable))
+ (start-command #~ (list #$ service-executable))
- (shepherd-symbols (list 'trezor-bridge))
- (start-process #~ (make-forkexec-constructor #$ start-command))
- (stop-process #~ (make-kill-destructor))
+ (shepherd-symbols (list 'trezor-bridge))
+ (start-process #~ (make-forkexec-constructor #$ start-command))
+ (stop-process #~ (make-kill-destructor))
- (profile-extension (list trezord))
- (shepherd-extension (shepherd-service (provision shepherd-symbols)
- (start start-process)
- (stop stop-process)))
+ (profile-extension (list trezord))
+ (shepherd-extension
+ (shepherd-service
+ (provision shepherd-symbols)
+ (start start-process)
+ (stop stop-process)))
- (shepherd-extension* (list shepherd-extension))
+ (shepherd-extension* (list shepherd-extension))
- (profile-service (simple-service 'trezor-bridge-profile
- profile-service-type
- profile-extension))
- (shepherd-service* (simple-service 'trezor-bridge-shepherd
- shepherd-root-service-type
- shepherd-extension*))
- (udev-service* (udev-rules-service 'trezor-bridge-udev
- trezord-udev-rules)))
+ (profile-service (simple-service 'trezor-bridge-profile
+ profile-service-type
+ profile-extension))
+ (shepherd-service* (simple-service 'trezor-bridge-shepherd
+ shepherd-root-service-type
+ shepherd-extension*))
+ (udev-service* (udev-rules-service 'trezor-bridge-udev
+ trezord-udev-rules)))
(list profile-service
- udev-service*
- shepherd-service*)))
+ udev-service*
+ shepherd-service*)))