I want to convert this code (a Hello World with the ebay API) to the curl binding in the hope that it will handle SSL and redirections etc better. Can someone give me some pointers please, or a link to an example? I haven't used libcurl or Network.Curl and can't find anything helpful...Thanks!
----------------- import Network.URI import Network.HTTP import Network.Browser import Data.Maybe (fromJust) mkRequest :: Request mkRequest = Request { rqURI = fromJust (parseURI "https://api.sandbox.ebay.com/ws/api.dll") , rqMethod = POST , rqBody = body , rqHeaders = headers } headers :: [Header] headers = [Header HdrContentType "text/xml" , Header (HdrCustom "X-EBAY-API-COMPATIBILITY-LEVEL") "391" , Header (HdrCustom "X-EBAY-API-DEV-NAME") "DevName" , Header (HdrCustom "X-EBAY-API-APP-NAME") "AppName" , Header (HdrCustom "X-EBAY-API-CERT-NAME") "CertName" , Header (HdrCustom "X-EBAY-API-CALL-NAME") "GeteBayOfficialTime" , Header (HdrCustom "X-EBAY-API-SITEID") "0" ] body = "<?xml version='1.0' encoding='utf-8'?>" ++ "<GeteBayOfficialTimeRequest xmlns=\"urn:ebay:apis:eBLBaseComponents\">" ++ " <RequesterCredentials>" ++ " <eBayAuthToken>"++"MyToken"++"</eBayAuthToken>" ++ " </RequesterCredentials>" ++ "</GeteBayOfficialTimeRequest>" main = do (_, resp) <- browse (request mkRequest) print resp _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe