This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "snap-core".
The branch, master has been updated
via 2e31154c03621757f4850ec94ba1c6e42811b8aa (commit)
from 0fe8a54a6b19bc3af1fdca66b2ab49d6fe2271fc (commit)
Summary of changes:
src/Snap/Iteratee.hs | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 2e31154c03621757f4850ec94ba1c6e42811b8aa
Author: Gregory Collins <[email protected]>
Date: Sat May 29 22:27:07 2010 -0400
Try to lick bogus 'a c finalizer called back into haskell' error
diff --git a/src/Snap/Iteratee.hs b/src/Snap/Iteratee.hs
index 55aede2..c4321ad 100644
--- a/src/Snap/Iteratee.hs
+++ b/src/Snap/Iteratee.hs
@@ -59,6 +59,7 @@ import Data.Iteratee.WrappedByteString
import Data.Monoid (mappend)
import Foreign
import Foreign.C.Types
+import GHC.ForeignPtr
import Prelude hiding (catch,drop)
import qualified Data.DList as D
@@ -167,7 +168,7 @@ bUFSIZ = 8192
-- | Creates a buffer to be passed into 'unsafeBufferIterateeWithBuffer'.
mkIterateeBuffer :: IO (ForeignPtr CChar)
-mkIterateeBuffer = mallocForeignPtrBytes bUFSIZ
+mkIterateeBuffer = mallocPlainForeignPtrBytes bUFSIZ
------------------------------------------------------------------------------
-- | Buffers an iteratee, \"unsafely\". Here we use a fixed binary buffer which
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
