Fix Show UrlReq
commitacbcebc1d369bcccde19e9a53e9cef4ba784023f
authorOleg Grenrus <oleg.grenrus@iki.fi>
dateMon 15 May 2017, 16:40 (9 years ago)
parent4ae8b18
servant-client/src/Servant/Common/Req.hs+3−1
@@ -90,7 +90,9 @@ instance Exception ServantError
9090data UrlReq = UrlReq BaseUrl Req
9191
9292instance Show UrlReq where
93− show (UrlReq url req) = showBaseUrl url ++ reqPath req ++ "?" ++ show (qs req)
93+ show (UrlReq url req) = showBaseUrl url ++ path ++ "?" ++ show (qs req)
94+ where
95+ path = cs (BS.toLazyByteString (reqPath req))
9496
9597data Req = Req
9698 { reqPath :: BS.Builder