X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FStatus.hs;h=0bc60faf47a2f623a9b6f89204894fafe839b939;hp=191b8e85b734820bf73541ec9e55d621a0e0ba73;hb=d721869c5e7395c021cc79f40720bdb275d613d2;hpb=dd6cea3dc5e830691b1da442fcf91602e4cf94aa

diff --git a/src/Twitter/Status.hs b/src/Twitter/Status.hs
index 191b8e8..0bc60fa 100644
--- a/src/Twitter/Status.hs
+++ b/src/Twitter/Status.hs
@@ -7,7 +7,7 @@ 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)
@@ -79,7 +79,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.