From 673e85223409e0b86898f9b55d08dc6a61ff88aa Mon Sep 17 00:00:00 2001 From: Hiromi Ishii Date: Sun, 2 Dec 2012 14:28:17 +0900 Subject: [PATCH] added deriving clause --- authenticate-oauth/Web/Authenticate/OAuth.hs | 4 +++- authenticate-oauth/authenticate-oauth.cabal | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/authenticate-oauth/Web/Authenticate/OAuth.hs b/authenticate-oauth/Web/Authenticate/OAuth.hs index 62d0c9c1..c1e1d10e 100644 --- a/authenticate-oauth/Web/Authenticate/OAuth.hs +++ b/authenticate-oauth/Web/Authenticate/OAuth.hs @@ -35,7 +35,7 @@ import Data.ByteString.Base64 import Data.Time import Numeric import Codec.Crypto.RSA (rsassa_pkcs1_v1_5_sign, ha_SHA1) -import Crypto.Types.PubKey.RSA (PrivateKey(..)) +import Crypto.Types.PubKey.RSA (PrivateKey(..), PublicKey(..)) import Network.HTTP.Types (Header) import Blaze.ByteString.Builder (toByteString) import Control.Monad.IO.Class (MonadIO) @@ -110,6 +110,8 @@ data SignMethod = PLAINTEXT | RSASHA1 PrivateKey deriving (Show, Eq, Ord, Read, Data, Typeable) deriving instance Ord PrivateKey +deriving instance Ord PublicKey + -- | Data type for redential. data Credential = Credential { unCredential :: [(BS.ByteString, BS.ByteString)] } deriving (Show, Eq, Ord, Read, Data, Typeable) diff --git a/authenticate-oauth/authenticate-oauth.cabal b/authenticate-oauth/authenticate-oauth.cabal index b141049f..dc850665 100644 --- a/authenticate-oauth/authenticate-oauth.cabal +++ b/authenticate-oauth/authenticate-oauth.cabal @@ -1,6 +1,6 @@ name: authenticate-oauth -version: 1.4.0.3 +version: 1.4.0.4 license: BSD3 license-file: LICENSE author: Hiromi Ishii