From 65b71a99fdb60ad063cb7e8976143027b1e260e7 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Thu, 3 Aug 2017 21:03:32 +0300
Subject: hindent wins

---
 src/LogFormat.hs | 58 ++++++++++++++++++++++++++++----------------------------
 1 file changed, 29 insertions(+), 29 deletions(-)

(limited to 'src/LogFormat.hs')

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
-- 
cgit v1.2.3