From c9eb11a8b685dffa9035f324ca11a727cd16a128 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Fri, 31 Aug 2018 17:16:59 -0400 Subject: Replace `unsafeCoerce' with `castPtr' --- src/BTLS/Buffer.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/BTLS/Buffer.hs') diff --git a/src/BTLS/Buffer.hs b/src/BTLS/Buffer.hs index 186054f..1a334e9 100644 --- a/src/BTLS/Buffer.hs +++ b/src/BTLS/Buffer.hs @@ -22,7 +22,6 @@ import qualified Data.ByteString as ByteString import qualified Data.ByteString.Unsafe as ByteString import Foreign (Ptr, castPtr) import Foreign.C.Types -import Unsafe.Coerce (unsafeCoerce) unsafeUseAsCBuffer :: ByteString -> ((Ptr a, CULong) -> IO b) -> IO b unsafeUseAsCBuffer bs f = @@ -31,7 +30,4 @@ unsafeUseAsCBuffer bs f = packCUStringLen :: Integral n => (Ptr CUChar, n) -> IO ByteString packCUStringLen (pStr, len) = - ByteString.packCStringLen (asCCharBuf pStr, fromIntegral len) - -asCCharBuf :: Ptr CUChar -> Ptr CChar -asCCharBuf = unsafeCoerce + ByteString.packCStringLen (castPtr pStr, fromIntegral len) -- cgit v1.2.3