    -- | 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/"