diff options
author | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-08-17 19:39:05 +0200 |
---|---|---|
committer | Julien Tanguy <julien.tanguy@jhome.fr> | 2015-08-17 19:39:05 +0200 |
commit | 27d5a3a43c7d736f8cd842f14f3178d532de9152 (patch) | |
tree | 8a96cc66aba8d8171045c0e0a6dcdd040b7bc588 /src/Crypto/Macaroon.hs | |
parent | b1c4109f79dd96e033c9a849328dabe90ee9afe8 (diff) | |
download | hmacaroons-27d5a3a43c7d736f8cd842f14f3178d532de9152.tar.gz hmacaroons-27d5a3a43c7d736f8cd842f14f3178d532de9152.tar.zst hmacaroons-27d5a3a43c7d736f8cd842f14f3178d532de9152.zip |
Modify exports & haddock
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 | |||