diff options
Diffstat (limited to 'Presence/XMPPServer.hs')
-rw-r--r-- | Presence/XMPPServer.hs | 10 |
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 | |||
48 | import qualified Connection | 48 | import qualified Connection |
49 | import Util | 49 | import Util |
50 | import Network.Address (getBindAddress, sockAddrPort) | 50 | import Network.Address (getBindAddress, sockAddrPort) |
51 | import Blaze.ByteString.Builder (Builder) | ||
52 | 51 | ||
53 | import Debug.Trace | 52 | import Debug.Trace |
54 | import System.IO (hFlush,stdout) | ||
55 | import Control.Monad.Trans (lift) | 53 | import Control.Monad.Trans (lift) |
56 | import Control.Monad.IO.Class (MonadIO, liftIO) | 54 | import Control.Monad.IO.Class (MonadIO, liftIO) |
57 | import Control.Monad.Fix (fix) | 55 | import Control.Monad.Fix (fix) |
@@ -66,7 +64,6 @@ import Control.Concurrent.STM | |||
66 | -- import Control.Concurrent.STM.TChan | 64 | -- import Control.Concurrent.STM.TChan |
67 | import Network.SocketLike | 65 | import Network.SocketLike |
68 | import Text.Printf | 66 | import Text.Printf |
69 | import System.Posix.Signals | ||
70 | import Data.ByteString (ByteString) | 67 | import Data.ByteString (ByteString) |
71 | import qualified Data.ByteString.Char8 as Strict8 | 68 | import 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) | |||
86 | import qualified Text.XML.Stream.Parse as XML | 83 | import qualified Text.XML.Stream.Parse as XML |
87 | import Data.XML.Types as XML | 84 | import Data.XML.Types as XML |
88 | import Data.Maybe | 85 | import Data.Maybe |
89 | import Data.List (nub) | ||
90 | import Data.Monoid ( (<>) ) | 86 | import Data.Monoid ( (<>) ) |
91 | import Data.Text (Text) | 87 | import Data.Text (Text) |
92 | import qualified Data.Text as Text (pack,unpack,words,intercalate) | 88 | import qualified Data.Text as Text (pack,unpack,words,intercalate) |
93 | import Data.Char (toUpper,chr,ord) | 89 | import Data.Char (chr,ord) |
94 | import Data.Map (Map) | ||
95 | import qualified Data.Map as Map | 90 | import qualified Data.Map as Map |
96 | import Data.Set (Set, (\\) ) | 91 | import Data.Set (Set, (\\) ) |
97 | import qualified Data.Set as Set | 92 | import qualified Data.Set as Set |
98 | import Data.String ( IsString(..) ) | 93 | import Data.String ( IsString(..) ) |
99 | import qualified System.Random | 94 | import qualified System.Random |
100 | import Data.Void (Void) | 95 | import Data.Void (Void) |
101 | import System.Endian (toBE32) | ||
102 | import Control.Applicative | ||
103 | import System.IO | ||
104 | import DPut | 96 | import DPut |
105 | 97 | ||
106 | -- peerport :: PortNumber | 98 | -- peerport :: PortNumber |