diff options
Diffstat (limited to 'XMPPToTox.hs')
-rw-r--r-- | XMPPToTox.hs | 13 |
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 | |||
12 | import Data.Conduit | 12 | import Data.Conduit |
13 | import Data.Function | 13 | import Data.Function |
14 | import Data.Monoid | 14 | import Data.Monoid |
15 | import Data.Text (Text) | 15 | import Data.Text (Text) |
16 | import Data.Text.Encoding as T | 16 | import Data.Text.Encoding as T |
17 | import Data.Word | 17 | import Data.Word |
18 | import Data.XML.Types as XML | 18 | import Data.XML.Types as XML |
19 | import Network.Tox.Crypto.Transport (CryptoMessage (..), MessageID (..)) | 19 | import Text.XML.Stream.Parse as XML |
20 | import Text.XML.Stream.Parse as XML | ||
21 | 20 | ||
22 | import XMPPServer (JabberShow(..)) | 21 | import Data.Tox.Message |
22 | import Network.Tox.Crypto.Transport (CryptoMessage (..)) | ||
23 | import XMPPServer (JabberShow (..)) | ||
23 | 24 | ||
24 | -- Debugging. Not real Tox message. | 25 | -- Debugging. Not real Tox message. |
25 | funnyMessage :: MonadThrow m => Text -> ConduitM i CryptoMessage m () | 26 | funnyMessage :: MonadThrow m => Text -> ConduitM i CryptoMessage m () |