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