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 3f7085ca3b61b893793bfa7fb7fc2a70463c8b44 (commit)
from 7ae3621c9fe7e26df8daebc1bb343eaa49288233 (commit)
Summary of changes:
snap-core.cabal | 2 +-
src/Snap/Internal/Iteratee/BoyerMooreHorspool.hs | 9 +++------
2 files changed, 4 insertions(+), 7 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 3f7085ca3b61b893793bfa7fb7fc2a70463c8b44
Author: Gregory Collins <[email protected]>
Date: Thu Feb 17 08:48:49 2011 -0800
Bump enumerator version, clean up warnings
diff --git a/snap-core.cabal b/snap-core.cabal
index 05015b8..9685115 100644
--- a/snap-core.cabal
+++ b/snap-core.cabal
@@ -138,7 +138,7 @@ Library
deepseq >= 1.1 && <1.2,
directory,
dlist >= 0.5 && < 0.6,
- enumerator >= 0.4.5 && < 0.5,
+ enumerator >= 0.4.7 && < 0.5,
filepath,
MonadCatchIO-transformers >= 0.2.1 && < 0.3,
mtl == 2.0.*,
diff --git a/src/Snap/Internal/Iteratee/BoyerMooreHorspool.hs
b/src/Snap/Internal/Iteratee/BoyerMooreHorspool.hs
index f915d0b..1a2d89e 100644
--- a/src/Snap/Internal/Iteratee/BoyerMooreHorspool.hs
+++ b/src/Snap/Internal/Iteratee/BoyerMooreHorspool.hs
@@ -8,19 +8,15 @@ module Snap.Internal.Iteratee.BoyerMooreHorspool
where
import Control.Monad.State
-import Control.Monad.Trans
import qualified Data.ByteString as S
import Data.ByteString (ByteString)
-import qualified Data.ByteString.Lazy as L
import Data.ByteString.Unsafe as S
-import Data.Enumerator hiding (head, filter, map)
+import Data.Enumerator hiding (head, filter, last, map)
import qualified Data.Enumerator.List as EL
import Data.Int
import qualified Data.Vector.Unboxed as V
-import Data.Vector.Unboxed (Vector)
import qualified Data.Vector.Unboxed.Mutable as MV
import Prelude hiding (head, last)
-import Snap.Iteratee hiding (map)
{-# INLINE debug #-}
@@ -225,7 +221,7 @@ bmhEnumeratee needle _step = do
MV.unsafeWrite t c (last - i)
go' $! i+1
-
+{-
testIt :: ByteString -> [ByteString] -> IO [MatchInfo]
testIt needle haystack = do
consumeStep <- runIteratee EL.consume
@@ -237,3 +233,4 @@ testIt needle haystack = do
where
etee = bmhEnumeratee needle
+-}
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
