gistfile1.hsc

main = do resp <- simpleHTTP request
                      case resp of
                        Left x -> print ("Error connecting: " ++ show x)
                        Right r -> 
                          case rspCode r of
                            (2,_,_) -> 
                              print $  ( valFromObj "statuses_count"  
                                         =<< decode (rspBody r) :: Result Int)
        where
          request=Request {rqURI = uriSadache,
                               rqMethod = GET,
                               rqHeaders = [],
                               rqBody = ""}
          uriSadache= fromJust $ parseURI "http://api.twitter.com/1/users/show.json?id=sadache"