1 -- | Functions and data for working with Twitter users.
9 -- |Represents a Twitter user, and contains the only attribute thereof
10 -- that we care about: the screen (user) name.
11 data User = User { screen_name :: String }
15 -- |Create a 'User' from HaXML 'Content'.
16 user_from_content :: Content -> (Maybe User)
18 if (length names) == 0
22 case (get_char_data (names !! 0)) of
24 (Just content) -> Just (User (content))
27 names = user_screen_name c