diff options
| author | jgart <jgart@dismail.de> | 2026-02-10 13:41:10 -0500 |
|---|---|---|
| committer | jgart <jgart@dismail.de> | 2026-02-10 20:04:19 -0500 |
| commit | a1c141e34253a19c3fdefe5afbb9c43a6934862c (patch) | |
| tree | 3bb7f68e0512d96f94177ddb0b628dad7f25ecab | |
| parent | 30d4846e2afb1efe1c65eb09d44fe404da88677b (diff) | |
home: services: Format let block in helper function.
* gnu/home/services/sway.scm (services): Format let block in helper function.
Change-Id: I9ce14f33cb52ab97e0af129aad12d65bfdd70495
| -rw-r--r-- | gnu/home/services/sway.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/home/services/sway.scm b/gnu/home/services/sway.scm index fcddbdbea20..e9a488f1caa 100644 --- a/gnu/home/services/sway.scm +++ b/gnu/home/services/sway.scm | |||
| @@ -104,7 +104,8 @@ | |||
| 104 | 104 | ||
| 105 | ;; Helper function. | 105 | ;; Helper function. |
| 106 | (define (flatmap f l) | 106 | (define (flatmap f l) |
| 107 | (let loop ((lst (reverse l)) (acc '())) | 107 | (let loop ((lst (reverse l)) |
| 108 | (acc '())) | ||
| 108 | (match lst | 109 | (match lst |
| 109 | (() acc) | 110 | (() acc) |
| 110 | ((head . tail) | 111 | ((head . tail) |