From 99c6eb21eb7ff9a072b87d9d64324871ea7201f1 Mon Sep 17 00:00:00 2001
From: Yves Fischer <yvesf-git@xapek.org>
Date: Sat, 26 Jul 2014 20:15:03 +0200
Subject: fix logging, re-enable dumper layer7 output

---
 ebus-racket/dumper.rkt | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'ebus-racket/dumper.rkt')

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?)
-- 
cgit v1.2.1