1 files changed, 48 insertions, 0 deletions

diff --git a/ConduitServer.hs b/ConduitServer.hs
new file mode 100644
index 00000000..0838ce26
--- /dev/null
+++ b/ConduitServer.hs
@@ -0,0 +1,48 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Main where
+
+import Data.Conduit.Binary
+import Data.Conduit.Network
+import Data.Conduit
+import qualified Data.Conduit.List as CL
+import qualified Data.ByteString.Char8 as S
+
+import Network.Socket (Family(..))
+import Data.HList
+import ServerC
+
+{-
+data AppData m = AppData
+    { appSource :: Source m ByteString
+    , appSink :: Sink ByteString m ()
+    , appSockAddr :: SockAddr
+    , appLocalAddr :: Maybe SockAddr
+    }
+-}
+
+-- handleConnection will simply output everything
+-- it sees from the connection to the terminal
+handleConnection :: AppData IO -> IO ()
+handleConnection appdata = do
+    sourceLbs "<stream>\n" $$ appSink appdata -- send bytestring
+    appSource appdata $$ CL.mapM_ S.putStrLn -- display inbound bytestring
+
+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