diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-19 23:05:44 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-19 23:21:57 +0200 |
commit | c2f8f5b4be91f959bf02abba27463936c9cfb1ae (patch) | |
tree | 2a2933263f86f6242a8c32f2796c629ce4c8ab0e /module | |
parent | Fix recurrence display for BYMONTHDAY in YEARLY. (diff) | |
download | calp-c2f8f5b4be91f959bf02abba27463936c9cfb1ae.tar.gz calp-c2f8f5b4be91f959bf02abba27463936c9cfb1ae.tar.xz |
Add warning with failed unlinking of unix socket.
Diffstat (limited to 'module')
-rw-r--r-- | module/repl.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/repl.scm b/module/repl.scm index ae559251..18e01d99 100644 --- a/module/repl.scm +++ b/module/repl.scm @@ -2,6 +2,7 @@ :use-module (system repl server) :use-module (ice-9 regex) :use-module ((util hooks) :select (shutdown-hook)) + :use-module (util exceptions) ) (define-public (runtime-dir) @@ -21,7 +22,7 @@ [(UNIX) (add-hook! shutdown-hook (lambda () (catch 'system-error (lambda () (delete-file address)) (lambda (err proc fmt . args) - ;; TODO warn here + (warning "Failed to unlink ~a" address args) err)))) (make-unix-domain-server-socket path: address)] [(IPv4) (apply (case-lambda |