Type signatures for Providers

Web/Authenticate/OpenId/Providers.hs

@@ -1,13 +1,44 @@
+-- | OpenIDs for a number of common OPs. When a function takes a 'String'
+-- parameter, that 'String' is the username.
 module Web.Authenticate.OpenId.Providers
-    where
+    ( google
+    , yahoo
+    , livejournal
+    , myspace
+    , wordpress
+    , blogger
+    , verisign
+    , typepad
+    , myopenid
+    , claimid
+    ) where
 
+google :: String
 google = "https://www.google.com/accounts/o8/id"
+
+yahoo :: String
 yahoo = "http://me.yahoo.com/"
+
+livejournal :: String -> String
 livejournal u = concat ["http://", u, ".livejournal.com/"]
+
+myspace :: String -> String
 myspace = (++) "http://myspace.com/"
+
+wordpress :: String -> String
 wordpress u = concat ["http://", u, ".wordpress.com/"]
+
+blogger :: String -> String
 blogger u = concat ["http://", u, ".blogger.com/"]
+
+verisign :: String -> String
 verisign u = concat ["http://", u, ".pip.verisignlabs.com/"]
+
+typepad :: String -> String
 typepad u = concat ["http://", u, ".typepad.com/"]
+
+myopenid :: String -> String
 myopenid u = concat ["http://", u, ".myopenid.com/"]
+
+claimid :: String -> String
 claimid = (++) "http://claimid.com/"

authenticate.cabal

@@ -1,5 +1,5 @@
 name:            authenticate
-version:         0.7.2
+version:         0.7.2.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>