X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FUser.hs;h=217ee7ddeed4e223b415d5d175947f9ff2c39dad;hp=75cf4b6f36c3f575ce50830e2abb9f5cee13573a;hb=94484087fbfe98d6735aa82798a9bf506f97fd19;hpb=17dd116706c4a971e1f5c68daa1656af5eff5cd2 diff --git a/src/Twitter/User.hs b/src/Twitter/User.hs index 75cf4b6..217ee7d 100644 --- a/src/Twitter/User.hs +++ b/src/Twitter/User.hs @@ -8,7 +8,7 @@ import Twitter.Xml data User = User { screen_name :: String } deriving (Show, Eq) - + user_from_content :: Content -> (Maybe User) user_from_content c = if (length names) == 0