packages feed

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