diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-11-25 23:23:49 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-11-25 23:23:49 +0000 |
| commit | b0b39d7041d63a695b4455c2ec9479d6b617cf1d (patch) | |
| tree | 9c0edc26f651b6de0de513c290d9a65877eb52a1 /libraries/base/GHC/ForeignPtr.hs | |
| parent | c3f0928723ad6a6a287d7a1698610ca8f494ca5a (diff) | |
| download | haskell-b0b39d7041d63a695b4455c2ec9479d6b617cf1d.tar.gz | |
Tweak layout to work with alternative layout rule
Diffstat (limited to 'libraries/base/GHC/ForeignPtr.hs')
| -rw-r--r-- | libraries/base/GHC/ForeignPtr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/ForeignPtr.hs b/libraries/base/GHC/ForeignPtr.hs index ed6c075406..3cd760930f 100644 --- a/libraries/base/GHC/ForeignPtr.hs +++ b/libraries/base/GHC/ForeignPtr.hs @@ -214,7 +214,7 @@ addForeignPtrFinalizer (FunPtr fp) (ForeignPtr p c) = case c of PlainForeignPtr r -> f r >> return () MallocPtr _ r -> f r >> return () _ -> error "GHC.ForeignPtr: attempt to add a finalizer to a plain pointer" - where + where f r = noMixing CFinalizers r $ IO $ \s -> @@ -232,7 +232,7 @@ addForeignPtrFinalizerEnv (FunPtr fp) (Ptr ep) (ForeignPtr p c) = case c of PlainForeignPtr r -> f r >> return () MallocPtr _ r -> f r >> return () _ -> error "GHC.ForeignPtr: attempt to add a finalizer to a plain pointer" - where + where f r = noMixing CFinalizers r $ IO $ \s -> |