diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2016-08-04 10:25:10 -0400 |
|---|---|---|
| committer | Ryan Scott <ryan.gl.scott@gmail.com> | 2016-08-04 10:25:13 -0400 |
| commit | fc66415b11523dcd0bff267225cc901203515060 (patch) | |
| tree | a8a194da20d5a6c79a33da026d7b258e788ba5e4 | |
| parent | 8ecac2512aed557b4f59fd697eabd3ef9ddfd6e9 (diff) | |
| download | haskell-fc66415b11523dcd0bff267225cc901203515060.tar.gz | |
Replace an unsafeCoerce with coerce
This matches the implementations of `castPtr` and `castFunPtr`.
| -rw-r--r-- | libraries/base/GHC/ForeignPtr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/ForeignPtr.hs b/libraries/base/GHC/ForeignPtr.hs index aaad3c61e0..b9b29eaff6 100644 --- a/libraries/base/GHC/ForeignPtr.hs +++ b/libraries/base/GHC/ForeignPtr.hs @@ -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. |