summaryrefslogtreecommitdiff
path: root/Presence/XMPPServer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Presence/XMPPServer.hs')
-rw-r--r--Presence/XMPPServer.hs10
1 files changed, 1 insertions, 9 deletions
diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index cf7aca70..8d294698 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -48,10 +48,8 @@ import PeerResolve
48import qualified Connection 48import qualified Connection
49import Util 49import Util
50import Network.Address (getBindAddress, sockAddrPort) 50import Network.Address (getBindAddress, sockAddrPort)
51import Blaze.ByteString.Builder (Builder)
52 51
53import Debug.Trace 52import Debug.Trace
54import System.IO (hFlush,stdout)
55import Control.Monad.Trans (lift) 53import Control.Monad.Trans (lift)
56import Control.Monad.IO.Class (MonadIO, liftIO) 54import Control.Monad.IO.Class (MonadIO, liftIO)
57import Control.Monad.Fix (fix) 55import Control.Monad.Fix (fix)
@@ -66,7 +64,6 @@ import Control.Concurrent.STM
66-- import Control.Concurrent.STM.TChan 64-- import Control.Concurrent.STM.TChan
67import Network.SocketLike 65import Network.SocketLike
68import Text.Printf 66import Text.Printf
69import System.Posix.Signals
70import Data.ByteString (ByteString) 67import Data.ByteString (ByteString)
71import qualified Data.ByteString.Char8 as Strict8 68import qualified Data.ByteString.Char8 as Strict8
72-- import qualified Data.ByteString.Lazy.Char8 as Lazy8 69-- import qualified Data.ByteString.Lazy.Char8 as Lazy8
@@ -86,21 +83,16 @@ import qualified Text.XML.Stream.Render as XML hiding (content)
86import qualified Text.XML.Stream.Parse as XML 83import qualified Text.XML.Stream.Parse as XML
87import Data.XML.Types as XML 84import Data.XML.Types as XML
88import Data.Maybe 85import Data.Maybe
89import Data.List (nub)
90import Data.Monoid ( (<>) ) 86import Data.Monoid ( (<>) )
91import Data.Text (Text) 87import Data.Text (Text)
92import qualified Data.Text as Text (pack,unpack,words,intercalate) 88import qualified Data.Text as Text (pack,unpack,words,intercalate)
93import Data.Char (toUpper,chr,ord) 89import Data.Char (chr,ord)
94import Data.Map (Map)
95import qualified Data.Map as Map 90import qualified Data.Map as Map
96import Data.Set (Set, (\\) ) 91import Data.Set (Set, (\\) )
97import qualified Data.Set as Set 92import qualified Data.Set as Set
98import Data.String ( IsString(..) ) 93import Data.String ( IsString(..) )
99import qualified System.Random 94import qualified System.Random
100import Data.Void (Void) 95import Data.Void (Void)
101import System.Endian (toBE32)
102import Control.Applicative
103import System.IO
104import DPut 96import DPut
105 97
106-- peerport :: PortNumber 98-- peerport :: PortNumber