Fix Show UrlReq

This commit is contained in:
Oleg Grenrus 2017-05-15 16:40:58 +03:00
parent 4ae8b1898f
commit acbcebc1d3

View file

@ -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