Minor improvements on logging.

This commit is contained in:
Andrey Antukh 2020-08-18 18:38:49 +02:00
parent 1118a995e2
commit 7dd9e8763b
3 changed files with 6 additions and 7 deletions

View file

@ -70,6 +70,8 @@
{:middleware [[middleware/development-resources] {:middleware [[middleware/development-resources]
[middleware/development-cors] [middleware/development-cors]
[middleware/metrics]]})] [middleware/metrics]]})]
(log/infof "Http server listening on http://localhost:%s/"
(:http-server-port cfg/config))
(jetty/run-jetty handler options))) (jetty/run-jetty handler options)))
(defstate server (defstate server

View file

@ -22,7 +22,6 @@
(defn- create-client (defn- create-client
[config] [config]
(let [uri (:redis-uri config "redis://redis/0")] (let [uri (:redis-uri config "redis://redis/0")]
(log/info "creating redis client with" uri)
(redis/client uri))) (redis/client uri)))
(defstate client (defstate client

View file

@ -96,7 +96,7 @@
(defmethod handle-message :connect (defmethod handle-message :connect
[{:keys [file-id profile-id session-id output] :as ws} message] [{:keys [file-id profile-id session-id output] :as ws} message]
(log/info (str "profile " profile-id " is connected to " file-id)) (log/debugf "profile '%s' is connected to file '%s'" profile-id file-id)
(go-try (go-try
(<? (update-presence file-id session-id profile-id)) (<? (update-presence file-id session-id profile-id))
(let [members (<? (retrieve-presence file-id))] (let [members (<? (retrieve-presence file-id))]
@ -104,7 +104,7 @@
(defmethod handle-message :disconnect (defmethod handle-message :disconnect
[{:keys [profile-id file-id session-id] :as ws} message] [{:keys [profile-id file-id session-id] :as ws} message]
(log/info (str "profile " profile-id " is disconnected from " file-id)) (log/debugf "profile '%s' is disconnected from '%s'" profile-id file-id)
(go-try (go-try
(<? (delete-presence file-id session-id profile-id)) (<? (delete-presence file-id session-id profile-id))
(let [members (<? (retrieve-presence file-id))] (let [members (<? (retrieve-presence file-id))]
@ -124,7 +124,7 @@
(defmethod handle-message :default (defmethod handle-message :default
[ws message] [ws message]
(a/go (a/go
(log/warn (str "received unexpected message: " message)))) (log/warnf "received unexpected message: " message)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; WebSocket Handler ;; WebSocket Handler
@ -182,9 +182,7 @@
(<? (start-loop! ws)) (<? (start-loop! ws))
(<? (handle-message ws {:type :disconnect})) (<? (handle-message ws {:type :disconnect}))
(catch Throwable err (catch Throwable err
(log/error "Unexpected exception on websocket handler:\n" (log/errorf err "Unexpected exception on websocket handler.")
(with-out-str
(.printStackTrace err (java.io.PrintWriter. *out*))))
(disconnect! conn))))) (disconnect! conn)))))
(defrecord WebSocket [conn in out sub]) (defrecord WebSocket [conn in out sub])