diff options
| -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) |