From eb22685597e0c1ac0931c5f97b87dc693e564e1a Mon Sep 17 00:00:00 2001
From: nek0 <neko.rloove@rocketmail.com>
Date: Thu, 4 Sep 2014 00:19:07 +0200
Subject: [PATCH] changed maximum upload size

---
 Foundation.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Foundation.hs b/Foundation.hs
index 717fefe..03d2655 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -57,6 +57,9 @@ type Form x = Html -> MForm (HandlerT App IO) (FormResult x, Widget)
 instance Yesod App where
     approot = ApprootMaster $ appRoot . settings
 
+    -- change maximum content length
+    maximumContentLength _ _ = Just $ 1024 ^ 5
+
     -- Store session data on the client in encrypted cookies,
     -- default session idle timeout is 120 minutes
     makeSessionBackend _ = fmap Just $ defaultClientSessionBackend