snap-core 1.0.1.0 → 1.0.1.1

raw patch · 2 files changed

+16/−5 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• snap-core.cabal +2/−2
• src/Snap/Internal/Parsing.hs +14/−3

@@ -1,5 +1,5 @@ name:           snap-core-version:        1.0.1.0+version:        1.0.1.1 synopsis:       Snap: A Haskell Web Framework (core interfaces and types)  description:@@ -145,7 +145,7 @@     transformers-base         >= 0.4     && < 0.5,     unix-compat               >= 0.3     && < 0.5,     unordered-containers      >= 0.1.4.3 && < 0.3,-    vector                    >= 0.6     && < 0.12+    vector                    >= 0.6     && < 0.13    other-extensions:     BangPatterns,

@@ -6,12 +6,12 @@ ------------------------------------------------------------------------------ module Snap.Internal.Parsing where -------------------------------------------------------------------------------import           Control.Applicative              (Alternative ((<|>)), Applicative ((*>), (<*), pure), liftA2, (<$>))+import           Control.Applicative              (Alternative ((<|>)), Applicative (pure, (*>), (<*)), liftA2, (<$>)) import           Control.Arrow                    (first, second) import           Control.Monad                    (Monad (return), MonadPlus (mzero), liftM, when) import           Data.Attoparsec.ByteString.Char8 (IResult (Done, Fail, Partial), Parser, Result, anyChar, char, choice, decimal, endOfInput, feed, inClass, isDigit, isSpace, letter_ascii, many', match, option, parse, satisfy, skipSpace, skipWhile, string, take, takeTill, takeWhile) import qualified Data.Attoparsec.ByteString.Char8 as AP-import           Data.Bits                        (Bits ((.&.), (.|.), unsafeShiftL))+import           Data.Bits                        (Bits (unsafeShiftL, (.&.), (.|.))) import           Data.ByteString.Builder          (Builder, byteString, char8, toLazyByteString, word8) import           Data.ByteString.Char8            (ByteString) import qualified Data.ByteString.Char8            as S@@ -86,8 +86,19 @@   ------------------------------------------------------------------------------+toTableList :: (Char -> Bool) -> [Char]+toTableList f = l+  where+    g c = c /= '-' && f c+    !l1 = filter g $ map w2c [0..255]+    !l0 = if f '-' then ['-'] else []+    !l  = l0 ++ l1+{-# INLINE toTableList #-}+++------------------------------------------------------------------------------ toTable :: (Char -> Bool) -> (Char -> Bool)-toTable f = inClass $ filter f $ map w2c [0..255]+toTable = inClass . toTableList {-# INLINE toTable #-}