wai-extra 1.3.0 → 1.3.0.1
raw patch · 2 files changed
+17/−5 lines, 2 filesdep +date-cachedep ~directorydep ~fast-loggerdep ~resourcet
Dependencies added: date-cache
Dependency ranges changed: directory, fast-logger, resourcet, wai-logger
Files
Network/Wai/Middleware/RequestLogger.hs view
@@ -1,5 +1,6 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE CPP #-} module Network.Wai.Middleware.RequestLogger ( -- * Basic stdout logging logStdout@@ -37,7 +38,11 @@ import Data.Default (Default (def)) import Network.Wai.Logger.Format (apacheFormat, IPAddrSource (..))+#if MIN_VERSION_fast_logger(0,3,0)+import System.Date.Cache (ondemandDateCacher)+#else import System.Log.FastLogger.Date (getDate, dateInit, ZonedDate)+#endif data OutputFormat = Apache IPAddrSource | Detailed Bool -- ^ use colors?@@ -79,7 +84,13 @@ getdate <- case mgetdate of Just x -> return x+#if MIN_VERSION_fast_logger(0, 3, 0)+ Nothing -> do+ (getter,_) <- ondemandDateCacher zonedDateCacheConf+ return getter+#else Nothing -> fmap getDate dateInit+#endif return $ apacheMiddleware callback ipsrc getdate Detailed useColors -> detailedMiddleware callback useColors where
wai-extra.cabal view
@@ -1,5 +1,5 @@ Name: wai-extra-Version: 1.3.0+Version: 1.3.0.1 Synopsis: Provides some basic WAI handlers and middleware. Description: The goal here is to provide common features without many dependencies. License: MIT@@ -26,20 +26,21 @@ , old-locale >= 1.0.0.2 && < 1.1 , time >= 1.1.4 , network >= 2.2.1.5 && < 2.4- , directory >= 1.0.1 && < 1.2+ , directory >= 1.0.1 , transformers >= 0.2.2 && < 0.4 , blaze-builder >= 0.2.1.4 && < 0.4 , http-types >= 0.7 && < 0.8 , text >= 0.7 && < 0.12 , case-insensitive >= 0.2 , data-default- , fast-logger >= 0.2 && < 0.3- , wai-logger >= 0.2 && < 0.3+ , date-cache >= 0.3 && < 0.4+ , fast-logger >= 0.2 && < 0.4+ , wai-logger >= 0.2 && < 0.4 , conduit >= 0.5 && < 0.6 , zlib-conduit >= 0.5 && < 0.6 , blaze-builder-conduit >= 0.5 && < 0.6 , ansi-terminal- , resourcet >= 0.3 && < 0.4+ , resourcet >= 0.3 && < 0.5 , void >= 0.5 && < 0.6 , stringsearch >= 0.3 && < 0.4