eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix Show UrlReq

Browse source
This commit is contained in:
Oleg Grenrus 2017-05-15 16:40:58 +03:00
parent 4ae8b1898f
commit acbcebc1d3
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-client/src/Servant/Common/Req.hs
View file

@ -90,7 +90,9 @@ instance Exception ServantError
data UrlReq = UrlReq BaseUrl Req data UrlReq = UrlReq BaseUrl Req
instance Show UrlReq where 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 data Req = Req
{ reqPath :: BS.Builder { reqPath :: BS.Builder