diff options
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 2 | ||||
| -rw-r--r-- | guix-build-coordinator/utils/timeout.scm | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 9d0cc63..9daab63 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -827,7 +827,7 @@ (record-constructor &build-coordinator-datastore-excessive-write-delays)) (define build-coordinator-datastore-excessive-write-delays-error? - (record-predicate &build-coordinator-datastore-excessive-write-delays)) + (exception-predicate &build-coordinator-datastore-excessive-write-delays)) (define (build-coordinator-check-for-datastore-excessive-write-delays build-coordinator) diff --git a/guix-build-coordinator/utils/timeout.scm b/guix-build-coordinator/utils/timeout.scm index bb133d7..0c3fb0e 100644 --- a/guix-build-coordinator/utils/timeout.scm +++ b/guix-build-coordinator/utils/timeout.scm @@ -21,7 +21,7 @@ (record-constructor &port-timeout)) (define port-timeout-error? - (record-predicate &port-timeout)) + (exception-predicate &port-timeout)) (define &port-read-timeout (make-exception-type '&port-read-timeout @@ -32,7 +32,7 @@ (record-constructor &port-read-timeout)) (define port-read-timeout-error? - (record-predicate &port-read-timeout)) + (exception-predicate &port-read-timeout)) (define &port-write-timeout (make-exception-type '&port-write-timeout @@ -43,7 +43,7 @@ (record-constructor &port-write-timeout)) (define port-write-timeout-error? - (record-predicate &port-write-timeout)) + (exception-predicate &port-write-timeout)) (define* (with-port-timeouts thunk #:key timeout) |