luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

notes example: add logging

Browse source
This commit is contained in:
Michiel Borkent 2020-03-29 14:16:12 +02:00
parent 22ea488666
commit 61939f88c9
1 changed files with 37 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
examples/notes.clj
View file

@ -109,6 +109,8 @@
(loop [] (loop []
(let [client-socket (.accept server-socket)] (let [client-socket (.accept server-socket)]
(future (future
(try
(/ 1 0)
(with-open [conn client-socket] (with-open [conn client-socket]
(let [out (io/writer (.getOutputStream conn)) (let [out (io/writer (.getOutputStream conn))
is (.getInputStream conn) is (.getInputStream conn)
@ -140,5 +142,8 @@
(basic-auth-response out uuid)) (basic-auth-response out uuid))
(not (authenticate! session-id headers)) (not (authenticate! session-id headers))
(basic-auth-response out session-id) (basic-auth-response out session-id)
:else (home-response out session-id)))))) :else (home-response out session-id))))
(catch Throwable t
(binding [*err* *out*]
(println t))))))
(recur))) (recur)))