From f5f854c8144dc29086928a94b2ea86cfae0d0557 Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 22 Jun 2018 21:17:22 -0400 Subject: Removed redundant imports and other clean up. --- Presence/XMPPServer.hs | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'Presence/XMPPServer.hs') 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 import qualified Connection import Util import Network.Address (getBindAddress, sockAddrPort) -import Blaze.ByteString.Builder (Builder) import Debug.Trace -import System.IO (hFlush,stdout) import Control.Monad.Trans (lift) import Control.Monad.IO.Class (MonadIO, liftIO) import Control.Monad.Fix (fix) @@ -66,7 +64,6 @@ import Control.Concurrent.STM -- import Control.Concurrent.STM.TChan import Network.SocketLike import Text.Printf -import System.Posix.Signals import Data.ByteString (ByteString) import qualified Data.ByteString.Char8 as Strict8 -- import qualified Data.ByteString.Lazy.Char8 as Lazy8 @@ -86,21 +83,16 @@ import qualified Text.XML.Stream.Render as XML hiding (content) import qualified Text.XML.Stream.Parse as XML import Data.XML.Types as XML import Data.Maybe -import Data.List (nub) import Data.Monoid ( (<>) ) import Data.Text (Text) import qualified Data.Text as Text (pack,unpack,words,intercalate) -import Data.Char (toUpper,chr,ord) -import Data.Map (Map) +import Data.Char (chr,ord) import qualified Data.Map as Map import Data.Set (Set, (\\) ) import qualified Data.Set as Set import Data.String ( IsString(..) ) import qualified System.Random import Data.Void (Void) -import System.Endian (toBE32) -import Control.Applicative -import System.IO import DPut -- peerport :: PortNumber -- cgit v1.2.3