Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Aug 17th, 2012  |  syntax: None  |  size: 0.36 KB  |  hits: 6  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. -- ツイートする
  2. tweet :: GUI -> OAuth -> IO ()
  3. tweet gui oauth = do
  4.   tweetText <- entryGetText (tweetEntry gui)
  5.   tweet <- apiRequest oauth "update" POST [("status", encodeString tweetText)]
  6.   res <- simpleHTTPIO tweet
  7.   -- ツイート入力部をリセット
  8.   entrySetText (tweetEntry gui) ""
  9.   -- タイムラインを更新
  10.   showTimeline gui oauth
  11.   return ()
create a new version of this paste RAW Paste Data