HI all<div>I&#39;m trying to write a function that gives me the HTTP code in Int</div><div><br></div><div>--This is broken</div><div><div>getStatusCode::Response-&gt;String</div><div>getStatusCode (Response _,x1,_,_) = x1</div>
</div><div><br></div><div>--this work the download  trying to get http status code as well</div><div><div>download_file fname url= do</div><div><span class="Apple-tab-span" style="white-space:pre">                                                        </span>let clean_uri = check_url url</div>
<div><span class="Apple-tab-span" style="white-space:pre">                                                        </span>putStrLn (&quot;Downloading &quot; ++ url ++ &quot;...&quot;)</div><div><span class="Apple-tab-span" style="white-space:pre">                                                        </span>rsp &lt;- simpleHTTP (defaultGETRequest_ clean_uri) </div>
<div><span class="Apple-tab-span" style="white-space:pre">                                                        </span>--problamatic function next line</div><div>                                                        print (getStatusCode rsp)</div><div><span class="Apple-tab-span" style="white-space:pre">                                                        </span>file_buffer &lt;- getResponseBody(rsp)</div>
<div><span class="Apple-tab-span" style="white-space:pre">                                                        </span>B.writeFile fname file_buffer</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span></div><div>Best Regards</div><div><br></div><div>
Jacques<span class="Apple-tab-span" style="white-space:pre">                                </span></div></div>