diff options
Diffstat (limited to 'scripts/guix-data-service.in')
| -rw-r--r-- | scripts/guix-data-service.in | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/scripts/guix-data-service.in b/scripts/guix-data-service.in index 8a124ee..238483d 100644 --- a/scripts/guix-data-service.in +++ b/scripts/guix-data-service.in @@ -137,13 +137,13 @@ (setvbuf (current-output-port) 'line) (setvbuf (current-error-port) 'line) +(unless (getenv "COLUMNS") + (setenv "COLUMNS" "128")) + (let ((opts (parse-options (cdr (program-arguments))))) (when (assq-ref opts 'repl) ((@@ (ice-9 top-repl) call-with-sigint) - (lambda () - (with-postgresql-connection-per-thread - "repl" - start-repl))) + start-repl) (exit 0)) (let ((repl-port (assoc-ref opts 'listen-repl))) @@ -197,7 +197,7 @@ (lambda (port) (simple-format port "~A\n" (getpid))))) - (start-substitute-query-threads) + (start-substitute-query-threads startup-completed) (call-with-new-thread (lambda () |