Commit fc66415b authored by Ryan Scott's avatar Ryan Scott

Replace an unsafeCoerce with coerce

This matches the implementations of `castPtr` and `castFunPtr`.
parent 8ecac251
......@@ -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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment