switch to new URI version by default, -DWITH_OLD_URI for old

This commit is contained in:
Joey Hess 2012-11-03 12:10:01 -04:00
parent 2541b109e0
commit 359f386ad6
4 changed files with 6 additions and 6 deletions

View file

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