make output nicer

compiler.rkt

@@ -117,7 +117,7 @@
 ;; Executes one rule
 (define (execute-rule r)
   (match-define (rule name ins out func) r)
-  (printf "executing: ~a\n" name)
+  (printf "executing: ~a -> ~a\n" name out)
   (define cust (make-custodian))
   (parameterize ([current-custodian cust])
     (thread-wait

fetch-util.rkt

@@ -47,7 +47,7 @@
       [(? string?) (void)]
       [(list tag (list (list (? symbol?) (? string?)) ...) body ...)
        (void (map check-detailed-xexpr body))]
-      [_ (displayln "problem:") (pretty-write x)]))
+      [_ (printf "problem:\n") (pretty-write x)]))
   (unless (xexpr? x)
     (check-detailed-xexpr x)
     (error "not xexpr!"))

fetch.rkt

@@ -33,7 +33,7 @@
     (define http-signature (format "keyId=\"~a\",algorithm=\"~a\",headers=\"~a\",signature=\"~a\""
                                    "foo://example-key" algorithm signed-header-spec signature))
 
-    (displayln http-signature)
+    ; (displayln http-signature)
 
     ;; GET /path HTTP/1.1
     (define req-headers
@@ -57,9 +57,9 @@
                      #:data #f
                      #:content-decode '(gzip deflate)))
 
-    (displayln status)
+    ; (displayln status)
-    (displayln resp-headers)
+    ; (displayln resp-headers)
-    (displayln (port->bytes body))
+    ; (displayln (port->bytes body))
 
     (void "TODO")))