-- | OpenIDs for a number of common OPs. When a function takes a 'String'
-- parameter, that 'String' is the username.
module Web.Authenticate.OpenId.Providers
    ( google
    , yahoo
    , livejournal
    , myspace
    , wordpress
    , blogger
    , verisign
    , typepad
    , myopenid
    , claimid
    ) where

google :: String
google :: String
google = String
"https://www.google.com/accounts/o8/id"
{-# DEPRECATED google "Google no longer provides OpenID support" #-}

yahoo :: String
yahoo :: String
yahoo = String
"http://me.yahoo.com/"

livejournal :: String -> String
livejournal :: String -> String
livejournal String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat [String
"http://", String
u, String
".livejournal.com/"]

myspace :: String -> String
myspace :: String -> String
myspace = String -> String -> String
forall a. [a] -> [a] -> [a]
(++) String
"http://www.myspace.com/"

wordpress :: String -> String
wordpress :: String -> String
wordpress String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat [String
"http://", String
u, String
".wordpress.com/"]

blogger :: String -> String
blogger :: String -> String
blogger String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat [String
"http://", String
u, String
".blogger.com/"]

verisign :: String -> String
verisign :: String -> String
verisign String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat [String
"http://", String
u, String
".pip.verisignlabs.com/"]

typepad :: String -> String
typepad :: String -> String
typepad String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat [String
"http://", String
u, String
".typepad.com/"]

myopenid :: String -> String
myopenid :: String -> String
myopenid String
u = [String] -> String
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat [String
"http://", String
u, String
".myopenid.com/"]

claimid :: String -> String
claimid :: String -> String
claimid = String -> String -> String
forall a. [a] -> [a] -> [a]
(++) String
"http://claimid.com/"