Factored Data.Tox.Message out of Network.Tox.Crypto.Transport.

1 files changed, 7 insertions, 6 deletions

diff --git a/XMPPToTox.hs b/XMPPToTox.hs
index f0505ac7..d4da814c 100644
--- a/XMPPToTox.hs
+++ b/XMPPToTox.hs
@@ -12,14 +12,15 @@ import Control.Monad.Catch
 import Data.Conduit
 import Data.Function
 import Data.Monoid
-import Data.Text                    (Text)
-import Data.Text.Encoding           as T
+import Data.Text             (Text)
+import Data.Text.Encoding    as T
 import Data.Word
-import Data.XML.Types               as XML
-import Network.Tox.Crypto.Transport (CryptoMessage (..), MessageID (..))
-import Text.XML.Stream.Parse        as XML
+import Data.XML.Types        as XML
+import Text.XML.Stream.Parse as XML
 
-import XMPPServer (JabberShow(..))
+import Data.Tox.Message
+import Network.Tox.Crypto.Transport (CryptoMessage (..))
+import XMPPServer                   (JabberShow (..))
 
 -- Debugging.  Not real Tox message.
 funnyMessage :: MonadThrow m => Text -> ConduitM i CryptoMessage m ()