New paste Repaste Download
(define-module (gobs-of-machines utils config)
  #:use-module (config)
  #:use-module (config api)
  #:use-module (ice-9 match))
(define gobs-boss-config
  (configuration
   (name 'boss)
   (synopsis "The configuration for the boss subcommand of gobs-of-machines")
   (keywords
    (list
     (switch
      (name 'listen-address)
      (synopsis "IP address for inbound connections to listen on")
      (default "::"))
     (switch
      (name 'hostname)
      (synopsis "Hostname to attach to inbound sturdyrefs")
      (description "The boss will generate sturdyrefs for inbound connections from the hob daemons on new machines. This setting determines what hostname will be embedded in those sturdyrefs. Caution - cannot easily be changed later!"))))))
(define-public gobs-root-config
  (configuration
   (name 'gobs-of-machines)
   (synopsis "The root configuration for gobs-of-machines")
   (subcommands
    (list
     gobs-boss-config))))
Filename: None. Size: 974b. View raw, , hex, or download this file.
(define (main cmd-line)
  (let ((options (getopt-config-auto cmd-line gobs-root-config)))
    (cond
     [(equal? (full-command options) '("gobs-of-machines" "boss"))
      (start-boss options)])))
Filename: None. Size: 201b. View raw, , hex, or download this file.

This paste expires on 2025-07-18 20:40:30.662988. Pasted through web.