Adapted ConduitServer sample program to use ServerC interface.

1 files changed, 19 insertions, 2 deletions

diff --git a/ConduitServer.hs b/ConduitServer.hs
index 4b28194e..0838ce26 100644
--- a/ConduitServer.hs
+++ b/ConduitServer.hs
@@ -6,7 +6,10 @@ import Data.Conduit.Network
 import Data.Conduit
 import qualified Data.Conduit.List as CL
 import qualified Data.ByteString.Char8 as S
-import qualified Data.ByteString.Lazy.Char8 as L
+
+import Network.Socket (Family(..))
+import Data.HList
+import ServerC
 
 {-
 data AppData m = AppData
@@ -24,8 +27,22 @@ handleConnection appdata = do
     sourceLbs "<stream>\n" $$ appSink appdata -- send bytestring
     appSource appdata $$ CL.mapM_ S.putStrLn -- display inbound bytestring
 
-main = do
+mainOld = do
     -- Listen to port 5222 and invoke handleConnection on every
     -- inbound connection.
     runTCPServer (serverSettings 5222 HostAny) handleConnection
     return ()
+
+
+
+
+handleC st src snk = do
+    sourceLbs "<stream>\n" $$ snk
+    src $$ CL.mapM_ S.putStrLn
+
+mainC = do
+    doServer (AF_INET .*. 5222 .*. HNil) handleC
+    _ <- getLine
+    return ()
+
+main = mainC