14 lines
536 B
Haskell
14 lines
536 B
Haskell
module Web.Authenticate.OpenId.Providers
|
|
where
|
|
|
|
google = "https://www.google.com/accounts/o8/id"
|
|
yahoo = "http://me.yahoo.com/"
|
|
livejournal u = concat ["http://", u, ".livejournal.com/"]
|
|
myspace = (++) "http://myspace.com/"
|
|
wordpress u = concat ["http://", u, ".wordpress.com/"]
|
|
blogger u = concat ["http://", u, ".blogger.com/"]
|
|
verisign u = concat ["http://", u, ".pip.verisignlabs.com/"]
|
|
typepad u = concat ["http://", u, ".typepad.com/"]
|
|
myopenid u = concat ["http://", u, ".myopenid.com/"]
|
|
claimid = (++) "http://claimid.com/"
|