~old/guile-porkbun

39c4b11a2f09620a1ddaa4ff2e6ba4aacf1b4f4c — Olivier Dion a month ago c05ebbf master
bin/porkbun: Add loggings

Signed-off-by: Olivier Dion <olivier.dion@polymtl.ca>
1 files changed, 2 insertions(+), 0 deletions(-)

M bin/porkbun
M bin/porkbun => bin/porkbun +2 -0
@@ 60,6 60,7 @@ COMMAND:
  (exit error-code))

(define (wait-until-network)
  (printf "waiting for network ...")
  (catch #t
    (lambda ()
      (porkbun:ping))


@@ 85,6 86,7 @@ COMMAND:
                  (_
                   (eprintf "Missing command")
                   (usage EXIT_FAILURE)))))
      (printf "begining main loop ...")
      (let lp ()
        (proc)
        (when poll