certifix

commit e410cef1f4adfc8cd2fcb286d3c51c01d3494aa3
parent afd3088cee1b3beee0745686d2a51483bb22a4ac
Author: Daniel Barlow <dan@telent.net>
Date:   Thu, 26 Sep 2024 21:34:37 +0100

inline not-found function

Diffstat:
M
main.fnl
 | 
4
+---

1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/main.fnl b/main.fnl
@@ -33,8 +33,6 @@
    false)
   (out:write_chunk text true))
 
-(fn not-found [out] (send-error out 404 "not found"))
-
 (fn slurp [filename]
   (with-open [f (io.open filename "r")] (f:read "*a")))
 
@@ -79,7 +77,7 @@
       "/sign"
       (handle-sign-csr out)
       _
-      (not-found out))))
+      (send-error out 404 "not found"))))
 
 
 (fn new-server []