X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FUser.hs;h=a6fd3f6a459f1d547c10b736a853014964c59101;hp=217ee7ddeed4e223b415d5d175947f9ff2c39dad;hb=69b8af30f49aaad0f5c051998d2556b9ec291df7;hpb=53c26134670775854677470e402b8b41f19246d1

diff --git a/src/Twitter/User.hs b/src/Twitter/User.hs
index 217ee7d..a6fd3f6 100644
--- a/src/Twitter/User.hs
+++ b/src/Twitter/User.hs
@@ -1,3 +1,4 @@
+-- | Functions and data for working with Twitter users.
 module Twitter.User
 where
 
@@ -5,10 +6,13 @@ import Text.XML.HaXml
 
 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 -> (Maybe User)
 user_from_content c =
     if (length names) == 0