Fix Show UrlReq

2017-05-15 16:40:58 +03:00 · 2017-05-15 16:40:58 +03:00 · acbcebc1d3
commit acbcebc1d3
parent 4ae8b1898f
1 changed files with 3 additions and 1 deletions
--- 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