From ca280b85f19c16e0ae890a79b9b2e7db4a98e2c6 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 21 Jun 2013 01:34:36 -0400
Subject: Parse/Lex fixes.  Presence now received by remote peer.

---
 Presence/Server.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'Presence/Server.hs')

diff --git a/Presence/Server.hs b/Presence/Server.hs
index deab779b..369bd538 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -45,6 +45,20 @@ doServer ::
             -> IO () )
       -> IO b
 -}
+{-
+doServer
+  :: (HOccursFst ConnectionFinalizer l, HList t) =>
+     HCons PortNumber t
+     -> (l
+         -> ByteString
+         -> (() -> IO ())
+         -> IO ())
+     -> (Socket
+         -> HCons
+              Handle (HCons ConnId (HCons PortNumber t))
+         -> IO l)
+     -> IO Socket
+-}
 doServer port g startCon = runServer2 port (runConn2 g)
  where
     runConn2 g st (sock,_) = do
-- 
cgit v1.2.3