haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-02 14:20:25 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Disable out-of-file static content to allow horizontal scaling

Browse Source
This commit is contained in:
Michael Snoyman 2015-02-25 06:55:11 +02:00
parent 0abc55d76e
commit 1567029075
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Foundation.hs
View File

@ -131,6 +131,7 @@ instance Yesod App where
-- The page to be redirected to when authentication is required. -- The page to be redirected to when authentication is required.
authRoute _ = Just $ AuthR LoginR authRoute _ = Just $ AuthR LoginR
{- Temporarily disable to allow for horizontal scaling
-- This function creates static content files in the static folder -- This function creates static content files in the static folder
-- and names them based on a hash of their content. This allows -- and names them based on a hash of their content. This allows
-- expiration dates to be set far in the future without worry of -- expiration dates to be set far in the future without worry of
@ -142,6 +143,7 @@ instance Yesod App where
genFileName lbs genFileName lbs
| development = "autogen-" ++ base64md5 lbs | development = "autogen-" ++ base64md5 lbs
| otherwise = base64md5 lbs | otherwise = base64md5 lbs
-}
-- Place Javascript at bottom of the body tag so the rest of the page loads first -- Place Javascript at bottom of the body tag so the rest of the page loads first
jsLoader _ = BottomOfBody jsLoader _ = BottomOfBody