haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

maximumContentLength is Word64 (#365)

Browse Source
This commit is contained in:
Michael Snoyman 2012-06-26 22:52:56 +03:00
parent 014732dac8
commit 4a6e027d29
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-core/Yesod/Internal/Core.hs
View File

@ -47,6 +47,7 @@ import Yesod.Handler hiding (lift, getExpires)
import Yesod.Routes.Class import Yesod.Routes.Class
import Data.Word (Word64)
import Control.Arrow ((***)) import Control.Arrow ((***))
import Control.Monad (forM) import Control.Monad (forM)
import Yesod.Widget import Yesod.Widget
@ -290,7 +291,7 @@ $doctype 5
cookieDomain _ = Nothing cookieDomain _ = Nothing
-- | Maximum allowed length of the request body, in bytes. -- | Maximum allowed length of the request body, in bytes.
maximumContentLength :: a -> Maybe (Route a) -> Int maximumContentLength :: a -> Maybe (Route a) -> Word64
maximumContentLength _ _ = 2 * 1024 * 1024 -- 2 megabytes maximumContentLength _ _ = 2 * 1024 * 1024 -- 2 megabytes
-- | Send a message to the log. By default, prints to stdout. -- | Send a message to the log. By default, prints to stdout.