simple-get.hs

simpleGet uri error ok = 
                    do resp <- simpleHTTP req
                       either error   
                         (\r -> 
                               case rspCode r of
                                 (2,_,_) -> ok (rspBody r))
                         resp
                    where req=request urii
                          urii =fromJust $ parseURI uri
                    

getSadacheProfile= do simpleGet 
                        "http://api.twitter.com/1/users/show.json?id=sadache"
                        (\error -> print ("Error connecting: " ++ show error))
                        (\r -> print $  (valFromObj "statuses_count"  
                                           =<< decode r :: Result Int))