diff options
Diffstat (limited to 'src/Crypto/Macaroon.hs')
-rw-r--r-- | src/Crypto/Macaroon.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Crypto/Macaroon.hs b/src/Crypto/Macaroon.hs index c9c8c21..86d8eb7 100644 --- a/src/Crypto/Macaroon.hs +++ b/src/Crypto/Macaroon.hs | |||
@@ -43,16 +43,20 @@ module Crypto.Macaroon ( | |||
43 | , inspect | 43 | , inspect |
44 | , addFirstPartyCaveat | 44 | , addFirstPartyCaveat |
45 | -- , addThirdPartyCaveat | 45 | -- , addThirdPartyCaveat |
46 | -- * Serialize | ||
47 | , module Crypto.Macaroon.Serializer.Base64 | ||
48 | -- * Verify | ||
49 | , module Crypto.Macaroon.Verifier | ||
46 | ) where | 50 | ) where |
47 | 51 | ||
48 | -- import Crypto.Cipher.AES | 52 | -- import Crypto.Cipher.AES |
49 | import Crypto.Hash | 53 | import Crypto.Hash |
50 | import Data.Byteable | 54 | import Data.Byteable |
51 | import qualified Data.ByteString as BS | 55 | import qualified Data.ByteString as BS |
52 | import qualified Data.ByteString.Base64.URL as B64 | ||
53 | import qualified Data.ByteString.Char8 as B8 | ||
54 | 56 | ||
55 | import Crypto.Macaroon.Internal | 57 | import Crypto.Macaroon.Internal |
58 | import Crypto.Macaroon.Serializer.Base64 | ||
59 | import Crypto.Macaroon.Verifier | ||
56 | 60 | ||
57 | -- | Create a Macaroon from its key, identifier and location | 61 | -- | Create a Macaroon from its key, identifier and location |
58 | create :: Secret -> Key -> Location -> Macaroon | 62 | create :: Secret -> Key -> Location -> Macaroon |
@@ -78,5 +82,3 @@ addFirstPartyCaveat ident m = addCaveat (location m) ident BS.empty m | |||
78 | -- addThirdPartyCaveat key cid loc m = addCaveat loc cid vid m | 82 | -- addThirdPartyCaveat key cid loc m = addCaveat loc cid vid m |
79 | -- where | 83 | -- where |
80 | -- vid = encryptECB (initAES (signature m)) key | 84 | -- vid = encryptECB (initAES (signature m)) key |
81 | |||
82 | |||