X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTwitter%2FUser.hs;fp=src%2FTwitter%2FUser.hs;h=ffa01ba747a8a7d7b13e684d6e0204c6c20acaa4;hb=e13f2a1eced5f388b37bc0ed12e9db72eba4b5d4;hp=a6fd3f6a459f1d547c10b736a853014964c59101;hpb=ee2deb5a51e416d607cce45ddd10d4e19c050771;p=dead%2Fhalcyon.git

diff --git a/src/Twitter/User.hs b/src/Twitter/User.hs
index a6fd3f6..ffa01ba 100644
--- a/src/Twitter/User.hs
+++ b/src/Twitter/User.hs
@@ -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