From d3e51b7f79f3098eb8a2f1a56c8f2a16db5eab6b Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sun, 20 Nov 2016 18:26:25 +0300
Subject: Show HTTP version in logs
---
src/Sproxy/Application.hs | 1 +
1 file changed, 1 insertion(+)
(limited to 'src')
diff --git a/src/Sproxy/Application.hs b/src/Sproxy/Application.hs
index e4cc3ab..801212c 100644
--- a/src/Sproxy/Application.hs
+++ b/src/Sproxy/Application.hs
@@ -368,6 +368,7 @@ showReq req =
unpack ( W.requestMethod req <> " "
<> fromMaybe "<no host>" (W.requestHeaderHost req)
<> W.rawPathInfo req <> W.rawQueryString req <> " " )
+ ++ show (W.httpVersion req) ++ " "
++ show (fromMaybe "-" $ W.requestHeaderReferer req) ++ " "
++ show (fromMaybe "-" $ W.requestHeaderUserAgent req)
++ " from " ++ show (W.remoteHost req)
--
cgit v1.2.3