gistfile1.hs

-- タイムラインを表示
showTimeline :: GUI -> OAuth -> IO Bool
showTimeline gui oauth = do
  -- タイムラインから最新のツイートを取得
  newestTweet <- apiRequest oauth "home_timeline" GET []
  res <- simpleHTTPIO newestTweet
  let tryJSON = case decode (rspBody res) of
                  Ok a -> a
                  Error _ -> JSNull
  tweets <- (getTimeline tryJSON)
  -- text buffer生成
  buffer <- textViewGetBuffer (timeline gui)
  let tl = foldl (\s -> \t -> s ++ (show t) ++ "\n") "" tweets
  textBufferSetText buffer tl
  return True