diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-10 15:43:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-10 15:43:17 -0400 |
| commit | 30cf4d4df7a4fda22e997366731af910f9996c78 (patch) | |
| tree | c0ffb1882ad668df3b6bb0940ceb673ab8dc3003 /Utility/WebApp.hs | |
| parent | cbe2b256dbe6657dae559896ec2957fbde6595ff (diff) | |
simpler use of MIN_VERSION checks
Diffstat (limited to 'Utility/WebApp.hs')
| -rw-r--r-- | Utility/WebApp.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index 0623d4a48..29daacab1 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -59,6 +59,7 @@ runWebApp app observer = do void $ forkIO $ runSettingsSocket webAppSettings sock app observer =<< getSocketName sock +webAppSettings :: Settings webAppSettings = defaultSettings -- disable buggy sloworis attack prevention code { settingsTimeout = 30 * 60 @@ -140,6 +141,7 @@ webAppSessionBackend _ = do Right (s, _) -> case CS.initKey s of Left e -> error $ "failed to initialize key: " ++ show e Right key -> return $ Just $ + Yesod.clientSessionBackend key 120 {- Generates a random sha512 string, suitable to be used for an |