diff options
| author | joe <joe@jerkface.net> | 2013-06-21 01:34:36 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-06-21 01:34:36 -0400 |
| commit | ca280b85f19c16e0ae890a79b9b2e7db4a98e2c6 (patch) | |
| tree | 3de465c50a4c43f1a6a02f5804e1d6417828ccca /Presence/Server.hs | |
| parent | fa6a523704984bd98762a4e639b739e73320068f (diff) | |
Parse/Lex fixes. Presence now received by remote peer.
Diffstat (limited to 'Presence/Server.hs')
| -rw-r--r-- | Presence/Server.hs | 14 |
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 :: | |||
| 45 | -> IO () ) | 45 | -> IO () ) |
| 46 | -> IO b | 46 | -> IO b |
| 47 | -} | 47 | -} |
| 48 | {- | ||
| 49 | doServer | ||
| 50 | :: (HOccursFst ConnectionFinalizer l, HList t) => | ||
| 51 | HCons PortNumber t | ||
| 52 | -> (l | ||
| 53 | -> ByteString | ||
| 54 | -> (() -> IO ()) | ||
| 55 | -> IO ()) | ||
| 56 | -> (Socket | ||
| 57 | -> HCons | ||
| 58 | Handle (HCons ConnId (HCons PortNumber t)) | ||
| 59 | -> IO l) | ||
| 60 | -> IO Socket | ||
| 61 | -} | ||
| 48 | doServer port g startCon = runServer2 port (runConn2 g) | 62 | doServer port g startCon = runServer2 port (runConn2 g) |
| 49 | where | 63 | where |
| 50 | runConn2 g st (sock,_) = do | 64 | runConn2 g st (sock,_) = do |