最初
simpleHTTP (getRequest "http://www.haskell.org/")
みたいに書けばいいので簡単だと思ってたのだけど、リクエストにBasic認証のヘッダを含める方法がわからなくてRequest型を作るのにCodec.Binary.Base64.String入れるはめになった。postRequestで組み立てられると思うんだけど。
import Network.HTTP
import Network.URI
import Codec.Binary.Base64.String
import Data.Maybe
tweet msg = simpleHTTP req where
req = Request uri POST [ah] "" where
ah = Header HdrAuthorization $ "Basic " ++ encode "user:pass"
uri = fromJust $ parseURI $ "http://twitter.com/statuses/update.xml?"
++ urlEncodeVars [("status", msg)]
Software Design (ソフトウエア デザイン) 2009年 04月号 [雑誌]