aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Crypto/Macaroon.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Crypto/Macaroon.hs')
-rw-r--r--src/Crypto/Macaroon.hs18
1 files changed, 9 insertions, 9 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