drkcore

2009/12/19 08:47:28

Haskellでつぶやく

最初

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)]

ProductName Software Design (ソフトウエア デザイン) 2009年 04月号 [雑誌]

技術評論社 / ￥ 970 ()


Haskell

Comments