X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FUser.hs;h=2c199c9d3607d0b3187babaf20c5a3ef44669a08;hp=a6fd3f6a459f1d547c10b736a853014964c59101;hb=606371fece618f28d3fedf182165ef3a56bf4159;hpb=69b8af30f49aaad0f5c051998d2556b9ec291df7

diff --git a/src/Twitter/User.hs b/src/Twitter/User.hs
index a6fd3f6..2c199c9 100644
--- a/src/Twitter/User.hs
+++ b/src/Twitter/User.hs
@@ -13,7 +13,7 @@ data User = User { screen_name :: String }
 
 
 -- |Create a 'User' from HaXML 'Content'.
-user_from_content :: Content -> (Maybe User)
+user_from_content :: Content i -> (Maybe User)
 user_from_content c =
     if (length names) == 0
     then
@@ -25,3 +25,9 @@ user_from_content c =
 
     where
     names = user_screen_name c
+
+
+-- |Get the URL for the given screen name's timeline.
+screen_name_to_timeline_url :: String -> String
+screen_name_to_timeline_url sn =
+    "http://twitter.com/" ++ sn