gistfile1.hs

-- タイムラインのフィールドにデータを描画
drawTimelineData :: GUI -> [Tweet] -> IO ()
drawTimelineData gui tweets = do
  let home = homeTimeline gui
      field = timelineField home
      tlText = foldl (\s -> \t -> s ++ (show t) ++ "\n") "" tweets
  -- 描画イベントを発生させる
  GUI.drawString field (0, 0, 0) (0, 0) tlText
  return ()