module Web.Authenticate.OpenId.Providers
( google
, yahoo
, livejournal
, myspace
, wordpress
, blogger
, verisign
, typepad
, myopenid
, claimid
) where
google :: String
google :: String
google = "https://www.google.com/accounts/o8/id"
{-# DEPRECATED google "Google no longer provides OpenID support" #-}
yahoo :: String
yahoo :: String
yahoo = "http://me.yahoo.com/"
livejournal :: String -> String
livejournal :: String -> String
livejournal u :: String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat ["http://", String
u, ".livejournal.com/"]
myspace :: String -> String
myspace :: String -> String
myspace = String -> String -> String
forall a. [a] -> [a] -> [a]
(++) "http://www.myspace.com/"
wordpress :: String -> String
wordpress :: String -> String
wordpress u :: String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat ["http://", String
u, ".wordpress.com/"]
blogger :: String -> String
blogger :: String -> String
blogger u :: String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat ["http://", String
u, ".blogger.com/"]
verisign :: String -> String
verisign :: String -> String
verisign u :: String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat ["http://", String
u, ".pip.verisignlabs.com/"]
typepad :: String -> String
typepad :: String -> String
typepad u :: String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat ["http://", String
u, ".typepad.com/"]
myopenid :: String -> String
myopenid :: String -> String
myopenid u :: String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat ["http://", String
u, ".myopenid.com/"]
claimid :: String -> String
claimid :: String -> String
claimid = String -> String -> String
forall a. [a] -> [a] -> [a]
(++) "http://claimid.com/"