- Haskell-Cafe - Haskell.org

Re: Help using Network.Curl
by Jim Burton 21 Jul '08

21 Jul '08

I tried to translate that using the Network.Curl docs and ended up with the following code, but it's not sending the post data correctly (an ebay api error re an "unsupported verb", which I am told means a malformed request). Any ideas? The code from a perl tutorial (which works for me, making me think that my problem is just about the right way to post xml to a web service) follows the haskell version, which is meant to be a straight translation of that. Thanks, Jim ---------------------- [..skipped definitions of tokens etc..] opts = [CurlEncoding "text/xml" , CurlHttpHeaders ["X-EBAY-API-COMPATIBILITY-LEVEL="++compatLevel , "X-EBAY-API-DEV-NAME="++devName , "X-EBAY-API-APP-NAME="++appName , "X-EBAY-API-CERT-NAME="++certName , "X-EBAY-API-CALL-NAME=GeteBayOfficialTime" , "X-EBAY-API-SITEID=0"]] body = "<?xml version='1.0' encoding='utf-8'?>" ++ "<GeteBayOfficialTimeRequest xmlns=\"urn:ebay:apis:eBLBaseComponents\">" ++ " <RequesterCredentials>" ++ " <eBayAuthToken>"++token++"</eBayAuthToken>" ++ " </RequesterCredentials>" ++ "</GeteBayOfficialTimeRequest>" url = "https://api.sandbox.ebay.com/ws/api.dll" postData = HttpPost {postName = "body" , contentType = Just "text/xml" , content = ContentString body , extraHeaders = [] , showName = Nothing} opts = [] --also tried using curlPost and setopts then perform... main = withCurlDo (do h <- initialize curlMultiPost url opts [postData] ) --------------------------- Original perl: use strict; use LWP::UserAgent; use HTTP::Request; use HTTP::Headers; # define the HTTP header my $objHeader = HTTP::Headers->new; $objHeader->push_header('X-EBAY-API-COMPATIBILITY-LEVEL' => '391'); $objHeader->push_header('X-EBAY-API-DEV-NAME' => 'yourdevname'); $objHeader->push_header('X-EBAY-API-APP-NAME' => 'yourappname'); $objHeader->push_header('X-EBAY-API-CERT-NAME' => 'yourcertname'); $objHeader->push_header('X-EBAY-API-CALL-NAME' => 'GeteBayOfficialTime'); $objHeader->push_header('X-EBAY-API-SITEID' => '0'); $objHeader->push_header('Content-Type' => 'text/xml'); # define the XML request my $request = "<?xml version='1.0' encoding='utf-8'?>" . "<GeteBayOfficialTimeRequest xmlns=\"urn:ebay:apis:eBLBaseComponents\">" . " <RequesterCredentials>" . " <eBayAuthToken>TOKENGoesHERE</eBayAuthToken>" . " </RequesterCredentials>" . "</GeteBayOfficialTimeRequest>"; # make the call my $objRequest = HTTP::Request->new( "POST", "https://api.sandbox.ebay.com/ws/api.dll", $objHeader, $request ); # deal with the response my $objUserAgent = LWP::UserAgent->new; my $objResponse = $objUserAgent->request($objRequest); if (!$objResponse->is_error) { print $objResponse->content; } else { print $objResponse->error_as_HTML; } ------------------------------ This is what I get when running my version: $ ./curlTest * About to connect() to api.sandbox.ebay.com port 443 (#0) * Trying 66.135.197.133... * connected * Connected to api.sandbox.ebay.com (66.135.197.133) port 443 (#0) * successfully set certificate verify locations: * CAfile: /etc/ssl/certs/ca-certificates.crt CApath: none * SSL connection using AES256-SHA * Server certificate: * subject: /C=US/ST=California/L=San Jose/O=eBay Inc./OU=Site Operations/CN=api.sandbox.ebay.com * start date: 2008-01-25 00:00:00 GMT * expire date: 2010-03-15 23:59:59 GMT * common name: api.sandbox.ebay.com (matched) * issuer: /C=US/O=VeriSign, Inc./OU=VeriSign Trust Network/OU=Terms of use at https://www.verisign.com/rpa (c)05/CN=VeriSign Class 3 Secure Server CA * SSL certificate verify ok. > POST /ws/api.dll HTTP/1.1 Host: api.sandbox.ebay.com Accept: */* Accept-Encoding: text/xml Content-Length: 1254 Expect: 100-continue Content-Type: multipart/form-data; boundary=----------------------------7c836e9408cd < HTTP/1.1 100 Continue < HTTP/1.1 200 OK < Date: Sat, 19 Jul 2008 20:04:12 GMT < Server: Microsoft-IIS/5.0 < X-EBAY-API-POOL-NAME: ___cDRidW90YmtiZWx9b2l3aQ== < X-EBAY-API-SERVER-NAME: ___dXUucnVlYnVvNzM3KTYzKzc3LTI0KTQxPD8zPTc= < Content-Type: text/xml < Content-Length: 330 < X-Cache: MISS from sjcsbagpigw02.sjc.ebay.com, MISS from sjcsbagpigw02.sjc.ebay.com < Connection: close < * Closing connection #0 <?xml version="1.0" encoding="UTF-8" ?><eBay><EBayTime>2008-07-19 20:04:55</EBayTime><Errors><Error><Code>2</Code><ErrorClass>RequestError</ErrorClass><SeverityCode>1</SeverityCode><Severity>SeriousError</Severity><Line>0</Line><Column>0</Column><ShortMessage><![CDATA[ Unsupported verb. ]]></ShortMessage></Error></Errors></eBay>

