snap-core 0.5.2 → 0.5.3

raw patch · 4 files changed

+10/−9 lines, 4 filesdep ~case-insensitivedep ~time

Dependency ranges changed: case-insensitive, time

Files

• snap-core.cabal +3/−3
• src/Snap/Internal/Http/Types.hs +1/−0
• src/Snap/Util/FileUploads.hs +5/−5
• test/snap-core-testsuite.cabal +1/−1

@@ -1,5 +1,5 @@ name:           snap-core-version:        0.5.2+version:        0.5.3 synopsis:       Snap: A Haskell Web Framework (Core)  description:@@ -133,7 +133,7 @@     blaze-builder >= 0.2.1.4 && <0.4,     bytestring,     bytestring-nums,-    case-insensitive >= 0.2 && < 0.3,+    case-insensitive >= 0.2 && < 0.4,     containers,     deepseq >= 1.1 && <1.2,     directory,@@ -145,7 +145,7 @@     old-locale,     old-time,     text >= 0.11 && <0.12,-    time,+    time >= 1.0 && < 1.4,     transformers == 0.2.*,     unix-compat == 0.2.*,     vector >= 0.6 && <0.8,

@@ -11,6 +11,7 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE TypeSynonymInstances #-}+{-# LANGUAGE FlexibleInstances #-}  module Snap.Internal.Http.Types where 

@@ -412,7 +412,7 @@ --   whenever we receive input from the client. data UploadPolicy = UploadPolicy {       processFormInputs         :: Bool-    , maximumFormInputSize      :: Int+    , maximumFormInputSize      :: Int64     , maximumNumberOfFormInputs :: Int     , minimumUploadRate         :: Double     , minimumUploadSeconds      :: Int@@ -459,14 +459,14 @@ ------------------------------------------------------------------------------ -- | Get the maximum size of a form input which will be read into our --   'rqParams' map.-getMaximumFormInputSize :: UploadPolicy -> Int+getMaximumFormInputSize :: UploadPolicy -> Int64 getMaximumFormInputSize = maximumFormInputSize   ------------------------------------------------------------------------------ -- | Set the maximum size of a form input which will be read into our --   'rqParams' map.-setMaximumFormInputSize :: Int -> UploadPolicy -> UploadPolicy+setMaximumFormInputSize :: Int64 -> UploadPolicy -> UploadPolicy setMaximumFormInputSize s u = u { maximumFormInputSize = s }  @@ -542,7 +542,7 @@  ------------------------------------------------------------------------------ captureVariableOrReadFile ::-       Int                                     -- ^ maximum size of form input+       Int64                                   -- ^ maximum size of form input     -> (PartInfo -> Iteratee ByteString IO a)  -- ^ file reading code     -> (PartInfo -> Iteratee ByteString IO (Capture a)) captureVariableOrReadFile maxSize fileHandler partInfo =@@ -557,7 +557,7 @@     varIter = do         var <- liftM S.concat $                joinI' $-               takeNoMoreThan (fromIntegral maxSize) $$ consume+               takeNoMoreThan maxSize $$ consume         return $ Capture fieldName var      handler e = do

@@ -28,7 +28,7 @@     blaze-builder >= 0.2.1.4 && <0.4,     bytestring,     bytestring-nums,-    case-insensitive >= 0.2 && < 0.3,+    case-insensitive >= 0.2 && < 0.4,     cereal == 0.3.*,     containers,     deepseq >= 1.1 && <1.2,