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

notes example

Browse source
This commit is contained in:
Michiel Borkent 2020-03-29 14:19:42 +02:00
parent 61939f88c9
commit 7837700452
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
examples/notes.clj
View file

@ -109,9 +109,8 @@
(loop [] (loop []
(let [client-socket (.accept server-socket)] (let [client-socket (.accept server-socket)]
(future (future
(try (with-open [conn client-socket]
(/ 1 0) (try
(with-open [conn client-socket]
(let [out (io/writer (.getOutputStream conn)) (let [out (io/writer (.getOutputStream conn))
is (.getInputStream conn) is (.getInputStream conn)
in (io/reader is) in (io/reader is)
@ -142,8 +141,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 (catch Throwable t
(binding [*err* *out*] (binding [*err* *out*]
(println t)))))) (println t)))))))
(recur))) (recur)))