From e410cef1f4adfc8cd2fcb286d3c51c01d3494aa3 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Thu, 26 Sep 2024 21:34:37 +0100 Subject: [PATCH] inline not-found function --- main.fnl | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/main.fnl b/main.fnl index 1bd655d..d44dcc5 100644 --- 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 []