|
|
@@ -78,12 +78,14 @@
|
|
|
(requirement '(httpd mysql))
|
|
|
(documentation "Start serving the MastodonStartpage.")
|
|
|
(start #~(lambda _
|
|
|
- (when (equal? (scandir #$webroot) '("." ".."))
|
|
|
- (invoke #$(file-append coreutils "/bin/rm") "-rf"
|
|
|
- #$webroot)
|
|
|
- (invoke #$(file-append coreutils "/bin/ln") "-s"
|
|
|
- #$(file-append mastostart "/web")
|
|
|
- #$webroot))))
|
|
|
+ (if (equal? (scandir #$webroot) '("." ".."))
|
|
|
+ (begin
|
|
|
+ (invoke #$(file-append coreutils "/bin/rm") "-rf"
|
|
|
+ #$webroot)
|
|
|
+ (invoke #$(file-append coreutils "/bin/ln") "-s"
|
|
|
+ #$(file-append mastostart "/web")
|
|
|
+ #$webroot))
|
|
|
+ #t)))
|
|
|
(stop #~(make-kill-destructor))))))
|
|
|
|
|
|
(define mastostart-service-type
|
