From a82a544fece4ccca511f11b11fe30f2dc95c3917 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Fri, 3 Apr 2015 07:25:22 +0100
Subject: [PATCH] add a simple alias to SecureMem for future refactoring

Signed-off-by: Vincent Hanquez <vincent@snarc.org>
---
 Crypto/Internal/Memory.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Crypto/Internal/Memory.hs b/Crypto/Internal/Memory.hs
index b549603..5ef5d85 100644
--- a/Crypto/Internal/Memory.hs
+++ b/Crypto/Internal/Memory.hs
@@ -18,6 +18,7 @@ module Crypto.Internal.Memory
     , bytesAlloc
     , bytesLength
     , withBytes
+    , SecureBytes
     ) where
 
 import Data.Word
@@ -29,9 +30,12 @@ import Foreign.ForeignPtr
 import Foreign.Storable      (pokeElemOff)
 import Foreign.Marshal.Alloc
 import Foreign.Marshal.Utils (copyBytes)
+import Data.SecureMem (SecureMem)
 
 data Bytes = Bytes (MutableByteArray# RealWorld)
 
+type SecureBytes = SecureMem
+
 ------------------------------------------------------------------------
 newBytes :: Int -> IO Bytes
 newBytes (I# sz) = IO $ \s ->