Fix the --repl option
This commit is contained in:
parent
8635a5561b
commit
f56cae63fc
1 changed files with 1 additions and 4 deletions
|
|
@ -143,10 +143,7 @@
|
||||||
(let ((opts (parse-options (cdr (program-arguments)))))
|
(let ((opts (parse-options (cdr (program-arguments)))))
|
||||||
(when (assq-ref opts 'repl)
|
(when (assq-ref opts 'repl)
|
||||||
((@@ (ice-9 top-repl) call-with-sigint)
|
((@@ (ice-9 top-repl) call-with-sigint)
|
||||||
(lambda ()
|
start-repl)
|
||||||
(with-postgresql-connection-per-thread
|
|
||||||
"repl"
|
|
||||||
start-repl)))
|
|
||||||
(exit 0))
|
(exit 0))
|
||||||
|
|
||||||
(let ((repl-port (assoc-ref opts 'listen-repl)))
|
(let ((repl-port (assoc-ref opts 'listen-repl)))
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue