Add referenced users' timeline URLs to the bottom of each message.

[dead/halcyon.git] / src / Twitter / User.hs

diff --git a/src/Twitter/User.hs b/src/Twitter/User.hs
index a6fd3f6a459f1d547c10b736a853014964c59101..ffa01ba747a8a7d7b13e684d6e0204c6c20acaa4 100644 (file)
--- 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