Web.Authenticate.OpenId.Providers

Web/Authenticate/OpenId/Providers.hs

@@ -0,0 +1,13 @@
+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/"

authenticate.cabal

@@ -1,12 +1,12 @@
 name:            authenticate
-version:         0.7.1
+version:         0.7.2
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>
 maintainer:      Michael Snoyman <michael@snoyman.com>
 synopsis:        Authentication methods for Haskell web applications.
-description:     Focus is on remote authentication methods, such as OpenID,
+description:     Focus is on third-party authentication methods, such as OpenID,
-                 rpxnow and Google.
+                 rpxnow and Facebook.
 category:        Web
 stability:       Stable
 cabal-version:   >= 1.2
@@ -27,6 +27,7 @@ library
                      xml >= 1.3.7 && < 1.4
     exposed-modules: Web.Authenticate.Rpxnow,
                      Web.Authenticate.OpenId,
+                     Web.Authenticate.OpenId.Providers,
                      Web.Authenticate.Facebook
     other-modules:   Web.Authenticate.Internal,
                      OpenId2.Discovery,