X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FStatus.hs;fp=src%2FTwitter%2FStatus.hs;h=3508593d2ee3af92472d734ee71815bef97ed744;hp=0bc60faf47a2f623a9b6f89204894fafe839b939;hb=7bb00e04c15781d889f950d00babf3f183047bff;hpb=26718edaad5cd7921d957a1f0972fd9f5cd5b645 diff --git a/src/Twitter/Status.hs b/src/Twitter/Status.hs index 0bc60fa..3508593 100644 --- a/src/Twitter/Status.hs +++ b/src/Twitter/Status.hs @@ -1,7 +1,14 @@ {-# LANGUAGE NoMonomorphismRestriction #-} -- | Functions and data for working with Twitter statuses. -module Twitter.Status +module Twitter.Status ( + Status(..), + Timeline, + get_max_status_id, + pretty_print, + status_tests, + utc_time_to_rfc822 + ) where import Control.Applicative ((<$>), (<*>)) @@ -23,7 +30,7 @@ import Text.Regex (matchRegex, mkRegex) import Html (replace_entities) import StringUtils (listify) -import Twitter.User +import Twitter.User (User(..), screen_name_to_timeline_url) data Status = Status { created_at :: Maybe UTCTime,