X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FTwitter%2FUser.hs;h=2c199c9d3607d0b3187babaf20c5a3ef44669a08;hp=ffa01ba747a8a7d7b13e684d6e0204c6c20acaa4;hb=606371fece618f28d3fedf182165ef3a56bf4159;hpb=e13f2a1eced5f388b37bc0ed12e9db72eba4b5d4 diff --git a/src/Twitter/User.hs b/src/Twitter/User.hs index ffa01ba..2c199c9 100644 --- a/src/Twitter/User.hs +++ b/src/Twitter/User.hs @@ -13,7 +13,7 @@ data User = User { screen_name :: String } -- |Create a 'User' from HaXML 'Content'. -user_from_content :: Content -> (Maybe User) +user_from_content :: Content i -> (Maybe User) user_from_content c = if (length names) == 0 then