enhdebug mode

Author: yanyingwang

private/core.rkt

@@ -80,11 +80,11 @@
 
   (when (current-http-client/debug)
     (define (fmt h)
-      (string-join (map (lambda (e) (~a (car e) ": " (cdr e))) (hash->list h)) "\n"))
-    (printf "METHOD  ~a \n" (http-request-method req))
-    (printf "URL  ~a \n" (http-request-url req))
-    (printf "HEADERS  ~a \n" (fmt (http-request-headers req)))
-    (printf "DATA  ~a \n\n" (fmt (http-request-data req)))
+      (string-join (map (lambda (e) (~a "  " (car e) ": " (cdr e))) (hash->list h)) "\n"))
+    (printf "METHOD: ~a\n" (http-request-method req))
+    (printf "URL: ~a\n" (http-request-url req))
+    (printf "HEADERS: \n~a\n" (fmt (http-request-headers req)))
+    (printf "DATA: \n~a\n\n" (fmt (http-request-data req)))
     )
 
   (define-values (res-status-raw res-headers-raw res-in)
@@ -119,12 +119,11 @@
       [(hash-table ('Content-Type (regexp #rx"^(application/xml|text/xml|application/xhtml+xml).*")))
        (string->xexpr res-body-raw)]
       [_ res-body-raw]))
-
   (when (current-http-client/debug)
     (define (fmt h)
-      (string-join (map (lambda (e) (~a (car e) ": " (cdr e))) (hash->list h)) "\n"))
-    (printf "RESPONSE CODE  ~a \n" res-code)
-    (printf "RESPONSE HEADERS  ~a \n" (fmt res-headers))
-    (printf "RESPNOSE BODY  ~a \n\n\n\n" res-body-raw)
+      (string-join (map (lambda (e) (~a "  " (car e) ": " (cdr e))) (hash->list h)) "\n"))
+    (printf "RESPONSE CODE: ~a\n" res-code)
+    (printf "RESPONSE HEADERS: \n~a\n" (fmt res-headers))
+    (printf "RESPNOSE BODY: \n~a\n\n\n\n" res-body-raw)
     )
   (http-response req res-code res-headers res-body))