1 files changed, 14 insertions, 0 deletions

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