simpler use of MIN_VERSION checks

This commit is contained in:
Joey Hess 2013-03-10 15:43:10 -04:00
parent 27078cca95
commit 56830af8d8
4 changed files with 8 additions and 26 deletions

View file

@ -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