add a byteArrayConvert which copy and returns potentially a different output type

2015-04-22 06:25:33 +01:00 · 2015-04-22 06:25:33 +01:00 · c06edc9591
commit c06edc9591
parent 26006dfe25
1 changed files with 4 additions and 0 deletions
--- a/Crypto/Internal/ByteArray.hs
+++ b/Crypto/Internal/ByteArray.hs
@ -23,6 +23,7 @@ module Crypto.Internal.ByteArray
    , empty
    , byteArrayZero
    , byteArrayCopy
+    , byteArrayConvert
    , byteArrayCopyRet
    , byteArrayCopyAndFreeze
    , byteArraySplit
@ -243,3 +244,6 @@ byteArrayMapAsWord64 f bs =
            let r = f (fromBE64 w)
            poke d (toBE64 r)
            loop (i-1) (d `plusPtr` 8) (s `plusPtr` 8)
+
+byteArrayConvert :: (ByteArrayAccess bin, ByteArray bout) => bin -> bout
+byteArrayConvert = flip byteArrayCopyAndFreeze (\_ -> return ())