From acbcebc1d369bcccde19e9a53e9cef4ba784023f Mon Sep 17 00:00:00 2001 From: Oleg Grenrus Date: Mon, 15 May 2017 16:40:58 +0300 Subject: [PATCH] Fix Show UrlReq --- servant-client/src/Servant/Common/Req.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/servant-client/src/Servant/Common/Req.hs b/servant-client/src/Servant/Common/Req.hs index 6c98ce15..88d1d001 100644 --- a/servant-client/src/Servant/Common/Req.hs +++ b/servant-client/src/Servant/Common/Req.hs @@ -90,7 +90,9 @@ instance Exception ServantError data UrlReq = UrlReq BaseUrl Req instance Show UrlReq where - show (UrlReq url req) = showBaseUrl url ++ reqPath req ++ "?" ++ show (qs req) + show (UrlReq url req) = showBaseUrl url ++ path ++ "?" ++ show (qs req) + where + path = cs (BS.toLazyByteString (reqPath req)) data Req = Req { reqPath :: BS.Builder