move some logs into debug level

Author: atomicptr

src/mobdap/adapter.clj

@@ -32,15 +32,15 @@
       (let [buffer (char-array length)]
         (.read reader buffer 0 length)
         (let [message (json/parse-string (String/new buffer) keyword)]
-          (log/info "Received Message:" message)
+          (log/debug "Received Message:" message)
           message)))))
 
 (defn send-message! [adapter message]
   (let [writer (:writer adapter)
         json-str (json/generate-string message)
         length   (count json-str)]
     (assert (and (some? writer) (instance? BufferedWriter writer)))
-    (log/info "Send Message:" message)
+    (log/debug "Send Message:" message)
     (doto writer
       (.write (str "Content-Length: " length "\r\n\r\n" json-str))
       (.flush))))

src/mobdap/debug_server.clj

@@ -18,7 +18,7 @@
 
 (defn- send-line! [server line]
   (let [writer (get-in server [:client :writer])]
-    (log/info "Debug Server -> Debuggee" line)
+    (log/debug "Debug Server -> Debuggee" line)
     (doto writer
       (.write line)
       (.write "\n")
@@ -27,7 +27,7 @@
 (defn- read-response! [server]
   (let [reader (get-in server [:client :reader])]
     (when-let [message (.readLine reader)]
-      (log/info "Debuggee -> Debug Server:" message)
+      (log/debug "Debuggee -> Debug Server:" message)
       (string/trim message))))
 
 (defn- send-command! [server command]
@@ -63,13 +63,13 @@
                 "204" (if-let [[_ text size] (re-find response-pattern-204 breakpoint)]
                         (let [size (parse-long size)
                               message (if (pos? size) (read-response! server) "")]
-                          (log/info "OUT1:" text)
-                          (log/info "OUT2:" message)
+                          (log/debug "OUT1:" text)
+                          (log/debug "OUT2:" message)
                           (recur))
                         (recur))
                 "401" (if-let [[_ _size] (re-find response-pattern-401 breakpoint)]
                         (let [message (read-response! server)]
-                          (log/info "Error in remote application:" message)
+                          (log/error "Error in remote application:" message)
                           nil)
                         (recur))
                 (do (log/error "Unknown Error:" breakpoint)
@@ -115,7 +115,7 @@
 
             (go-loop []
               (when-let [command (<!! to-debug-server)]
-                (log/info "Handler -> Debug Server:" command)
+                (log/debug "Handler -> Debug Server:" command)
                 (case (:cmd command)
                   :run             (go (send-command! server-handle "run"))
 

src/mobdap/handler.clj

@@ -262,7 +262,7 @@
    stack-trace))
 
 (defn- handle-debug-server-command [handler command]
-  (log/info "Received command from debug server:" command)
+  (log/info "Handler: Received command from debug server:" command)
   (case (:cmd command)
     :stopped (case (:type command)
                :breakpoint (let [file (get-in command [:breakpoint :file])
@@ -291,7 +291,7 @@
     :stacktrace (let [seq   (:seq   command)
                       stack (:stack command)
                       stack (transform-stack-trace handler stack)]
-                  (log/info "Stacktrace Result" stack)
+                  (log/debug "Stacktrace:" stack)
                   (reset! (:stackframes handler) stack)
                   (adapter/send-message! (:adapter handler) (success seq "stackTrace" {:stackFrames (map #(dissoc % :extras) stack)
                                                                                        :totalFrames (count stack)})))
@@ -305,10 +305,10 @@
         root-dir    (:rootdir arguments)
         source-dirs (or (:sourcedirs arguments) [])
         to-handler (get-in handler [:channels :to-handler])]
-    (log/info "Waiting for client on port" port)
+    (log/info "Handler: Waiting for client on port" port)
 
     (let [server-channel (debug-server/run-server! (int port) to-handler)]
-      (log/info "Waiting for server to finish setup...")
+      (log/info "Handler: Waiting for server to finish setup...")
 
       (go-loop [setup-done false]
         (cond
@@ -318,7 +318,7 @@
               (do
                 (adapter/send-message! adapter (success (:seq message) "launch" nil))
                 (adapter/send-message! adapter (event "initialized"))
-                (log/info "Finished server setup")
+                (log/info "Handler: Finished server setup")
                 (recur true))
               (recur false)))
 
@@ -568,7 +568,7 @@
   handler)
 
 (defn handle-message [handler message]
-  (log/info "Handle incoming message:" message)
+  (log/info "Handler: Incoming message:" message)
 
   (reset! go-handler handler)