Separated module OnionTransport from ToxTransport.

1 files changed, 11 insertions, 0 deletions

diff --git a/ToxCrypto.hs b/ToxCrypto.hs
index 6f0fcf1a..4a8de635 100644
--- a/ToxCrypto.hs
+++ b/ToxCrypto.hs
@@ -6,6 +6,8 @@ module ToxCrypto
     ( PublicKey
     , publicKey
     , SecretKey
+    , SymmetricKey(..)
+    , TransportCrypto(..)
     , Encrypted
     , Encrypted8
     , Assym(..)
@@ -44,6 +46,7 @@ import Foreign.Ptr
 import Foreign.Storable
 import System.Endian
 import qualified Data.ByteString.Internal
+import Control.Concurrent.STM
 
 -- | A 16-byte mac and an arbitrary-length encrypted stream.
 newtype Encrypted a = Encrypted ByteString
@@ -226,3 +229,11 @@ data Assym a = Assym
     , assymData :: a
     }
 
+newtype SymmetricKey = SymmetricKey ByteString
+
+data TransportCrypto = TransportCrypto
+    { transportSecret :: SecretKey
+    , transportPublic :: PublicKey
+    , transportSymmetric :: STM SymmetricKey
+    }
+