aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Crypto/Macaroon.hs
diff options
context:
space:
mode:
authorJulien Tanguy <julien.tanguy@jhome.fr>2015-08-17 19:39:05 +0200
committerJulien Tanguy <julien.tanguy@jhome.fr>2015-08-17 19:39:05 +0200
commit27d5a3a43c7d736f8cd842f14f3178d532de9152 (patch)
tree8a96cc66aba8d8171045c0e0a6dcdd040b7bc588 /src/Crypto/Macaroon.hs
parentb1c4109f79dd96e033c9a849328dabe90ee9afe8 (diff)
downloadhmacaroons-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.hs12
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
49import Crypto.Hash 53import Crypto.Hash
50import Data.Byteable 54import Data.Byteable
51import qualified Data.ByteString as BS 55import qualified Data.ByteString as BS
52import qualified Data.ByteString.Base64.URL as B64
53import qualified Data.ByteString.Char8 as B8
54 56
55import Crypto.Macaroon.Internal 57import Crypto.Macaroon.Internal
58import Crypto.Macaroon.Serializer.Base64
59import 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
58create :: Secret -> Key -> Location -> Macaroon 62create :: 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