1 files changed, 1 insertions, 11 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index ec2feb3a..a469c08e 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -3,7 +3,6 @@
 {-# LANGUAGE ViewPatterns        #-}
 module XMPP 
     ( module XMPPTypes
-    , module SocketLike
     , listenForXmppClients
     , listenForRemotePeers
     , newServerConnections
@@ -15,7 +14,6 @@ module XMPP
 
 import ServerC
 import XMPPTypes
-import SocketLike
 import ByteStringOperators
 import ControlMaybe
 import XMLToByteStrings
@@ -42,10 +40,7 @@ import System.IO
     )
 import Control.Concurrent.STM
 import Data.Conduit
-import qualified Data.Conduit.List as CL
-import qualified Data.Conduit.Binary as CB
 import Data.ByteString (ByteString)
-import qualified Data.ByteString.Char8 as S (putStrLn,append)
 import qualified Data.ByteString.Lazy.Char8 as L
     ( putStrLn
     , fromChunks
@@ -62,8 +57,7 @@ import System.IO.Error (isDoesNotExistError)
 import Control.Monad.IO.Class
 import Control.Monad.Trans.Class
 import Control.Monad.Trans.Maybe
-import Text.XML.Stream.Parse (parseBytes,content)
-import Text.XML.Stream.Render
+import Text.XML.Stream.Parse (def,parseBytes,content)
 import Data.XML.Types as XML
 import qualified Data.Text as S (takeWhile)
 import Data.Text.Encoding      as S (decodeUtf8,encodeUtf8)
@@ -458,10 +452,6 @@ fromClient session cmdChan = doNestingXML $ do
     withXML $ \xml -> do
     log $ "end-of-document: " <++> bshow xml
 
-prettyPrint prefix xs = 
-    liftIO $ do
-        CL.sourceList xs $= renderBytes (def { rsPretty=True }) =$= CB.lines $$ CL.mapM_ (S.putStrLn . (prefix `S.append`))
-
 
 rosterPush to contact attrs = do
     let n   = name to