-import Twitter.Xml
-
--- |Represents a Twitter user, and contains the only attribute thereof
--- that we care about: the screen (user) name.
-data User = User { screen_name :: String }
- deriving (Show, Eq)
-
-
--- |Create a 'User' from HaXML 'Content'.
-user_from_content :: Content i -> (Maybe User)
-user_from_content c =
- if (length names) == 0
- then
- Nothing
- else
- case (get_char_data (names !! 0)) of
- Nothing -> Nothing
- (Just content) -> Just (User (content))
+-- | Represents a Twitter user, and contains the only attribute
+-- thereof that we care about: the screen (user) name.
+data User = User { screen_name :: String } deriving (Eq, Show)