X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FStatus.hs;h=92cf899fae1786562ad96b0c7e7a98ac5915e645;hp=0bc60faf47a2f623a9b6f89204894fafe839b939;hb=eed0d7b0f8ef28864c00925beef5c8853bcd44cc;hpb=d721869c5e7395c021cc79f40720bdb275d613d2 diff --git a/src/Twitter/Status.hs b/src/Twitter/Status.hs index 0bc60fa..92cf899 100644 --- a/src/Twitter/Status.hs +++ b/src/Twitter/Status.hs @@ -1,7 +1,13 @@ {-# 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 +29,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,