fb 0.14.4.1 → 0.14.5

raw patch · 3 files changed

+21/−20 lines, 3 filesdep +cryptohash-cryptoapidep ~crypto-apiPVP ok

version bump matches the API change (PVP)

Dependencies added: cryptohash-cryptoapi

Dependency ranges changed: crypto-api

API changes (from Hackage documentation)

Files

• fb.cabal +18/−17
• src/Facebook/Auth.hs +1/−1
• src/Facebook/RealTime.hs +2/−2

@@ -1,5 +1,5 @@ name:              fb-version:           0.14.4.1+version:           0.14.5 license:           BSD3 license-file:      LICENSE author:            Felipe Lessa@@ -60,29 +60,30 @@     Facebook.FQL     Facebook.TestUsers   build-depends:-      base               >= 4       && < 5-    , lifted-base        >= 0.1     && < 0.3-    , bytestring         >= 0.9     && < 0.11-    , text               == 0.11.*-    , transformers       >= 0.2     && < 0.4+      base                 >= 4       && < 5+    , lifted-base          >= 0.1     && < 0.3+    , bytestring           >= 0.9     && < 0.11+    , text                 == 0.11.*+    , transformers         >= 0.2     && < 0.4     , transformers-base     , monad-control     , resourcet-    , conduit            == 1.0.*+    , conduit              == 1.0.*     , data-default     , http-types-    , http-conduit       == 1.9.*-    , attoparsec         == 0.10.*-    , attoparsec-conduit == 1.0.*+    , http-conduit         == 1.9.*+    , attoparsec           == 0.10.*+    , attoparsec-conduit   == 1.0.*     , unordered-containers-    , aeson              >= 0.5     && < 0.7-    , base16-bytestring  >= 0.1-    , base64-bytestring  >= 0.1.1-    , time               >= 1.2     && < 1.5+    , aeson                >= 0.5     && < 0.7+    , base16-bytestring    >= 0.1+    , base64-bytestring    >= 0.1.1+    , time                 >= 1.2     && < 1.5     , old-locale-    , cereal             == 0.3.*-    , crypto-api         == 0.11.*-    , cryptohash         >= 0.7+    , cereal               == 0.3.*+    , crypto-api           >= 0.11    && < 0.13+    , cryptohash           >= 0.7+    , cryptohash-cryptoapi == 0.1.*   extensions:     DeriveDataTypeable     EmptyDataDecls

@@ -19,7 +19,7 @@ import Control.Monad.Trans.Control (MonadBaseControl) import Control.Monad.Trans.Maybe (MaybeT(..)) import Crypto.Classes (constTimeEq)-import Crypto.Hash.SHA256 (SHA256)+import Crypto.Hash.CryptoAPI (SHA256) import Crypto.HMAC (hmac', MacKey(..)) import Data.Aeson ((.:)) import Data.Aeson.Parser (json')

@@ -16,13 +16,13 @@ import Control.Applicative ((<$>), (<*>)) import Control.Monad.Trans.Control (MonadBaseControl) import Control.Monad (liftM, mzero, void)+import Crypto.Hash.CryptoAPI (SHA1) import Data.ByteString.Char8 (ByteString) import Data.Text (Text) import Data.Typeable (Typeable)  import qualified Crypto.Classes as Crypto import qualified Crypto.HMAC as Crypto-import qualified Crypto.Hash.SHA1 as SHA1 import qualified Data.Aeson as A import qualified Data.ByteString.Base16 as Base16 import qualified Data.ByteString.Lazy.Char8 as L@@ -171,7 +171,7 @@   -> FacebookT Auth m (Maybe L.ByteString) verifyRealTimeUpdateNotifications sig body = do   creds <- getCreds-  let key :: Crypto.MacKey SHA1.Ctx SHA1.SHA1+  let key :: Crypto.MacKey ctx SHA1       key = Crypto.MacKey (appSecretBS creds)       hash = Crypto.hmac key body       expected = "sha1=" <> Base16.encode (Crypto.encode hash)