authenticate 0.7.0 → 0.7.1
raw patch · 4 files changed
+12/−4 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Web.Authenticate.Facebook: instance Data AccessToken
+ Web.Authenticate.Facebook: instance Data Facebook
+ Web.Authenticate.Facebook: instance Ord AccessToken
+ Web.Authenticate.Facebook: instance Ord Facebook
+ Web.Authenticate.Facebook: instance Typeable AccessToken
+ Web.Authenticate.Facebook: instance Typeable Facebook
+ Web.Authenticate.Rpxnow: instance Data Identifier
+ Web.Authenticate.Rpxnow: instance Eq Identifier
+ Web.Authenticate.Rpxnow: instance Ord Identifier
+ Web.Authenticate.Rpxnow: instance Read Identifier
+ Web.Authenticate.Rpxnow: instance Show Identifier
+ Web.Authenticate.Rpxnow: instance Typeable Identifier
Files
- OpenId2/Types.hs +3/−1
- Web/Authenticate/Facebook.hs +5/−2
- Web/Authenticate/Rpxnow.hs +3/−0
- authenticate.cabal +1/−1
OpenId2/Types.hs view
@@ -17,6 +17,8 @@ ) where -- Libraries+import Data.Data (Data)+import Data.Typeable (Typeable) import Web.Authenticate.Internal -- | An OpenID provider.@@ -24,4 +26,4 @@ -- | A valid OpenID identifier. newtype Identifier = Identifier { identifier :: String }- deriving (Eq, Show, Read)+ deriving (Eq, Ord, Show, Read, Data, Typeable)
Web/Authenticate/Facebook.hs view
@@ -1,4 +1,5 @@ {-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE DeriveDataTypeable #-} module Web.Authenticate.Facebook where import Network.HTTP.Enumerator@@ -9,16 +10,18 @@ import qualified Data.ByteString.Lazy as L import qualified Data.ByteString as S import Web.Authenticate.Internal (qsEncode)+import Data.Data (Data)+import Data.Typeable (Typeable) data Facebook = Facebook { facebookClientId :: String , facebookClientSecret :: String , facebookRedirectUri :: String }- deriving (Show, Eq, Read)+ deriving (Show, Eq, Read, Ord, Data, Typeable) newtype AccessToken = AccessToken { unAccessToken :: String }- deriving (Show, Eq, Read)+ deriving (Show, Eq, Read, Ord, Data, Typeable) getForwardUrl :: Facebook -> [String] -> String getForwardUrl fb perms = concat
Web/Authenticate/Rpxnow.hs view
@@ -33,12 +33,15 @@ import qualified Data.ByteString.Lazy.Char8 as L import Control.Exception (throwIO) import Web.Authenticate.Internal+import Data.Data (Data)+import Data.Typeable (Typeable) -- | Information received from Rpxnow after a valid login. data Identifier = Identifier { identifier :: String , extraData :: [(String, String)] }+ deriving (Eq, Ord, Read, Show, Data, Typeable) -- | Attempt to log a user in. authenticate :: (MonadIO m,
authenticate.cabal view
@@ -1,5 +1,5 @@ name: authenticate-version: 0.7.0+version: 0.7.1 license: BSD3 license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>