switch to new URI version by default, -DWITH_OLD_URI for old
This commit is contained in:
parent
2541b109e0
commit
359f386ad6
4 changed files with 6 additions and 6 deletions
|
@ -119,10 +119,10 @@ request url headers requesttype = go 5 url
|
|||
Nothing -> return rsp
|
||||
Just newURI -> go n newURI_abs
|
||||
where
|
||||
#ifdef URI_24
|
||||
newURI_abs = newURI `relativeTo` u
|
||||
#else
|
||||
#ifdef WITH_OLD_URI
|
||||
newURI_abs = fromMaybe newURI (newURI `relativeTo` u)
|
||||
#else
|
||||
newURI_abs = newURI `relativeTo` u
|
||||
#endif
|
||||
addheaders req = setHeaders req (rqHeaders req ++ userheaders)
|
||||
userheaders = rights $ map parseHeader headers
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue