diff --git a/src/Network/XmlPush/Xmpp/Server.hs b/src/Network/XmlPush/Xmpp/Server.hs --- a/src/Network/XmlPush/Xmpp/Server.hs +++ b/src/Network/XmlPush/Xmpp/Server.hs @@ -17,7 +17,6 @@ import Data.HandleLike import Data.Pipe import Data.Pipe.Flow -import Data.Pipe.IO import Text.XML.Pipe import Network.XMPiPe.Core.C2S.Server import Network.Sasl @@ -51,16 +50,13 @@ fromHandleLike (THandle h) =$= bind dn [] =@= toHandleLike (THandle h) - liftBase . print $ user st let r = fromHandleLike h =$= input ns - =$= debug =$= setIds h ynr (user st) rids =$= convert fromMessage =$= filter isJust =$= convert fromJust w = makeMpi (user st) inr rids - =$= debug =$= output =$= toHandleLike h return $ XmppServer r w diff --git a/src/Network/XmlPush/Xmpp/Tls/Server.hs b/src/Network/XmlPush/Xmpp/Tls/Server.hs --- a/src/Network/XmlPush/Xmpp/Tls/Server.hs +++ b/src/Network/XmlPush/Xmpp/Tls/Server.hs @@ -19,7 +19,6 @@ import Data.HandleLike import Data.Pipe import Data.Pipe.Flow -import Data.Pipe.IO import Data.Pipe.TChan import Data.UUID import Data.X509 @@ -73,7 +72,6 @@ fromTChan inp =$= bind dn [] =@= toTChan otp let r = fromTChan inp =$= input ns - =$= debug =$= setIds h ynr (user st) rids =$= convert fromMessage =$= filter isJust @@ -81,7 +79,6 @@ =$= checkName cn gn =$= checkCert c cc w = makeMpi (user st) inr rids - =$= debug =$= output =$= toTChan otp return $ XmppTlsServer r w diff --git a/xml-push.cabal b/xml-push.cabal --- a/xml-push.cabal +++ b/xml-push.cabal @@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: xml-push -version: 0.0.0.12 +version: 0.0.0.13 stability: Experimenmtal author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -100,7 +100,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/xml-push.git - tag: xml-push-0.0.0.12 + tag: xml-push-0.0.0.13 library hs-source-dirs: src