vps.scm: Merge (slurp-trim ...) into (slurp ...)

1 files changed, 6 insertions, 7 deletions

diff --git a/sync/vps.scm b/sync/vps.scm
index 96049fc..4cec65b 100644
--- a/sync/vps.scm
+++ b/sync/vps.scm
@@ -6,25 +6,24 @@
 (define user "andreh")
 
 (define (slurp f)
-  (call-with-input-file f get-string-all))
-
-(define slurp-trim
-  (compose string-trim-both slurp))
+  (string-trim-both
+   (call-with-input-file f get-string-all)))
 
 (define ssh-public-key
-  (slurp-trim "id_rsa.pub"))
+  (slurp "id_rsa.pub"))
 
 (define sudoers "\
 root ALL=(ALL) ALL
 %wheel ALL=NOPASSWD: ALL\n")
 
 (define tld
-  (slurp-trim "tld.txt"))
+  (slurp "tld.txt"))
 
 (define mail-domain
   (string-append "mail." tld))
 
-(define letsencrypt-prefix "/etc/letsencrypt/live/")
+(define letsencrypt-prefix
+  "/etc/letsencrypt/live/")
 
 (define (tls-pub-for domain)
   (string-append letsencrypt-prefix domain "/fullchain.pem"))