Thanks Alex,

contacting the maintainer of a package rather than author is probably
the best course of action in general. They may both be out of date,
but the former maybe less so. :)

As verified offline, you issue this request via sendHTTP when experiencing
this misbehavior.

A couple of suggestions on what to do:

* Use Network.Browser instead and send it via (browse $ request req),
which will normalize the path and Host: headers as you expect for (non-proxy)
   use.
* pull down the latest bits from the repository and normalize your request
   prior to calling sendHTTP by using

        (Network.HTTP.Base.normalizeRequest False{-no proxy-} req)

(we're in a tight spot wrt. backwards compatibility for sendHTTP, so having it perform this normalization step by default would break code that now interacts
   with proxies via sendHTTP.)

The repository version also has support for custom request verbs, which might be
of interest&use to some.

Let me know how it goes -- git repository URL available via http://projects.haskell.org/http/

hth
--sigbjorn


On 1/22/2009 11:32, Alex Ott wrote:
Hello

(i sent this message to the mail of author, specified at hackage, but it
returned to me, so i decided to resend it here)

I found strange thing during work with latest versions of CouchDB & HTTP
module on my Mac OS X 10.4. The problem is, that when i send document to
the couchdb server, it name was cut to the 2 characters.

After some investigation i found, that this is problem in combination of
the CouchDB + HTTP usage.  CouchDB module fills out the Request structure,
and specify scheme & authority fields.  This lead that i see (in network
dumps) following data:
....

I tried to fix this problem myself, but I'm novice in the industrial
Haskell programming ;-)

P.S. this code from (CouchDB/HTTP.hs) will restore proper behaviour of the
code, but break Host header

makeURL path query = CouchMonad $ \conn -> do
  return ( (ccURI conn) { uriPath = '/':path
                        , uriQuery = if null query then "" else 
'?':(urlEncodeVars query)
                        , uriScheme = ""
                        , uriAuthority = Nothing
                        }
         ,conn )


_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to