aboutsummaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Crypto/Macaroon.hs18
-rw-r--r--src/Crypto/Macaroon/Internal.hs1
2 files changed, 9 insertions, 10 deletions
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 (
44 -- , addThirdPartyCaveat 44 -- , addThirdPartyCaveat
45 ) where 45 ) where
46 46
47import Crypto.Cipher.AES 47-- import Crypto.Cipher.AES
48import Crypto.Hash 48import Crypto.Hash
49import Data.Byteable 49import Data.Byteable
50import qualified Data.ByteString as BS 50import qualified Data.ByteString as BS
@@ -81,13 +81,13 @@ addFirstPartyCaveat ident m = addCaveat (location m) ident BS.empty m
81 81
82-- |Add a third party Caveat to a Macaroon, using its location, identifier and 82-- |Add a third party Caveat to a Macaroon, using its location, identifier and
83-- verification key 83-- verification key
84addThirdPartyCaveat :: Key 84-- addThirdPartyCaveat :: Key
85 -> Key 85-- -> Key
86 -> Location 86-- -> Location
87 -> Macaroon 87-- -> Macaroon
88 -> Macaroon 88-- -> Macaroon
89addThirdPartyCaveat key cid loc m = addCaveat loc cid vid m 89-- addThirdPartyCaveat key cid loc m = addCaveat loc cid vid m
90 where 90-- where
91 vid = encryptECB (initAES (signature m)) key 91-- vid = encryptECB (initAES (signature m)) key
92 92
93 93
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
15 15
16 16
17import Control.DeepSeq 17import Control.DeepSeq
18import Crypto.Cipher.AES
19import Crypto.Hash 18import Crypto.Hash
20import Data.Byteable 19import Data.Byteable
21import qualified Data.ByteString as BS 20import qualified Data.ByteString as BS