Stubs for symmetric encryption.

1 files changed, 8 insertions, 0 deletions

diff --git a/ToxCrypto.hs b/ToxCrypto.hs
index 87f64c9a..9dea7477 100644
--- a/ToxCrypto.hs
+++ b/ToxCrypto.hs
@@ -39,6 +39,8 @@ module ToxCrypto
     , State(..)
     , zeros32
     , zeros24
+    , decryptSymmetric
+    , encryptSymmetric
     ) where
 
 import qualified Crypto.Cipher.Salsa    as Salsa
@@ -162,6 +164,12 @@ storePlain a = Plain <$> BA.create (sizeOf a) (`poke` a)
 retrievePlain :: Storable a => Plain Storable a -> IO a
 retrievePlain (Plain bs) = BA.withByteArray bs peek
 
+decryptSymmetric :: SymmetricKey -> Nonce24 -> Encrypted a -> Either String (Plain s a)
+decryptSymmetric sym nonce e = _todo
+
+encryptSymmetric :: SymmetricKey -> Nonce24 -> Plain s x -> Encrypted x
+encryptSymmetric = _todo
+
 data State = State Poly1305.State XSalsa.State
 
 decrypt :: State -> Encrypted a -> Either String (Plain s a)