Replace an unsafeCoerce with coerce
authorRyan Scott <ryan.gl.scott@gmail.com>
Thu, 4 Aug 2016 14:25:10 +0000 (10:25 -0400)
committerRyan Scott <ryan.gl.scott@gmail.com>
Thu, 4 Aug 2016 14:25:13 +0000 (10:25 -0400)
This matches the implementations of `castPtr` and `castFunPtr`.

libraries/base/GHC/ForeignPtr.hs

index aaad3c6..b9b29ea 100644 (file)
@@ -432,7 +432,7 @@ unsafeForeignPtrToPtr (ForeignPtr fo _) = Ptr fo
 castForeignPtr :: ForeignPtr a -> ForeignPtr b
 -- ^This function casts a 'ForeignPtr'
 -- parameterised by one type into another type.
-castForeignPtr f = unsafeCoerce# f
+castForeignPtr = coerce
 
 -- | Causes the finalizers associated with a foreign pointer to be run
 -- immediately.