From a843eb759bd7f955f95254ee93165968be39bbb0 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Wed, 26 Jul 2017 21:33:22 +0300 Subject: Stylish Haskell --- src/LogFormat.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/LogFormat.hs') 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. -- cgit v1.2.3