diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-10-02 22:03:34 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-10-02 22:03:34 -0400 |
| commit | c9bbf5ff32f18dc18bd5cd08292e071913ed89f7 (patch) | |
| tree | 3f932f01b492c92aed49d20307ed8098b6e2e3fa | |
| parent | 8924224ecfa065ebc67b96a90d01cf9d2edd0e77 (diff) | |
| download | haskell-wip/T17290.tar.gz | |
base: Make ForeignPtr strict in ForeignPtrContentswip/T17290
Fixes #17290.
| -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 5eb5f14870..9316f009f7 100644 --- a/libraries/base/GHC/ForeignPtr.hs +++ b/libraries/base/GHC/ForeignPtr.hs @@ -71,7 +71,7 @@ import GHC.Ptr ( Ptr(..), FunPtr(..) ) -- type argument of 'ForeignPtr' should normally be an instance of -- class 'Storable'. -- -data ForeignPtr a = ForeignPtr Addr# ForeignPtrContents +data ForeignPtr a = ForeignPtr Addr# !ForeignPtrContents -- The Addr# in the ForeignPtr object is intentionally stored -- separately from the finalizer. The primary aim of the -- representation is to make withForeignPtr efficient; in fact, |