diff options
| author | Yves Fischer <yvesf-git@xapek.org> | 2014-07-26 20:15:03 +0200 |
|---|---|---|
| committer | Yves Fischer <yvesf-git@xapek.org> | 2014-07-26 20:15:03 +0200 |
| commit | 99c6eb21eb7ff9a072b87d9d64324871ea7201f1 (patch) | |
| tree | a10f6469ce898d518955ee85cf367c8a2af77b29 /ebus-racket/dumper.rkt | |
| parent | 773093acabfb84b88c37bb0342d6a8d4a6f8267a (diff) | |
| download | ebus-alt-99c6eb21eb7ff9a072b87d9d64324871ea7201f1.tar.gz ebus-alt-99c6eb21eb7ff9a072b87d9d64324871ea7201f1.zip | |
fix logging, re-enable dumper layer7 output
Diffstat (limited to 'ebus-racket/dumper.rkt')
| -rwxr-xr-x | ebus-racket/dumper.rkt | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/ebus-racket/dumper.rkt b/ebus-racket/dumper.rkt index 62ca64e..95081d1 100755 --- a/ebus-racket/dumper.rkt +++ b/ebus-racket/dumper.rkt @@ -1,10 +1,11 @@ #! /usr/bin/env racket #lang racket/base -(require racket/cmdline - racket/tcp - racket/pretty - "ebus/layer2.rkt" - "ebus/layer7.rkt") +(require + racket/cmdline + racket/tcp + racket/pretty + "ebus/layer2.rkt" + "ebus/layer7.rkt") ;(define verbose? (make-parameter #f)) (define connect-host? (make-parameter null)) @@ -38,9 +39,9 @@ (define (read-ebus-loop7 input-port) (let ([fields (layer7-read-ebus (current-input-port))]) - ;(if (not (void? fields)) - ;(pretty-print fields) - ;(display "")) + (if (not (void? fields)) + (pretty-print fields) + (display "")) (cond ((not (eof-object? fields)) (read-ebus-loop7 input-port))))) (if (layer7?) |