diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2017-08-03 21:03:32 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2017-08-03 21:29:29 +0300 |
| commit | 65b71a99fdb60ad063cb7e8976143027b1e260e7 (patch) | |
| tree | e5f95ea9f7567c93d9ed1f200c46a5fd9bc1a586 /src/LogFormat.hs | |
| parent | a843eb759bd7f955f95254ee93165968be39bbb0 (diff) | |
| download | mywatch-65b71a99fdb60ad063cb7e8976143027b1e260e7.tar.gz | |
hindent wins
Diffstat (limited to 'src/LogFormat.hs')
| -rw-r--r-- | src/LogFormat.hs | 58 |
1 files changed, 29 insertions, 29 deletions
diff --git a/src/LogFormat.hs b/src/LogFormat.hs index b1fc488..2957e97 100644 --- a/src/LogFormat.hs +++ b/src/LogFormat.hs @@ -1,40 +1,40 @@ {-# LANGUAGE OverloadedStrings #-} -module LogFormat ( - logFormat -) where +module LogFormat + ( logFormat + ) where import qualified Data.ByteString.Char8 as BS import Data.Maybe (fromMaybe) import Data.Monoid ((<>)) -import Network.HTTP.Types (Status (statusCode)) -import Network.Wai (Request, httpVersion, rawPathInfo, requestHeaderReferer, - requestHeaderUserAgent, requestHeaders, requestMethod) +import Network.HTTP.Types (Status(statusCode)) +import Network.Wai + (Request, httpVersion, rawPathInfo, requestHeaderReferer, + requestHeaderUserAgent, requestHeaders, requestMethod) import System.Log.FastLogger (LogStr, toLogStr) -- Sligthly modified Combined Log Format. -- User ID extracted from the From header. logFormat :: BS.ByteString -> Request -> Status -> Maybe Integer -> LogStr -logFormat t req st msize = "" - <> toLogStr (fromMaybe "-" $ lookup "X-Forwarded-For" headers) - <> " - " - <> toLogStr (fromMaybe "-" $ lookup "From" headers) - <> " [" - <> toLogStr t - <> "] \"" - <> toLogStr (requestMethod req) - <> " " - <> toLogStr (rawPathInfo req) - <> " " - <> toLogStr (show $ httpVersion req) - <> "\" " - <> toLogStr (show $ statusCode st) - <> " " - <> toLogStr (maybe "-" show msize) - <> " \"" - <> toLogStr (fromMaybe "" $ requestHeaderReferer req) - <> "\" \"" - <> toLogStr (fromMaybe "" $ requestHeaderUserAgent req) - <> "\"\n" - where headers = requestHeaders req - +logFormat t req st msize = + "" <> toLogStr (fromMaybe "-" $ lookup "X-Forwarded-For" headers) <> " - " <> + toLogStr (fromMaybe "-" $ lookup "From" headers) <> + " [" <> + toLogStr t <> + "] \"" <> + toLogStr (requestMethod req) <> + " " <> + toLogStr (rawPathInfo req) <> + " " <> + toLogStr (show $ httpVersion req) <> + "\" " <> + toLogStr (show $ statusCode st) <> + " " <> + toLogStr (maybe "-" show msize) <> + " \"" <> + toLogStr (fromMaybe "" $ requestHeaderReferer req) <> + "\" \"" <> + toLogStr (fromMaybe "" $ requestHeaderUserAgent req) <> + "\"\n" + where + headers = requestHeaders req |