[Haskell-cafe] Error in HTTP 4.004 + CouchDB?

[Sigbjorn Finne]

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