git.iko.soy/servant
on master help sign in
Fix Show UrlReq
acbcebcOleg Grenrus
servant-client/src/Servant/Common/Req.hs+3−1
compare with master
unifiedsplit
@@ -90,7 +90,9 @@ instance Exception ServantError
90data UrlReq = UrlReq BaseUrl Req
90data UrlReq = UrlReq BaseUrl Req
91
91
92instance Show UrlReq where
92instance 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))
94
96
95data Req = Req
97data Req = Req
96 { reqPath :: BS.Builder
98 { reqPath :: BS.Builder