From 939aa16231ecf3724585247ec5566cb1b300b153 Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Mon, 16 Nov 2020 20:11:45 -0800
Subject: [PATCH] Die if a password file is missing

---
 backplane-dns.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index d397d10..ed57ea5 100644
--- 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