projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f8fd2a5
)
Tweak layout to work with alternative layout rule
author
Ian Lynagh
<igloo@earth.li>
Wed, 25 Nov 2009 23:23:49 +0000
(23:23 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Wed, 25 Nov 2009 23:23:49 +0000
(23:23 +0000)
GHC/ForeignPtr.hs
patch
|
blob
|
history
diff --git
a/GHC/ForeignPtr.hs
b/GHC/ForeignPtr.hs
index
ed6c075
..
3cd7609
100644
(file)
--- a/
GHC/ForeignPtr.hs
+++ b/
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 ->