Formatting

This commit is contained in:
Jeremy Dormitzer 2021-04-15 15:27:28 -04:00
parent ce0bc6b3c3
commit 83c442798d

View File

@ -81,13 +81,13 @@
(funcall create-process) (funcall create-process)
(let ((tryout 0)) (let ((tryout 0))
(prodigy-every 1 (prodigy-every 1
(lambda (next) (lambda (next)
(setq tryout (1+ tryout)) (setq tryout (1+ tryout))
(if (process-live-p process) (if (process-live-p process)
(when callback (funcall callback)) (when callback (funcall callback))
(if (= tryout prodigy-start-tryouts) (if (= tryout prodigy-start-tryouts)
(prodigy-set-status service 'failed) (prodigy-set-status service 'failed)
(funcall next)))))) (funcall next))))))
(plist-put service :process process) (plist-put service :process process)
(when (not (plist-get service :inhibit-process-filter)) (when (not (plist-get service :inhibit-process-filter))
(set-process-filter (set-process-filter