dan/certifix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

inline not-found function

Browse Source
This commit is contained in:
Daniel Barlow 2024-09-26 21:34:37 +01:00
parent afd3088cee
commit e410cef1f4
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
main.fnl
View File

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