From be42fec6e5450975094a3e2542c5ffe626551f10 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Sun, 19 Apr 2015 09:21:48 +0100 Subject: [PATCH] [Internal] properly define ByteArrayCopy functions to only requires ByteArrayAccess from the source --- Crypto/Internal/ByteArray.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Crypto/Internal/ByteArray.hs b/Crypto/Internal/ByteArray.hs index 63c458a..7960869 100644 --- a/Crypto/Internal/ByteArray.hs +++ b/Crypto/Internal/ByteArray.hs @@ -130,19 +130,19 @@ byteArrayConcat allBs = byteArrayAllocAndFreeze total (loop allBs) withByteArray b $ \p -> bufCopy dst p sz loop bs (dst `plusPtr` sz) -byteArrayCopy :: (ByteArray bs1, ByteArray bs2) => bs1 -> (Ptr p -> IO ()) -> IO bs2 +byteArrayCopy :: (ByteArrayAccess bs1, ByteArray bs2) => bs1 -> (Ptr p -> IO ()) -> IO bs2 byteArrayCopy bs f = byteArrayAlloc (byteArrayLength bs) $ \d -> do withByteArray bs $ \s -> bufCopy d s (byteArrayLength bs) f (castPtr d) -byteArrayCopyRet :: (ByteArray bs1, ByteArray bs2) => bs1 -> (Ptr p -> IO a) -> IO (a, bs2) +byteArrayCopyRet :: (ByteArrayAccess bs1, ByteArray bs2) => bs1 -> (Ptr p -> IO a) -> IO (a, bs2) byteArrayCopyRet bs f = byteArrayAllocRet (byteArrayLength bs) $ \d -> do withByteArray bs $ \s -> bufCopy d s (byteArrayLength bs) f (castPtr d) -byteArrayCopyAndFreeze :: (ByteArray bs1, ByteArray bs2) => bs1 -> (Ptr p -> IO ()) -> bs2 +byteArrayCopyAndFreeze :: (ByteArrayAccess bs1, ByteArray bs2) => bs1 -> (Ptr p -> IO ()) -> bs2 byteArrayCopyAndFreeze bs f = byteArrayAllocAndFreeze (byteArrayLength bs) $ \d -> do withByteArray bs $ \s -> bufCopy d s (byteArrayLength bs)