Die if a password file is missing

2020-11-16 20:11:45 -08:00 · 2020-11-16 20:11:45 -08:00 · 939aa16231
parent bfad36c9d2
commit 939aa16231
1 changed files with 3 additions and 1 deletions
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@ -194,7 +194,9 @@

 (defun read-file-line (filename)
  (let ((input (open filename :if-does-not-exist nil)))
-    (read-line input)))
+    (if input
+        (read-line input)
+        (uiop:die 1 "unable to read file: ~A" filename))))

 (defun start-listener-with-env ()
  (backplane-dns-listen