src/Twitter/User.hs

   1 module Twitter.User
   2 where
   3
   4 import Text.XML.HaXml
   5
   6 import Twitter.Xml
   7
   8 data User = User { screen_name :: String }
   9           deriving (Show, Eq)
  10
  11
  12 user_from_content :: Content -> (Maybe User)
  13 user_from_content c =
  14     if (length names) == 0
  15     then
  16         Nothing
  17     else
  18         case (get_char_data (names !! 0)) of
  19           Nothing -> Nothing
  20           (Just content) -> Just (User (content))
  21
  22     where
  23     names = user_screen_name c