diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2016-11-20 18:26:25 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2016-11-20 18:26:25 +0300 |
| commit | d3e51b7f79f3098eb8a2f1a56c8f2a16db5eab6b (patch) | |
| tree | 5c66bc54ebf737845a0523bf9379aeeebac16ccc /src/Sproxy | |
| parent | f91436aa42bb95e11447e5fe79c3d813a7affc8a (diff) | |
| download | sproxy2-d3e51b7f79f3098eb8a2f1a56c8f2a16db5eab6b.tar.gz | |
Show HTTP version in logs
Diffstat (limited to 'src/Sproxy')
| -rw-r--r-- | src/Sproxy/Application.hs | 1 |
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) |