2 2

GHC Error: "FATAL:Symbol _XJv_srt already defined."
by Ron Alford 21 Jul '08

21 Jul '08

Anyone know what this is about? Removing parts makes problem go away, but it's not clear what parts to remove! (that, and I wrote those parts for a reason!). bash-3.2$ ghc --version The Glorious Glasgow Haskell Compilation System, version 6.8.3 bash-3.2$ uname -a Darwin silverback-wired.home 9.4.0 Darwin Kernel Version 9.4.0: Mon Jun 9 19:30:53 PDT 2008; root:xnu-1228.5.20~1/RELEASE_I386 i386 $ rm -f DerivingError.o DerivingError.hi; ghc --make DerivingError.hs [1 of 1] Compiling DerivingError ( DerivingError.hs, DerivingError.o ) /var/folders/C0/C0SledGV2RaxbU+8ZLDnVU+++TI/-Tmp-//ghc27223_0/ghc27223_0.s:6080:0: FATAL:Symbol _XxG_srt already defined. -Ron Alford

2 2

Haskell code contributions
by Galchin, Vasili 21 Jul '08

21 Jul '08

Hello, I have a password to upload Haskell code contributions but I can't find the email with the password and I have forgotten who is the "gatekeeper". ?? Regards, Vasili

2 1

Data.Complex.magnitude slow?
by stefan kersten 21 Jul '08

21 Jul '08

hi, i've attached an example program which seems to indicate that the magnitude function from Data.Complex is very slow compared to a more naive implementation (for Complex Float). on my machine (intel core2 duo, osx 10.4) the CPU time using the library function is about 6-7 times as much as when using the other function. any ideas what might be going on? any flaws in my measurement code? thanks, <sk>

7 17

Help with optimization
by Mitar 21 Jul '08

21 Jul '08

Hi! Profiling says that my program spends 18.4 % of time (that is around three seconds) and 18.3 % of allocations in this function which is saving the rendered image to a PPM file: saveImageList :: String -> Int -> Int -> [ViewportDotColor] -> IO () saveImageList filename width height image = do B.writeFile filename file where file = B.append header bytes header = C.pack $ "P6\n" ++ show width ++ " " ++ show height ++ "\n255\n" bytes = B.pack $ concatMap (color . dealpha . (\(ViewportDotColor _ c) -> c)) image where color (VoxelColor red green blue _) = [floor $ red * 255, floor $ green * 255, floor $ blue * 255] dealpha c = addColor c (VoxelColor 1.0 1.0 1.0 1.0) -- white background For a 921615 bytes large file to save this is too much in my opinion. And I think that it consumes to much allocations. Probably it should not store intermediate lists? Any suggestions? Best regards Mitar

3 3

ghc 6.8.3 build error with __DISCARD__ linking problem, please help!
by Yu Di 19 Jul '08

19 Jul '08

