diff options
author | Benjamin Barenblat <bbaren@google.com> | 2018-08-31 17:16:59 -0400 |
---|---|---|
committer | Benjamin Barenblat <bbaren@google.com> | 2018-08-31 17:16:59 -0400 |
commit | c9eb11a8b685dffa9035f324ca11a727cd16a128 (patch) | |
tree | 1d2974aa79a7dd87b353a0fc435f605712ddefe6 /src/BTLS/BoringSSL/Mem.chs | |
parent | b1639dda870f22a78136b26295f98585e503fa98 (diff) |
Replace `unsafeCoerce' with `castPtr'
Diffstat (limited to 'src/BTLS/BoringSSL/Mem.chs')
-rw-r--r-- | src/BTLS/BoringSSL/Mem.chs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/BTLS/BoringSSL/Mem.chs b/src/BTLS/BoringSSL/Mem.chs index 6f828ad..f3af001 100644 --- a/src/BTLS/BoringSSL/Mem.chs +++ b/src/BTLS/BoringSSL/Mem.chs @@ -14,9 +14,7 @@ module BTLS.BoringSSL.Mem where -import Foreign (Ptr) - -import BTLS.Cast (asVoidPtr) +import Foreign (Ptr, castPtr) #include <openssl/mem.h> @@ -24,4 +22,4 @@ import BTLS.Cast (asVoidPtr) -- of time dependent on the specified size but independent of either buffer's -- contents. {#fun CRYPTO_memcmp as cryptoMemcmp - {asVoidPtr `Ptr a', asVoidPtr `Ptr a', `Int'} -> `Int'#} + {castPtr `Ptr a', castPtr `Ptr a', `Int'} -> `Int'#} |