aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2016-11-20 18:26:25 +0300
committerIgor Pashev <pashev.igor@gmail.com>2016-11-20 18:26:25 +0300
commitd3e51b7f79f3098eb8a2f1a56c8f2a16db5eab6b (patch)
tree5c66bc54ebf737845a0523bf9379aeeebac16ccc
parentf91436aa42bb95e11447e5fe79c3d813a7affc8a (diff)
downloadsproxy2-d3e51b7f79f3098eb8a2f1a56c8f2a16db5eab6b.tar.gz
Show HTTP version in logs
-rw-r--r--src/Sproxy/Application.hs1
1 files changed, 1 insertions, 0 deletions
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)