Hi, I am trying to build ghc 6.8.3 from source release, my currently installed version is ghc 6.4.2 (x86 linux binary release version), and I got: /usr/local/ghc/bin/ghc -o ghc-pkg.bin -H16m -O -cpp -Wall -fno-warn-name-shadowing -fno-warn-unused-matches -DUSING_COMPAT -i../../compat -ignore-package Cabal -Rghc-timing -package unix -L../../compat -lghccompat Main.o Version.o CRT_noglob.o Main.o: In function `__stginit_ZCMain': ghc13533.hc:(.text+0x4): undefined reference to `__DISCARD__' ghc13533.hc:(.text+0x9): undefined reference to `__DISCARD__' Main.o: In function `__stginit_Main': ghc13533.hc:(.text+0x18): undefined reference to `__DISCARD__' ghc13533.hc:(.text+0x1d): undefined reference to `__DISCARD__' Main.o: In function `__stginit_Main_': ghc13533.hc:(.text+0x2c): undefined reference to `__DISCARD__' Main.o:ghc13533.hc:(.text+0x3d): more undefined references to `__DISCARD__' follow collect2: ld returned 1 exit status <<ghc: 13726704 bytes, 3 GCs, 105428/105428 avg/max bytes residency (1 samples), 15M in use, 0.00 INIT (0.00 elapsed), 0.01 MUT (1.98 elapsed), 0.01 GC (0.03 elapsed) :ghc>> Do you know how I can fix this problem? My ghc and gcc versions are: The Glorious Glasgow Haskell Compilation System, version 6.4.2 gcc (GCC) 4.1.1 20060724 (prerelease) (4.1.1-4pclos2007) Thanks! Di, Yu 7.19

1 0

Trying to install cabal
by Eric 19 Jul '08

19 Jul '08

Dear all, I have downloaded cabal and am trying to install it but have gotten the following error message: C:\cabal\cabal-install-0.5.1>runghc Setup configure Configuring cabal-install-0.5.1... Setup: At least the following dependencies are missing Cabal >=1.4&&<1.5, HTTP >=3000&&<3002, zlib >=0.4 I'm not sure from this message what packages I need to install to get cabal up and running. Can anyone help? Eric M.

8 8

FFI C Structs
by Aleš Bizjak 19 Jul '08

19 Jul '08

Hello, Suppose I have a C struct like typedef { int a; int *b; } Foo; typedef Foo *fooptr; and all worker functions which are all basically int foofun (fooptr , fooptr, fooptr) where the first one is a out argument and the other two are in arguments and the return value is (almost) irrelevant. Now before I can pass arguments I have to initialize them and this is done with void init(fooptr ) function and all values have to be cleared which is done with void clear(fooptr ). I tried to import this to haskell like this. data Foo = Foo type FFptr = ForeignPtr Foo and because I would like to have a nice interface without manually worrying about allocation and freeing up I tried something like this: foreign import ccall "&clear" clear :: FunPtr (Ptr Foo -> IO ()) foreign import ccall "init" init :: Ptr Foo -> IO () foreign import ccall "foofun" foofun_ :: Ptr Foo -> Ptr Foo -> Ptr Foo -> IO Int foofun :: FFptr -> FFptr -> FFptr foofun f1 f2 = unsafePerformIO f where f = withForeignPtr f1 (p1 -> withForeignPtr f2 (p2 -> do p3 <- malloc init p3 r <- foofun_ p3 p1 p2 newForeignPtr clear p3 Now should that work or do I have to do some more reading on ffi and if so, would anyone recommend some material because this is all I could come up with. PS: An example of a haskell binding like this would be even more useful, if anyone knows of such.

2 1

NW Functional Programming Interest Group
by Greg Meredith 19 Jul '08

19 Jul '08

All, Apologies for multiple listings. A small cadre of us are organizing a Northwest Functional Programming Interest Group (hey... NWFPIG, that's kinda funny). Our first official meeting is at the The Seattle Public Library 1000 - 4th Ave. Seattle, WA 98104 from 17:00 - 18:00 on February 20th. On the first meeting's agenda we'll be - giving people who are interested in or actively using FP for work or play a chance to meet - seeking to build up a pipeline of presentations and guest speakers - trying to keep organizational mishigosh to a minimum Hope to see you there. Monadically yours, --greg -- L.G. Meredith Managing Partner Biosimilarity LLC 806 55th St NE Seattle, WA 98105 +1 206.650.3740 http://biosimilarity.blogspot.com

2 7

Help using Network.Curl
by Jim Burton 19 Jul '08

19 Jul '08

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

1 0