make output nicer
This commit is contained in:
parent
2f928b88dd
commit
c05a4ce79d
|
@ -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
|
||||
|
|
|
@ -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!"))
|
||||
|
|
|
@ -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 resp-headers)
|
||||
(displayln (port->bytes body))
|
||||
; (displayln status)
|
||||
; (displayln resp-headers)
|
||||
; (displayln (port->bytes body))
|
||||
|
||||
(void "TODO")))
|
||||
|
||||
|
|
Loading…
Reference in New Issue