yesod-bin 1.2.5.6 → 1.2.5.7
raw patch · 8 files changed
+92/−26 lines, 8 files
Files
- hsfiles/mongo.hsfiles +15/−4
- hsfiles/mysql.hsfiles +15/−4
- hsfiles/postgres-fay.hsfiles +15/−4
- hsfiles/postgres.hsfiles +15/−4
- hsfiles/simple.hsfiles +15/−4
- hsfiles/sqlite.hsfiles +15/−4
- input/done.cg +1/−1
- yesod-bin.cabal +1/−1
hsfiles/mongo.hsfiles view
@@ -35,7 +35,8 @@ import qualified Network.Wai.Middleware.RequestLogger as RequestLogger import qualified Database.Persist import Network.HTTP.Conduit (newManager, conduitManagerSettings)-import System.Log.FastLogger (newLoggerSet, defaultBufSize)+import Control.Concurrent (forkIO, threadDelay)+import System.Log.FastLogger (newStdoutLoggerSet, defaultBufSize) import Network.Wai.Logger (clockDateCacher) import Data.Default (def) import Yesod.Core.Types (loggerSet, Logger (Logger))@@ -81,9 +82,19 @@ Database.Persist.applyEnv p <- Database.Persist.createPoolConfig (dbconf :: Settings.PersistConf) - loggerSet' <- newLoggerSet defaultBufSize Nothing- (getter, _) <- clockDateCacher+ loggerSet' <- newStdoutLoggerSet defaultBufSize+ (getter, updater) <- clockDateCacher + -- If the Yesod logger (as opposed to the request logger middleware) is+ -- used less than once a second on average, you may prefer to omit this+ -- thread and use "(updater >> getter)" in place of "getter" below. That+ -- would update the cache every time it is used, instead of every second.+ let updateLoop = do+ threadDelay 1000000+ updater+ updateLoop+ _ <- forkIO updateLoop+ let logger = Yesod.Core.Types.Logger loggerSet' getter foundation = App conf s p manager dbconf logger @@ -413,7 +424,7 @@ , aeson >= 0.6 && < 0.8 , conduit >= 1.0 && < 2.0 , monad-logger >= 0.3 && < 0.4- , fast-logger >= 2.1 && < 2.2+ , fast-logger >= 2.1.4 && < 2.2 , wai-logger >= 2.1 && < 2.2 executable PROJECTNAME
hsfiles/mysql.hsfiles view
@@ -37,7 +37,8 @@ import Database.Persist.Sql (runMigration) import Network.HTTP.Conduit (newManager, conduitManagerSettings) import Control.Monad.Logger (runLoggingT)-import System.Log.FastLogger (newLoggerSet, defaultBufSize)+import Control.Concurrent (forkIO, threadDelay)+import System.Log.FastLogger (newStdoutLoggerSet, defaultBufSize) import Network.Wai.Logger (clockDateCacher) import Data.Default (def) import Yesod.Core.Types (loggerSet, Logger (Logger))@@ -83,9 +84,19 @@ Database.Persist.applyEnv p <- Database.Persist.createPoolConfig (dbconf :: Settings.PersistConf) - loggerSet' <- newLoggerSet defaultBufSize Nothing- (getter, _) <- clockDateCacher+ loggerSet' <- newStdoutLoggerSet defaultBufSize+ (getter, updater) <- clockDateCacher + -- If the Yesod logger (as opposed to the request logger middleware) is+ -- used less than once a second on average, you may prefer to omit this+ -- thread and use "(updater >> getter)" in place of "getter" below. That+ -- would update the cache every time it is used, instead of every second.+ let updateLoop = do+ threadDelay 1000000+ updater+ updateLoop+ _ <- forkIO updateLoop+ let logger = Yesod.Core.Types.Logger loggerSet' getter foundation = App conf s p manager dbconf logger @@ -417,7 +428,7 @@ , aeson >= 0.6 && < 0.8 , conduit >= 1.0 && < 2.0 , monad-logger >= 0.3 && < 0.4- , fast-logger >= 2.1 && < 2.2+ , fast-logger >= 2.1.4 && < 2.2 , wai-logger >= 2.1 && < 2.2 executable PROJECTNAME
hsfiles/postgres-fay.hsfiles view
@@ -39,7 +39,8 @@ import Network.HTTP.Conduit (newManager, conduitManagerSettings) import Yesod.Fay (getFaySite) import Control.Monad.Logger (runLoggingT)-import System.Log.FastLogger (newLoggerSet, defaultBufSize)+import Control.Concurrent (forkIO, threadDelay)+import System.Log.FastLogger (newStdoutLoggerSet, defaultBufSize) import Network.Wai.Logger (clockDateCacher) import Data.Default (def) import Yesod.Core.Types (loggerSet, Logger (Logger))@@ -86,9 +87,19 @@ Database.Persist.applyEnv p <- Database.Persist.createPoolConfig (dbconf :: Settings.PersistConf) - loggerSet' <- newLoggerSet defaultBufSize Nothing- (getter, _) <- clockDateCacher+ loggerSet' <- newStdoutLoggerSet defaultBufSize+ (getter, updater) <- clockDateCacher + -- If the Yesod logger (as opposed to the request logger middleware) is+ -- used less than once a second on average, you may prefer to omit this+ -- thread and use "(updater >> getter)" in place of "getter" below. That+ -- would update the cache every time it is used, instead of every second.+ let updateLoop = do+ threadDelay 1000000+ updater+ updateLoop+ _ <- forkIO updateLoop+ let logger = Yesod.Core.Types.Logger loggerSet' getter foundation = App conf s p manager dbconf onCommand logger @@ -454,7 +465,7 @@ , aeson >= 0.6 && < 0.8 , conduit >= 1.0 && < 2.0 , monad-logger >= 0.3 && < 0.4- , fast-logger >= 2.1 && < 2.2+ , fast-logger >= 2.1.4 && < 2.2 , wai-logger >= 2.1 && < 2.2 executable PROJECTNAME
hsfiles/postgres.hsfiles view
@@ -37,7 +37,8 @@ import Database.Persist.Sql (runMigration) import Network.HTTP.Conduit (newManager, conduitManagerSettings) import Control.Monad.Logger (runLoggingT)-import System.Log.FastLogger (newLoggerSet, defaultBufSize)+import Control.Concurrent (forkIO, threadDelay)+import System.Log.FastLogger (newStdoutLoggerSet, defaultBufSize) import Network.Wai.Logger (clockDateCacher) import Data.Default (def) import Yesod.Core.Types (loggerSet, Logger (Logger))@@ -83,9 +84,19 @@ Database.Persist.applyEnv p <- Database.Persist.createPoolConfig (dbconf :: Settings.PersistConf) - loggerSet' <- newLoggerSet defaultBufSize Nothing- (getter, _) <- clockDateCacher+ loggerSet' <- newStdoutLoggerSet defaultBufSize+ (getter, updater) <- clockDateCacher + -- If the Yesod logger (as opposed to the request logger middleware) is+ -- used less than once a second on average, you may prefer to omit this+ -- thread and use "(updater >> getter)" in place of "getter" below. That+ -- would update the cache every time it is used, instead of every second.+ let updateLoop = do+ threadDelay 1000000+ updater+ updateLoop+ _ <- forkIO updateLoop+ let logger = Yesod.Core.Types.Logger loggerSet' getter foundation = App conf s p manager dbconf logger @@ -417,7 +428,7 @@ , aeson >= 0.6 && < 0.8 , conduit >= 1.0 && < 2.0 , monad-logger >= 0.3 && < 0.4- , fast-logger >= 2.1 && < 2.2+ , fast-logger >= 2.1.4 && < 2.2 , wai-logger >= 2.1 && < 2.2 executable PROJECTNAME
hsfiles/simple.hsfiles view
@@ -32,7 +32,8 @@ ) import qualified Network.Wai.Middleware.RequestLogger as RequestLogger import Network.HTTP.Conduit (newManager, conduitManagerSettings)-import System.Log.FastLogger (newLoggerSet, defaultBufSize)+import Control.Concurrent (forkIO, threadDelay)+import System.Log.FastLogger (newStdoutLoggerSet, defaultBufSize) import Network.Wai.Logger (clockDateCacher) import Data.Default (def) import Yesod.Core.Types (loggerSet, Logger (Logger))@@ -74,9 +75,19 @@ manager <- newManager conduitManagerSettings s <- staticSite - loggerSet' <- newLoggerSet defaultBufSize Nothing- (getter, _) <- clockDateCacher+ loggerSet' <- newStdoutLoggerSet defaultBufSize+ (getter, updater) <- clockDateCacher + -- If the Yesod logger (as opposed to the request logger middleware) is+ -- used less than once a second on average, you may prefer to omit this+ -- thread and use "(updater >> getter)" in place of "getter" below. That+ -- would update the cache every time it is used, instead of every second.+ let updateLoop = do+ threadDelay 1000000+ updater+ updateLoop+ _ <- forkIO updateLoop+ let logger = Yesod.Core.Types.Logger loggerSet' getter foundation = App conf s manager logger @@ -344,7 +355,7 @@ , aeson >= 0.6 && < 0.8 , conduit >= 1.0 && < 2.0 , monad-logger >= 0.3 && < 0.4- , fast-logger >= 2.1 && < 2.2+ , fast-logger >= 2.1.4 && < 2.2 , wai-logger >= 2.1 && < 2.2 executable PROJECTNAME
hsfiles/sqlite.hsfiles view
@@ -37,7 +37,8 @@ import Database.Persist.Sql (runMigration) import Network.HTTP.Conduit (newManager, conduitManagerSettings) import Control.Monad.Logger (runLoggingT)-import System.Log.FastLogger (newLoggerSet, defaultBufSize)+import Control.Concurrent (forkIO, threadDelay)+import System.Log.FastLogger (newStdoutLoggerSet, defaultBufSize) import Network.Wai.Logger (clockDateCacher) import Data.Default (def) import Yesod.Core.Types (loggerSet, Logger (Logger))@@ -83,9 +84,19 @@ Database.Persist.applyEnv p <- Database.Persist.createPoolConfig (dbconf :: Settings.PersistConf) - loggerSet' <- newLoggerSet defaultBufSize Nothing- (getter, _) <- clockDateCacher+ loggerSet' <- newStdoutLoggerSet defaultBufSize+ (getter, updater) <- clockDateCacher + -- If the Yesod logger (as opposed to the request logger middleware) is+ -- used less than once a second on average, you may prefer to omit this+ -- thread and use "(updater >> getter)" in place of "getter" below. That+ -- would update the cache every time it is used, instead of every second.+ let updateLoop = do+ threadDelay 1000000+ updater+ updateLoop+ _ <- forkIO updateLoop+ let logger = Yesod.Core.Types.Logger loggerSet' getter foundation = App conf s p manager dbconf logger @@ -417,7 +428,7 @@ , aeson >= 0.6 && < 0.8 , conduit >= 1.0 && < 2.0 , monad-logger >= 0.3 && < 0.4- , fast-logger >= 2.1 && < 2.2+ , fast-logger >= 2.1.4 && < 2.2 , wai-logger >= 2.1 && < 2.2 executable PROJECTNAME
input/done.cg view
@@ -24,4 +24,4 @@ Start your project: - cd PROJECTNAME && cabal sandbox init && cabal install && yesod devel+ cd PROJECTNAME && cabal sandbox init && cabal install --enable-tests . yesod-platform yesod-bin && yesod devel
yesod-bin.cabal view
@@ -1,5 +1,5 @@ name: yesod-bin-version: 1.2.5.6+version: 1.2.5.7 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>