1 files changed, 12 insertions, 1 deletions

diff --git a/ToxCrypto.hs b/ToxCrypto.hs
index 6b5e6f19..c2e2bbeb 100644
--- a/ToxCrypto.hs
+++ b/ToxCrypto.hs
@@ -2,6 +2,10 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE KindSignatures #-}
 {-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveFunctor #-}
+{-# LANGUAGE DeriveTraversable #-}
+{-# LANGUAGE ExplicitNamespaces #-}
+{-# LANGUAGE TypeOperators #-}
 module ToxCrypto
     ( PublicKey
     , publicKey
@@ -9,9 +13,12 @@ module ToxCrypto
     , SymmetricKey(..)
     , TransportCrypto(..)
     , Encrypted
-    , Encrypted8
+    , Encrypted8(..)
+    , type (∘)(..)
     , Assym(..)
     , Plain
+    , encodePlain
+    , decodePlain
     , computeSharedSecret
     , encrypt
     , decrypt
@@ -24,6 +31,8 @@ module ToxCrypto
     , Sized(..)
     , Size(..)
     , State(..)
+    , zeros32
+    , zeros24
     ) where
 
 import qualified Crypto.Cipher.Salsa    as Salsa
@@ -56,6 +65,7 @@ newtype Encrypted a = Encrypted ByteString
 newtype Encrypted8 a = E8 (Encrypted (a,Nonce8))
  deriving Serialize
 
+newtype (f ∘ g) x = Composed { uncomposed :: f (g x) }
 
 newtype Auth = Auth Poly1305.Auth deriving (Eq, ByteArrayAccess)
 instance Ord Auth where
@@ -229,6 +239,7 @@ data Assym a = Assym
     , assymNonce :: Nonce24
     , assymData :: a
     }
+ deriving (Functor,Foldable,Traversable)
 
 newtype SymmetricKey = SymmetricKey ByteString