diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm index 080e747..a7419bf 100644 --- a/guix-data-service/web/server.scm +++ b/guix-data-service/web/server.scm @@ -104,6 +104,22 @@ (%guix-data-service-metrics-registry registry) + (with-exception-handler + (lambda (exn) + (simple-format #t "failed enabling core dumps: ~A\n" exn)) + (lambda () + (setrlimit 'core #f #f)) + #:unwind? #t) + + (let ((core-file + (string-append (getcwd) "/core")) + (metric + (make-gauge-metric registry + "core_dump_file_last_modified_seconds"))) + (when (file-exists? core-file) + (metric-set metric + (stat:mtime (stat core-file))))) + (with-exception-handler (lambda (exn) (simple-format #t "failed increasing open file limit: ~A\n" exn))