toAuthURL :: Token -> String
toAuthURL = ((authURL ++ "?oauth_token=") ++)
          . findWithDefault ("oauth_token", "")
          . oauthParams
toAuthURL :: Token -> String
toAuthURL = ((authURL ++ "?oauth_token=") ++)
          . findWithDefault ("oauth_token", "")
          . oauthParams
toAuthURL = ((authURL ++ "?oauth_token=") ++)
          . findWithDefault ("oauth_token", "")
          . oauthParams