diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2017-07-26 21:33:22 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2017-07-26 21:33:22 +0300 |
| commit | a843eb759bd7f955f95254ee93165968be39bbb0 (patch) | |
| tree | 45eefceb8abc5cca7b9e8d30cce2a651ea29170d /src/LogFormat.hs | |
| parent | 5b1b8ef7fccd9f039b5decf31f160dbf4b989793 (diff) | |
| download | mywatch-a843eb759bd7f955f95254ee93165968be39bbb0.tar.gz | |
Stylish Haskell
Diffstat (limited to 'src/LogFormat.hs')
| -rw-r--r-- | src/LogFormat.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/LogFormat.hs b/src/LogFormat.hs index 9eb25f1..b1fc488 100644 --- a/src/LogFormat.hs +++ b/src/LogFormat.hs @@ -4,13 +4,13 @@ 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, requestHeaders, requestMethod, - rawPathInfo, requestHeaderReferer, requestHeaderUserAgent) +import Network.HTTP.Types (Status (statusCode)) +import Network.Wai (Request, httpVersion, rawPathInfo, requestHeaderReferer, + requestHeaderUserAgent, requestHeaders, requestMethod) import System.Log.FastLogger (LogStr, toLogStr) -import qualified Data.ByteString.Char8 as BS -- Sligthly modified Combined Log Format. -- User ID extracted from the From header. |