From d3e51b7f79f3098eb8a2f1a56c8f2a16db5eab6b Mon Sep 17 00:00:00 2001 From: Igor Pashev 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 "" (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