Haskell でつぶやこう

つぶやくだけなら Web.Twitter を使うのが便利。Web.Twitter の tweet は setTwitterUser で user, password を設定しなくてはいけない。しかし、こいつは getLine で user, password を聞いてくるので自動化するにはあわない…と思う。 (putStrLn してくるし…)
ということでこんな感じでつぶやけるみたい。 ちなみに Nothing のとこに Just statusID をいれておくと、 in-reply-to がつけられるようです。

import Web.Twitter (update)
import Web.Twitter.Monad (runTM)
import Web.Twitter.Fetch (AuthUser(AuthUser))

tweet s = runTM au (update s Nothing)
    where au = AuthUser user passwd
          user = "..."
          passwd = "..."