diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-27 20:57:49 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-27 20:57:49 +0200 |
| commit | 8884ab52edc7351f8e3162ca759f25b7239407d3 (patch) | |
| tree | 4c7aef10589c08706f76becbbc6fbf38ef37c799 /guix-build-coordinator/coordinator.scm | |
| parent | fb4332d436dfb730424008f68eef0e4dff6ba6ac (diff) | |
| download | build-coordinator-8884ab52edc7351f8e3162ca759f25b7239407d3.tar build-coordinator-8884ab52edc7351f8e3162ca759f25b7239407d3.tar.gz | |
Set the <scheduler> record type printer in the service startup
As the Guix system service doesn't use the guix-build-coordinator script, the
workaround needs to be put in place here.
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index a2d430b..8d332e7 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -373,6 +373,13 @@ (pid-file #f) (trigger-build-allocation? #t) (parallel-hooks '())) + ;; TODO Work around this causing problems with backtraces + ;; https://github.com/wingo/fibers/issues/76 + (set-record-type-printer! + (@@ (fibers scheduler) <scheduler>) + (lambda (scheduler port) + (display "#<scheduler>" port))) + (when update-datastore? (datastore-update (build-coordinator-datastore build-coordinator))) |