X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FStatus.hs;h=92cf899fae1786562ad96b0c7e7a98ac5915e645;hp=191b8e85b734820bf73541ec9e55d621a0e0ba73;hb=eed0d7b0f8ef28864c00925beef5c8853bcd44cc;hpb=4cc476a2714260980899ca5358196bbf5226b3c2

diff --git a/src/Twitter/Status.hs b/src/Twitter/Status.hs
index 191b8e8..92cf899 100644
--- a/src/Twitter/Status.hs
+++ b/src/Twitter/Status.hs
@@ -1,13 +1,19 @@
 {-# 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 ((<$>), (<*>))
 import Control.Monad (liftM)
 import Data.Aeson ((.:), FromJSON(..), Value(Object))
-import Data.Maybe (fromMaybe, mapMaybe, isJust)
+import Data.Maybe (mapMaybe, isJust)
 import Data.Monoid (mempty)
 import Data.String.Utils (join, splitWs)
 import Data.Text (pack)
@@ -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,
@@ -79,7 +85,7 @@ utc_time_to_rfc822 mtz utc =
 
 show_created_at :: Maybe TimeZone -> Status -> String
 show_created_at mtz =
-  (fromMaybe "") . (fmap $ utc_time_to_rfc822 mtz) . created_at
+  (maybe "" (utc_time_to_rfc822 mtz)) . created_at
 
 -- | Returns a nicely-formatted String representing the given 'Status'
 --   object.