diff options
author | joe <joe@jerkface.net> | 2017-11-19 22:59:49 -0500 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-11-19 22:59:49 -0500 |
commit | eaaf761dfb6af3673d9f064a791afadbbdc60e29 (patch) | |
tree | a8b927e0dc497f91298c2d43e85bba9dff48e0b9 /ToxToXMPP.hs | |
parent | 0e10db03f6d8f60b4afa58c39765ac2d78e2f859 (diff) |
Conduit stubs to convert between Tox and XMPP messages.
Diffstat (limited to 'ToxToXMPP.hs')
-rw-r--r-- | ToxToXMPP.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs new file mode 100644 index 00000000..b018e47b --- /dev/null +++ b/ToxToXMPP.hs | |||
@@ -0,0 +1,11 @@ | |||
1 | module ToxToXMPP where | ||
2 | |||
3 | import Data.Conduit as C | ||
4 | import Data.XML.Types as XML | ||
5 | import Network.Tox.Crypto.Transport as Tox | ||
6 | |||
7 | xmppToTox :: Conduit XML.Event IO Tox.CryptoMessage | ||
8 | xmppToTox = _todo | ||
9 | |||
10 | toxToXmpp :: Conduit Tox.CryptoMessage IO XML.Event | ||
11 | toxToXmpp = _todo | ||