From b0f6ac7137db6324d378a27ce46d8186b60fe9ca Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 26 Jun 2013 02:54:08 -0400
Subject: Send remote presence to clients. Implmented -4 switch to select ipv4,
 otherwise ipv6

---
 Presence/AdaptServer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Presence/AdaptServer.hs')

diff --git a/Presence/AdaptServer.hs b/Presence/AdaptServer.hs
index eca4cb1e..dd453ba9 100644
--- a/Presence/AdaptServer.hs
+++ b/Presence/AdaptServer.hs
@@ -15,7 +15,7 @@ adaptStartCon start sock st = do
     return (HCons rsRef st')
 
 adaptDoCon showlex (dropTill,lex,parse) g st bs cont = do
-    -- putStrLn $ "packet: " ++ show bs
+    putStrLn $ "packet: " ++ show bs
     let (HCons rsRef st') = st
     rs <- readIORef rsRef
 
-- 
cgit v1.2.3