From 8505c3d3b428f6a31cb2f9665ebefeb3ec117f7c Mon Sep 17 00:00:00 2001 From: Julien Tanguy Date: Wed, 13 May 2015 11:07:46 +0200 Subject: Remove third party caveats [ci skip] --- default.nix | 6 +++--- hmacaroons.cabal | 6 +++--- src/Crypto/Macaroon.hs | 18 +++++++++--------- src/Crypto/Macaroon/Internal.hs | 1 - 4 files changed, 15 insertions(+), 16 deletions(-) diff --git a/default.nix b/default.nix index b9cfdb7..d968974 100644 --- a/default.nix +++ b/default.nix @@ -1,6 +1,6 @@ { mkDerivation, attoparsec, base, base64-bytestring, byteable -, bytestring, cereal, cipher-aes, cryptohash, deepseq, hex -, QuickCheck, stdenv, tasty, tasty-hunit, tasty-quickcheck +, bytestring, cereal, cryptohash, deepseq, hex, QuickCheck, stdenv +, tasty, tasty-hunit, tasty-quickcheck }: mkDerivation { pname = "hmacaroons"; @@ -8,7 +8,7 @@ mkDerivation { src = ./.; buildDepends = [ attoparsec base base64-bytestring byteable bytestring cereal - cipher-aes cryptohash deepseq hex + cryptohash deepseq hex ]; testDepends = [ attoparsec base base64-bytestring byteable bytestring cereal diff --git a/hmacaroons.cabal b/hmacaroons.cabal index c26ea19..e80cfa4 100644 --- a/hmacaroons.cabal +++ b/hmacaroons.cabal @@ -64,12 +64,12 @@ library byteable >= 0.1 && <0.2, cereal >= 0.4, cryptohash >=0.11 && <0.12, - cipher-aes >=0.2 && <0.3, + -- cipher-aes >=0.2 && <0.3, deepseq >= 1.1, hex >= 0.1 hs-source-dirs: src default-language: Haskell2010 - + benchmark bench default-language: Haskell2010 type: exitcode-stdio-1.0 @@ -83,7 +83,7 @@ benchmark bench byteable >= 0.1 && <0.2, cereal >= 0.4, cryptohash >=0.11 && <0.12, - cipher-aes >=0.2 && <0.3, + -- cipher-aes >=0.2 && <0.3, hex >= 0.1, deepseq >= 1.1, criterion >= 1.1 diff --git a/src/Crypto/Macaroon.hs b/src/Crypto/Macaroon.hs index f955ab8..bfcf8df 100644 --- a/src/Crypto/Macaroon.hs +++ b/src/Crypto/Macaroon.hs @@ -44,7 +44,7 @@ module Crypto.Macaroon ( -- , addThirdPartyCaveat ) where -import Crypto.Cipher.AES +-- import Crypto.Cipher.AES import Crypto.Hash import Data.Byteable import qualified Data.ByteString as BS @@ -81,13 +81,13 @@ addFirstPartyCaveat ident m = addCaveat (location m) ident BS.empty m -- |Add a third party Caveat to a Macaroon, using its location, identifier and -- verification key -addThirdPartyCaveat :: Key - -> Key - -> Location - -> Macaroon - -> Macaroon -addThirdPartyCaveat key cid loc m = addCaveat loc cid vid m - where - vid = encryptECB (initAES (signature m)) key +-- addThirdPartyCaveat :: Key +-- -> Key +-- -> Location +-- -> Macaroon +-- -> Macaroon +-- addThirdPartyCaveat key cid loc m = addCaveat loc cid vid m +-- where +-- vid = encryptECB (initAES (signature m)) key diff --git a/src/Crypto/Macaroon/Internal.hs b/src/Crypto/Macaroon/Internal.hs index 02b7963..116f5ed 100644 --- a/src/Crypto/Macaroon/Internal.hs +++ b/src/Crypto/Macaroon/Internal.hs @@ -15,7 +15,6 @@ module Crypto.Macaroon.Internal where import Control.DeepSeq -import Crypto.Cipher.AES import Crypto.Hash import Data.Byteable import qualified Data.ByteString as BS -- cgit v1.2.3